Home My Page Projects Code Snippets Project Openings SML/NJ
Summary Activity Forums Tracker Lists Tasks Docs Surveys News SCM Files

SCM Repository

[smlnj] View of /archive/mldist.44/lib/mlyacc/mlyacc.main
ViewVC logotype

View of /archive/mldist.44/lib/mlyacc/mlyacc.main

Parent Directory Parent Directory | Revision Log Revision Log


Revision 4942 - (download) (annotate)
Sat Apr 6 00:29:33 2019 UTC (3 months, 2 weeks ago) by dbm
File size: 422 byte(s)
adding a batch of new versions from tapes
structure ParseGen =
   struct
      val parseGen = fn file =>
          let val outfile = file ^ ".sml"
	      val in_str = open_in file
	      val out_str = open_out outfile
	      val lexer =  Mlex.makeLexer (input in_str)
	      val p = (C.HDR.out := out_str; C.HDR.err_flag := false;
		  C.HDR.infile := file; C.HDR.lineno := 0;
		  C.parse lexer (0,0))
	   in (close_in in_str; close_out out_str;  p)
	   end
   end

root@smlnj-gforge.cs.uchicago.edu
ViewVC Help
Powered by ViewVC 1.0.0