msyds/gf-core
1
0
Fork 0
forked from GitHub/gf-core
Code Pull Requests Activity

list of Dutch irregular verbs

Browse Source
This commit is contained in:
aarne
2009-11-11 08:08:09 +00:00
parent 504b8e879f
commit 53a5c1ee9d
4 changed files with 653 additions and 415 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
lib/src/dutch/MkIrreg.hs Normal file
View File

@@ -0,0 +1,18 @@
main = interact mkIrreg
mkIrreg = unlines . map (mkOne . words) . lines
mkOne ws = case ws of
('-':_):_ -> []
p:ps:pp:ge:m:eng | elem m ["*"] -> mkV "mkZijnV" p ps pp ge eng
p:ps:pp:ge:m:eng | elem m ["@","!"] -> mkV "mkZijnHebbenV" p ps pp ge eng
p:ps:pp:ge:eng -> mkV "mkV" p ps pp ge eng
_ -> []
mkV par p ps pp ge eng = unlines [
unwords $ ["fun",f,":","V",";","--"] ++ eng,
unwords $ ["lin",f,"=",par] ++ map quote [p,ps,pp,ge] ++ [";"]
]
where f = p ++ "_V"
quote s = "\"" ++ s ++ "\""