resource = resource-1.0

lib/resource-0.9/french/MkVerbs.hs

@@ -0,0 +1,46 @@
+main :: IO ()
+main = do
+  
+  s <- readFile "verbs"
+  mapM_ putRule $ combine $ map words $ lines s -- to create fun/lin
+--  mapM_ putConjug [1..100] -- to create oper
+
+putRule = appendFile "verbs.gf" . mkRule
+
+mkRule s = case s of
+  n:v:cs -> 
+    "fun " ++ fv ++ cat ++ " : " ++ cat ++ " ;\n" ++ 
+    "lin " ++ fv ++ cat ++ 
+      " = v_nancy" ++ n ++ " \"" ++ v ++ "\"" ++ ext ++ " ;\n"
+      where
+   (cat,ext) = case cs of
+     _ | elem "T" cs  -> ("VN2", " ** {aux = AHabere ; c = Acc}")
+     "a":au     -> ("VN2", " ** {aux = " ++ aux au ++ " ; c = Dat}")
+     "de":au    -> ("VN2", " ** {aux = " ++ aux au ++ " ; c = Gen}")
+     "P":_      -> ("VNR", "")
+     au         -> ("VN",  " ** {aux = " ++ aux au ++ "}")
+
+   fv = map unhyph v
+
+   unhyph c = case c of
+     '-' -> '_'
+     _   -> c
+
+   aux au = case au of
+     "etre":_ -> "AEsse"
+     _        -> "AHabere"
+
+combine ls = case ls of
+  l@(n:v:_:c:_):vs -> 
+    let (vv,rest) = span ((==v) . (!!1)) vs in
+      ([n,v,c] ++ map (!!3) vs) : combine rest
+  _ -> ls
+ 
+
+---
+
+putConjug = appendFile "nancy_conjugs.gf" . mkConjug
+
+mkConjug :: Integer -> String
+mkConjug i = "oper v_nancy" ++ show i ++ 
+             " : Str -> V = \\s -> conj v ++ {lock_V = <>} ;\n"