Mercurial > urweb

comparison src/main.mlton.sml @ 1266:459a334345ae

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
-moduleOf command-line option; compatibility fixes and better error messages for SQLite
author Adam Chlipala <adamc@hcoop.net>
date Thu, 27 May 2010 16:36:17 -0400
parents a7b773f1d053
children 4359e185d3af
comparison
equal deleted inserted replaced
1265:e8d68fd8ed4b 1266:459a334345ae
83 (Settings.setSigFile (SOME name); 83 (Settings.setSigFile (SOME name);
84 doArgs rest) 84 doArgs rest)
85 | "-iflow" :: rest => 85 | "-iflow" :: rest =>
86 (Compiler.doIflow := true; 86 (Compiler.doIflow := true;
87 doArgs rest) 87 doArgs rest)
88 | "-moduleOf" :: fname :: _ =>
89 (print (Compiler.moduleOf fname ^ "\n");
90 OS.Process.exit OS.Process.success)
88 | arg :: rest => 91 | arg :: rest =>
89 (if size arg > 0 andalso String.sub (arg, 0) = #"-" then 92 (if size arg > 0 andalso String.sub (arg, 0) = #"-" then
90 raise Fail ("Unknown flag " ^ arg) 93 raise Fail ("Unknown flag " ^ arg)
91 else 94 else
92 sources := arg :: !sources; 95 sources := arg :: !sources;