msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

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

Browse Source
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
Download Patch File Download Diff File Expand all files Collapse all files
src/icelandic/MorphoIce.gf
+16 -1
View File
@@ -905,7 +905,7 @@ resource MorphoIce = ResIce ** open Prelude, (Predef=Predef), ResIce in {
pastSub = mforms ! Subjunctive ! DPast
in {
s = table {
VInf => inf ;
VInf v => mkVoice v inf ;
VPres v Indicative Sg p => persList (mkVoice v (presInd ! 0)) (mkVoice v (presInd ! 1)) (mkVoice v (presInd ! 2)) ! p;
VPres v Indicative Pl p => persList (mkVoice v (presInd ! 3)) (mkVoice v (presInd ! 4)) (mkVoice v (presInd ! 5)) ! p;
VPast v Indicative Sg p => persList (mkVoice v (pastInd ! 0)) (mkVoice v (pastInd ! 1)) (mkVoice v (pastInd ! 2)) ! p;
@@ -933,6 +933,21 @@ resource MorphoIce = ResIce ** open Prelude, (Predef=Predef), ResIce in {
sup =\\v => mkVoice v sup
} ;
-- AR 2019-08-02: deponent verbs use the Middle voice everywhere, instead of Active
--- some forms may be inadequate, but they are in the table anyway
deponentVerb : Verb -> Verb = \verb ->
verb ** {
s = table {
VInf _ => verb.s ! VInf Middle ;
VPres _ m n p => verb.s ! VPres Middle m n p ;
VPast _ m n p => verb.s ! VPast Middle m n p ;
VImp _ n => verb.s ! VImp Middle n ;
vf => verb.s ! vf
} ;
sup = \\v => verb.sup ! Middle ;
} ;
----------------------
-- Noun Auxiliaries --