GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-05-01 15:22:50 -06:00
Code Issues Packages Projects Releases Wiki Activity

prepositional verbs bootstrapped for DictionaryFin

Browse Source
This commit is contained in:
aarne
2014-12-07 17:26:16 +00:00
parent 34e3431c32
commit 98558d85e7
3 changed files with 1452 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
lib/src/translator/PrepVerb.hs
View File

@@ -31,7 +31,7 @@ advV s = "advV " ++ s
v2V v = "(lin V " ++ v ++ "_V2) "
getPrepsAdvs lang = do
mkPrepVerbDict lang = do
rs <- readFile ("Dictionary" ++ lang ++ ".gf") >>= return . lines
let dict = M.fromList [(f,unwords r) | "lin":f:"=":r <- map words rs]
let look x = maybe ("","variants {} ;") (\r -> ("--DD ",r)) (M.lookup x dict)