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

dictionary experiment with Finnish verbs

Browse Source
This commit is contained in:
aarne
2008-01-06 21:05:56 +00:00
parent 330350325f
commit fc65b10e0f
6 changed files with 149 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
examples/uusisuomi/MkLex.hs
View File

@@ -57,7 +57,7 @@ mkLex "V" _ line = case words line of
num:sana:_:_:_:_:_:_:sanan:_ -> do
let nimi = "n" ++ init num ++ "_" ++ sana
putStrLn $ "lin " ++ nimi ++
"_V = mk2V <\"" ++ sana ++ "\", \"" ++ sanan ++ "\"> ;"
"_V = mkV \"" ++ sana ++ "\" \"" ++ sanan ++ "\" ;"
_ -> return ()
mkLex "N" 2 line = case words line of