Mercurial > urweb
comparison src/main.mlton.sml @ 1266:459a334345ae
-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; |