mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-08 02:32:50 -06:00
renamed lib/src/mini/MiniGrammar to lib/src/demo/ResourceDemo ; added Jap
This commit is contained in:
23
lib/src/demo/MkMini.hs
Normal file
23
lib/src/demo/MkMini.hs
Normal 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
|
||||
|
||||
Reference in New Issue
Block a user