GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-18 01:09:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

make Lang for languages that have complete morphology when running make in lib/src

Browse Source
This commit is contained in:
aarne
2012-09-13 07:20:57 +00:00
parent b89d32469e
commit ba0c2667a1
2 changed files with 27 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/Make.hs
View File

@@ -73,25 +73,25 @@ langsLangAll = langs
langsLang = langs `except` langsIncomplete
-- languagues that have notpresent marked
langsPresent = langsLang `except` ["Jpn","Nep","Pes","Snd","Tha"]
langsPresent = langsLang `except` ["Jpn","Nep","Pes","Snd","Tha","Thb"]
-- languages for which Lang can be compiled but which are incomplete
langsIncomplete = ["Amh","Ara","Lat","Mlt","Tur"]
langsIncomplete = ["Amh","Ara","Lat","Mlt","Tur","Thb"]
-- languages for which to compile Try
langsAPI = langsLang `except` langsIncomplete
-- languages for which to compile Symbolic
langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Hin","Ina","Jpn","Nep","Pnb","Rus", "Snd"])
langsSymbolic = langsLang `except` (langsIncomplete ++ ["Afr","Hin","Ina","Jpn","Nep","Pnb","Rus", "Snd", "Thb"])
-- languages for which to compile minimal Syntax
langsMinimal = langs `only` ["Ara","Eng","Bul","Rus"]
-- languages for which to run treebank test
langsTest = langsLang `except` ["Ara","Bul","Cat","Hin","Lav","Rus","Spa","Tha"]
langsTest = langsLang `except` ["Ara","Bul","Cat","Hin","Lav","Rus","Spa","Tha","Thb"]
-- languages for which to run demo test
langsDemo = langsLang `except` ["Ara","Hin","Ina","Lat","Lav","Tha"]
langsDemo = langsLang `except` ["Ara","Hin","Ina","Lat","Lav","Tha","Thb"]
-- languages for which to compile parsing grammars
langsParse = langs `only` ["Eng"]
@@ -125,7 +125,7 @@ make xx = do
let optl ls = maybe ls id $ getOptLangs xx
ifx "lang" $ do
let lans = optl $ if (pres == 1) then langsPresent else langsLang
let lans = optl $ if (pres == 1) then langsPresent else langsLangAll
mapM_ (gfc pres [] . lang) lans
mapM_ (gfc pres presSymbolPath . symbol) lans ---- (optl langsAPI)
copyl lans "*.gfo" dir