added Chi to the synopsis languages that can be compiled, but didn't update synopsis yet.

lib/doc/Makefile

@@ -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

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":_ -> ["*"]
     "[]":_ -> ["''"]

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"),