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 /ml-lex/trunk/tool/tool.sml
ViewVC logotype

View of /ml-lex/trunk/tool/tool.sml

Parent Directory Parent Directory | Revision Log Revision Log


Revision 2585 - (download) (annotate)
Wed May 23 05:06:17 2007 UTC (12 years, 1 month ago) by blume
File size: 649 byte(s)
CM tools now treated as simple libraries
(*
 * Running ML-Lex from CM.
 *
 *   (C) 1999 Lucent Technologies, Bell Laboratories
 *
 * Author: Matthias Blume (blume@kurims.kyoto-u.ac.jp)
 *)
structure LexTool = struct
    val legacy_control =
	Tools.stringcontrol ("lex-program",
			     "which version of the lexer generator to use",
			     "ml-lex")

    val _ = Tools.registerStdShellCmdTool
	{ tool = "ML-Lex",
	  class = "mllex",
	  cmdStdPath = fn () =>
			  case #get legacy_control () of
			      "ml-lex" => ("ml-lex", [])
			    | other => (other, ["--ml-lex-mode"]),
	  template = NONE,
	  extensionStyle = Tools.EXTEND [("sml", SOME "sml", fn too => too)],
	  dflopts = [] }
end

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