From db95cbad6d2b3a5ba8ca90dafbb8e7513637a7e3 Mon Sep 17 00:00:00 2001
From: aarne <aarne@cs.chalmers.se>
Date: Fri, 3 Nov 2006 10:23:06 +0000
Subject: bew BigLexEng (not ready)

---
 examples/big/postedit.hs | 38 ++++++++++++++++++++++++++++++++++++++
 1 file changed, 38 insertions(+)
 create mode 100644 examples/big/postedit.hs

(limited to 'examples/big/postedit.hs')

diff --git a/examples/big/postedit.hs b/examples/big/postedit.hs
new file mode 100644
index 000000000..ce67739db
--- /dev/null
+++ b/examples/big/postedit.hs
@@ -0,0 +1,38 @@
+import Char
+import System
+
+infile = "BigLexEng.gf"
+tmp = "tm"
+
+main = do
+  writeFile tmp ""
+  s <- readFile infile
+  mapM_ (appendFile tmp . mkOne) $ lines s --- $ chop s
+  system "mv tm BigLexEng.gf"
+
+chop s = case s of
+  ';':cs -> ";\n"++chop cs
+  c:cs -> c:chop cs
+  _ -> s
+
+mkOne s = case words s of
+  lin:a2:eq:pa2:ws | take 6 pa2 == "prepA2" -> 
+    unwords $ [lin,a2,eq,"prepA2"] ++ ws ++ ["\n"]
+  lin:a2:eq:pa2:ws | take 6 pa2 == "prepV2" -> 
+    unwords $ [lin,a2,eq,"prepV2"] ++ ws ++ ["\n"]
+  lin:v2:eq:"mkV2":v:_:ws ->
+    unwords $ [lin,v2,eq,"mkV2",(read v ++ "_V")] ++ ws ++ ["\n"]
+  lin:v2:eq:"mkV3":v:_:ws ->
+    unwords $ [lin,v2,eq,"dirV3",(read v ++ "_V")] ++ ws ++ ["\n"]
+  lin:a2:eq:pa2:ws | take 4 pa2 == "mkV2" -> 
+    unwords $ [lin,a2,eq,"mkV2"] ++ ws ++ ["\n"]
+  lin:a2:eq:pa2:ws | take 6 pa2 == "prepN2" -> 
+    unwords $ [lin,a2,eq,"prepN2"] ++ ws ++ ["\n"]
+  lin:a2:eq:pa2:ws | take 4 pa2 == "mkV3" -> 
+    unwords $ [lin,a2,eq,"mkV3"] ++ ws ++ ["\n"]
+
+  lin:v2:eq:"irreg":v:_:ws ->
+    unwords $ [lin,v2,eq,"dirV2",(read v ++ "_V")] ++ ws ++ ["\n"]
+
+
+  _ -> s ++ "\n"
-- 
cgit v1.2.3