added present participles to Scandinavian verbs

This commit is contained in:
aarne
2013-11-03 16:48:51 +00:00
parent 01a98d9a39
commit d0a89f3845
8 changed files with 38 additions and 16 deletions

View File

@@ -80,6 +80,11 @@ oper
VI (VSupin v) => mkVoice v spist ; --# notpresent
VI (VPtPret (Strong (GSg _)) c) => mkCase c spist ;
VI (VPtPret _ c) => mkCase c (spist + "e") ;
VI (VPtPres c) => case last spise of {
"e" => mkCase c (spise + "nde") ;
"i" => mkCase c (spise + "vende") ; --- gi, bli
_ => mkCase c (spise + "ende")
} ;
VF (VImper v) => mkVoice v spis
}
} ;