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

fetching DictFin words by Paradigms functions

Browse Source
This commit is contained in:
aarne
2010-12-29 10:16:10 +00:00
parent df73038639
commit 4a2eccf227
9 changed files with 116249 additions and 48574 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/finnish/kotus/Kotus.hs
+2 -2
View File
@@ -113,8 +113,8 @@ mkRules e = do
mkFun fun cat = unwords ["fun",fun,":",cat,";"]
mkLin fun par w = case words par of
f@"compoundNK":p:v:_ -> unwords ["lin",fun,"=",f,v,"("++ p,quoted w ++")",";"]
_ -> unwords ["lin",fun,"=",par,quoted w,";"]
f@"compoundNK":p:v:_ -> unwords ["lin",fun,"=","{s","=",f,v,"("++ p,quoted w ++")}",";"]
_ -> unwords ["lin",fun,"=","{s","=",par,quoted w ++"}",";"]
mkId = concatMap trim where
trim c = case fromEnum c of