Mercurial > urweb

comparison src/main.mlton.sml @ 1164:8679ba87cf3c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
sigfile directive
author Adam Chlipala <adamc@hcoop.net>
date Thu, 11 Feb 2010 09:10:01 -0500
parents c01fb6f1b31f
children 52c6ac6a59f1
comparison
equal deleted inserted replaced
1163:6c507826fae9 1164:8679ba87cf3c
70 (Compiler.addPath (name, path); 70 (Compiler.addPath (name, path);
71 doArgs rest) 71 doArgs rest)
72 | "-root" :: name :: root :: rest => 72 | "-root" :: name :: root :: rest =>
73 (Compiler.addModuleRoot (root, name); 73 (Compiler.addModuleRoot (root, name);
74 doArgs rest) 74 doArgs rest)
75 | "-sigfile" :: name :: rest =>
76 (Settings.setSigFile (SOME name);
77 doArgs rest)
75 | arg :: rest => 78 | arg :: rest =>
76 (if size arg > 0 andalso String.sub (arg, 0) = #"-" then 79 (if size arg > 0 andalso String.sub (arg, 0) = #"-" then
77 raise Fail ("Unknown flag " ^ arg) 80 raise Fail ("Unknown flag " ^ arg)
78 else 81 else
79 sources := arg :: !sources; 82 sources := arg :: !sources;