diff options
| author | hallgren <hallgren@chalmers.se> | 2011-02-17 14:38:46 +0000 |
|---|---|---|
| committer | hallgren <hallgren@chalmers.se> | 2011-02-17 14:38:46 +0000 |
| commit | cc2f9d012cc965e03034c6276e7bb9461066f561 (patch) | |
| tree | bdf2cc8b9529cedaaf478587bdeb5ea9ec4da159 /src/editor/simple/save.hs | |
| parent | c6825f38dfee0ea966f65901876e3704f4f7253c (diff) | |
Adding the prototype GF editor for simple multilingual grammars
Diffstat (limited to 'src/editor/simple/save.hs')
| -rw-r--r-- | src/editor/simple/save.hs | 12 |
1 files changed, 12 insertions, 0 deletions
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") |