diff --git a/src/portuguese/BeschPor.gf b/src/portuguese/BeschPor.gf index cf3c5ea8..e8607591 100644 --- a/src/portuguese/BeschPor.gf +++ b/src/portuguese/BeschPor.gf @@ -71,7 +71,11 @@ oper -- or in =Ryan, M. A. Conjugação dos Verbos em Português. ática, -- 1991.= + -- the numbers in the comments below the oper declaration are the + -- verb's paradigm numbers in bescherelle and in Ryan + oper ter_Besch : Str -> Verbum = \ter -> +-- 1 | r3 let x_ = Predef.tk 3 ter in {s = table { VI Infn => x_ + "ter" ; @@ -141,6 +145,7 @@ oper ter_Besch : Str -> Verbum = \ter -> } ; oper haver_Besch : Str -> Verbum = \haver -> +-- 2 | r4 let x_ = Predef.tk 5 haver in {s = table { VI Infn => x_ + "haver" ; @@ -210,6 +215,7 @@ oper haver_Besch : Str -> Verbum = \haver -> } ; oper ser_Besch : Str -> Verbum = \ser -> +-- 3 | r1 let x_ = Predef.tk 3 ser in {s = table { VI Infn => x_ + "ser" ; @@ -279,6 +285,7 @@ oper ser_Besch : Str -> Verbum = \ser -> } ; oper comprar_Besch : Str -> Verbum = \comprar -> +-- 4 | r5 let compr_ = Predef.tk 2 comprar in {s = table { VI Infn => compr_ + "ar" ; @@ -348,6 +355,7 @@ oper comprar_Besch : Str -> Verbum = \comprar -> } ; oper vender_Besch : Str -> Verbum = \vender -> +-- 5 | r6 let vend_ = Predef.tk 2 vender in {s = table { VI Infn => vend_ + "er" ; @@ -417,6 +425,7 @@ oper vender_Besch : Str -> Verbum = \vender -> } ; oper garantir_Besch : Str -> Verbum = \garantir -> +-- 6 | r7 let garant_ = Predef.tk 2 garantir in {s = table { VI Infn => garant_ + "ir" ; @@ -486,6 +495,7 @@ oper garantir_Besch : Str -> Verbum = \garantir -> } ; oper estar_Besch : Str -> Verbum = \estar -> +-- 10 | r2 let est_ = Predef.tk 2 estar in {s = table { VI Infn => est_ + "ar" ; @@ -555,6 +565,7 @@ oper estar_Besch : Str -> Verbum = \estar -> } ; oper dar_Besch : Str -> Verbum = \dar -> +-- 11 | r59 let x_ = Predef.tk 3 dar in {s = table { VI Infn => x_ + "dar" ; @@ -624,6 +635,7 @@ oper dar_Besch : Str -> Verbum = \dar -> } ; oper ficar_Besch : Str -> Verbum = \ficar -> +-- 12 | r23 let x_ = Predef.tk 5 ficar in {s = table { VI Infn => x_ + "ficar" ; @@ -693,75 +705,77 @@ oper ficar_Besch : Str -> Verbum = \ficar -> } ; oper começar_Besch : Str -> Verbum = \começar -> - let x_ = Predef.tk 7 começar in +-- 13 | r24 + let come_ = Predef.tk 3 começar in {s = table { - VI Infn => x_ + "começar" ; - VI Ger => x_ + "começando" ; - VI Part => x_ + "começado" ; - VPB (Pres Ind Sg P1) => x_ + "começo" ; - VPB (Pres Ind Sg P2) => x_ + "começas" ; - VPB (Pres Ind Sg P3) => x_ + "começa" ; - VPB (Pres Ind Pl P1) => x_ + "começamos" ; - VPB (Pres Ind Pl P2) => x_ + "começais" ; - VPB (Pres Ind Pl P3) => x_ + "começam" ; - VPB (Pres Sub Sg P1) => x_ + "comece" ; - VPB (Pres Sub Sg P2) => x_ + "comeces" ; - VPB (Pres Sub Sg P3) => x_ + "comece" ; - VPB (Pres Sub Pl P1) => x_ + "comecemos" ; - VPB (Pres Sub Pl P2) => x_ + "comeceis" ; - VPB (Pres Sub Pl P3) => x_ + "comecem" ; - VPB (PretI Ind Sg P1) => x_ + "começava" ; --# notpresent - VPB (PretI Ind Sg P2) => x_ + "começavas" ; --# notpresent - VPB (PretI Ind Sg P3) => x_ + "começava" ; --# notpresent - VPB (PretI Ind Pl P1) => x_ + "começávamos" ; --# notpresent - VPB (PretI Ind Pl P2) => x_ + "começáveis" ; --# notpresent - VPB (PretI Ind Pl P3) => x_ + "começavam" ; --# notpresent - VPB (PretI Sub Sg P1) => x_ + "começasse" ; --# notpresent - VPB (PretI Sub Sg P2) => x_ + "começasses" ; --# notpresent - VPB (PretI Sub Sg P3) => x_ + "começasse" ; --# notpresent - VPB (PretI Sub Pl P1) => x_ + "começássemos" ; --# notpresent - VPB (PretI Sub Pl P2) => x_ + "começasseis" ; --# notpresent - VPB (PretI Sub Pl P3) => x_ + "começassem" ; --# notpresent - VPB (MQPerf Sg P1) => x_ + "começara" ; --# notpresent - VPB (MQPerf Sg P2) => x_ + "começaras" ; --# notpresent - VPB (MQPerf Sg P3) => x_ + "começara" ; --# notpresent - VPB (MQPerf Pl P1) => x_ + "começáramos" ; --# notpresent - VPB (MQPerf Pl P2) => x_ + "começáreis" ; --# notpresent - VPB (MQPerf Pl P3) => x_ + "começaram" ; --# notpresent - VPB (PretP Sg P1) => x_ + "comecei" ; --# notpresent - VPB (PretP Sg P2) => x_ + "começaste" ; --# notpresent - VPB (PretP Sg P3) => x_ + "começou" ; --# notpresent - VPB (PretP Pl P1) => x_ + vars "começamos" "começámos" ; --# notpresent - VPB (PretP Pl P2) => x_ + "começastes" ; --# notpresent - VPB (PretP Pl P3) => x_ + "começaram" ; --# notpresent - VPB (Fut Ind Sg P1) => x_ + "começarei" ; --# notpresent - VPB (Fut Ind Sg P2) => x_ + "começarás" ; --# notpresent - VPB (Fut Ind Sg P3) => x_ + "começará" ; --# notpresent - VPB (Fut Ind Pl P1) => x_ + "começaremos" ; --# notpresent - VPB (Fut Ind Pl P2) => x_ + "começareis" ; --# notpresent - VPB (Fut Ind Pl P3) => x_ + "começarão" ; --# notpresent - VPB (Fut Sub Sg P1) => x_ + "começar" ; --# notpresent - VPB (Fut Sub Sg P2) => x_ + "começares" ; --# notpresent - VPB (Fut Sub Sg P3) => x_ + "começar" ; --# notpresent - VPB (Fut Sub Pl P1) => x_ + "começarmos" ; --# notpresent - VPB (Fut Sub Pl P2) => x_ + "começardes" ; --# notpresent - VPB (Fut Sub Pl P3) => x_ + "começarem" ; --# notpresent - VPB (Cond Sg P1) => x_ + "começaria" ; --# notpresent - VPB (Cond Sg P2) => x_ + "começarias" ; --# notpresent - VPB (Cond Sg P3) => x_ + "começaria" ; --# notpresent - VPB (Cond Pl P1) => x_ + "começaríamos" ; --# notpresent - VPB (Cond Pl P2) => x_ + "começarieis" ; --# notpresent - VPB (Cond Pl P3) => x_ + "começariam" ; --# notpresent - VPB (Imper Sg P2) => x_ + "começa" ; - VPB (Imper Sg P3) => x_ + "comece" ; - VPB (Imper Pl P1) => x_ + "comecemos" ; - VPB (Imper Pl P2) => x_ + "começai" ; - VPB (Imper Pl P3) => x_ + "comecem" ; + VI Infn => come_ + "çar" ; + VI Ger => come_ + "çando" ; + VI Part => come_ + "çado" ; + VPB (Pres Ind Sg P1) => come_ + "ço" ; + VPB (Pres Ind Sg P2) => come_ + "ças" ; + VPB (Pres Ind Sg P3) => come_ + "ça" ; + VPB (Pres Ind Pl P1) => come_ + "çamos" ; + VPB (Pres Ind Pl P2) => come_ + "çais" ; + VPB (Pres Ind Pl P3) => come_ + "çam" ; + VPB (Pres Sub Sg P1) => come_ + "ce" ; + VPB (Pres Sub Sg P2) => come_ + "ces" ; + VPB (Pres Sub Sg P3) => come_ + "ce" ; + VPB (Pres Sub Pl P1) => come_ + "cemos" ; + VPB (Pres Sub Pl P2) => come_ + "ceis" ; + VPB (Pres Sub Pl P3) => come_ + "cem" ; + VPB (PretI Ind Sg P1) => come_ + "çava" ; --# notpresent + VPB (PretI Ind Sg P2) => come_ + "çavas" ; --# notpresent + VPB (PretI Ind Sg P3) => come_ + "çava" ; --# notpresent + VPB (PretI Ind Pl P1) => come_ + "çávamos" ; --# notpresent + VPB (PretI Ind Pl P2) => come_ + "çáveis" ; --# notpresent + VPB (PretI Ind Pl P3) => come_ + "çavam" ; --# notpresent + VPB (PretI Sub Sg P1) => come_ + "çasse" ; --# notpresent + VPB (PretI Sub Sg P2) => come_ + "çasses" ; --# notpresent + VPB (PretI Sub Sg P3) => come_ + "çasse" ; --# notpresent + VPB (PretI Sub Pl P1) => come_ + "çássemos" ; --# notpresent + VPB (PretI Sub Pl P2) => come_ + "çasseis" ; --# notpresent + VPB (PretI Sub Pl P3) => come_ + "çassem" ; --# notpresent + VPB (MQPerf Sg P1) => come_ + "çara" ; --# notpresent + VPB (MQPerf Sg P2) => come_ + "çaras" ; --# notpresent + VPB (MQPerf Sg P3) => come_ + "çara" ; --# notpresent + VPB (MQPerf Pl P1) => come_ + "çáramos" ; --# notpresent + VPB (MQPerf Pl P2) => come_ + "çáreis" ; --# notpresent + VPB (MQPerf Pl P3) => come_ + "çaram" ; --# notpresent + VPB (PretP Sg P1) => come_ + "cei" ; --# notpresent + VPB (PretP Sg P2) => come_ + "çaste" ; --# notpresent + VPB (PretP Sg P3) => come_ + "çou" ; --# notpresent + VPB (PretP Pl P1) => come_ + vars "çamos" "çámos" ; --# notpresent + VPB (PretP Pl P2) => come_ + "çastes" ; --# notpresent + VPB (PretP Pl P3) => come_ + "çaram" ; --# notpresent + VPB (Fut Ind Sg P1) => come_ + "çarei" ; --# notpresent + VPB (Fut Ind Sg P2) => come_ + "çarás" ; --# notpresent + VPB (Fut Ind Sg P3) => come_ + "çará" ; --# notpresent + VPB (Fut Ind Pl P1) => come_ + "çaremos" ; --# notpresent + VPB (Fut Ind Pl P2) => come_ + "çareis" ; --# notpresent + VPB (Fut Ind Pl P3) => come_ + "çarão" ; --# notpresent + VPB (Fut Sub Sg P1) => come_ + "çar" ; --# notpresent + VPB (Fut Sub Sg P2) => come_ + "çares" ; --# notpresent + VPB (Fut Sub Sg P3) => come_ + "çar" ; --# notpresent + VPB (Fut Sub Pl P1) => come_ + "çarmos" ; --# notpresent + VPB (Fut Sub Pl P2) => come_ + "çardes" ; --# notpresent + VPB (Fut Sub Pl P3) => come_ + "çarem" ; --# notpresent + VPB (Cond Sg P1) => come_ + "çaria" ; --# notpresent + VPB (Cond Sg P2) => come_ + "çarias" ; --# notpresent + VPB (Cond Sg P3) => come_ + "çaria" ; --# notpresent + VPB (Cond Pl P1) => come_ + "çaríamos" ; --# notpresent + VPB (Cond Pl P2) => come_ + "çarieis" ; --# notpresent + VPB (Cond Pl P3) => come_ + "çariam" ; --# notpresent + VPB (Imper Sg P2) => come_ + "ça" ; + VPB (Imper Sg P3) => come_ + "ce" ; + VPB (Imper Pl P1) => come_ + "cemos" ; + VPB (Imper Pl P2) => come_ + "çai" ; + VPB (Imper Pl P3) => come_ + "cem" ; VPB (Imper Sg P1) => nonExist } } ; oper chegar_Besch : Str -> Verbum = \chegar -> +-- 14 | r26 let cheg_ = Predef.tk 2 chegar in {s = table { VI Infn => cheg_ + "ar" ; @@ -831,6 +845,7 @@ oper chegar_Besch : Str -> Verbum = \chegar -> } ; oper recear_Besch : Str -> Verbum = \recear -> +-- 15 | r46 let rec_ = Predef.tk 3 recear in {s = table { VI Infn => rec_ + "ear" ; @@ -900,6 +915,7 @@ oper recear_Besch : Str -> Verbum = \recear -> } ; oper anunciar_Besch : Str -> Verbum = \anunciar -> +-- 16 | r46 let anunci_ = Predef.tk 2 anunciar in {s = table { VI Infn => anunci_ + "ar" ; @@ -969,6 +985,7 @@ oper anunciar_Besch : Str -> Verbum = \anunciar -> } ; oper odiar_Besch : Str -> Verbum = \odiar -> +-- 17 | r46 let od_ = Predef.tk 3 odiar in {s = table { VI Infn => od_ + "iar" ; @@ -1038,6 +1055,7 @@ oper odiar_Besch : Str -> Verbum = \odiar -> } ; oper comerciar_Besch : Str -> Verbum = \comerciar -> +-- 18 | r36 let comerc_ = Predef.tk 3 comerciar in {s = table { VI Infn => comerc_ + "iar" ; @@ -1107,6 +1125,7 @@ oper comerciar_Besch : Str -> Verbum = \comerciar -> } ; oper saudar_Besch : Str -> Verbum = \saudar -> +-- 19 | r16 let sa_ = Predef.tk 4 saudar in {s = table { VI Infn => sa_ + "udar" ; @@ -1176,6 +1195,7 @@ oper saudar_Besch : Str -> Verbum = \saudar -> } ; oper perdoar_Besch : Str -> Verbum = \perdoar -> +-- 20 | r38 let perd_ = Predef.tk 3 perdoar in {s = table { VI Infn => perd_ + "oar" ; @@ -1245,6 +1265,7 @@ oper perdoar_Besch : Str -> Verbum = \perdoar -> } ; oper averiguar_Besch : Str -> Verbum = \averiguar -> +-- 21 | r30 let averigu_ = Predef.tk 2 averiguar in {s = table { VI Infn => averigu_ + "ar" ; @@ -1314,6 +1335,7 @@ oper averiguar_Besch : Str -> Verbum = \averiguar -> } ; oper neviscar_Besch : Str -> Verbum = \neviscar -> +-- 22 | r23 let n_ = Predef.tk 7 neviscar in {s = table { VI Infn => n_ + "eviscar" ; @@ -1383,6 +1405,7 @@ oper neviscar_Besch : Str -> Verbum = \neviscar -> } ; oper adequar_Besch : Str -> Verbum = \adequar -> +-- 23 | r82 let adequ_ = Predef.tk 2 adequar in {s = table { VI Infn => adequ_ + "ar" ; @@ -1452,6 +1475,7 @@ oper adequar_Besch : Str -> Verbum = \adequar -> } ; oper relampaguear_Besch : Str -> Verbum = \relampaguear -> +-- 24 let relamp_ = Predef.tk 6 relampaguear in {s = table { VI Infn => relamp_ + "aguear" ; @@ -1521,6 +1545,7 @@ oper relampaguear_Besch : Str -> Verbum = \relampaguear -> } ; oper aquecer_Besch : Str -> Verbum = \aquecer -> +-- 25 | r25 let aque_ = Predef.tk 3 aquecer in {s = table { VI Infn => aque_ + "cer" ; @@ -1590,6 +1615,7 @@ oper aquecer_Besch : Str -> Verbum = \aquecer -> } ; oper proteger_Besch : Str -> Verbum = \proteger -> +-- 26 | r27 let prote_ = Predef.tk 3 proteger in {s = table { VI Infn => prote_ + "ger" ; @@ -1659,6 +1685,7 @@ oper proteger_Besch : Str -> Verbum = \proteger -> } ; oper erguer_Besch : Str -> Verbum = \erguer -> +-- 27 | r32 let erg_ = Predef.tk 3 erguer in {s = table { VI Infn => erg_ + "uer" ; @@ -1728,6 +1755,7 @@ oper erguer_Besch : Str -> Verbum = \erguer -> } ; oper moer_Besch : Str -> Verbum = \moer -> +-- 28 | r39 let m_ = Predef.tk 3 moer in {s = table { VI Infn => m_ + "oer" ; @@ -1797,6 +1825,7 @@ oper moer_Besch : Str -> Verbum = \moer -> } ; oper dizer_Besch : Str -> Verbum = \dizer -> +-- 29 | r60 let di_ = Predef.tk 3 dizer in {s = table { VI Infn => di_ + "zer" ; @@ -1866,6 +1895,7 @@ oper dizer_Besch : Str -> Verbum = \dizer -> } ; oper trazer_Besch : Str -> Verbum = \trazer -> +-- 30 | r73 let tr_ = Predef.tk 4 trazer in {s = table { VI Infn => tr_ + "azer" ; @@ -1935,6 +1965,7 @@ oper trazer_Besch : Str -> Verbum = \trazer -> } ; oper fazer_Besch : Str -> Verbum = \fazer -> +-- 31 | r61 let f_ = Predef.tk 4 fazer in {s = table { VI Infn => f_ + "azer" ; @@ -2004,6 +2035,7 @@ oper fazer_Besch : Str -> Verbum = \fazer -> } ; oper aprazer_Besch : Str -> Verbum = \aprazer -> +-- 32 | r55 let apr_ = Predef.tk 4 aprazer in {s = table { VI Infn => apr_ + "azer" ; @@ -2073,6 +2105,7 @@ oper aprazer_Besch : Str -> Verbum = \aprazer -> } ; oper jazer_Besch : Str -> Verbum = \jazer -> +-- 33 | r43 let jaz_ = Predef.tk 2 jazer in {s = table { VI Infn => jaz_ + "er" ; @@ -2142,6 +2175,7 @@ oper jazer_Besch : Str -> Verbum = \jazer -> } ; oper caber_Besch : Str -> Verbum = \caber -> +-- 34 | r56 let c_ = Predef.tk 4 caber in {s = table { VI Infn => c_ + "aber" ; @@ -2211,6 +2245,7 @@ oper caber_Besch : Str -> Verbum = \caber -> } ; oper saber_Besch : Str -> Verbum = \saber -> +-- 35 | r72 let s_ = Predef.tk 4 saber in {s = table { VI Infn => s_ + "aber" ; @@ -2280,6 +2315,7 @@ oper saber_Besch : Str -> Verbum = \saber -> } ; oper poder_Besch : Str -> Verbum = \poder -> +-- 36 | r66 let p_ = Predef.tk 4 poder in {s = table { VI Infn => p_ + "oder" ; @@ -2349,6 +2385,7 @@ oper poder_Besch : Str -> Verbum = \poder -> } ; oper crer_Besch : Str -> Verbum = \crer -> +-- 37 | r58 let cr_ = Predef.tk 2 crer in {s = table { VI Infn => cr_ + "er" ; @@ -2418,6 +2455,7 @@ oper crer_Besch : Str -> Verbum = \crer -> } ; oper querer_Besch : Str -> Verbum = \querer -> +-- 38 | r69 let qu_ = Predef.tk 4 querer in {s = table { VI Infn => qu_ + "erer" ; @@ -2487,6 +2525,7 @@ oper querer_Besch : Str -> Verbum = \querer -> } ; oper requerer_Besch : Str -> Verbum = \requerer -> +-- 39 | r70 let reque_ = Predef.tk 3 requerer in {s = table { VI Infn => reque_ + "rer" ; @@ -2556,6 +2595,7 @@ oper requerer_Besch : Str -> Verbum = \requerer -> } ; oper ver_Besch : Str -> Verbum = \ver -> +-- 40 | r25 let v_ = Predef.tk 2 ver in {s = table { VI Infn => v_ + "er" ; @@ -2625,6 +2665,7 @@ oper ver_Besch : Str -> Verbum = \ver -> } ; oper prover_Besch : Str -> Verbum = \prover -> +-- 41 | r68 let prov_ = Predef.tk 2 prover in {s = table { VI Infn => prov_ + "er" ; @@ -2694,6 +2735,7 @@ oper prover_Besch : Str -> Verbum = \prover -> } ; oper ler_Besch : Str -> Verbum = \ler -> +-- 42 | r58 let l_ = Predef.tk 2 ler in {s = table { VI Infn => l_ + "er" ; @@ -2763,6 +2805,7 @@ oper ler_Besch : Str -> Verbum = \ler -> } ; oper valer_Besch : Str -> Verbum = \valer -> +-- 43 | r74 let val_ = Predef.tk 2 valer in {s = table { VI Infn => val_ + "er" ; @@ -2832,6 +2875,7 @@ oper valer_Besch : Str -> Verbum = \valer -> } ; oper perder_Besch : Str -> Verbum = \perder -> +-- 44 | r65 let per_ = Predef.tk 3 perder in {s = table { VI Infn => per_ + "der" ; @@ -2901,6 +2945,7 @@ oper perder_Besch : Str -> Verbum = \perder -> } ; oper pôr_Besch : Str -> Verbum = \pôr -> +-- 45 | r67 let p_ = Predef.tk 2 pôr in {s = table { VI Infn => p_ + "ôr" ; @@ -2970,6 +3015,7 @@ oper pôr_Besch : Str -> Verbum = \pôr -> } ; oper acontecer_Besch : Str -> Verbum = \acontecer -> +-- 46 | r25 let aconte_ = Predef.tk 3 acontecer in {s = table { VI Infn => aconte_ + "cer" ; @@ -3039,6 +3085,7 @@ oper acontecer_Besch : Str -> Verbum = \acontecer -> } ; oper chover_Besch : Str -> Verbum = \chover -> +-- 47 | r6 let chov_ = Predef.tk 2 chover in {s = table { VI Infn => chov_ + "er" ; @@ -3108,6 +3155,7 @@ oper chover_Besch : Str -> Verbum = \chover -> } ; oper doer_Besch : Str -> Verbum = \doer -> +-- 48 | r83 let d_ = Predef.tk 3 doer in {s = table { VI Infn => d_ + "oer" ; @@ -3177,6 +3225,7 @@ oper doer_Besch : Str -> Verbum = \doer -> } ; oper prazer_Besch : Str -> Verbum = \prazer -> +-- 49 | r55 let pr_ = Predef.tk 4 prazer in {s = table { VI Infn => pr_ + "azer" ; @@ -3246,6 +3295,7 @@ oper prazer_Besch : Str -> Verbum = \prazer -> } ; oper precaver_Besch : Str -> Verbum = \precaver -> +-- 50 | r85 let precav_ = Predef.tk 2 precaver in {s = table { VI Infn => precav_ + "er" ; @@ -3315,6 +3365,7 @@ oper precaver_Besch : Str -> Verbum = \precaver -> } ; oper reaver_Besch : Str -> Verbum = \reaver -> +-- 51 | r86 let re_ = Predef.tk 4 reaver in {s = table { VI Infn => re_ + "aver" ; @@ -3384,6 +3435,7 @@ oper reaver_Besch : Str -> Verbum = \reaver -> } ; oper redigir_Besch : Str -> Verbum = \redigir -> +-- 52 | r28 let red_ = Predef.tk 4 redigir in {s = table { VI Infn => red_ + "igir" ; @@ -3453,6 +3505,7 @@ oper redigir_Besch : Str -> Verbum = \redigir -> } ; oper extinguir_Besch : Str -> Verbum = \extinguir -> +-- 53 | r33 let extin_ = Predef.tk 4 extinguir in {s = table { VI Infn => extin_ + "guir" ; @@ -3522,6 +3575,7 @@ oper extinguir_Besch : Str -> Verbum = \extinguir -> } ; oper servir_Besch : Str -> Verbum = \servir -> +-- 54 | r47 let s_ = Predef.tk 5 servir in {s = table { VI Infn => s_ + "ervir" ; @@ -3591,6 +3645,7 @@ oper servir_Besch : Str -> Verbum = \servir -> } ; oper seguir_Besch : Str -> Verbum = \seguir -> +-- 55 | r50 let s_ = Predef.tk 5 seguir in {s = table { VI Infn => s_ + "eguir" ; @@ -3660,6 +3715,7 @@ oper seguir_Besch : Str -> Verbum = \seguir -> } ; oper sentir_Besch : Str -> Verbum = \sentir -> +-- 56 | r47 let s_ = Predef.tk 5 sentir in {s = table { VI Infn => s_ + "entir" ; @@ -3729,6 +3785,7 @@ oper sentir_Besch : Str -> Verbum = \sentir -> } ; oper preferir_Besch : Str -> Verbum = \preferir -> +-- 57 | r47 let pref_ = Predef.tk 4 preferir in {s = table { VI Infn => pref_ + "erir" ; @@ -3798,6 +3855,7 @@ oper preferir_Besch : Str -> Verbum = \preferir -> } ; oper agredir_Besch : Str -> Verbum = \agredir -> +-- 58 | r48 let agr_ = Predef.tk 4 agredir in {s = table { VI Infn => agr_ + "edir" ; @@ -3867,6 +3925,7 @@ oper agredir_Besch : Str -> Verbum = \agredir -> } ; oper dormir_Besch : Str -> Verbum = \dormir -> +-- 59 | r51 let d_ = Predef.tk 5 dormir in {s = table { VI Infn => d_ + "ormir" ; @@ -3936,6 +3995,7 @@ oper dormir_Besch : Str -> Verbum = \dormir -> } ; oper polir_Besch : Str -> Verbum = \polir -> +-- 60 | r81 let p_ = Predef.tk 4 polir in {s = table { VI Infn => p_ + "olir" ; @@ -4005,6 +4065,7 @@ oper polir_Besch : Str -> Verbum = \polir -> } ; oper acudir_Besch : Str -> Verbum = \acudir -> +-- 61 | r53 let ac_ = Predef.tk 4 acudir in {s = table { VI Infn => ac_ + "udir" ; @@ -4074,6 +4135,7 @@ oper acudir_Besch : Str -> Verbum = \acudir -> } ; oper fugir_Besch : Str -> Verbum = \fugir -> +-- 62 | r54 let f_ = Predef.tk 4 fugir in {s = table { VI Infn => f_ + "ugir" ; @@ -4143,6 +4205,7 @@ oper fugir_Besch : Str -> Verbum = \fugir -> } ; oper frigir_Besch : Str -> Verbum = \frigir -> +-- 63 | r28 let fr_ = Predef.tk 4 frigir in {s = table { VI Infn => fr_ + "igir" ; @@ -4212,6 +4275,7 @@ oper frigir_Besch : Str -> Verbum = \frigir -> } ; oper divergir_Besch : Str -> Verbum = \divergir -> +-- 64 | r49 let div_ = Predef.tk 5 divergir in {s = table { VI Infn => div_ + "ergir" ; @@ -4281,6 +4345,7 @@ oper divergir_Besch : Str -> Verbum = \divergir -> } ; oper refletir_Besch : Str -> Verbum = \refletir -> +-- 65 | r47 let refl_ = Predef.tk 4 refletir in {s = table { VI Infn => refl_ + vars "etir" "ectir" ; @@ -4350,6 +4415,7 @@ oper refletir_Besch : Str -> Verbum = \refletir -> } ; oper ir_Besch : Str -> Verbum = \ir -> +-- 66 | r53 let x_ = Predef.tk 2 ir in {s = table { VI Infn => x_ + "ir" ; @@ -4419,6 +4485,7 @@ oper ir_Besch : Str -> Verbum = \ir -> } ; oper vir_Besch : Str -> Verbum = \vir -> +-- 67 | r63 let v_ = Predef.tk 2 vir in {s = table { VI Infn => v_ + "ir" ; @@ -4488,6 +4555,7 @@ oper vir_Besch : Str -> Verbum = \vir -> } ; oper sair_Besch : Str -> Verbum = \sair -> +-- 68 | r42 let sa_ = Predef.tk 2 sair in {s = table { VI Infn => sa_ + "ir" ; @@ -4557,6 +4625,7 @@ oper sair_Besch : Str -> Verbum = \sair -> } ; oper rir_Besch : Str -> Verbum = \rir -> +-- 69 | r48 let r_ = Predef.tk 2 rir in {s = table { VI Infn => r_ + "ir" ; @@ -4626,6 +4695,7 @@ oper rir_Besch : Str -> Verbum = \rir -> } ; oper pedir_Besch : Str -> Verbum = \pedir -> +-- 70 | r63 let pe_ = Predef.tk 3 pedir in {s = table { VI Infn => pe_ + "dir" ; @@ -4695,6 +4765,7 @@ oper pedir_Besch : Str -> Verbum = \pedir -> } ; oper ouvir_Besch : Str -> Verbum = \ouvir -> +-- 71 | r63 let ou_ = Predef.tk 3 ouvir in {s = table { VI Infn => ou_ + "vir" ; @@ -4764,6 +4835,7 @@ oper ouvir_Besch : Str -> Verbum = \ouvir -> } ; oper traduzir_Besch : Str -> Verbum = \traduzir -> +-- 72 | r44 let traduz_ = Predef.tk 2 traduzir in {s = table { VI Infn => traduz_ + "ir" ; @@ -4833,6 +4905,7 @@ oper traduzir_Besch : Str -> Verbum = \traduzir -> } ; oper distribuir_Besch : Str -> Verbum = \distribuir -> +-- 73 | r40 let distribu_ = Predef.tk 2 distribuir in {s = table { VI Infn => distribu_ + "ir" ; @@ -4902,6 +4975,7 @@ oper distribuir_Besch : Str -> Verbum = \distribuir -> } ; oper destruir_Besch : Str -> Verbum = \destruir -> +-- 74 | r57 let destr_ = Predef.tk 3 destruir in {s = table { VI Infn => destr_ + "uir" ; @@ -4971,6 +5045,7 @@ oper destruir_Besch : Str -> Verbum = \destruir -> } ; oper arguir_Besch : Str -> Verbum = \arguir -> +-- 75 | r31 let arg_ = Predef.tk 3 arguir in {s = table { VI Infn => arg_ + "uir" ; @@ -5040,6 +5115,7 @@ oper arguir_Besch : Str -> Verbum = \arguir -> } ; oper reunir_Besch : Str -> Verbum = \reunir -> +-- 76 | r18 let re_ = Predef.tk 4 reunir in {s = table { VI Infn => re_ + "unir" ; @@ -5109,6 +5185,7 @@ oper reunir_Besch : Str -> Verbum = \reunir -> } ; oper proibir_Besch : Str -> Verbum = \proibir -> +-- 77 | r20 let pro_ = Predef.tk 4 proibir in {s = table { VI Infn => pro_ + "ibir" ; @@ -5178,6 +5255,7 @@ oper proibir_Besch : Str -> Verbum = \proibir -> } ; oper imergir_Besch : Str -> Verbum = \imergir -> +-- 78 | r49 let imerg_ = Predef.tk 2 imergir in {s = table { VI Infn => imerg_ + "ir" ; @@ -5247,6 +5325,7 @@ oper imergir_Besch : Str -> Verbum = \imergir -> } ; oper falir_Besch : Str -> Verbum = \falir -> +-- 79 | r81 let fal_ = Predef.tk 2 falir in {s = table { VI Infn => fal_ + "ir" ; @@ -5316,6 +5395,7 @@ oper falir_Besch : Str -> Verbum = \falir -> } ; oper remir_Besch : Str -> Verbum = \remir -> +-- 80 | r49 let rem_ = Predef.tk 2 remir in {s = table { VI Infn => rem_ + "ir" ; @@ -5385,6 +5465,7 @@ oper remir_Besch : Str -> Verbum = \remir -> } ; oper viajar_Besch : Str -> Verbum = \viajar -> +-- r22 let viaj_ = Predef.tk 2 viajar in {s = table { VI Infn => viaj_ + "ar" ; @@ -5454,6 +5535,7 @@ oper viajar_Besch : Str -> Verbum = \viajar -> } ; oper suar_Besch : Str -> Verbum = \suar -> +-- r37 let su_ = Predef.tk 2 suar in {s = table { VI Infn => su_ + "ar" ; @@ -5522,4 +5604,74 @@ oper suar_Besch : Str -> Verbum = \suar -> } } ; +oper peneirar_Besch : Str -> Verbum = \peneirar -> +-- r10 + let peneir_ = Predef.tk 2 peneirar in + {s = table { + VI Infn => peneir_ + "ar" ; + VI Ger => peneir_ + "ando" ; + VI Part => peneir_ + "ado" ; + VPB (Pres Ind Sg P1) => peneir_ + "o" ; + VPB (Pres Ind Sg P2) => peneir_ + "as" ; + VPB (Pres Ind Sg P3) => peneir_ + "a" ; + VPB (Pres Ind Pl P1) => peneir_ + "amos" ; + VPB (Pres Ind Pl P2) => peneir_ + "ais" ; + VPB (Pres Ind Pl P3) => peneir_ + "am" ; + VPB (Pres Sub Sg P1) => peneir_ + "e" ; + VPB (Pres Sub Sg P2) => peneir_ + "es" ; + VPB (Pres Sub Sg P3) => peneir_ + "e" ; + VPB (Pres Sub Pl P1) => peneir_ + "emos" ; + VPB (Pres Sub Pl P2) => peneir_ + "eis" ; + VPB (Pres Sub Pl P3) => peneir_ + "em" ; + VPB (PretI Ind Sg P1) => peneir_ + "ava" ; --# notpresent + VPB (PretI Ind Sg P2) => peneir_ + "avas" ; --# notpresent + VPB (PretI Ind Sg P3) => peneir_ + "ava" ; --# notpresent + VPB (PretI Ind Pl P1) => peneir_ + "ávamos" ; --# notpresent + VPB (PretI Ind Pl P2) => peneir_ + "áveis" ; --# notpresent + VPB (PretI Ind Pl P3) => peneir_ + "avam" ; --# notpresent + VPB (PretI Sub Sg P1) => peneir_ + "asse" ; --# notpresent + VPB (PretI Sub Sg P2) => peneir_ + "asses" ; --# notpresent + VPB (PretI Sub Sg P3) => peneir_ + "asse" ; --# notpresent + VPB (PretI Sub Pl P1) => peneir_ + "ássemos" ; --# notpresent + VPB (PretI Sub Pl P2) => peneir_ + "ásseis" ; --# notpresent + VPB (PretI Sub Pl P3) => peneir_ + "assem" ; --# notpresent + VPB (MQPerf Sg P1) => peneir_ + "ara" ; --# notpresent + VPB (MQPerf Sg P2) => peneir_ + "aras" ; --# notpresent + VPB (MQPerf Sg P3) => peneir_ + "ara" ; --# notpresent + VPB (MQPerf Pl P1) => peneir_ + "áramos" ; --# notpresent + VPB (MQPerf Pl P2) => peneir_ + "áreis" ; --# notpresent + VPB (MQPerf Pl P3) => peneir_ + "aram" ; --# notpresent + VPB (PretP Sg P1) => peneir_ + "ei" ; --# notpresent + VPB (PretP Sg P2) => peneir_ + "aste" ; --# notpresent + VPB (PretP Sg P3) => peneir_ + "ou" ; --# notpresent + VPB (PretP Pl P1) => peneir_ + "amos" ; --# notpresent + VPB (PretP Pl P2) => peneir_ + "astes" ; --# notpresent + VPB (PretP Pl P3) => peneir_ + "aram" ; --# notpresent + VPB (Fut Ind Sg P1) => peneir_ + "arei" ; --# notpresent + VPB (Fut Ind Sg P2) => peneir_ + "arás" ; --# notpresent + VPB (Fut Ind Sg P3) => peneir_ + "ará" ; --# notpresent + VPB (Fut Ind Pl P1) => peneir_ + "aremos" ; --# notpresent + VPB (Fut Ind Pl P2) => peneir_ + "areis" ; --# notpresent + VPB (Fut Ind Pl P3) => peneir_ + "arão" ; --# notpresent + VPB (Fut Sub Sg P1) => peneir_ + "ar" ; --# notpresent + VPB (Fut Sub Sg P2) => peneir_ + "ares" ; --# notpresent + VPB (Fut Sub Sg P3) => peneir_ + "ar" ; --# notpresent + VPB (Fut Sub Pl P1) => peneir_ + "armos" ; --# notpresent + VPB (Fut Sub Pl P2) => peneir_ + "ardes" ; --# notpresent + VPB (Fut Sub Pl P3) => peneir_ + "arem" ; --# notpresent + VPB (Cond Sg P1) => peneir_ + "aria" ; --# notpresent + VPB (Cond Sg P2) => peneir_ + "aries" ; --# notpresent + VPB (Cond Sg P3) => peneir_ + "aria" ; --# notpresent + VPB (Cond Pl P1) => peneir_ + "aríamos" ; --# notpresent + VPB (Cond Pl P2) => peneir_ + "aríeis" ; --# notpresent + VPB (Cond Pl P3) => peneir_ + "ariam" ; --# notpresent + VPB (Imper Sg P2) => peneir_ + "a" ; + VPB (Imper Sg P3) => peneir_ + "e" ; + VPB (Imper Pl P1) => peneir_ + "emos" ; + VPB (Imper Pl P2) => peneir_ + "ai" ; + VPB (Imper Pl P3) => peneir_ + "em" ; + VPB (Imper Sg P1) => nonExist + } + } ; + } ; diff --git a/src/portuguese/DiffPor.gf b/src/portuguese/DiffPor.gf index 5cfcd7c6..c8cfc598 100644 --- a/src/portuguese/DiffPor.gf +++ b/src/portuguese/DiffPor.gf @@ -148,7 +148,7 @@ instance DiffPor of DiffRomance - [partAgr,vpAgrSubj,vpAgrClits] = open CommonRo subjIf = "se" ; oper - relPron : Bool => AAgr => Case => Str = \\b,a,c => + relPron : Bool => AAgr => Case => Str = \\_b,a,c => case c of { Nom | Acc => "que" ; CPrep P_a => "cujo" ;