using partitive plural in Finnish mkN
This commit is contained in:
1 parent
8873196f84
commit
badafa58fa
4 files changed
+230
-31
No files matched your search
@@ -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 ++ "\" ;"
|
||||
|
||||
Reference in new issue
Block a user