From c4918567762359c9ca2e4a4e1ffa2fbb267953b5 Mon Sep 17 00:00:00 2001
From: aarne <aarne@chalmers.se>
Date: Tue, 24 Jan 2017 10:51:35 +0000
Subject: [PATCH] baseline generation of DictLatEng from William Whitaker's
 Words - must be revisited

---
 lib/src/latin/dict/BigLatEng.gf |  1 +
 lib/src/latin/dict/MkLatin.hs   | 23 ++++++++++++++++++++++-
 2 files changed, 23 insertions(+), 1 deletion(-)
 create mode 100644 lib/src/latin/dict/BigLatEng.gf

diff --git a/lib/src/latin/dict/BigLatEng.gf b/lib/src/latin/dict/BigLatEng.gf
new file mode 100644
index 000000000..8226ceea7
--- /dev/null
+++ b/lib/src/latin/dict/BigLatEng.gf
@@ -0,0 +1 @@
+concrete BigLatEng of BigLatAbs = GrammarEng, DictLatEng ;
\ No newline at end of file
diff --git a/lib/src/latin/dict/MkLatin.hs b/lib/src/latin/dict/MkLatin.hs
index 480c54772..06ca73e87 100644
--- a/lib/src/latin/dict/MkLatin.hs
+++ b/lib/src/latin/dict/MkLatin.hs
@@ -1,4 +1,5 @@
 import Data.Char
+import Data.List
 
 main = mkLatin
 
@@ -18,6 +19,13 @@ mkLatin = do
   appendFile "DictLat.gf" (unlines ls)
   appendFile "DictLat.gf" "}"
 
+  let es = [unwords [status st ++ "lin",f,"=",mkEng cat eng,";"] | [st, f,cat,_,eng] <- fcs]
+  writeFile  "DictLatEng.gf" "concrete DictLatEng of DictLatAbs = CatEng ** open ParadigmsEng in {"
+  appendFile "DictLatEng.gf" "\n-- extracted from http://archives.nd.edu/whitaker/dictpage.htm\n"
+  appendFile "DictLatEng.gf" (unlines es)
+  appendFile "DictLatEng.gf" "}"
+
+
 ---  putStrLn $ unlines ls
 
 mkDict :: [String] -> [[String]] -- fun, cat, lat, eng
@@ -34,7 +42,7 @@ mkDict = map mkOne . zip [10001 ..] . map cleanUp
      x:"ADV":_     -> ok [x, "Adv", lin "mkAdv" [show x]]
      x:y:z:u:"V":_:"INTRANS":_ -> okv   [y, "V",                     lin "mkV" [show y,show x,show z,show u]]
      x:y:z:u:"V":_:"TRANS":_   -> okv   [y, "V2", lin "mkV2" ["(" ++ lin "mkV" [show y,show x,show z,show u] ++ ")"]]
-     x:y:z:u:"V":_:"DEP":_     -> todo [y, "V",  lin "depV" ["(" ++ lin "mkV" [show y,show x,show z,show u] ++ ")"]]
+     x:y:z:u:"V":_:"DEP":_     -> todo  [y, "V",  lin "depV" ["(" ++ lin "mkV" [show y,show x,show z,show u] ++ ")"]]
      x:y:z:u:"V":_             -> okv   [y, "V",                     lin "mkV" [show y,show x,show z,show u]]
 
      _ -> todo ["TODO","",unwords lws]
@@ -58,3 +66,16 @@ status st = case st of
   "0" -> ""
   _ -> "-- "
 
+
+-- build an English version: TODO better analysis of the notation
+mkEng cat eng = unwords $ intersperse "|" $ map mkOne engs
+  where 
+    mkOne s = unwords ["mk" ++ cat, show s]
+    engs = [clean (takeWhile (flip notElem "\r,;") (drop 11 eng))] ---- TODO
+    clean s = case s of
+      '\\':r:cs -> clean cs
+      c:cs -> c:clean cs
+      _ -> s
+
+--  [DXXFS] :: counting-board; side-board; slab table; panel; square stone on top of column;
+--  [EEQEE] :: Father; (Aramaic); bishop of Syriac/Coptic church; (false read obba/decanter);