Icelandic: added VInf Middle, which was a missing form, as well as a constructor depV for deponent verbs, also matched by -st ending in one-place mkV

This commit is contained in:
Aarne Ranta
2019-08-02 11:35:32 +02:00
parent a1d1966d70
commit 5762461bea
3 changed files with 32 additions and 9 deletions
+7 -1
View File
@@ -403,7 +403,11 @@ resource ParadigmsIce = open
mkV = overload {
-- Given the infinitive
mkV : Str -> V = \telja -> mk1V telja;
mkV : Str -> V
= \telja -> case telja of {
otta + "st" => depV (mk1V otta) ;
_ => mk1V telja
} ;
-- Given also the first person singular present tense indicative mood
mkV : (_,_ : Str) -> V = \telja,tel -> mk2V telja tel ;
@@ -434,6 +438,8 @@ resource ParadigmsIce = open
weakSgMascNom weakSgMascAccDatGen weakSgFemNom weakSgFemAccDatGen weakSgNeut weakPl flogið) ;
};
depV : V -> V = \verb -> lin V (deponentVerb verb) ;
mk1V : Str -> V = \inf ->
lin V (vForms2Verb inf (indsub1 inf) (impSg inf) (impPl inf) (presPart inf) (sup inf) (weakPP inf) (strongPP inf)) ;