1
0
forked from GitHub/gf-rgl

cosmetic change

This commit is contained in:
krangelov
2019-04-26 13:19:43 +02:00
parent 448f0a20e4
commit 4e64e46d1c

View File

@@ -21,7 +21,7 @@ let absol_ = Predef.tk 3 absoldre in
VP (Pres Ind Pl P2) => absol_ + "eu" ;
VP (Pres Ind Sg P2) => absol_ + "s" ;
VP (Pres Ind Pl P3) => absol_ + "en" ;
VP (Pres Ind Sg P3) => absol_ + "" ;
VP (Pres Ind Sg P3) => absol_ ;
VP (Pres Sub Pl P1) => absol_ + "guem" ;
VP (Pres Sub Sg P1) => absol_ + "gui" ;
VP (Pres Sub Pl P2) => absol_ + "gueu" ;
@@ -64,7 +64,7 @@ let absol_ = Predef.tk 3 absoldre in
VP (Cond Sg P3) => absol_ + "dria" ;--# notpresent
VP (Imp Pl P1) => absol_ + "guem" ;
VP (Imp Pl P2) => absol_ + "eu" ;
VP (Imp Sg P2) => absol_ + "" ;
VP (Imp Sg P2) => absol_ ;
VP (Imp Pl P3) => absol_ + "guin" ;
VP (Imp Sg P3) => absol_ + "gui" ;
VP (Pass Pl Fem) => absol_ + "tes" ;
@@ -149,7 +149,7 @@ let ajup_ = Predef.tk 2 ajupir in
VP (Pres Ind Pl P2) => ajup_ + "iu" ;
VP (Pres Ind Sg P2) => ajup_ + "s" ;
VP (Pres Ind Pl P3) => ajup_ + "en" ;
VP (Pres Ind Sg P3) => ajup_ + "" ;
VP (Pres Ind Sg P3) => ajup_ ;
VP (Pres Sub Pl P1) => ajup_ + "im" ;
VP (Pres Sub Sg P1) => ajup_ + "i" ;
VP (Pres Sub Pl P2) => ajup_ + "iu" ;
@@ -192,7 +192,7 @@ let ajup_ = Predef.tk 2 ajupir in
VP (Cond Sg P3) => ajup_ + "iria" ;--# notpresent
VP (Imp Pl P1) => ajup_ + "im" ;
VP (Imp Pl P2) => ajup_ + "iu" ;
VP (Imp Sg P2) => ajup_ + "" ;
VP (Imp Sg P2) => ajup_ ;
VP (Imp Pl P3) => ajup_ + "in" ;
VP (Imp Sg P3) => ajup_ + "i" ;
VP (Pass Pl Fem) => ajup_ + "ides" ;
@@ -533,7 +533,7 @@ let bat_ = Predef.tk 2 batre in
VP (Pres Ind Pl P2) => bat_ + "eu" ;
VP (Pres Ind Sg P2) => bat_ + "s" ;
VP (Pres Ind Pl P3) => bat_ + "en" ;
VP (Pres Ind Sg P3) => bat_ + "" ;
VP (Pres Ind Sg P3) => bat_ ;
VP (Pres Sub Pl P1) => bat_ + "em" ;
VP (Pres Sub Sg P1) => bat_ + "i" ;
VP (Pres Sub Pl P2) => bat_ + "eu" ;
@@ -576,7 +576,7 @@ let bat_ = Predef.tk 2 batre in
VP (Cond Sg P3) => bat_ + "ria" ;--# notpresent
VP (Imp Pl P1) => bat_ + "em" ;
VP (Imp Pl P2) => bat_ + "eu" ;
VP (Imp Sg P2) => bat_ + "" ;
VP (Imp Sg P2) => bat_ ;
VP (Imp Pl P3) => bat_ + "in" ;
VP (Imp Sg P3) => bat_ + "i" ;
VP (Pass Pl Fem) => bat_ + "udes" ;
@@ -2202,7 +2202,7 @@ let dol_ = Predef.tk 3 doldre in
VP (Pres Ind Pl P2) => dol_ + "eu" ;
VP (Pres Ind Sg P2) => dol_ + "s" ;
VP (Pres Ind Pl P3) => dol_ + "en" ;
VP (Pres Ind Sg P3) => dol_ + "" ;
VP (Pres Ind Sg P3) => dol_ ;
VP (Pres Sub Pl P1) => dol_ + "guem" ;
VP (Pres Sub Sg P1) => dol_ + "gui" ;
VP (Pres Sub Pl P2) => dol_ + "gueu" ;
@@ -2245,7 +2245,7 @@ let dol_ = Predef.tk 3 doldre in
VP (Cond Sg P3) => dol_ + "dria" ;--# notpresent
VP (Imp Pl P1) => dol_ + "guem" ;
VP (Imp Pl P2) => dol_ + "eu" ;
VP (Imp Sg P2) => dol_ + "" ;
VP (Imp Sg P2) => dol_ ;
VP (Imp Pl P3) => dol_ + "guin" ;
VP (Imp Sg P3) => dol_ + "gui" ;
VP (Pass Pl Fem) => dol_ + "gudes" ;
@@ -2330,7 +2330,7 @@ let dorm_ = Predef.tk 2 dormir in
VP (Pres Ind Pl P2) => dorm_ + "iu" ;
VP (Pres Ind Sg P2) => dorm_ + "s" ;
VP (Pres Ind Pl P3) => dorm_ + "en" ;
VP (Pres Ind Sg P3) => dorm_ + "" ;
VP (Pres Ind Sg P3) => dorm_ ;
VP (Pres Sub Pl P1) => dorm_ + "im" ;
VP (Pres Sub Sg P1) => dorm_ + "i" ;
VP (Pres Sub Pl P2) => dorm_ + "iu" ;
@@ -2373,7 +2373,7 @@ let dorm_ = Predef.tk 2 dormir in
VP (Cond Sg P3) => dorm_ + "iria" ;--# notpresent
VP (Imp Pl P1) => dorm_ + "im" ;
VP (Imp Pl P2) => dorm_ + "iu" ;
VP (Imp Sg P2) => dorm_ + "" ;
VP (Imp Sg P2) => dorm_ ;
VP (Imp Pl P3) => dorm_ + "in" ;
VP (Imp Sg P3) => dorm_ + "i" ;
VP (Pass Pl Fem) => dorm_ + "ides" ;
@@ -3278,9 +3278,9 @@ let impr_ = Predef.tk 4 imprimir in
VP (Imp Pl P3) => impr_ + "imeixin" ;
VP (Imp Sg P3) => impr_ + "imeixi" ;
VP (Pass Pl Fem) => impr_ + "eses" ;
VP (Pass Sg Fem) => case flag of {True => impr_ + "esa"; _ => impr_ + ""} ;
VP (Pass Sg Fem) => case flag of {True => impr_ + "esa"; _ => impr_} ;
VP (Pass Pl Masc) => impr_ + "esos" ;
VP (Pass Sg Masc) => case flag of {True => impr_ + "ès"; _ => impr_ + ""} ;
VP (Pass Sg Masc) => case flag of {True => impr_ + "ès"; _ => impr_} ;
VP (Imp Sg P1) => nonExist
}
} ;
@@ -3423,7 +3423,7 @@ let llu_ = Predef.tk 2 lluir in
VP (Pres Ind Pl P2) => llu_ + "ïu" ;
VP (Pres Ind Sg P2) => case flag of {0 => llu_ + "eixes"; 1 => llu_ + "us"; _ => llu_ + "s"} ;
VP (Pres Ind Pl P3) => case flag of {0 => llu_ + "eixen"; _ => llu_ + "en"} ;
VP (Pres Ind Sg P3) => case flag of {0 => llu_ + "eix"; 1 => llu_ + "u"; _ => llu_ + ""} ;
VP (Pres Ind Sg P3) => case flag of {0 => llu_ + "eix"; 1 => llu_ + "u"; _ => llu_} ;
VP (Pres Sub Pl P1) => llu_ + "ïm" ;
VP (Pres Sub Sg P1) => case flag of {0 => llu_ + "eixi"; _ => llu_ + "ï"} ;
VP (Pres Sub Pl P2) => llu_ + "ïu" ;
@@ -3466,7 +3466,7 @@ let llu_ = Predef.tk 2 lluir in
VP (Cond Sg P3) => llu_ + "iria" ;--# notpresent
VP (Imp Pl P1) => llu_ + "ïm" ;
VP (Imp Pl P2) => llu_ + "ïu" ;
VP (Imp Sg P2) => case flag of {0 => llu_ + "eix"; 1 => llu_ + ""; _ => llu_ + "u"} ;
VP (Imp Sg P2) => case flag of {0 => llu_ + "eix"; 1 => llu_; _ => llu_ + "u"} ;
VP (Imp Pl P3) => case flag of {0 => llu_ + "eixin"; _ => llu_ + "ïn"} ;
VP (Imp Sg P3) => case flag of {0 => llu_ + "eixi"; _ => llu_ + "ï"} ;
VP (Pass Pl Fem) => llu_ + "ïdes" ;
@@ -4130,7 +4130,7 @@ let perd_ = Predef.tk 2 perdre in
VP (Pres Ind Pl P2) => perd_ + "eu" ;
VP (Pres Ind Sg P2) => perd_ + "s" ;
VP (Pres Ind Pl P3) => perd_ + "en" ;
VP (Pres Ind Sg P3) => perd_ + "" ;
VP (Pres Ind Sg P3) => perd_ ;
VP (Pres Sub Pl P1) => perd_ + "em" ;
VP (Pres Sub Sg P1) => perd_ + "i" ;
VP (Pres Sub Pl P2) => perd_ + "eu" ;
@@ -4173,7 +4173,7 @@ let perd_ = Predef.tk 2 perdre in
VP (Cond Sg P3) => perd_ + "ria" ;--# notpresent
VP (Imp Pl P1) => perd_ + "em" ;
VP (Imp Pl P2) => perd_ + "eu" ;
VP (Imp Sg P2) => perd_ + "" ;
VP (Imp Sg P2) => perd_ ;
VP (Imp Pl P3) => perd_ + "in" ;
VP (Imp Sg P3) => perd_ + "i" ;
VP (Pass Pl Fem) => perd_ + "udes" ;
@@ -4966,7 +4966,7 @@ let sent_ = Predef.tk 2 sentir in
VP (Pres Ind Pl P2) => sent_ + "iu" ;
VP (Pres Ind Sg P2) => sent_ + "s" ;
VP (Pres Ind Pl P3) => sent_ + "en" ;
VP (Pres Ind Sg P3) => sent_ + "" ;
VP (Pres Ind Sg P3) => sent_ ;
VP (Pres Sub Pl P1) => sent_ + "im" ;
VP (Pres Sub Sg P1) => sent_ + "i" ;
VP (Pres Sub Pl P2) => sent_ + "iu" ;
@@ -5009,7 +5009,7 @@ let sent_ = Predef.tk 2 sentir in
VP (Cond Sg P3) => sent_ + "iria" ;--# notpresent
VP (Imp Pl P1) => sent_ + "im" ;
VP (Imp Pl P2) => sent_ + "iu" ;
VP (Imp Sg P2) => sent_ + "" ;
VP (Imp Sg P2) => sent_ ;
VP (Imp Pl P3) => sent_ + "in" ;
VP (Imp Sg P3) => sent_ + "i" ;
VP (Pass Pl Fem) => sent_ + "ides" ;
@@ -5735,7 +5735,7 @@ let val_ = Predef.tk 2 valer in
VP (Pres Ind Pl P2) => val_ + "eu" ;
VP (Pres Ind Sg P2) => val_ + "s" ;
VP (Pres Ind Pl P3) => val_ + "en" ;
VP (Pres Ind Sg P3) => val_ + "" ;
VP (Pres Ind Sg P3) => val_ ;
VP (Pres Sub Pl P1) => val_ + "guem" ;
VP (Pres Sub Sg P1) => val_ + "gui" ;
VP (Pres Sub Pl P2) => val_ + "gueu" ;
@@ -5778,7 +5778,7 @@ let val_ = Predef.tk 2 valer in
VP (Cond Sg P3) => val_ + "dria" ;--# notpresent
VP (Imp Pl P1) => val_ + "guem" ;
VP (Imp Pl P2) => val_ + "eu" ;
VP (Imp Sg P2) => val_ + "" ;
VP (Imp Sg P2) => val_ ;
VP (Imp Pl P3) => val_ + "guin" ;
VP (Imp Sg P3) => val_ + "gui" ;
VP (Pass Pl Fem) => val_ + "gudes" ;
@@ -5863,7 +5863,7 @@ let ven_ = Predef.tk 3 vendre in
VP (Pres Ind Pl P2) => ven_ + "eu" ;
VP (Pres Ind Sg P2) => ven_ + "s" ;
VP (Pres Ind Pl P3) => ven_ + "en" ;
VP (Pres Ind Sg P3) => ven_ + "" ;
VP (Pres Ind Sg P3) => ven_ ;
VP (Pres Sub Pl P1) => ven_ + "guem" ;
VP (Pres Sub Sg P1) => ven_ + "gui" ;
VP (Pres Sub Pl P2) => ven_ + "gueu" ;
@@ -5906,7 +5906,7 @@ let ven_ = Predef.tk 3 vendre in
VP (Cond Sg P3) => ven_ + "dria" ;--# notpresent
VP (Imp Pl P1) => ven_ + "guem" ;
VP (Imp Pl P2) => ven_ + "eu" ;
VP (Imp Sg P2) => ven_ + "" ;
VP (Imp Sg P2) => ven_ ;
VP (Imp Pl P3) => ven_ + "guin" ;
VP (Imp Sg P3) => ven_ + "gui" ;
VP (Pass Pl Fem) => case flag of {True => ven_ + "udes"; _ => ven_ + "gudes"} ;