mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-02 03:38:54 -06:00
40 lines
757 B
Haskell
40 lines
757 B
Haskell
module Main where
|
|
|
|
import System
|
|
|
|
langs = [
|
|
-- ("arabic", "Ara"),
|
|
-- ("bulgarian","Bul"),
|
|
-- ("catalan", "Cat"),
|
|
("danish", "Dan"),
|
|
("english", "Eng"),
|
|
("finnish", "Fin"),
|
|
("french", "Fre"),
|
|
("german", "Ger"),
|
|
-- ("interlingua","Ina"),
|
|
("italian", "Ita"),
|
|
("norwegian","Nor"),
|
|
-- ("russian", "Rus"),
|
|
("spanish", "Spa"),
|
|
("swedish", "Swe")
|
|
]
|
|
|
|
|
|
main = do
|
|
xx <- getArgs
|
|
make xx
|
|
|
|
make xx = case xx of
|
|
_ -> do
|
|
-- mapM_ (gfc . lang) langs
|
|
-- system $ "cp */*.gfo ../alltenses"
|
|
mapM_ (gfc . try) langs
|
|
system $ "cp */*.gfo ../alltenses"
|
|
|
|
gfc file = do
|
|
putStrLn $ "compiling " ++ file
|
|
system $ "gfc -s " ++ file
|
|
|
|
lang (lla,la) = lla ++ "/Lang" ++ la ++ ".gf"
|
|
try (lla,la) = "api/Try" ++ la ++ ".gf"
|