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

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.