Mercurial > urweb

diff src/main.mlton.sml @ 1871:c3119c263bd3

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add -ccompiler command line argument This allows user to overwrite the compiler set during the configure phase
author Sergey Mironov <grrwlf@gmail.com>
date Tue, 20 Aug 2013 17:13:50 +0400
parents d636d33fd8a2
children 6507e973af84
line wrap: on
line diff
--- a/src/main.mlton.sml	Tue Oct 01 07:33:20 2013 -0400
+++ b/src/main.mlton.sml	Tue Aug 20 17:13:50 2013 +0400
@@ -61,12 +61,15 @@
             case args of
                 [] => ()
               | "-version" :: rest => 
-	        printVersion ()
+                  printVersion ()
               | "-numeric-version" :: rest =>
-	        printNumericVersion ()
+                  printNumericVersion ()
               | "-css" :: rest =>
                 (css := true;
                  doArgs rest)
+              | "-ccompiler" :: ccomp :: rest =>
+                (Settings.setCCompiler ccomp;
+                 doArgs rest)
               | "-demo" :: prefix :: rest =>
                 (demo := SOME (prefix, false);
                  doArgs rest)