1
0
forked from GitHub/gf-rgl

new languages in resource Make; moved GF-specific stuff from Quiz

This commit is contained in:
aarne
2008-06-16 11:15:38 +00:00
parent f889a08b5b
commit 72f04aa88c

View File

@@ -15,23 +15,25 @@ langs = [
("english", "Eng"), ("english", "Eng"),
("finnish", "Fin"), ("finnish", "Fin"),
("french", "Fre"), ("french", "Fre"),
("hindi", "Hin"),
("german", "Ger"), ("german", "Ger"),
("interlingua","Ina"), ("interlingua","Ina"),
("italian", "Ita"), ("italian", "Ita"),
("norwegian","Nor"), ("norwegian","Nor"),
("russian", "Rus"), ("russian", "Rus"),
("spanish", "Spa"), ("spanish", "Spa"),
("swedish", "Swe") ("swedish", "Swe"),
("thai", "Tha")
] ]
-- languagues for which to compile Lang -- languagues for which to compile Lang
langsLang = langs `except` ["Ara","Ina","Rus"] langsLang = langs `except` ["Ara","Rus"]
-- languages for which to compile Try -- languages for which to compile Try
langsAPI = langsLang `except` ["Bul","Cat"] langsAPI = langsLang `except` ["Cat","Hin","Tha"]
-- languages for which to run treebank test -- languages for which to run treebank test
langsTest = langsLang `except` ["Bul","Cat","Spa"] langsTest = langsLang `except` ["Cat","Hin","Spa","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"]
@@ -64,8 +66,9 @@ make xx = do
system "rm */*.gfo ../alltenses/*.gfo ../present/*.gfo" system "rm */*.gfo ../alltenses/*.gfo ../present/*.gfo"
return () return ()
gfc pres path file = do gfc 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 ""
putStrLn $ "compiling " ++ file putStrLn $ "compiling " ++ file
system $ "gfc -s -src " ++ preproc ++ path ++ file system $ "gfc -s -src " ++ preproc ++ path ++ file