renamed lib/src/mini/MiniGrammar to lib/src/demo/ResourceDemo ; added Jap

This commit is contained in:
aarne
2012-05-10 11:54:30 +00:00
parent 36b1e82edb
commit e4c310ec2e
29 changed files with 19 additions and 19 deletions

23
lib/src/demo/MkMini.hs Normal file
View File

@@ -0,0 +1,23 @@
src = "Eng"
langs = [
"Afr","Bul","Cat","Dan","Dut",
"Fin","Fre","Ger","Hin","Ita",
"Jap","Lav","Nep","Nor","Pes",
"Pol","Pnb","Ron","Rus","Snd",
"Spa","Swe","Tha","Urd"
]
file lng = "ResourceDemo" ++ lng ++ ".gf"
main = do
s <- readFile (file src)
mapM_ (mkMiniFile s) langs
mkMiniFile s lng =
writeFile (file lng) (mkMini lng s)
mkMini lng s = case s of
'E':'n':'g':cs -> lng ++ mkMini lng cs
c:cs -> c : mkMini lng cs
_ -> s