msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

version-related changes in Makefile and help

Browse Source
This commit is contained in:
aarne
2008-06-27 09:09:29 +00:00
parent afc96381d6
commit aa9ae202ed
1 changed files with 12 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

20
resource/Make.hs
View File

@@ -39,19 +39,19 @@ langsCoding = [
langs = map fst langsCoding langs = map fst langsCoding
-- languagues for which to compile Lang -- languagues for which to compile Lang
langsLang = langs `except` ["Ara"] langsLang = langs
-- languages for which to compile Try -- languages for which to compile Try
langsAPI = langsLang `except` ["Bul","Cat","Hin","Ina","Rus","Tha"] langsAPI = langsLang `except` ["Ara","Bul","Cat","Hin","Ina","Rus","Tha"]
-- languages for which to compile Mathematical -- languages for which to compile Mathematical
langsMath = langsAPI langsMath = langsAPI
-- languages for which to run treebank test -- languages for which to run treebank test
langsTest = langsLang `except` ["Bul","Cat","Hin","Rus","Spa","Tha"] langsTest = langsLang `except` ["Ara","Bul","Cat","Hin","Rus","Spa","Tha"]
-- languages for which to run demo test -- languages for which to run demo test
langsDemo = langsLang `except` ["Hin","Ina","Tha"] langsDemo = langsLang `except` ["Ara","Hin","Ina","Tha"]
-- languages for which langs.pgf is built -- languages for which langs.pgf is built
langsPGF = langsTest `only` ["Eng","Fre","Swe"] langsPGF = langsTest `only` ["Eng","Fre","Swe"]
@@ -78,7 +78,7 @@ make xx = do
mapM_ (gfc pres presApiPath . try) (optl langsAPI) mapM_ (gfc pres presApiPath . try) (optl langsAPI)
system $ "cp */*.gfo " ++ dir system $ "cp */*.gfo " ++ dir
ifx "math" $ do ifx "math" $ do
mapM_ (gfc False [] . math) (optl langsMath) mapM_ (gfc_stack mathstack False [] . math) (optl langsMath)
system $ "cp mathematical/*.gfo ../mathematical" system $ "cp mathematical/*.gfo ../mathematical"
mapM_ (gfc False [] . symbolic) (optl langsMath) mapM_ (gfc False [] . symbolic) (optl langsMath)
system $ "cp mathematical/Symbolic*.gfo ../mathematical" system $ "cp mathematical/Symbolic*.gfo ../mathematical"
@@ -93,7 +93,7 @@ make xx = do
let ls = optl langsDemo let ls = optl langsDemo
gf (demos "Demo" ls) $ unwords ["demo/Demo" ++ la ++ ".gf" | (_,la) <- ls] gf (demos "Demo" ls) $ unwords ["demo/Demo" ++ la ++ ".gf" | (_,la) <- ls]
ifxx "clean" $ do ifxx "clean" $ do
system "rm */*.gfo ../alltenses/*.gfo ../present/*.gfo" system "rm -f */*.gfo ../alltenses/*.gfo ../present/*.gfo"
ifxx "clone" $ do ifxx "clone" $ do
let (pref,lang) = case getLangName xx of let (pref,lang) = case getLangName xx of
Just pl -> pl Just pl -> pl
@@ -102,11 +102,15 @@ make xx = do
mapM_ (\la -> writeFile (pref ++ la ++ ".gf") (replaceLang lang la s)) (map snd (optl langs)) mapM_ (\la -> writeFile (pref ++ la ++ ".gf") (replaceLang lang la s)) (map snd (optl langs))
return () return ()
gfc pres ppath file = do gfc_stack stack pres ppath file = do
let preproc = if pres then " -preproc=./mkPresent " else "" let preproc = if pres then " -preproc=./mkPresent " else ""
let path = if pres then ppath else "" let path = if pres then ppath else ""
putStrLn $ "compiling " ++ file putStrLn $ "compiling " ++ file
system $ "gfc -s -src " ++ preproc ++ path ++ file system $ "gfc -s -src " ++ preproc ++ path ++ file ++ stack
gfc = gfc_stack ""
mathstack = " +RTS -K100M"
gf comm file = do gf comm file = do
putStrLn $ "reading " ++ file putStrLn $ "reading " ++ file