Changeset 7127 for src/Main.hs

Timestamp:

09/24/05 15:28:50 (3 years ago)

Author:

iblech

Message:

* Usual svn props.
* PIL2JS: runjs.pl: Added --compile-only option, needed for new -CJS.
* Main: Added support for -CJS and unbroke -CPIR.
* Pugs.CodeGen?: Better normalization so -h looks prettier (it's "PIL", not

"Pil", for example).

* Pugs.Help: Add JS to the list of backends supported.
* pugs::hack: Accomodate for the above changes.

Files:

• src/Main.hs (modified) (1 diff)

src/Main.hs

@@ -79 +79 @@
 run ("-c":file:_)               = readFile file >>= doCheck file
 
+run ("-C":backend:args) | map toUpper backend == "JS" =
+    doHelperRun "JS" ("--compile-only":args)
 run ("-C":backend:"-e":prog:_)           = doCompileDump backend "-e" prog
 run ("-C":backend:file:_)                = slurpFile file >>= doCompileDump backend file
 
-run ("-B":backend:args)                  = doHelperRun backend args
+run ("-B":backend:args) | (== map toLower backend) `any` ["js","perl5"] =
+    doHelperRun backend args
+run ("-B":backend:"-e":prog:_)           = doCompileRun backend "-e" prog
+run ("-B":backend:file:_)                = slurpFile file >>= doCompileRun backend file
 
 run ("--external":mod:"-e":prog:_)    = doExternal mod "-e" prog