mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-13 00:50:11 -06:00
24 lines
517 B
Haskell
24 lines
517 B
Haskell
src = "Eng"
|
|
langs = [
|
|
"Afr","Ara","Bul","Cat","Chi","Dan","Dut",
|
|
"Est","Eus","Fin","Fre","Ger","Gre","Hin",
|
|
"Ice","Ita","Jpn","Lav","Mlt","Mon",
|
|
"Nep","Nor","Nno","Pes","Pol","Por","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
|
|
|