src/GF/Devel/TestGF3.hs


1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21

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."