blob: 206d542062066391b5db109cc9288e01add03002 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
|
module Main where
import GF.Devel.Compile
import GF.Devel.GrammarToGFCC
import GF.Devel.GFCCtoJS
import GF.GFCC.OptimizeGFCC
import GF.GFCC.CheckGFCC
import GF.GFCC.DataGFCC
import GF.Devel.UseIO
import GF.Infra.Option
import System
main = do
xx <- getArgs
let (opts,fs) = getOptions "-" xx
case opts of
_ | oElem (iOpt "help") opts -> putStrLn "usage: gfc (--make) FILES"
_ | oElem (iOpt "-make") opts -> do
gr <- batchCompile opts fs
let name = justModuleName (last fs)
let (abs,gc0) = mkCanon2gfcc opts name gr
gc1 <- check gc0
let gc = if oElem (iOpt "noopt") opts then gc1 else optGFCC gc1
let target = abs ++ ".gfcc"
writeFile target (printGFCC gc)
putStrLn $ "wrote file " ++ target
if oElem (iOpt "js") opts
then do
let js = abs ++ ".js"
writeFile js (gfcc2js gc)
putStrLn $ "wrote file " ++ js
else return ()
_ -> do
mapM_ (batchCompile opts) (map return fs)
putStrLn "Done."
check gfcc = do
(gc,b) <- checkGFCC gfcc
putStrLn $ if b then "OK" else "Corrupted GFCC"
return gc
|
