tried to change Jap to Jpn everywhere

This commit is contained in:
aarne
2012-06-11 20:08:14 +00:00
parent 2c371f5f33
commit 2951361732
18 changed files with 57 additions and 53 deletions

View File

@@ -28,7 +28,7 @@ exx: exx-script
gf -retain -s ../alltenses/TryGer.gfo <api-examples.gfs >api-examples-Ger.txt
gf -retain -s ../alltenses/TryHin.gfo <api-examples.gfs >api-examples-Hin.txt
gf -retain -s ../alltenses/TryIta.gfo <api-examples.gfs >api-examples-Ita.txt
gf -retain -s ../alltenses/TryJap.gfo <api-examples.gfs >api-examples-Jap.txt
gf -retain -s ../alltenses/TryJpn.gfo <api-examples.gfs >api-examples-Jpn.txt
gf -retain -s ../alltenses/TryLav.gfo <api-examples.gfs >api-examples-Lav.txt
gf -retain -s ../alltenses/TryNep.gfo <api-examples.gfs >api-examples-Nep.txt
gf -retain -s ../alltenses/TryNor.gfo <api-examples.gfs >api-examples-Nor.txt

View File

@@ -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 ["Jap","Tha"] then concat else unwords -- remove spaces
unws = if elem l ["Jpn","Tha"] then concat else unwords -- remove spaces
mkE e = case e of
"atomic":"term":_ -> ["*"]
"[]":_ -> ["''"]

View File

@@ -17,7 +17,7 @@ revealedLang = "Eng"
-- all languages shown
apiExxFiles = ["api-examples-" ++ lang ++ ".txt" | lang <- words
"Afr Bul Cat Dan Dut Eng Fin Fre Ger Hin Ita Jap Lav Nep Nor Pes Pnb Pol Ron Rus Snd Spa Swe Tha Urd"]
"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"]
main = do
xx <- getArgs
@@ -248,7 +248,7 @@ paradigmFiles = [
("Hindi", srcPath "/hindi/ParadigmsHin.gf"),
-- ("Interlingua", srcPath "/interlingua/ParadigmsIna.gf"),
("Italian", srcPath "/italian/ParadigmsIta.gf"),
("Japanese", srcPath "/japanese/ParadigmsJap.gf"),
("Japanese", srcPath "/japanese/ParadigmsJpn.gf"),
("Latvian", srcPath "/latvian/ParadigmsLav.gf"),
("Nepali", srcPath "/nepali/ParadigmsNep.gf"),
("Norwegian", srcPath "/norwegian/ParadigmsNor.gf"),