using partitive plural in Finnish mkN

This commit is contained in:
aarne
2008-02-18 07:15:50 +00:00
parent 8873196f84
commit badafa58fa
4 changed files with 230 additions and 31 deletions

View File

@@ -77,7 +77,8 @@ mkLex "V" _ line = case words line of
_ -> return ()
mkLex "N" 2 line = case words line of
num:sana:sanan:_ -> do
-- num:sana:sanan:_ -> do
num:sana:_:_:_:_:_:sanan:_ -> do
let nimi = "n" ++ init num ++ "_" ++ sana
putStrLn $ "lin " ++ nimi ++
"_N = mkN \"" ++ sana ++ "\" \"" ++ sanan ++ "\" ;"