mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-04-09 04:59:31 -06:00
added Chi to the synopsis languages that can be compiled, but didn't update synopsis yet.
This commit is contained in:
@@ -20,6 +20,7 @@ exx: exx-script
|
||||
gf -retain -s ../alltenses/TryAfr.gfo <api-examples.gfs >api-examples-Afr.txt
|
||||
gf -retain -s ../alltenses/TryBul.gfo <api-examples.gfs >api-examples-Bul.txt
|
||||
gf -retain -s ../alltenses/TryCat.gfo <api-examples.gfs >api-examples-Cat.txt
|
||||
gf -retain -s ../alltenses/TryChi.gfo <api-examples.gfs >api-examples-Chi.txt
|
||||
gf -retain -s ../alltenses/TryDan.gfo <api-examples.gfs >api-examples-Dan.txt
|
||||
gf -retain -s ../alltenses/TryDut.gfo <api-examples.gfs >api-examples-Dut.txt
|
||||
gf -retain -s ../alltenses/TryEng.gfo <api-examples.gfs >api-examples-Eng.txt
|
||||
|
||||
@@ -71,7 +71,7 @@ prApiEx apexx = case M.toList apexx of
|
||||
[l ++ ": //" ++ mkEx l e ++ "//" | (l,e) <- lexx]
|
||||
|
||||
mkEx l = unws . bind . mkE . words where
|
||||
unws = if elem l ["Jpn","Tha"] then concat else unwords -- remove spaces
|
||||
unws = if elem l ["Chi","Jpn","Tha"] then concat else unwords -- remove spaces
|
||||
mkE e = case e of
|
||||
"atomic":"term":_ -> ["*"]
|
||||
"[]":_ -> ["''"]
|
||||
|
||||
@@ -17,7 +17,9 @@ revealedLang = "Eng"
|
||||
|
||||
-- all languages shown
|
||||
apiExxFiles = ["api-examples-" ++ lang ++ ".txt" | lang <- words
|
||||
"Afr Bul Cat Dan Dut Eng Fin Fre Ger Hin Ita Jpn Lav Nep Nor Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd"]
|
||||
"Eng Chi"
|
||||
-- "Afr Bul Cat Chi Dan Dut Eng Fin Fre Ger Hin Ita Jpn Lav Nep Nor Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd"
|
||||
]
|
||||
|
||||
main = do
|
||||
xx <- getArgs
|
||||
@@ -239,6 +241,7 @@ paradigmFiles = [
|
||||
("Afrikaans", srcPath "/afrikaans/ParadigmsAfr.gf"),
|
||||
("Bulgarian", srcPath "/bulgarian/ParadigmsBul.gf"),
|
||||
("Catalan", srcPath "/catalan/ParadigmsCat.gf"),
|
||||
("Chinese", srcPath "/chinese/ParadigmsChi.gf"),
|
||||
("Danish", srcPath "/danish/ParadigmsDan.gf"),
|
||||
("Dutch", srcPath "/dutch/ParadigmsDut.gf"),
|
||||
("English", srcPath "/english/ParadigmsEng.gf"),
|
||||
|
||||
Reference in New Issue
Block a user