From 68226a235461c6659143059b1113fe017239e452 Mon Sep 17 00:00:00 2001
From: "john.j.camilleri" <john.j.camilleri@chalmers.se>
Date: Wed, 24 Jul 2013 11:25:17 +0000
Subject: [PATCH] Script for creating LibraryBrowser???.gf for a new language

---
 lib/src/api/libraryBrowser/MkLang.hs | 16 ++++++++++++++++
 1 file changed, 16 insertions(+)
 create mode 100644 lib/src/api/libraryBrowser/MkLang.hs

diff --git a/lib/src/api/libraryBrowser/MkLang.hs b/lib/src/api/libraryBrowser/MkLang.hs
new file mode 100644
index 000000000..94b5fde49
--- /dev/null
+++ b/lib/src/api/libraryBrowser/MkLang.hs
@@ -0,0 +1,16 @@
+
+import System.Environment (getArgs)
+import Data.List.Utils (replace)
+
+name = "LibraryBrowserEng.gf"
+
+main = do
+  a <- getArgs
+  case a of
+    lang:_ -> do
+      contents <- readFile name
+      let name'     = replace "Eng" lang name
+      let contents' = replace "Eng" lang contents
+      writeFile name' contents'
+      putStrLn $ "Wrote " ++ name'
+    _ -> print "You need to provide a language code"