From cc2f9d012cc965e03034c6276e7bb9461066f561 Mon Sep 17 00:00:00 2001
From: hallgren <hallgren@chalmers.se>
Date: Thu, 17 Feb 2011 14:38:46 +0000
Subject: Adding the prototype GF editor for simple multilingual grammars

---
 src/editor/simple/save.hs | 12 ++++++++++++
 1 file changed, 12 insertions(+)
 create mode 100644 src/editor/simple/save.hs

(limited to 'src/editor/simple/save.hs')

diff --git a/src/editor/simple/save.hs b/src/editor/simple/save.hs
new file mode 100644
index 000000000..01d3ce270
--- /dev/null
+++ b/src/editor/simple/save.hs
@@ -0,0 +1,12 @@
+import Monad(zipWithM_)
+import System(getArgs)
+
+main = save =<< getArgs
+
+save [dir] =
+  do fs@[ns,_] <- readIO =<< getContents
+     save_all fs
+     putStrLn $ unwords [n++".gf"|n<-ns]
+  where
+    save_all [ns,cs] = zipWithM_ write1 ns cs
+    write1 n = writeFile (dir++"/"++n++".gf")
-- 
cgit v1.2.3