changed names of resource-1.3; added a note on homepage on release

lib/resource-1.3/german/MkV.hs

@@ -0,0 +1,41 @@
+import Data.List
+
+-- To massage the verb list in
+-- http://www.iee.et.tu-dresden.de/~wernerr/grammar/verben_dt.html
+-- Some manual clean-up needed.
+
+mk file = do
+  s <- readFile file
+  mapM_ putStrLn $ map mkV $ lines s
+
+
+mkV l = case words l of
+  tun:tut:tat:tate:getan:_ -> fun tun ++ "\n" ++ lin tun tut tat tate getan
+  tun:tut:tat:getan:_ -> fun tun ++ "\n" ++ lin tun tut tat (tat++"e") getan
+  _ -> ""
+
+fun tun = "  fun " ++ tun ++ "_V : V ;"
+
+lin tun tut tat tate getan = 
+  "  lin " ++ tun ++ "_V =  irregV " ++ 
+  quote [tun,sg3 tun tut,tat,tate,getan] ++ " ;"
+
+quote = unwords . map qu where
+  qu s = case s of 
+    '(':w -> vars (init w)
+    _ -> vars s
+
+sg3 tun tut = case tut of
+  "*" -> case reverse tun of
+    'n':'e':'t':_ -> init tun ++ "t"
+    'n':'e':_     -> init (init tun) ++ "t"
+    _ -> init tun ++ "t"
+  _ -> words tut' !! 2
+ where
+   tut' = map (\c -> if c==',' then ' ' else c) tut
+
+vars w = case words (map (\c -> if c=='/' then ' ' else c) w) of
+  [s] -> quo s
+  ws  -> "(variants {" ++ unwords (intersperse ";" (map quo ws)) ++ "})"
+
+quo s = "\"" ++ s ++ "\""