mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-05 01:02:51 -06:00
22 lines
352 B
Haskell
22 lines
352 B
Haskell
module Main where
|
|
|
|
import GF.Devel.Compile.Compile
|
|
|
|
import GF.Data.Operations
|
|
import GF.Infra.Option ----
|
|
|
|
import System (getArgs)
|
|
|
|
main = do
|
|
xx <- getArgs
|
|
mainGFC xx
|
|
|
|
|
|
mainGFC :: [String] -> IO ()
|
|
mainGFC xx = do
|
|
let (opts,fs) = getOptions "-" xx
|
|
case opts of
|
|
_ -> do
|
|
mapM_ (batchCompile opts) (map return fs)
|
|
putStrLn "Done."
|