GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-21 09:02:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

lib/src/api/libraryBrowser/MkLang.hs - allow multiple arguments

Browse Source
This commit is contained in:
john.j.camilleri
2013-07-26 07:41:20 +00:00
parent eb2b5a65d6
commit d0f7df60d3
1 changed files with 12 additions and 10 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
lib/src/api/libraryBrowser/MkLang.hs
View File

@@ -1,16 +1,18 @@
import System.Environment (getArgs) import System.Environment (getArgs)
import Data.List.Utils (replace) import Data.List.Utils (replace)
name = "LibraryBrowserEng.gf"
main = do main = do
a <- getArgs a <- getArgs
case a of case a of
lang:_ -> do [] -> print "You need to provide a language code"
langs -> mapM_ makeOne langs
name = "LibraryBrowserEng.gf"
makeOne "Eng" = putStrLn "Skipping Eng"
makeOne lang = do
contents <- readFile name contents <- readFile name
let name' = replace "Eng" lang name let name' = replace "Eng" lang name
let contents' = replace "Eng" lang contents let contents' = replace "Eng" lang contents
writeFile name' contents' writeFile name' contents'
putStrLn $ "Wrote " ++ name' putStrLn $ "Wrote " ++ name'
_ -> print "You need to provide a language code"