GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-11 22:09:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

MissApp.hs: a function for preparing a list of lin rules for missing words

Browse Source
This commit is contained in:
aarne
2014-12-06 08:39:25 +00:00
parent 52d3839271
commit 82a7e22d2e
1 changed files with 4 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
examples/app/MissApp.hs
View File

@@ -48,3 +48,7 @@ parts f = words (map (\c -> if c =='_' then ' ' else c) f)
catOf :: Fun -> String
catOf = last . parts
prepareMissing :: MissMap -> Lang -> String -> IO ()
prepareMissing mm lang cat = putStrLn $ unlines
[ "lin " ++ p ++ " = mk" ++ cat ++ " \"\" ;"| (l,ps) <- allMissingSuchFuns mm (\f -> catOf f == cat), l == lang, p <- ps]