From fd48db6b33f269e2ed34d5da81a41488b3cbcc3f Mon Sep 17 00:00:00 2001 From: aarne Date: Mon, 15 Oct 2012 09:59:44 +0000 Subject: [PATCH] added Chi to the synopsis languages that can be compiled, but didn't update synopsis yet. --- lib/doc/Makefile | 1 + lib/doc/MkExxTable.hs | 2 +- lib/doc/MkSynopsis.hs | 5 ++++- 3 files changed, 6 insertions(+), 2 deletions(-) diff --git a/lib/doc/Makefile b/lib/doc/Makefile index 2be9cfdb7..4d2807eac 100644 --- a/lib/doc/Makefile +++ b/lib/doc/Makefile @@ -20,6 +20,7 @@ exx: exx-script gf -retain -s ../alltenses/TryAfr.gfo api-examples-Afr.txt gf -retain -s ../alltenses/TryBul.gfo api-examples-Bul.txt gf -retain -s ../alltenses/TryCat.gfo api-examples-Cat.txt + gf -retain -s ../alltenses/TryChi.gfo api-examples-Chi.txt gf -retain -s ../alltenses/TryDan.gfo api-examples-Dan.txt gf -retain -s ../alltenses/TryDut.gfo api-examples-Dut.txt gf -retain -s ../alltenses/TryEng.gfo api-examples-Eng.txt diff --git a/lib/doc/MkExxTable.hs b/lib/doc/MkExxTable.hs index 3377f6a4a..e1cecd46b 100644 --- a/lib/doc/MkExxTable.hs +++ b/lib/doc/MkExxTable.hs @@ -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":_ -> ["*"] "[]":_ -> ["''"] diff --git a/lib/doc/MkSynopsis.hs b/lib/doc/MkSynopsis.hs index c979a144f..1c9328a1b 100644 --- a/lib/doc/MkSynopsis.hs +++ b/lib/doc/MkSynopsis.hs @@ -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"),