Return to mlyacc.main CVS log

Up to [Research Unix] / researchv10no / cmd / sml / lib / mlyacc

Annotation of researchv10no/cmd/sml/lib/mlyacc/mlyacc.main, revision 1.1

1.1     ! root        1: structure ParseGen =
        !             2:    struct
        !             3:       val parseGen = fn file =>
        !             4:           let val outfile = file ^ ".sml"
        !             5:              val in_str = open_in file
        !             6:              val out_str = open_out outfile
        !             7:              val lexer =  Mlex.makeLexer (input in_str)
        !             8:              val p = (C.HDR.out := out_str; C.HDR.err_flag := false;
        !             9:                  C.HDR.infile := file; C.HDR.lineno := 0;
        !            10:                  C.parse lexer (0,0))
        !            11:           in (close_in in_str; close_out out_str;  p)
        !            12:           end
        !            13:    end

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.