From d198436d7de62233ce85580359c3c27ecfa0e86e Mon Sep 17 00:00:00 2001 From: krangelov Date: Fri, 26 Apr 2019 13:06:57 +0200 Subject: [PATCH] extensions and corrections in BeschCat to be compatible with FreeLing. Some of the diffs were plain bugs in the original module --- src/catalan/BeschCat.gf | 2716 ++++++++++++++++++---------------- src/catalan/DiffCat.gf | 2 +- src/catalan/ExtraCat.gf | 4 +- src/catalan/IrregCat.gf | 1131 +------------- src/catalan/LexiconCat.gf | 26 +- src/catalan/ParadigmsCat.gf | 34 +- src/catalan/StructuralCat.gf | 2 +- 7 files changed, 1484 insertions(+), 2431 deletions(-) diff --git a/src/catalan/BeschCat.gf b/src/catalan/BeschCat.gf index 96fe35c19..13f05eb31 100644 --- a/src/catalan/BeschCat.gf +++ b/src/catalan/BeschCat.gf @@ -3,7 +3,7 @@ -- Verbs trets de "Xurriguera". -- -resource BeschCat = open Prelude, CommonRomance in { +resource BeschCat = open Predef, Prelude, CommonRomance in { --flags optimize=noexpand ; -- faster than values flags coding=utf8 ; @@ -16,7 +16,6 @@ let absol_ = Predef.tk 3 absoldre in {s = table { VI Infn => absol_ + "dre" ; VI Ger => absol_ + "ent" ; - VI Part => absol_ + "t" ; VP (Pres Ind Pl P1) => absol_ + "em" ; VP (Pres Ind Sg P1) => absol_ + "c" ; VP (Pres Ind Pl P2) => absol_ + "eu" ; @@ -36,10 +35,14 @@ let absol_ = Predef.tk 3 absoldre in VP (Impf Ind Pl P3) => absol_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => absol_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => absol_ + "guéssim" ;--# notpresent + VP (ImpfSubPlE P1) => absol_ + "guéssem" ;--# notpresent VP (Impf Sub Sg P1) => absol_ + "gués" ;--# notpresent VP (Impf Sub Pl P2) => absol_ + "guéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => absol_ + "guésseu" ;--# notpresent VP (Impf Sub Sg P2) => absol_ + "guessis" ;--# notpresent + VP ImpfSubSgE => absol_ + "guesses" ;--# notpresent VP (Impf Sub Pl P3) => absol_ + "guessin" ;--# notpresent + VP (ImpfSubPlE P3) => absol_ + "guessen" ;--# notpresent VP (Impf Sub Sg P3) => absol_ + "gués" ;--# notpresent VP (Fut Pl P1) => absol_ + "drem" ;--# notpresent VP (Fut Sg P1) => absol_ + "dré" ;--# notpresent @@ -47,12 +50,12 @@ let absol_ = Predef.tk 3 absoldre in VP (Fut Sg P2) => absol_ + "dràs" ;--# notpresent VP (Fut Pl P3) => absol_ + "dran" ;--# notpresent VP (Fut Sg P3) => absol_ + "drà" ;--# notpresent - VP (Pret Pl P1) => absol_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => absol_ + "gués" ;--# notpresent - VP (Pret Pl P2) => absol_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => absol_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => absol_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => absol_ + "gués" ;--# notpresent + VP (Pret Pl P1) => absol_ + "guérem" ;--# notpresent + VP (Pret Sg P1) => absol_ + "guí" ;--# notpresent + VP (Pret Pl P2) => absol_ + "guéreu" ;--# notpresent + VP (Pret Sg P2) => absol_ + "gueres" ;--# notpresent + VP (Pret Pl P3) => absol_ + "gueren" ;--# notpresent + VP (Pret Sg P3) => absol_ + "gué" ;--# notpresent VP (Cond Pl P1) => absol_ + "dríem" ;--# notpresent VP (Cond Sg P1) => absol_ + "dria" ;--# notpresent VP (Cond Pl P2) => absol_ + "dríeu" ;--# notpresent @@ -96,10 +99,14 @@ let adm_ = Predef.tk 4 admetre in VP (Impf Ind Pl P3) => adm_ + "etien" ;--# notpresent VP (Impf Ind Sg P3) => adm_ + "etia" ;--# notpresent VP (Impf Sub Pl P1) => adm_ + "etéssim" ;--# notpresent + VP (ImpfSubPlE P1) => adm_ + "etéssem" ;--# notpresent VP (Impf Sub Sg P1) => adm_ + "etés" ;--# notpresent VP (Impf Sub Pl P2) => adm_ + "etéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => adm_ + "etésseu" ;--# notpresent VP (Impf Sub Sg P2) => adm_ + "etessis" ;--# notpresent + VP ImpfSubSgE => adm_ + "etesses" ;--# notpresent VP (Impf Sub Pl P3) => adm_ + "etessin" ;--# notpresent + VP (ImpfSubPlE P3) => adm_ + "etessen" ;--# notpresent VP (Impf Sub Sg P3) => adm_ + "etés" ;--# notpresent VP (Fut Pl P1) => adm_ + "etrem" ;--# notpresent VP (Fut Sg P1) => adm_ + "etré" ;--# notpresent @@ -107,12 +114,12 @@ let adm_ = Predef.tk 4 admetre in VP (Fut Sg P2) => adm_ + "etràs" ;--# notpresent VP (Fut Pl P3) => adm_ + "etran" ;--# notpresent VP (Fut Sg P3) => adm_ + "etrà" ;--# notpresent - VP (Pret Pl P1) => adm_ + "etéssim" ;--# notpresent - VP (Pret Sg P1) => adm_ + "etés" ;--# notpresent - VP (Pret Pl P2) => adm_ + "etéssiu" ;--# notpresent - VP (Pret Sg P2) => adm_ + "etessis" ;--# notpresent - VP (Pret Pl P3) => adm_ + "etessin" ;--# notpresent - VP (Pret Sg P3) => adm_ + "etés" ;--# notpresent + VP (Pret Pl P1) => adm_ + "etérem" ;--# notpresent + VP (Pret Sg P1) => adm_ + "etí" ;--# notpresent + VP (Pret Pl P2) => adm_ + "etéreu" ;--# notpresent + VP (Pret Sg P2) => adm_ + "eteres" ;--# notpresent + VP (Pret Pl P3) => adm_ + "eteren" ;--# notpresent + VP (Pret Sg P3) => adm_ + "eté" ;--# notpresent VP (Cond Pl P1) => adm_ + "etríem" ;--# notpresent VP (Cond Sg P1) => adm_ + "etria" ;--# notpresent VP (Cond Pl P2) => adm_ + "etríeu" ;--# notpresent @@ -127,7 +134,6 @@ let adm_ = Predef.tk 4 admetre in VP (Pass Pl Fem) => adm_ + "eses" ; VP (Pass Sg Fem) => adm_ + "esa" ; VP (Pass Pl Masc) => adm_ + "esos" ; - VI Part => adm_ + "ès" ; VP (Pass Sg Masc) => adm_ + "ès" ; VP (Imp Sg P1) => nonExist } @@ -138,7 +144,6 @@ let ajup_ = Predef.tk 2 ajupir in {s = table { VI Infn => ajup_ + "ir" ; VI Ger => ajup_ + "int" ; - VI Part => ajup_ + "it" ; VP (Pres Ind Pl P1) => ajup_ + "im" ; VP (Pres Ind Sg P1) => ajup_ + "o" ; VP (Pres Ind Pl P2) => ajup_ + "iu" ; @@ -158,10 +163,14 @@ let ajup_ = Predef.tk 2 ajupir in VP (Impf Ind Pl P3) => ajup_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => ajup_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => ajup_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => ajup_ + "íssem" ;--# notpresent VP (Impf Sub Sg P1) => ajup_ + "ís" ;--# notpresent VP (Impf Sub Pl P2) => ajup_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => ajup_ + "ísseu" ;--# notpresent VP (Impf Sub Sg P2) => ajup_ + "issis" ;--# notpresent + VP ImpfSubSgE => ajup_ + "isses" ;--# notpresent VP (Impf Sub Pl P3) => ajup_ + "issin" ;--# notpresent + VP (ImpfSubPlE P3) => ajup_ + "issen" ;--# notpresent VP (Impf Sub Sg P3) => ajup_ + "ís" ;--# notpresent VP (Fut Pl P1) => ajup_ + "irem" ;--# notpresent VP (Fut Sg P1) => ajup_ + "iré" ;--# notpresent @@ -169,12 +178,12 @@ let ajup_ = Predef.tk 2 ajupir in VP (Fut Sg P2) => ajup_ + "iràs" ;--# notpresent VP (Fut Pl P3) => ajup_ + "iran" ;--# notpresent VP (Fut Sg P3) => ajup_ + "irà" ;--# notpresent - VP (Pret Pl P1) => ajup_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => ajup_ + "ís" ;--# notpresent - VP (Pret Pl P2) => ajup_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => ajup_ + "issis" ;--# notpresent - VP (Pret Pl P3) => ajup_ + "issin" ;--# notpresent - VP (Pret Sg P3) => ajup_ + "ís" ;--# notpresent + VP (Pret Pl P1) => ajup_ + "írem" ;--# notpresent + VP (Pret Sg P1) => ajup_ + "í" ;--# notpresent + VP (Pret Pl P2) => ajup_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => ajup_ + "ires" ;--# notpresent + VP (Pret Pl P3) => ajup_ + "iren" ;--# notpresent + VP (Pret Sg P3) => ajup_ + "í" ;--# notpresent VP (Cond Pl P1) => ajup_ + "iríem" ;--# notpresent VP (Cond Sg P1) => ajup_ + "iria" ;--# notpresent VP (Cond Pl P2) => ajup_ + "iríeu" ;--# notpresent @@ -194,17 +203,16 @@ VP (Imp Sg P1) => nonExist } } ; -oper anar_4 : Str -> Verbum = \anar -> +oper anar_4 : Str -> Ints 3 -> Verbum = \anar,flag -> let x_ = Predef.tk 4 anar in {s = table { VI Infn => x_ + "anar" ; VI Ger => x_ + "anant" ; - VI Part => x_ + "anat" ; - VP (Pres Ind Pl P1) => x_ + "anem" ; + VP (Pres Ind Pl P1) => case flag of {0 => x_ + "anem"; 1 => x_ + "vam"; _ => x_ + "vàrem"} ; VP (Pres Ind Sg P1) => x_ + "vaig" ; - VP (Pres Ind Pl P2) => x_ + "aneu" ; - VP (Pres Ind Sg P2) => x_ + "vas" ; - VP (Pres Ind Pl P3) => x_ + "van" ; + VP (Pres Ind Pl P2) => case flag of {0 => x_ + "aneu"; 1 => x_ + "vau"; _ => x_ + "vàreu"} ; + VP (Pres Ind Sg P2) => case flag of {0 => x_ + "vas"; _ => x_ + "vares"} ; + VP (Pres Ind Pl P3) => case flag of {0 => x_ + "van"; _ => x_ + "varen"} ; VP (Pres Ind Sg P3) => x_ + "va" ; VP (Pres Sub Pl P1) => x_ + "anem" ; VP (Pres Sub Sg P1) => x_ + "vagi" ; @@ -219,10 +227,14 @@ let x_ = Predef.tk 4 anar in VP (Impf Ind Pl P3) => x_ + "anaven" ;--# notpresent VP (Impf Ind Sg P3) => x_ + "anava" ;--# notpresent VP (Impf Sub Pl P1) => x_ + "anéssim" ;--# notpresent + VP (ImpfSubPlE P1) => x_ + "anéssem" ;--# notpresent VP (Impf Sub Sg P1) => x_ + "anés" ;--# notpresent VP (Impf Sub Pl P2) => x_ + "anéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => x_ + "anésseu" ;--# notpresent VP (Impf Sub Sg P2) => x_ + "anessis" ;--# notpresent + VP ImpfSubSgE => x_ + "anesses" ;--# notpresent VP (Impf Sub Pl P3) => x_ + "anessin" ;--# notpresent + VP (ImpfSubPlE P3) => x_ + "anessen" ;--# notpresent VP (Impf Sub Sg P3) => x_ + "anés" ;--# notpresent VP (Fut Pl P1) => x_ + "anirem" ;--# notpresent VP (Fut Sg P1) => x_ + "aniré" ;--# notpresent @@ -230,12 +242,12 @@ let x_ = Predef.tk 4 anar in VP (Fut Sg P2) => x_ + "aniràs" ;--# notpresent VP (Fut Pl P3) => x_ + "aniran" ;--# notpresent VP (Fut Sg P3) => x_ + "anirà" ;--# notpresent - VP (Pret Pl P1) => x_ + "anàssim" ;--# notpresent - VP (Pret Sg P1) => x_ + "anàs" ;--# notpresent - VP (Pret Pl P2) => x_ + "anàssiu" ;--# notpresent - VP (Pret Sg P2) => x_ + "anassis" ;--# notpresent - VP (Pret Pl P3) => x_ + "anassin" ;--# notpresent - VP (Pret Sg P3) => x_ + "anàs" ;--# notpresent + VP (Pret Pl P1) => x_ + "anàrem" ;--# notpresent + VP (Pret Sg P1) => x_ + "aní" ;--# notpresent + VP (Pret Pl P2) => x_ + "anàreu" ;--# notpresent + VP (Pret Sg P2) => x_ + "anares" ;--# notpresent + VP (Pret Pl P3) => x_ + "anaren" ;--# notpresent + VP (Pret Sg P3) => x_ + "anà" ;--# notpresent VP (Cond Pl P1) => x_ + "aniríem" ;--# notpresent VP (Cond Sg P1) => x_ + "aniria" ;--# notpresent VP (Cond Pl P2) => x_ + "aniríeu" ;--# notpresent @@ -255,11 +267,10 @@ VP (Imp Sg P1) => nonExist } } ; -oper aparèixer_5 : Str -> Verbum = \aparèixer -> +oper aparèixer_5 : Str -> Bool -> Verbum = \aparèixer,flag -> let apar_ = Predef.tk 5 aparèixer in {s = table { VI Ger => apar_ + "eixent" ; - VI Part => apar_ + "egut" ; VP (Pres Ind Pl P1) => apar_ + "eixem" ; VP (Pres Ind Sg P1) => apar_ + "ec" ; VP (Pres Ind Pl P2) => apar_ + "eixeu" ; @@ -279,10 +290,14 @@ let apar_ = Predef.tk 5 aparèixer in VP (Impf Ind Pl P3) => apar_ + "eixien" ;--# notpresent VP (Impf Ind Sg P3) => apar_ + "eixia" ;--# notpresent VP (Impf Sub Pl P1) => apar_ + "eguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => apar_ + "eguéssem" ;--# notpresent VP (Impf Sub Sg P1) => apar_ + "egués" ;--# notpresent VP (Impf Sub Pl P2) => apar_ + "eguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => apar_ + "eguésseu" ;--# notpresent VP (Impf Sub Sg P2) => apar_ + "eguessis" ;--# notpresent + VP ImpfSubSgE => apar_ + "eguesses" ;--# notpresent VP (Impf Sub Pl P3) => apar_ + "eguessin" ;--# notpresent + VP (ImpfSubPlE P3) => apar_ + "eguessen" ;--# notpresent VP (Impf Sub Sg P3) => apar_ + "egués" ;--# notpresent VP (Fut Pl P1) => apar_ + "eixerem" ;--# notpresent VP (Fut Sg P1) => apar_ + "eixeré" ;--# notpresent @@ -290,12 +305,12 @@ let apar_ = Predef.tk 5 aparèixer in VP (Fut Sg P2) => apar_ + "eixeràs" ;--# notpresent VP (Fut Pl P3) => apar_ + "eixeran" ;--# notpresent VP (Fut Sg P3) => apar_ + "eixerà" ;--# notpresent - VP (Pret Pl P1) => apar_ + "eguéssim" ;--# notpresent - VP (Pret Sg P1) => apar_ + "egués" ;--# notpresent - VP (Pret Pl P2) => apar_ + "eguéssiu" ;--# notpresent - VP (Pret Sg P2) => apar_ + "eguessis" ;--# notpresent - VP (Pret Pl P3) => apar_ + "eguessin" ;--# notpresent - VP (Pret Sg P3) => apar_ + "egués" ;--# notpresent + VP (Pret Pl P1) => apar_ + "eguérem" ;--# notpresent + VP (Pret Sg P1) => apar_ + "eguí" ;--# notpresent + VP (Pret Pl P2) => apar_ + "eguéreu" ;--# notpresent + VP (Pret Sg P2) => apar_ + "egueres" ;--# notpresent + VP (Pret Pl P3) => apar_ + "egueren" ;--# notpresent + VP (Pret Sg P3) => apar_ + "egué" ;--# notpresent VP (Cond Pl P1) => apar_ + "eixeríem" ;--# notpresent VP (Cond Sg P1) => apar_ + "eixeria" ;--# notpresent VP (Cond Pl P2) => apar_ + "eixeríeu" ;--# notpresent @@ -303,7 +318,7 @@ let apar_ = Predef.tk 5 aparèixer in VP (Cond Pl P3) => apar_ + "eixerien" ;--# notpresent VP (Cond Sg P3) => apar_ + "eixeria" ;--# notpresent VP (Imp Pl P1) => apar_ + "eguem" ; - VP (Imp Pl P2) => apar_ + "eixeu" ; + VP (Imp Pl P2) => case flag of {True => apar_ + "eixeu"; _ => apar_ + "egueu"} ; VP (Imp Sg P2) => apar_ + "eix" ; VP (Imp Pl P3) => apar_ + "eguin" ; VP (Imp Sg P3) => apar_ + "egui" ; @@ -321,7 +336,6 @@ let a_ = Predef.tk 7 aprendre in {s = table { VI Infn => a_ + "prendre" ; VI Ger => a_ + "prenent" ; - VI Part => a_ + "près" ; VP (Pres Ind Pl P1) => a_ + "prenem" ; VP (Pres Ind Sg P1) => a_ + "prenc" ; VP (Pres Ind Pl P2) => a_ + "preneu" ; @@ -341,10 +355,14 @@ let a_ = Predef.tk 7 aprendre in VP (Impf Ind Pl P3) => a_ + "prenien" ;--# notpresent VP (Impf Ind Sg P3) => a_ + "prenia" ;--# notpresent VP (Impf Sub Pl P1) => a_ + "prenguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => a_ + "prenguéssem" ;--# notpresent VP (Impf Sub Sg P1) => a_ + "prengués" ;--# notpresent VP (Impf Sub Pl P2) => a_ + "prenguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => a_ + "prenguésseu" ;--# notpresent VP (Impf Sub Sg P2) => a_ + "prenguessis" ;--# notpresent + VP ImpfSubSgE => a_ + "prenguesses" ;--# notpresent VP (Impf Sub Pl P3) => a_ + "prenguessin" ;--# notpresent + VP (ImpfSubPlE P3) => a_ + "prenguessen" ;--# notpresent VP (Impf Sub Sg P3) => a_ + "prengués" ;--# notpresent VP (Fut Pl P1) => a_ + "prendrem" ;--# notpresent VP (Fut Sg P1) => a_ + "prendré" ;--# notpresent @@ -352,12 +370,12 @@ let a_ = Predef.tk 7 aprendre in VP (Fut Sg P2) => a_ + "prendràs" ;--# notpresent VP (Fut Pl P3) => a_ + "prendran" ;--# notpresent VP (Fut Sg P3) => a_ + "prendrà" ;--# notpresent - VP (Pret Pl P1) => a_ + "prenguéssim" ;--# notpresent - VP (Pret Sg P1) => a_ + "prengués" ;--# notpresent - VP (Pret Pl P2) => a_ + "prenguéssiu" ;--# notpresent - VP (Pret Sg P2) => a_ + "prenguessis" ;--# notpresent - VP (Pret Pl P3) => a_ + "prenguessin" ;--# notpresent - VP (Pret Sg P3) => a_ + "prengués" ;--# notpresent + VP (Pret Pl P1) => a_ + "prenguérem" ;--# notpresent + VP (Pret Sg P1) => a_ + "prenguí" ;--# notpresent + VP (Pret Pl P2) => a_ + "prenguéreu" ;--# notpresent + VP (Pret Sg P2) => a_ + "prengueres" ;--# notpresent + VP (Pret Pl P3) => a_ + "prengueren" ;--# notpresent + VP (Pret Sg P3) => a_ + "prengué" ;--# notpresent VP (Cond Pl P1) => a_ + "prendríem" ;--# notpresent VP (Cond Sg P1) => a_ + "prendria" ;--# notpresent VP (Cond Pl P2) => a_ + "prendríeu" ;--# notpresent @@ -401,10 +419,14 @@ let at_ = Predef.tk 5 atendre in VP (Impf Ind Pl P3) => at_ + "enien" ;--# notpresent VP (Impf Ind Sg P3) => at_ + "enia" ;--# notpresent VP (Impf Sub Pl P1) => at_ + "enguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => at_ + "enguéssem" ;--# notpresent VP (Impf Sub Sg P1) => at_ + "engués" ;--# notpresent VP (Impf Sub Pl P2) => at_ + "enguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => at_ + "enguésseu" ;--# notpresent VP (Impf Sub Sg P2) => at_ + "enguessis" ;--# notpresent + VP ImpfSubSgE => at_ + "enguesses" ;--# notpresent VP (Impf Sub Pl P3) => at_ + "enguessin" ;--# notpresent + VP (ImpfSubPlE P3) => at_ + "enguessen" ;--# notpresent VP (Impf Sub Sg P3) => at_ + "engués" ;--# notpresent VP (Fut Pl P1) => at_ + "endrem" ;--# notpresent VP (Fut Sg P1) => at_ + "endré" ;--# notpresent @@ -412,12 +434,12 @@ let at_ = Predef.tk 5 atendre in VP (Fut Sg P2) => at_ + "endràs" ;--# notpresent VP (Fut Pl P3) => at_ + "endran" ;--# notpresent VP (Fut Sg P3) => at_ + "endrà" ;--# notpresent - VP (Pret Pl P1) => at_ + "enguéssim" ;--# notpresent - VP (Pret Sg P1) => at_ + "engués" ;--# notpresent - VP (Pret Pl P2) => at_ + "enguéssiu" ;--# notpresent - VP (Pret Sg P2) => at_ + "enguessis" ;--# notpresent - VP (Pret Pl P3) => at_ + "enguessin" ;--# notpresent - VP (Pret Sg P3) => at_ + "engués" ;--# notpresent + VP (Pret Pl P1) => at_ + "enguérem" ;--# notpresent + VP (Pret Sg P1) => at_ + "enguí" ;--# notpresent + VP (Pret Pl P2) => at_ + "enguéreu" ;--# notpresent + VP (Pret Sg P2) => at_ + "engueres" ;--# notpresent + VP (Pret Pl P3) => at_ + "engueren" ;--# notpresent + VP (Pret Sg P3) => at_ + "engué" ;--# notpresent VP (Cond Pl P1) => at_ + "endríem" ;--# notpresent VP (Cond Sg P1) => at_ + "endria" ;--# notpresent VP (Cond Pl P2) => at_ + "endríeu" ;--# notpresent @@ -431,22 +453,20 @@ let at_ = Predef.tk 5 atendre in VP (Pass Pl Fem) => at_ + "eses" ; VP (Pass Sg Fem) => at_ + "esa" ; VP (Pass Pl Masc) => at_ + "esos" ; - VI Part => at_ + "ès" ; VP (Pass Sg Masc) => at_ + "ès" ; VP (Pres Ind Sg P3) => at_ + "én" ; VP (Imp Sg P2) => at_ + "én" ; VP (Imp Sg P1) => nonExist } } ; -oper atènyer_59 : Str -> Verbum = \atènyer -> +oper atènyer_59 : Str -> Verbum = \atènyer -> let at_ = Predef.tk 5 atènyer in {s = table { VI Infn=> at_ + "ènyer" ; VI Ger => at_ + "enyent" ; - VI Part => at_ + "ès" ; VP (Pres Ind Sg P1) => at_ + "enyo" ; VP (Pres Ind Sg P2) => at_ + "enys" ; - VP (Pres Ind Sg P3) => at_ + "eny" ; + VP (Pres Ind Sg P3) => at_ + "eny" ; VP (Pres Ind Pl P1) => at_ + "enyem" ; VP (Pres Ind Pl P2) => at_ + "enyeu" ; VP (Pres Ind Pl P3) => at_ + "enyen" ; @@ -463,17 +483,21 @@ oper atènyer_59 : Str -> Verbum = \atènyer -> VP (Impf Ind Pl P2) => at_ + "enyíeu" ; --# notpresent VP (Impf Ind Pl P3) => at_ + "enyien" ; --# notpresent VP (Impf Sub Sg P1) => at_ + "enyés" ; --# notpresent - VP (Impf Sub Sg P2) => at_ + "enyéssis" ; --# notpresent + VP (Impf Sub Sg P2) => at_ + "enyessis" ; --# notpresent + VP ImpfSubSgE => at_ + "enyesses" ; --# notpresent VP (Impf Sub Sg P3) => at_ + "enyés" ; --# notpresent VP (Impf Sub Pl P1) => at_ + "enyéssim" ; --# notpresent + VP (ImpfSubPlE P1) => at_ + "enyéssem" ; --# notpresent VP (Impf Sub Pl P2) => at_ + "enyéssiu" ; --# notpresent - VP (Impf Sub Pl P3) => at_ + "enyéssin" ; --# notpresent + VP (ImpfSubPlE P2) => at_ + "enyésseu" ; --# notpresent + VP (Impf Sub Pl P3) => at_ + "enyessin" ; --# notpresent + VP (ImpfSubPlE P3) => at_ + "enyessen" ; --# notpresent VP (Pret Sg P1) => at_ + "enyí" ; --# notpresent VP (Pret Sg P2) => at_ + "enyeres" ; --# notpresent VP (Pret Sg P3) => at_ + "enyé" ; --# notpresent VP (Pret Pl P1) => at_ + "enyérem" ; --# notpresent VP (Pret Pl P2) => at_ + "enyéreu" ; --# notpresent - VP (Pret Pl P3) => at_ + "enyéren" ; --# notpresent + VP (Pret Pl P3) => at_ + "enyeren" ; --# notpresent VP (Fut Sg P1) => at_ + "enyeré" ; --# notpresent VP (Fut Sg P2) => at_ + "enyeràs" ; --# notpresent VP (Fut Sg P3) => at_ + "enyerà" ; --# notpresent @@ -486,24 +510,24 @@ oper atènyer_59 : Str -> Verbum = \atènyer -> VP (Cond Pl P1) => at_ + "enyeríem" ; --# notpresent VP (Cond Pl P2) => at_ + "enyeríeu" ; --# notpresent VP (Cond Pl P3) => at_ + "enyerien" ; --# notpresent - VP (Imp Sg P2) => at_ + "eny" ; - VP (Imp Sg P3) => at_ + "enyi" ; - VP (Imp Pl P1) => at_ + "enyem" ; - VP (Imp Pl P2) => at_ + "enyeu" ; - VP (Imp Pl P3) => at_ + "enyin" ; + VP (Imp Sg P2) => at_ + "eny" ; + VP (Imp Sg P3) => at_ + "enyi" ; + VP (Imp Pl P1) => at_ + "enyem" ; + VP (Imp Pl P2) => at_ + "enyeu" ; + VP (Imp Pl P3) => at_ + "enyin" ; VP (Pass Sg Masc) => at_ + "ès" ; VP (Pass Sg Fem) => at_ + "esa" ; VP (Pass Pl Masc) => at_ + "esos" ; VP (Pass Pl Fem) => at_ + "eses"; - VP (Imp Sg P1) => nonExist + VP (Imp Sg P1) => nonExist } } ; + oper batre_10 : Str -> Verbum = \batre -> let bat_ = Predef.tk 2 batre in {s = table { VI Infn => bat_ + "re" ; VI Ger => bat_ + "ent" ; - VI Part => bat_ + "ut" ; VP (Pres Ind Pl P1) => bat_ + "em" ; VP (Pres Ind Sg P1) => bat_ + "o" ; VP (Pres Ind Pl P2) => bat_ + "eu" ; @@ -523,10 +547,14 @@ let bat_ = Predef.tk 2 batre in VP (Impf Ind Pl P3) => bat_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => bat_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => bat_ + "éssim" ;--# notpresent + VP (ImpfSubPlE P1) => bat_ + "éssem" ;--# notpresent VP (Impf Sub Sg P1) => bat_ + "és" ;--# notpresent VP (Impf Sub Pl P2) => bat_ + "éssiu" ;--# notpresent + VP (ImpfSubPlE P2) => bat_ + "ésseu" ;--# notpresent VP (Impf Sub Sg P2) => bat_ + "essis" ;--# notpresent + VP ImpfSubSgE => bat_ + "esses" ;--# notpresent VP (Impf Sub Pl P3) => bat_ + "essin" ;--# notpresent + VP (ImpfSubPlE P3) => bat_ + "essen" ;--# notpresent VP (Impf Sub Sg P3) => bat_ + "és" ;--# notpresent VP (Fut Pl P1) => bat_ + "rem" ;--# notpresent VP (Fut Sg P1) => bat_ + "ré" ;--# notpresent @@ -534,12 +562,12 @@ let bat_ = Predef.tk 2 batre in VP (Fut Sg P2) => bat_ + "ràs" ;--# notpresent VP (Fut Pl P3) => bat_ + "ran" ;--# notpresent VP (Fut Sg P3) => bat_ + "rà" ;--# notpresent - VP (Pret Pl P1) => bat_ + "éssim" ;--# notpresent - VP (Pret Sg P1) => bat_ + "és" ;--# notpresent - VP (Pret Pl P2) => bat_ + "éssiu" ;--# notpresent - VP (Pret Sg P2) => bat_ + "essis" ;--# notpresent - VP (Pret Pl P3) => bat_ + "essin" ;--# notpresent - VP (Pret Sg P3) => bat_ + "és" ;--# notpresent + VP (Pret Pl P1) => bat_ + "érem" ;--# notpresent + VP (Pret Sg P1) => bat_ + "í" ;--# notpresent + VP (Pret Pl P2) => bat_ + "éreu" ;--# notpresent + VP (Pret Sg P2) => bat_ + "eres" ;--# notpresent + VP (Pret Pl P3) => bat_ + "eren" ;--# notpresent + VP (Pret Sg P3) => bat_ + "é" ;--# notpresent VP (Cond Pl P1) => bat_ + "ríem" ;--# notpresent VP (Cond Sg P1) => bat_ + "ria" ;--# notpresent VP (Cond Pl P2) => bat_ + "ríeu" ;--# notpresent @@ -564,7 +592,6 @@ let be_ = Predef.tk 3 beure in {s = table { VI Infn => be_ + "ure" ; VI Ger => be_ + "vent" ; - VI Part => be_ + "gut" ; VP (Pres Ind Pl P1) => be_ + "vem" ; VP (Pres Ind Sg P1) => be_ + "c" ; VP (Pres Ind Pl P2) => be_ + "veu" ; @@ -584,10 +611,14 @@ let be_ = Predef.tk 3 beure in VP (Impf Ind Pl P3) => be_ + "vien" ;--# notpresent VP (Impf Ind Sg P3) => be_ + "via" ;--# notpresent VP (Impf Sub Pl P1) => be_ + "guéssim" ;--# notpresent + VP (ImpfSubPlE P1) => be_ + "guéssem" ;--# notpresent VP (Impf Sub Sg P1) => be_ + "gués" ;--# notpresent VP (Impf Sub Pl P2) => be_ + "guéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => be_ + "guésseu" ;--# notpresent VP (Impf Sub Sg P2) => be_ + "guessis" ;--# notpresent + VP ImpfSubSgE => be_ + "guesses" ;--# notpresent VP (Impf Sub Pl P3) => be_ + "guessin" ;--# notpresent + VP (ImpfSubPlE P3) => be_ + "guessen" ;--# notpresent VP (Impf Sub Sg P3) => be_ + "gués" ;--# notpresent VP (Fut Pl P1) => be_ + "urem" ;--# notpresent VP (Fut Sg P1) => be_ + "uré" ;--# notpresent @@ -595,12 +626,12 @@ let be_ = Predef.tk 3 beure in VP (Fut Sg P2) => be_ + "uràs" ;--# notpresent VP (Fut Pl P3) => be_ + "uran" ;--# notpresent VP (Fut Sg P3) => be_ + "urà" ;--# notpresent - VP (Pret Pl P1) => be_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => be_ + "gués" ;--# notpresent - VP (Pret Pl P2) => be_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => be_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => be_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => be_ + "gués" ;--# notpresent + VP (Pret Pl P1) => be_ + "guérem" ;--# notpresent + VP (Pret Sg P1) => be_ + "guí" ;--# notpresent + VP (Pret Pl P2) => be_ + "guéreu" ;--# notpresent + VP (Pret Sg P2) => be_ + "gueres" ;--# notpresent + VP (Pret Pl P3) => be_ + "gueren" ;--# notpresent + VP (Pret Sg P3) => be_ + "gué" ;--# notpresent VP (Cond Pl P1) => be_ + "uríem" ;--# notpresent VP (Cond Sg P1) => be_ + "uria" ;--# notpresent VP (Cond Pl P2) => be_ + "uríeu" ;--# notpresent @@ -619,65 +650,67 @@ let be_ = Predef.tk 3 beure in VP (Imp Sg P1) => nonExist } } ; --- bullir-- is not in the used source . -oper cabre_13 : Str -> Verbum = \cabre -> -let ca_ = Predef.tk 3 cabre in +oper cabre_13 : Str -> Bool -> Verbum = \cabre,flag -> +let c_ = Predef.tk 4 cabre in {s = table { - VI Infn => ca_ + "bre" ; - VI Ger => ca_ + "bent" ; - VI Part => ca_ + "but" ; - VP (Pres Ind Pl P1) => ca_ + "bem" ; - VP (Pres Ind Sg P1) => ca_ + "bo" ; - VP (Pres Ind Pl P2) => ca_ + "beu" ; - VP (Pres Ind Sg P2) => ca_ + "ps" ; - VP (Pres Ind Pl P3) => ca_ + "ben" ; - VP (Pres Ind Sg P3) => ca_ + "p" ; - VP (Pres Sub Pl P1) => ca_ + "bem" ; - VP (Pres Sub Sg P1) => ca_ + "bi" ; - VP (Pres Sub Pl P2) => ca_ + "beu" ; - VP (Pres Sub Sg P2) => ca_ + "bis" ; - VP (Pres Sub Pl P3) => ca_ + "bin" ; - VP (Pres Sub Sg P3) => ca_ + "bi" ; - VP (Impf Ind Pl P1) => ca_ + "bíem" ;--# notpresent - VP (Impf Ind Sg P1) => ca_ + "bia" ;--# notpresent - VP (Impf Ind Pl P2) => ca_ + "bíeu" ;--# notpresent - VP (Impf Ind Sg P2) => ca_ + "bies" ;--# notpresent - VP (Impf Ind Pl P3) => ca_ + "bien" ;--# notpresent - VP (Impf Ind Sg P3) => ca_ + "bia" ;--# notpresent - VP (Impf Sub Pl P1) => ca_ + "béssim" ;--# notpresent - VP (Impf Sub Sg P1) => ca_ + "bés" ;--# notpresent - VP (Impf Sub Pl P2) => ca_ + "béssiu" ;--# notpresent - VP (Impf Sub Sg P2) => ca_ + "bessis" ;--# notpresent - VP (Impf Sub Pl P3) => ca_ + "bessin" ;--# notpresent - VP (Impf Sub Sg P3) => ca_ + "bés" ;--# notpresent - VP (Fut Pl P1) => ca_ + "brem" ;--# notpresent - VP (Fut Sg P1) => ca_ + "bré" ;--# notpresent - VP (Fut Pl P2) => ca_ + "breu" ;--# notpresent - VP (Fut Sg P2) => ca_ + "bràs" ;--# notpresent - VP (Fut Pl P3) => ca_ + "bran" ;--# notpresent - VP (Fut Sg P3) => ca_ + "brà" ;--# notpresent - VP (Pret Pl P1) => ca_ + "béssim" ;--# notpresent - VP (Pret Sg P1) => ca_ + "bés" ;--# notpresent - VP (Pret Pl P2) => ca_ + "béssiu" ;--# notpresent - VP (Pret Sg P2) => ca_ + "bessis" ;--# notpresent - VP (Pret Pl P3) => ca_ + "bessin" ;--# notpresent - VP (Pret Sg P3) => ca_ + "bés" ;--# notpresent - VP (Cond Pl P1) => ca_ + "bríem" ;--# notpresent - VP (Cond Sg P1) => ca_ + "bria" ;--# notpresent - VP (Cond Pl P2) => ca_ + "bríeu" ;--# notpresent - VP (Cond Sg P2) => ca_ + "bries" ;--# notpresent - VP (Cond Pl P3) => ca_ + "brien" ;--# notpresent - VP (Cond Sg P3) => ca_ + "bria" ;--# notpresent - VP (Imp Pl P1) => ca_ + "bem" ; - VP (Imp Pl P2) => ca_ + "beu" ; - VP (Imp Sg P2) => ca_ + "p" ; - VP (Imp Pl P3) => ca_ + "bin" ; - VP (Imp Sg P3) => ca_ + "bi" ; - VP (Pass Pl Fem) => ca_ + "budes" ; - VP (Pass Sg Fem) => ca_ + "buda" ; - VP (Pass Pl Masc) => ca_ + "buts" ; - VP (Pass Sg Masc) => ca_ + "but" ; + VI Infn => case flag of {True => c_ + "abre"; _ => c_ + "aber"} ; + VI Ger => c_ + "abent" ; + VP (Pres Ind Pl P1) => c_ + "abem" ; + VP (Pres Ind Sg P1) => c_ + "abo" ; + VP (Pres Ind Pl P2) => c_ + "abeu" ; + VP (Pres Ind Sg P2) => c_ + "aps" ; + VP (Pres Ind Pl P3) => c_ + "aben" ; + VP (Pres Ind Sg P3) => c_ + "ap" ; + VP (Pres Sub Pl P1) => c_ + "apiguem" ; + VP (Pres Sub Sg P1) => c_ + "àpiga" ; + VP (Pres Sub Pl P2) => c_ + "apigueu" ; + VP (Pres Sub Sg P2) => c_ + "àpigues" ; + VP (Pres Sub Pl P3) => c_ + "àpiguen" ; + VP (Pres Sub Sg P3) => c_ + "àpiga" ; + VP (Impf Ind Pl P1) => c_ + "abíem" ;--# notpresent + VP (Impf Ind Sg P1) => c_ + "abia" ;--# notpresent + VP (Impf Ind Pl P2) => c_ + "abíeu" ;--# notpresent + VP (Impf Ind Sg P2) => c_ + "abies" ;--# notpresent + VP (Impf Ind Pl P3) => c_ + "abien" ;--# notpresent + VP (Impf Ind Sg P3) => c_ + "abia" ;--# notpresent + VP (Impf Sub Pl P1) => c_ + "abéssim" ;--# notpresent + VP (ImpfSubPlE P1) => c_ + "abéssem" ;--# notpresent + VP (Impf Sub Sg P1) => c_ + "abés" ;--# notpresent + VP (Impf Sub Pl P2) => c_ + "abéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => c_ + "abésseu" ;--# notpresent + VP (Impf Sub Sg P2) => c_ + "abessis" ;--# notpresent + VP ImpfSubSgE => c_ + "abesses" ;--# notpresent + VP (Impf Sub Pl P3) => c_ + "abessin" ;--# notpresent + VP (ImpfSubPlE P3) => c_ + "abessen" ;--# notpresent + VP (Impf Sub Sg P3) => c_ + "abés" ;--# notpresent + VP (Fut Pl P1) => c_ + "abrem" ;--# notpresent + VP (Fut Sg P1) => c_ + "abré" ;--# notpresent + VP (Fut Pl P2) => c_ + "abreu" ;--# notpresent + VP (Fut Sg P2) => c_ + "abràs" ;--# notpresent + VP (Fut Pl P3) => c_ + "abran" ;--# notpresent + VP (Fut Sg P3) => c_ + "abrà" ;--# notpresent + VP (Pret Pl P1) => c_ + "abérem" ;--# notpresent + VP (Pret Sg P1) => c_ + "abí" ;--# notpresent + VP (Pret Pl P2) => c_ + "abéreu" ;--# notpresent + VP (Pret Sg P2) => c_ + "aberes" ;--# notpresent + VP (Pret Pl P3) => c_ + "aberen" ;--# notpresent + VP (Pret Sg P3) => c_ + "abé" ;--# notpresent + VP (Cond Pl P1) => c_ + "abríem" ;--# notpresent + VP (Cond Sg P1) => c_ + "abria" ;--# notpresent + VP (Cond Pl P2) => c_ + "abríeu" ;--# notpresent + VP (Cond Sg P2) => c_ + "abries" ;--# notpresent + VP (Cond Pl P3) => c_ + "abrien" ;--# notpresent + VP (Cond Sg P3) => c_ + "abria" ;--# notpresent + VP (Imp Pl P1) => c_ + "apiguem" ; + VP (Imp Pl P2) => c_ + "abeu" ; + VP (Imp Sg P2) => c_ + "ap" ; + VP (Imp Pl P3) => c_ + "àpiguen" ; + VP (Imp Sg P3) => c_ + "àpiga" ; + VP (Pass Pl Fem) => c_ + "abudes" ; + VP (Pass Sg Fem) => c_ + "abuda" ; + VP (Pass Pl Masc) => c_ + "abuts" ; + VP (Pass Sg Masc) => c_ + "abut" ; VP (Imp Sg P1) => nonExist } } ; @@ -688,7 +721,6 @@ let cant_ = Predef.tk 2 cantar in {s = table { VI Infn => cant_ + "ar" ; VI Ger => cant_ + "ant" ; - VI Part => cant_ + "at" ; VP (Pres Ind Pl P1) => cant_ + "em" ; VP (Pres Ind Sg P1) => cant_ + "o" ; VP (Pres Ind Pl P2) => cant_ + "eu" ; @@ -708,10 +740,14 @@ let cant_ = Predef.tk 2 cantar in VP (Impf Ind Pl P3) => cant_ + "aven" ;--# notpresent VP (Impf Ind Sg P3) => cant_ + "ava" ;--# notpresent VP (Impf Sub Pl P1) => cant_ + "éssim" ;--# notpresent + VP (ImpfSubPlE P1) => cant_ + "éssem" ;--# notpresent VP (Impf Sub Sg P1) => cant_ + "és" ;--# notpresent VP (Impf Sub Pl P2) => cant_ + "éssiu" ;--# notpresent + VP (ImpfSubPlE P2) => cant_ + "ésseu" ;--# notpresent VP (Impf Sub Sg P2) => cant_ + "essis" ;--# notpresent + VP ImpfSubSgE => cant_ + "esses" ;--# notpresent VP (Impf Sub Pl P3) => cant_ + "essin" ;--# notpresent + VP (ImpfSubPlE P3) => cant_ + "essen" ;--# notpresent VP (Impf Sub Sg P3) => cant_ + "és" ;--# notpresent VP (Fut Pl P1) => cant_ + "arem" ;--# notpresent VP (Fut Sg P1) => cant_ + "aré" ;--# notpresent @@ -719,12 +755,12 @@ let cant_ = Predef.tk 2 cantar in VP (Fut Sg P2) => cant_ + "aràs" ;--# notpresent VP (Fut Pl P3) => cant_ + "aran" ;--# notpresent VP (Fut Sg P3) => cant_ + "arà" ;--# notpresent - VP (Pret Pl P1) => cant_ + "éssim" ;--# notpresent - VP (Pret Sg P1) => cant_ + "és" ;--# notpresent - VP (Pret Pl P2) => cant_ + "éssiu" ;--# notpresent - VP (Pret Sg P2) => cant_ + "essis" ;--# notpresent - VP (Pret Pl P3) => cant_ + "essin" ;--# notpresent - VP (Pret Sg P3) => cant_ + "és" ;--# notpresent + VP (Pret Pl P1) => cant_ + "àrem" ;--# notpresent + VP (Pret Sg P1) => cant_ + "í" ;--# notpresent + VP (Pret Pl P2) => cant_ + "àreu" ;--# notpresent + VP (Pret Sg P2) => cant_ + "ares" ;--# notpresent + VP (Pret Pl P3) => cant_ + "aren" ;--# notpresent + VP (Pret Sg P3) => cant_ + "à" ;--# notpresent VP (Cond Pl P1) => cant_ + "aríem" ;--# notpresent VP (Cond Sg P1) => cant_ + "aria" ;--# notpresent VP (Cond Pl P2) => cant_ + "aríeu" ;--# notpresent @@ -749,7 +785,6 @@ let canvi_ = Predef.tk 2 canviar in {s = table { VI Infn => canvi_ + "ar" ; VI Ger => canvi_ + "ant" ; - VI Part => canvi_ + "at" ; VP (Pres Ind Pl P1) => canvi_ + "em" ; VP (Pres Ind Sg P1) => canvi_ + "o" ; VP (Pres Ind Pl P2) => canvi_ + "eu" ; @@ -769,10 +804,14 @@ let canvi_ = Predef.tk 2 canviar in VP (Impf Ind Pl P3) => canvi_ + "aven" ;--# notpresent VP (Impf Ind Sg P3) => canvi_ + "ava" ;--# notpresent VP (Impf Sub Pl P1) => canvi_ + "éssim" ;--# notpresent + VP (ImpfSubPlE P1) => canvi_ + "éssem" ;--# notpresent VP (Impf Sub Sg P1) => canvi_ + "és" ;--# notpresent VP (Impf Sub Pl P2) => canvi_ + "éssiu" ;--# notpresent + VP (ImpfSubPlE P2) => canvi_ + "ésseu" ;--# notpresent VP (Impf Sub Sg P2) => canvi_ + "essis" ;--# notpresent + VP ImpfSubSgE => canvi_ + "esses" ;--# notpresent VP (Impf Sub Pl P3) => canvi_ + "essin" ;--# notpresent + VP (ImpfSubPlE P3) => canvi_ + "essen" ;--# notpresent VP (Impf Sub Sg P3) => canvi_ + "és" ;--# notpresent VP (Fut Pl P1) => canvi_ + "arem" ;--# notpresent VP (Fut Sg P1) => canvi_ + "aré" ;--# notpresent @@ -780,12 +819,12 @@ let canvi_ = Predef.tk 2 canviar in VP (Fut Sg P2) => canvi_ + "aràs" ;--# notpresent VP (Fut Pl P3) => canvi_ + "aran" ;--# notpresent VP (Fut Sg P3) => canvi_ + "arà" ;--# notpresent - VP (Pret Pl P1) => canvi_ + "éssim" ;--# notpresent - VP (Pret Sg P1) => canvi_ + "és" ;--# notpresent - VP (Pret Pl P2) => canvi_ + "éssiu" ;--# notpresent - VP (Pret Sg P2) => canvi_ + "essis" ;--# notpresent - VP (Pret Pl P3) => canvi_ + "essin" ;--# notpresent - VP (Pret Sg P3) => canvi_ + "és" ;--# notpresent + VP (Pret Pl P1) => canvi_ + "àrem" ;--# notpresent + VP (Pret Sg P1) => canvi_ + "í" ;--# notpresent + VP (Pret Pl P2) => canvi_ + "àreu" ;--# notpresent + VP (Pret Sg P2) => canvi_ + "ares" ;--# notpresent + VP (Pret Pl P3) => canvi_ + "aren" ;--# notpresent + VP (Pret Sg P3) => canvi_ + "à" ;--# notpresent VP (Cond Pl P1) => canvi_ + "aríem" ;--# notpresent VP (Cond Sg P1) => canvi_ + "aria" ;--# notpresent VP (Cond Pl P2) => canvi_ + "aríeu" ;--# notpresent @@ -811,7 +850,6 @@ let x_ = Predef.tk 5 caure in {s = table { VI Infn => x_ + "caure" ; VI Ger => x_ + "caient" ; - VI Part => x_ + "caigut" ; VP (Pres Ind Pl P1) => x_ + "caiem" ; VP (Pres Ind Sg P1) => x_ + "caic" ; VP (Pres Ind Pl P2) => x_ + "caieu" ; @@ -831,10 +869,14 @@ let x_ = Predef.tk 5 caure in VP (Impf Ind Pl P3) => x_ + "queien" ;--# notpresent VP (Impf Ind Sg P3) => x_ + "queia" ;--# notpresent VP (Impf Sub Pl P1) => x_ + "caiguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => x_ + "caiguéssem" ;--# notpresent VP (Impf Sub Sg P1) => x_ + "caigués" ;--# notpresent VP (Impf Sub Pl P2) => x_ + "caiguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => x_ + "caiguésseu" ;--# notpresent VP (Impf Sub Sg P2) => x_ + "caiguessis" ;--# notpresent + VP ImpfSubSgE => x_ + "caiguesses" ;--# notpresent VP (Impf Sub Pl P3) => x_ + "caiguessin" ;--# notpresent + VP (ImpfSubPlE P3) => x_ + "caiguessen" ;--# notpresent VP (Impf Sub Sg P3) => x_ + "caigués" ;--# notpresent VP (Fut Pl P1) => x_ + "caurem" ;--# notpresent VP (Fut Sg P1) => x_ + "cauré" ;--# notpresent @@ -842,12 +884,12 @@ let x_ = Predef.tk 5 caure in VP (Fut Sg P2) => x_ + "cauràs" ;--# notpresent VP (Fut Pl P3) => x_ + "cauran" ;--# notpresent VP (Fut Sg P3) => x_ + "caurà" ;--# notpresent - VP (Pret Pl P1) => x_ + "caiguéssim" ;--# notpresent - VP (Pret Sg P1) => x_ + "caigués" ;--# notpresent - VP (Pret Pl P2) => x_ + "caiguéssiu" ;--# notpresent - VP (Pret Sg P2) => x_ + "caiguessis" ;--# notpresent - VP (Pret Pl P3) => x_ + "caiguessin" ;--# notpresent - VP (Pret Sg P3) => x_ + "caigués" ;--# notpresent + VP (Pret Pl P1) => x_ + "caiguérem" ;--# notpresent + VP (Pret Sg P1) => x_ + "caiguí" ;--# notpresent + VP (Pret Pl P2) => x_ + "caiguéreu" ;--# notpresent + VP (Pret Sg P2) => x_ + "caigueres" ;--# notpresent + VP (Pret Pl P3) => x_ + "caigueren" ;--# notpresent + VP (Pret Sg P3) => x_ + "caigué" ;--# notpresent VP (Cond Pl P1) => x_ + "cauríem" ;--# notpresent VP (Cond Sg P1) => x_ + "cauria" ;--# notpresent VP (Cond Pl P2) => x_ + "cauríeu" ;--# notpresent @@ -872,7 +914,6 @@ let clo_ = Predef.tk 3 cloure in {s = table { VI Infn => clo_ + "ure" ; VI Ger => clo_ + "ent" ; - VI Part => clo_ + "s" ; VP (Pres Ind Pl P1) => clo_ + "em" ; VP (Pres Ind Sg P1) => clo_ + "c" ; VP (Pres Ind Pl P2) => clo_ + "eu" ; @@ -892,10 +933,14 @@ let clo_ = Predef.tk 3 cloure in VP (Impf Ind Pl P3) => clo_ + "ïen" ;--# notpresent VP (Impf Ind Sg P3) => clo_ + "ïa" ;--# notpresent VP (Impf Sub Pl P1) => clo_ + "guéssim" ;--# notpresent + VP (ImpfSubPlE P1) => clo_ + "guéssem" ;--# notpresent VP (Impf Sub Sg P1) => clo_ + "gués" ;--# notpresent VP (Impf Sub Pl P2) => clo_ + "guéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => clo_ + "guésseu" ;--# notpresent VP (Impf Sub Sg P2) => clo_ + "guessis" ;--# notpresent + VP ImpfSubSgE => clo_ + "guesses" ;--# notpresent VP (Impf Sub Pl P3) => clo_ + "guessin" ;--# notpresent + VP (ImpfSubPlE P3) => clo_ + "guessen" ;--# notpresent VP (Impf Sub Sg P3) => clo_ + "gués" ;--# notpresent VP (Fut Pl P1) => clo_ + "urem" ;--# notpresent VP (Fut Sg P1) => clo_ + "uré" ;--# notpresent @@ -903,12 +948,12 @@ let clo_ = Predef.tk 3 cloure in VP (Fut Sg P2) => clo_ + "uràs" ;--# notpresent VP (Fut Pl P3) => clo_ + "uran" ;--# notpresent VP (Fut Sg P3) => clo_ + "urà" ;--# notpresent - VP (Pret Pl P1) => clo_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => clo_ + "gués" ;--# notpresent - VP (Pret Pl P2) => clo_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => clo_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => clo_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => clo_ + "gués" ;--# notpresent + VP (Pret Pl P1) => clo_ + "guérem" ;--# notpresent + VP (Pret Sg P1) => clo_ + "guí" ;--# notpresent + VP (Pret Pl P2) => clo_ + "guéreu" ;--# notpresent + VP (Pret Sg P2) => clo_ + "gueres" ;--# notpresent + VP (Pret Pl P3) => clo_ + "gueren" ;--# notpresent + VP (Pret Sg P3) => clo_ + "gué" ;--# notpresent VP (Cond Pl P1) => clo_ + "uríem" ;--# notpresent VP (Cond Sg P1) => clo_ + "uria" ;--# notpresent VP (Cond Pl P2) => clo_ + "uríeu" ;--# notpresent @@ -928,14 +973,13 @@ VP (Imp Sg P1) => nonExist } } ; -oper cobrir_20 : Str -> Verbum = \cobrir -> +oper cobrir_20 : Str -> Bool -> Verbum = \cobrir,flag -> let cob_ = Predef.tk 3 cobrir in {s = table { VI Infn => cob_ + "rir" ; VI Ger => cob_ + "rint" ; - VI Part => cob_ + "ert" ; VP (Pres Ind Pl P1) => cob_ + "rim" ; - VP (Pres Ind Sg P1) => cob_ + "reixo" ; + VP (Pres Ind Sg P1) => case flag of {True => cob_ + "reixo"; _ => cob_ + "rixo"} ; VP (Pres Ind Pl P2) => cob_ + "riu" ; VP (Pres Ind Sg P2) => cob_ + "reixes" ; VP (Pres Ind Pl P3) => cob_ + "reixen" ; @@ -953,10 +997,14 @@ let cob_ = Predef.tk 3 cobrir in VP (Impf Ind Pl P3) => cob_ + "rien" ;--# notpresent VP (Impf Ind Sg P3) => cob_ + "ria" ;--# notpresent VP (Impf Sub Pl P1) => cob_ + "ríssim" ;--# notpresent + VP (ImpfSubPlE P1) => cob_ + "ríssem" ;--# notpresent VP (Impf Sub Sg P1) => cob_ + "rís" ;--# notpresent VP (Impf Sub Pl P2) => cob_ + "ríssiu" ;--# notpresent + VP (ImpfSubPlE P2) => cob_ + "rísseu" ;--# notpresent VP (Impf Sub Sg P2) => cob_ + "rissis" ;--# notpresent + VP ImpfSubSgE => cob_ + "risses" ;--# notpresent VP (Impf Sub Pl P3) => cob_ + "rissin" ;--# notpresent + VP (ImpfSubPlE P3) => cob_ + "rissen" ;--# notpresent VP (Impf Sub Sg P3) => cob_ + "rís" ;--# notpresent VP (Fut Pl P1) => cob_ + "rirem" ;--# notpresent VP (Fut Sg P1) => cob_ + "riré" ;--# notpresent @@ -964,12 +1012,12 @@ let cob_ = Predef.tk 3 cobrir in VP (Fut Sg P2) => cob_ + "riràs" ;--# notpresent VP (Fut Pl P3) => cob_ + "riran" ;--# notpresent VP (Fut Sg P3) => cob_ + "rirà" ;--# notpresent - VP (Pret Pl P1) => cob_ + "ríssim" ;--# notpresent - VP (Pret Sg P1) => cob_ + "rís" ;--# notpresent - VP (Pret Pl P2) => cob_ + "ríssiu" ;--# notpresent - VP (Pret Sg P2) => cob_ + "rissis" ;--# notpresent - VP (Pret Pl P3) => cob_ + "rissin" ;--# notpresent - VP (Pret Sg P3) => cob_ + "rís" ;--# notpresent + VP (Pret Pl P1) => cob_ + "rírem" ;--# notpresent + VP (Pret Sg P1) => cob_ + "rí" ;--# notpresent + VP (Pret Pl P2) => cob_ + "ríreu" ;--# notpresent + VP (Pret Sg P2) => cob_ + "rires" ;--# notpresent + VP (Pret Pl P3) => cob_ + "riren" ;--# notpresent + VP (Pret Sg P3) => cob_ + "rí" ;--# notpresent VP (Cond Pl P1) => cob_ + "riríem" ;--# notpresent VP (Cond Sg P1) => cob_ + "riria" ;--# notpresent VP (Cond Pl P2) => cob_ + "riríeu" ;--# notpresent @@ -994,7 +1042,6 @@ let c_ = Predef.tk 5 collir in {s = table { VI Infn => c_ + "ollir" ; VI Ger => c_ + "ollint" ; - VI Part => c_ + "ollit" ; VP (Pres Ind Pl P1) => c_ + "ollim" ; VP (Pres Ind Sg P1) => c_ + "ullo" ; VP (Pres Ind Pl P2) => c_ + "olliu" ; @@ -1014,10 +1061,14 @@ let c_ = Predef.tk 5 collir in VP (Impf Ind Pl P3) => c_ + "ollien" ;--# notpresent VP (Impf Ind Sg P3) => c_ + "ollia" ;--# notpresent VP (Impf Sub Pl P1) => c_ + "ollíssim" ;--# notpresent + VP (ImpfSubPlE P1) => c_ + "ollíssem" ;--# notpresent VP (Impf Sub Sg P1) => c_ + "ollís" ;--# notpresent VP (Impf Sub Pl P2) => c_ + "ollíssiu" ;--# notpresent + VP (ImpfSubPlE P2) => c_ + "ollísseu" ;--# notpresent VP (Impf Sub Sg P2) => c_ + "ollissis" ;--# notpresent + VP ImpfSubSgE => c_ + "ollisses" ;--# notpresent VP (Impf Sub Pl P3) => c_ + "ollissin" ;--# notpresent + VP (ImpfSubPlE P3) => c_ + "ollissen" ;--# notpresent VP (Impf Sub Sg P3) => c_ + "ollís" ;--# notpresent VP (Fut Pl P1) => c_ + "ollirem" ;--# notpresent VP (Fut Sg P1) => c_ + "olliré" ;--# notpresent @@ -1025,12 +1076,12 @@ let c_ = Predef.tk 5 collir in VP (Fut Sg P2) => c_ + "olliràs" ;--# notpresent VP (Fut Pl P3) => c_ + "olliran" ;--# notpresent VP (Fut Sg P3) => c_ + "ollirà" ;--# notpresent - VP (Pret Pl P1) => c_ + "ollíssim" ;--# notpresent - VP (Pret Sg P1) => c_ + "ollís" ;--# notpresent - VP (Pret Pl P2) => c_ + "ollíssiu" ;--# notpresent - VP (Pret Sg P2) => c_ + "ollissis" ;--# notpresent - VP (Pret Pl P3) => c_ + "ollissin" ;--# notpresent - VP (Pret Sg P3) => c_ + "ollís" ;--# notpresent + VP (Pret Pl P1) => c_ + "ollírem" ;--# notpresent + VP (Pret Sg P1) => c_ + "ollí" ;--# notpresent + VP (Pret Pl P2) => c_ + "ollíreu" ;--# notpresent + VP (Pret Sg P2) => c_ + "ollires" ;--# notpresent + VP (Pret Pl P3) => c_ + "olliren" ;--# notpresent + VP (Pret Sg P3) => c_ + "ollí" ;--# notpresent VP (Cond Pl P1) => c_ + "olliríem" ;--# notpresent VP (Cond Sg P1) => c_ + "olliria" ;--# notpresent VP (Cond Pl P2) => c_ + "olliríeu" ;--# notpresent @@ -1055,7 +1106,6 @@ let comen_ = Predef.tk 3 començar in {s = table { VI Infn => comen_ + "çar" ; VI Ger => comen_ + "çant" ; - VI Part => comen_ + "çat" ; VP (Pres Ind Pl P1) => comen_ + "cem" ; VP (Pres Ind Sg P1) => comen_ + "ço" ; VP (Pres Ind Pl P2) => comen_ + "ceu" ; @@ -1075,10 +1125,14 @@ let comen_ = Predef.tk 3 començar in VP (Impf Ind Pl P3) => comen_ + "çaven" ;--# notpresent VP (Impf Ind Sg P3) => comen_ + "çava" ;--# notpresent VP (Impf Sub Pl P1) => comen_ + "céssim" ;--# notpresent + VP (ImpfSubPlE P1) => comen_ + "céssem" ;--# notpresent VP (Impf Sub Sg P1) => comen_ + "cés" ;--# notpresent VP (Impf Sub Pl P2) => comen_ + "céssiu" ;--# notpresent + VP (ImpfSubPlE P2) => comen_ + "césseu" ;--# notpresent VP (Impf Sub Sg P2) => comen_ + "cessis" ;--# notpresent + VP ImpfSubSgE => comen_ + "cesses" ;--# notpresent VP (Impf Sub Pl P3) => comen_ + "cessin" ;--# notpresent + VP (ImpfSubPlE P3) => comen_ + "cessen" ;--# notpresent VP (Impf Sub Sg P3) => comen_ + "cés" ;--# notpresent VP (Fut Pl P1) => comen_ + "çarem" ;--# notpresent VP (Fut Sg P1) => comen_ + "çaré" ;--# notpresent @@ -1086,12 +1140,12 @@ let comen_ = Predef.tk 3 començar in VP (Fut Sg P2) => comen_ + "çaràs" ;--# notpresent VP (Fut Pl P3) => comen_ + "çaran" ;--# notpresent VP (Fut Sg P3) => comen_ + "çarà" ;--# notpresent - VP (Pret Pl P1) => comen_ + "céssim" ;--# notpresent - VP (Pret Sg P1) => comen_ + "cés" ;--# notpresent - VP (Pret Pl P2) => comen_ + "céssiu" ;--# notpresent - VP (Pret Sg P2) => comen_ + "cessis" ;--# notpresent - VP (Pret Pl P3) => comen_ + "cessin" ;--# notpresent - VP (Pret Sg P3) => comen_ + "cés" ;--# notpresent + VP (Pret Pl P1) => comen_ + "çàrem" ;--# notpresent + VP (Pret Sg P1) => comen_ + "cí" ;--# notpresent + VP (Pret Pl P2) => comen_ + "çàreu" ;--# notpresent + VP (Pret Sg P2) => comen_ + "çares" ;--# notpresent + VP (Pret Pl P3) => comen_ + "çaren" ;--# notpresent + VP (Pret Sg P3) => comen_ + "çà" ;--# notpresent VP (Cond Pl P1) => comen_ + "çaríem" ;--# notpresent VP (Cond Sg P1) => comen_ + "çaria" ;--# notpresent VP (Cond Pl P2) => comen_ + "çaríeu" ;--# notpresent @@ -1111,12 +1165,11 @@ VP (Imp Sg P1) => nonExist } } ; -oper commoure_23 : Str -> Verbum = \commoure -> +oper commoure_23 : Str -> Bool -> Verbum = \commoure,flag -> let commo_ = Predef.tk 3 commoure in {s = table { VI Infn => commo_ + "ure" ; VI Ger => commo_ + "vent" ; - VI Part => commo_ + "gut" ; VP (Pres Ind Pl P1) => commo_ + "vem" ; VP (Pres Ind Sg P1) => commo_ + "c" ; VP (Pres Ind Pl P2) => commo_ + "veu" ; @@ -1136,10 +1189,14 @@ let commo_ = Predef.tk 3 commoure in VP (Impf Ind Pl P3) => commo_ + "vien" ;--# notpresent VP (Impf Ind Sg P3) => commo_ + "via" ;--# notpresent VP (Impf Sub Pl P1) => commo_ + "guéssim" ;--# notpresent + VP (ImpfSubPlE P1) => commo_ + "guéssem" ;--# notpresent VP (Impf Sub Sg P1) => commo_ + "gués" ;--# notpresent VP (Impf Sub Pl P2) => commo_ + "guéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => commo_ + "guésseu" ;--# notpresent VP (Impf Sub Sg P2) => commo_ + "guessis" ;--# notpresent + VP ImpfSubSgE => commo_ + "guesses" ;--# notpresent VP (Impf Sub Pl P3) => commo_ + "guessin" ;--# notpresent + VP (ImpfSubPlE P3) => commo_ + "guessen" ;--# notpresent VP (Impf Sub Sg P3) => commo_ + "gués" ;--# notpresent VP (Fut Pl P1) => commo_ + "urem" ;--# notpresent VP (Fut Sg P1) => commo_ + "uré" ;--# notpresent @@ -1147,12 +1204,12 @@ let commo_ = Predef.tk 3 commoure in VP (Fut Sg P2) => commo_ + "uràs" ;--# notpresent VP (Fut Pl P3) => commo_ + "uran" ;--# notpresent VP (Fut Sg P3) => commo_ + "urà" ;--# notpresent - VP (Pret Pl P1) => commo_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => commo_ + "gués" ;--# notpresent - VP (Pret Pl P2) => commo_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => commo_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => commo_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => commo_ + "gués" ;--# notpresent + VP (Pret Pl P1) => commo_ + "guérem" ;--# notpresent + VP (Pret Sg P1) => commo_ + "guí" ;--# notpresent + VP (Pret Pl P2) => commo_ + "guéreu" ;--# notpresent + VP (Pret Sg P2) => commo_ + "gueres" ;--# notpresent + VP (Pret Pl P3) => commo_ + "gueren" ;--# notpresent + VP (Pret Sg P3) => commo_ + "gué" ;--# notpresent VP (Cond Pl P1) => commo_ + "uríem" ;--# notpresent VP (Cond Sg P1) => commo_ + "uria" ;--# notpresent VP (Cond Pl P2) => commo_ + "uríeu" ;--# notpresent @@ -1164,10 +1221,10 @@ let commo_ = Predef.tk 3 commoure in VP (Imp Sg P2) => commo_ + "u" ; VP (Imp Pl P3) => commo_ + "guin" ; VP (Imp Sg P3) => commo_ + "gui" ; - VP (Pass Pl Fem) => commo_ + "gudes" ; - VP (Pass Sg Fem) => commo_ + "guda" ; - VP (Pass Pl Masc) => commo_ + "guts" ; - VP (Pass Sg Masc) => commo_ + "gut" ; + VP (Pass Pl Fem) => case flag of {True => commo_ + "gudes"; _ => commo_ + "ses"} ; + VP (Pass Sg Fem) => case flag of {True => commo_ + "guda"; _ => commo_ + "sa"} ; + VP (Pass Pl Masc) => case flag of {True => commo_ + "guts"; _ => commo_ + "sos"} ; + VP (Pass Sg Masc) => case flag of {True => commo_ + "gut"; _ => commo_ + "òs"} ; VP (Imp Sg P1) => nonExist } } ; @@ -1177,7 +1234,6 @@ let compla_ = Predef.tk 3 complaure in {s = table { VI Infn => compla_ + "ure" ; VI Ger => compla_ + "ent" ; - VI Part => compla_ + "gut" ; VP (Pres Ind Pl P1) => compla_ + "em" ; VP (Pres Ind Sg P1) => compla_ + "c" ; VP (Pres Ind Pl P2) => compla_ + "eu" ; @@ -1197,10 +1253,14 @@ let compla_ = Predef.tk 3 complaure in VP (Impf Ind Pl P3) => compla_ + "ïen" ;--# notpresent VP (Impf Ind Sg P3) => compla_ + "ïa" ;--# notpresent VP (Impf Sub Pl P1) => compla_ + "guéssim" ;--# notpresent + VP (ImpfSubPlE P1) => compla_ + "guéssem" ;--# notpresent VP (Impf Sub Sg P1) => compla_ + "gués" ;--# notpresent VP (Impf Sub Pl P2) => compla_ + "guéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => compla_ + "guésseu" ;--# notpresent VP (Impf Sub Sg P2) => compla_ + "guessis" ;--# notpresent + VP ImpfSubSgE => compla_ + "guesses" ;--# notpresent VP (Impf Sub Pl P3) => compla_ + "guessin" ;--# notpresent + VP (ImpfSubPlE P3) => compla_ + "guessen" ;--# notpresent VP (Impf Sub Sg P3) => compla_ + "gués" ;--# notpresent VP (Fut Pl P1) => compla_ + "urem" ;--# notpresent VP (Fut Sg P1) => compla_ + "uré" ;--# notpresent @@ -1208,12 +1268,12 @@ let compla_ = Predef.tk 3 complaure in VP (Fut Sg P2) => compla_ + "uràs" ;--# notpresent VP (Fut Pl P3) => compla_ + "uran" ;--# notpresent VP (Fut Sg P3) => compla_ + "urà" ;--# notpresent - VP (Pret Pl P1) => compla_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => compla_ + "gués" ;--# notpresent - VP (Pret Pl P2) => compla_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => compla_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => compla_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => compla_ + "gués" ;--# notpresent + VP (Pret Pl P1) => compla_ + "guérem" ;--# notpresent + VP (Pret Sg P1) => compla_ + "guí" ;--# notpresent + VP (Pret Pl P2) => compla_ + "guéreu" ;--# notpresent + VP (Pret Sg P2) => compla_ + "gueres" ;--# notpresent + VP (Pret Pl P3) => compla_ + "gueren" ;--# notpresent + VP (Pret Sg P3) => compla_ + "gué" ;--# notpresent VP (Cond Pl P1) => compla_ + "uríem" ;--# notpresent VP (Cond Sg P1) => compla_ + "uria" ;--# notpresent VP (Cond Pl P2) => compla_ + "uríeu" ;--# notpresent @@ -1233,12 +1293,11 @@ VP (Imp Sg P1) => nonExist } } ; -oper complir_25 : Str -> Verbum = \complir -> +oper complir_25 : Str -> Bool -> Verbum = \complir,flag -> let compl_ = Predef.tk 2 complir in {s = table { VI Infn => compl_ + "ir" ; VI Ger => compl_ + "int" ; - VI Part => compl_ + "ert" ; VP (Pres Ind Pl P1) => compl_ + "im" ; VP (Pres Ind Sg P1) => compl_ + "eixo" ; VP (Pres Ind Pl P2) => compl_ + "iu" ; @@ -1258,10 +1317,14 @@ let compl_ = Predef.tk 2 complir in VP (Impf Ind Pl P3) => compl_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => compl_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => compl_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => compl_ + "íssem" ;--# notpresent VP (Impf Sub Sg P1) => compl_ + "ís" ;--# notpresent VP (Impf Sub Pl P2) => compl_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => compl_ + "ísseu" ;--# notpresent VP (Impf Sub Sg P2) => compl_ + "issis" ;--# notpresent + VP ImpfSubSgE => compl_ + "isses" ;--# notpresent VP (Impf Sub Pl P3) => compl_ + "issin" ;--# notpresent + VP (ImpfSubPlE P3) => compl_ + "issen" ;--# notpresent VP (Impf Sub Sg P3) => compl_ + "ís" ;--# notpresent VP (Fut Pl P1) => compl_ + "irem" ;--# notpresent VP (Fut Sg P1) => compl_ + "iré" ;--# notpresent @@ -1269,12 +1332,12 @@ let compl_ = Predef.tk 2 complir in VP (Fut Sg P2) => compl_ + "iràs" ;--# notpresent VP (Fut Pl P3) => compl_ + "iran" ;--# notpresent VP (Fut Sg P3) => compl_ + "irà" ;--# notpresent - VP (Pret Pl P1) => compl_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => compl_ + "ís" ;--# notpresent - VP (Pret Pl P2) => compl_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => compl_ + "issis" ;--# notpresent - VP (Pret Pl P3) => compl_ + "issin" ;--# notpresent - VP (Pret Sg P3) => compl_ + "ís" ;--# notpresent + VP (Pret Pl P1) => compl_ + "írem" ;--# notpresent + VP (Pret Sg P1) => compl_ + "í" ;--# notpresent + VP (Pret Pl P2) => compl_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => compl_ + "ires" ;--# notpresent + VP (Pret Pl P3) => compl_ + "iren" ;--# notpresent + VP (Pret Sg P3) => compl_ + "í" ;--# notpresent VP (Cond Pl P1) => compl_ + "iríem" ;--# notpresent VP (Cond Sg P1) => compl_ + "iria" ;--# notpresent VP (Cond Pl P2) => compl_ + "iríeu" ;--# notpresent @@ -1286,20 +1349,19 @@ let compl_ = Predef.tk 2 complir in VP (Imp Sg P2) => compl_ + "eix" ; VP (Imp Pl P3) => compl_ + "eixin" ; VP (Imp Sg P3) => compl_ + "eixi" ; - VP (Pass Pl Fem) => compl_ + "ertes" ; - VP (Pass Sg Fem) => compl_ + "erta" ; - VP (Pass Pl Masc) => compl_ + "erts" ; - VP (Pass Sg Masc) => compl_ + "ert" ; + VP (Pass Pl Fem) => case flag of {True => compl_ + "ertes"; _ => compl_ + "ides"} ; + VP (Pass Sg Fem) => case flag of {True => compl_ + "erta"; _ => compl_ + "ida"} ; + VP (Pass Pl Masc) => case flag of {True => compl_ + "erts"; _ => compl_ + "its"} ; + VP (Pass Sg Masc) => case flag of {True => compl_ + "ert"; _ => compl_ + "it"} ; VP (Imp Sg P1) => nonExist } } ; -oper compondre_26 : Str -> Verbum = \compondre -> +oper compondre_26 : Str -> Bool -> Verbum = \compondre,flag -> let compo_ = Predef.tk 4 compondre in {s = table { VI Infn => compo_ + "ndre" ; VI Ger => compo_ + "nent" ; - VI Part => compo_ + "st" ; VP (Pres Ind Pl P1) => compo_ + "nem" ; VP (Pres Ind Sg P1) => compo_ + "nc" ; VP (Pres Ind Pl P2) => compo_ + "neu" ; @@ -1319,10 +1381,14 @@ let compo_ = Predef.tk 4 compondre in VP (Impf Ind Pl P3) => compo_ + "nien" ;--# notpresent VP (Impf Ind Sg P3) => compo_ + "nia" ;--# notpresent VP (Impf Sub Pl P1) => compo_ + "nguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => compo_ + "nguéssem" ;--# notpresent VP (Impf Sub Sg P1) => compo_ + "ngués" ;--# notpresent VP (Impf Sub Pl P2) => compo_ + "nguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => compo_ + "nguésseu" ;--# notpresent VP (Impf Sub Sg P2) => compo_ + "nguessis" ;--# notpresent + VP ImpfSubSgE => compo_ + "nguesses" ;--# notpresent VP (Impf Sub Pl P3) => compo_ + "nguessin" ;--# notpresent + VP (ImpfSubPlE P3) => compo_ + "nguessen" ;--# notpresent VP (Impf Sub Sg P3) => compo_ + "ngués" ;--# notpresent VP (Fut Pl P1) => compo_ + "ndrem" ;--# notpresent VP (Fut Sg P1) => compo_ + "ndré" ;--# notpresent @@ -1330,12 +1396,12 @@ let compo_ = Predef.tk 4 compondre in VP (Fut Sg P2) => compo_ + "ndràs" ;--# notpresent VP (Fut Pl P3) => compo_ + "ndran" ;--# notpresent VP (Fut Sg P3) => compo_ + "ndrà" ;--# notpresent - VP (Pret Pl P1) => compo_ + "nguéssim" ;--# notpresent - VP (Pret Sg P1) => compo_ + "ngués" ;--# notpresent - VP (Pret Pl P2) => compo_ + "nguéssiu" ;--# notpresent - VP (Pret Sg P2) => compo_ + "nguessis" ;--# notpresent - VP (Pret Pl P3) => compo_ + "nguessin" ;--# notpresent - VP (Pret Sg P3) => compo_ + "ngués" ;--# notpresent + VP (Pret Pl P1) => compo_ + "nguérem" ;--# notpresent + VP (Pret Sg P1) => compo_ + "nguí" ;--# notpresent + VP (Pret Pl P2) => compo_ + "nguéreu" ;--# notpresent + VP (Pret Sg P2) => compo_ + "ngueres" ;--# notpresent + VP (Pret Pl P3) => compo_ + "ngueren" ;--# notpresent + VP (Pret Sg P3) => compo_ + "ngué" ;--# notpresent VP (Cond Pl P1) => compo_ + "ndríem" ;--# notpresent VP (Cond Sg P1) => compo_ + "ndria" ;--# notpresent VP (Cond Pl P2) => compo_ + "ndríeu" ;--# notpresent @@ -1349,7 +1415,7 @@ let compo_ = Predef.tk 4 compondre in VP (Imp Sg P3) => compo_ + "ngui" ; VP (Pass Pl Fem) => compo_ + "stes" ; VP (Pass Sg Fem) => compo_ + "sta" ; - VP (Pass Pl Masc) => compo_ + "sts" ; + VP (Pass Pl Masc) => case flag of {True => compo_ + "sts"; _ => compo_ + "stos"} ; VP (Pass Sg Masc) => compo_ + "st" ; VP (Imp Sg P1) => nonExist } @@ -1359,7 +1425,6 @@ oper conèixer_27 : Str -> Verbum = \conèixer -> let con_ = Predef.tk 5 conèixer in {s = table { VI Ger => con_ + "eixent" ; - VI Part => con_ + "egut" ; VP (Pres Ind Pl P1) => con_ + "eixem" ; VP (Pres Ind Sg P1) => con_ + "ec" ; VP (Pres Ind Pl P2) => con_ + "eixeu" ; @@ -1379,10 +1444,14 @@ let con_ = Predef.tk 5 conèixer in VP (Impf Ind Pl P3) => con_ + "eixien" ;--# notpresent VP (Impf Ind Sg P3) => con_ + "eixia" ;--# notpresent VP (Impf Sub Pl P1) => con_ + "eguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => con_ + "eguéssem" ;--# notpresent VP (Impf Sub Sg P1) => con_ + "egués" ;--# notpresent VP (Impf Sub Pl P2) => con_ + "eguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => con_ + "eguésseu" ;--# notpresent VP (Impf Sub Sg P2) => con_ + "eguessis" ;--# notpresent + VP ImpfSubSgE => con_ + "eguesses" ;--# notpresent VP (Impf Sub Pl P3) => con_ + "eguessin" ;--# notpresent + VP (ImpfSubPlE P3) => con_ + "eguessen" ;--# notpresent VP (Impf Sub Sg P3) => con_ + "egués" ;--# notpresent VP (Fut Pl P1) => con_ + "eixerem" ;--# notpresent VP (Fut Sg P1) => con_ + "eixeré" ;--# notpresent @@ -1390,12 +1459,12 @@ let con_ = Predef.tk 5 conèixer in VP (Fut Sg P2) => con_ + "eixeràs" ;--# notpresent VP (Fut Pl P3) => con_ + "eixeran" ;--# notpresent VP (Fut Sg P3) => con_ + "eixerà" ;--# notpresent - VP (Pret Pl P1) => con_ + "eguéssim" ;--# notpresent - VP (Pret Sg P1) => con_ + "egués" ;--# notpresent - VP (Pret Pl P2) => con_ + "eguéssiu" ;--# notpresent - VP (Pret Sg P2) => con_ + "eguessis" ;--# notpresent - VP (Pret Pl P3) => con_ + "eguessin" ;--# notpresent - VP (Pret Sg P3) => con_ + "egués" ;--# notpresent + VP (Pret Pl P1) => con_ + "eguérem" ;--# notpresent + VP (Pret Sg P1) => con_ + "eguí" ;--# notpresent + VP (Pret Pl P2) => con_ + "eguéreu" ;--# notpresent + VP (Pret Sg P2) => con_ + "egueres" ;--# notpresent + VP (Pret Pl P3) => con_ + "egueren" ;--# notpresent + VP (Pret Sg P3) => con_ + "egué" ;--# notpresent VP (Cond Pl P1) => con_ + "eixeríem" ;--# notpresent VP (Cond Sg P1) => con_ + "eixeria" ;--# notpresent VP (Cond Pl P2) => con_ + "eixeríeu" ;--# notpresent @@ -1440,10 +1509,14 @@ let conf_ = Predef.tk 5 confondre in VP (Impf Ind Pl P3) => conf_ + "onien" ;--# notpresent VP (Impf Ind Sg P3) => conf_ + "onia" ;--# notpresent VP (Impf Sub Pl P1) => conf_ + "onguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => conf_ + "onguéssem" ;--# notpresent VP (Impf Sub Sg P1) => conf_ + "ongués" ;--# notpresent VP (Impf Sub Pl P2) => conf_ + "onguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => conf_ + "onguésseu" ;--# notpresent VP (Impf Sub Sg P2) => conf_ + "onguessis" ;--# notpresent + VP ImpfSubSgE => conf_ + "onguesses" ;--# notpresent VP (Impf Sub Pl P3) => conf_ + "onguessin" ;--# notpresent + VP (ImpfSubPlE P3) => conf_ + "onguessen" ;--# notpresent VP (Impf Sub Sg P3) => conf_ + "ongués" ;--# notpresent VP (Fut Pl P1) => conf_ + "ondrem" ;--# notpresent VP (Fut Sg P1) => conf_ + "ondré" ;--# notpresent @@ -1451,12 +1524,12 @@ let conf_ = Predef.tk 5 confondre in VP (Fut Sg P2) => conf_ + "ondràs" ;--# notpresent VP (Fut Pl P3) => conf_ + "ondran" ;--# notpresent VP (Fut Sg P3) => conf_ + "ondrà" ;--# notpresent - VP (Pret Pl P1) => conf_ + "onguéssim" ;--# notpresent - VP (Pret Sg P1) => conf_ + "ongués" ;--# notpresent - VP (Pret Pl P2) => conf_ + "onguéssiu" ;--# notpresent - VP (Pret Sg P2) => conf_ + "onguessis" ;--# notpresent - VP (Pret Pl P3) => conf_ + "onguessin" ;--# notpresent - VP (Pret Sg P3) => conf_ + "ongués" ;--# notpresent + VP (Pret Pl P1) => conf_ + "onguérem" ;--# notpresent + VP (Pret Sg P1) => conf_ + "onguí" ;--# notpresent + VP (Pret Pl P2) => conf_ + "onguéreu" ;--# notpresent + VP (Pret Sg P2) => conf_ + "ongueres" ;--# notpresent + VP (Pret Pl P3) => conf_ + "ongueren" ;--# notpresent + VP (Pret Sg P3) => conf_ + "ongué" ;--# notpresent VP (Cond Pl P1) => conf_ + "ondríem" ;--# notpresent VP (Cond Sg P1) => conf_ + "ondria" ;--# notpresent VP (Cond Pl P2) => conf_ + "ondríeu" ;--# notpresent @@ -1471,7 +1544,6 @@ let conf_ = Predef.tk 5 confondre in VP (Pass Pl Fem) => conf_ + "oses" ; VP (Pass Sg Fem) => conf_ + "osa" ; VP (Pass Pl Masc) => conf_ + "osos" ; - VI Part => conf_ + "ós" ; VP (Pass Sg Masc) => conf_ + "ós" ; VP (Imp Sg P1) => nonExist } @@ -1481,7 +1553,6 @@ oper constrènyer_29 : Str -> Verbum = \constrènyer -> let constr_ = Predef.tk 5 constrènyer in {s = table { VI Ger => constr_ + "enyent" ; - VI Part => constr_ + "et" ; VP (Pres Ind Pl P1) => constr_ + "enyem" ; VP (Pres Ind Sg P1) => constr_ + "enyo" ; VP (Pres Ind Pl P2) => constr_ + "enyeu" ; @@ -1501,10 +1572,14 @@ let constr_ = Predef.tk 5 constrènyer in VP (Impf Ind Pl P3) => constr_ + "enyien" ;--# notpresent VP (Impf Ind Sg P3) => constr_ + "enyia" ;--# notpresent VP (Impf Sub Pl P1) => constr_ + "enyéssim" ;--# notpresent + VP (ImpfSubPlE P1) => constr_ + "enyéssem" ;--# notpresent VP (Impf Sub Sg P1) => constr_ + "enyés" ;--# notpresent VP (Impf Sub Pl P2) => constr_ + "enyéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => constr_ + "enyésseu" ;--# notpresent VP (Impf Sub Sg P2) => constr_ + "enyessis" ;--# notpresent + VP ImpfSubSgE => constr_ + "enyesses" ;--# notpresent VP (Impf Sub Pl P3) => constr_ + "enyessin" ;--# notpresent + VP (ImpfSubPlE P3) => constr_ + "enyessen" ;--# notpresent VP (Impf Sub Sg P3) => constr_ + "enyés" ;--# notpresent VP (Fut Pl P1) => constr_ + "enyerem" ;--# notpresent VP (Fut Sg P1) => constr_ + "enyeré" ;--# notpresent @@ -1512,12 +1587,12 @@ let constr_ = Predef.tk 5 constrènyer in VP (Fut Sg P2) => constr_ + "enyeràs" ;--# notpresent VP (Fut Pl P3) => constr_ + "enyeran" ;--# notpresent VP (Fut Sg P3) => constr_ + "enyerà" ;--# notpresent - VP (Pret Pl P1) => constr_ + "enyéssim" ;--# notpresent - VP (Pret Sg P1) => constr_ + "enyés" ;--# notpresent - VP (Pret Pl P2) => constr_ + "enyéssiu" ;--# notpresent - VP (Pret Sg P2) => constr_ + "enyessis" ;--# notpresent - VP (Pret Pl P3) => constr_ + "enyessin" ;--# notpresent - VP (Pret Sg P3) => constr_ + "enyés" ;--# notpresent + VP (Pret Pl P1) => constr_ + "enyérem" ;--# notpresent + VP (Pret Sg P1) => constr_ + "enyí" ;--# notpresent + VP (Pret Pl P2) => constr_ + "enyéreu" ;--# notpresent + VP (Pret Sg P2) => constr_ + "enyeres" ;--# notpresent + VP (Pret Pl P3) => constr_ + "enyeren" ;--# notpresent + VP (Pret Sg P3) => constr_ + "enyé" ;--# notpresent VP (Cond Pl P1) => constr_ + "enyeríem" ;--# notpresent VP (Cond Sg P1) => constr_ + "enyeria" ;--# notpresent VP (Cond Pl P2) => constr_ + "enyeríeu" ;--# notpresent @@ -1538,20 +1613,19 @@ VP (Imp Sg P1) => nonExist } } ; -oper córrer_30 : Str -> Verbum = \córrer -> +oper córrer_30 : Str -> Bool -> Verbum = \córrer,flag -> let c_ = Predef.tk 5 córrer in {s = table { VI Ger => c_ + "orrent" ; - VI Part => c_ + "orregut" ; VP (Pres Ind Pl P1) => c_ + "orrem" ; VP (Pres Ind Sg P1) => c_ + "orro" ; VP (Pres Ind Pl P2) => c_ + "orreu" ; VP (Pres Ind Sg P2) => c_ + "orres" ; VP (Pres Ind Pl P3) => c_ + "orren" ; VP (Pres Ind Sg P3) => c_ + "orre" ; - VP (Pres Sub Pl P1) => c_ + "orrem" ; + VP (Pres Sub Pl P1) => case flag of {True => c_ + "orrem"; _ => c_ + "orreguem"} ; VP (Pres Sub Sg P1) => c_ + "orri" ; - VP (Pres Sub Pl P2) => c_ + "orreu" ; + VP (Pres Sub Pl P2) => case flag of {True => c_ + "orreu"; _ => c_ + "orregueu"} ; VP (Pres Sub Sg P2) => c_ + "orris" ; VP (Pres Sub Pl P3) => c_ + "orrin" ; VP (Pres Sub Sg P3) => c_ + "orri" ; @@ -1562,10 +1636,14 @@ let c_ = Predef.tk 5 córrer in VP (Impf Ind Pl P3) => c_ + "orrien" ;--# notpresent VP (Impf Ind Sg P3) => c_ + "orria" ;--# notpresent VP (Impf Sub Pl P1) => c_ + "orreguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => c_ + "orreguéssem" ;--# notpresent VP (Impf Sub Sg P1) => c_ + "orregués" ;--# notpresent VP (Impf Sub Pl P2) => c_ + "orreguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => c_ + "orreguésseu" ;--# notpresent VP (Impf Sub Sg P2) => c_ + "orreguessis" ;--# notpresent + VP ImpfSubSgE => c_ + "orreguesses" ;--# notpresent VP (Impf Sub Pl P3) => c_ + "orreguessin" ;--# notpresent + VP (ImpfSubPlE P3) => c_ + "orreguessen" ;--# notpresent VP (Impf Sub Sg P3) => c_ + "orregués" ;--# notpresent VP (Fut Pl P1) => c_ + "orrerem" ;--# notpresent VP (Fut Sg P1) => c_ + "orreré" ;--# notpresent @@ -1573,19 +1651,19 @@ let c_ = Predef.tk 5 córrer in VP (Fut Sg P2) => c_ + "orreràs" ;--# notpresent VP (Fut Pl P3) => c_ + "orreran" ;--# notpresent VP (Fut Sg P3) => c_ + "orrerà" ;--# notpresent - VP (Pret Pl P1) => c_ + "orreguéssim" ;--# notpresent - VP (Pret Sg P1) => c_ + "orregués" ;--# notpresent - VP (Pret Pl P2) => c_ + "orreguéssiu" ;--# notpresent - VP (Pret Sg P2) => c_ + "orreguessis" ;--# notpresent - VP (Pret Pl P3) => c_ + "orreguessin" ;--# notpresent - VP (Pret Sg P3) => c_ + "orregués" ;--# notpresent + VP (Pret Pl P1) => c_ + "orreguérem" ;--# notpresent + VP (Pret Sg P1) => c_ + "orreguí" ;--# notpresent + VP (Pret Pl P2) => c_ + "orreguéreu" ;--# notpresent + VP (Pret Sg P2) => c_ + "orregueres" ;--# notpresent + VP (Pret Pl P3) => c_ + "orregueren" ;--# notpresent + VP (Pret Sg P3) => c_ + "orregué" ;--# notpresent VP (Cond Pl P1) => c_ + "orreríem" ;--# notpresent VP (Cond Sg P1) => c_ + "orreria" ;--# notpresent VP (Cond Pl P2) => c_ + "orreríeu" ;--# notpresent VP (Cond Sg P2) => c_ + "orreries" ;--# notpresent VP (Cond Pl P3) => c_ + "orrerien" ;--# notpresent VP (Cond Sg P3) => c_ + "orreria" ;--# notpresent - VP (Imp Pl P1) => c_ + "orrem" ; + VP (Imp Pl P1) => case flag of {True => c_ + "orrem"; _ => c_ + "orreguem"} ; VP (Imp Pl P2) => c_ + "orreu" ; VP (Imp Sg P2) => c_ + "orre" ; VP (Imp Pl P3) => c_ + "orrin" ; @@ -1604,7 +1682,6 @@ let c_ = Predef.tk 4 cosir in {s = table { VI Infn => c_ + "osir" ; VI Ger => c_ + "osint" ; - VI Part => c_ + "osit" ; VP (Pres Ind Pl P1) => c_ + "osim" ; VP (Pres Ind Sg P1) => c_ + "uso" ; VP (Pres Ind Pl P2) => c_ + "osiu" ; @@ -1624,10 +1701,14 @@ let c_ = Predef.tk 4 cosir in VP (Impf Ind Pl P3) => c_ + "osien" ;--# notpresent VP (Impf Ind Sg P3) => c_ + "osia" ;--# notpresent VP (Impf Sub Pl P1) => c_ + "osíssim" ;--# notpresent + VP (ImpfSubPlE P1) => c_ + "osíssem" ;--# notpresent VP (Impf Sub Sg P1) => c_ + "osís" ;--# notpresent VP (Impf Sub Pl P2) => c_ + "osíssiu" ;--# notpresent + VP (ImpfSubPlE P2) => c_ + "osísseu" ;--# notpresent VP (Impf Sub Sg P2) => c_ + "osissis" ;--# notpresent + VP ImpfSubSgE => c_ + "osisses" ;--# notpresent VP (Impf Sub Pl P3) => c_ + "osissin" ;--# notpresent + VP (ImpfSubPlE P3) => c_ + "osissen" ;--# notpresent VP (Impf Sub Sg P3) => c_ + "osís" ;--# notpresent VP (Fut Pl P1) => c_ + "osirem" ;--# notpresent VP (Fut Sg P1) => c_ + "osiré" ;--# notpresent @@ -1635,12 +1716,12 @@ let c_ = Predef.tk 4 cosir in VP (Fut Sg P2) => c_ + "osiràs" ;--# notpresent VP (Fut Pl P3) => c_ + "osiran" ;--# notpresent VP (Fut Sg P3) => c_ + "osirà" ;--# notpresent - VP (Pret Pl P1) => c_ + "osíssim" ;--# notpresent - VP (Pret Sg P1) => c_ + "osís" ;--# notpresent - VP (Pret Pl P2) => c_ + "osíssiu" ;--# notpresent - VP (Pret Sg P2) => c_ + "osissis" ;--# notpresent - VP (Pret Pl P3) => c_ + "osissin" ;--# notpresent - VP (Pret Sg P3) => c_ + "osís" ;--# notpresent + VP (Pret Pl P1) => c_ + "osírem" ;--# notpresent + VP (Pret Sg P1) => c_ + "osí" ;--# notpresent + VP (Pret Pl P2) => c_ + "osíreu" ;--# notpresent + VP (Pret Sg P2) => c_ + "osires" ;--# notpresent + VP (Pret Pl P3) => c_ + "osiren" ;--# notpresent + VP (Pret Sg P3) => c_ + "osí" ;--# notpresent VP (Cond Pl P1) => c_ + "osiríem" ;--# notpresent VP (Cond Sg P1) => c_ + "osiria" ;--# notpresent VP (Cond Pl P2) => c_ + "osiríeu" ;--# notpresent @@ -1665,7 +1746,6 @@ let c_ = Predef.tk 4 coure in {s = table { VI Infn => c_ + "oure" ; VI Ger => c_ + "oent" ; - VI Part => c_ + "uit" ; VP (Pres Ind Pl P1) => c_ + "oem" ; VP (Pres Ind Sg P1) => c_ + "oc" ; VP (Pres Ind Pl P2) => c_ + "oeu" ; @@ -1685,10 +1765,14 @@ let c_ = Predef.tk 4 coure in VP (Impf Ind Pl P3) => c_ + "oïen" ;--# notpresent VP (Impf Ind Sg P3) => c_ + "oïa" ;--# notpresent VP (Impf Sub Pl P1) => c_ + "oguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => c_ + "oguéssem" ;--# notpresent VP (Impf Sub Sg P1) => c_ + "ogués" ;--# notpresent VP (Impf Sub Pl P2) => c_ + "oguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => c_ + "oguésseu" ;--# notpresent VP (Impf Sub Sg P2) => c_ + "oguessis" ;--# notpresent + VP ImpfSubSgE => c_ + "oguesses" ;--# notpresent VP (Impf Sub Pl P3) => c_ + "oguessin" ;--# notpresent + VP (ImpfSubPlE P3) => c_ + "oguessen" ;--# notpresent VP (Impf Sub Sg P3) => c_ + "ogués" ;--# notpresent VP (Fut Pl P1) => c_ + "ourem" ;--# notpresent VP (Fut Sg P1) => c_ + "ouré" ;--# notpresent @@ -1696,12 +1780,12 @@ let c_ = Predef.tk 4 coure in VP (Fut Sg P2) => c_ + "ouràs" ;--# notpresent VP (Fut Pl P3) => c_ + "ouran" ;--# notpresent VP (Fut Sg P3) => c_ + "ourà" ;--# notpresent - VP (Pret Pl P1) => c_ + "oguéssim" ;--# notpresent - VP (Pret Sg P1) => c_ + "ogués" ;--# notpresent - VP (Pret Pl P2) => c_ + "oguéssiu" ;--# notpresent - VP (Pret Sg P2) => c_ + "oguessis" ;--# notpresent - VP (Pret Pl P3) => c_ + "oguessin" ;--# notpresent - VP (Pret Sg P3) => c_ + "ogués" ;--# notpresent + VP (Pret Pl P1) => c_ + "oguérem" ;--# notpresent + VP (Pret Sg P1) => c_ + "oguí" ;--# notpresent + VP (Pret Pl P2) => c_ + "oguéreu" ;--# notpresent + VP (Pret Sg P2) => c_ + "ogueres" ;--# notpresent + VP (Pret Pl P3) => c_ + "ogueren" ;--# notpresent + VP (Pret Sg P3) => c_ + "ogué" ;--# notpresent VP (Cond Pl P1) => c_ + "ouríem" ;--# notpresent VP (Cond Sg P1) => c_ + "ouria" ;--# notpresent VP (Cond Pl P2) => c_ + "ouríeu" ;--# notpresent @@ -1721,20 +1805,19 @@ VP (Imp Sg P1) => nonExist } } ; -oper créixer_33 : Str -> Verbum = \créixer -> +oper créixer_33 : Str -> Bool -> Verbum = \créixer,flag -> let cr_ = Predef.tk 5 créixer in {s = table { VI Ger => cr_ + "eixent" ; - VI Part => cr_ + "escut" ; VP (Pres Ind Pl P1) => cr_ + "eixem" ; VP (Pres Ind Sg P1) => cr_ + "eixo" ; VP (Pres Ind Pl P2) => cr_ + "eixeu" ; VP (Pres Ind Sg P2) => cr_ + "eixes" ; VP (Pres Ind Pl P3) => cr_ + "eixen" ; VP (Pres Ind Sg P3) => cr_ + "eix" ; - VP (Pres Sub Pl P1) => cr_ + "eixem" ; + VP (Pres Sub Pl P1) => case flag of {True => cr_ + "eixem"; _ => cr_ + "esquem"} ; VP (Pres Sub Sg P1) => cr_ + "eixi" ; - VP (Pres Sub Pl P2) => cr_ + "eixeu" ; + VP (Pres Sub Pl P2) => case flag of {True => cr_ + "eixeu"; _ => cr_ + "esqueu"} ; VP (Pres Sub Sg P2) => cr_ + "eixis" ; VP (Pres Sub Pl P3) => cr_ + "eixin" ; VP (Pres Sub Sg P3) => cr_ + "eixi" ; @@ -1744,31 +1827,35 @@ let cr_ = Predef.tk 5 créixer in VP (Impf Ind Sg P2) => cr_ + "eixies" ;--# notpresent VP (Impf Ind Pl P3) => cr_ + "eixien" ;--# notpresent VP (Impf Ind Sg P3) => cr_ + "eixia" ;--# notpresent - VP (Impf Sub Pl P1) => cr_ + "eixéssim" ;--# notpresent - VP (Impf Sub Sg P1) => cr_ + "eixés" ;--# notpresent - VP (Impf Sub Pl P2) => cr_ + "eixéssiu" ;--# notpresent - VP (Impf Sub Sg P2) => cr_ + "eixessis" ;--# notpresent - VP (Impf Sub Pl P3) => cr_ + "eixessin" ;--# notpresent - VP (Impf Sub Sg P3) => cr_ + "eixés" ;--# notpresent + VP (Impf Sub Pl P1) => case flag of {True => cr_ + "eixéssim"; _ => cr_ + "esquéssim"} ;--# notpresent + VP (ImpfSubPlE P1) => cr_ + "esquéssem" ;--# notpresent + VP (Impf Sub Sg P1) => case flag of {True => cr_ + "eixés"; _ => cr_ + "esqués"} ;--# notpresent + VP (Impf Sub Pl P2) => case flag of {True => cr_ + "eixéssiu"; _ => cr_ + "esquésseu"} ;--# notpresent + VP (ImpfSubPlE P2) => cr_ + "esquéssiu" ;--# notpresent + VP (Impf Sub Sg P2) => case flag of {True => cr_ + "eixessis"; _ => cr_ + "esquessis"} ;--# notpresent + VP ImpfSubSgE => cr_ + "esquesses" ;--# notpresent + VP (Impf Sub Pl P3) => case flag of {True => cr_ + "eixessin"; _ => cr_ + "esquessin"} ;--# notpresent + VP (ImpfSubPlE P3) => cr_ + "esquessen" ;--# notpresent + VP (Impf Sub Sg P3) => case flag of {True => cr_ + "eixés"; _ => cr_ + "esqués"} ;--# notpresent VP (Fut Pl P1) => cr_ + "eixerem" ;--# notpresent VP (Fut Sg P1) => cr_ + "eixeré" ;--# notpresent VP (Fut Pl P2) => cr_ + "eixereu" ;--# notpresent VP (Fut Sg P2) => cr_ + "eixeràs" ;--# notpresent VP (Fut Pl P3) => cr_ + "eixeran" ;--# notpresent VP (Fut Sg P3) => cr_ + "eixerà" ;--# notpresent - VP (Pret Pl P1) => cr_ + "eixéssim" ;--# notpresent - VP (Pret Sg P1) => cr_ + "eixés" ;--# notpresent - VP (Pret Pl P2) => cr_ + "eixéssiu" ;--# notpresent - VP (Pret Sg P2) => cr_ + "eixessis" ;--# notpresent - VP (Pret Pl P3) => cr_ + "eixessin" ;--# notpresent - VP (Pret Sg P3) => cr_ + "eixés" ;--# notpresent + VP (Pret Pl P1) => case flag of {True => cr_ + "eixérem"; _ => cr_ + "esquérem"} ;--# notpresent + VP (Pret Sg P1) => case flag of {True => cr_ + "eixí"; _ => cr_ + "esquí"} ;--# notpresent + VP (Pret Pl P2) => case flag of {True => cr_ + "eixéreu"; _ => cr_ + "esquéreu"} ;--# notpresent + VP (Pret Sg P2) => case flag of {True => cr_ + "eixeres"; _ => cr_ + "esqueres"} ;--# notpresent + VP (Pret Pl P3) => case flag of {True => cr_ + "eixeren"; _ => cr_ + "esqueren"} ;--# notpresent + VP (Pret Sg P3) => case flag of {True => cr_ + "eixé"; _ => cr_ + "esqué"} ;--# notpresent VP (Cond Pl P1) => cr_ + "eixeríem" ;--# notpresent VP (Cond Sg P1) => cr_ + "eixeria" ;--# notpresent VP (Cond Pl P2) => cr_ + "eixeríeu" ;--# notpresent VP (Cond Sg P2) => cr_ + "eixeries" ;--# notpresent VP (Cond Pl P3) => cr_ + "eixerien" ;--# notpresent VP (Cond Sg P3) => cr_ + "eixeria" ;--# notpresent - VP (Imp Pl P1) => cr_ + "eixem" ; + VP (Imp Pl P1) => case flag of {True => cr_ + "eixem"; _ => cr_ + "esquem"} ; VP (Imp Pl P2) => cr_ + "eixeu" ; VP (Imp Sg P2) => cr_ + "eix" ; VP (Imp Pl P3) => cr_ + "eixin" ; @@ -1787,7 +1874,6 @@ let cr_ = Predef.tk 4 creure in {s = table { VI Infn => cr_ + "eure" ; VI Ger => cr_ + "eient" ; - VI Part => cr_ + "egut" ; VP (Pres Ind Pl P1) => cr_ + "eiem" ; VP (Pres Ind Sg P1) => cr_ + "ec" ; VP (Pres Ind Pl P2) => cr_ + "eieu" ; @@ -1805,10 +1891,14 @@ let cr_ = Predef.tk 4 creure in VP (Impf Ind Pl P3) => cr_ + "eien" ;--# notpresent VP (Impf Ind Sg P3) => cr_ + "eia" ;--# notpresent VP (Impf Sub Pl P1) => cr_ + "eguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => cr_ + "eguéssem" ;--# notpresent VP (Impf Sub Sg P1) => cr_ + "egués" ;--# notpresent VP (Impf Sub Pl P2) => cr_ + "eguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => cr_ + "eguésseu" ;--# notpresent VP (Impf Sub Sg P2) => cr_ + "eguessis" ;--# notpresent + VP ImpfSubSgE => cr_ + "eguesses" ;--# notpresent VP (Impf Sub Pl P3) => cr_ + "eguessin" ;--# notpresent + VP (ImpfSubPlE P3) => cr_ + "eguessen" ;--# notpresent VP (Impf Sub Sg P3) => cr_ + "egués" ;--# notpresent VP (Fut Pl P1) => cr_ + "eurem" ;--# notpresent VP (Fut Sg P1) => cr_ + "euré" ;--# notpresent @@ -1816,12 +1906,12 @@ let cr_ = Predef.tk 4 creure in VP (Fut Sg P2) => cr_ + "euràs" ;--# notpresent VP (Fut Pl P3) => cr_ + "euran" ;--# notpresent VP (Fut Sg P3) => cr_ + "eurà" ;--# notpresent - VP (Pret Pl P1) => cr_ + "eguéssim" ;--# notpresent - VP (Pret Sg P1) => cr_ + "egués" ;--# notpresent - VP (Pret Pl P2) => cr_ + "eguéssiu" ;--# notpresent - VP (Pret Sg P2) => cr_ + "eguessis" ;--# notpresent - VP (Pret Pl P3) => cr_ + "eguessin" ;--# notpresent - VP (Pret Sg P3) => cr_ + "egués" ;--# notpresent + VP (Pret Pl P1) => cr_ + "eguérem" ;--# notpresent + VP (Pret Sg P1) => cr_ + "eguí" ;--# notpresent + VP (Pret Pl P2) => cr_ + "eguéreu" ;--# notpresent + VP (Pret Sg P2) => cr_ + "egueres" ;--# notpresent + VP (Pret Pl P3) => cr_ + "egueren" ;--# notpresent + VP (Pret Sg P3) => cr_ + "egué" ;--# notpresent VP (Cond Pl P1) => cr_ + "euríem" ;--# notpresent VP (Cond Sg P1) => cr_ + "euria" ;--# notpresent VP (Cond Pl P2) => cr_ + "euríeu" ;--# notpresent @@ -1867,10 +1957,14 @@ let dep_ = Predef.tk 5 dependre in VP (Impf Ind Pl P3) => dep_ + "enien" ;--# notpresent VP (Impf Ind Sg P3) => dep_ + "enia" ;--# notpresent VP (Impf Sub Pl P1) => dep_ + "enguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => dep_ + "enguéssem" ;--# notpresent VP (Impf Sub Sg P1) => dep_ + "engués" ;--# notpresent VP (Impf Sub Pl P2) => dep_ + "enguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => dep_ + "enguésseu" ;--# notpresent VP (Impf Sub Sg P2) => dep_ + "enguessis" ;--# notpresent + VP ImpfSubSgE => dep_ + "enguesses" ;--# notpresent VP (Impf Sub Pl P3) => dep_ + "enguessin" ;--# notpresent + VP (ImpfSubPlE P3) => dep_ + "enguessen" ;--# notpresent VP (Impf Sub Sg P3) => dep_ + "engués" ;--# notpresent VP (Fut Pl P1) => dep_ + "endrem" ;--# notpresent VP (Fut Sg P1) => dep_ + "endré" ;--# notpresent @@ -1878,12 +1972,12 @@ let dep_ = Predef.tk 5 dependre in VP (Fut Sg P2) => dep_ + "endràs" ;--# notpresent VP (Fut Pl P3) => dep_ + "endran" ;--# notpresent VP (Fut Sg P3) => dep_ + "endrà" ;--# notpresent - VP (Pret Pl P1) => dep_ + "enguéssim" ;--# notpresent - VP (Pret Sg P1) => dep_ + "engués" ;--# notpresent - VP (Pret Pl P2) => dep_ + "enguéssiu" ;--# notpresent - VP (Pret Sg P2) => dep_ + "enguessis" ;--# notpresent - VP (Pret Pl P3) => dep_ + "enguessin" ;--# notpresent - VP (Pret Sg P3) => dep_ + "engués" ;--# notpresent + VP (Pret Pl P1) => dep_ + "enguérem" ;--# notpresent + VP (Pret Sg P1) => dep_ + "enguí" ;--# notpresent + VP (Pret Pl P2) => dep_ + "enguéreu" ;--# notpresent + VP (Pret Sg P2) => dep_ + "engueres" ;--# notpresent + VP (Pret Pl P3) => dep_ + "engueren" ;--# notpresent + VP (Pret Sg P3) => dep_ + "engué" ;--# notpresent VP (Cond Pl P1) => dep_ + "endríem" ;--# notpresent VP (Cond Sg P1) => dep_ + "endria" ;--# notpresent VP (Cond Pl P2) => dep_ + "endríeu" ;--# notpresent @@ -1897,10 +1991,9 @@ let dep_ = Predef.tk 5 dependre in VP (Pass Pl Fem) => dep_ + "eses" ; VP (Pass Sg Fem) => dep_ + "esa" ; VP (Pass Pl Masc) => dep_ + "esos" ; - VI Part => dep_ + "ès" ; VP (Pres Ind Sg P3) => dep_ + "èn" ; VP (Pass Sg Masc) => dep_ + "ès" ; - VP (Imp Sg P2) => dep_ + "én" ; + VP (Imp Sg P2) => dep_ + "èn" ; VP (Imp Sg P1) => nonExist } } ; @@ -1912,7 +2005,6 @@ let desf_ = Predef.tk 2 desfer in {s = table { VI Infn => desf_ + "er" ; VI Ger => desf_ + "ent" ; - VI Part => desf_ + "et" ; VP (Pres Ind Pl P1) => desf_ + "em" ; VP (Pres Ind Sg P1) => desf_ + "aig" ; VP (Pres Ind Pl P2) => desf_ + "eu" ; @@ -1932,10 +2024,14 @@ let desf_ = Predef.tk 2 desfer in VP (Impf Ind Pl P3) => desf_ + "eien" ;--# notpresent VP (Impf Ind Sg P3) => desf_ + "eia" ;--# notpresent VP (Impf Sub Pl P1) => desf_ + "éssim" ;--# notpresent + VP (ImpfSubPlE P1) => desf_ + "éssem" ;--# notpresent VP (Impf Sub Sg P1) => desf_ + "és" ;--# notpresent VP (Impf Sub Pl P2) => desf_ + "éssiu" ;--# notpresent + VP (ImpfSubPlE P2) => desf_ + "ésseu" ;--# notpresent VP (Impf Sub Sg P2) => desf_ + "essis" ;--# notpresent + VP ImpfSubSgE => desf_ + "esses" ;--# notpresent VP (Impf Sub Pl P3) => desf_ + "essin" ;--# notpresent + VP (ImpfSubPlE P3) => desf_ + "essen" ;--# notpresent VP (Impf Sub Sg P3) => desf_ + "és" ;--# notpresent VP (Fut Pl P1) => desf_ + "arem" ;--# notpresent VP (Fut Sg P1) => desf_ + "aré" ;--# notpresent @@ -1943,12 +2039,12 @@ let desf_ = Predef.tk 2 desfer in VP (Fut Sg P2) => desf_ + "aràs" ;--# notpresent VP (Fut Pl P3) => desf_ + "aran" ;--# notpresent VP (Fut Sg P3) => desf_ + "arà" ;--# notpresent - VP (Pret Pl P1) => desf_ + "éssim" ;--# notpresent - VP (Pret Sg P1) => desf_ + "és" ;--# notpresent - VP (Pret Pl P2) => desf_ + "éssiu" ;--# notpresent - VP (Pret Sg P2) => desf_ + "essis" ;--# notpresent - VP (Pret Pl P3) => desf_ + "essin" ;--# notpresent - VP (Pret Sg P3) => desf_ + "és" ;--# notpresent + VP (Pret Pl P1) => desf_ + "érem" ;--# notpresent + VP (Pret Sg P1) => desf_ + "iu" ;--# notpresent + VP (Pret Pl P2) => desf_ + "éreu" ;--# notpresent + VP (Pret Sg P2) => desf_ + "eres" ;--# notpresent + VP (Pret Pl P3) => desf_ + "eren" ;--# notpresent + VP (Pret Sg P3) => desf_ + "éu" ;--# notpresent VP (Cond Pl P1) => desf_ + "aríem" ;--# notpresent VP (Cond Sg P1) => desf_ + "aria" ;--# notpresent VP (Cond Pl P2) => desf_ + "aríeu" ;--# notpresent @@ -1969,115 +2065,65 @@ VP (Imp Sg P1) => nonExist } ; oper deure_40 : Str -> Verbum = \deure -> -let x_ = Predef.tk 5 deure in +let de_ = Predef.tk 3 deure in {s = table { - VI Infn => x_ + "ure" ; - VI Ger => x_ + "vent" ; - VI Part => x_ + "gut" ; - VP (Pres Ind Pl P1) => x_ + "vem" ; - VP (Pres Ind Sg P1) => x_ + "c" ; - VP (Pres Ind Pl P2) => x_ + "veu" ; - VP (Pres Ind Sg P2) => x_ + "us" ; - VP (Pres Ind Pl P3) => x_ + "uen" ; - VP (Pres Ind Sg P3) => x_ + "u" ; - VP (Pres Sub Pl P1) => x_ + "guem" ; - VP (Pres Sub Sg P1) => x_ + "gui" ; - VP (Pres Sub Pl P2) => x_ + "gueu" ; - VP (Pres Sub Sg P2) => x_ + "guis" ; - VP (Pres Sub Pl P3) => x_ + "guin" ; - VP (Pres Sub Sg P3) => x_ + "gui" ; - VP (Impf Ind Pl P1) => x_ + "víem" ;--# notpresent - VP (Impf Ind Sg P1) => x_ + "via" ;--# notpresent - VP (Impf Ind Pl P2) => x_ + "víeu" ;--# notpresent - VP (Impf Ind Sg P2) => x_ + "vies" ;--# notpresent - VP (Impf Ind Pl P3) => x_ + "vien" ;--# notpresent - VP (Impf Ind Sg P3) => x_ + "via" ;--# notpresent - VP (Impf Sub Pl P1) => x_ + "guéssim" ;--# notpresent - VP (Impf Sub Sg P1) => x_ + "gués" ;--# notpresent - VP (Impf Sub Pl P2) => x_ + "guéssiu" ;--# notpresent - VP (Impf Sub Sg P2) => x_ + "guessis" ;--# notpresent - VP (Impf Sub Pl P3) => x_ + "guessin" ;--# notpresent - VP (Impf Sub Sg P3) => x_ + "gués" ;--# notpresent - VP (Fut Pl P1) => x_ + "urem" ;--# notpresent - VP (Fut Sg P1) => x_ + "uré" ;--# notpresent - VP (Fut Pl P2) => x_ + "ureu" ;--# notpresent - VP (Fut Sg P2) => x_ + "uràs" ;--# notpresent - VP (Fut Pl P3) => x_ + "uran" ;--# notpresent - VP (Fut Sg P3) => x_ + "urà" ;--# notpresent - VP (Pret Pl P1) => x_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => x_ + "gués" ;--# notpresent - VP (Pret Pl P2) => x_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => x_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => x_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => x_ + "gués" ;--# notpresent - VP (Cond Pl P1) => x_ + "uríem" ;--# notpresent - VP (Cond Sg P1) => x_ + "uria" ;--# notpresent - VP (Cond Pl P2) => x_ + "uríeu" ;--# notpresent - VP (Cond Sg P2) => x_ + "uries" ;--# notpresent - VP (Cond Pl P3) => x_ + "urien" ;--# notpresent - VP (Cond Sg P3) => x_ + "uria" ;--# notpresent - VP (Imp Pl P1) => x_ + "guem" ; - VP (Imp Pl P2) => x_ + "veu" ; - VP (Imp Sg P2) => x_ + "u" ; - VP (Imp Pl P3) => x_ + "guin" ; - VP (Imp Sg P3) => x_ + "gui" ; - VP (Pass Pl Fem) => x_ + "gudes" ; - VP (Pass Sg Fem) => x_ + "guda" ; - VP (Pass Pl Masc) => x_ + "guts" ; - VP (Pass Sg Masc) => x_ + "gut" ; - - -{- -- AR removed these duplicates - VI Infn => x_ + "ure" ; - VI Ger => x_ + "vent" ; - VI Part => x_ + "gut" ; - VP (Pres Ind Pl P1) => x_ + "vem" ; - VP (Pres Ind Sg P1) => x_ + "c" ; - VP (Pres Ind Pl P2) => x_ + "veu" ; - VP (Pres Ind Sg P2) => x_ + "us" ; - VP (Pres Ind Pl P3) => x_ + "uen" ; - VP (Pres Ind Sg P3) => x_ + "u" ; - VP (Pres Sub Pl P1) => x_ + "guem" ; - VP (Pres Sub Sg P1) => x_ + "gui" ; - VP (Pres Sub Pl P2) => x_ + "gueu" ; - VP (Pres Sub Sg P2) => x_ + "guis" ; - VP (Pres Sub Pl P3) => x_ + "guin" ; - VP (Pres Sub Sg P3) => x_ + "gui" ; - VP (Impf Ind Pl P1) => x_ + "víem" ;--# notpresent - VP (Impf Ind Sg P1) => x_ + "via" ;--# notpresent - VP (Impf Ind Pl P2) => x_ + "víeu" ;--# notpresent - VP (Impf Ind Sg P2) => x_ + "vies" ;--# notpresent - VP (Impf Ind Pl P3) => x_ + "vien" ;--# notpresent - VP (Impf Ind Sg P3) => x_ + "via" ;--# notpresent - VP (Impf Sub Pl P1) => x_ + "guéssim" ;--# notpresent - VP (Impf Sub Sg P1) => x_ + "gués" ;--# notpresent - VP (Impf Sub Pl P2) => x_ + "guéssiu" ;--# notpresent - VP (Impf Sub Sg P2) => x_ + "guessis" ;--# notpresent - VP (Impf Sub Pl P3) => x_ + "guessin" ;--# notpresent - VP (Impf Sub Sg P3) => x_ + "gués" ;--# notpresent - VP (Fut Pl P1) => x_ + "urem" ;--# notpresent - VP (Fut Sg P1) => x_ + "uré" ;--# notpresent - VP (Fut Pl P2) => x_ + "ureu" ;--# notpresent - VP (Fut Sg P2) => x_ + "uràs" ;--# notpresent - VP (Fut Pl P3) => x_ + "uran" ;--# notpresent - VP (Fut Sg P3) => x_ + "urà" ;--# notpresent - VP (Pret Pl P1) => x_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => x_ + "gués" ;--# notpresent - VP (Pret Pl P2) => x_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => x_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => x_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => x_ + "gués" ;--# notpresent - VP (Cond Pl P1) => x_ + "uríem" ;--# notpresent - VP (Cond Sg P1) => x_ + "uria" ;--# notpresent - VP (Cond Pl P2) => x_ + "uríeu" ;--# notpresent - VP (Cond Sg P2) => x_ + "uries" ;--# notpresent - VP (Cond Pl P3) => x_ + "urien" ;--# notpresent - VP (Cond Sg P3) => x_ + "uria" ;--# notpresent - VP (Pass Pl Fem) => x_ + "gudes" ; - VP (Pass Sg Fem) => x_ + "guda" ; - VP (Pass Pl Masc) => x_ + "guts" ; - VP (Pass Sg Masc) => x_ + "gut" ; --} + VI Infn => de_ + "ure" ; + VI Ger => de_ + "vent" ; + VP (Pres Ind Pl P1) => de_ + "vem" ; + VP (Pres Ind Sg P1) => de_ + "c" ; + VP (Pres Ind Pl P2) => de_ + "veu" ; + VP (Pres Ind Sg P2) => de_ + "us" ; + VP (Pres Ind Pl P3) => de_ + "uen" ; + VP (Pres Ind Sg P3) => de_ + "u" ; + VP (Pres Sub Pl P1) => de_ + "guem" ; + VP (Pres Sub Sg P1) => de_ + "gui" ; + VP (Pres Sub Pl P2) => de_ + "gueu" ; + VP (Pres Sub Sg P2) => de_ + "guis" ; + VP (Pres Sub Pl P3) => de_ + "guin" ; + VP (Pres Sub Sg P3) => de_ + "gui" ; + VP (Impf Ind Pl P1) => de_ + "víem" ;--# notpresent + VP (Impf Ind Sg P1) => de_ + "via" ;--# notpresent + VP (Impf Ind Pl P2) => de_ + "víeu" ;--# notpresent + VP (Impf Ind Sg P2) => de_ + "vies" ;--# notpresent + VP (Impf Ind Pl P3) => de_ + "vien" ;--# notpresent + VP (Impf Ind Sg P3) => de_ + "via" ;--# notpresent + VP (Impf Sub Pl P1) => de_ + "guéssim" ;--# notpresent + VP (ImpfSubPlE P1) => de_ + "guéssem" ;--# notpresent + VP (Impf Sub Sg P1) => de_ + "gués" ;--# notpresent + VP (Impf Sub Pl P2) => de_ + "guéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => de_ + "guésseu" ;--# notpresent + VP (Impf Sub Sg P2) => de_ + "guessis" ;--# notpresent + VP ImpfSubSgE => de_ + "guesses" ;--# notpresent + VP (Impf Sub Pl P3) => de_ + "guessin" ;--# notpresent + VP (ImpfSubPlE P3) => de_ + "guessen" ;--# notpresent + VP (Impf Sub Sg P3) => de_ + "gués" ;--# notpresent + VP (Fut Pl P1) => de_ + "urem" ;--# notpresent + VP (Fut Sg P1) => de_ + "uré" ;--# notpresent + VP (Fut Pl P2) => de_ + "ureu" ;--# notpresent + VP (Fut Sg P2) => de_ + "uràs" ;--# notpresent + VP (Fut Pl P3) => de_ + "uran" ;--# notpresent + VP (Fut Sg P3) => de_ + "urà" ;--# notpresent + VP (Pret Pl P1) => de_ + "guérem" ;--# notpresent + VP (Pret Sg P1) => de_ + "guí" ;--# notpresent + VP (Pret Pl P2) => de_ + "guéreu" ;--# notpresent + VP (Pret Sg P2) => de_ + "gueres" ;--# notpresent + VP (Pret Pl P3) => de_ + "gueren" ;--# notpresent + VP (Pret Sg P3) => de_ + "gué" ;--# notpresent + VP (Cond Pl P1) => de_ + "uríem" ;--# notpresent + VP (Cond Sg P1) => de_ + "uria" ;--# notpresent + VP (Cond Pl P2) => de_ + "uríeu" ;--# notpresent + VP (Cond Sg P2) => de_ + "uries" ;--# notpresent + VP (Cond Pl P3) => de_ + "urien" ;--# notpresent + VP (Cond Sg P3) => de_ + "uria" ;--# notpresent + VP (Imp Pl P1) => de_ + "guem" ; + VP (Imp Pl P2) => de_ + "veu" ; + VP (Imp Sg P2) => de_ + "u" ; + VP (Imp Pl P3) => de_ + "guin" ; + VP (Imp Sg P3) => de_ + "gui" ; + VP (Pass Pl Fem) => de_ + "gudes" ; + VP (Pass Sg Fem) => de_ + "guda" ; + VP (Pass Pl Masc) => de_ + "guts" ; + VP (Pass Sg Masc) => de_ + "gut" ; VP (Imp Sg P1) => nonExist } } ; @@ -2087,7 +2133,6 @@ let d_ = Predef.tk 2 dir in {s = table { VI Infn => d_ + "ir" ; VI Ger => d_ + "ient" ; - VI Part => d_ + "it" ; VP (Pres Ind Pl P1) => d_ + "iem" ; VP (Pres Ind Sg P1) => d_ + "ic" ; VP (Pres Ind Pl P2) => d_ + "ieu" ; @@ -2107,10 +2152,14 @@ let d_ = Predef.tk 2 dir in VP (Impf Ind Pl P3) => d_ + "eien" ;--# notpresent VP (Impf Ind Sg P3) => d_ + "eia" ;--# notpresent VP (Impf Sub Pl P1) => d_ + "iguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => d_ + "iguéssem" ;--# notpresent VP (Impf Sub Sg P1) => d_ + "igués" ;--# notpresent VP (Impf Sub Pl P2) => d_ + "iguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => d_ + "iguésseu" ;--# notpresent VP (Impf Sub Sg P2) => d_ + "iguessis" ;--# notpresent + VP ImpfSubSgE => d_ + "iguesses" ;--# notpresent VP (Impf Sub Pl P3) => d_ + "iguessin" ;--# notpresent + VP (ImpfSubPlE P3) => d_ + "iguessen" ;--# notpresent VP (Impf Sub Sg P3) => d_ + "igués" ;--# notpresent VP (Fut Pl P1) => d_ + "irem" ;--# notpresent VP (Fut Sg P1) => d_ + "iré" ;--# notpresent @@ -2118,12 +2167,12 @@ let d_ = Predef.tk 2 dir in VP (Fut Sg P2) => d_ + "iràs" ;--# notpresent VP (Fut Pl P3) => d_ + "iran" ;--# notpresent VP (Fut Sg P3) => d_ + "irà" ;--# notpresent - VP (Pret Pl P1) => d_ + "iguéssim" ;--# notpresent - VP (Pret Sg P1) => d_ + "igués" ;--# notpresent - VP (Pret Pl P2) => d_ + "iguéssiu" ;--# notpresent - VP (Pret Sg P2) => d_ + "iguessis" ;--# notpresent - VP (Pret Pl P3) => d_ + "iguessin" ;--# notpresent - VP (Pret Sg P3) => d_ + "igués" ;--# notpresent + VP (Pret Pl P1) => d_ + "iguérem" ;--# notpresent + VP (Pret Sg P1) => d_ + "iguí" ;--# notpresent + VP (Pret Pl P2) => d_ + "iguéreu" ;--# notpresent + VP (Pret Sg P2) => d_ + "igueres" ;--# notpresent + VP (Pret Pl P3) => d_ + "igueren" ;--# notpresent + VP (Pret Sg P3) => d_ + "igué" ;--# notpresent VP (Cond Pl P1) => d_ + "iríem" ;--# notpresent VP (Cond Sg P1) => d_ + "iria" ;--# notpresent VP (Cond Pl P2) => d_ + "iríeu" ;--# notpresent @@ -2143,12 +2192,11 @@ VP (Imp Sg P1) => nonExist } } ; -oper doldre_42 : Str -> Verbum = \doldre -> +oper doldre_42 : Str -> Bool -> Verbum = \doldre,flag -> let dol_ = Predef.tk 3 doldre in {s = table { - VI Infn => dol_ + "dre" ; + VI Infn => case flag of {True => dol_ + "dre"; _ => dol_ + "er"} ; VI Ger => dol_ + "ent" ; - VI Part => dol_ + "gut" ; VP (Pres Ind Pl P1) => dol_ + "em" ; VP (Pres Ind Sg P1) => dol_ + "c" ; VP (Pres Ind Pl P2) => dol_ + "eu" ; @@ -2168,10 +2216,14 @@ let dol_ = Predef.tk 3 doldre in VP (Impf Ind Pl P3) => dol_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => dol_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => dol_ + "guéssim" ;--# notpresent + VP (ImpfSubPlE P1) => dol_ + "guéssem" ;--# notpresent VP (Impf Sub Sg P1) => dol_ + "gués" ;--# notpresent VP (Impf Sub Pl P2) => dol_ + "guéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => dol_ + "guésseu" ;--# notpresent VP (Impf Sub Sg P2) => dol_ + "guessis" ;--# notpresent + VP ImpfSubSgE => dol_ + "guesses" ;--# notpresent VP (Impf Sub Pl P3) => dol_ + "guessin" ;--# notpresent + VP (ImpfSubPlE P3) => dol_ + "guessen" ;--# notpresent VP (Impf Sub Sg P3) => dol_ + "gués" ;--# notpresent VP (Fut Pl P1) => dol_ + "drem" ;--# notpresent VP (Fut Sg P1) => dol_ + "dré" ;--# notpresent @@ -2179,12 +2231,12 @@ let dol_ = Predef.tk 3 doldre in VP (Fut Sg P2) => dol_ + "dràs" ;--# notpresent VP (Fut Pl P3) => dol_ + "dran" ;--# notpresent VP (Fut Sg P3) => dol_ + "drà" ;--# notpresent - VP (Pret Pl P1) => dol_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => dol_ + "gués" ;--# notpresent - VP (Pret Pl P2) => dol_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => dol_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => dol_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => dol_ + "gués" ;--# notpresent + VP (Pret Pl P1) => dol_ + "guérem" ;--# notpresent + VP (Pret Sg P1) => dol_ + "guí" ;--# notpresent + VP (Pret Pl P2) => dol_ + "guéreu" ;--# notpresent + VP (Pret Sg P2) => dol_ + "gueres" ;--# notpresent + VP (Pret Pl P3) => dol_ + "gueren" ;--# notpresent + VP (Pret Sg P3) => dol_ + "gué" ;--# notpresent VP (Cond Pl P1) => dol_ + "dríem" ;--# notpresent VP (Cond Sg P1) => dol_ + "dria" ;--# notpresent VP (Cond Pl P2) => dol_ + "dríeu" ;--# notpresent @@ -2204,63 +2256,66 @@ VP (Imp Sg P1) => nonExist } } ; -oper donar_43 : Str -> Verbum = \donar -> +oper donar_43 : Str -> Bool -> Verbum = \donar,flag -> let d_ = Predef.tk 4 donar in {s = table { - VI Infn => d_ + "onar" ; - VI Ger => d_ + "onant" ; - VI Part => d_ + "onat" ; - VP (Pres Ind Pl P1) => d_ + "onem" ; + VI Infn => case flag of {True => d_ + "onar"; _ => d_ + "ar"} ; + VI Ger => case flag of {True => d_ + "onant"; _ => d_ + "ant"} ; + VP (Pres Ind Pl P1) => case flag of {True => d_ + "onem"; _ => d_ + "em"} ; VP (Pres Ind Sg P1) => d_ + "ono" ; - VP (Pres Ind Pl P2) => d_ + "oneu" ; + VP (Pres Ind Pl P2) => case flag of {True => d_ + "oneu"; _ => d_ + "eu"} ; VP (Pres Ind Pl P3) => d_ + "onen" ; - VP (Pres Sub Pl P1) => d_ + "onem" ; + VP (Pres Sub Pl P1) => case flag of {True => d_ + "onem"; _ => d_ + "em"} ; VP (Pres Sub Sg P1) => d_ + "oni" ; - VP (Pres Sub Pl P2) => d_ + "oneu" ; + VP (Pres Sub Pl P2) => case flag of {True => d_ + "oneu"; _ => d_ + "eu"} ; VP (Pres Sub Sg P2) => d_ + "onis" ; VP (Pres Sub Pl P3) => d_ + "onin" ; VP (Pres Sub Sg P3) => d_ + "oni" ; - VP (Impf Ind Pl P1) => d_ + "onàvem" ;--# notpresent - VP (Impf Ind Sg P1) => d_ + "onava" ;--# notpresent - VP (Impf Ind Pl P2) => d_ + "onàveu" ;--# notpresent - VP (Impf Ind Sg P2) => d_ + "onaves" ;--# notpresent - VP (Impf Ind Pl P3) => d_ + "onaven" ;--# notpresent - VP (Impf Ind Sg P3) => d_ + "onava" ;--# notpresent - VP (Impf Sub Pl P1) => d_ + "onéssim" ;--# notpresent - VP (Impf Sub Sg P1) => d_ + "onés" ;--# notpresent - VP (Impf Sub Pl P2) => d_ + "onéssiu" ;--# notpresent - VP (Impf Sub Sg P2) => d_ + "onessis" ;--# notpresent - VP (Impf Sub Pl P3) => d_ + "onessin" ;--# notpresent - VP (Impf Sub Sg P3) => d_ + "onés" ;--# notpresent - VP (Fut Pl P1) => d_ + "onarem" ;--# notpresent - VP (Fut Sg P1) => d_ + "onaré" ;--# notpresent - VP (Fut Pl P2) => d_ + "onareu" ;--# notpresent - VP (Fut Sg P2) => d_ + "onaràs" ;--# notpresent - VP (Fut Pl P3) => d_ + "onaran" ;--# notpresent - VP (Fut Sg P3) => d_ + "onarà" ;--# notpresent - VP (Pret Pl P1) => d_ + "onéssim" ;--# notpresent - VP (Pret Sg P1) => d_ + "onés" ;--# notpresent - VP (Pret Pl P2) => d_ + "onéssiu" ;--# notpresent - VP (Pret Sg P2) => d_ + "onessis" ;--# notpresent - VP (Pret Pl P3) => d_ + "onessin" ;--# notpresent - VP (Pret Sg P3) => d_ + "onés" ;--# notpresent - VP (Cond Pl P1) => d_ + "onaríem" ;--# notpresent - VP (Cond Sg P1) => d_ + "onaria" ;--# notpresent - VP (Cond Pl P2) => d_ + "onaríeu" ;--# notpresent - VP (Cond Sg P2) => d_ + "onaries" ;--# notpresent - VP (Cond Pl P3) => d_ + "onarien" ;--# notpresent - VP (Cond Sg P3) => d_ + "onaria" ;--# notpresent - VP (Imp Pl P1) => d_ + "onem" ; - VP (Imp Pl P2) => d_ + "oneu" ; - VP (Imp Pl P3) => d_ + "onin" ; - VP (Imp Sg P3) => d_ + "oni" ; - VP (Pass Pl Fem) => d_ + "onades" ; - VP (Pass Sg Fem) => d_ + "onada" ; - VP (Pass Pl Masc) => d_ + "onats" ; - VP (Pass Sg Masc) => d_ + "onat" ; + VP (Impf Ind Pl P1) => case flag of {True => d_ + "onàvem"; _ => d_ + "àvem"} ;--# notpresent + VP (Impf Ind Sg P1) => case flag of {True => d_ + "onava"; _ => d_ + "ava"} ;--# notpresent + VP (Impf Ind Pl P2) => case flag of {True => d_ + "onàveu"; _ => d_ + "àveu"} ;--# notpresent + VP (Impf Ind Sg P2) => case flag of {True => d_ + "onaves"; _ => d_ + "aves"} ;--# notpresent + VP (Impf Ind Pl P3) => case flag of {True => d_ + "onaven"; _ => d_ + "aven"} ;--# notpresent + VP (Impf Ind Sg P3) => case flag of {True => d_ + "onava"; _ => d_ + "ava"} ;--# notpresent + VP (Impf Sub Pl P1) => case flag of {True => d_ + "onéssim"; _ => d_ + "éssim"} ;--# notpresent + VP (ImpfSubPlE P1) => d_ + "onéssem" ;--# notpresent + VP (Impf Sub Sg P1) => case flag of {True => d_ + "onés"; _ => d_ + "es"} ;--# notpresent + VP (Impf Sub Pl P2) => case flag of {True => d_ + "onéssiu"; _ => d_ + "éssiu"} ;--# notpresent + VP (ImpfSubPlE P2) => d_ + "onésseu" ;--# notpresent + VP (Impf Sub Sg P2) => case flag of {True => d_ + "onessis"; _ => d_ + "essis"} ;--# notpresent + VP ImpfSubSgE => d_ + "onesses" ;--# notpresent + VP (Impf Sub Pl P3) => case flag of {True => d_ + "onessin"; _ => d_ + "essin"} ;--# notpresent + VP (ImpfSubPlE P3) => d_ + "onessen" ;--# notpresent + VP (Impf Sub Sg P3) => case flag of {True => d_ + "onés"; _ => d_ + "es"} ;--# notpresent + VP (Fut Pl P1) => case flag of {True => d_ + "onarem"; _ => d_ + "arem"} ;--# notpresent + VP (Fut Sg P1) => case flag of {True => d_ + "onaré"; _ => d_ + "aré"} ;--# notpresent + VP (Fut Pl P2) => case flag of {True => d_ + "onareu"; _ => d_ + "areu"} ;--# notpresent + VP (Fut Sg P2) => case flag of {True => d_ + "onaràs"; _ => d_ + "aràs"} ;--# notpresent + VP (Fut Pl P3) => case flag of {True => d_ + "onaran"; _ => d_ + "aran"} ;--# notpresent + VP (Fut Sg P3) => case flag of {True => d_ + "onarà"; _ => d_ + "arà"} ;--# notpresent + VP (Pret Pl P1) => case flag of {True => d_ + "onàrem"; _ => d_ + "àrem"} ;--# notpresent + VP (Pret Sg P1) => case flag of {True => d_ + "oní"; _ => d_ + "i"} ;--# notpresent + VP (Pret Pl P2) => case flag of {True => d_ + "onàreu"; _ => d_ + "àreu"} ;--# notpresent + VP (Pret Sg P2) => case flag of {True => d_ + "onares"; _ => d_ + "ares"} ;--# notpresent + VP (Pret Pl P3) => case flag of {True => d_ + "onaren"; _ => d_ + "aren"} ;--# notpresent + VP (Pret Sg P3) => case flag of {True => d_ + "onà"; _ => d_ + "a"} ;--# notpresent + VP (Cond Pl P1) => case flag of {True => d_ + "onaríem"; _ => d_ + "aríem"} ;--# notpresent + VP (Cond Sg P1) => case flag of {True => d_ + "onaria"; _ => d_ + "aria"} ;--# notpresent + VP (Cond Pl P2) => case flag of {True => d_ + "onaríeu"; _ => d_ + "aríeu"} ;--# notpresent + VP (Cond Sg P2) => case flag of {True => d_ + "onaries"; _ => d_ + "aries"} ;--# notpresent + VP (Cond Pl P3) => case flag of {True => d_ + "onarien"; _ => d_ + "arien"} ;--# notpresent + VP (Cond Sg P3) => case flag of {True => d_ + "onaria"; _ => d_ + "aria"} ;--# notpresent + VP (Imp Pl P1) => case flag of {True => d_ + "onem"; _ => d_ + "em"} ; + VP (Imp Pl P2) => case flag of {True => d_ + "oneu"; _ => d_ + "eu"} ; VP (Pres Ind Sg P2) => d_ + "ónes" ; VP (Pres Ind Sg P3) => d_ + "óna" ; VP (Imp Sg P2) => d_ + "óna" ; + VP (Imp Pl P3) => d_ + "onin" ; + VP (Imp Sg P3) => d_ + "oni" ; + VP (Pass Pl Fem) => case flag of {True => d_ + "onades"; _ => d_ + "ades"} ; + VP (Pass Sg Fem) => case flag of {True => d_ + "onada"; _ => d_ + "ada"} ; + VP (Pass Pl Masc) => case flag of {True => d_ + "onats"; _ => d_ + "ats"} ; + VP (Pass Sg Masc) => case flag of {True => d_ + "onat"; _ => d_ + "at"} ; VP (Imp Sg P1) => nonExist } } ; @@ -2270,7 +2325,6 @@ let dorm_ = Predef.tk 2 dormir in {s = table { VI Infn => dorm_ + "ir" ; VI Ger => dorm_ + "int" ; - VI Part => dorm_ + "it" ; VP (Pres Ind Pl P1) => dorm_ + "im" ; VP (Pres Ind Sg P1) => dorm_ + "o" ; VP (Pres Ind Pl P2) => dorm_ + "iu" ; @@ -2290,10 +2344,14 @@ let dorm_ = Predef.tk 2 dormir in VP (Impf Ind Pl P3) => dorm_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => dorm_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => dorm_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => dorm_ + "íssem" ;--# notpresent VP (Impf Sub Sg P1) => dorm_ + "ís" ;--# notpresent VP (Impf Sub Pl P2) => dorm_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => dorm_ + "ísseu" ;--# notpresent VP (Impf Sub Sg P2) => dorm_ + "issis" ;--# notpresent + VP ImpfSubSgE => dorm_ + "isses" ;--# notpresent VP (Impf Sub Pl P3) => dorm_ + "issin" ;--# notpresent + VP (ImpfSubPlE P3) => dorm_ + "issen" ;--# notpresent VP (Impf Sub Sg P3) => dorm_ + "ís" ;--# notpresent VP (Fut Pl P1) => dorm_ + "irem" ;--# notpresent VP (Fut Sg P1) => dorm_ + "iré" ;--# notpresent @@ -2301,12 +2359,12 @@ let dorm_ = Predef.tk 2 dormir in VP (Fut Sg P2) => dorm_ + "iràs" ;--# notpresent VP (Fut Pl P3) => dorm_ + "iran" ;--# notpresent VP (Fut Sg P3) => dorm_ + "irà" ;--# notpresent - VP (Pret Pl P1) => dorm_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => dorm_ + "ís" ;--# notpresent - VP (Pret Pl P2) => dorm_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => dorm_ + "issis" ;--# notpresent - VP (Pret Pl P3) => dorm_ + "issin" ;--# notpresent - VP (Pret Sg P3) => dorm_ + "ís" ;--# notpresent + VP (Pret Pl P1) => dorm_ + "írem" ;--# notpresent + VP (Pret Sg P1) => dorm_ + "í" ;--# notpresent + VP (Pret Pl P2) => dorm_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => dorm_ + "ires" ;--# notpresent + VP (Pret Pl P3) => dorm_ + "iren" ;--# notpresent + VP (Pret Sg P3) => dorm_ + "í" ;--# notpresent VP (Cond Pl P1) => dorm_ + "iríem" ;--# notpresent VP (Cond Sg P1) => dorm_ + "iria" ;--# notpresent VP (Cond Pl P2) => dorm_ + "iríeu" ;--# notpresent @@ -2326,18 +2384,17 @@ VP (Imp Sg P1) => nonExist } } ; -oper dur_45 : Str -> Verbum = \dur -> +oper dur_45 : Str -> Bool -> Verbum = \dur,flag -> let d_ = Predef.tk 2 dur in {s = table { VI Infn => d_ + "ur" ; VI Ger => d_ + "uent" ; - VI Part => d_ + "ut" ; VP (Pres Ind Pl P1) => d_ + "uem" ; VP (Pres Ind Sg P1) => d_ + "uc" ; VP (Pres Ind Pl P2) => d_ + "ueu" ; - VP (Pres Ind Sg P2) => d_ + "uus" ; + VP (Pres Ind Sg P2) => case flag of {True => d_ + "uus"; _ => d_ + "us"} ; VP (Pres Ind Pl P3) => d_ + "uen" ; - VP (Pres Ind Sg P3) => d_ + "uu" ; + VP (Pres Ind Sg P3) => case flag of {True => d_ + "uu"; _ => d_ + "u"} ; VP (Pres Sub Pl P1) => d_ + "uguem" ; VP (Pres Sub Sg P1) => d_ + "ugui" ; VP (Pres Sub Pl P2) => d_ + "ugueu" ; @@ -2351,10 +2408,14 @@ let d_ = Predef.tk 2 dur in VP (Impf Ind Pl P1) => d_ + "úiem" ;--# notpresent VP (Impf Ind Pl P2) => d_ + "úieu" ;--# notpresent VP (Impf Sub Pl P1) => d_ + "uguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => d_ + "uguéssem" ;--# notpresent VP (Impf Sub Sg P1) => d_ + "ugués" ;--# notpresent VP (Impf Sub Pl P2) => d_ + "uguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => d_ + "uguésseu" ;--# notpresent VP (Impf Sub Sg P2) => d_ + "uguessis" ;--# notpresent + VP ImpfSubSgE => d_ + "uguesses" ;--# notpresent VP (Impf Sub Pl P3) => d_ + "uguessin" ;--# notpresent + VP (ImpfSubPlE P3) => d_ + "uguessen" ;--# notpresent VP (Impf Sub Sg P3) => d_ + "ugués" ;--# notpresent VP (Fut Pl P1) => d_ + "urem" ;--# notpresent VP (Fut Sg P1) => d_ + "uré" ;--# notpresent @@ -2362,12 +2423,12 @@ let d_ = Predef.tk 2 dur in VP (Fut Sg P2) => d_ + "uràs" ;--# notpresent VP (Fut Pl P3) => d_ + "uran" ;--# notpresent VP (Fut Sg P3) => d_ + "urà" ;--# notpresent - VP (Pret Pl P1) => d_ + "uguéssim" ;--# notpresent - VP (Pret Sg P1) => d_ + "ugués" ;--# notpresent - VP (Pret Pl P2) => d_ + "uguéssiu" ;--# notpresent - VP (Pret Sg P2) => d_ + "uguessis" ;--# notpresent - VP (Pret Pl P3) => d_ + "uguessin" ;--# notpresent - VP (Pret Sg P3) => d_ + "ugués" ;--# notpresent + VP (Pret Pl P1) => d_ + "uguérem" ;--# notpresent + VP (Pret Sg P1) => d_ + "uguí" ;--# notpresent + VP (Pret Pl P2) => d_ + "uguéreu" ;--# notpresent + VP (Pret Sg P2) => d_ + "ugueres" ;--# notpresent + VP (Pret Pl P3) => d_ + "ugueren" ;--# notpresent + VP (Pret Sg P3) => d_ + "ugué" ;--# notpresent VP (Cond Pl P1) => d_ + "uríem" ;--# notpresent VP (Cond Sg P1) => d_ + "uria" ;--# notpresent VP (Cond Pl P2) => d_ + "uríeu" ;--# notpresent @@ -2376,7 +2437,7 @@ let d_ = Predef.tk 2 dur in VP (Cond Sg P3) => d_ + "uria" ;--# notpresent VP (Imp Pl P1) => d_ + "uguem" ; VP (Imp Pl P2) => d_ + "ueu" ; - VP (Imp Sg P2) => d_ + "uu" ; + VP (Imp Sg P2) => case flag of {True => d_ + "uu"; _ => d_ + "u"} ; VP (Imp Pl P3) => d_ + "uguin" ; VP (Imp Sg P3) => d_ + "ugui" ; VP (Pass Pl Fem) => d_ + "utes" ; @@ -2394,7 +2455,6 @@ let enve_ = Predef.tk 3 envejar in {s = table { VI Infn => enve_ + "jar" ; VI Ger => enve_ + "jant" ; - VI Part => enve_ + "jat" ; VP (Pres Ind Pl P1) => enve_ + "gem" ; VP (Pres Ind Sg P1) => enve_ + "jo" ; VP (Pres Ind Pl P2) => enve_ + "geu" ; @@ -2414,10 +2474,14 @@ let enve_ = Predef.tk 3 envejar in VP (Impf Ind Pl P3) => enve_ + "javen" ;--# notpresent VP (Impf Ind Sg P3) => enve_ + "java" ;--# notpresent VP (Impf Sub Pl P1) => enve_ + "géssim" ;--# notpresent + VP (ImpfSubPlE P1) => enve_ + "géssem" ;--# notpresent VP (Impf Sub Sg P1) => enve_ + "gés" ;--# notpresent VP (Impf Sub Pl P2) => enve_ + "géssiu" ;--# notpresent + VP (ImpfSubPlE P2) => enve_ + "gésseu" ;--# notpresent VP (Impf Sub Sg P2) => enve_ + "gessis" ;--# notpresent + VP ImpfSubSgE => enve_ + "gesses" ;--# notpresent VP (Impf Sub Pl P3) => enve_ + "gessin" ;--# notpresent + VP (ImpfSubPlE P3) => enve_ + "gessen" ;--# notpresent VP (Impf Sub Sg P3) => enve_ + "gés" ;--# notpresent VP (Fut Pl P1) => enve_ + "jarem" ;--# notpresent VP (Fut Sg P1) => enve_ + "jaré" ;--# notpresent @@ -2425,12 +2489,12 @@ let enve_ = Predef.tk 3 envejar in VP (Fut Sg P2) => enve_ + "jaràs" ;--# notpresent VP (Fut Pl P3) => enve_ + "jaran" ;--# notpresent VP (Fut Sg P3) => enve_ + "jarà" ;--# notpresent - VP (Pret Pl P1) => enve_ + "géssim" ;--# notpresent - VP (Pret Sg P1) => enve_ + "gés" ;--# notpresent - VP (Pret Pl P2) => enve_ + "géssiu" ;--# notpresent - VP (Pret Sg P2) => enve_ + "gessis" ;--# notpresent - VP (Pret Pl P3) => enve_ + "gessin" ;--# notpresent - VP (Pret Sg P3) => enve_ + "gés" ;--# notpresent + VP (Pret Pl P1) => enve_ + "jàrem" ;--# notpresent + VP (Pret Sg P1) => enve_ + "gí" ;--# notpresent + VP (Pret Pl P2) => enve_ + "jàreu" ;--# notpresent + VP (Pret Sg P2) => enve_ + "jares" ;--# notpresent + VP (Pret Pl P3) => enve_ + "jaren" ;--# notpresent + VP (Pret Sg P3) => enve_ + "jà" ;--# notpresent VP (Cond Pl P1) => enve_ + "jaríem" ;--# notpresent VP (Cond Sg P1) => enve_ + "jaria" ;--# notpresent VP (Cond Pl P2) => enve_ + "jaríeu" ;--# notpresent @@ -2455,7 +2519,6 @@ let esc_ = Predef.tk 4 escopir in {s = table { VI Infn => esc_ + "opir" ; VI Ger => esc_ + "opint" ; - VI Part => esc_ + "opit" ; VP (Pres Ind Pl P1) => esc_ + "opim" ; VP (Pres Ind Sg P1) => esc_ + "upo" ; VP (Pres Ind Pl P2) => esc_ + "opiu" ; @@ -2475,10 +2538,14 @@ let esc_ = Predef.tk 4 escopir in VP (Impf Ind Pl P3) => esc_ + "opien" ;--# notpresent VP (Impf Ind Sg P3) => esc_ + "opia" ;--# notpresent VP (Impf Sub Pl P1) => esc_ + "opíssim" ;--# notpresent + VP (ImpfSubPlE P1) => esc_ + "opíssem" ;--# notpresent VP (Impf Sub Sg P1) => esc_ + "opís" ;--# notpresent VP (Impf Sub Pl P2) => esc_ + "opíssiu" ;--# notpresent + VP (ImpfSubPlE P2) => esc_ + "opísseu" ;--# notpresent VP (Impf Sub Sg P2) => esc_ + "opissis" ;--# notpresent + VP ImpfSubSgE => esc_ + "opisses" ;--# notpresent VP (Impf Sub Pl P3) => esc_ + "opissin" ;--# notpresent + VP (ImpfSubPlE P3) => esc_ + "opissen" ;--# notpresent VP (Impf Sub Sg P3) => esc_ + "opís" ;--# notpresent VP (Fut Pl P1) => esc_ + "opirem" ;--# notpresent VP (Fut Sg P1) => esc_ + "opiré" ;--# notpresent @@ -2486,12 +2553,12 @@ let esc_ = Predef.tk 4 escopir in VP (Fut Sg P2) => esc_ + "opiràs" ;--# notpresent VP (Fut Pl P3) => esc_ + "opiran" ;--# notpresent VP (Fut Sg P3) => esc_ + "opirà" ;--# notpresent - VP (Pret Pl P1) => esc_ + "opíssim" ;--# notpresent - VP (Pret Sg P1) => esc_ + "opís" ;--# notpresent - VP (Pret Pl P2) => esc_ + "opíssiu" ;--# notpresent - VP (Pret Sg P2) => esc_ + "opissis" ;--# notpresent - VP (Pret Pl P3) => esc_ + "opissin" ;--# notpresent - VP (Pret Sg P3) => esc_ + "opís" ;--# notpresent + VP (Pret Pl P1) => esc_ + "opírem" ;--# notpresent + VP (Pret Sg P1) => esc_ + "opí" ;--# notpresent + VP (Pret Pl P2) => esc_ + "opíreu" ;--# notpresent + VP (Pret Sg P2) => esc_ + "opires" ;--# notpresent + VP (Pret Pl P3) => esc_ + "opiren" ;--# notpresent + VP (Pret Sg P3) => esc_ + "opí" ;--# notpresent VP (Cond Pl P1) => esc_ + "opiríem" ;--# notpresent VP (Cond Sg P1) => esc_ + "opiria" ;--# notpresent VP (Cond Pl P2) => esc_ + "opiríeu" ;--# notpresent @@ -2511,12 +2578,11 @@ VP (Imp Sg P1) => nonExist } } ; -oper escriure_50 : Str -> Verbum = \escriure -> +oper escriure_50 : Str -> Bool -> Verbum = \escriure,flag -> let escri_ = Predef.tk 3 escriure in {s = table { VI Infn => escri_ + "ure" ; VI Ger => escri_ + "vint" ; - VI Part => escri_ + "t" ; VP (Pres Ind Pl P1) => escri_ + "vim" ; VP (Pres Ind Sg P1) => escri_ + "c" ; VP (Pres Ind Pl P2) => escri_ + "viu" ; @@ -2535,24 +2601,28 @@ let escri_ = Predef.tk 3 escriure in VP (Impf Ind Sg P2) => escri_ + "vies" ;--# notpresent VP (Impf Ind Pl P3) => escri_ + "vien" ;--# notpresent VP (Impf Ind Sg P3) => escri_ + "via" ;--# notpresent - VP (Impf Sub Pl P1) => escri_ + "víssim" ;--# notpresent - VP (Impf Sub Sg P1) => escri_ + "vís" ;--# notpresent - VP (Impf Sub Pl P2) => escri_ + "víssiu" ;--# notpresent - VP (Impf Sub Sg P2) => escri_ + "vissis" ;--# notpresent - VP (Impf Sub Pl P3) => escri_ + "vissin" ;--# notpresent - VP (Impf Sub Sg P3) => escri_ + "vís" ;--# notpresent + VP (Impf Sub Pl P1) => case flag of {True => escri_ + "víssim"; _ => escri_ + "guéssem"} ;--# notpresent + VP (ImpfSubPlE P1) => escri_ + "guéssim" ;--# notpresent + VP (Impf Sub Sg P1) => case flag of {True => escri_ + "vís"; _ => escri_ + "gués"} ;--# notpresent + VP (Impf Sub Pl P2) => case flag of {True => escri_ + "víssiu"; _ => escri_ + "guéssiu"} ;--# notpresent + VP (ImpfSubPlE P2) => escri_ + "guésseu" ;--# notpresent + VP (Impf Sub Sg P2) => case flag of {True => escri_ + "vissis"; _ => escri_ + "guesses"} ;--# notpresent + VP ImpfSubSgE => escri_ + "guessis" ;--# notpresent + VP (Impf Sub Pl P3) => case flag of {True => escri_ + "vissin"; _ => escri_ + "guessin"} ;--# notpresent + VP (ImpfSubPlE P3) => escri_ + "guessen" ;--# notpresent + VP (Impf Sub Sg P3) => case flag of {True => escri_ + "vís"; _ => escri_ + "gués"} ;--# notpresent VP (Fut Pl P1) => escri_ + "urem" ;--# notpresent VP (Fut Sg P1) => escri_ + "uré" ;--# notpresent VP (Fut Pl P2) => escri_ + "ureu" ;--# notpresent VP (Fut Sg P2) => escri_ + "uràs" ;--# notpresent VP (Fut Pl P3) => escri_ + "uran" ;--# notpresent VP (Fut Sg P3) => escri_ + "urà" ;--# notpresent - VP (Pret Pl P1) => escri_ + "víssim" ;--# notpresent - VP (Pret Sg P1) => escri_ + "vís" ;--# notpresent - VP (Pret Pl P2) => escri_ + "víssiu" ;--# notpresent - VP (Pret Sg P2) => escri_ + "vissis" ;--# notpresent - VP (Pret Pl P3) => escri_ + "vissin" ;--# notpresent - VP (Pret Sg P3) => escri_ + "vís" ;--# notpresent + VP (Pret Pl P1) => case flag of {True => escri_ + "vírem"; _ => escri_ + "guérem"} ;--# notpresent + VP (Pret Sg P1) => case flag of {True => escri_ + "ví"; _ => escri_ + "guí"} ;--# notpresent + VP (Pret Pl P2) => case flag of {True => escri_ + "víreu"; _ => escri_ + "guéreu"} ;--# notpresent + VP (Pret Sg P2) => case flag of {True => escri_ + "vires"; _ => escri_ + "gueres"} ;--# notpresent + VP (Pret Pl P3) => case flag of {True => escri_ + "viren"; _ => escri_ + "gueren"} ;--# notpresent + VP (Pret Sg P3) => case flag of {True => escri_ + "ví"; _ => escri_ + "gué"} ;--# notpresent VP (Cond Pl P1) => escri_ + "uríem" ;--# notpresent VP (Cond Sg P1) => escri_ + "uria" ;--# notpresent VP (Cond Pl P2) => escri_ + "uríeu" ;--# notpresent @@ -2577,7 +2647,6 @@ let esgla_ = Predef.tk 3 esglaiar in {s = table { VI Infn => esgla_ + "iar" ; VI Ger => esgla_ + "iant" ; - VI Part => esgla_ + "iat" ; VP (Pres Ind Pl P1) => esgla_ + "iem" ; VP (Pres Ind Sg P1) => esgla_ + "io" ; VP (Pres Ind Pl P2) => esgla_ + "ieu" ; @@ -2593,10 +2662,14 @@ let esgla_ = Predef.tk 3 esglaiar in VP (Impf Ind Pl P3) => esgla_ + "iaven" ;--# notpresent VP (Impf Ind Sg P3) => esgla_ + "iava" ;--# notpresent VP (Impf Sub Pl P1) => esgla_ + "iéssim" ;--# notpresent + VP (ImpfSubPlE P1) => esgla_ + "iéssem" ;--# notpresent VP (Impf Sub Sg P1) => esgla_ + "iés" ;--# notpresent VP (Impf Sub Pl P2) => esgla_ + "iéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => esgla_ + "iésseu" ;--# notpresent VP (Impf Sub Sg P2) => esgla_ + "iessis" ;--# notpresent + VP ImpfSubSgE => esgla_ + "iesses" ;--# notpresent VP (Impf Sub Pl P3) => esgla_ + "iessin" ;--# notpresent + VP (ImpfSubPlE P3) => esgla_ + "iessen" ;--# notpresent VP (Impf Sub Sg P3) => esgla_ + "iés" ;--# notpresent VP (Fut Pl P1) => esgla_ + "iarem" ;--# notpresent VP (Fut Sg P1) => esgla_ + "iaré" ;--# notpresent @@ -2604,12 +2677,12 @@ let esgla_ = Predef.tk 3 esglaiar in VP (Fut Sg P2) => esgla_ + "iaràs" ;--# notpresent VP (Fut Pl P3) => esgla_ + "iaran" ;--# notpresent VP (Fut Sg P3) => esgla_ + "iarà" ;--# notpresent - VP (Pret Pl P1) => esgla_ + "iéssim" ;--# notpresent - VP (Pret Sg P1) => esgla_ + "iés" ;--# notpresent - VP (Pret Pl P2) => esgla_ + "iéssiu" ;--# notpresent - VP (Pret Sg P2) => esgla_ + "iessis" ;--# notpresent - VP (Pret Pl P3) => esgla_ + "iessin" ;--# notpresent - VP (Pret Sg P3) => esgla_ + "iés" ;--# notpresent + VP (Pret Pl P1) => esgla_ + "iàrem" ;--# notpresent + VP (Pret Sg P1) => esgla_ + "í" ;--# notpresent + VP (Pret Pl P2) => esgla_ + "iàreu" ;--# notpresent + VP (Pret Sg P2) => esgla_ + "iares" ;--# notpresent + VP (Pret Pl P3) => esgla_ + "iaren" ;--# notpresent + VP (Pret Sg P3) => esgla_ + "ià" ;--# notpresent VP (Cond Pl P1) => esgla_ + "iaríem" ;--# notpresent VP (Cond Sg P1) => esgla_ + "iaria" ;--# notpresent VP (Cond Pl P2) => esgla_ + "iaríeu" ;--# notpresent @@ -2633,12 +2706,11 @@ VP (Imp Sg P1) => nonExist } } ; -oper ser_52 : Str -> Verbum = \ser -> +oper ser_52 : Str -> Bool -> Verbum = \ser,flag -> let x_ = Predef.tk 3 ser in {s = table { - VI Infn => x_ + "ser" ; - VI Ger => x_ + "sent" ; - VI Part => x_ + "estat" ; + VI Infn => case flag of {True => x_ + "ser"; _ => x_ + "ésser"} ; + VI Ger => case flag of {True => x_ + "sent"; _ => x_ + "essent"} ; VP (Pres Ind Pl P1) => x_ + "som" ; VP (Pres Ind Sg P1) => x_ + "sóc" ; VP (Pres Ind Pl P2) => x_ + "sou" ; @@ -2658,10 +2730,14 @@ let x_ = Predef.tk 3 ser in VP (Impf Ind Pl P3) => x_ + "eren" ;--# notpresent VP (Impf Ind Sg P3) => x_ + "era" ;--# notpresent VP (Impf Sub Pl P1) => x_ + "fóssim" ;--# notpresent + VP (ImpfSubPlE P1) => x_ + "fóssim" ;--# notpresent VP (Impf Sub Sg P1) => x_ + "fos" ;--# notpresent VP (Impf Sub Pl P2) => x_ + "fóssiu" ;--# notpresent + VP (ImpfSubPlE P2) => x_ + "fóssiu" ;--# notpresent VP (Impf Sub Sg P2) => x_ + "fossis" ;--# notpresent + VP ImpfSubSgE => x_ + "fossis" ;--# notpresent VP (Impf Sub Pl P3) => x_ + "fossin" ;--# notpresent + VP (ImpfSubPlE P3) => x_ + "fossin" ;--# notpresent VP (Impf Sub Sg P3) => x_ + "fos" ;--# notpresent VP (Fut Pl P1) => x_ + "serem" ;--# notpresent VP (Fut Sg P1) => x_ + "seré" ;--# notpresent @@ -2694,14 +2770,13 @@ VP (Imp Sg P1) => nonExist } } ; -oper establir_53 : Str -> Verbum = \establir -> +oper establir_53 : Str -> Bool -> Verbum = \establir,flag -> let establ_ = Predef.tk 2 establir in {s = table { VI Infn => establ_ + "ir" ; VI Ger => establ_ + "int" ; - VI Part => establ_ + "ert" ; VP (Pres Ind Pl P1) => establ_ + "im" ; - VP (Pres Ind Sg P1) => establ_ + "eixo" ; + VP (Pres Ind Sg P1) => case flag of {True => establ_ + "eixo"; _ => establ_ + "ixo"} ; VP (Pres Ind Pl P2) => establ_ + "iu" ; VP (Pres Ind Sg P2) => establ_ + "eixes" ; VP (Pres Ind Pl P3) => establ_ + "eixen" ; @@ -2719,10 +2794,14 @@ let establ_ = Predef.tk 2 establir in VP (Impf Ind Pl P3) => establ_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => establ_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => establ_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => establ_ + "íssem" ;--# notpresent VP (Impf Sub Sg P1) => establ_ + "ís" ;--# notpresent VP (Impf Sub Pl P2) => establ_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => establ_ + "ísseu" ;--# notpresent VP (Impf Sub Sg P2) => establ_ + "issis" ;--# notpresent + VP ImpfSubSgE => establ_ + "isses" ;--# notpresent VP (Impf Sub Pl P3) => establ_ + "issin" ;--# notpresent + VP (ImpfSubPlE P3) => establ_ + "issen" ;--# notpresent VP (Impf Sub Sg P3) => establ_ + "ís" ;--# notpresent VP (Fut Pl P1) => establ_ + "irem" ;--# notpresent VP (Fut Sg P1) => establ_ + "iré" ;--# notpresent @@ -2730,12 +2809,12 @@ let establ_ = Predef.tk 2 establir in VP (Fut Sg P2) => establ_ + "iràs" ;--# notpresent VP (Fut Pl P3) => establ_ + "iran" ;--# notpresent VP (Fut Sg P3) => establ_ + "irà" ;--# notpresent - VP (Pret Pl P1) => establ_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => establ_ + "ís" ;--# notpresent - VP (Pret Pl P2) => establ_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => establ_ + "issis" ;--# notpresent - VP (Pret Pl P3) => establ_ + "issin" ;--# notpresent - VP (Pret Sg P3) => establ_ + "ís" ;--# notpresent + VP (Pret Pl P1) => establ_ + "írem" ;--# notpresent + VP (Pret Sg P1) => establ_ + "í" ;--# notpresent + VP (Pret Pl P2) => establ_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => establ_ + "ires" ;--# notpresent + VP (Pret Pl P3) => establ_ + "iren" ;--# notpresent + VP (Pret Sg P3) => establ_ + "í" ;--# notpresent VP (Cond Pl P1) => establ_ + "iríem" ;--# notpresent VP (Cond Sg P1) => establ_ + "iria" ;--# notpresent VP (Cond Pl P2) => establ_ + "iríeu" ;--# notpresent @@ -2747,10 +2826,10 @@ let establ_ = Predef.tk 2 establir in VP (Imp Sg P2) => establ_ + "eix" ; VP (Imp Pl P3) => establ_ + "eixin" ; VP (Imp Sg P3) => establ_ + "eixi" ; - VP (Pass Pl Fem) => establ_ + "ertes" ; - VP (Pass Sg Fem) => establ_ + "erta" ; - VP (Pass Pl Masc) => establ_ + "erts" ; - VP (Pass Sg Masc) => establ_ + "ert" ; + VP (Pass Pl Fem) => case flag of {True => establ_ + "ertes"; _ => establ_ + "ides"} ; + VP (Pass Sg Fem) => case flag of {True => establ_ + "erta"; _ => establ_ + "ida"} ; + VP (Pass Pl Masc) => case flag of {True => establ_ + "erts"; _ => establ_ + "its"} ; + VP (Pass Sg Masc) => case flag of {True => establ_ + "ert"; _ => establ_ + "it"} ; VP (Imp Sg P1) => nonExist } } ; @@ -2760,7 +2839,6 @@ let es_ = Predef.tk 3 estar in {s = table { VI Infn => es_ + "tar" ; VI Ger => es_ + "tant" ; - VI Part => es_ + "tat" ; VP (Pres Ind Pl P1) => es_ + "tem" ; VP (Pres Ind Sg P1) => es_ + "tic" ; VP (Pres Ind Pl P2) => es_ + "teu" ; @@ -2780,10 +2858,14 @@ let es_ = Predef.tk 3 estar in VP (Impf Ind Pl P3) => es_ + "taven" ;--# notpresent VP (Impf Ind Sg P3) => es_ + "tava" ;--# notpresent VP (Impf Sub Pl P1) => es_ + "tiguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => es_ + "tiguéssem" ;--# notpresent VP (Impf Sub Sg P1) => es_ + "tigués" ;--# notpresent VP (Impf Sub Pl P2) => es_ + "tiguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => es_ + "tiguésseu" ;--# notpresent VP (Impf Sub Sg P2) => es_ + "tiguessis" ;--# notpresent + VP ImpfSubSgE => es_ + "tiguesses" ;--# notpresent VP (Impf Sub Pl P3) => es_ + "tiguessin" ;--# notpresent + VP (ImpfSubPlE P3) => es_ + "tiguessen" ;--# notpresent VP (Impf Sub Sg P3) => es_ + "tigués" ;--# notpresent VP (Fut Pl P1) => es_ + "tarem" ;--# notpresent VP (Fut Sg P1) => es_ + "taré" ;--# notpresent @@ -2791,12 +2873,12 @@ let es_ = Predef.tk 3 estar in VP (Fut Sg P2) => es_ + "taràs" ;--# notpresent VP (Fut Pl P3) => es_ + "taran" ;--# notpresent VP (Fut Sg P3) => es_ + "tarà" ;--# notpresent - VP (Pret Pl P1) => es_ + "tiguéssim" ;--# notpresent - VP (Pret Sg P1) => es_ + "tigués" ;--# notpresent - VP (Pret Pl P2) => es_ + "tiguéssiu" ;--# notpresent - VP (Pret Sg P2) => es_ + "tiguessis" ;--# notpresent - VP (Pret Pl P3) => es_ + "tiguessin" ;--# notpresent - VP (Pret Sg P3) => es_ + "tigués" ;--# notpresent + VP (Pret Pl P1) => es_ + "tiguérem" ;--# notpresent + VP (Pret Sg P1) => es_ + "tiguí" ;--# notpresent + VP (Pret Pl P2) => es_ + "tiguéreu" ;--# notpresent + VP (Pret Sg P2) => es_ + "tigueres" ;--# notpresent + VP (Pret Pl P3) => es_ + "tigueren" ;--# notpresent + VP (Pret Sg P3) => es_ + "tigué" ;--# notpresent VP (Cond Pl P1) => es_ + "taríem" ;--# notpresent VP (Cond Sg P1) => es_ + "taria" ;--# notpresent VP (Cond Pl P2) => es_ + "taríeu" ;--# notpresent @@ -2821,7 +2903,6 @@ let evacu_ = Predef.tk 2 evacuar in {s = table { VI Infn => evacu_ + "ar" ; VI Ger => evacu_ + "ant" ; - VI Part => evacu_ + "at" ; VP (Pres Ind Pl P1) => evacu_ + "em" ; VP (Pres Ind Sg P1) => evacu_ + "o" ; VP (Pres Ind Pl P2) => evacu_ + "eu" ; @@ -2841,10 +2922,14 @@ let evacu_ = Predef.tk 2 evacuar in VP (Impf Ind Pl P3) => evacu_ + "aven" ;--# notpresent VP (Impf Ind Sg P3) => evacu_ + "ava" ;--# notpresent VP (Impf Sub Pl P1) => evacu_ + "éssim" ;--# notpresent + VP (ImpfSubPlE P1) => evacu_ + "éssem" ;--# notpresent VP (Impf Sub Sg P1) => evacu_ + "és" ;--# notpresent VP (Impf Sub Pl P2) => evacu_ + "éssiu" ;--# notpresent + VP (ImpfSubPlE P2) => evacu_ + "ésseu" ;--# notpresent VP (Impf Sub Sg P2) => evacu_ + "essis" ;--# notpresent + VP ImpfSubSgE => evacu_ + "esses" ;--# notpresent VP (Impf Sub Pl P3) => evacu_ + "essin" ;--# notpresent + VP (ImpfSubPlE P3) => evacu_ + "essen" ;--# notpresent VP (Impf Sub Sg P3) => evacu_ + "és" ;--# notpresent VP (Fut Pl P1) => evacu_ + "arem" ;--# notpresent VP (Fut Sg P1) => evacu_ + "aré" ;--# notpresent @@ -2852,12 +2937,12 @@ let evacu_ = Predef.tk 2 evacuar in VP (Fut Sg P2) => evacu_ + "aràs" ;--# notpresent VP (Fut Pl P3) => evacu_ + "aran" ;--# notpresent VP (Fut Sg P3) => evacu_ + "arà" ;--# notpresent - VP (Pret Pl P1) => evacu_ + "éssim" ;--# notpresent - VP (Pret Sg P1) => evacu_ + "és" ;--# notpresent - VP (Pret Pl P2) => evacu_ + "éssiu" ;--# notpresent - VP (Pret Sg P2) => evacu_ + "essis" ;--# notpresent - VP (Pret Pl P3) => evacu_ + "essin" ;--# notpresent - VP (Pret Sg P3) => evacu_ + "és" ;--# notpresent + VP (Pret Pl P1) => evacu_ + "àrem" ;--# notpresent + VP (Pret Sg P1) => evacu_ + "í" ;--# notpresent + VP (Pret Pl P2) => evacu_ + "àreu" ;--# notpresent + VP (Pret Sg P2) => evacu_ + "ares" ;--# notpresent + VP (Pret Pl P3) => evacu_ + "aren" ;--# notpresent + VP (Pret Sg P3) => evacu_ + "à" ;--# notpresent VP (Cond Pl P1) => evacu_ + "aríem" ;--# notpresent VP (Cond Sg P1) => evacu_ + "aria" ;--# notpresent VP (Cond Pl P2) => evacu_ + "aríeu" ;--# notpresent @@ -2882,7 +2967,6 @@ let f_ = Predef.tk 2 fer in {s = table { VI Infn => f_ + "er" ; VI Ger => f_ + "ent" ; - VI Part => f_ + "et" ; VP (Pres Ind Pl P1) => f_ + "em" ; VP (Pres Ind Sg P1) => f_ + "aig" ; VP (Pres Ind Pl P2) => f_ + "eu" ; @@ -2902,10 +2986,14 @@ let f_ = Predef.tk 2 fer in VP (Impf Ind Pl P3) => f_ + "eien" ;--# notpresent VP (Impf Ind Sg P3) => f_ + "eia" ;--# notpresent VP (Impf Sub Pl P1) => f_ + "éssim" ;--# notpresent + VP (ImpfSubPlE P1) => f_ + "éssem" ;--# notpresent VP (Impf Sub Sg P1) => f_ + "es" ;--# notpresent VP (Impf Sub Pl P2) => f_ + "éssiu" ;--# notpresent + VP (ImpfSubPlE P2) => f_ + "ésseu" ;--# notpresent VP (Impf Sub Sg P2) => f_ + "essis" ;--# notpresent + VP ImpfSubSgE => f_ + "esses" ;--# notpresent VP (Impf Sub Pl P3) => f_ + "essin" ;--# notpresent + VP (ImpfSubPlE P3) => f_ + "essen" ;--# notpresent VP (Impf Sub Sg P3) => f_ + "es" ;--# notpresent VP (Fut Pl P1) => f_ + "arem" ;--# notpresent VP (Fut Sg P1) => f_ + "aré" ;--# notpresent @@ -2913,12 +3001,12 @@ let f_ = Predef.tk 2 fer in VP (Fut Sg P2) => f_ + "aràs" ;--# notpresent VP (Fut Pl P3) => f_ + "aran" ;--# notpresent VP (Fut Sg P3) => f_ + "arà" ;--# notpresent - VP (Pret Pl P1) => f_ + "éssim" ;--# notpresent - VP (Pret Sg P1) => f_ + "es" ;--# notpresent - VP (Pret Pl P2) => f_ + "éssiu" ;--# notpresent - VP (Pret Sg P2) => f_ + "essis" ;--# notpresent - VP (Pret Pl P3) => f_ + "essin" ;--# notpresent - VP (Pret Sg P3) => f_ + "es" ;--# notpresent + VP (Pret Pl P1) => f_ + "érem" ;--# notpresent + VP (Pret Sg P1) => f_ + "iu" ;--# notpresent + VP (Pret Pl P2) => f_ + "éreu" ;--# notpresent + VP (Pret Sg P2) => f_ + "eres" ;--# notpresent + VP (Pret Pl P3) => f_ + "eren" ;--# notpresent + VP (Pret Sg P3) => f_ + "éu" ;--# notpresent VP (Cond Pl P1) => f_ + "aríem" ;--# notpresent VP (Cond Sg P1) => f_ + "aria" ;--# notpresent VP (Cond Pl P2) => f_ + "aríeu" ;--# notpresent @@ -2943,7 +3031,6 @@ let fo_ = Predef.tk 4 fondre in {s = table { VI Infn => fo_ + "ndre" ; VI Ger => fo_ + "nent" ; - VI Part => fo_ + "s" ; VP (Pres Ind Pl P1) => fo_ + "nem" ; VP (Pres Ind Sg P1) => fo_ + "nc" ; VP (Pres Ind Pl P2) => fo_ + "neu" ; @@ -2963,10 +3050,14 @@ let fo_ = Predef.tk 4 fondre in VP (Impf Ind Pl P3) => fo_ + "nien" ;--# notpresent VP (Impf Ind Sg P3) => fo_ + "nia" ;--# notpresent VP (Impf Sub Pl P1) => fo_ + "nguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => fo_ + "nguéssem" ;--# notpresent VP (Impf Sub Sg P1) => fo_ + "ngués" ;--# notpresent VP (Impf Sub Pl P2) => fo_ + "nguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => fo_ + "nguésseu" ;--# notpresent VP (Impf Sub Sg P2) => fo_ + "nguessis" ;--# notpresent + VP ImpfSubSgE => fo_ + "nguesses" ;--# notpresent VP (Impf Sub Pl P3) => fo_ + "nguessin" ;--# notpresent + VP (ImpfSubPlE P3) => fo_ + "nguessen" ;--# notpresent VP (Impf Sub Sg P3) => fo_ + "ngués" ;--# notpresent VP (Fut Pl P1) => fo_ + "ndrem" ;--# notpresent VP (Fut Sg P1) => fo_ + "ndré" ;--# notpresent @@ -2974,12 +3065,12 @@ let fo_ = Predef.tk 4 fondre in VP (Fut Sg P2) => fo_ + "ndràs" ;--# notpresent VP (Fut Pl P3) => fo_ + "ndran" ;--# notpresent VP (Fut Sg P3) => fo_ + "ndrà" ;--# notpresent - VP (Pret Pl P1) => fo_ + "nguéssim" ;--# notpresent - VP (Pret Sg P1) => fo_ + "ngués" ;--# notpresent - VP (Pret Pl P2) => fo_ + "nguéssiu" ;--# notpresent - VP (Pret Sg P2) => fo_ + "nguessis" ;--# notpresent - VP (Pret Pl P3) => fo_ + "nguessin" ;--# notpresent - VP (Pret Sg P3) => fo_ + "ngués" ;--# notpresent + VP (Pret Pl P1) => fo_ + "nguérem" ;--# notpresent + VP (Pret Sg P1) => fo_ + "nguí" ;--# notpresent + VP (Pret Pl P2) => fo_ + "nguéreu" ;--# notpresent + VP (Pret Sg P2) => fo_ + "ngueres" ;--# notpresent + VP (Pret Pl P3) => fo_ + "ngueren" ;--# notpresent + VP (Pret Sg P3) => fo_ + "ngué" ;--# notpresent VP (Cond Pl P1) => fo_ + "ndríem" ;--# notpresent VP (Cond Sg P1) => fo_ + "ndria" ;--# notpresent VP (Cond Pl P2) => fo_ + "ndríeu" ;--# notpresent @@ -3004,7 +3095,6 @@ let fu_ = Predef.tk 3 fugir in {s = table { VI Infn => fu_ + "gir" ; VI Ger => fu_ + "gint" ; - VI Part => fu_ + "git" ; VP (Pres Ind Pl P1) => fu_ + "gim" ; VP (Pres Ind Sg P1) => fu_ + "jo" ; VP (Pres Ind Pl P2) => fu_ + "giu" ; @@ -3024,10 +3114,14 @@ let fu_ = Predef.tk 3 fugir in VP (Impf Ind Pl P3) => fu_ + "gien" ;--# notpresent VP (Impf Ind Sg P3) => fu_ + "gia" ;--# notpresent VP (Impf Sub Pl P1) => fu_ + "gíssim" ;--# notpresent + VP (ImpfSubPlE P1) => fu_ + "gíssem" ;--# notpresent VP (Impf Sub Sg P1) => fu_ + "gís" ;--# notpresent VP (Impf Sub Pl P2) => fu_ + "gíssiu" ;--# notpresent + VP (ImpfSubPlE P2) => fu_ + "gísseu" ;--# notpresent VP (Impf Sub Sg P2) => fu_ + "gissis" ;--# notpresent + VP ImpfSubSgE => fu_ + "gisses" ;--# notpresent VP (Impf Sub Pl P3) => fu_ + "gissin" ;--# notpresent + VP (ImpfSubPlE P3) => fu_ + "gissen" ;--# notpresent VP (Impf Sub Sg P3) => fu_ + "gís" ;--# notpresent VP (Fut Pl P1) => fu_ + "girem" ;--# notpresent VP (Fut Sg P1) => fu_ + "giré" ;--# notpresent @@ -3035,12 +3129,12 @@ let fu_ = Predef.tk 3 fugir in VP (Fut Sg P2) => fu_ + "giràs" ;--# notpresent VP (Fut Pl P3) => fu_ + "giran" ;--# notpresent VP (Fut Sg P3) => fu_ + "girà" ;--# notpresent - VP (Pret Pl P1) => fu_ + "gíssim" ;--# notpresent - VP (Pret Sg P1) => fu_ + "gís" ;--# notpresent - VP (Pret Pl P2) => fu_ + "gíssiu" ;--# notpresent - VP (Pret Sg P2) => fu_ + "gissis" ;--# notpresent - VP (Pret Pl P3) => fu_ + "gissin" ;--# notpresent - VP (Pret Sg P3) => fu_ + "gís" ;--# notpresent + VP (Pret Pl P1) => fu_ + "gírem" ;--# notpresent + VP (Pret Sg P1) => fu_ + "gí" ;--# notpresent + VP (Pret Pl P2) => fu_ + "gíreu" ;--# notpresent + VP (Pret Sg P2) => fu_ + "gires" ;--# notpresent + VP (Pret Pl P3) => fu_ + "giren" ;--# notpresent + VP (Pret Sg P3) => fu_ + "gí" ;--# notpresent VP (Cond Pl P1) => fu_ + "giríem" ;--# notpresent VP (Cond Sg P1) => fu_ + "giria" ;--# notpresent VP (Cond Pl P2) => fu_ + "giríeu" ;--# notpresent @@ -3064,7 +3158,6 @@ oper haver_59 : Str -> Bool -> Verbum = \haver,flag -> {s = table { VI Infn=> h_ + "aver" ; VI Ger => h_ + "avent" ; - VI Part => h_ + "agut" ; VP (Pres Ind Sg P1) => case flag of {True => h_ + "e" ; False => h_ + "aig"} ; VP (Pres Ind Sg P2) => h_ + "as" ; VP (Pres Ind Sg P3) => h_ + "a" ; @@ -3085,10 +3178,14 @@ oper haver_59 : Str -> Bool -> Verbum = \haver,flag -> VP (Impf Ind Pl P3) => h_ + "avien" ; --# notpresent VP (Impf Sub Sg P1) => h_ + "agués" ; --# notpresent VP (Impf Sub Sg P2) => h_ + "aguessis" ; --# notpresent + VP ImpfSubSgE => h_ + "aguesses" ; --# notpresent VP (Impf Sub Sg P3) => h_ + "agués" ; --# notpresent VP (Impf Sub Pl P1) => h_ + "aguéssim" ; --# notpresent + VP (ImpfSubPlE P1) => h_ + "aguéssem" ; --# notpresent VP (Impf Sub Pl P2) => h_ + "aguéssiu" ; --# notpresent + VP (ImpfSubPlE P2) => h_ + "aguésseu" ; --# notpresent VP (Impf Sub Pl P3) => h_ + "aguessin" ; --# notpresent + VP (ImpfSubPlE P3) => h_ + "aguessen" ; --# notpresent VP (Pret Sg P1) => h_ + "aguí" ; --# notpresent VP (Pret Sg P2) => h_ + "agueres" ; --# notpresent VP (Pret Sg P3) => h_ + "agué" ; --# notpresent @@ -3124,14 +3221,13 @@ oper haver_59 : Str -> Bool -> Verbum = \haver,flag -> } } ;-- heure-- is not in the used source . -oper imprimir_61 : Str -> Verbum = \imprimir -> +oper imprimir_61 : Str -> Bool -> Verbum = \imprimir,flag -> let impr_ = Predef.tk 4 imprimir in {s = table { VI Infn => impr_ + "imir" ; VI Ger => impr_ + "imint" ; - VI Part => impr_ + "ès" ; VP (Pres Ind Pl P1) => impr_ + "imim" ; - VP (Pres Ind Sg P1) => impr_ + "imeixo" ; + VP (Pres Ind Sg P1) => case flag of {True => impr_ + "imeixo"; _ => impr_ + "imixo"} ; VP (Pres Ind Pl P2) => impr_ + "imiu" ; VP (Pres Ind Sg P2) => impr_ + "imeixes" ; VP (Pres Ind Pl P3) => impr_ + "imeixen" ; @@ -3149,10 +3245,14 @@ let impr_ = Predef.tk 4 imprimir in VP (Impf Ind Pl P3) => impr_ + "imien" ;--# notpresent VP (Impf Ind Sg P3) => impr_ + "imia" ;--# notpresent VP (Impf Sub Pl P1) => impr_ + "imíssim" ;--# notpresent + VP (ImpfSubPlE P1) => impr_ + "imíssem" ;--# notpresent VP (Impf Sub Sg P1) => impr_ + "imís" ;--# notpresent VP (Impf Sub Pl P2) => impr_ + "imíssiu" ;--# notpresent + VP (ImpfSubPlE P2) => impr_ + "imísseu" ;--# notpresent VP (Impf Sub Sg P2) => impr_ + "imissis" ;--# notpresent + VP ImpfSubSgE => impr_ + "imisses" ;--# notpresent VP (Impf Sub Pl P3) => impr_ + "imissin" ;--# notpresent + VP (ImpfSubPlE P3) => impr_ + "imissen" ;--# notpresent VP (Impf Sub Sg P3) => impr_ + "imís" ;--# notpresent VP (Fut Pl P1) => impr_ + "imirem" ;--# notpresent VP (Fut Sg P1) => impr_ + "imiré" ;--# notpresent @@ -3160,12 +3260,12 @@ let impr_ = Predef.tk 4 imprimir in VP (Fut Sg P2) => impr_ + "imiràs" ;--# notpresent VP (Fut Pl P3) => impr_ + "imiran" ;--# notpresent VP (Fut Sg P3) => impr_ + "imirà" ;--# notpresent - VP (Pret Pl P1) => impr_ + "imíssim" ;--# notpresent - VP (Pret Sg P1) => impr_ + "imís" ;--# notpresent - VP (Pret Pl P2) => impr_ + "imíssiu" ;--# notpresent - VP (Pret Sg P2) => impr_ + "imissis" ;--# notpresent - VP (Pret Pl P3) => impr_ + "imissin" ;--# notpresent - VP (Pret Sg P3) => impr_ + "imís" ;--# notpresent + VP (Pret Pl P1) => impr_ + "imírem" ;--# notpresent + VP (Pret Sg P1) => impr_ + "imí" ;--# notpresent + VP (Pret Pl P2) => impr_ + "imíreu" ;--# notpresent + VP (Pret Sg P2) => impr_ + "imires" ;--# notpresent + VP (Pret Pl P3) => impr_ + "imiren" ;--# notpresent + VP (Pret Sg P3) => impr_ + "imí" ;--# notpresent VP (Cond Pl P1) => impr_ + "imiríem" ;--# notpresent VP (Cond Sg P1) => impr_ + "imiria" ;--# notpresent VP (Cond Pl P2) => impr_ + "imiríeu" ;--# notpresent @@ -3178,31 +3278,30 @@ 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) => impr_ + "esa" ; + VP (Pass Sg Fem) => case flag of {True => impr_ + "esa"; _ => impr_ + ""} ; VP (Pass Pl Masc) => impr_ + "esos" ; - VP (Pass Sg Masc) => impr_ + "ès" ; + VP (Pass Sg Masc) => case flag of {True => impr_ + "ès"; _ => impr_ + ""} ; VP (Imp Sg P1) => nonExist } } ; -oper jeure_62 : Str -> Verbum = \jeure -> +oper jeure_62 : Str -> Bool -> Verbum = \jeure,flag -> let j_ = Predef.tk 4 jeure in {s = table { - VI Infn => j_ + "eure" ; + VI Infn => case flag of {True => j_ + "eure"; _ => j_ + "aure"} ; VI Ger => j_ + "aient" ; - VI Part => j_ + "agut" ; VP (Pres Ind Pl P1) => j_ + "aiem" ; - VP (Pres Ind Sg P1) => j_ + "ec" ; + VP (Pres Ind Sg P1) => case flag of {True => j_ + "ec"; _ => j_ + "ac"} ; VP (Pres Ind Pl P2) => j_ + "aieu" ; - VP (Pres Ind Sg P2) => j_ + "eus" ; - VP (Pres Ind Pl P3) => j_ + "euen" ; - VP (Pres Ind Sg P3) => j_ + "eu" ; + VP (Pres Ind Sg P2) => case flag of {True => j_ + "eus"; _ => j_ + "aus"} ; + VP (Pres Ind Pl P3) => case flag of {True => j_ + "euen"; _ => j_ + "auen"} ; + VP (Pres Ind Sg P3) => case flag of {True => j_ + "eu"; _ => j_ + "au"} ; VP (Pres Sub Pl P1) => j_ + "aguem" ; - VP (Pres Sub Sg P1) => j_ + "egui" ; + VP (Pres Sub Sg P1) => case flag of {True => j_ + "egui"; _ => j_ + "agui"} ; VP (Pres Sub Pl P2) => j_ + "agueu" ; - VP (Pres Sub Sg P2) => j_ + "eguis" ; - VP (Pres Sub Pl P3) => j_ + "eguin" ; - VP (Pres Sub Sg P3) => j_ + "egui" ; + VP (Pres Sub Sg P2) => case flag of {True => j_ + "eguis"; _ => j_ + "aguis"} ; + VP (Pres Sub Pl P3) => case flag of {True => j_ + "eguin"; _ => j_ + "aguin"} ; + VP (Pres Sub Sg P3) => case flag of {True => j_ + "egui"; _ => j_ + "agui"} ; VP (Impf Ind Pl P1) => j_ + "èiem" ;--# notpresent VP (Impf Ind Sg P1) => j_ + "eia" ;--# notpresent VP (Impf Ind Pl P2) => j_ + "èieu" ;--# notpresent @@ -3210,10 +3309,14 @@ let j_ = Predef.tk 4 jeure in VP (Impf Ind Pl P3) => j_ + "eien" ;--# notpresent VP (Impf Ind Sg P3) => j_ + "eia" ;--# notpresent VP (Impf Sub Pl P1) => j_ + "aguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => j_ + "aguéssem" ;--# notpresent VP (Impf Sub Sg P1) => j_ + "agués" ;--# notpresent VP (Impf Sub Pl P2) => j_ + "aguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => j_ + "aguésseu" ;--# notpresent VP (Impf Sub Sg P2) => j_ + "aguessis" ;--# notpresent + VP ImpfSubSgE => j_ + "aguesses" ;--# notpresent VP (Impf Sub Pl P3) => j_ + "aguessin" ;--# notpresent + VP (ImpfSubPlE P3) => j_ + "aguessen" ;--# notpresent VP (Impf Sub Sg P3) => j_ + "agués" ;--# notpresent VP (Fut Pl P1) => j_ + "aurem" ;--# notpresent VP (Fut Sg P1) => j_ + "auré" ;--# notpresent @@ -3221,12 +3324,12 @@ let j_ = Predef.tk 4 jeure in VP (Fut Sg P2) => j_ + "auràs" ;--# notpresent VP (Fut Pl P3) => j_ + "auran" ;--# notpresent VP (Fut Sg P3) => j_ + "aurà" ;--# notpresent - VP (Pret Pl P1) => j_ + "aguéssim" ;--# notpresent - VP (Pret Sg P1) => j_ + "agués" ;--# notpresent - VP (Pret Pl P2) => j_ + "aguéssiu" ;--# notpresent - VP (Pret Sg P2) => j_ + "aguessis" ;--# notpresent - VP (Pret Pl P3) => j_ + "aguessin" ;--# notpresent - VP (Pret Sg P3) => j_ + "agués" ;--# notpresent + VP (Pret Pl P1) => j_ + "aguérem" ;--# notpresent + VP (Pret Sg P1) => j_ + "aguí" ;--# notpresent + VP (Pret Pl P2) => j_ + "aguéreu" ;--# notpresent + VP (Pret Sg P2) => j_ + "agueres" ;--# notpresent + VP (Pret Pl P3) => j_ + "agueren" ;--# notpresent + VP (Pret Sg P3) => j_ + "agué" ;--# notpresent VP (Cond Pl P1) => j_ + "auríem" ;--# notpresent VP (Cond Sg P1) => j_ + "auria" ;--# notpresent VP (Cond Pl P2) => j_ + "auríeu" ;--# notpresent @@ -3235,9 +3338,9 @@ let j_ = Predef.tk 4 jeure in VP (Cond Sg P3) => j_ + "auria" ;--# notpresent VP (Imp Pl P1) => j_ + "aguem" ; VP (Imp Pl P2) => j_ + "aieu" ; - VP (Imp Sg P2) => j_ + "eu" ; - VP (Imp Pl P3) => j_ + "eguin" ; - VP (Imp Sg P3) => j_ + "egui" ; + VP (Imp Sg P2) => case flag of {True => j_ + "eu"; _ => j_ + "au"} ; + VP (Imp Pl P3) => case flag of {True => j_ + "eguin"; _ => j_ + "aguin"} ; + VP (Imp Sg P3) => case flag of {True => j_ + "egui"; _ => j_ + "agui"} ; VP (Pass Pl Fem) => j_ + "agudes" ; VP (Pass Sg Fem) => j_ + "aguda" ; VP (Pass Pl Masc) => j_ + "aguts" ; @@ -3251,7 +3354,6 @@ let llo_ = Predef.tk 2 lloar in {s = table { VI Infn => llo_ + "ar" ; VI Ger => llo_ + "ant" ; - VI Part => llo_ + "at" ; VP (Pres Ind Pl P1) => llo_ + "em" ; VP (Pres Ind Sg P1) => llo_ + "o" ; VP (Pres Ind Pl P2) => llo_ + "eu" ; @@ -3271,10 +3373,14 @@ let llo_ = Predef.tk 2 lloar in VP (Impf Ind Pl P3) => llo_ + "aven" ;--# notpresent VP (Impf Ind Sg P3) => llo_ + "ava" ;--# notpresent VP (Impf Sub Pl P1) => llo_ + "éssim" ;--# notpresent + VP (ImpfSubPlE P1) => llo_ + "éssem" ;--# notpresent VP (Impf Sub Sg P1) => llo_ + "és" ;--# notpresent VP (Impf Sub Pl P2) => llo_ + "éssiu" ;--# notpresent + VP (ImpfSubPlE P2) => llo_ + "ésseu" ;--# notpresent VP (Impf Sub Sg P2) => llo_ + "essis" ;--# notpresent + VP ImpfSubSgE => llo_ + "esses" ;--# notpresent VP (Impf Sub Pl P3) => llo_ + "essin" ;--# notpresent + VP (ImpfSubPlE P3) => llo_ + "essen" ;--# notpresent VP (Impf Sub Sg P3) => llo_ + "és" ;--# notpresent VP (Fut Pl P1) => llo_ + "arem" ;--# notpresent VP (Fut Sg P1) => llo_ + "aré" ;--# notpresent @@ -3282,12 +3388,12 @@ let llo_ = Predef.tk 2 lloar in VP (Fut Sg P2) => llo_ + "aràs" ;--# notpresent VP (Fut Pl P3) => llo_ + "aran" ;--# notpresent VP (Fut Sg P3) => llo_ + "arà" ;--# notpresent - VP (Pret Pl P1) => llo_ + "éssim" ;--# notpresent - VP (Pret Sg P1) => llo_ + "és" ;--# notpresent - VP (Pret Pl P2) => llo_ + "éssiu" ;--# notpresent - VP (Pret Sg P2) => llo_ + "essis" ;--# notpresent - VP (Pret Pl P3) => llo_ + "essin" ;--# notpresent - VP (Pret Sg P3) => llo_ + "és" ;--# notpresent + VP (Pret Pl P1) => llo_ + "àrem" ;--# notpresent + VP (Pret Sg P1) => llo_ + "í" ;--# notpresent + VP (Pret Pl P2) => llo_ + "àreu" ;--# notpresent + VP (Pret Sg P2) => llo_ + "ares" ;--# notpresent + VP (Pret Pl P3) => llo_ + "aren" ;--# notpresent + VP (Pret Sg P3) => llo_ + "à" ;--# notpresent VP (Cond Pl P1) => llo_ + "aríem" ;--# notpresent VP (Cond Sg P1) => llo_ + "aria" ;--# notpresent VP (Cond Pl P2) => llo_ + "aríeu" ;--# notpresent @@ -3307,24 +3413,23 @@ VP (Imp Sg P1) => nonExist } } ; -oper lluir_64 : Str -> Verbum = \lluir -> +oper lluir_64 : Str -> Ints 3 -> Verbum = \lluir,flag -> let llu_ = Predef.tk 2 lluir in {s = table { VI Infn => llu_ + "ir" ; VI Ger => llu_ + "int" ; - VI Part => llu_ + "ït" ; VP (Pres Ind Pl P1) => llu_ + "ïm" ; - VP (Pres Ind Sg P1) => llu_ + "eixo" ; + VP (Pres Ind Sg P1) => case flag of {0 => llu_ + "eixo"; 1 => llu_ + "ïxo"; _ => llu_ + "o"} ; VP (Pres Ind Pl P2) => llu_ + "ïu" ; - VP (Pres Ind Sg P2) => llu_ + "eixes" ; - VP (Pres Ind Pl P3) => llu_ + "eixen" ; - VP (Pres Ind Sg P3) => llu_ + "eix" ; + 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 Sub Pl P1) => llu_ + "ïm" ; - VP (Pres Sub Sg P1) => llu_ + "eixi" ; + VP (Pres Sub Sg P1) => case flag of {0 => llu_ + "eixi"; _ => llu_ + "ï"} ; VP (Pres Sub Pl P2) => llu_ + "ïu" ; - VP (Pres Sub Sg P2) => llu_ + "eixis" ; - VP (Pres Sub Pl P3) => llu_ + "eixin" ; - VP (Pres Sub Sg P3) => llu_ + "eixi" ; + VP (Pres Sub Sg P2) => case flag of {0 => llu_ + "eixis"; _ => llu_ + "ïs"} ; + VP (Pres Sub Pl P3) => case flag of {0 => llu_ + "eixin"; _ => llu_ + "ïn"} ; + VP (Pres Sub Sg P3) => case flag of {0 => llu_ + "eixi"; _ => llu_ + "ï"} ; VP (Impf Ind Pl P1) => llu_ + "íem" ;--# notpresent VP (Impf Ind Sg P1) => llu_ + "ïa" ;--# notpresent VP (Impf Ind Pl P2) => llu_ + "íeu" ;--# notpresent @@ -3332,10 +3437,14 @@ let llu_ = Predef.tk 2 lluir in VP (Impf Ind Pl P3) => llu_ + "ïen" ;--# notpresent VP (Impf Ind Sg P3) => llu_ + "ïa" ;--# notpresent VP (Impf Sub Pl P1) => llu_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => llu_ + "íssem" ;--# notpresent VP (Impf Sub Sg P1) => llu_ + "ís" ;--# notpresent VP (Impf Sub Pl P2) => llu_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => llu_ + "ísseu" ;--# notpresent VP (Impf Sub Sg P2) => llu_ + "ïssis" ;--# notpresent + VP ImpfSubSgE => llu_ + "ïsses" ;--# notpresent VP (Impf Sub Pl P3) => llu_ + "ïssin" ;--# notpresent + VP (ImpfSubPlE P3) => llu_ + "ïssen" ;--# notpresent VP (Impf Sub Sg P3) => llu_ + "ís" ;--# notpresent VP (Fut Pl P1) => llu_ + "irem" ;--# notpresent VP (Fut Sg P1) => llu_ + "iré" ;--# notpresent @@ -3343,12 +3452,12 @@ let llu_ = Predef.tk 2 lluir in VP (Fut Sg P2) => llu_ + "iràs" ;--# notpresent VP (Fut Pl P3) => llu_ + "iran" ;--# notpresent VP (Fut Sg P3) => llu_ + "irà" ;--# notpresent - VP (Pret Pl P1) => llu_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => llu_ + "ís" ;--# notpresent - VP (Pret Pl P2) => llu_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => llu_ + "ïssis" ;--# notpresent - VP (Pret Pl P3) => llu_ + "ïssin" ;--# notpresent - VP (Pret Sg P3) => llu_ + "ís" ;--# notpresent + VP (Pret Pl P1) => llu_ + "írem" ;--# notpresent + VP (Pret Sg P1) => llu_ + "í" ;--# notpresent + VP (Pret Pl P2) => llu_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => llu_ + "ïres" ;--# notpresent + VP (Pret Pl P3) => llu_ + "ïren" ;--# notpresent + VP (Pret Sg P3) => llu_ + "í" ;--# notpresent VP (Cond Pl P1) => llu_ + "iríem" ;--# notpresent VP (Cond Sg P1) => llu_ + "iria" ;--# notpresent VP (Cond Pl P2) => llu_ + "iríeu" ;--# notpresent @@ -3357,9 +3466,9 @@ 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) => llu_ + "eix" ; - VP (Imp Pl P3) => llu_ + "eixin" ; - VP (Imp Sg P3) => llu_ + "eixi" ; + 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" ; VP (Pass Sg Fem) => llu_ + "ïda" ; VP (Pass Pl Masc) => llu_ + "ïts" ; @@ -3374,7 +3483,6 @@ let ment_ = Predef.tk 2 mentir in {s = table { VI Infn => ment_ + "ir" ; VI Ger => ment_ + "int" ; - VI Part => ment_ + "it" ; VP (Pres Ind Pl P1) => ment_ + "im" ; VP (Pres Ind Sg P1) => ment_ + "eixo" ; VP (Pres Ind Pl P2) => ment_ + "iu" ; @@ -3394,10 +3502,14 @@ let ment_ = Predef.tk 2 mentir in VP (Impf Ind Pl P3) => ment_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => ment_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => ment_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => ment_ + "íssem" ;--# notpresent VP (Impf Sub Sg P1) => ment_ + "ís" ;--# notpresent VP (Impf Sub Pl P2) => ment_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => ment_ + "ísseu" ;--# notpresent VP (Impf Sub Sg P2) => ment_ + "issis" ;--# notpresent + VP ImpfSubSgE => ment_ + "isses" ;--# notpresent VP (Impf Sub Pl P3) => ment_ + "issin" ;--# notpresent + VP (ImpfSubPlE P3) => ment_ + "issen" ;--# notpresent VP (Impf Sub Sg P3) => ment_ + "ís" ;--# notpresent VP (Fut Pl P1) => ment_ + "irem" ;--# notpresent VP (Fut Sg P1) => ment_ + "iré" ;--# notpresent @@ -3405,12 +3517,12 @@ let ment_ = Predef.tk 2 mentir in VP (Fut Sg P2) => ment_ + "iràs" ;--# notpresent VP (Fut Pl P3) => ment_ + "iran" ;--# notpresent VP (Fut Sg P3) => ment_ + "irà" ;--# notpresent - VP (Pret Pl P1) => ment_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => ment_ + "ís" ;--# notpresent - VP (Pret Pl P2) => ment_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => ment_ + "issis" ;--# notpresent - VP (Pret Pl P3) => ment_ + "issin" ;--# notpresent - VP (Pret Sg P3) => ment_ + "ís" ;--# notpresent + VP (Pret Pl P1) => ment_ + "írem" ;--# notpresent + VP (Pret Sg P1) => ment_ + "í" ;--# notpresent + VP (Pret Pl P2) => ment_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => ment_ + "ires" ;--# notpresent + VP (Pret Pl P3) => ment_ + "iren" ;--# notpresent + VP (Pret Sg P3) => ment_ + "í" ;--# notpresent VP (Cond Pl P1) => ment_ + "iríem" ;--# notpresent VP (Cond Sg P1) => ment_ + "iria" ;--# notpresent VP (Cond Pl P2) => ment_ + "iríeu" ;--# notpresent @@ -3435,7 +3547,6 @@ let menyspre_ = Predef.tk 2 menysprear in {s = table { VI Infn => menyspre_ + "ar" ; VI Ger => menyspre_ + "ant" ; - VI Part => menyspre_ + "at" ; VP (Pres Ind Pl P1) => menyspre_ + "em" ; VP (Pres Ind Sg P1) => menyspre_ + "o" ; VP (Pres Ind Pl P2) => menyspre_ + "eu" ; @@ -3455,10 +3566,14 @@ let menyspre_ = Predef.tk 2 menysprear in VP (Impf Ind Pl P3) => menyspre_ + "aven" ;--# notpresent VP (Impf Ind Sg P3) => menyspre_ + "ava" ;--# notpresent VP (Impf Sub Pl P1) => menyspre_ + "éssim" ;--# notpresent + VP (ImpfSubPlE P1) => menyspre_ + "éssem" ;--# notpresent VP (Impf Sub Sg P1) => menyspre_ + "és" ;--# notpresent VP (Impf Sub Pl P2) => menyspre_ + "éssiu" ;--# notpresent + VP (ImpfSubPlE P2) => menyspre_ + "ésseu" ;--# notpresent VP (Impf Sub Sg P2) => menyspre_ + "essis" ;--# notpresent + VP ImpfSubSgE => menyspre_ + "esses" ;--# notpresent VP (Impf Sub Pl P3) => menyspre_ + "essin" ;--# notpresent + VP (ImpfSubPlE P3) => menyspre_ + "essen" ;--# notpresent VP (Impf Sub Sg P3) => menyspre_ + "és" ;--# notpresent VP (Fut Pl P1) => menyspre_ + "arem" ;--# notpresent VP (Fut Sg P1) => menyspre_ + "aré" ;--# notpresent @@ -3466,12 +3581,12 @@ let menyspre_ = Predef.tk 2 menysprear in VP (Fut Sg P2) => menyspre_ + "aràs" ;--# notpresent VP (Fut Pl P3) => menyspre_ + "aran" ;--# notpresent VP (Fut Sg P3) => menyspre_ + "arà" ;--# notpresent - VP (Pret Pl P1) => menyspre_ + "éssim" ;--# notpresent - VP (Pret Sg P1) => menyspre_ + "és" ;--# notpresent - VP (Pret Pl P2) => menyspre_ + "éssiu" ;--# notpresent - VP (Pret Sg P2) => menyspre_ + "essis" ;--# notpresent - VP (Pret Pl P3) => menyspre_ + "essin" ;--# notpresent - VP (Pret Sg P3) => menyspre_ + "és" ;--# notpresent + VP (Pret Pl P1) => menyspre_ + "àrem" ;--# notpresent + VP (Pret Sg P1) => menyspre_ + "í" ;--# notpresent + VP (Pret Pl P2) => menyspre_ + "àreu" ;--# notpresent + VP (Pret Sg P2) => menyspre_ + "ares" ;--# notpresent + VP (Pret Pl P3) => menyspre_ + "aren" ;--# notpresent + VP (Pret Sg P3) => menyspre_ + "à" ;--# notpresent VP (Cond Pl P1) => menyspre_ + "aríem" ;--# notpresent VP (Cond Sg P1) => menyspre_ + "aria" ;--# notpresent VP (Cond Pl P2) => menyspre_ + "aríeu" ;--# notpresent @@ -3491,20 +3606,19 @@ VP (Imp Sg P1) => nonExist } } ; -oper merèixer_68 : Str -> Verbum = \merèixer -> +oper merèixer_68 : Str -> Bool -> Verbum = \merèixer,flag -> let mer_ = Predef.tk 5 merèixer in {s = table { VI Ger => mer_ + "eixent" ; - VI Part => mer_ + "escut" ; VP (Pres Ind Pl P1) => mer_ + "eixem" ; VP (Pres Ind Sg P1) => mer_ + "eixo" ; VP (Pres Ind Pl P2) => mer_ + "eixeu" ; VP (Pres Ind Sg P2) => mer_ + "eixes" ; VP (Pres Ind Pl P3) => mer_ + "eixen" ; VP (Pres Ind Sg P3) => mer_ + "eix" ; - VP (Pres Sub Pl P1) => mer_ + "eixem" ; + VP (Pres Sub Pl P1) => case flag of {True => mer_ + "eixem"; _ => mer_ + "esquem"} ; VP (Pres Sub Sg P1) => mer_ + "eixi" ; - VP (Pres Sub Pl P2) => mer_ + "eixeu" ; + VP (Pres Sub Pl P2) => case flag of {True => mer_ + "eixeu"; _ => mer_ + "esqueu"} ; VP (Pres Sub Sg P2) => mer_ + "eixis" ; VP (Pres Sub Pl P3) => mer_ + "eixin" ; VP (Pres Sub Sg P3) => mer_ + "eixi" ; @@ -3514,31 +3628,35 @@ let mer_ = Predef.tk 5 merèixer in VP (Impf Ind Sg P2) => mer_ + "eixies" ;--# notpresent VP (Impf Ind Pl P3) => mer_ + "eixien" ;--# notpresent VP (Impf Ind Sg P3) => mer_ + "eixia" ;--# notpresent - VP (Impf Sub Pl P1) => mer_ + "eixéssim" ;--# notpresent - VP (Impf Sub Sg P1) => mer_ + "eixés" ;--# notpresent - VP (Impf Sub Pl P2) => mer_ + "eixéssiu" ;--# notpresent - VP (Impf Sub Sg P2) => mer_ + "eixessis" ;--# notpresent - VP (Impf Sub Pl P3) => mer_ + "eixessin" ;--# notpresent - VP (Impf Sub Sg P3) => mer_ + "eixés" ;--# notpresent + VP (Impf Sub Pl P1) => case flag of {True => mer_ + "eixéssim"; _ => mer_ + "esquéssim"} ;--# notpresent + VP (ImpfSubPlE P1) => mer_ + "esquéssem" ;--# notpresent + VP (Impf Sub Sg P1) => case flag of {True => mer_ + "eixés"; _ => mer_ + "esqués"} ;--# notpresent + VP (Impf Sub Pl P2) => case flag of {True => mer_ + "eixéssiu"; _ => mer_ + "esquéssiu"} ;--# notpresent + VP (ImpfSubPlE P2) => mer_ + "esquésseu" ;--# notpresent + VP (Impf Sub Sg P2) => case flag of {True => mer_ + "eixessis"; _ => mer_ + "esquessis"} ;--# notpresent + VP ImpfSubSgE => mer_ + "esquesses" ;--# notpresent + VP (Impf Sub Pl P3) => case flag of {True => mer_ + "eixessin"; _ => mer_ + "esquessin"} ;--# notpresent + VP (ImpfSubPlE P3) => mer_ + "esquessen" ;--# notpresent + VP (Impf Sub Sg P3) => case flag of {True => mer_ + "eixés"; _ => mer_ + "esqués"} ;--# notpresent VP (Fut Pl P1) => mer_ + "eixerem" ;--# notpresent VP (Fut Sg P1) => mer_ + "eixeré" ;--# notpresent VP (Fut Pl P2) => mer_ + "eixereu" ;--# notpresent VP (Fut Sg P2) => mer_ + "eixeràs" ;--# notpresent VP (Fut Pl P3) => mer_ + "eixeran" ;--# notpresent VP (Fut Sg P3) => mer_ + "eixerà" ;--# notpresent - VP (Pret Pl P1) => mer_ + "eixéssim" ;--# notpresent - VP (Pret Sg P1) => mer_ + "eixés" ;--# notpresent - VP (Pret Pl P2) => mer_ + "eixéssiu" ;--# notpresent - VP (Pret Sg P2) => mer_ + "eixessis" ;--# notpresent - VP (Pret Pl P3) => mer_ + "eixessin" ;--# notpresent - VP (Pret Sg P3) => mer_ + "eixés" ;--# notpresent + VP (Pret Pl P1) => case flag of {True => mer_ + "eixérem"; _ => mer_ + "esquérem"} ;--# notpresent + VP (Pret Sg P1) => case flag of {True => mer_ + "eixí"; _ => mer_ + "esquí"} ;--# notpresent + VP (Pret Pl P2) => case flag of {True => mer_ + "eixéreu"; _ => mer_ + "esquéreu"} ;--# notpresent + VP (Pret Sg P2) => case flag of {True => mer_ + "eixeres"; _ => mer_ + "esqueres"} ;--# notpresent + VP (Pret Pl P3) => case flag of {True => mer_ + "eixeren"; _ => mer_ + "esqueren"} ;--# notpresent + VP (Pret Sg P3) => case flag of {True => mer_ + "eixé"; _ => mer_ + "esqué"} ;--# notpresent VP (Cond Pl P1) => mer_ + "eixeríem" ;--# notpresent VP (Cond Sg P1) => mer_ + "eixeria" ;--# notpresent VP (Cond Pl P2) => mer_ + "eixeríeu" ;--# notpresent VP (Cond Sg P2) => mer_ + "eixeries" ;--# notpresent VP (Cond Pl P3) => mer_ + "eixerien" ;--# notpresent VP (Cond Sg P3) => mer_ + "eixeria" ;--# notpresent - VP (Imp Pl P1) => mer_ + "eixem" ; + VP (Imp Pl P1) => case flag of {True => mer_ + "eixem"; _ => mer_ + "esquem"} ; VP (Imp Pl P2) => mer_ + "eixeu" ; VP (Imp Sg P2) => mer_ + "eix" ; VP (Imp Pl P3) => mer_ + "eixin" ; @@ -3551,15 +3669,12 @@ let mer_ = Predef.tk 5 merèixer in VP (Imp Sg P1) => nonExist } } ; --- metre-- is not in the used source . --- moldre-- is not in the used source . oper morir_71 : Str -> Verbum = \morir -> let m_ = Predef.tk 4 morir in {s = table { VI Infn => m_ + "orir" ; VI Ger => m_ + "orint" ; - VI Part => m_ + "ort" ; VP (Pres Ind Pl P1) => m_ + "orim" ; VP (Pres Ind Sg P1) => m_ + "oro" ; VP (Pres Ind Pl P2) => m_ + "oriu" ; @@ -3579,10 +3694,14 @@ let m_ = Predef.tk 4 morir in VP (Impf Ind Pl P3) => m_ + "orien" ;--# notpresent VP (Impf Ind Sg P3) => m_ + "oria" ;--# notpresent VP (Impf Sub Pl P1) => m_ + "oríssim" ;--# notpresent + VP (ImpfSubPlE P1) => m_ + "oríssem" ;--# notpresent VP (Impf Sub Sg P1) => m_ + "orís" ;--# notpresent VP (Impf Sub Pl P2) => m_ + "oríssiu" ;--# notpresent + VP (ImpfSubPlE P2) => m_ + "orísseu" ;--# notpresent VP (Impf Sub Sg P2) => m_ + "orissis" ;--# notpresent + VP ImpfSubSgE => m_ + "orisses" ;--# notpresent VP (Impf Sub Pl P3) => m_ + "orissin" ;--# notpresent + VP (ImpfSubPlE P3) => m_ + "orissen" ;--# notpresent VP (Impf Sub Sg P3) => m_ + "orís" ;--# notpresent VP (Fut Pl P1) => m_ + "orirem" ;--# notpresent VP (Fut Sg P1) => m_ + "oriré" ;--# notpresent @@ -3590,12 +3709,12 @@ let m_ = Predef.tk 4 morir in VP (Fut Sg P2) => m_ + "oriràs" ;--# notpresent VP (Fut Pl P3) => m_ + "oriran" ;--# notpresent VP (Fut Sg P3) => m_ + "orirà" ;--# notpresent - VP (Pret Pl P1) => m_ + "oríssim" ;--# notpresent - VP (Pret Sg P1) => m_ + "orís" ;--# notpresent - VP (Pret Pl P2) => m_ + "oríssiu" ;--# notpresent - VP (Pret Sg P2) => m_ + "orissis" ;--# notpresent - VP (Pret Pl P3) => m_ + "orissin" ;--# notpresent - VP (Pret Sg P3) => m_ + "orís" ;--# notpresent + VP (Pret Pl P1) => m_ + "orírem" ;--# notpresent + VP (Pret Sg P1) => m_ + "orí" ;--# notpresent + VP (Pret Pl P2) => m_ + "oríreu" ;--# notpresent + VP (Pret Sg P2) => m_ + "orires" ;--# notpresent + VP (Pret Pl P3) => m_ + "oriren" ;--# notpresent + VP (Pret Sg P3) => m_ + "orí" ;--# notpresent VP (Cond Pl P1) => m_ + "oriríem" ;--# notpresent VP (Cond Sg P1) => m_ + "oriria" ;--# notpresent VP (Cond Pl P2) => m_ + "oriríeu" ;--# notpresent @@ -3620,7 +3739,6 @@ let mo_ = Predef.tk 3 moure in {s = table { VI Infn => mo_ + "ure" ; VI Ger => mo_ + "vent" ; - VI Part => mo_ + "gut" ; VP (Pres Ind Pl P1) => mo_ + "vem" ; VP (Pres Ind Sg P1) => mo_ + "c" ; VP (Pres Ind Pl P2) => mo_ + "veu" ; @@ -3640,10 +3758,14 @@ let mo_ = Predef.tk 3 moure in VP (Impf Ind Pl P3) => mo_ + "vien" ;--# notpresent VP (Impf Ind Sg P3) => mo_ + "via" ;--# notpresent VP (Impf Sub Pl P1) => mo_ + "guéssim" ;--# notpresent + VP (ImpfSubPlE P1) => mo_ + "guéssem" ;--# notpresent VP (Impf Sub Sg P1) => mo_ + "gués" ;--# notpresent VP (Impf Sub Pl P2) => mo_ + "guéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => mo_ + "guésseu" ;--# notpresent VP (Impf Sub Sg P2) => mo_ + "guessis" ;--# notpresent + VP ImpfSubSgE => mo_ + "guesses" ;--# notpresent VP (Impf Sub Pl P3) => mo_ + "guessin" ;--# notpresent + VP (ImpfSubPlE P3) => mo_ + "guessen" ;--# notpresent VP (Impf Sub Sg P3) => mo_ + "gués" ;--# notpresent VP (Fut Pl P1) => mo_ + "urem" ;--# notpresent VP (Fut Sg P1) => mo_ + "uré" ;--# notpresent @@ -3651,12 +3773,12 @@ let mo_ = Predef.tk 3 moure in VP (Fut Sg P2) => mo_ + "uràs" ;--# notpresent VP (Fut Pl P3) => mo_ + "uran" ;--# notpresent VP (Fut Sg P3) => mo_ + "urà" ;--# notpresent - VP (Pret Pl P1) => mo_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => mo_ + "gués" ;--# notpresent - VP (Pret Pl P2) => mo_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => mo_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => mo_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => mo_ + "gués" ;--# notpresent + VP (Pret Pl P1) => mo_ + "guérem" ;--# notpresent + VP (Pret Sg P1) => mo_ + "guí" ;--# notpresent + VP (Pret Pl P2) => mo_ + "guéreu" ;--# notpresent + VP (Pret Sg P2) => mo_ + "gueres" ;--# notpresent + VP (Pret Pl P3) => mo_ + "gueren" ;--# notpresent + VP (Pret Sg P3) => mo_ + "gué" ;--# notpresent VP (Cond Pl P1) => mo_ + "uríem" ;--# notpresent VP (Cond Sg P1) => mo_ + "uria" ;--# notpresent VP (Cond Pl P2) => mo_ + "uríeu" ;--# notpresent @@ -3675,14 +3797,12 @@ let mo_ = Predef.tk 3 moure in VP (Imp Sg P1) => nonExist } } ; --- munyir-- is not in the used source . -oper néixer_74 : Str -> Verbum = \néixer -> +oper néixer_74 : Str -> Bool -> Verbum = \néixer,flag -> let n_ = Predef.tk 5 néixer in {s = table { VI Infn => n_ + "éixer" ; VI Ger => n_ + "aixent" ; - VI Part => n_ + "ascut" ; VP (Pres Ind Pl P1) => n_ + "aixem" ; VP (Pres Ind Sg P1) => n_ + "eixo" ; VP (Pres Ind Pl P2) => n_ + "aixeu" ; @@ -3702,10 +3822,14 @@ let n_ = Predef.tk 5 néixer in VP (Impf Ind Pl P3) => n_ + "aixien" ;--# notpresent VP (Impf Ind Sg P3) => n_ + "aixia" ;--# notpresent VP (Impf Sub Pl P1) => n_ + "aixéssim" ;--# notpresent + VP (ImpfSubPlE P1) => n_ + "aixéssem" ;--# notpresent VP (Impf Sub Sg P1) => n_ + "aixés" ;--# notpresent VP (Impf Sub Pl P2) => n_ + "aixéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => n_ + "aixésseu" ;--# notpresent VP (Impf Sub Sg P2) => n_ + "aixessis" ;--# notpresent + VP ImpfSubSgE => n_ + "aixesses" ;--# notpresent VP (Impf Sub Pl P3) => n_ + "aixessin" ;--# notpresent + VP (ImpfSubPlE P3) => n_ + "aixessen" ;--# notpresent VP (Impf Sub Sg P3) => n_ + "aixés" ;--# notpresent VP (Fut Pl P1) => n_ + "aixerem" ;--# notpresent VP (Fut Sg P1) => n_ + "aixeré" ;--# notpresent @@ -3713,12 +3837,12 @@ let n_ = Predef.tk 5 néixer in VP (Fut Sg P2) => n_ + "aixeràs" ;--# notpresent VP (Fut Pl P3) => n_ + "aixeran" ;--# notpresent VP (Fut Sg P3) => n_ + "aixerà" ;--# notpresent - VP (Pret Pl P1) => n_ + "aixéssim" ;--# notpresent - VP (Pret Sg P1) => n_ + "aixés" ;--# notpresent - VP (Pret Pl P2) => n_ + "aixéssiu" ;--# notpresent - VP (Pret Sg P2) => n_ + "aixessis" ;--# notpresent - VP (Pret Pl P3) => n_ + "aixessin" ;--# notpresent - VP (Pret Sg P3) => n_ + "aixés" ;--# notpresent + VP (Pret Pl P1) => case flag of {True => n_ + "aixérem"; _ => n_ + "asquérem"} ;--# notpresent + VP (Pret Sg P1) => case flag of {True => n_ + "així"; _ => n_ + "asquí"} ;--# notpresent + VP (Pret Pl P2) => case flag of {True => n_ + "aixéreu"; _ => n_ + "asquéreu"} ;--# notpresent + VP (Pret Sg P2) => case flag of {True => n_ + "aixeres"; _ => n_ + "asqueres"} ;--# notpresent + VP (Pret Pl P3) => case flag of {True => n_ + "aixeren"; _ => n_ + "asqueren"} ;--# notpresent + VP (Pret Sg P3) => case flag of {True => n_ + "aixé"; _ => n_ + "asqué"} ;--# notpresent VP (Cond Pl P1) => n_ + "aixeríem" ;--# notpresent VP (Cond Sg P1) => n_ + "aixeria" ;--# notpresent VP (Cond Pl P2) => n_ + "aixeríeu" ;--# notpresent @@ -3737,76 +3861,76 @@ let n_ = Predef.tk 5 néixer in VP (Imp Sg P1) => nonExist } } ; --- noure-- is not in the used source . --- obliquar-- is not in the used source . oper obrir_77 : Str -> Verbum = \obrir -> -let x_ = Predef.tk 5 obrir in +let ob_ = Predef.tk 3 obrir in {s = table { - VI Infn => x_ + "rir" ; - VI Ger => x_ + "rint" ; - VI Part => x_ + "ert" ; - VP (Pres Ind Pl P1) => x_ + "rim" ; - VP (Pres Ind Sg P1) => x_ + "ro" ; - VP (Pres Ind Pl P2) => x_ + "riu" ; - VP (Pres Ind Sg P2) => x_ + "res" ; - VP (Pres Ind Pl P3) => x_ + "ren" ; - VP (Pres Ind Sg P3) => x_ + "re" ; - VP (Pres Sub Pl P1) => x_ + "rim" ; - VP (Pres Sub Sg P1) => x_ + "ri" ; - VP (Pres Sub Pl P2) => x_ + "riu" ; - VP (Pres Sub Sg P2) => x_ + "ris" ; - VP (Pres Sub Pl P3) => x_ + "rin" ; - VP (Pres Sub Sg P3) => x_ + "ri" ; - VP (Impf Ind Pl P1) => x_ + "ríem" ;--# notpresent - VP (Impf Ind Sg P1) => x_ + "ria" ;--# notpresent - VP (Impf Ind Pl P2) => x_ + "ríeu" ;--# notpresent - VP (Impf Ind Sg P2) => x_ + "ries" ;--# notpresent - VP (Impf Ind Pl P3) => x_ + "rien" ;--# notpresent - VP (Impf Ind Sg P3) => x_ + "ria" ;--# notpresent - VP (Impf Sub Pl P1) => x_ + "ríssim" ;--# notpresent - VP (Impf Sub Sg P1) => x_ + "rís" ;--# notpresent - VP (Impf Sub Pl P2) => x_ + "ríssiu" ;--# notpresent - VP (Impf Sub Sg P2) => x_ + "rissis" ;--# notpresent - VP (Impf Sub Pl P3) => x_ + "rissin" ;--# notpresent - VP (Impf Sub Sg P3) => x_ + "rís" ;--# notpresent - VP (Fut Pl P1) => x_ + "rirem" ;--# notpresent - VP (Fut Sg P1) => x_ + "riré" ;--# notpresent - VP (Fut Pl P2) => x_ + "rireu" ;--# notpresent - VP (Fut Sg P2) => x_ + "riràs" ;--# notpresent - VP (Fut Pl P3) => x_ + "riran" ;--# notpresent - VP (Fut Sg P3) => x_ + "rirà" ;--# notpresent - VP (Pret Pl P1) => x_ + "ríssim" ;--# notpresent - VP (Pret Sg P1) => x_ + "rís" ;--# notpresent - VP (Pret Pl P2) => x_ + "ríssiu" ;--# notpresent - VP (Pret Sg P2) => x_ + "rissis" ;--# notpresent - VP (Pret Pl P3) => x_ + "rissin" ;--# notpresent - VP (Pret Sg P3) => x_ + "rís" ;--# notpresent - VP (Cond Pl P1) => x_ + "riríem" ;--# notpresent - VP (Cond Sg P1) => x_ + "riria" ;--# notpresent - VP (Cond Pl P2) => x_ + "riríeu" ;--# notpresent - VP (Cond Sg P2) => x_ + "riries" ;--# notpresent - VP (Cond Pl P3) => x_ + "ririen" ;--# notpresent - VP (Cond Sg P3) => x_ + "riria" ;--# notpresent - VP (Imp Pl P1) => x_ + "rim" ; - VP (Imp Pl P2) => x_ + "riu" ; - VP (Imp Sg P2) => x_ + "re" ; - VP (Imp Pl P3) => x_ + "rin" ; - VP (Imp Sg P3) => x_ + "ri" ; - VP (Pass Pl Fem) => x_ + "ertes" ; - VP (Pass Sg Fem) => x_ + "erta" ; - VP (Pass Pl Masc) => x_ + "erts" ; - VP (Pass Sg Masc) => x_ + "ert" ; + VI Infn => ob_ + "rir" ; + VI Ger => ob_ + "rint" ; + VP (Pres Ind Pl P1) => ob_ + "rim" ; + VP (Pres Ind Sg P1) => ob_ + "ro" ; + VP (Pres Ind Pl P2) => ob_ + "riu" ; + VP (Pres Ind Sg P2) => ob_ + "res" ; + VP (Pres Ind Pl P3) => ob_ + "ren" ; + VP (Pres Ind Sg P3) => ob_ + "re" ; + VP (Pres Sub Pl P1) => ob_ + "rim" ; + VP (Pres Sub Sg P1) => ob_ + "ri" ; + VP (Pres Sub Pl P2) => ob_ + "riu" ; + VP (Pres Sub Sg P2) => ob_ + "ris" ; + VP (Pres Sub Pl P3) => ob_ + "rin" ; + VP (Pres Sub Sg P3) => ob_ + "ri" ; + VP (Impf Ind Pl P1) => ob_ + "ríem" ;--# notpresent + VP (Impf Ind Sg P1) => ob_ + "ria" ;--# notpresent + VP (Impf Ind Pl P2) => ob_ + "ríeu" ;--# notpresent + VP (Impf Ind Sg P2) => ob_ + "ries" ;--# notpresent + VP (Impf Ind Pl P3) => ob_ + "rien" ;--# notpresent + VP (Impf Ind Sg P3) => ob_ + "ria" ;--# notpresent + VP (Impf Sub Pl P1) => ob_ + "ríssim" ;--# notpresent + VP (ImpfSubPlE P1) => ob_ + "ríssem" ;--# notpresent + VP (Impf Sub Sg P1) => ob_ + "rís" ;--# notpresent + VP (Impf Sub Pl P2) => ob_ + "ríssiu" ;--# notpresent + VP (ImpfSubPlE P2) => ob_ + "rísseu" ;--# notpresent + VP (Impf Sub Sg P2) => ob_ + "rissis" ;--# notpresent + VP ImpfSubSgE => ob_ + "risses" ;--# notpresent + VP (Impf Sub Pl P3) => ob_ + "rissin" ;--# notpresent + VP (ImpfSubPlE P3) => ob_ + "rissen" ;--# notpresent + VP (Impf Sub Sg P3) => ob_ + "rís" ;--# notpresent + VP (Fut Pl P1) => ob_ + "rirem" ;--# notpresent + VP (Fut Sg P1) => ob_ + "riré" ;--# notpresent + VP (Fut Pl P2) => ob_ + "rireu" ;--# notpresent + VP (Fut Sg P2) => ob_ + "riràs" ;--# notpresent + VP (Fut Pl P3) => ob_ + "riran" ;--# notpresent + VP (Fut Sg P3) => ob_ + "rirà" ;--# notpresent + VP (Pret Pl P1) => ob_ + "rírem" ;--# notpresent + VP (Pret Sg P1) => ob_ + "rí" ;--# notpresent + VP (Pret Pl P2) => ob_ + "ríreu" ;--# notpresent + VP (Pret Sg P2) => ob_ + "rires" ;--# notpresent + VP (Pret Pl P3) => ob_ + "riren" ;--# notpresent + VP (Pret Sg P3) => ob_ + "rí" ;--# notpresent + VP (Cond Pl P1) => ob_ + "riríem" ;--# notpresent + VP (Cond Sg P1) => ob_ + "riria" ;--# notpresent + VP (Cond Pl P2) => ob_ + "riríeu" ;--# notpresent + VP (Cond Sg P2) => ob_ + "riries" ;--# notpresent + VP (Cond Pl P3) => ob_ + "ririen" ;--# notpresent + VP (Cond Sg P3) => ob_ + "riria" ;--# notpresent + VP (Imp Pl P1) => ob_ + "rim" ; + VP (Imp Pl P2) => ob_ + "riu" ; + VP (Imp Sg P2) => ob_ + "re" ; + VP (Imp Pl P3) => ob_ + "rin" ; + VP (Imp Sg P3) => ob_ + "ri" ; + VP (Pass Pl Fem) => ob_ + "ertes" ; + VP (Pass Sg Fem) => ob_ + "erta" ; + VP (Pass Pl Masc) => ob_ + "erts" ; + VP (Pass Sg Masc) => ob_ + "ert" ; VP (Imp Sg P1) => nonExist } } ; -oper obtenir_78 : Str -> Verbum = \obtenir -> +oper obtenir_78 : Str -> Bool -> Verbum = \obtenir,flag -> let ob_ = Predef.tk 5 obtenir in {s = table { VI Infn => ob_ + "tenir" ; VI Ger => ob_ + "tenint" ; - VI Part => ob_ + "tingut" ; VP (Pres Ind Pl P1) => ob_ + "tenim" ; VP (Pres Ind Sg P1) => ob_ + "tinc" ; VP (Pres Ind Pl P2) => ob_ + "teniu" ; @@ -3826,10 +3950,14 @@ let ob_ = Predef.tk 5 obtenir in VP (Impf Ind Pl P3) => ob_ + "tenien" ;--# notpresent VP (Impf Ind Sg P3) => ob_ + "tenia" ;--# notpresent VP (Impf Sub Pl P1) => ob_ + "tinguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => ob_ + "tinguéssem" ;--# notpresent VP (Impf Sub Sg P1) => ob_ + "tingués" ;--# notpresent VP (Impf Sub Pl P2) => ob_ + "tinguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => ob_ + "tinguésseu" ;--# notpresent VP (Impf Sub Sg P2) => ob_ + "tinguessis" ;--# notpresent + VP ImpfSubSgE => ob_ + "tinguesses" ;--# notpresent VP (Impf Sub Pl P3) => ob_ + "tinguessin" ;--# notpresent + VP (ImpfSubPlE P3) => ob_ + "tinguessen" ;--# notpresent VP (Impf Sub Sg P3) => ob_ + "tingués" ;--# notpresent VP (Fut Pl P1) => ob_ + "tindrem" ;--# notpresent VP (Fut Sg P1) => ob_ + "tindré" ;--# notpresent @@ -3837,12 +3965,12 @@ let ob_ = Predef.tk 5 obtenir in VP (Fut Sg P2) => ob_ + "tindràs" ;--# notpresent VP (Fut Pl P3) => ob_ + "tindran" ;--# notpresent VP (Fut Sg P3) => ob_ + "tindrà" ;--# notpresent - VP (Pret Pl P1) => ob_ + "tinguéssim" ;--# notpresent - VP (Pret Sg P1) => ob_ + "tingués" ;--# notpresent - VP (Pret Pl P2) => ob_ + "tinguéssiu" ;--# notpresent - VP (Pret Sg P2) => ob_ + "tinguessis" ;--# notpresent - VP (Pret Pl P3) => ob_ + "tinguessin" ;--# notpresent - VP (Pret Sg P3) => ob_ + "tingués" ;--# notpresent + VP (Pret Pl P1) => ob_ + "tinguérem" ;--# notpresent + VP (Pret Sg P1) => ob_ + "tinguí" ;--# notpresent + VP (Pret Pl P2) => ob_ + "tinguéreu" ;--# notpresent + VP (Pret Sg P2) => ob_ + "tingueres" ;--# notpresent + VP (Pret Pl P3) => ob_ + "tingueren" ;--# notpresent + VP (Pret Sg P3) => ob_ + "tingué" ;--# notpresent VP (Cond Pl P1) => ob_ + "tindríem" ;--# notpresent VP (Cond Sg P1) => ob_ + "tindria" ;--# notpresent VP (Cond Pl P2) => ob_ + "tindríeu" ;--# notpresent @@ -3850,8 +3978,8 @@ let ob_ = Predef.tk 5 obtenir in VP (Cond Pl P3) => ob_ + "tindrien" ;--# notpresent VP (Cond Sg P3) => ob_ + "tindria" ;--# notpresent VP (Imp Pl P1) => ob_ + "tinguem" ; - VP (Imp Pl P2) => ob_ + "tingueu" ; - VP (Imp Sg P2) => ob_ + "tingues" ; + VP (Imp Pl P2) => case flag of {True => ob_ + "tingueu"; _ => ob_ + "teniu"} ; + VP (Imp Sg P2) => case flag of {True => ob_ + "tingues"; _ => ob_ + "tén"} ; VP (Imp Pl P3) => ob_ + "tinguin" ; VP (Imp Sg P3) => ob_ + "tingui" ; VP (Pass Pl Fem) => ob_ + "tingudes" ; @@ -3864,74 +3992,76 @@ VP (Imp Sg P1) => nonExist -- oir-- is not in the used source . oper omplir_80 : Str -> Verbum = \omplir -> -let x_ = Predef.tk 6 omplir in +let ompl_ = Predef.tk 2 omplir in {s = table { - VI Infn => x_ + "ir" ; - VI Ger => x_ + "int" ; - VI Part => x_ + "ert" ; - VP (Pres Ind Pl P1) => x_ + "im" ; - VP (Pres Ind Sg P1) => x_ + "o" ; - VP (Pres Ind Pl P2) => x_ + "iu" ; - VP (Pres Ind Sg P2) => x_ + "es" ; - VP (Pres Ind Pl P3) => x_ + "en" ; - VP (Pres Ind Sg P3) => x_ + "e" ; - VP (Pres Sub Pl P1) => x_ + "im" ; - VP (Pres Sub Sg P1) => x_ + "i" ; - VP (Pres Sub Pl P2) => x_ + "iu" ; - VP (Pres Sub Sg P2) => x_ + "is" ; - VP (Pres Sub Pl P3) => x_ + "in" ; - VP (Pres Sub Sg P3) => x_ + "i" ; - VP (Impf Ind Pl P1) => x_ + "íem" ;--# notpresent - VP (Impf Ind Sg P1) => x_ + "ia" ;--# notpresent - VP (Impf Ind Pl P2) => x_ + "íeu" ;--# notpresent - VP (Impf Ind Sg P2) => x_ + "ies" ;--# notpresent - VP (Impf Ind Pl P3) => x_ + "ien" ;--# notpresent - VP (Impf Ind Sg P3) => x_ + "ia" ;--# notpresent - VP (Impf Sub Pl P1) => x_ + "íssim" ;--# notpresent - VP (Impf Sub Sg P1) => x_ + "ís" ;--# notpresent - VP (Impf Sub Pl P2) => x_ + "íssiu" ;--# notpresent - VP (Impf Sub Sg P2) => x_ + "issis" ;--# notpresent - VP (Impf Sub Pl P3) => x_ + "issin" ;--# notpresent - VP (Impf Sub Sg P3) => x_ + "ís" ;--# notpresent - VP (Fut Pl P1) => x_ + "irem" ;--# notpresent - VP (Fut Sg P1) => x_ + "iré" ;--# notpresent - VP (Fut Pl P2) => x_ + "ireu" ;--# notpresent - VP (Fut Sg P2) => x_ + "iràs" ;--# notpresent - VP (Fut Pl P3) => x_ + "iran" ;--# notpresent - VP (Fut Sg P3) => x_ + "irà" ;--# notpresent - VP (Pret Pl P1) => x_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => x_ + "ís" ;--# notpresent - VP (Pret Pl P2) => x_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => x_ + "issis" ;--# notpresent - VP (Pret Pl P3) => x_ + "issin" ;--# notpresent - VP (Pret Sg P3) => x_ + "ís" ;--# notpresent - VP (Cond Pl P1) => x_ + "iríem" ;--# notpresent - VP (Cond Sg P1) => x_ + "iria" ;--# notpresent - VP (Cond Pl P2) => x_ + "iríeu" ;--# notpresent - VP (Cond Sg P2) => x_ + "iries" ;--# notpresent - VP (Cond Pl P3) => x_ + "irien" ;--# notpresent - VP (Cond Sg P3) => x_ + "iria" ;--# notpresent - VP (Imp Pl P1) => x_ + "im" ; - VP (Imp Pl P2) => x_ + "iu" ; - VP (Imp Sg P2) => x_ + "e" ; - VP (Imp Pl P3) => x_ + "in" ; - VP (Imp Sg P3) => x_ + "i" ; - VP (Pass Pl Fem) => x_ + "ertes" ; - VP (Pass Sg Fem) => x_ + "erta" ; - VP (Pass Pl Masc) => x_ + "erts" ; - VP (Pass Sg Masc) => x_ + "ert" ; + VI Infn => ompl_ + "ir" ; + VI Ger => ompl_ + "int" ; + VP (Pres Ind Pl P1) => ompl_ + "im" ; + VP (Pres Ind Sg P1) => ompl_ + "o" ; + VP (Pres Ind Pl P2) => ompl_ + "iu" ; + VP (Pres Ind Sg P2) => ompl_ + "es" ; + VP (Pres Ind Pl P3) => ompl_ + "en" ; + VP (Pres Ind Sg P3) => ompl_ + "e" ; + VP (Pres Sub Pl P1) => ompl_ + "im" ; + VP (Pres Sub Sg P1) => ompl_ + "i" ; + VP (Pres Sub Pl P2) => ompl_ + "iu" ; + VP (Pres Sub Sg P2) => ompl_ + "is" ; + VP (Pres Sub Pl P3) => ompl_ + "in" ; + VP (Pres Sub Sg P3) => ompl_ + "i" ; + VP (Impf Ind Pl P1) => ompl_ + "íem" ;--# notpresent + VP (Impf Ind Sg P1) => ompl_ + "ia" ;--# notpresent + VP (Impf Ind Pl P2) => ompl_ + "íeu" ;--# notpresent + VP (Impf Ind Sg P2) => ompl_ + "ies" ;--# notpresent + VP (Impf Ind Pl P3) => ompl_ + "ien" ;--# notpresent + VP (Impf Ind Sg P3) => ompl_ + "ia" ;--# notpresent + VP (Impf Sub Pl P1) => ompl_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => ompl_ + "íssem" ;--# notpresent + VP (Impf Sub Sg P1) => ompl_ + "ís" ;--# notpresent + VP (Impf Sub Pl P2) => ompl_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => ompl_ + "ísseu" ;--# notpresent + VP (Impf Sub Sg P2) => ompl_ + "issis" ;--# notpresent + VP ImpfSubSgE => ompl_ + "isses" ;--# notpresent + VP (Impf Sub Pl P3) => ompl_ + "issin" ;--# notpresent + VP (ImpfSubPlE P3) => ompl_ + "issen" ;--# notpresent + VP (Impf Sub Sg P3) => ompl_ + "ís" ;--# notpresent + VP (Fut Pl P1) => ompl_ + "irem" ;--# notpresent + VP (Fut Sg P1) => ompl_ + "iré" ;--# notpresent + VP (Fut Pl P2) => ompl_ + "ireu" ;--# notpresent + VP (Fut Sg P2) => ompl_ + "iràs" ;--# notpresent + VP (Fut Pl P3) => ompl_ + "iran" ;--# notpresent + VP (Fut Sg P3) => ompl_ + "irà" ;--# notpresent + VP (Pret Pl P1) => ompl_ + "írem" ;--# notpresent + VP (Pret Sg P1) => ompl_ + "í" ;--# notpresent + VP (Pret Pl P2) => ompl_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => ompl_ + "ires" ;--# notpresent + VP (Pret Pl P3) => ompl_ + "iren" ;--# notpresent + VP (Pret Sg P3) => ompl_ + "í" ;--# notpresent + VP (Cond Pl P1) => ompl_ + "iríem" ;--# notpresent + VP (Cond Sg P1) => ompl_ + "iria" ;--# notpresent + VP (Cond Pl P2) => ompl_ + "iríeu" ;--# notpresent + VP (Cond Sg P2) => ompl_ + "iries" ;--# notpresent + VP (Cond Pl P3) => ompl_ + "irien" ;--# notpresent + VP (Cond Sg P3) => ompl_ + "iria" ;--# notpresent + VP (Imp Pl P1) => ompl_ + "im" ; + VP (Imp Pl P2) => ompl_ + "iu" ; + VP (Imp Sg P2) => ompl_ + "e" ; + VP (Imp Pl P3) => ompl_ + "in" ; + VP (Imp Sg P3) => ompl_ + "i" ; + VP (Pass Pl Fem) => ompl_ + "ertes" ; + VP (Pass Sg Fem) => ompl_ + "erta" ; + VP (Pass Pl Masc) => ompl_ + "erts" ; + VP (Pass Sg Masc) => ompl_ + "ert" ; VP (Imp Sg P1) => nonExist } } ; -oper patir_81 : Str -> Verbum = \patir -> +oper patir_81 : Str -> Bool -> Verbum = \patir,flag -> let pat_ = Predef.tk 2 patir in {s = table { VI Infn => pat_ + "ir" ; VI Ger => pat_ + "int" ; - VI Part => pat_ + "it" ; VP (Pres Ind Pl P1) => pat_ + "im" ; - VP (Pres Ind Sg P1) => pat_ + "eixo" ; + VP (Pres Ind Sg P1) => case flag of {True => pat_ + "eixo"; _ => pat_ + "ixo"} ; VP (Pres Ind Pl P2) => pat_ + "iu" ; VP (Pres Ind Sg P2) => pat_ + "eixes" ; VP (Pres Ind Pl P3) => pat_ + "eixen" ; @@ -3949,10 +4079,14 @@ let pat_ = Predef.tk 2 patir in VP (Impf Ind Pl P3) => pat_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => pat_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => pat_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => pat_ + "íssem" ;--# notpresent VP (Impf Sub Sg P1) => pat_ + "ís" ;--# notpresent VP (Impf Sub Pl P2) => pat_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => pat_ + "ísseu" ;--# notpresent VP (Impf Sub Sg P2) => pat_ + "issis" ;--# notpresent + VP ImpfSubSgE => pat_ + "isses" ;--# notpresent VP (Impf Sub Pl P3) => pat_ + "issin" ;--# notpresent + VP (ImpfSubPlE P3) => pat_ + "issen" ;--# notpresent VP (Impf Sub Sg P3) => pat_ + "ís" ;--# notpresent VP (Fut Pl P1) => pat_ + "irem" ;--# notpresent VP (Fut Sg P1) => pat_ + "iré" ;--# notpresent @@ -3960,12 +4094,12 @@ let pat_ = Predef.tk 2 patir in VP (Fut Sg P2) => pat_ + "iràs" ;--# notpresent VP (Fut Pl P3) => pat_ + "iran" ;--# notpresent VP (Fut Sg P3) => pat_ + "irà" ;--# notpresent - VP (Pret Pl P1) => pat_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => pat_ + "ís" ;--# notpresent - VP (Pret Pl P2) => pat_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => pat_ + "issis" ;--# notpresent - VP (Pret Pl P3) => pat_ + "issin" ;--# notpresent - VP (Pret Sg P3) => pat_ + "ís" ;--# notpresent + VP (Pret Pl P1) => pat_ + "írem" ;--# notpresent + VP (Pret Sg P1) => pat_ + "í" ;--# notpresent + VP (Pret Pl P2) => pat_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => pat_ + "ires" ;--# notpresent + VP (Pret Pl P3) => pat_ + "iren" ;--# notpresent + VP (Pret Sg P3) => pat_ + "í" ;--# notpresent VP (Cond Pl P1) => pat_ + "iríem" ;--# notpresent VP (Cond Sg P1) => pat_ + "iria" ;--# notpresent VP (Cond Pl P2) => pat_ + "iríeu" ;--# notpresent @@ -3991,7 +4125,6 @@ let perd_ = Predef.tk 2 perdre in {s = table { VI Infn => perd_ + "re" ; VI Ger => perd_ + "ent" ; - VI Part => perd_ + "ut" ; VP (Pres Ind Pl P1) => perd_ + "em" ; VP (Pres Ind Sg P1) => perd_ + "o" ; VP (Pres Ind Pl P2) => perd_ + "eu" ; @@ -4011,10 +4144,14 @@ let perd_ = Predef.tk 2 perdre in VP (Impf Ind Pl P3) => perd_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => perd_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => perd_ + "éssim" ;--# notpresent + VP (ImpfSubPlE P1) => perd_ + "éssem" ;--# notpresent VP (Impf Sub Sg P1) => perd_ + "és" ;--# notpresent VP (Impf Sub Pl P2) => perd_ + "éssiu" ;--# notpresent + VP (ImpfSubPlE P2) => perd_ + "ésseu" ;--# notpresent VP (Impf Sub Sg P2) => perd_ + "essis" ;--# notpresent + VP ImpfSubSgE => perd_ + "esses" ;--# notpresent VP (Impf Sub Pl P3) => perd_ + "essin" ;--# notpresent + VP (ImpfSubPlE P3) => perd_ + "essen" ;--# notpresent VP (Impf Sub Sg P3) => perd_ + "és" ;--# notpresent VP (Fut Pl P1) => perd_ + "rem" ;--# notpresent VP (Fut Sg P1) => perd_ + "ré" ;--# notpresent @@ -4022,12 +4159,12 @@ let perd_ = Predef.tk 2 perdre in VP (Fut Sg P2) => perd_ + "ràs" ;--# notpresent VP (Fut Pl P3) => perd_ + "ran" ;--# notpresent VP (Fut Sg P3) => perd_ + "rà" ;--# notpresent - VP (Pret Pl P1) => perd_ + "éssim" ;--# notpresent - VP (Pret Sg P1) => perd_ + "és" ;--# notpresent - VP (Pret Pl P2) => perd_ + "éssiu" ;--# notpresent - VP (Pret Sg P2) => perd_ + "essis" ;--# notpresent - VP (Pret Pl P3) => perd_ + "essin" ;--# notpresent - VP (Pret Sg P3) => perd_ + "és" ;--# notpresent + VP (Pret Pl P1) => perd_ + "érem" ;--# notpresent + VP (Pret Sg P1) => perd_ + "í" ;--# notpresent + VP (Pret Pl P2) => perd_ + "éreu" ;--# notpresent + VP (Pret Sg P2) => perd_ + "eres" ;--# notpresent + VP (Pret Pl P3) => perd_ + "eren" ;--# notpresent + VP (Pret Sg P3) => perd_ + "é" ;--# notpresent VP (Cond Pl P1) => perd_ + "ríem" ;--# notpresent VP (Cond Sg P1) => perd_ + "ria" ;--# notpresent VP (Cond Pl P2) => perd_ + "ríeu" ;--# notpresent @@ -4047,11 +4184,10 @@ VP (Imp Sg P1) => nonExist } } ; -oper pertànyer_84 : Str -> Verbum = \pertànyer -> +oper pertànyer_84 : Str -> Bool -> Verbum = \pertànyer,flag -> let pert_ = Predef.tk 5 pertànyer in {s = table { VI Ger => pert_ + "anyent" ; - VI Part => pert_ + "angut" ; VP (Pres Ind Pl P1) => pert_ + "anyem" ; VP (Pres Ind Sg P1) => pert_ + "anyo" ; VP (Pres Ind Pl P2) => pert_ + "anyeu" ; @@ -4071,23 +4207,27 @@ let pert_ = Predef.tk 5 pertànyer in VP (Impf Ind Pl P3) => pert_ + "anyien" ;--# notpresent VP (Impf Ind Sg P3) => pert_ + "anyia" ;--# notpresent VP (Impf Sub Pl P1) => pert_ + "anyéssim" ;--# notpresent - VP (Impf Sub Sg P1) => pert_ + "anyés" ;--# notpresent + VP (ImpfSubPlE P1) => pert_ + "anguéssem" ;--# notpresent + VP (Impf Sub Sg P1) => case flag of {True => pert_ + "anyés"; _ => pert_ + "angués"} ;--# notpresent VP (Impf Sub Pl P2) => pert_ + "anyéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => pert_ + "anguésseu" ;--# notpresent VP (Impf Sub Sg P2) => pert_ + "anyessis" ;--# notpresent + VP ImpfSubSgE => pert_ + "anguesses" ;--# notpresent VP (Impf Sub Pl P3) => pert_ + "anyessin" ;--# notpresent - VP (Impf Sub Sg P3) => pert_ + "anyés" ;--# notpresent + VP (ImpfSubPlE P3) => pert_ + "anguessen" ;--# notpresent + VP (Impf Sub Sg P3) => case flag of {True => pert_ + "anyés"; _ => pert_ + "angués"} ;--# notpresent VP (Fut Pl P1) => pert_ + "anyerem" ;--# notpresent VP (Fut Sg P1) => pert_ + "anyeré" ;--# notpresent VP (Fut Pl P2) => pert_ + "anyereu" ;--# notpresent VP (Fut Sg P2) => pert_ + "anyeràs" ;--# notpresent VP (Fut Pl P3) => pert_ + "anyeran" ;--# notpresent VP (Fut Sg P3) => pert_ + "anyerà" ;--# notpresent - VP (Pret Pl P1) => pert_ + "anyéssim" ;--# notpresent - VP (Pret Sg P1) => pert_ + "anyés" ;--# notpresent - VP (Pret Pl P2) => pert_ + "anyéssiu" ;--# notpresent - VP (Pret Sg P2) => pert_ + "anyessis" ;--# notpresent - VP (Pret Pl P3) => pert_ + "anyessin" ;--# notpresent - VP (Pret Sg P3) => pert_ + "anyés" ;--# notpresent + VP (Pret Pl P1) => pert_ + "anyérem" ;--# notpresent + VP (Pret Sg P1) => pert_ + "anyí" ;--# notpresent + VP (Pret Pl P2) => pert_ + "anyéreu" ;--# notpresent + VP (Pret Sg P2) => pert_ + "anyeres" ;--# notpresent + VP (Pret Pl P3) => pert_ + "anyeren" ;--# notpresent + VP (Pret Sg P3) => pert_ + "anyé" ;--# notpresent VP (Cond Pl P1) => pert_ + "anyeríem" ;--# notpresent VP (Cond Sg P1) => pert_ + "anyeria" ;--# notpresent VP (Cond Pl P2) => pert_ + "anyeríeu" ;--# notpresent @@ -4099,10 +4239,10 @@ let pert_ = Predef.tk 5 pertànyer in VP (Imp Sg P2) => pert_ + "any" ; VP (Imp Pl P3) => pert_ + "anyin" ; VP (Imp Sg P3) => pert_ + "anyi" ; - VP (Pass Pl Fem) => pert_ + "angudes" ; - VP (Pass Sg Fem) => pert_ + "anguda" ; - VP (Pass Pl Masc) => pert_ + "anguts" ; - VP (Pass Sg Masc) => pert_ + "angut" ; + VP (Pass Pl Fem) => case flag of {True => pert_ + "angudes"; _ => pert_ + "anyudes"} ; + VP (Pass Sg Fem) => case flag of {True => pert_ + "anguda"; _ => pert_ + "anyuda"} ; + VP (Pass Pl Masc) => case flag of {True => pert_ + "anguts"; _ => pert_ + "anyuts"} ; + VP (Pass Sg Masc) => case flag of {True => pert_ + "angut"; _ => pert_ + "anyut"} ; VI Infn => pert_ + "ànyer" ; VP (Imp Sg P1) => nonExist } @@ -4113,7 +4253,6 @@ let p_ = Predef.tk 4 poder in {s = table { VI Infn => p_ + "oder" ; VI Ger => p_ + "odent" ; - VI Part => p_ + "ogut" ; VP (Pres Ind Pl P1) => p_ + "odem" ; VP (Pres Ind Sg P1) => p_ + "uc" ; VP (Pres Ind Pl P2) => p_ + "odeu" ; @@ -4133,10 +4272,14 @@ let p_ = Predef.tk 4 poder in VP (Impf Ind Pl P3) => p_ + "odien" ;--# notpresent VP (Impf Ind Sg P3) => p_ + "odia" ;--# notpresent VP (Impf Sub Pl P1) => p_ + "oguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => p_ + "oguéssem" ;--# notpresent VP (Impf Sub Sg P1) => p_ + "ogués" ;--# notpresent VP (Impf Sub Pl P2) => p_ + "oguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => p_ + "oguésseu" ;--# notpresent VP (Impf Sub Sg P2) => p_ + "oguessis" ;--# notpresent + VP ImpfSubSgE => p_ + "oguesses" ;--# notpresent VP (Impf Sub Pl P3) => p_ + "oguessin" ;--# notpresent + VP (ImpfSubPlE P3) => p_ + "oguessen" ;--# notpresent VP (Impf Sub Sg P3) => p_ + "ogués" ;--# notpresent VP (Fut Pl P1) => p_ + "odrem" ;--# notpresent VP (Fut Sg P1) => p_ + "odré" ;--# notpresent @@ -4144,12 +4287,12 @@ let p_ = Predef.tk 4 poder in VP (Fut Sg P2) => p_ + "odràs" ;--# notpresent VP (Fut Pl P3) => p_ + "odran" ;--# notpresent VP (Fut Sg P3) => p_ + "odrà" ;--# notpresent - VP (Pret Pl P1) => p_ + "oguéssim" ;--# notpresent - VP (Pret Sg P1) => p_ + "ogués" ;--# notpresent - VP (Pret Pl P2) => p_ + "oguéssiu" ;--# notpresent - VP (Pret Sg P2) => p_ + "oguessis" ;--# notpresent - VP (Pret Pl P3) => p_ + "oguessin" ;--# notpresent - VP (Pret Sg P3) => p_ + "ogués" ;--# notpresent + VP (Pret Pl P1) => p_ + "oguérem" ;--# notpresent + VP (Pret Sg P1) => p_ + "oguí" ;--# notpresent + VP (Pret Pl P2) => p_ + "oguéreu" ;--# notpresent + VP (Pret Sg P2) => p_ + "ogueres" ;--# notpresent + VP (Pret Pl P3) => p_ + "ogueren" ;--# notpresent + VP (Pret Sg P3) => p_ + "ogué" ;--# notpresent VP (Cond Pl P1) => p_ + "odríem" ;--# notpresent VP (Cond Sg P1) => p_ + "odria" ;--# notpresent VP (Cond Pl P2) => p_ + "odríeu" ;--# notpresent @@ -4174,7 +4317,6 @@ let preg_ = Predef.tk 2 pregar in {s = table { VI Infn => preg_ + "ar" ; VI Ger => preg_ + "ant" ; - VI Part => preg_ + "at" ; VP (Pres Ind Pl P1) => preg_ + "uem" ; VP (Pres Ind Sg P1) => preg_ + "o" ; VP (Pres Ind Pl P2) => preg_ + "ueu" ; @@ -4194,10 +4336,14 @@ let preg_ = Predef.tk 2 pregar in VP (Impf Ind Pl P3) => preg_ + "aven" ;--# notpresent VP (Impf Ind Sg P3) => preg_ + "ava" ;--# notpresent VP (Impf Sub Pl P1) => preg_ + "uéssim" ;--# notpresent + VP (ImpfSubPlE P1) => preg_ + "uéssem" ;--# notpresent VP (Impf Sub Sg P1) => preg_ + "ués" ;--# notpresent VP (Impf Sub Pl P2) => preg_ + "uéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => preg_ + "uésseu" ;--# notpresent VP (Impf Sub Sg P2) => preg_ + "uessis" ;--# notpresent + VP ImpfSubSgE => preg_ + "uesses" ;--# notpresent VP (Impf Sub Pl P3) => preg_ + "uessin" ;--# notpresent + VP (ImpfSubPlE P3) => preg_ + "uessen" ;--# notpresent VP (Impf Sub Sg P3) => preg_ + "ués" ;--# notpresent VP (Fut Pl P1) => preg_ + "arem" ;--# notpresent VP (Fut Sg P1) => preg_ + "aré" ;--# notpresent @@ -4205,12 +4351,12 @@ let preg_ = Predef.tk 2 pregar in VP (Fut Sg P2) => preg_ + "aràs" ;--# notpresent VP (Fut Pl P3) => preg_ + "aran" ;--# notpresent VP (Fut Sg P3) => preg_ + "arà" ;--# notpresent - VP (Pret Pl P1) => preg_ + "uéssim" ;--# notpresent - VP (Pret Sg P1) => preg_ + "ués" ;--# notpresent - VP (Pret Pl P2) => preg_ + "uéssiu" ;--# notpresent - VP (Pret Sg P2) => preg_ + "uessis" ;--# notpresent - VP (Pret Pl P3) => preg_ + "uessin" ;--# notpresent - VP (Pret Sg P3) => preg_ + "ués" ;--# notpresent + VP (Pret Pl P1) => preg_ + "àrem" ;--# notpresent + VP (Pret Sg P1) => preg_ + "uí" ;--# notpresent + VP (Pret Pl P2) => preg_ + "àreu" ;--# notpresent + VP (Pret Sg P2) => preg_ + "ares" ;--# notpresent + VP (Pret Pl P3) => preg_ + "aren" ;--# notpresent + VP (Pret Sg P3) => preg_ + "à" ;--# notpresent VP (Cond Pl P1) => preg_ + "aríem" ;--# notpresent VP (Cond Sg P1) => preg_ + "aria" ;--# notpresent VP (Cond Pl P2) => preg_ + "aríeu" ;--# notpresent @@ -4235,7 +4381,6 @@ let x_ = Predef.tk 7 prendre in {s = table { VI Infn => x_ + "prendre" ; VI Ger => x_ + "prenent" ; - VI Part => x_ + "pres" ; VP (Pres Ind Pl P1) => x_ + "prenem" ; VP (Pres Ind Sg P1) => x_ + "prenc" ; VP (Pres Ind Pl P2) => x_ + "preneu" ; @@ -4255,10 +4400,14 @@ let x_ = Predef.tk 7 prendre in VP (Impf Ind Pl P3) => x_ + "prenien" ;--# notpresent VP (Impf Ind Sg P3) => x_ + "prenia" ;--# notpresent VP (Impf Sub Pl P1) => x_ + "prenguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => x_ + "prenguéssem" ;--# notpresent VP (Impf Sub Sg P1) => x_ + "prengués" ;--# notpresent VP (Impf Sub Pl P2) => x_ + "prenguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => x_ + "prenguésseu" ;--# notpresent VP (Impf Sub Sg P2) => x_ + "prenguessis" ;--# notpresent + VP ImpfSubSgE => x_ + "prenguesses" ;--# notpresent VP (Impf Sub Pl P3) => x_ + "prenguessin" ;--# notpresent + VP (ImpfSubPlE P3) => x_ + "prenguessen" ;--# notpresent VP (Impf Sub Sg P3) => x_ + "prengués" ;--# notpresent VP (Fut Pl P1) => x_ + "prendrem" ;--# notpresent VP (Fut Sg P1) => x_ + "prendré" ;--# notpresent @@ -4266,12 +4415,12 @@ let x_ = Predef.tk 7 prendre in VP (Fut Sg P2) => x_ + "prendràs" ;--# notpresent VP (Fut Pl P3) => x_ + "prendran" ;--# notpresent VP (Fut Sg P3) => x_ + "prendrà" ;--# notpresent - VP (Pret Pl P1) => x_ + "prenguéssim" ;--# notpresent - VP (Pret Sg P1) => x_ + "prengués" ;--# notpresent - VP (Pret Pl P2) => x_ + "prenguéssiu" ;--# notpresent - VP (Pret Sg P2) => x_ + "prenguessis" ;--# notpresent - VP (Pret Pl P3) => x_ + "prenguessin" ;--# notpresent - VP (Pret Sg P3) => x_ + "prengués" ;--# notpresent + VP (Pret Pl P1) => x_ + "prenguérem" ;--# notpresent + VP (Pret Sg P1) => x_ + "prenguí" ;--# notpresent + VP (Pret Pl P2) => x_ + "prenguéreu" ;--# notpresent + VP (Pret Sg P2) => x_ + "prengueres" ;--# notpresent + VP (Pret Pl P3) => x_ + "prengueren" ;--# notpresent + VP (Pret Sg P3) => x_ + "prengué" ;--# notpresent VP (Cond Pl P1) => x_ + "prendríem" ;--# notpresent VP (Cond Sg P1) => x_ + "prendria" ;--# notpresent VP (Cond Pl P2) => x_ + "prendríeu" ;--# notpresent @@ -4296,7 +4445,6 @@ let prev_ = Predef.tk 4 prevenir in {s = table { VI Infn => prev_ + "enir" ; VI Ger => prev_ + "enint" ; - VI Part => prev_ + "ingut" ; VP (Pres Ind Pl P1) => prev_ + "enim" ; VP (Pres Ind Sg P1) => prev_ + "inc" ; VP (Pres Ind Pl P2) => prev_ + "eniu" ; @@ -4316,10 +4464,14 @@ let prev_ = Predef.tk 4 prevenir in VP (Impf Ind Pl P3) => prev_ + "enien" ;--# notpresent VP (Impf Ind Sg P3) => prev_ + "enia" ;--# notpresent VP (Impf Sub Pl P1) => prev_ + "inguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => prev_ + "inguéssem" ;--# notpresent VP (Impf Sub Sg P1) => prev_ + "ingués" ;--# notpresent VP (Impf Sub Pl P2) => prev_ + "inguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => prev_ + "inguésseu" ;--# notpresent VP (Impf Sub Sg P2) => prev_ + "inguessis" ;--# notpresent + VP ImpfSubSgE => prev_ + "inguesses" ;--# notpresent VP (Impf Sub Pl P3) => prev_ + "inguessin" ;--# notpresent + VP (ImpfSubPlE P3) => prev_ + "inguessen" ;--# notpresent VP (Impf Sub Sg P3) => prev_ + "ingués" ;--# notpresent VP (Fut Pl P1) => prev_ + "indrem" ;--# notpresent VP (Fut Sg P1) => prev_ + "indré" ;--# notpresent @@ -4327,12 +4479,12 @@ let prev_ = Predef.tk 4 prevenir in VP (Fut Sg P2) => prev_ + "indràs" ;--# notpresent VP (Fut Pl P3) => prev_ + "indran" ;--# notpresent VP (Fut Sg P3) => prev_ + "indrà" ;--# notpresent - VP (Pret Pl P1) => prev_ + "inguéssim" ;--# notpresent - VP (Pret Sg P1) => prev_ + "ingués" ;--# notpresent - VP (Pret Pl P2) => prev_ + "inguéssiu" ;--# notpresent - VP (Pret Sg P2) => prev_ + "inguessis" ;--# notpresent - VP (Pret Pl P3) => prev_ + "inguessin" ;--# notpresent - VP (Pret Sg P3) => prev_ + "ingués" ;--# notpresent + VP (Pret Pl P1) => prev_ + "inguérem" ;--# notpresent + VP (Pret Sg P1) => prev_ + "inguí" ;--# notpresent + VP (Pret Pl P2) => prev_ + "inguéreu" ;--# notpresent + VP (Pret Sg P2) => prev_ + "ingueres" ;--# notpresent + VP (Pret Pl P3) => prev_ + "ingueren" ;--# notpresent + VP (Pret Sg P3) => prev_ + "ingué" ;--# notpresent VP (Cond Pl P1) => prev_ + "indríem" ;--# notpresent VP (Cond Sg P1) => prev_ + "indria" ;--# notpresent VP (Cond Pl P2) => prev_ + "indríeu" ;--# notpresent @@ -4341,7 +4493,7 @@ let prev_ = Predef.tk 4 prevenir in VP (Cond Sg P3) => prev_ + "indria" ;--# notpresent VP (Imp Pl P1) => prev_ + "inguem" ; VP (Imp Pl P2) => prev_ + "eniu" ; - VP (Imp Sg P2) => prev_ + "ine" ; + VP (Imp Sg P2) => prev_ + "én" ; VP (Imp Pl P3) => prev_ + "inguin" ; VP (Imp Sg P3) => prev_ + "ingui" ; VP (Pass Pl Fem) => prev_ + "ingudes" ; @@ -4354,12 +4506,11 @@ VP (Imp Sg P1) => nonExist -- pruir-- is not in the used source . -- pudir-- is not in the used source . -oper raure_91 : Str -> Verbum = \raure -> +oper raure_91 : Str -> Bool -> Verbum = \raure,flag -> let ra_ = Predef.tk 3 raure in {s = table { VI Infn => ra_ + "ure" ; VI Ger => ra_ + "ent" ; - VI Part => ra_ + "s" ; VP (Pres Ind Pl P1) => ra_ + "em" ; VP (Pres Ind Sg P1) => ra_ + "c" ; VP (Pres Ind Pl P2) => ra_ + "eu" ; @@ -4379,10 +4530,14 @@ let ra_ = Predef.tk 3 raure in VP (Impf Ind Pl P3) => ra_ + "ïen" ;--# notpresent VP (Impf Ind Sg P3) => ra_ + "ïa" ;--# notpresent VP (Impf Sub Pl P1) => ra_ + "guéssim" ;--# notpresent + VP (ImpfSubPlE P1) => ra_ + "guéssem" ;--# notpresent VP (Impf Sub Sg P1) => ra_ + "gués" ;--# notpresent VP (Impf Sub Pl P2) => ra_ + "guéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => ra_ + "guésseu" ;--# notpresent VP (Impf Sub Sg P2) => ra_ + "guessis" ;--# notpresent + VP ImpfSubSgE => ra_ + "guesses" ;--# notpresent VP (Impf Sub Pl P3) => ra_ + "guessin" ;--# notpresent + VP (ImpfSubPlE P3) => ra_ + "guessen" ;--# notpresent VP (Impf Sub Sg P3) => ra_ + "gués" ;--# notpresent VP (Fut Pl P1) => ra_ + "urem" ;--# notpresent VP (Fut Sg P1) => ra_ + "uré" ;--# notpresent @@ -4390,12 +4545,12 @@ let ra_ = Predef.tk 3 raure in VP (Fut Sg P2) => ra_ + "uràs" ;--# notpresent VP (Fut Pl P3) => ra_ + "uran" ;--# notpresent VP (Fut Sg P3) => ra_ + "urà" ;--# notpresent - VP (Pret Pl P1) => ra_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => ra_ + "gués" ;--# notpresent - VP (Pret Pl P2) => ra_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => ra_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => ra_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => ra_ + "gués" ;--# notpresent + VP (Pret Pl P1) => ra_ + "guérem" ;--# notpresent + VP (Pret Sg P1) => ra_ + "guí" ;--# notpresent + VP (Pret Pl P2) => ra_ + "guéreu" ;--# notpresent + VP (Pret Sg P2) => ra_ + "gueres" ;--# notpresent + VP (Pret Pl P3) => ra_ + "gueren" ;--# notpresent + VP (Pret Sg P3) => ra_ + "gué" ;--# notpresent VP (Cond Pl P1) => ra_ + "uríem" ;--# notpresent VP (Cond Sg P1) => ra_ + "uria" ;--# notpresent VP (Cond Pl P2) => ra_ + "uríeu" ;--# notpresent @@ -4407,10 +4562,10 @@ let ra_ = Predef.tk 3 raure in VP (Imp Sg P2) => ra_ + "u" ; VP (Imp Pl P3) => ra_ + "guin" ; VP (Imp Sg P3) => ra_ + "gui" ; - VP (Pass Pl Fem) => ra_ + "ses" ; - VP (Pass Sg Fem) => ra_ + "sa" ; - VP (Pass Pl Masc) => ra_ + "sos" ; - VP (Pass Sg Masc) => ra_ + "s" ; + VP (Pass Pl Fem) => case flag of {True => ra_ + "ses"; _ => ra_ + "gudes"} ; + VP (Pass Sg Fem) => case flag of {True => ra_ + "sa"; _ => ra_ + "guda"} ; + VP (Pass Pl Masc) => case flag of {True => ra_ + "sos"; _ => ra_ + "guts"} ; + VP (Pass Sg Masc) => case flag of {True => ra_ + "s"; _ => ra_ + "gut"} ; VP (Imp Sg P1) => nonExist } } ; @@ -4420,7 +4575,6 @@ let re_ = Predef.tk 3 rebre in {s = table { VI Infn => re_ + "bre" ; VI Ger => re_ + "bent" ; - VI Part => re_ + "but" ; VP (Pres Ind Pl P1) => re_ + "bem" ; VP (Pres Ind Sg P1) => re_ + "bo" ; VP (Pres Ind Pl P2) => re_ + "beu" ; @@ -4440,10 +4594,14 @@ let re_ = Predef.tk 3 rebre in VP (Impf Ind Pl P3) => re_ + "bien" ;--# notpresent VP (Impf Ind Sg P3) => re_ + "bia" ;--# notpresent VP (Impf Sub Pl P1) => re_ + "béssim" ;--# notpresent + VP (ImpfSubPlE P1) => re_ + "béssem" ;--# notpresent VP (Impf Sub Sg P1) => re_ + "bés" ;--# notpresent VP (Impf Sub Pl P2) => re_ + "béssiu" ;--# notpresent + VP (ImpfSubPlE P2) => re_ + "bésseu" ;--# notpresent VP (Impf Sub Sg P2) => re_ + "bessis" ;--# notpresent + VP ImpfSubSgE => re_ + "besses" ;--# notpresent VP (Impf Sub Pl P3) => re_ + "bessin" ;--# notpresent + VP (ImpfSubPlE P3) => re_ + "bessen" ;--# notpresent VP (Impf Sub Sg P3) => re_ + "bés" ;--# notpresent VP (Fut Pl P1) => re_ + "brem" ;--# notpresent VP (Fut Sg P1) => re_ + "bré" ;--# notpresent @@ -4451,12 +4609,12 @@ let re_ = Predef.tk 3 rebre in VP (Fut Sg P2) => re_ + "bràs" ;--# notpresent VP (Fut Pl P3) => re_ + "bran" ;--# notpresent VP (Fut Sg P3) => re_ + "brà" ;--# notpresent - VP (Pret Pl P1) => re_ + "béssim" ;--# notpresent - VP (Pret Sg P1) => re_ + "bés" ;--# notpresent - VP (Pret Pl P2) => re_ + "béssiu" ;--# notpresent - VP (Pret Sg P2) => re_ + "bessis" ;--# notpresent - VP (Pret Pl P3) => re_ + "bessin" ;--# notpresent - VP (Pret Sg P3) => re_ + "bés" ;--# notpresent + VP (Pret Pl P1) => re_ + "bérem" ;--# notpresent + VP (Pret Sg P1) => re_ + "bí" ;--# notpresent + VP (Pret Pl P2) => re_ + "béreu" ;--# notpresent + VP (Pret Sg P2) => re_ + "beres" ;--# notpresent + VP (Pret Pl P3) => re_ + "beren" ;--# notpresent + VP (Pret Sg P3) => re_ + "bé" ;--# notpresent VP (Cond Pl P1) => re_ + "bríem" ;--# notpresent VP (Cond Sg P1) => re_ + "bria" ;--# notpresent VP (Cond Pl P2) => re_ + "bríeu" ;--# notpresent @@ -4500,10 +4658,14 @@ let recl_ = Predef.tk 4 recloure in VP (Impf Ind Pl P3) => recl_ + "oïen" ;--# notpresent VP (Impf Ind Sg P3) => recl_ + "oïa" ;--# notpresent VP (Impf Sub Pl P1) => recl_ + "oguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => recl_ + "oguéssem" ;--# notpresent VP (Impf Sub Sg P1) => recl_ + "ogués" ;--# notpresent VP (Impf Sub Pl P2) => recl_ + "oguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => recl_ + "oguésseu" ;--# notpresent VP (Impf Sub Sg P2) => recl_ + "oguessis" ;--# notpresent + VP ImpfSubSgE => recl_ + "oguesses" ;--# notpresent VP (Impf Sub Pl P3) => recl_ + "oguessin" ;--# notpresent + VP (ImpfSubPlE P3) => recl_ + "oguessen" ;--# notpresent VP (Impf Sub Sg P3) => recl_ + "ogués" ;--# notpresent VP (Fut Pl P1) => recl_ + "ourem" ;--# notpresent VP (Fut Sg P1) => recl_ + "ouré" ;--# notpresent @@ -4511,12 +4673,12 @@ let recl_ = Predef.tk 4 recloure in VP (Fut Sg P2) => recl_ + "ouràs" ;--# notpresent VP (Fut Pl P3) => recl_ + "ouran" ;--# notpresent VP (Fut Sg P3) => recl_ + "ourà" ;--# notpresent - VP (Pret Pl P1) => recl_ + "oguéssim" ;--# notpresent - VP (Pret Sg P1) => recl_ + "ogués" ;--# notpresent - VP (Pret Pl P2) => recl_ + "oguéssiu" ;--# notpresent - VP (Pret Sg P2) => recl_ + "oguessis" ;--# notpresent - VP (Pret Pl P3) => recl_ + "oguessin" ;--# notpresent - VP (Pret Sg P3) => recl_ + "ogués" ;--# notpresent + VP (Pret Pl P1) => recl_ + "oguérem" ;--# notpresent + VP (Pret Sg P1) => recl_ + "oguí" ;--# notpresent + VP (Pret Pl P2) => recl_ + "oguéreu" ;--# notpresent + VP (Pret Sg P2) => recl_ + "ogueres" ;--# notpresent + VP (Pret Pl P3) => recl_ + "ogueren" ;--# notpresent + VP (Pret Sg P3) => recl_ + "ogué" ;--# notpresent VP (Cond Pl P1) => recl_ + "ouríem" ;--# notpresent VP (Cond Sg P1) => recl_ + "ouria" ;--# notpresent VP (Cond Pl P2) => recl_ + "ouríeu" ;--# notpresent @@ -4531,20 +4693,18 @@ let recl_ = Predef.tk 4 recloure in VP (Pass Pl Fem) => recl_ + "oses" ; VP (Pass Sg Fem) => recl_ + "osa" ; VP (Pass Pl Masc) => recl_ + "osos" ; - VI Part => recl_ + "òs" ; VP (Pass Sg Masc) => recl_ + "òs" ; VP (Imp Sg P1) => nonExist } } ; -oper reduir_94 : Str -> Verbum = \reduir -> +oper reduir_94 : Str -> Bool -> Verbum = \reduir,flag -> let redu_ = Predef.tk 2 reduir in {s = table { VI Infn => redu_ + "ir" ; VI Ger => redu_ + "int" ; - VI Part => redu_ + "ït" ; VP (Pres Ind Pl P1) => redu_ + "ïm" ; - VP (Pres Ind Sg P1) => redu_ + "eixo" ; + VP (Pres Ind Sg P1) => case flag of {True => redu_ + "eixo"; _ => redu_ + "ïxo"} ; VP (Pres Ind Pl P2) => redu_ + "ïu" ; VP (Pres Ind Sg P2) => redu_ + "eixes" ; VP (Pres Ind Pl P3) => redu_ + "eixen" ; @@ -4562,10 +4722,14 @@ let redu_ = Predef.tk 2 reduir in VP (Impf Ind Pl P3) => redu_ + "ïen" ;--# notpresent VP (Impf Ind Sg P3) => redu_ + "ïa" ;--# notpresent VP (Impf Sub Pl P1) => redu_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => redu_ + "íssem" ;--# notpresent VP (Impf Sub Sg P1) => redu_ + "ís" ;--# notpresent VP (Impf Sub Pl P2) => redu_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => redu_ + "ísseu" ;--# notpresent VP (Impf Sub Sg P2) => redu_ + "ïssis" ;--# notpresent + VP ImpfSubSgE => redu_ + "ïsses" ;--# notpresent VP (Impf Sub Pl P3) => redu_ + "ïssin" ;--# notpresent + VP (ImpfSubPlE P3) => redu_ + "ïssen" ;--# notpresent VP (Impf Sub Sg P3) => redu_ + "ís" ;--# notpresent VP (Fut Pl P1) => redu_ + "irem" ;--# notpresent VP (Fut Sg P1) => redu_ + "iré" ;--# notpresent @@ -4573,12 +4737,12 @@ let redu_ = Predef.tk 2 reduir in VP (Fut Sg P2) => redu_ + "iràs" ;--# notpresent VP (Fut Pl P3) => redu_ + "iran" ;--# notpresent VP (Fut Sg P3) => redu_ + "irà" ;--# notpresent - VP (Pret Pl P1) => redu_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => redu_ + "ís" ;--# notpresent - VP (Pret Pl P2) => redu_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => redu_ + "ïssis" ;--# notpresent - VP (Pret Pl P3) => redu_ + "ïssin" ;--# notpresent - VP (Pret Sg P3) => redu_ + "ís" ;--# notpresent + VP (Pret Pl P1) => redu_ + "írem" ;--# notpresent + VP (Pret Sg P1) => redu_ + "í" ;--# notpresent + VP (Pret Pl P2) => redu_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => redu_ + "ïres" ;--# notpresent + VP (Pret Pl P3) => redu_ + "ïren" ;--# notpresent + VP (Pret Sg P3) => redu_ + "í" ;--# notpresent VP (Cond Pl P1) => redu_ + "iríem" ;--# notpresent VP (Cond Sg P1) => redu_ + "iria" ;--# notpresent VP (Cond Pl P2) => redu_ + "iríeu" ;--# notpresent @@ -4604,7 +4768,6 @@ let r_ = Predef.tk 4 riure in {s = table { VI Infn => r_ + "iure" ; VI Ger => r_ + "ient" ; - VI Part => r_ + "igut" ; VP (Pres Ind Pl P1) => r_ + "iem" ; VP (Pres Ind Sg P1) => r_ + "ic" ; VP (Pres Ind Pl P2) => r_ + "ieu" ; @@ -4624,10 +4787,14 @@ let r_ = Predef.tk 4 riure in VP (Impf Ind Pl P3) => r_ + "eien" ;--# notpresent VP (Impf Ind Sg P3) => r_ + "eia" ;--# notpresent VP (Impf Sub Pl P1) => r_ + "iguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => r_ + "iguéssem" ;--# notpresent VP (Impf Sub Sg P1) => r_ + "igués" ;--# notpresent VP (Impf Sub Pl P2) => r_ + "iguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => r_ + "iguésseu" ;--# notpresent VP (Impf Sub Sg P2) => r_ + "iguessis" ;--# notpresent + VP ImpfSubSgE => r_ + "iguesses" ;--# notpresent VP (Impf Sub Pl P3) => r_ + "iguessin" ;--# notpresent + VP (ImpfSubPlE P3) => r_ + "iguessen" ;--# notpresent VP (Impf Sub Sg P3) => r_ + "igués" ;--# notpresent VP (Fut Pl P1) => r_ + "iurem" ;--# notpresent VP (Fut Sg P1) => r_ + "iuré" ;--# notpresent @@ -4635,12 +4802,12 @@ let r_ = Predef.tk 4 riure in VP (Fut Sg P2) => r_ + "iuràs" ;--# notpresent VP (Fut Pl P3) => r_ + "iuran" ;--# notpresent VP (Fut Sg P3) => r_ + "iurà" ;--# notpresent - VP (Pret Pl P1) => r_ + "iguéssim" ;--# notpresent - VP (Pret Sg P1) => r_ + "igués" ;--# notpresent - VP (Pret Pl P2) => r_ + "iguéssiu" ;--# notpresent - VP (Pret Sg P2) => r_ + "iguessis" ;--# notpresent - VP (Pret Pl P3) => r_ + "iguessin" ;--# notpresent - VP (Pret Sg P3) => r_ + "igués" ;--# notpresent + VP (Pret Pl P1) => r_ + "iguérem" ;--# notpresent + VP (Pret Sg P1) => r_ + "iguí" ;--# notpresent + VP (Pret Pl P2) => r_ + "iguéreu" ;--# notpresent + VP (Pret Sg P2) => r_ + "igueres" ;--# notpresent + VP (Pret Pl P3) => r_ + "igueren" ;--# notpresent + VP (Pret Sg P3) => r_ + "igué" ;--# notpresent VP (Cond Pl P1) => r_ + "iuríem" ;--# notpresent VP (Cond Sg P1) => r_ + "iuria" ;--# notpresent VP (Cond Pl P2) => r_ + "iuríeu" ;--# notpresent @@ -4684,10 +4851,14 @@ let rom_ = Predef.tk 5 romandre in VP (Impf Ind Pl P3) => rom_ + "anien" ;--# notpresent VP (Impf Ind Sg P3) => rom_ + "ania" ;--# notpresent VP (Impf Sub Pl P1) => rom_ + "anguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => rom_ + "anguéssem" ;--# notpresent VP (Impf Sub Sg P1) => rom_ + "angués" ;--# notpresent VP (Impf Sub Pl P2) => rom_ + "anguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => rom_ + "anguésseu" ;--# notpresent VP (Impf Sub Sg P2) => rom_ + "anguessis" ;--# notpresent + VP ImpfSubSgE => rom_ + "anguesses" ;--# notpresent VP (Impf Sub Pl P3) => rom_ + "anguessin" ;--# notpresent + VP (ImpfSubPlE P3) => rom_ + "anguessen" ;--# notpresent VP (Impf Sub Sg P3) => rom_ + "angués" ;--# notpresent VP (Fut Pl P1) => rom_ + "andrem" ;--# notpresent VP (Fut Sg P1) => rom_ + "andré" ;--# notpresent @@ -4695,12 +4866,12 @@ let rom_ = Predef.tk 5 romandre in VP (Fut Sg P2) => rom_ + "andràs" ;--# notpresent VP (Fut Pl P3) => rom_ + "andran" ;--# notpresent VP (Fut Sg P3) => rom_ + "andrà" ;--# notpresent - VP (Pret Pl P1) => rom_ + "anguéssim" ;--# notpresent - VP (Pret Sg P1) => rom_ + "angués" ;--# notpresent - VP (Pret Pl P2) => rom_ + "anguéssiu" ;--# notpresent - VP (Pret Sg P2) => rom_ + "anguessis" ;--# notpresent - VP (Pret Pl P3) => rom_ + "anguessin" ;--# notpresent - VP (Pret Sg P3) => rom_ + "angués" ;--# notpresent + VP (Pret Pl P1) => rom_ + "anguérem" ;--# notpresent + VP (Pret Sg P1) => rom_ + "anguí" ;--# notpresent + VP (Pret Pl P2) => rom_ + "anguéreu" ;--# notpresent + VP (Pret Sg P2) => rom_ + "angueres" ;--# notpresent + VP (Pret Pl P3) => rom_ + "angueren" ;--# notpresent + VP (Pret Sg P3) => rom_ + "angué" ;--# notpresent VP (Cond Pl P1) => rom_ + "andríem" ;--# notpresent VP (Cond Sg P1) => rom_ + "andria" ;--# notpresent VP (Cond Pl P2) => rom_ + "andríeu" ;--# notpresent @@ -4715,7 +4886,6 @@ let rom_ = Predef.tk 5 romandre in VP (Pass Pl Fem) => rom_ + "ases" ; VP (Pass Sg Fem) => rom_ + "asa" ; VP (Pass Pl Masc) => rom_ + "asos" ; - VI Part => rom_ + "às" ; VP (Pass Sg Masc) => rom_ + "às" ; VP (Imp Sg P1) => nonExist } @@ -4727,7 +4897,6 @@ let x_ = Predef.tk 5 saber in {s = table { VI Infn => x_ + "saber" ; VI Ger => x_ + "sabent" ; - VI Part => x_ + "sabut" ; VP (Pres Ind Pl P1) => x_ + "sabem" ; VP (Pres Ind Sg P1) => x_ + "sé" ; VP (Pres Ind Pl P2) => x_ + "sabeu" ; @@ -4747,10 +4916,14 @@ let x_ = Predef.tk 5 saber in VP (Impf Ind Pl P3) => x_ + "sabien" ;--# notpresent VP (Impf Ind Sg P3) => x_ + "sabia" ;--# notpresent VP (Impf Sub Pl P1) => x_ + "sabéssim" ;--# notpresent + VP (ImpfSubPlE P1) => x_ + "sabéssem" ;--# notpresent VP (Impf Sub Sg P1) => x_ + "sabés" ;--# notpresent VP (Impf Sub Pl P2) => x_ + "sabéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => x_ + "sabésseu" ;--# notpresent VP (Impf Sub Sg P2) => x_ + "sabessis" ;--# notpresent + VP ImpfSubSgE => x_ + "sabesses" ;--# notpresent VP (Impf Sub Pl P3) => x_ + "sabessin" ;--# notpresent + VP (ImpfSubPlE P3) => x_ + "sabessen" ;--# notpresent VP (Impf Sub Sg P3) => x_ + "sabés" ;--# notpresent VP (Fut Pl P1) => x_ + "sabrem" ;--# notpresent VP (Fut Sg P1) => x_ + "sabré" ;--# notpresent @@ -4758,12 +4931,12 @@ let x_ = Predef.tk 5 saber in VP (Fut Sg P2) => x_ + "sabràs" ;--# notpresent VP (Fut Pl P3) => x_ + "sabran" ;--# notpresent VP (Fut Sg P3) => x_ + "sabrà" ;--# notpresent - VP (Pret Pl P1) => x_ + "sabéssim" ;--# notpresent - VP (Pret Sg P1) => x_ + "sabés" ;--# notpresent - VP (Pret Pl P2) => x_ + "sabéssiu" ;--# notpresent - VP (Pret Sg P2) => x_ + "sabessis" ;--# notpresent - VP (Pret Pl P3) => x_ + "sabessin" ;--# notpresent - VP (Pret Sg P3) => x_ + "sabés" ;--# notpresent + VP (Pret Pl P1) => x_ + "sabérem" ;--# notpresent + VP (Pret Sg P1) => x_ + "sabí" ;--# notpresent + VP (Pret Pl P2) => x_ + "sabéreu" ;--# notpresent + VP (Pret Sg P2) => x_ + "saberes" ;--# notpresent + VP (Pret Pl P3) => x_ + "saberen" ;--# notpresent + VP (Pret Sg P3) => x_ + "sabé" ;--# notpresent VP (Cond Pl P1) => x_ + "sabríem" ;--# notpresent VP (Cond Sg P1) => x_ + "sabria" ;--# notpresent VP (Cond Pl P2) => x_ + "sabríeu" ;--# notpresent @@ -4788,7 +4961,6 @@ let sent_ = Predef.tk 2 sentir in {s = table { VI Infn => sent_ + "ir" ; VI Ger => sent_ + "int" ; - VI Part => sent_ + "it" ; VP (Pres Ind Pl P1) => sent_ + "im" ; VP (Pres Ind Sg P1) => sent_ + "o" ; VP (Pres Ind Pl P2) => sent_ + "iu" ; @@ -4808,10 +4980,14 @@ let sent_ = Predef.tk 2 sentir in VP (Impf Ind Pl P3) => sent_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => sent_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => sent_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => sent_ + "íssem" ;--# notpresent VP (Impf Sub Sg P1) => sent_ + "ís" ;--# notpresent VP (Impf Sub Pl P2) => sent_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => sent_ + "ísseu" ;--# notpresent VP (Impf Sub Sg P2) => sent_ + "issis" ;--# notpresent + VP ImpfSubSgE => sent_ + "isses" ;--# notpresent VP (Impf Sub Pl P3) => sent_ + "issin" ;--# notpresent + VP (ImpfSubPlE P3) => sent_ + "issen" ;--# notpresent VP (Impf Sub Sg P3) => sent_ + "ís" ;--# notpresent VP (Fut Pl P1) => sent_ + "irem" ;--# notpresent VP (Fut Sg P1) => sent_ + "iré" ;--# notpresent @@ -4819,12 +4995,12 @@ let sent_ = Predef.tk 2 sentir in VP (Fut Sg P2) => sent_ + "iràs" ;--# notpresent VP (Fut Pl P3) => sent_ + "iran" ;--# notpresent VP (Fut Sg P3) => sent_ + "irà" ;--# notpresent - VP (Pret Pl P1) => sent_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => sent_ + "ís" ;--# notpresent - VP (Pret Pl P2) => sent_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => sent_ + "issis" ;--# notpresent - VP (Pret Pl P3) => sent_ + "issin" ;--# notpresent - VP (Pret Sg P3) => sent_ + "ís" ;--# notpresent + VP (Pret Pl P1) => sent_ + "írem" ;--# notpresent + VP (Pret Sg P1) => sent_ + "í" ;--# notpresent + VP (Pret Pl P2) => sent_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => sent_ + "ires" ;--# notpresent + VP (Pret Pl P3) => sent_ + "iren" ;--# notpresent + VP (Pret Sg P3) => sent_ + "í" ;--# notpresent VP (Cond Pl P1) => sent_ + "iríem" ;--# notpresent VP (Cond Sg P1) => sent_ + "iria" ;--# notpresent VP (Cond Pl P2) => sent_ + "iríeu" ;--# notpresent @@ -4849,7 +5025,6 @@ let serv_ = Predef.tk 2 servir in {s = table { VI Infn => serv_ + "ir" ; VI Ger => serv_ + "int" ; - VI Part => serv_ + "it" ; VP (Pres Ind Pl P1) => serv_ + "im" ; VP (Pres Ind Sg P1) => serv_ + "eixo" ; VP (Pres Ind Pl P2) => serv_ + "iu" ; @@ -4869,10 +5044,14 @@ let serv_ = Predef.tk 2 servir in VP (Impf Ind Pl P3) => serv_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => serv_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => serv_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => serv_ + "íssem" ;--# notpresent VP (Impf Sub Sg P1) => serv_ + "ís" ;--# notpresent VP (Impf Sub Pl P2) => serv_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => serv_ + "ísseu" ;--# notpresent VP (Impf Sub Sg P2) => serv_ + "issis" ;--# notpresent + VP ImpfSubSgE => serv_ + "isses" ;--# notpresent VP (Impf Sub Pl P3) => serv_ + "issin" ;--# notpresent + VP (ImpfSubPlE P3) => serv_ + "issen" ;--# notpresent VP (Impf Sub Sg P3) => serv_ + "ís" ;--# notpresent VP (Fut Pl P1) => serv_ + "irem" ;--# notpresent VP (Fut Sg P1) => serv_ + "iré" ;--# notpresent @@ -4880,12 +5059,12 @@ let serv_ = Predef.tk 2 servir in VP (Fut Sg P2) => serv_ + "iràs" ;--# notpresent VP (Fut Pl P3) => serv_ + "iran" ;--# notpresent VP (Fut Sg P3) => serv_ + "irà" ;--# notpresent - VP (Pret Pl P1) => serv_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => serv_ + "ís" ;--# notpresent - VP (Pret Pl P2) => serv_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => serv_ + "issis" ;--# notpresent - VP (Pret Pl P3) => serv_ + "issin" ;--# notpresent - VP (Pret Sg P3) => serv_ + "ís" ;--# notpresent + VP (Pret Pl P1) => serv_ + "írem" ;--# notpresent + VP (Pret Sg P1) => serv_ + "í" ;--# notpresent + VP (Pret Pl P2) => serv_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => serv_ + "ires" ;--# notpresent + VP (Pret Pl P3) => serv_ + "iren" ;--# notpresent + VP (Pret Sg P3) => serv_ + "í" ;--# notpresent VP (Cond Pl P1) => serv_ + "iríem" ;--# notpresent VP (Cond Sg P1) => serv_ + "iria" ;--# notpresent VP (Cond Pl P2) => serv_ + "iríeu" ;--# notpresent @@ -4905,12 +5084,11 @@ VP (Imp Sg P1) => nonExist } } ; -oper seure_102 : Str -> Verbum = \seure -> +oper seure_102 : Str -> Bool -> Verbum = \seure,flag -> let s_ = Predef.tk 4 seure in {s = table { VI Infn => s_ + "eure" ; - VI Ger => s_ + "eient" ; - VI Part => s_ + "egut" ; + VI Ger => case flag of {True => s_ + "eient"; _ => s_ + "eent"} ; VP (Pres Ind Pl P1) => s_ + "eiem" ; VP (Pres Ind Sg P1) => s_ + "ec" ; VP (Pres Ind Pl P2) => s_ + "eieu" ; @@ -4918,43 +5096,39 @@ let s_ = Predef.tk 4 seure in VP (Pres Ind Pl P3) => s_ + "euen" ; VP (Pres Ind Sg P3) => s_ + "eu" ; VP (Pres Sub Pl P1) => s_ + "eguem" ; - VP (Pres Sub Sg P1) => s_ + "ega" ; --- VP (Pres Sub Sg P1) => s_ + "egui" ; + VP (Pres Sub Sg P1) => s_ + "egui" ; VP (Pres Sub Pl P2) => s_ + "egueu" ; - VP (Pres Sub Sg P2) => s_ + "egues" ; --- VP (Pres Sub Sg P2) => s_ + "eguis" ; - VP (Pres Sub Pl P3) => s_ + "eguen" ; --- VP (Pres Sub Pl P3) => s_ + "eguin" ; - VP (Pres Sub Sg P3) => s_ + "ega" ; --- VP (Pres Sub Sg P3) => s_ + "egui" ; -- AR: why duplicated forms? + VP (Pres Sub Sg P2) => s_ + "eguis" ; + VP (Pres Sub Pl P3) => s_ + "eguin" ; + VP (Pres Sub Sg P3) => s_ + "egui" ; + VP (Impf Ind Pl P1) => s_ + "èiem" ;--# notpresent VP (Impf Ind Sg P1) => s_ + "eia" ;--# notpresent + VP (Impf Ind Pl P2) => s_ + "èieu" ;--# notpresent VP (Impf Ind Sg P2) => s_ + "eies" ;--# notpresent VP (Impf Ind Pl P3) => s_ + "eien" ;--# notpresent VP (Impf Ind Sg P3) => s_ + "eia" ;--# notpresent - VP (Impf Sub Pl P1) => s_ + "eguérem" ;--# notpresent --- VP (Impf Sub Pl P1) => s_ + "eguéssim" ;--# notpresent - VP (Impf Sub Sg P1) => s_ + "eguera" ;--# notpresent --- VP (Impf Sub Sg P1) => s_ + "egués" ;--# notpresent - VP (Impf Sub Pl P2) => s_ + "eguéreu" ;--# notpresent --- VP (Impf Sub Pl P2) => s_ + "eguéssiu" ;--# notpresent - VP (Impf Sub Sg P2) => s_ + "egueres" ;--# notpresent --- VP (Impf Sub Sg P2) => s_ + "eguessis" ;--# notpresent - VP (Impf Sub Pl P3) => s_ + "egueren" ;--# notpresent --- VP (Impf Sub Pl P3) => s_ + "eguessin" ;--# notpresent - VP (Impf Sub Sg P3) => s_ + "eguera" ;--# notpresent --- VP (Impf Sub Sg P3) => s_ + "egués" ;--# notpresent - VP (Pret Pl P1) => s_ + "eguérem" ;--# notpresent - VP (Pret Sg P1) => s_ + "eguí" ;--# notpresent - VP (Pret Pl P2) => s_ + "eguéreu" ;--# notpresent - VP (Pret Sg P2) => s_ + "egueres" ;--# notpresent - VP (Pret Pl P3) => s_ + "egueren" ;--# notpresent - VP (Pret Sg P3) => s_ + "egué" ;--# notpresent + VP (Impf Sub Pl P1) => s_ + "eguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => s_ + "eguéssem" ;--# notpresent + VP (Impf Sub Sg P1) => s_ + "egués" ;--# notpresent + VP (Impf Sub Pl P2) => s_ + "eguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => s_ + "eguésseu" ;--# notpresent + VP (Impf Sub Sg P2) => s_ + "eguessis" ;--# notpresent + VP ImpfSubSgE => s_ + "eguesses" ;--# notpresent + VP (Impf Sub Pl P3) => s_ + "eguessin" ;--# notpresent + VP (ImpfSubPlE P3) => s_ + "eguessen" ;--# notpresent + VP (Impf Sub Sg P3) => s_ + "egués" ;--# notpresent VP (Fut Pl P1) => s_ + "eurem" ;--# notpresent VP (Fut Sg P1) => s_ + "euré" ;--# notpresent VP (Fut Pl P2) => s_ + "eureu" ;--# notpresent VP (Fut Sg P2) => s_ + "euràs" ;--# notpresent VP (Fut Pl P3) => s_ + "euran" ;--# notpresent VP (Fut Sg P3) => s_ + "eurà" ;--# notpresent + VP (Pret Pl P1) => s_ + "eguérem" ;--# notpresent + VP (Pret Sg P1) => s_ + "eguí" ;--# notpresent + VP (Pret Pl P2) => s_ + "eguéreu" ;--# notpresent + VP (Pret Sg P2) => s_ + "egueres" ;--# notpresent + VP (Pret Pl P3) => s_ + "egueren" ;--# notpresent + VP (Pret Sg P3) => s_ + "egué" ;--# notpresent VP (Cond Pl P1) => s_ + "euríem" ;--# notpresent VP (Cond Sg P1) => s_ + "euria" ;--# notpresent VP (Cond Pl P2) => s_ + "euríeu" ;--# notpresent @@ -4964,30 +5138,23 @@ let s_ = Predef.tk 4 seure in VP (Imp Pl P1) => s_ + "eguem" ; VP (Imp Pl P2) => s_ + "eieu" ; VP (Imp Sg P2) => s_ + "eu" ; - VP (Imp Pl P3) => s_ + "eguen" ; --- VP (Imp Pl P3) => s_ + "eguin" ; - VP (Imp Sg P3) => s_ + "ega" ; --- VP (Imp Sg P3) => s_ + "egui" ; + VP (Imp Pl P3) => s_ + "eguin" ; + VP (Imp Sg P3) => s_ + "egui" ; VP (Pass Pl Fem) => s_ + "egudes" ; VP (Pass Sg Fem) => s_ + "eguda" ; VP (Pass Pl Masc) => s_ + "eguts" ; VP (Pass Sg Masc) => s_ + "egut" ; - VP (Impf Ind Pl P1) => s_ + "èiem" ;--# notpresent - VP (Impf Ind Pl P2) => s_ + "èieu" ;--# notpresent --- VP (Impf Ind Pl P1) => s_ + "éiem" ;--# notpresent --- VP (Impf Ind Pl P2) => s_ + "éieu" ;--# notpresent VP (Imp Sg P1) => nonExist } } ; -oper sofrir_103 : Str -> Verbum = \sofrir -> +oper sofrir_103 : Str -> Bool -> Verbum = \sofrir,flag -> let sof_ = Predef.tk 3 sofrir in {s = table { VI Infn => sof_ + "rir" ; VI Ger => sof_ + "rint" ; - VI Part => sof_ + "ert" ; VP (Pres Ind Pl P1) => sof_ + "rim" ; - VP (Pres Ind Sg P1) => sof_ + "reixo" ; + VP (Pres Ind Sg P1) => case flag of {True => sof_ + "reixo"; _ => sof_ + "rixo"} ; VP (Pres Ind Pl P2) => sof_ + "riu" ; VP (Pres Ind Sg P2) => sof_ + "reixes" ; VP (Pres Ind Pl P3) => sof_ + "reixen" ; @@ -5005,10 +5172,14 @@ let sof_ = Predef.tk 3 sofrir in VP (Impf Ind Pl P3) => sof_ + "rien" ;--# notpresent VP (Impf Ind Sg P3) => sof_ + "ria" ;--# notpresent VP (Impf Sub Pl P1) => sof_ + "ríssim" ;--# notpresent + VP (ImpfSubPlE P1) => sof_ + "ríssem" ;--# notpresent VP (Impf Sub Sg P1) => sof_ + "rís" ;--# notpresent VP (Impf Sub Pl P2) => sof_ + "ríssiu" ;--# notpresent + VP (ImpfSubPlE P2) => sof_ + "rísseu" ;--# notpresent VP (Impf Sub Sg P2) => sof_ + "rissis" ;--# notpresent + VP ImpfSubSgE => sof_ + "risses" ;--# notpresent VP (Impf Sub Pl P3) => sof_ + "rissin" ;--# notpresent + VP (ImpfSubPlE P3) => sof_ + "rissen" ;--# notpresent VP (Impf Sub Sg P3) => sof_ + "rís" ;--# notpresent VP (Fut Pl P1) => sof_ + "rirem" ;--# notpresent VP (Fut Sg P1) => sof_ + "riré" ;--# notpresent @@ -5016,12 +5187,12 @@ let sof_ = Predef.tk 3 sofrir in VP (Fut Sg P2) => sof_ + "riràs" ;--# notpresent VP (Fut Pl P3) => sof_ + "riran" ;--# notpresent VP (Fut Sg P3) => sof_ + "rirà" ;--# notpresent - VP (Pret Pl P1) => sof_ + "ríssim" ;--# notpresent - VP (Pret Sg P1) => sof_ + "rís" ;--# notpresent - VP (Pret Pl P2) => sof_ + "ríssiu" ;--# notpresent - VP (Pret Sg P2) => sof_ + "rissis" ;--# notpresent - VP (Pret Pl P3) => sof_ + "rissin" ;--# notpresent - VP (Pret Sg P3) => sof_ + "rís" ;--# notpresent + VP (Pret Pl P1) => sof_ + "rírem" ;--# notpresent + VP (Pret Sg P1) => sof_ + "rí" ;--# notpresent + VP (Pret Pl P2) => sof_ + "ríreu" ;--# notpresent + VP (Pret Sg P2) => sof_ + "rires" ;--# notpresent + VP (Pret Pl P3) => sof_ + "riren" ;--# notpresent + VP (Pret Sg P3) => sof_ + "rí" ;--# notpresent VP (Cond Pl P1) => sof_ + "riríem" ;--# notpresent VP (Cond Sg P1) => sof_ + "riria" ;--# notpresent VP (Cond Pl P2) => sof_ + "riríeu" ;--# notpresent @@ -5033,21 +5204,19 @@ let sof_ = Predef.tk 3 sofrir in VP (Imp Sg P2) => sof_ + "reix" ; VP (Imp Pl P3) => sof_ + "reixin" ; VP (Imp Sg P3) => sof_ + "reixi" ; - VP (Pass Pl Fem) => sof_ + "ertes" ; - VP (Pass Sg Fem) => sof_ + "erta" ; - VP (Pass Pl Masc) => sof_ + "erts" ; - VP (Pass Sg Masc) => sof_ + "ert" ; + VP (Pass Pl Fem) => case flag of {True => sof_ + "ertes"; _ => sof_ + "rides"} ; + VP (Pass Sg Fem) => case flag of {True => sof_ + "erta"; _ => sof_ + "rida"} ; + VP (Pass Pl Masc) => case flag of {True => sof_ + "erts"; _ => sof_ + "rits"} ; + VP (Pass Sg Masc) => case flag of {True => sof_ + "ert"; _ => sof_ + "rit"} ; VP (Imp Sg P1) => nonExist } } ; --- soler-- is not in the used source . oper sortir_105 : Str -> Verbum = \sortir -> let s_ = Predef.tk 5 sortir in {s = table { VI Infn => s_ + "ortir" ; VI Ger => s_ + "ortint" ; - VI Part => s_ + "ortit" ; VP (Pres Ind Pl P1) => s_ + "ortim" ; VP (Pres Ind Sg P1) => s_ + "urto" ; VP (Pres Ind Pl P2) => s_ + "ortiu" ; @@ -5067,10 +5236,14 @@ let s_ = Predef.tk 5 sortir in VP (Impf Ind Pl P3) => s_ + "ortien" ;--# notpresent VP (Impf Ind Sg P3) => s_ + "ortia" ;--# notpresent VP (Impf Sub Pl P1) => s_ + "ortíssim" ;--# notpresent + VP (ImpfSubPlE P1) => s_ + "ortíssem" ;--# notpresent VP (Impf Sub Sg P1) => s_ + "ortís" ;--# notpresent VP (Impf Sub Pl P2) => s_ + "ortíssiu" ;--# notpresent + VP (ImpfSubPlE P2) => s_ + "ortísseu" ;--# notpresent VP (Impf Sub Sg P2) => s_ + "ortissis" ;--# notpresent + VP ImpfSubSgE => s_ + "ortisses" ;--# notpresent VP (Impf Sub Pl P3) => s_ + "ortissin" ;--# notpresent + VP (ImpfSubPlE P3) => s_ + "ortissen" ;--# notpresent VP (Impf Sub Sg P3) => s_ + "ortís" ;--# notpresent VP (Fut Pl P1) => s_ + "ortirem" ;--# notpresent VP (Fut Sg P1) => s_ + "ortiré" ;--# notpresent @@ -5078,12 +5251,12 @@ let s_ = Predef.tk 5 sortir in VP (Fut Sg P2) => s_ + "ortiràs" ;--# notpresent VP (Fut Pl P3) => s_ + "ortiran" ;--# notpresent VP (Fut Sg P3) => s_ + "ortirà" ;--# notpresent - VP (Pret Pl P1) => s_ + "ortíssim" ;--# notpresent - VP (Pret Sg P1) => s_ + "ortís" ;--# notpresent - VP (Pret Pl P2) => s_ + "ortíssiu" ;--# notpresent - VP (Pret Sg P2) => s_ + "ortissis" ;--# notpresent - VP (Pret Pl P3) => s_ + "ortissin" ;--# notpresent - VP (Pret Sg P3) => s_ + "ortís" ;--# notpresent + VP (Pret Pl P1) => s_ + "ortírem" ;--# notpresent + VP (Pret Sg P1) => s_ + "ortí" ;--# notpresent + VP (Pret Pl P2) => s_ + "ortíreu" ;--# notpresent + VP (Pret Sg P2) => s_ + "ortires" ;--# notpresent + VP (Pret Pl P3) => s_ + "ortiren" ;--# notpresent + VP (Pret Sg P3) => s_ + "ortí" ;--# notpresent VP (Cond Pl P1) => s_ + "ortiríem" ;--# notpresent VP (Cond Sg P1) => s_ + "ortiria" ;--# notpresent VP (Cond Pl P2) => s_ + "ortiríeu" ;--# notpresent @@ -5108,7 +5281,6 @@ let supl_ = Predef.tk 2 suplir in {s = table { VI Infn => supl_ + "ir" ; VI Ger => supl_ + "int" ; - VI Part => supl_ + "ert" ; VP (Pres Ind Pl P1) => supl_ + "im" ; VP (Pres Ind Sg P1) => supl_ + "eixo" ; VP (Pres Ind Pl P2) => supl_ + "iu" ; @@ -5128,10 +5300,14 @@ let supl_ = Predef.tk 2 suplir in VP (Impf Ind Pl P3) => supl_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => supl_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => supl_ + "íssim" ;--# notpresent + VP (ImpfSubPlE P1) => supl_ + "íssem" ;--# notpresent VP (Impf Sub Sg P1) => supl_ + "ís" ;--# notpresent VP (Impf Sub Pl P2) => supl_ + "íssiu" ;--# notpresent + VP (ImpfSubPlE P2) => supl_ + "ísseu" ;--# notpresent VP (Impf Sub Sg P2) => supl_ + "issis" ;--# notpresent + VP ImpfSubSgE => supl_ + "isses" ;--# notpresent VP (Impf Sub Pl P3) => supl_ + "issin" ;--# notpresent + VP (ImpfSubPlE P3) => supl_ + "issen" ;--# notpresent VP (Impf Sub Sg P3) => supl_ + "ís" ;--# notpresent VP (Fut Pl P1) => supl_ + "irem" ;--# notpresent VP (Fut Sg P1) => supl_ + "iré" ;--# notpresent @@ -5139,12 +5315,12 @@ let supl_ = Predef.tk 2 suplir in VP (Fut Sg P2) => supl_ + "iràs" ;--# notpresent VP (Fut Pl P3) => supl_ + "iran" ;--# notpresent VP (Fut Sg P3) => supl_ + "irà" ;--# notpresent - VP (Pret Pl P1) => supl_ + "íssim" ;--# notpresent - VP (Pret Sg P1) => supl_ + "ís" ;--# notpresent - VP (Pret Pl P2) => supl_ + "íssiu" ;--# notpresent - VP (Pret Sg P2) => supl_ + "issis" ;--# notpresent - VP (Pret Pl P3) => supl_ + "issin" ;--# notpresent - VP (Pret Sg P3) => supl_ + "ís" ;--# notpresent + VP (Pret Pl P1) => supl_ + "írem" ;--# notpresent + VP (Pret Sg P1) => supl_ + "í" ;--# notpresent + VP (Pret Pl P2) => supl_ + "íreu" ;--# notpresent + VP (Pret Sg P2) => supl_ + "ires" ;--# notpresent + VP (Pret Pl P3) => supl_ + "iren" ;--# notpresent + VP (Pret Sg P3) => supl_ + "í" ;--# notpresent VP (Cond Pl P1) => supl_ + "iríem" ;--# notpresent VP (Cond Sg P1) => supl_ + "iria" ;--# notpresent VP (Cond Pl P2) => supl_ + "iríeu" ;--# notpresent @@ -5168,7 +5344,6 @@ oper témer_107 : Str -> Verbum = \témer -> let t_ = Predef.tk 4 témer in {s = table { VI Ger => t_ + "ement" ; - VI Part => t_ + "emut" ; VP (Pres Ind Pl P1) => t_ + "emem" ; VP (Pres Ind Sg P1) => t_ + "emo" ; VP (Pres Ind Pl P2) => t_ + "emeu" ; @@ -5188,10 +5363,14 @@ let t_ = Predef.tk 4 témer in VP (Impf Ind Pl P3) => t_ + "emien" ;--# notpresent VP (Impf Ind Sg P3) => t_ + "emia" ;--# notpresent VP (Impf Sub Pl P1) => t_ + "eméssim" ;--# notpresent + VP (ImpfSubPlE P1) => t_ + "eméssem" ;--# notpresent VP (Impf Sub Sg P1) => t_ + "emés" ;--# notpresent VP (Impf Sub Pl P2) => t_ + "eméssiu" ;--# notpresent + VP (ImpfSubPlE P2) => t_ + "emésseu" ;--# notpresent VP (Impf Sub Sg P2) => t_ + "emessis" ;--# notpresent + VP ImpfSubSgE => t_ + "emesses" ;--# notpresent VP (Impf Sub Pl P3) => t_ + "emessin" ;--# notpresent + VP (ImpfSubPlE P3) => t_ + "emessen" ;--# notpresent VP (Impf Sub Sg P3) => t_ + "emés" ;--# notpresent VP (Fut Pl P1) => t_ + "emerem" ;--# notpresent VP (Fut Sg P1) => t_ + "emeré" ;--# notpresent @@ -5199,12 +5378,12 @@ let t_ = Predef.tk 4 témer in VP (Fut Sg P2) => t_ + "emeràs" ;--# notpresent VP (Fut Pl P3) => t_ + "emeran" ;--# notpresent VP (Fut Sg P3) => t_ + "emerà" ;--# notpresent - VP (Pret Pl P1) => t_ + "eméssim" ;--# notpresent - VP (Pret Sg P1) => t_ + "emés" ;--# notpresent - VP (Pret Pl P2) => t_ + "eméssiu" ;--# notpresent - VP (Pret Sg P2) => t_ + "emessis" ;--# notpresent - VP (Pret Pl P3) => t_ + "emessin" ;--# notpresent - VP (Pret Sg P3) => t_ + "emés" ;--# notpresent + VP (Pret Pl P1) => t_ + "emérem" ;--# notpresent + VP (Pret Sg P1) => t_ + "emí" ;--# notpresent + VP (Pret Pl P2) => t_ + "eméreu" ;--# notpresent + VP (Pret Sg P2) => t_ + "emeres" ;--# notpresent + VP (Pret Pl P3) => t_ + "emeren" ;--# notpresent + VP (Pret Sg P3) => t_ + "emé" ;--# notpresent VP (Cond Pl P1) => t_ + "emeríem" ;--# notpresent VP (Cond Sg P1) => t_ + "emeria" ;--# notpresent VP (Cond Pl P2) => t_ + "emeríeu" ;--# notpresent @@ -5225,12 +5404,11 @@ VP (Imp Sg P1) => nonExist } } ; -oper tenir_108 : Str -> Verbum = \tenir -> +oper tenir_108 : Str -> Ints 3 -> Verbum = \tenir,flag -> let x_ = Predef.tk 5 tenir in {s = table { - VI Infn => x_ + "tenir" ; + VI Infn => case flag of {0 => x_ + "tenir"; _ => x_ + "tindre"} ; VI Ger => x_ + "tenint" ; - VI Part => x_ + "tingut" ; VP (Pres Ind Pl P1) => x_ + "tenim" ; VP (Pres Ind Sg P1) => x_ + "tinc" ; VP (Pres Ind Pl P2) => x_ + "teniu" ; @@ -5250,10 +5428,14 @@ let x_ = Predef.tk 5 tenir in VP (Impf Ind Pl P3) => x_ + "tenien" ;--# notpresent VP (Impf Ind Sg P3) => x_ + "tenia" ;--# notpresent VP (Impf Sub Pl P1) => x_ + "tinguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => x_ + "tinguéssem" ;--# notpresent VP (Impf Sub Sg P1) => x_ + "tingués" ;--# notpresent VP (Impf Sub Pl P2) => x_ + "tinguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => x_ + "tinguésseu" ;--# notpresent VP (Impf Sub Sg P2) => x_ + "tinguessis" ;--# notpresent + VP ImpfSubSgE => x_ + "tinguesses" ;--# notpresent VP (Impf Sub Pl P3) => x_ + "tinguessin" ;--# notpresent + VP (ImpfSubPlE P3) => x_ + "tinguessen" ;--# notpresent VP (Impf Sub Sg P3) => x_ + "tingués" ;--# notpresent VP (Fut Pl P1) => x_ + "tindrem" ;--# notpresent VP (Fut Sg P1) => x_ + "tindré" ;--# notpresent @@ -5261,12 +5443,12 @@ let x_ = Predef.tk 5 tenir in VP (Fut Sg P2) => x_ + "tindràs" ;--# notpresent VP (Fut Pl P3) => x_ + "tindran" ;--# notpresent VP (Fut Sg P3) => x_ + "tindrà" ;--# notpresent - VP (Pret Pl P1) => x_ + "tinguéssim" ;--# notpresent - VP (Pret Sg P1) => x_ + "tingués" ;--# notpresent - VP (Pret Pl P2) => x_ + "tinguéssiu" ;--# notpresent - VP (Pret Sg P2) => x_ + "tinguessis" ;--# notpresent - VP (Pret Pl P3) => x_ + "tinguessin" ;--# notpresent - VP (Pret Sg P3) => x_ + "tingués" ;--# notpresent + VP (Pret Pl P1) => x_ + "tinguérem" ;--# notpresent + VP (Pret Sg P1) => x_ + "tinguí" ;--# notpresent + VP (Pret Pl P2) => x_ + "tinguéreu" ;--# notpresent + VP (Pret Sg P2) => x_ + "tingueres" ;--# notpresent + VP (Pret Pl P3) => x_ + "tingueren" ;--# notpresent + VP (Pret Sg P3) => x_ + "tingué" ;--# notpresent VP (Cond Pl P1) => x_ + "tindríem" ;--# notpresent VP (Cond Sg P1) => x_ + "tindria" ;--# notpresent VP (Cond Pl P2) => x_ + "tindríeu" ;--# notpresent @@ -5274,8 +5456,8 @@ let x_ = Predef.tk 5 tenir in VP (Cond Pl P3) => x_ + "tindrien" ;--# notpresent VP (Cond Sg P3) => x_ + "tindria" ;--# notpresent VP (Imp Pl P1) => x_ + "tinguem" ; - VP (Imp Pl P2) => x_ + "tingueu" ; - VP (Imp Sg P2) => x_ + "tingues" ; + VP (Imp Pl P2) => case flag of {0 => x_ + "tingueu"; _ => x_ + "teniu"} ; + VP (Imp Sg P2) => case flag of {0 => x_ + "tingues"; 1 => x_ + "té"; _ => x_ + "ten"} ; VP (Imp Pl P3) => x_ + "tinguin" ; VP (Imp Sg P3) => x_ + "tingui" ; VP (Pass Pl Fem) => x_ + "tingudes" ; @@ -5291,7 +5473,6 @@ let tor_ = Predef.tk 3 torçar in {s = table { VI Infn => tor_ + "çar" ; VI Ger => tor_ + "çant" ; - VI Part => tor_ + "çat" ; VP (Pres Ind Pl P1) => tor_ + "cem" ; VP (Pres Ind Sg P1) => tor_ + "ço" ; VP (Pres Ind Pl P2) => tor_ + "ceu" ; @@ -5311,10 +5492,14 @@ let tor_ = Predef.tk 3 torçar in VP (Impf Ind Pl P3) => tor_ + "çaven" ;--# notpresent VP (Impf Ind Sg P3) => tor_ + "çava" ;--# notpresent VP (Impf Sub Pl P1) => tor_ + "céssim" ;--# notpresent + VP (ImpfSubPlE P1) => tor_ + "céssem" ;--# notpresent VP (Impf Sub Sg P1) => tor_ + "cés" ;--# notpresent VP (Impf Sub Pl P2) => tor_ + "céssiu" ;--# notpresent + VP (ImpfSubPlE P2) => tor_ + "césseu" ;--# notpresent VP (Impf Sub Sg P2) => tor_ + "cessis" ;--# notpresent + VP ImpfSubSgE => tor_ + "cesses" ;--# notpresent VP (Impf Sub Pl P3) => tor_ + "cessin" ;--# notpresent + VP (ImpfSubPlE P3) => tor_ + "cessen" ;--# notpresent VP (Impf Sub Sg P3) => tor_ + "cés" ;--# notpresent VP (Fut Pl P1) => tor_ + "çarem" ;--# notpresent VP (Fut Sg P1) => tor_ + "çaré" ;--# notpresent @@ -5322,12 +5507,12 @@ let tor_ = Predef.tk 3 torçar in VP (Fut Sg P2) => tor_ + "çaràs" ;--# notpresent VP (Fut Pl P3) => tor_ + "çaran" ;--# notpresent VP (Fut Sg P3) => tor_ + "çarà" ;--# notpresent - VP (Pret Pl P1) => tor_ + "céssim" ;--# notpresent - VP (Pret Sg P1) => tor_ + "cés" ;--# notpresent - VP (Pret Pl P2) => tor_ + "céssiu" ;--# notpresent - VP (Pret Sg P2) => tor_ + "cessis" ;--# notpresent - VP (Pret Pl P3) => tor_ + "cessin" ;--# notpresent - VP (Pret Sg P3) => tor_ + "cés" ;--# notpresent + VP (Pret Pl P1) => tor_ + "çàrem" ;--# notpresent + VP (Pret Sg P1) => tor_ + "cí" ;--# notpresent + VP (Pret Pl P2) => tor_ + "çàreu" ;--# notpresent + VP (Pret Sg P2) => tor_ + "çares" ;--# notpresent + VP (Pret Pl P3) => tor_ + "çaren" ;--# notpresent + VP (Pret Sg P3) => tor_ + "çà" ;--# notpresent VP (Cond Pl P1) => tor_ + "çaríem" ;--# notpresent VP (Cond Sg P1) => tor_ + "çaria" ;--# notpresent VP (Cond Pl P2) => tor_ + "çaríeu" ;--# notpresent @@ -5351,8 +5536,6 @@ oper tòrcer_110 : Str -> Verbum = \tòrcer -> let t_ = Predef.tk 5 tòrcer in {s = table { VI Ger => t_ + "orcent" ; - VI Part => t_ + "ort" ; --- VI Part => t_ + "orçut" ; -- AR why duplicate? VP (Pres Ind Pl P1) => t_ + "orcem" ; VP (Pres Ind Sg P1) => t_ + "orço" ; VP (Pres Ind Pl P2) => t_ + "orceu" ; @@ -5360,41 +5543,39 @@ let t_ = Predef.tk 5 tòrcer in VP (Pres Ind Pl P3) => t_ + "orcen" ; VP (Pres Ind Sg P3) => t_ + "orç" ; VP (Pres Sub Pl P1) => t_ + "orcem" ; - VP (Pres Sub Sg P1) => t_ + "orça" ; + VP (Pres Sub Sg P1) => t_ + "orci" ; VP (Pres Sub Pl P2) => t_ + "orceu" ; - VP (Pres Sub Sg P2) => t_ + "orces" ; - VP (Pres Sub Pl P3) => t_ + "orcen" ; - VP (Pres Sub Sg P3) => t_ + "orça" ; + VP (Pres Sub Sg P2) => t_ + "orcis" ; + VP (Pres Sub Pl P3) => t_ + "orcin" ; + VP (Pres Sub Sg P3) => t_ + "orci" ; VP (Impf Ind Pl P1) => t_ + "orcíem" ;--# notpresent VP (Impf Ind Sg P1) => t_ + "orcia" ;--# notpresent VP (Impf Ind Pl P2) => t_ + "orcíeu" ;--# notpresent VP (Impf Ind Sg P2) => t_ + "orcies" ;--# notpresent VP (Impf Ind Pl P3) => t_ + "orcien" ;--# notpresent VP (Impf Ind Sg P3) => t_ + "orcia" ;--# notpresent - VP (Impf Sub Pl P1) => t_ + "orcérem" ;--# notpresent --- VP (Impf Sub Pl P1) => t_ + "orcéssim" ;--# notpresent - VP (Impf Sub Sg P1) => t_ + "orcera" ;--# notpresent --- VP (Impf Sub Sg P1) => t_ + "orcés" ;--# notpresent - VP (Impf Sub Pl P2) => t_ + "orcéreu" ;--# notpresent --- VP (Impf Sub Pl P2) => t_ + "orcéssiu" ;--# notpresent - VP (Impf Sub Sg P2) => t_ + "orceres" ;--# notpresent --- VP (Impf Sub Sg P2) => t_ + "orcessis" ;--# notpresent - VP (Impf Sub Pl P3) => t_ + "orceren" ;--# notpresent --- VP (Impf Sub Pl P3) => t_ + "orcessin" ;--# notpresent - VP (Impf Sub Sg P3) => t_ + "orcera" ;--# notpresent --- VP (Impf Sub Sg P3) => t_ + "orcés" ;--# notpresent - VP (Pret Pl P1) => t_ + "orcérem" ;--# notpresent - VP (Pret Sg P1) => t_ + "orcí" ;--# notpresent - VP (Pret Pl P2) => t_ + "orcéreu" ;--# notpresent - VP (Pret Sg P2) => t_ + "orceres" ;--# notpresent - VP (Pret Pl P3) => t_ + "orceren" ;--# notpresent - VP (Pret Sg P3) => t_ + "orcé" ;--# notpresent + VP (Impf Sub Pl P1) => t_ + "orcéssim" ;--# notpresent + VP (ImpfSubPlE P1) => t_ + "orcéssem" ;--# notpresent + VP (Impf Sub Sg P1) => t_ + "orcés" ;--# notpresent + VP (Impf Sub Pl P2) => t_ + "orcéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => t_ + "orcésseu" ;--# notpresent + VP (Impf Sub Sg P2) => t_ + "orcessis" ;--# notpresent + VP ImpfSubSgE => t_ + "orcesses" ;--# notpresent + VP (Impf Sub Pl P3) => t_ + "orcessin" ;--# notpresent + VP (ImpfSubPlE P3) => t_ + "orcessen" ;--# notpresent + VP (Impf Sub Sg P3) => t_ + "orcés" ;--# notpresent VP (Fut Pl P1) => t_ + "orcerem" ;--# notpresent VP (Fut Sg P1) => t_ + "orceré" ;--# notpresent VP (Fut Pl P2) => t_ + "orcereu" ;--# notpresent VP (Fut Sg P2) => t_ + "orceràs" ;--# notpresent VP (Fut Pl P3) => t_ + "orceran" ;--# notpresent VP (Fut Sg P3) => t_ + "orcerà" ;--# notpresent + VP (Pret Pl P1) => t_ + "orcérem" ;--# notpresent + VP (Pret Sg P1) => t_ + "orcí" ;--# notpresent + VP (Pret Pl P2) => t_ + "orcéreu" ;--# notpresent + VP (Pret Sg P2) => t_ + "orceres" ;--# notpresent + VP (Pret Pl P3) => t_ + "orceren" ;--# notpresent + VP (Pret Sg P3) => t_ + "orcé" ;--# notpresent VP (Cond Pl P1) => t_ + "orceríem" ;--# notpresent VP (Cond Sg P1) => t_ + "orceria" ;--# notpresent VP (Cond Pl P2) => t_ + "orceríeu" ;--# notpresent @@ -5404,30 +5585,23 @@ let t_ = Predef.tk 5 tòrcer in VP (Imp Pl P1) => t_ + "orcem" ; VP (Imp Pl P2) => t_ + "orceu" ; VP (Imp Sg P2) => t_ + "orç" ; - VP (Imp Pl P3) => t_ + "orcen" ; --- VP (Imp Pl P3) => t_ + "orcin" ; + VP (Imp Pl P3) => t_ + "orcin" ; VP (Imp Sg P3) => t_ + "orci" ; --- VP (Imp Sg P3) => t_ + "orça" ; - VP (Pass Pl Fem) => t_ + "ortes" ; --- VP (Pass Pl Fem) => t_ + "orçudes" ; - VP (Pass Sg Fem) => t_ + "orta" ; --- VP (Pass Sg Fem) => t_ + "orçuda" ; - VP (Pass Pl Masc) => t_ + "orts" ; --- VP (Pass Pl Masc) => t_ + "orçuts" ; - VP (Pass Sg Masc) => t_ + "ort" ; --- VP (Pass Sg Masc) => t_ + "orçut" ; + VP (Pass Pl Fem) => t_ + "orçudes" ; + VP (Pass Sg Fem) => t_ + "orçuda" ; + VP (Pass Pl Masc) => t_ + "orçuts" ; + VP (Pass Sg Masc) => t_ + "orçut" ; VI Infn => t_ + "òrcer" ; VP (Imp Sg P1) => nonExist } } ; --- tossir-- is not in the used source . +--- tossir-- is not in the used source . oper trencar_112 : Str -> Verbum = \trencar -> let tren_ = Predef.tk 3 trencar in {s = table { VI Infn => tren_ + "car" ; VI Ger => tren_ + "cant" ; - VI Part => tren_ + "cat" ; VP (Pres Ind Pl P1) => tren_ + "quem" ; VP (Pres Ind Sg P1) => tren_ + "co" ; VP (Pres Ind Pl P2) => tren_ + "queu" ; @@ -5447,10 +5621,14 @@ let tren_ = Predef.tk 3 trencar in VP (Impf Ind Pl P3) => tren_ + "caven" ;--# notpresent VP (Impf Ind Sg P3) => tren_ + "cava" ;--# notpresent VP (Impf Sub Pl P1) => tren_ + "quéssim" ;--# notpresent + VP (ImpfSubPlE P1) => tren_ + "quéssem" ;--# notpresent VP (Impf Sub Sg P1) => tren_ + "qués" ;--# notpresent VP (Impf Sub Pl P2) => tren_ + "quéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => tren_ + "quésseu" ;--# notpresent VP (Impf Sub Sg P2) => tren_ + "quessis" ;--# notpresent + VP ImpfSubSgE => tren_ + "quesses" ;--# notpresent VP (Impf Sub Pl P3) => tren_ + "quessin" ;--# notpresent + VP (ImpfSubPlE P3) => tren_ + "quessen" ;--# notpresent VP (Impf Sub Sg P3) => tren_ + "qués" ;--# notpresent VP (Fut Pl P1) => tren_ + "carem" ;--# notpresent VP (Fut Sg P1) => tren_ + "caré" ;--# notpresent @@ -5458,12 +5636,12 @@ let tren_ = Predef.tk 3 trencar in VP (Fut Sg P2) => tren_ + "caràs" ;--# notpresent VP (Fut Pl P3) => tren_ + "caran" ;--# notpresent VP (Fut Sg P3) => tren_ + "carà" ;--# notpresent - VP (Pret Pl P1) => tren_ + "quéssim" ;--# notpresent - VP (Pret Sg P1) => tren_ + "qués" ;--# notpresent - VP (Pret Pl P2) => tren_ + "quéssiu" ;--# notpresent - VP (Pret Sg P2) => tren_ + "quessis" ;--# notpresent - VP (Pret Pl P3) => tren_ + "quessin" ;--# notpresent - VP (Pret Sg P3) => tren_ + "qués" ;--# notpresent + VP (Pret Pl P1) => tren_ + "càrem" ;--# notpresent + VP (Pret Sg P1) => tren_ + "quí" ;--# notpresent + VP (Pret Pl P2) => tren_ + "càreu" ;--# notpresent + VP (Pret Sg P2) => tren_ + "cares" ;--# notpresent + VP (Pret Pl P3) => tren_ + "caren" ;--# notpresent + VP (Pret Sg P3) => tren_ + "cà" ;--# notpresent VP (Cond Pl P1) => tren_ + "caríem" ;--# notpresent VP (Cond Sg P1) => tren_ + "caria" ;--# notpresent VP (Cond Pl P2) => tren_ + "caríeu" ;--# notpresent @@ -5483,24 +5661,23 @@ VP (Imp Sg P1) => nonExist } } ; -oper treure_113 : Str -> Verbum = \treure -> +oper treure_113 : Str -> Bool -> Verbum = \treure,flag -> let tr_ = Predef.tk 4 treure in {s = table { - VI Infn => tr_ + "eure" ; + VI Infn => case flag of {True => tr_ + "eure"; _ => tr_ + "aure"} ; VI Ger => tr_ + "aient" ; - VI Part => tr_ + "et" ; VP (Pres Ind Pl P1) => tr_ + "aiem" ; - VP (Pres Ind Sg P1) => tr_ + "ec" ; + VP (Pres Ind Sg P1) => case flag of {True => tr_ + "ec"; _ => tr_ + "ac"} ; VP (Pres Ind Pl P2) => tr_ + "aieu" ; - VP (Pres Ind Sg P2) => tr_ + "eus" ; - VP (Pres Ind Pl P3) => tr_ + "euen" ; - VP (Pres Ind Sg P3) => tr_ + "eu" ; + VP (Pres Ind Sg P2) => case flag of {True => tr_ + "eus"; _ => tr_ + "aus"} ; + VP (Pres Ind Pl P3) => case flag of {True => tr_ + "euen"; _ => tr_ + "auen"} ; + VP (Pres Ind Sg P3) => case flag of {True => tr_ + "eu"; _ => tr_ + "au"} ; VP (Pres Sub Pl P1) => tr_ + "aguem" ; - VP (Pres Sub Sg P1) => tr_ + "egui" ; + VP (Pres Sub Sg P1) => case flag of {True => tr_ + "egui"; _ => tr_ + "agui"} ; VP (Pres Sub Pl P2) => tr_ + "agueu" ; - VP (Pres Sub Sg P2) => tr_ + "eguis" ; - VP (Pres Sub Pl P3) => tr_ + "eguin" ; - VP (Pres Sub Sg P3) => tr_ + "egui" ; + VP (Pres Sub Sg P2) => case flag of {True => tr_ + "eguis"; _ => tr_ + "aguis"} ; + VP (Pres Sub Pl P3) => case flag of {True => tr_ + "eguin"; _ => tr_ + "aguin"} ; + VP (Pres Sub Sg P3) => case flag of {True => tr_ + "egui"; _ => tr_ + "agui"} ; VP (Impf Ind Pl P1) => tr_ + "èiem" ;--# notpresent VP (Impf Ind Sg P1) => tr_ + "eia" ;--# notpresent VP (Impf Ind Pl P2) => tr_ + "èieu" ;--# notpresent @@ -5508,10 +5685,14 @@ let tr_ = Predef.tk 4 treure in VP (Impf Ind Pl P3) => tr_ + "eien" ;--# notpresent VP (Impf Ind Sg P3) => tr_ + "eia" ;--# notpresent VP (Impf Sub Pl P1) => tr_ + "aguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => tr_ + "aguéssem" ;--# notpresent VP (Impf Sub Sg P1) => tr_ + "agués" ;--# notpresent VP (Impf Sub Pl P2) => tr_ + "aguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => tr_ + "aguésseu" ;--# notpresent VP (Impf Sub Sg P2) => tr_ + "aguessis" ;--# notpresent + VP ImpfSubSgE => tr_ + "aguesses" ;--# notpresent VP (Impf Sub Pl P3) => tr_ + "aguessin" ;--# notpresent + VP (ImpfSubPlE P3) => tr_ + "aguessen" ;--# notpresent VP (Impf Sub Sg P3) => tr_ + "agués" ;--# notpresent VP (Fut Pl P1) => tr_ + "aurem" ;--# notpresent VP (Fut Sg P1) => tr_ + "auré" ;--# notpresent @@ -5519,12 +5700,12 @@ let tr_ = Predef.tk 4 treure in VP (Fut Sg P2) => tr_ + "auràs" ;--# notpresent VP (Fut Pl P3) => tr_ + "auran" ;--# notpresent VP (Fut Sg P3) => tr_ + "aurà" ;--# notpresent - VP (Pret Pl P1) => tr_ + "aguéssim" ;--# notpresent - VP (Pret Sg P1) => tr_ + "agués" ;--# notpresent - VP (Pret Pl P2) => tr_ + "aguéssiu" ;--# notpresent - VP (Pret Sg P2) => tr_ + "aguessis" ;--# notpresent - VP (Pret Pl P3) => tr_ + "aguessin" ;--# notpresent - VP (Pret Sg P3) => tr_ + "agués" ;--# notpresent + VP (Pret Pl P1) => tr_ + "aguérem" ;--# notpresent + VP (Pret Sg P1) => tr_ + "aguí" ;--# notpresent + VP (Pret Pl P2) => tr_ + "aguéreu" ;--# notpresent + VP (Pret Sg P2) => tr_ + "agueres" ;--# notpresent + VP (Pret Pl P3) => tr_ + "agueren" ;--# notpresent + VP (Pret Sg P3) => tr_ + "agué" ;--# notpresent VP (Cond Pl P1) => tr_ + "auríem" ;--# notpresent VP (Cond Sg P1) => tr_ + "auria" ;--# notpresent VP (Cond Pl P2) => tr_ + "auríeu" ;--# notpresent @@ -5533,9 +5714,9 @@ let tr_ = Predef.tk 4 treure in VP (Cond Sg P3) => tr_ + "auria" ;--# notpresent VP (Imp Pl P1) => tr_ + "aguem" ; VP (Imp Pl P2) => tr_ + "aieu" ; - VP (Imp Sg P2) => tr_ + "eu" ; - VP (Imp Pl P3) => tr_ + "eguin" ; - VP (Imp Sg P3) => tr_ + "egui" ; + VP (Imp Sg P2) => case flag of {True => tr_ + "eu"; _ => tr_ + "au"} ; + VP (Imp Pl P3) => case flag of {True => tr_ + "eguin"; _ => tr_ + "aguin"} ; + VP (Imp Sg P3) => case flag of {True => tr_ + "egui"; _ => tr_ + "agui"} ; VP (Pass Pl Fem) => tr_ + "etes" ; VP (Pass Sg Fem) => tr_ + "eta" ; VP (Pass Pl Masc) => tr_ + "ets" ; @@ -5544,12 +5725,11 @@ VP (Imp Sg P1) => nonExist } } ; -oper valer_114 : Str -> Verbum = \valer -> +oper valer_114 : Str -> Bool -> Verbum = \valer,flag -> let val_ = Predef.tk 2 valer in {s = table { - VI Infn => val_ + "er" ; + VI Infn => case flag of {True => val_ + "er"; _ => val_ + "dre"} ; VI Ger => val_ + "ent" ; - VI Part => val_ + "gut" ; VP (Pres Ind Pl P1) => val_ + "em" ; VP (Pres Ind Sg P1) => val_ + "c" ; VP (Pres Ind Pl P2) => val_ + "eu" ; @@ -5569,10 +5749,14 @@ let val_ = Predef.tk 2 valer in VP (Impf Ind Pl P3) => val_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => val_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => val_ + "guéssim" ;--# notpresent + VP (ImpfSubPlE P1) => val_ + "guéssem" ;--# notpresent VP (Impf Sub Sg P1) => val_ + "gués" ;--# notpresent VP (Impf Sub Pl P2) => val_ + "guéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => val_ + "guésseu" ;--# notpresent VP (Impf Sub Sg P2) => val_ + "guessis" ;--# notpresent + VP ImpfSubSgE => val_ + "guesses" ;--# notpresent VP (Impf Sub Pl P3) => val_ + "guessin" ;--# notpresent + VP (ImpfSubPlE P3) => val_ + "guessen" ;--# notpresent VP (Impf Sub Sg P3) => val_ + "gués" ;--# notpresent VP (Fut Pl P1) => val_ + "drem" ;--# notpresent VP (Fut Sg P1) => val_ + "dré" ;--# notpresent @@ -5580,12 +5764,12 @@ let val_ = Predef.tk 2 valer in VP (Fut Sg P2) => val_ + "dràs" ;--# notpresent VP (Fut Pl P3) => val_ + "dran" ;--# notpresent VP (Fut Sg P3) => val_ + "drà" ;--# notpresent - VP (Pret Pl P1) => val_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => val_ + "gués" ;--# notpresent - VP (Pret Pl P2) => val_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => val_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => val_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => val_ + "gués" ;--# notpresent + VP (Pret Pl P1) => val_ + "guérem" ;--# notpresent + VP (Pret Sg P1) => val_ + "guí" ;--# notpresent + VP (Pret Pl P2) => val_ + "guéreu" ;--# notpresent + VP (Pret Sg P2) => val_ + "gueres" ;--# notpresent + VP (Pret Pl P3) => val_ + "gueren" ;--# notpresent + VP (Pret Sg P3) => val_ + "gué" ;--# notpresent VP (Cond Pl P1) => val_ + "dríem" ;--# notpresent VP (Cond Sg P1) => val_ + "dria" ;--# notpresent VP (Cond Pl P2) => val_ + "dríeu" ;--# notpresent @@ -5609,7 +5793,6 @@ oper vèncer_115 : Str -> Verbum = \vèncer -> let v_ = Predef.tk 5 vèncer in {s = table { VI Ger => v_ + "encent" ; - VI Part => v_ + "ençut" ; VP (Pres Ind Pl P1) => v_ + "encem" ; VP (Pres Ind Sg P1) => v_ + "enço" ; VP (Pres Ind Pl P2) => v_ + "enceu" ; @@ -5629,10 +5812,14 @@ let v_ = Predef.tk 5 vèncer in VP (Impf Ind Pl P3) => v_ + "encien" ;--# notpresent VP (Impf Ind Sg P3) => v_ + "encia" ;--# notpresent VP (Impf Sub Pl P1) => v_ + "encéssim" ;--# notpresent + VP (ImpfSubPlE P1) => v_ + "encéssem" ;--# notpresent VP (Impf Sub Sg P1) => v_ + "encés" ;--# notpresent VP (Impf Sub Pl P2) => v_ + "encéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => v_ + "encésseu" ;--# notpresent VP (Impf Sub Sg P2) => v_ + "encessis" ;--# notpresent + VP ImpfSubSgE => v_ + "encesses" ;--# notpresent VP (Impf Sub Pl P3) => v_ + "encessin" ;--# notpresent + VP (ImpfSubPlE P3) => v_ + "encessen" ;--# notpresent VP (Impf Sub Sg P3) => v_ + "encés" ;--# notpresent VP (Fut Pl P1) => v_ + "encerem" ;--# notpresent VP (Fut Sg P1) => v_ + "enceré" ;--# notpresent @@ -5640,12 +5827,12 @@ let v_ = Predef.tk 5 vèncer in VP (Fut Sg P2) => v_ + "enceràs" ;--# notpresent VP (Fut Pl P3) => v_ + "enceran" ;--# notpresent VP (Fut Sg P3) => v_ + "encerà" ;--# notpresent - VP (Pret Pl P1) => v_ + "encéssim" ;--# notpresent - VP (Pret Sg P1) => v_ + "encés" ;--# notpresent - VP (Pret Pl P2) => v_ + "encéssiu" ;--# notpresent - VP (Pret Sg P2) => v_ + "encessis" ;--# notpresent - VP (Pret Pl P3) => v_ + "encessin" ;--# notpresent - VP (Pret Sg P3) => v_ + "encés" ;--# notpresent + VP (Pret Pl P1) => v_ + "encérem" ;--# notpresent + VP (Pret Sg P1) => v_ + "encí" ;--# notpresent + VP (Pret Pl P2) => v_ + "encéreu" ;--# notpresent + VP (Pret Sg P2) => v_ + "enceres" ;--# notpresent + VP (Pret Pl P3) => v_ + "enceren" ;--# notpresent + VP (Pret Sg P3) => v_ + "encé" ;--# notpresent VP (Cond Pl P1) => v_ + "enceríem" ;--# notpresent VP (Cond Sg P1) => v_ + "enceria" ;--# notpresent VP (Cond Pl P2) => v_ + "enceríeu" ;--# notpresent @@ -5666,12 +5853,11 @@ VP (Imp Sg P1) => nonExist } } ; -oper vendre_116 : Str -> Verbum = \vendre -> +oper vendre_116 : Str -> Bool -> Verbum = \vendre,flag -> let ven_ = Predef.tk 3 vendre in {s = table { VI Infn => ven_ + "dre" ; VI Ger => ven_ + "ent" ; - VI Part => ven_ + "ut" ; VP (Pres Ind Pl P1) => ven_ + "em" ; VP (Pres Ind Sg P1) => ven_ + "c" ; VP (Pres Ind Pl P2) => ven_ + "eu" ; @@ -5691,10 +5877,14 @@ let ven_ = Predef.tk 3 vendre in VP (Impf Ind Pl P3) => ven_ + "ien" ;--# notpresent VP (Impf Ind Sg P3) => ven_ + "ia" ;--# notpresent VP (Impf Sub Pl P1) => ven_ + "guéssim" ;--# notpresent + VP (ImpfSubPlE P1) => ven_ + "guéssem" ;--# notpresent VP (Impf Sub Sg P1) => ven_ + "gués" ;--# notpresent VP (Impf Sub Pl P2) => ven_ + "guéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => ven_ + "guésseu" ;--# notpresent VP (Impf Sub Sg P2) => ven_ + "guessis" ;--# notpresent + VP ImpfSubSgE => ven_ + "guesses" ;--# notpresent VP (Impf Sub Pl P3) => ven_ + "guessin" ;--# notpresent + VP (ImpfSubPlE P3) => ven_ + "guessen" ;--# notpresent VP (Impf Sub Sg P3) => ven_ + "gués" ;--# notpresent VP (Fut Pl P1) => ven_ + "drem" ;--# notpresent VP (Fut Sg P1) => ven_ + "dré" ;--# notpresent @@ -5702,12 +5892,12 @@ let ven_ = Predef.tk 3 vendre in VP (Fut Sg P2) => ven_ + "dràs" ;--# notpresent VP (Fut Pl P3) => ven_ + "dran" ;--# notpresent VP (Fut Sg P3) => ven_ + "drà" ;--# notpresent - VP (Pret Pl P1) => ven_ + "guéssim" ;--# notpresent - VP (Pret Sg P1) => ven_ + "gués" ;--# notpresent - VP (Pret Pl P2) => ven_ + "guéssiu" ;--# notpresent - VP (Pret Sg P2) => ven_ + "guessis" ;--# notpresent - VP (Pret Pl P3) => ven_ + "guessin" ;--# notpresent - VP (Pret Sg P3) => ven_ + "gués" ;--# notpresent + VP (Pret Pl P1) => ven_ + "guérem" ;--# notpresent + VP (Pret Sg P1) => ven_ + "guí" ;--# notpresent + VP (Pret Pl P2) => ven_ + "guéreu" ;--# notpresent + VP (Pret Sg P2) => ven_ + "gueres" ;--# notpresent + VP (Pret Pl P3) => ven_ + "gueren" ;--# notpresent + VP (Pret Sg P3) => ven_ + "gué" ;--# notpresent VP (Cond Pl P1) => ven_ + "dríem" ;--# notpresent VP (Cond Sg P1) => ven_ + "dria" ;--# notpresent VP (Cond Pl P2) => ven_ + "dríeu" ;--# notpresent @@ -5719,20 +5909,19 @@ let ven_ = Predef.tk 3 vendre in VP (Imp Sg P2) => ven_ + "" ; VP (Imp Pl P3) => ven_ + "guin" ; VP (Imp Sg P3) => ven_ + "gui" ; - VP (Pass Pl Fem) => ven_ + "udes" ; - VP (Pass Sg Fem) => ven_ + "uda" ; - VP (Pass Pl Masc) => ven_ + "uts" ; - VP (Pass Sg Masc) => ven_ + "ut" ; + VP (Pass Pl Fem) => case flag of {True => ven_ + "udes"; _ => ven_ + "gudes"} ; + VP (Pass Sg Fem) => case flag of {True => ven_ + "uda"; _ => ven_ + "guda"} ; + VP (Pass Pl Masc) => case flag of {True => ven_ + "uts"; _ => ven_ + "guts"} ; + VP (Pass Sg Masc) => case flag of {True => ven_ + "ut"; _ => ven_ + "gut"} ; VP (Imp Sg P1) => nonExist } } ; -oper venir_117 : Str -> Verbum = \venir -> +oper venir_117 : Str -> Bool -> Verbum = \venir,flag -> let v_ = Predef.tk 4 venir in {s = table { - VI Infn => v_ + "enir" ; + VI Infn => case flag of {True => v_ + "enir"; _ => v_ + "indre"} ; VI Ger => v_ + "enint" ; - VI Part => v_ + "ingut" ; VP (Pres Ind Pl P1) => v_ + "enim" ; VP (Pres Ind Sg P1) => v_ + "inc" ; VP (Pres Ind Pl P2) => v_ + "eniu" ; @@ -5752,10 +5941,14 @@ let v_ = Predef.tk 4 venir in VP (Impf Ind Pl P3) => v_ + "enien" ;--# notpresent VP (Impf Ind Sg P3) => v_ + "enia" ;--# notpresent VP (Impf Sub Pl P1) => v_ + "inguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => v_ + "inguéssem" ;--# notpresent VP (Impf Sub Sg P1) => v_ + "ingués" ;--# notpresent VP (Impf Sub Pl P2) => v_ + "inguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => v_ + "inguésseu" ;--# notpresent VP (Impf Sub Sg P2) => v_ + "inguessis" ;--# notpresent + VP ImpfSubSgE => v_ + "inguesses" ;--# notpresent VP (Impf Sub Pl P3) => v_ + "inguessin" ;--# notpresent + VP (ImpfSubPlE P3) => v_ + "inguessen" ;--# notpresent VP (Impf Sub Sg P3) => v_ + "ingués" ;--# notpresent VP (Fut Pl P1) => v_ + "indrem" ;--# notpresent VP (Fut Sg P1) => v_ + "indré" ;--# notpresent @@ -5763,12 +5956,12 @@ let v_ = Predef.tk 4 venir in VP (Fut Sg P2) => v_ + "indràs" ;--# notpresent VP (Fut Pl P3) => v_ + "indran" ;--# notpresent VP (Fut Sg P3) => v_ + "indrà" ;--# notpresent - VP (Pret Pl P1) => v_ + "inguéssim" ;--# notpresent - VP (Pret Sg P1) => v_ + "ingués" ;--# notpresent - VP (Pret Pl P2) => v_ + "inguéssiu" ;--# notpresent - VP (Pret Sg P2) => v_ + "inguessis" ;--# notpresent - VP (Pret Pl P3) => v_ + "inguessin" ;--# notpresent - VP (Pret Sg P3) => v_ + "ingués" ;--# notpresent + VP (Pret Pl P1) => v_ + "inguérem" ;--# notpresent + VP (Pret Sg P1) => v_ + "inguí" ;--# notpresent + VP (Pret Pl P2) => v_ + "inguéreu" ;--# notpresent + VP (Pret Sg P2) => v_ + "ingueres" ;--# notpresent + VP (Pret Pl P3) => v_ + "ingueren" ;--# notpresent + VP (Pret Sg P3) => v_ + "ingué" ;--# notpresent VP (Cond Pl P1) => v_ + "indríem" ;--# notpresent VP (Cond Sg P1) => v_ + "indria" ;--# notpresent VP (Cond Pl P2) => v_ + "indríeu" ;--# notpresent @@ -5788,12 +5981,11 @@ VP (Imp Sg P1) => nonExist } } ; -oper veure_118 : Str -> Verbum = \veure -> +oper veure_118 : Str -> Ints 3 -> Verbum = \veure,flag -> let v_ = Predef.tk 4 veure in {s = table { VI Infn => v_ + "eure" ; VI Ger => v_ + "eient" ; - VI Part => v_ + "ist" ; VP (Pres Ind Pl P1) => v_ + "eiem" ; VP (Pres Ind Sg P1) => v_ + "eig" ; VP (Pres Ind Pl P2) => v_ + "eieu" ; @@ -5813,10 +6005,14 @@ let v_ = Predef.tk 4 veure in VP (Impf Ind Pl P3) => v_ + "eien" ;--# notpresent VP (Impf Ind Sg P3) => v_ + "eia" ;--# notpresent VP (Impf Sub Pl P1) => v_ + "eiéssim" ;--# notpresent + VP (ImpfSubPlE P1) => v_ + "eiéssem" ;--# notpresent VP (Impf Sub Sg P1) => v_ + "eiés" ;--# notpresent VP (Impf Sub Pl P2) => v_ + "eiéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => v_ + "eiésseu" ;--# notpresent VP (Impf Sub Sg P2) => v_ + "eiessis" ;--# notpresent + VP ImpfSubSgE => v_ + "eiesses" ;--# notpresent VP (Impf Sub Pl P3) => v_ + "eiessin" ;--# notpresent + VP (ImpfSubPlE P3) => v_ + "eiessen" ;--# notpresent VP (Impf Sub Sg P3) => v_ + "eiés" ;--# notpresent VP (Fut Pl P1) => v_ + "eurem" ;--# notpresent VP (Fut Sg P1) => v_ + "euré" ;--# notpresent @@ -5824,12 +6020,12 @@ let v_ = Predef.tk 4 veure in VP (Fut Sg P2) => v_ + "euràs" ;--# notpresent VP (Fut Pl P3) => v_ + "euran" ;--# notpresent VP (Fut Sg P3) => v_ + "eurà" ;--# notpresent - VP (Pret Pl P1) => v_ + "eiéssim" ;--# notpresent - VP (Pret Sg P1) => v_ + "eiés" ;--# notpresent - VP (Pret Pl P2) => v_ + "eiéssiu" ;--# notpresent - VP (Pret Sg P2) => v_ + "eiessis" ;--# notpresent - VP (Pret Pl P3) => v_ + "eiessin" ;--# notpresent - VP (Pret Sg P3) => v_ + "eiés" ;--# notpresent + VP (Pret Pl P1) => case flag of {0 => v_ + "eiérem"; _ => v_ + "érem"} ;--# notpresent + VP (Pret Sg P1) => v_ + "iu" ;--# notpresent + VP (Pret Pl P2) => case flag of {0 => v_ + "eiéreu"; _ => v_ + "éreu"} ;--# notpresent + VP (Pret Sg P2) => case flag of {0 => v_ + "eieres"; _ => v_ + "eres"} ;--# notpresent + VP (Pret Pl P3) => case flag of {0 => v_ + "eieren"; _ => v_ + "eren"} ;--# notpresent + VP (Pret Sg P3) => case flag of {0 => v_ + "eié"; _ => v_ + "éu"} ;--# notpresent VP (Cond Pl P1) => v_ + "euríem" ;--# notpresent VP (Cond Sg P1) => v_ + "euria" ;--# notpresent VP (Cond Pl P2) => v_ + "euríeu" ;--# notpresent @@ -5837,13 +6033,13 @@ let v_ = Predef.tk 4 veure in VP (Cond Pl P3) => v_ + "eurien" ;--# notpresent VP (Cond Sg P3) => v_ + "euria" ;--# notpresent VP (Imp Pl P1) => v_ + "egem" ; - VP (Imp Pl P2) => v_ + "egeu" ; - VP (Imp Sg P2) => v_ + "eges" ; + VP (Imp Pl P2) => case flag of {0 => v_ + "egeu"; 1 => v_ + "eg"; _ => v_ + "eieu"} ; + VP (Imp Sg P2) => case flag of {0 => v_ + "eges"; 1 => v_ + "es"; _ => v_ + "et"} ; VP (Imp Pl P3) => v_ + "egin" ; VP (Imp Sg P3) => v_ + "egi" ; VP (Pass Pl Fem) => v_ + "istes" ; VP (Pass Sg Fem) => v_ + "ista" ; - VP (Pass Pl Masc) => v_ + "ists" ; + VP (Pass Pl Masc) => case flag of {0 => v_ + "ists"; _ => v_ + "istos"} ; VP (Pass Sg Masc) => v_ + "ist" ; VP (Imp Sg P1) => nonExist } @@ -5854,7 +6050,6 @@ let vi_ = Predef.tk 3 viure in {s = table { VI Infn => vi_ + "ure" ; VI Ger => vi_ + "vint" ; - VI Part => vi_ + "scut" ; VP (Pres Ind Pl P1) => vi_ + "vim" ; VP (Pres Ind Sg P1) => vi_ + "sc" ; VP (Pres Ind Pl P2) => vi_ + "viu" ; @@ -5874,10 +6069,14 @@ let vi_ = Predef.tk 3 viure in VP (Impf Ind Pl P3) => vi_ + "vien" ;--# notpresent VP (Impf Ind Sg P3) => vi_ + "via" ;--# notpresent VP (Impf Sub Pl P1) => vi_ + "squéssim" ;--# notpresent + VP (ImpfSubPlE P1) => vi_ + "squéssem" ;--# notpresent VP (Impf Sub Sg P1) => vi_ + "squés" ;--# notpresent VP (Impf Sub Pl P2) => vi_ + "squéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => vi_ + "squésseu" ;--# notpresent VP (Impf Sub Sg P2) => vi_ + "squessis" ;--# notpresent + VP ImpfSubSgE => vi_ + "squesses" ;--# notpresent VP (Impf Sub Pl P3) => vi_ + "squessin" ;--# notpresent + VP (ImpfSubPlE P3) => vi_ + "squessen" ;--# notpresent VP (Impf Sub Sg P3) => vi_ + "squés" ;--# notpresent VP (Fut Pl P1) => vi_ + "urem" ;--# notpresent VP (Fut Sg P1) => vi_ + "uré" ;--# notpresent @@ -5885,12 +6084,12 @@ let vi_ = Predef.tk 3 viure in VP (Fut Sg P2) => vi_ + "uràs" ;--# notpresent VP (Fut Pl P3) => vi_ + "uran" ;--# notpresent VP (Fut Sg P3) => vi_ + "urà" ;--# notpresent - VP (Pret Pl P1) => vi_ + "squéssim" ;--# notpresent - VP (Pret Sg P1) => vi_ + "squés" ;--# notpresent - VP (Pret Pl P2) => vi_ + "squéssiu" ;--# notpresent - VP (Pret Sg P2) => vi_ + "squessis" ;--# notpresent - VP (Pret Pl P3) => vi_ + "squessin" ;--# notpresent - VP (Pret Sg P3) => vi_ + "squés" ;--# notpresent + VP (Pret Pl P1) => vi_ + "squérem" ;--# notpresent + VP (Pret Sg P1) => vi_ + "squí" ;--# notpresent + VP (Pret Pl P2) => vi_ + "squéreu" ;--# notpresent + VP (Pret Sg P2) => vi_ + "squeres" ;--# notpresent + VP (Pret Pl P3) => vi_ + "squeren" ;--# notpresent + VP (Pret Sg P3) => vi_ + "squé" ;--# notpresent VP (Cond Pl P1) => vi_ + "uríem" ;--# notpresent VP (Cond Sg P1) => vi_ + "uria" ;--# notpresent VP (Cond Pl P2) => vi_ + "uríeu" ;--# notpresent @@ -5911,118 +6110,65 @@ VP (Imp Sg P1) => nonExist } ; oper voler_120 : Str -> Verbum = \voler -> -let x_ = Predef.tk 4 voler in +let v_ = Predef.tk 4 voler in {s = table { - VI Infn => x_ + "oler" ; - VI Ger => x_ + "olent" ; - VI Part => x_ + "olgut" ; - VP (Pres Ind Pl P1) => x_ + "olem" ; - VP (Pres Ind Sg P1) => x_ + "ull" ; - VP (Pres Ind Pl P2) => x_ + "oleu" ; - VP (Pres Ind Sg P2) => x_ + "ols" ; - VP (Pres Ind Pl P3) => x_ + "olen" ; - VP (Pres Ind Sg P3) => x_ + "ol" ; - VP (Pres Sub Pl P1) => x_ + "ulguem" ; - VP (Pres Sub Sg P1) => x_ + "ulgui" ; - VP (Pres Sub Pl P2) => x_ + "ulgueu" ; - VP (Pres Sub Sg P2) => x_ + "ulguis" ; - VP (Pres Sub Pl P3) => x_ + "ulguin" ; - VP (Pres Sub Sg P3) => x_ + "ulgui" ; - VP (Impf Ind Pl P1) => x_ + "olíem" ;--# notpresent - VP (Impf Ind Sg P1) => x_ + "olia" ;--# notpresent - VP (Impf Ind Pl P2) => x_ + "olíeu" ;--# notpresent - VP (Impf Ind Sg P2) => x_ + "olies" ;--# notpresent - VP (Impf Ind Pl P3) => x_ + "olien" ;--# notpresent - VP (Impf Ind Sg P3) => x_ + "olia" ;--# notpresent - VP (Impf Sub Pl P1) => x_ + "olguéssim" ;--# notpresent - VP (Impf Sub Sg P1) => x_ + "olgués" ;--# notpresent - VP (Impf Sub Pl P2) => x_ + "olguéssiu" ;--# notpresent - VP (Impf Sub Sg P2) => x_ + "olguessis" ;--# notpresent - VP (Impf Sub Pl P3) => x_ + "olguessin" ;--# notpresent - VP (Impf Sub Sg P3) => x_ + "olgués" ;--# notpresent - VP (Fut Pl P1) => x_ + "oldrem" ;--# notpresent - VP (Fut Sg P1) => x_ + "oldré" ;--# notpresent - VP (Fut Pl P2) => x_ + "oldreu" ;--# notpresent - VP (Fut Sg P2) => x_ + "oldràs" ;--# notpresent - VP (Fut Pl P3) => x_ + "oldran" ;--# notpresent - VP (Fut Sg P3) => x_ + "oldrà" ;--# notpresent - VP (Pret Pl P1) => x_ + "olguéssim" ;--# notpresent - VP (Pret Sg P1) => x_ + "olgués" ;--# notpresent - VP (Pret Pl P2) => x_ + "olguéssiu" ;--# notpresent - VP (Pret Sg P2) => x_ + "olguessis" ;--# notpresent - VP (Pret Pl P3) => x_ + "olguessin" ;--# notpresent - VP (Pret Sg P3) => x_ + "olgués" ;--# notpresent - VP (Cond Pl P1) => x_ + "oldríem" ;--# notpresent - VP (Cond Sg P1) => x_ + "oldria" ;--# notpresent - VP (Cond Pl P2) => x_ + "oldríeu" ;--# notpresent - VP (Cond Sg P2) => x_ + "oldries" ;--# notpresent - VP (Cond Pl P3) => x_ + "oldrien" ;--# notpresent - VP (Cond Sg P3) => x_ + "oldria" ;--# notpresent - VP (Imp Pl P1) => x_ + "ulguem" ; - VP (Imp Pl P2) => x_ + "ulgueu" ; - VP (Imp Sg P2) => x_ + "ulgues" ; - VP (Imp Pl P3) => x_ + "ulguin" ; - VP (Imp Sg P3) => x_ + "ulgui" ; - VP (Pass Pl Fem) => x_ + "olgudes" ; - VP (Pass Sg Fem) => x_ + "olguda" ; - VP (Pass Pl Masc) => x_ + "olguts" ; - VP (Pass Sg Masc) => x_ + "olgut" ; -{- AR commented out duplicates 22/6/2009 - VI Infn => x_ + "oler" ; - VI Ger => x_ + "olent" ; - VI Part => x_ + "olgut" ; - VP (Pres Ind Pl P1) => x_ + "olem" ; - VP (Pres Ind Sg P1) => x_ + "ull" ; - VP (Pres Ind Pl P2) => x_ + "oleu" ; - VP (Pres Ind Sg P2) => x_ + "ols" ; - VP (Pres Ind Pl P3) => x_ + "olen" ; - VP (Pres Ind Sg P3) => x_ + "ol" ; - VP (Pres Sub Pl P1) => x_ + "ulguem" ; - VP (Pres Sub Sg P1) => x_ + "ulgui" ; - VP (Pres Sub Pl P2) => x_ + "ulgueu" ; - VP (Pres Sub Sg P2) => x_ + "ulguis" ; - VP (Pres Sub Pl P3) => x_ + "ulguin" ; - VP (Pres Sub Sg P3) => x_ + "ulgui" ; - VP (Impf Ind Pl P1) => x_ + "olíem" ;--# notpresent - VP (Impf Ind Sg P1) => x_ + "olia" ;--# notpresent - VP (Impf Ind Pl P2) => x_ + "olíeu" ;--# notpresent - VP (Impf Ind Sg P2) => x_ + "olies" ;--# notpresent - VP (Impf Ind Pl P3) => x_ + "olien" ;--# notpresent - VP (Impf Ind Sg P3) => x_ + "olia" ;--# notpresent - VP (Impf Sub Pl P1) => x_ + "olguéssim" ;--# notpresent - VP (Impf Sub Sg P1) => x_ + "olgués" ;--# notpresent - VP (Impf Sub Pl P2) => x_ + "olguéssiu" ;--# notpresent - VP (Impf Sub Sg P2) => x_ + "olguessis" ;--# notpresent - VP (Impf Sub Pl P3) => x_ + "olguessin" ;--# notpresent - VP (Impf Sub Sg P3) => x_ + "olgués" ;--# notpresent - VP (Fut Pl P1) => x_ + "oldrem" ;--# notpresent - VP (Fut Sg P1) => x_ + "oldré" ;--# notpresent - VP (Fut Pl P2) => x_ + "oldreu" ;--# notpresent - VP (Fut Sg P2) => x_ + "oldràs" ;--# notpresent - VP (Fut Pl P3) => x_ + "oldran" ;--# notpresent - VP (Fut Sg P3) => x_ + "oldrà" ;--# notpresent - VP (Pret Pl P1) => x_ + "olguéssim" ;--# notpresent - VP (Pret Sg P1) => x_ + "olgués" ;--# notpresent - VP (Pret Pl P2) => x_ + "olguéssiu" ;--# notpresent - VP (Pret Sg P2) => x_ + "olguessis" ;--# notpresent - VP (Pret Pl P3) => x_ + "olguessin" ;--# notpresent - VP (Pret Sg P3) => x_ + "olgués" ;--# notpresent - VP (Cond Pl P1) => x_ + "oldríem" ;--# notpresent - VP (Cond Sg P1) => x_ + "oldria" ;--# notpresent - VP (Cond Pl P2) => x_ + "oldríeu" ;--# notpresent - VP (Cond Sg P2) => x_ + "oldries" ;--# notpresent - VP (Cond Pl P3) => x_ + "oldrien" ;--# notpresent - VP (Cond Sg P3) => x_ + "oldria" ;--# notpresent - VP (Imp Pl P1) => x_ + "ulguem" ; - VP (Imp Pl P2) => x_ + "ulgueu" ; - VP (Imp Sg P2) => x_ + "ulgues" ; - VP (Imp Pl P3) => x_ + "ulguin" ; - VP (Imp Sg P3) => x_ + "ulgui" ; - VP (Pass Pl Fem) => x_ + "olgudes" ; - VP (Pass Sg Fem) => x_ + "olguda" ; - VP (Pass Pl Masc) => x_ + "olguts" ; - VP (Pass Sg Masc) => x_ + "olgut" ; --} + VI Infn => v_ + "oler" ; + VI Ger => v_ + "olent" ; + VP (Pres Ind Pl P1) => v_ + "olem" ; + VP (Pres Ind Sg P1) => v_ + "ull" ; + VP (Pres Ind Pl P2) => v_ + "oleu" ; + VP (Pres Ind Sg P2) => v_ + "ols" ; + VP (Pres Ind Pl P3) => v_ + "olen" ; + VP (Pres Ind Sg P3) => v_ + "ol" ; + VP (Pres Sub Pl P1) => v_ + "ulguem" ; + VP (Pres Sub Sg P1) => v_ + "ulgui" ; + VP (Pres Sub Pl P2) => v_ + "ulgueu" ; + VP (Pres Sub Sg P2) => v_ + "ulguis" ; + VP (Pres Sub Pl P3) => v_ + "ulguin" ; + VP (Pres Sub Sg P3) => v_ + "ulgui" ; + VP (Impf Ind Pl P1) => v_ + "olíem" ;--# notpresent + VP (Impf Ind Sg P1) => v_ + "olia" ;--# notpresent + VP (Impf Ind Pl P2) => v_ + "olíeu" ;--# notpresent + VP (Impf Ind Sg P2) => v_ + "olies" ;--# notpresent + VP (Impf Ind Pl P3) => v_ + "olien" ;--# notpresent + VP (Impf Ind Sg P3) => v_ + "olia" ;--# notpresent + VP (Impf Sub Pl P1) => v_ + "olguéssim" ;--# notpresent + VP (ImpfSubPlE P1) => v_ + "olguéssem" ;--# notpresent + VP (Impf Sub Sg P1) => v_ + "olgués" ;--# notpresent + VP (Impf Sub Pl P2) => v_ + "olguéssiu" ;--# notpresent + VP (ImpfSubPlE P2) => v_ + "olguésseu" ;--# notpresent + VP (Impf Sub Sg P2) => v_ + "olguessis" ;--# notpresent + VP ImpfSubSgE => v_ + "olguesses" ;--# notpresent + VP (Impf Sub Pl P3) => v_ + "olguessin" ;--# notpresent + VP (ImpfSubPlE P3) => v_ + "olguessen" ;--# notpresent + VP (Impf Sub Sg P3) => v_ + "olgués" ;--# notpresent + VP (Fut Pl P1) => v_ + "oldrem" ;--# notpresent + VP (Fut Sg P1) => v_ + "oldré" ;--# notpresent + VP (Fut Pl P2) => v_ + "oldreu" ;--# notpresent + VP (Fut Sg P2) => v_ + "oldràs" ;--# notpresent + VP (Fut Pl P3) => v_ + "oldran" ;--# notpresent + VP (Fut Sg P3) => v_ + "oldrà" ;--# notpresent + VP (Pret Pl P1) => v_ + "olguérem" ;--# notpresent + VP (Pret Sg P1) => v_ + "olguí" ;--# notpresent + VP (Pret Pl P2) => v_ + "olguéreu" ;--# notpresent + VP (Pret Sg P2) => v_ + "olgueres" ;--# notpresent + VP (Pret Pl P3) => v_ + "olgueren" ;--# notpresent + VP (Pret Sg P3) => v_ + "olgué" ;--# notpresent + VP (Cond Pl P1) => v_ + "oldríem" ;--# notpresent + VP (Cond Sg P1) => v_ + "oldria" ;--# notpresent + VP (Cond Pl P2) => v_ + "oldríeu" ;--# notpresent + VP (Cond Sg P2) => v_ + "oldries" ;--# notpresent + VP (Cond Pl P3) => v_ + "oldrien" ;--# notpresent + VP (Cond Sg P3) => v_ + "oldria" ;--# notpresent + VP (Imp Pl P1) => v_ + "ulguem" ; + VP (Imp Pl P2) => v_ + "ulgueu" ; + VP (Imp Sg P2) => v_ + "ulgues" ; + VP (Imp Pl P3) => v_ + "ulguin" ; + VP (Imp Sg P3) => v_ + "ulgui" ; + VP (Pass Pl Fem) => v_ + "olgudes" ; + VP (Pass Sg Fem) => v_ + "olguda" ; + VP (Pass Pl Masc) => v_ + "olguts" ; + VP (Pass Sg Masc) => v_ + "olgut" ; VP (Imp Sg P1) => nonExist } } ; @@ -6054,7 +6200,6 @@ let vènc = Predef.tk 2 vèncer ; venç = soften venc ; in {s = table { VI Ger => venc + "ent" ; - VI Part => venç + "ut" ; VP (Pres Ind Pl P1) => venc + "em" ; VP (Pres Ind Sg P1) => venç + "o" ; VP (Pres Ind Pl P2) => venc + "eu" ; @@ -6074,10 +6219,14 @@ in {s = table { VP (Impf Ind Pl P3) => venc + "ien" ;--# notpresent VP (Impf Ind Sg P3) => venc + "ia" ;--# notpresent VP (Impf Sub Pl P1) => venc + "éssim" ;--# notpresent + VP (ImpfSubPlE P1) => venc + "éssem" ;--# notpresent VP (Impf Sub Sg P1) => venc + "és" ;--# notpresent VP (Impf Sub Pl P2) => venc + "éssiu" ;--# notpresent + VP (ImpfSubPlE P2) => venc + "ésseu" ;--# notpresent VP (Impf Sub Sg P2) => venc + "essis" ;--# notpresent + VP ImpfSubSgE => venc + "esses" ;--# notpresent VP (Impf Sub Pl P3) => venc + "essin" ;--# notpresent + VP (ImpfSubPlE P3) => venc + "essen" ;--# notpresent VP (Impf Sub Sg P3) => venc + "és" ;--# notpresent VP (Fut Pl P1) => venc + "erem" ;--# notpresent VP (Fut Sg P1) => venc + "eré" ;--# notpresent @@ -6107,7 +6256,7 @@ in {s = table { VP (Pass Pl Masc) => venç + "uts" ; VP (Pass Sg Masc) => venç + "ut" ; VI Infn => vèncer ; -VP (Imp Sg P1) => nonExist +VP (Imp Sg P1) => variants {} } } ; @@ -6133,10 +6282,9 @@ oper soften : Str -> Str = \venc -> ---- The full conjunction is a table on $VForm$: -- param - VImpers = - Infn - | Ger - | Part + VImpers = + Infn + | Ger ; Mode = Ind | Sub ; @@ -6144,6 +6292,8 @@ param VPers = Pres Mode Number Person | Impf Mode Number Person --# notpresent --# notpresent + | ImpfSubSgE --# notpresent --# notpresent + | ImpfSubPlE Person --# notpresent --# notpresent | Pret Number Person --# notpresent --# notpresent | Fut Number Person --# notpresent --# notpresent | Cond Number Person --# notpresent --# notpresent @@ -6152,8 +6302,8 @@ param ; VFB = - VI VImpers - | VP VPers + VI VImpers + | VP VPers ; -- -- diff --git a/src/catalan/DiffCat.gf b/src/catalan/DiffCat.gf index 7c6bc3a08..e4dcae369 100644 --- a/src/catalan/DiffCat.gf +++ b/src/catalan/DiffCat.gf @@ -201,7 +201,7 @@ oper haver_V, auxPassive : Verb = verbBeschH (estar_54 "estar") ; - essere_V, copula = verbBeschH (ser_52 "ser") ; + essere_V, copula = verbBeschH (ser_52 "ser" True) ; stare_V, estar_V = verbBeschH (estar_54 "estar") ; verbBeschH : Verbum -> Verb = \v -> verbBesch v ** {vtyp = VHabere ; p = []} ; diff --git a/src/catalan/ExtraCat.gf b/src/catalan/ExtraCat.gf index 22b0362c8..8f1ac7237 100644 --- a/src/catalan/ExtraCat.gf +++ b/src/catalan/ExtraCat.gf @@ -82,6 +82,6 @@ lin } ; ExistsNP np = - mkClause [] True False np.a (insertComplement (\\_ => (np.s ! Nom).ton) (predV (mkV (complir_25 "existir")))) ; + mkClause [] True False np.a (insertComplement (\\_ => (np.s ! Nom).ton) (predV (mkV (complir_25 "existir" True)))) ; -} \ No newline at end of file +} diff --git a/src/catalan/IrregCat.gf b/src/catalan/IrregCat.gf index f4def5752..d9da0de67 100644 --- a/src/catalan/IrregCat.gf +++ b/src/catalan/IrregCat.gf @@ -1,1122 +1,25 @@ --# -path=.:../romance:../abstract:../common:prelude -- machine-generated GF file from Andersson & Söderberg's MSc work concrete IrregCat of IrregCatAbs = CatCat ** -open CommonRomance, ParadigmsCat, BeschCat in { +open CommonRomance, ParadigmsCat, Prelude, BeschCat in { flags optimize=values ; coding=utf8 ; -lin haver_V = verbV -{s = table (BeschCat.VFB) [ - {-VI Infn=>-} "haver" ; - {-VI Ger =>-} "havent" ; - {-VI Part =>-} "hagut" ; - {-VP (Pres Ind Sg P1) =>-} variants {"he" ; "haig"} ; - {-VP (Pres Ind Sg P2) =>-} "has" ; - {-VP (Pres Ind Sg P3) =>-} "ha" ; - {-VP (Pres Ind Pl P1) =>-} variants {"hem" ; "havem"} ; - {-VP (Pres Ind Pl P2) =>-} variants {"heu" ; "haveu"} ; - {-VP (Pres Ind Pl P3) =>-} "han" ; - {-VP (Pres Subj Sg P1) =>-} "hagi" ; - {-VP (Pres Subj Sg P2) =>-} "hagis" ; - {-VP (Pres Subj Sg P3) =>-} "hagi" ; - {-VP (Pres Subj Pl P1) =>-} "hàgim" ; - {-VP (Pres Subj Pl P2) =>-} "hàgiu" ; - {-VP (Pres Subj Pl P3) =>-} "hagin" ; - {-VP (Impf Ind Sg P1) =>-} "havia" ; --# notpresent - {-VP (Impf Ind Sg P2) =>-} "havies" ; --# notpresent - {-VP (Impf Ind Sg P3) =>-} "havia" ; --# notpresent - {-VP (Impf Ind Pl P1) =>-} "havíem" ; --# notpresent - {-VP (Impf Ind Pl P2) =>-} "havíeu" ; --# notpresent - {-VP (Impf Ind Pl P3) =>-} "havien" ; --# notpresent - {-VP (Impf Subj Sg P1) =>-} "hagués" ; --# notpresent - {-VP (Impf Subj Sg P2) =>-} "haguessis" ; --# notpresent - {-VP (Impf Subj Sg P3) =>-} "hagués" ; --# notpresent - {-VP (Impf Subj Pl P1) =>-} "haguéssim" ; --# notpresent - {-VP (Impf Subj Pl P2) =>-} "haguéssiu" ; --# notpresent - {-VP (Impf Subj Pl P3) =>-} "haguessin" ; --# notpresent - {-VP (Pret Sg P1) =>-} "haguí" ; --# notpresent - {-VP (Pret Sg P2) =>-} "hagueres" ; --# notpresent - {-VP (Pret Sg P3) =>-} "hagué" ; --# notpresent - {-VP (Pret Pl P1) =>-} "haguérem" ; --# notpresent - {-VP (Pret Pl P2) =>-} "haguéreu" ; --# notpresent - {-VP (Pret Pl P3) =>-} "hagueren" ; --# notpresent - {-VP (Fut Sg P1) =>-} "hauré" ; --# notpresent - {-VP (Fut Sg P2) =>-} "hauràs" ; --# notpresent - {-VP (Fut Sg P3) =>-} "haurà" ; --# notpresent - {-VP (Fut Pl P1) =>-} "haurem" ; --# notpresent - {-VP (Fut Pl P2) =>-} "haureu" ; --# notpresent - {-VP (Fut Pl P3) =>-} "hauran" ; --# notpresent - {-VP (Cond Sg P1) =>-} "hauria" ; --# notpresent - {-VP (Cond Sg P2) =>-} "hauries" ; --# notpresent - {-VP (Cond Sg P3) =>-} "hauria" ; --# notpresent - {-VP (Cond Pl P1) =>-} "hauríem" ; --# notpresent - {-VP (Cond Pl P2) =>-} "hauríeu" ; --# notpresent - {-VP (Cond Pl P3) =>-} "haurien" ; --# notpresent - {-VP (Imp Sg P1) =>-} variants {} ; - {-VP (Imp Sg P2) =>-} variants {} ; - {-VP (Imp Sg P3) =>-} variants {} ; - {-VP (Imp Pl P1) =>-} variants {} ; - {-VP (Imp Pl P2) =>-} variants {} ; - {-VP (Imp Pl P3) =>-} variants {} ; - {-VP (Pass Sg Masc) =>-} "hagut" ; - {-VP (Pass Sg Fem) =>-} "haguda" ; - {-VP (Pass Pl Masc) =>-} "haguts" ; - {-VP (Pass Pl Fem) =>-} "hagudes" - ] - } ; - -lin estar_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Infn =>-} "estar" ; -{-VI Ger =>-} "estant" ; -{-VI Part =>-} "estat" ; -{-VP (Pres Ind Pl P1) =>-} "estem" ; -{-VP (Pres Ind Sg P1) =>-} "estic" ; -{-VP (Pres Ind Pl P2) =>-} "esteu" ; -{-VP (Pres Ind Sg P2) =>-} "estàs" ; -{-VP (Pres Ind Pl P3) =>-} "estan" ; -{-VP (Pres Ind Sg P3) =>-} "està" ; -{-VP (Pres Subj Pl P1) =>-} "estiguem" ; -{-VP (Pres Subj Sg P1) =>-} "estigui" ; -{-VP (Pres Subj Pl P2) =>-} "estigueu" ; -{-VP (Pres Subj Sg P2) =>-} "estiguis" ; -{-VP (Pres Subj Pl P3) =>-} "estiguin" ; -{-VP (Pres Subj Sg P3) =>-} "estigui" ; -{-VP (Impf Ind Pl P1) =>-} "estàvem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "estava" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "estàveu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "estaves" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "estaven" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "estava" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "estiguéssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "estigués" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "estiguéssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "estiguessis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "estiguessin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "estigués" ;--# notpresent -{-VP (Fut Pl P1) =>-} "estarem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "estaré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "estareu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "estaràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "estaran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "estarà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "estiguéssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "estigués" ;--# notpresent -{-VP (Pret Pl P2) =>-} "estiguéssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "estiguessis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "estiguessin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "estigués" ;--# notpresent -{-VP (Cond Pl P1) =>-} "estaríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "estaria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "estaríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "estaries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "estarien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "estaria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "estiguem" ; -{-VP (Imp Pl P2) =>-} "estigueu" ; -{-VP (Imp Sg P2) =>-} "estigues" ; -{-VP (Imp Pl P3) =>-} "estiguin" ; -{-VP (Imp Sg P3) =>-} "estigui" ; -{-VP (Pass Sg Masc) =>-} "estat" ; -{-VP (Pass Sg Fem) =>-} "estada" ; -{-VP (Pass Pl Masc) =>-} "estats" ; -{-VP (Pass Pl Fem) =>-} "estades" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; +lin haver_V = verbV (haver_59 "haver" (True|False)) ; +lin estar_V = verbV (estar_54 "estar") ; +lin ser_V = verbV (ser_52 "ser" (True|False)) ; +lin callar_V = verbV (cantar_15 "callar") ; +lin caure_V = verbV (caure_18 "caure") ; +lin cloure_V = verbV (cloure_19 "cloure") ; +lin complaure_V = verbV (complaure_24 "complaure") ; +lin contradir_V = verbV (dir_41 "contradir") ; +lin cosir_V = verbV (cosir_31 "cosir") ; +lin dir_V = verbV (dir_41 "dir") ; +lin doldre_V = verbV (doldre_42 "doldre" (True|False)) ; +lin escopir_V = verbV (escopir_49 "escopir") ; +lin fondre_V = verbV (fondre_57 "fendre") ; +lin jeure_V = verbV (jeure_62 "jeure" (True|False)) ; +lin omplir_V = verbV (omplir_80 "omplir") ; +lin venir_V = verbV (venir_117 "venir" (True|False)) ; -lin ser_V = verbV -{s = table (BeschCat.VFB) [ - {-VI Infn=>-} variants {"ésser" ; "ser" } ; - {-VI Ger =>-} "éssent" ; - {-VI Part =>-} "estat" ; - {-VP (Pres Ind Sg P1) =>-} "sóc" ; - {-VP (Pres Ind Sg P2) =>-} "ets" ; - {-VP (Pres Ind Sg P3) =>-} "és" ; - {-VP (Pres Ind Pl P1) =>-} "som" ; - {-VP (Pres Ind Pl P2) =>-} "sou" ; - {-VP (Pres Ind Pl P3) =>-} "són" ; - {-VP (Pres Subj Sg P1) =>-} "sigui" ; - {-VP (Pres Subj Sg P2) =>-} "sigui" ; - {-VP (Pres Subj Sg P3) =>-} "sigui" ; - {-VP (Pres Subj Pl P1) =>-} "siguem" ; - {-VP (Pres Subj Pl P2) =>-} "sigueu" ; - {-VP (Pres Subj Pl P3) =>-} "siguin" ; - {-VP (Impf Ind Sg P1) =>-} "era" ; --# notpresent - {-VP (Impf Ind Sg P2) =>-} "eres" ; --# notpresent - {-VP (Impf Ind Sg P3) =>-} "era" ; --# notpresent - {-VP (Impf Ind Pl P1) =>-} "érem" ; --# notpresent - {-VP (Impf Ind Pl P2) =>-} "éreu" ; --# notpresent - {-VP (Impf Ind Pl P3) =>-} "eren" ; --# notpresent - {-VP (Impf Subj Sg P1) =>-} "fos" ; --# notpresent - {-VP (Impf Subj Sg P2) =>-} "fossis" ; --# notpresent - {-VP (Impf Subj Sg P3) =>-} "fos" ; --# notpresent - {-VP (Impf Subj Pl P1) =>-} "fóssim" ; --# notpresent - {-VP (Impf Subj Pl P2) =>-} "fóssiu" ; --# notpresent - {-VP (Impf Subj Pl P3) =>-} "fossin" ; --# notpresent - {-VP (Pret Sg P1) =>-} "fui" ; --# notpresent - {-VP (Pret Sg P2) =>-} "fores" ; --# notpresent - {-VP (Pret Sg P3) =>-} "fou" ; --# notpresent - {-VP (Pret Pl P1) =>-} "fórem" ; --# notpresent - {-VP (Pret Pl P2) =>-} "fóreu" ; --# notpresent - {-VP (Pret Pl P3) =>-} "foren" ; --# notpresent - {-VP (Fut Sg P1) =>-} "seré" ; --# notpresent - {-VP (Fut Sg P2) =>-} "seràs" ; --# notpresent - {-VP (Fut Sg P3) =>-} "serà" ; --# notpresent - {-VP (Fut Pl P1) =>-} "serem" ; --# notpresent - {-VP (Fut Pl P2) =>-} "sereu" ; --# notpresent - {-VP (Fut Pl P3) =>-} "seran" ; --# notpresent - {-VP (Cond Sg P1) =>-} variants {"sería" ; "fóra"} ; --# notpresent - {-VP (Cond Sg P2) =>-} variants {"series" ; "fores"} ; --# notpresent - {-VP (Cond Sg P3) =>-} variants {"seria" ; "fóra"} ; --# notpresent - {-VP (Cond Pl P1) =>-} variants {"seríem" ; "fórem"} ; --# notpresent - {-VP (Cond Pl P2) =>-} variants {"seríeu" ; "fóreu"} ; --# notpresent - {-VP (Cond Pl P3) =>-} variants {"serien" ; "foren"} ; --# notpresent - {-VP (Imp Sg P1) =>-} variants {} ; - {-VP (Imp Sg P2) =>-} "sigues" ; - {-VP (Imp Sg P3) =>-} "sigui" ; - {-VP (Imp Pl P1) =>-} "siguem" ; - {-VP (Imp Pl P2) =>-} "sigeu" ; - {-VP (Imp Pl P3) =>-} "siguin" ; - {-VP (Pass Sg Masc) =>-} variants {"estat" ; "sigut"} ; - {-VP (Pass Sg Fem) =>-} variants {"estada" ; "siguda"} ; - {-VP (Pass Pl Masc) =>-} variants {"estats" ; "siguts"} ; - {-VP (Pass Pl Fem) =>-} variants {"estades"; "sigudes"} - ] - } ; - - --automatic -lin callar_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "callar" ; -{-VI Ger =>-} "callant" ; -{-VI Part =>-} "callat" ; -{-VP (Pres Ind Pl P1) =>-} "callem" ; -{-VP (Pres Ind Sg P1) =>-} "callo" ; -{-VP (Pres Ind Pl P2) =>-} "calleu" ; -{-VP (Pres Ind Sg P2) =>-} "calles" ; -{-VP (Pres Ind Pl P3) =>-} "callen" ; -{-VP (Pres Ind Sg P3) =>-} "calla" ; -{-VP (Pres Subj Pl P1) =>-} "callem" ; -{-VP (Pres Subj Sg P1) =>-} "calli" ; -{-VP (Pres Subj Pl P2) =>-} "calleu" ; -{-VP (Pres Subj Sg P2) =>-} "callis" ; -{-VP (Pres Subj Pl P3) =>-} "callin" ; -{-VP (Pres Subj Sg P3) =>-} "calli" ; -{-VP (Impf Ind Pl P1) =>-} "callàvem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "callava" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "callàveu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "callaves" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "callaven" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "callava" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "calléssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "callés" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "calléssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "callessis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "callessin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "callés" ;--# notpresent -{-VP (Fut Pl P1) =>-} "callarem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "callaré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "callareu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "callaràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "callaran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "callarà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "calléssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "callés" ;--# notpresent -{-VP (Pret Pl P2) =>-} "calléssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "callessis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "callessin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "callés" ;--# notpresent -{-VP (Cond Pl P1) =>-} "callaríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "callaria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "callaríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "callaries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "callarien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "callaria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "callem" ; -{-VP (Imp Pl P2) =>-} "calleu" ; -{-VP (Imp Sg P2) =>-} "calla" ; -{-VP (Imp Pl P3) =>-} "callin" ; -{-VP (Imp Sg P3) =>-} "calli" ; -{-VP (Pass Pl Fem) =>-} "callades" ; -{-VP (Pass Sg Fem) =>-} "callada" ; -{-VP (Pass Pl Masc) =>-} "callats" ; -{-VP (Pass Sg Masc) =>-} "callat" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; - -lin caure_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "caure" ; -{-VI Ger =>-} "caient" ; -{-VI Part =>-} "caigut" ; -{-VP (Pres Ind Pl P1) =>-} "caiem" ; -{-VP (Pres Ind Sg P1) =>-} "caic" ; -{-VP (Pres Ind Pl P2) =>-} "caieu" ; -{-VP (Pres Ind Sg P2) =>-} "caus" ; -{-VP (Pres Ind Pl P3) =>-} "cauen" ; -{-VP (Pres Ind Sg P3) =>-} "cau" ; -{-VP (Pres Subj Pl P1) =>-} "caiguem" ; -{-VP (Pres Subj Sg P1) =>-} "caigui" ; -{-VP (Pres Subj Pl P2) =>-} "caigueu" ; -{-VP (Pres Subj Sg P2) =>-} "caiguis" ; -{-VP (Pres Subj Pl P3) =>-} "caiguin" ; -{-VP (Pres Subj Sg P3) =>-} "caigui" ; -{-VP (Impf Ind Pl P1) =>-} "quèiem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "queia" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "quèieu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "queies" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "queien" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "queia" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "caiguéssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "caigués" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "caiguéssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "caiguessis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "caiguessin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "caigués" ;--# notpresent -{-VP (Fut Pl P1) =>-} "caurem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "cauré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "caureu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "cauràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "cauran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "caurà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "caiguéssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "caigués" ;--# notpresent -{-VP (Pret Pl P2) =>-} "caiguéssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "caiguessis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "caiguessin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "caigués" ;--# notpresent -{-VP (Cond Pl P1) =>-} "cauríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "cauria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "cauríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "cauries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "caurien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "cauria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "caiguem" ; -{-VP (Imp Pl P2) =>-} "caieu" ; -{-VP (Imp Sg P2) =>-} "cau" ; -{-VP (Imp Pl P3) =>-} "caiguin" ; -{-VP (Imp Sg P3) =>-} "caigui" ; -{-VP (Pass Pl Fem) =>-} "caigudes" ; -{-VP (Pass Sg Fem) =>-} "caiguda" ; -{-VP (Pass Pl Masc) =>-} "caiguts" ; -{-VP (Pass Sg Masc) =>-} "caigut" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; - -lin cloure_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "cloure" ; -{-VI Ger =>-} "cloent" ; -{-VI Part =>-} "clos" ; -{-VP (Pres Ind Pl P1) =>-} "cloem" ; -{-VP (Pres Ind Sg P1) =>-} "cloc" ; -{-VP (Pres Ind Pl P2) =>-} "cloeu" ; -{-VP (Pres Ind Sg P2) =>-} "clous" ; -{-VP (Pres Ind Pl P3) =>-} "clouen" ; -{-VP (Pres Ind Sg P3) =>-} "clou" ; -{-VP (Pres Subj Pl P1) =>-} "cloguem" ; -{-VP (Pres Subj Sg P1) =>-} "clogui" ; -{-VP (Pres Subj Pl P2) =>-} "clogueu" ; -{-VP (Pres Subj Sg P2) =>-} "cloguis" ; -{-VP (Pres Subj Pl P3) =>-} "cloguin" ; -{-VP (Pres Subj Sg P3) =>-} "clogui" ; -{-VP (Impf Ind Pl P1) =>-} "cloíem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "cloïa" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "cloíeu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "cloïes" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "cloïen" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "cloïa" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "cloguéssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "clogués" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "cloguéssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "cloguessis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "cloguessin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "clogués" ;--# notpresent -{-VP (Fut Pl P1) =>-} "clourem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "clouré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "cloureu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "clouràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "clouran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "clourà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "cloguéssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "clogués" ;--# notpresent -{-VP (Pret Pl P2) =>-} "cloguéssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "cloguessis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "cloguessin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "clogués" ;--# notpresent -{-VP (Cond Pl P1) =>-} "clouríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "clouria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "clouríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "clouries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "clourien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "clouria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "cloguem" ; -{-VP (Imp Pl P2) =>-} "cloeu" ; -{-VP (Imp Sg P2) =>-} "clou" ; -{-VP (Imp Pl P3) =>-} "cloguin" ; -{-VP (Imp Sg P3) =>-} "clogui" ; -{-VP (Pass Pl Fem) =>-} "closes" ; -{-VP (Pass Sg Fem) =>-} "closa" ; -{-VP (Pass Pl Masc) =>-} "closos" ; -{-VP (Pass Sg Masc) =>-} "clos" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; - -lin complaure_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "complaure" ; -{-VI Ger =>-} "complaent" ; -{-VI Part =>-} "complagut" ; -{-VP (Pres Ind Pl P1) =>-} "complaem" ; -{-VP (Pres Ind Sg P1) =>-} "complac" ; -{-VP (Pres Ind Pl P2) =>-} "complaeu" ; -{-VP (Pres Ind Sg P2) =>-} "complaus" ; -{-VP (Pres Ind Pl P3) =>-} "complauen" ; -{-VP (Pres Ind Sg P3) =>-} "complau" ; -{-VP (Pres Subj Pl P1) =>-} "complaguem" ; -{-VP (Pres Subj Sg P1) =>-} "complagui" ; -{-VP (Pres Subj Pl P2) =>-} "complagueu" ; -{-VP (Pres Subj Sg P2) =>-} "complaguis" ; -{-VP (Pres Subj Pl P3) =>-} "complaguin" ; -{-VP (Pres Subj Sg P3) =>-} "complagui" ; -{-VP (Impf Ind Pl P1) =>-} "complaíem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "complaïa" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "complaíeu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "complaïes" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "complaïen" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "complaïa" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "complaguéssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "complagués" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "complaguéssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "complaguessis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "complaguessin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "complagués" ;--# notpresent -{-VP (Fut Pl P1) =>-} "complaurem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "complauré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "complaureu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "complauràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "complauran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "complaurà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "complaguéssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "complagués" ;--# notpresent -{-VP (Pret Pl P2) =>-} "complaguéssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "complaguessis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "complaguessin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "complagués" ;--# notpresent -{-VP (Cond Pl P1) =>-} "complauríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "complauria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "complauríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "complauries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "complaurien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "complauria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "complaguem" ; -{-VP (Imp Pl P2) =>-} "complaeu" ; -{-VP (Imp Sg P2) =>-} "complau" ; -{-VP (Imp Pl P3) =>-} "complaguin" ; -{-VP (Imp Sg P3) =>-} "complagui" ; -{-VP (Pass Pl Fem) =>-} "complagudes" ; -{-VP (Pass Sg Fem) =>-} "complaguda" ; -{-VP (Pass Pl Masc) =>-} "complaguts" ; -{-VP (Pass Sg Masc) =>-} "complagut" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; - -lin contradir_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "contradir" ; -{-VI Ger =>-} "contradient" ; -{-VI Part =>-} "contradit" ; -{-VP (Pres Ind Pl P1) =>-} "contradiem" ; -{-VP (Pres Ind Sg P1) =>-} "contradic" ; -{-VP (Pres Ind Pl P2) =>-} "contradieu" ; -{-VP (Pres Ind Sg P2) =>-} "contradius" ; -{-VP (Pres Ind Pl P3) =>-} "contradiuen" ; -{-VP (Pres Ind Sg P3) =>-} "contradiu" ; -{-VP (Pres Subj Pl P1) =>-} "contradiguem" ; -{-VP (Pres Subj Sg P1) =>-} "contradigui" ; -{-VP (Pres Subj Pl P2) =>-} "contradigueu" ; -{-VP (Pres Subj Sg P2) =>-} "contradiguis" ; -{-VP (Pres Subj Pl P3) =>-} "contradiguin" ; -{-VP (Pres Subj Sg P3) =>-} "contradigui" ; -{-VP (Impf Ind Pl P1) =>-} "contradèiem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "contradeia" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "contradèieu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "contradeies" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "contradeien" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "contradeia" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "contradiguéssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "contradigués" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "contradiguéssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "contradiguessis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "contradiguessin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "contradigués" ;--# notpresent -{-VP (Fut Pl P1) =>-} "contradirem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "contradiré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "contradireu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "contradiràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "contradiran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "contradirà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "contradiguéssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "contradigués" ;--# notpresent -{-VP (Pret Pl P2) =>-} "contradiguéssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "contradiguessis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "contradiguessin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "contradigués" ;--# notpresent -{-VP (Cond Pl P1) =>-} "contradiríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "contradiria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "contradiríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "contradiries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "contradirien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "contradiria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "contradiguem" ; -{-VP (Imp Pl P2) =>-} "contradigueu" ; -{-VP (Imp Sg P2) =>-} "contradigues" ; -{-VP (Imp Pl P3) =>-} "contradiguin" ; -{-VP (Imp Sg P3) =>-} "contradigui" ; -{-VP (Pass Pl Fem) =>-} "contradites" ; -{-VP (Pass Sg Fem) =>-} "contradita" ; -{-VP (Pass Pl Masc) =>-} "contradits" ; -{-VP (Pass Sg Masc) =>-} "contradit" ; -{-VP(Imp Sg P1) =>-} variants {} -] -} ; - -lin cosir_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "cosir" ; -{-VI Ger =>-} "cosint" ; -{-VI Part =>-} "cosit" ; -{-VP (Pres Ind Pl P1) =>-} "cosim" ; -{-VP (Pres Ind Sg P1) =>-} "cuso" ; -{-VP (Pres Ind Pl P2) =>-} "cosiu" ; -{-VP (Pres Ind Sg P2) =>-} "cuses" ; -{-VP (Pres Ind Pl P3) =>-} "cusen" ; -{-VP (Pres Ind Sg P3) =>-} "cus" ; -{-VP (Pres Subj Pl P1) =>-} "cosim" ; -{-VP (Pres Subj Sg P1) =>-} "cusi" ; -{-VP (Pres Subj Pl P2) =>-} "cosiu" ; -{-VP (Pres Subj Sg P2) =>-} "cusis" ; -{-VP (Pres Subj Pl P3) =>-} "cusin" ; -{-VP (Pres Subj Sg P3) =>-} "cusi" ; -{-VP (Impf Ind Pl P1) =>-} "cosíem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "cosia" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "cosíeu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "cosies" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "cosien" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "cosia" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "cosíssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "cosís" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "cosíssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "cosissis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "cosissin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "cosís" ;--# notpresent -{-VP (Fut Pl P1) =>-} "cosirem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "cosiré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "cosireu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "cosiràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "cosiran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "cosirà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "cosíssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "cosís" ;--# notpresent -{-VP (Pret Pl P2) =>-} "cosíssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "cosissis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "cosissin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "cosís" ;--# notpresent -{-VP (Cond Pl P1) =>-} "cosiríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "cosiria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "cosiríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "cosiries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "cosirien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "cosiria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "cosim" ; -{-VP (Imp Pl P2) =>-} "cosiu" ; -{-VP (Imp Sg P2) =>-} "cus" ; -{-VP (Imp Pl P3) =>-} "cusin" ; -{-VP (Imp Sg P3) =>-} "cusi" ; -{-VP (Pass Pl Fem) =>-} "cosides" ; -{-VP (Pass Sg Fem) =>-} "cosida" ; -{-VP (Pass Pl Masc) =>-} "cosits" ; -{-VP (Pass Sg Masc) =>-} "cosit" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; - -lin dir_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "dir" ; -{-VI Ger =>-} "dient" ; -{-VI Part =>-} "dit" ; -{-VP (Pres Ind Pl P1) =>-} "diem" ; -{-VP (Pres Ind Sg P1) =>-} "dic" ; -{-VP (Pres Ind Pl P2) =>-} "dieu" ; -{-VP (Pres Ind Sg P2) =>-} "dius" ; -{-VP (Pres Ind Pl P3) =>-} "diuen" ; -{-VP (Pres Ind Sg P3) =>-} "diu" ; -{-VP (Pres Subj Pl P1) =>-} "diguem" ; -{-VP (Pres Subj Sg P1) =>-} "digui" ; -{-VP (Pres Subj Pl P2) =>-} "digueu" ; -{-VP (Pres Subj Sg P2) =>-} "diguis" ; -{-VP (Pres Subj Pl P3) =>-} "diguin" ; -{-VP (Pres Subj Sg P3) =>-} "digui" ; -{-VP (Impf Ind Pl P1) =>-} "dèiem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "deia" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "dèieu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "deies" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "deien" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "deia" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "diguéssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "digués" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "diguéssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "diguessis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "diguessin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "digués" ;--# notpresent -{-VP (Fut Pl P1) =>-} "direm" ;--# notpresent -{-VP (Fut Sg P1) =>-} "diré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "direu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "diràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "diran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "dirà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "diguéssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "digués" ;--# notpresent -{-VP (Pret Pl P2) =>-} "diguéssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "diguessis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "diguessin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "digués" ;--# notpresent -{-VP (Cond Pl P1) =>-} "diríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "diria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "diríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "diries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "dirien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "diria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "diguem" ; -{-VP (Imp Pl P2) =>-} "digueu" ; -{-VP (Imp Sg P2) =>-} "digues" ; -{-VP (Imp Pl P3) =>-} "diguin" ; -{-VP (Imp Sg P3) =>-} "digui" ; -{-VP (Pass Pl Fem) =>-} "dites" ; -{-VP (Pass Sg Fem) =>-} "dita" ; -{-VP (Pass Pl Masc) =>-} "dits" ; -{-VP (Pass Sg Masc) =>-} "dit" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; - -lin doldre_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "doldre" ; -{-VI Ger =>-} "dolent" ; -{-VI Part =>-} "dolgut" ; -{-VP (Pres Ind Pl P1) =>-} "dolem" ; -{-VP (Pres Ind Sg P1) =>-} "dolc" ; -{-VP (Pres Ind Pl P2) =>-} "doleu" ; -{-VP (Pres Ind Sg P2) =>-} "dols" ; -{-VP (Pres Ind Pl P3) =>-} "dolen" ; -{-VP (Pres Ind Sg P3) =>-} "dol" ; -{-VP (Pres Subj Pl P1) =>-} "dolguem" ; -{-VP (Pres Subj Sg P1) =>-} "dolgui" ; -{-VP (Pres Subj Pl P2) =>-} "dolgueu" ; -{-VP (Pres Subj Sg P2) =>-} "dolguis" ; -{-VP (Pres Subj Pl P3) =>-} "dolguin" ; -{-VP (Pres Subj Sg P3) =>-} "dolgui" ; -{-VP (Impf Ind Pl P1) =>-} "dolíem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "dolia" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "dolíeu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "dolies" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "dolien" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "dolia" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "dolguéssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "dolgués" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "dolguéssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "dolguessis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "dolguessin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "dolgués" ;--# notpresent -{-VP (Fut Pl P1) =>-} "doldrem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "doldré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "doldreu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "doldràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "doldran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "doldrà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "dolguéssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "dolgués" ;--# notpresent -{-VP (Pret Pl P2) =>-} "dolguéssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "dolguessis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "dolguessin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "dolgués" ;--# notpresent -{-VP (Cond Pl P1) =>-} "doldríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "doldria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "doldríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "doldries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "doldrien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "doldria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "dolguem" ; -{-VP (Imp Pl P2) =>-} "doleu" ; -{-VP (Imp Sg P2) =>-} "dol" ; -{-VP (Imp Pl P3) =>-} "dolguin" ; -{-VP (Imp Sg P3) =>-} "dolgui" ; -{-VP (Pass Pl Fem) =>-} "dolgudes" ; -{-VP (Pass Sg Fem) =>-} "dolguda" ; -{-VP (Pass Pl Masc) =>-} "dolguts" ; -{-VP (Pass Sg Masc) =>-} "dolgut" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; - ---{-- ---lin donar_V = verbV ---{s = table (BeschCat.VFB) [ ---{-VI Inf =>-} "donar" ; ---{-VI Ger =>-} "donant" ; ---{-VI Part =>-} "donat" ; ---{-VP (Pres Ind Pl P1) =>-} "donem" ; ---{-VP (Pres Ind Sg P1) =>-} "dono" ; ---{-VP (Pres Ind Pl P2) =>-} "doneu" ; ---{-VP (Pres Ind Pl P3) =>-} "donen" ; ---{-VP (Pres Subj Pl P1) =>-} "donem" ; ---{-VP (Pres Subj Sg P1) =>-} "doni" ; ---{-VP (Pres Subj Pl P2) =>-} "doneu" ; ---{-VP (Pres Subj Sg P2) =>-} "donis" ; ---{-VP (Pres Subj Pl P3) =>-} "donin" ; ---{-VP (Pres Subj Sg P3) =>-} "doni" ; ---{-VP (Impf Ind Pl P1) =>-} "donàvem" ;--# notpresent ---{-VP (Impf Ind Sg P1) =>-} "donava" ;--# notpresent ---{-VP (Impf Ind Pl P2) =>-} "donàveu" ;--# notpresent ---{-VP (Impf Ind Sg P2) =>-} "donaves" ;--# notpresent ---{-VP (Impf Ind Pl P3) =>-} "donaven" ;--# notpresent ---{-VP (Impf Ind Sg P3) =>-} "donava" ;--# notpresent ---{-VP (Impf Subj Pl P1) =>-} "donéssim" ;--# notpresent ---{-VP (Impf Subj Sg P1) =>-} "donés" ;--# notpresent ---{-VP (Impf Subj Pl P2) =>-} "donéssiu" ;--# notpresent ---{-VP (Impf Subj Sg P2) =>-} "donessis" ;--# notpresent ---{-VP (Impf Subj Pl P3) =>-} "donessin" ;--# notpresent ---{-VP (Impf Subj Sg P3) =>-} "donés" ;--# notpresent ---{-VP (Fut Pl P1) =>-} "donarem" ;--# notpresent ---{-VP (Fut Sg P1) =>-} "donaré" ;--# notpresent ---{-VP (Fut Pl P2) =>-} "donareu" ;--# notpresent ---{-VP (Fut Sg P2) =>-} "donaràs" ;--# notpresent ---{-VP (Fut Pl P3) =>-} "donaran" ;--# notpresent ---{-VP (Fut Sg P3) =>-} "donarà" ;--# notpresent ---{-VP (Pret Pl P1) =>-} "donéssim" ;--# notpresent ---{-VP (Pret Sg P1) =>-} "donés" ;--# notpresent ---{-VP (Pret Pl P2) =>-} "donéssiu" ;--# notpresent ---{-VP (Pret Sg P2) =>-} "donessis" ;--# notpresent ---{-VP (Pret Pl P3) =>-} "donessin" ;--# notpresent ---{-VP (Pret Sg P3) =>-} "donés" ;--# notpresent ---{-VP (Cond Pl P1) =>-} "donaríem" ;--# notpresent ---{-VP (Cond Sg P1) =>-} "donaria" ;--# notpresent ---{-VP (Cond Pl P2) =>-} "donaríeu" ;--# notpresent ---{-VP (Cond Sg P2) =>-} "donaries" ;--# notpresent ---{-VP (Cond Pl P3) =>-} "donarien" ;--# notpresent ---{-VP (Cond Sg P3) =>-} "donaria" ;--# notpresent ---{-VP (Imp Pl P1) =>-} "donem" ; ---{-VP (Imp Pl P2) =>-} "doneu" ; ---{-VP (Imp Pl P3) =>-} "donin" ; ---{-VP (Imp Sg P3) =>-} "doni" ; ---{-VP (Pass Pl Fem) =>-} "donades" ; ---{-VP (Pass Sg Fem) =>-} "donada" ; ---{-VP (Pass Pl Masc) =>-} "donats" ; ---{-VP (Pass Sg Masc) =>-} "donat" ; ---{-VP (Pres Ind Sg P2) =>-} "dones" ; ---{-VP (Pres Ind Sg P3) =>-} "dona" ; ---{-VP (Imp Sg P2) =>-} "dona" ; ---{-VP (Imp Sg P1) =>-} variants {} ---] ---} ; --- } - ---{-- ---lin endur_V = verbV ---{s = table (BeschCat.VFB) [ ---{-VI Inf =>-} "endur" ; ---{-VI Ger =>-} "enduent" ; ---{-VI Part =>-} "endut" ; ---{-VP (Pres Ind Pl P1) =>-} "enduem" ; ---{-VP (Pres Ind Sg P1) =>-} "enduc" ; ---{-VP (Pres Ind Pl P2) =>-} "endueu" ; ---{-VP (Pres Ind Sg P2) =>-} "endus" ; ---{-VP (Pres Ind Sg P2) =>-} "enduus" ; ---{-VP (Pres Ind Pl P3) =>-} "enduen" ; ---{-VP (Pres Ind Sg P3) =>-} "endu" ; ---{-VP (Pres Ind Sg P3) =>-} "enduu" ; ---{-VP (Pres Subj Pl P1) =>-} "enduguem" ; ---{-VP (Pres Subj Sg P1) =>-} "enduga" ; ---{-VP (Pres Subj Sg P1) =>-} "endugui" ; ---{-VP (Pres Subj Pl P2) =>-} "endugueu" ; ---{-VP (Pres Subj Sg P2) =>-} "endugues" ; ---{-VP (Pres Subj Sg P2) =>-} "enduguis" ; ---{-VP (Pres Subj Pl P3) =>-} "enduguen" ; ---{-VP (Pres Subj Pl P3) =>-} "enduguin" ; ---{-VP (Pres Subj Sg P3) =>-} "enduga" ; ---{-VP (Pres Subj Sg P3) =>-} "endugui" ; ---{-VP (Impf Ind Sg P1) =>-} "enduia" ;--# notpresent ---{-VP (Impf Ind Sg P2) =>-} "enduies" ;--# notpresent ---{-VP (Impf Ind Pl P3) =>-} "enduien" ;--# notpresent ---{-VP (Impf Ind Sg P3) =>-} "enduia" ;--# notpresent ---{-VP (Impf Ind Pl P1) =>-} "endúiem" ;--# notpresent ---{-VP (Impf Ind Pl P2) =>-} "endúieu" ;--# notpresent ---{-VP (Impf Subj Pl P1) =>-} "enduguérem" ;--# notpresent ---{-VP (Impf Subj Pl P1) =>-} "enduguéssim" ;--# notpresent ---{-VP (Impf Subj Sg P1) =>-} "enduguera" ;--# notpresent ---{-VP (Impf Subj Sg P1) =>-} "endugués" ;--# notpresent ---{-VP (Impf Subj Pl P2) =>-} "enduguéreu" ;--# notpresent ---{-VP (Impf Subj Pl P2) =>-} "enduguéssiu" ;--# notpresent ---{-VP (Impf Subj Sg P2) =>-} "endugueres" ;--# notpresent ---{-VP (Impf Subj Sg P2) =>-} "enduguessis" ;--# notpresent ---{-VP (Impf Subj Pl P3) =>-} "endugueren" ;--# notpresent ---{-VP (Impf Subj Pl P3) =>-} "enduguessin" ;--# notpresent ---{-VP (Impf Subj Sg P3) =>-} "enduguera" ;--# notpresent ---{-VP (Impf Subj Sg P3) =>-} "endugués" ;--# notpresent ---{-VP (Pret Pl P1) =>-} "enduguérem" ;--# notpresent ---{-VP (Pret Sg P1) =>-} "enduguí" ;--# notpresent ---{-VP (Pret Pl P2) =>-} "enduguéreu" ;--# notpresent ---{-VP (Pret Sg P2) =>-} "endugueres" ;--# notpresent ---{-VP (Pret Pl P3) =>-} "endugueren" ;--# notpresent ---{-VP (Pret Sg P3) =>-} "endugué" ;--# notpresent ---{-VP (Fut Pl P1) =>-} "endurem" ;--# notpresent ---{-VP (Fut Sg P1) =>-} "enduré" ;--# notpresent ---{-VP (Fut Pl P2) =>-} "endureu" ;--# notpresent ---{-VP (Fut Sg P2) =>-} "enduràs" ;--# notpresent ---{-VP (Fut Pl P3) =>-} "enduran" ;--# notpresent ---{-VP (Fut Sg P3) =>-} "endurà" ;--# notpresent ---{-VP (Cond Pl P1) =>-} "enduríem" ;--# notpresent ---{-VP (Cond Sg P1) =>-} "enduria" ;--# notpresent ---{-VP (Cond Pl P2) =>-} "enduríeu" ;--# notpresent ---{-VP (Cond Sg P2) =>-} "enduries" ;--# notpresent ---{-VP (Cond Pl P3) =>-} "endurien" ;--# notpresent ---{-VP (Cond Sg P3) =>-} "enduria" ;--# notpresent ---{-VP (Imp Pl P1) =>-} "enduguem" ; ---{-VP (Imp Pl P2) =>-} "endueu" ; ---{-VP (Imp Sg P2) =>-} "endus" ; ---{-VP (Imp Sg P2) =>-} "enduu" ; ---{-VP (Imp Sg P2) =>-} "enduus" ; ---{-VP (Imp Pl P3) =>-} "enduguen" ; ---{-VP (Imp Pl P3) =>-} "enduguin" ; ---{-VP (Imp Sg P3) =>-} "enduga" ; ---{-VP (Imp Sg P3) =>-} "endugui" ; ---{-VP (Pass Pl Fem) =>-} "endutes" ; ---{-VP (Pass Sg Fem) =>-} "enduta" ; ---{-VP (Pass Pl Masc) =>-} "enduts" ; ---{-VP (Pass Sg Masc) =>-} "endut" ; ---{-VP (Imp Sg P1) =>-} variants {} ---] ---} ; --- } - -lin escopir_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "escopir" ; -{-VI Ger =>-} "escopint" ; -{-VI Part =>-} "escopit" ; -{-VP (Pres Ind Pl P1) =>-} "escopim" ; -{-VP (Pres Ind Sg P1) =>-} "escupo" ; -{-VP (Pres Ind Pl P2) =>-} "escopiu" ; -{-VP (Pres Ind Sg P2) =>-} "escups" ; -{-VP (Pres Ind Pl P3) =>-} "escupen" ; -{-VP (Pres Ind Sg P3) =>-} "escup" ; -{-VP (Pres Subj Pl P1) =>-} "escopim" ; -{-VP (Pres Subj Sg P1) =>-} "escupi" ; -{-VP (Pres Subj Pl P2) =>-} "escopiu" ; -{-VP (Pres Subj Sg P2) =>-} "escupis" ; -{-VP (Pres Subj Pl P3) =>-} "escupin" ; -{-VP (Pres Subj Sg P3) =>-} "escupi" ; -{-VP (Impf Ind Pl P1) =>-} "escopíem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "escopia" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "escopíeu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "escopies" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "escopien" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "escopia" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "escopíssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "escopís" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "escopíssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "escopissis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "escopissin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "escopís" ;--# notpresent -{-VP (Fut Pl P1) =>-} "escopirem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "escopiré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "escopireu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "escopiràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "escopiran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "escopirà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "escopíssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "escopís" ;--# notpresent -{-VP (Pret Pl P2) =>-} "escopíssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "escopissis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "escopissin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "escopís" ;--# notpresent -{-VP (Cond Pl P1) =>-} "escopiríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "escopiria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "escopiríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "escopiries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "escopirien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "escopiria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "escopim" ; -{-VP (Imp Pl P2) =>-} "escopiu" ; -{-VP (Imp Sg P2) =>-} "escup" ; -{-VP (Imp Pl P3) =>-} "escupin" ; -{-VP (Imp Sg P3) =>-} "escupi" ; -{-VP (Pass Pl Fem) =>-} "escopides" ; -{-VP (Pass Sg Fem) =>-} "escopida" ; -{-VP (Pass Pl Masc) =>-} "escopits" ; -{-VP (Pass Sg Masc) =>-} "escopit" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; - -lin fondre_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "fondre" ; -{-VI Ger =>-} "fonent" ; -{-VI Part =>-} "fos" ; -{-VP (Pres Ind Pl P1) =>-} "fonem" ; -{-VP (Pres Ind Sg P1) =>-} "fonc" ; -{-VP (Pres Ind Pl P2) =>-} "foneu" ; -{-VP (Pres Ind Sg P2) =>-} "fons" ; -{-VP (Pres Ind Pl P3) =>-} "fonen" ; -{-VP (Pres Ind Sg P3) =>-} "fon" ; -{-VP (Pres Subj Pl P1) =>-} "fonguem" ; -{-VP (Pres Subj Sg P1) =>-} "fongui" ; -{-VP (Pres Subj Pl P2) =>-} "fongueu" ; -{-VP (Pres Subj Sg P2) =>-} "fonguis" ; -{-VP (Pres Subj Pl P3) =>-} "fonguin" ; -{-VP (Pres Subj Sg P3) =>-} "fongui" ; -{-VP (Impf Ind Pl P1) =>-} "foníem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "fonia" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "foníeu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "fonies" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "fonien" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "fonia" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "fonguéssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "fongués" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "fonguéssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "fonguessis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "fonguessin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "fongués" ;--# notpresent -{-VP (Fut Pl P1) =>-} "fondrem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "fondré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "fondreu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "fondràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "fondran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "fondrà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "fonguéssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "fongués" ;--# notpresent -{-VP (Pret Pl P2) =>-} "fonguéssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "fonguessis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "fonguessin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "fongués" ;--# notpresent -{-VP (Cond Pl P1) =>-} "fondríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "fondria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "fondríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "fondries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "fondrien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "fondria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "fonguem" ; -{-VP (Imp Pl P2) =>-} "foneu" ; -{-VP (Imp Sg P2) =>-} "fon" ; -{-VP (Imp Pl P3) =>-} "fonguin" ; -{-VP (Imp Sg P3) =>-} "fongui" ; -{-VP (Pass Pl Fem) =>-} "foses" ; -{-VP (Pass Sg Fem) =>-} "fosa" ; -{-VP (Pass Pl Masc) =>-} "fosos" ; -{-VP (Pass Sg Masc) =>-} "fos" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; - - - - -lin jeure_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "jeure" ; -{-VI Ger =>-} "jaient" ; -{-VI Part =>-} "jagut" ; -{-VP (Pres Ind Pl P1) =>-} "jaiem" ; -{-VP (Pres Ind Sg P1) =>-} "jec" ; -{-VP (Pres Ind Pl P2) =>-} "jaieu" ; -{-VP (Pres Ind Sg P2) =>-} "jeus" ; -{-VP (Pres Ind Pl P3) =>-} "jeuen" ; -{-VP (Pres Ind Sg P3) =>-} "jeu" ; -{-VP (Pres Subj Pl P1) =>-} "jaguem" ; -{-VP (Pres Subj Sg P1) =>-} "jegui" ; -{-VP (Pres Subj Pl P2) =>-} "jagueu" ; -{-VP (Pres Subj Sg P2) =>-} "jeguis" ; -{-VP (Pres Subj Pl P3) =>-} "jeguin" ; -{-VP (Pres Subj Sg P3) =>-} "jegui" ; -{-VP (Impf Ind Pl P1) =>-} "jèiem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "jeia" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "jèieu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "jeies" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "jeien" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "jeia" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "jaguéssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "jagués" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "jaguéssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "jaguessis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "jaguessin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "jagués" ;--# notpresent -{-VP (Fut Pl P1) =>-} "jaurem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "jauré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "jaureu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "jauràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "jauran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "jaurà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "jaguéssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "jagués" ;--# notpresent -{-VP (Pret Pl P2) =>-} "jaguéssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "jaguessis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "jaguessin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "jagués" ;--# notpresent -{-VP (Cond Pl P1) =>-} "jauríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "jauria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "jauríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "jauries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "jaurien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "jauria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "jaguem" ; -{-VP (Imp Pl P2) =>-} "jaieu" ; -{-VP (Imp Sg P2) =>-} "jeu" ; -{-VP (Imp Pl P3) =>-} "jeguin" ; -{-VP (Imp Sg P3) =>-} "jegui" ; -{-VP (Pass Pl Fem) =>-} "jagudes" ; -{-VP (Pass Sg Fem) =>-} "jaguda" ; -{-VP (Pass Pl Masc) =>-} "jaguts" ; -{-VP (Pass Sg Masc) =>-} "jagut" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; - - - - - - -lin omplir_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "omplir" ; -{-VI Ger =>-} "omplint" ; -{-VI Part =>-} "omplert" ; -{-VP (Pres Ind Pl P1) =>-} "omplim" ; -{-VP (Pres Ind Sg P1) =>-} "omplo" ; -{-VP (Pres Ind Pl P2) =>-} "ompliu" ; -{-VP (Pres Ind Sg P2) =>-} "omples" ; -{-VP (Pres Ind Pl P3) =>-} "omplen" ; -{-VP (Pres Ind Sg P3) =>-} "omple" ; -{-VP (Pres Subj Pl P1) =>-} "omplim" ; -{-VP (Pres Subj Sg P1) =>-} "ompli" ; -{-VP (Pres Subj Pl P2) =>-} "ompliu" ; -{-VP (Pres Subj Sg P2) =>-} "omplis" ; -{-VP (Pres Subj Pl P3) =>-} "omplin" ; -{-VP (Pres Subj Sg P3) =>-} "ompli" ; -{-VP (Impf Ind Pl P1) =>-} "omplíem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "omplia" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "omplíeu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "omplies" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "omplien" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "omplia" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "omplíssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "omplís" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "omplíssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "omplissis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "omplissin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "omplís" ;--# notpresent -{-VP (Fut Pl P1) =>-} "omplirem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "ompliré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "omplireu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "ompliràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "ompliran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "omplirà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "omplíssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "omplís" ;--# notpresent -{-VP (Pret Pl P2) =>-} "omplíssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "omplissis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "omplissin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "omplís" ;--# notpresent -{-VP (Cond Pl P1) =>-} "ompliríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "ompliria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "ompliríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "ompliries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "omplirien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "ompliria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "omplim" ; -{-VP (Imp Pl P2) =>-} "ompliu" ; -{-VP (Imp Sg P2) =>-} "omple" ; -{-VP (Imp Pl P3) =>-} "omplin" ; -{-VP (Imp Sg P3) =>-} "ompli" ; -{-VP (Pass Pl Fem) =>-} "omplertes" ; -{-VP (Pass Sg Fem) =>-} "omplerta" ; -{-VP (Pass Pl Masc) =>-} "omplerts" ; -{-VP (Pass Sg Masc) =>-} "omplert" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; - - - - - - - -lin venir_V = verbV -{s = table (BeschCat.VFB) [ -{-VI Inf =>-} "venir" ; -{-VI Ger =>-} "venint" ; -{-VI Part =>-} "vingut" ; -{-VP (Pres Ind Pl P1) =>-} "venim" ; -{-VP (Pres Ind Sg P1) =>-} "vinc" ; -{-VP (Pres Ind Pl P2) =>-} "veniu" ; -{-VP (Pres Ind Sg P2) =>-} "véns" ; -{-VP (Pres Ind Pl P3) =>-} "vénen" ; -{-VP (Pres Ind Sg P3) =>-} "ve" ; -{-VP (Pres Subj Pl P1) =>-} "vinguem" ; -{-VP (Pres Subj Sg P1) =>-} "vingui" ; -{-VP (Pres Subj Pl P2) =>-} "vingueu" ; -{-VP (Pres Subj Sg P2) =>-} "vinguis" ; -{-VP (Pres Subj Pl P3) =>-} "vinguin" ; -{-VP (Pres Subj Sg P3) =>-} "vingui" ; -{-VP (Impf Ind Pl P1) =>-} "veníem" ;--# notpresent -{-VP (Impf Ind Sg P1) =>-} "venia" ;--# notpresent -{-VP (Impf Ind Pl P2) =>-} "veníeu" ;--# notpresent -{-VP (Impf Ind Sg P2) =>-} "venies" ;--# notpresent -{-VP (Impf Ind Pl P3) =>-} "venien" ;--# notpresent -{-VP (Impf Ind Sg P3) =>-} "venia" ;--# notpresent -{-VP (Impf Subj Pl P1) =>-} "vinguéssim" ;--# notpresent -{-VP (Impf Subj Sg P1) =>-} "vingués" ;--# notpresent -{-VP (Impf Subj Pl P2) =>-} "vinguéssiu" ;--# notpresent -{-VP (Impf Subj Sg P2) =>-} "vinguessis" ;--# notpresent -{-VP (Impf Subj Pl P3) =>-} "vinguessin" ;--# notpresent -{-VP (Impf Subj Sg P3) =>-} "vingués" ;--# notpresent -{-VP (Fut Pl P1) =>-} "vindrem" ;--# notpresent -{-VP (Fut Sg P1) =>-} "vindré" ;--# notpresent -{-VP (Fut Pl P2) =>-} "vindreu" ;--# notpresent -{-VP (Fut Sg P2) =>-} "vindràs" ;--# notpresent -{-VP (Fut Pl P3) =>-} "vindran" ;--# notpresent -{-VP (Fut Sg P3) =>-} "vindrà" ;--# notpresent -{-VP (Pret Pl P1) =>-} "vinguéssim" ;--# notpresent -{-VP (Pret Sg P1) =>-} "vingués" ;--# notpresent -{-VP (Pret Pl P2) =>-} "vinguéssiu" ;--# notpresent -{-VP (Pret Sg P2) =>-} "vinguessis" ;--# notpresent -{-VP (Pret Pl P3) =>-} "vinguessin" ;--# notpresent -{-VP (Pret Sg P3) =>-} "vingués" ;--# notpresent -{-VP (Cond Pl P1) =>-} "vindríem" ;--# notpresent -{-VP (Cond Sg P1) =>-} "vindria" ;--# notpresent -{-VP (Cond Pl P2) =>-} "vindríeu" ;--# notpresent -{-VP (Cond Sg P2) =>-} "vindries" ;--# notpresent -{-VP (Cond Pl P3) =>-} "vindrien" ;--# notpresent -{-VP (Cond Sg P3) =>-} "vindria" ;--# notpresent -{-VP (Imp Pl P1) =>-} "vinguem" ; -{-VP (Imp Pl P2) =>-} "veniu" ; -{-VP (Imp Sg P2) =>-} "vine" ; -{-VP (Imp Pl P3) =>-} "vinguin" ; -{-VP (Imp Sg P3) =>-} "vingui" ; -{-VP (Pass Pl Fem) =>-} "vingudes" ; -{-VP (Pass Sg Fem) =>-} "vinguda" ; -{-VP (Pass Pl Masc) =>-} "vinguts" ; -{-VP (Pass Sg Masc) =>-} "vingut" ; -{-VP (Imp Sg P1) =>-} variants {} -] -} ; } diff --git a/src/catalan/LexiconCat.gf b/src/catalan/LexiconCat.gf index df72a7c13..27f7c75eb 100644 --- a/src/catalan/LexiconCat.gf +++ b/src/catalan/LexiconCat.gf @@ -1,7 +1,7 @@ --# -path=.:../romance:../common:../abstract:../../prelude concrete LexiconCat of Lexicon = CatCat ** open - (M=MorphoCat), ParadigmsCat, BeschCat, (D = DiffCat) in { + Prelude, (M=MorphoCat), ParadigmsCat, BeschCat, (D = DiffCat) in { flags coding=utf8 ; @@ -16,7 +16,7 @@ oper lin airplane_N = regMN "avió" ; - answer_V2S = mkV2S (verbV (compondre_26 "respondre")) dative ; + answer_V2S = mkV2S (verbV (compondre_26 "respondre" True)) dative ; apartment_N = regMN "pis" ; apple_N = regFN "poma" ; art_N = regMN "art" ; @@ -61,7 +61,7 @@ lin close_V2 = dirV2 (verbV (trencar_112 "tancar")) ; coat_N = regMN "abric" ; cold_A = regADeg "fred" ; - come_V = verbV (venir_117 "venir") ; + come_V = verbV (venir_117 "venir" True) ; computer_N = regMN "ordinador" ; country_N = mkN "país" "països" masculine ; cousin_N = regMN "cosí" ; @@ -93,7 +93,7 @@ lin glove_N = regMN "guant" ; gold_N = regMN "or" ; good_A = mkA (prefA "bo" "bon") (mkA "millor") ; - go_V = (verbV (anar_4 "anar")) ; + go_V = (verbV (anar_4 "anar" 0)) ; green_A = regADeg "verd" ; harbour_N = regMN "port" ; hate_V2 = dirV2 (verbV (canviar_16 "odiar")) ; @@ -159,14 +159,14 @@ lin rock_N = regFN "roca" ; roof_N = regFN "teulada" ; rubber_N = regFN "goma" ; - run_V = verbV (córrer_30 "córrer") ; + run_V = verbV (córrer_30 "córrer" True) ; say_VS = mkVS (verbV (dir_41 "dir")) ; school_N = regFN "escola" ; science_N = regFN "ciència" ; sea_N = regMN "mar" ; -- masc & fem seek_V2 = dirV2 (verbV (trencar_112 "buscar")) ; - see_V2 = dirV2 (verbV (veure_118 "veure")) ; - sell_V3 = dirV3 (verbV (vendre_116 "vendre")) dative ; + see_V2 = dirV2 (verbV (veure_118 "veure" 0)) ; + sell_V3 = dirV3 (verbV (vendre_116 "vendre" True)) dative ; send_V3 = dirV3 (verbV (canviar_16 "enviar")) dative ; sheep_N = regFN "ovella" ; -- xai ship_N = regMN "vaixell" ; @@ -218,7 +218,7 @@ lin woman_N = regFN "dona" ; wonder_VQ = mkVQ (reflV (mkV "preguntar")) ; wood_N = regFN "fusta" ; - write_V2 = dirV2 (verbV (escriure_50 "escriure")) ; + write_V2 = dirV2 (verbV (escriure_50 "escriure" True)) ; yellow_A = compADeg (mkA "groc" "groga" "grocs" "grogues" "grogament") ; young_A = compADeg (mkA "jove" "jove" "joves" "joves" "jovement") ; do_V2 = dirV2 (verbV (fer_56 "fer")) ; @@ -319,16 +319,16 @@ lin fear_V2 = dirV2 (verbV (témer_107 "témer")) ; fight_V2 = dirV2 (mkV "lluitar") ; float_V = mkV "surar" ; - flow_V = verbV (reduir_94 "fluir") ; -- also: mkV "circular" + flow_V = verbV (reduir_94 "fluir" True) ; -- also: mkV "circular" fly_V = mkV "volar" ; freeze_V = mkV "congelar" ; - give_V3 = dirdirV3 (verbV (donar_43 "donar")) ; + give_V3 = dirdirV3 (verbV (donar_43 "donar" True)) ; hit_V2 = dirV2 (verbV (trencar_112 "picar")) ; - hold_V2 = dirV2 (verbV (obtenir_78 "sostenir")) ; + hold_V2 = dirV2 (verbV (obtenir_78 "sostenir" True)) ; hunt_V2 = dirV2 (verbV (començar_22 "caçar")) ; kill_V2 = dirV2 (mkV "matar") ; laugh_V = verbV (riure_96 "riure") ; - lie_V = reflV (verbV (jeure_62 "jeure")) ; + lie_V = reflV (verbV (jeure_62 "jeure" True)) ; play_V = verbV (pregar_86 "jugar") ; pull_V2 = dirV2 (mkV "tibar") ; push_V2 = dirV2 (verbV (atènyer_59 "empènyer")) ; @@ -336,7 +336,7 @@ lin scratch_V2 = dirV2 (mkV "gratar") ; sew_V = verbV (cosir_31 "cosir") ; sing_V = mkV "cantar" ; - sit_V = reflV (verbV (seure_102 "seure")) ; + sit_V = reflV (verbV (seure_102 "seure" True)) ; smell_V = mkV "ensumar" ; spit_V = verbV (escopir_49 "escopir") ; split_V2 = dirV2 (mkV "separar") ; -- dividir,) ; diff --git a/src/catalan/ParadigmsCat.gf b/src/catalan/ParadigmsCat.gf index 89e1f13df..d6eed8974 100644 --- a/src/catalan/ParadigmsCat.gf +++ b/src/catalan/ParadigmsCat.gf @@ -367,12 +367,12 @@ oper "çar" => començar_22 x ; "gir" => fugir_58 x ; "ure" => beure_11 x ; - "xer" => créixer_33 x ; --conèixer,aparèixer with regAltV + "xer" => créixer_33 x True ; --conèixer,aparèixer with regAltV _ + "re" => perdre_83 x ; _ + "er" => verbEr x ; --handles accents in infinitives and c/ç, g/j _ + "ir" => dormir_44 x ; --inchoative verbs with regAltV - _ + "ur" => dur_45 x ; + _ + "ur" => dur_45 x True ; _ => cantar_15 x } ; regAltV x y = @@ -384,15 +384,15 @@ oper <"ure",_+"c"> => regV x ; --caure,viure etc. with non-smart paradigms --small set of irregular verbs that have unique P1 Sg - <_+"ir","tinc"> => tenir_108 x ; --tenir, obtenir, ... - <_+"ir","vinc"> => venir_117 x ; --venir, prevenir, ... + <_+"ir","tinc"> => tenir_108 x 0 ; --tenir, obtenir, ... + <_+"ir","vinc"> => venir_117 x True ; --venir, prevenir, ... <_+"er",_+"ig"> => fer_56 x ; - <_+"re",_+"ig"> => veure_118 x ; - <_+"ar",_+"ig"> => anar_4 x ; + <_+"re",_+"ig"> => veure_118 x 0 ; + <_+"ar",_+"ig"> => anar_4 x 0 ; <"xer" ,_+ "c"> => conèixer_27 x ; --créixer, merèixer with regV - <_+"er",_+ "c"> => valer_114 x ; - <_+"re",_+ "c"> => doldre_42 x ; --participles of type dolgut + <_+"er",_+ "c"> => valer_114 x True ; + <_+"re",_+ "c"> => doldre_42 x True ; --participles of type dolgut --for absolt, pres, ... use mk3V <_ ,_> => regV x } ; @@ -406,25 +406,25 @@ oper --if these are overfitting, just comment out. --still doesn't catch creure, seure; mk4V with creiem as 4th arg? <"ure",_, "uit"> => coure_32 x ; --coure coem cuit - <"ure",_,_+"it"> => escriure_50 x ; --escriure escrivim escrit - <"ure",_,_+"et"> => treure_113 x ; --treure traiem tret - <"ure",_,_+"st"> => veure_118 x ; --veure veiem vist + <"ure",_,_+"it"> => escriure_50 x True ; --escriure escrivim escrit + <"ure",_,_+"et"> => treure_113 x True ; --treure traiem tret + <"ure",_,_+"st"> => veure_118 x 0 ; --veure veiem vist <"ure",_, "cut"> => viure_119 x ; --viure vivim viscut - <"dre",_,_+"st"> => compondre_26 x ; --compondre compost + <"dre",_,_+"st"> => compondre_26 x True ; --compondre compost - <"rir", _+"ixo",_+"rt"> => cobrir_20 x ; --cob|rir cob|ert - <_+"ir",_+"ixo",_+"rt"> => complir_25 x ; --compl|ir compl|ert + <"rir", _+"ixo",_+"rt"> => cobrir_20 x True ; --cob|rir cob|ert + <_+"ir",_+"ixo",_+"rt"> => complir_25 x True ; --compl|ir compl|ert - <_+"ir",_+"ixo",_+"ït"> => lluir_64 x ; --lluir lluïm lluït + <_+"ir",_+"ixo",_+"ït"> => lluir_64 x 0 ; --lluir lluïm lluït - <"dre",_,"nut"> => vendre_116 x ; + <"dre",_,"nut"> => vendre_116 x True ; <_+"re",_+"c",_+"t"> => absoldre_1 x ; --c in sgP1 and subj, not in part <_+"re",_,_+"es"> => prendre_87 x ; <_+"re",_,_+"ès"> => atendre_8 x ; - <_+"re",_,_+"as"> => raure_91 x ; + <_+"re",_,_+"as"> => raure_91 x True ; <_+"re",_,_+"às"> => romandre_97 x ; <_+"re",_,_+"os"> => cloure_19 x ; <_+"re",_,_+"ós"> => confondre_28 x ; diff --git a/src/catalan/StructuralCat.gf b/src/catalan/StructuralCat.gf index 9990b4650..4833b786a 100644 --- a/src/catalan/StructuralCat.gf +++ b/src/catalan/StructuralCat.gf @@ -165,7 +165,7 @@ lin Masc Sg P3 ; not_Predet = {s = \\a,c => prepCase c ++ "no pas" ; c = Nom ; a = PNoAg} ; - have_V2 = dirV2 (verbV (tenir_108 "tenir")) ; + have_V2 = dirV2 (verbV (tenir_108 "tenir" 0)) ; oper etConj : {s : Str ; n : MorphoCat.Number} = {s = "i" } ** {n = Pl} ;