diff --git a/lib/resource/Basic.txt b/lib/resource-0.9/Basic.txt similarity index 100% rename from lib/resource/Basic.txt rename to lib/resource-0.9/Basic.txt diff --git a/lib/resource-1.0/LICENSE b/lib/resource-0.9/LICENSE similarity index 100% rename from lib/resource-1.0/LICENSE rename to lib/resource-0.9/LICENSE diff --git a/lib/resource-0.9/Makefile b/lib/resource-0.9/Makefile new file mode 100644 index 000000000..01bce8269 --- /dev/null +++ b/lib/resource-0.9/Makefile @@ -0,0 +1,5 @@ +all: + gf +RTS -K10M -M1012M Adv ; + AdvTime : Time -> Adv ; + NWeekday : Weekday -> N ; + PNWeekday : Weekday -> PN ; + +-- Mount $Country$. + + PNCountry : Country -> PN ; + ANationality : Nationality -> A ; + NLanguage : Language -> N ; + +} diff --git a/lib/resource/abstract/LangVP.gf b/lib/resource-0.9/abstract/LangVP.gf similarity index 100% rename from lib/resource/abstract/LangVP.gf rename to lib/resource-0.9/abstract/LangVP.gf diff --git a/lib/resource/abstract/Math.gf b/lib/resource-0.9/abstract/Math.gf similarity index 100% rename from lib/resource/abstract/Math.gf rename to lib/resource-0.9/abstract/Math.gf diff --git a/lib/resource/abstract/Minimal.gf b/lib/resource-0.9/abstract/Minimal.gf similarity index 100% rename from lib/resource/abstract/Minimal.gf rename to lib/resource-0.9/abstract/Minimal.gf diff --git a/lib/resource/abstract/Multimodal.gf b/lib/resource-0.9/abstract/Multimodal.gf similarity index 100% rename from lib/resource/abstract/Multimodal.gf rename to lib/resource-0.9/abstract/Multimodal.gf diff --git a/lib/resource/abstract/MultimodalI.gf b/lib/resource-0.9/abstract/MultimodalI.gf similarity index 100% rename from lib/resource/abstract/MultimodalI.gf rename to lib/resource-0.9/abstract/MultimodalI.gf diff --git a/lib/resource/abstract/Numerals.gf b/lib/resource-0.9/abstract/Numerals.gf similarity index 100% rename from lib/resource/abstract/Numerals.gf rename to lib/resource-0.9/abstract/Numerals.gf diff --git a/lib/resource/abstract/Predic.gf b/lib/resource-0.9/abstract/Predic.gf similarity index 100% rename from lib/resource/abstract/Predic.gf rename to lib/resource-0.9/abstract/Predic.gf diff --git a/lib/resource/abstract/Resource.gf b/lib/resource-0.9/abstract/Resource.gf similarity index 100% rename from lib/resource/abstract/Resource.gf rename to lib/resource-0.9/abstract/Resource.gf diff --git a/lib/resource/abstract/Rules.gf b/lib/resource-0.9/abstract/Rules.gf similarity index 100% rename from lib/resource/abstract/Rules.gf rename to lib/resource-0.9/abstract/Rules.gf diff --git a/lib/resource/abstract/Sats.gf b/lib/resource-0.9/abstract/Sats.gf similarity index 100% rename from lib/resource/abstract/Sats.gf rename to lib/resource-0.9/abstract/Sats.gf diff --git a/lib/resource/abstract/Simple.gf b/lib/resource-0.9/abstract/Simple.gf similarity index 100% rename from lib/resource/abstract/Simple.gf rename to lib/resource-0.9/abstract/Simple.gf diff --git a/lib/resource/abstract/SimpleAux.gf b/lib/resource-0.9/abstract/SimpleAux.gf similarity index 100% rename from lib/resource/abstract/SimpleAux.gf rename to lib/resource-0.9/abstract/SimpleAux.gf diff --git a/lib/resource/abstract/SimpleI.gf b/lib/resource-0.9/abstract/SimpleI.gf similarity index 100% rename from lib/resource/abstract/SimpleI.gf rename to lib/resource-0.9/abstract/SimpleI.gf diff --git a/lib/resource/abstract/SimpleLang.gf b/lib/resource-0.9/abstract/SimpleLang.gf similarity index 100% rename from lib/resource/abstract/SimpleLang.gf rename to lib/resource-0.9/abstract/SimpleLang.gf diff --git a/lib/resource-0.9/abstract/Structural.gf b/lib/resource-0.9/abstract/Structural.gf new file mode 100644 index 000000000..5655385d4 --- /dev/null +++ b/lib/resource-0.9/abstract/Structural.gf @@ -0,0 +1,103 @@ +--1 GF Resource Grammar API for Structural Words +-- +-- AR 21/11/2003 +-- +-- Here we have some words belonging to closed classes and appearing +-- in all languages we have considered. +-- Sometimes they are not really meaningful, e.g. $we_NP$ in Spanish +-- should be replaced by masculine and feminine variants. + +abstract Structural = Categories, Numerals ** { + + fun + +-- First mount the numerals. + + UseNumeral : Numeral-> Num ; + +-- Then an alphabetical list of structural words + + above_Prep : Prep ; + after_Prep : Prep ; + all8mass_Det : Det ; + all_NDet : NDet ; + almost_Adv : AdA ; + although_Subj : Subj ; + and_Conj : Conj ; + because_Subj : Subj ; + before_Prep : Prep ; + behind_Prep : Prep ; + between_Prep : Prep ; + both_AndConjD : ConjD ; + by8agent_Prep : Prep ; + by8means_Prep : Prep ; + can8know_VV : VV ; + can_VV : VV ; + during_Prep : Prep ; + either8or_ConjD : ConjD ; + every_Det : Det ; + everybody_NP : NP ; + everything_NP : NP ; + everywhere_Adv : Adv ; + from_Prep : Prep ; + he_NP : NP ; + how_IAdv : IAdv ; + how8many_IDet : IDet ; + i_NP : NP ; + if_Subj : Subj ; + in8front_Prep : Prep ; + in_Prep : Prep ; + it_NP : NP ; + many_Det : Det ; + most_Det : Det ; + most8many_Det : Det ; + much_Det : Det ; + must_VV : VV ; + no_Phr : Phr ; + on_Prep : Prep ; + or_Conj : Conj ; + otherwise_Adv : AdC ; + part_Prep : Prep ; + possess_Prep : Prep ; + quite_Adv : AdA ; + she_NP : NP ; + so_Adv : AdA ; + some_Det : Det ; + some_NDet : NDet ; + somebody_NP : NP ; + something_NP : NP ; + somewhere_Adv : Adv ; + that_Det : Det ; + that_NP : NP ; + therefore_Adv : AdC ; + these_NDet : NDet ; + they8fem_NP : NP ; + they_NP : NP ; + this_Det : Det ; + this_NP : NP ; + those_NDet : NDet ; + thou_NP : NP ; + through_Prep : Prep ; + to_Prep : Prep ; + too_Adv : AdA ; + under_Prep : Prep ; + very_Adv : AdA ; + want_VV : VV ; + we_NP : NP ; + what8many_IP : IP ; + what8one_IP : IP ; + when_IAdv : IAdv ; + when_Subj : Subj ; + where_IAdv : IAdv ; + which8many_IDet : IDet ; + which8one_IDet : IDet ; + who8many_IP : IP ; + who8one_IP : IP ; + why_IAdv : IAdv ; + with_Prep : Prep ; + without_Prep : Prep ; + ye_NP : NP ; + yes_Phr : Phr ; + you_NP : NP ; + +} \ No newline at end of file diff --git a/lib/resource/abstract/SwadeshLex.gf b/lib/resource-0.9/abstract/SwadeshLex.gf similarity index 100% rename from lib/resource/abstract/SwadeshLex.gf rename to lib/resource-0.9/abstract/SwadeshLex.gf diff --git a/lib/resource/abstract/Time.gf b/lib/resource-0.9/abstract/Time.gf similarity index 100% rename from lib/resource/abstract/Time.gf rename to lib/resource-0.9/abstract/Time.gf diff --git a/lib/resource/abstract/Verbphrase.gf b/lib/resource-0.9/abstract/Verbphrase.gf similarity index 100% rename from lib/resource/abstract/Verbphrase.gf rename to lib/resource-0.9/abstract/Verbphrase.gf diff --git a/lib/resource/danish/BasicDan.gf b/lib/resource-0.9/danish/BasicDan.gf similarity index 100% rename from lib/resource/danish/BasicDan.gf rename to lib/resource-0.9/danish/BasicDan.gf diff --git a/lib/resource/danish/CategoriesDan.gf b/lib/resource-0.9/danish/CategoriesDan.gf similarity index 100% rename from lib/resource/danish/CategoriesDan.gf rename to lib/resource-0.9/danish/CategoriesDan.gf diff --git a/lib/resource/danish/ClauseDan.gf b/lib/resource-0.9/danish/ClauseDan.gf similarity index 100% rename from lib/resource/danish/ClauseDan.gf rename to lib/resource-0.9/danish/ClauseDan.gf diff --git a/lib/resource/danish/CountryDan.gf b/lib/resource-0.9/danish/CountryDan.gf similarity index 100% rename from lib/resource/danish/CountryDan.gf rename to lib/resource-0.9/danish/CountryDan.gf diff --git a/lib/resource-0.9/danish/LangDan.gf b/lib/resource-0.9/danish/LangDan.gf new file mode 100644 index 000000000..a857196b8 --- /dev/null +++ b/lib/resource-0.9/danish/LangDan.gf @@ -0,0 +1,22 @@ +--# -path=.:../scandinavian:../abstract:../../prelude + +concrete LangDan of Lang = + RulesDan, + ClauseDan, + StructuralDan, + BasicDan, + TimeDan, + CountryDan + + ** open Prelude, ParadigmsDan in { + +lin + AdvDate d = prefixSS "på" d ; + AdvTime t = prefixSS "klokken" t ; + NWeekday w = w ; + PNWeekday w = nounPN w ; + + PNCountry x = x ; + ANationality x = x ; + NLanguage x = x ; +} diff --git a/lib/resource-0.9/danish/MathDan.gf b/lib/resource-0.9/danish/MathDan.gf new file mode 100644 index 000000000..809df1cb5 --- /dev/null +++ b/lib/resource-0.9/danish/MathDan.gf @@ -0,0 +1,4 @@ +--# -path=.:../scandinavian:../abstract:../../prelude + +concrete MathDan of Math = CategoriesDan ** + MathScand with (SyntaxScand=SyntaxDan) ; diff --git a/lib/resource-0.9/danish/MorphoDan.gf b/lib/resource-0.9/danish/MorphoDan.gf new file mode 100644 index 000000000..a057e022a --- /dev/null +++ b/lib/resource-0.9/danish/MorphoDan.gf @@ -0,0 +1,266 @@ +--1 A Simple Danish Resource Morphology +-- +-- Aarne Ranta 2002 +-- +-- This resource morphology contains definitions needed in the resource +-- syntax. It moreover contains copies of the most usual inflectional patterns +-- as defined in functional morphology (in the Haskell file $RulesSw.hs$). +-- +-- We use the parameter types and word classes defined for morphology. + +resource MorphoDan = open Prelude, TypesDan in { + +-- Danish grammar source: http://users.cybercity.dk/~nmb3879/danish.html + +-- nouns + +oper + mkSubstantive : (_,_,_,_ : Str) -> {s : SubstForm => Str} = + \dreng, drengen, drenge, drengene -> {s = table { + SF Sg Indef c => mkCase dreng ! c ; + SF Sg Def c => mkCase drengen ! c ; + SF Pl Indef c => mkCase drenge ! c ; + SF Pl Def c => mkCase drengene ! c + } + } ; + + mkCase : Str -> Case => Str = \bil -> table { + Nom => bil ; + Gen => bil + "s" --- but: hus --> hus + } ; + + extNGen : Str -> NounGender = \s -> case last s of { + "n" => NUtr ; + _ => NNeutr + } ; + + nDreng : Str -> Subst = \dreng -> + mkSubstantive dreng (dreng + "en") (dreng + "e") (dreng + "ene") ** + {h1 = Utr} ; + + nBil : Str -> Subst = \bil -> + mkSubstantive bil (bil + "en") (bil + "er") (bil + "erne") ** + {h1 = Utr} ; + + nUge : Str -> Subst = \uge -> + mkSubstantive uge (uge + "n") (uge + "r") (uge + "rne") ** + {h1 = Utr} ; + + nHus : Str -> Subst = \hus -> + mkSubstantive hus (hus + "et") hus (hus + "ene") ** + {h1 = Neutr} ; + +-- adjectives + + mkAdjective : (_,_,_,_,_ : Str) -> Adj = + \stor,stort,store,storre,storst -> {s = table { + AF (Posit (Strong (ASg Utr))) c => mkCase stor ! c ; + AF (Posit (Strong (ASg Neutr))) c => mkCase stort ! c ; + AF (Posit _) c => mkCase store ! c ; + AF Compar c => mkCase storre ! c ; + AF (Super SupStrong) c => mkCase storst ! c ; + AF (Super SupWeak) c => mkCase (storst + "e") ! c + } + } ; + + aRod : Str -> Adj = \rod -> + mkAdjective rod (rod + "t") (rod + "e") (rod + "ere") (rod + "est") ; + + aAbstrakt : Str -> Adj = \abstrakt -> + mkAdjective abstrakt abstrakt (abstrakt + "e") (abstrakt + "ere") (abstrakt + "est") ; + + aRask : Str -> Adj = \rask -> + mkAdjective rask rask (rask + "e") (rask + "ere") (rask + "est") ; + + extractPositive : Adj -> {s : AdjFormPos => Case => Str} = \adj -> + {s = \\a,c => adj.s ! (AF (Posit a) c)} ; + +-- verbs + + mkVerb : (_,_,_,_,_,_ : Str) -> Verbum = + \spise,spiser,spises,spiste,spist,spis -> {s = table { + VI (Inf v) => mkVoice v spise ; + VF (Pres Act) => spiser ; + VF (Pres Pass) => spises ; + VF (Pret v) => mkVoice v spiste ; + VI (Supin v) => mkVoice v spist ; + VI (PtPret _ c) => mkCase spist ! c ; ---- GenNum + VF (Imper v) => mkVoice v spis + } + } ; + + irregVerb : (drikke,drakk,drukket : Str) -> Verbum = + \drikke,drakk,drukket -> + let + drikk = init drikke ; + drikker = case last (init drikke) of { + "r" => drikk ; + _ => drikke + "r" + } + in + mkVerb drikke drikker (drikke + "s") drakk drukket drikk ; + + regVerb : Str -> Str -> Verbum = \spise, spiste -> + let + spis = init spise ; + te = Predef.dp 2 spiste + in + case te of { + "te" => vSpis spis ; + "de" => case last spise of { + "e" => vHusk spis ; + _ => vBo spise + } ; + _ => vHusk spis + } ; + + mkVoice : Voice -> Str -> Str = \v,s -> case v of { + Act => s ; + Pass => s + case last s of { + "s" => "es" ; + _ => "s" + } + } ; + + vHusk : Str -> Verbum = \husk -> + mkVerb (husk + "e") (husk + "er") (husk + "es") (husk + "ede") (husk + "et") husk ; + + vSpis : Str -> Verbum = \spis -> + mkVerb (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t") spis ; + + vBo : Str -> Verbum = \bo -> + mkVerb bo (bo + "r") (bo + "es") (bo + "ede") (bo + "et") bo ; + +-- pronouns + +oper jag_32 : ProPN = + {s = table { + PNom => "jeg" ; + PAcc => "mig" ; + PGen (ASg Utr) => "min" ; + PGen (ASg Neutr) => "mit" ; + PGen APl => "mine" + } ; + h1 = Utr ; + h2 = Sg ; + h3 = P1 + } ; + +oper du_33 : ProPN = + {s = table { + PNom => "du" ; + PAcc => "dig" ; + PGen (ASg Utr) => "din" ; + PGen (ASg Neutr) => "dit" ; + PGen APl => "dine" + } ; + h1 = Utr ; + h2 = Sg ; + h3 = P2 + } ; + +oper han_34 : ProPN = + {s = table { + PNom => "han" ; + PAcc => "ham" ; + PGen (ASg Utr) => "hans" ; + PGen (ASg Neutr) => "hans" ; + PGen APl => "hans" + } ; + h1 = Utr ; + h2 = Sg ; + h3 = P3 + } ; +oper hon_35 : ProPN = + {s = table { + PNom => "hun" ; + PAcc => "hende" ; + PGen (ASg Utr) => "hendes" ; + PGen (ASg Neutr) => "hendes" ; + PGen APl => "hendes" + } ; + h1 = Utr ; + h2 = Sg ; + h3 = P3 + } ; + +oper vi_36 : ProPN = + {s = table { + PNom => "vi" ; + PAcc => "os" ; + PGen _ => "vores" + } ; + h1 = Utr ; + h2 = Pl ; + h3 = P1 + } ; + +oper ni_37 : ProPN = + {s = table { + PNom => "i" ; + PAcc => "jer" ; + PGen _ => "jeres" + } ; + h1 = Utr ; + h2 = Pl ; + h3 = P2 + } ; + +oper de_38 : ProPN = + {s = table { + PNom => "de" ; + PAcc => "dem" ; + PGen _ => "deres" + } ; + h1 = Utr ; + h2 = Pl ; + h3 = P3 + } ; + +oper De_38 : ProPN = + {s = table { + PNom => "De" ; + PAcc => "Dem" ; + PGen _ => "Deres" + } ; + h1 = Utr ; + h2 = Sg ; + h3 = P2 + } ; + +oper den_39 : ProPN = + {s = table { + PNom => "den" ; + PAcc => "den" ; + PGen _ => "dens" + } ; + h1 = Utr ; + h2 = Sg ; + h3 = P3 + } ; + +oper det_40 : ProPN = + {s = table { + PNom => "det" ; + PAcc => "det" ; + PGen _ => "dets" + } ; + h1 = Neutr ; + h2 = Sg ; + h3 = P3 + } ; + + +-- from Numerals + +param DForm = ental | ton | tiotal ; + +oper mkTal : Str -> Str -> Str -> {s : DForm => Str} = + \to, tolv, tyve -> + {s = table {ental => to ; ton => tolv ; tiotal => tyve}} ; +oper regTal : Str -> {s : DForm => Str} = \fem -> mkTal fem (fem + "ton") (fem + "tio") ; + numPl : Str -> {s : Gender => Str ; n : Number} = \n -> + {s = \\_ => n ; n = Pl} ; + + +} diff --git a/lib/resource/danish/NumeralsDan.gf b/lib/resource-0.9/danish/NumeralsDan.gf similarity index 100% rename from lib/resource/danish/NumeralsDan.gf rename to lib/resource-0.9/danish/NumeralsDan.gf diff --git a/lib/resource-0.9/danish/ParadigmsDan.gf b/lib/resource-0.9/danish/ParadigmsDan.gf new file mode 100644 index 000000000..d7fc4e4e0 --- /dev/null +++ b/lib/resource-0.9/danish/ParadigmsDan.gf @@ -0,0 +1,370 @@ +--# -path=.:../scandinavian:../abstract:../../prelude + +--1 Sanish Lexical Paradigms +-- +-- Aarne Ranta 2003 +-- +-- This is an API to the user of the resource grammar +-- for adding lexical items. It gives functions for forming +-- expressions of open categories: nouns, adjectives, verbs. +-- +-- Closed categories (determiners, pronouns, conjunctions) are +-- accessed through the resource syntax API, $Structural.gf$. +-- +-- The main difference with $MorphoDan.gf$ is that the types +-- referred to are compiled resource grammar types. We have moreover +-- had the design principle of always having existing forms, rather +-- than stems, as string arguments of the paradigms. +-- +-- The structure of functions for each word class $C$ is the following: +-- first we give a handful of patterns that aim to cover all +-- regular cases. Then we give a worst-case function $mkC$, which serves as an +-- escape to construct the most irregular words of type $C$. +-- However, this function should only seldom be needed: we have a +-- separate module $IrregularEng$, which covers all irregularly inflected +-- words. +-- +-- The following modules are presupposed: + +resource ParadigmsDan = + open (Predef=Predef), Prelude, TypesDan, MorphoDan, SyntaxDan, CategoriesDan in { + +--2 Parameters +-- +-- To abstract over gender names, we define the following identifiers. + +oper + Gender : Type ; + + utrum : Gender ; + neutrum : Gender ; + +-- To abstract over number names, we define the following. + + Number : Type ; + + singular : Number ; + plural : Number ; + +-- To abstract over case names, we define the following. + + Case : Type ; + + nominative : Case ; + genitive : Case ; + +-- Prepositions used in many-argument functions are just strings. + + Preposition : Type = Str ; + +--2 Nouns + +-- Worst case: give all four forms. The gender is computed from the +-- last letter of the second form (if "n", then $utrum$, otherwise $neutrum$). + + mkN : (dreng,drengen,drenger,drengene : Str) -> N ; + +-- The regular function takes the singular indefinite form and the gender, +-- and computes the other forms by a heuristic. +-- If in doubt, use the $cc$ command to test! + + regN : Str -> Gender -> N ; + +-- This function takes the singular indefinite and definite forms; the +-- gender is computed from the definite form. + + mk2N : (bil,bilen : Str) -> N ; + + +--3 Compound nouns +-- +-- All the functions above work quite as well to form compound nouns, +-- such as "fotboll". + + +--3 Relational nouns +-- +-- Relational nouns ("daughter of x") need a preposition. + + mkN2 : N -> Preposition -> N2 ; + +-- The most common preposition is "av", and the following is a +-- shortcut for regular, $nonhuman$ relational nouns with "av". + + regN2 : Str -> Gender -> N2 ; + +-- Use the function $mkPreposition$ or see the section on prepositions below to +-- form other prepositions. +-- +-- Three-place relational nouns ("the connection from x to y") need two prepositions. + + mkN3 : N -> Preposition -> Preposition -> N3 ; + + +--3 Relational common noun phrases +-- +-- In some cases, you may want to make a complex $CN$ into a +-- relational noun (e.g. "the old town hall of"). However, $N2$ and +-- $N3$ are purely lexical categories. But you can use the $AdvCN$ +-- and $PrepNP$ constructions to build phrases like this. + +-- +--3 Proper names and noun phrases +-- +-- Proper names, with a regular genitive, are formed as follows + + regPN : Str -> Gender -> PN ; -- John, John's + +-- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". + + nounPN : N -> PN ; + +-- To form a noun phrase that can also be plural and have an irregular +-- genitive, you can use the worst-case function. + + mkNP : Str -> Str -> Number -> Gender -> NP ; + +--2 Adjectives + +-- Non-comparison one-place adjectives need three forms: + + mkA : (galen,galet,galne : Str) -> A ; + +-- For regular adjectives, the other forms are derived. + + regA : Str -> A ; + +-- In most cases, two forms are enough. + + mk2A : (stor,stort : Str) -> A ; + +--3 Two-place adjectives +-- +-- Two-place adjectives need a preposition for their second argument. + + mkA2 : A -> Preposition -> A2 ; + +-- Comparison adjectives may need as many as five forms. + + mkADeg : (stor,stort,store,storre,storst : Str) -> ADeg ; + +-- The regular pattern works for many adjectives, e.g. those ending +-- with "ig". + + regADeg : Str -> ADeg ; + +-- Just the comparison forms can be irregular. + + irregADeg : (tung,tyngre,tyngst : Str) -> ADeg ; + +-- Sometimes just the positive forms are irregular. + + mk3ADeg : (galen,galet,galna : Str) -> ADeg ; + mk2ADeg : (bred,bredt : Str) -> ADeg ; + +-- If comparison is formed by "mer, "mest", as in general for +-- long adjective, the following pattern is used: + + compoundADeg : A -> ADeg ; -- -/mer/mest norsk + +-- From a given $ADeg$, it is possible to get back to $A$. + + adegA : ADeg -> A ; + + +--2 Adverbs + +-- Adverbs are not inflected. Most lexical ones have position +-- after the verb. Some can be preverbal (e.g. "always"). + + mkAdv : Str -> Adv ; + mkAdV : Str -> AdV ; + +-- Adverbs modifying adjectives and sentences can also be formed. + + mkAdA : Str -> AdA ; + +--2 Prepositions +-- +-- A preposition is just a string. + + mkPreposition : Str -> Preposition ; + +--2 Verbs +-- +-- The worst case needs six forms. + + mkV : (spise,spiser,spises,spiste,spist,spis : Str) -> V ; + +-- The 'regular verb' function is the first conjugation. + + regV : (snakke : Str) -> V ; + +-- The almost regular verb function needs the infinitive and the preteritum. + + mk2V : (leve,levde : Str) -> V ; + +-- There is an extensive list of irregular verbs in the module $IrregularSwe$. +-- In practice, it is enough to give three forms, as in school books. + + irregV : (drikke, drakk, drukket : Str) -> V ; + + +--3 Verbs with a particle. +-- +-- The particle, such as in "switch on", is given as a string. + + partV : V -> Str -> V ; + +--3 Deponent verbs. +-- +-- Some words are used in passive forms only, e.g. "hoppas". + + depV : V -> V ; + +--3 Two-place verbs +-- +-- Two-place verbs need a preposition, except the special case with direct object. +-- (transitive verbs). Notice that a particle comes from the $V$. + + mkV2 : V -> Preposition -> V2 ; + + dirV2 : V -> V2 ; + +--3 Three-place verbs +-- +-- Three-place (ditransitive) verbs need two prepositions, of which +-- the first one or both can be absent. + + mkV3 : V -> Str -> Str -> V3 ; -- speak, with, about + dirV3 : V -> Str -> V3 ; -- give,_,to + dirdirV3 : V -> V3 ; -- give,_,_ + +--3 Other complement patterns +-- +-- Verbs and adjectives can take complements such as sentences, +-- questions, verb phrases, and adjectives. + + mkV0 : V -> V0 ; + mkVS : V -> VS ; + mkV2S : V -> Str -> V2S ; + mkVV : V -> VV ; + mkV2V : V -> Str -> Str -> V2V ; + mkVA : V -> VA ; + mkV2A : V -> Str -> V2A ; + mkVQ : V -> VQ ; + mkV2Q : V -> Str -> V2Q ; + + mkAS : A -> AS ; + mkA2S : A -> Str -> A2S ; + mkAV : A -> AV ; + mkA2V : A -> Str -> A2V ; + + +--2 Definitions of the paradigms +-- +-- The definitions should not bother the user of the API. So they are +-- hidden from the document. +--. + + Gender = SyntaxDan.NounGender ; + Number = TypesDan.Number ; + Case = TypesDan.Case ; + utrum = NUtr ; + neutrum = NNeutr ; + singular = Sg ; + plural = Pl ; + nominative = Nom ; + genitive = Gen ; + + mkN x y z u = let sb = mkSubstantive x y z u + in {s = \\n,b,c => sb.s ! SF n b c ; g = extNGen y ; lock_N = <>} ; + regN x g = case last x of { + "e" => case g of { + NUtr => mkN x (x + "n") (x + "r") (x + "rne") ; + NNeutr => mkN x (x + "t") (x + "r") (init x + "ene") + } ; + _ => case g of { + NUtr => mkN x (x + "en") (x + "er") (x + "rene") ; + NNeutr => mkN x (x + "et") (x + "") (x + "ene") + } + } ; + + mk2N x y = case last y of { + "n" => regN x utrum ; + _ => regN x neutrum + } ; + + + mkN2 = \n,p -> n ** {lock_N2 = <> ; s2 = p} ; + regN2 n g = mkN2 (regN n g) (mkPreposition "av") ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; s2 = p ; s3 = q} ; + + regPN n g = {s = \\c => mkCase n ! c ; g = g} ** {lock_PN = <>} ; + nounPN n = {s = n.s ! singular ! Indef ; g = n.g ; lock_PN = <>} ; + mkNP x y n g = + {s = table {PGen _ => x ; _ => y} ; g = genNoun g ; n = n ; p = P3 ; + lock_NP = <>} ; + + mkA a b c = extractPositive (mkAdjective a b c [] []) ** {lock_A = <>} ; + mk2A a b = mkA a b (a + "e") ; + regA a = extractPositive (regADeg a) ** {lock_A = <>} ; + + mkA2 a p = a ** {s2 = p ; lock_A2 = <>} ; + + mkADeg a b c d e = mkAdjective a b c d e ** {lock_ADeg = <>} ; + regADeg a = case Predef.dp 2 a of { +---- "ig" => aBillig a ; + "sk" => aRask a ; + _ => case last a of { + "t" => aAbstrakt a ; + _ => aRod a + }} ** {lock_ADeg = <>} ; + irregADeg a b c = mkAdjective a (a + "t") (a + "e") b c ** {lock_ADeg = <>} ; + mk3ADeg a b c = mkAdjective a b c (a + "ere") (a + "est") ** {lock_ADeg = <>} ; + mk2ADeg a b = mkAdjective a b (a + "e") (a + "ere") (a + "est") ** {lock_ADeg = <>} ; + + mkAdv x = ss x ** {lock_Adv = <>} ; + mkAdV x = ss x ** {lock_AdV = <>} ; + mkAdA x = ss x ** {lock_AdA = <>} ; + + mkPreposition p = p ; + + mkV a b c d e f = mkVerb a b c d e f ** {s1 = [] ; lock_V = <>} ; + + regV a = case last a of { + "e" => vHusk (init a) ; + _ => vBo a + } ** {s1 = [] ; lock_V = <>} ; + + mk2V a b = regVerb a b ** {s1 = [] ; lock_V = <>} ; + + irregV x y z = irregVerb x y z + ** {s1 = [] ; lock_V = <>} ; + + partV v p = {s = v.s ; s1 = p ; lock_V = <>} ; + depV v = deponentVerb v ** {lock_V = <>} ; + + mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; lock_V2 = <>} ; + dirV2 v = mkV2 v [] ; + + mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; s3 = q ; lock_V3 = <>} ; + dirV3 v p = mkV3 v [] p ; + dirdirV3 v = dirV3 v [] ; + + mkV0 v = v ** {lock_V0 = <>} ; + mkVS v = v ** {lock_VS = <>} ; + mkV2S v p = mkV2 v p ** {lock_V2S = <>} ; + mkVV v = v ** {isAux = False ; lock_VV = <>} ; + mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2V = <>} ; + mkVA v = v ** {lock_VA = <>} ; + mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; + mkVQ v = v ** {lock_VQ = <>} ; + mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; + + mkAS v = v ** {lock_AS = <>} ; + mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; + mkAV v = v ** {lock_AV = <>} ; + mkA2V v p = mkA2 v p ** {lock_A2V = <>} ; + +} ; diff --git a/lib/resource/danish/ResourceDan.gf b/lib/resource-0.9/danish/ResourceDan.gf similarity index 100% rename from lib/resource/danish/ResourceDan.gf rename to lib/resource-0.9/danish/ResourceDan.gf diff --git a/lib/resource/danish/RulesDan.gf b/lib/resource-0.9/danish/RulesDan.gf similarity index 100% rename from lib/resource/danish/RulesDan.gf rename to lib/resource-0.9/danish/RulesDan.gf diff --git a/lib/resource-0.9/danish/StructuralDan.gf b/lib/resource-0.9/danish/StructuralDan.gf new file mode 100644 index 000000000..c4c8e9ce2 --- /dev/null +++ b/lib/resource-0.9/danish/StructuralDan.gf @@ -0,0 +1,107 @@ +--# -path=.:../scandinavian:../abstract:../../prelude + +--1 The Top-Level Swedish Resource Grammar: Structural Words +-- +-- Aarne Ranta 2002 -- 2004 +-- +concrete StructuralDan of Structural = + CategoriesDan, NumeralsDan ** open Prelude, MorphoDan, SyntaxDan in { + + flags optimize=values ; + + lin + + UseNumeral i = { + s = \\g => table {Nom => i.s ! g ; Gen => i.s ! g ++ "s"} ; --- + n = i.n + } ; + + above_Prep = ss "ovenfor" ; + after_Prep = ss "efter" ; + by8agent_Prep = ss "af" ; + all8mass_Det = mkDeterminerSgGender2 "all" "alt" IndefP ; + all_NDet = mkDeterminerPl "alle" IndefP ; + almost_Adv = ss "næsten" ; + although_Subj = ss ["selv om"] ; + and_Conj = ss "og" ** {n = Pl} ; + because_Subj = ss ["fordi"] ; + before_Prep = ss "før" ; + behind_Prep = ss "bag" ; + between_Prep = ss "mellem" ; + both_AndConjD = sd2 "både" "og" ** {n = Pl} ; + by8means_Prep = ss "med" ; + can8know_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** + {s1 = [] ; isAux = True} ; + can_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** + {s1 = [] ; isAux = True} ; + during_Prep = ss "under" ; + either8or_ConjD = sd2 "enten" "eller" ** {n = Sg} ; + everybody_NP = let alla = table {Nom => "alle" ; Gen => "alles"} in + {s = \\c => alla ! npCase c ; g = Utr ; n = Pl ; p = P3} ; + every_Det = varjeDet ; + everything_NP = nameNounPhrase (mkProperName "alt" NNeutr) ; + everywhere_Adv = advPost "overalt" ; + from_Prep = ss "fra" ; + he_NP = pronNounPhrase han_34 ; + how_IAdv = ss "hvor" ; + how8many_IDet = mkDeterminerPl ["hvor mange"] IndefP ; + if_Subj = ss "hvis" ; + in8front_Prep = ss "fremfor" ; ---- ? + i_NP = pronNounPhrase jag_32 ; + in_Prep = ss "i" ; + it_NP = pronNounPhrase det_40 ; ---- + many_Det = mkDeterminerPl "mange" IndefP ; + most_Det = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ; + most8many_Det = flestaDet ; + much_Det = mkDeterminerSg (detSgInvar "meget") IndefP ; + must_VV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "må" ** + {s1 = [] ; isAux = True} ; ---- ? + on_Prep = ss "på" ; + or_Conj = ss "eller" ** {n = Sg} ; + otherwise_Adv = ss "anderledes" ; ---- ? + part_Prep = ss "af" ; + no_Phr = ss ["Nej ."] ; + yes_Phr = ss ["Ja ."] ; + possess_Prep = ss "af" ; + quite_Adv = ss "temmelig" ; + she_NP = pronNounPhrase hon_35 ; + so_Adv = ss "så" ; + somebody_NP = nameNounPhrase (mkProperName "nogen" NUtr) ; + some_Det = mkDeterminerSgGender2 "nogen" "noget" IndefP ; + some_NDet = mkDeterminerPlNum "nogle" IndefP ; + something_NP = nameNounPhrase (mkProperName "noget" NNeutr) ; + somewhere_Adv = advPost ["et eller andet sted"] ; ---- ? + that_Det = mkDeterminerSgGender2 ["den der"] ["det der"] (DefP Indef) ; + that_NP = regNameNounPhrase ["det der"] NNeutr ; + therefore_Adv = ss "derfor" ; + these_NDet = mkDeterminerPlNum ["de her"] (DefP Indef) ; + they8fem_NP = pronNounPhrase de_38 ; + they_NP = pronNounPhrase de_38 ; + this_Det = mkDeterminerSgGender2 ["den her"] ["det her"] (DefP Indef) ; + this_NP = regNameNounPhrase ["det her"] NNeutr ; + those_NDet = mkDeterminerPlNum ["de der"] (DefP Indef) ; + thou_NP = pronNounPhrase du_33 ; + through_Prep = ss "igennem" ; + too_Adv = ss "for" ; ---- ? + to_Prep = ss "til" ; + under_Prep = ss "under" ; + very_Adv = ss "meget" ; + want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" nonExist ** + {s1 = [] ; isAux = True} ; --- + we_NP = pronNounPhrase (vi_36) ; + what8many_IP = intPronWhat plural ; + what8one_IP = intPronWhat singular ; + when_IAdv = ss "hvornår" ; + when_Subj = ss "når" ; + where_IAdv = ss "hver" ; + which8one_IDet = vilkenDet ; + which8many_IDet = mkDeterminerPl "hvilke" IndefP ; + who8many_IP = intPronWho plural ; + who8one_IP = intPronWho singular ; + why_IAdv = ss "hvorfor" ; + without_Prep = ss "uden" ; + with_Prep = ss "med" ; + ye_NP = pronNounPhrase (ni_37) ; + you_NP = pronNounPhrase De_38 ; + +} diff --git a/lib/resource/danish/SyntaxDan.gf b/lib/resource-0.9/danish/SyntaxDan.gf similarity index 100% rename from lib/resource/danish/SyntaxDan.gf rename to lib/resource-0.9/danish/SyntaxDan.gf diff --git a/lib/resource/danish/TimeDan.gf b/lib/resource-0.9/danish/TimeDan.gf similarity index 100% rename from lib/resource/danish/TimeDan.gf rename to lib/resource-0.9/danish/TimeDan.gf diff --git a/lib/resource/danish/TypesDan.gf b/lib/resource-0.9/danish/TypesDan.gf similarity index 100% rename from lib/resource/danish/TypesDan.gf rename to lib/resource-0.9/danish/TypesDan.gf diff --git a/lib/resource/danish/VerbphraseDan.gf b/lib/resource-0.9/danish/VerbphraseDan.gf similarity index 100% rename from lib/resource/danish/VerbphraseDan.gf rename to lib/resource-0.9/danish/VerbphraseDan.gf diff --git a/lib/resource/danish/VerbsDan.gf b/lib/resource-0.9/danish/VerbsDan.gf similarity index 100% rename from lib/resource/danish/VerbsDan.gf rename to lib/resource-0.9/danish/VerbsDan.gf diff --git a/lib/resource/danish/VerbsDanAbs.gf b/lib/resource-0.9/danish/VerbsDanAbs.gf similarity index 100% rename from lib/resource/danish/VerbsDanAbs.gf rename to lib/resource-0.9/danish/VerbsDanAbs.gf diff --git a/lib/resource-0.9/doc/Makefile b/lib/resource-0.9/doc/Makefile new file mode 100644 index 000000000..36c699f19 --- /dev/null +++ b/lib/resource-0.9/doc/Makefile @@ -0,0 +1,56 @@ +all: gfdoc htmls gifs + +htmls: + htmls gf-resource.html + +gfdoc: + gfdoc ../abstract/Categories.gf ; mv ../abstract/Categories.html . + gfdoc ../abstract/Rules.gf ; mv ../abstract/Rules.html . + gfdoc ../abstract/Verbphrase.gf ; mv ../abstract/Verbphrase.html . + gfdoc ../abstract/Clause.gf ; mv ../abstract/Clause.html . + gfdoc ../abstract/Structural.gf ; mv ../abstract/Structural.html . + gfdoc ../abstract/Basic.gf ; mv ../abstract/Basic.html . + gfdoc ../abstract/Time.gf ; mv ../abstract/Time.html . + gfdoc ../abstract/Lang.gf ; mv ../abstract/Lang.html . + gfdoc ../swedish/ParadigmsSwe.gf ; mv ../swedish/ParadigmsSwe.html . + gfdoc ../swedish/VerbsSwe.gf ; mv ../swedish/VerbsSwe.html . + gfdoc ../swedish/BasicSwe.gf ; mv ../swedish/BasicSwe.html . + gfdoc ../english/ParadigmsEng.gf ; mv ../english/ParadigmsEng.html . + gfdoc ../english/VerbsEng.gf ; mv ../english/VerbsEng.html . + gfdoc ../english/BasicEng.gf ; mv ../english/BasicEng.html . + gfdoc ../french/ParadigmsFre.gf ; mv ../french/ParadigmsFre.html . + gfdoc ../french/VerbsFre.gf ; mv ../french/VerbsFre.html . + gfdoc ../french/BasicFre.gf ; mv ../french/BasicFre.html . + + gfdoc ../norwegian/ParadigmsNor.gf ; mv ../norwegian/ParadigmsNor.html . + gfdoc ../norwegian/VerbsNor.gf ; mv ../norwegian/VerbsNor.html . + gfdoc ../norwegian/BasicNor.gf ; mv ../norwegian/BasicNor.html . + + gfdoc ../finnish/ParadigmsFin.gf ; mv ../finnish/ParadigmsFin.html . + gfdoc ../finnish/BasicFin.gf ; mv ../finnish/BasicFin.html . + + gfdoc ../italian/ParadigmsIta.gf ; mv ../italian/ParadigmsIta.html . + gfdoc ../italian/BasicIta.gf ; mv ../italian/BasicIta.html . + gfdoc ../italian/BeschIta.gf ; mv ../italian/BeschIta.html . + + gfdoc ../spanish/ParadigmsSpa.gf ; mv ../spanish/ParadigmsSpa.html . + gfdoc ../spanish/BasicSpa.gf ; mv ../spanish/BasicSpa.html . + gfdoc ../spanish/BeschSpa.gf ; mv ../spanish/BeschSpa.html . + +gifs: api lang scand low + +api: +# echo "pm -printer=graph | wf Resource.dot" | gf ../abstract/Resource.gf + dot -Tgif ResourceVP.dot>Resource.gif + +lang: + echo "pm -printer=graph | wf Lang.dot" | gf ../abstract/Lang.gf + dot -Tgif Lang.dot>Lang.gif + +low: + echo "pm -printer=graph | wf Low.dot" | gf ../english/RulesEng.gf + dot -Tgif Low.dot >Low.gif + +scand: + echo "pm -printer=graph | wf Scand.dot" | gf ../swedish/RulesSwe.gf + dot -Tgif Scand.dot >Scand.gif diff --git a/lib/resource/doc/Resource.dot b/lib/resource-0.9/doc/Resource.dot similarity index 100% rename from lib/resource/doc/Resource.dot rename to lib/resource-0.9/doc/Resource.dot diff --git a/lib/resource/doc/ResourceVP.dot b/lib/resource-0.9/doc/ResourceVP.dot similarity index 100% rename from lib/resource/doc/ResourceVP.dot rename to lib/resource-0.9/doc/ResourceVP.dot diff --git a/lib/resource/doc/ScanMod.dot b/lib/resource-0.9/doc/ScanMod.dot similarity index 100% rename from lib/resource/doc/ScanMod.dot rename to lib/resource-0.9/doc/ScanMod.dot diff --git a/lib/resource/doc/ScanMod.gif b/lib/resource-0.9/doc/ScanMod.gif similarity index 100% rename from lib/resource/doc/ScanMod.gif rename to lib/resource-0.9/doc/ScanMod.gif diff --git a/lib/resource/doc/example/Animals.gf b/lib/resource-0.9/doc/example/Animals.gf similarity index 100% rename from lib/resource/doc/example/Animals.gf rename to lib/resource-0.9/doc/example/Animals.gf diff --git a/lib/resource/doc/example/AnimalsEng.gf b/lib/resource-0.9/doc/example/AnimalsEng.gf similarity index 100% rename from lib/resource/doc/example/AnimalsEng.gf rename to lib/resource-0.9/doc/example/AnimalsEng.gf diff --git a/lib/resource/doc/example/AnimalsFre.gf b/lib/resource-0.9/doc/example/AnimalsFre.gf similarity index 100% rename from lib/resource/doc/example/AnimalsFre.gf rename to lib/resource-0.9/doc/example/AnimalsFre.gf diff --git a/lib/resource/doc/example/AnimalsSwe.gf b/lib/resource-0.9/doc/example/AnimalsSwe.gf similarity index 100% rename from lib/resource/doc/example/AnimalsSwe.gf rename to lib/resource-0.9/doc/example/AnimalsSwe.gf diff --git a/lib/resource/doc/example/HandQuestionsI.gf b/lib/resource-0.9/doc/example/HandQuestionsI.gf similarity index 100% rename from lib/resource/doc/example/HandQuestionsI.gf rename to lib/resource-0.9/doc/example/HandQuestionsI.gf diff --git a/lib/resource/doc/example/Questions.gf b/lib/resource-0.9/doc/example/Questions.gf similarity index 100% rename from lib/resource/doc/example/Questions.gf rename to lib/resource-0.9/doc/example/Questions.gf diff --git a/lib/resource/doc/example/QuestionsEng.gf b/lib/resource-0.9/doc/example/QuestionsEng.gf similarity index 100% rename from lib/resource/doc/example/QuestionsEng.gf rename to lib/resource-0.9/doc/example/QuestionsEng.gf diff --git a/lib/resource/doc/example/QuestionsFre.gf b/lib/resource-0.9/doc/example/QuestionsFre.gf similarity index 100% rename from lib/resource/doc/example/QuestionsFre.gf rename to lib/resource-0.9/doc/example/QuestionsFre.gf diff --git a/lib/resource/doc/example/QuestionsI.gf b/lib/resource-0.9/doc/example/QuestionsI.gf similarity index 100% rename from lib/resource/doc/example/QuestionsI.gf rename to lib/resource-0.9/doc/example/QuestionsI.gf diff --git a/lib/resource/doc/example/QuestionsI.gfe b/lib/resource-0.9/doc/example/QuestionsI.gfe similarity index 100% rename from lib/resource/doc/example/QuestionsI.gfe rename to lib/resource-0.9/doc/example/QuestionsI.gfe diff --git a/lib/resource/doc/example/QuestionsSwe.gf b/lib/resource-0.9/doc/example/QuestionsSwe.gf similarity index 100% rename from lib/resource/doc/example/QuestionsSwe.gf rename to lib/resource-0.9/doc/example/QuestionsSwe.gf diff --git a/lib/resource/doc/example/mkAnimals.gfs b/lib/resource-0.9/doc/example/mkAnimals.gfs similarity index 100% rename from lib/resource/doc/example/mkAnimals.gfs rename to lib/resource-0.9/doc/example/mkAnimals.gfs diff --git a/lib/resource/doc/gf-logo.gif b/lib/resource-0.9/doc/gf-logo.gif similarity index 100% rename from lib/resource/doc/gf-logo.gif rename to lib/resource-0.9/doc/gf-logo.gif diff --git a/lib/resource/doc/gf-resource.html b/lib/resource-0.9/doc/gf-resource.html similarity index 100% rename from lib/resource/doc/gf-resource.html rename to lib/resource-0.9/doc/gf-resource.html diff --git a/lib/resource/doc/spraakdata2005.html b/lib/resource-0.9/doc/spraakdata2005.html similarity index 100% rename from lib/resource/doc/spraakdata2005.html rename to lib/resource-0.9/doc/spraakdata2005.html diff --git a/lib/resource/english/BasicEng.gf b/lib/resource-0.9/english/BasicEng.gf similarity index 100% rename from lib/resource/english/BasicEng.gf rename to lib/resource-0.9/english/BasicEng.gf diff --git a/lib/resource/english/CategoriesEng.gf b/lib/resource-0.9/english/CategoriesEng.gf similarity index 100% rename from lib/resource/english/CategoriesEng.gf rename to lib/resource-0.9/english/CategoriesEng.gf diff --git a/lib/resource/english/ClauseEng.gf b/lib/resource-0.9/english/ClauseEng.gf similarity index 100% rename from lib/resource/english/ClauseEng.gf rename to lib/resource-0.9/english/ClauseEng.gf diff --git a/lib/resource/english/ClauseEngVP.gf b/lib/resource-0.9/english/ClauseEngVP.gf similarity index 100% rename from lib/resource/english/ClauseEngVP.gf rename to lib/resource-0.9/english/ClauseEngVP.gf diff --git a/lib/resource/english/CountryEng.gf b/lib/resource-0.9/english/CountryEng.gf similarity index 100% rename from lib/resource/english/CountryEng.gf rename to lib/resource-0.9/english/CountryEng.gf diff --git a/lib/resource/english/DemResEng.gf b/lib/resource-0.9/english/DemResEng.gf similarity index 100% rename from lib/resource/english/DemResEng.gf rename to lib/resource-0.9/english/DemResEng.gf diff --git a/lib/resource/english/DemonstrativeEng.gf b/lib/resource-0.9/english/DemonstrativeEng.gf similarity index 100% rename from lib/resource/english/DemonstrativeEng.gf rename to lib/resource-0.9/english/DemonstrativeEng.gf diff --git a/lib/resource/english/DeptypEng.gf b/lib/resource-0.9/english/DeptypEng.gf similarity index 100% rename from lib/resource/english/DeptypEng.gf rename to lib/resource-0.9/english/DeptypEng.gf diff --git a/lib/resource-0.9/english/LangEng.gf b/lib/resource-0.9/english/LangEng.gf new file mode 100644 index 000000000..9fcb86d92 --- /dev/null +++ b/lib/resource-0.9/english/LangEng.gf @@ -0,0 +1,26 @@ +--# -path=.:../abstract:../../prelude + +-- # -path=.:resource/english:resource/abstract:prelude + +concrete LangEng of Lang = + RulesEng, + ClauseEng, + StructuralEng, + BasicEng, + TimeEng, + CountryEng, + MathEng + + ** open Prelude, ParadigmsEng in { + +lin + AdvDate d = prefixSS "on" d ; + AdvTime t = prefixSS "at" t ; + NWeekday w = w ; + PNWeekday w = nounPN w ; + + PNCountry x = x ; + ANationality x = x ; + NLanguage x = x ; + +} \ No newline at end of file diff --git a/lib/resource/english/LangVPEng.gf b/lib/resource-0.9/english/LangVPEng.gf similarity index 100% rename from lib/resource/english/LangVPEng.gf rename to lib/resource-0.9/english/LangVPEng.gf diff --git a/lib/resource/english/MathEng.gf b/lib/resource-0.9/english/MathEng.gf similarity index 100% rename from lib/resource/english/MathEng.gf rename to lib/resource-0.9/english/MathEng.gf diff --git a/lib/resource/english/MinimalEng.gf b/lib/resource-0.9/english/MinimalEng.gf similarity index 100% rename from lib/resource/english/MinimalEng.gf rename to lib/resource-0.9/english/MinimalEng.gf diff --git a/lib/resource/english/MkVerbs.hs b/lib/resource-0.9/english/MkVerbs.hs similarity index 100% rename from lib/resource/english/MkVerbs.hs rename to lib/resource-0.9/english/MkVerbs.hs diff --git a/lib/resource-0.9/english/MorphoEng.gf b/lib/resource-0.9/english/MorphoEng.gf new file mode 100644 index 000000000..c87558618 --- /dev/null +++ b/lib/resource-0.9/english/MorphoEng.gf @@ -0,0 +1,341 @@ +--# -path=.:../../prelude + +--1 A Simple English Resource Morphology +-- +-- Aarne Ranta 2002 +-- +-- This resource morphology contains definitions needed in the resource +-- syntax. It moreover contains the most usual inflectional patterns. +-- +-- We use the parameter types and word classes defined in $Types.gf$. + +resource MorphoEng = TypesEng ** open Prelude, (Predef=Predef) in { + +--2 Phonology +-- +-- To regulate the use of endings for both nouns, adjectives, and verbs: + +oper + y2ie : Str -> Str -> Str = \fly,s -> + let y = last (init fly) in + case y of { + "a" => fly + s ; + "e" => fly + s ; + "o" => fly + s ; + "u" => fly + s ; + _ => init fly + "ie" + s + } ; + + + +--2 Nouns +-- +-- For conciseness and abstraction, we define a worst-case macro for +-- noun inflection. It is used for defining special case that +-- only need one string as argument. + +oper + mkNoun : (_,_,_,_ : Str) -> CommonNoun = + \man,men, mans, mens -> {s = table { + Sg => table {Nom => man ; Gen => mans} ; + Pl => table {Nom => men ; Gen => mens} + }} ; + + nounReg : Str -> CommonNoun = \dog -> + mkNoun dog (dog + "s") (dog + "'s") (dog + "s'"); + + nounS : Str -> CommonNoun = \kiss -> + mkNoun kiss (kiss + "es") (kiss + "'s") (kiss + "es'") ; + + nounY : Str -> CommonNoun = \fl -> + mkNoun (fl + "y") (fl + "ies") (fl + "y's") (fl + "ies'") ; + + nounGen : Str -> CommonNoun = \dog -> case last dog of { + "y" => nounY "dog" ; + "s" => nounS (init "dog") ; + _ => nounReg "dog" + } ; + +--3 Proper names +-- +-- Regular proper names are inflected with "'s" in the genitive. + + nameReg : Str -> Gender -> ProperName = \john,g -> + {s = table {Nom => john ; Gen => john + "'s"} ; g = g} ; + + +--2 Pronouns +-- +-- Here we define personal and relative pronouns. + + mkPronoun : (_,_,_,_ : Str) -> Number -> Person -> Gender -> Pronoun = + \I,me,my,mine,n,p,g -> + {s = table {NomP => I ; AccP => me ; GenP => my ; GenSP => mine} ; + n = n ; p = p ; g = g} ; + + human : Gender = Masc ; --- doesn't matter + + pronI = mkPronoun "I" "me" "my" "mine" Sg P1 human ; + pronYouSg = mkPronoun "you" "you" "your" "yours" Sg P2 human ; -- verb form still OK + pronHe = mkPronoun "he" "him" "his" "his" Sg P3 Masc ; + pronShe = mkPronoun "she" "her" "her" "hers" Sg P3 Fem ; + pronIt = mkPronoun "it" "it" "its" "it" Sg P3 Neutr ; + + pronWe = mkPronoun "we" "us" "our" "ours" Pl P1 human ; + pronYouPl = mkPronoun "you" "you" "your" "yours" Pl P2 human ; + pronThey = mkPronoun "they" "them" "their" "theirs" Pl P3 human ; --- + +-- Relative pronouns in the accusative have the 'no pronoun' variant. +-- The simple pronouns do not really depend on number. + + relPron : RelPron = {s = table { + Neutr => \\_ => table { + NomP => variants {"that" ; "which"} ; + AccP => variants {"that" ; "which" ; []} ; + GenP => variants {"whose"} ; + GenSP => variants {"which"} + } ; + _ => \\_ => table { + NomP => variants {"that" ; "who"} ; + AccP => variants {"that" ; "who" ; "whom" ; []} ; + GenP => variants {"whose"} ; + GenSP => variants {"whom"} + } + } + } ; + + +--3 Determiners +-- +-- We have just a heuristic definition of the indefinite article. +-- There are lots of exceptions: consonantic "e" ("euphemism"), consonantic +-- "o" ("one-sided"), vocalic "u" ("umbrella"). + + artIndef = pre {"a" ; + "an" / strs {"a" ; "e" ; "i" ; "o" ; "A" ; "E" ; "I" ; "O" }} ; + + artDef = "the" ; + +--2 Adjectives +-- +-- To form the adjectival and the adverbial forms, two strings are needed +-- in the worst case. + + mkAdjective : Str -> Str -> Adjective = \free,freely -> { + s = table { + AAdj => free ; + AAdv => freely + } + } ; + +-- However, the ending "iy" is sufficient for most cases. This function +-- automatically changes the word-final "y" to "i" ("happy" - "happily"). +-- N.B. this is not correct for "shy", but $mkAdjective$ has to be used. + + regAdjective : Str -> Adjective = \free -> + let + y = Predef.dp 1 free + in mkAdjective + free + (ifTok Str y "y" (Predef.tk 1 free + ("ily")) (free + "ly")) ; + +-- For the comparison of adjectives, six forms are needed to cover all cases. +-- But there is no adjective that actually needs all these. + + mkAdjDegrWorst : (_,_,_,_,_,_ : Str) -> AdjDegr = + \good,well,better,betterly,best,bestly -> + {s = table { + Pos => (mkAdjective good well).s ; + Comp => (mkAdjective better betterly).s ; + Sup => (mkAdjective best bestly).s + } + } ; + +-- What is usually needed for irregular comparisons are just three forms, +-- since the adverbial form is the same (in comparative or superlative) +-- or formed in the regular way (positive). + + adjDegrIrreg : (_,_,_ : Str) -> AdjDegr = \bad,worse,worst -> + let badly = (regAdjective bad).s ! AAdv + in mkAdjDegrWorst bad badly worse worse worst worst ; + +-- Like above, the regular formation takes account of final "y". + + adjDegrReg : Str -> AdjDegr = \happy -> + let happi = ifTok Str (Predef.dp 1 happy) "y" (Predef.tk 1 happy + "i") happy + in adjDegrIrreg happy (happi + "er") (happi + "est") ; + +-- Many adjectives are 'inflected' by adding a comparison word. + + adjDegrLong : Str -> AdjDegr = \ridiculous -> + adjDegrIrreg ridiculous ("more" ++ ridiculous) ("most" ++ ridiculous) ; + + +--3 Verbs +-- +-- Except for "be", the worst case needs four forms. + + mkVerbP3worst : (_,_,_,_,_: Str) -> VerbP3 = \go,goes,went,gone,going -> + {s = table { + InfImp => go ; + Indic Sg => goes ; + Indic _ => go ; + Pastt => went ; + PPart => gone ; + PresPart => going + } + } ; + + mkVerbP3 : (_,_,_,_: Str) -> VerbP3 = \go,goes,went,gone -> + let going = case last go of { + "e" => init go + "ing" ; + _ => go + "ing" + } + in + mkVerbP3worst go goes went gone going ; + +-- This is what we use to derive the irregular forms in almost all cases + + mkVerbIrreg : (_,_,_ : Str) -> VerbP3 = \bite,bit,bitten -> + let bites = case last bite of { + "y" => y2ie bite "s" ; + "s" => init bite + "es" ; + _ => bite + "s" + } + in mkVerbP3 bite bites bit bitten ; + +-- This is used to derive regular forms. + + mkVerbReg : Str -> VerbP3 = \soak -> + let + soaks = case last soak of { + "y" => y2ie soak "s" ; + "s" => init soak + "es" ; + _ => soak + "s" + } ; + soaked = case last soak of { + "e" => init soak + "s" ; + _ => soak + "ed" + } + in + mkVerbP3 soak soaks soaked soaked ; + + mkVerb : (_,_,_ : Str) -> VerbP3 = \ring,rang,rung -> + mkVerbP3 ring (ring + "s") rang rung ; + + regVerbP3 : Str -> VerbP3 = \walk -> + mkVerb walk (walk + "ed") (walk + "ed") ; + + verbP3s : Str -> VerbP3 = \kiss -> + mkVerbP3 kiss (kiss + "es") (kiss + "ed") (kiss + "ed") ; + + verbP3e : Str -> VerbP3 = \love -> + mkVerbP3 love (love + "s") (love + "d") (love + "d") ; + + verbP3y : Str -> VerbP3 = \cr -> + mkVerbP3 (cr + "y") (cr + "ies") (cr + "ied") (cr + "ied") ; + + verbGen : Str -> VerbP3 = \kill -> case last kill of { + "y" => verbP3y (init kill) ; + "e" => verbP3y (init kill) ; + "s" => verbP3s (init kill) ; + _ => regVerbP3 kill + } ; + + verbP3Have = mkVerbP3 "have" "has" "had" "had" ; + + verbP3Do = mkVerbP3 "do" "does" "did" "done" ; + + auxVerbBe : AuxVerb = {s = table { + AInfImp => "be" ; + AIndic P1 b => if_then_Str b "am" ["am not"] ; + AIndic P2 b => negAux b "are" ; + AIndic P3 b => negAux b "is" ; + APastt Sg b => negAux b "was" ; + APastt Pl b => negAux b "were" ; + APPart => "been" ; + APresPart => "being" + } + } ; + +-- The negative forms are not used; +--- the particle $want.s1$ disappears - is it ever needed? + + verb2aux : Verb -> AuxVerb = \want -> {s = table { + AInfImp => want.s ! InfImp ; + AIndic P3 b => want.s ! Indic Sg ; + AIndic _ b => want.s ! Indic Pl ; + APastt _ b => want.s ! Pastt ; + APPart => want.s ! PPart ; + APresPart => want.s ! PresPart + } + } ; + + aux2verb : AuxVerb -> Verb = \want -> {s = table { + InfImp => want.s ! AInfImp ; + Indic Sg => want.s ! AIndic P3 True ; + Indic _ => want.s ! AIndic P2 True ; + Pastt => want.s ! APastt Pl True ; + PPart => want.s ! APPart ; + PresPart => want.s ! APresPart + } ; + s1 = [] + } ; + +-- The three most important example auxiliaries. + + mkVerbAux : (_,_,_,_: Str) -> AuxVerb = \beable, can, could, beenable -> + {s = table { + AInfImp => beable ; + AIndic _ b => negAux b can ; + APastt _ b => negAux b could ; + APPart => beenable ; + APrepPart => nonExist ---- fix! + } ; + } ; + + + verbPart : VerbP3 -> Particle -> Verb = \v,p -> + v ** {s1 = p} ; + + verbNoPart : VerbP3 -> Verb = \v -> verbPart v [] ; + + negAux : Bool -> Str -> Str = \b,is -> if_then_Str b is (is + "n't") ; + +-- The optional negation contraction is a useful macro e.g. for "do". + + contractNot : Str -> Str = \is -> variants {is ++ "not" ; is + "n't"} ; + + dont = contractNot (verbP3Do.s ! InfImp) ; + +-- From $numerals$. + +param + DForm = unit | teen | ten ; + CardOrd = NCard | NOrd ; + +oper + mkNum : Str -> Str -> Str -> Str -> {s : DForm => CardOrd => Str} = + \two -> \twelve -> \twenty -> \second -> + {s = table { + unit => table {NCard => two ; NOrd => second} ; + teen => \\c => mkCard c twelve ; + ten => \\c => mkCard c twenty + } + } ; + + regNum : Str -> {s : DForm => CardOrd => Str} = + \six -> mkNum six (six + "teen") (six + "ty") (regOrd six) ; + + regCardOrd : Str -> {s : CardOrd => Str} = \ten -> + {s = table {NCard => ten ; NOrd => regOrd ten}} ; + + mkCard : CardOrd -> Str -> Str = \c,ten -> (regCardOrd ten).s ! c ; + + regOrd : Str -> Str = \ten -> case last ten of { + "y" => init ten + "ieth" ; + _ => ten + "th" + } ; + +} ; + diff --git a/lib/resource/english/MultimodalEng.gf b/lib/resource-0.9/english/MultimodalEng.gf similarity index 100% rename from lib/resource/english/MultimodalEng.gf rename to lib/resource-0.9/english/MultimodalEng.gf diff --git a/lib/resource/english/NumeralsEng.gf b/lib/resource-0.9/english/NumeralsEng.gf similarity index 100% rename from lib/resource/english/NumeralsEng.gf rename to lib/resource-0.9/english/NumeralsEng.gf diff --git a/lib/resource/english/OldParadigmsEng.gf b/lib/resource-0.9/english/OldParadigmsEng.gf similarity index 100% rename from lib/resource/english/OldParadigmsEng.gf rename to lib/resource-0.9/english/OldParadigmsEng.gf diff --git a/lib/resource-1.0/english/ParadigmsEng.gf b/lib/resource-0.9/english/ParadigmsEng.gf similarity index 67% rename from lib/resource-1.0/english/ParadigmsEng.gf rename to lib/resource-0.9/english/ParadigmsEng.gf index d03c3e2b9..aff5b0a47 100644 --- a/lib/resource-1.0/english/ParadigmsEng.gf +++ b/lib/resource-0.9/english/ParadigmsEng.gf @@ -1,10 +1,10 @@ ---# -path=.:../abstract:../../prelude:../common +--# -path=.:../abstract:../../prelude --1 English Lexical Paradigms -- --- Aarne Ranta 2003--2005 +-- Aarne Ranta 2003 -- --- This is an API for the user of the resource grammar +-- This is an API to the user of the resource grammar -- for adding lexical items. It gives functions for forming -- expressions of open categories: nouns, adjectives, verbs. -- @@ -21,15 +21,13 @@ -- regular cases. Then we give a worst-case function $mkC$, which serves as an -- escape to construct the most irregular words of type $C$. -- However, this function should only seldom be needed: we have a --- separate module [``IrregEng`` ../../english/IrregEng.gf], --- which covers irregular verbss. +-- separate module $IrregularEng$, which covers all irregularly inflected +-- words. +-- +-- The following modules are presupposed: -resource ParadigmsEng = open - (Predef=Predef), - Prelude, - MorphoEng, - CatEng - in { +resource ParadigmsEng = open (Predef=Predef), Prelude, SyntaxEng, + CategoriesEng, RulesEng in { --2 Parameters -- -- To abstract over gender names, we define the following identifiers. @@ -40,6 +38,7 @@ oper human : Gender ; nonhuman : Gender ; masculine : Gender ; + feminite : Gender ; -- To abstract over number names, we define the following. @@ -56,13 +55,13 @@ oper genitive : Case ; -- Prepositions are used in many-argument functions for rection. --- The resource category $Prep$ is used. + Preposition : Type ; --2 Nouns --- Worst case: give all four forms. +-- Worst case: give all four forms and the semantic gender. mkN : (man,men,man's,men's : Str) -> N ; @@ -84,29 +83,27 @@ oper --3 Compound nouns -- --- A compound noun ia an uninflected string attached to an inflected noun, --- such as "baby boom", "chief executive officer". - - compoundN : Str -> N -> N ; +-- All the functions above work quite as well to form compound nouns, +-- such as "baby boom". --3 Relational nouns -- -- Relational nouns ("daughter of x") need a preposition. - mkN2 : N -> Prep -> N2 ; + mkN2 : N -> Preposition -> N2 ; -- The most common preposition is "of", and the following is a --- shortcut for regular relational nouns with "of". +-- shortcut for regular, $nonhuman$ relational nouns with "of". regN2 : Str -> N2 ; --- Use the function $mkPrep$ or see the section on prepositions below to +-- Use the function $mkPreposition$ or see the section on prepositions below to -- form other prepositions. -- -- Three-place relational nouns ("the connection from x to y") need two prepositions. - mkN3 : N -> Prep -> Prep -> N3 ; + mkN3 : N -> Preposition -> Preposition -> N3 ; --3 Relational common noun phrases @@ -114,16 +111,15 @@ oper -- In some cases, you may want to make a complex $CN$ into a -- relational noun (e.g. "the old town hall of"). - cnN2 : CN -> Prep -> N2 ; - cnN3 : CN -> Prep -> Prep -> N3 ; + cnN2 : CN -> Preposition -> N2 ; + cnN3 : CN -> Preposition -> Preposition -> N3 ; -- --3 Proper names and noun phrases -- -- Proper names, with a regular genitive, are formed as follows - regPN : Str -> PN ; - regGenPN : Str -> Gender -> PN ; -- John, John's + regPN : Str -> Gender -> PN ; -- John, John's -- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". @@ -150,12 +146,10 @@ oper -- -- Two-place adjectives need a preposition for their second argument. - mkA2 : A -> Prep -> A2 ; + mkA2 : A -> Preposition -> A2 ; -- Comparison adjectives may two more forms. - ADeg : Type ; - mkADeg : (good,better,best,well : Str) -> ADeg ; -- The regular pattern recognizes two common variations: @@ -169,7 +163,7 @@ oper duplADeg : Str -> ADeg ; -- fat, fatter, fattest --- If comparison is formed by "more", "most", as in general for +-- If comparison is formed by "more, "most", as in general for -- long adjective, the following pattern is used: compoundADeg : A -> ADeg ; -- -/more/most ridiculous @@ -196,8 +190,8 @@ oper -- A preposition as used for rection in the lexicon, as well as to -- build $PP$s in the resource API, just requires a string. - mkPrep : Str -> Prep ; - noPrep : Prep ; + mkPreposition : Str -> Preposition ; + mkPrep : Str -> Prep ; -- (These two functions are synonyms.) @@ -235,18 +229,12 @@ oper partV : V -> Str -> V ; ---3 Reflexive verbs --- --- By default, verbs are not reflexive; this function makes them that. - - reflV : V -> V ; - --3 Two-place verbs -- -- Two-place verbs need a preposition, except the special case with direct object. -- (transitive verbs). Notice that a particle comes from the $V$. - mkV2 : V -> Prep -> V2 ; + mkV2 : V -> Preposition -> V2 ; dirV2 : V -> V2 ; @@ -255,9 +243,9 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Prep -> Prep -> V3 ; -- speak, with, about - dirV3 : V -> Prep -> V3 ; -- give,_,to - dirdirV3 : V -> V3 ; -- give,_,_ + mkV3 : V -> Str -> Str -> V3 ; -- speak, with, about + dirV3 : V -> Str -> V3 ; -- give,_,to + dirdirV3 : V -> V3 ; -- give,_,_ --3 Other complement patterns -- @@ -266,36 +254,29 @@ oper mkV0 : V -> V0 ; mkVS : V -> VS ; - mkV2S : V -> Prep -> V2S ; + mkV2S : V -> Str -> V2S ; mkVV : V -> VV ; - mkV2V : V -> Prep -> Prep -> V2V ; + mkV2V : V -> Str -> Str -> V2V ; mkVA : V -> VA ; - mkV2A : V -> Prep -> V2A ; + mkV2A : V -> Str -> V2A ; mkVQ : V -> VQ ; - mkV2Q : V -> Prep -> V2Q ; + mkV2Q : V -> Str -> V2Q ; mkAS : A -> AS ; - mkA2S : A -> Prep -> A2S ; + mkA2S : A -> Str -> A2S ; mkAV : A -> AV ; - mkA2V : A -> Prep -> A2V ; + mkA2V : A -> Str -> A2V ; --- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated --- just as synonyms of $V2$, and the second argument is given --- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. --- $V0$ is just $V$. - V0, V2S, V2V, V2A, V2Q : Type ; - AS, A2S, AV, A2V : Type ; - ---. --2 Definitions of paradigms -- -- The definitions should not bother the user of the API. So they are -- hidden from the document. +--. - Gender = MorphoEng.Gender ; - Number = MorphoEng.Number ; - Case = MorphoEng.Case ; + Gender = SyntaxEng.Gender ; + Number = SyntaxEng.Number ; + Case = SyntaxEng.Case ; human = Masc ; nonhuman = Neutr ; masculine = Masc ; @@ -305,7 +286,7 @@ oper nominative = Nom ; genitive = Gen ; - Preposition : Type = Str ; -- obsolete + Preposition = Str ; regN = \ray -> let @@ -337,32 +318,27 @@ oper mkN man men (man + "'s") mens ; mkN = \man,men,man's,men's -> - mkNoun man man's men men's ** {g = Neutr ; lock_N = <>} ; + mkNoun man men man's men's ** {g = Neutr ; lock_N = <>} ; genderN g man = {s = man.s ; g = g ; lock_N = <>} ; - compoundN s n = {s = \\x,y => s ++ n.s ! x ! y ; g=n.g ; lock_N = <>} ; + mkN2 = \n,p -> UseN n ** {lock_N2 = <> ; s2 = p} ; + regN2 n = mkN2 (regN n) (mkPreposition "of") ; + mkN3 = \n,p,q -> UseN n ** {lock_N3 = <> ; s2 = p ; s3 = q} ; + cnN2 = \n,p -> n ** {lock_N2 = <> ; s2 = p} ; + cnN3 = \n,p,q -> n ** {lock_N3 = <> ; s2 = p ; s3 = q} ; - mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p.s} ; - regN2 n = mkN2 (regN n) (mkPrep "of") ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ; - cnN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p.s} ; - cnN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ; - - regPN n = regGenPN n human ; - regGenPN n g = nameReg n g ** {lock_PN = <>} ; + regPN n g = nameReg n g ** {lock_PN = <>} ; nounPN n = {s = n.s ! singular ; g = n.g ; lock_PN = <>} ; - mkNP x y n g = {s = table {Gen => x ; _ => y} ; a = agrP3 n ; + mkNP x y n g = {s = table {GenP => x ; _ => y} ; a = toAgr n P3 g ; lock_NP = <>} ; - mkA a b = mkAdjective a a a b ** {lock_A = <>} ; + mkA a b = mkAdjective a b ** {lock_A = <>} ; regA a = regAdjective a ** {lock_A = <>} ; - mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ; + mkA2 a p = a ** {s2 = p ; lock_A2 = <>} ; - ADeg = A ; ---- - - mkADeg a b c d = mkAdjective a b c d ** {lock_A = <>} ; + mkADeg a b c d = mkAdjDegrWorst a b c c d d ** {lock_ADeg = <>} ; regADeg happy = let @@ -377,26 +353,22 @@ oper "y" => happ + "ily" ; _ => happy + "ly" } ; - in mkADeg happy (happie + "r") (happie + "st") happily ; + in mkADeg happy happily (happie + "r") (happie + "st") ; - duplADeg fat = - mkADeg fat - (fat + last fat + "er") (fat + last fat + "est") (fat + "ly") ; - - compoundADeg a = - let ad = (a.s ! AAdj Posit) - in mkADeg ad ("more" ++ ad) ("most" ++ ad) (a.s ! AAdv) ; - - adegA a = a ; + duplADeg fat = mkADeg fat + (fat + "ly") (fat + last fat + "er") (fat + last fat + "est") ; + compoundADeg a = let ad = (a.s ! AAdj) in + mkADeg ad (a.s ! AAdv) ("more" ++ ad) ("most" ++ ad) ; + adegA a = {s = a.s ! Pos ; lock_A = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ; mkAdA x = ss x ** {lock_AdA = <>} ; + mkPreposition p = p ; mkPrep p = ss p ** {lock_Prep = <>} ; - noPrep = mkPrep [] ; - mkV a b c d e = mkVerb a b c d e ** {s1 = [] ; lock_V = <>} ; + mkV a b c d e = mkVerbP3worst a b c d e ** {s1 = [] ; lock_V = <>} ; regV cry = let @@ -422,46 +394,36 @@ oper mkV fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing") ; irregV x y z = let reg = (regV x).s in - mkV x (reg ! VPres) y z (reg ! VPresPart) ** {s1 = [] ; lock_V = <>} ; + mkV x (reg ! Indic Sg) y z (reg ! PresPart) ** {s1 = [] ; lock_V = <>} ; irregDuplV fit y z = let - fitting = (regDuplV fit).s ! VPresPart + fitting = (regDuplV fit).s ! PresPart in mkV fit (fit + "s") y z fitting ; - partV v p = verbPart v p ** {lock_V = <>} ; - reflV v = {s = v.s ; part = v.part ; lock_V = v.lock_V ; isRefl = True} ; + partV v p = {s = v.s ; s1 = p ; lock_V = <>} ; - mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; c2 = p.s ; lock_V2 = <>} ; - dirV2 v = mkV2 v noPrep ; + mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; s3 = p ; lock_V2 = <>} ; + dirV2 v = mkV2 v [] ; - mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; c2 = p.s ; c3 = q.s ; lock_V3 = <>} ; - dirV3 v p = mkV3 v noPrep p ; - dirdirV3 v = dirV3 v noPrep ; + mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; s3 = p ; s4 = q ; lock_V3 = <>} ; + dirV3 v p = mkV3 v [] p ; + dirdirV3 v = dirV3 v [] ; + mkV0 v = v ** {lock_V0 = <>} ; mkVS v = v ** {lock_VS = <>} ; - mkVV v = { - s = table {VVF vf => v.s ! vf ; _ => variants {}} ; - isAux = False ; lock_VV = <> - } ; - mkVQ v = v ** {lock_VQ = <>} ; - - V0 : Type = V ; - V2S, V2V, V2Q, V2A : Type = V2 ; - AS, A2S, AV : Type = A ; - A2V : Type = A2 ; - - mkV0 v = v ** {lock_V = <>} ; - mkV2S v p = mkV2 v p ** {lock_V2 = <>} ; - mkV2V v p t = mkV2 v p ** {s4 = t ; lock_V2 = <>} ; + mkV2S v p = mkV2 v p ** {lock_V2S = <>} ; + mkVV v = verb2aux v ** {isAux = False ; lock_VV = <>} ; + mkV2V v p t = mkV2 v p ** {s4 = t ; lock_V2V = <>} ; mkVA v = v ** {lock_VA = <>} ; mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; - mkV2Q v p = mkV2 v p ** {lock_V2 = <>} ; + mkVQ v = v ** {lock_VQ = <>} ; + mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - mkAS v = v ** {lock_A = <>} ; - mkA2S v p = mkA2 v p ** {lock_A = <>} ; - mkAV v = v ** {lock_A = <>} ; - mkA2V v p = mkA2 v p ** {lock_A2 = <>} ; + mkAS v = v ** {lock_AS = <>} ; + mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; + mkAV v = v ** {lock_AV = <>} ; + mkA2V v p = mkA2 v p ** {lock_A2V = <>} ; } ; diff --git a/lib/resource/english/PredicEng.gf b/lib/resource-0.9/english/PredicEng.gf similarity index 100% rename from lib/resource/english/PredicEng.gf rename to lib/resource-0.9/english/PredicEng.gf diff --git a/lib/resource/english/ResourceEng.gf b/lib/resource-0.9/english/ResourceEng.gf similarity index 100% rename from lib/resource/english/ResourceEng.gf rename to lib/resource-0.9/english/ResourceEng.gf diff --git a/lib/resource/english/RulesEng.gf b/lib/resource-0.9/english/RulesEng.gf similarity index 100% rename from lib/resource/english/RulesEng.gf rename to lib/resource-0.9/english/RulesEng.gf diff --git a/lib/resource/english/SimpleEng.gf b/lib/resource-0.9/english/SimpleEng.gf similarity index 100% rename from lib/resource/english/SimpleEng.gf rename to lib/resource-0.9/english/SimpleEng.gf diff --git a/lib/resource/english/SimpleLangEng.gf b/lib/resource-0.9/english/SimpleLangEng.gf similarity index 100% rename from lib/resource/english/SimpleLangEng.gf rename to lib/resource-0.9/english/SimpleLangEng.gf diff --git a/lib/resource-0.9/english/StructuralEng.gf b/lib/resource-0.9/english/StructuralEng.gf new file mode 100644 index 000000000..d6f318c03 --- /dev/null +++ b/lib/resource-0.9/english/StructuralEng.gf @@ -0,0 +1,101 @@ +--# -path=.:../abstract:../../prelude + +--1 The Top-Level English Resource Grammar: Structural Words +-- +-- Aarne Ranta 2002 -- 2003 +-- +concrete StructuralEng of Structural = + CategoriesEng, NumeralsEng ** open Prelude, SyntaxEng in { + + flags optimize=all ; + + lin + UseNumeral i = { + s = table {Nom => i.s ! NCard ; Gen => i.s ! NCard ++ "'s"} ; n = i.n} ; --- + + + above_Prep = ss "above" ; + after_Prep = ss "after" ; + all8mass_Det = mkDeterminer Sg "all" ; --- all the missing + all_NDet = mkDeterminerNum "all" ; + almost_Adv = ss "almost" ; + although_Subj = ss "although" ; + and_Conj = ss "and" ** {n = Pl} ; + because_Subj = ss "because" ; + before_Prep = ss "before" ; + behind_Prep = ss "behind" ; + between_Prep = ss "between" ; + both_AndConjD = sd2 "both" "and" ** {n = Pl} ; + by8agent_Prep = ss "by" ; + by8means_Prep = ss "by" ; + can8know_VV = vvCan ; + can_VV = vvCan ; + during_Prep = ss "during" ; + either8or_ConjD = sd2 "either" "or" ** {n = Sg} ; + everybody_NP = nameNounPhrase (nameReg "everybody" human) ; + every_Det = everyDet ; + everything_NP = nameNounPhrase (nameReg "everything" Neutr) ; + everywhere_Adv = ss "everywhere" ; + from_Prep = ss "from" ; + he_NP = pronNounPhrase pronHe ; + how_IAdv = ss "how" ; + how8many_IDet = mkDeterminer Pl ["how many"] ; + if_Subj = ss "if" ; + in8front_Prep = ss ["in front of"] ; + i_NP = pronNounPhrase pronI ; + in_Prep = ss "in" ; + it_NP = pronNounPhrase pronIt ; + many_Det = mkDeterminer Pl "many" ; + most_Det = mkDeterminer Sg "most" ; + most8many_Det = mostDet ; + much_Det = mkDeterminer Sg ["a lot of"] ; --- + must_VV = vvMust ; + + no_Phr = ss "No." ; + on_Prep = ss "on" ; + or_Conj = ss "or" ** {n = Sg} ; + otherwise_Adv = ss "otherwise" ; + part_Prep = ss "of" ; + possess_Prep = ss "of" ; + quite_Adv = ss "quite" ; + she_NP = pronNounPhrase pronShe ; + so_Adv = ss "so" ; + somebody_NP = nameNounPhrase (nameReg "somebody" human) ; + some_Det = mkDeterminer Sg "some" ; + some_NDet = mkDeterminerNum "some" ; + something_NP = nameNounPhrase (nameReg "something" Neutr) ; + somewhere_Adv = ss "somewhere" ; + that_Det = mkDeterminer Sg "that" ; + that_NP = nameNounPhrase (nameReg "that" Neutr) ; + therefore_Adv = ss "therefore" ; + these_NDet = mkDeterminerNum "these" ; + they8fem_NP = pronNounPhrase pronThey ; + they_NP = pronNounPhrase pronThey ; + this_Det = mkDeterminer Sg "this" ; + this_NP = nameNounPhrase (nameReg "this" Neutr) ; + those_NDet = mkDeterminerNum "those" ; + thou_NP = pronNounPhrase pronYouSg ; + through_Prep = ss "through" ; + too_Adv = ss "too" ; + to_Prep = ss "to" ; + under_Prep = ss "under" ; + very_Adv = ss "very" ; + want_VV = verb2aux (verbNoPart (regVerbP3 "want")) ** {isAux = False} ; + we_NP = pronNounPhrase pronWe ; + what8many_IP = intPronWhat plural ; + what8one_IP = intPronWhat singular ; + when_IAdv = ss "when" ; + when_Subj = ss "when" ; + where_IAdv = ss "where" ; + which8many_IDet = mkDeterminer Pl ["which"] ; + which8one_IDet = mkDeterminer Sg ["which"] ; + who8many_IP = intPronWho plural ; + who8one_IP = intPronWho singular ; + why_IAdv = ss "why" ; + without_Prep = ss "without" ; + with_Prep = ss "with" ; + ye_NP = pronNounPhrase pronYouPl ; + you_NP = pronNounPhrase pronYouSg ; + yes_Phr = ss "Yes." ; + +} diff --git a/lib/resource/english/SwadeshLexEng.gf b/lib/resource-0.9/english/SwadeshLexEng.gf similarity index 100% rename from lib/resource/english/SwadeshLexEng.gf rename to lib/resource-0.9/english/SwadeshLexEng.gf diff --git a/lib/resource/english/SyntaxEng.gf b/lib/resource-0.9/english/SyntaxEng.gf similarity index 100% rename from lib/resource/english/SyntaxEng.gf rename to lib/resource-0.9/english/SyntaxEng.gf diff --git a/lib/resource/english/TimeEng.gf b/lib/resource-0.9/english/TimeEng.gf similarity index 100% rename from lib/resource/english/TimeEng.gf rename to lib/resource-0.9/english/TimeEng.gf diff --git a/lib/resource/english/TypesEng.gf b/lib/resource-0.9/english/TypesEng.gf similarity index 100% rename from lib/resource/english/TypesEng.gf rename to lib/resource-0.9/english/TypesEng.gf diff --git a/lib/resource/english/VerbphraseEng.gf b/lib/resource-0.9/english/VerbphraseEng.gf similarity index 100% rename from lib/resource/english/VerbphraseEng.gf rename to lib/resource-0.9/english/VerbphraseEng.gf diff --git a/lib/resource/english/VerbsEng.gf b/lib/resource-0.9/english/VerbsEng.gf similarity index 100% rename from lib/resource/english/VerbsEng.gf rename to lib/resource-0.9/english/VerbsEng.gf diff --git a/lib/resource/english/VerbsEngAbs.gf b/lib/resource-0.9/english/VerbsEngAbs.gf similarity index 100% rename from lib/resource/english/VerbsEngAbs.gf rename to lib/resource-0.9/english/VerbsEngAbs.gf diff --git a/lib/resource/english/verbs.txt b/lib/resource-0.9/english/verbs.txt similarity index 100% rename from lib/resource/english/verbs.txt rename to lib/resource-0.9/english/verbs.txt diff --git a/lib/resource/exx-david.txt b/lib/resource-0.9/exx-david.txt similarity index 100% rename from lib/resource/exx-david.txt rename to lib/resource-0.9/exx-david.txt diff --git a/lib/resource/finnish/BasicFin.gf b/lib/resource-0.9/finnish/BasicFin.gf similarity index 100% rename from lib/resource/finnish/BasicFin.gf rename to lib/resource-0.9/finnish/BasicFin.gf diff --git a/lib/resource/finnish/CategoriesFin.gf b/lib/resource-0.9/finnish/CategoriesFin.gf similarity index 100% rename from lib/resource/finnish/CategoriesFin.gf rename to lib/resource-0.9/finnish/CategoriesFin.gf diff --git a/lib/resource/finnish/ClauseFin.gf b/lib/resource-0.9/finnish/ClauseFin.gf similarity index 100% rename from lib/resource/finnish/ClauseFin.gf rename to lib/resource-0.9/finnish/ClauseFin.gf diff --git a/lib/resource-0.9/finnish/LangFin.gf b/lib/resource-0.9/finnish/LangFin.gf new file mode 100644 index 000000000..48a035558 --- /dev/null +++ b/lib/resource-0.9/finnish/LangFin.gf @@ -0,0 +1,27 @@ +--# -path=.:../abstract:../../prelude + +concrete LangFin of Lang = + RulesFin, + ClauseFin, + StructuralFin, + BasicFin, +---- TimeEng, +---- CountryEng + MathFin + + ** open Prelude, ParadigmsFin in { + +flags unlexer=finnish ; + +{- +lin + AdvDate d = prefixSS "on" d ; + AdvTime t = prefixSS "at" t ; + NWeekday w = w ; + PNWeekday w = nounPN w ; + + PNCountry x = x ; + ANationality x = x ; + NLanguage x = x ; +-} +} \ No newline at end of file diff --git a/lib/resource/finnish/MathFin.gf b/lib/resource-0.9/finnish/MathFin.gf similarity index 100% rename from lib/resource/finnish/MathFin.gf rename to lib/resource-0.9/finnish/MathFin.gf diff --git a/lib/resource-1.0/finnish/MorphoFin.gf b/lib/resource-0.9/finnish/MorphoFin.gf similarity index 55% rename from lib/resource-1.0/finnish/MorphoFin.gf rename to lib/resource-0.9/finnish/MorphoFin.gf index 08f8ab513..935cbde32 100644 --- a/lib/resource-1.0/finnish/MorphoFin.gf +++ b/lib/resource-0.9/finnish/MorphoFin.gf @@ -2,15 +2,14 @@ --1 A Simple Finnish Resource Morphology -- --- Aarne Ranta 2002 -- 2005 +-- Aarne Ranta 2002 -- -- This resource morphology contains definitions needed in the resource --- syntax. To build a lexicon, it is better to use $ParadigmsFin$, which --- gives a higher-level access to this module. +-- syntax. It moreover contains the most usual inflectional patterns. +-- +-- We use the parameter types and word classes defined in $TypesFin.gf$. -resource MorphoFin = ResFin ** open Prelude in { - - flags optimize=all ; +resource MorphoFin = TypesFin ** open Prelude in { --- flags optimize=noexpand ; @@ -19,6 +18,79 @@ resource MorphoFin = ResFin ** open Prelude in { oper + NounH : Type = { + a,vesi,vede,vete,vetta,veteen,vetii,vesii,vesien,vesia,vesiin : Str + } ; + +-- worst-case macro + + mkSubst : Str -> (_,_,_,_,_,_,_,_,_,_ : Str) -> NounH = + \a,vesi,vede,vete,vetta,veteen,vetii,vesii,vesien,vesia,vesiin -> + {a = a ; + vesi = vesi ; + vede = vede ; + vete = vete ; + vetta = vetta ; + veteen = veteen ; + vetii = vetii ; + vesii = vesii ; + vesien = vesien ; + vesia = vesia ; + vesiin = vesiin + } ; + + nhn : NounH -> CommonNoun = \nh -> + let + a = nh.a ; + vesi = nh.vesi ; + vede = nh.vede ; + vete = nh.vete ; + vetta = nh.vetta ; + veteen = nh.veteen ; + vetii = nh.vetii ; + vesii = nh.vesii ; + vesien = nh.vesien ; + vesia = nh.vesia ; + vesiin = nh.vesiin + in + {s = table { + NCase Sg Nom => vesi ; + NCase Sg Gen => vede + "n" ; + NCase Sg Part => vetta ; + NCase Sg Transl => vede + "ksi" ; + NCase Sg Ess => vete + ("n" + a) ; + NCase Sg Iness => vede + ("ss" + a) ; + NCase Sg Elat => vede + ("st" + a) ; + NCase Sg Illat => veteen ; + NCase Sg Adess => vede + ("ll" + a) ; + NCase Sg Ablat => vede + ("lt" + a) ; + NCase Sg Allat => vede + "lle" ; + NCase Sg Abess => vede + ("tt" + a) ; + + NCase Pl Nom => vede + "t" ; + NCase Pl Gen => vesien ; + NCase Pl Part => vesia ; + NCase Pl Transl => vesii + "ksi" ; + NCase Pl Ess => vetii + ("n" + a) ; + NCase Pl Iness => vesii + ("ss" + a) ; + NCase Pl Elat => vesii + ("st" + a) ; + NCase Pl Illat => vesiin ; + NCase Pl Adess => vesii + ("ll" + a) ; + NCase Pl Ablat => vesii + ("lt" + a) ; + NCase Pl Allat => vesii + "lle" ; + NCase Pl Abess => vesii + ("tt" + a) ; + + NComit => vetii + "ne" ; + NInstruct => vesii + "n" ; + + NPossNom => vete ; + NPossGenPl => Predef.tk 1 vesien ; + NPossTransl Sg => vede + "kse" ; + NPossTransl Pl => vesii + "kse" ; + NPossIllat Sg => Predef.tk 1 veteen ; + NPossIllat Pl => Predef.tk 1 vesiin + } + } ; -- A user-friendly variant takes existing forms and infers the vowel harmony. @@ -28,9 +100,97 @@ oper talo (Predef.tk 1 talon) (Predef.tk 2 talona) taloa taloon (Predef.tk 2 taloina) (Predef.tk 3 taloissa) talojen taloja taloihin) ; +-- Regular heuristics. --- Here some useful special cases; more are given in $ParadigmsFin.gf$. +{- + regNounH : Str -> NounH = \vesi -> + let + esi = Predef.dp 3 vesi ; -- analysis: suffixes + si = Predef.dp 2 esi ; + i = last si ; + s = init si ; + a = if_then_Str (pbool2bool (Predef.occurs "aou" vesi)) "a" "ä" ; + ves = init vesi ; -- synthesis: prefixes + vet = strongGrade ves ; + ve = init ves ; + in + case esi of { + "uus" | "yys" => sRakkaus vesi ; + "nen" => sNainen (Predef.tk 3 vesi + ("st" + a)) ; + + _ => case si of { + "aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" => sPuu vesi ; + "ie" | "uo" | "yö" => sSuo vesi ; + "ea" | "eä" => + mkSubst + a + vesi (vesi) (vesi) (vesi + a) (vesi + a+"n") + (ves + "i") (ves + "i") (ves + "iden") (ves + "it"+a) + (ves + "isiin") ; + "is" => sNauris (vesi + ("t" + a)) ; + "ut" | "yt" => sRae vesi (ves + ("en" + a)) ; + "as" | "äs" => sRae vesi (vet + (a + "n" + a)) ; + "ar" | "är" => sRae vesi (vet + ("ren" + a)) ; + _ => case i of { + "n" => sLiitin vesi (vet + "men") ; + "s" => sTilaus vesi (ves + ("ksen" + a)) ; + "i" => sBaari (vesi + a) ; + "e" => sRae vesi (strongGrade vesi + "en" + a) ; + "a" | "o" | "u" | "y" | "ä" | "ö" => sLukko vesi ; + _ => sLinux (vesi + "i" + a) + } + } + } ; + + reg2NounH : (savi,savia : Str) -> NounH = \savi,savia -> + let + savit = regNounH savi ; + ia = Predef.dp 2 savia ; + i = init ia ; + a = last ia ; + o = last savi ; + savin = weakGrade savi + "n" ; + in + case of { + <"i","ia"> => sArpi savi ; + <"i","iä"> => sSylki savi ; + <"i","ta"> | <"i","tä"> => sTohtori (savi + a) ; + <"o","ta"> | <"ö","tä"> => sRadio savi ; + <"a","ta"> | <"ä","tä"> => sPeruna savi ; + <"a","ia"> | <"a","ja"> => sKukko savi savin savia ; + _ => savit + } ; +-} + +-- Here some useful special cases; more will be given in $paradigms.Fin.gf$. -- +-- Nouns with partitive "a"/"ä" ; +-- to account for grade and vowel alternation, three forms are usually enough +-- Examples: "talo", "kukko", "huippu", "koira", "kukka", "syylä",... + + sKukko : (_,_,_ : Str) -> NounH = \kukko,kukon,kukkoja -> + let { + o = Predef.dp 1 kukko ; + a = Predef.dp 1 kukkoja ; + kukkoj = Predef.tk 1 kukkoja ; + i = Predef.dp 1 kukkoj ; + ifi = ifTok Str i "i" ; + kukkoi = ifi kukkoj (Predef.tk 1 kukkoj) ; + e = Predef.dp 1 kukkoi ; + kukoi = Predef.tk 2 kukon + Predef.dp 1 kukkoi + } + in + mkSubst a + kukko + (Predef.tk 1 kukon) + kukko + (kukko + a) + (kukko + o + "n") + (kukkoi + ifi "" "i") + (kukoi + ifi "" "i") + (ifTok Str e "e" (Predef.tk 1 kukkoi + "ien") (kukkoi + ifi "en" "jen")) + kukkoja + (kukkoi + ifi "in" "ihin") ; sLukko : Str -> NounH = \lukko -> let @@ -173,6 +333,28 @@ oper (radioi + "t" + a) (radioi + "hin") ; +-- Surpraisingly, making the test for the partitive, this not only covers +-- "rae", "perhe", "savuke", but also "rengas", "lyhyt" (except $Sg Illat$), etc. + + sRae : (_,_ : Str) -> NounH = \rae,rakeena -> + let { + a = Predef.dp 1 rakeena ; + rakee = Predef.tk 2 rakeena ; + rakei = Predef.tk 1 rakee + "i" ; + raet = rae + (ifTok Str (Predef.dp 1 rae) "e" "t" []) + } + in + mkSubst a + rae + rakee + rakee + (raet + ("t" + a)) + (rakee + "seen") + rakei + rakei + (rakei + "den") + (rakei + ("t" + a)) + (rakei + "siin") ; sSusi : (_,_,_ : Str) -> NounH = \susi,suden,sutena -> let @@ -489,8 +671,6 @@ vowelHarmony : Str -> Str = \liitin -> -- -- Proper names are similar to common nouns in the singular. - ProperName = {s : Case => Str} ; - mkProperName : CommonNoun -> ProperName = \jussi -> {s = \\c => jussi.s ! NCase Sg c} ; @@ -525,78 +705,87 @@ vowelHarmony : Str -> Str = \liitin -> -- -- Here we define personal and relative pronouns. - mkPronoun : (_,_,_,_,_ : Str) -> Number -> Person -> - {s : NPForm => Str ; a : Agr} = + mkPronoun : (_,_,_,_,_ : Str) -> Number -> Person -> Pronoun = \mina, minun, minua, minuna, minuun, n, p -> let { minu = Predef.tk 2 minuna ; a = Predef.dp 1 minuna } in {s = table { - NPCase Nom => mina ; - NPCase Gen => minun ; - NPCase Part => minua ; - NPCase Transl => minu + "ksi" ; - NPCase Ess => minuna ; - NPCase Iness => minu + ("ss" + a) ; - NPCase Elat => minu + ("st" + a) ; - NPCase Illat => minuun ; - NPCase Adess => minu + ("ll" + a) ; - NPCase Ablat => minu + ("lt" + a) ; - NPCase Allat => minu + "lle" ; - NPCase Abess => minu + ("tt" + a) ; - NPAcc => Predef.tk 1 minun + "t" + PCase Nom => mina ; + PCase Gen => minun ; + PCase Part => minua ; + PCase Transl => minu + "ksi" ; + PCase Ess => minuna ; + PCase Iness => minu + ("ss" + a) ; + PCase Elat => minu + ("st" + a) ; + PCase Illat => minuun ; + PCase Adess => minu + ("ll" + a) ; + PCase Ablat => minu + ("lt" + a) ; + PCase Allat => minu + "lle" ; + PCase Abess => minu + ("tt" + a) ; + PAcc => Predef.tk 1 minun + "t" } ; - a = {n = n ; p = p} - } ; + n = n ; p = p} ; - mkDemPronoun : (_,_,_,_,_ : Str) -> Number -> - {s : NPForm => Str ; a : Agr} = - \tuo, tuon, tuota, tuona, tuohon, n -> - let pro = mkPronoun tuo tuon tuota tuona tuohon n P3 - in { - s = table { - NPAcc => tuo ; - c => pro.s ! c - } ; - a = pro.a + pronMina = mkPronoun "minä" "minun" "minua" "minuna" "minuun" Sg P1 ; + pronSina = mkPronoun "sinä" "sinun" "sinua" "sinuna" "sinuun" Sg P2 ; + pronHan = mkPronoun "hän" "hänen" "häntä" "hänenä" "häneen" Sg P3 ; + pronMe = mkPronoun "me" "meidän" "meitä" "meinä" "meihin" Pl P1 ; + pronTe = mkPronoun "te" "teidän" "teitä" "teinä" "teihin" Pl P2 ; + pronHe = mkPronoun "he" "heidän" "heitä" "heinä" "heihin" Pl P3 ; + pronNe = mkPronoun "ne" "niiden" "niitä" "niinä" "niihin" Pl P3 ; + + pronTama = mkPronoun "tämä" "tämän" "tätä" "tänä" "tähän" Sg P3 ; + pronNama = mkPronoun "nämä" "näiden" "näitä" "näinä" "näihin" Pl P3 ; + pronTuo = mkPronoun "tuo" "tuon" "tuota" "tuona" "tuohon" Sg P3 ; + pronNuo = mkPronoun "nuo" "noiden" "noita" "noina" "noihin" Pl P3 ; + +-- The non-human pronoun "se" ('it') is even more irregular, +-- Its accusative cases do not +-- have a special form with "t", but have the normal genitive/nominative variation. +-- We use the type $ProperName$ for "se", because of the accusative but also +-- because the person and number are as for proper names. + + pronSe : ProperName = { + s = table { + Nom => "se" ; + Gen => "sen" ; + Part => "sitä" ; + Transl => "siksi" ; + Ess => "sinä" ; + Iness => "siinä" ; + Elat => "siitä" ; + Illat => "siihen" ; + Adess => "sillä" ; + Ablat => "siltä" ; + Allat => "sille" ; + Abess => "sittä" } ; - --- Determiners - - mkDet : Number -> CommonNoun -> { - s1 : Case => Str ; -- minun kolme - s2 : Str ; -- -ni - n : Number ; -- Pl (agreement feature for verb) - isNum : Bool ; -- True (a numeral is present) - isPoss : Bool ; -- True (a possessive suffix is present) - isDef : Bool -- True (verb agrees in Pl, Nom is not Part) - } = \n, noun -> { - s1 = \\c => noun.s ! NCase n c ; - s2 = [] ; - n = n ; - isNum, isPoss = False ; - isDef = True --- does this hold for all new dets? } ; - mkQuant : CommonNoun -> { - s1 : Number => Case => Str ; - s2 : Str ; - isPoss, isDef : Bool - } = \noun -> { - s1 = \\n,c => noun.s ! NCase n c ; - s2 = [] ; - isPoss = False ; - isDef = True --- does this hold for all new dets? - } ; +-- The possessive suffixes will be needed in syntax. It will show up +-- as a separate word ("auto &+ ni"), which needs unlexing. Unlexing also +-- has to fix the vowel harmony in cases like "äiti &+ nsä". + + suff : Str -> Str = \ni -> ni ; + + possSuffix : Number => Person => Str = \\n,p => + suff (case of { + => "ni" ; + => "si" ; + => "nsa" ; + => "mme" ; + => "nne" ; + => "nsa" + } ) ; -- The relative pronoun, "joka", is inflected in case and number, -- like common nouns, but it does not take possessive suffixes. -- The inflextion shows a surprising similarity with "suo". -oper - relPron : Number => Case => Str = - let {jo = nhn (sSuo "jo")} in + relPron : RelPron = + let {jo = nhn (sSuo "jo")} in {s = table { Sg => table { Nom => "joka" ; @@ -607,37 +796,258 @@ oper Nom => "jotka" ; c => "j" + (jo.s ! NCase Pl c) } - } ; + } + } ; + mikaInt : Number => Case => Str = + let { + mi = nhn (sSuo "mi") + } in + table { + Sg => table { + Nom => "mikä" ; + Gen => "minkä" ; + c => mi.s ! NCase Sg c + } ; + Pl => table { + Nom => "mitkä" ; + Gen => "mittenkä" ; + c => mi.s ! NCase Sg c + } + } ; + + kukaInt : Number => Case => Str = + let { + ku = nhn (sRae "kuka" "kenenä") ; + ket = nhn (sRae "kuka" "keinä")} in + table { + Sg => table { + Nom => "kuka" ; + Part => "ketä" ; + Illat => "keneen" ; + c => ku.s ! NCase Sg c + } ; + Pl => table { + Nom => "ketkä" ; + Illat => "keihin" ; + c => ket.s ! NCase Pl c + } + } ; + + mikaanPron : Number => Case => Str = \\n,c => + case of { + => "mikään" ; + <_,Part> => "mitään" ; + => "minkään" ; + => "mitkään" ; + => "mittenkään" ; + <_,Ess> => "minään" ; + <_,Iness> => "missään" ; + <_,Elat> => "mistään" ; + <_,Adess> => "millään" ; + <_,Ablat> => "miltään" ; + _ => mikaInt ! n ! c + "kään" + } ; + + kukaanPron : Number => Case => Str = + table { + Sg => table { + Nom => "kukaan" ; + Part => "ketään" ; + Ess => "kenään" ; + Iness => "kessään" ; + Elat => "kestään" ; + Illat => "kehenkään" ; + Adess => "kellään" ; + Ablat => "keltään" ; + c => kukaInt ! Sg ! c + "kään" + } ; + Pl => table { + Nom => "ketkään" ; + Part => "keitään" ; + Ess => "keinään" ; + Iness => "keissään" ; + Elat => "keistään" ; + Adess => "keillään" ; + Ablat => "keiltään" ; + c => kukaInt ! Pl ! c + "kään" + } + } ; + + jokuPron : Number => Case => Str = + let + ku = nhn (sPuu "ku") ; + kui = nhn (sPuu "kuu") + in + table { + Sg => table { + Nom => "joku" ; + Gen => "jonkun" ; + c => relPron.s ! Sg ! c + ku.s ! NCase Sg c + } ; + Pl => table { + Nom => "jotkut" ; + c => relPron.s ! Pl ! c + kui.s ! NCase Pl c + } + } ; + + jokinPron : Number => Case => Str = + table { + Sg => table { + Nom => "jokin" ; + Gen => "jonkin" ; + c => relPron.s ! Sg ! c + "kin" + } ; + Pl => table { + Nom => "jotkin" ; + c => relPron.s ! Pl ! c + "kin" + } + } ; + +moniPron : Case => Str = caseTable singular (nhn (sSusi "moni" "monen" "monena")) ; + caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> \\c => cn.s ! NCase n c ; --2 Adjectives -- +-- To form an adjective, it is usually enough to give a noun declension: the +-- adverbial form is regular. + noun2adj : CommonNoun -> Adjective = noun2adjComp True ; + + noun2adjComp : Bool -> CommonNoun -> Adjective = \isPos,tuore -> + let + tuoreesti = Predef.tk 1 (tuore.s ! NCase Sg Gen) + "sti" ; + tuoreemmin = Predef.tk 2 (tuore.s ! NCase Sg Gen) + "in" + in {s = table { + AN f => tuore.s ! f ; + AAdv => if_then_Str isPos tuoreesti tuoreemmin + } + } ; -- For the comparison of adjectives, three noun declensions -- are needed in the worst case. - mkAdjective : (_,_,_ : Adj) -> Adjective = \hyva,parempi,paras -> + mkAdjDegr : (_,_,_ : Adjective) -> AdjDegr = \hyva,parempi,paras -> {s = table { - Posit => hyva.s ; - Compar => parempi.s ; - Superl => paras.s + Pos => hyva.s ; + Comp => parempi.s ; + Sup => paras.s } } ; -- However, it is usually enough to give the positive declension and -- the characteristic forms of comparative and superlative. - regAdjective : CommonNoun -> Str -> Str -> Adjective = \kiva, kivempaa, kivinta -> - mkAdjective + regAdjDegr : CommonNoun -> Str -> Str -> AdjDegr = \kiva, kivempaa, kivinta -> + mkAdjDegr (noun2adj kiva) (noun2adjComp False (nhn (sSuurempi kivempaa))) (noun2adjComp False (nhn (sSuurin kivinta))) ; +--3 Verbs +-- +-- The present, past, conditional. and infinitive stems, acc. to Koskenniemi. +-- Unfortunately not enough (without complicated processes). +-- We moreover give grade alternation forms as arguments, since it does not +-- happen automatically. +--- A problem remains with the verb "seistä", where the infinitive +--- stem has vowel harmony "ä" but the others "a", thus "seisoivat" but "seiskää". + + + mkVerb : (_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Verb = + \tulla,tulee,tulen,tulevat,tulkaa,tullaan,tuli,tulin,tulisi,tullut,tultu,tullun -> + v2v (mkVerbH + tulla tulee tulen tulevat tulkaa tullaan tuli tulin tulisi tullut tultu tullun + ) ; + + v2v : VerbH -> Verb = \vh -> + let + tulla = vh.tulla ; + tulee = vh.tulee ; + tulen = vh.tulen ; + tulevat = vh.tulevat ; + tulkaa = vh.tulkaa ; + tullaan = vh.tullaan ; + tuli = vh.tuli ; + tulin = vh.tulin ; + tulisi = vh.tulisi ; + tullut = vh.tullut ; + tultu = vh.tultu ; + tultu = vh.tultu ; + tullun = vh.tullun ; + tuje = init tulen ; + tuji = init tulin ; + a = Predef.dp 1 tulkaa ; + tulko = Predef.tk 2 tulkaa + (ifTok Str a "a" "o" "ö") ; + o = last tulko ; + tulleena = Predef.tk 2 tullut + ("een" + a) ; + tulleen = (noun2adj (nhn (sRae tullut tulleena))).s ; + tullun = (noun2adj (nhn (sKukko tultu tullun (tultu + ("j"+a))))).s ; + tulema = tuje + "m" + a ; + vat = "v" + a + "t" + in + {s = table { + Inf => tulla ; + Pres Sg P1 => tuje + "n" ; + Pres Sg P2 => tuje + "t" ; + Pres Sg P3 => tulee ; + Pres Pl P1 => tuje + "mme" ; + Pres Pl P2 => tuje + "tte" ; + Pres Pl P3 => tulevat ; + Impf Sg P1 => tuji + "n" ; + Impf Sg P2 => tuji + "t" ; + Impf Sg P3 => tuli ; + Impf Pl P1 => tuji + "mme" ; + Impf Pl P2 => tuji + "tte" ; + Impf Pl P3 => tuli + vat ; + Cond Sg P1 => tulisi + "n" ; + Cond Sg P2 => tulisi + "t" ; + Cond Sg P3 => tulisi ; + Cond Pl P1 => tulisi + "mme" ; + Cond Pl P2 => tulisi + "tte" ; + Cond Pl P3 => tulisi + vat ; + Imper Sg => tuje ; + Imper Pl => tulkaa ; + ImperP3 Sg => tulko + o + "n" ; + ImperP3 Pl => tulko + o + "t" ; + ImperP1Pl => tulkaa + "mme" ; + ImpNegPl => tulko ; + Pass True => tullaan ; + Pass False => Predef.tk 2 tullaan ; + PastPartAct n => tulleen ! n ; + PastPartPass n => tullun ! n ; + Inf3Iness => tulema + "ss" + a ; + Inf3Elat => tulema + "st" + a ; + Inf3Illat => tulema + a + "n" ; + Inf3Adess => tulema + "ll" + a ; + Inf3Abess => tulema + "tt" + a + } + } ; + + VerbH : Type = { + tulla,tulee,tulen,tulevat,tulkaa,tullaan,tuli,tulin,tulisi,tullut,tultu,tullun + : Str + } ; + + mkVerbH : (_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> VerbH = + \tulla,tulee,tulen,tulevat,tulkaa,tullaan,tuli,tulin,tulisi,tullut,tultu,tullun -> + {tulla = tulla ; + tulee = tulee ; + tulen = tulen ; + tulevat = tulevat ; + tulkaa = tulkaa ; + tullaan = tullaan ; + tuli = tuli ; + tulin = tulin ; + tulisi = tulisi ; + tullut = tullut ; + tultu = tultu ; + tullun = tullun + } ; regVerbH : Str -> VerbH = \soutaa -> let @@ -652,8 +1062,7 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> in case taa of { "it" + _ => vHarkita soutaa ; - ("st" | "nn" | "rr" | "ll") + _ => - vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ; + ("st" | "nn" | "rr" | "ll") + _ => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ; _ + ("aa" | "ää") => vOttaa soutaa (souda + "n") ; ("o" | "u" | "y" | "ö") + ("da" | "dä") => vJuoda soutaa joi ; ("ata" | "ätä") => vOsata soutaa ; @@ -662,6 +1071,7 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> reg2VerbH : (soutaa,souti : Str) -> VerbH = \soutaa,souti -> let + soudat = regVerbH soutaa ; soudan = weakGrade (init soutaa) + "n" ; soudin = weakGrade souti + "n" ; souden = init souti + "en" ; @@ -673,10 +1083,8 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> case taa of { "taa" | "tää" => vHuoltaa soutaa soudan souti soudin ; "ata" | "ätä" => vPalkata soutaa souti ; - "ota" | "ötä" => vPudota soutaa souti ; "sta" | "stä" => vJuosta soutaa souden (juo + o+u+"t") (juo + "t"+u) ; - _ + ("da" | "dä") => vJuoda soutaa souti ; - _ => regVerbH soutaa + _ => soudat } ; reg3VerbH : (_,_,_ : Str) -> VerbH = \soutaa,soudan,souti -> @@ -687,11 +1095,14 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> o = last juo ; a = last taa ; u = ifTok Str a "a" "u" "y" ; - soudin = weakGrade (init souti) + "in" ; + soudin = weakGrade souti + "n" ; + soudat = reg2VerbH soutaa souti ; in case taa of { "lla" | "llä" => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ; + "ota" | "ötä" => vPudota soutaa souti ; "taa" | "tää" => vHuoltaa soutaa soudan souti soudin ; - _ => reg2VerbH soutaa souti + _ + ("da" | "dä") => vJuoda soutaa souti ; + _ => soudat } ; -- For "harppoa", "hukkua", "löytyä", with grade alternation. @@ -894,7 +1305,91 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> (juo + "t" + u) (juo + "d" + u + "n") ; + verbOlla : Verb = + mkVerb + "olla" "on" "olen" "ovat" "olkaa" "ollaan" + "oli" "olin" "olisi" "ollut" "oltu" "ollun" ; + +-- The negating operator "ei" is actually a verb, which has present +-- active indicative and imperative forms, but no infinitive. + + verbEi : Verb = + let ei = + mkVerb + "ei" "ei" "en" "eivät" "älkää" + "ei" "e" "en" "e" "ei" "ei" "ei" + in + {s = table { + Imper Sg => "älä" ; +-- Impf n p | Cond n p => ei.s ! Pres n p ; + Impf n p => ei.s ! Pres n p ; + Cond n p => ei.s ! Pres n p ; + v => ei.s ! v + } + } ; + +--2 Some structural words + + kuinConj = "kuin" ; + + conjEtta = "että" ; + advSiten = "siten" ; + + mikakukaInt : Gender => Number => Case => Str = + table { + NonHuman => mikaInt ; + Human => kukaInt + } ; + + kaikkiPron : Number -> Case => Str = \n -> + let {kaiket = caseTable n (nhn (sKorpi "kaikki" "kaiken" "kaikkena"))} in + table { + Nom => "kaikki" ; + c => kaiket ! c + } ; + + stopPunct = "." ; + commaPunct = "," ; + questPunct = "?" ; + exclPunct = "!" ; + + koPart = suff "ko" ; + +-- For $NumeralsFin$. + + param NumPlace = NumIndep | NumAttr ; + +oper + yksiN = nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi" + "yksien" "yksiä" "yksiin") ; + kymmenenN = nhn (mkSubst "ä" "kymmenen" "kymmene" "kymmene" "kymmentä" + "kymmeneen" "kymmeni" "kymmeni" "kymmenien" "kymmeniä" + "kymmeniin") ; + sataN = nhn (sLukko "sata") ; + + tuhatN = nhn (mkSubst "a" "tuhat" "tuhanne" "tuhante" "tuhatta" "tuhanteen" + "tuhansi" "tuhansi" "tuhansien" "tuhansia" "tuhansiin") ; + + kymmentaN = {s = table { + NCase Sg Nom => "kymmentä" ; + c => kymmenenN.s ! c + } + } ; + + sataaN = {s = table { + Sg => sataN.s ; + Pl => table { + NCase Sg Nom => "sataa" ; + c => sataN.s ! c + } + } + } ; + tuhattaN = {s = table { + Sg => tuhatN.s ; + Pl => table { + NCase Sg Nom => "tuhatta" ; + c => tuhatN.s ! c + } + } + } ; } ; - - - diff --git a/lib/resource/finnish/NumeralsFin.gf b/lib/resource-0.9/finnish/NumeralsFin.gf similarity index 100% rename from lib/resource/finnish/NumeralsFin.gf rename to lib/resource-0.9/finnish/NumeralsFin.gf diff --git a/lib/resource-1.0/finnish/ParadigmsFin.gf b/lib/resource-0.9/finnish/ParadigmsFin.gf similarity index 54% rename from lib/resource-1.0/finnish/ParadigmsFin.gf rename to lib/resource-0.9/finnish/ParadigmsFin.gf index 4d6ca939d..681061852 100644 --- a/lib/resource-1.0/finnish/ParadigmsFin.gf +++ b/lib/resource-0.9/finnish/ParadigmsFin.gf @@ -1,44 +1,42 @@ ---# -path=.:../abstract:../common:../../prelude +--# -path=.:../abstract:../../prelude --1 Finnish Lexical Paradigms -- --- Aarne Ranta 2003--2005 +-- Aarne Ranta 2003-2005 -- -- This is an API to the user of the resource grammar --- for adding lexical items. It gives functions for forming --- expressions of open categories: nouns, adjectives, verbs. +-- for adding lexical items. It give shortcuts for forming +-- expressions of basic categories: nouns, adjectives, verbs. -- -- Closed categories (determiners, pronouns, conjunctions) are --- accessed through the resource syntax API, $Structural.gf$. +-- accessed through the resource syntax API, $Structural$. -- --- The main difference with $MorphoFin.gf$ is that the types +-- The low-level definitions of inflectional patterns are in +-- $MorphoFin$. The main difference with that module is that here the types -- referred to are compiled resource grammar types. We have moreover --- had the design principle of always having existing forms, rather --- than stems, as string arguments of the paradigms. +-- had the design principle of always having existing forms, not +-- stems, as string arguments of the paradigms, not stems. -- --- The structure of functions for each word class $C$ is the following: --- first we give a handful of patterns that aim to cover all --- regular cases. Then we give a worst-case function $mkC$, which serves as an --- escape to construct the most irregular words of type $C$. --- However, this function should only seldom be needed. -resource ParadigmsFin = open - (Predef=Predef), - Prelude, - MorphoFin, - CatFin - in { +resource ParadigmsFin = + open (Predef=Predef), Prelude, SyntaxFin, CategoriesFin in { +-- flags optimize=values ; flags optimize=noexpand ; --2 Parameters -- -- To abstract over gender, number, and (some) case names, -- we define the following identifiers. The application programmer --- should always use these constants instead of the constructors --- defined in $ResFin$. +-- should always use these constants instead of their definitions +-- in $TypesInf$. oper + Gender : Type; + + human : Gender ; + nonhuman : Gender ; + Number : Type ; singular : Number ; @@ -60,20 +58,22 @@ oper -- of many-place verbs and adjective. A complement can be defined by -- just a case, or a pre/postposition and a case. - prePrep : Case -> Str -> Prep ; -- ilman, partitive - postPrep : Case -> Str -> Prep ; -- takana, genitive - postGenPrep : Str -> Prep ; -- takana - casePrep : Case -> Prep ; -- adessive + PPosition : Type ; + + prepP : Case -> Str -> PPosition ; + postpP : Case -> Str -> PPosition ; + caseP : Case -> PPosition ; + accusative : PPosition ; --2 Nouns --- The worst case gives ten forms. --- In practice just a couple of forms are needed to define the different +-- The worst case gives ten forms and the semantic gender. +-- In practice just a couple of forms are needed, to define the different -- stems, vowel alternation, and vowel harmony. oper mkN : (talo, talon, talona, taloa, taloon, - taloina,taloissa,talojen,taloja,taloihin : Str) -> N ; + taloina,taloissa,talojen,taloja,taloihin : Str) -> Gender -> N ; -- The regular noun heuristic takes just one form (singular -- nominative) and analyses it to pick the correct paradigm. @@ -101,13 +101,18 @@ oper -- The rest of the noun paradigms are mostly covered by the three -- heuristics. -- --- Nouns with partitive "a","ä" are a large group. +-- Nouns with partitive "a"/"ä" are a large group. -- To determine for grade and vowel alternation, three forms are usually needed: -- singular nominative and genitive, and plural partitive. -- Examples: "talo", "kukko", "huippu", "koira", "kukka", "syylä", "särki"... nKukko : (kukko,kukon,kukkoja : Str) -> N ; +-- For convenience, we define 1-argument paradigms as producing the +-- nonhuman gender; the following function changes this: + + humanN : N -> N ; + -- A special case are nouns with no alternations: -- the vowel harmony is inferred from the last letter, -- which must be one of "o", "u", "ö", "y". @@ -127,12 +132,11 @@ oper nSylki : (sylki : Str) -> N ; -- Foreign words ending in consonants are actually similar to words like --- "malli"-"mallin"-"malleja", with the exception that the "i" is not attached +-- "malli"/"mallin"/"malleja", with the exception that the "i" is not attached -- to the singular nominative. Examples: "linux", "savett", "screen". --- The singular partitive form is used to get the vowel harmony. --- (N.B. more than 1-syllabic words ending in "n" would have variant --- plural genitive and partitive forms, like --- "sultanien", "sultaneiden", which are not covered.) +-- The singular partitive form is used to get the vowel harmony. (N.B. more than +-- 1-syllabic words ending in "n" would have variant plural genitive and +-- partitive forms, like "sultanien"/"sultaneiden", which are not covered.) nLinux : (linuxia : Str) -> N ; @@ -147,7 +151,7 @@ oper nRae : (rae, rakeena : Str) -> N ; --- The following covers nouns with partitive "ta","tä", such as +-- The following covers nouns with partitive "ta"/"tä", such as -- "susi", "vesi", "pieni". To get all stems and the vowel harmony, it takes -- the singular nominative, genitive, and essive. @@ -186,22 +190,21 @@ oper -- Separately-written compound nouns, like "sambal oelek", "Urho Kekkonen", -- have only their last part inflected. - compN : Str -> N -> N ; + nComp : Str -> N -> N ; -- Nouns used as functions need a case, of which by far the commonest is -- the genitive. - mkN2 : N -> Prep -> N2 ; - genN2 : N -> N2 ; + mkN2 : N -> Case -> N2 ; + genN2 : N -> N2 ; - mkN3 : N -> Prep -> Prep -> N3 ; + mkN3 : N -> Case -> Case -> N3 ; -- Proper names can be formed by using declensions for nouns. -- The plural forms are filtered away by the compiler. - regPN : Str -> PN ; mkPN : N -> PN ; - mkNP : N -> Number -> NP ; + --2 Adjectives @@ -211,17 +214,17 @@ oper -- Two-place adjectives need a case for the second argument. - mkA2 : A -> Prep -> A2 ; + mkA2 : A -> PPosition -> A2 ; -- Comparison adjectives have three forms. The comparative and the superlative -- are always inflected in the same way, so the nominative of them is actually -- enough (except for the superlative "paras" of "hyvä"). - mkADeg : (kiva : N) -> (kivempaa,kivinta : Str) -> A ; + mkADeg : (kiva : N) -> (kivempaa,kivinta : Str) -> ADeg ; -- The regular adjectives are based on $regN$ in the positive. - regA : (punainen : Str) -> A ; + regADeg : (punainen : Str) -> ADeg ; --2 Verbs @@ -240,10 +243,6 @@ oper reg2V : (soutaa,souti : Str) -> V ; reg3V : (soutaa,soudan,souti : Str) -> V ; --- The subject case of verbs is by default nominative. This dunction can change it. - - subjcaseV : V -> Case -> V ; - -- The rest of the paradigms are special cases mostly covered by the heuristics. -- A simple special case is the one with just one stem and without grade alternation. @@ -273,15 +272,14 @@ oper caseV : Case -> V -> V ; --- The verbs "be" is special. +-- The verbs "be" and the negative auxiliary are special. vOlla : V ; + vEi : V ; ---3 Two-place verbs --- -- Two-place verbs need a case, and can have a pre- or postposition. - mkV2 : V -> Prep -> V2 ; + mkV2 : V -> PPosition -> V2 ; -- If the complement needs just a case, the following special function can be used. @@ -289,7 +287,7 @@ oper -- Verbs with a direct (accusative) object -- are special, since their complement case is finally decided in syntax. --- But this is taken care of in $VerbFin$. +-- But this is taken care of by $ClauseFin$. dirV2 : V -> V2 ; @@ -299,9 +297,9 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Prep -> Prep -> V3 ; -- puhua, allative, elative - dirV3 : V -> Case -> V3 ; -- siirtää, (accusative), illative - dirdirV3 : V -> V3 ; -- antaa, (accusative), (allative) + mkV3 : V -> PPosition -> PPosition -> V3 ; -- speak, with, about + dirV3 : V -> Case -> V3 ; -- give,_,to + dirdirV3 : V -> V3 ; -- acc, allat --3 Other complement patterns @@ -309,39 +307,34 @@ oper -- Verbs and adjectives can take complements such as sentences, -- questions, verb phrases, and adjectives. - mkV0 : V -> V0 ; - mkVS : V -> VS ; - mkV2S : V -> Prep -> V2S ; - mkVV : V -> VV ; - mkV2V : V -> Prep -> V2V ; - mkVA : V -> Prep -> VA ; - mkV2A : V -> Prep -> Prep -> V2A ; - mkVQ : V -> VQ ; - mkV2Q : V -> Prep -> V2Q ; + mkV0 : V -> V0 ; + mkVS : V -> VS ; + mkV2S : V2 -> V2S ; + mkVV : V -> VV ; + mkV2V : V2 -> V2V ; + mkVA : V -> Case -> VA ; + mkV2A : V2 -> Case -> V2A ; + mkVQ : V -> VQ ; + mkV2Q : V2 -> V2Q ; - mkAS : A -> AS ; - mkA2S : A -> Prep -> A2S ; - mkAV : A -> AV ; - mkA2V : A -> Prep -> A2V ; + mkAS : A -> AS ; + mkA2S : A2 -> A2S ; + mkAV : A -> AV ; + mkA2V : A2 -> A2V ; --- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated --- just as synonyms of $V2$, and the second argument is given --- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. --- $V0$ is just $V$. - - V0, V2S, V2V, V2Q : Type ; - AS, A2S, AV, A2V : Type ; - ---. -- The definitions should not bother the user of the API. So they are -- hidden from the document. - - Case = MorphoFin.Case ; - Number = MorphoFin.Number ; +--. + Gender = SyntaxFin.Gender ; + Case = SyntaxFin.Case ; + Number = SyntaxFin.Number ; singular = Sg ; plural = Pl ; + human = Human ; + nonhuman = NonHuman ; + nominative = Nom ; genitive = Gen ; partitive = Part ; @@ -353,21 +346,25 @@ oper ablative = Ablat ; allative = Allat ; - prePrep : Case -> Str -> Prep = - \c,p -> {c = NPCase c ; s = p ; isPre = True ; lock_Prep = <>} ; - postPrep : Case -> Str -> Prep = - \c,p -> {c = NPCase c ; s = p ; isPre = False ; lock_Prep = <>} ; - postGenPrep p = {c = NPCase genitive ; s = p ; isPre = False ; lock_Prep = <>} ; - casePrep : Case -> Prep = - \c -> {c = NPCase c ; s = [] ; isPre = True ; lock_Prep = <>} ; - accPrep = {c = NPAcc ; s = [] ; isPre = True ; lock_Prep = <>} ; + PPosition : Type = {c : ComplCase ; s3 : Str ; p : Bool} ; + prepP : Case -> Str -> PPosition = + \c,p -> {c = CCase c ; s3 = p ; p = True} ; + postpP : Case -> Str -> PPosition = + \c,p -> {c = CCase c ; s3 = p ; p = False} ; + caseP : Case -> PPosition = + \c -> {c = CCase c ; s3 = [] ; p = True} ; + accusative = {c = CAcc ; s3 = [] ; p = True} ; - mkN = \a,b,c,d,e,f,g,h,i,j -> - mkNoun a b c d e f g h i j ** {lock_N = <>} ; + mkN = \a,b,c,d,e,f,g,h,i,j,k -> + mkNoun a b c d e f g h i j ** {g = k ; lock_N = <>} ; regN = \vesi -> + ---- nhn (regNounH vesi) ** {g = NonHuman ; lock_N = <>} ; let esi = Predef.dp 3 vesi ; -- analysis: suffixes + si = Predef.dp 2 esi ; + i = last si ; + s = init si ; a = if_then_Str (pbool2bool (Predef.occurs "aou" vesi)) "a" "ä" ; ves = init vesi ; -- synthesis: prefixes vet = strongGrade ves ; @@ -375,29 +372,35 @@ oper in nhn ( case esi of { "uus" | "yys" => sRakkaus vesi ; - _ + "nen" => sNainen (Predef.tk 3 vesi + ("st" + a)) ; - _ + ("aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö") => sPuu vesi ; - _ + ("ie" | "uo" | "yö") => sSuo vesi ; - _ + ("ea" | "eä") => - mkSubst - a - vesi (vesi) (vesi) (vesi + a) (vesi + a+"n") - (ves + "i") (ves + "i") (ves + "iden") (ves + "it"+a) - (ves + "isiin") ; - _ + "is" => sNauris (vesi + ("t" + a)) ; - _ + ("ut" | "yt") => sRae vesi (ves + ("en" + a)) ; - _ + ("as" | "äs") => sRae vesi (vet + (a + "n" + a)) ; - _ + ("ar" | "är") => sRae vesi (vet + ("ren" + a)) ; - _ + "n" => sLiitin vesi (vet + "men") ; - _ + "s" => sTilaus vesi (ves + ("ksen" + a)) ; - _ + "i" => sBaari (vesi + a) ; - _ + "e" => sRae vesi (strongGrade vesi + "en" + a) ; - _ + ("a" | "o" | "u" | "y" | "ä" | "ö") => sLukko vesi ; - _ => sLinux (vesi + "i" + a) + "nen" => sNainen (Predef.tk 3 vesi + ("st" + a)) ; + + _ => case si of { + "aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" => sPuu vesi ; + "ie" | "uo" | "yö" => sSuo vesi ; + "ea" | "eä" => + mkSubst + a + vesi (vesi) (vesi) (vesi + a) (vesi + a+"n") + (ves + "i") (ves + "i") (ves + "iden") (ves + "it"+a) + (ves + "isiin") ; + "is" => sNauris (vesi + ("t" + a)) ; + "ut" | "yt" => sRae vesi (ves + ("en" + a)) ; + "as" | "äs" => sRae vesi (vet + (a + "n" + a)) ; + "ar" | "är" => sRae vesi (vet + ("ren" + a)) ; + _ => case i of { + "n" => sLiitin vesi (vet + "men") ; + "s" => sTilaus vesi (ves + ("ksen" + a)) ; + "i" => sBaari (vesi + a) ; + "e" => sRae vesi (strongGrade vesi + "en" + a) ; + "a" | "o" | "u" | "y" | "ä" | "ö" => sLukko vesi ; + _ => sLinux (vesi + "i" + a) } - ) ** {lock_N = <>} ; + } + } + ) ** {g = NonHuman ; lock_N = <>} ; reg2N : (savi,savia : Str) -> N = \savi,savia -> + ---- nhn (reg2NounH savi savia) let savit = regN savi ; ia = Predef.dp 2 savia ; @@ -409,51 +412,57 @@ oper case of { <"i","ia"> => nhn (sArpi savi) ; <"i","iä"> => nhn (sSylki savi) ; + <"i","ta"> | <"i","tä"> => nhn (sTohtori (savi + a)) ; <"o","ta"> | <"ö","tä"> => nhn (sRadio savi) ; <"a","ta"> | <"ä","tä"> => nhn (sPeruna savi) ; - <"i","ta"> | <"i","tä"> => nhn (sTohtori (savi + a)) ; -- from 10 to 90 ms --- <"a","ia"> | <"a","ja"> => nhn (sKukko savi savin savia) ; ---needless? + <"a","ia"> | <"a","ja"> => nhn (sKukko savi savin savia) ; _ => savit } - ** {lock_N = <>} ; + ** {g = NonHuman ; lock_N = <>} ; reg3N = \vesi,veden,vesiä -> let + vesit = reg2N vesi vesiä ; si = Predef.dp 2 vesi ; - a = last vesiä + i = last si ; + a = last vesiä ; + s = last (Predef.tk 2 vesiä) in case si of { "us" | "ys" => - nhn (case Predef.dp 3 veden of { - "den" => sRakkaus vesi ; - _ => sTilaus vesi (veden + a) - }) ; + ifTok CommonNoun (Predef.dp 3 veden) "den" + (nhn (sRakkaus vesi)) + (nhn (sTilaus vesi (veden + a))) ; "as" | "äs" => nhn (sRae vesi (veden + a)) ; - "li" | "ni" | "ri" => nhn (sSusi vesi veden (init vesi + ("en" + a))) ; - "si" => nhn (sSusi vesi veden (Predef.tk 2 vesi + ("ten" + a))) ; + "li" | "ni" | "ri" => nhn (sSusi vesi veden (Predef.tk 1 vesi + ("en" + a))) ; + "si" => nhn (sSusi vesi veden (Predef.tk 2 vesi + ("ten" + a))) ; "in" | "en" | "än" => nhn (sLiitin vesi veden) ; - _ + ("a" | "o" | "u" | "y" | "ä" | "ö") => nhn (sKukko vesi veden vesiä) ; - _ {- + "i" -} => nhn (sKorpi vesi veden (init veden + "n" + a)) - } - ** {lock_N = <>} ; + _ => case i of { + "a" | "o" | "u" | "y" | "ä" | "ö" => nhn (sKukko vesi veden vesiä) ; + "i" => nhn (sKorpi vesi veden (init veden + "n" + a)) ; + _ => vesit + } + } ** {g = NonHuman ; lock_N = <>} ; - nKukko = \a,b,c -> nhn (sKukko a b c) ** {lock_N = <>} ; + nKukko = \a,b,c -> nhn (sKukko a b c) ** {g = nonhuman ; lock_N = <>} ; - nLukko = \a -> nhn (sLukko a) ** {lock_N = <>} ; - nTalo = \a -> nhn (sTalo a) ** {lock_N = <>} ; - nArpi = \a -> nhn (sArpi a) ** {lock_N = <>} ; - nSylki = \a -> nhn (sSylki a) ** {lock_N = <>} ; - nLinux = \a -> nhn (sLinux a) ** {lock_N = <>} ; - nPeruna = \a -> nhn (sPeruna a) ** {lock_N = <>} ; - nRae = \a,b -> nhn (sRae a b) ** {lock_N = <>} ; - nSusi = \a,b,c -> nhn (sSusi a b c) ** {lock_N = <>} ; - nPuu = \a -> nhn (sPuu a) ** {lock_N = <>} ; - nSuo = \a -> nhn (sSuo a) ** {lock_N = <>} ; - nNainen = \a -> nhn (sNainen a) ** {lock_N = <>} ; - nTilaus = \a,b -> nhn (sTilaus a b) ** {lock_N = <>} ; + humanN = \n -> {s = n.s ; lock_N = n.lock_N ; g = human} ; + + nLukko = \a -> nhn (sLukko a) ** {g = nonhuman ; lock_N = <>} ; + nTalo = \a -> nhn (sTalo a) ** {g = nonhuman ; lock_N = <>} ; + nArpi = \a -> nhn (sArpi a) ** {g = nonhuman ; lock_N = <>} ; + nSylki = \a -> nhn (sSylki a) ** {g = nonhuman ; lock_N = <>} ; + nLinux = \a -> nhn (sLinux a) ** {g = nonhuman ; lock_N = <>} ; + nPeruna = \a -> nhn (sPeruna a) ** {g = nonhuman ; lock_N = <>} ; + nRae = \a,b -> nhn (sRae a b) ** {g = nonhuman ; lock_N = <>} ; + nSusi = \a,b,c -> nhn (sSusi a b c) ** {g = nonhuman ; lock_N = <>} ; + nPuu = \a -> nhn (sPuu a) ** {g = nonhuman ; lock_N = <>} ; + nSuo = \a -> nhn (sSuo a) ** {g = nonhuman ; lock_N = <>} ; + nNainen = \a -> nhn (sNainen a) ** {g = nonhuman ; lock_N = <>} ; + nTilaus = \a,b -> nhn (sTilaus a b) ** {g = nonhuman ; lock_N = <>} ; nKulaus = \a -> nTilaus a (init a + "ksen" + getHarmony (last (init a))) ; - nNauris = \a -> nhn (sNauris a) ** {lock_N = <>} ; + nNauris = \a -> nhn (sNauris a) ** {g = nonhuman ; lock_N = <>} ; sgpartN noun part = { s = table { NCase Sg Part => part ; @@ -466,96 +475,89 @@ reg3N = \vesi,veden,vesi let a = vowelHarmony meri in sgpartN (reg2N meri (meri + a)) (init meri + "ta") ; - compN = \s,n -> {s = \\c => s ++ n.s ! c ; g = n.g ; lock_N = <>} ; - - mkN2 = \n,c -> n ** {c2 = c ; lock_N2 = <>} ; - mkN3 = \n,c,e -> n ** {c2 = c ; c3 = e ; lock_N3 = <>} ; - genN2 = \n -> mkN2 n (casePrep genitive) ; - regPN m = mkPN (regN m) ; + nComp = \s,n -> {s = \\c => s ++ n.s ! c ; g = n.g ; lock_N = <>} ; + mkN2 = \n,c -> n2n n ** {c = NPCase c ; lock_N2 = <>} ; + mkN3 = \n,c,e -> n2n n ** {c = NPCase c ; c2 = NPCase e ; lock_N3 = <>} ; + genN2 = \n -> mkN2 n genitive ; mkPN n = mkProperName n ** {lock_PN = <>} ; - mkNP noun num = { - s = \\c => noun.s ! NCase num (npform2case num c) ; - a = agrP3 num ; - isPron = False ; - lock_NP = <> - } ; - mkA = \x -> {s = \\_ => (noun2adj x).s ; lock_A = <>} ; - mkA2 = \x,c -> x ** {c2 = c ; lock_A2 = <>} ; + mkA = \x -> noun2adj x ** {lock_A = <>} ; + mkA2 = \x,c -> x ** {s3 = c.s3 ; p = c.p ; c = c.c ; lock_A2 = <>} ; mkADeg x kivempi kivin = let a = last (x.s ! ((NCase Sg Part))) ; ---- gives "kivinta" kivempaa = init kivempi + a + a ; kivinta = kivin + "t" + a in - regAdjective x kivempaa kivinta ** {lock_A = <>} ; + regAdjDegr x kivempaa kivinta ** {lock_ADeg = <>} ; - regA suuri = + regADeg suuri = let suur = regN suuri in mkADeg suur (init (suur.s ! NCase Sg Gen) + "mpi") (init (suur.s ! NCase Pl Ess)) ; - regADeg = regA ; -- for bw compat - mkV a b c d e f g h i j k l = mkVerb a b c d e f g h i j k l ** - {sc = NPCase Nom ; lock_V = <>} ; + {sc = Nom ; lock_V = <>} ; - regV soutaa = v2v (regVerbH soutaa) ** {sc = NPCase Nom ; lock_V = <>} ; + regV soutaa = v2v (regVerbH soutaa) ** {sc = Nom ; lock_V = <>} ; reg2V : (soutaa,souti : Str) -> V = \soutaa,souti -> - v2v (reg2VerbH soutaa souti) ** {sc = NPCase Nom ; lock_V = <>} ; + v2v (reg2VerbH soutaa souti) ** {sc = Nom ; lock_V = <>} ; reg3V soutaa soudan souti = - v2v (reg3VerbH soutaa soudan souti) ** {sc = NPCase Nom ; lock_V = <>} ; + v2v (reg3VerbH soutaa soudan souti) ** {sc = Nom ; lock_V = <>} ; - subjcaseV v c = {s = v.s ; sc = NPCase c ; lock_V = v.lock_V} ; + vValua v = v2v (vSanoa v) ** {sc = Nom ; lock_V = <>} ; + vKattaa v u = v2v (vOttaa v u) ** {sc = Nom ; lock_V = <>} ; + vOstaa v = v2v (vPoistaa v) ** {sc = Nom ; lock_V = <>} ; + vNousta v u = v2v (vJuosta v u [] []) ** {sc = Nom ; lock_V = <>} ; ----- + vTuoda v = v2v (vJuoda v []) ** {sc = Nom ; lock_V = <>} ; ----- + caseV c v = {s = v.s ; sc = c ; lock_V = <>} ; - vValua v = v2v (vSanoa v) ** {sc = NPCase Nom ; lock_V = <>} ; - vKattaa v u = v2v (vOttaa v u) ** {sc = NPCase Nom ; lock_V = <>} ; - vOstaa v = v2v (vPoistaa v) ** {sc = NPCase Nom ; lock_V = <>} ; - vNousta v u = v2v (vJuosta v u [] []) ** {sc = NPCase Nom ; lock_V = <>} ; ----- - vTuoda v = v2v (vJuoda v []) ** {sc = NPCase Nom ; lock_V = <>} ; ----- - caseV c v = {s = v.s ; sc = NPCase c ; lock_V = <>} ; - - vOlla = verbOlla ** {sc = NPCase Nom ; lock_V = <>} ; + vOlla = verbOlla ** {sc = Nom ; lock_V = <>} ; + vEi = verbEi ** {sc = Nom ; lock_V = <>} ; vHuoltaa : (_,_,_,_ : Str) -> Verb = \ottaa,otan,otti,otin -> - v2v (MorphoFin.vHuoltaa ottaa otan otti otin) ** {sc = NPCase Nom ; lock_V = <>} ; - - - mkV2 = \v,c -> v ** {c2 = c ; lock_V2 = <>} ; - caseV2 = \v,c -> mkV2 v (casePrep c) ; - dirV2 v = mkV2 v accPrep ; + v2v (SyntaxFin.vHuoltaa ottaa otan otti otin) ** {sc = Nom ; lock_V = <>} ; + mkV2 = \v,c -> v ** {s3 = c.s3 ; p = c.p ; c = c.c ; lock_V2 = <>} ; + caseV2 = \v,c -> mkV2 v (caseP c) ; + dirV2 v = mkTransVerbDir v ** {lock_V2 = <>} ; mkAdv : Str -> Adv = \s -> {s = s ; lock_Adv = <>} ; - mkV3 v p q = v ** {c2 = p ; c3 = q ; lock_V3 = <>} ; - dirV3 v p = mkV3 v accPrep (casePrep p) ; + mkV3 v p q = v ** + {s3 = p.s3 ; p = p.p ; c = p.c ; s5 = q.s3 ; p2 = q.p ; c2 = q.c ; + lock_V3 = <>} ; + dirV3 v p = mkV3 v accusative (caseP p) ; dirdirV3 v = dirV3 v allative ; + mkV0 v = v ** {lock_V0 = <>} ; mkVS v = v ** {lock_VS = <>} ; - mkVV v = v ** {lock_VV = <>} ; + mkV2S v = v ** {lock_V2S = <>} ; +-- mkVV v = v ** {lock_VV = <>} ; + mkV2V v = v ** {lock_V2V = <>} ; + mkVA v c = v ** {c = c ; lock_VA = <>} ; + mkV2A v c = v ** {c2 = c ; lock_V2A = <>} ; mkVQ v = v ** {lock_VQ = <>} ; + mkV2Q v = v ** {lock_V2Q = <>} ; - V0 : Type = V ; - V2S, V2V, V2Q : Type = V2 ; - AS, A2S, AV : Type = A ; - A2V : Type = A2 ; + mkAS v = v ** {lock_AS = <>} ; + mkA2S v = v ** {lock_A2S = <>} ; + mkAV v = v ** {lock_AV = <>} ; + mkA2V v = v ** {lock_A2V = <>} ; - mkV0 v = v ** {lock_V = <>} ; - mkV2S v p = mkV2 v p ** {lock_V2 = <>} ; - mkV2V v p = mkV2 v p ** {lock_V2 = <>} ; - mkVA v p = v ** {c2 = p ; lock_VA = <>} ; - mkV2A v p q = v ** {c2 = p ; c3 = q ; lock_V2A = <>} ; - mkV2Q v p = mkV2 v p ** {lock_V2 = <>} ; +-- inf_illative +-- infinitive - mkAS v = v ** {lock_A = <>} ; - mkA2S v p = mkA2 v p ** {lock_A = <>} ; - mkAV v = v ** {lock_A = <>} ; - mkA2V v p = mkA2 v p ** {lock_A2 = <>} ; +-- V3 = TransVerb ** {s5, s6 : Str ; c2 : ComplCase} ; +-- Verb ** {s3, s4 : Str ; c : ComplCase} ; +-- mkN3 n c1 c2 +-- {c : NPForm} ; +-- N3 = Function ** {c2 : NPForm} ; } ; + diff --git a/lib/resource/finnish/ResourceFin.gf b/lib/resource-0.9/finnish/ResourceFin.gf similarity index 100% rename from lib/resource/finnish/ResourceFin.gf rename to lib/resource-0.9/finnish/ResourceFin.gf diff --git a/lib/resource/finnish/RulesFin.gf b/lib/resource-0.9/finnish/RulesFin.gf similarity index 100% rename from lib/resource/finnish/RulesFin.gf rename to lib/resource-0.9/finnish/RulesFin.gf diff --git a/lib/resource-0.9/finnish/StructuralFin.gf b/lib/resource-0.9/finnish/StructuralFin.gf new file mode 100644 index 000000000..79ff08979 --- /dev/null +++ b/lib/resource-0.9/finnish/StructuralFin.gf @@ -0,0 +1,114 @@ +--# -path=.:../abstract:../../prelude + +--1 The Top-Level Finnish Resource Grammar: Structural Words +-- +-- Aarne Ranta 2002 -- 2005 +-- +concrete StructuralFin of Structural = + CategoriesFin, NumeralsFin ** open Prelude, SyntaxFin in { + flags optimize=all ; + + lin + + UseNumeral i = {s = \\np => i.s ! NCase Sg (npForm2Case Sg np) ; n = i.n ; isNum = True} ; + + above_Prep = prepPostpGen "yläpuolella" ; + after_Prep = prepPostpGen "jälkeen" ; + all8mass_Det = mkDeterminer singular (kaikkiPron Sg) ; + all_NDet = mkDeterminerNum (kaikkiPron Pl) ; + almost_Adv = ss "melkein" ; + although_Subj = ss "vaikka" ; + although_Subj = ss "vaikka" ; + and_Conj = ss "ja" ** {n = Pl} ; + because_Subj = ss "koska" ; + before_Prep = prepPrep "ennen" Part ; + behind_Prep = prepPostpGen "takana" ; + between_Prep = prepPostpGen "välissä" ; + both_AndConjD = sd2 "sekä" "että" ** {n = Pl} ; + by8agent_Prep = prepPostpGen "toimesta" ; + by8means_Prep = prepPostpGen "avulla" ; +---- can8know_VV = nomVerbVerb (vOsata "osata") ; +---- can_VV = nomVerbVerb (vJuoda "voida" "voi") ; + during_Prep = prepPostpGen "aikana" ; + either8or_ConjD = sd2 "joko" "tai" ** {n = Sg} ; + everybody_NP = { + s = \\f => kaikkiPron Pl ! (npForm2Case Pl f) ; -- näin kaikki + n = Pl ; + p = NP3 + } ; + every_Det = jokainenDet ; + everything_NP = { + s = \\f => kaikkiPron Sg ! (npForm2Case Sg f) ; -- näin kaiken + n = Sg ; + p = NP3 + } ; + everywhere_Adv = ss "kaikkialla" ; + from_Prep = prepCase Elat ; --- ablat + he_NP = pronNounPhrase pronHan ; + how_IAdv = ss "kuinka" ; + if_Subj = ss "jos" ; + in8front_Prep = prepPostpGen "edessä" ; + i_NP = pronNounPhrase pronMina ; + in_Prep = prepCase Iness ; + it_NP = nameNounPhrase pronSe ; + many_Det = mkDeterminer singular moniPron ; + most8many_Det = useimmatDet ; + most_Det = mkDeterminer singular (caseTable singular (nhn (sSuurin "enintä"))) ; + much_Det = mkDeterminer singular (caseTable singular (nhn (sNauris "runsasta"))) ; +---- must_VV = vHukkua "täytyä" "täydy" ** {c = CCase Gen} ; + no_Phr = ss ("Ei" ++ stopPunct) ; + on_Prep = prepCase Adess ; + or_Conj = ss "tai" ** {n = Sg} ; + otherwise_Adv = ss "muuten" ; + part_Prep = prepCase Part ; + possess_Prep = prepCase Gen ; + quite_Adv = ss "aika" ; + she_NP = pronNounPhrase pronHan ; + so_Adv = ss "niin" ; + somebody_NP = { + s = \\f => jokuPron ! Sg ! (npForm2Case Sg f) ; + n = Sg ; + p = NP3 + } ; + some_Det = mkDeterminerGen Sg (jokinPron ! Sg) (jokuPron ! Sg) ; + some_NDet = mkDeterminerGenNum (jokinPron ! Pl) (jokuPron ! Pl) ; + something_NP = { + s = \\f => jokinPron ! Sg ! (npForm2Case Sg f) ; -- näin kaiken + n = Sg ; + p = NP3 + } ; + somewhere_Adv = ss "jossain" ; + that_Det = mkDeterminer Sg (\\c => pronTuo.s ! PCase c) ; + that_NP = pronNounPhraseNP pronTuo ; + therefore_Adv = ss "siksi" ; + these_NDet = mkDeterminerNum (\\c => pronNama.s ! PCase c) ; + they_NP = pronNounPhrase pronHe ; --- ne + this_Det = mkDeterminer Sg (\\c => pronTama.s ! PCase c) ; + this_NP = pronNounPhraseNP pronTama ; + those_NDet = mkDeterminerNum (\\c => pronNuo.s ! PCase c) ; + thou_NP = pronNounPhrase pronSina ; + through_Prep = prepPostpGen "kautta" ; + too_Adv = ss "liian" ; + to_Prep = prepCase Illat ; --- allat + under_Prep = prepPostpGen "alla" ; + very_Adv = ss "hyvin" ; +---- want_VV = nomVerbVerb (vOsata "haluta") ; + we_NP = pronNounPhrase pronMe ; + what8many_IP = intPronWhat Pl ; + what8one_IP = intPronWhat Sg ; + when_IAdv = ss "koska" ; + when_Subj = ss "kun" ; + where_IAdv = ss "missä" ; + which8one_IDet = mikaDet ; +---- which8many_IDet n = mkDeterminerGenNum n (mikaInt ! Pl) (kukaInt ! Pl) ; + who8many_IP = intPronWho Pl ; + who8one_IP = intPronWho Sg ; + + why_IAdv = ss "miksi" ; + without_Prep = prepPrep "ilman" Part ; + with_Prep = prepPostpGen "kanssa" ; + ye_NP = pronNounPhrase pronTe ; + yes_Phr = ss ("Kyllä" ++ stopPunct) ; + you_NP = pronNounPhrase pronTe ; + +} diff --git a/lib/resource/finnish/SwadeshLexFin.gf b/lib/resource-0.9/finnish/SwadeshLexFin.gf similarity index 100% rename from lib/resource/finnish/SwadeshLexFin.gf rename to lib/resource-0.9/finnish/SwadeshLexFin.gf diff --git a/lib/resource/finnish/SyntaxFin.gf b/lib/resource-0.9/finnish/SyntaxFin.gf similarity index 100% rename from lib/resource/finnish/SyntaxFin.gf rename to lib/resource-0.9/finnish/SyntaxFin.gf diff --git a/lib/resource/finnish/TypesFin.gf b/lib/resource-0.9/finnish/TypesFin.gf similarity index 100% rename from lib/resource/finnish/TypesFin.gf rename to lib/resource-0.9/finnish/TypesFin.gf diff --git a/lib/resource/french/BasicFre.gf b/lib/resource-0.9/french/BasicFre.gf similarity index 100% rename from lib/resource/french/BasicFre.gf rename to lib/resource-0.9/french/BasicFre.gf diff --git a/lib/resource-1.0/french/BeschFre.gf b/lib/resource-0.9/french/BeschFre.gf similarity index 97% rename from lib/resource-1.0/french/BeschFre.gf rename to lib/resource-0.9/french/BeschFre.gf index 9903e07ec..4f67c7ecc 100644 --- a/lib/resource-1.0/french/BeschFre.gf +++ b/lib/resource-0.9/french/BeschFre.gf @@ -1,6 +1,4 @@ -resource BeschFre = open Prelude, MorphoFre in { - -flags optimize=noexpand ; -- faster and smaller than =all +resource BeschFre = open Prelude, TypesFre, MorphoFre in { oper VerbeN = {s : VF => Str} ; oper mkNV : Verbe -> VerbeN = \ve -> {s = vvf ve} ; @@ -8,7 +6,7 @@ oper mkNV : Verbe -> VerbeN = \ve -> {s = vvf ve} ; oper conj : Str -> Verbe = conj1aimer ; --- temp. default oper v_nancy100inf : Str -> VerbeN = \ve -> {s = table { - VInfin _ => ve ; + VInfin => ve ; _ => nonExist } } ; @@ -99,4 +97,4 @@ oper v_besch82 : Str -> VerbeN = \s -> mkNV (conj3cuire s) ; oper v_besch100 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do -} +} \ No newline at end of file diff --git a/lib/resource/french/CategoriesFre.gf b/lib/resource-0.9/french/CategoriesFre.gf similarity index 100% rename from lib/resource/french/CategoriesFre.gf rename to lib/resource-0.9/french/CategoriesFre.gf diff --git a/lib/resource/french/ClauseFre.gf b/lib/resource-0.9/french/ClauseFre.gf similarity index 100% rename from lib/resource/french/ClauseFre.gf rename to lib/resource-0.9/french/ClauseFre.gf diff --git a/lib/resource/french/ConjugNancy.gf b/lib/resource-0.9/french/ConjugNancy.gf similarity index 100% rename from lib/resource/french/ConjugNancy.gf rename to lib/resource-0.9/french/ConjugNancy.gf diff --git a/lib/resource/french/CountryFre.gf b/lib/resource-0.9/french/CountryFre.gf similarity index 100% rename from lib/resource/french/CountryFre.gf rename to lib/resource-0.9/french/CountryFre.gf diff --git a/lib/resource/french/DemResFre.gf b/lib/resource-0.9/french/DemResFre.gf similarity index 100% rename from lib/resource/french/DemResFre.gf rename to lib/resource-0.9/french/DemResFre.gf diff --git a/lib/resource/french/DemonstrativeFre.gf b/lib/resource-0.9/french/DemonstrativeFre.gf similarity index 100% rename from lib/resource/french/DemonstrativeFre.gf rename to lib/resource-0.9/french/DemonstrativeFre.gf diff --git a/lib/resource-0.9/french/LangFre.gf b/lib/resource-0.9/french/LangFre.gf new file mode 100644 index 000000000..bc9935c10 --- /dev/null +++ b/lib/resource-0.9/french/LangFre.gf @@ -0,0 +1,23 @@ +--# -path=.:../romance:../abstract:../../prelude + +concrete LangFre of Lang = + RulesFre, + ClauseFre, + StructuralFre, + BasicFre, + TimeFre, + CountryFre, + MathFre + + ** open Prelude, ParadigmsFre in { + +lin + AdvDate d = prefixSS "le" d ; + AdvTime t = prefixSS "à" t ; + NWeekday w = w ; + PNWeekday w = mkPN (w.s ! singular) w.g ; + + PNCountry x = x ; + ANationality x = x ; + NLanguage x = x ; +} diff --git a/lib/resource/french/MathFre.gf b/lib/resource-0.9/french/MathFre.gf similarity index 100% rename from lib/resource/french/MathFre.gf rename to lib/resource-0.9/french/MathFre.gf diff --git a/lib/resource/french/MkVerbs.hs b/lib/resource-0.9/french/MkVerbs.hs similarity index 100% rename from lib/resource/french/MkVerbs.hs rename to lib/resource-0.9/french/MkVerbs.hs diff --git a/lib/resource-1.0/french/MorphoFre.gf b/lib/resource-0.9/french/MorphoFre.gf similarity index 83% rename from lib/resource-1.0/french/MorphoFre.gf rename to lib/resource-0.9/french/MorphoFre.gf index 2af5be809..29ae4d39e 100644 --- a/lib/resource-1.0/french/MorphoFre.gf +++ b/lib/resource-0.9/french/MorphoFre.gf @@ -1,19 +1,21 @@ ---# -path=.:../romance:../common:../../prelude +--# -path=.:../romance:../../prelude --1 A Simple French Resource Morphology -- --- Aarne Ranta 2002 -- 2005 +-- Aarne Ranta 2002--2003 -- -- This resource morphology contains definitions needed in the resource --- syntax. To build a lexicon, it is better to use $ParadigmsFre$, which --- gives a higher-level access to this module. +-- syntax. It moreover contains the most usual inflectional patterns. +-- The patterns for verbs contain the complete "Bescherelle" conjugation +-- tables. +-- +-- We use the parameter types and word classes defined in $types.Fra.gf$. -resource MorphoFre = CommonRomance, ResFre ** - open PhonoFre, Prelude, Predef in { +resource MorphoFre = open Predef, Prelude, TypesFre in { flags optimize=all ; ---2 Front vowels +--3 Front vowels -- -- In verb conjugation, we will need the concept of frontal vowel. @@ -36,8 +38,6 @@ oper -- Common nouns are inflected in number and have an inherent gender. - CNom = {s : Number => Str ; g : Gender} ; - mkCNom : (Number => Str) -> Gender -> CNom = \mecmecs,gen -> {s = mecmecs ; g = gen} ; @@ -58,7 +58,7 @@ oper mkCNomIrreg cas cas ; mkNomReg : Str -> Gender -> CNom = \cas -> - let cass = case Predef.dp 2 cas of { + let cass = case dp 2 cas of { "al" => init cas + "ux" ; "au" => cas + "x" ; "eu" => cas + "x" ; @@ -73,6 +73,23 @@ oper in mkCNomIrreg cas cass ; +-- The definite article has quite some variation: three parameters and +-- elision. This is the simples definition we have been able to find. + + artDef : Gender -> Number -> Case -> Str = \g,n,c -> artDefTable ! g ! n ! c ; + + artDefTable : Gender => Number => Case => Str = \\g,n,c => case of { + => elisLe ; + => pre {"du" ; ["de l'"] / voyelle} ; + => pre {"au" ; ["à l'"] / voyelle} ; + => elisLe ; + => prepCase c ++ elisLa ; + <_, Pl, Gen> => "des" ; + <_, Pl, Dat> => "aux" ; + <_, Pl, _ > => "les" + } ; + + --2 Adjectives -- -- Adjectives are conveniently seen as gender-dependent nouns. @@ -161,25 +178,151 @@ oper -- The use of "en" as atonic genitive is debatable. mkPronoun : (_,_,_,_,_,_,_ : Str) -> - Gender -> Number -> Person -> Pronoun = - \il,le,lui,Lui,son,sa,ses,g,n,p -> + PronGen -> Number -> Person -> ClitType -> Pronoun = + \il,le,lui,Lui,son,sa,ses,g,n,p,c -> {s = table { Ton x => prepCase x ++ Lui ; Aton Nom => il ; Aton Acc => le ; - Aton (CPrep P_de) => "en" ; --- hmm - Aton (CPrep P_a) => lui ; - Poss {n = Sg ; g = Masc} => son ; - Poss {n = Sg ; g = Fem} => sa ; - Poss {n = Pl} => ses + Aton Gen => "en" ; --- hmm + Aton Dat => lui ; + Poss Sg Masc => son ; + Poss Sg Fem => sa ; + Poss Pl _ => ses } ; - a = {g = g ; n = n ; p = p} ; - hasClit = True + g = g ; + n = n ; + p = p ; + c = c } ; elisPoss : Str -> Str = \s -> pre {s + "a" ; s + "on" / voyelle} ; + pronJe = mkPronoun + (elision "j") + (elision "m") + (elision "m") + "moi" + "mon" (elisPoss "m") "mes" + PNoGen -- gender cannot be known from pronoun alone + Sg + P1 + Clit1 ; + + pronTu = mkPronoun + "tu" + (elision "t") + (elision "t") + "toi" + "ton" (elisPoss "t") "tes" + PNoGen + Sg + P2 + Clit1 ; + + pronIl = mkPronoun + "il" + (elision "l") + "lui" + "lui" + "son" (elisPoss "s") "ses" + (PGen Masc) + Sg + P3 + Clit2 ; + +---- A hack to get the dative form "y". + pronY = mkPronoun + "il" + (elision "l") + "y" + "lui" + "en" "en" "en" + (PGen Masc) + Sg + P3 + Clit2 ; + + pronElle = mkPronoun + "elle" + elisLa + "lui" + "elle" + "son" (elisPoss "s") "ses" + (PGen Fem) + Sg + P3 + Clit2 ; + + pronNous = mkPronoun + "nous" + "nous" + "nous" + "nous" + "notre" "notre" "nos" + PNoGen + Pl + P1 + Clit3 ; + + pronVous = mkPronoun + "vous" + "vous" + "vous" + "vous" + "votre" "votre" "vos" + PNoGen + Pl --- depends! + P2 + Clit3 ; + + pronIls = mkPronoun + "ils" + "les" + "leur" + "eux" + "leur" "leur" "leurs" + (PGen Masc) + Pl + P3 + Clit1 ; + + pronElles = mkPronoun + "elles" + "les" + "leur" + "elles" + "leur" "leur" "leurs" + (PGen Fem) + Pl + P3 + Clit1 ; + + personPron : Gender -> Number -> Person -> Pronoun = \g,n,p -> + case of { + => pronJe ; + => pronTu ; + => case g of { + Masc => pronIl ; + Fem => pronElle + } ; + => pronNous ; + => pronVous ; + => case g of { + Masc => pronIls ; + Fem => pronElles + } + } ; + +-- Reflexive pronouns are defined in $SyntaxFre$. + +-- The composable pronoun "lequel" is inflected by varying the definite +-- article and the determiner "quel" in the expected way. + + lequelPron : Gender -> Number -> Case -> Str = \g,n,c -> + artDef g n c + quelPron g n ; + --2 Determiners -- @@ -192,6 +335,15 @@ oper Fem => nomReg telle ! n } ; + quelPron : Gender -> Number -> Str = pronForms "quel" "quelle" ; + + telPron : Gender -> Number -> Str = pronForms "tel" "telle" ; + + toutPron : Gender -> Number -> Str = \g,n -> case g of { + Masc => numForms "tout" "tous" ! n ; + Fem => nomReg "toutee" ! n + } ; + -- The following macro generates the phrases "est-ce que", "est-ce qu'", -- and "est-ce qui" (the last one used e.g. in "qu'est-ce qui"). @@ -204,44 +356,22 @@ oper --2 Verbs +-- +--3 The present tense +-- +-- We first define some macros for the special case of present tense. +-- +-- The verb "être" is often used in syntax. ---3 Parameters - --- The full conjunction is a table on $VForm$, as in "Bescherelle". - -param - Temps = Presn | Imparf | Passe | Futur ; - TSubj = SPres | SImparf ; - TPart = PPres | PPasse Gender Number ; - VForm = Inf - | Indi Temps Number Person - | Condi Number Person - | Subjo TSubj Number Person - | Imper NumPersI - | Part TPart ; - --- This is a conversion to the type in $CommonRomance$. - -oper - vvf : (VForm => Str) -> (VF => Str) = \aller -> table { - VInfin _ => aller ! Inf ; - VFin (VPres Indic) n p => aller ! Indi Presn n p ; - VFin (VPres Subjunct) n p => aller ! Subjo SPres n p ; - VFin (VImperf Indic) n p => aller ! Indi Imparf n p ; --# notpresent - VFin (VImperf Subjunct) n p => aller ! Subjo SImparf n p ; --# notpresent - VFin VPasse n p => aller ! Indi Passe n p ; --# notpresent - VFin VFut n p => aller ! Indi Futur n p ; --# notpresent - VFin VCondit n p => aller ! Condi n p ; --# notpresent - VImper np => aller ! Imper np ; - VPart g n => aller ! Part (PPasse g n) ; - VGer => aller ! Part PPres -- *en* allant - } ; + verbEtre = verbPres (conjÊtre "être") AHabere ; + verbAvoir = verbPres (conjAvoir "avoir") AHabere ; -- We very often form the verb stem by dropping out the infinitive ending. troncVerb : Tok -> Tok = Predef.tk 2 ; + --3 Affixes -- -- It is convenient to have sets of affixes as data objects. @@ -363,13 +493,13 @@ oper \affpres, affpasse -> table { Inf => tenir ; - Indi Presn Sg p => tien + affpres ! p ; - Indi Presn Pl P3 => tienn + affixPlOns ! P3 ; - Indi Presn Pl p => ten + affixPlOns ! p ; - Indi Imparf n p => ten + affixImparf ! n ! p ; - Indi Passe n p => t + affpasse.ps ! n ! p ; - Indi Futur n p => tiendr + affixFutur ! n ! p ; - Condi n p => tiendr + affixImparf ! n ! p ; + Indic Pres Sg p => tien + affpres ! p ; + Indic Pres Pl P3 => tienn + affixPlOns ! P3 ; + Indic Pres Pl p => ten + affixPlOns ! p ; + Indic Imparf n p => ten + affixImparf ! n ! p ; + Indic Passe n p => t + affpasse.ps ! n ! p ; + Indic Futur n p => tiendr + affixFutur ! n ! p ; + Cond n p => tiendr + affixImparf ! n ! p ; Subjo SPres Sg p => soi + affixSPres ! Sg ! p ; Subjo SPres Pl P3 => soi + "ent" ; Subjo SPres Pl p => soy + affixSPres ! Pl ! p ; @@ -461,9 +591,9 @@ oper mkVerbReg : Str -> Verbe = \parler -> let - e = last (Predef.tk 4 parler) ; - c = last (Predef.tk 3 parler) ; - verb_é = pbool2bool (occur "é" (e + last (Predef.tk 5 parler))) ; + e = last (tk 4 parler) ; + c = last (tk 3 parler) ; + verb_é = pbool2bool (occur "é" (e + last (tk 5 parler))) ; verb_e = andB (pbool2bool (occur e "e")) (pbool2bool (occur c "cmnprsv")) in case Predef.dp 4 parler of { @@ -478,7 +608,7 @@ oper "cer" => conj1placer parler ; "ger" => conj1manger parler ; "yer" => conj1payer parler ; - _ => case Predef.dp 2 parler of { + _ => case dp 2 parler of { "ir" => conj2finir parler ; _ => conj1aimer parler } @@ -556,7 +686,7 @@ oper vet = auxConj3ir "vêt" "vêt" "u" } in table { - Indi Presn Sg P3 => s + "vêt" ; + Indic Pres Sg P3 => s + "vêt" ; p => s + vet ! p }; @@ -586,11 +716,11 @@ oper tfa = conj3assaillir faillir } in table { - Indi Presn Sg p => fa + "u" + affixSgX ! p ; + Indic Pres Sg p => fa + "u" + affixSgX ! p ; Subjo SPres n p => fa + variants {"illiss" ; "ill"} + affixSPres ! n ! p ; - Indi Futur n p => variants {tfa ! Indi Futur n p ; faudr + affixFutur ! n ! p} ; - Condi n p => variants {tfa ! Condi n p ; faudr + affixImparf ! n ! p} ; + Indic Futur n p => variants {tfa ! Indic Futur n p ; faudr + affixFutur ! n ! p} ; + Cond n p => variants {tfa ! Cond n p ; faudr + affixImparf ! n ! p} ; Imper _ => nonExist ; p => tfa ! p @@ -602,7 +732,7 @@ oper tbou = conj3assaillir bouillir } in table { - Indi Presn Sg p => bou + affixSgS ! p ; + Indic Pres Sg p => bou + affixSgS ! p ; Imper SgP2 => bou + "s" ; p => tbou ! p }; @@ -648,9 +778,9 @@ oper let {g = Predef.tk 4 gésir} in table { Inf => g + "ésir" ; - Indi Presn Sg p => g + lesAffixes "is" "is" "ît" ! p ; - Indi Presn Pl p => g + "is" + affixPlOns ! p ; - Indi Imparf n p => g + "is" + affixImparf ! n ! p ; + Indic Pres Sg p => g + lesAffixes "is" "is" "ît" ! p ; + Indic Pres Pl p => g + "is" + affixPlOns ! p ; + Indic Imparf n p => g + "is" + affixImparf ! n ! p ; Part PPres => g + "isant" ; _ => nonExist } ; @@ -720,7 +850,7 @@ oper tpouvoir = auxConj3usX "eu" "ouv" "euv" "" "ourr" "uiss" "uiss" "ouv" } in table { - Indi Presn Sg P1 => p + variants {"eux" ; "uis"} ; + Indic Pres Sg P1 => p + variants {"eux" ; "uis"} ; t => p + tpouvoir ! t } ; @@ -738,11 +868,11 @@ oper auxConj3seul3sg : (_,_,_,_,_ : Str) -> Verbe = \faut, fall, pl, faudr, faill -> table { Inf => fall + "oir" ; - Indi Presn Sg P3 => faut ; - Indi Imparf Sg P3 => fall + "ait" ; - Indi Passe Sg P3 => pl + "ut" ; - Indi Futur Sg P3 => faudr + "a" ; - Condi Sg P3 => faudr + "ait" ; + Indic Pres Sg P3 => faut ; + Indic Imparf Sg P3 => fall + "ait" ; + Indic Passe Sg P3 => pl + "ut" ; + Indic Futur Sg P3 => faudr + "a" ; + Cond Sg P3 => faudr + "ait" ; Subjo SPres Sg P3 => faill + "e" ; Subjo SImparf Sg P3 => pl + "ût" ; Part PPres => fall + "ant" ; @@ -792,7 +922,7 @@ oper } in table { Inf => ass + "eoir" ; - Indi Presn Sg P3 => ass + "ied" ; + Indic Pres Sg P3 => ass + "ied" ; t => ass + tasseoir ! t } ; @@ -812,12 +942,12 @@ oper tseoir = conj3asseoir seoir } in table { - Indi Presn Pl P3 => s + "iéent" ; - Indi _ _ P1 => nonExist ; - Indi _ _ P2 => nonExist ; - Indi Passe _ _ => nonExist ; - Condi _ P1 => nonExist ; - Condi _ P2 => nonExist ; + Indic Pres Pl P3 => s + "iéent" ; + Indic _ _ P1 => nonExist ; + Indic _ _ P2 => nonExist ; + Indic Passe _ _ => nonExist ; + Cond _ P1 => nonExist ; + Cond _ P2 => nonExist ; Subjo SPres Sg P3 => s + "iée" ; Subjo SPres Pl P3 => s + "iéent" ; Subjo _ _ _ => nonExist ; @@ -860,13 +990,13 @@ oper conj3échoir : Str -> Verbe = \échoir -> let {techoir = conj3choir échoir} in table { - Indi _ _ P1 => nonExist ; - Indi _ _ P2 => nonExist ; - Indi Presn Pl P3 => Predef.tk 3 échoir + variants {"oient" ; "éent"} ; + Indic _ _ P1 => nonExist ; + Indic _ _ P2 => nonExist ; + Indic Pres Pl P3 => Predef.tk 3 échoir + variants {"oient" ; "éent"} ; Subjo _ _ P1 => nonExist ; Subjo _ _ P2 => nonExist ; - Condi _ P1 => nonExist ; - Condi _ P2 => nonExist ; + Cond _ P1 => nonExist ; + Cond _ P2 => nonExist ; Imper _ => nonExist ; Part PPres => Predef.tk 3 échoir + "éant" ; t => techoir ! t @@ -950,8 +1080,8 @@ oper } in table { Inf => faire ; - Indi Presn Pl P2 => fai + "tes" ; - Indi Presn Pl P3 => f + "ont" ; + Indic Pres Pl P2 => fai + "tes" ; + Indic Pres Pl P3 => f + "ont" ; Subjo SPres Pl p => f + "ass" + affixSPres ! Pl ! p ; Imper PlP2 => fai + "tes" ; t => tfaire ! t @@ -963,7 +1093,7 @@ oper auxConj3ît : Verbe -> Str -> Verbe = \conj,plaît -> table { - Indi Presn Sg P3 => plaît ; + Indic Pres Sg P3 => plaît ; t => conj ! t } ; @@ -1003,7 +1133,7 @@ oper conj3paître : Str -> Verbe = \paître -> let {tpaitre = conj3connaître paître} in table { - Indi Passe _ _ => nonExist ; + Indic Passe _ _ => nonExist ; Subjo SImparf _ _ => nonExist ; Part (PPasse _ _) => Predef.tk 5 paître + "u" ; p => tpaitre ! p @@ -1039,10 +1169,10 @@ oper nonExist (clo + "r") clos clos } in table { - Indi Presn Sg P3 => Predef.tk 1 clo + "ôt" ; - Indi Presn Pl P1 => nonExist ; - Indi Presn Pl P2 => nonExist ; - Indi Imparf _ _ => nonExist ; + Indic Pres Sg P3 => Predef.tk 1 clo + "ôt" ; + Indic Pres Pl P1 => nonExist ; + Indic Pres Pl P2 => nonExist ; + Indic Imparf _ _ => nonExist ; Imper PlP1 => nonExist ; Imper PlP2 => nonExist ; t => tclore ! t @@ -1063,7 +1193,7 @@ oper tabsoudre = conj3résoudre absoudre } in table { - Indi Passe _ _ => nonExist ; + Indic Passe _ _ => nonExist ; Subjo SImparf _ _ => nonExist ; Part (PPasse Masc _) => abso + "us" ; Part (PPasse Fem n) => nomReg (abso + "ute") ! n ; @@ -1130,7 +1260,7 @@ oper affixSgS affixPasseI di dis dis d (di + "r") dit (dit+"s") } in table { - Indi Presn Pl P2 => di + "tes" ; + Indic Pres Pl P2 => di + "tes" ; Imper PlP2 => di + "tes" ; t => tdire ! t } ; @@ -1172,9 +1302,9 @@ oper affixSgS affixPasseA } in table { - Indi Presn Sg P1 => s + "vais" ; - Indi Presn n p => s + pres ! n ! p ; - Indi Imparf n p => s + "all" + affixImparf ! n ! p ; + Indic Pres Sg P1 => s + "vais" ; + Indic Pres n p => s + pres ! n ! p ; + Indic Imparf n p => s + "all" + affixImparf ! n ! p ; Imper SgP2 => s + "va" ; t => s + taller ! t } ; @@ -1188,9 +1318,9 @@ oper "soi" "soy" "soi" "f" "ser" "été" "être" affixSgS affixPasseU } in table { - Indi Presn Sg p => s + sg ! p ; - Indi Presn Pl p => s + pl ! p ; - Indi Imparf n p => s + "ét" + affixImparf ! n ! p ; + Indic Pres Sg p => s + sg ! p ; + Indic Pres Pl p => s + pl ! p ; + Indic Imparf n p => s + "ét" + affixImparf ! n ! p ; Subjo SPres Sg p => s + "soi" + affixSgS ! p ; Subjo SPres Pl P3 => s + "soient" ; Subjo SPres Pl p => s + "soy" + affixPlOns ! p ; @@ -1206,8 +1336,8 @@ oper "ai" "ay" "ai" "e" "aur" "eu" "avoir" affixSgS affixPasseU } in table { - Indi Presn n p => s + pres ! n ! p ; - Indi Imparf n p => s + "av" + affixImparf ! n ! p ; + Indic Pres n p => s + pres ! n ! p ; + Indic Imparf n p => s + "av" + affixImparf ! n ! p ; Subjo SPres Sg P3 => s + "ait" ; Subjo SPres Pl P3 => s + "aient" ; Subjo SPres Pl p => s + "ay" + affixPlOns ! p ; @@ -1215,9 +1345,15 @@ oper t => s + tavoir ! t } ; ---- for Numerals +-- for NumeralsFre param DForm = unit | teen | jten | ten | tenplus ; param Place = indep | attr ; +oper + digitPl : + {inh : DForm ; inh1 : Number ; s : DForm => Str} -> + {inh : DForm ; inh1 : Number ; s : Gender => DForm => Str ; n : Number} = \d -> + {inh = d.inh ; inh1 = d.inh1 ; s = \\_ => d.s ; n = Pl} ; + } diff --git a/lib/resource/french/MultimodalFre.gf b/lib/resource-0.9/french/MultimodalFre.gf similarity index 100% rename from lib/resource/french/MultimodalFre.gf rename to lib/resource-0.9/french/MultimodalFre.gf diff --git a/lib/resource/french/NumeralsFre.gf b/lib/resource-0.9/french/NumeralsFre.gf similarity index 100% rename from lib/resource/french/NumeralsFre.gf rename to lib/resource-0.9/french/NumeralsFre.gf diff --git a/lib/resource/french/OldVerbesFre.gf b/lib/resource-0.9/french/OldVerbesFre.gf similarity index 100% rename from lib/resource/french/OldVerbesFre.gf rename to lib/resource-0.9/french/OldVerbesFre.gf diff --git a/lib/resource-1.0/french/ParadigmsFre.gf b/lib/resource-0.9/french/ParadigmsFre.gf similarity index 61% rename from lib/resource-1.0/french/ParadigmsFre.gf rename to lib/resource-0.9/french/ParadigmsFre.gf index 8f0a05374..ca2fd1133 100644 --- a/lib/resource-1.0/french/ParadigmsFre.gf +++ b/lib/resource-0.9/french/ParadigmsFre.gf @@ -1,10 +1,10 @@ ---# -path=.:../romance:../common:../abstract:../../prelude +--# -path=.:../romance:../abstract:../../prelude --1 French Lexical Paradigms -- --- Aarne Ranta 2001 - 2006 +-- Aarne Ranta 2003 -- --- This is an API for the user of the resource grammar +-- This is an API to the user of the resource grammar -- for adding lexical items. It gives functions for forming -- expressions of open categories: nouns, adjectives, verbs. -- @@ -21,19 +21,13 @@ -- regular cases. Then we give a worst-case function $mkC$, which serves as an -- escape to construct the most irregular words of type $C$. -- However, this function should only seldom be needed: we have a --- separate module [``IrregFre`` ../../french/IrregFre.gf], --- which covers all irregularly inflected verbs. +-- separate module $IrregularEng$, which covers all irregularly inflected +-- words. +-- +-- The following modules are presupposed: resource ParadigmsFre = - open - (Predef=Predef), - Prelude, - CommonRomance, - ResFre, - MorphoFre, - CatFre in { - - flags optimize=all ; + open (Predef=Predef), Prelude, TypesFre, MorphoFre, SyntaxFre, RulesFre in { --2 Parameters -- @@ -57,11 +51,13 @@ oper -- amalgamate with the following word (the 'genitive' "de" and the -- 'dative' "à"). - accusative : Prep ; - genitive : Prep ; - dative : Prep ; + Preposition : Type ; - mkPrep : Str -> Prep ; + accusative : Preposition ; + genitive : Preposition ; + dative : Preposition ; + + mkPreposition : Str -> Preposition ; --2 Nouns @@ -70,20 +66,13 @@ oper mkN : (oeil,yeux : Str) -> Gender -> N ; --- The regular function takes the singular form, --- and computes the plural and the gender by a heuristic. The plural --- heuristic currently +-- The regular function takes the singular form and the gender, +-- and computes the plural by a heuristic. The heuristic currently -- covers the cases "pas-pas", "prix-prix", "nez-nez", -- "bijou-bijoux", "cheveu-cheveux", "plateau-plateaux", "cheval-chevaux". --- The gender heuristic is less reliable: it treats as feminine all --- nouns ending with "e" and "ion", all others as masculine. -- If in doubt, use the $cc$ command to test! - regN : Str -> N ; - --- Adding gender information widens the scope of the foregoing function. - - regGenN : Str -> Gender -> N ; + regN : Str -> Gender -> N ; --3 Compound nouns @@ -100,7 +89,7 @@ oper -- -- Relational nouns ("fille de x") need a case and a preposition. - mkN2 : N -> Prep -> N2 ; + mkN2 : N -> Preposition -> N2 ; -- The most common cases are the genitive "de" and the dative "à", -- with the empty preposition. @@ -110,13 +99,13 @@ oper -- Three-place relational nouns ("la connection de x à y") need two prepositions. - mkN3 : N -> Prep -> Prep -> N3 ; + mkN3 : N -> Preposition -> Preposition -> N3 ; --3 Relational common noun phrases -- -- In some cases, you may want to make a complex $CN$ into a --- relational noun (e.g. "la vieille église de"). However, $N2$ and +-- relational noun (e.g. "the old town hall of"). However, $N2$ and -- $N3$ are purely lexical categories. But you can use the $AdvCN$ -- and $PrepNP$ constructions to build phrases like this. @@ -125,10 +114,7 @@ oper -- -- Proper names need a string and a gender. - mkPN : Str -> Gender -> PN ; -- Jean - - regPN : Str -> PN ; -- feminine if "-e", masculine otherwise - + mkPN : Str -> Gender -> PN ; -- Jean -- To form a noun phrase that can also be plural, -- you can use the worst-case function. @@ -161,24 +147,33 @@ oper -- -- Two-place adjectives need a preposition for their second argument. - mkA2 : A -> Prep -> A2 ; + mkA2 : A -> Preposition -> A2 ; --3 Comparison adjectives -- Comparison adjectives are in the worst case put up from two -- adjectives: the positive ("bon"), and the comparative ("meilleure"). - mkADeg : A -> A -> A ; + mkADeg : A -> A -> ADeg ; -- If comparison is formed by "plus", as usual in French, -- the following pattern is used: - compADeg : A -> A ; + compADeg : A -> ADeg ; + +-- The regular pattern is the same as $regA$ for plain adjectives, +-- with comparison by "plus". + + regADeg : Str -> ADeg ; + +-- From a given $ADeg$, it is possible to get back to $A$. + + adegA : ADeg -> A ; -- For prefixed adjectives, the following function is -- provided. - prefA : A -> A ; + prefADeg : ADeg -> ADeg ; --2 Adverbs @@ -218,17 +213,16 @@ oper reg3V : (jeter,jette,jettera : Str) -> V ; -- The function $regV$ gives all verbs the compound auxiliary "avoir". --- To change it to "être", use the following function. Reflexive implies "être". +-- To change it to "être", use the following function. etreV : V -> V ; - reflV : V -> V ; --3 Two-place verbs -- -- Two-place verbs need a preposition, except the special case with direct object. --- (transitive verbs). +-- (transitive verbs). Notice that a particle comes from the $V$. - mkV2 : V -> Prep -> V2 ; + mkV2 : V -> Preposition -> V2 ; dirV2 : V -> V2 ; @@ -241,9 +235,9 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Prep -> Prep -> V3 ; -- parler, à, de - dirV3 : V -> Prep -> V3 ; -- donner,_,à - dirdirV3 : V -> V3 ; -- donner,_,_ + mkV3 : V -> Preposition -> Preposition -> V3 ; -- parler, à, de + dirV3 : V -> Preposition -> V3 ; -- donner,_,à + dirdirV3 : V -> V3 ; -- donner,_,_ --3 Other complement patterns -- @@ -252,129 +246,100 @@ oper mkV0 : V -> V0 ; mkVS : V -> VS ; - mkV2S : V -> Prep -> V2S ; + mkV2S : V -> Preposition -> V2S ; mkVV : V -> VV ; -- plain infinitive: "je veux parler" deVV : V -> VV ; -- "j'essaie de parler" aVV : V -> VV ; -- "j'arrive à parler" - mkV2V : V -> Prep -> Prep -> V2V ; + mkV2V : V -> Preposition -> Preposition -> V2V ; mkVA : V -> VA ; - mkV2A : V -> Prep -> Prep -> V2A ; + mkV2A : V -> Preposition -> V2A ; mkVQ : V -> VQ ; - mkV2Q : V -> Prep -> V2Q ; + mkV2Q : V -> Preposition -> V2Q ; - mkAS : A -> AS ; - mkA2S : A -> Prep -> A2S ; - mkAV : A -> Prep -> AV ; - mkA2V : A -> Prep -> Prep -> A2V ; + mkAS : A -> AS ; + subjAS : A -> AS ; + mkA2S : A -> Preposition -> A2S ; + mkAV : A -> Preposition -> AV ; + mkA2V : A -> Preposition -> Preposition -> A2V ; --- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated --- just as synonyms of $V2$, and the second argument is given --- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. --- $V0$ is just $V$. - V0, V2S, V2V, V2Q : Type ; - AS, A2S, AV, A2V : Type ; - ---. --2 Definitions of the paradigms -- -- The definitions should not bother the user of the API. So they are -- hidden from the document. +--. - - Gender = MorphoFre.Gender ; - Number = MorphoFre.Number ; + Gender = SyntaxFre.Gender ; + Number = TypesFre.Number ; masculine = Masc ; feminine = Fem ; singular = Sg ; plural = Pl ; - Preposition = Compl ; - accusative = complAcc ** {lock_Prep = <>} ; - genitive = complGen ** {lock_Prep = <>} ; - dative = complDat ** {lock_Prep = <>} ; - mkPrep p = {s = p ; c = Acc ; isDir = False ; lock_Prep = <>} ; - - --- obsolete - Preposition : Type ; - mkPreposition : Str -> Preposition ; - mkPreposition = mkPrep ; + Preposition = Case * Str ; + accusative = ; + genitive = ; + dative = ; + mkPreposition p = ; mkN x y g = mkCNomIrreg x y g ** {lock_N = <>} ; - regN x = regGenN x g where { - g = case of { - _ + ("e" | "ion") => Fem ; - _ => Masc - } - } ; - regGenN x g = mkNomReg x g ** {lock_N = <>} ; + regN x g = mkNomReg x g ** {lock_N = <>} ; compN x y = {s = \\n => x.s ! n ++ y ; g = x.g ; lock_N = <>} ; - mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; + mkN2 = \n,p -> n ** {lock_N2 = <> ; c = p.p1 ; s2 = p.p2} ; deN2 n = mkN2 n genitive ; aN2 n = mkN2 n dative ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c = p.p1 ; s2 = p.p2 ; c3 = q.p1 ; s3 = q.p2} ; - regPN x = mkPN x g where { - g = case last x of { - "e" => feminine ; - _ => masculine - } - } ; mkPN x g = {s = x ; g = g} ** {lock_PN = <>} ; - mkNP x g n = {s = (pn2np (mkPN x g)).s; a = agrP3 g n ; hasClit = False} ** {lock_NP = <>} ; + mkNP x g n = let np = mkNameNounPhrase x g in + {s = np.s ; g = np.g ; p = np.p ; c = np.c ; n = n ; lock_NP = <>} ; - mkA a b c d = compADeg {s = \\_ => (mkAdj a c b d).s ; isPre = False ; lock_A = <>} ; - regA a = compADeg {s = \\_ => (mkAdjReg a).s ; isPre = False ; lock_A = <>} ; - prefA a = {s = a.s ; isPre = True ; lock_A = <>} ; + mkA a b c d = mkAdj a c b d ** {p = False ; lock_A = <>} ; + regA a = mkAdjReg a ** {p = False ; lock_A = <>} ; + prefA a = {s = a.s ; p = True ; lock_A = <>} ; - mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ; + mkA2 a p = a ** {c = p.p1 ; s2 = p.p2 ; lock_A2 = <>} ; - mkADeg a b = - {s = table {Posit => a.s ! Posit ; _ => b.s ! Posit} ; isPre = a.isPre ; lock_A = <>} ; - compADeg a = - {s = table {Posit => a.s ! Posit ; _ => \\f => "plus" ++ a.s ! Posit ! f} ; - isPre = a.isPre ; - lock_A = <>} ; - prefA a = {s = a.s ; isPre = True ; lock_A = <>} ; + mkADeg a b = {s = table {Pos => a.s ; _ => b.s} ; p = a.p ; lock_ADeg = <>} ; + compADeg a = {s = table {Pos => a.s ; _ => \\f => "plus" ++ a.s ! f} ; p = a.p ; + lock_ADeg = <>} ; + regADeg a = compADeg (regA a) ; + prefADeg a = {s = a.s ; p = True ; lock_ADeg = <>} ; + adegA a = {s = a.s ! Pos ; p = a.p ; lock_A = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ; mkAdA x = ss x ** {lock_AdA = <>} ; - regV x = let v = vvf (mkVerbReg x) in {s = v ; vtyp = VHabere ; lock_V = <>} ; - reg3V x y z = let v = vvf (mkVerb3Reg x y z) in {s = v ; vtyp = VHabere ; lock_V = <>} ; - etreV v = {s = v.s ; vtyp = VEsse ; lock_V = <>} ; - reflV v = {s = v.s ; vtyp = VRefl ; lock_V = <>} ; + regV x = let v = (mkVerbReg x) in verbPres v AHabere ** {aux = AHabere ; lock_V = <>} ; + reg3V x y z = let v = (mkVerb3Reg x y z) in verbPres v AHabere ** {aux = AHabere ; lock_V = <>} ; + etreV v = {s = v.s ; aux = AEsse ; lock_V = <>} ; - mkV2 v p = v ** {c2 = p ; lock_V2 = <>} ; + mkV2 v p = {s = v.s ; aux = v.aux ; s2 = p.p2 ; c = p.p1 ; lock_V2 = <>} ; dirV2 v = mkV2 v accusative ; v2V v = v ** {lock_V = <>} ; - mkV3 v p q = v ** {c2 = p ; c3 = q ; lock_V3 = <>} ; + mkV3 v p q = {s = v.s ; aux = v.aux ; + s2 = p.p2 ; s3 = q.p2 ; c = p.p1 ; c3 = q.p1 ; lock_V3 = <>} ; dirV3 v p = mkV3 v accusative p ; dirdirV3 v = dirV3 v dative ; - V0 : Type = V ; - V2S, V2V, V2Q : Type = V2 ; - AS, AV : Type = A ; - A2S, A2V : Type = A2 ; - mkV0 v = v ** {lock_V0 = <>} ; - mkVS v = v ** {m = \\_ => Indic ; lock_VS = <>} ; ---- more moods - mkV2S v p = mkV2 v p ** {mn,mp = Indic ; lock_V2S = <>} ; - mkVV v = v ** {c2 = complAcc ; lock_VV = <>} ; - deVV v = v ** {c2 = complGen ; lock_VV = <>} ; - aVV v = v ** {c2 = complDat ; lock_VV = <>} ; + mkVS v = v ** {mn,mp = Ind ; lock_VS = <>} ; ---- more moods + mkV2S v p = mkV2 v p ** {mn,mp = Ind ; lock_V2S = <>} ; + mkVV v = v ** {c = accusative.p1 ; lock_VV = <>} ; + deVV v = v ** {c = genitive.p1 ; lock_VV = <>} ; + aVV v = v ** {c = dative.p1 ; lock_VV = <>} ; mkV2V v p t = mkV2 v p ** {c3 = t.p1 ; s3 = p.p2 ; lock_V2V = <>} ; mkVA v = v ** {lock_VA = <>} ; - mkV2A v p q = mkV3 v p q ** {lock_V2A = <>} ; + mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; mkVQ v = v ** {lock_VQ = <>} ; mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - mkAS v = v ** {lock_AS = <>} ; ---- more moods - mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; + mkAS v = v ** {mn,mp = Ind ; lock_AS = <>} ; ---- more moods + mkA2S v p = mkA2 v p ** {mn,mp = Ind ; lock_A2S = <>} ; mkAV v p = v ** {c = p.p1 ; s2 = p.p2 ; lock_AV = <>} ; mkA2V v p q = mkA2 v p ** {s3 = q.p2 ; c3 = q.p1 ; lock_A2V = <>} ; diff --git a/lib/resource/french/README b/lib/resource-0.9/french/README similarity index 100% rename from lib/resource/french/README rename to lib/resource-0.9/french/README diff --git a/lib/resource/french/ResourceFre.gf b/lib/resource-0.9/french/ResourceFre.gf similarity index 100% rename from lib/resource/french/ResourceFre.gf rename to lib/resource-0.9/french/ResourceFre.gf diff --git a/lib/resource/french/RulesFre.gf b/lib/resource-0.9/french/RulesFre.gf similarity index 100% rename from lib/resource/french/RulesFre.gf rename to lib/resource-0.9/french/RulesFre.gf diff --git a/lib/resource/french/SimpleFre.gf b/lib/resource-0.9/french/SimpleFre.gf similarity index 100% rename from lib/resource/french/SimpleFre.gf rename to lib/resource-0.9/french/SimpleFre.gf diff --git a/lib/resource/french/SimpleLangFre.gf b/lib/resource-0.9/french/SimpleLangFre.gf similarity index 100% rename from lib/resource/french/SimpleLangFre.gf rename to lib/resource-0.9/french/SimpleLangFre.gf diff --git a/lib/resource-0.9/french/StructuralFre.gf b/lib/resource-0.9/french/StructuralFre.gf new file mode 100644 index 000000000..4016d7c03 --- /dev/null +++ b/lib/resource-0.9/french/StructuralFre.gf @@ -0,0 +1,95 @@ +--# -path=.:../romance:../abstract:../../prelude + +concrete StructuralFre of Structural = + CategoriesFre, NumeralsFre ** + open SyntaxFre, MorphoFre, Prelude in { + +lin + + UseNumeral n = {s = \\g => n.s !g ; n = n.n ; isNo = False} ; + + above_Prep = {s = ["au dessus"] ; c = genitive} ; + after_Prep = justPrep "après" ; + all8mass_Det = toutDet ; + all_NDet = mkDeterminerNum ["tous les"] ["toutes les"] ; + almost_Adv = ss "presque" ; + although_Subj = ss ("bien" ++ elisQue) ** {m = Con} ; + and_Conj = etConj ; + because_Subj = ss ("parce" ++ elisQue) ** {m = Ind} ; + before_Prep = justPrep "avant" ; + behind_Prep = justPrep "derrière" ; + between_Prep = justPrep "entre" ; + both_AndConjD = etetConj ; + by8agent_Prep = justPrep "par" ; + by8means_Prep = justPrep "par" ; + can8know_VV = mkVerbVerbDir (verbPres (conj3savoir "savoir") AHabere) ; + can_VV = mkVerbVerbDir (verbPres (conj3pouvoir "pouvoir") AHabere) ; + during_Prep = justPrep "pendant" ; + either8or_ConjD = ououConj ; + everybody_NP = mkNameNounPhrase ["tout le monde"] Masc ; + every_Det = chaqueDet ; + everything_NP = mkNameNounPhrase ["tout"] Masc ; + everywhere_Adv = ss "partout" ; + from_Prep = justCase genitive ; --- + he_NP = pronNounPhrase pronIl ; + how_IAdv = commentAdv ; + how8many_IDet = {s = \\_ => "combien" ++ elisDe ; n = Pl} ; + if_Subj = siSubj ; + in8front_Prep = justPrep "devant" ; + i_NP = pronNounPhrase pronJe ; + in_Prep = justPrep "dans" ; + it_NP = pronNounPhrase pronIl ; + many_Det = mkDeterminer1 plural "plusieurs" ; + most8many_Det = plupartDet ; + most_Det = mkDeterminer1 singular (["la plupart"] ++ elisDe) ; --- de + much_Det = mkDeterminer1 singular ("beaucoup" ++ elisDe) ; --- de + must_VV = mkVerbVerbDir (verbPres (conj3devoir "devoir") AHabere) ; + no_Phr = nonPhr ; --- and also Si! + on_Prep = justPrep "sur" ; + or_Conj = ouConj ; + otherwise_Adv = ss "autrement" ; + part_Prep = justCase genitive ; --- + possess_Prep = justCase genitive ; + quite_Adv = ss "assez" ; + she_NP = pronNounPhrase pronElle ; + so_Adv = ss "si" ; + somebody_NP = mkNameNounPhrase ["quelqu'un"] Masc ; + some_Det = mkDeterminer1 singular "quelque" ; + some_NDet = mkDeterminerNum "quelques" "quelques" ; + something_NP = mkNameNounPhrase ["quelque chose"] Masc ; + somewhere_Adv = ss ["quelque part"] ; --- ne - pas + that_Det = mkDeterminer singular (pre {"ce" ; "cet" / voyelle}) "cette" ; --- là + that_NP = mkNameNounPhrase ["ça"] Masc ; + therefore_Adv = ss "donc" ; + these_NDet = mkDeterminerNum "ces" "ces" ; --- ci + they_NP = pronNounPhrase pronIls ; + they8fem_NP = pronNounPhrase pronElles ; + this_Det = mkDeterminer singular (pre {"ce" ; "cet" / voyelle}) "cette" ; --- ci + this_NP = mkNameNounPhrase ["ceci"] Masc ; + those_NDet = mkDeterminerNum "ces" "ces" ; --- là + thou_NP = pronNounPhrase pronTu ; + through_Prep = justPrep "par" ; + too_Adv = ss "trop" ; + to_Prep = justCase dative ; --- + under_Prep = justPrep "sous" ; + very_Adv = ss "très" ; + want_VV = mkVerbVerbDir (verbPres (conj3vouloir "vouloir") AHabere) ; + we_NP = pronNounPhrase pronNous ; + what8one_IP = intPronWhat singular ; + what8many_IP = intPronWhat plural ; + when_IAdv = quandAdv ; + when_Subj = quandSubj ; + where_IAdv = ouAdv ; + which8many_IDet = mkDeterminerNum "quels" "quelles" ** {n = Pl} ; + which8one_IDet = quelDet ; + who8one_IP = intPronWho singular ; + who8many_IP = intPronWho plural ; + why_IAdv = pourquoiAdv ; + without_Prep = justPrep "sans" ; + with_Prep = justPrep "avec" ; + ye_NP = pronNounPhrase pronVous ; + yes_Phr = ouiPhr ; + you_NP = pronNounPhrase pronVous ; + + +} diff --git a/lib/resource/french/SwadeshLexFre.gf b/lib/resource-0.9/french/SwadeshLexFre.gf similarity index 100% rename from lib/resource/french/SwadeshLexFre.gf rename to lib/resource-0.9/french/SwadeshLexFre.gf diff --git a/lib/resource/french/SyntaxFre.gf b/lib/resource-0.9/french/SyntaxFre.gf similarity index 100% rename from lib/resource/french/SyntaxFre.gf rename to lib/resource-0.9/french/SyntaxFre.gf diff --git a/lib/resource/french/TimeFre.gf b/lib/resource-0.9/french/TimeFre.gf similarity index 100% rename from lib/resource/french/TimeFre.gf rename to lib/resource-0.9/french/TimeFre.gf diff --git a/lib/resource/french/TypesFre.gf b/lib/resource-0.9/french/TypesFre.gf similarity index 100% rename from lib/resource/french/TypesFre.gf rename to lib/resource-0.9/french/TypesFre.gf diff --git a/lib/resource/french/VerbesAbs.gf b/lib/resource-0.9/french/VerbesAbs.gf similarity index 100% rename from lib/resource/french/VerbesAbs.gf rename to lib/resource-0.9/french/VerbesAbs.gf diff --git a/lib/resource/french/VerbesFre.gf b/lib/resource-0.9/french/VerbesFre.gf similarity index 100% rename from lib/resource/french/VerbesFre.gf rename to lib/resource-0.9/french/VerbesFre.gf diff --git a/lib/resource/french/VerbphraseFre.gf b/lib/resource-0.9/french/VerbphraseFre.gf similarity index 100% rename from lib/resource/french/VerbphraseFre.gf rename to lib/resource-0.9/french/VerbphraseFre.gf diff --git a/lib/resource/french/VerbsFre.gf b/lib/resource-0.9/french/VerbsFre.gf similarity index 100% rename from lib/resource/french/VerbsFre.gf rename to lib/resource-0.9/french/VerbsFre.gf diff --git a/lib/resource/french/VerbsFreAbs.gf b/lib/resource-0.9/french/VerbsFreAbs.gf similarity index 100% rename from lib/resource/french/VerbsFreAbs.gf rename to lib/resource-0.9/french/VerbsFreAbs.gf diff --git a/lib/resource/frequent.txt b/lib/resource-0.9/frequent.txt similarity index 100% rename from lib/resource/frequent.txt rename to lib/resource-0.9/frequent.txt diff --git a/lib/resource/italian/BasicIta.gf b/lib/resource-0.9/italian/BasicIta.gf similarity index 100% rename from lib/resource/italian/BasicIta.gf rename to lib/resource-0.9/italian/BasicIta.gf diff --git a/lib/resource-0.9/italian/BeschIta.gf b/lib/resource-0.9/italian/BeschIta.gf new file mode 100644 index 000000000..81ecb6d71 --- /dev/null +++ b/lib/resource-0.9/italian/BeschIta.gf @@ -0,0 +1,6472 @@ +--# -path=.:../romance:../abstract:../../prelude + +resource BeschIta = open TypesIta in { + +oper Verbo = {s : VForm => Str} ; + +-- machine-generated GF file + +oper essere_1 : Str -> Verbo = \essere -> + let x_ = Predef.tk 6 essere in + {s = table { + Inf => x_ + "essere" ; + InfClit => x_ + "r" ; + Indi Pres Sg P1 => x_ + "sono" ; + Indi Pres Sg P2 => x_ + "sei" ; + Indi Pres Sg P3 => x_ + "è" ; + Indi Pres Pl P1 => x_ + "siamo" ; + Indi Pres Pl P2 => x_ + "siete" ; + Indi Pres Pl P3 => x_ + "sono" ; + Indi Imperf Sg P1 => x_ + "ero" ; + Indi Imperf Sg P2 => x_ + "eri" ; + Indi Imperf Sg P3 => x_ + "era" ; + Indi Imperf Pl P1 => x_ + "eravamo" ; + Indi Imperf Pl P2 => x_ + "eravate" ; + Indi Imperf Pl P3 => x_ + "erano" ; + Pass Sg P1 => x_ + "fui" ; + Pass Sg P2 => x_ + "fosti" ; + Pass Sg P3 => x_ + "fu" ; + Pass Pl P1 => x_ + "fummo" ; + Pass Pl P2 => x_ + "foste" ; + Pass Pl P3 => x_ + "furono" ; + Fut Sg P1 => x_ + "sarò" ; + Fut Sg P2 => x_ + "sarai" ; + Fut Sg P3 => x_ + "sarà" ; + Fut Pl P1 => x_ + "saremo" ; + Fut Pl P2 => x_ + "sarete" ; + Fut Pl P3 => x_ + "saranno" ; + Cong Pres Sg P1 => x_ + "sia" ; + Cong Pres Sg P2 => x_ + "sia" ; + Cong Pres Sg P3 => x_ + "sia" ; + Cong Pres Pl P1 => x_ + "siamo" ; + Cong Pres Pl P2 => x_ + "siate" ; + Cong Pres Pl P3 => x_ + "siano" ; + Cong Imperf Sg P1 => x_ + "fossi" ; + Cong Imperf Sg P2 => x_ + "fossi" ; + Cong Imperf Sg P3 => x_ + "fosse" ; + Cong Imperf Pl P1 => x_ + "fossimo" ; + Cong Imperf Pl P2 => x_ + "foste" ; + Cong Imperf Pl P3 => x_ + "fossero" ; + Cond Sg P1 => x_ + "sarei" ; + Cond Sg P2 => x_ + "saresti" ; + Cond Sg P3 => x_ + "sarebbe" ; + Cond Pl P1 => x_ + "saremmo" ; + Cond Pl P2 => x_ + "sareste" ; + Cond Pl P3 => x_ + "sarebbero" ; + Imper SgP2 => x_ + "sii" ; + Imper PlP1 => x_ + "siamo" ; + Imper PlP2 => x_ + "siate" ; + Ger => x_ + "essendo" ; + Part PresP Masc Sg => variants {} ; + Part PresP Masc Pl => variants {} ; + Part PresP Fem Sg => variants {} ; + Part PresP Fem Pl => variants {} ; + Part PassP Masc Sg => x_ + "stato" ; + Part PassP Masc Pl => x_ + "stati" ; + Part PassP Fem Sg => x_ + "stata" ; + Part PassP Fem Pl => x_ + "state" + } + } ; + +oper avere_2 : Str -> Verbo = \avere -> + let x_ = Predef.tk 5 avere in + {s = table { + Inf => x_ + "avere" ; + InfClit => x_ + "aver" ; + Indi Pres Sg P1 => x_ + "ho" ; + Indi Pres Sg P2 => x_ + "hai" ; + Indi Pres Sg P3 => x_ + "ha" ; + Indi Pres Pl P1 => x_ + "abbiamo" ; + Indi Pres Pl P2 => x_ + "avete" ; + Indi Pres Pl P3 => x_ + "hanno" ; + Indi Imperf Sg P1 => x_ + "avevo" ; + Indi Imperf Sg P2 => x_ + "avevi" ; + Indi Imperf Sg P3 => x_ + "aveva" ; + Indi Imperf Pl P1 => x_ + "avevamo" ; + Indi Imperf Pl P2 => x_ + "avevate" ; + Indi Imperf Pl P3 => x_ + "avevano" ; + Pass Sg P1 => x_ + "ebbi" ; + Pass Sg P2 => x_ + "avesti" ; + Pass Sg P3 => x_ + "ebbe" ; + Pass Pl P1 => x_ + "avemmo" ; + Pass Pl P2 => x_ + "aveste" ; + Pass Pl P3 => x_ + "ebbero" ; + Fut Sg P1 => x_ + "avrò" ; + Fut Sg P2 => x_ + "avrai" ; + Fut Sg P3 => x_ + "avrà" ; + Fut Pl P1 => x_ + "avremo" ; + Fut Pl P2 => x_ + "avrete" ; + Fut Pl P3 => x_ + "avranno" ; + Cong Pres Sg P1 => x_ + "abbia" ; + Cong Pres Sg P2 => x_ + "abbia" ; + Cong Pres Sg P3 => x_ + "abbia" ; + Cong Pres Pl P1 => x_ + "abbiamo" ; + Cong Pres Pl P2 => x_ + "abbiate" ; + Cong Pres Pl P3 => x_ + "abbiano" ; + Cong Imperf Sg P1 => x_ + "avessi" ; + Cong Imperf Sg P2 => x_ + "avessi" ; + Cong Imperf Sg P3 => x_ + "avesse" ; + Cong Imperf Pl P1 => x_ + "avessimo" ; + Cong Imperf Pl P2 => x_ + "aveste" ; + Cong Imperf Pl P3 => x_ + "avessero" ; + Cond Sg P1 => x_ + "avrei" ; + Cond Sg P2 => x_ + "avresti" ; + Cond Sg P3 => x_ + "avrebbe" ; + Cond Pl P1 => x_ + "avremmo" ; + Cond Pl P2 => x_ + "avreste" ; + Cond Pl P3 => x_ + "avrebbero" ; + Imper SgP2 => x_ + "abbi" ; + Imper PlP1 => x_ + "abbiamo" ; + Imper PlP2 => x_ + "abbiate" ; + Ger => x_ + "avendo" ; + Part PresP Masc Sg => x_ + "avente" ; + Part PresP Masc Pl => x_ + "aventi" ; + Part PresP Fem Sg => x_ + "avente" ; + Part PresP Fem Pl => x_ + "aventi" ; + Part PassP Masc Sg => x_ + "avuto" ; + Part PassP Masc Pl => x_ + "avuti" ; + Part PassP Fem Sg => x_ + "avuta" ; + Part PassP Fem Pl => x_ + "avute" + } + } ; + +oper amare_6 : Str -> Verbo = \amare -> + let am_ = Predef.tk 3 amare in + {s = table { + Inf => am_ + "are" ; + InfClit => am_ + "ar" ; + Indi Pres Sg P1 => am_ + "o" ; + Indi Pres Sg P2 => am_ + "i" ; + Indi Pres Sg P3 => am_ + "a" ; + Indi Pres Pl P1 => am_ + "iamo" ; + Indi Pres Pl P2 => am_ + "ate" ; + Indi Pres Pl P3 => am_ + "ano" ; + Indi Imperf Sg P1 => am_ + "avo" ; + Indi Imperf Sg P2 => am_ + "avi" ; + Indi Imperf Sg P3 => am_ + "ava" ; + Indi Imperf Pl P1 => am_ + "avamo" ; + Indi Imperf Pl P2 => am_ + "avate" ; + Indi Imperf Pl P3 => am_ + "avano" ; + Pass Sg P1 => am_ + "ai" ; + Pass Sg P2 => am_ + "asti" ; + Pass Sg P3 => am_ + "ò" ; + Pass Pl P1 => am_ + "ammo" ; + Pass Pl P2 => am_ + "aste" ; + Pass Pl P3 => am_ + "arono" ; + Fut Sg P1 => am_ + "erò" ; + Fut Sg P2 => am_ + "erai" ; + Fut Sg P3 => am_ + "erà" ; + Fut Pl P1 => am_ + "eremo" ; + Fut Pl P2 => am_ + "erete" ; + Fut Pl P3 => am_ + "eranno" ; + Cong Pres Sg P1 => am_ + "i" ; + Cong Pres Sg P2 => am_ + "i" ; + Cong Pres Sg P3 => am_ + "i" ; + Cong Pres Pl P1 => am_ + "iamo" ; + Cong Pres Pl P2 => am_ + "iate" ; + Cong Pres Pl P3 => am_ + "ino" ; + Cong Imperf Sg P1 => am_ + "assi" ; + Cong Imperf Sg P2 => am_ + "assi" ; + Cong Imperf Sg P3 => am_ + "asse" ; + Cong Imperf Pl P1 => am_ + "assimo" ; + Cong Imperf Pl P2 => am_ + "aste" ; + Cong Imperf Pl P3 => am_ + "assero" ; + Cond Sg P1 => am_ + "erei" ; + Cond Sg P2 => am_ + "eresti" ; + Cond Sg P3 => am_ + "erebbe" ; + Cond Pl P1 => am_ + "eremmo" ; + Cond Pl P2 => am_ + "ereste" ; + Cond Pl P3 => am_ + "erebbero" ; + Imper SgP2 => am_ + "a" ; + Imper PlP1 => am_ + "iamo" ; + Imper PlP2 => am_ + "ate" ; + Ger => am_ + "ando" ; + Part PresP Masc Sg => am_ + "ante" ; + Part PresP Masc Pl => am_ + "anti" ; + Part PresP Fem Sg => am_ + "ante" ; + Part PresP Fem Pl => am_ + "anti" ; + Part PassP Masc Sg => am_ + "ato" ; + Part PassP Masc Pl => am_ + "ati" ; + Part PassP Fem Sg => am_ + "ata" ; + Part PassP Fem Pl => am_ + "ate" + } + } ; + +oper cercare_7 : Str -> Verbo = \cercare -> + let cerc_ = Predef.tk 3 cercare in + {s = table { + Inf => cerc_ + "are" ; + InfClit => cerc_ + "ar" ; + Indi Pres Sg P1 => cerc_ + "o" ; + Indi Pres Sg P2 => cerc_ + "hi" ; + Indi Pres Sg P3 => cerc_ + "a" ; + Indi Pres Pl P1 => cerc_ + "hiamo" ; + Indi Pres Pl P2 => cerc_ + "ate" ; + Indi Pres Pl P3 => cerc_ + "ano" ; + Indi Imperf Sg P1 => cerc_ + "avo" ; + Indi Imperf Sg P2 => cerc_ + "avi" ; + Indi Imperf Sg P3 => cerc_ + "ava" ; + Indi Imperf Pl P1 => cerc_ + "avamo" ; + Indi Imperf Pl P2 => cerc_ + "avate" ; + Indi Imperf Pl P3 => cerc_ + "avano" ; + Pass Sg P1 => cerc_ + "ai" ; + Pass Sg P2 => cerc_ + "asti" ; + Pass Sg P3 => cerc_ + "ò" ; + Pass Pl P1 => cerc_ + "ammo" ; + Pass Pl P2 => cerc_ + "aste" ; + Pass Pl P3 => cerc_ + "arono" ; + Fut Sg P1 => cerc_ + "herò" ; + Fut Sg P2 => cerc_ + "herai" ; + Fut Sg P3 => cerc_ + "herà" ; + Fut Pl P1 => cerc_ + "heremo" ; + Fut Pl P2 => cerc_ + "herete" ; + Fut Pl P3 => cerc_ + "heranno" ; + Cong Pres Sg P1 => cerc_ + "hi" ; + Cong Pres Sg P2 => cerc_ + "hi" ; + Cong Pres Sg P3 => cerc_ + "hi" ; + Cong Pres Pl P1 => cerc_ + "hiamo" ; + Cong Pres Pl P2 => cerc_ + "hiate" ; + Cong Pres Pl P3 => cerc_ + "hino" ; + Cong Imperf Sg P1 => cerc_ + "assi" ; + Cong Imperf Sg P2 => cerc_ + "assi" ; + Cong Imperf Sg P3 => cerc_ + "asse" ; + Cong Imperf Pl P1 => cerc_ + "assimo" ; + Cong Imperf Pl P2 => cerc_ + "aste" ; + Cong Imperf Pl P3 => cerc_ + "assero" ; + Cond Sg P1 => cerc_ + "herei" ; + Cond Sg P2 => cerc_ + "heresti" ; + Cond Sg P3 => cerc_ + "herebbe" ; + Cond Pl P1 => cerc_ + "heremmo" ; + Cond Pl P2 => cerc_ + "hereste" ; + Cond Pl P3 => cerc_ + "herebbero" ; + Imper SgP2 => cerc_ + "a" ; + Imper PlP1 => cerc_ + "hiamo" ; + Imper PlP2 => cerc_ + "ate" ; + Ger => cerc_ + "ando" ; + Part PresP Masc Sg => cerc_ + "ante" ; + Part PresP Masc Pl => cerc_ + "anti" ; + Part PresP Fem Sg => cerc_ + "ante" ; + Part PresP Fem Pl => cerc_ + "anti" ; + Part PassP Masc Sg => cerc_ + "ato" ; + Part PassP Masc Pl => cerc_ + "ati" ; + Part PassP Fem Sg => cerc_ + "ata" ; + Part PassP Fem Pl => cerc_ + "ate" + } + } ; + +oper legare_8 : Str -> Verbo = \legare -> + let leg_ = Predef.tk 3 legare in + {s = table { + Inf => leg_ + "are" ; + InfClit => leg_ + "ar" ; + Indi Pres Sg P1 => leg_ + "o" ; + Indi Pres Sg P2 => leg_ + "hi" ; + Indi Pres Sg P3 => leg_ + "a" ; + Indi Pres Pl P1 => leg_ + "hiamo" ; + Indi Pres Pl P2 => leg_ + "ate" ; + Indi Pres Pl P3 => leg_ + "ano" ; + Indi Imperf Sg P1 => leg_ + "avo" ; + Indi Imperf Sg P2 => leg_ + "avi" ; + Indi Imperf Sg P3 => leg_ + "ava" ; + Indi Imperf Pl P1 => leg_ + "avamo" ; + Indi Imperf Pl P2 => leg_ + "avate" ; + Indi Imperf Pl P3 => leg_ + "avano" ; + Pass Sg P1 => leg_ + "ai" ; + Pass Sg P2 => leg_ + "asti" ; + Pass Sg P3 => leg_ + "ò" ; + Pass Pl P1 => leg_ + "ammo" ; + Pass Pl P2 => leg_ + "aste" ; + Pass Pl P3 => leg_ + "arono" ; + Fut Sg P1 => leg_ + "herò" ; + Fut Sg P2 => leg_ + "herai" ; + Fut Sg P3 => leg_ + "herà" ; + Fut Pl P1 => leg_ + "heremo" ; + Fut Pl P2 => leg_ + "herete" ; + Fut Pl P3 => leg_ + "heranno" ; + Cong Pres Sg P1 => leg_ + "hi" ; + Cong Pres Sg P2 => leg_ + "hi" ; + Cong Pres Sg P3 => leg_ + "hi" ; + Cong Pres Pl P1 => leg_ + "hiamo" ; + Cong Pres Pl P2 => leg_ + "hiate" ; + Cong Pres Pl P3 => leg_ + "hino" ; + Cong Imperf Sg P1 => leg_ + "assi" ; + Cong Imperf Sg P2 => leg_ + "assi" ; + Cong Imperf Sg P3 => leg_ + "asse" ; + Cong Imperf Pl P1 => leg_ + "assimo" ; + Cong Imperf Pl P2 => leg_ + "aste" ; + Cong Imperf Pl P3 => leg_ + "assero" ; + Cond Sg P1 => leg_ + "herei" ; + Cond Sg P2 => leg_ + "heresti" ; + Cond Sg P3 => leg_ + "herebbe" ; + Cond Pl P1 => leg_ + "heremmo" ; + Cond Pl P2 => leg_ + "hereste" ; + Cond Pl P3 => leg_ + "herebbero" ; + Imper SgP2 => leg_ + "a" ; + Imper PlP1 => leg_ + "hiamo" ; + Imper PlP2 => leg_ + "ate" ; + Ger => leg_ + "ando" ; + Part PresP Masc Sg => leg_ + "ante" ; + Part PresP Masc Pl => leg_ + "anti" ; + Part PresP Fem Sg => leg_ + "ante" ; + Part PresP Fem Pl => leg_ + "anti" ; + Part PassP Masc Sg => leg_ + "ato" ; + Part PassP Masc Pl => leg_ + "ati" ; + Part PassP Fem Sg => leg_ + "ata" ; + Part PassP Fem Pl => leg_ + "ate" + } + } ; + +oper cominciare_9 : Str -> Verbo = \cominciare -> + let cominc_ = Predef.tk 4 cominciare in + {s = table { + Inf => cominc_ + "iare" ; + InfClit => cominc_ + "iar" ; + Indi Pres Sg P1 => cominc_ + "io" ; + Indi Pres Sg P2 => cominc_ + "i" ; + Indi Pres Sg P3 => cominc_ + "ia" ; + Indi Pres Pl P1 => cominc_ + "iamo" ; + Indi Pres Pl P2 => cominc_ + "iate" ; + Indi Pres Pl P3 => cominc_ + "iano" ; + Indi Imperf Sg P1 => cominc_ + "iavo" ; + Indi Imperf Sg P2 => cominc_ + "iavi" ; + Indi Imperf Sg P3 => cominc_ + "iava" ; + Indi Imperf Pl P1 => cominc_ + "iavamo" ; + Indi Imperf Pl P2 => cominc_ + "iavate" ; + Indi Imperf Pl P3 => cominc_ + "iavano" ; + Pass Sg P1 => cominc_ + "iai" ; + Pass Sg P2 => cominc_ + "iasti" ; + Pass Sg P3 => cominc_ + "iò" ; + Pass Pl P1 => cominc_ + "iammo" ; + Pass Pl P2 => cominc_ + "iaste" ; + Pass Pl P3 => cominc_ + "iarono" ; + Fut Sg P1 => cominc_ + "erò" ; + Fut Sg P2 => cominc_ + "erai" ; + Fut Sg P3 => cominc_ + "erà" ; + Fut Pl P1 => cominc_ + "eremo" ; + Fut Pl P2 => cominc_ + "erete" ; + Fut Pl P3 => cominc_ + "eranno" ; + Cong Pres Sg P1 => cominc_ + "i" ; + Cong Pres Sg P2 => cominc_ + "i" ; + Cong Pres Sg P3 => cominc_ + "i" ; + Cong Pres Pl P1 => cominc_ + "iamo" ; + Cong Pres Pl P2 => cominc_ + "iate" ; + Cong Pres Pl P3 => cominc_ + "ino" ; + Cong Imperf Sg P1 => cominc_ + "iassi" ; + Cong Imperf Sg P2 => cominc_ + "iassi" ; + Cong Imperf Sg P3 => cominc_ + "iasse" ; + Cong Imperf Pl P1 => cominc_ + "iassimo" ; + Cong Imperf Pl P2 => cominc_ + "iaste" ; + Cong Imperf Pl P3 => cominc_ + "iassero" ; + Cond Sg P1 => cominc_ + "erei" ; + Cond Sg P2 => cominc_ + "eresti" ; + Cond Sg P3 => cominc_ + "erebbe" ; + Cond Pl P1 => cominc_ + "eremmo" ; + Cond Pl P2 => cominc_ + "ereste" ; + Cond Pl P3 => cominc_ + "erebbero" ; + Imper SgP2 => cominc_ + "ia" ; + Imper PlP1 => cominc_ + "iamo" ; + Imper PlP2 => cominc_ + "iate" ; + Ger => cominc_ + "iando" ; + Part PresP Masc Sg => cominc_ + "iante" ; + Part PresP Masc Pl => cominc_ + "ianti" ; + Part PresP Fem Sg => cominc_ + "iante" ; + Part PresP Fem Pl => cominc_ + "ianti" ; + Part PassP Masc Sg => cominc_ + "iato" ; + Part PassP Masc Pl => cominc_ + "iati" ; + Part PassP Fem Sg => cominc_ + "iata" ; + Part PassP Fem Pl => cominc_ + "iate" + } + } ; + +oper mangiare_10 : Str -> Verbo = \mangiare -> + let mang_ = Predef.tk 4 mangiare in + {s = table { + Inf => mang_ + "iare" ; + InfClit => mang_ + "iar" ; + Indi Pres Sg P1 => mang_ + "io" ; + Indi Pres Sg P2 => mang_ + "i" ; + Indi Pres Sg P3 => mang_ + "ia" ; + Indi Pres Pl P1 => mang_ + "iamo" ; + Indi Pres Pl P2 => mang_ + "iate" ; + Indi Pres Pl P3 => mang_ + "iano" ; + Indi Imperf Sg P1 => mang_ + "iavo" ; + Indi Imperf Sg P2 => mang_ + "iavi" ; + Indi Imperf Sg P3 => mang_ + "iava" ; + Indi Imperf Pl P1 => mang_ + "iavamo" ; + Indi Imperf Pl P2 => mang_ + "iavate" ; + Indi Imperf Pl P3 => mang_ + "iavano" ; + Pass Sg P1 => mang_ + "iai" ; + Pass Sg P2 => mang_ + "iasti" ; + Pass Sg P3 => mang_ + "iò" ; + Pass Pl P1 => mang_ + "iammo" ; + Pass Pl P2 => mang_ + "iaste" ; + Pass Pl P3 => mang_ + "iarono" ; + Fut Sg P1 => mang_ + "erò" ; + Fut Sg P2 => mang_ + "erai" ; + Fut Sg P3 => mang_ + "erà" ; + Fut Pl P1 => mang_ + "eremo" ; + Fut Pl P2 => mang_ + "erete" ; + Fut Pl P3 => mang_ + "eranno" ; + Cong Pres Sg P1 => mang_ + "i" ; + Cong Pres Sg P2 => mang_ + "i" ; + Cong Pres Sg P3 => mang_ + "i" ; + Cong Pres Pl P1 => mang_ + "iamo" ; + Cong Pres Pl P2 => mang_ + "iate" ; + Cong Pres Pl P3 => mang_ + "ino" ; + Cong Imperf Sg P1 => mang_ + "iassi" ; + Cong Imperf Sg P2 => mang_ + "iassi" ; + Cong Imperf Sg P3 => mang_ + "iasse" ; + Cong Imperf Pl P1 => mang_ + "iassimo" ; + Cong Imperf Pl P2 => mang_ + "iaste" ; + Cong Imperf Pl P3 => mang_ + "iassero" ; + Cond Sg P1 => mang_ + "erei" ; + Cond Sg P2 => mang_ + "eresti" ; + Cond Sg P3 => mang_ + "erebbe" ; + Cond Pl P1 => mang_ + "eremmo" ; + Cond Pl P2 => mang_ + "ereste" ; + Cond Pl P3 => mang_ + "erebbero" ; + Imper SgP2 => mang_ + "ia" ; + Imper PlP1 => mang_ + "iamo" ; + Imper PlP2 => mang_ + "iate" ; + Ger => mang_ + "iando" ; + Part PresP Masc Sg => mang_ + "iante" ; + Part PresP Masc Pl => mang_ + "ianti" ; + Part PresP Fem Sg => mang_ + "iante" ; + Part PresP Fem Pl => mang_ + "ianti" ; + Part PassP Masc Sg => mang_ + "iato" ; + Part PassP Masc Pl => mang_ + "iati" ; + Part PassP Fem Sg => mang_ + "iata" ; + Part PassP Fem Pl => mang_ + "iate" + } + } ; + +oper inviare_11 : Str -> Verbo = \inviare -> + let invi_ = Predef.tk 3 inviare in + {s = table { + Inf => invi_ + "are" ; + InfClit => invi_ + "ar" ; + Indi Pres Sg P1 => invi_ + "o" ; + Indi Pres Sg P2 => invi_ + "i" ; + Indi Pres Sg P3 => invi_ + "a" ; + Indi Pres Pl P1 => invi_ + "iamo" ; + Indi Pres Pl P2 => invi_ + "ate" ; + Indi Pres Pl P3 => invi_ + "ano" ; + Indi Imperf Sg P1 => invi_ + "avo" ; + Indi Imperf Sg P2 => invi_ + "avi" ; + Indi Imperf Sg P3 => invi_ + "ava" ; + Indi Imperf Pl P1 => invi_ + "avamo" ; + Indi Imperf Pl P2 => invi_ + "avate" ; + Indi Imperf Pl P3 => invi_ + "avano" ; + Pass Sg P1 => invi_ + "ai" ; + Pass Sg P2 => invi_ + "asti" ; + Pass Sg P3 => invi_ + "ò" ; + Pass Pl P1 => invi_ + "ammo" ; + Pass Pl P2 => invi_ + "aste" ; + Pass Pl P3 => invi_ + "arono" ; + Fut Sg P1 => invi_ + "erò" ; + Fut Sg P2 => invi_ + "erai" ; + Fut Sg P3 => invi_ + "erà" ; + Fut Pl P1 => invi_ + "eremo" ; + Fut Pl P2 => invi_ + "erete" ; + Fut Pl P3 => invi_ + "eranno" ; + Cong Pres Sg P1 => invi_ + "i" ; + Cong Pres Sg P2 => invi_ + "i" ; + Cong Pres Sg P3 => invi_ + "i" ; + Cong Pres Pl P1 => invi_ + "iamo" ; + Cong Pres Pl P2 => invi_ + "iate" ; + Cong Pres Pl P3 => invi_ + "ino" ; + Cong Imperf Sg P1 => invi_ + "assi" ; + Cong Imperf Sg P2 => invi_ + "assi" ; + Cong Imperf Sg P3 => invi_ + "asse" ; + Cong Imperf Pl P1 => invi_ + "assimo" ; + Cong Imperf Pl P2 => invi_ + "aste" ; + Cong Imperf Pl P3 => invi_ + "assero" ; + Cond Sg P1 => invi_ + "erei" ; + Cond Sg P2 => invi_ + "eresti" ; + Cond Sg P3 => invi_ + "erebbe" ; + Cond Pl P1 => invi_ + "eremmo" ; + Cond Pl P2 => invi_ + "ereste" ; + Cond Pl P3 => invi_ + "erebbero" ; + Imper SgP2 => invi_ + "a" ; + Imper PlP1 => invi_ + "iamo" ; + Imper PlP2 => invi_ + "ate" ; + Ger => invi_ + "ando" ; + Part PresP Masc Sg => invi_ + "ante" ; + Part PresP Masc Pl => invi_ + "anti" ; + Part PresP Fem Sg => invi_ + "ante" ; + Part PresP Fem Pl => invi_ + "anti" ; + Part PassP Masc Sg => invi_ + "ato" ; + Part PassP Masc Pl => invi_ + "ati" ; + Part PassP Fem Sg => invi_ + "ata" ; + Part PassP Fem Pl => invi_ + "ate" + } + } ; + +oper studiare_12 : Str -> Verbo = \studiare -> + let studi_ = Predef.tk 3 studiare in + {s = table { + Inf => studi_ + "are" ; + InfClit => studi_ + "ar" ; + Indi Pres Sg P1 => studi_ + "o" ; + Indi Pres Sg P2 => studi_ + "" ; + Indi Pres Sg P3 => studi_ + "a" ; + Indi Pres Pl P1 => studi_ + "amo" ; + Indi Pres Pl P2 => studi_ + "ate" ; + Indi Pres Pl P3 => studi_ + "ano" ; + Indi Imperf Sg P1 => studi_ + "avo" ; + Indi Imperf Sg P2 => studi_ + "avi" ; + Indi Imperf Sg P3 => studi_ + "ava" ; + Indi Imperf Pl P1 => studi_ + "avamo" ; + Indi Imperf Pl P2 => studi_ + "avate" ; + Indi Imperf Pl P3 => studi_ + "avano" ; + Pass Sg P1 => studi_ + "ai" ; + Pass Sg P2 => studi_ + "asti" ; + Pass Sg P3 => studi_ + "ò" ; + Pass Pl P1 => studi_ + "ammo" ; + Pass Pl P2 => studi_ + "aste" ; + Pass Pl P3 => studi_ + "arono" ; + Fut Sg P1 => studi_ + "erò" ; + Fut Sg P2 => studi_ + "erai" ; + Fut Sg P3 => studi_ + "erà" ; + Fut Pl P1 => studi_ + "eremo" ; + Fut Pl P2 => studi_ + "erete" ; + Fut Pl P3 => studi_ + "eranno" ; + Cong Pres Sg P1 => studi_ + "" ; + Cong Pres Sg P2 => studi_ + "" ; + Cong Pres Sg P3 => studi_ + "" ; + Cong Pres Pl P1 => studi_ + "amo" ; + Cong Pres Pl P2 => studi_ + "ate" ; + Cong Pres Pl P3 => studi_ + "no" ; + Cong Imperf Sg P1 => studi_ + "assi" ; + Cong Imperf Sg P2 => studi_ + "assi" ; + Cong Imperf Sg P3 => studi_ + "asse" ; + Cong Imperf Pl P1 => studi_ + "assimo" ; + Cong Imperf Pl P2 => studi_ + "aste" ; + Cong Imperf Pl P3 => studi_ + "assero" ; + Cond Sg P1 => studi_ + "erei" ; + Cond Sg P2 => studi_ + "eresti" ; + Cond Sg P3 => studi_ + "erebbe" ; + Cond Pl P1 => studi_ + "eremmo" ; + Cond Pl P2 => studi_ + "ereste" ; + Cond Pl P3 => studi_ + "erebbero" ; + Imper SgP2 => studi_ + "a" ; + Imper PlP1 => studi_ + "amo" ; + Imper PlP2 => studi_ + "ate" ; + Ger => studi_ + "ando" ; + Part PresP Masc Sg => studi_ + "ante" ; + Part PresP Masc Pl => studi_ + "anti" ; + Part PresP Fem Sg => studi_ + "ante" ; + Part PresP Fem Pl => studi_ + "anti" ; + Part PassP Masc Sg => studi_ + "ato" ; + Part PassP Masc Pl => studi_ + "ati" ; + Part PassP Fem Sg => studi_ + "ata" ; + Part PassP Fem Pl => studi_ + "ate" + } + } ; + +oper giocare_13 : Str -> Verbo = \giocare -> + let gioc_ = Predef.tk 3 giocare in + {s = table { + Inf => gioc_ + "are" ; + InfClit => gioc_ + "ar" ; + Indi Pres Sg P1 => gioc_ + "o" ; + Indi Pres Sg P2 => gioc_ + "hi" ; + Indi Pres Sg P3 => gioc_ + "a" ; + Indi Pres Pl P1 => gioc_ + "hiamo" ; + Indi Pres Pl P2 => gioc_ + "ate" ; + Indi Pres Pl P3 => gioc_ + "ano" ; + Indi Imperf Sg P1 => gioc_ + "avo" ; + Indi Imperf Sg P2 => gioc_ + "avi" ; + Indi Imperf Sg P3 => gioc_ + "ava" ; + Indi Imperf Pl P1 => gioc_ + "avamo" ; + Indi Imperf Pl P2 => gioc_ + "avate" ; + Indi Imperf Pl P3 => gioc_ + "avano" ; + Pass Sg P1 => gioc_ + "ai" ; + Pass Sg P2 => gioc_ + "asti" ; + Pass Sg P3 => gioc_ + "ò" ; + Pass Pl P1 => gioc_ + "ammo" ; + Pass Pl P2 => gioc_ + "aste" ; + Pass Pl P3 => gioc_ + "arono" ; + Fut Sg P1 => gioc_ + "herò" ; + Fut Sg P2 => gioc_ + "herai" ; + Fut Sg P3 => gioc_ + "herà" ; + Fut Pl P1 => gioc_ + "heremo" ; + Fut Pl P2 => gioc_ + "herete" ; + Fut Pl P3 => gioc_ + "heranno" ; + Cong Pres Sg P1 => gioc_ + "hi" ; + Cong Pres Sg P2 => gioc_ + "hi" ; + Cong Pres Sg P3 => gioc_ + "hi" ; + Cong Pres Pl P1 => gioc_ + "hiamo" ; + Cong Pres Pl P2 => gioc_ + "hiate" ; + Cong Pres Pl P3 => gioc_ + "hino" ; + Cong Imperf Sg P1 => gioc_ + "assi" ; + Cong Imperf Sg P2 => gioc_ + "assi" ; + Cong Imperf Sg P3 => gioc_ + "asse" ; + Cong Imperf Pl P1 => gioc_ + "assimo" ; + Cong Imperf Pl P2 => gioc_ + "aste" ; + Cong Imperf Pl P3 => gioc_ + "assero" ; + Cond Sg P1 => gioc_ + "herei" ; + Cond Sg P2 => gioc_ + "heresti" ; + Cond Sg P3 => gioc_ + "herebbe" ; + Cond Pl P1 => gioc_ + "heremmo" ; + Cond Pl P2 => gioc_ + "hereste" ; + Cond Pl P3 => gioc_ + "herebbero" ; + Imper SgP2 => gioc_ + "a" ; + Imper PlP1 => gioc_ + "hiamo" ; + Imper PlP2 => gioc_ + "ate" ; + Ger => gioc_ + "ando" ; + Part PresP Masc Sg => gioc_ + "ante" ; + Part PresP Masc Pl => gioc_ + "anti" ; + Part PresP Fem Sg => gioc_ + "ante" ; + Part PresP Fem Pl => gioc_ + "anti" ; + Part PassP Masc Sg => gioc_ + "ato" ; + Part PassP Masc Pl => gioc_ + "ati" ; + Part PassP Fem Sg => gioc_ + "ata" ; + Part PassP Fem Pl => gioc_ + "ate" + } + } ; + +oper andare_14 : Str -> Verbo = \andare -> + let x_ = Predef.tk 6 andare in + {s = table { + Inf => x_ + "andare" ; + InfClit => x_ + "andar" ; + Indi Pres Sg P1 => variants {x_ + "vo" ; x_ + "vado"} ; + Indi Pres Sg P2 => x_ + "vai" ; + Indi Pres Sg P3 => x_ + "va" ; + Indi Pres Pl P1 => x_ + "andiamo" ; + Indi Pres Pl P2 => x_ + "andate" ; + Indi Pres Pl P3 => x_ + "vanno" ; + Indi Imperf Sg P1 => x_ + "andavo" ; + Indi Imperf Sg P2 => x_ + "andavi" ; + Indi Imperf Sg P3 => x_ + "andava" ; + Indi Imperf Pl P1 => x_ + "andavamo" ; + Indi Imperf Pl P2 => x_ + "andavate" ; + Indi Imperf Pl P3 => x_ + "andavano" ; + Pass Sg P1 => x_ + "andai" ; + Pass Sg P2 => x_ + "andasti" ; + Pass Sg P3 => x_ + "andò" ; + Pass Pl P1 => x_ + "andammo" ; + Pass Pl P2 => x_ + "andaste" ; + Pass Pl P3 => x_ + "andarono" ; + Fut Sg P1 => x_ + "andrò" ; + Fut Sg P2 => x_ + "andrai" ; + Fut Sg P3 => x_ + "andrà" ; + Fut Pl P1 => x_ + "andremo" ; + Fut Pl P2 => x_ + "andrete" ; + Fut Pl P3 => x_ + "andranno" ; + Cong Pres Sg P1 => x_ + "vada" ; + Cong Pres Sg P2 => x_ + "vada" ; + Cong Pres Sg P3 => x_ + "vada" ; + Cong Pres Pl P1 => x_ + "andiamo" ; + Cong Pres Pl P2 => x_ + "andiate" ; + Cong Pres Pl P3 => x_ + "vadano" ; + Cong Imperf Sg P1 => x_ + "andassi" ; + Cong Imperf Sg P2 => x_ + "andassi" ; + Cong Imperf Sg P3 => x_ + "andasse" ; + Cong Imperf Pl P1 => x_ + "andassimo" ; + Cong Imperf Pl P2 => x_ + "andaste" ; + Cong Imperf Pl P3 => x_ + "andassero" ; + Cond Sg P1 => x_ + "andrei" ; + Cond Sg P2 => x_ + "andresti" ; + Cond Sg P3 => x_ + "andrebbe" ; + Cond Pl P1 => x_ + "andremmo" ; + Cond Pl P2 => x_ + "andreste" ; + Cond Pl P3 => x_ + "andrebbero" ; + Imper SgP2 => x_ + "vai" ; + Imper PlP1 => x_ + "andiamo" ; + Imper PlP2 => x_ + "andate" ; + Ger => x_ + "andando" ; + Part PresP Masc Sg => x_ + "andante" ; + Part PresP Masc Pl => x_ + "andanti" ; + Part PresP Fem Sg => x_ + "andante" ; + Part PresP Fem Pl => x_ + "andanti" ; + Part PassP Masc Sg => x_ + "andato" ; + Part PassP Masc Pl => x_ + "andati" ; + Part PassP Fem Sg => x_ + "andata" ; + Part PassP Fem Pl => x_ + "andate" + } + } ; + +oper riandare_14b : Str -> Verbo = \riandare -> + let ri_ = Predef.tk 6 riandare in + {s = table { + Inf => ri_ + "andare" ; + InfClit => ri_ + "andar" ; + Indi Pres Sg P1 => variants {ri_ + "vo" ; ri_ + "vado"} ; + Indi Pres Sg P2 => ri_ + "vai" ; + Indi Pres Sg P3 => ri_ + "và" ; + Indi Pres Pl P1 => ri_ + "andiamo" ; + Indi Pres Pl P2 => ri_ + "andate" ; + Indi Pres Pl P3 => ri_ + "vanno" ; + Indi Imperf Sg P1 => ri_ + "andavo" ; + Indi Imperf Sg P2 => ri_ + "andavi" ; + Indi Imperf Sg P3 => ri_ + "andava" ; + Indi Imperf Pl P1 => ri_ + "andavamo" ; + Indi Imperf Pl P2 => ri_ + "andavate" ; + Indi Imperf Pl P3 => ri_ + "andavano" ; + Pass Sg P1 => ri_ + "andai" ; + Pass Sg P2 => ri_ + "andasti" ; + Pass Sg P3 => ri_ + "andò" ; + Pass Pl P1 => ri_ + "andammo" ; + Pass Pl P2 => ri_ + "andaste" ; + Pass Pl P3 => ri_ + "andarono" ; + Fut Sg P1 => ri_ + "andrò" ; + Fut Sg P2 => ri_ + "andrai" ; + Fut Sg P3 => ri_ + "andrà" ; + Fut Pl P1 => ri_ + "andremo" ; + Fut Pl P2 => ri_ + "andrete" ; + Fut Pl P3 => ri_ + "andranno" ; + Cong Pres Sg P1 => ri_ + "vada" ; + Cong Pres Sg P2 => ri_ + "vada" ; + Cong Pres Sg P3 => ri_ + "vada" ; + Cong Pres Pl P1 => ri_ + "andiamo" ; + Cong Pres Pl P2 => ri_ + "andiate" ; + Cong Pres Pl P3 => ri_ + "vadano" ; + Cong Imperf Sg P1 => ri_ + "andassi" ; + Cong Imperf Sg P2 => ri_ + "andassi" ; + Cong Imperf Sg P3 => ri_ + "andasse" ; + Cong Imperf Pl P1 => ri_ + "andassimo" ; + Cong Imperf Pl P2 => ri_ + "andaste" ; + Cong Imperf Pl P3 => ri_ + "andassero" ; + Cond Sg P1 => ri_ + "andrei" ; + Cond Sg P2 => ri_ + "andresti" ; + Cond Sg P3 => ri_ + "andrebbe" ; + Cond Pl P1 => ri_ + "andremmo" ; + Cond Pl P2 => ri_ + "andreste" ; + Cond Pl P3 => ri_ + "andrebbero" ; + Imper SgP2 => ri_ + "vai" ; + Imper PlP1 => ri_ + "andiamo" ; + Imper PlP2 => ri_ + "andate" ; + Ger => ri_ + "andando" ; + Part PresP Masc Sg => ri_ + "andante" ; + Part PresP Masc Pl => ri_ + "andanti" ; + Part PresP Fem Sg => ri_ + "andante" ; + Part PresP Fem Pl => ri_ + "andanti" ; + Part PassP Masc Sg => ri_ + "andato" ; + Part PassP Masc Pl => ri_ + "andati" ; + Part PassP Fem Sg => ri_ + "andata" ; + Part PassP Fem Pl => ri_ + "andate" + } + } ; + +oper dare_15 : Str -> Verbo = \dare -> + let d_ = Predef.tk 3 dare in + {s = table { + Inf => d_ + "are" ; + InfClit => d_ + "a" ; + Indi Pres Sg P1 => d_ + "o" ; + Indi Pres Sg P2 => d_ + "ai" ; + Indi Pres Sg P3 => d_ + "à" ; + Indi Pres Pl P1 => d_ + "iamo" ; + Indi Pres Pl P2 => d_ + "ate" ; + Indi Pres Pl P3 => d_ + "anno" ; + Indi Imperf Sg P1 => d_ + "avo" ; + Indi Imperf Sg P2 => d_ + "avi" ; + Indi Imperf Sg P3 => d_ + "ava" ; + Indi Imperf Pl P1 => d_ + "avamo" ; + Indi Imperf Pl P2 => d_ + "avate" ; + Indi Imperf Pl P3 => d_ + "avano" ; + Pass Sg P1 => d_ + "iedi" ; + Pass Sg P2 => d_ + "esti" ; + Pass Sg P3 => d_ + "iede" ; + Pass Pl P1 => d_ + "emmo" ; + Pass Pl P2 => d_ + "este" ; + Pass Pl P3 => d_ + "iedero" ; + Fut Sg P1 => d_ + "arò" ; + Fut Sg P2 => d_ + "arai" ; + Fut Sg P3 => d_ + "arà" ; + Fut Pl P1 => d_ + "aremo" ; + Fut Pl P2 => d_ + "arete" ; + Fut Pl P3 => d_ + "aranno" ; + Cong Pres Sg P1 => d_ + "ia" ; + Cong Pres Sg P2 => d_ + "ia" ; + Cong Pres Sg P3 => d_ + "ia" ; + Cong Pres Pl P1 => d_ + "iamo" ; + Cong Pres Pl P2 => d_ + "iate" ; + Cong Pres Pl P3 => d_ + "iano" ; + Cong Imperf Sg P1 => d_ + "essi" ; + Cong Imperf Sg P2 => d_ + "essi" ; + Cong Imperf Sg P3 => d_ + "esse" ; + Cong Imperf Pl P1 => d_ + "essimo" ; + Cong Imperf Pl P2 => d_ + "este" ; + Cong Imperf Pl P3 => d_ + "essero" ; + Cond Sg P1 => d_ + "arei" ; + Cond Sg P2 => d_ + "aresti" ; + Cond Sg P3 => d_ + "arebbe" ; + Cond Pl P1 => d_ + "aremmo" ; + Cond Pl P2 => d_ + "areste" ; + Cond Pl P3 => d_ + "arebbero" ; + Imper SgP2 => d_ + "ai" ; + Imper PlP1 => d_ + "iamo" ; + Imper PlP2 => d_ + "iate" ; + Ger => d_ + "ando" ; + Part PresP Masc Sg => d_ + "ante" ; + Part PresP Masc Pl => d_ + "anti" ; + Part PresP Fem Sg => d_ + "ante" ; + Part PresP Fem Pl => d_ + "anti" ; + Part PassP Masc Sg => d_ + "ato" ; + Part PassP Masc Pl => d_ + "ati" ; + Part PassP Fem Sg => d_ + "ata" ; + Part PassP Fem Pl => d_ + "ate" + } + } ; + +oper stare_16 : Str -> Verbo = \stare -> + let st_ = Predef.tk 3 stare in + {s = table { + Inf => st_ + "are" ; + InfClit => st_ + "a" ; + Indi Pres Sg P1 => st_ + "o" ; + Indi Pres Sg P2 => st_ + "ai" ; + Indi Pres Sg P3 => st_ + "a" ; + Indi Pres Pl P1 => st_ + "iamo" ; + Indi Pres Pl P2 => st_ + "ate" ; + Indi Pres Pl P3 => st_ + "anno" ; + Indi Imperf Sg P1 => st_ + "avo" ; + Indi Imperf Sg P2 => st_ + "avi" ; + Indi Imperf Sg P3 => st_ + "ava" ; + Indi Imperf Pl P1 => st_ + "avamo" ; + Indi Imperf Pl P2 => st_ + "avate" ; + Indi Imperf Pl P3 => st_ + "avano" ; + Pass Sg P1 => st_ + "etti" ; + Pass Sg P2 => st_ + "esti" ; + Pass Sg P3 => st_ + "ette" ; + Pass Pl P1 => st_ + "emmo" ; + Pass Pl P2 => st_ + "este" ; + Pass Pl P3 => st_ + "ettero" ; + Fut Sg P1 => st_ + "arò" ; + Fut Sg P2 => st_ + "arai" ; + Fut Sg P3 => st_ + "arà" ; + Fut Pl P1 => st_ + "aremo" ; + Fut Pl P2 => st_ + "arete" ; + Fut Pl P3 => st_ + "aranno" ; + Cong Pres Sg P1 => st_ + "ia" ; + Cong Pres Sg P2 => st_ + "ia" ; + Cong Pres Sg P3 => st_ + "ia" ; + Cong Pres Pl P1 => st_ + "iamo" ; + Cong Pres Pl P2 => st_ + "iate" ; + Cong Pres Pl P3 => st_ + "iano" ; + Cong Imperf Sg P1 => st_ + "essi" ; + Cong Imperf Sg P2 => st_ + "essi" ; + Cong Imperf Sg P3 => st_ + "esse" ; + Cong Imperf Pl P1 => st_ + "essimo" ; + Cong Imperf Pl P2 => st_ + "este" ; + Cong Imperf Pl P3 => st_ + "essero" ; + Cond Sg P1 => st_ + "arei" ; + Cond Sg P2 => st_ + "aresti" ; + Cond Sg P3 => st_ + "arebbe" ; + Cond Pl P1 => st_ + "aremmo" ; + Cond Pl P2 => st_ + "areste" ; + Cond Pl P3 => st_ + "arebbero" ; + Imper SgP2 => variants {st_ + "a`" ; st_ + "ai"} ; + Imper PlP1 => st_ + "iamo" ; + Imper PlP2 => st_ + "iate" ; + Ger => st_ + "ando" ; + Part PresP Masc Sg => st_ + "ante" ; + Part PresP Masc Pl => st_ + "anti" ; + Part PresP Fem Sg => st_ + "ante" ; + Part PresP Fem Pl => st_ + "anti" ; + Part PassP Masc Sg => st_ + "ato" ; + Part PassP Masc Pl => st_ + "ati" ; + Part PassP Fem Sg => st_ + "ata" ; + Part PassP Fem Pl => st_ + "ate" + } + } ; + +oper agitare_17 : Str -> Verbo = \agitare -> + let agit_ = Predef.tk 3 agitare in + {s = table { + Inf => agit_ + "are" ; + InfClit => agit_ + "ar" ; + Indi Pres Sg P1 => agit_ + "o" ; + Indi Pres Sg P2 => agit_ + "i" ; + Indi Pres Sg P3 => agit_ + "a" ; + Indi Pres Pl P1 => agit_ + "iamo" ; + Indi Pres Pl P2 => agit_ + "ate" ; + Indi Pres Pl P3 => agit_ + "ano" ; + Indi Imperf Sg P1 => agit_ + "avo" ; + Indi Imperf Sg P2 => agit_ + "avi" ; + Indi Imperf Sg P3 => agit_ + "ava" ; + Indi Imperf Pl P1 => agit_ + "avamo" ; + Indi Imperf Pl P2 => agit_ + "avate" ; + Indi Imperf Pl P3 => agit_ + "avano" ; + Pass Sg P1 => agit_ + "ai" ; + Pass Sg P2 => agit_ + "asti" ; + Pass Sg P3 => agit_ + "ò" ; + Pass Pl P1 => agit_ + "ammo" ; + Pass Pl P2 => agit_ + "aste" ; + Pass Pl P3 => agit_ + "arono" ; + Fut Sg P1 => agit_ + "erò" ; + Fut Sg P2 => agit_ + "erai" ; + Fut Sg P3 => agit_ + "erà" ; + Fut Pl P1 => agit_ + "eremo" ; + Fut Pl P2 => agit_ + "erete" ; + Fut Pl P3 => agit_ + "eranno" ; + Cong Pres Sg P1 => agit_ + "i" ; + Cong Pres Sg P2 => agit_ + "i" ; + Cong Pres Sg P3 => agit_ + "i" ; + Cong Pres Pl P1 => agit_ + "iamo" ; + Cong Pres Pl P2 => agit_ + "iate" ; + Cong Pres Pl P3 => agit_ + "ino" ; + Cong Imperf Sg P1 => agit_ + "assi" ; + Cong Imperf Sg P2 => agit_ + "assi" ; + Cong Imperf Sg P3 => agit_ + "asse" ; + Cong Imperf Pl P1 => agit_ + "assimo" ; + Cong Imperf Pl P2 => agit_ + "aste" ; + Cong Imperf Pl P3 => agit_ + "assero" ; + Cond Sg P1 => agit_ + "erei" ; + Cond Sg P2 => agit_ + "eresti" ; + Cond Sg P3 => agit_ + "erebbe" ; + Cond Pl P1 => agit_ + "eremmo" ; + Cond Pl P2 => agit_ + "ereste" ; + Cond Pl P3 => agit_ + "erebbero" ; + Imper SgP2 => agit_ + "a" ; + Imper PlP1 => agit_ + "iamo" ; + Imper PlP2 => agit_ + "ate" ; + Ger => agit_ + "ando" ; + Part PresP Masc Sg => agit_ + "ante" ; + Part PresP Masc Pl => agit_ + "anti" ; + Part PresP Fem Sg => agit_ + "ante" ; + Part PresP Fem Pl => agit_ + "anti" ; + Part PassP Masc Sg => agit_ + "ato" ; + Part PassP Masc Pl => agit_ + "ati" ; + Part PassP Fem Sg => agit_ + "ata" ; + Part PassP Fem Pl => agit_ + "ate" + } + } ; + +oper immaginare_18 : Str -> Verbo = \immaginare -> + let immagin_ = Predef.tk 3 immaginare in + {s = table { + Inf => immagin_ + "are" ; + InfClit => immagin_ + "ar" ; + Indi Pres Sg P1 => immagin_ + "o" ; + Indi Pres Sg P2 => immagin_ + "i" ; + Indi Pres Sg P3 => immagin_ + "a" ; + Indi Pres Pl P1 => immagin_ + "iamo" ; + Indi Pres Pl P2 => immagin_ + "ate" ; + Indi Pres Pl P3 => immagin_ + "ano" ; + Indi Imperf Sg P1 => immagin_ + "avo" ; + Indi Imperf Sg P2 => immagin_ + "avi" ; + Indi Imperf Sg P3 => immagin_ + "ava" ; + Indi Imperf Pl P1 => immagin_ + "avamo" ; + Indi Imperf Pl P2 => immagin_ + "avate" ; + Indi Imperf Pl P3 => immagin_ + "avano" ; + Pass Sg P1 => immagin_ + "ai" ; + Pass Sg P2 => immagin_ + "asti" ; + Pass Sg P3 => immagin_ + "ò" ; + Pass Pl P1 => immagin_ + "ammo" ; + Pass Pl P2 => immagin_ + "aste" ; + Pass Pl P3 => immagin_ + "arono" ; + Fut Sg P1 => immagin_ + "erò" ; + Fut Sg P2 => immagin_ + "erai" ; + Fut Sg P3 => immagin_ + "erà" ; + Fut Pl P1 => immagin_ + "eremo" ; + Fut Pl P2 => immagin_ + "erete" ; + Fut Pl P3 => immagin_ + "eranno" ; + Cong Pres Sg P1 => immagin_ + "i" ; + Cong Pres Sg P2 => immagin_ + "i" ; + Cong Pres Sg P3 => immagin_ + "i" ; + Cong Pres Pl P1 => immagin_ + "iamo" ; + Cong Pres Pl P2 => immagin_ + "iate" ; + Cong Pres Pl P3 => immagin_ + "ino" ; + Cong Imperf Sg P1 => immagin_ + "assi" ; + Cong Imperf Sg P2 => immagin_ + "assi" ; + Cong Imperf Sg P3 => immagin_ + "asse" ; + Cong Imperf Pl P1 => immagin_ + "assimo" ; + Cong Imperf Pl P2 => immagin_ + "aste" ; + Cong Imperf Pl P3 => immagin_ + "assero" ; + Cond Sg P1 => immagin_ + "erei" ; + Cond Sg P2 => immagin_ + "eresti" ; + Cond Sg P3 => immagin_ + "erebbe" ; + Cond Pl P1 => immagin_ + "eremmo" ; + Cond Pl P2 => immagin_ + "ereste" ; + Cond Pl P3 => immagin_ + "erebbero" ; + Imper SgP2 => immagin_ + "a" ; + Imper PlP1 => immagin_ + "iamo" ; + Imper PlP2 => immagin_ + "ate" ; + Ger => immagin_ + "ando" ; + Part PresP Masc Sg => immagin_ + "ante" ; + Part PresP Masc Pl => immagin_ + "anti" ; + Part PresP Fem Sg => immagin_ + "ante" ; + Part PresP Fem Pl => immagin_ + "anti" ; + Part PassP Masc Sg => immagin_ + "ato" ; + Part PassP Masc Pl => immagin_ + "ati" ; + Part PassP Fem Sg => immagin_ + "ata" ; + Part PassP Fem Pl => immagin_ + "ate" + } + } ; + +oper modificare_19 : Str -> Verbo = \modificare -> + let modific_ = Predef.tk 3 modificare in + {s = table { + Inf => modific_ + "are" ; + InfClit => modific_ + "ar" ; + Indi Pres Sg P1 => modific_ + "o" ; + Indi Pres Sg P2 => modific_ + "hi" ; + Indi Pres Sg P3 => modific_ + "a" ; + Indi Pres Pl P1 => modific_ + "hiamo" ; + Indi Pres Pl P2 => modific_ + "ate" ; + Indi Pres Pl P3 => modific_ + "ano" ; + Indi Imperf Sg P1 => modific_ + "avo" ; + Indi Imperf Sg P2 => modific_ + "avi" ; + Indi Imperf Sg P3 => modific_ + "ava" ; + Indi Imperf Pl P1 => modific_ + "avamo" ; + Indi Imperf Pl P2 => modific_ + "avate" ; + Indi Imperf Pl P3 => modific_ + "avano" ; + Pass Sg P1 => modific_ + "ai" ; + Pass Sg P2 => modific_ + "asti" ; + Pass Sg P3 => modific_ + "ò" ; + Pass Pl P1 => modific_ + "ammo" ; + Pass Pl P2 => modific_ + "aste" ; + Pass Pl P3 => modific_ + "arono" ; + Fut Sg P1 => modific_ + "herò" ; + Fut Sg P2 => modific_ + "herai" ; + Fut Sg P3 => modific_ + "herà" ; + Fut Pl P1 => modific_ + "heremo" ; + Fut Pl P2 => modific_ + "herete" ; + Fut Pl P3 => modific_ + "heranno" ; + Cong Pres Sg P1 => modific_ + "hi" ; + Cong Pres Sg P2 => modific_ + "hi" ; + Cong Pres Sg P3 => modific_ + "hi" ; + Cong Pres Pl P1 => modific_ + "hiamo" ; + Cong Pres Pl P2 => modific_ + "hiate" ; + Cong Pres Pl P3 => modific_ + "hino" ; + Cong Imperf Sg P1 => modific_ + "assi" ; + Cong Imperf Sg P2 => modific_ + "assi" ; + Cong Imperf Sg P3 => modific_ + "asse" ; + Cong Imperf Pl P1 => modific_ + "assimo" ; + Cong Imperf Pl P2 => modific_ + "aste" ; + Cong Imperf Pl P3 => modific_ + "assero" ; + Cond Sg P1 => modific_ + "herei" ; + Cond Sg P2 => modific_ + "heresti" ; + Cond Sg P3 => modific_ + "herebbe" ; + Cond Pl P1 => modific_ + "heremmo" ; + Cond Pl P2 => modific_ + "hereste" ; + Cond Pl P3 => modific_ + "herebbero" ; + Imper SgP2 => modific_ + "a" ; + Imper PlP1 => modific_ + "hiamo" ; + Imper PlP2 => modific_ + "ate" ; + Ger => modific_ + "ando" ; + Part PresP Masc Sg => modific_ + "ante" ; + Part PresP Masc Pl => modific_ + "anti" ; + Part PresP Fem Sg => modific_ + "ante" ; + Part PresP Fem Pl => modific_ + "anti" ; + Part PassP Masc Sg => modific_ + "ato" ; + Part PassP Masc Pl => modific_ + "ati" ; + Part PassP Fem Sg => modific_ + "ata" ; + Part PassP Fem Pl => modific_ + "ate" + } + } ; + +oper temere_20 : Str -> Verbo = \temere -> + let tem_ = Predef.tk 3 temere in + {s = table { + Inf => tem_ + "ere" ; + InfClit => tem_ + "er" ; + Indi Pres Sg P1 => tem_ + "o" ; + Indi Pres Sg P2 => tem_ + "i" ; + Indi Pres Sg P3 => tem_ + "e" ; + Indi Pres Pl P1 => tem_ + "iamo" ; + Indi Pres Pl P2 => tem_ + "ete" ; + Indi Pres Pl P3 => tem_ + "ono" ; + Indi Imperf Sg P1 => tem_ + "evo" ; + Indi Imperf Sg P2 => tem_ + "evi" ; + Indi Imperf Sg P3 => tem_ + "eva" ; + Indi Imperf Pl P1 => tem_ + "evamo" ; + Indi Imperf Pl P2 => tem_ + "evate" ; + Indi Imperf Pl P3 => tem_ + "evano" ; + Pass Sg P1 => tem_ + "etti" ; + Pass Sg P2 => tem_ + "esti" ; + Pass Sg P3 => tem_ + "ette" ; + Pass Pl P1 => tem_ + "emmo" ; + Pass Pl P2 => tem_ + "este" ; + Pass Pl P3 => tem_ + "ettero" ; + Fut Sg P1 => tem_ + "erò" ; + Fut Sg P2 => tem_ + "erai" ; + Fut Sg P3 => tem_ + "erà" ; + Fut Pl P1 => tem_ + "eremo" ; + Fut Pl P2 => tem_ + "erete" ; + Fut Pl P3 => tem_ + "eranno" ; + Cong Pres Sg P1 => tem_ + "a" ; + Cong Pres Sg P2 => tem_ + "a" ; + Cong Pres Sg P3 => tem_ + "a" ; + Cong Pres Pl P1 => tem_ + "iamo" ; + Cong Pres Pl P2 => tem_ + "iate" ; + Cong Pres Pl P3 => tem_ + "ano" ; + Cong Imperf Sg P1 => tem_ + "essi" ; + Cong Imperf Sg P2 => tem_ + "essi" ; + Cong Imperf Sg P3 => tem_ + "esse" ; + Cong Imperf Pl P1 => tem_ + "essimo" ; + Cong Imperf Pl P2 => tem_ + "este" ; + Cong Imperf Pl P3 => tem_ + "essero" ; + Cond Sg P1 => tem_ + "erei" ; + Cond Sg P2 => tem_ + "eresti" ; + Cond Sg P3 => tem_ + "erebbe" ; + Cond Pl P1 => tem_ + "eremmo" ; + Cond Pl P2 => tem_ + "ereste" ; + Cond Pl P3 => tem_ + "erebbero" ; + Imper SgP2 => tem_ + "i" ; + Imper PlP1 => tem_ + "iamo" ; + Imper PlP2 => tem_ + "ete" ; + Ger => tem_ + "endo" ; + Part PresP Masc Sg => tem_ + "ente" ; + Part PresP Masc Pl => tem_ + "enti" ; + Part PresP Fem Sg => tem_ + "ente" ; + Part PresP Fem Pl => tem_ + "enti" ; + Part PassP Masc Sg => tem_ + "uto" ; + Part PassP Masc Pl => tem_ + "uti" ; + Part PassP Fem Sg => tem_ + "uta" ; + Part PassP Fem Pl => tem_ + "ute" + } + } ; + +oper accendere_21 : Str -> Verbo = \accendere -> + let acce_ = Predef.tk 5 accendere in + {s = table { + Inf => acce_ + "ndere" ; + InfClit => acce_ + "nder" ; + Indi Pres Sg P1 => acce_ + "ndo" ; + Indi Pres Sg P2 => acce_ + "ndi" ; + Indi Pres Sg P3 => acce_ + "nde" ; + Indi Pres Pl P1 => acce_ + "ndiamo" ; + Indi Pres Pl P2 => acce_ + "ndete" ; + Indi Pres Pl P3 => acce_ + "ndono" ; + Indi Imperf Sg P1 => acce_ + "ndevo" ; + Indi Imperf Sg P2 => acce_ + "ndevi" ; + Indi Imperf Sg P3 => acce_ + "ndeva" ; + Indi Imperf Pl P1 => acce_ + "ndevamo" ; + Indi Imperf Pl P2 => acce_ + "ndevate" ; + Indi Imperf Pl P3 => acce_ + "ndevano" ; + Pass Sg P1 => acce_ + "si" ; + Pass Sg P2 => acce_ + "ndesti" ; + Pass Sg P3 => acce_ + "se" ; + Pass Pl P1 => acce_ + "ndemmo" ; + Pass Pl P2 => acce_ + "ndeste" ; + Pass Pl P3 => acce_ + "sero" ; + Fut Sg P1 => acce_ + "nderò" ; + Fut Sg P2 => acce_ + "nderai" ; + Fut Sg P3 => acce_ + "nderà" ; + Fut Pl P1 => acce_ + "nderemo" ; + Fut Pl P2 => acce_ + "nderete" ; + Fut Pl P3 => acce_ + "nderanno" ; + Cong Pres Sg P1 => acce_ + "nda" ; + Cong Pres Sg P2 => acce_ + "nda" ; + Cong Pres Sg P3 => acce_ + "nda" ; + Cong Pres Pl P1 => acce_ + "ndiamo" ; + Cong Pres Pl P2 => acce_ + "ndiate" ; + Cong Pres Pl P3 => acce_ + "ndano" ; + Cong Imperf Sg P1 => acce_ + "ndessi" ; + Cong Imperf Sg P2 => acce_ + "ndessi" ; + Cong Imperf Sg P3 => acce_ + "ndesse" ; + Cong Imperf Pl P1 => acce_ + "ndessimo" ; + Cong Imperf Pl P2 => acce_ + "ndeste" ; + Cong Imperf Pl P3 => acce_ + "ndessero" ; + Cond Sg P1 => acce_ + "nderei" ; + Cond Sg P2 => acce_ + "nderesti" ; + Cond Sg P3 => acce_ + "nderebbe" ; + Cond Pl P1 => acce_ + "nderemmo" ; + Cond Pl P2 => acce_ + "ndereste" ; + Cond Pl P3 => acce_ + "nderebbero" ; + Imper SgP2 => acce_ + "ndi" ; + Imper PlP1 => acce_ + "ndiamo" ; + Imper PlP2 => acce_ + "ndete" ; + Ger => acce_ + "ndendo" ; + Part PresP Masc Sg => acce_ + "ndente" ; + Part PresP Masc Pl => acce_ + "ndenti" ; + Part PresP Fem Sg => acce_ + "ndente" ; + Part PresP Fem Pl => acce_ + "ndenti" ; + Part PassP Masc Sg => acce_ + "so" ; + Part PassP Masc Pl => acce_ + "si" ; + Part PassP Fem Sg => acce_ + "sa" ; + Part PassP Fem Pl => acce_ + "se" + } + } ; + +oper affiggere_22 : Str -> Verbo = \affiggere -> + let affi_ = Predef.tk 5 affiggere in + {s = table { + Inf => affi_ + "ggere" ; + InfClit => affi_ + "gger" ; + Indi Pres Sg P1 => affi_ + "ggo" ; + Indi Pres Sg P2 => affi_ + "ggi" ; + Indi Pres Sg P3 => affi_ + "gge" ; + Indi Pres Pl P1 => affi_ + "ggiamo" ; + Indi Pres Pl P2 => affi_ + "ggete" ; + Indi Pres Pl P3 => affi_ + "ggono" ; + Indi Imperf Sg P1 => affi_ + "ggevo" ; + Indi Imperf Sg P2 => affi_ + "ggevi" ; + Indi Imperf Sg P3 => affi_ + "ggeva" ; + Indi Imperf Pl P1 => affi_ + "ggevamo" ; + Indi Imperf Pl P2 => affi_ + "ggevate" ; + Indi Imperf Pl P3 => affi_ + "ggevano" ; + Pass Sg P1 => affi_ + "ssi" ; + Pass Sg P2 => affi_ + "ggesti" ; + Pass Sg P3 => affi_ + "sse" ; + Pass Pl P1 => affi_ + "ggemmo" ; + Pass Pl P2 => affi_ + "ggeste" ; + Pass Pl P3 => affi_ + "ssero" ; + Fut Sg P1 => affi_ + "ggerò" ; + Fut Sg P2 => affi_ + "ggerai" ; + Fut Sg P3 => affi_ + "ggerà" ; + Fut Pl P1 => affi_ + "ggeremo" ; + Fut Pl P2 => affi_ + "ggerete" ; + Fut Pl P3 => affi_ + "ggeranno" ; + Cong Pres Sg P1 => affi_ + "gga" ; + Cong Pres Sg P2 => affi_ + "gga" ; + Cong Pres Sg P3 => affi_ + "gga" ; + Cong Pres Pl P1 => affi_ + "ggiamo" ; + Cong Pres Pl P2 => affi_ + "ggiate" ; + Cong Pres Pl P3 => affi_ + "ggano" ; + Cong Imperf Sg P1 => affi_ + "ggessi" ; + Cong Imperf Sg P2 => affi_ + "ggessi" ; + Cong Imperf Sg P3 => affi_ + "ggesse" ; + Cong Imperf Pl P1 => affi_ + "ggessimo" ; + Cong Imperf Pl P2 => affi_ + "ggeste" ; + Cong Imperf Pl P3 => affi_ + "ggessero" ; + Cond Sg P1 => affi_ + "ggerei" ; + Cond Sg P2 => affi_ + "ggeresti" ; + Cond Sg P3 => affi_ + "ggerebbe" ; + Cond Pl P1 => affi_ + "ggeremmo" ; + Cond Pl P2 => affi_ + "ggereste" ; + Cond Pl P3 => affi_ + "ggerebbero" ; + Imper SgP2 => affi_ + "ggi" ; + Imper PlP1 => affi_ + "ggiamo" ; + Imper PlP2 => affi_ + "ggete" ; + Ger => affi_ + "ggendo" ; + Part PresP Masc Sg => affi_ + "ggente" ; + Part PresP Masc Pl => affi_ + "ggenti" ; + Part PresP Fem Sg => affi_ + "ggente" ; + Part PresP Fem Pl => affi_ + "ggenti" ; + Part PassP Masc Sg => affi_ + "sso" ; + Part PassP Masc Pl => affi_ + "ssi" ; + Part PassP Fem Sg => affi_ + "ssa" ; + Part PassP Fem Pl => affi_ + "sse" + } + } ; + +oper ardere_23 : Str -> Verbo = \ardere -> + let ar_ = Predef.tk 4 ardere in + {s = table { + Inf => ar_ + "dere" ; + InfClit => ar_ + "der" ; + Indi Pres Sg P1 => ar_ + "do" ; + Indi Pres Sg P2 => ar_ + "di" ; + Indi Pres Sg P3 => ar_ + "de" ; + Indi Pres Pl P1 => ar_ + "diamo" ; + Indi Pres Pl P2 => ar_ + "dete" ; + Indi Pres Pl P3 => ar_ + "dono" ; + Indi Imperf Sg P1 => ar_ + "devo" ; + Indi Imperf Sg P2 => ar_ + "devi" ; + Indi Imperf Sg P3 => ar_ + "deva" ; + Indi Imperf Pl P1 => ar_ + "devamo" ; + Indi Imperf Pl P2 => ar_ + "devate" ; + Indi Imperf Pl P3 => ar_ + "devano" ; + Pass Sg P1 => ar_ + "si" ; + Pass Sg P2 => ar_ + "desti" ; + Pass Sg P3 => ar_ + "se" ; + Pass Pl P1 => ar_ + "demmo" ; + Pass Pl P2 => ar_ + "deste" ; + Pass Pl P3 => ar_ + "sero" ; + Fut Sg P1 => ar_ + "derò" ; + Fut Sg P2 => ar_ + "derai" ; + Fut Sg P3 => ar_ + "derà" ; + Fut Pl P1 => ar_ + "deremo" ; + Fut Pl P2 => ar_ + "derete" ; + Fut Pl P3 => ar_ + "deranno" ; + Cong Pres Sg P1 => ar_ + "da" ; + Cong Pres Sg P2 => ar_ + "da" ; + Cong Pres Sg P3 => ar_ + "da" ; + Cong Pres Pl P1 => ar_ + "diamo" ; + Cong Pres Pl P2 => ar_ + "diate" ; + Cong Pres Pl P3 => ar_ + "dano" ; + Cong Imperf Sg P1 => ar_ + "dessi" ; + Cong Imperf Sg P2 => ar_ + "dessi" ; + Cong Imperf Sg P3 => ar_ + "desse" ; + Cong Imperf Pl P1 => ar_ + "dessimo" ; + Cong Imperf Pl P2 => ar_ + "deste" ; + Cong Imperf Pl P3 => ar_ + "dessero" ; + Cond Sg P1 => ar_ + "derei" ; + Cond Sg P2 => ar_ + "deresti" ; + Cond Sg P3 => ar_ + "derebbe" ; + Cond Pl P1 => ar_ + "deremmo" ; + Cond Pl P2 => ar_ + "dereste" ; + Cond Pl P3 => ar_ + "derebbero" ; + Imper SgP2 => ar_ + "di" ; + Imper PlP1 => ar_ + "diamo" ; + Imper PlP2 => ar_ + "dete" ; + Ger => ar_ + "dendo" ; + Part PresP Masc Sg => ar_ + "dente" ; + Part PresP Masc Pl => ar_ + "denti" ; + Part PresP Fem Sg => ar_ + "dente" ; + Part PresP Fem Pl => ar_ + "denti" ; + Part PassP Masc Sg => ar_ + "so" ; + Part PassP Masc Pl => ar_ + "si" ; + Part PassP Fem Sg => ar_ + "sa" ; + Part PassP Fem Pl => ar_ + "se" + } + } ; + +oper assistere_24 : Str -> Verbo = \assistere -> + let assist_ = Predef.tk 3 assistere in + {s = table { + Inf => assist_ + "ere" ; + InfClit => assist_ + "er" ; + Indi Pres Sg P1 => assist_ + "o" ; + Indi Pres Sg P2 => assist_ + "i" ; + Indi Pres Sg P3 => assist_ + "e" ; + Indi Pres Pl P1 => assist_ + "iamo" ; + Indi Pres Pl P2 => assist_ + "ete" ; + Indi Pres Pl P3 => assist_ + "ono" ; + Indi Imperf Sg P1 => assist_ + "evo" ; + Indi Imperf Sg P2 => assist_ + "evi" ; + Indi Imperf Sg P3 => assist_ + "eva" ; + Indi Imperf Pl P1 => assist_ + "evamo" ; + Indi Imperf Pl P2 => assist_ + "evate" ; + Indi Imperf Pl P3 => assist_ + "evano" ; + Pass Sg P1 => assist_ + "ei" ; + Pass Sg P2 => assist_ + "esti" ; + Pass Sg P3 => assist_ + "é" ; + Pass Pl P1 => assist_ + "emmo" ; + Pass Pl P2 => assist_ + "este" ; + Pass Pl P3 => assist_ + "erono" ; + Fut Sg P1 => assist_ + "erò" ; + Fut Sg P2 => assist_ + "erai" ; + Fut Sg P3 => assist_ + "erà" ; + Fut Pl P1 => assist_ + "eremo" ; + Fut Pl P2 => assist_ + "erete" ; + Fut Pl P3 => assist_ + "eranno" ; + Cong Pres Sg P1 => assist_ + "a" ; + Cong Pres Sg P2 => assist_ + "a" ; + Cong Pres Sg P3 => assist_ + "a" ; + Cong Pres Pl P1 => assist_ + "iamo" ; + Cong Pres Pl P2 => assist_ + "iate" ; + Cong Pres Pl P3 => assist_ + "ano" ; + Cong Imperf Sg P1 => assist_ + "essi" ; + Cong Imperf Sg P2 => assist_ + "essi" ; + Cong Imperf Sg P3 => assist_ + "esse" ; + Cong Imperf Pl P1 => assist_ + "essimo" ; + Cong Imperf Pl P2 => assist_ + "este" ; + Cong Imperf Pl P3 => assist_ + "essero" ; + Cond Sg P1 => assist_ + "erei" ; + Cond Sg P2 => assist_ + "eresti" ; + Cond Sg P3 => assist_ + "erebbe" ; + Cond Pl P1 => assist_ + "eremmo" ; + Cond Pl P2 => assist_ + "ereste" ; + Cond Pl P3 => assist_ + "erebbero" ; + Imper SgP2 => assist_ + "i" ; + Imper PlP1 => assist_ + "iamo" ; + Imper PlP2 => assist_ + "ete" ; + Ger => assist_ + "endo" ; + Part PresP Masc Sg => assist_ + "ente" ; + Part PresP Masc Pl => assist_ + "enti" ; + Part PresP Fem Sg => assist_ + "ente" ; + Part PresP Fem Pl => assist_ + "enti" ; + Part PassP Masc Sg => assist_ + "ito" ; + Part PassP Masc Pl => assist_ + "iti" ; + Part PassP Fem Sg => assist_ + "ita" ; + Part PassP Fem Pl => assist_ + "ite" + } + } ; + +oper assolvere_25 : Str -> Verbo = \assolvere -> + let assol_ = Predef.tk 4 assolvere in + {s = table { + Inf => assol_ + "vere" ; + InfClit => assol_ + "ver" ; + Indi Pres Sg P1 => assol_ + "vo" ; + Indi Pres Sg P2 => assol_ + "vi" ; + Indi Pres Sg P3 => assol_ + "ve" ; + Indi Pres Pl P1 => assol_ + "viamo" ; + Indi Pres Pl P2 => assol_ + "vete" ; + Indi Pres Pl P3 => assol_ + "vono" ; + Indi Imperf Sg P1 => assol_ + "vevo" ; + Indi Imperf Sg P2 => assol_ + "vevi" ; + Indi Imperf Sg P3 => assol_ + "veva" ; + Indi Imperf Pl P1 => assol_ + "vevamo" ; + Indi Imperf Pl P2 => assol_ + "vevate" ; + Indi Imperf Pl P3 => assol_ + "vevano" ; + Pass Sg P1 => assol_ + "si" ; + Pass Sg P2 => assol_ + "vesti" ; + Pass Sg P3 => assol_ + "se" ; + Pass Pl P1 => assol_ + "vemmo" ; + Pass Pl P2 => assol_ + "veste" ; + Pass Pl P3 => assol_ + "sero" ; + Fut Sg P1 => assol_ + "verò" ; + Fut Sg P2 => assol_ + "verai" ; + Fut Sg P3 => assol_ + "verà" ; + Fut Pl P1 => assol_ + "veremo" ; + Fut Pl P2 => assol_ + "verete" ; + Fut Pl P3 => assol_ + "veranno" ; + Cong Pres Sg P1 => assol_ + "va" ; + Cong Pres Sg P2 => assol_ + "va" ; + Cong Pres Sg P3 => assol_ + "va" ; + Cong Pres Pl P1 => assol_ + "viamo" ; + Cong Pres Pl P2 => assol_ + "viate" ; + Cong Pres Pl P3 => assol_ + "vano" ; + Cong Imperf Sg P1 => assol_ + "vessi" ; + Cong Imperf Sg P2 => assol_ + "vessi" ; + Cong Imperf Sg P3 => assol_ + "vesse" ; + Cong Imperf Pl P1 => assol_ + "vessimo" ; + Cong Imperf Pl P2 => assol_ + "veste" ; + Cong Imperf Pl P3 => assol_ + "vessero" ; + Cond Sg P1 => assol_ + "verei" ; + Cond Sg P2 => assol_ + "veresti" ; + Cond Sg P3 => assol_ + "verebbe" ; + Cond Pl P1 => assol_ + "veremmo" ; + Cond Pl P2 => assol_ + "vereste" ; + Cond Pl P3 => assol_ + "verebbero" ; + Imper SgP2 => assol_ + "vi" ; + Imper PlP1 => assol_ + "viamo" ; + Imper PlP2 => assol_ + "vete" ; + Ger => assol_ + "vendo" ; + Part PresP Masc Sg => assol_ + "vente" ; + Part PresP Masc Pl => assol_ + "venti" ; + Part PresP Fem Sg => assol_ + "vente" ; + Part PresP Fem Pl => assol_ + "venti" ; + Part PassP Masc Sg => assol_ + "to" ; + Part PassP Masc Pl => assol_ + "ti" ; + Part PassP Fem Sg => assol_ + "ta" ; + Part PassP Fem Pl => assol_ + "te" + } + } ; + +oper assumere_26 : Str -> Verbo = \assumere -> + let assu_ = Predef.tk 4 assumere in + {s = table { + Inf => assu_ + "mere" ; + InfClit => assu_ + "mer" ; + Indi Pres Sg P1 => assu_ + "mo" ; + Indi Pres Sg P2 => assu_ + "mi" ; + Indi Pres Sg P3 => assu_ + "me" ; + Indi Pres Pl P1 => assu_ + "miamo" ; + Indi Pres Pl P2 => assu_ + "mete" ; + Indi Pres Pl P3 => assu_ + "mono" ; + Indi Imperf Sg P1 => assu_ + "mevo" ; + Indi Imperf Sg P2 => assu_ + "mevi" ; + Indi Imperf Sg P3 => assu_ + "meva" ; + Indi Imperf Pl P1 => assu_ + "mevamo" ; + Indi Imperf Pl P2 => assu_ + "mevate" ; + Indi Imperf Pl P3 => assu_ + "mevano" ; + Pass Sg P1 => assu_ + "nsi" ; + Pass Sg P2 => assu_ + "mesti" ; + Pass Sg P3 => assu_ + "nse" ; + Pass Pl P1 => assu_ + "memmo" ; + Pass Pl P2 => assu_ + "meste" ; + Pass Pl P3 => assu_ + "nsero" ; + Fut Sg P1 => assu_ + "merò" ; + Fut Sg P2 => assu_ + "merai" ; + Fut Sg P3 => assu_ + "merà" ; + Fut Pl P1 => assu_ + "meremo" ; + Fut Pl P2 => assu_ + "merete" ; + Fut Pl P3 => assu_ + "meranno" ; + Cong Pres Sg P1 => assu_ + "ma" ; + Cong Pres Sg P2 => assu_ + "ma" ; + Cong Pres Sg P3 => assu_ + "ma" ; + Cong Pres Pl P1 => assu_ + "miamo" ; + Cong Pres Pl P2 => assu_ + "miate" ; + Cong Pres Pl P3 => assu_ + "mano" ; + Cong Imperf Sg P1 => assu_ + "messi" ; + Cong Imperf Sg P2 => assu_ + "messi" ; + Cong Imperf Sg P3 => assu_ + "messe" ; + Cong Imperf Pl P1 => assu_ + "messimo" ; + Cong Imperf Pl P2 => assu_ + "meste" ; + Cong Imperf Pl P3 => assu_ + "messero" ; + Cond Sg P1 => assu_ + "merei" ; + Cond Sg P2 => assu_ + "meresti" ; + Cond Sg P3 => assu_ + "merebbe" ; + Cond Pl P1 => assu_ + "meremmo" ; + Cond Pl P2 => assu_ + "mereste" ; + Cond Pl P3 => assu_ + "merebbero" ; + Imper SgP2 => assu_ + "mi" ; + Imper PlP1 => assu_ + "miamo" ; + Imper PlP2 => assu_ + "mete" ; + Ger => assu_ + "mendo" ; + Part PresP Masc Sg => assu_ + "mente" ; + Part PresP Masc Pl => assu_ + "menti" ; + Part PresP Fem Sg => assu_ + "mente" ; + Part PresP Fem Pl => assu_ + "menti" ; + Part PassP Masc Sg => assu_ + "nto" ; + Part PassP Masc Pl => assu_ + "nti" ; + Part PassP Fem Sg => assu_ + "nta" ; + Part PassP Fem Pl => assu_ + "nte" + } + } ; + +oper bere_27 : Str -> Verbo = \bere -> + let be_ = Predef.tk 2 bere in + {s = table { + Inf => be_ + "re" ; + InfClit => be_ + "r" ; + Indi Pres Sg P1 => be_ + "vo" ; + Indi Pres Sg P2 => be_ + "vi" ; + Indi Pres Sg P3 => be_ + "ve" ; + Indi Pres Pl P1 => be_ + "viamo" ; + Indi Pres Pl P2 => be_ + "vete" ; + Indi Pres Pl P3 => be_ + "vono" ; + Indi Imperf Sg P1 => be_ + "vevo" ; + Indi Imperf Sg P2 => be_ + "vevi" ; + Indi Imperf Sg P3 => be_ + "veva" ; + Indi Imperf Pl P1 => be_ + "vevamo" ; + Indi Imperf Pl P2 => be_ + "vevate" ; + Indi Imperf Pl P3 => be_ + "vevano" ; + Pass Sg P1 => be_ + "vvi" ; + Pass Sg P2 => be_ + "vesti" ; + Pass Sg P3 => be_ + "vve" ; + Pass Pl P1 => be_ + "vemmo" ; + Pass Pl P2 => be_ + "veste" ; + Pass Pl P3 => be_ + "vvero" ; + Fut Sg P1 => be_ + "rrò" ; + Fut Sg P2 => be_ + "rrai" ; + Fut Sg P3 => be_ + "rrà" ; + Fut Pl P1 => be_ + "rremo" ; + Fut Pl P2 => be_ + "rrete" ; + Fut Pl P3 => be_ + "rranno" ; + Cong Pres Sg P1 => be_ + "va" ; + Cong Pres Sg P2 => be_ + "va" ; + Cong Pres Sg P3 => be_ + "va" ; + Cong Pres Pl P1 => be_ + "viamo" ; + Cong Pres Pl P2 => be_ + "viate" ; + Cong Pres Pl P3 => be_ + "vano" ; + Cong Imperf Sg P1 => be_ + "vessi" ; + Cong Imperf Sg P2 => be_ + "vessi" ; + Cong Imperf Sg P3 => be_ + "vesse" ; + Cong Imperf Pl P1 => be_ + "vessimo" ; + Cong Imperf Pl P2 => be_ + "veste" ; + Cong Imperf Pl P3 => be_ + "vessero" ; + Cond Sg P1 => be_ + "rrei" ; + Cond Sg P2 => be_ + "rresti" ; + Cond Sg P3 => be_ + "rrebbe" ; + Cond Pl P1 => be_ + "rremmo" ; + Cond Pl P2 => be_ + "rreste" ; + Cond Pl P3 => be_ + "rrebbero" ; + Imper SgP2 => be_ + "vi" ; + Imper PlP1 => be_ + "viamo" ; + Imper PlP2 => be_ + "vete" ; + Ger => be_ + "vendo" ; + Part PresP Masc Sg => be_ + "vente" ; + Part PresP Masc Pl => be_ + "venti" ; + Part PresP Fem Sg => be_ + "vente" ; + Part PresP Fem Pl => be_ + "venti" ; + Part PassP Masc Sg => be_ + "vuto" ; + Part PassP Masc Pl => be_ + "vuti" ; + Part PassP Fem Sg => be_ + "vuta" ; + Part PassP Fem Pl => be_ + "vute" + } + } ; + +oper cadere_28 : Str -> Verbo = \caere -> + let ca_ = Predef.tk 3 caere in + {s = table { + Inf => ca_ + "ere" ; + InfClit => ca_ + "er" ; + Indi Pres Sg P1 => ca_ + "o" ; + Indi Pres Sg P2 => ca_ + "i" ; + Indi Pres Sg P3 => ca_ + "e" ; + Indi Pres Pl P1 => ca_ + "iamo" ; + Indi Pres Pl P2 => ca_ + "ete" ; + Indi Pres Pl P3 => ca_ + "ono" ; + Indi Imperf Sg P1 => ca_ + "evo" ; + Indi Imperf Sg P2 => ca_ + "evi" ; + Indi Imperf Sg P3 => ca_ + "eva" ; + Indi Imperf Pl P1 => ca_ + "evamo" ; + Indi Imperf Pl P2 => ca_ + "evate" ; + Indi Imperf Pl P3 => ca_ + "evano" ; + Pass Sg P1 => ca_ + "di" ; + Pass Sg P2 => ca_ + "esti" ; + Pass Sg P3 => ca_ + "de" ; + Pass Pl P1 => ca_ + "emmo" ; + Pass Pl P2 => ca_ + "este" ; + Pass Pl P3 => ca_ + "dero" ; + Fut Sg P1 => ca_ + "rò" ; + Fut Sg P2 => ca_ + "rai" ; + Fut Sg P3 => ca_ + "rà" ; + Fut Pl P1 => ca_ + "remo" ; + Fut Pl P2 => ca_ + "rete" ; + Fut Pl P3 => ca_ + "ranno" ; + Cong Pres Sg P1 => ca_ + "a" ; + Cong Pres Sg P2 => ca_ + "a" ; + Cong Pres Sg P3 => ca_ + "a" ; + Cong Pres Pl P1 => ca_ + "iamo" ; + Cong Pres Pl P2 => ca_ + "iate" ; + Cong Pres Pl P3 => ca_ + "ano" ; + Cong Imperf Sg P1 => ca_ + "essi" ; + Cong Imperf Sg P2 => ca_ + "essi" ; + Cong Imperf Sg P3 => ca_ + "esse" ; + Cong Imperf Pl P1 => ca_ + "essimo" ; + Cong Imperf Pl P2 => ca_ + "este" ; + Cong Imperf Pl P3 => ca_ + "essero" ; + Cond Sg P1 => ca_ + "rei" ; + Cond Sg P2 => ca_ + "resti" ; + Cond Sg P3 => ca_ + "rebbe" ; + Cond Pl P1 => ca_ + "remmo" ; + Cond Pl P2 => ca_ + "reste" ; + Cond Pl P3 => ca_ + "rebbero" ; + Imper SgP2 => ca_ + "i" ; + Imper PlP1 => ca_ + "iamo" ; + Imper PlP2 => ca_ + "ete" ; + Ger => ca_ + "endo" ; + Part PresP Masc Sg => ca_ + "ente" ; + Part PresP Masc Pl => ca_ + "enti" ; + Part PresP Fem Sg => ca_ + "ente" ; + Part PresP Fem Pl => ca_ + "enti" ; + Part PassP Masc Sg => ca_ + "uto" ; + Part PassP Masc Pl => ca_ + "uti" ; + Part PassP Fem Sg => ca_ + "uta" ; + Part PassP Fem Pl => ca_ + "ute" + } + } ; + +oper chiedere_29 : Str -> Verbo = \chiedere -> + let chie_ = Predef.tk 4 chiedere in + {s = table { + Inf => chie_ + "dere" ; + InfClit => chie_ + "der" ; + Indi Pres Sg P1 => chie_ + "do" ; + Indi Pres Sg P2 => chie_ + "di" ; + Indi Pres Sg P3 => chie_ + "de" ; + Indi Pres Pl P1 => chie_ + "diamo" ; + Indi Pres Pl P2 => chie_ + "dete" ; + Indi Pres Pl P3 => chie_ + "dono" ; + Indi Imperf Sg P1 => chie_ + "devo" ; + Indi Imperf Sg P2 => chie_ + "devi" ; + Indi Imperf Sg P3 => chie_ + "deva" ; + Indi Imperf Pl P1 => chie_ + "devamo" ; + Indi Imperf Pl P2 => chie_ + "devate" ; + Indi Imperf Pl P3 => chie_ + "devano" ; + Pass Sg P1 => chie_ + "si" ; + Pass Sg P2 => chie_ + "desti" ; + Pass Sg P3 => chie_ + "se" ; + Pass Pl P1 => chie_ + "demmo" ; + Pass Pl P2 => chie_ + "deste" ; + Pass Pl P3 => chie_ + "sero" ; + Fut Sg P1 => chie_ + "derò" ; + Fut Sg P2 => chie_ + "derai" ; + Fut Sg P3 => chie_ + "derà" ; + Fut Pl P1 => chie_ + "deremo" ; + Fut Pl P2 => chie_ + "derete" ; + Fut Pl P3 => chie_ + "deranno" ; + Cong Pres Sg P1 => chie_ + "da" ; + Cong Pres Sg P2 => chie_ + "da" ; + Cong Pres Sg P3 => chie_ + "da" ; + Cong Pres Pl P1 => chie_ + "diamo" ; + Cong Pres Pl P2 => chie_ + "diate" ; + Cong Pres Pl P3 => chie_ + "dano" ; + Cong Imperf Sg P1 => chie_ + "dessi" ; + Cong Imperf Sg P2 => chie_ + "dessi" ; + Cong Imperf Sg P3 => chie_ + "desse" ; + Cong Imperf Pl P1 => chie_ + "dessimo" ; + Cong Imperf Pl P2 => chie_ + "deste" ; + Cong Imperf Pl P3 => chie_ + "dessero" ; + Cond Sg P1 => chie_ + "derei" ; + Cond Sg P2 => chie_ + "deresti" ; + Cond Sg P3 => chie_ + "derebbe" ; + Cond Pl P1 => chie_ + "deremmo" ; + Cond Pl P2 => chie_ + "dereste" ; + Cond Pl P3 => chie_ + "derebbero" ; + Imper SgP2 => chie_ + "di" ; + Imper PlP1 => chie_ + "diamo" ; + Imper PlP2 => chie_ + "dete" ; + Ger => chie_ + "dendo" ; + Part PresP Masc Sg => chie_ + "dente" ; + Part PresP Masc Pl => chie_ + "denti" ; + Part PresP Fem Sg => chie_ + "dente" ; + Part PresP Fem Pl => chie_ + "denti" ; + Part PassP Masc Sg => chie_ + "sto" ; + Part PassP Masc Pl => chie_ + "sti" ; + Part PassP Fem Sg => chie_ + "sta" ; + Part PassP Fem Pl => chie_ + "ste" + } + } ; + +oper chiudere_30 : Str -> Verbo = \chiudere -> + let chiu_ = Predef.tk 4 chiudere in + {s = table { + Inf => chiu_ + "dere" ; + InfClit => chiu_ + "der" ; + Indi Pres Sg P1 => chiu_ + "do" ; + Indi Pres Sg P2 => chiu_ + "di" ; + Indi Pres Sg P3 => chiu_ + "de" ; + Indi Pres Pl P1 => chiu_ + "diamo" ; + Indi Pres Pl P2 => chiu_ + "dete" ; + Indi Pres Pl P3 => chiu_ + "dono" ; + Indi Imperf Sg P1 => chiu_ + "devo" ; + Indi Imperf Sg P2 => chiu_ + "devi" ; + Indi Imperf Sg P3 => chiu_ + "deva" ; + Indi Imperf Pl P1 => chiu_ + "devamo" ; + Indi Imperf Pl P2 => chiu_ + "devate" ; + Indi Imperf Pl P3 => chiu_ + "devano" ; + Pass Sg P1 => chiu_ + "si" ; + Pass Sg P2 => chiu_ + "desti" ; + Pass Sg P3 => chiu_ + "se" ; + Pass Pl P1 => chiu_ + "demmo" ; + Pass Pl P2 => chiu_ + "deste" ; + Pass Pl P3 => chiu_ + "sero" ; + Fut Sg P1 => chiu_ + "derò" ; + Fut Sg P2 => chiu_ + "derai" ; + Fut Sg P3 => chiu_ + "derà" ; + Fut Pl P1 => chiu_ + "deremo" ; + Fut Pl P2 => chiu_ + "derete" ; + Fut Pl P3 => chiu_ + "deranno" ; + Cong Pres Sg P1 => chiu_ + "da" ; + Cong Pres Sg P2 => chiu_ + "da" ; + Cong Pres Sg P3 => chiu_ + "da" ; + Cong Pres Pl P1 => chiu_ + "diamo" ; + Cong Pres Pl P2 => chiu_ + "diate" ; + Cong Pres Pl P3 => chiu_ + "dano" ; + Cong Imperf Sg P1 => chiu_ + "dessi" ; + Cong Imperf Sg P2 => chiu_ + "dessi" ; + Cong Imperf Sg P3 => chiu_ + "desse" ; + Cong Imperf Pl P1 => chiu_ + "dessimo" ; + Cong Imperf Pl P2 => chiu_ + "deste" ; + Cong Imperf Pl P3 => chiu_ + "dessero" ; + Cond Sg P1 => chiu_ + "derei" ; + Cond Sg P2 => chiu_ + "deresti" ; + Cond Sg P3 => chiu_ + "derebbe" ; + Cond Pl P1 => chiu_ + "deremmo" ; + Cond Pl P2 => chiu_ + "dereste" ; + Cond Pl P3 => chiu_ + "derebbero" ; + Imper SgP2 => chiu_ + "di" ; + Imper PlP1 => chiu_ + "diamo" ; + Imper PlP2 => chiu_ + "dete" ; + Ger => chiu_ + "dendo" ; + Part PresP Masc Sg => chiu_ + "dente" ; + Part PresP Masc Pl => chiu_ + "denti" ; + Part PresP Fem Sg => chiu_ + "dente" ; + Part PresP Fem Pl => chiu_ + "denti" ; + Part PassP Masc Sg => chiu_ + "so" ; + Part PassP Masc Pl => chiu_ + "si" ; + Part PassP Fem Sg => chiu_ + "sa" ; + Part PassP Fem Pl => chiu_ + "se" + } + } ; + +oper cingere_31 : Str -> Verbo = \cingere -> + let cin_ = Predef.tk 4 cingere in + {s = table { + Inf => cin_ + "gere" ; + InfClit => cin_ + "ger" ; + Indi Pres Sg P1 => cin_ + "go" ; + Indi Pres Sg P2 => cin_ + "gi" ; + Indi Pres Sg P3 => cin_ + "ge" ; + Indi Pres Pl P1 => cin_ + "giamo" ; + Indi Pres Pl P2 => cin_ + "gete" ; + Indi Pres Pl P3 => cin_ + "gono" ; + Indi Imperf Sg P1 => cin_ + "gevo" ; + Indi Imperf Sg P2 => cin_ + "gevi" ; + Indi Imperf Sg P3 => cin_ + "geva" ; + Indi Imperf Pl P1 => cin_ + "gevamo" ; + Indi Imperf Pl P2 => cin_ + "gevate" ; + Indi Imperf Pl P3 => cin_ + "gevano" ; + Pass Sg P1 => cin_ + "si" ; + Pass Sg P2 => cin_ + "gesti" ; + Pass Sg P3 => cin_ + "se" ; + Pass Pl P1 => cin_ + "gemmo" ; + Pass Pl P2 => cin_ + "geste" ; + Pass Pl P3 => cin_ + "sero" ; + Fut Sg P1 => cin_ + "gerò" ; + Fut Sg P2 => cin_ + "gerai" ; + Fut Sg P3 => cin_ + "gerà" ; + Fut Pl P1 => cin_ + "geremo" ; + Fut Pl P2 => cin_ + "gerete" ; + Fut Pl P3 => cin_ + "geranno" ; + Cong Pres Sg P1 => cin_ + "ga" ; + Cong Pres Sg P2 => cin_ + "ga" ; + Cong Pres Sg P3 => cin_ + "ga" ; + Cong Pres Pl P1 => cin_ + "giamo" ; + Cong Pres Pl P2 => cin_ + "giate" ; + Cong Pres Pl P3 => cin_ + "gano" ; + Cong Imperf Sg P1 => cin_ + "gessi" ; + Cong Imperf Sg P2 => cin_ + "gessi" ; + Cong Imperf Sg P3 => cin_ + "gesse" ; + Cong Imperf Pl P1 => cin_ + "gessimo" ; + Cong Imperf Pl P2 => cin_ + "geste" ; + Cong Imperf Pl P3 => cin_ + "gessero" ; + Cond Sg P1 => cin_ + "gerei" ; + Cond Sg P2 => cin_ + "geresti" ; + Cond Sg P3 => cin_ + "gerebbe" ; + Cond Pl P1 => cin_ + "geremmo" ; + Cond Pl P2 => cin_ + "gereste" ; + Cond Pl P3 => cin_ + "gerebbero" ; + Imper SgP2 => cin_ + "gi" ; + Imper PlP1 => cin_ + "giamo" ; + Imper PlP2 => cin_ + "gete" ; + Ger => cin_ + "gendo" ; + Part PresP Masc Sg => cin_ + "gente" ; + Part PresP Masc Pl => cin_ + "genti" ; + Part PresP Fem Sg => cin_ + "gente" ; + Part PresP Fem Pl => cin_ + "genti" ; + Part PassP Masc Sg => cin_ + "to" ; + Part PassP Masc Pl => cin_ + "ti" ; + Part PassP Fem Sg => cin_ + "ta" ; + Part PassP Fem Pl => cin_ + "te" + } + } ; + +oper cogliere_32 : Str -> Verbo = \cogliere -> + let co_ = Predef.tk 6 cogliere in + {s = table { + Inf => co_ + "gliere" ; + InfClit => co_ + "glier" ; + Indi Pres Sg P1 => co_ + "lgo" ; + Indi Pres Sg P2 => co_ + "gli" ; + Indi Pres Sg P3 => co_ + "glie" ; + Indi Pres Pl P1 => co_ + "gliamo" ; + Indi Pres Pl P2 => co_ + "gliete" ; + Indi Pres Pl P3 => co_ + "lgono" ; + Indi Imperf Sg P1 => co_ + "glievo" ; + Indi Imperf Sg P2 => co_ + "glievi" ; + Indi Imperf Sg P3 => co_ + "glieva" ; + Indi Imperf Pl P1 => co_ + "glievamo" ; + Indi Imperf Pl P2 => co_ + "glievate" ; + Indi Imperf Pl P3 => co_ + "glievano" ; + Pass Sg P1 => co_ + "lsi" ; + Pass Sg P2 => co_ + "gliesti" ; + Pass Sg P3 => co_ + "lse" ; + Pass Pl P1 => co_ + "gliemmo" ; + Pass Pl P2 => co_ + "glieste" ; + Pass Pl P3 => co_ + "lsero" ; + Fut Sg P1 => co_ + "glierò" ; + Fut Sg P2 => co_ + "glierai" ; + Fut Sg P3 => co_ + "glierà" ; + Fut Pl P1 => co_ + "glieremo" ; + Fut Pl P2 => co_ + "glierete" ; + Fut Pl P3 => co_ + "glieranno" ; + Cong Pres Sg P1 => co_ + "lga" ; + Cong Pres Sg P2 => co_ + "lga" ; + Cong Pres Sg P3 => co_ + "lga" ; + Cong Pres Pl P1 => co_ + "gliamo" ; + Cong Pres Pl P2 => co_ + "gliate" ; + Cong Pres Pl P3 => co_ + "lgano" ; + Cong Imperf Sg P1 => co_ + "gliessi" ; + Cong Imperf Sg P2 => co_ + "gliessi" ; + Cong Imperf Sg P3 => co_ + "gliesse" ; + Cong Imperf Pl P1 => co_ + "gliessimo" ; + Cong Imperf Pl P2 => co_ + "glieste" ; + Cong Imperf Pl P3 => co_ + "gliessero" ; + Cond Sg P1 => co_ + "glierei" ; + Cond Sg P2 => co_ + "glieresti" ; + Cond Sg P3 => co_ + "glierebbe" ; + Cond Pl P1 => co_ + "glieremmo" ; + Cond Pl P2 => co_ + "gliereste" ; + Cond Pl P3 => co_ + "glierebbero" ; + Imper SgP2 => co_ + "gli" ; + Imper PlP1 => co_ + "gliamo" ; + Imper PlP2 => co_ + "gliete" ; + Ger => co_ + "gliendo" ; + Part PresP Masc Sg => co_ + "gliente" ; + Part PresP Masc Pl => co_ + "glienti" ; + Part PresP Fem Sg => co_ + "gliente" ; + Part PresP Fem Pl => co_ + "glienti" ; + Part PassP Masc Sg => co_ + "lto" ; + Part PassP Masc Pl => co_ + "lti" ; + Part PassP Fem Sg => co_ + "lta" ; + Part PassP Fem Pl => co_ + "lte" + } + } ; + +oper compiere_33 : Str -> Verbo = \compiere -> + let compi_ = Predef.tk 3 compiere in + {s = table { + Inf => compi_ + "ere" ; + InfClit => compi_ + "er" ; + Indi Pres Sg P1 => compi_ + "o" ; + Indi Pres Sg P2 => compi_ + "" ; + Indi Pres Sg P3 => compi_ + "e" ; + Indi Pres Pl P1 => compi_ + "amo" ; + Indi Pres Pl P2 => compi_ + "te" ; + Indi Pres Pl P3 => compi_ + "ono" ; + Indi Imperf Sg P1 => compi_ + "evo" ; + Indi Imperf Sg P2 => compi_ + "evi" ; + Indi Imperf Sg P3 => compi_ + "eva" ; + Indi Imperf Pl P1 => compi_ + "evamo" ; + Indi Imperf Pl P2 => compi_ + "evate" ; + Indi Imperf Pl P3 => compi_ + "evano" ; + Pass Sg P1 => compi_ + "ei" ; + Pass Sg P2 => compi_ + "esti" ; + Pass Sg P3 => compi_ + "é" ; + Pass Pl P1 => compi_ + "emmo" ; + Pass Pl P2 => compi_ + "este" ; + Pass Pl P3 => compi_ + "erono" ; + Fut Sg P1 => compi_ + "rò" ; + Fut Sg P2 => compi_ + "rai" ; + Fut Sg P3 => compi_ + "rà" ; + Fut Pl P1 => compi_ + "remo" ; + Fut Pl P2 => compi_ + "rete" ; + Fut Pl P3 => compi_ + "ranno" ; + Cong Pres Sg P1 => compi_ + "a" ; + Cong Pres Sg P2 => compi_ + "a" ; + Cong Pres Sg P3 => compi_ + "a" ; + Cong Pres Pl P1 => compi_ + "amo" ; + Cong Pres Pl P2 => compi_ + "ate" ; + Cong Pres Pl P3 => compi_ + "ano" ; + Cong Imperf Sg P1 => compi_ + "essi" ; + Cong Imperf Sg P2 => compi_ + "essi" ; + Cong Imperf Sg P3 => compi_ + "esse" ; + Cong Imperf Pl P1 => compi_ + "essimo" ; + Cong Imperf Pl P2 => compi_ + "este" ; + Cong Imperf Pl P3 => compi_ + "essero" ; + Cond Sg P1 => compi_ + "rei" ; + Cond Sg P2 => compi_ + "resti" ; + Cond Sg P3 => compi_ + "rebbe" ; + Cond Pl P1 => compi_ + "remmo" ; + Cond Pl P2 => compi_ + "reste" ; + Cond Pl P3 => compi_ + "rebbero" ; + Imper SgP2 => compi_ + "" ; + Imper PlP1 => compi_ + "amo" ; + Imper PlP2 => compi_ + "ete" ; + Ger => compi_ + "endo" ; + Part PresP Masc Sg => compi_ + "ente" ; + Part PresP Masc Pl => compi_ + "enti" ; + Part PresP Fem Sg => compi_ + "ente" ; + Part PresP Fem Pl => compi_ + "enti" ; + Part PassP Masc Sg => compi_ + "uto" ; + Part PassP Masc Pl => compi_ + "uti" ; + Part PassP Fem Sg => compi_ + "uta" ; + Part PassP Fem Pl => compi_ + "ute" + } + } ; + +oper compire_33b : Str -> Verbo = \cire -> + let c_ = Predef.tk 3 cire in + {s = table { + Inf => c_ + "ire" ; + InfClit => c_ + "ir" ; + Indi Pres Sg P1 => c_ + "isco" ; + Indi Pres Sg P2 => c_ + "isci" ; + Indi Pres Sg P3 => c_ + "isce" ; + Indi Pres Pl P1 => c_ + "iamo" ; + Indi Pres Pl P2 => c_ + "ite" ; + Indi Pres Pl P3 => c_ + "iscono" ; + Indi Imperf Sg P1 => c_ + "ivo" ; + Indi Imperf Sg P2 => c_ + "ivi" ; + Indi Imperf Sg P3 => c_ + "iva" ; + Indi Imperf Pl P1 => c_ + "ivamo" ; + Indi Imperf Pl P2 => c_ + "ivate" ; + Indi Imperf Pl P3 => c_ + "ivano" ; + Pass Sg P1 => c_ + "ii" ; + Pass Sg P2 => c_ + "isti" ; + Pass Sg P3 => c_ + "ì" ; + Pass Pl P1 => c_ + "immo" ; + Pass Pl P2 => c_ + "iste" ; + Pass Pl P3 => c_ + "irono" ; + Fut Sg P1 => c_ + "irò" ; + Fut Sg P2 => c_ + "irai" ; + Fut Sg P3 => c_ + "irà" ; + Fut Pl P1 => c_ + "iremo" ; + Fut Pl P2 => c_ + "irete" ; + Fut Pl P3 => c_ + "iranno" ; + Cong Pres Sg P1 => c_ + "isca" ; + Cong Pres Sg P2 => c_ + "isca" ; + Cong Pres Sg P3 => c_ + "isca" ; + Cong Pres Pl P1 => c_ + "iamo" ; + Cong Pres Pl P2 => c_ + "iate" ; + Cong Pres Pl P3 => c_ + "iscano" ; + Cong Imperf Sg P1 => c_ + "issi" ; + Cong Imperf Sg P2 => c_ + "issi" ; + Cong Imperf Sg P3 => c_ + "isse" ; + Cong Imperf Pl P1 => c_ + "issimo" ; + Cong Imperf Pl P2 => c_ + "iste" ; + Cong Imperf Pl P3 => c_ + "issero" ; + Cond Sg P1 => c_ + "irei" ; + Cond Sg P2 => c_ + "iresti" ; + Cond Sg P3 => c_ + "irebbe" ; + Cond Pl P1 => c_ + "iremmo" ; + Cond Pl P2 => c_ + "ireste" ; + Cond Pl P3 => c_ + "irebbero" ; + Imper SgP2 => c_ + "isci" ; + Imper PlP1 => c_ + "iamo" ; + Imper PlP2 => c_ + "ite" ; + Ger => c_ + "ompiendo" ; + Part PresP Masc Sg => c_ + "ompiente" ; + Part PresP Masc Pl => c_ + "ompienti" ; + Part PresP Fem Sg => c_ + "ompiente" ; + Part PresP Fem Pl => c_ + "ompienti" ; + Part PassP Masc Sg => c_ + "ito" ; + Part PassP Masc Pl => c_ + "iti" ; + Part PassP Fem Sg => c_ + "ita" ; + Part PassP Fem Pl => c_ + "ite" + } + } ; + +oper comprimere_34 : Str -> Verbo = \comprimere -> + let compr_ = Predef.tk 5 comprimere in + {s = table { + Inf => compr_ + "imere" ; + InfClit => compr_ + "imer" ; + Indi Pres Sg P1 => compr_ + "imo" ; + Indi Pres Sg P2 => compr_ + "imi" ; + Indi Pres Sg P3 => compr_ + "ime" ; + Indi Pres Pl P1 => compr_ + "imiamo" ; + Indi Pres Pl P2 => compr_ + "imete" ; + Indi Pres Pl P3 => compr_ + "imono" ; + Indi Imperf Sg P1 => compr_ + "imevo" ; + Indi Imperf Sg P2 => compr_ + "imevi" ; + Indi Imperf Sg P3 => compr_ + "imeva" ; + Indi Imperf Pl P1 => compr_ + "imevamo" ; + Indi Imperf Pl P2 => compr_ + "imevate" ; + Indi Imperf Pl P3 => compr_ + "imevano" ; + Pass Sg P1 => compr_ + "essi" ; + Pass Sg P2 => compr_ + "imesti" ; + Pass Sg P3 => compr_ + "esse" ; + Pass Pl P1 => compr_ + "imemmo" ; + Pass Pl P2 => compr_ + "imeste" ; + Pass Pl P3 => compr_ + "essero" ; + Fut Sg P1 => compr_ + "imerò" ; + Fut Sg P2 => compr_ + "imerai" ; + Fut Sg P3 => compr_ + "imerà" ; + Fut Pl P1 => compr_ + "imeremo" ; + Fut Pl P2 => compr_ + "imerete" ; + Fut Pl P3 => compr_ + "imeranno" ; + Cong Pres Sg P1 => compr_ + "ima" ; + Cong Pres Sg P2 => compr_ + "ima" ; + Cong Pres Sg P3 => compr_ + "ima" ; + Cong Pres Pl P1 => compr_ + "imiamo" ; + Cong Pres Pl P2 => compr_ + "imiate" ; + Cong Pres Pl P3 => compr_ + "imano" ; + Cong Imperf Sg P1 => compr_ + "imessi" ; + Cong Imperf Sg P2 => compr_ + "imessi" ; + Cong Imperf Sg P3 => compr_ + "imesse" ; + Cong Imperf Pl P1 => compr_ + "imessimo" ; + Cong Imperf Pl P2 => compr_ + "imeste" ; + Cong Imperf Pl P3 => compr_ + "imessero" ; + Cond Sg P1 => compr_ + "imerei" ; + Cond Sg P2 => compr_ + "imeresti" ; + Cond Sg P3 => compr_ + "imerebbe" ; + Cond Pl P1 => compr_ + "imeremmo" ; + Cond Pl P2 => compr_ + "imereste" ; + Cond Pl P3 => compr_ + "imerebbero" ; + Imper SgP2 => compr_ + "imi" ; + Imper PlP1 => compr_ + "imiamo" ; + Imper PlP2 => compr_ + "imete" ; + Ger => compr_ + "imendo" ; + Part PresP Masc Sg => compr_ + "imente" ; + Part PresP Masc Pl => compr_ + "imenti" ; + Part PresP Fem Sg => compr_ + "imente" ; + Part PresP Fem Pl => compr_ + "imenti" ; + Part PassP Masc Sg => compr_ + "esso" ; + Part PassP Masc Pl => compr_ + "essi" ; + Part PassP Fem Sg => compr_ + "essa" ; + Part PassP Fem Pl => compr_ + "esse" + } + } ; + +oper concedere_35 : Str -> Verbo = \concedere -> + let conce_ = Predef.tk 4 concedere in + {s = table { + Inf => conce_ + "dere" ; + InfClit => conce_ + "der" ; + Indi Pres Sg P1 => conce_ + "do" ; + Indi Pres Sg P2 => conce_ + "di" ; + Indi Pres Sg P3 => conce_ + "de" ; + Indi Pres Pl P1 => conce_ + "diamo" ; + Indi Pres Pl P2 => conce_ + "dete" ; + Indi Pres Pl P3 => conce_ + "dono" ; + Indi Imperf Sg P1 => conce_ + "devo" ; + Indi Imperf Sg P2 => conce_ + "devi" ; + Indi Imperf Sg P3 => conce_ + "deva" ; + Indi Imperf Pl P1 => conce_ + "devamo" ; + Indi Imperf Pl P2 => conce_ + "devate" ; + Indi Imperf Pl P3 => conce_ + "devano" ; + Pass Sg P1 => conce_ + "ssi" ; + Pass Sg P2 => conce_ + "desti" ; + Pass Sg P3 => conce_ + "sse" ; + Pass Pl P1 => conce_ + "demmo" ; + Pass Pl P2 => conce_ + "deste" ; + Pass Pl P3 => conce_ + "ssero" ; + Fut Sg P1 => conce_ + "derò" ; + Fut Sg P2 => conce_ + "derai" ; + Fut Sg P3 => conce_ + "derà" ; + Fut Pl P1 => conce_ + "deremo" ; + Fut Pl P2 => conce_ + "derete" ; + Fut Pl P3 => conce_ + "deranno" ; + Cong Pres Sg P1 => conce_ + "da" ; + Cong Pres Sg P2 => conce_ + "da" ; + Cong Pres Sg P3 => conce_ + "da" ; + Cong Pres Pl P1 => conce_ + "diamo" ; + Cong Pres Pl P2 => conce_ + "diate" ; + Cong Pres Pl P3 => conce_ + "dano" ; + Cong Imperf Sg P1 => conce_ + "dessi" ; + Cong Imperf Sg P2 => conce_ + "dessi" ; + Cong Imperf Sg P3 => conce_ + "desse" ; + Cong Imperf Pl P1 => conce_ + "dessimo" ; + Cong Imperf Pl P2 => conce_ + "deste" ; + Cong Imperf Pl P3 => conce_ + "dessero" ; + Cond Sg P1 => conce_ + "derei" ; + Cond Sg P2 => conce_ + "deresti" ; + Cond Sg P3 => conce_ + "derebbe" ; + Cond Pl P1 => conce_ + "deremmo" ; + Cond Pl P2 => conce_ + "dereste" ; + Cond Pl P3 => conce_ + "derebbero" ; + Imper SgP2 => conce_ + "di" ; + Imper PlP1 => conce_ + "diamo" ; + Imper PlP2 => conce_ + "dete" ; + Ger => conce_ + "dendo" ; + Part PresP Masc Sg => conce_ + "dente" ; + Part PresP Masc Pl => conce_ + "denti" ; + Part PresP Fem Sg => conce_ + "dente" ; + Part PresP Fem Pl => conce_ + "denti" ; + Part PassP Masc Sg => conce_ + "sso" ; + Part PassP Masc Pl => conce_ + "ssi" ; + Part PassP Fem Sg => conce_ + "ssa" ; + Part PassP Fem Pl => conce_ + "sse" + } + } ; + +oper condurre_36 : Str -> Verbo = \condurre -> + let cond_ = Predef.tk 4 condurre in + {s = table { + Inf => cond_ + "urre" ; + InfClit => cond_ + "ur" ; + Indi Pres Sg P1 => cond_ + "uco" ; + Indi Pres Sg P2 => cond_ + "uci" ; + Indi Pres Sg P3 => cond_ + "uce" ; + Indi Pres Pl P1 => cond_ + "uciamo" ; + Indi Pres Pl P2 => cond_ + "ucete" ; + Indi Pres Pl P3 => cond_ + "ucono" ; + Indi Imperf Sg P1 => cond_ + "ucevo" ; + Indi Imperf Sg P2 => cond_ + "ucevi" ; + Indi Imperf Sg P3 => cond_ + "uceva" ; + Indi Imperf Pl P1 => cond_ + "ucevamo" ; + Indi Imperf Pl P2 => cond_ + "ucevate" ; + Indi Imperf Pl P3 => cond_ + "ucevano" ; + Pass Sg P1 => cond_ + "ussi" ; + Pass Sg P2 => cond_ + "ucesti" ; + Pass Sg P3 => cond_ + "usse" ; + Pass Pl P1 => cond_ + "ucemmo" ; + Pass Pl P2 => cond_ + "uceste" ; + Pass Pl P3 => cond_ + "ussero" ; + Fut Sg P1 => cond_ + "urrò" ; + Fut Sg P2 => cond_ + "urrai" ; + Fut Sg P3 => cond_ + "urrà" ; + Fut Pl P1 => cond_ + "urremo" ; + Fut Pl P2 => cond_ + "urrete" ; + Fut Pl P3 => cond_ + "urranno" ; + Cong Pres Sg P1 => cond_ + "uca" ; + Cong Pres Sg P2 => cond_ + "uca" ; + Cong Pres Sg P3 => cond_ + "uca" ; + Cong Pres Pl P1 => cond_ + "uciamo" ; + Cong Pres Pl P2 => cond_ + "uciate" ; + Cong Pres Pl P3 => cond_ + "ucano" ; + Cong Imperf Sg P1 => cond_ + "ucessi" ; + Cong Imperf Sg P2 => cond_ + "ucessi" ; + Cong Imperf Sg P3 => cond_ + "ucesse" ; + Cong Imperf Pl P1 => cond_ + "ucessimo" ; + Cong Imperf Pl P2 => cond_ + "uceste" ; + Cong Imperf Pl P3 => cond_ + "ucessero" ; + Cond Sg P1 => cond_ + "urrei" ; + Cond Sg P2 => cond_ + "urresti" ; + Cond Sg P3 => cond_ + "urrebbe" ; + Cond Pl P1 => cond_ + "urremmo" ; + Cond Pl P2 => cond_ + "urreste" ; + Cond Pl P3 => cond_ + "urrebbero" ; + Imper SgP2 => cond_ + "uci" ; + Imper PlP1 => cond_ + "uciamo" ; + Imper PlP2 => cond_ + "ucete" ; + Ger => cond_ + "ucendo" ; + Part PresP Masc Sg => cond_ + "ucente" ; + Part PresP Masc Pl => cond_ + "ucenti" ; + Part PresP Fem Sg => cond_ + "ucente" ; + Part PresP Fem Pl => cond_ + "ucenti" ; + Part PassP Masc Sg => cond_ + "otto" ; + Part PassP Masc Pl => cond_ + "otti" ; + Part PassP Fem Sg => cond_ + "otta" ; + Part PassP Fem Pl => cond_ + "otte" + } + } ; + +oper conoscere_37 : Str -> Verbo = \conoscere -> + let cono_ = Predef.tk 5 conoscere in + {s = table { + Inf => cono_ + "scere" ; + InfClit => cono_ + "scer" ; + Indi Pres Sg P1 => cono_ + "sco" ; + Indi Pres Sg P2 => cono_ + "sci" ; + Indi Pres Sg P3 => cono_ + "sce" ; + Indi Pres Pl P1 => cono_ + "sciamo" ; + Indi Pres Pl P2 => cono_ + "scete" ; + Indi Pres Pl P3 => cono_ + "scono" ; + Indi Imperf Sg P1 => cono_ + "scevo" ; + Indi Imperf Sg P2 => cono_ + "scevi" ; + Indi Imperf Sg P3 => cono_ + "sceva" ; + Indi Imperf Pl P1 => cono_ + "scevamo" ; + Indi Imperf Pl P2 => cono_ + "scevate" ; + Indi Imperf Pl P3 => cono_ + "scevano" ; + Pass Sg P1 => cono_ + "bbi" ; + Pass Sg P2 => cono_ + "scesti" ; + Pass Sg P3 => cono_ + "bbe" ; + Pass Pl P1 => cono_ + "scemmo" ; + Pass Pl P2 => cono_ + "sceste" ; + Pass Pl P3 => cono_ + "bbero" ; + Fut Sg P1 => cono_ + "scerò" ; + Fut Sg P2 => cono_ + "scerai" ; + Fut Sg P3 => cono_ + "scerà" ; + Fut Pl P1 => cono_ + "sceremo" ; + Fut Pl P2 => cono_ + "scerete" ; + Fut Pl P3 => cono_ + "sceranno" ; + Cong Pres Sg P1 => cono_ + "sca" ; + Cong Pres Sg P2 => cono_ + "sca" ; + Cong Pres Sg P3 => cono_ + "sca" ; + Cong Pres Pl P1 => cono_ + "sciamo" ; + Cong Pres Pl P2 => cono_ + "sciate" ; + Cong Pres Pl P3 => cono_ + "scano" ; + Cong Imperf Sg P1 => cono_ + "scessi" ; + Cong Imperf Sg P2 => cono_ + "scessi" ; + Cong Imperf Sg P3 => cono_ + "scesse" ; + Cong Imperf Pl P1 => cono_ + "scessimo" ; + Cong Imperf Pl P2 => cono_ + "sceste" ; + Cong Imperf Pl P3 => cono_ + "scessero" ; + Cond Sg P1 => cono_ + "scerei" ; + Cond Sg P2 => cono_ + "sceresti" ; + Cond Sg P3 => cono_ + "scerebbe" ; + Cond Pl P1 => cono_ + "sceremmo" ; + Cond Pl P2 => cono_ + "scereste" ; + Cond Pl P3 => cono_ + "scerebbero" ; + Imper SgP2 => cono_ + "sci" ; + Imper PlP1 => cono_ + "sciamo" ; + Imper PlP2 => cono_ + "scete" ; + Ger => cono_ + "scendo" ; + Part PresP Masc Sg => cono_ + "scente" ; + Part PresP Masc Pl => cono_ + "scenti" ; + Part PresP Fem Sg => cono_ + "scente" ; + Part PresP Fem Pl => cono_ + "scenti" ; + Part PassP Masc Sg => cono_ + "sciuto" ; + Part PassP Masc Pl => cono_ + "sciuti" ; + Part PassP Fem Sg => cono_ + "sciuta" ; + Part PassP Fem Pl => cono_ + "sciute" + } + } ; + +oper correre_38 : Str -> Verbo = \correre -> + let cor_ = Predef.tk 4 correre in + {s = table { + Inf => cor_ + "rere" ; + InfClit => cor_ + "rer" ; + Indi Pres Sg P1 => cor_ + "ro" ; + Indi Pres Sg P2 => cor_ + "ri" ; + Indi Pres Sg P3 => cor_ + "re" ; + Indi Pres Pl P1 => cor_ + "riamo" ; + Indi Pres Pl P2 => cor_ + "rete" ; + Indi Pres Pl P3 => cor_ + "rono" ; + Indi Imperf Sg P1 => cor_ + "revo" ; + Indi Imperf Sg P2 => cor_ + "revi" ; + Indi Imperf Sg P3 => cor_ + "reva" ; + Indi Imperf Pl P1 => cor_ + "revamo" ; + Indi Imperf Pl P2 => cor_ + "revate" ; + Indi Imperf Pl P3 => cor_ + "revano" ; + Pass Sg P1 => cor_ + "si" ; + Pass Sg P2 => cor_ + "resti" ; + Pass Sg P3 => cor_ + "se" ; + Pass Pl P1 => cor_ + "remmo" ; + Pass Pl P2 => cor_ + "reste" ; + Pass Pl P3 => cor_ + "sero" ; + Fut Sg P1 => cor_ + "rerò" ; + Fut Sg P2 => cor_ + "rerai" ; + Fut Sg P3 => cor_ + "rerà" ; + Fut Pl P1 => cor_ + "reremo" ; + Fut Pl P2 => cor_ + "rerete" ; + Fut Pl P3 => cor_ + "reranno" ; + Cong Pres Sg P1 => cor_ + "ra" ; + Cong Pres Sg P2 => cor_ + "ra" ; + Cong Pres Sg P3 => cor_ + "ra" ; + Cong Pres Pl P1 => cor_ + "riamo" ; + Cong Pres Pl P2 => cor_ + "riate" ; + Cong Pres Pl P3 => cor_ + "rano" ; + Cong Imperf Sg P1 => cor_ + "ressi" ; + Cong Imperf Sg P2 => cor_ + "ressi" ; + Cong Imperf Sg P3 => cor_ + "resse" ; + Cong Imperf Pl P1 => cor_ + "ressimo" ; + Cong Imperf Pl P2 => cor_ + "reste" ; + Cong Imperf Pl P3 => cor_ + "ressero" ; + Cond Sg P1 => cor_ + "rerei" ; + Cond Sg P2 => cor_ + "reresti" ; + Cond Sg P3 => cor_ + "rerebbe" ; + Cond Pl P1 => cor_ + "reremmo" ; + Cond Pl P2 => cor_ + "rereste" ; + Cond Pl P3 => cor_ + "rerebbero" ; + Imper SgP2 => cor_ + "ri" ; + Imper PlP1 => cor_ + "riamo" ; + Imper PlP2 => cor_ + "rete" ; + Ger => cor_ + "rendo" ; + Part PresP Masc Sg => cor_ + "rente" ; + Part PresP Masc Pl => cor_ + "renti" ; + Part PresP Fem Sg => cor_ + "rente" ; + Part PresP Fem Pl => cor_ + "renti" ; + Part PassP Masc Sg => cor_ + "so" ; + Part PassP Masc Pl => cor_ + "si" ; + Part PassP Fem Sg => cor_ + "sa" ; + Part PassP Fem Pl => cor_ + "se" + } + } ; + +oper crescere_39 : Str -> Verbo = \crescere -> + let cre_ = Predef.tk 5 crescere in + {s = table { + Inf => cre_ + "scere" ; + InfClit => cre_ + "scer" ; + Indi Pres Sg P1 => cre_ + "sco" ; + Indi Pres Sg P2 => cre_ + "sci" ; + Indi Pres Sg P3 => cre_ + "sce" ; + Indi Pres Pl P1 => cre_ + "sciamo" ; + Indi Pres Pl P2 => cre_ + "scete" ; + Indi Pres Pl P3 => cre_ + "scono" ; + Indi Imperf Sg P1 => cre_ + "scevo" ; + Indi Imperf Sg P2 => cre_ + "scevi" ; + Indi Imperf Sg P3 => cre_ + "sceva" ; + Indi Imperf Pl P1 => cre_ + "scevamo" ; + Indi Imperf Pl P2 => cre_ + "scevate" ; + Indi Imperf Pl P3 => cre_ + "scevano" ; + Pass Sg P1 => cre_ + "bbi" ; + Pass Sg P2 => cre_ + "scesti" ; + Pass Sg P3 => cre_ + "bbe" ; + Pass Pl P1 => cre_ + "scemmo" ; + Pass Pl P2 => cre_ + "sceste" ; + Pass Pl P3 => cre_ + "bbero" ; + Fut Sg P1 => cre_ + "scerò" ; + Fut Sg P2 => cre_ + "scerai" ; + Fut Sg P3 => cre_ + "scerà" ; + Fut Pl P1 => cre_ + "sceremo" ; + Fut Pl P2 => cre_ + "scerete" ; + Fut Pl P3 => cre_ + "sceranno" ; + Cong Pres Sg P1 => cre_ + "sca" ; + Cong Pres Sg P2 => cre_ + "sca" ; + Cong Pres Sg P3 => cre_ + "sca" ; + Cong Pres Pl P1 => cre_ + "sciamo" ; + Cong Pres Pl P2 => cre_ + "sciate" ; + Cong Pres Pl P3 => cre_ + "scano" ; + Cong Imperf Sg P1 => cre_ + "scessi" ; + Cong Imperf Sg P2 => cre_ + "scessi" ; + Cong Imperf Sg P3 => cre_ + "scesse" ; + Cong Imperf Pl P1 => cre_ + "scessimo" ; + Cong Imperf Pl P2 => cre_ + "sceste" ; + Cong Imperf Pl P3 => cre_ + "scessero" ; + Cond Sg P1 => cre_ + "scerei" ; + Cond Sg P2 => cre_ + "sceresti" ; + Cond Sg P3 => cre_ + "scerebbe" ; + Cond Pl P1 => cre_ + "sceremmo" ; + Cond Pl P2 => cre_ + "scereste" ; + Cond Pl P3 => cre_ + "scerebbero" ; + Imper SgP2 => cre_ + "sci" ; + Imper PlP1 => cre_ + "sciamo" ; + Imper PlP2 => cre_ + "scete" ; + Ger => cre_ + "scendo" ; + Part PresP Masc Sg => cre_ + "scente" ; + Part PresP Masc Pl => cre_ + "scenti" ; + Part PresP Fem Sg => cre_ + "scente" ; + Part PresP Fem Pl => cre_ + "scenti" ; + Part PassP Masc Sg => cre_ + "sciuto" ; + Part PassP Masc Pl => cre_ + "sciuti" ; + Part PassP Fem Sg => cre_ + "sciuta" ; + Part PassP Fem Pl => cre_ + "sciute" + } + } ; + +oper cuocere_40 : Str -> Verbo = \cuocere -> + let c_ = Predef.tk 6 cuocere in + {s = table { + Inf => c_ + "uocere" ; + InfClit => c_ + "uocer" ; + Indi Pres Sg P1 => c_ + "uocio" ; + Indi Pres Sg P2 => c_ + "uoci" ; + Indi Pres Sg P3 => c_ + "uoce" ; + Indi Pres Pl P1 => c_ + "uociamo" ; + Indi Pres Pl P2 => c_ + "uocete" ; + Indi Pres Pl P3 => c_ + "uociono" ; + Indi Imperf Sg P1 => c_ + "uocevo" ; + Indi Imperf Sg P2 => c_ + "uocevi" ; + Indi Imperf Sg P3 => c_ + "uoceva" ; + Indi Imperf Pl P1 => c_ + "uocevamo" ; + Indi Imperf Pl P2 => c_ + "uocevate" ; + Indi Imperf Pl P3 => c_ + "uocevano" ; + Pass Sg P1 => c_ + "ossi" ; + Pass Sg P2 => c_ + "uocesti" ; + Pass Sg P3 => c_ + "osse" ; + Pass Pl P1 => c_ + "uocemmo" ; + Pass Pl P2 => c_ + "uoceste" ; + Pass Pl P3 => c_ + "ossero" ; + Fut Sg P1 => c_ + "uocerò" ; + Fut Sg P2 => c_ + "uocerai" ; + Fut Sg P3 => c_ + "uocerà" ; + Fut Pl P1 => c_ + "uoceremo" ; + Fut Pl P2 => c_ + "uocerete" ; + Fut Pl P3 => c_ + "uoceranno" ; + Cong Pres Sg P1 => c_ + "uocia" ; + Cong Pres Sg P2 => c_ + "uocia" ; + Cong Pres Sg P3 => c_ + "uocia" ; + Cong Pres Pl P1 => c_ + "uociamo" ; + Cong Pres Pl P2 => c_ + "uociate" ; + Cong Pres Pl P3 => c_ + "uociano" ; + Cong Imperf Sg P1 => c_ + "uocessi" ; + Cong Imperf Sg P2 => c_ + "uocessi" ; + Cong Imperf Sg P3 => c_ + "uocesse" ; + Cong Imperf Pl P1 => c_ + "uocessimo" ; + Cong Imperf Pl P2 => c_ + "uoceste" ; + Cong Imperf Pl P3 => c_ + "uocessero" ; + Cond Sg P1 => c_ + "uocerei" ; + Cond Sg P2 => c_ + "uoceresti" ; + Cond Sg P3 => c_ + "uocerebbe" ; + Cond Pl P1 => c_ + "uoceremmo" ; + Cond Pl P2 => c_ + "uocereste" ; + Cond Pl P3 => c_ + "uocerebbero" ; + Imper SgP2 => c_ + "uoci" ; + Imper PlP1 => c_ + "uociamo" ; + Imper PlP2 => c_ + "uocete" ; + Ger => c_ + "uocendo" ; + Part PresP Masc Sg => c_ + "uocente" ; + Part PresP Masc Pl => c_ + "uocenti" ; + Part PresP Fem Sg => c_ + "uocente" ; + Part PresP Fem Pl => c_ + "uocenti" ; + Part PassP Masc Sg => c_ + "otto" ; + Part PassP Masc Pl => c_ + "otti" ; + Part PassP Fem Sg => c_ + "otta" ; + Part PassP Fem Pl => c_ + "otte" + } + } ; + +oper dire_41 : Str -> Verbo = \dire -> + let d_ = Predef.tk 3 dire in + {s = table { + Inf => d_ + "ire" ; + InfClit => d_ + "ir" ; + Indi Pres Sg P1 => d_ + "ico" ; + Indi Pres Sg P2 => d_ + "ici" ; + Indi Pres Sg P3 => d_ + "ice" ; + Indi Pres Pl P1 => d_ + "iciamo" ; + Indi Pres Pl P2 => d_ + "ite" ; + Indi Pres Pl P3 => d_ + "icono" ; + Indi Imperf Sg P1 => d_ + "icevo" ; + Indi Imperf Sg P2 => d_ + "icevi" ; + Indi Imperf Sg P3 => d_ + "iceva" ; + Indi Imperf Pl P1 => d_ + "icevamo" ; + Indi Imperf Pl P2 => d_ + "icevate" ; + Indi Imperf Pl P3 => d_ + "icevano" ; + Pass Sg P1 => d_ + "issi" ; + Pass Sg P2 => d_ + "icesti" ; + Pass Sg P3 => d_ + "isse" ; + Pass Pl P1 => d_ + "icemmo" ; + Pass Pl P2 => d_ + "iceste" ; + Pass Pl P3 => d_ + "issero" ; + Fut Sg P1 => d_ + "irò" ; + Fut Sg P2 => d_ + "irai" ; + Fut Sg P3 => d_ + "irà" ; + Fut Pl P1 => d_ + "iremo" ; + Fut Pl P2 => d_ + "irete" ; + Fut Pl P3 => d_ + "iranno" ; + Cong Pres Sg P1 => d_ + "ica" ; + Cong Pres Sg P2 => d_ + "ica" ; + Cong Pres Sg P3 => d_ + "ica" ; + Cong Pres Pl P1 => d_ + "iciamo" ; + Cong Pres Pl P2 => d_ + "iciate" ; + Cong Pres Pl P3 => d_ + "icano" ; + Cong Imperf Sg P1 => d_ + "icessi" ; + Cong Imperf Sg P2 => d_ + "icessi" ; + Cong Imperf Sg P3 => d_ + "icesse" ; + Cong Imperf Pl P1 => d_ + "icessimo" ; + Cong Imperf Pl P2 => d_ + "iceste" ; + Cong Imperf Pl P3 => d_ + "icessero" ; + Cond Sg P1 => d_ + "irei" ; + Cond Sg P2 => d_ + "iresti" ; + Cond Sg P3 => d_ + "irebbe" ; + Cond Pl P1 => d_ + "iremmo" ; + Cond Pl P2 => d_ + "ireste" ; + Cond Pl P3 => d_ + "irebbero" ; + Imper SgP2 => variants {d_ + "i`" ; d_ + "i"} ; + Imper PlP1 => d_ + "iciamo" ; + Imper PlP2 => d_ + "ite" ; + Ger => d_ + "icendo" ; + Part PresP Masc Sg => d_ + "icente" ; + Part PresP Masc Pl => d_ + "icenti" ; + Part PresP Fem Sg => d_ + "icente" ; + Part PresP Fem Pl => d_ + "icenti" ; + Part PassP Masc Sg => d_ + "etto" ; + Part PassP Masc Pl => d_ + "etti" ; + Part PassP Fem Sg => d_ + "etta" ; + Part PassP Fem Pl => d_ + "ette" + } + } ; + +oper dirigere_42 : Str -> Verbo = \dirigere -> + let dir_ = Predef.tk 5 dirigere in + {s = table { + Inf => dir_ + "igere" ; + InfClit => dir_ + "iger" ; + Indi Pres Sg P1 => dir_ + "igo" ; + Indi Pres Sg P2 => dir_ + "igi" ; + Indi Pres Sg P3 => dir_ + "ige" ; + Indi Pres Pl P1 => dir_ + "igiamo" ; + Indi Pres Pl P2 => dir_ + "igete" ; + Indi Pres Pl P3 => dir_ + "igono" ; + Indi Imperf Sg P1 => dir_ + "igevo" ; + Indi Imperf Sg P2 => dir_ + "igevi" ; + Indi Imperf Sg P3 => dir_ + "igeva" ; + Indi Imperf Pl P1 => dir_ + "igevamo" ; + Indi Imperf Pl P2 => dir_ + "igevate" ; + Indi Imperf Pl P3 => dir_ + "igevano" ; + Pass Sg P1 => dir_ + "essi" ; + Pass Sg P2 => dir_ + "igesti" ; + Pass Sg P3 => dir_ + "esse" ; + Pass Pl P1 => dir_ + "igemmo" ; + Pass Pl P2 => dir_ + "igeste" ; + Pass Pl P3 => dir_ + "essero" ; + Fut Sg P1 => dir_ + "igerò" ; + Fut Sg P2 => dir_ + "igerai" ; + Fut Sg P3 => dir_ + "igerà" ; + Fut Pl P1 => dir_ + "igeremo" ; + Fut Pl P2 => dir_ + "igerete" ; + Fut Pl P3 => dir_ + "igeranno" ; + Cong Pres Sg P1 => dir_ + "iga" ; + Cong Pres Sg P2 => dir_ + "iga" ; + Cong Pres Sg P3 => dir_ + "iga" ; + Cong Pres Pl P1 => dir_ + "igiamo" ; + Cong Pres Pl P2 => dir_ + "igiate" ; + Cong Pres Pl P3 => dir_ + "igano" ; + Cong Imperf Sg P1 => dir_ + "igessi" ; + Cong Imperf Sg P2 => dir_ + "igessi" ; + Cong Imperf Sg P3 => dir_ + "igesse" ; + Cong Imperf Pl P1 => dir_ + "igessimo" ; + Cong Imperf Pl P2 => dir_ + "igeste" ; + Cong Imperf Pl P3 => dir_ + "igessero" ; + Cond Sg P1 => dir_ + "igerei" ; + Cond Sg P2 => dir_ + "igeresti" ; + Cond Sg P3 => dir_ + "igerebbe" ; + Cond Pl P1 => dir_ + "igeremmo" ; + Cond Pl P2 => dir_ + "igereste" ; + Cond Pl P3 => dir_ + "igerebbero" ; + Imper SgP2 => dir_ + "igi" ; + Imper PlP1 => dir_ + "igiamo" ; + Imper PlP2 => dir_ + "igete" ; + Ger => dir_ + "igendo" ; + Part PresP Masc Sg => dir_ + "igente" ; + Part PresP Masc Pl => dir_ + "igenti" ; + Part PresP Fem Sg => dir_ + "igente" ; + Part PresP Fem Pl => dir_ + "igenti" ; + Part PassP Masc Sg => dir_ + "etto" ; + Part PassP Masc Pl => dir_ + "etti" ; + Part PassP Fem Sg => dir_ + "etta" ; + Part PassP Fem Pl => dir_ + "ette" + } + } ; + +oper discutere_43 : Str -> Verbo = \discutere -> + let discu_ = Predef.tk 4 discutere in + {s = table { + Inf => discu_ + "tere" ; + InfClit => discu_ + "ter" ; + Indi Pres Sg P1 => discu_ + "to" ; + Indi Pres Sg P2 => discu_ + "ti" ; + Indi Pres Sg P3 => discu_ + "te" ; + Indi Pres Pl P1 => discu_ + "tiamo" ; + Indi Pres Pl P2 => discu_ + "tete" ; + Indi Pres Pl P3 => discu_ + "tono" ; + Indi Imperf Sg P1 => discu_ + "tevo" ; + Indi Imperf Sg P2 => discu_ + "tevi" ; + Indi Imperf Sg P3 => discu_ + "teva" ; + Indi Imperf Pl P1 => discu_ + "tevamo" ; + Indi Imperf Pl P2 => discu_ + "tevate" ; + Indi Imperf Pl P3 => discu_ + "tevano" ; + Pass Sg P1 => discu_ + "ssi" ; + Pass Sg P2 => discu_ + "testi" ; + Pass Sg P3 => discu_ + "sse" ; + Pass Pl P1 => discu_ + "temmo" ; + Pass Pl P2 => discu_ + "teste" ; + Pass Pl P3 => discu_ + "ssero" ; + Fut Sg P1 => discu_ + "terò" ; + Fut Sg P2 => discu_ + "terai" ; + Fut Sg P3 => discu_ + "terà" ; + Fut Pl P1 => discu_ + "teremo" ; + Fut Pl P2 => discu_ + "terete" ; + Fut Pl P3 => discu_ + "teranno" ; + Cong Pres Sg P1 => discu_ + "ta" ; + Cong Pres Sg P2 => discu_ + "ta" ; + Cong Pres Sg P3 => discu_ + "ta" ; + Cong Pres Pl P1 => discu_ + "tiamo" ; + Cong Pres Pl P2 => discu_ + "tiate" ; + Cong Pres Pl P3 => discu_ + "tano" ; + Cong Imperf Sg P1 => discu_ + "tessi" ; + Cong Imperf Sg P2 => discu_ + "tessi" ; + Cong Imperf Sg P3 => discu_ + "tesse" ; + Cong Imperf Pl P1 => discu_ + "tessimo" ; + Cong Imperf Pl P2 => discu_ + "teste" ; + Cong Imperf Pl P3 => discu_ + "tessero" ; + Cond Sg P1 => discu_ + "terei" ; + Cond Sg P2 => discu_ + "teresti" ; + Cond Sg P3 => discu_ + "terebbe" ; + Cond Pl P1 => discu_ + "teremmo" ; + Cond Pl P2 => discu_ + "tereste" ; + Cond Pl P3 => discu_ + "terebbero" ; + Imper SgP2 => discu_ + "ti" ; + Imper PlP1 => discu_ + "tiamo" ; + Imper PlP2 => discu_ + "tete" ; + Ger => discu_ + "tendo" ; + Part PresP Masc Sg => discu_ + "tente" ; + Part PresP Masc Pl => discu_ + "tenti" ; + Part PresP Fem Sg => discu_ + "tente" ; + Part PresP Fem Pl => discu_ + "tenti" ; + Part PassP Masc Sg => discu_ + "sso" ; + Part PassP Masc Pl => discu_ + "ssi" ; + Part PassP Fem Sg => discu_ + "ssa" ; + Part PassP Fem Pl => discu_ + "sse" + } + } ; + +oper distinguere_44 : Str -> Verbo = \distinguere -> + let distin_ = Predef.tk 5 distinguere in + {s = table { + Inf => distin_ + "guere" ; + InfClit => distin_ + "guer" ; + Indi Pres Sg P1 => distin_ + "guo" ; + Indi Pres Sg P2 => distin_ + "gui" ; + Indi Pres Sg P3 => distin_ + "gue" ; + Indi Pres Pl P1 => distin_ + "guiamo" ; + Indi Pres Pl P2 => distin_ + "guete" ; + Indi Pres Pl P3 => distin_ + "guono" ; + Indi Imperf Sg P1 => distin_ + "guevo" ; + Indi Imperf Sg P2 => distin_ + "guevi" ; + Indi Imperf Sg P3 => distin_ + "gueva" ; + Indi Imperf Pl P1 => distin_ + "guevamo" ; + Indi Imperf Pl P2 => distin_ + "guevate" ; + Indi Imperf Pl P3 => distin_ + "guevano" ; + Pass Sg P1 => distin_ + "si" ; + Pass Sg P2 => distin_ + "guesti" ; + Pass Sg P3 => distin_ + "se" ; + Pass Pl P1 => distin_ + "guemmo" ; + Pass Pl P2 => distin_ + "gueste" ; + Pass Pl P3 => distin_ + "sero" ; + Fut Sg P1 => distin_ + "guerò" ; + Fut Sg P2 => distin_ + "guerai" ; + Fut Sg P3 => distin_ + "guerà" ; + Fut Pl P1 => distin_ + "gueremo" ; + Fut Pl P2 => distin_ + "guerete" ; + Fut Pl P3 => distin_ + "gueranno" ; + Cong Pres Sg P1 => distin_ + "gua" ; + Cong Pres Sg P2 => distin_ + "gua" ; + Cong Pres Sg P3 => distin_ + "gua" ; + Cong Pres Pl P1 => distin_ + "guiamo" ; + Cong Pres Pl P2 => distin_ + "guiate" ; + Cong Pres Pl P3 => distin_ + "guano" ; + Cong Imperf Sg P1 => distin_ + "guessi" ; + Cong Imperf Sg P2 => distin_ + "guessi" ; + Cong Imperf Sg P3 => distin_ + "guesse" ; + Cong Imperf Pl P1 => distin_ + "guessimo" ; + Cong Imperf Pl P2 => distin_ + "gueste" ; + Cong Imperf Pl P3 => distin_ + "guessero" ; + Cond Sg P1 => distin_ + "guerei" ; + Cond Sg P2 => distin_ + "gueresti" ; + Cond Sg P3 => distin_ + "guerebbe" ; + Cond Pl P1 => distin_ + "gueremmo" ; + Cond Pl P2 => distin_ + "guereste" ; + Cond Pl P3 => distin_ + "guerebbero" ; + Imper SgP2 => distin_ + "gui" ; + Imper PlP1 => distin_ + "guiamo" ; + Imper PlP2 => distin_ + "guete" ; + Ger => distin_ + "guendo" ; + Part PresP Masc Sg => distin_ + "guente" ; + Part PresP Masc Pl => distin_ + "guenti" ; + Part PresP Fem Sg => distin_ + "guente" ; + Part PresP Fem Pl => distin_ + "guenti" ; + Part PassP Masc Sg => distin_ + "to" ; + Part PassP Masc Pl => distin_ + "ti" ; + Part PassP Fem Sg => distin_ + "ta" ; + Part PassP Fem Pl => distin_ + "te" + } + } ; + +oper distruggere_45 : Str -> Verbo = \distruggere -> + let distru_ = Predef.tk 5 distruggere in + {s = table { + Inf => distru_ + "ggere" ; + InfClit => distru_ + "gger" ; + Indi Pres Sg P1 => distru_ + "ggo" ; + Indi Pres Sg P2 => distru_ + "ggi" ; + Indi Pres Sg P3 => distru_ + "gge" ; + Indi Pres Pl P1 => distru_ + "ggiamo" ; + Indi Pres Pl P2 => distru_ + "ggete" ; + Indi Pres Pl P3 => distru_ + "ggono" ; + Indi Imperf Sg P1 => distru_ + "ggevo" ; + Indi Imperf Sg P2 => distru_ + "ggevi" ; + Indi Imperf Sg P3 => distru_ + "ggeva" ; + Indi Imperf Pl P1 => distru_ + "ggevamo" ; + Indi Imperf Pl P2 => distru_ + "ggevate" ; + Indi Imperf Pl P3 => distru_ + "ggevano" ; + Pass Sg P1 => distru_ + "ssi" ; + Pass Sg P2 => distru_ + "ggesti" ; + Pass Sg P3 => distru_ + "sse" ; + Pass Pl P1 => distru_ + "ggemmo" ; + Pass Pl P2 => distru_ + "ggeste" ; + Pass Pl P3 => distru_ + "ssero" ; + Fut Sg P1 => distru_ + "ggerò" ; + Fut Sg P2 => distru_ + "ggerai" ; + Fut Sg P3 => distru_ + "ggerà" ; + Fut Pl P1 => distru_ + "ggeremo" ; + Fut Pl P2 => distru_ + "ggerete" ; + Fut Pl P3 => distru_ + "ggeranno" ; + Cong Pres Sg P1 => distru_ + "gga" ; + Cong Pres Sg P2 => distru_ + "gga" ; + Cong Pres Sg P3 => distru_ + "gga" ; + Cong Pres Pl P1 => distru_ + "ggiamo" ; + Cong Pres Pl P2 => distru_ + "ggiate" ; + Cong Pres Pl P3 => distru_ + "ggano" ; + Cong Imperf Sg P1 => distru_ + "ggessi" ; + Cong Imperf Sg P2 => distru_ + "ggessi" ; + Cong Imperf Sg P3 => distru_ + "ggesse" ; + Cong Imperf Pl P1 => distru_ + "ggessimo" ; + Cong Imperf Pl P2 => distru_ + "ggeste" ; + Cong Imperf Pl P3 => distru_ + "ggessero" ; + Cond Sg P1 => distru_ + "ggerei" ; + Cond Sg P2 => distru_ + "ggeresti" ; + Cond Sg P3 => distru_ + "ggerebbe" ; + Cond Pl P1 => distru_ + "ggeremmo" ; + Cond Pl P2 => distru_ + "ggereste" ; + Cond Pl P3 => distru_ + "ggerebbero" ; + Imper SgP2 => distru_ + "ggi" ; + Imper PlP1 => distru_ + "ggiamo" ; + Imper PlP2 => distru_ + "ggete" ; + Ger => distru_ + "ggendo" ; + Part PresP Masc Sg => distru_ + "ggente" ; + Part PresP Masc Pl => distru_ + "ggenti" ; + Part PresP Fem Sg => distru_ + "ggente" ; + Part PresP Fem Pl => distru_ + "ggenti" ; + Part PassP Masc Sg => distru_ + "tto" ; + Part PassP Masc Pl => distru_ + "tti" ; + Part PassP Fem Sg => distru_ + "tta" ; + Part PassP Fem Pl => distru_ + "tte" + } + } ; + +oper dolere_46 : Str -> Verbo = \dolere -> + let d_ = Predef.tk 5 dolere in + {s = table { + Inf => d_ + "olere" ; + InfClit => d_ + "oler" ; + Indi Pres Sg P1 => d_ + "olgo" ; + Indi Pres Sg P2 => d_ + "uoli" ; + Indi Pres Sg P3 => d_ + "uole" ; + Indi Pres Pl P1 => d_ + "oliamo" ; + Indi Pres Pl P2 => d_ + "olete" ; + Indi Pres Pl P3 => d_ + "olgono" ; + Indi Imperf Sg P1 => d_ + "olevo" ; + Indi Imperf Sg P2 => d_ + "olevi" ; + Indi Imperf Sg P3 => d_ + "oleva" ; + Indi Imperf Pl P1 => d_ + "olevamo" ; + Indi Imperf Pl P2 => d_ + "olevate" ; + Indi Imperf Pl P3 => d_ + "olevano" ; + Pass Sg P1 => d_ + "olsi" ; + Pass Sg P2 => d_ + "olesti" ; + Pass Sg P3 => d_ + "olse" ; + Pass Pl P1 => d_ + "olemmo" ; + Pass Pl P2 => d_ + "oleste" ; + Pass Pl P3 => d_ + "olsero" ; + Fut Sg P1 => d_ + "orrò" ; + Fut Sg P2 => d_ + "orrai" ; + Fut Sg P3 => d_ + "orrà" ; + Fut Pl P1 => d_ + "orremo" ; + Fut Pl P2 => d_ + "orrete" ; + Fut Pl P3 => d_ + "orranno" ; + Cong Pres Sg P1 => d_ + "olga" ; + Cong Pres Sg P2 => d_ + "olga" ; + Cong Pres Sg P3 => d_ + "olga" ; + Cong Pres Pl P1 => d_ + "oliamo" ; + Cong Pres Pl P2 => d_ + "oliate" ; + Cong Pres Pl P3 => d_ + "olgano" ; + Cong Imperf Sg P1 => d_ + "olessi" ; + Cong Imperf Sg P2 => d_ + "olessi" ; + Cong Imperf Sg P3 => d_ + "olesse" ; + Cong Imperf Pl P1 => d_ + "olessimo" ; + Cong Imperf Pl P2 => d_ + "oleste" ; + Cong Imperf Pl P3 => d_ + "olessero" ; + Cond Sg P1 => d_ + "orrei" ; + Cond Sg P2 => d_ + "orresti" ; + Cond Sg P3 => d_ + "orrebbe" ; + Cond Pl P1 => d_ + "orremmo" ; + Cond Pl P2 => d_ + "orreste" ; + Cond Pl P3 => d_ + "orrebbero" ; + Imper SgP2 => d_ + "uoli" ; + Imper PlP1 => d_ + "oliamo" ; + Imper PlP2 => d_ + "olete" ; + Ger => d_ + "olendo" ; + Part PresP Masc Sg => d_ + "olente" ; + Part PresP Masc Pl => d_ + "olenti" ; + Part PresP Fem Sg => d_ + "olente" ; + Part PresP Fem Pl => d_ + "olenti" ; + Part PassP Masc Sg => d_ + "oluto" ; + Part PassP Masc Pl => d_ + "oluti" ; + Part PassP Fem Sg => d_ + "oluta" ; + Part PassP Fem Pl => d_ + "olute" + } + } ; + +oper dovere_47 : Str -> Verbo = \dovere -> + let d_ = Predef.tk 5 dovere in + {s = table { + Inf => d_ + "overe" ; + InfClit => d_ + "over" ; + Indi Pres Sg P1 => variants {d_ + "ebbo" ; d_ + "evo"} ; + Indi Pres Sg P2 => d_ + "evi" ; + Indi Pres Sg P3 => d_ + "eve" ; + Indi Pres Pl P1 => d_ + "obbiamo" ; + Indi Pres Pl P2 => d_ + "ovete" ; + Indi Pres Pl P3 => variants {d_ + "ebbono" ; d_ + "evono"} ; + Indi Imperf Sg P1 => d_ + "ovevo" ; + Indi Imperf Sg P2 => d_ + "ovevi" ; + Indi Imperf Sg P3 => d_ + "oveva" ; + Indi Imperf Pl P1 => d_ + "ovevamo" ; + Indi Imperf Pl P2 => d_ + "ovevate" ; + Indi Imperf Pl P3 => d_ + "ovevano" ; + Pass Sg P1 => d_ + "ovetti" ; + Pass Sg P2 => d_ + "ovesti" ; + Pass Sg P3 => d_ + "ovette" ; + Pass Pl P1 => d_ + "ovemmo" ; + Pass Pl P2 => d_ + "oveste" ; + Pass Pl P3 => d_ + "ovettero" ; + Fut Sg P1 => d_ + "ovrò" ; + Fut Sg P2 => d_ + "ovrai" ; + Fut Sg P3 => d_ + "ovrà" ; + Fut Pl P1 => d_ + "ovremo" ; + Fut Pl P2 => d_ + "ovrete" ; + Fut Pl P3 => d_ + "ovranno" ; + Cong Pres Sg P1 => variants {d_ + "ebba" ; d_ + "eva"} ; + Cong Pres Sg P2 => variants {d_ + "ebba" ; d_ + "eva"} ; + Cong Pres Sg P3 => variants {d_ + "ebba" ; d_ + "eva"} ; + Cong Pres Pl P1 => d_ + "obbiamo" ; + Cong Pres Pl P2 => d_ + "obbiate" ; + Cong Pres Pl P3 => variants {d_ + "ebbano" ; d_ + "evano"} ; + Cong Imperf Sg P1 => d_ + "ovessi" ; + Cong Imperf Sg P2 => d_ + "ovessi" ; + Cong Imperf Sg P3 => d_ + "ovesse" ; + Cong Imperf Pl P1 => d_ + "ovessimo" ; + Cong Imperf Pl P2 => d_ + "oveste" ; + Cong Imperf Pl P3 => d_ + "ovessero" ; + Cond Sg P1 => d_ + "ovrei" ; + Cond Sg P2 => d_ + "ovresti" ; + Cond Sg P3 => d_ + "ovrebbe" ; + Cond Pl P1 => d_ + "ovremmo" ; + Cond Pl P2 => d_ + "ovreste" ; + Cond Pl P3 => d_ + "ovrebbero" ; + Imper SgP2 => variants {} ; + Imper PlP1 => variants {} ; + Imper PlP2 => variants {} ; + Ger => d_ + "ovendo" ; + Part PresP Masc Sg => variants {} ; + Part PresP Masc Pl => variants {} ; + Part PresP Fem Sg => variants {} ; + Part PresP Fem Pl => variants {} ; + Part PassP Masc Sg => d_ + "ovuto" ; + Part PassP Masc Pl => d_ + "ovuti" ; + Part PassP Fem Sg => d_ + "ovuta" ; + Part PassP Fem Pl => d_ + "ovute" + } + } ; + +oper emergere_28 : Str -> Verbo = \emergere -> + let emer_ = Predef.tk 4 emergere in + {s = table { + Inf => emer_ + "gere" ; + InfClit => emer_ + "ger" ; + Indi Pres Sg P1 => emer_ + "go" ; + Indi Pres Sg P2 => emer_ + "gi" ; + Indi Pres Sg P3 => emer_ + "ge" ; + Indi Pres Pl P1 => emer_ + "giamo" ; + Indi Pres Pl P2 => emer_ + "gete" ; + Indi Pres Pl P3 => emer_ + "gono" ; + Indi Imperf Sg P1 => emer_ + "gevo" ; + Indi Imperf Sg P2 => emer_ + "gevi" ; + Indi Imperf Sg P3 => emer_ + "geva" ; + Indi Imperf Pl P1 => emer_ + "gevamo" ; + Indi Imperf Pl P2 => emer_ + "gevate" ; + Indi Imperf Pl P3 => emer_ + "gevano" ; + Pass Sg P1 => emer_ + "si" ; + Pass Sg P2 => emer_ + "gesti" ; + Pass Sg P3 => emer_ + "se" ; + Pass Pl P1 => emer_ + "gemmo" ; + Pass Pl P2 => emer_ + "geste" ; + Pass Pl P3 => emer_ + "sero" ; + Fut Sg P1 => emer_ + "gerò" ; + Fut Sg P2 => emer_ + "gerai" ; + Fut Sg P3 => emer_ + "gerà" ; + Fut Pl P1 => emer_ + "geremo" ; + Fut Pl P2 => emer_ + "gerete" ; + Fut Pl P3 => emer_ + "geranno" ; + Cong Pres Sg P1 => emer_ + "ga" ; + Cong Pres Sg P2 => emer_ + "ga" ; + Cong Pres Sg P3 => emer_ + "ga" ; + Cong Pres Pl P1 => emer_ + "giamo" ; + Cong Pres Pl P2 => emer_ + "giate" ; + Cong Pres Pl P3 => emer_ + "gano" ; + Cong Imperf Sg P1 => emer_ + "gessi" ; + Cong Imperf Sg P2 => emer_ + "gessi" ; + Cong Imperf Sg P3 => emer_ + "gesse" ; + Cong Imperf Pl P1 => emer_ + "gessimo" ; + Cong Imperf Pl P2 => emer_ + "geste" ; + Cong Imperf Pl P3 => emer_ + "gessero" ; + Cond Sg P1 => emer_ + "gerei" ; + Cond Sg P2 => emer_ + "geresti" ; + Cond Sg P3 => emer_ + "gerebbe" ; + Cond Pl P1 => emer_ + "geremmo" ; + Cond Pl P2 => emer_ + "gereste" ; + Cond Pl P3 => emer_ + "gerebbero" ; + Imper SgP2 => emer_ + "gi" ; + Imper PlP1 => emer_ + "giamo" ; + Imper PlP2 => emer_ + "gete" ; + Ger => emer_ + "gendo" ; + Part PresP Masc Sg => emer_ + "gente" ; + Part PresP Masc Pl => emer_ + "genti" ; + Part PresP Fem Sg => emer_ + "gente" ; + Part PresP Fem Pl => emer_ + "genti" ; + Part PassP Masc Sg => emer_ + "so" ; + Part PassP Masc Pl => emer_ + "si" ; + Part PassP Fem Sg => emer_ + "sa" ; + Part PassP Fem Pl => emer_ + "se" + } + } ; + +oper espandere_49 : Str -> Verbo = \espandere -> + let espan_ = Predef.tk 4 espandere in + {s = table { + Inf => espan_ + "dere" ; + InfClit => espan_ + "der" ; + Indi Pres Sg P1 => espan_ + "do" ; + Indi Pres Sg P2 => espan_ + "di" ; + Indi Pres Sg P3 => espan_ + "de" ; + Indi Pres Pl P1 => espan_ + "diamo" ; + Indi Pres Pl P2 => espan_ + "dete" ; + Indi Pres Pl P3 => espan_ + "dono" ; + Indi Imperf Sg P1 => espan_ + "devo" ; + Indi Imperf Sg P2 => espan_ + "devi" ; + Indi Imperf Sg P3 => espan_ + "deva" ; + Indi Imperf Pl P1 => espan_ + "devamo" ; + Indi Imperf Pl P2 => espan_ + "devate" ; + Indi Imperf Pl P3 => espan_ + "devano" ; + Pass Sg P1 => espan_ + "si" ; + Pass Sg P2 => espan_ + "desti" ; + Pass Sg P3 => espan_ + "se" ; + Pass Pl P1 => espan_ + "demmo" ; + Pass Pl P2 => espan_ + "deste" ; + Pass Pl P3 => espan_ + "sero" ; + Fut Sg P1 => espan_ + "derò" ; + Fut Sg P2 => espan_ + "derai" ; + Fut Sg P3 => espan_ + "derà" ; + Fut Pl P1 => espan_ + "deremo" ; + Fut Pl P2 => espan_ + "derete" ; + Fut Pl P3 => espan_ + "deranno" ; + Cong Pres Sg P1 => espan_ + "da" ; + Cong Pres Sg P2 => espan_ + "da" ; + Cong Pres Sg P3 => espan_ + "da" ; + Cong Pres Pl P1 => espan_ + "diamo" ; + Cong Pres Pl P2 => espan_ + "diate" ; + Cong Pres Pl P3 => espan_ + "dano" ; + Cong Imperf Sg P1 => espan_ + "dessi" ; + Cong Imperf Sg P2 => espan_ + "dessi" ; + Cong Imperf Sg P3 => espan_ + "desse" ; + Cong Imperf Pl P1 => espan_ + "dessimo" ; + Cong Imperf Pl P2 => espan_ + "deste" ; + Cong Imperf Pl P3 => espan_ + "dessero" ; + Cond Sg P1 => espan_ + "derei" ; + Cond Sg P2 => espan_ + "deresti" ; + Cond Sg P3 => espan_ + "derebbe" ; + Cond Pl P1 => espan_ + "deremmo" ; + Cond Pl P2 => espan_ + "dereste" ; + Cond Pl P3 => espan_ + "derebbero" ; + Imper SgP2 => espan_ + "di" ; + Imper PlP1 => espan_ + "diamo" ; + Imper PlP2 => espan_ + "dete" ; + Ger => espan_ + "dendo" ; + Part PresP Masc Sg => espan_ + "dente" ; + Part PresP Masc Pl => espan_ + "denti" ; + Part PresP Fem Sg => espan_ + "dente" ; + Part PresP Fem Pl => espan_ + "denti" ; + Part PassP Masc Sg => espan_ + "so" ; + Part PassP Masc Pl => espan_ + "si" ; + Part PassP Fem Sg => espan_ + "sa" ; + Part PassP Fem Pl => espan_ + "se" + } + } ; + +oper espellere_50 : Str -> Verbo = \espellere -> + let esp_ = Predef.tk 6 espellere in + {s = table { + Inf => esp_ + "ellere" ; + InfClit => esp_ + "eller" ; + Indi Pres Sg P1 => esp_ + "ello" ; + Indi Pres Sg P2 => esp_ + "elli" ; + Indi Pres Sg P3 => esp_ + "elle" ; + Indi Pres Pl P1 => esp_ + "elliamo" ; + Indi Pres Pl P2 => esp_ + "ellete" ; + Indi Pres Pl P3 => esp_ + "ellono" ; + Indi Imperf Sg P1 => esp_ + "ellevo" ; + Indi Imperf Sg P2 => esp_ + "ellevi" ; + Indi Imperf Sg P3 => esp_ + "elleva" ; + Indi Imperf Pl P1 => esp_ + "ellevamo" ; + Indi Imperf Pl P2 => esp_ + "ellevate" ; + Indi Imperf Pl P3 => esp_ + "ellevano" ; + Pass Sg P1 => esp_ + "ulsi" ; + Pass Sg P2 => esp_ + "ellesti" ; + Pass Sg P3 => esp_ + "ulse" ; + Pass Pl P1 => esp_ + "ellemmo" ; + Pass Pl P2 => esp_ + "elleste" ; + Pass Pl P3 => esp_ + "ulsero" ; + Fut Sg P1 => esp_ + "ellerò" ; + Fut Sg P2 => esp_ + "ellerai" ; + Fut Sg P3 => esp_ + "ellerà" ; + Fut Pl P1 => esp_ + "elleremo" ; + Fut Pl P2 => esp_ + "ellerete" ; + Fut Pl P3 => esp_ + "elleranno" ; + Cong Pres Sg P1 => esp_ + "ella" ; + Cong Pres Sg P2 => esp_ + "ella" ; + Cong Pres Sg P3 => esp_ + "ella" ; + Cong Pres Pl P1 => esp_ + "elliamo" ; + Cong Pres Pl P2 => esp_ + "elliate" ; + Cong Pres Pl P3 => esp_ + "ellano" ; + Cong Imperf Sg P1 => esp_ + "ellessi" ; + Cong Imperf Sg P2 => esp_ + "ellessi" ; + Cong Imperf Sg P3 => esp_ + "ellesse" ; + Cong Imperf Pl P1 => esp_ + "ellessimo" ; + Cong Imperf Pl P2 => esp_ + "elleste" ; + Cong Imperf Pl P3 => esp_ + "ellessero" ; + Cond Sg P1 => esp_ + "ellerei" ; + Cond Sg P2 => esp_ + "elleresti" ; + Cond Sg P3 => esp_ + "ellerebbe" ; + Cond Pl P1 => esp_ + "elleremmo" ; + Cond Pl P2 => esp_ + "ellereste" ; + Cond Pl P3 => esp_ + "ellerebbero" ; + Imper SgP2 => esp_ + "elli" ; + Imper PlP1 => esp_ + "elliamo" ; + Imper PlP2 => esp_ + "ellete" ; + Ger => esp_ + "ellendo" ; + Part PresP Masc Sg => esp_ + "ellente" ; + Part PresP Masc Pl => esp_ + "ellenti" ; + Part PresP Fem Sg => esp_ + "ellente" ; + Part PresP Fem Pl => esp_ + "ellenti" ; + Part PassP Masc Sg => esp_ + "ulso" ; + Part PassP Masc Pl => esp_ + "ulsi" ; + Part PassP Fem Sg => esp_ + "ulsa" ; + Part PassP Fem Pl => esp_ + "ulse" + } + } ; + +oper esplodere_51 : Str -> Verbo = \esplodere -> + let esplo_ = Predef.tk 4 esplodere in + {s = table { + Inf => esplo_ + "dere" ; + InfClit => esplo_ + "der" ; + Indi Pres Sg P1 => esplo_ + "do" ; + Indi Pres Sg P2 => esplo_ + "di" ; + Indi Pres Sg P3 => esplo_ + "de" ; + Indi Pres Pl P1 => esplo_ + "diamo" ; + Indi Pres Pl P2 => esplo_ + "dete" ; + Indi Pres Pl P3 => esplo_ + "dono" ; + Indi Imperf Sg P1 => esplo_ + "devo" ; + Indi Imperf Sg P2 => esplo_ + "devi" ; + Indi Imperf Sg P3 => esplo_ + "deva" ; + Indi Imperf Pl P1 => esplo_ + "devamo" ; + Indi Imperf Pl P2 => esplo_ + "devate" ; + Indi Imperf Pl P3 => esplo_ + "devano" ; + Pass Sg P1 => esplo_ + "si" ; + Pass Sg P2 => esplo_ + "desti" ; + Pass Sg P3 => esplo_ + "se" ; + Pass Pl P1 => esplo_ + "demmo" ; + Pass Pl P2 => esplo_ + "deste" ; + Pass Pl P3 => esplo_ + "sero" ; + Fut Sg P1 => esplo_ + "derò" ; + Fut Sg P2 => esplo_ + "derai" ; + Fut Sg P3 => esplo_ + "derà" ; + Fut Pl P1 => esplo_ + "deremo" ; + Fut Pl P2 => esplo_ + "derete" ; + Fut Pl P3 => esplo_ + "deranno" ; + Cong Pres Sg P1 => esplo_ + "da" ; + Cong Pres Sg P2 => esplo_ + "da" ; + Cong Pres Sg P3 => esplo_ + "da" ; + Cong Pres Pl P1 => esplo_ + "diamo" ; + Cong Pres Pl P2 => esplo_ + "diate" ; + Cong Pres Pl P3 => esplo_ + "dano" ; + Cong Imperf Sg P1 => esplo_ + "dessi" ; + Cong Imperf Sg P2 => esplo_ + "dessi" ; + Cong Imperf Sg P3 => esplo_ + "desse" ; + Cong Imperf Pl P1 => esplo_ + "dessimo" ; + Cong Imperf Pl P2 => esplo_ + "deste" ; + Cong Imperf Pl P3 => esplo_ + "dessero" ; + Cond Sg P1 => esplo_ + "derei" ; + Cond Sg P2 => esplo_ + "deresti" ; + Cond Sg P3 => esplo_ + "derebbe" ; + Cond Pl P1 => esplo_ + "deremmo" ; + Cond Pl P2 => esplo_ + "dereste" ; + Cond Pl P3 => esplo_ + "derebbero" ; + Imper SgP2 => esplo_ + "di" ; + Imper PlP1 => esplo_ + "diamo" ; + Imper PlP2 => esplo_ + "dete" ; + Ger => esplo_ + "dendo" ; + Part PresP Masc Sg => esplo_ + "dente" ; + Part PresP Masc Pl => esplo_ + "denti" ; + Part PresP Fem Sg => esplo_ + "dente" ; + Part PresP Fem Pl => esplo_ + "denti" ; + Part PassP Masc Sg => esplo_ + "so" ; + Part PassP Masc Pl => esplo_ + "si" ; + Part PassP Fem Sg => esplo_ + "sa" ; + Part PassP Fem Pl => esplo_ + "se" + } + } ; + +oper fare_52 : Str -> Verbo = \fare -> + let f_ = Predef.tk 3 fare in + {s = table { + Inf => f_ + "are" ; + InfClit => f_ + "ar" ; + Indi Pres Sg P1 => f_ + "accio" ; + Indi Pres Sg P2 => f_ + "ai" ; + Indi Pres Sg P3 => f_ + "a" ; + Indi Pres Pl P1 => f_ + "acciamo" ; + Indi Pres Pl P2 => f_ + "ate" ; + Indi Pres Pl P3 => f_ + "anno" ; + Indi Imperf Sg P1 => f_ + "acevo" ; + Indi Imperf Sg P2 => f_ + "acevi" ; + Indi Imperf Sg P3 => f_ + "aceva" ; + Indi Imperf Pl P1 => f_ + "acevamo" ; + Indi Imperf Pl P2 => f_ + "acevate" ; + Indi Imperf Pl P3 => f_ + "acevano" ; + Pass Sg P1 => f_ + "eci" ; + Pass Sg P2 => f_ + "acesti" ; + Pass Sg P3 => f_ + "ece" ; + Pass Pl P1 => f_ + "acemmo" ; + Pass Pl P2 => f_ + "aceste" ; + Pass Pl P3 => f_ + "ecero" ; + Fut Sg P1 => f_ + "arò" ; + Fut Sg P2 => f_ + "arai" ; + Fut Sg P3 => f_ + "arà" ; + Fut Pl P1 => f_ + "aremo" ; + Fut Pl P2 => f_ + "arete" ; + Fut Pl P3 => f_ + "aranno" ; + Cong Pres Sg P1 => f_ + "accia" ; + Cong Pres Sg P2 => f_ + "accia" ; + Cong Pres Sg P3 => f_ + "accia" ; + Cong Pres Pl P1 => f_ + "acciamo" ; + Cong Pres Pl P2 => f_ + "acciate" ; + Cong Pres Pl P3 => f_ + "acciano" ; + Cong Imperf Sg P1 => f_ + "acessi" ; + Cong Imperf Sg P2 => f_ + "acessi" ; + Cong Imperf Sg P3 => f_ + "acesse" ; + Cong Imperf Pl P1 => f_ + "acessimo" ; + Cong Imperf Pl P2 => f_ + "aceste" ; + Cong Imperf Pl P3 => f_ + "acessero" ; + Cond Sg P1 => f_ + "arei" ; + Cond Sg P2 => f_ + "aresti" ; + Cond Sg P3 => f_ + "arebbe" ; + Cond Pl P1 => f_ + "aremmo" ; + Cond Pl P2 => f_ + "areste" ; + Cond Pl P3 => f_ + "arebbero" ; + Imper SgP2 => f_ + "ai" ; + Imper PlP1 => f_ + "acciamo" ; + Imper PlP2 => f_ + "ate" ; + Ger => f_ + "acendo" ; + Part PresP Masc Sg => f_ + "acente" ; + Part PresP Masc Pl => f_ + "acenti" ; + Part PresP Fem Sg => f_ + "acente" ; + Part PresP Fem Pl => f_ + "acenti" ; + Part PassP Masc Sg => f_ + "atto" ; + Part PassP Masc Pl => f_ + "atti" ; + Part PassP Fem Sg => f_ + "atta" ; + Part PassP Fem Pl => f_ + "atte" + } + } ; + +oper flettere_53 : Str -> Verbo = \flettere -> + let fle_ = Predef.tk 5 flettere in + {s = table { + Inf => fle_ + "ttere" ; + InfClit => fle_ + "tter" ; + Indi Pres Sg P1 => fle_ + "tto" ; + Indi Pres Sg P2 => fle_ + "tti" ; + Indi Pres Sg P3 => fle_ + "tte" ; + Indi Pres Pl P1 => fle_ + "ttiamo" ; + Indi Pres Pl P2 => fle_ + "ttete" ; + Indi Pres Pl P3 => fle_ + "ttono" ; + Indi Imperf Sg P1 => fle_ + "ttevo" ; + Indi Imperf Sg P2 => fle_ + "ttevi" ; + Indi Imperf Sg P3 => fle_ + "tteva" ; + Indi Imperf Pl P1 => fle_ + "ttevamo" ; + Indi Imperf Pl P2 => fle_ + "ttevate" ; + Indi Imperf Pl P3 => fle_ + "ttevano" ; + Pass Sg P1 => fle_ + "ssi" ; + Pass Sg P2 => fle_ + "ttesti" ; + Pass Sg P3 => fle_ + "sse" ; + Pass Pl P1 => fle_ + "ttemmo" ; + Pass Pl P2 => fle_ + "tteste" ; + Pass Pl P3 => fle_ + "ssero" ; + Fut Sg P1 => fle_ + "tterò" ; + Fut Sg P2 => fle_ + "tterai" ; + Fut Sg P3 => fle_ + "tterà" ; + Fut Pl P1 => fle_ + "tteremo" ; + Fut Pl P2 => fle_ + "tterete" ; + Fut Pl P3 => fle_ + "tteranno" ; + Cong Pres Sg P1 => fle_ + "tta" ; + Cong Pres Sg P2 => fle_ + "tta" ; + Cong Pres Sg P3 => fle_ + "tta" ; + Cong Pres Pl P1 => fle_ + "ttiamo" ; + Cong Pres Pl P2 => fle_ + "ttiate" ; + Cong Pres Pl P3 => fle_ + "ttano" ; + Cong Imperf Sg P1 => fle_ + "ttessi" ; + Cong Imperf Sg P2 => fle_ + "ttessi" ; + Cong Imperf Sg P3 => fle_ + "ttesse" ; + Cong Imperf Pl P1 => fle_ + "ttessimo" ; + Cong Imperf Pl P2 => fle_ + "tteste" ; + Cong Imperf Pl P3 => fle_ + "ttessero" ; + Cond Sg P1 => fle_ + "tterei" ; + Cond Sg P2 => fle_ + "tteresti" ; + Cond Sg P3 => fle_ + "tterebbe" ; + Cond Pl P1 => fle_ + "tteremmo" ; + Cond Pl P2 => fle_ + "ttereste" ; + Cond Pl P3 => fle_ + "tterebbero" ; + Imper SgP2 => fle_ + "tti" ; + Imper PlP1 => fle_ + "ttiamo" ; + Imper PlP2 => fle_ + "ttete" ; + Ger => fle_ + "ttendo" ; + Part PresP Masc Sg => fle_ + "ttente" ; + Part PresP Masc Pl => fle_ + "ttenti" ; + Part PresP Fem Sg => fle_ + "ttente" ; + Part PresP Fem Pl => fle_ + "ttenti" ; + Part PassP Masc Sg => fle_ + "sso" ; + Part PassP Masc Pl => fle_ + "ssi" ; + Part PassP Fem Sg => fle_ + "ssa" ; + Part PassP Fem Pl => fle_ + "sse" + } + } ; + +oper fondere_54 : Str -> Verbo = \fondere -> + let f_ = Predef.tk 6 fondere in + {s = table { + Inf => f_ + "ondere" ; + InfClit => f_ + "onder" ; + Indi Pres Sg P1 => f_ + "ondo" ; + Indi Pres Sg P2 => f_ + "ondi" ; + Indi Pres Sg P3 => f_ + "onde" ; + Indi Pres Pl P1 => f_ + "ondiamo" ; + Indi Pres Pl P2 => f_ + "ondete" ; + Indi Pres Pl P3 => f_ + "ondono" ; + Indi Imperf Sg P1 => f_ + "ondevo" ; + Indi Imperf Sg P2 => f_ + "ondevi" ; + Indi Imperf Sg P3 => f_ + "ondeva" ; + Indi Imperf Pl P1 => f_ + "ondevamo" ; + Indi Imperf Pl P2 => f_ + "ondevate" ; + Indi Imperf Pl P3 => f_ + "ondevano" ; + Pass Sg P1 => f_ + "usi" ; + Pass Sg P2 => f_ + "ondesti" ; + Pass Sg P3 => f_ + "use" ; + Pass Pl P1 => f_ + "ondemmo" ; + Pass Pl P2 => f_ + "ondeste" ; + Pass Pl P3 => f_ + "usero" ; + Fut Sg P1 => f_ + "onderò" ; + Fut Sg P2 => f_ + "onderai" ; + Fut Sg P3 => f_ + "onderà" ; + Fut Pl P1 => f_ + "onderemo" ; + Fut Pl P2 => f_ + "onderete" ; + Fut Pl P3 => f_ + "onderanno" ; + Cong Pres Sg P1 => f_ + "onda" ; + Cong Pres Sg P2 => f_ + "onda" ; + Cong Pres Sg P3 => f_ + "onda" ; + Cong Pres Pl P1 => f_ + "ondiamo" ; + Cong Pres Pl P2 => f_ + "ondiate" ; + Cong Pres Pl P3 => f_ + "ondano" ; + Cong Imperf Sg P1 => f_ + "ondessi" ; + Cong Imperf Sg P2 => f_ + "ondessi" ; + Cong Imperf Sg P3 => f_ + "ondesse" ; + Cong Imperf Pl P1 => f_ + "ondessimo" ; + Cong Imperf Pl P2 => f_ + "ondeste" ; + Cong Imperf Pl P3 => f_ + "ondessero" ; + Cond Sg P1 => f_ + "onderei" ; + Cond Sg P2 => f_ + "onderesti" ; + Cond Sg P3 => f_ + "onderebbe" ; + Cond Pl P1 => f_ + "onderemmo" ; + Cond Pl P2 => f_ + "ondereste" ; + Cond Pl P3 => f_ + "onderebbero" ; + Imper SgP2 => f_ + "ondi" ; + Imper PlP1 => f_ + "ondiamo" ; + Imper PlP2 => f_ + "ondete" ; + Ger => f_ + "ondendo" ; + Part PresP Masc Sg => f_ + "ondente" ; + Part PresP Masc Pl => f_ + "ondenti" ; + Part PresP Fem Sg => f_ + "ondente" ; + Part PresP Fem Pl => f_ + "ondenti" ; + Part PassP Masc Sg => f_ + "uso" ; + Part PassP Masc Pl => f_ + "usi" ; + Part PassP Fem Sg => f_ + "usa" ; + Part PassP Fem Pl => f_ + "use" + } + } ; + +oper giungere_55 : Str -> Verbo = \giungere -> + let giun_ = Predef.tk 4 giungere in + {s = table { + Inf => giun_ + "gere" ; + InfClit => giun_ + "ger" ; + Indi Pres Sg P1 => giun_ + "go" ; + Indi Pres Sg P2 => giun_ + "gi" ; + Indi Pres Sg P3 => giun_ + "ge" ; + Indi Pres Pl P1 => giun_ + "giamo" ; + Indi Pres Pl P2 => giun_ + "gete" ; + Indi Pres Pl P3 => giun_ + "gono" ; + Indi Imperf Sg P1 => giun_ + "gevo" ; + Indi Imperf Sg P2 => giun_ + "gevi" ; + Indi Imperf Sg P3 => giun_ + "geva" ; + Indi Imperf Pl P1 => giun_ + "gevamo" ; + Indi Imperf Pl P2 => giun_ + "gevate" ; + Indi Imperf Pl P3 => giun_ + "gevano" ; + Pass Sg P1 => giun_ + "si" ; + Pass Sg P2 => giun_ + "gesti" ; + Pass Sg P3 => giun_ + "se" ; + Pass Pl P1 => giun_ + "gemmo" ; + Pass Pl P2 => giun_ + "geste" ; + Pass Pl P3 => giun_ + "sero" ; + Fut Sg P1 => giun_ + "gerò" ; + Fut Sg P2 => giun_ + "gerai" ; + Fut Sg P3 => giun_ + "gerà" ; + Fut Pl P1 => giun_ + "geremo" ; + Fut Pl P2 => giun_ + "gerete" ; + Fut Pl P3 => giun_ + "geranno" ; + Cong Pres Sg P1 => giun_ + "ga" ; + Cong Pres Sg P2 => giun_ + "ga" ; + Cong Pres Sg P3 => giun_ + "ga" ; + Cong Pres Pl P1 => giun_ + "giamo" ; + Cong Pres Pl P2 => giun_ + "giate" ; + Cong Pres Pl P3 => giun_ + "gano" ; + Cong Imperf Sg P1 => giun_ + "gessi" ; + Cong Imperf Sg P2 => giun_ + "gessi" ; + Cong Imperf Sg P3 => giun_ + "gesse" ; + Cong Imperf Pl P1 => giun_ + "gessimo" ; + Cong Imperf Pl P2 => giun_ + "geste" ; + Cong Imperf Pl P3 => giun_ + "gessero" ; + Cond Sg P1 => giun_ + "gerei" ; + Cond Sg P2 => giun_ + "geresti" ; + Cond Sg P3 => giun_ + "gerebbe" ; + Cond Pl P1 => giun_ + "geremmo" ; + Cond Pl P2 => giun_ + "gereste" ; + Cond Pl P3 => giun_ + "gerebbero" ; + Imper SgP2 => giun_ + "gi" ; + Imper PlP1 => giun_ + "giamo" ; + Imper PlP2 => giun_ + "gete" ; + Ger => giun_ + "gendo" ; + Part PresP Masc Sg => giun_ + "gente" ; + Part PresP Masc Pl => giun_ + "genti" ; + Part PresP Fem Sg => giun_ + "gente" ; + Part PresP Fem Pl => giun_ + "genti" ; + Part PassP Masc Sg => giun_ + "to" ; + Part PassP Masc Pl => giun_ + "ti" ; + Part PassP Fem Sg => giun_ + "ta" ; + Part PassP Fem Pl => giun_ + "te" + } + } ; + +oper leggere_56 : Str -> Verbo = \leggere -> + let le_ = Predef.tk 5 leggere in + {s = table { + Inf => le_ + "ggere" ; + InfClit => le_ + "gger" ; + Indi Pres Sg P1 => le_ + "ggo" ; + Indi Pres Sg P2 => le_ + "ggi" ; + Indi Pres Sg P3 => le_ + "gge" ; + Indi Pres Pl P1 => le_ + "ggiamo" ; + Indi Pres Pl P2 => le_ + "ggete" ; + Indi Pres Pl P3 => le_ + "ggono" ; + Indi Imperf Sg P1 => le_ + "ggevo" ; + Indi Imperf Sg P2 => le_ + "ggevi" ; + Indi Imperf Sg P3 => le_ + "ggeva" ; + Indi Imperf Pl P1 => le_ + "ggevamo" ; + Indi Imperf Pl P2 => le_ + "ggevate" ; + Indi Imperf Pl P3 => le_ + "ggevano" ; + Pass Sg P1 => le_ + "ssi" ; + Pass Sg P2 => le_ + "ggesti" ; + Pass Sg P3 => le_ + "sse" ; + Pass Pl P1 => le_ + "ggemmo" ; + Pass Pl P2 => le_ + "ggeste" ; + Pass Pl P3 => le_ + "ssero" ; + Fut Sg P1 => le_ + "ggerò" ; + Fut Sg P2 => le_ + "ggerai" ; + Fut Sg P3 => le_ + "ggerà" ; + Fut Pl P1 => le_ + "ggeremo" ; + Fut Pl P2 => le_ + "ggerete" ; + Fut Pl P3 => le_ + "ggeranno" ; + Cong Pres Sg P1 => le_ + "gga" ; + Cong Pres Sg P2 => le_ + "gga" ; + Cong Pres Sg P3 => le_ + "gga" ; + Cong Pres Pl P1 => le_ + "ggiamo" ; + Cong Pres Pl P2 => le_ + "ggiate" ; + Cong Pres Pl P3 => le_ + "ggano" ; + Cong Imperf Sg P1 => le_ + "ggessi" ; + Cong Imperf Sg P2 => le_ + "ggessi" ; + Cong Imperf Sg P3 => le_ + "ggesse" ; + Cong Imperf Pl P1 => le_ + "ggessimo" ; + Cong Imperf Pl P2 => le_ + "ggeste" ; + Cong Imperf Pl P3 => le_ + "ggessero" ; + Cond Sg P1 => le_ + "ggerei" ; + Cond Sg P2 => le_ + "ggeresti" ; + Cond Sg P3 => le_ + "ggerebbe" ; + Cond Pl P1 => le_ + "ggeremmo" ; + Cond Pl P2 => le_ + "ggereste" ; + Cond Pl P3 => le_ + "ggerebbero" ; + Imper SgP2 => le_ + "ggi" ; + Imper PlP1 => le_ + "ggiamo" ; + Imper PlP2 => le_ + "ggete" ; + Ger => le_ + "ggendo" ; + Part PresP Masc Sg => le_ + "ggente" ; + Part PresP Masc Pl => le_ + "ggenti" ; + Part PresP Fem Sg => le_ + "ggente" ; + Part PresP Fem Pl => le_ + "ggenti" ; + Part PassP Masc Sg => le_ + "tto" ; + Part PassP Masc Pl => le_ + "tti" ; + Part PassP Fem Sg => le_ + "tta" ; + Part PassP Fem Pl => le_ + "tte" + } + } ; + +oper mettere_57 : Str -> Verbo = \mettere -> + let m_ = Predef.tk 6 mettere in + {s = table { + Inf => m_ + "ettere" ; + InfClit => m_ + "etter" ; + Indi Pres Sg P1 => m_ + "etto" ; + Indi Pres Sg P2 => m_ + "etti" ; + Indi Pres Sg P3 => m_ + "ette" ; + Indi Pres Pl P1 => m_ + "ettiamo" ; + Indi Pres Pl P2 => m_ + "ettete" ; + Indi Pres Pl P3 => m_ + "ettono" ; + Indi Imperf Sg P1 => m_ + "ettevo" ; + Indi Imperf Sg P2 => m_ + "ettevi" ; + Indi Imperf Sg P3 => m_ + "etteva" ; + Indi Imperf Pl P1 => m_ + "ettevamo" ; + Indi Imperf Pl P2 => m_ + "ettevate" ; + Indi Imperf Pl P3 => m_ + "ettevano" ; + Pass Sg P1 => m_ + "isi" ; + Pass Sg P2 => m_ + "ettesti" ; + Pass Sg P3 => m_ + "ise" ; + Pass Pl P1 => m_ + "ettemmo" ; + Pass Pl P2 => m_ + "etteste" ; + Pass Pl P3 => m_ + "isero" ; + Fut Sg P1 => m_ + "etterò" ; + Fut Sg P2 => m_ + "etterai" ; + Fut Sg P3 => m_ + "etterà" ; + Fut Pl P1 => m_ + "etteremo" ; + Fut Pl P2 => m_ + "etterete" ; + Fut Pl P3 => m_ + "etteranno" ; + Cong Pres Sg P1 => m_ + "etta" ; + Cong Pres Sg P2 => m_ + "etta" ; + Cong Pres Sg P3 => m_ + "etta" ; + Cong Pres Pl P1 => m_ + "ettiamo" ; + Cong Pres Pl P2 => m_ + "ettiate" ; + Cong Pres Pl P3 => m_ + "ettano" ; + Cong Imperf Sg P1 => m_ + "ettessi" ; + Cong Imperf Sg P2 => m_ + "ettessi" ; + Cong Imperf Sg P3 => m_ + "ettesse" ; + Cong Imperf Pl P1 => m_ + "ettessimo" ; + Cong Imperf Pl P2 => m_ + "etteste" ; + Cong Imperf Pl P3 => m_ + "ettessero" ; + Cond Sg P1 => m_ + "etterei" ; + Cond Sg P2 => m_ + "etteresti" ; + Cond Sg P3 => m_ + "etterebbe" ; + Cond Pl P1 => m_ + "etteremmo" ; + Cond Pl P2 => m_ + "ettereste" ; + Cond Pl P3 => m_ + "etterebbero" ; + Imper SgP2 => m_ + "etti" ; + Imper PlP1 => m_ + "ettiamo" ; + Imper PlP2 => m_ + "ettete" ; + Ger => m_ + "ettendo" ; + Part PresP Masc Sg => m_ + "ettente" ; + Part PresP Masc Pl => m_ + "ettenti" ; + Part PresP Fem Sg => m_ + "ettente" ; + Part PresP Fem Pl => m_ + "ettenti" ; + Part PassP Masc Sg => m_ + "esso" ; + Part PassP Masc Pl => m_ + "essi" ; + Part PassP Fem Sg => m_ + "essa" ; + Part PassP Fem Pl => m_ + "esse" + } + } ; + +oper muovere_58 : Str -> Verbo = \muovere -> + let m_ = Predef.tk 6 muovere in + {s = table { + Inf => m_ + "uovere" ; + InfClit => m_ + "uover" ; + Indi Pres Sg P1 => m_ + "uovo" ; + Indi Pres Sg P2 => m_ + "uovi" ; + Indi Pres Sg P3 => m_ + "uove" ; + Indi Pres Pl P1 => m_ + "uoviamo" ; + Indi Pres Pl P2 => m_ + "uovete" ; + Indi Pres Pl P3 => m_ + "uovono" ; + Indi Imperf Sg P1 => m_ + "uovevo" ; + Indi Imperf Sg P2 => m_ + "uovevi" ; + Indi Imperf Sg P3 => m_ + "uoveva" ; + Indi Imperf Pl P1 => m_ + "uovevamo" ; + Indi Imperf Pl P2 => m_ + "uovevate" ; + Indi Imperf Pl P3 => m_ + "uovevano" ; + Pass Sg P1 => m_ + "ossi" ; + Pass Sg P2 => m_ + "uovesti" ; + Pass Sg P3 => m_ + "osse" ; + Pass Pl P1 => m_ + "uovemmo" ; + Pass Pl P2 => m_ + "uoveste" ; + Pass Pl P3 => m_ + "ossero" ; + Fut Sg P1 => m_ + "uoverò" ; + Fut Sg P2 => m_ + "uoverai" ; + Fut Sg P3 => m_ + "uoverà" ; + Fut Pl P1 => m_ + "uoveremo" ; + Fut Pl P2 => m_ + "uoverete" ; + Fut Pl P3 => m_ + "uoveranno" ; + Cong Pres Sg P1 => m_ + "uova" ; + Cong Pres Sg P2 => m_ + "uova" ; + Cong Pres Sg P3 => m_ + "uova" ; + Cong Pres Pl P1 => m_ + "uoviamo" ; + Cong Pres Pl P2 => m_ + "uoviate" ; + Cong Pres Pl P3 => m_ + "uovano" ; + Cong Imperf Sg P1 => m_ + "uovessi" ; + Cong Imperf Sg P2 => m_ + "uovessi" ; + Cong Imperf Sg P3 => m_ + "uovesse" ; + Cong Imperf Pl P1 => m_ + "uovessimo" ; + Cong Imperf Pl P2 => m_ + "uoveste" ; + Cong Imperf Pl P3 => m_ + "uovessero" ; + Cond Sg P1 => m_ + "uoverei" ; + Cond Sg P2 => m_ + "uoveresti" ; + Cond Sg P3 => m_ + "uoverebbe" ; + Cond Pl P1 => m_ + "uoveremmo" ; + Cond Pl P2 => m_ + "uovereste" ; + Cond Pl P3 => m_ + "uoverebbero" ; + Imper SgP2 => m_ + "uovi" ; + Imper PlP1 => m_ + "uoviamo" ; + Imper PlP2 => m_ + "uovete" ; + Ger => m_ + "uovendo" ; + Part PresP Masc Sg => m_ + "uovente" ; + Part PresP Masc Pl => m_ + "uoventi" ; + Part PresP Fem Sg => m_ + "uovente" ; + Part PresP Fem Pl => m_ + "uoventi" ; + Part PassP Masc Sg => m_ + "osso" ; + Part PassP Masc Pl => m_ + "ossi" ; + Part PassP Fem Sg => m_ + "ossa" ; + Part PassP Fem Pl => m_ + "osse" + } + } ; + +oper nascere_59 : Str -> Verbo = \nascere -> + let na_ = Predef.tk 5 nascere in + {s = table { + Inf => na_ + "scere" ; + InfClit => na_ + "scer" ; + Indi Pres Sg P1 => na_ + "sco" ; + Indi Pres Sg P2 => na_ + "sci" ; + Indi Pres Sg P3 => na_ + "sce" ; + Indi Pres Pl P1 => na_ + "sciamo" ; + Indi Pres Pl P2 => na_ + "scete" ; + Indi Pres Pl P3 => na_ + "scono" ; + Indi Imperf Sg P1 => na_ + "scevo" ; + Indi Imperf Sg P2 => na_ + "scevi" ; + Indi Imperf Sg P3 => na_ + "sceva" ; + Indi Imperf Pl P1 => na_ + "scevamo" ; + Indi Imperf Pl P2 => na_ + "scevate" ; + Indi Imperf Pl P3 => na_ + "scevano" ; + Pass Sg P1 => na_ + "cqui" ; + Pass Sg P2 => na_ + "scesti" ; + Pass Sg P3 => na_ + "cque" ; + Pass Pl P1 => na_ + "scemmo" ; + Pass Pl P2 => na_ + "sceste" ; + Pass Pl P3 => na_ + "cquero" ; + Fut Sg P1 => na_ + "scerò" ; + Fut Sg P2 => na_ + "scerai" ; + Fut Sg P3 => na_ + "scerà" ; + Fut Pl P1 => na_ + "sceremo" ; + Fut Pl P2 => na_ + "scerete" ; + Fut Pl P3 => na_ + "sceranno" ; + Cong Pres Sg P1 => na_ + "sca" ; + Cong Pres Sg P2 => na_ + "sca" ; + Cong Pres Sg P3 => na_ + "sca" ; + Cong Pres Pl P1 => na_ + "sciamo" ; + Cong Pres Pl P2 => na_ + "sciate" ; + Cong Pres Pl P3 => na_ + "scano" ; + Cong Imperf Sg P1 => na_ + "scessi" ; + Cong Imperf Sg P2 => na_ + "scessi" ; + Cong Imperf Sg P3 => na_ + "scesse" ; + Cong Imperf Pl P1 => na_ + "scessimo" ; + Cong Imperf Pl P2 => na_ + "sceste" ; + Cong Imperf Pl P3 => na_ + "scessero" ; + Cond Sg P1 => na_ + "scerei" ; + Cond Sg P2 => na_ + "sceresti" ; + Cond Sg P3 => na_ + "scerebbe" ; + Cond Pl P1 => na_ + "sceremmo" ; + Cond Pl P2 => na_ + "scereste" ; + Cond Pl P3 => na_ + "scerebbero" ; + Imper SgP2 => na_ + "sci" ; + Imper PlP1 => na_ + "sciamo" ; + Imper PlP2 => na_ + "scete" ; + Ger => na_ + "scendo" ; + Part PresP Masc Sg => na_ + "scente" ; + Part PresP Masc Pl => na_ + "scenti" ; + Part PresP Fem Sg => na_ + "scente" ; + Part PresP Fem Pl => na_ + "scenti" ; + Part PassP Masc Sg => na_ + "to" ; + Part PassP Masc Pl => na_ + "ti" ; + Part PassP Fem Sg => na_ + "ta" ; + Part PassP Fem Pl => na_ + "te" + } + } ; + +oper nuocere_60 : Str -> Verbo = \nuocere -> + let n_ = Predef.tk 6 nuocere in + {s = table { + Inf => n_ + "uocere" ; + InfClit => n_ + "uocer" ; + Indi Pres Sg P1 => n_ + "uoccio" ; + Indi Pres Sg P2 => n_ + "uoci" ; + Indi Pres Sg P3 => n_ + "uoce" ; + Indi Pres Pl P1 => n_ + "uociamo" ; + Indi Pres Pl P2 => n_ + "uocete" ; + Indi Pres Pl P3 => n_ + "uocciono" ; + Indi Imperf Sg P1 => n_ + "uocevo" ; + Indi Imperf Sg P2 => n_ + "uocevi" ; + Indi Imperf Sg P3 => n_ + "uoceva" ; + Indi Imperf Pl P1 => n_ + "uocevamo" ; + Indi Imperf Pl P2 => n_ + "uocevate" ; + Indi Imperf Pl P3 => n_ + "uocevano" ; + Pass Sg P1 => n_ + "ocqui" ; + Pass Sg P2 => n_ + "uocesti" ; + Pass Sg P3 => n_ + "ocque" ; + Pass Pl P1 => n_ + "uocemmo" ; + Pass Pl P2 => n_ + "uoceste" ; + Pass Pl P3 => n_ + "ocquero" ; + Fut Sg P1 => n_ + "uocerò" ; + Fut Sg P2 => n_ + "uocerai" ; + Fut Sg P3 => n_ + "uocerà" ; + Fut Pl P1 => n_ + "uoceremo" ; + Fut Pl P2 => n_ + "uocerete" ; + Fut Pl P3 => n_ + "uoceranno" ; + Cong Pres Sg P1 => n_ + "uoccia" ; + Cong Pres Sg P2 => n_ + "uoccia" ; + Cong Pres Sg P3 => n_ + "uoccia" ; + Cong Pres Pl P1 => n_ + "uociamo" ; + Cong Pres Pl P2 => n_ + "uociate" ; + Cong Pres Pl P3 => n_ + "uocciano" ; + Cong Imperf Sg P1 => n_ + "uocessi" ; + Cong Imperf Sg P2 => n_ + "uocessi" ; + Cong Imperf Sg P3 => n_ + "uocesse" ; + Cong Imperf Pl P1 => n_ + "uocessimo" ; + Cong Imperf Pl P2 => n_ + "uoceste" ; + Cong Imperf Pl P3 => n_ + "uocessero" ; + Cond Sg P1 => n_ + "uocerei" ; + Cond Sg P2 => n_ + "uoceresti" ; + Cond Sg P3 => n_ + "uocerebbe" ; + Cond Pl P1 => n_ + "uoceremmo" ; + Cond Pl P2 => n_ + "uocereste" ; + Cond Pl P3 => n_ + "uocerebbero" ; + Imper SgP2 => n_ + "uoci" ; + Imper PlP1 => n_ + "uociamo" ; + Imper PlP2 => n_ + "uocete" ; + Ger => n_ + "uocendo" ; + Part PresP Masc Sg => n_ + "uocente" ; + Part PresP Masc Pl => n_ + "uocenti" ; + Part PresP Fem Sg => n_ + "uocente" ; + Part PresP Fem Pl => n_ + "uocenti" ; + Part PassP Masc Sg => n_ + "uociuto" ; + Part PassP Masc Pl => n_ + "uociuti" ; + Part PassP Fem Sg => n_ + "uociuta" ; + Part PassP Fem Pl => n_ + "uociute" + } + } ; + +oper parere_61 : Str -> Verbo = \parere -> + let pa_ = Predef.tk 4 parere in + {s = table { + Inf => pa_ + "rere" ; + InfClit => pa_ + "rer" ; + Indi Pres Sg P1 => pa_ + "io" ; + Indi Pres Sg P2 => pa_ + "ri" ; + Indi Pres Sg P3 => pa_ + "re" ; + Indi Pres Pl P1 => pa_ + "riamo" ; + Indi Pres Pl P2 => pa_ + "rete" ; + Indi Pres Pl P3 => pa_ + "iono" ; + Indi Imperf Sg P1 => pa_ + "revo" ; + Indi Imperf Sg P2 => pa_ + "revi" ; + Indi Imperf Sg P3 => pa_ + "reva" ; + Indi Imperf Pl P1 => pa_ + "revamo" ; + Indi Imperf Pl P2 => pa_ + "revate" ; + Indi Imperf Pl P3 => pa_ + "revano" ; + Pass Sg P1 => pa_ + "rvi" ; + Pass Sg P2 => pa_ + "resti" ; + Pass Sg P3 => pa_ + "rve" ; + Pass Pl P1 => pa_ + "remmo" ; + Pass Pl P2 => pa_ + "reste" ; + Pass Pl P3 => pa_ + "rvero" ; + Fut Sg P1 => pa_ + "rrò" ; + Fut Sg P2 => pa_ + "rrai" ; + Fut Sg P3 => pa_ + "rrà" ; + Fut Pl P1 => pa_ + "rremo" ; + Fut Pl P2 => pa_ + "rrete" ; + Fut Pl P3 => pa_ + "rranno" ; + Cong Pres Sg P1 => pa_ + "ia" ; + Cong Pres Sg P2 => pa_ + "ia" ; + Cong Pres Sg P3 => pa_ + "ia" ; + Cong Pres Pl P1 => pa_ + "riamo" ; + Cong Pres Pl P2 => pa_ + "riate" ; + Cong Pres Pl P3 => pa_ + "iano" ; + Cong Imperf Sg P1 => pa_ + "ressi" ; + Cong Imperf Sg P2 => pa_ + "ressi" ; + Cong Imperf Sg P3 => pa_ + "resse" ; + Cong Imperf Pl P1 => pa_ + "ressimo" ; + Cong Imperf Pl P2 => pa_ + "reste" ; + Cong Imperf Pl P3 => pa_ + "ressero" ; + Cond Sg P1 => pa_ + "rrei" ; + Cond Sg P2 => pa_ + "rresti" ; + Cond Sg P3 => pa_ + "rrebbe" ; + Cond Pl P1 => pa_ + "rremmo" ; + Cond Pl P2 => pa_ + "rreste" ; + Cond Pl P3 => pa_ + "rrebbero" ; + Imper SgP2 => variants {} ; + Imper PlP1 => variants {} ; + Imper PlP2 => variants {} ; + Ger => pa_ + "rendo" ; + Part PresP Masc Sg => pa_ + "rvente" ; + Part PresP Masc Pl => pa_ + "rventi" ; + Part PresP Fem Sg => pa_ + "rvente" ; + Part PresP Fem Pl => pa_ + "rventi" ; + Part PassP Masc Sg => pa_ + "rso" ; + Part PassP Masc Pl => pa_ + "rsi" ; + Part PassP Fem Sg => pa_ + "rsa" ; + Part PassP Fem Pl => pa_ + "rse" + } + } ; + +oper perdere_62 : Str -> Verbo = \perdere -> + let per_ = Predef.tk 4 perdere in + {s = table { + Inf => per_ + "dere" ; + InfClit => per_ + "der" ; + Indi Pres Sg P1 => per_ + "do" ; + Indi Pres Sg P2 => per_ + "di" ; + Indi Pres Sg P3 => per_ + "de" ; + Indi Pres Pl P1 => per_ + "diamo" ; + Indi Pres Pl P2 => per_ + "dete" ; + Indi Pres Pl P3 => per_ + "dono" ; + Indi Imperf Sg P1 => per_ + "devo" ; + Indi Imperf Sg P2 => per_ + "devi" ; + Indi Imperf Sg P3 => per_ + "deva" ; + Indi Imperf Pl P1 => per_ + "devamo" ; + Indi Imperf Pl P2 => per_ + "devate" ; + Indi Imperf Pl P3 => per_ + "devano" ; + Pass Sg P1 => per_ + "si" ; + Pass Sg P2 => per_ + "desti" ; + Pass Sg P3 => per_ + "se" ; + Pass Pl P1 => per_ + "demmo" ; + Pass Pl P2 => per_ + "deste" ; + Pass Pl P3 => per_ + "sero" ; + Fut Sg P1 => per_ + "derò" ; + Fut Sg P2 => per_ + "derai" ; + Fut Sg P3 => per_ + "derà" ; + Fut Pl P1 => per_ + "deremo" ; + Fut Pl P2 => per_ + "derete" ; + Fut Pl P3 => per_ + "deranno" ; + Cong Pres Sg P1 => per_ + "da" ; + Cong Pres Sg P2 => per_ + "da" ; + Cong Pres Sg P3 => per_ + "da" ; + Cong Pres Pl P1 => per_ + "diamo" ; + Cong Pres Pl P2 => per_ + "diate" ; + Cong Pres Pl P3 => per_ + "dano" ; + Cong Imperf Sg P1 => per_ + "dessi" ; + Cong Imperf Sg P2 => per_ + "dessi" ; + Cong Imperf Sg P3 => per_ + "desse" ; + Cong Imperf Pl P1 => per_ + "dessimo" ; + Cong Imperf Pl P2 => per_ + "deste" ; + Cong Imperf Pl P3 => per_ + "dessero" ; + Cond Sg P1 => per_ + "derei" ; + Cond Sg P2 => per_ + "deresti" ; + Cond Sg P3 => per_ + "derebbe" ; + Cond Pl P1 => per_ + "deremmo" ; + Cond Pl P2 => per_ + "dereste" ; + Cond Pl P3 => per_ + "derebbero" ; + Imper SgP2 => per_ + "di" ; + Imper PlP1 => per_ + "diamo" ; + Imper PlP2 => per_ + "dete" ; + Ger => per_ + "dendo" ; + Part PresP Masc Sg => per_ + "dente" ; + Part PresP Masc Pl => per_ + "denti" ; + Part PresP Fem Sg => per_ + "dente" ; + Part PresP Fem Pl => per_ + "denti" ; + Part PassP Masc Sg => variants {per_ + "duto" ; per_ + "so"} ; + Part PassP Masc Pl => variants {per_ + "duti" ; per_ + "si"} ; + Part PassP Fem Sg => variants {per_ + "duta" ; per_ + "sa"} ; + Part PassP Fem Pl => variants {per_ + "dute" ; per_ + "se"} + } + } ; + +oper persuadere_63 : Str -> Verbo = \persuadere -> + let persua_ = Predef.tk 4 persuadere in + {s = table { + Inf => persua_ + "dere" ; + InfClit => persua_ + "der" ; + Indi Pres Sg P1 => persua_ + "do" ; + Indi Pres Sg P2 => persua_ + "di" ; + Indi Pres Sg P3 => persua_ + "de" ; + Indi Pres Pl P1 => persua_ + "diamo" ; + Indi Pres Pl P2 => persua_ + "dete" ; + Indi Pres Pl P3 => persua_ + "dono" ; + Indi Imperf Sg P1 => persua_ + "devo" ; + Indi Imperf Sg P2 => persua_ + "devi" ; + Indi Imperf Sg P3 => persua_ + "deva" ; + Indi Imperf Pl P1 => persua_ + "devamo" ; + Indi Imperf Pl P2 => persua_ + "devate" ; + Indi Imperf Pl P3 => persua_ + "devano" ; + Pass Sg P1 => persua_ + "si" ; + Pass Sg P2 => persua_ + "desti" ; + Pass Sg P3 => persua_ + "se" ; + Pass Pl P1 => persua_ + "demmo" ; + Pass Pl P2 => persua_ + "deste" ; + Pass Pl P3 => persua_ + "sero" ; + Fut Sg P1 => persua_ + "derò" ; + Fut Sg P2 => persua_ + "derai" ; + Fut Sg P3 => persua_ + "derà" ; + Fut Pl P1 => persua_ + "deremo" ; + Fut Pl P2 => persua_ + "derete" ; + Fut Pl P3 => persua_ + "deranno" ; + Cong Pres Sg P1 => persua_ + "da" ; + Cong Pres Sg P2 => persua_ + "da" ; + Cong Pres Sg P3 => persua_ + "da" ; + Cong Pres Pl P1 => persua_ + "diamo" ; + Cong Pres Pl P2 => persua_ + "diate" ; + Cong Pres Pl P3 => persua_ + "dano" ; + Cong Imperf Sg P1 => persua_ + "dessi" ; + Cong Imperf Sg P2 => persua_ + "dessi" ; + Cong Imperf Sg P3 => persua_ + "desse" ; + Cong Imperf Pl P1 => persua_ + "dessimo" ; + Cong Imperf Pl P2 => persua_ + "deste" ; + Cong Imperf Pl P3 => persua_ + "dessero" ; + Cond Sg P1 => persua_ + "derei" ; + Cond Sg P2 => persua_ + "deresti" ; + Cond Sg P3 => persua_ + "derebbe" ; + Cond Pl P1 => persua_ + "deremmo" ; + Cond Pl P2 => persua_ + "dereste" ; + Cond Pl P3 => persua_ + "derebbero" ; + Imper SgP2 => persua_ + "di" ; + Imper PlP1 => persua_ + "diamo" ; + Imper PlP2 => persua_ + "dete" ; + Ger => persua_ + "dendo" ; + Part PresP Masc Sg => persua_ + "dente" ; + Part PresP Masc Pl => persua_ + "denti" ; + Part PresP Fem Sg => persua_ + "dente" ; + Part PresP Fem Pl => persua_ + "denti" ; + Part PassP Masc Sg => persua_ + "so" ; + Part PassP Masc Pl => persua_ + "si" ; + Part PassP Fem Sg => persua_ + "sa" ; + Part PassP Fem Pl => persua_ + "se" + } + } ; + +oper piacere_64 : Str -> Verbo = \piacerecere -> + let piacerec_ = Predef.tk 3 piacerecere in + {s = table { + Inf => piacerec_ + "ere" ; + InfClit => piacerec_ + "er" ; + Indi Pres Sg P1 => piacerec_ + "cio" ; + Indi Pres Sg P2 => piacerec_ + "i" ; + Indi Pres Sg P3 => piacerec_ + "e" ; + Indi Pres Pl P1 => piacerec_ + "iamo" ; + Indi Pres Pl P2 => piacerec_ + "ete" ; + Indi Pres Pl P3 => piacerec_ + "ciono" ; + Indi Imperf Sg P1 => piacerec_ + "evo" ; + Indi Imperf Sg P2 => piacerec_ + "evi" ; + Indi Imperf Sg P3 => piacerec_ + "eva" ; + Indi Imperf Pl P1 => piacerec_ + "evamo" ; + Indi Imperf Pl P2 => piacerec_ + "evate" ; + Indi Imperf Pl P3 => piacerec_ + "evano" ; + Pass Sg P1 => piacerec_ + "qui" ; + Pass Sg P2 => piacerec_ + "esti" ; + Pass Sg P3 => piacerec_ + "que" ; + Pass Pl P1 => piacerec_ + "emmo" ; + Pass Pl P2 => piacerec_ + "este" ; + Pass Pl P3 => piacerec_ + "quero" ; + Fut Sg P1 => piacerec_ + "erò" ; + Fut Sg P2 => piacerec_ + "erai" ; + Fut Sg P3 => piacerec_ + "erà" ; + Fut Pl P1 => piacerec_ + "eremo" ; + Fut Pl P2 => piacerec_ + "erete" ; + Fut Pl P3 => piacerec_ + "eranno" ; + Cong Pres Sg P1 => piacerec_ + "cia" ; + Cong Pres Sg P2 => piacerec_ + "cia" ; + Cong Pres Sg P3 => piacerec_ + "cia" ; + Cong Pres Pl P1 => piacerec_ + "iamo" ; + Cong Pres Pl P2 => piacerec_ + "iate" ; + Cong Pres Pl P3 => piacerec_ + "ciano" ; + Cong Imperf Sg P1 => piacerec_ + "essi" ; + Cong Imperf Sg P2 => piacerec_ + "essi" ; + Cong Imperf Sg P3 => piacerec_ + "esse" ; + Cong Imperf Pl P1 => piacerec_ + "essimo" ; + Cong Imperf Pl P2 => piacerec_ + "este" ; + Cong Imperf Pl P3 => piacerec_ + "essero" ; + Cond Sg P1 => piacerec_ + "erei" ; + Cond Sg P2 => piacerec_ + "eresti" ; + Cond Sg P3 => piacerec_ + "erebbe" ; + Cond Pl P1 => piacerec_ + "eremmo" ; + Cond Pl P2 => piacerec_ + "ereste" ; + Cond Pl P3 => piacerec_ + "erebbero" ; + Imper SgP2 => piacerec_ + "i" ; + Imper PlP1 => piacerec_ + "iamo" ; + Imper PlP2 => piacerec_ + "ete" ; + Ger => piacerec_ + "endo" ; + Part PresP Masc Sg => piacerec_ + "ente" ; + Part PresP Masc Pl => piacerec_ + "enti" ; + Part PresP Fem Sg => piacerec_ + "ente" ; + Part PresP Fem Pl => piacerec_ + "enti" ; + Part PassP Masc Sg => piacerec_ + "iuto" ; + Part PassP Masc Pl => piacerec_ + "iuti" ; + Part PassP Fem Sg => piacerec_ + "iuta" ; + Part PassP Fem Pl => piacerec_ + "iute" + } + } ; + +oper piangere_65 : Str -> Verbo = \piangere -> + let pian_ = Predef.tk 4 piangere in + {s = table { + Inf => pian_ + "gere" ; + InfClit => pian_ + "ger" ; + Indi Pres Sg P1 => pian_ + "go" ; + Indi Pres Sg P2 => pian_ + "gi" ; + Indi Pres Sg P3 => pian_ + "ge" ; + Indi Pres Pl P1 => pian_ + "giamo" ; + Indi Pres Pl P2 => pian_ + "gete" ; + Indi Pres Pl P3 => pian_ + "gono" ; + Indi Imperf Sg P1 => pian_ + "gevo" ; + Indi Imperf Sg P2 => pian_ + "gevi" ; + Indi Imperf Sg P3 => pian_ + "geva" ; + Indi Imperf Pl P1 => pian_ + "gevamo" ; + Indi Imperf Pl P2 => pian_ + "gevate" ; + Indi Imperf Pl P3 => pian_ + "gevano" ; + Pass Sg P1 => pian_ + "si" ; + Pass Sg P2 => pian_ + "gesti" ; + Pass Sg P3 => pian_ + "se" ; + Pass Pl P1 => pian_ + "gemmo" ; + Pass Pl P2 => pian_ + "geste" ; + Pass Pl P3 => pian_ + "sero" ; + Fut Sg P1 => pian_ + "gerò" ; + Fut Sg P2 => pian_ + "gerai" ; + Fut Sg P3 => pian_ + "gerà" ; + Fut Pl P1 => pian_ + "geremo" ; + Fut Pl P2 => pian_ + "gerete" ; + Fut Pl P3 => pian_ + "geranno" ; + Cong Pres Sg P1 => pian_ + "ga" ; + Cong Pres Sg P2 => pian_ + "ga" ; + Cong Pres Sg P3 => pian_ + "ga" ; + Cong Pres Pl P1 => pian_ + "giamo" ; + Cong Pres Pl P2 => pian_ + "giate" ; + Cong Pres Pl P3 => pian_ + "gano" ; + Cong Imperf Sg P1 => pian_ + "gessi" ; + Cong Imperf Sg P2 => pian_ + "gessi" ; + Cong Imperf Sg P3 => pian_ + "gesse" ; + Cong Imperf Pl P1 => pian_ + "gessimo" ; + Cong Imperf Pl P2 => pian_ + "geste" ; + Cong Imperf Pl P3 => pian_ + "gessero" ; + Cond Sg P1 => pian_ + "gerei" ; + Cond Sg P2 => pian_ + "geresti" ; + Cond Sg P3 => pian_ + "gerebbe" ; + Cond Pl P1 => pian_ + "geremmo" ; + Cond Pl P2 => pian_ + "gereste" ; + Cond Pl P3 => pian_ + "gerebbero" ; + Imper SgP2 => pian_ + "gi" ; + Imper PlP1 => pian_ + "giamo" ; + Imper PlP2 => pian_ + "gete" ; + Ger => pian_ + "gendo" ; + Part PresP Masc Sg => pian_ + "gente" ; + Part PresP Masc Pl => pian_ + "genti" ; + Part PresP Fem Sg => pian_ + "gente" ; + Part PresP Fem Pl => pian_ + "genti" ; + Part PassP Masc Sg => pian_ + "to" ; + Part PassP Masc Pl => pian_ + "ti" ; + Part PassP Fem Sg => pian_ + "ta" ; + Part PassP Fem Pl => pian_ + "te" + } + } ; + +oper piovere_66 : Str -> Verbo = \piovere -> + let piov_ = Predef.tk 3 piovere in + {s = table { + Inf => piov_ + "ere" ; + InfClit => piov_ + "er" ; + Indi Pres Sg P1 => piov_ + "o" ; + Indi Pres Sg P2 => piov_ + "i" ; + Indi Pres Sg P3 => piov_ + "e" ; + Indi Pres Pl P1 => piov_ + "iamo" ; + Indi Pres Pl P2 => piov_ + "ete" ; + Indi Pres Pl P3 => piov_ + "ono" ; + Indi Imperf Sg P1 => piov_ + "evo" ; + Indi Imperf Sg P2 => piov_ + "evi" ; + Indi Imperf Sg P3 => piov_ + "eva" ; + Indi Imperf Pl P1 => piov_ + "evamo" ; + Indi Imperf Pl P2 => piov_ + "evate" ; + Indi Imperf Pl P3 => piov_ + "evano" ; + Pass Sg P1 => piov_ + "vi" ; + Pass Sg P2 => piov_ + "esti" ; + Pass Sg P3 => piov_ + "ve" ; + Pass Pl P1 => piov_ + "emmo" ; + Pass Pl P2 => piov_ + "este" ; + Pass Pl P3 => piov_ + "vero" ; + Fut Sg P1 => piov_ + "erò" ; + Fut Sg P2 => piov_ + "erai" ; + Fut Sg P3 => piov_ + "erà" ; + Fut Pl P1 => piov_ + "eremo" ; + Fut Pl P2 => piov_ + "erete" ; + Fut Pl P3 => piov_ + "eranno" ; + Cong Pres Sg P1 => piov_ + "a" ; + Cong Pres Sg P2 => piov_ + "a" ; + Cong Pres Sg P3 => piov_ + "a" ; + Cong Pres Pl P1 => piov_ + "iamo" ; + Cong Pres Pl P2 => piov_ + "iate" ; + Cong Pres Pl P3 => piov_ + "ano" ; + Cong Imperf Sg P1 => piov_ + "essi" ; + Cong Imperf Sg P2 => piov_ + "essi" ; + Cong Imperf Sg P3 => piov_ + "esse" ; + Cong Imperf Pl P1 => piov_ + "essimo" ; + Cong Imperf Pl P2 => piov_ + "este" ; + Cong Imperf Pl P3 => piov_ + "essero" ; + Cond Sg P1 => piov_ + "erei" ; + Cond Sg P2 => piov_ + "eresti" ; + Cond Sg P3 => piov_ + "erebbe" ; + Cond Pl P1 => piov_ + "eremmo" ; + Cond Pl P2 => piov_ + "ereste" ; + Cond Pl P3 => piov_ + "erebbero" ; + Imper SgP2 => piov_ + "i" ; + Imper PlP1 => piov_ + "iamo" ; + Imper PlP2 => piov_ + "ete" ; + Ger => piov_ + "endo" ; + Part PresP Masc Sg => piov_ + "ente" ; + Part PresP Masc Pl => piov_ + "enti" ; + Part PresP Fem Sg => piov_ + "ente" ; + Part PresP Fem Pl => piov_ + "enti" ; + Part PassP Masc Sg => piov_ + "uto" ; + Part PassP Masc Pl => piov_ + "uti" ; + Part PassP Fem Sg => piov_ + "uta" ; + Part PassP Fem Pl => piov_ + "ute" + } + } ; + +oper porgere_67 : Str -> Verbo = \porgere -> + let por_ = Predef.tk 4 porgere in + {s = table { + Inf => por_ + "gere" ; + InfClit => por_ + "ger" ; + Indi Pres Sg P1 => por_ + "go" ; + Indi Pres Sg P2 => por_ + "gi" ; + Indi Pres Sg P3 => por_ + "ge" ; + Indi Pres Pl P1 => por_ + "giamo" ; + Indi Pres Pl P2 => por_ + "gete" ; + Indi Pres Pl P3 => por_ + "gono" ; + Indi Imperf Sg P1 => por_ + "gevo" ; + Indi Imperf Sg P2 => por_ + "gevi" ; + Indi Imperf Sg P3 => por_ + "geva" ; + Indi Imperf Pl P1 => por_ + "gevamo" ; + Indi Imperf Pl P2 => por_ + "gevate" ; + Indi Imperf Pl P3 => por_ + "gevano" ; + Pass Sg P1 => por_ + "si" ; + Pass Sg P2 => por_ + "gesti" ; + Pass Sg P3 => por_ + "se" ; + Pass Pl P1 => por_ + "gemmo" ; + Pass Pl P2 => por_ + "geste" ; + Pass Pl P3 => por_ + "sero" ; + Fut Sg P1 => por_ + "gerò" ; + Fut Sg P2 => por_ + "gerai" ; + Fut Sg P3 => por_ + "gerà" ; + Fut Pl P1 => por_ + "geremo" ; + Fut Pl P2 => por_ + "gerete" ; + Fut Pl P3 => por_ + "geranno" ; + Cong Pres Sg P1 => por_ + "ga" ; + Cong Pres Sg P2 => por_ + "ga" ; + Cong Pres Sg P3 => por_ + "ga" ; + Cong Pres Pl P1 => por_ + "giamo" ; + Cong Pres Pl P2 => por_ + "giate" ; + Cong Pres Pl P3 => por_ + "gano" ; + Cong Imperf Sg P1 => por_ + "gessi" ; + Cong Imperf Sg P2 => por_ + "gessi" ; + Cong Imperf Sg P3 => por_ + "gesse" ; + Cong Imperf Pl P1 => por_ + "gessimo" ; + Cong Imperf Pl P2 => por_ + "geste" ; + Cong Imperf Pl P3 => por_ + "gessero" ; + Cond Sg P1 => por_ + "gerei" ; + Cond Sg P2 => por_ + "geresti" ; + Cond Sg P3 => por_ + "gerebbe" ; + Cond Pl P1 => por_ + "geremmo" ; + Cond Pl P2 => por_ + "gereste" ; + Cond Pl P3 => por_ + "gerebbero" ; + Imper SgP2 => por_ + "gi" ; + Imper PlP1 => por_ + "giamo" ; + Imper PlP2 => por_ + "gete" ; + Ger => por_ + "gendo" ; + Part PresP Masc Sg => por_ + "gente" ; + Part PresP Masc Pl => por_ + "genti" ; + Part PresP Fem Sg => por_ + "gente" ; + Part PresP Fem Pl => por_ + "genti" ; + Part PassP Masc Sg => por_ + "to" ; + Part PassP Masc Pl => por_ + "ti" ; + Part PassP Fem Sg => por_ + "ta" ; + Part PassP Fem Pl => por_ + "te" + } + } ; + +oper porre_68 : Str -> Verbo = \porre -> + let po_ = Predef.tk 3 porre in + {s = table { + Inf => po_ + "rre" ; + InfClit => po_ + "r" ; + Indi Pres Sg P1 => po_ + "ngo" ; + Indi Pres Sg P2 => po_ + "ni" ; + Indi Pres Sg P3 => po_ + "ne" ; + Indi Pres Pl P1 => po_ + "niamo" ; + Indi Pres Pl P2 => po_ + "nete" ; + Indi Pres Pl P3 => po_ + "ngono" ; + Indi Imperf Sg P1 => po_ + "nevo" ; + Indi Imperf Sg P2 => po_ + "nevi" ; + Indi Imperf Sg P3 => po_ + "neva" ; + Indi Imperf Pl P1 => po_ + "nevamo" ; + Indi Imperf Pl P2 => po_ + "nevate" ; + Indi Imperf Pl P3 => po_ + "nevano" ; + Pass Sg P1 => po_ + "si" ; + Pass Sg P2 => po_ + "nesti" ; + Pass Sg P3 => po_ + "se" ; + Pass Pl P1 => po_ + "nemmo" ; + Pass Pl P2 => po_ + "neste" ; + Pass Pl P3 => po_ + "sero" ; + Fut Sg P1 => po_ + "rrò" ; + Fut Sg P2 => po_ + "rrai" ; + Fut Sg P3 => po_ + "rrà" ; + Fut Pl P1 => po_ + "rremo" ; + Fut Pl P2 => po_ + "rrete" ; + Fut Pl P3 => po_ + "rranno" ; + Cong Pres Sg P1 => po_ + "nga" ; + Cong Pres Sg P2 => po_ + "nga" ; + Cong Pres Sg P3 => po_ + "nga" ; + Cong Pres Pl P1 => po_ + "niamo" ; + Cong Pres Pl P2 => po_ + "niate" ; + Cong Pres Pl P3 => po_ + "ngano" ; + Cong Imperf Sg P1 => po_ + "nessi" ; + Cong Imperf Sg P2 => po_ + "nessi" ; + Cong Imperf Sg P3 => po_ + "nesse" ; + Cong Imperf Pl P1 => po_ + "nessimo" ; + Cong Imperf Pl P2 => po_ + "neste" ; + Cong Imperf Pl P3 => po_ + "nessero" ; + Cond Sg P1 => po_ + "rrei" ; + Cond Sg P2 => po_ + "rresti" ; + Cond Sg P3 => po_ + "rrebbe" ; + Cond Pl P1 => po_ + "rremmo" ; + Cond Pl P2 => po_ + "rreste" ; + Cond Pl P3 => po_ + "rrebbero" ; + Imper SgP2 => po_ + "ni" ; + Imper PlP1 => po_ + "niamo" ; + Imper PlP2 => po_ + "nete" ; + Ger => po_ + "nendo" ; + Part PresP Masc Sg => po_ + "nente" ; + Part PresP Masc Pl => po_ + "nenti" ; + Part PresP Fem Sg => po_ + "nente" ; + Part PresP Fem Pl => po_ + "nenti" ; + Part PassP Masc Sg => po_ + "sto" ; + Part PassP Masc Pl => po_ + "sti" ; + Part PassP Fem Sg => po_ + "sta" ; + Part PassP Fem Pl => po_ + "ste" + } + } ; + +oper potere_69 : Str -> Verbo = \potere -> + let p_ = Predef.tk 5 potere in + {s = table { + Inf => p_ + "otere" ; + InfClit => p_ + "oter" ; + Indi Pres Sg P1 => p_ + "osso" ; + Indi Pres Sg P2 => p_ + "uoi" ; + Indi Pres Sg P3 => p_ + "uò" ; + Indi Pres Pl P1 => p_ + "otiamo" ; + Indi Pres Pl P2 => p_ + "otete" ; + Indi Pres Pl P3 => p_ + "ossono" ; + Indi Imperf Sg P1 => p_ + "otevo" ; + Indi Imperf Sg P2 => p_ + "otevi" ; + Indi Imperf Sg P3 => p_ + "oteva" ; + Indi Imperf Pl P1 => p_ + "otevamo" ; + Indi Imperf Pl P2 => p_ + "otevate" ; + Indi Imperf Pl P3 => p_ + "otevano" ; + Pass Sg P1 => p_ + "otetti" ; + Pass Sg P2 => p_ + "otesti" ; + Pass Sg P3 => p_ + "otette" ; + Pass Pl P1 => p_ + "otemmo" ; + Pass Pl P2 => p_ + "oteste" ; + Pass Pl P3 => p_ + "otettero" ; + Fut Sg P1 => p_ + "otrò" ; + Fut Sg P2 => p_ + "otrai" ; + Fut Sg P3 => p_ + "otrà" ; + Fut Pl P1 => p_ + "otremo" ; + Fut Pl P2 => p_ + "otrete" ; + Fut Pl P3 => p_ + "otranno" ; + Cong Pres Sg P1 => p_ + "ossa" ; + Cong Pres Sg P2 => p_ + "ossa" ; + Cong Pres Sg P3 => p_ + "ossa" ; + Cong Pres Pl P1 => p_ + "otiamo" ; + Cong Pres Pl P2 => p_ + "otiate" ; + Cong Pres Pl P3 => p_ + "ossano" ; + Cong Imperf Sg P1 => p_ + "otessi" ; + Cong Imperf Sg P2 => p_ + "otessi" ; + Cong Imperf Sg P3 => p_ + "otesse" ; + Cong Imperf Pl P1 => p_ + "otessimo" ; + Cong Imperf Pl P2 => p_ + "oteste" ; + Cong Imperf Pl P3 => p_ + "otessero" ; + Cond Sg P1 => p_ + "otrei" ; + Cond Sg P2 => p_ + "otresti" ; + Cond Sg P3 => p_ + "otrebbe" ; + Cond Pl P1 => p_ + "otremmo" ; + Cond Pl P2 => p_ + "otreste" ; + Cond Pl P3 => p_ + "otrebbero" ; + Imper SgP2 => variants {} ; + Imper PlP1 => variants {} ; + Imper PlP2 => variants {} ; + Ger => p_ + "otendo" ; + Part PresP Masc Sg => p_ + "otente" ; + Part PresP Masc Pl => p_ + "otenti" ; + Part PresP Fem Sg => p_ + "otente" ; + Part PresP Fem Pl => p_ + "otenti" ; + Part PassP Masc Sg => p_ + "otuto" ; + Part PassP Masc Pl => p_ + "otuti" ; + Part PassP Fem Sg => p_ + "otuta" ; + Part PassP Fem Pl => p_ + "otute" + } + } ; + +oper prendere_70 : Str -> Verbo = \prendere -> + let pre_ = Predef.tk 5 prendere in + {s = table { + Inf => pre_ + "ndere" ; + InfClit => pre_ + "nder" ; + Indi Pres Sg P1 => pre_ + "ndo" ; + Indi Pres Sg P2 => pre_ + "ndi" ; + Indi Pres Sg P3 => pre_ + "nde" ; + Indi Pres Pl P1 => pre_ + "ndiamo" ; + Indi Pres Pl P2 => pre_ + "ndete" ; + Indi Pres Pl P3 => pre_ + "ndono" ; + Indi Imperf Sg P1 => pre_ + "ndevo" ; + Indi Imperf Sg P2 => pre_ + "ndevi" ; + Indi Imperf Sg P3 => pre_ + "ndeva" ; + Indi Imperf Pl P1 => pre_ + "ndevamo" ; + Indi Imperf Pl P2 => pre_ + "ndevate" ; + Indi Imperf Pl P3 => pre_ + "ndevano" ; + Pass Sg P1 => pre_ + "si" ; + Pass Sg P2 => pre_ + "ndesti" ; + Pass Sg P3 => pre_ + "se" ; + Pass Pl P1 => pre_ + "ndemmo" ; + Pass Pl P2 => pre_ + "ndeste" ; + Pass Pl P3 => pre_ + "sero" ; + Fut Sg P1 => pre_ + "nderò" ; + Fut Sg P2 => pre_ + "nderai" ; + Fut Sg P3 => pre_ + "nderà" ; + Fut Pl P1 => pre_ + "nderemo" ; + Fut Pl P2 => pre_ + "nderete" ; + Fut Pl P3 => pre_ + "nderanno" ; + Cong Pres Sg P1 => pre_ + "nda" ; + Cong Pres Sg P2 => pre_ + "nda" ; + Cong Pres Sg P3 => pre_ + "nda" ; + Cong Pres Pl P1 => pre_ + "ndiamo" ; + Cong Pres Pl P2 => pre_ + "ndiate" ; + Cong Pres Pl P3 => pre_ + "ndano" ; + Cong Imperf Sg P1 => pre_ + "ndessi" ; + Cong Imperf Sg P2 => pre_ + "ndessi" ; + Cong Imperf Sg P3 => pre_ + "ndesse" ; + Cong Imperf Pl P1 => pre_ + "ndessimo" ; + Cong Imperf Pl P2 => pre_ + "ndeste" ; + Cong Imperf Pl P3 => pre_ + "ndessero" ; + Cond Sg P1 => pre_ + "nderei" ; + Cond Sg P2 => pre_ + "nderesti" ; + Cond Sg P3 => pre_ + "nderebbe" ; + Cond Pl P1 => pre_ + "nderemmo" ; + Cond Pl P2 => pre_ + "ndereste" ; + Cond Pl P3 => pre_ + "nderebbero" ; + Imper SgP2 => pre_ + "ndi" ; + Imper PlP1 => pre_ + "ndiamo" ; + Imper PlP2 => pre_ + "ndete" ; + Ger => pre_ + "ndendo" ; + Part PresP Masc Sg => pre_ + "ndente" ; + Part PresP Masc Pl => pre_ + "ndenti" ; + Part PresP Fem Sg => pre_ + "ndente" ; + Part PresP Fem Pl => pre_ + "ndenti" ; + Part PassP Masc Sg => pre_ + "so" ; + Part PassP Masc Pl => pre_ + "si" ; + Part PassP Fem Sg => pre_ + "sa" ; + Part PassP Fem Pl => pre_ + "se" + } + } ; + +oper radere_71 : Str -> Verbo = \radere -> + let ra_ = Predef.tk 4 radere in + {s = table { + Inf => ra_ + "dere" ; + InfClit => ra_ + "der" ; + Indi Pres Sg P1 => ra_ + "do" ; + Indi Pres Sg P2 => ra_ + "di" ; + Indi Pres Sg P3 => ra_ + "de" ; + Indi Pres Pl P1 => ra_ + "diamo" ; + Indi Pres Pl P2 => ra_ + "dete" ; + Indi Pres Pl P3 => ra_ + "dono" ; + Indi Imperf Sg P1 => ra_ + "devo" ; + Indi Imperf Sg P2 => ra_ + "devi" ; + Indi Imperf Sg P3 => ra_ + "deva" ; + Indi Imperf Pl P1 => ra_ + "devamo" ; + Indi Imperf Pl P2 => ra_ + "devate" ; + Indi Imperf Pl P3 => ra_ + "devano" ; + Pass Sg P1 => ra_ + "si" ; + Pass Sg P2 => ra_ + "desti" ; + Pass Sg P3 => ra_ + "se" ; + Pass Pl P1 => ra_ + "demmo" ; + Pass Pl P2 => ra_ + "deste" ; + Pass Pl P3 => ra_ + "sero" ; + Fut Sg P1 => ra_ + "derò" ; + Fut Sg P2 => ra_ + "derai" ; + Fut Sg P3 => ra_ + "derà" ; + Fut Pl P1 => ra_ + "deremo" ; + Fut Pl P2 => ra_ + "derete" ; + Fut Pl P3 => ra_ + "deranno" ; + Cong Pres Sg P1 => ra_ + "da" ; + Cong Pres Sg P2 => ra_ + "da" ; + Cong Pres Sg P3 => ra_ + "da" ; + Cong Pres Pl P1 => ra_ + "diamo" ; + Cong Pres Pl P2 => ra_ + "diate" ; + Cong Pres Pl P3 => ra_ + "dano" ; + Cong Imperf Sg P1 => ra_ + "dessi" ; + Cong Imperf Sg P2 => ra_ + "dessi" ; + Cong Imperf Sg P3 => ra_ + "desse" ; + Cong Imperf Pl P1 => ra_ + "dessimo" ; + Cong Imperf Pl P2 => ra_ + "deste" ; + Cong Imperf Pl P3 => ra_ + "dessero" ; + Cond Sg P1 => ra_ + "derei" ; + Cond Sg P2 => ra_ + "deresti" ; + Cond Sg P3 => ra_ + "derebbe" ; + Cond Pl P1 => ra_ + "deremmo" ; + Cond Pl P2 => ra_ + "dereste" ; + Cond Pl P3 => ra_ + "derebbero" ; + Imper SgP2 => ra_ + "di" ; + Imper PlP1 => ra_ + "diamo" ; + Imper PlP2 => ra_ + "dete" ; + Ger => ra_ + "dendo" ; + Part PresP Masc Sg => ra_ + "dente" ; + Part PresP Masc Pl => ra_ + "denti" ; + Part PresP Fem Sg => ra_ + "dente" ; + Part PresP Fem Pl => ra_ + "denti" ; + Part PassP Masc Sg => ra_ + "so" ; + Part PassP Masc Pl => ra_ + "si" ; + Part PassP Fem Sg => ra_ + "sa" ; + Part PassP Fem Pl => ra_ + "se" + } + } ; + +oper redigere_72 : Str -> Verbo = \redigere -> + let red_ = Predef.tk 5 redigere in + {s = table { + Inf => red_ + "igere" ; + InfClit => red_ + "iger" ; + Indi Pres Sg P1 => red_ + "igo" ; + Indi Pres Sg P2 => red_ + "igi" ; + Indi Pres Sg P3 => red_ + "ige" ; + Indi Pres Pl P1 => red_ + "igiamo" ; + Indi Pres Pl P2 => red_ + "igete" ; + Indi Pres Pl P3 => red_ + "igono" ; + Indi Imperf Sg P1 => red_ + "igevo" ; + Indi Imperf Sg P2 => red_ + "igevi" ; + Indi Imperf Sg P3 => red_ + "igeva" ; + Indi Imperf Pl P1 => red_ + "igevamo" ; + Indi Imperf Pl P2 => red_ + "igevate" ; + Indi Imperf Pl P3 => red_ + "igevano" ; + Pass Sg P1 => red_ + "assi" ; + Pass Sg P2 => red_ + "igesti" ; + Pass Sg P3 => red_ + "asse" ; + Pass Pl P1 => red_ + "igemmo" ; + Pass Pl P2 => red_ + "igeste" ; + Pass Pl P3 => red_ + "assero" ; + Fut Sg P1 => red_ + "igerò" ; + Fut Sg P2 => red_ + "igerai" ; + Fut Sg P3 => red_ + "igerà" ; + Fut Pl P1 => red_ + "igeremo" ; + Fut Pl P2 => red_ + "igerete" ; + Fut Pl P3 => red_ + "igeranno" ; + Cong Pres Sg P1 => red_ + "iga" ; + Cong Pres Sg P2 => red_ + "iga" ; + Cong Pres Sg P3 => red_ + "iga" ; + Cong Pres Pl P1 => red_ + "igiamo" ; + Cong Pres Pl P2 => red_ + "igiate" ; + Cong Pres Pl P3 => red_ + "igano" ; + Cong Imperf Sg P1 => red_ + "igessi" ; + Cong Imperf Sg P2 => red_ + "igessi" ; + Cong Imperf Sg P3 => red_ + "igesse" ; + Cong Imperf Pl P1 => red_ + "igessimo" ; + Cong Imperf Pl P2 => red_ + "igeste" ; + Cong Imperf Pl P3 => red_ + "igessero" ; + Cond Sg P1 => red_ + "igerei" ; + Cond Sg P2 => red_ + "igeresti" ; + Cond Sg P3 => red_ + "igerebbe" ; + Cond Pl P1 => red_ + "igeremmo" ; + Cond Pl P2 => red_ + "igereste" ; + Cond Pl P3 => red_ + "igerebbero" ; + Imper SgP2 => red_ + "igi" ; + Imper PlP1 => red_ + "igiamo" ; + Imper PlP2 => red_ + "igete" ; + Ger => red_ + "igendo" ; + Part PresP Masc Sg => red_ + "igente" ; + Part PresP Masc Pl => red_ + "igenti" ; + Part PresP Fem Sg => red_ + "igente" ; + Part PresP Fem Pl => red_ + "igenti" ; + Part PassP Masc Sg => red_ + "atto" ; + Part PassP Masc Pl => red_ + "atti" ; + Part PassP Fem Sg => red_ + "atta" ; + Part PassP Fem Pl => red_ + "atte" + } + } ; + +oper redimere_73 : Str -> Verbo = \redimere -> + let red_ = Predef.tk 5 redimere in + {s = table { + Inf => red_ + "imere" ; + InfClit => red_ + "imer" ; + Indi Pres Sg P1 => red_ + "imo" ; + Indi Pres Sg P2 => red_ + "imi" ; + Indi Pres Sg P3 => red_ + "ime" ; + Indi Pres Pl P1 => red_ + "imiamo" ; + Indi Pres Pl P2 => red_ + "imete" ; + Indi Pres Pl P3 => red_ + "imono" ; + Indi Imperf Sg P1 => red_ + "imevo" ; + Indi Imperf Sg P2 => red_ + "imevi" ; + Indi Imperf Sg P3 => red_ + "imeva" ; + Indi Imperf Pl P1 => red_ + "imevamo" ; + Indi Imperf Pl P2 => red_ + "imevate" ; + Indi Imperf Pl P3 => red_ + "imevano" ; + Pass Sg P1 => red_ + "ensi" ; + Pass Sg P2 => red_ + "imesti" ; + Pass Sg P3 => red_ + "ense" ; + Pass Pl P1 => red_ + "imemmo" ; + Pass Pl P2 => red_ + "imeste" ; + Pass Pl P3 => red_ + "ensero" ; + Fut Sg P1 => red_ + "imerò" ; + Fut Sg P2 => red_ + "imerai" ; + Fut Sg P3 => red_ + "imerà" ; + Fut Pl P1 => red_ + "imeremo" ; + Fut Pl P2 => red_ + "imerete" ; + Fut Pl P3 => red_ + "imeranno" ; + Cong Pres Sg P1 => red_ + "ima" ; + Cong Pres Sg P2 => red_ + "ima" ; + Cong Pres Sg P3 => red_ + "ima" ; + Cong Pres Pl P1 => red_ + "imiamo" ; + Cong Pres Pl P2 => red_ + "imiate" ; + Cong Pres Pl P3 => red_ + "imano" ; + Cong Imperf Sg P1 => red_ + "imessi" ; + Cong Imperf Sg P2 => red_ + "imessi" ; + Cong Imperf Sg P3 => red_ + "imesse" ; + Cong Imperf Pl P1 => red_ + "imessimo" ; + Cong Imperf Pl P2 => red_ + "imeste" ; + Cong Imperf Pl P3 => red_ + "imessero" ; + Cond Sg P1 => red_ + "imerei" ; + Cond Sg P2 => red_ + "imeresti" ; + Cond Sg P3 => red_ + "imerebbe" ; + Cond Pl P1 => red_ + "imeremmo" ; + Cond Pl P2 => red_ + "imereste" ; + Cond Pl P3 => red_ + "imerebbero" ; + Imper SgP2 => red_ + "imi" ; + Imper PlP1 => red_ + "imiamo" ; + Imper PlP2 => red_ + "imete" ; + Ger => red_ + "imendo" ; + Part PresP Masc Sg => red_ + "imente" ; + Part PresP Masc Pl => red_ + "imenti" ; + Part PresP Fem Sg => red_ + "imente" ; + Part PresP Fem Pl => red_ + "imenti" ; + Part PassP Masc Sg => red_ + "ento" ; + Part PassP Masc Pl => red_ + "enti" ; + Part PassP Fem Sg => red_ + "enta" ; + Part PassP Fem Pl => red_ + "ente" + } + } ; + +oper ridere_74 : Str -> Verbo = \ridere -> + let ri_ = Predef.tk 4 ridere in + {s = table { + Inf => ri_ + "dere" ; + InfClit => ri_ + "der" ; + Indi Pres Sg P1 => ri_ + "do" ; + Indi Pres Sg P2 => ri_ + "di" ; + Indi Pres Sg P3 => ri_ + "de" ; + Indi Pres Pl P1 => ri_ + "diamo" ; + Indi Pres Pl P2 => ri_ + "dete" ; + Indi Pres Pl P3 => ri_ + "dono" ; + Indi Imperf Sg P1 => ri_ + "devo" ; + Indi Imperf Sg P2 => ri_ + "devi" ; + Indi Imperf Sg P3 => ri_ + "deva" ; + Indi Imperf Pl P1 => ri_ + "devamo" ; + Indi Imperf Pl P2 => ri_ + "devate" ; + Indi Imperf Pl P3 => ri_ + "devano" ; + Pass Sg P1 => ri_ + "si" ; + Pass Sg P2 => ri_ + "desti" ; + Pass Sg P3 => ri_ + "se" ; + Pass Pl P1 => ri_ + "demmo" ; + Pass Pl P2 => ri_ + "deste" ; + Pass Pl P3 => ri_ + "sero" ; + Fut Sg P1 => ri_ + "derò" ; + Fut Sg P2 => ri_ + "derai" ; + Fut Sg P3 => ri_ + "derà" ; + Fut Pl P1 => ri_ + "deremo" ; + Fut Pl P2 => ri_ + "derete" ; + Fut Pl P3 => ri_ + "deranno" ; + Cong Pres Sg P1 => ri_ + "da" ; + Cong Pres Sg P2 => ri_ + "da" ; + Cong Pres Sg P3 => ri_ + "da" ; + Cong Pres Pl P1 => ri_ + "diamo" ; + Cong Pres Pl P2 => ri_ + "diate" ; + Cong Pres Pl P3 => ri_ + "dano" ; + Cong Imperf Sg P1 => ri_ + "dessi" ; + Cong Imperf Sg P2 => ri_ + "dessi" ; + Cong Imperf Sg P3 => ri_ + "desse" ; + Cong Imperf Pl P1 => ri_ + "dessimo" ; + Cong Imperf Pl P2 => ri_ + "deste" ; + Cong Imperf Pl P3 => ri_ + "dessero" ; + Cond Sg P1 => ri_ + "derei" ; + Cond Sg P2 => ri_ + "deresti" ; + Cond Sg P3 => ri_ + "derebbe" ; + Cond Pl P1 => ri_ + "deremmo" ; + Cond Pl P2 => ri_ + "dereste" ; + Cond Pl P3 => ri_ + "derebbero" ; + Imper SgP2 => ri_ + "di" ; + Imper PlP1 => ri_ + "diamo" ; + Imper PlP2 => ri_ + "dete" ; + Ger => ri_ + "dendo" ; + Part PresP Masc Sg => ri_ + "dente" ; + Part PresP Masc Pl => ri_ + "denti" ; + Part PresP Fem Sg => ri_ + "dente" ; + Part PresP Fem Pl => ri_ + "denti" ; + Part PassP Masc Sg => ri_ + "so" ; + Part PassP Masc Pl => ri_ + "si" ; + Part PassP Fem Sg => ri_ + "sa" ; + Part PassP Fem Pl => ri_ + "se" + } + } ; + +oper rimanere_75 : Str -> Verbo = \rimanere -> + let rima_ = Predef.tk 4 rimanere in + {s = table { + Inf => rima_ + "nere" ; + InfClit => rima_ + "ner" ; + Indi Pres Sg P1 => rima_ + "ngo" ; + Indi Pres Sg P2 => rima_ + "ni" ; + Indi Pres Sg P3 => rima_ + "ne" ; + Indi Pres Pl P1 => rima_ + "niamo" ; + Indi Pres Pl P2 => rima_ + "nete" ; + Indi Pres Pl P3 => rima_ + "ngono" ; + Indi Imperf Sg P1 => rima_ + "nevo" ; + Indi Imperf Sg P2 => rima_ + "nevi" ; + Indi Imperf Sg P3 => rima_ + "neva" ; + Indi Imperf Pl P1 => rima_ + "nevamo" ; + Indi Imperf Pl P2 => rima_ + "nevate" ; + Indi Imperf Pl P3 => rima_ + "nevano" ; + Pass Sg P1 => rima_ + "si" ; + Pass Sg P2 => rima_ + "nesti" ; + Pass Sg P3 => rima_ + "se" ; + Pass Pl P1 => rima_ + "nemmo" ; + Pass Pl P2 => rima_ + "neste" ; + Pass Pl P3 => rima_ + "sero" ; + Fut Sg P1 => rima_ + "rrò" ; + Fut Sg P2 => rima_ + "rrai" ; + Fut Sg P3 => rima_ + "rrà" ; + Fut Pl P1 => rima_ + "rremo" ; + Fut Pl P2 => rima_ + "rrete" ; + Fut Pl P3 => rima_ + "rranno" ; + Cong Pres Sg P1 => rima_ + "nga" ; + Cong Pres Sg P2 => rima_ + "nga" ; + Cong Pres Sg P3 => rima_ + "nga" ; + Cong Pres Pl P1 => rima_ + "niamo" ; + Cong Pres Pl P2 => rima_ + "niate" ; + Cong Pres Pl P3 => rima_ + "ngano" ; + Cong Imperf Sg P1 => rima_ + "nessi" ; + Cong Imperf Sg P2 => rima_ + "nessi" ; + Cong Imperf Sg P3 => rima_ + "nesse" ; + Cong Imperf Pl P1 => rima_ + "nessimo" ; + Cong Imperf Pl P2 => rima_ + "neste" ; + Cong Imperf Pl P3 => rima_ + "nessero" ; + Cond Sg P1 => rima_ + "rrei" ; + Cond Sg P2 => rima_ + "rresti" ; + Cond Sg P3 => rima_ + "rrebbe" ; + Cond Pl P1 => rima_ + "rremmo" ; + Cond Pl P2 => rima_ + "rreste" ; + Cond Pl P3 => rima_ + "rrebbero" ; + Imper SgP2 => rima_ + "ni" ; + Imper PlP1 => rima_ + "niamo" ; + Imper PlP2 => rima_ + "nete" ; + Ger => rima_ + "nendo" ; + Part PresP Masc Sg => rima_ + "nente" ; + Part PresP Masc Pl => rima_ + "nenti" ; + Part PresP Fem Sg => rima_ + "nente" ; + Part PresP Fem Pl => rima_ + "nenti" ; + Part PassP Masc Sg => rima_ + "sto" ; + Part PassP Masc Pl => rima_ + "sti" ; + Part PassP Fem Sg => rima_ + "sta" ; + Part PassP Fem Pl => rima_ + "ste" + } + } ; + +oper rispondere_76 : Str -> Verbo = \rispondere -> + let rispo_ = Predef.tk 5 rispondere in + {s = table { + Inf => rispo_ + "ndere" ; + InfClit => rispo_ + "nder" ; + Indi Pres Sg P1 => rispo_ + "ndo" ; + Indi Pres Sg P2 => rispo_ + "ndi" ; + Indi Pres Sg P3 => rispo_ + "nde" ; + Indi Pres Pl P1 => rispo_ + "ndiamo" ; + Indi Pres Pl P2 => rispo_ + "ndete" ; + Indi Pres Pl P3 => rispo_ + "ndono" ; + Indi Imperf Sg P1 => rispo_ + "ndevo" ; + Indi Imperf Sg P2 => rispo_ + "ndevi" ; + Indi Imperf Sg P3 => rispo_ + "ndeva" ; + Indi Imperf Pl P1 => rispo_ + "ndevamo" ; + Indi Imperf Pl P2 => rispo_ + "ndevate" ; + Indi Imperf Pl P3 => rispo_ + "ndevano" ; + Pass Sg P1 => rispo_ + "si" ; + Pass Sg P2 => rispo_ + "ndesti" ; + Pass Sg P3 => rispo_ + "se" ; + Pass Pl P1 => rispo_ + "ndemmo" ; + Pass Pl P2 => rispo_ + "ndeste" ; + Pass Pl P3 => rispo_ + "sero" ; + Fut Sg P1 => rispo_ + "nderò" ; + Fut Sg P2 => rispo_ + "nderai" ; + Fut Sg P3 => rispo_ + "nderà" ; + Fut Pl P1 => rispo_ + "nderemo" ; + Fut Pl P2 => rispo_ + "nderete" ; + Fut Pl P3 => rispo_ + "nderanno" ; + Cong Pres Sg P1 => rispo_ + "nda" ; + Cong Pres Sg P2 => rispo_ + "nda" ; + Cong Pres Sg P3 => rispo_ + "nda" ; + Cong Pres Pl P1 => rispo_ + "ndiamo" ; + Cong Pres Pl P2 => rispo_ + "ndiate" ; + Cong Pres Pl P3 => rispo_ + "ndano" ; + Cong Imperf Sg P1 => rispo_ + "ndessi" ; + Cong Imperf Sg P2 => rispo_ + "ndessi" ; + Cong Imperf Sg P3 => rispo_ + "ndesse" ; + Cong Imperf Pl P1 => rispo_ + "ndessimo" ; + Cong Imperf Pl P2 => rispo_ + "ndeste" ; + Cong Imperf Pl P3 => rispo_ + "ndessero" ; + Cond Sg P1 => rispo_ + "nderei" ; + Cond Sg P2 => rispo_ + "nderesti" ; + Cond Sg P3 => rispo_ + "nderebbe" ; + Cond Pl P1 => rispo_ + "nderemmo" ; + Cond Pl P2 => rispo_ + "ndereste" ; + Cond Pl P3 => rispo_ + "nderebbero" ; + Imper SgP2 => rispo_ + "ndi" ; + Imper PlP1 => rispo_ + "ndiamo" ; + Imper PlP2 => rispo_ + "ndete" ; + Ger => rispo_ + "ndendo" ; + Part PresP Masc Sg => rispo_ + "ndente" ; + Part PresP Masc Pl => rispo_ + "ndenti" ; + Part PresP Fem Sg => rispo_ + "ndente" ; + Part PresP Fem Pl => rispo_ + "ndenti" ; + Part PassP Masc Sg => rispo_ + "sto" ; + Part PassP Masc Pl => rispo_ + "sti" ; + Part PassP Fem Sg => rispo_ + "sta" ; + Part PassP Fem Pl => rispo_ + "ste" + } + } ; + +oper rompere_77 : Str -> Verbo = \roompere -> + let ro_ = Predef.tk 6 roompere in + {s = table { + Inf => ro_ + "ompere" ; + InfClit => ro_ + "omper" ; + Indi Pres Sg P1 => ro_ + "ompo" ; + Indi Pres Sg P2 => ro_ + "ompi" ; + Indi Pres Sg P3 => ro_ + "ompe" ; + Indi Pres Pl P1 => ro_ + "ompiamo" ; + Indi Pres Pl P2 => ro_ + "ompete" ; + Indi Pres Pl P3 => ro_ + "ompono" ; + Indi Imperf Sg P1 => ro_ + "ompevo" ; + Indi Imperf Sg P2 => ro_ + "ompevi" ; + Indi Imperf Sg P3 => ro_ + "ompeva" ; + Indi Imperf Pl P1 => ro_ + "ompevamo" ; + Indi Imperf Pl P2 => ro_ + "ompevate" ; + Indi Imperf Pl P3 => ro_ + "ompevano" ; + Pass Sg P1 => ro_ + "uppi" ; + Pass Sg P2 => ro_ + "ompesti" ; + Pass Sg P3 => ro_ + "uppe" ; + Pass Pl P1 => ro_ + "ompemmo" ; + Pass Pl P2 => ro_ + "ompeste" ; + Pass Pl P3 => ro_ + "uppero" ; + Fut Sg P1 => ro_ + "omperò" ; + Fut Sg P2 => ro_ + "omperai" ; + Fut Sg P3 => ro_ + "omperà" ; + Fut Pl P1 => ro_ + "omperemo" ; + Fut Pl P2 => ro_ + "omperete" ; + Fut Pl P3 => ro_ + "omperanno" ; + Cong Pres Sg P1 => ro_ + "ompa" ; + Cong Pres Sg P2 => ro_ + "ompa" ; + Cong Pres Sg P3 => ro_ + "ompa" ; + Cong Pres Pl P1 => ro_ + "ompiamo" ; + Cong Pres Pl P2 => ro_ + "ompiate" ; + Cong Pres Pl P3 => ro_ + "ompano" ; + Cong Imperf Sg P1 => ro_ + "ompessi" ; + Cong Imperf Sg P2 => ro_ + "ompessi" ; + Cong Imperf Sg P3 => ro_ + "ompesse" ; + Cong Imperf Pl P1 => ro_ + "ompessimo" ; + Cong Imperf Pl P2 => ro_ + "ompeste" ; + Cong Imperf Pl P3 => ro_ + "ompessero" ; + Cond Sg P1 => ro_ + "omperei" ; + Cond Sg P2 => ro_ + "omperesti" ; + Cond Sg P3 => ro_ + "omperebbe" ; + Cond Pl P1 => ro_ + "omperemmo" ; + Cond Pl P2 => ro_ + "ompereste" ; + Cond Pl P3 => ro_ + "omperebbero" ; + Imper SgP2 => ro_ + "ompi" ; + Imper PlP1 => ro_ + "ompiamo" ; + Imper PlP2 => ro_ + "ompete" ; + Ger => ro_ + "ompendo" ; + Part PresP Masc Sg => ro_ + "ompente" ; + Part PresP Masc Pl => ro_ + "ompenti" ; + Part PresP Fem Sg => ro_ + "ompente" ; + Part PresP Fem Pl => ro_ + "ompenti" ; + Part PassP Masc Sg => ro_ + "otto" ; + Part PassP Masc Pl => ro_ + "otti" ; + Part PassP Fem Sg => ro_ + "otta" ; + Part PassP Fem Pl => ro_ + "otte" + } + } ; + +oper sapere_78 : Str -> Verbo = \sapere -> + let s_ = Predef.tk 5 sapere in + {s = table { + Inf => s_ + "apere" ; + InfClit => s_ + "aper" ; + Indi Pres Sg P1 => s_ + "o" ; + Indi Pres Sg P2 => s_ + "ai" ; + Indi Pres Sg P3 => s_ + "a" ; + Indi Pres Pl P1 => s_ + "appiamo" ; + Indi Pres Pl P2 => s_ + "apete" ; + Indi Pres Pl P3 => s_ + "anno" ; + Indi Imperf Sg P1 => s_ + "apevo" ; + Indi Imperf Sg P2 => s_ + "apevi" ; + Indi Imperf Sg P3 => s_ + "apeva" ; + Indi Imperf Pl P1 => s_ + "apevamo" ; + Indi Imperf Pl P2 => s_ + "apevate" ; + Indi Imperf Pl P3 => s_ + "apevano" ; + Pass Sg P1 => s_ + "eppi" ; + Pass Sg P2 => s_ + "apesti" ; + Pass Sg P3 => s_ + "eppe" ; + Pass Pl P1 => s_ + "apemmo" ; + Pass Pl P2 => s_ + "apeste" ; + Pass Pl P3 => s_ + "eppero" ; + Fut Sg P1 => s_ + "aprò" ; + Fut Sg P2 => s_ + "aprai" ; + Fut Sg P3 => s_ + "aprà" ; + Fut Pl P1 => s_ + "apremo" ; + Fut Pl P2 => s_ + "aprete" ; + Fut Pl P3 => s_ + "apranno" ; + Cong Pres Sg P1 => s_ + "appia" ; + Cong Pres Sg P2 => s_ + "appia" ; + Cong Pres Sg P3 => s_ + "appia" ; + Cong Pres Pl P1 => s_ + "appiamo" ; + Cong Pres Pl P2 => s_ + "appiate" ; + Cong Pres Pl P3 => s_ + "appiano" ; + Cong Imperf Sg P1 => s_ + "apessi" ; + Cong Imperf Sg P2 => s_ + "apessi" ; + Cong Imperf Sg P3 => s_ + "apesse" ; + Cong Imperf Pl P1 => s_ + "apessimo" ; + Cong Imperf Pl P2 => s_ + "apeste" ; + Cong Imperf Pl P3 => s_ + "apessero" ; + Cond Sg P1 => s_ + "aprei" ; + Cond Sg P2 => s_ + "apresti" ; + Cond Sg P3 => s_ + "aprebbe" ; + Cond Pl P1 => s_ + "apremmo" ; + Cond Pl P2 => s_ + "apreste" ; + Cond Pl P3 => s_ + "aprebbero" ; + Imper SgP2 => s_ + "appi" ; + Imper PlP1 => s_ + "appiamo" ; + Imper PlP2 => s_ + "appiate" ; + Ger => s_ + "apendo" ; + Part PresP Masc Sg => variants {} ; + Part PresP Masc Pl => variants {} ; + Part PresP Fem Sg => variants {} ; + Part PresP Fem Pl => variants {} ; + Part PassP Masc Sg => s_ + "aputo" ; + Part PassP Masc Pl => s_ + "aputi" ; + Part PassP Fem Sg => s_ + "aputa" ; + Part PassP Fem Pl => s_ + "apute" + } + } ; + +oper scegliere_79 : Str -> Verbo = \scegliere -> + let sce_ = Predef.tk 6 scegliere in + {s = table { + Inf => sce_ + "gliere" ; + InfClit => sce_ + "glier" ; + Indi Pres Sg P1 => sce_ + "lgo" ; + Indi Pres Sg P2 => sce_ + "gli" ; + Indi Pres Sg P3 => sce_ + "glie" ; + Indi Pres Pl P1 => sce_ + "gliamo" ; + Indi Pres Pl P2 => sce_ + "gliete" ; + Indi Pres Pl P3 => sce_ + "lgono" ; + Indi Imperf Sg P1 => sce_ + "glievo" ; + Indi Imperf Sg P2 => sce_ + "glievi" ; + Indi Imperf Sg P3 => sce_ + "glieva" ; + Indi Imperf Pl P1 => sce_ + "glievamo" ; + Indi Imperf Pl P2 => sce_ + "glievate" ; + Indi Imperf Pl P3 => sce_ + "glievano" ; + Pass Sg P1 => sce_ + "lsi" ; + Pass Sg P2 => sce_ + "gliesti" ; + Pass Sg P3 => sce_ + "lse" ; + Pass Pl P1 => sce_ + "gliemmo" ; + Pass Pl P2 => sce_ + "glieste" ; + Pass Pl P3 => sce_ + "lsero" ; + Fut Sg P1 => sce_ + "glierò" ; + Fut Sg P2 => sce_ + "glierai" ; + Fut Sg P3 => sce_ + "glierà" ; + Fut Pl P1 => sce_ + "glieremo" ; + Fut Pl P2 => sce_ + "glierete" ; + Fut Pl P3 => sce_ + "glieranno" ; + Cong Pres Sg P1 => sce_ + "lga" ; + Cong Pres Sg P2 => sce_ + "lga" ; + Cong Pres Sg P3 => sce_ + "lga" ; + Cong Pres Pl P1 => sce_ + "gliamo" ; + Cong Pres Pl P2 => sce_ + "gliate" ; + Cong Pres Pl P3 => sce_ + "lgano" ; + Cong Imperf Sg P1 => sce_ + "gliessi" ; + Cong Imperf Sg P2 => sce_ + "gliessi" ; + Cong Imperf Sg P3 => sce_ + "gliesse" ; + Cong Imperf Pl P1 => sce_ + "gliessimo" ; + Cong Imperf Pl P2 => sce_ + "glieste" ; + Cong Imperf Pl P3 => sce_ + "gliessero" ; + Cond Sg P1 => sce_ + "glierei" ; + Cond Sg P2 => sce_ + "glieresti" ; + Cond Sg P3 => sce_ + "glierebbe" ; + Cond Pl P1 => sce_ + "glieremmo" ; + Cond Pl P2 => sce_ + "gliereste" ; + Cond Pl P3 => sce_ + "glierebbero" ; + Imper SgP2 => sce_ + "gli" ; + Imper PlP1 => sce_ + "gliamo" ; + Imper PlP2 => sce_ + "gliete" ; + Ger => sce_ + "gliendo" ; + Part PresP Masc Sg => sce_ + "gliente" ; + Part PresP Masc Pl => sce_ + "glienti" ; + Part PresP Fem Sg => sce_ + "gliente" ; + Part PresP Fem Pl => sce_ + "glienti" ; + Part PassP Masc Sg => sce_ + "lto" ; + Part PassP Masc Pl => sce_ + "lti" ; + Part PassP Fem Sg => sce_ + "lta" ; + Part PassP Fem Pl => sce_ + "lte" + } + } ; + +oper scendere_80 : Str -> Verbo = \scendere -> + let sce_ = Predef.tk 5 scendere in + {s = table { + Inf => sce_ + "ndere" ; + InfClit => sce_ + "nder" ; + Indi Pres Sg P1 => sce_ + "ndo" ; + Indi Pres Sg P2 => sce_ + "ndi" ; + Indi Pres Sg P3 => sce_ + "nde" ; + Indi Pres Pl P1 => sce_ + "ndiamo" ; + Indi Pres Pl P2 => sce_ + "ndete" ; + Indi Pres Pl P3 => sce_ + "ndono" ; + Indi Imperf Sg P1 => sce_ + "ndevo" ; + Indi Imperf Sg P2 => sce_ + "ndevi" ; + Indi Imperf Sg P3 => sce_ + "ndeva" ; + Indi Imperf Pl P1 => sce_ + "ndevamo" ; + Indi Imperf Pl P2 => sce_ + "ndevate" ; + Indi Imperf Pl P3 => sce_ + "ndevano" ; + Pass Sg P1 => sce_ + "si" ; + Pass Sg P2 => sce_ + "ndesti" ; + Pass Sg P3 => sce_ + "se" ; + Pass Pl P1 => sce_ + "ndemmo" ; + Pass Pl P2 => sce_ + "ndeste" ; + Pass Pl P3 => sce_ + "sero" ; + Fut Sg P1 => sce_ + "nderò" ; + Fut Sg P2 => sce_ + "nderai" ; + Fut Sg P3 => sce_ + "nderà" ; + Fut Pl P1 => sce_ + "nderemo" ; + Fut Pl P2 => sce_ + "nderete" ; + Fut Pl P3 => sce_ + "nderanno" ; + Cong Pres Sg P1 => sce_ + "nda" ; + Cong Pres Sg P2 => sce_ + "nda" ; + Cong Pres Sg P3 => sce_ + "nda" ; + Cong Pres Pl P1 => sce_ + "ndiamo" ; + Cong Pres Pl P2 => sce_ + "ndiate" ; + Cong Pres Pl P3 => sce_ + "ndano" ; + Cong Imperf Sg P1 => sce_ + "ndessi" ; + Cong Imperf Sg P2 => sce_ + "ndessi" ; + Cong Imperf Sg P3 => sce_ + "ndesse" ; + Cong Imperf Pl P1 => sce_ + "ndessimo" ; + Cong Imperf Pl P2 => sce_ + "ndeste" ; + Cong Imperf Pl P3 => sce_ + "ndessero" ; + Cond Sg P1 => sce_ + "nderei" ; + Cond Sg P2 => sce_ + "nderesti" ; + Cond Sg P3 => sce_ + "nderebbe" ; + Cond Pl P1 => sce_ + "nderemmo" ; + Cond Pl P2 => sce_ + "ndereste" ; + Cond Pl P3 => sce_ + "nderebbero" ; + Imper SgP2 => sce_ + "ndi" ; + Imper PlP1 => sce_ + "ndiamo" ; + Imper PlP2 => sce_ + "ndete" ; + Ger => sce_ + "ndendo" ; + Part PresP Masc Sg => sce_ + "ndente" ; + Part PresP Masc Pl => sce_ + "ndenti" ; + Part PresP Fem Sg => sce_ + "ndente" ; + Part PresP Fem Pl => sce_ + "ndenti" ; + Part PassP Masc Sg => sce_ + "so" ; + Part PassP Masc Pl => sce_ + "si" ; + Part PassP Fem Sg => sce_ + "sa" ; + Part PassP Fem Pl => sce_ + "se" + } + } ; + +oper scindere_81 : Str -> Verbo = \scindere -> + let sci_ = Predef.tk 5 scindere in + {s = table { + Inf => sci_ + "ndere" ; + InfClit => sci_ + "nder" ; + Indi Pres Sg P1 => sci_ + "ndo" ; + Indi Pres Sg P2 => sci_ + "ndi" ; + Indi Pres Sg P3 => sci_ + "nde" ; + Indi Pres Pl P1 => sci_ + "ndiamo" ; + Indi Pres Pl P2 => sci_ + "ndete" ; + Indi Pres Pl P3 => sci_ + "ndono" ; + Indi Imperf Sg P1 => sci_ + "ndevo" ; + Indi Imperf Sg P2 => sci_ + "ndevi" ; + Indi Imperf Sg P3 => sci_ + "ndeva" ; + Indi Imperf Pl P1 => sci_ + "ndevamo" ; + Indi Imperf Pl P2 => sci_ + "ndevate" ; + Indi Imperf Pl P3 => sci_ + "ndevano" ; + Pass Sg P1 => sci_ + "ssi" ; + Pass Sg P2 => sci_ + "ndesti" ; + Pass Sg P3 => sci_ + "sse" ; + Pass Pl P1 => sci_ + "ndemmo" ; + Pass Pl P2 => sci_ + "ndeste" ; + Pass Pl P3 => sci_ + "ssero" ; + Fut Sg P1 => sci_ + "nderò" ; + Fut Sg P2 => sci_ + "nderai" ; + Fut Sg P3 => sci_ + "nderà" ; + Fut Pl P1 => sci_ + "nderemo" ; + Fut Pl P2 => sci_ + "nderete" ; + Fut Pl P3 => sci_ + "nderanno" ; + Cong Pres Sg P1 => sci_ + "nda" ; + Cong Pres Sg P2 => sci_ + "nda" ; + Cong Pres Sg P3 => sci_ + "nda" ; + Cong Pres Pl P1 => sci_ + "ndiamo" ; + Cong Pres Pl P2 => sci_ + "ndiate" ; + Cong Pres Pl P3 => sci_ + "ndano" ; + Cong Imperf Sg P1 => sci_ + "ndessi" ; + Cong Imperf Sg P2 => sci_ + "ndessi" ; + Cong Imperf Sg P3 => sci_ + "ndesse" ; + Cong Imperf Pl P1 => sci_ + "ndessimo" ; + Cong Imperf Pl P2 => sci_ + "ndeste" ; + Cong Imperf Pl P3 => sci_ + "ndessero" ; + Cond Sg P1 => sci_ + "nderei" ; + Cond Sg P2 => sci_ + "nderesti" ; + Cond Sg P3 => sci_ + "nderebbe" ; + Cond Pl P1 => sci_ + "nderemmo" ; + Cond Pl P2 => sci_ + "ndereste" ; + Cond Pl P3 => sci_ + "nderebbero" ; + Imper SgP2 => sci_ + "ndi" ; + Imper PlP1 => sci_ + "ndiamo" ; + Imper PlP2 => sci_ + "ndete" ; + Ger => sci_ + "ndendo" ; + Part PresP Masc Sg => sci_ + "ndente" ; + Part PresP Masc Pl => sci_ + "ndenti" ; + Part PresP Fem Sg => sci_ + "ndente" ; + Part PresP Fem Pl => sci_ + "ndenti" ; + Part PassP Masc Sg => sci_ + "sso" ; + Part PassP Masc Pl => sci_ + "ssi" ; + Part PassP Fem Sg => sci_ + "ssa" ; + Part PassP Fem Pl => sci_ + "sse" + } + } ; + +oper scrivere_82 : Str -> Verbo = \scrivere -> + let scri_ = Predef.tk 4 scrivere in + {s = table { + Inf => scri_ + "vere" ; + InfClit => scri_ + "ver" ; + Indi Pres Sg P1 => scri_ + "vo" ; + Indi Pres Sg P2 => scri_ + "vi" ; + Indi Pres Sg P3 => scri_ + "ve" ; + Indi Pres Pl P1 => scri_ + "viamo" ; + Indi Pres Pl P2 => scri_ + "vete" ; + Indi Pres Pl P3 => scri_ + "vono" ; + Indi Imperf Sg P1 => scri_ + "vevo" ; + Indi Imperf Sg P2 => scri_ + "vevi" ; + Indi Imperf Sg P3 => scri_ + "veva" ; + Indi Imperf Pl P1 => scri_ + "vevamo" ; + Indi Imperf Pl P2 => scri_ + "vevate" ; + Indi Imperf Pl P3 => scri_ + "vevano" ; + Pass Sg P1 => scri_ + "ssi" ; + Pass Sg P2 => scri_ + "vesti" ; + Pass Sg P3 => scri_ + "sse" ; + Pass Pl P1 => scri_ + "vemmo" ; + Pass Pl P2 => scri_ + "veste" ; + Pass Pl P3 => scri_ + "ssero" ; + Fut Sg P1 => scri_ + "verò" ; + Fut Sg P2 => scri_ + "verai" ; + Fut Sg P3 => scri_ + "verà" ; + Fut Pl P1 => scri_ + "veremo" ; + Fut Pl P2 => scri_ + "verete" ; + Fut Pl P3 => scri_ + "veranno" ; + Cong Pres Sg P1 => scri_ + "va" ; + Cong Pres Sg P2 => scri_ + "va" ; + Cong Pres Sg P3 => scri_ + "va" ; + Cong Pres Pl P1 => scri_ + "viamo" ; + Cong Pres Pl P2 => scri_ + "viate" ; + Cong Pres Pl P3 => scri_ + "vano" ; + Cong Imperf Sg P1 => scri_ + "vessi" ; + Cong Imperf Sg P2 => scri_ + "vessi" ; + Cong Imperf Sg P3 => scri_ + "vesse" ; + Cong Imperf Pl P1 => scri_ + "vessimo" ; + Cong Imperf Pl P2 => scri_ + "veste" ; + Cong Imperf Pl P3 => scri_ + "vessero" ; + Cond Sg P1 => scri_ + "verei" ; + Cond Sg P2 => scri_ + "veresti" ; + Cond Sg P3 => scri_ + "verebbe" ; + Cond Pl P1 => scri_ + "veremmo" ; + Cond Pl P2 => scri_ + "vereste" ; + Cond Pl P3 => scri_ + "verebbero" ; + Imper SgP2 => scri_ + "vi" ; + Imper PlP1 => scri_ + "viamo" ; + Imper PlP2 => scri_ + "vete" ; + Ger => scri_ + "vendo" ; + Part PresP Masc Sg => scri_ + "vente" ; + Part PresP Masc Pl => scri_ + "venti" ; + Part PresP Fem Sg => scri_ + "vente" ; + Part PresP Fem Pl => scri_ + "venti" ; + Part PassP Masc Sg => scri_ + "tto" ; + Part PassP Masc Pl => scri_ + "tti" ; + Part PassP Fem Sg => scri_ + "tta" ; + Part PassP Fem Pl => scri_ + "tte" + } + } ; + +oper scuotere_83 : Str -> Verbo = \scuotere -> + let sc_ = Predef.tk 6 scuotere in + {s = table { + Inf => sc_ + "uotere" ; + InfClit => sc_ + "uoter" ; + Indi Pres Sg P1 => sc_ + "uoto" ; + Indi Pres Sg P2 => sc_ + "uoti" ; + Indi Pres Sg P3 => sc_ + "uote" ; + Indi Pres Pl P1 => sc_ + "uotiamo" ; + Indi Pres Pl P2 => sc_ + "uotete" ; + Indi Pres Pl P3 => sc_ + "uotono" ; + Indi Imperf Sg P1 => sc_ + "uotevo" ; + Indi Imperf Sg P2 => sc_ + "uotevi" ; + Indi Imperf Sg P3 => sc_ + "uoteva" ; + Indi Imperf Pl P1 => sc_ + "uotevamo" ; + Indi Imperf Pl P2 => sc_ + "uotevate" ; + Indi Imperf Pl P3 => sc_ + "uotevano" ; + Pass Sg P1 => sc_ + "ossi" ; + Pass Sg P2 => sc_ + "uotesti" ; + Pass Sg P3 => sc_ + "osse" ; + Pass Pl P1 => sc_ + "uotemmo" ; + Pass Pl P2 => sc_ + "uoteste" ; + Pass Pl P3 => sc_ + "ossero" ; + Fut Sg P1 => sc_ + "uoterò" ; + Fut Sg P2 => sc_ + "uoterai" ; + Fut Sg P3 => sc_ + "uoterà" ; + Fut Pl P1 => sc_ + "uoteremo" ; + Fut Pl P2 => sc_ + "uoterete" ; + Fut Pl P3 => sc_ + "uoteranno" ; + Cong Pres Sg P1 => sc_ + "uota" ; + Cong Pres Sg P2 => sc_ + "uota" ; + Cong Pres Sg P3 => sc_ + "uota" ; + Cong Pres Pl P1 => sc_ + "uotiamo" ; + Cong Pres Pl P2 => sc_ + "uotiate" ; + Cong Pres Pl P3 => sc_ + "uotano" ; + Cong Imperf Sg P1 => sc_ + "uotessi" ; + Cong Imperf Sg P2 => sc_ + "uotessi" ; + Cong Imperf Sg P3 => sc_ + "uotesse" ; + Cong Imperf Pl P1 => sc_ + "uotessimo" ; + Cong Imperf Pl P2 => sc_ + "uoteste" ; + Cong Imperf Pl P3 => sc_ + "uotessero" ; + Cond Sg P1 => sc_ + "uoterei" ; + Cond Sg P2 => sc_ + "uoteresti" ; + Cond Sg P3 => sc_ + "uoterebbe" ; + Cond Pl P1 => sc_ + "uoteremmo" ; + Cond Pl P2 => sc_ + "uotereste" ; + Cond Pl P3 => sc_ + "uoterebbero" ; + Imper SgP2 => sc_ + "uoti" ; + Imper PlP1 => sc_ + "uotiamo" ; + Imper PlP2 => sc_ + "uotete" ; + Ger => sc_ + "uotendo" ; + Part PresP Masc Sg => sc_ + "uotente" ; + Part PresP Masc Pl => sc_ + "uotenti" ; + Part PresP Fem Sg => sc_ + "uotente" ; + Part PresP Fem Pl => sc_ + "uotenti" ; + Part PassP Masc Sg => sc_ + "osso" ; + Part PassP Masc Pl => sc_ + "ossi" ; + Part PassP Fem Sg => sc_ + "ossa" ; + Part PassP Fem Pl => sc_ + "osse" + } + } ; + +oper sedere_84 : Str -> Verbo = \sedere -> + let s_ = Predef.tk 5 sedere in + {s = table { + Inf => s_ + "edere" ; + InfClit => s_ + "eder" ; + Indi Pres Sg P1 => s_ + "iedo" ; + Indi Pres Sg P2 => s_ + "iedi" ; + Indi Pres Sg P3 => s_ + "iede" ; + Indi Pres Pl P1 => s_ + "ediamo" ; + Indi Pres Pl P2 => s_ + "edete" ; + Indi Pres Pl P3 => s_ + "iedono" ; + Indi Imperf Sg P1 => s_ + "edevo" ; + Indi Imperf Sg P2 => s_ + "edevi" ; + Indi Imperf Sg P3 => s_ + "edeva" ; + Indi Imperf Pl P1 => s_ + "edevamo" ; + Indi Imperf Pl P2 => s_ + "edevate" ; + Indi Imperf Pl P3 => s_ + "edevano" ; + Pass Sg P1 => s_ + "edetti" ; + Pass Sg P2 => s_ + "edesti" ; + Pass Sg P3 => s_ + "edette" ; + Pass Pl P1 => s_ + "edemmo" ; + Pass Pl P2 => s_ + "edeste" ; + Pass Pl P3 => s_ + "edettero" ; + Fut Sg P1 => s_ + "ederò" ; + Fut Sg P2 => s_ + "ederai" ; + Fut Sg P3 => s_ + "ederà" ; + Fut Pl P1 => s_ + "ederemo" ; + Fut Pl P2 => s_ + "ederete" ; + Fut Pl P3 => s_ + "ederanno" ; + Cong Pres Sg P1 => s_ + "ieda" ; + Cong Pres Sg P2 => s_ + "ieda" ; + Cong Pres Sg P3 => s_ + "ieda" ; + Cong Pres Pl P1 => s_ + "ediamo" ; + Cong Pres Pl P2 => s_ + "ediate" ; + Cong Pres Pl P3 => s_ + "iedano" ; + Cong Imperf Sg P1 => s_ + "edessi" ; + Cong Imperf Sg P2 => s_ + "edessi" ; + Cong Imperf Sg P3 => s_ + "edesse" ; + Cong Imperf Pl P1 => s_ + "edessimo" ; + Cong Imperf Pl P2 => s_ + "edeste" ; + Cong Imperf Pl P3 => s_ + "edessero" ; + Cond Sg P1 => s_ + "ederei" ; + Cond Sg P2 => s_ + "ederesti" ; + Cond Sg P3 => s_ + "ederebbe" ; + Cond Pl P1 => s_ + "ederemmo" ; + Cond Pl P2 => s_ + "edereste" ; + Cond Pl P3 => s_ + "ederebbero" ; + Imper SgP2 => s_ + "iedi" ; + Imper PlP1 => s_ + "ediamo" ; + Imper PlP2 => s_ + "edete" ; + Ger => s_ + "edendo" ; + Part PresP Masc Sg => s_ + "edente" ; + Part PresP Masc Pl => s_ + "edenti" ; + Part PresP Fem Sg => s_ + "edente" ; + Part PresP Fem Pl => s_ + "edenti" ; + Part PassP Masc Sg => s_ + "eduto" ; + Part PassP Masc Pl => s_ + "eduti" ; + Part PassP Fem Sg => s_ + "eduta" ; + Part PassP Fem Pl => s_ + "edute" + } + } ; + +oper spargere_85 : Str -> Verbo = \spargere -> + let spar_ = Predef.tk 4 spargere in + {s = table { + Inf => spar_ + "gere" ; + InfClit => spar_ + "ger" ; + Indi Pres Sg P1 => spar_ + "go" ; + Indi Pres Sg P2 => spar_ + "gi" ; + Indi Pres Sg P3 => spar_ + "ge" ; + Indi Pres Pl P1 => spar_ + "giamo" ; + Indi Pres Pl P2 => spar_ + "gete" ; + Indi Pres Pl P3 => spar_ + "gono" ; + Indi Imperf Sg P1 => spar_ + "gevo" ; + Indi Imperf Sg P2 => spar_ + "gevi" ; + Indi Imperf Sg P3 => spar_ + "geva" ; + Indi Imperf Pl P1 => spar_ + "gevamo" ; + Indi Imperf Pl P2 => spar_ + "gevate" ; + Indi Imperf Pl P3 => spar_ + "gevano" ; + Pass Sg P1 => spar_ + "si" ; + Pass Sg P2 => spar_ + "gesti" ; + Pass Sg P3 => spar_ + "se" ; + Pass Pl P1 => spar_ + "gemmo" ; + Pass Pl P2 => spar_ + "geste" ; + Pass Pl P3 => spar_ + "sero" ; + Fut Sg P1 => spar_ + "gerò" ; + Fut Sg P2 => spar_ + "gerai" ; + Fut Sg P3 => spar_ + "gerà" ; + Fut Pl P1 => spar_ + "geremo" ; + Fut Pl P2 => spar_ + "gerete" ; + Fut Pl P3 => spar_ + "geranno" ; + Cong Pres Sg P1 => spar_ + "ga" ; + Cong Pres Sg P2 => spar_ + "ga" ; + Cong Pres Sg P3 => spar_ + "ga" ; + Cong Pres Pl P1 => spar_ + "giamo" ; + Cong Pres Pl P2 => spar_ + "giate" ; + Cong Pres Pl P3 => spar_ + "gano" ; + Cong Imperf Sg P1 => spar_ + "gessi" ; + Cong Imperf Sg P2 => spar_ + "gessi" ; + Cong Imperf Sg P3 => spar_ + "gesse" ; + Cong Imperf Pl P1 => spar_ + "gessimo" ; + Cong Imperf Pl P2 => spar_ + "geste" ; + Cong Imperf Pl P3 => spar_ + "gessero" ; + Cond Sg P1 => spar_ + "gerei" ; + Cond Sg P2 => spar_ + "geresti" ; + Cond Sg P3 => spar_ + "gerebbe" ; + Cond Pl P1 => spar_ + "geremmo" ; + Cond Pl P2 => spar_ + "gereste" ; + Cond Pl P3 => spar_ + "gerebbero" ; + Imper SgP2 => spar_ + "gi" ; + Imper PlP1 => spar_ + "giamo" ; + Imper PlP2 => spar_ + "gete" ; + Ger => spar_ + "gendo" ; + Part PresP Masc Sg => spar_ + "gente" ; + Part PresP Masc Pl => spar_ + "genti" ; + Part PresP Fem Sg => spar_ + "gente" ; + Part PresP Fem Pl => spar_ + "genti" ; + Part PassP Masc Sg => spar_ + "so" ; + Part PassP Masc Pl => spar_ + "si" ; + Part PassP Fem Sg => spar_ + "sa" ; + Part PassP Fem Pl => spar_ + "se" + } + } ; + +oper spegnere_86 : Str -> Verbo = \spegnere -> + let spe_ = Predef.tk 5 spegnere in + {s = table { + Inf => spe_ + "gnere" ; + InfClit => spe_ + "gner" ; + Indi Pres Sg P1 => spe_ + "ngo" ; + Indi Pres Sg P2 => spe_ + "gni" ; + Indi Pres Sg P3 => spe_ + "gne" ; + Indi Pres Pl P1 => spe_ + "gniamo" ; + Indi Pres Pl P2 => spe_ + "gnete" ; + Indi Pres Pl P3 => spe_ + "ngono" ; + Indi Imperf Sg P1 => spe_ + "gnevo" ; + Indi Imperf Sg P2 => spe_ + "gnevi" ; + Indi Imperf Sg P3 => spe_ + "gneva" ; + Indi Imperf Pl P1 => spe_ + "gnevamo" ; + Indi Imperf Pl P2 => spe_ + "gnevate" ; + Indi Imperf Pl P3 => spe_ + "gnevano" ; + Pass Sg P1 => spe_ + "nsi" ; + Pass Sg P2 => spe_ + "gnesti" ; + Pass Sg P3 => spe_ + "nse" ; + Pass Pl P1 => spe_ + "gnemmo" ; + Pass Pl P2 => spe_ + "gneste" ; + Pass Pl P3 => spe_ + "nsero" ; + Fut Sg P1 => spe_ + "gnerò" ; + Fut Sg P2 => spe_ + "gnerai" ; + Fut Sg P3 => spe_ + "gnerà" ; + Fut Pl P1 => spe_ + "gneremo" ; + Fut Pl P2 => spe_ + "gnerete" ; + Fut Pl P3 => spe_ + "gneranno" ; + Cong Pres Sg P1 => spe_ + "nga" ; + Cong Pres Sg P2 => spe_ + "nga" ; + Cong Pres Sg P3 => spe_ + "nga" ; + Cong Pres Pl P1 => spe_ + "gniamo" ; + Cong Pres Pl P2 => spe_ + "gniate" ; + Cong Pres Pl P3 => spe_ + "ngano" ; + Cong Imperf Sg P1 => spe_ + "gnessi" ; + Cong Imperf Sg P2 => spe_ + "gnessi" ; + Cong Imperf Sg P3 => spe_ + "gnesse" ; + Cong Imperf Pl P1 => spe_ + "gnessimo" ; + Cong Imperf Pl P2 => spe_ + "gneste" ; + Cong Imperf Pl P3 => spe_ + "gnessero" ; + Cond Sg P1 => spe_ + "gnerei" ; + Cond Sg P2 => spe_ + "gneresti" ; + Cond Sg P3 => spe_ + "gnerebbe" ; + Cond Pl P1 => spe_ + "gneremmo" ; + Cond Pl P2 => spe_ + "gnereste" ; + Cond Pl P3 => spe_ + "gnerebbero" ; + Imper SgP2 => spe_ + "gni" ; + Imper PlP1 => spe_ + "gniamo" ; + Imper PlP2 => spe_ + "gnete" ; + Ger => spe_ + "gnendo" ; + Part PresP Masc Sg => spe_ + "gnente" ; + Part PresP Masc Pl => spe_ + "gnenti" ; + Part PresP Fem Sg => spe_ + "gnente" ; + Part PresP Fem Pl => spe_ + "gnenti" ; + Part PassP Masc Sg => spe_ + "nto" ; + Part PassP Masc Pl => spe_ + "nti" ; + Part PassP Fem Sg => spe_ + "nta" ; + Part PassP Fem Pl => spe_ + "nte" + } + } ; + +oper stringere_87 : Str -> Verbo = \striingere -> + let stri_ = Predef.tk 6 striingere in + {s = table { + Inf => stri_ + "ingere" ; + InfClit => stri_ + "inger" ; + Indi Pres Sg P1 => stri_ + "ingo" ; + Indi Pres Sg P2 => stri_ + "ingi" ; + Indi Pres Sg P3 => stri_ + "inge" ; + Indi Pres Pl P1 => stri_ + "ingiamo" ; + Indi Pres Pl P2 => stri_ + "ingete" ; + Indi Pres Pl P3 => stri_ + "ingono" ; + Indi Imperf Sg P1 => stri_ + "ingevo" ; + Indi Imperf Sg P2 => stri_ + "ingevi" ; + Indi Imperf Sg P3 => stri_ + "ingeva" ; + Indi Imperf Pl P1 => stri_ + "ingevamo" ; + Indi Imperf Pl P2 => stri_ + "ingevate" ; + Indi Imperf Pl P3 => stri_ + "ingevano" ; + Pass Sg P1 => stri_ + "insi" ; + Pass Sg P2 => stri_ + "ingesti" ; + Pass Sg P3 => stri_ + "inse" ; + Pass Pl P1 => stri_ + "ingemmo" ; + Pass Pl P2 => stri_ + "ingeste" ; + Pass Pl P3 => stri_ + "insero" ; + Fut Sg P1 => stri_ + "ingerò" ; + Fut Sg P2 => stri_ + "ingerai" ; + Fut Sg P3 => stri_ + "ingerà" ; + Fut Pl P1 => stri_ + "ingeremo" ; + Fut Pl P2 => stri_ + "ingerete" ; + Fut Pl P3 => stri_ + "ingeranno" ; + Cong Pres Sg P1 => stri_ + "inga" ; + Cong Pres Sg P2 => stri_ + "inga" ; + Cong Pres Sg P3 => stri_ + "inga" ; + Cong Pres Pl P1 => stri_ + "ingiamo" ; + Cong Pres Pl P2 => stri_ + "ingiate" ; + Cong Pres Pl P3 => stri_ + "ingano" ; + Cong Imperf Sg P1 => stri_ + "ingessi" ; + Cong Imperf Sg P2 => stri_ + "ingessi" ; + Cong Imperf Sg P3 => stri_ + "ingesse" ; + Cong Imperf Pl P1 => stri_ + "ingessimo" ; + Cong Imperf Pl P2 => stri_ + "ingeste" ; + Cong Imperf Pl P3 => stri_ + "ingessero" ; + Cond Sg P1 => stri_ + "ingerei" ; + Cond Sg P2 => stri_ + "ingeresti" ; + Cond Sg P3 => stri_ + "ingerebbe" ; + Cond Pl P1 => stri_ + "ingeremmo" ; + Cond Pl P2 => stri_ + "ingereste" ; + Cond Pl P3 => stri_ + "ingerebbero" ; + Imper SgP2 => stri_ + "ingi" ; + Imper PlP1 => stri_ + "ingiamo" ; + Imper PlP2 => stri_ + "ingete" ; + Ger => stri_ + "ingendo" ; + Part PresP Masc Sg => stri_ + "ingente" ; + Part PresP Masc Pl => stri_ + "ingenti" ; + Part PresP Fem Sg => stri_ + "ingente" ; + Part PresP Fem Pl => stri_ + "ingenti" ; + Part PassP Masc Sg => stri_ + "etto" ; + Part PassP Masc Pl => stri_ + "etti" ; + Part PassP Fem Sg => stri_ + "etta" ; + Part PassP Fem Pl => stri_ + "ette" + } + } ; + +oper svellere_88 : Str -> Verbo = \svellere -> + let svel_ = Predef.tk 4 svellere in + {s = table { + Inf => svel_ + "lere" ; + InfClit => svel_ + "ler" ; + Indi Pres Sg P1 => svel_ + "lo" ; + Indi Pres Sg P2 => svel_ + "li" ; + Indi Pres Sg P3 => svel_ + "le" ; + Indi Pres Pl P1 => svel_ + "liamo" ; + Indi Pres Pl P2 => svel_ + "lete" ; + Indi Pres Pl P3 => svel_ + "lono" ; + Indi Imperf Sg P1 => svel_ + "levo" ; + Indi Imperf Sg P2 => svel_ + "levi" ; + Indi Imperf Sg P3 => svel_ + "leva" ; + Indi Imperf Pl P1 => svel_ + "levamo" ; + Indi Imperf Pl P2 => svel_ + "levate" ; + Indi Imperf Pl P3 => svel_ + "levano" ; + Pass Sg P1 => svel_ + "si" ; + Pass Sg P2 => svel_ + "lesti" ; + Pass Sg P3 => svel_ + "se" ; + Pass Pl P1 => svel_ + "lemmo" ; + Pass Pl P2 => svel_ + "leste" ; + Pass Pl P3 => svel_ + "sero" ; + Fut Sg P1 => svel_ + "lerò" ; + Fut Sg P2 => svel_ + "lerai" ; + Fut Sg P3 => svel_ + "lerà" ; + Fut Pl P1 => svel_ + "leremo" ; + Fut Pl P2 => svel_ + "lerete" ; + Fut Pl P3 => svel_ + "leranno" ; + Cong Pres Sg P1 => svel_ + "la" ; + Cong Pres Sg P2 => svel_ + "la" ; + Cong Pres Sg P3 => svel_ + "la" ; + Cong Pres Pl P1 => svel_ + "liamo" ; + Cong Pres Pl P2 => svel_ + "liate" ; + Cong Pres Pl P3 => svel_ + "lano" ; + Cong Imperf Sg P1 => svel_ + "lessi" ; + Cong Imperf Sg P2 => svel_ + "lessi" ; + Cong Imperf Sg P3 => svel_ + "lesse" ; + Cong Imperf Pl P1 => svel_ + "lessimo" ; + Cong Imperf Pl P2 => svel_ + "leste" ; + Cong Imperf Pl P3 => svel_ + "lessero" ; + Cond Sg P1 => svel_ + "lerei" ; + Cond Sg P2 => svel_ + "leresti" ; + Cond Sg P3 => svel_ + "lerebbe" ; + Cond Pl P1 => svel_ + "leremmo" ; + Cond Pl P2 => svel_ + "lereste" ; + Cond Pl P3 => svel_ + "lerebbero" ; + Imper SgP2 => svel_ + "li" ; + Imper PlP1 => svel_ + "liamo" ; + Imper PlP2 => svel_ + "lete" ; + Ger => svel_ + "lendo" ; + Part PresP Masc Sg => svel_ + "lente" ; + Part PresP Masc Pl => svel_ + "lenti" ; + Part PresP Fem Sg => svel_ + "lente" ; + Part PresP Fem Pl => svel_ + "lenti" ; + Part PassP Masc Sg => svel_ + "to" ; + Part PassP Masc Pl => svel_ + "ti" ; + Part PassP Fem Sg => svel_ + "ta" ; + Part PassP Fem Pl => svel_ + "te" + } + } ; + +oper tenere_89 : Str -> Verbo = \tenere -> + let t_ = Predef.tk 5 tenere in + {s = table { + Inf => t_ + "enere" ; + InfClit => t_ + "ener" ; + Indi Pres Sg P1 => t_ + "engo" ; + Indi Pres Sg P2 => t_ + "ieni" ; + Indi Pres Sg P3 => t_ + "iene" ; + Indi Pres Pl P1 => t_ + "eniamo" ; + Indi Pres Pl P2 => t_ + "enete" ; + Indi Pres Pl P3 => t_ + "engono" ; + Indi Imperf Sg P1 => t_ + "enevo" ; + Indi Imperf Sg P2 => t_ + "enevi" ; + Indi Imperf Sg P3 => t_ + "eneva" ; + Indi Imperf Pl P1 => t_ + "enevamo" ; + Indi Imperf Pl P2 => t_ + "enevate" ; + Indi Imperf Pl P3 => t_ + "enevano" ; + Pass Sg P1 => t_ + "enni" ; + Pass Sg P2 => t_ + "enesti" ; + Pass Sg P3 => t_ + "enne" ; + Pass Pl P1 => t_ + "enemmo" ; + Pass Pl P2 => t_ + "eneste" ; + Pass Pl P3 => t_ + "ennero" ; + Fut Sg P1 => t_ + "errò" ; + Fut Sg P2 => t_ + "errai" ; + Fut Sg P3 => t_ + "errà" ; + Fut Pl P1 => t_ + "erremo" ; + Fut Pl P2 => t_ + "errete" ; + Fut Pl P3 => t_ + "erranno" ; + Cong Pres Sg P1 => t_ + "enga" ; + Cong Pres Sg P2 => t_ + "enga" ; + Cong Pres Sg P3 => t_ + "enga" ; + Cong Pres Pl P1 => t_ + "eniamo" ; + Cong Pres Pl P2 => t_ + "eniate" ; + Cong Pres Pl P3 => t_ + "engano" ; + Cong Imperf Sg P1 => t_ + "enessi" ; + Cong Imperf Sg P2 => t_ + "enessi" ; + Cong Imperf Sg P3 => t_ + "enesse" ; + Cong Imperf Pl P1 => t_ + "enessimo" ; + Cong Imperf Pl P2 => t_ + "eneste" ; + Cong Imperf Pl P3 => t_ + "enessero" ; + Cond Sg P1 => t_ + "errei" ; + Cond Sg P2 => t_ + "erresti" ; + Cond Sg P3 => t_ + "errebbe" ; + Cond Pl P1 => t_ + "erremmo" ; + Cond Pl P2 => t_ + "erreste" ; + Cond Pl P3 => t_ + "errebbero" ; + Imper SgP2 => t_ + "ieni" ; + Imper PlP1 => t_ + "eniamo" ; + Imper PlP2 => t_ + "enete" ; + Ger => t_ + "enendo" ; + Part PresP Masc Sg => t_ + "enente" ; + Part PresP Masc Pl => t_ + "enenti" ; + Part PresP Fem Sg => t_ + "enente" ; + Part PresP Fem Pl => t_ + "enenti" ; + Part PassP Masc Sg => t_ + "enuto" ; + Part PassP Masc Pl => t_ + "enuti" ; + Part PassP Fem Sg => t_ + "enuta" ; + Part PassP Fem Pl => t_ + "enute" + } + } ; + +oper torcere_90 : Str -> Verbo = \torcere -> + let tor_ = Predef.tk 4 torcere in + {s = table { + Inf => tor_ + "cere" ; + InfClit => tor_ + "cer" ; + Indi Pres Sg P1 => tor_ + "co" ; + Indi Pres Sg P2 => tor_ + "ci" ; + Indi Pres Sg P3 => tor_ + "ce" ; + Indi Pres Pl P1 => tor_ + "ciamo" ; + Indi Pres Pl P2 => tor_ + "cete" ; + Indi Pres Pl P3 => tor_ + "cono" ; + Indi Imperf Sg P1 => tor_ + "cevo" ; + Indi Imperf Sg P2 => tor_ + "cevi" ; + Indi Imperf Sg P3 => tor_ + "ceva" ; + Indi Imperf Pl P1 => tor_ + "cevamo" ; + Indi Imperf Pl P2 => tor_ + "cevate" ; + Indi Imperf Pl P3 => tor_ + "cevano" ; + Pass Sg P1 => tor_ + "si" ; + Pass Sg P2 => tor_ + "cesti" ; + Pass Sg P3 => tor_ + "se" ; + Pass Pl P1 => tor_ + "cemmo" ; + Pass Pl P2 => tor_ + "ceste" ; + Pass Pl P3 => tor_ + "sero" ; + Fut Sg P1 => tor_ + "cerò" ; + Fut Sg P2 => tor_ + "cerai" ; + Fut Sg P3 => tor_ + "cerà" ; + Fut Pl P1 => tor_ + "ceremo" ; + Fut Pl P2 => tor_ + "cerete" ; + Fut Pl P3 => tor_ + "ceranno" ; + Cong Pres Sg P1 => tor_ + "ca" ; + Cong Pres Sg P2 => tor_ + "ca" ; + Cong Pres Sg P3 => tor_ + "ca" ; + Cong Pres Pl P1 => tor_ + "ciamo" ; + Cong Pres Pl P2 => tor_ + "ciate" ; + Cong Pres Pl P3 => tor_ + "cano" ; + Cong Imperf Sg P1 => tor_ + "cessi" ; + Cong Imperf Sg P2 => tor_ + "cessi" ; + Cong Imperf Sg P3 => tor_ + "cesse" ; + Cong Imperf Pl P1 => tor_ + "cessimo" ; + Cong Imperf Pl P2 => tor_ + "ceste" ; + Cong Imperf Pl P3 => tor_ + "cessero" ; + Cond Sg P1 => tor_ + "cerei" ; + Cond Sg P2 => tor_ + "ceresti" ; + Cond Sg P3 => tor_ + "cerebbe" ; + Cond Pl P1 => tor_ + "ceremmo" ; + Cond Pl P2 => tor_ + "cereste" ; + Cond Pl P3 => tor_ + "cerebbero" ; + Imper SgP2 => tor_ + "ci" ; + Imper PlP1 => tor_ + "ciamo" ; + Imper PlP2 => tor_ + "cete" ; + Ger => tor_ + "cendo" ; + Part PresP Masc Sg => tor_ + "cente" ; + Part PresP Masc Pl => tor_ + "centi" ; + Part PresP Fem Sg => tor_ + "cente" ; + Part PresP Fem Pl => tor_ + "centi" ; + Part PassP Masc Sg => tor_ + "to" ; + Part PassP Masc Pl => tor_ + "ti" ; + Part PassP Fem Sg => tor_ + "ta" ; + Part PassP Fem Pl => tor_ + "te" + } + } ; + +oper trarre_91 : Str -> Verbo = \trarre -> + let tra_ = Predef.tk 3 trarre in + {s = table { + Inf => tra_ + "rre" ; + InfClit => tra_ + "r" ; + Indi Pres Sg P1 => tra_ + "ggo" ; + Indi Pres Sg P2 => tra_ + "i" ; + Indi Pres Sg P3 => tra_ + "e" ; + Indi Pres Pl P1 => tra_ + "iamo" ; + Indi Pres Pl P2 => tra_ + "ete" ; + Indi Pres Pl P3 => tra_ + "ggono" ; + Indi Imperf Sg P1 => tra_ + "evo" ; + Indi Imperf Sg P2 => tra_ + "evi" ; + Indi Imperf Sg P3 => tra_ + "eva" ; + Indi Imperf Pl P1 => tra_ + "evamo" ; + Indi Imperf Pl P2 => tra_ + "evate" ; + Indi Imperf Pl P3 => tra_ + "evano" ; + Pass Sg P1 => tra_ + "ssi" ; + Pass Sg P2 => tra_ + "esti" ; + Pass Sg P3 => tra_ + "sse" ; + Pass Pl P1 => tra_ + "emmo" ; + Pass Pl P2 => tra_ + "este" ; + Pass Pl P3 => tra_ + "ssero" ; + Fut Sg P1 => tra_ + "rrò" ; + Fut Sg P2 => tra_ + "rrai" ; + Fut Sg P3 => tra_ + "rrà" ; + Fut Pl P1 => tra_ + "rremo" ; + Fut Pl P2 => tra_ + "rrete" ; + Fut Pl P3 => tra_ + "rranno" ; + Cong Pres Sg P1 => tra_ + "gga" ; + Cong Pres Sg P2 => tra_ + "gga" ; + Cong Pres Sg P3 => tra_ + "gga" ; + Cong Pres Pl P1 => tra_ + "iamo" ; + Cong Pres Pl P2 => tra_ + "iate" ; + Cong Pres Pl P3 => tra_ + "ggano" ; + Cong Imperf Sg P1 => tra_ + "essi" ; + Cong Imperf Sg P2 => tra_ + "essi" ; + Cong Imperf Sg P3 => tra_ + "esse" ; + Cong Imperf Pl P1 => tra_ + "essimo" ; + Cong Imperf Pl P2 => tra_ + "este" ; + Cong Imperf Pl P3 => tra_ + "essero" ; + Cond Sg P1 => tra_ + "rrei" ; + Cond Sg P2 => tra_ + "rresti" ; + Cond Sg P3 => tra_ + "rrebbe" ; + Cond Pl P1 => tra_ + "rremmo" ; + Cond Pl P2 => tra_ + "rreste" ; + Cond Pl P3 => tra_ + "rrebbero" ; + Imper SgP2 => tra_ + "i" ; + Imper PlP1 => tra_ + "iamo" ; + Imper PlP2 => tra_ + "ete" ; + Ger => tra_ + "endo" ; + Part PresP Masc Sg => tra_ + "ente" ; + Part PresP Masc Pl => tra_ + "enti" ; + Part PresP Fem Sg => tra_ + "ente" ; + Part PresP Fem Pl => tra_ + "enti" ; + Part PassP Masc Sg => tra_ + "tto" ; + Part PassP Masc Pl => tra_ + "tti" ; + Part PassP Fem Sg => tra_ + "tta" ; + Part PassP Fem Pl => tra_ + "tte" + } + } ; + +oper valere_92 : Str -> Verbo = \valere -> + let va_ = Predef.tk 4 valere in + {s = table { + Inf => va_ + "lere" ; + InfClit => va_ + "ler" ; + Indi Pres Sg P1 => va_ + "lgo" ; + Indi Pres Sg P2 => va_ + "li" ; + Indi Pres Sg P3 => va_ + "le" ; + Indi Pres Pl P1 => va_ + "liamo" ; + Indi Pres Pl P2 => va_ + "lete" ; + Indi Pres Pl P3 => va_ + "lgono" ; + Indi Imperf Sg P1 => va_ + "levo" ; + Indi Imperf Sg P2 => va_ + "levi" ; + Indi Imperf Sg P3 => va_ + "leva" ; + Indi Imperf Pl P1 => va_ + "levamo" ; + Indi Imperf Pl P2 => va_ + "levate" ; + Indi Imperf Pl P3 => va_ + "levano" ; + Pass Sg P1 => va_ + "lsi" ; + Pass Sg P2 => va_ + "lesti" ; + Pass Sg P3 => va_ + "lse" ; + Pass Pl P1 => va_ + "lemmo" ; + Pass Pl P2 => va_ + "leste" ; + Pass Pl P3 => va_ + "lsero" ; + Fut Sg P1 => va_ + "rrò" ; + Fut Sg P2 => va_ + "rrai" ; + Fut Sg P3 => va_ + "rrà" ; + Fut Pl P1 => va_ + "rremo" ; + Fut Pl P2 => va_ + "rrete" ; + Fut Pl P3 => va_ + "rranno" ; + Cong Pres Sg P1 => va_ + "lga" ; + Cong Pres Sg P2 => va_ + "lga" ; + Cong Pres Sg P3 => va_ + "lga" ; + Cong Pres Pl P1 => va_ + "liamo" ; + Cong Pres Pl P2 => va_ + "liate" ; + Cong Pres Pl P3 => va_ + "lgano" ; + Cong Imperf Sg P1 => va_ + "lessi" ; + Cong Imperf Sg P2 => va_ + "lessi" ; + Cong Imperf Sg P3 => va_ + "lesse" ; + Cong Imperf Pl P1 => va_ + "lessimo" ; + Cong Imperf Pl P2 => va_ + "leste" ; + Cong Imperf Pl P3 => va_ + "lessero" ; + Cond Sg P1 => va_ + "rrei" ; + Cond Sg P2 => va_ + "rresti" ; + Cond Sg P3 => va_ + "rrebbe" ; + Cond Pl P1 => va_ + "rremmo" ; + Cond Pl P2 => va_ + "rreste" ; + Cond Pl P3 => va_ + "rrebbero" ; + Imper SgP2 => va_ + "li" ; + Imper PlP1 => va_ + "liamo" ; + Imper PlP2 => va_ + "lete" ; + Ger => va_ + "lendo" ; + Part PresP Masc Sg => va_ + "lente" ; + Part PresP Masc Pl => va_ + "lenti" ; + Part PresP Fem Sg => va_ + "lente" ; + Part PresP Fem Pl => va_ + "lenti" ; + Part PassP Masc Sg => va_ + "lso" ; + Part PassP Masc Pl => va_ + "lsi" ; + Part PassP Fem Sg => va_ + "lsa" ; + Part PassP Fem Pl => va_ + "lse" + } + } ; + +oper vedere_93 : Str -> Verbo = \vedereedere -> + let vedere_ = Predef.tk 5 vedereedere in + {s = table { + Inf => vedere_ + "edere" ; + InfClit => vedere_ + "eder" ; + Indi Pres Sg P1 => vedere_ + "edo" ; + Indi Pres Sg P2 => vedere_ + "edi" ; + Indi Pres Sg P3 => vedere_ + "ede" ; + Indi Pres Pl P1 => vedere_ + "ediamo" ; + Indi Pres Pl P2 => vedere_ + "edete" ; + Indi Pres Pl P3 => vedere_ + "edono" ; + Indi Imperf Sg P1 => vedere_ + "edevo" ; + Indi Imperf Sg P2 => vedere_ + "edevi" ; + Indi Imperf Sg P3 => vedere_ + "edeva" ; + Indi Imperf Pl P1 => vedere_ + "edevamo" ; + Indi Imperf Pl P2 => vedere_ + "edevate" ; + Indi Imperf Pl P3 => vedere_ + "edevano" ; + Pass Sg P1 => vedere_ + "idi" ; + Pass Sg P2 => vedere_ + "edesti" ; + Pass Sg P3 => vedere_ + "ide" ; + Pass Pl P1 => vedere_ + "edemmo" ; + Pass Pl P2 => vedere_ + "edeste" ; + Pass Pl P3 => vedere_ + "idero" ; + Fut Sg P1 => vedere_ + "edrò" ; + Fut Sg P2 => vedere_ + "edrai" ; + Fut Sg P3 => vedere_ + "edrà" ; + Fut Pl P1 => vedere_ + "edremo" ; + Fut Pl P2 => vedere_ + "edrete" ; + Fut Pl P3 => vedere_ + "edranno" ; + Cong Pres Sg P1 => vedere_ + "eda" ; + Cong Pres Sg P2 => vedere_ + "eda" ; + Cong Pres Sg P3 => vedere_ + "eda" ; + Cong Pres Pl P1 => vedere_ + "ediamo" ; + Cong Pres Pl P2 => vedere_ + "ediate" ; + Cong Pres Pl P3 => vedere_ + "edano" ; + Cong Imperf Sg P1 => vedere_ + "edessi" ; + Cong Imperf Sg P2 => vedere_ + "edessi" ; + Cong Imperf Sg P3 => vedere_ + "edesse" ; + Cong Imperf Pl P1 => vedere_ + "edessimo" ; + Cong Imperf Pl P2 => vedere_ + "edeste" ; + Cong Imperf Pl P3 => vedere_ + "edessero" ; + Cond Sg P1 => vedere_ + "edrei" ; + Cond Sg P2 => vedere_ + "edresti" ; + Cond Sg P3 => vedere_ + "edrebbe" ; + Cond Pl P1 => vedere_ + "edremmo" ; + Cond Pl P2 => vedere_ + "edreste" ; + Cond Pl P3 => vedere_ + "edrebbero" ; + Imper SgP2 => vedere_ + "edi" ; + Imper PlP1 => vedere_ + "ediamo" ; + Imper PlP2 => vedere_ + "edete" ; + Ger => vedere_ + "edendo" ; + Part PresP Masc Sg => vedere_ + "edente" ; + Part PresP Masc Pl => vedere_ + "edenti" ; + Part PresP Fem Sg => vedere_ + "edente" ; + Part PresP Fem Pl => vedere_ + "edenti" ; + Part PassP Masc Sg => vedere_ + "isto" ; + Part PassP Masc Pl => vedere_ + "isti" ; + Part PassP Fem Sg => vedere_ + "ista" ; + Part PassP Fem Pl => vedere_ + "iste" + } + } ; + +oper vincere_94 : Str -> Verbo = \vincere -> + let vin_ = Predef.tk 4 vincere in + {s = table { + Inf => vin_ + "cere" ; + InfClit => vin_ + "cer" ; + Indi Pres Sg P1 => vin_ + "co" ; + Indi Pres Sg P2 => vin_ + "ci" ; + Indi Pres Sg P3 => vin_ + "ce" ; + Indi Pres Pl P1 => vin_ + "ciamo" ; + Indi Pres Pl P2 => vin_ + "cete" ; + Indi Pres Pl P3 => vin_ + "cono" ; + Indi Imperf Sg P1 => vin_ + "cevo" ; + Indi Imperf Sg P2 => vin_ + "cevi" ; + Indi Imperf Sg P3 => vin_ + "ceva" ; + Indi Imperf Pl P1 => vin_ + "cevamo" ; + Indi Imperf Pl P2 => vin_ + "cevate" ; + Indi Imperf Pl P3 => vin_ + "cevano" ; + Pass Sg P1 => vin_ + "si" ; + Pass Sg P2 => vin_ + "cesti" ; + Pass Sg P3 => vin_ + "se" ; + Pass Pl P1 => vin_ + "cemmo" ; + Pass Pl P2 => vin_ + "ceste" ; + Pass Pl P3 => vin_ + "sero" ; + Fut Sg P1 => vin_ + "cerò" ; + Fut Sg P2 => vin_ + "cerai" ; + Fut Sg P3 => vin_ + "cerà" ; + Fut Pl P1 => vin_ + "ceremo" ; + Fut Pl P2 => vin_ + "cerete" ; + Fut Pl P3 => vin_ + "ceranno" ; + Cong Pres Sg P1 => vin_ + "ca" ; + Cong Pres Sg P2 => vin_ + "ca" ; + Cong Pres Sg P3 => vin_ + "ca" ; + Cong Pres Pl P1 => vin_ + "ciamo" ; + Cong Pres Pl P2 => vin_ + "ciate" ; + Cong Pres Pl P3 => vin_ + "cano" ; + Cong Imperf Sg P1 => vin_ + "cessi" ; + Cong Imperf Sg P2 => vin_ + "cessi" ; + Cong Imperf Sg P3 => vin_ + "cesse" ; + Cong Imperf Pl P1 => vin_ + "cessimo" ; + Cong Imperf Pl P2 => vin_ + "ceste" ; + Cong Imperf Pl P3 => vin_ + "cessero" ; + Cond Sg P1 => vin_ + "cerei" ; + Cond Sg P2 => vin_ + "ceresti" ; + Cond Sg P3 => vin_ + "cerebbe" ; + Cond Pl P1 => vin_ + "ceremmo" ; + Cond Pl P2 => vin_ + "cereste" ; + Cond Pl P3 => vin_ + "cerebbero" ; + Imper SgP2 => vin_ + "ci" ; + Imper PlP1 => vin_ + "ciamo" ; + Imper PlP2 => vin_ + "cete" ; + Ger => vin_ + "cendo" ; + Part PresP Masc Sg => vin_ + "cente" ; + Part PresP Masc Pl => vin_ + "centi" ; + Part PresP Fem Sg => vin_ + "cente" ; + Part PresP Fem Pl => vin_ + "centi" ; + Part PassP Masc Sg => vin_ + "to" ; + Part PassP Masc Pl => vin_ + "ti" ; + Part PassP Fem Sg => vin_ + "ta" ; + Part PassP Fem Pl => vin_ + "te" + } + } ; + +oper vivere_95 : Str -> Verbo = \viverevere -> + let vivere_ = Predef.tk 4 viverevere in + {s = table { + Inf => vivere_ + "vere" ; + InfClit => vivere_ + "ver" ; + Indi Pres Sg P1 => vivere_ + "vo" ; + Indi Pres Sg P2 => vivere_ + "vi" ; + Indi Pres Sg P3 => vivere_ + "ve" ; + Indi Pres Pl P1 => vivere_ + "viamo" ; + Indi Pres Pl P2 => vivere_ + "vete" ; + Indi Pres Pl P3 => vivere_ + "vono" ; + Indi Imperf Sg P1 => vivere_ + "vevo" ; + Indi Imperf Sg P2 => vivere_ + "vevi" ; + Indi Imperf Sg P3 => vivere_ + "veva" ; + Indi Imperf Pl P1 => vivere_ + "vevamo" ; + Indi Imperf Pl P2 => vivere_ + "vevate" ; + Indi Imperf Pl P3 => vivere_ + "vevano" ; + Pass Sg P1 => vivere_ + "ssi" ; + Pass Sg P2 => vivere_ + "vesti" ; + Pass Sg P3 => vivere_ + "sse" ; + Pass Pl P1 => vivere_ + "vemmo" ; + Pass Pl P2 => vivere_ + "veste" ; + Pass Pl P3 => vivere_ + "ssero" ; + Fut Sg P1 => vivere_ + "vrò" ; + Fut Sg P2 => vivere_ + "vrai" ; + Fut Sg P3 => vivere_ + "vrà" ; + Fut Pl P1 => vivere_ + "vremo" ; + Fut Pl P2 => vivere_ + "vrete" ; + Fut Pl P3 => vivere_ + "vranno" ; + Cong Pres Sg P1 => vivere_ + "va" ; + Cong Pres Sg P2 => vivere_ + "va" ; + Cong Pres Sg P3 => vivere_ + "va" ; + Cong Pres Pl P1 => vivere_ + "viamo" ; + Cong Pres Pl P2 => vivere_ + "viate" ; + Cong Pres Pl P3 => vivere_ + "vano" ; + Cong Imperf Sg P1 => vivere_ + "vessi" ; + Cong Imperf Sg P2 => vivere_ + "vessi" ; + Cong Imperf Sg P3 => vivere_ + "vesse" ; + Cong Imperf Pl P1 => vivere_ + "vessimo" ; + Cong Imperf Pl P2 => vivere_ + "veste" ; + Cong Imperf Pl P3 => vivere_ + "vessero" ; + Cond Sg P1 => vivere_ + "vrei" ; + Cond Sg P2 => vivere_ + "vresti" ; + Cond Sg P3 => vivere_ + "vrebbe" ; + Cond Pl P1 => vivere_ + "vremmo" ; + Cond Pl P2 => vivere_ + "vreste" ; + Cond Pl P3 => vivere_ + "vrebbero" ; + Imper SgP2 => vivere_ + "vi" ; + Imper PlP1 => vivere_ + "viamo" ; + Imper PlP2 => vivere_ + "vete" ; + Ger => vivere_ + "vendo" ; + Part PresP Masc Sg => vivere_ + "vente" ; + Part PresP Masc Pl => vivere_ + "venti" ; + Part PresP Fem Sg => vivere_ + "vente" ; + Part PresP Fem Pl => vivere_ + "venti" ; + Part PassP Masc Sg => vivere_ + "ssuto" ; + Part PassP Masc Pl => vivere_ + "ssuti" ; + Part PassP Fem Sg => vivere_ + "ssuta" ; + Part PassP Fem Pl => vivere_ + "ssute" + } + } ; + +oper volere_96 : Str -> Verbo = \volere -> + let v_ = Predef.tk 5 volere in + {s = table { + Inf => v_ + "olere" ; + InfClit => v_ + "oler" ; + Indi Pres Sg P1 => v_ + "oglio" ; + Indi Pres Sg P2 => v_ + "uoi" ; + Indi Pres Sg P3 => v_ + "uole" ; + Indi Pres Pl P1 => v_ + "ogliamo" ; + Indi Pres Pl P2 => v_ + "olete" ; + Indi Pres Pl P3 => v_ + "ogliono" ; + Indi Imperf Sg P1 => v_ + "olevo" ; + Indi Imperf Sg P2 => v_ + "olevi" ; + Indi Imperf Sg P3 => v_ + "oleva" ; + Indi Imperf Pl P1 => v_ + "olevamo" ; + Indi Imperf Pl P2 => v_ + "olevate" ; + Indi Imperf Pl P3 => v_ + "olevano" ; + Pass Sg P1 => v_ + "olli" ; + Pass Sg P2 => v_ + "olesti" ; + Pass Sg P3 => v_ + "olle" ; + Pass Pl P1 => v_ + "olemmo" ; + Pass Pl P2 => v_ + "oleste" ; + Pass Pl P3 => v_ + "ollero" ; + Fut Sg P1 => v_ + "orrò" ; + Fut Sg P2 => v_ + "orrai" ; + Fut Sg P3 => v_ + "orrà" ; + Fut Pl P1 => v_ + "orremo" ; + Fut Pl P2 => v_ + "orrete" ; + Fut Pl P3 => v_ + "orranno" ; + Cong Pres Sg P1 => v_ + "oglia" ; + Cong Pres Sg P2 => v_ + "oglia" ; + Cong Pres Sg P3 => v_ + "oglia" ; + Cong Pres Pl P1 => v_ + "ogliamo" ; + Cong Pres Pl P2 => v_ + "ogliate" ; + Cong Pres Pl P3 => v_ + "ogliano" ; + Cong Imperf Sg P1 => v_ + "olessi" ; + Cong Imperf Sg P2 => v_ + "olessi" ; + Cong Imperf Sg P3 => v_ + "olesse" ; + Cong Imperf Pl P1 => v_ + "olessimo" ; + Cong Imperf Pl P2 => v_ + "oleste" ; + Cong Imperf Pl P3 => v_ + "olessero" ; + Cond Sg P1 => v_ + "orrei" ; + Cond Sg P2 => v_ + "orresti" ; + Cond Sg P3 => v_ + "orrebbe" ; + Cond Pl P1 => v_ + "orremmo" ; + Cond Pl P2 => v_ + "orreste" ; + Cond Pl P3 => v_ + "orrebbero" ; + Imper SgP2 => v_ + "uoi" ; + Imper PlP1 => v_ + "ogliamo" ; + Imper PlP2 => v_ + "olete" ; + Ger => v_ + "olendo" ; + Part PresP Masc Sg => v_ + "olente" ; + Part PresP Masc Pl => v_ + "olenti" ; + Part PresP Fem Sg => v_ + "olente" ; + Part PresP Fem Pl => v_ + "olenti" ; + Part PassP Masc Sg => v_ + "oluto" ; + Part PassP Masc Pl => v_ + "oluti" ; + Part PassP Fem Sg => v_ + "oluta" ; + Part PassP Fem Pl => v_ + "olute" + } + } ; + +oper volgere_97 : Str -> Verbo = \volgere -> + let vol_ = Predef.tk 4 volgere in + {s = table { + Inf => vol_ + "gere" ; + InfClit => vol_ + "ger" ; + Indi Pres Sg P1 => vol_ + "go" ; + Indi Pres Sg P2 => vol_ + "gi" ; + Indi Pres Sg P3 => vol_ + "ge" ; + Indi Pres Pl P1 => vol_ + "giamo" ; + Indi Pres Pl P2 => vol_ + "gete" ; + Indi Pres Pl P3 => vol_ + "gono" ; + Indi Imperf Sg P1 => vol_ + "gevo" ; + Indi Imperf Sg P2 => vol_ + "gevi" ; + Indi Imperf Sg P3 => vol_ + "geva" ; + Indi Imperf Pl P1 => vol_ + "gevamo" ; + Indi Imperf Pl P2 => vol_ + "gevate" ; + Indi Imperf Pl P3 => vol_ + "gevano" ; + Pass Sg P1 => vol_ + "si" ; + Pass Sg P2 => vol_ + "gesti" ; + Pass Sg P3 => vol_ + "se" ; + Pass Pl P1 => vol_ + "gemmo" ; + Pass Pl P2 => vol_ + "geste" ; + Pass Pl P3 => vol_ + "sero" ; + Fut Sg P1 => vol_ + "gerò" ; + Fut Sg P2 => vol_ + "gerai" ; + Fut Sg P3 => vol_ + "gerà" ; + Fut Pl P1 => vol_ + "geremo" ; + Fut Pl P2 => vol_ + "gerete" ; + Fut Pl P3 => vol_ + "geranno" ; + Cong Pres Sg P1 => vol_ + "ga" ; + Cong Pres Sg P2 => vol_ + "ga" ; + Cong Pres Sg P3 => vol_ + "ga" ; + Cong Pres Pl P1 => vol_ + "giamo" ; + Cong Pres Pl P2 => vol_ + "giate" ; + Cong Pres Pl P3 => vol_ + "gano" ; + Cong Imperf Sg P1 => vol_ + "gessi" ; + Cong Imperf Sg P2 => vol_ + "gessi" ; + Cong Imperf Sg P3 => vol_ + "gesse" ; + Cong Imperf Pl P1 => vol_ + "gessimo" ; + Cong Imperf Pl P2 => vol_ + "geste" ; + Cong Imperf Pl P3 => vol_ + "gessero" ; + Cond Sg P1 => vol_ + "gerei" ; + Cond Sg P2 => vol_ + "geresti" ; + Cond Sg P3 => vol_ + "gerebbe" ; + Cond Pl P1 => vol_ + "geremmo" ; + Cond Pl P2 => vol_ + "gereste" ; + Cond Pl P3 => vol_ + "gerebbero" ; + Imper SgP2 => vol_ + "gi" ; + Imper PlP1 => vol_ + "giamo" ; + Imper PlP2 => vol_ + "gete" ; + Ger => vol_ + "gendo" ; + Part PresP Masc Sg => vol_ + "gente" ; + Part PresP Masc Pl => vol_ + "genti" ; + Part PresP Fem Sg => vol_ + "gente" ; + Part PresP Fem Pl => vol_ + "genti" ; + Part PassP Masc Sg => vol_ + "to" ; + Part PassP Masc Pl => vol_ + "ti" ; + Part PassP Fem Sg => vol_ + "ta" ; + Part PassP Fem Pl => vol_ + "te" + } + } ; + +---- solere_98a +---- suggere_98b + +oper sentire_99 : Str -> Verbo = \sentire -> + let sen_ = Predef.tk 4 sentire in + {s = table { + Inf => sen_ + "tire" ; + InfClit => sen_ + "tir" ; + Indi Pres Sg P1 => sen_ + "to" ; + Indi Pres Sg P2 => sen_ + "ti" ; + Indi Pres Sg P3 => sen_ + "te" ; + Indi Pres Pl P1 => sen_ + "tiamo" ; + Indi Pres Pl P2 => sen_ + "tite" ; + Indi Pres Pl P3 => sen_ + "tono" ; + Indi Imperf Sg P1 => sen_ + "tivo" ; + Indi Imperf Sg P2 => sen_ + "tivi" ; + Indi Imperf Sg P3 => sen_ + "tiva" ; + Indi Imperf Pl P1 => sen_ + "tivamo" ; + Indi Imperf Pl P2 => sen_ + "tivate" ; + Indi Imperf Pl P3 => sen_ + "tivano" ; + Pass Sg P1 => sen_ + "tii" ; + Pass Sg P2 => sen_ + "tisti" ; + Pass Sg P3 => sen_ + "tì" ; + Pass Pl P1 => sen_ + "timmo" ; + Pass Pl P2 => sen_ + "tiste" ; + Pass Pl P3 => sen_ + "tirono" ; + Fut Sg P1 => sen_ + "tirò" ; + Fut Sg P2 => sen_ + "tirai" ; + Fut Sg P3 => sen_ + "tirà" ; + Fut Pl P1 => sen_ + "tiremo" ; + Fut Pl P2 => sen_ + "tirete" ; + Fut Pl P3 => sen_ + "tiranno" ; + Cong Pres Sg P1 => sen_ + "ta" ; + Cong Pres Sg P2 => sen_ + "ta" ; + Cong Pres Sg P3 => sen_ + "ta" ; + Cong Pres Pl P1 => sen_ + "tiamo" ; + Cong Pres Pl P2 => sen_ + "tiate" ; + Cong Pres Pl P3 => sen_ + "tano" ; + Cong Imperf Sg P1 => sen_ + "tissi" ; + Cong Imperf Sg P2 => sen_ + "tissi" ; + Cong Imperf Sg P3 => sen_ + "tisse" ; + Cong Imperf Pl P1 => sen_ + "tissimo" ; + Cong Imperf Pl P2 => sen_ + "tiste" ; + Cong Imperf Pl P3 => sen_ + "tissero" ; + Cond Sg P1 => sen_ + "tirei" ; + Cond Sg P2 => sen_ + "tiresti" ; + Cond Sg P3 => sen_ + "tirebbe" ; + Cond Pl P1 => sen_ + "tiremmo" ; + Cond Pl P2 => sen_ + "tireste" ; + Cond Pl P3 => sen_ + "tirebbero" ; + Imper SgP2 => sen_ + "ti" ; + Imper PlP1 => sen_ + "tiamo" ; + Imper PlP2 => sen_ + "tite" ; + Ger => sen_ + "tendo" ; + Part PresP Masc Sg => sen_ + "zient" ; + Part PresP Masc Pl => sen_ + "zieni" ; + Part PresP Fem Sg => sen_ + "zient" ; + Part PresP Fem Pl => sen_ + "zieni" ; + Part PassP Masc Sg => sen_ + "tito" ; + Part PassP Masc Pl => sen_ + "titi" ; + Part PassP Fem Sg => sen_ + "tita" ; + Part PassP Fem Pl => sen_ + "tite" + } + } ; + +oper dormire_99b : Str -> Verbo = \dormire -> + let dorm_ = Predef.tk 3 dormire in + {s = table { + Inf => dorm_ + "ire" ; + InfClit => dorm_ + "ir" ; + Indi Pres Sg P1 => dorm_ + "o" ; + Indi Pres Sg P2 => dorm_ + "i" ; + Indi Pres Sg P3 => dorm_ + "e" ; + Indi Pres Pl P1 => dorm_ + "iamo" ; + Indi Pres Pl P2 => dorm_ + "ite" ; + Indi Pres Pl P3 => dorm_ + "ono" ; + Indi Imperf Sg P1 => dorm_ + "ivo" ; + Indi Imperf Sg P2 => dorm_ + "ivi" ; + Indi Imperf Sg P3 => dorm_ + "iva" ; + Indi Imperf Pl P1 => dorm_ + "ivamo" ; + Indi Imperf Pl P2 => dorm_ + "ivate" ; + Indi Imperf Pl P3 => dorm_ + "ivano" ; + Pass Sg P1 => dorm_ + "ii" ; + Pass Sg P2 => dorm_ + "isti" ; + Pass Sg P3 => dorm_ + "ì" ; + Pass Pl P1 => dorm_ + "immo" ; + Pass Pl P2 => dorm_ + "iste" ; + Pass Pl P3 => dorm_ + "irono" ; + Fut Sg P1 => dorm_ + "irò" ; + Fut Sg P2 => dorm_ + "irai" ; + Fut Sg P3 => dorm_ + "irà" ; + Fut Pl P1 => dorm_ + "iremo" ; + Fut Pl P2 => dorm_ + "irete" ; + Fut Pl P3 => dorm_ + "iranno" ; + Cong Pres Sg P1 => dorm_ + "a" ; + Cong Pres Sg P2 => dorm_ + "a" ; + Cong Pres Sg P3 => dorm_ + "a" ; + Cong Pres Pl P1 => dorm_ + "iamo" ; + Cong Pres Pl P2 => dorm_ + "iate" ; + Cong Pres Pl P3 => dorm_ + "ano" ; + Cong Imperf Sg P1 => dorm_ + "issi" ; + Cong Imperf Sg P2 => dorm_ + "issi" ; + Cong Imperf Sg P3 => dorm_ + "isse" ; + Cong Imperf Pl P1 => dorm_ + "issimo" ; + Cong Imperf Pl P2 => dorm_ + "iste" ; + Cong Imperf Pl P3 => dorm_ + "issero" ; + Cond Sg P1 => dorm_ + "irei" ; + Cond Sg P2 => dorm_ + "iresti" ; + Cond Sg P3 => dorm_ + "irebbe" ; + Cond Pl P1 => dorm_ + "iremmo" ; + Cond Pl P2 => dorm_ + "ireste" ; + Cond Pl P3 => dorm_ + "irebbero" ; + Imper SgP2 => dorm_ + "i" ; + Imper PlP1 => dorm_ + "iamo" ; + Imper PlP2 => dorm_ + "ite" ; + Ger => dorm_ + "endo" ; + Part PresP Masc Sg => dorm_ + "ente" ; + Part PresP Masc Pl => dorm_ + "enti" ; + Part PresP Fem Sg => dorm_ + "ente" ; + Part PresP Fem Pl => dorm_ + "enti" ; + Part PassP Masc Sg => dorm_ + "ito" ; + Part PassP Masc Pl => dorm_ + "iti" ; + Part PassP Fem Sg => dorm_ + "ita" ; + Part PassP Fem Pl => dorm_ + "ite" + } + } ; + +oper finire_100 : Str -> Verbo = \finire -> + let fin_ = Predef.tk 3 finire in + {s = table { + Inf => fin_ + "ire" ; + InfClit => fin_ + "ir" ; + Indi Pres Sg P1 => fin_ + "isco" ; + Indi Pres Sg P2 => fin_ + "isci" ; + Indi Pres Sg P3 => fin_ + "isce" ; + Indi Pres Pl P1 => fin_ + "iamo" ; + Indi Pres Pl P2 => fin_ + "ite" ; + Indi Pres Pl P3 => fin_ + "iscono" ; + Indi Imperf Sg P1 => fin_ + "ivo" ; + Indi Imperf Sg P2 => fin_ + "ivi" ; + Indi Imperf Sg P3 => fin_ + "iva" ; + Indi Imperf Pl P1 => fin_ + "ivamo" ; + Indi Imperf Pl P2 => fin_ + "ivate" ; + Indi Imperf Pl P3 => fin_ + "ivano" ; + Pass Sg P1 => fin_ + "ii" ; + Pass Sg P2 => fin_ + "isti" ; + Pass Sg P3 => fin_ + "ì" ; + Pass Pl P1 => fin_ + "immo" ; + Pass Pl P2 => fin_ + "iste" ; + Pass Pl P3 => fin_ + "irono" ; + Fut Sg P1 => fin_ + "irò" ; + Fut Sg P2 => fin_ + "irai" ; + Fut Sg P3 => fin_ + "irà" ; + Fut Pl P1 => fin_ + "iremo" ; + Fut Pl P2 => fin_ + "irete" ; + Fut Pl P3 => fin_ + "iranno" ; + Cong Pres Sg P1 => fin_ + "isca" ; + Cong Pres Sg P2 => fin_ + "isca" ; + Cong Pres Sg P3 => fin_ + "isca" ; + Cong Pres Pl P1 => fin_ + "iamo" ; + Cong Pres Pl P2 => fin_ + "iate" ; + Cong Pres Pl P3 => fin_ + "iscano" ; + Cong Imperf Sg P1 => fin_ + "issi" ; + Cong Imperf Sg P2 => fin_ + "issi" ; + Cong Imperf Sg P3 => fin_ + "isse" ; + Cong Imperf Pl P1 => fin_ + "issimo" ; + Cong Imperf Pl P2 => fin_ + "iste" ; + Cong Imperf Pl P3 => fin_ + "issero" ; + Cond Sg P1 => fin_ + "irei" ; + Cond Sg P2 => fin_ + "iresti" ; + Cond Sg P3 => fin_ + "irebbe" ; + Cond Pl P1 => fin_ + "iremmo" ; + Cond Pl P2 => fin_ + "ireste" ; + Cond Pl P3 => fin_ + "irebbero" ; + Imper SgP2 => fin_ + "isci" ; + Imper PlP1 => fin_ + "iamo" ; + Imper PlP2 => fin_ + "ite" ; + Ger => fin_ + "endo" ; + Part PresP Masc Sg => fin_ + "ente" ; + Part PresP Masc Pl => fin_ + "enti" ; + Part PresP Fem Sg => fin_ + "ente" ; + Part PresP Fem Pl => fin_ + "enti" ; + Part PassP Masc Sg => fin_ + "ito" ; + Part PassP Masc Pl => fin_ + "iti" ; + Part PassP Fem Sg => fin_ + "ita" ; + Part PassP Fem Pl => fin_ + "ite" + } + } ; + +---- apparire_101 + +oper aprire_102 : Str -> Verbo = \aprire -> + let ap_ = Predef.tk 4 aprire in + {s = table { + Inf => ap_ + "rire" ; + InfClit => ap_ + "rir" ; + Indi Pres Sg P1 => ap_ + "ro" ; + Indi Pres Sg P2 => ap_ + "ri" ; + Indi Pres Sg P3 => ap_ + "re" ; + Indi Pres Pl P1 => ap_ + "riamo" ; + Indi Pres Pl P2 => ap_ + "rite" ; + Indi Pres Pl P3 => ap_ + "rono" ; + Indi Imperf Sg P1 => ap_ + "rivo" ; + Indi Imperf Sg P2 => ap_ + "rivi" ; + Indi Imperf Sg P3 => ap_ + "riva" ; + Indi Imperf Pl P1 => ap_ + "rivamo" ; + Indi Imperf Pl P2 => ap_ + "rivate" ; + Indi Imperf Pl P3 => ap_ + "rivano" ; + Pass Sg P1 => variants {ap_ + "rii" ; ap_ + "ersi"} ; + Pass Sg P2 => ap_ + "risti" ; + Pass Sg P3 => variants {ap_ + "rì" ; ap_ + "erse"} ; + Pass Pl P1 => ap_ + "rimmo" ; + Pass Pl P2 => ap_ + "riste" ; + Pass Pl P3 => variants {ap_ + "rirono" ; ap_ + "ersero"} ; + Fut Sg P1 => ap_ + "rirò" ; + Fut Sg P2 => ap_ + "rirai" ; + Fut Sg P3 => ap_ + "rirà" ; + Fut Pl P1 => ap_ + "riremo" ; + Fut Pl P2 => ap_ + "rirete" ; + Fut Pl P3 => ap_ + "riranno" ; + Cong Pres Sg P1 => ap_ + "ra" ; + Cong Pres Sg P2 => ap_ + "ra" ; + Cong Pres Sg P3 => ap_ + "ra" ; + Cong Pres Pl P1 => ap_ + "riamo" ; + Cong Pres Pl P2 => ap_ + "riate" ; + Cong Pres Pl P3 => ap_ + "rano" ; + Cong Imperf Sg P1 => ap_ + "rissi" ; + Cong Imperf Sg P2 => ap_ + "rissi" ; + Cong Imperf Sg P3 => ap_ + "risse" ; + Cong Imperf Pl P1 => ap_ + "rissimo" ; + Cong Imperf Pl P2 => ap_ + "riste" ; + Cong Imperf Pl P3 => ap_ + "rissero" ; + Cond Sg P1 => ap_ + "rirei" ; + Cond Sg P2 => ap_ + "riresti" ; + Cond Sg P3 => ap_ + "rirebbe" ; + Cond Pl P1 => ap_ + "riremmo" ; + Cond Pl P2 => ap_ + "rireste" ; + Cond Pl P3 => ap_ + "rirebbero" ; + Imper SgP2 => ap_ + "ri" ; + Imper PlP1 => ap_ + "riamo" ; + Imper PlP2 => ap_ + "rite" ; + Ger => ap_ + "rendo" ; + Part PresP Masc Sg => ap_ + "rendo" ; + Part PresP Masc Pl => ap_ + "rendo" ; + Part PresP Fem Sg => ap_ + "rendo" ; + Part PresP Fem Pl => ap_ + "rendo" ; + Part PassP Masc Sg => ap_ + "erto" ; + Part PassP Masc Pl => ap_ + "erti" ; + Part PassP Fem Sg => ap_ + "erta" ; + Part PassP Fem Pl => ap_ + "erte" + } + } ; + + +oper cucire_103 : Str -> Verbo = \cucire -> + let cuc_ = Predef.tk 3 cucire in + {s = table { + Inf => cuc_ + "ire" ; + InfClit => cuc_ + "ir" ; + Indi Pres Sg P1 => cuc_ + "io" ; + Indi Pres Sg P2 => cuc_ + "i" ; + Indi Pres Sg P3 => cuc_ + "e" ; + Indi Pres Pl P1 => cuc_ + "iamo" ; + Indi Pres Pl P2 => cuc_ + "ite" ; + Indi Pres Pl P3 => cuc_ + "iono" ; + Indi Imperf Sg P1 => cuc_ + "ivo" ; + Indi Imperf Sg P2 => cuc_ + "ivi" ; + Indi Imperf Sg P3 => cuc_ + "iva" ; + Indi Imperf Pl P1 => cuc_ + "ivamo" ; + Indi Imperf Pl P2 => cuc_ + "ivate" ; + Indi Imperf Pl P3 => cuc_ + "ivano" ; + Pass Sg P1 => cuc_ + "ii" ; + Pass Sg P2 => cuc_ + "isti" ; + Pass Sg P3 => cuc_ + "ì" ; + Pass Pl P1 => cuc_ + "immo" ; + Pass Pl P2 => cuc_ + "iste" ; + Pass Pl P3 => cuc_ + "irono" ; + Fut Sg P1 => cuc_ + "irò" ; + Fut Sg P2 => cuc_ + "irai" ; + Fut Sg P3 => cuc_ + "irà" ; + Fut Pl P1 => cuc_ + "iremo" ; + Fut Pl P2 => cuc_ + "irete" ; + Fut Pl P3 => cuc_ + "iranno" ; + Cong Pres Sg P1 => cuc_ + "ia" ; + Cong Pres Sg P2 => cuc_ + "ia" ; + Cong Pres Sg P3 => cuc_ + "ia" ; + Cong Pres Pl P1 => cuc_ + "iamo" ; + Cong Pres Pl P2 => cuc_ + "iate" ; + Cong Pres Pl P3 => cuc_ + "iano" ; + Cong Imperf Sg P1 => cuc_ + "issi" ; + Cong Imperf Sg P2 => cuc_ + "issi" ; + Cong Imperf Sg P3 => cuc_ + "isse" ; + Cong Imperf Pl P1 => cuc_ + "issimo" ; + Cong Imperf Pl P2 => cuc_ + "iste" ; + Cong Imperf Pl P3 => cuc_ + "issero" ; + Cond Sg P1 => cuc_ + "irei" ; + Cond Sg P2 => cuc_ + "iresti" ; + Cond Sg P3 => cuc_ + "irebbe" ; + Cond Pl P1 => cuc_ + "iremmo" ; + Cond Pl P2 => cuc_ + "ireste" ; + Cond Pl P3 => cuc_ + "irebbero" ; + Imper SgP2 => cuc_ + "i" ; + Imper PlP1 => cuc_ + "iamo" ; + Imper PlP2 => cuc_ + "ite" ; + Ger => cuc_ + "endo" ; + Part PresP Masc Sg => cuc_ + "ente" ; + Part PresP Masc Pl => cuc_ + "enti" ; + Part PresP Fem Sg => cuc_ + "ente" ; + Part PresP Fem Pl => cuc_ + "enti" ; + Part PassP Masc Sg => cuc_ + "ito" ; + Part PassP Masc Pl => cuc_ + "iti" ; + Part PassP Fem Sg => cuc_ + "ita" ; + Part PassP Fem Pl => cuc_ + "ite" + } + } ; + +oper fuggire_104 : Str -> Verbo = \fuggire -> + let fugg_ = Predef.tk 3 fuggire in + {s = table { + Inf => fugg_ + "ire" ; + InfClit => fugg_ + "ir" ; + Indi Pres Sg P1 => fugg_ + "o" ; + Indi Pres Sg P2 => fugg_ + "i" ; + Indi Pres Sg P3 => fugg_ + "e" ; + Indi Pres Pl P1 => fugg_ + "iamo" ; + Indi Pres Pl P2 => fugg_ + "ite" ; + Indi Pres Pl P3 => fugg_ + "ono" ; + Indi Imperf Sg P1 => fugg_ + "ivo" ; + Indi Imperf Sg P2 => fugg_ + "ivi" ; + Indi Imperf Sg P3 => fugg_ + "iva" ; + Indi Imperf Pl P1 => fugg_ + "ivamo" ; + Indi Imperf Pl P2 => fugg_ + "ivate" ; + Indi Imperf Pl P3 => fugg_ + "ivano" ; + Pass Sg P1 => fugg_ + "ii" ; + Pass Sg P2 => fugg_ + "isti" ; + Pass Sg P3 => fugg_ + "ì" ; + Pass Pl P1 => fugg_ + "immo" ; + Pass Pl P2 => fugg_ + "iste" ; + Pass Pl P3 => fugg_ + "irono" ; + Fut Sg P1 => fugg_ + "irò" ; + Fut Sg P2 => fugg_ + "irai" ; + Fut Sg P3 => fugg_ + "irà" ; + Fut Pl P1 => fugg_ + "iremo" ; + Fut Pl P2 => fugg_ + "irete" ; + Fut Pl P3 => fugg_ + "iranno" ; + Cong Pres Sg P1 => fugg_ + "a" ; + Cong Pres Sg P2 => fugg_ + "a" ; + Cong Pres Sg P3 => fugg_ + "a" ; + Cong Pres Pl P1 => fugg_ + "iamo" ; + Cong Pres Pl P2 => fugg_ + "iate" ; + Cong Pres Pl P3 => fugg_ + "ano" ; + Cong Imperf Sg P1 => fugg_ + "issi" ; + Cong Imperf Sg P2 => fugg_ + "issi" ; + Cong Imperf Sg P3 => fugg_ + "isse" ; + Cong Imperf Pl P1 => fugg_ + "issimo" ; + Cong Imperf Pl P2 => fugg_ + "iste" ; + Cong Imperf Pl P3 => fugg_ + "issero" ; + Cond Sg P1 => fugg_ + "irei" ; + Cond Sg P2 => fugg_ + "iresti" ; + Cond Sg P3 => fugg_ + "irebbe" ; + Cond Pl P1 => fugg_ + "iremmo" ; + Cond Pl P2 => fugg_ + "ireste" ; + Cond Pl P3 => fugg_ + "irebbero" ; + Imper SgP2 => fugg_ + "i" ; + Imper PlP1 => fugg_ + "iamo" ; + Imper PlP2 => fugg_ + "ite" ; + Ger => fugg_ + "endo" ; + Part PresP Masc Sg => fugg_ + "ente" ; + Part PresP Masc Pl => fugg_ + "enti" ; + Part PresP Fem Sg => fugg_ + "ente" ; + Part PresP Fem Pl => fugg_ + "enti" ; + Part PassP Masc Sg => fugg_ + "ito" ; + Part PassP Masc Pl => fugg_ + "iti" ; + Part PassP Fem Sg => fugg_ + "ita" ; + Part PassP Fem Pl => fugg_ + "ite" + } + } ; + +oper morire_105 : Str -> Verbo = \morire -> + let mor_ = Predef.tk 3 morire ; + m_ = Predef.tk 5 morire + in + {s = table { + Inf => mor_ + "ire" ; + InfClit => mor_ + "ir" ; + Indi Pres Sg P1 => m_ + "uoio" ; + Indi Pres Sg P2 => m_ + "uori" ; + Indi Pres Sg P3 => m_ + "uore" ; + Indi Pres Pl P1 => mor_ + "iamo" ; + Indi Pres Pl P2 => mor_ + "ite" ; + Indi Pres Pl P3 => m_ + "uoiono" ; + Indi Imperf Sg P1 => mor_ + "ivo" ; + Indi Imperf Sg P2 => mor_ + "ivi" ; + Indi Imperf Sg P3 => mor_ + "iva" ; + Indi Imperf Pl P1 => mor_ + "ivamo" ; + Indi Imperf Pl P2 => mor_ + "ivate" ; + Indi Imperf Pl P3 => mor_ + "ivano" ; + Pass Sg P1 => mor_ + "ii" ; + Pass Sg P2 => mor_ + "isti" ; + Pass Sg P3 => mor_ + "ì" ; + Pass Pl P1 => mor_ + "immo" ; + Pass Pl P2 => mor_ + "iste" ; + Pass Pl P3 => mor_ + "irono" ; + Fut Sg P1 => mor_ + "irò" ; ---- also morrò etc + Fut Sg P2 => mor_ + "irai" ; + Fut Sg P3 => mor_ + "irà" ; + Fut Pl P1 => mor_ + "iremo" ; + Fut Pl P2 => mor_ + "irete" ; + Fut Pl P3 => mor_ + "iranno" ; + Cong Pres Sg P1 => m_ + "uoia" ; + Cong Pres Sg P2 => m_ + "uoia" ; + Cong Pres Sg P3 => m_ + "uoia" ; + Cong Pres Pl P1 => mor_ + "iamo" ; + Cong Pres Pl P2 => mor_ + "iate" ; + Cong Pres Pl P3 => m_ + "uoiano" ; + Cong Imperf Sg P1 => mor_ + "issi" ; + Cong Imperf Sg P2 => mor_ + "issi" ; + Cong Imperf Sg P3 => mor_ + "isse" ; + Cong Imperf Pl P1 => mor_ + "issimo" ; + Cong Imperf Pl P2 => mor_ + "iste" ; + Cong Imperf Pl P3 => mor_ + "issero" ; + Cond Sg P1 => mor_ + "irei" ; + Cond Sg P2 => mor_ + "iresti" ; + Cond Sg P3 => mor_ + "irebbe" ; + Cond Pl P1 => mor_ + "iremmo" ; + Cond Pl P2 => mor_ + "ireste" ; + Cond Pl P3 => mor_ + "irebbero" ; + Imper SgP2 => m_ + "uori" ; + Imper PlP1 => mor_ + "iamo" ; + Imper PlP2 => mor_ + "ite" ; + Ger => mor_ + "endo" ; + Part PresP Masc Sg => mor_ + "ente" ; + Part PresP Masc Pl => mor_ + "enti" ; + Part PresP Fem Sg => mor_ + "ente" ; + Part PresP Fem Pl => mor_ + "enti" ; + Part PassP Masc Sg => mor_ + "to" ; + Part PassP Masc Pl => mor_ + "ti" ; + Part PassP Fem Sg => mor_ + "ta" ; + Part PassP Fem Pl => mor_ + "te" + } + } ; + +---- morire_105 + +---- salire_106 +---- seguire_107 +---- udire_108 +---- uscire_109 + +oper venire_110 : Str -> Verbo = \venire -> + let v_ = Predef.tk 5 venire in + {s = table { + Inf => v_ + "enire" ; + InfClit => v_ + "enir" ; + Indi Pres Sg P1 => v_ + "engo" ; + Indi Pres Sg P2 => v_ + "ieni" ; + Indi Pres Sg P3 => v_ + "iene" ; + Indi Pres Pl P1 => v_ + "eniamo" ; + Indi Pres Pl P2 => v_ + "enite" ; + Indi Pres Pl P3 => v_ + "engono" ; + Indi Imperf Sg P1 => v_ + "enivo" ; + Indi Imperf Sg P2 => v_ + "enivi" ; + Indi Imperf Sg P3 => v_ + "eniva" ; + Indi Imperf Pl P1 => v_ + "enivamo" ; + Indi Imperf Pl P2 => v_ + "enivate" ; + Indi Imperf Pl P3 => v_ + "enivano" ; + Pass Sg P1 => v_ + "enni" ; + Pass Sg P2 => v_ + "enisti" ; + Pass Sg P3 => v_ + "enne" ; + Pass Pl P1 => v_ + "enimmo" ; + Pass Pl P2 => v_ + "eniste" ; + Pass Pl P3 => v_ + "ennero" ; + Fut Sg P1 => v_ + "errò" ; + Fut Sg P2 => v_ + "errai" ; + Fut Sg P3 => v_ + "errà" ; + Fut Pl P1 => v_ + "erremo" ; + Fut Pl P2 => v_ + "errete" ; + Fut Pl P3 => v_ + "erranno" ; + Cong Pres Sg P1 => v_ + "enga" ; + Cong Pres Sg P2 => v_ + "enga" ; + Cong Pres Sg P3 => v_ + "enga" ; + Cong Pres Pl P1 => v_ + "eniamo" ; + Cong Pres Pl P2 => v_ + "eniate" ; + Cong Pres Pl P3 => v_ + "engano" ; + Cong Imperf Sg P1 => v_ + "enissi" ; + Cong Imperf Sg P2 => v_ + "enissi" ; + Cong Imperf Sg P3 => v_ + "enisse" ; + Cong Imperf Pl P1 => v_ + "enissimo" ; + Cong Imperf Pl P2 => v_ + "eniste" ; + Cong Imperf Pl P3 => v_ + "enissero" ; + Cond Sg P1 => v_ + "errei" ; + Cond Sg P2 => v_ + "erresti" ; + Cond Sg P3 => v_ + "errebbe" ; + Cond Pl P1 => v_ + "erremmo" ; + Cond Pl P2 => v_ + "erreste" ; + Cond Pl P3 => v_ + "errebbero" ; + Imper SgP2 => v_ + "ieni" ; + Imper PlP1 => v_ + "eniamo" ; + Imper PlP2 => v_ + "enite" ; + Ger => v_ + "enendo" ; + Part PresP Masc Sg => v_ + "eniente" ; + Part PresP Masc Pl => v_ + "enienti" ; + Part PresP Fem Sg => v_ + "eniente" ; + Part PresP Fem Pl => v_ + "enienti" ; + Part PassP Masc Sg => v_ + "enuto" ; + Part PassP Masc Pl => v_ + "enuti" ; + Part PassP Fem Sg => v_ + "enuta" ; + Part PassP Fem Pl => v_ + "enute" + } + } ; + +} diff --git a/lib/resource/italian/CategoriesIta.gf b/lib/resource-0.9/italian/CategoriesIta.gf similarity index 100% rename from lib/resource/italian/CategoriesIta.gf rename to lib/resource-0.9/italian/CategoriesIta.gf diff --git a/lib/resource/italian/ClauseIta.gf b/lib/resource-0.9/italian/ClauseIta.gf similarity index 100% rename from lib/resource/italian/ClauseIta.gf rename to lib/resource-0.9/italian/ClauseIta.gf diff --git a/lib/resource/italian/CountryIta.gf b/lib/resource-0.9/italian/CountryIta.gf similarity index 100% rename from lib/resource/italian/CountryIta.gf rename to lib/resource-0.9/italian/CountryIta.gf diff --git a/lib/resource-0.9/italian/LangIta.gf b/lib/resource-0.9/italian/LangIta.gf new file mode 100644 index 000000000..35c921769 --- /dev/null +++ b/lib/resource-0.9/italian/LangIta.gf @@ -0,0 +1,23 @@ +--# -path=.:../romance:../abstract:../../prelude + +concrete LangIta of Lang = + RulesIta, + ClauseIta, + StructuralIta, + BasicIta, + TimeIta, + CountryIta, + MathIta + + ** open Prelude, ParadigmsIta in { + +lin + AdvDate d = prefixSS "il" d ; + AdvTime t = prefixSS "alle" t ; + NWeekday w = w ; + PNWeekday w = mkPN (w.s ! singular) w.g ; + + PNCountry x = x ; + ANationality x = x ; + NLanguage x = x ; +} diff --git a/lib/resource/italian/MathIta.gf b/lib/resource-0.9/italian/MathIta.gf similarity index 100% rename from lib/resource/italian/MathIta.gf rename to lib/resource-0.9/italian/MathIta.gf diff --git a/lib/resource-0.9/italian/MorphoIta.gf b/lib/resource-0.9/italian/MorphoIta.gf new file mode 100644 index 000000000..8473582e4 --- /dev/null +++ b/lib/resource-0.9/italian/MorphoIta.gf @@ -0,0 +1,490 @@ +--# -path=.:../romance:../../prelude + +--1 A Simple Italian Resource Morphology +-- +-- Aarne Ranta 2002--2003 +-- +-- This resource morphology contains definitions needed in the resource +-- syntax. It moreover contains the most usual inflectional patterns. +-- The patterns for verbs contain the complete "Bescherelle" conjugation +-- tables. +-- +-- We use the parameter types and word classes defined in $TypesIta.gf$. + +resource MorphoIta = open (Predef=Predef), Prelude, TypesIta in { + +--2 Some phonology +-- +--3 Elision +-- +-- The phonological rule of *elision* can be defined as follows in GF. +-- In Italian it includes both vowels and the *impure 's'*. + +oper + vocale : Strs = strs { + "a" ; "e" ; "h" ; "i" ; "o" ; "u" + } ; + + sImpuro : Strs = strs { + "z" ; "sb" ; "sc" ; "sd" ; "sf" ; "sm" ; "sp" ; "sq" ; "sr" ; "st" ; "sv" + } ; + + elision : (_,_,_ : Str) -> Str = \il, l', lo -> + pre {il ; l' / vocale ; lo / sImpuro} ; + + elisQue = "che" ; --- no elision in Italian + elisDe = "de" ; + +--2 Nouns +-- +-- The following macro is useful for creating the forms of number-dependent +-- tables, such as common nouns. + + numForms : (_,_ : Str) -> Number => Str = \vino, vini -> + table {Sg => vino ; Pl => vini} ; + +-- For example: + + nomVino : Str -> Number => Str = \vino -> let {vin = Predef.tk 1 vino} in + numForms vino (vin + "i") ; + + nomRana : Str -> Number => Str = \rana -> let {ran = Predef.tk 1 rana} in + numForms rana (ran + "e") ; + + nomSale : Str -> Number => Str = \sale -> let {sal = Predef.tk 1 sale} in + numForms sale (sal + "i") ; + + nomTram : Str -> Number => Str = \tram -> + numForms tram tram ; + +-- Common nouns are inflected in number and have an inherent gender. + + mkCNom : (Number => Str) -> Gender -> CNom = \mecmecs,gen -> + {s = mecmecs ; g = gen} ; + + mkCNomIrreg : Str -> Str -> Gender -> CNom = \mec,mecs -> + mkCNom (numForms mec mecs) ; + + mkNomReg : Str -> {s : Number => Str ; g : Gender} = \vino -> + let + o = last vino ; + vin = init vino ; + n = last vin + in + case o of { + "o" => {s = case n of { + "c" | "g" => numForms vino (vin + "hi") ; + "i" => numForms vino vin ; + _ => numForms vino (vin + "i") + } ; g = Masc} ; + "a" => {s = case n of { + "c" | "g" => numForms vino (vin + "he") ; + _ => numForms vino (vin + "e") + } ; g = Fem} ; + "e" => {s = numForms vino (vin + "i") + ; g = Masc} ; + "à" | "ù" => {s = numForms vino vino + ; g = Fem} ; + _ => {s = numForms vino vino + ; g = Masc} + } ; + + + +--2 Adjectives +-- +-- Adjectives are conveniently seen as gender-dependent nouns. +-- Here are some patterns. First one that describes the worst case. + + mkAdj : (_,_,_,_,_ : Str) -> Adj = \solo,sola,soli,sole,solamente -> + {s = table { + AF Masc n => numForms solo soli ! n ; + AF Fem n => numForms sola sole ! n ; + AA => solamente + } + } ; + +-- Then the regular and invariant patterns. + + adjSolo : Str -> Adj = \solo -> + let + sol = Predef.tk 1 solo + in + mkAdj solo (sol + "a") (sol + "i") (sol + "e") (sol + "amente") ; + + adjTale : Str -> Adj = \tale -> + let + tal = Predef.tk 1 tale ; + tali = tal + "i" ; + tala = if_then_Str (pbool2bool (Predef.occur (Predef.dp 1 tal) "lr")) tal tale + in + mkAdj tale tale tali tali (tala + "mente") ; + + adjBlu : Str -> Adj = \blu -> + mkAdj blu blu blu blu blu ; --- + + + mkAdjReg : Str -> Adj = \solo -> + let + o = last solo ; + sol = init solo ; + l = last sol ; + solamente = (sol + "amente") + in + case o of { + "o" => case l of { + "c" | "g" => mkAdj solo (sol + "a") (sol + "hi") (sol + "he") solamente ; + "i" => mkAdj solo (sol + "a") sol (sol + "e") solamente ; + _ => mkAdj solo (sol + "a") (sol + "i") (sol + "e") solamente + } ; + "e" => mkAdj solo solo (sol + "i") (sol + "i") (case l of { + "l" => sol + "mente" ; + _ => solo + "mente" + }) ; + _ => mkAdj solo solo solo solo (sol + "mente") + } ; + + +--2 Personal pronouns +-- +-- All the eight personal pronouns can be built by the following macro. +-- The use of "ne" as atonic genitive is debatable. +-- We follow the rule that the atonic nominative is empty. + + mkPronoun : (_,_,_,_,_,_,_,_ : Str) -> + PronGen -> Number -> Person -> ClitType -> Pronoun = + \il,le,lui,Lui,son,sa,ses,see,g,n,p,c -> + {s = table { + Ton Nom => il ; + Ton x => prepCase x ++ Lui ; + Aton Nom => il ; ---- [] ; + Aton Acc => le ; + Aton (CPrep P_di) => "ne" ; --- hmm + Aton (CPrep P_a) => lui ; + Aton (CPrep q) => strPrep q ++ Lui ; ---- GF bug with c or p! + Poss Sg Masc => son ; + Poss Sg Fem => sa ; + Poss Pl Masc => ses ; + Poss Pl Fem => see + } ; + g = g ; + n = n ; + p = p ; + c = c + } ; + + +--2 Reflexive pronouns +-- +-- It is simply a function depending on number and person. + + pronRefl : Number -> Person -> Str = \n,p -> case of { + => "mi" ; + => "ti" ; + <_, P3> => "si" ; + => "ci" ; + => "vi" + } ; + pronJe = mkPronoun + "io" --- (variants {"io" ; []}) etc + "mi" + "mi" + "me" + "mio" "mia" "miei" "mie" + PNoGen -- gender cannot be known from pronoun alone + Sg + P1 + Clit1 ; + + pronTu = mkPronoun + "tu" + "ti" + "ti" + "te" + "tuo" "tua" "tuoi" "tue" + PNoGen + Sg + P2 + Clit1 ; + + pronIl = mkPronoun + "lui" + "lo" + "gli" + "lui" + "suo" "sua" "suoi" "sue" + (PGen Masc) + Sg + P3 + Clit2 ; + + pronElle = mkPronoun + "lei" + "la" + "le" + "lei" + "suo" "sua" "suoi" "sue" + (PGen Fem) + Sg + P3 + Clit2 ; + + pronNous = mkPronoun + "noi" + "ci" + "ci" + "noi" + "nostro" "nostra" "nostri" "nostre" + PNoGen + Pl + P1 + Clit3 ; + + pronVous = mkPronoun + "voi" + "vi" + "vi" + "voi" + "vostro" "vostra" "vostri" "vostre" + PNoGen + Pl --- depends! + P2 + Clit3 ; + + pronIls = mkPronoun + "loro" + "loro" + "li" --- le ! + "loro" + "loro" "loro" "loro" "loro" + PNoGen + Pl + P3 + Clit1 ; + + personPron : Gender -> Number -> Person -> Pronoun = \g,n,p -> + case of { + => pronJe ; + => pronTu ; + => case g of { + Masc => pronIl ; + Fem => pronElle + } ; + => pronNous ; + => pronVous ; + => case g of { + Masc => pronIls ; + Fem => pronIls + } + } ; + + -- used in constructions like "(non) ci sono ..." + + pronEmpty : Number -> Pronoun = \n -> mkPronoun + [] + [] + [] + [] + [] [] [] [] + (PGen Masc) + n + P3 + Clit2 ; + +--2 Determiners +-- +-- Determiners, traditionally called indefinite pronouns, are inflected +-- in gender and number, like adjectives. + + pronForms : Adj -> Gender -> Number -> Str = \tale,g,n -> tale.s ! AF g n ; + + qualPron : Gender -> Number -> Str = pronForms (adjTale "quale") ; + + talPron : Gender -> Number -> Str = pronForms (adjTale "tale") ; + + tuttoPron : Gender -> Number -> Str = pronForms (adjSolo "tutto") ; + +--2 Articles +-- +-- The definite article has quite some variation: three parameters and +-- elision. This is the simples definition we have been able to find. + + artDefTable : Gender => Number => Case => Str = \\g,n,c => case of { + <_, _, CPrep P_di> => prepArt g n "de" ; + <_, _, CPrep P_da> => prepArt g n "da" ; + <_, _, CPrep P_a> => prepArt g n "a" ; + <_, _, CPrep P_in> => prepArt g n "ne" ; + <_, _, CPrep P_su> => prepArt g n "su" ; + <_, _, CPrep P_con> => prepArt g n "co" ; + => elision "il" "l'" "lo" ; + => elision "il" "l'" "lo" ; + + => elision "la" "l'" "la" ; + => elision "i" "gli" "gli" ; + => "le" + } ; + +-- This auxiliary expresses the uniform rule. + + prepArt : Gender -> Number -> Tok -> Tok = \g,n,de -> case of { + => elision (de + "l") (de + "ll'") (de + "llo") ; + => elision (de + "i") (de + "gli") (de + "gli") ; + => elision (de + "lla") (de + "ll'") (de + "lla") ; + => de + "lle" + } ; + +--2 Verbs +-- +--3 The Bescherelle conjugations. +-- +-- The following conjugations tables were generated using FM software +-- from a Haskell source. +-- +-- The verb "essere" is often used in syntax. + + verbEssere = verbPres (essere_5 "essere") AEsse ; + verbAvere = verbPres (avere_6 "avere") AHabere ; + +-- machine-generated GF code + +oper essere_5 : Str -> Verbum = \essere -> + let x_ = Predef.tk 6 essere in + {s = table { + Inf => x_ + "essere" ; + InfClit => x_ + "r" ; + Indi Pres Sg P1 => x_ + "sono" ; + Indi Pres Sg P2 => x_ + "sei" ; + Indi Pres Sg P3 => x_ + "è" ; + Indi Pres Pl P1 => x_ + "siamo" ; + Indi Pres Pl P2 => x_ + "siete" ; + Indi Pres Pl P3 => x_ + "sono" ; + Indi Imperf Sg P1 => x_ + "ero" ; + Indi Imperf Sg P2 => x_ + "eri" ; + Indi Imperf Sg P3 => x_ + "era" ; + Indi Imperf Pl P1 => x_ + "eravamo" ; + Indi Imperf Pl P2 => x_ + "eravate" ; + Indi Imperf Pl P3 => x_ + "erano" ; + Pass Sg P1 => x_ + "fui" ; + Pass Sg P2 => x_ + "fosti" ; + Pass Sg P3 => x_ + "fu" ; + Pass Pl P1 => x_ + "fummo" ; + Pass Pl P2 => x_ + "foste" ; + Pass Pl P3 => x_ + "furono" ; + Fut Sg P1 => x_ + "sarò" ; + Fut Sg P2 => x_ + "sarai" ; + Fut Sg P3 => x_ + "sarà" ; + Fut Pl P1 => x_ + "saremo" ; + Fut Pl P2 => x_ + "sarete" ; + Fut Pl P3 => x_ + "saranno" ; + Cong Pres Sg P1 => x_ + "sia" ; + Cong Pres Sg P2 => x_ + "sia" ; + Cong Pres Sg P3 => x_ + "sia" ; + Cong Pres Pl P1 => x_ + "siamo" ; + Cong Pres Pl P2 => x_ + "siate" ; + Cong Pres Pl P3 => x_ + "siano" ; + Cong Imperf Sg P1 => x_ + "fossi" ; + Cong Imperf Sg P2 => x_ + "fossi" ; + Cong Imperf Sg P3 => x_ + "fosse" ; + Cong Imperf Pl P1 => x_ + "fossimo" ; + Cong Imperf Pl P2 => x_ + "foste" ; + Cong Imperf Pl P3 => x_ + "fossero" ; + Cond Sg P1 => x_ + "sarei" ; + Cond Sg P2 => x_ + "saresti" ; + Cond Sg P3 => x_ + "sarebbe" ; + Cond Pl P1 => x_ + "saremmo" ; + Cond Pl P2 => x_ + "sareste" ; + Cond Pl P3 => x_ + "sarebbero" ; + Imper SgP2 => x_ + "sii" ; + --Imper IPs3 => x_ + "sia" ; + Imper PlP1 => x_ + "siamo" ; + Imper PlP2 => x_ + "siate" ; + --Imper IPp3 => x_ + "siano" ; + Ger => x_ + "essendo" ; + Part PresP Masc Sg => variants {} ; + Part PresP Masc Pl => variants {} ; + Part PresP Fem Sg => variants {} ; + Part PresP Fem Pl => variants {} ; + Part PassP Masc Sg => x_ + "stato" ; + Part PassP Masc Pl => x_ + "stati" ; + Part PassP Fem Sg => x_ + "stata" ; + Part PassP Fem Pl => x_ + "state" + } + } ; + +oper avere_6 : Str -> Verbum = \avere -> + let x_ = Predef.tk 5 avere in + {s = table { + Inf => x_ + "avere" ; + InfClit => x_ + "aver" ; + Indi Pres Sg P1 => x_ + "ho" ; + Indi Pres Sg P2 => x_ + "hai" ; + Indi Pres Sg P3 => x_ + "ha" ; + Indi Pres Pl P1 => x_ + "abbiamo" ; + Indi Pres Pl P2 => x_ + "avete" ; + Indi Pres Pl P3 => x_ + "hanno" ; + Indi Imperf Sg P1 => x_ + "avevo" ; + Indi Imperf Sg P2 => x_ + "avevi" ; + Indi Imperf Sg P3 => x_ + "aveva" ; + Indi Imperf Pl P1 => x_ + "avevamo" ; + Indi Imperf Pl P2 => x_ + "avevate" ; + Indi Imperf Pl P3 => x_ + "avevano" ; + Pass Sg P1 => x_ + "ebbi" ; + Pass Sg P2 => x_ + "avesti" ; + Pass Sg P3 => x_ + "ebbe" ; + Pass Pl P1 => x_ + "avemmo" ; + Pass Pl P2 => x_ + "aveste" ; + Pass Pl P3 => x_ + "ebbero" ; + Fut Sg P1 => x_ + "avrò" ; + Fut Sg P2 => x_ + "avrai" ; + Fut Sg P3 => x_ + "avrà" ; + Fut Pl P1 => x_ + "avremo" ; + Fut Pl P2 => x_ + "avrete" ; + Fut Pl P3 => x_ + "avranno" ; + Cong Pres Sg P1 => x_ + "abbia" ; + Cong Pres Sg P2 => x_ + "abbia" ; + Cong Pres Sg P3 => x_ + "abbia" ; + Cong Pres Pl P1 => x_ + "abbiamo" ; + Cong Pres Pl P2 => x_ + "abbiate" ; + Cong Pres Pl P3 => x_ + "abbiano" ; + Cong Imperf Sg P1 => x_ + "avessi" ; + Cong Imperf Sg P2 => x_ + "avessi" ; + Cong Imperf Sg P3 => x_ + "avesse" ; + Cong Imperf Pl P1 => x_ + "avessimo" ; + Cong Imperf Pl P2 => x_ + "aveste" ; + Cong Imperf Pl P3 => x_ + "avessero" ; + Cond Sg P1 => x_ + "avrei" ; + Cond Sg P2 => x_ + "avresti" ; + Cond Sg P3 => x_ + "avrebbe" ; + Cond Pl P1 => x_ + "avremmo" ; + Cond Pl P2 => x_ + "avreste" ; + Cond Pl P3 => x_ + "avrebbero" ; + Imper SgP2 => x_ + "abbi" ; + --Imper IPs3 => x_ + "abbia" ; + Imper PlP1 => x_ + "abbiamo" ; + Imper PlP2 => x_ + "abbiate" ; + --Imper IPp3 => x_ + "abbiano" ; + Ger => x_ + "avendo" ; + Part PresP Masc Sg => x_ + "avente" ; + Part PresP Masc Pl => x_ + "aventi" ; + Part PresP Fem Sg => x_ + "avente" ; + Part PresP Fem Pl => x_ + "aventi" ; + Part PassP Masc Sg => x_ + "avuto" ; + Part PassP Masc Pl => x_ + "avuti" ; + Part PassP Fem Sg => x_ + "avuta" ; + Part PassP Fem Pl => x_ + "avute" + } + } ; + + +-- for Numerals + +param DForm = ental Pred | ton | tiotal ; +param Pred = pred | indip ; + +oper mkTal : Str -> Str -> Str -> {s : DForm => Str} = + \två -> \tolv -> \tjugo -> + {s = table {ental _ => två ; ton => tolv ; tiotal => tjugo}} ; +oper spl : Str -> {s : Gender => Str ; n : Number} = \s -> {s = \\_ => + s ; n = Pl} ; +oper mille : Number => Str = table {Sg => "mille" ; Pl => "mila"} ; +} diff --git a/lib/resource/italian/NumeralsIta.gf b/lib/resource-0.9/italian/NumeralsIta.gf similarity index 100% rename from lib/resource/italian/NumeralsIta.gf rename to lib/resource-0.9/italian/NumeralsIta.gf diff --git a/lib/resource-1.0/italian/ParadigmsIta.gf b/lib/resource-0.9/italian/ParadigmsIta.gf similarity index 55% rename from lib/resource-1.0/italian/ParadigmsIta.gf rename to lib/resource-0.9/italian/ParadigmsIta.gf index 3a98856ca..3bd58fa78 100644 --- a/lib/resource-1.0/italian/ParadigmsIta.gf +++ b/lib/resource-0.9/italian/ParadigmsIta.gf @@ -1,17 +1,17 @@ ---# -path=.:../romance:../common:../abstract:../../prelude +--# -path=.:../romance:../abstract:../../prelude --1 Italian Lexical Paradigms -- -- Aarne Ranta 2003 -- --- This is an API for the user of the resource grammar +-- This is an API to the user of the resource grammar -- for adding lexical items. It gives functions for forming -- expressions of open categories: nouns, adjectives, verbs. -- -- Closed categories (determiners, pronouns, conjunctions) are -- accessed through the resource syntax API, $Structural.gf$. -- --- The main difference with $MorphoIta.gf$ is that the types +-- The main difference with $MorphoFre.gf$ is that the types -- referred to are compiled resource grammar types. We have moreover -- had the design principle of always having existing forms, rather -- than stems, as string arguments of the paradigms. @@ -20,21 +20,15 @@ -- first we give a handful of patterns that aim to cover all -- regular cases. Then we give a worst-case function $mkC$, which serves as an -- escape to construct the most irregular words of type $C$. --- However, this function should only seldom be needed. For verbs, we have a --- separate module [``BeschIta`` ../../italian/BeschIta.gf], --- which covers the "Bescherelle" verb conjugations. +-- However, this function should only seldom be needed: we have a +-- separate module $IrregularEng$, which covers all irregularly inflected +-- words. +-- +-- The following modules are presupposed: resource ParadigmsIta = - open - (Predef=Predef), - Prelude, - CommonRomance, - ResIta, - MorphoIta, - BeschIta, - CatIta in { - - flags optimize=all ; + open (Predef=Predef), Prelude, TypesIta, MorphoIta, SyntaxIta, + RulesIta, BeschIta in { --2 Parameters -- @@ -55,22 +49,23 @@ oper -- Prepositions used in many-argument functions are either strings -- (including the 'accusative' empty string) or strings that --- amalgamate with the following word (the 'genitive' "di" and the --- 'dative' "a"). +-- amalgamate with the following word (the 'genitive' "de" and the +-- 'dative' "à"). - Prep : Type ; + Preposition : Type ; - accusative : Prep ; - genitive : Prep ; - dative : Prep ; + accusative : Preposition ; + genitive : Preposition ; + dative : Preposition ; + + mkPreposition : Str -> Preposition ; - mkPrep : Str -> Prep ; --2 Nouns -- Worst case: give both two forms and the gender. - mkN : (uomo,uomini : Str) -> Gender -> N ; + mkN : (uomi,uomini : Str) -> Gender -> N ; -- The regular function takes the singular form and the gender, -- and computes the plural and the gender by a heuristic. @@ -87,7 +82,7 @@ oper --3 Compound nouns -- -- Some nouns are ones where the first part is inflected as a noun but --- the second part is not inflected. e.g. "numero di telefono". +-- the second part is not inflected. e.g. "numéro de téléphone". -- They could be formed in syntax, but we give a shortcut here since -- they are frequent in lexica. @@ -96,9 +91,9 @@ oper --3 Relational nouns -- --- Relational nouns ("figlio di x") need a case and a preposition. +-- Relational nouns ("fille de x") need a case and a preposition. - mkN2 : N -> Prep -> N2 ; + mkN2 : N -> Preposition -> N2 ; -- The most common cases are the genitive "di" and the dative "a", -- with the empty preposition. @@ -108,13 +103,13 @@ oper -- Three-place relational nouns ("la connessione di x a y") need two prepositions. - mkN3 : N -> Prep -> Prep -> N3 ; + mkN3 : N -> Preposition -> Preposition -> N3 ; --3 Relational common noun phrases -- -- In some cases, you may want to make a complex $CN$ into a --- relational noun (e.g. "la vecchia chiesa di"). However, $N2$ and +-- relational noun (e.g. "the old town hall of"). However, $N2$ and -- $N3$ are purely lexical categories. But you can use the $AdvCN$ -- and $PrepNP$ constructions to build phrases like this. @@ -123,8 +118,7 @@ oper -- -- Proper names need a string and a gender. - mkPN : Str -> Gender -> PN ; - regPN : Str -> PN ; -- feminine if "-a", otherwise masculine + mkPN : Str -> Gender -> PN ; -- Jean -- To form a noun phrase that can also be plural, -- you can use the worst-case function. @@ -145,7 +139,7 @@ oper -- These functions create postfix adjectives. To switch -- them to prefix ones (i.e. ones placed before the noun in --- modification, as in "vecchia chiesa"), the following function is +-- modification, as in "petite maison"), the following function is -- provided. prefA : A -> A ; @@ -154,25 +148,33 @@ oper -- -- Two-place adjectives need a preposition for their second argument. - mkA2 : A -> Prep -> A2 ; + mkA2 : A -> Preposition -> A2 ; --3 Comparison adjectives -- Comparison adjectives are in the worst case put up from two -- adjectives: the positive ("buono"), and the comparative ("migliore"). - mkADeg : A -> A -> A ; + mkADeg : A -> A -> ADeg ; -- If comparison is formed by "più", as usual in Italian, -- the following pattern is used: - compADeg : A -> A ; + compADeg : A -> ADeg ; -- The regular pattern is the same as $regA$ for plain adjectives, --- with comparison by "più". +-- with comparison by "plus". - regADeg : Str -> A ; + regADeg : Str -> ADeg ; +-- From a given $ADeg$, it is possible to get back to $A$. + + adegA : ADeg -> A ; + +-- For prefixed adjectives, the following function is +-- provided. + + prefADeg : ADeg -> ADeg ; --2 Adverbs @@ -192,39 +194,31 @@ oper --2 Verbs -- --- Regular verbs are ones with the infinitive "are" or "ire", the --- latter with singular present indicative forms as "finisco". +-- Regular verbs are ones with the infinitive "er" or "ir", the +-- latter with plural present indicative forms as "finissons". -- The regular verb function is the first conjugation recognizes -- these endings, as well as the variations among --- "amare, cominciare, mangiare, legare, cercare". +-- "aimer, céder, placer, peser, jeter, placer, manger, assiéger, payer". regV : Str -> V ; - --- The module $BeschIta$ gives (almost) all the patterns of the "Bescherelle" + +-- The module $BeschIta$ gives all the patterns of the "Bescherelle" -- book. To use them in the category $V$, wrap them with the function verboV : Verbo -> V ; --- The function $regV$ gives all verbs the compound auxiliary "avere". --- To change it to "essere", use the following function. --- Reflexive implies "essere". +-- The function $regV$ gives all verbs the compound auxiliary "avoir". +-- To change it to "être", use the following function. essereV : V -> V ; - reflV : V -> V ; --- If $BeschIta$ does not give the desired result or feels difficult --- to consult, here is a worst-case function for "-ire" and "-ere" verbs, --- taking 11 arguments. - - mkV : - (udire,odo,ode,udiamo,udiro,udii,udisti,udi,udirono,odi,udito : Str) -> V ; --3 Two-place verbs -- -- Two-place verbs need a preposition, except the special case with direct object. -- (transitive verbs). Notice that a particle comes from the $V$. - mkV2 : V -> Prep -> V2 ; + mkV2 : V -> Preposition -> V2 ; dirV2 : V -> V2 ; @@ -237,10 +231,9 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Prep -> Prep -> V3 ; -- parlare, a, di - dirV3 : V -> Prep -> V3 ; -- dare,_,a - dirdirV3 : V -> V3 ; -- dare,_,_ - + mkV3 : V -> Preposition -> Preposition -> V3 ; -- parler, à, de + dirV3 : V -> Preposition -> V3 ; -- donner,_,à + dirdirV3 : V -> V3 ; -- donner,_,_ --3 Other complement patterns -- @@ -249,87 +242,71 @@ oper mkV0 : V -> V0 ; mkVS : V -> VS ; - mkV2S : V -> Prep -> V2S ; - mkVV : V -> VV ; -- plain infinitive: "voglio parlare" - deVV : V -> VV ; -- "cerco di parlare" - aVV : V -> VV ; -- "arrivo a parlare" - mkV2V : V -> Prep -> Prep -> V2V ; + mkV2S : V -> Preposition -> V2S ; + mkVV : V -> VV ; -- plain infinitive: "je veux parler" + deVV : V -> VV ; -- "j'essaie de parler" + aVV : V -> VV ; -- "j'arrive à parler" + mkV2V : V -> Preposition -> Preposition -> V2V ; mkVA : V -> VA ; - mkV2A : V -> Prep -> Prep -> V2A ; + mkV2A : V -> Preposition -> V2A ; mkVQ : V -> VQ ; - mkV2Q : V -> Prep -> V2Q ; + mkV2Q : V -> Preposition -> V2Q ; - mkAS : A -> AS ; - mkA2S : A -> Prep -> A2S ; - mkAV : A -> Prep -> AV ; - mkA2V : A -> Prep -> Prep -> A2V ; - --- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated --- just as synonyms of $V2$, and the second argument is given --- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. --- $V0$ is just $V$. - - V0, V2S, V2V, V2Q : Type ; - AS, A2S, AV, A2V : Type ; + mkAS : A -> AS ; + subjAS : A -> AS ; + mkA2S : A -> Preposition -> A2S ; + mkAV : A -> Preposition -> AV ; + mkA2V : A -> Preposition -> Preposition -> A2V ; ---. ---2 The definitions of the paradigms +--2 Definitions of the paradigms -- -- The definitions should not bother the user of the API. So they are -- hidden from the document. +--. - - Gender = MorphoIta.Gender ; - Number = MorphoIta.Number ; + Gender = SyntaxIta.Gender ; + Number = TypesIta.Number ; masculine = Masc ; feminine = Fem ; singular = Sg ; plural = Pl ; - Prep = Compl ; - accusative = complAcc ; - genitive = complGen ; - dative = complDat ; - mkPrep p = {s = p ; c = Acc ; isDir = False} ; + Preposition = Case * Str ; + accusative = ; + genitive = ; + dative = ; + mkPreposition p = ; - mkN x y g = mkNounIrreg x y g ** {lock_N = <>} ; + mkN x y g = mkCNomIrreg x y g ** {lock_N = <>} ; regN x = mkNomReg x ** {lock_N = <>} ; compN x y = {s = \\n => x.s ! n ++ y ; g = x.g ; lock_N = <>} ; femN x = {s = x.s ; g = feminine ; lock_N = <>} ; mascN x = {s = x.s ; g = masculine ; lock_N = <>} ; - mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; + mkN2 = \n,p -> n ** {lock_N2 = <> ; c = p.p1 ; s2 = p.p2} ; diN2 n = mkN2 n genitive ; aN2 n = mkN2 n dative ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c = p.p1 ; s2 = p.p2 ; c3 = q.p1 ; s3 = q.p2} ; mkPN x g = {s = x ; g = g} ** {lock_PN = <>} ; - regPN x = mkPN x g where { - g = case last x of { - "a" => feminine ; - _ => masculine - } - } ; + mkNP x g n = let np = mkNameNounPhrase x g in + {s = np.s ; g = np.g ; p = np.p ; c = np.c ; n = n ; lock_NP = <>} ; - mkNP x g n = {s = (pn2np (mkPN x g)).s; a = agrP3 g n ; hasClit = False} ** {lock_NP = <>} ; + mkA a b c d e = mkAdj a b c d e ** {p = False ; lock_A = <>} ; + regA a = mkAdjReg a ** {p = False ; lock_A = <>} ; + prefA a = {s = a.s ; p = True ; lock_A = <>} ; - mkA a b c d e = - compADeg {s = \\_ => (mkAdj a b c d e).s ; isPre = False ; lock_A = <>} ; - regA a = compADeg {s = \\_ => (mkAdjReg a).s ; isPre = False ; lock_A = <>} ; - prefA a = {s = a.s ; isPre = True ; lock_A = <>} ; + mkA2 a p = a ** {c = p.p1 ; s2 = p.p2 ; lock_A2 = <>} ; - mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ; - - mkADeg a b = - {s = table {Posit => a.s ! Posit ; _ => b.s ! Posit} ; - isPre = a.isPre ; lock_A = <>} ; - compADeg a = - {s = table {Posit => a.s ! Posit ; _ => \\f => "più" ++ a.s ! Posit ! f} ; - isPre = a.isPre ; - lock_A = <>} ; + mkADeg a b = {s = table {Pos => a.s ; _ => b.s} ; p = a.p ; lock_ADeg = <>} ; + compADeg a = {s = table {Pos => a.s ; _ => \\f => "più" ++ a.s ! f} ; p = a.p ; + lock_ADeg = <>} ; regADeg a = compADeg (regA a) ; + prefADeg a = {s = a.s ; p = True ; lock_ADeg = <>} ; + + adegA a = {s = a.s ! Pos ; p = a.p ; lock_A = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ; @@ -352,48 +329,35 @@ oper } } } - in verbBesch verb ** {vtyp = VHabere ; lock_V = <>} ; + in verbPres verb AHabere ** {aux = AHabere ; lock_V = <>} ; - verboV ve = verbBesch ve ** {vtyp = VHabere ; lock_V = <>} ; + verboV ve = verbPres ve AHabere ** {lock_V = <>} ; - mkV - dovere devo deve dobbiamo dovro - dovetti dovesti dovette dovettero dovi dovuto = verboV (mkVerbo - dovere devo deve dobbiamo dovro - dovetti dovesti dovette dovettero dovi dovuto - ) ; + essereV v = {s = v.s ; aux = AEsse ; lock_V = <>} ; - essereV v = {s = v.s ; vtyp = VEsse ; lock_V = <>} ; - reflV v = {s = v.s ; vtyp = VRefl ; lock_V = <>} ; - - mkV2 v p = {s = v.s ; vtyp = v.vtyp ; c2 = p ; lock_V2 = <>} ; + mkV2 v p = {s = v.s ; aux = v.aux ; s2 = p.p2 ; c = p.p1 ; lock_V2 = <>} ; dirV2 v = mkV2 v accusative ; v2V v = v ** {lock_V = <>} ; - mkV3 v p q = {s = v.s ; vtyp = v.vtyp ; - c2 = p ; c3 = q ; lock_V3 = <>} ; + mkV3 v p q = {s = v.s ; aux = v.aux ; + s2 = p.p2 ; s3 = q.p2 ; c = p.p1 ; c3 = q.p1 ; lock_V3 = <>} ; dirV3 v p = mkV3 v accusative p ; dirdirV3 v = dirV3 v dative ; - V0 : Type = V ; - V2S, V2V, V2Q : Type = V2 ; - AS, AV : Type = A ; - A2S, A2V : Type = A2 ; - mkV0 v = v ** {lock_V0 = <>} ; - mkVS v = v ** {m = \\_ => Indic ; lock_VS = <>} ; ---- more moods - mkV2S v p = mkV2 v p ** {mn,mp = Indic ; lock_V2S = <>} ; - mkVV v = v ** {c2 = complAcc ; lock_VV = <>} ; - deVV v = v ** {c2 = complGen ; lock_VV = <>} ; - aVV v = v ** {c2 = complDat ; lock_VV = <>} ; + mkVS v = v ** {mn,mp = Ind ; lock_VS = <>} ; ---- more moods + mkV2S v p = mkV2 v p ** {mn,mp = Ind ; lock_V2S = <>} ; + mkVV v = v ** {c = accusative.p1 ; lock_VV = <>} ; + deVV v = v ** {c = genitive.p1 ; lock_VV = <>} ; + aVV v = v ** {c = dative.p1 ; lock_VV = <>} ; mkV2V v p t = mkV2 v p ** {c3 = t.p1 ; s3 = p.p2 ; lock_V2V = <>} ; mkVA v = v ** {lock_VA = <>} ; - mkV2A v p q = mkV3 v p q ** {lock_V2A = <>} ; + mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; mkVQ v = v ** {lock_VQ = <>} ; mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - mkAS v = v ** {lock_AS = <>} ; ---- more moods - mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; + mkAS v = v ** {mn,mp = Ind ; lock_AS = <>} ; ---- more moods + mkA2S v p = mkA2 v p ** {mn,mp = Ind ; lock_A2S = <>} ; mkAV v p = v ** {c = p.p1 ; s2 = p.p2 ; lock_AV = <>} ; mkA2V v p q = mkA2 v p ** {s3 = q.p2 ; c3 = q.p1 ; lock_A2V = <>} ; diff --git a/lib/resource/italian/ResourceIta.gf b/lib/resource-0.9/italian/ResourceIta.gf similarity index 100% rename from lib/resource/italian/ResourceIta.gf rename to lib/resource-0.9/italian/ResourceIta.gf diff --git a/lib/resource/italian/RulesIta.gf b/lib/resource-0.9/italian/RulesIta.gf similarity index 100% rename from lib/resource/italian/RulesIta.gf rename to lib/resource-0.9/italian/RulesIta.gf diff --git a/lib/resource-0.9/italian/StructuralIta.gf b/lib/resource-0.9/italian/StructuralIta.gf new file mode 100644 index 000000000..1eec02262 --- /dev/null +++ b/lib/resource-0.9/italian/StructuralIta.gf @@ -0,0 +1,92 @@ +--# -path=.:../romance:../abstract:../../prelude + +concrete StructuralIta of Structural = CategoriesIta, NumeralsIta ** + open SyntaxIta, MorphoIta, BeschIta, Prelude in { + +lin + + UseNumeral n = {s = \\g => n.s !g ; n = n.n ; isNo = False} ; + + above_Prep = justPrep "sopra" ; + after_Prep = justPrep "dopo" ; + all8mass_Det = mkDeterminer singular "tutto" "tutta" ; + all_NDet = mkDeterminerNum ["tutti i"] ["tutte le"] ; --- gli + almost_Adv = ss "quasi" ; + although_Subj = ss "benché" ** {m = Con} ; + and_Conj = etConj ; + because_Subj = ss "perché" ** {m = Ind} ; + before_Prep = justPrep "prima" ; + behind_Prep = justPrep "dietro" ; + between_Prep = justPrep "tra" ; + both_AndConjD = etetConj ; + by8agent_Prep = justCase (CPrep P_da) ; + by8means_Prep = justPrep "per" ; + can8know_VV = mkVerbVerbDir (verbPres (sapere_78 "sapere") AHabere) ; + can_VV = mkVerbVerbDir (verbPres (potere_69 "potere") AHabere) ; + during_Prep = justPrep "durante" ; + either8or_ConjD = ououConj ; + everybody_NP = normalNounPhrase (\\c => prepCase c ++ "tutti") Masc Pl ; + every_Det = chaqueDet ; + everything_NP = mkNameNounPhrase ["tutto"] Masc ; + everywhere_Adv = ss "dappertutto" ; + from_Prep = justCase (CPrep P_da) ; + he_NP = pronNounPhrase pronIl ; + how_IAdv = commentAdv ; + how8many_IDet = {s = genForms "quanti" "quante" ; n = Pl} ; + if_Subj = siSubj ; + in8front_Prep = justPrep "davanti" ; + i_NP = pronNounPhrase pronJe ; + in_Prep = justCase (CPrep P_in) ; + it_NP = pronNounPhrase pronIl ; + many_Det = mkDeterminer plural "molti" "molte" ; + most8many_Det = plupartDet ; + most_Det = mkDeterminer1 singular (["la maggior parte"] ++ elisDe) ; --- de + much_Det = mkDeterminer1 singular "molto" ; + must_VV = mkVerbVerbDir (verbPres (dovere_47 "dovere") AHabere) ; + no_Phr = nonPhr ; --- and also Si! + on_Prep = justCase (CPrep P_su) ; + or_Conj = ouConj ; + otherwise_Adv = ss "altramente" ; + part_Prep = justCase genitive ; --- + possess_Prep = justCase genitive ; + quite_Adv = ss "assai" ; + she_NP = pronNounPhrase pronElle ; + so_Adv = ss "così" ; + somebody_NP = mkNameNounPhrase ["qualcuno"] Masc ; + some_Det = mkDeterminer1 singular "qualche" ; + some_NDet = mkDeterminerNum "alcuni" "alcune" ; + something_NP = mkNameNounPhrase ["qualche cosa"] Masc ; + somewhere_Adv = ss ["qualche parte"] ; --- ne - pas + that_Det = mkDeterminer singular "quello" "quella" ; + that_NP = mkNameNounPhrase ["quello"] Masc ; + therefore_Adv = ss "quindi" ; + these_NDet = mkDeterminerNum "questi" "queste" ; --- ci + they_NP = pronNounPhrase pronIls ; + they8fem_NP = pronNounPhrase pronIls ; + this_Det = mkDeterminer singular "questo" "questa" ; + this_NP = mkNameNounPhrase ["questo"] Masc ; + those_NDet = mkDeterminerNum "quelli" "quelle" ; --- quegli + thou_NP = pronNounPhrase pronTu ; + through_Prep = justPrep "per" ; + too_Adv = ss "troppo" ; + to_Prep = justCase dative ; --- + under_Prep = justPrep "sotto" ; + very_Adv = ss "molto" ; + want_VV = mkVerbVerbDir (verbPres (volere_96 "volere") AHabere) ; + we_NP = pronNounPhrase pronNous ; + what8one_IP = intPronWhat singular ; + what8many_IP = intPronWhat plural ; + when_IAdv = quandAdv ; + when_Subj = quandSubj ; + where_IAdv = ouAdv ; + which8many_IDet = mkDeterminerNum "quali" "quali" ** {n = Pl} ; + which8one_IDet = quelDet ; + who8one_IP = intPronWho singular ; + who8many_IP = intPronWho plural ; + why_IAdv = pourquoiAdv ; + without_Prep = justPrep "senza" ; + with_Prep = justCase (CPrep P_con) ; + ye_NP = pronNounPhrase pronVous ; + yes_Phr = ouiPhr ; + you_NP = pronNounPhrase pronVous ; +} diff --git a/lib/resource/italian/SwadeshLexIta.gf b/lib/resource-0.9/italian/SwadeshLexIta.gf similarity index 100% rename from lib/resource/italian/SwadeshLexIta.gf rename to lib/resource-0.9/italian/SwadeshLexIta.gf diff --git a/lib/resource/italian/SyntaxIta.gf b/lib/resource-0.9/italian/SyntaxIta.gf similarity index 100% rename from lib/resource/italian/SyntaxIta.gf rename to lib/resource-0.9/italian/SyntaxIta.gf diff --git a/lib/resource/italian/TimeIta.gf b/lib/resource-0.9/italian/TimeIta.gf similarity index 100% rename from lib/resource/italian/TimeIta.gf rename to lib/resource-0.9/italian/TimeIta.gf diff --git a/lib/resource/italian/TypesIta.gf b/lib/resource-0.9/italian/TypesIta.gf similarity index 100% rename from lib/resource/italian/TypesIta.gf rename to lib/resource-0.9/italian/TypesIta.gf diff --git a/lib/resource/norwegian/BasicNor.gf b/lib/resource-0.9/norwegian/BasicNor.gf similarity index 100% rename from lib/resource/norwegian/BasicNor.gf rename to lib/resource-0.9/norwegian/BasicNor.gf diff --git a/lib/resource/norwegian/CategoriesNor.gf b/lib/resource-0.9/norwegian/CategoriesNor.gf similarity index 100% rename from lib/resource/norwegian/CategoriesNor.gf rename to lib/resource-0.9/norwegian/CategoriesNor.gf diff --git a/lib/resource/norwegian/ClauseNor.gf b/lib/resource-0.9/norwegian/ClauseNor.gf similarity index 100% rename from lib/resource/norwegian/ClauseNor.gf rename to lib/resource-0.9/norwegian/ClauseNor.gf diff --git a/lib/resource/norwegian/CountryNor.gf b/lib/resource-0.9/norwegian/CountryNor.gf similarity index 100% rename from lib/resource/norwegian/CountryNor.gf rename to lib/resource-0.9/norwegian/CountryNor.gf diff --git a/lib/resource-0.9/norwegian/LangNor.gf b/lib/resource-0.9/norwegian/LangNor.gf new file mode 100644 index 000000000..8a321fda3 --- /dev/null +++ b/lib/resource-0.9/norwegian/LangNor.gf @@ -0,0 +1,23 @@ +--# -path=.:../scandinavian:../abstract:../../prelude + +concrete LangNor of Lang = + RulesNor, + ClauseNor, + StructuralNor, + BasicNor, + TimeNor, + CountryNor, + MathNor + + ** open Prelude, ParadigmsNor in { + +lin + AdvDate d = prefixSS "på" d ; + AdvTime t = prefixSS "klokken" t ; + NWeekday w = w ; + PNWeekday w = nounPN w ; + + PNCountry x = x ; + ANationality x = x ; + NLanguage x = x ; +} diff --git a/lib/resource-0.9/norwegian/MathNor.gf b/lib/resource-0.9/norwegian/MathNor.gf new file mode 100644 index 000000000..ddcea878b --- /dev/null +++ b/lib/resource-0.9/norwegian/MathNor.gf @@ -0,0 +1,4 @@ +--# -path=.:../scandinavian:../abstract:../../prelude + +concrete MathNor of Math = CategoriesNor ** + MathScand with (SyntaxScand=SyntaxNor) ; diff --git a/lib/resource-0.9/norwegian/MorphoNor.gf b/lib/resource-0.9/norwegian/MorphoNor.gf new file mode 100644 index 000000000..68f5fb68c --- /dev/null +++ b/lib/resource-0.9/norwegian/MorphoNor.gf @@ -0,0 +1,294 @@ +--1 A Simple Norwegian Resource Morphology +-- +-- Aarne Ranta 2002 +-- +-- This resource morphology contains definitions needed in the resource +-- syntax. It moreover contains copies of the most usual inflectional patterns +-- as defined in functional morphology (in the Haskell file $RulesSw.hs$). +-- +-- We use the parameter types and word classes defined for morphology. + +resource MorphoNor = open Predef, Prelude, TypesNor in { + +-- Danish grammar source: http://users.cybercity.dk/~nmb3879/danish.html + +-- genders + +oper + masc = Utr Masc ; + fem = Utr NoMasc ; + neutr = Neutr ; + +-- nouns + +oper + mkSubstantive : (_,_,_,_ : Str) -> {s : SubstForm => Str} = + \dreng, drengen, drenger, drengene -> {s = table { + SF Sg Indef c => mkCase dreng ! c ; + SF Sg Def c => mkCase drengen ! c ; + SF Pl Indef c => mkCase drenger ! c ; + SF Pl Def c => mkCase drengene ! c + } + } ; + + mkCase : Str -> Case => Str = \bil -> table { + Nom => bil ; + Gen => bil + "s" --- but: hus --> hus + } ; + + extNGen : Str -> NounGender = \s -> case last s of { + "n" => NUtr Masc ; + "a" => NUtr NoMasc ; + _ => NNeutr + } ; + + nBil : Str -> Subst = \bil -> + mkSubstantive bil (bil + "en") (bil + "er") (bil + "erne") ** + {h1 = masc} ; + + nUke : Str -> Subst = \uke -> + mkSubstantive uke (init uke + "a") (uke + "r") (uke + "ne") ** + {h1 = fem} ; + + nHus : Str -> Subst = \hus -> + mkSubstantive hus (hus + "et") hus (hus + "ene") ** + {h1 = neutr} ; + + nHotell : Str -> Subst = \hotell -> + mkSubstantive hotell (hotell + "et") (hotell + "er") (hotell + "ene") ** + {h1 = neutr} ; + +-- adjectives + + mkAdjective : (_,_,_,_,_ : Str) -> Adj = + \stor,stort,store,storre,storst -> {s = table { + AF (Posit (Strong (ASg (Utr _)))) c => mkCase stor ! c ; + AF (Posit (Strong (ASg Neutr))) c => mkCase stort ! c ; + AF (Posit _) c => mkCase store ! c ; + AF Compar c => mkCase storre ! c ; + AF (Super SupStrong) c => mkCase storst ! c ; + AF (Super SupWeak) c => mkCase (storst + "e") ! c + } + } ; + + aRod : Str -> Adj = \rod -> + mkAdjective rod (rod + "t") (rod + "e") (rod + "ere") (rod + "est") ; + + aAbstrakt : Str -> Adj = \abstrakt -> + mkAdjective abstrakt abstrakt (abstrakt + "e") (abstrakt + "ere") (abstrakt + "est") ; + + aRask : Str -> Adj = \rask -> + mkAdjective rask rask (rask + "e") (rask + "ere") (rask + "est") ; + + aBillig : Str -> Adj = \billig -> + mkAdjective billig billig (billig + "e") (billig + "ere") (billig + "st") ; + +extractPositive : Adj -> {s : AdjFormPos => Case => Str} = \adj -> + {s = \\a,c => adj.s ! (AF (Posit a) c)} ; + +-- verbs + + mkVerb : (_,_,_,_,_,_ : Str) -> Verbum = + \spise,spiser,spises,spiste,spist,spis -> {s = table { + VI (Inf v) => mkVoice v spise ; + VF (Pres Act) => spiser ; + VF (Pres Pass) => spises ; + VF (Pret v) => mkVoice v spiste ; + VI (Supin v) => mkVoice v spist ; + VI (PtPret (Strong (ASg _)) c) => mkCase spist ! c ; + VI (PtPret _ c) => case last spist of { + "a" => mkCase spist ! c ; + _ => mkCase (spist + "e") ! c + } ; + VF (Imper v) => mkVoice v spis + } + } ; + + mkVoice : Voice -> Str -> Str = \v,s -> case v of { + Act => s ; + Pass => s + case last s of { + "s" => "es" ; + _ => "s" + } + } ; + + vHusk : Str -> Verbum = \husk -> + let huska : Str = husk + "a" ---- variants {husk + "a" ; husk + "et"} + in + mkVerb (husk + "e") (husk + "er") (husk + "es") huska huska husk ; + + vSpis : Str -> Verbum = \spis -> + mkVerb (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t") spis ; + + vLev : Str -> Verbum = \lev -> + let lever = case last lev of { + "r" => lev ; + _ => lev + "er" + } + in + mkVerb (lev + "e") lever (lev + "es") (lev + "de") (lev + "d") lev ; + + vBo : Str -> Verbum = \bo -> + mkVerb bo (bo + "r") (bo + "es") (bo + "dde") (bo + "dd") bo ; + + regVerb : Str -> Str -> Verbum = \spise, spiste -> + let + spis = init spise ; + te = dp 2 spiste + in + case te of { + "te" => vSpis spis ; + "de" => case last spise of { + "e" => vLev spis ; + _ => vBo spise + } ; + _ => vHusk spis + } ; + + irregVerb : (drikke,drakk,drukket : Str) -> Verbum = + \drikke,drakk,drukket -> + let + drikk = init drikke ; + drikker = case last (init drikke) of { + "r" => drikk ; + _ => drikke + "r" + } + in + mkVerb drikke drikker (drikke + "s") drakk drukket drikk ; + +-- pronouns + +oper jag_32 : ProPN = + {s = table { + PNom => "jeg" ; + PAcc => "meg" ; + PGen (ASg (Utr Masc)) => "min" ; + PGen (ASg (Utr NoMasc)) => "mi" ; + PGen (ASg Neutr) => "mitt" ; + PGen APl => "mine" + } ; + h1 = Utr Masc ; -- Masc doesn't matter + h2 = Sg ; + h3 = P1 + } ; + +oper du_33 : ProPN = + {s = table { + PNom => "du" ; + PAcc => "deg" ; + PGen (ASg (Utr Masc)) => "din" ; + PGen (ASg (Utr NoMasc)) => "di" ; + PGen (ASg Neutr) => "ditt" ; + PGen APl => "dine" + } ; + h1 = Utr Masc ; + h2 = Sg ; + h3 = P2 + } ; + +oper han_34 : ProPN = + {s = table { + PNom => "han" ; + PAcc => "ham" ; + PGen (ASg (Utr _)) => "hans" ; + PGen (ASg Neutr) => "hans" ; + PGen APl => "hans" + } ; + h1 = masc ; + h2 = Sg ; + h3 = P3 + } ; +oper hon_35 : ProPN = + {s = table { + PNom => "hun" ; + PAcc => "henne" ; + PGen (ASg (Utr _)) => "hennes" ; + PGen (ASg Neutr) => "hennes" ; + PGen APl => "hennes" + } ; + h1 = fem ; + h2 = Sg ; + h3 = P3 + } ; + +oper vi_36 : ProPN = + {s = table { + PNom => "vi" ; + PAcc => "oss" ; + PGen (ASg (Utr _)) => "vår" ; + PGen (ASg Neutr) => "vårt" ; + PGen APl => "våre" + } ; + h1 = Utr Masc ; + h2 = Pl ; + h3 = P1 + } ; + +oper ni_37 : ProPN = + {s = table { + PNom => "dere" ; + PAcc => "dere" ; + PGen _ => "deres" + } ; + h1 = Utr Masc ; + h2 = Pl ; + h3 = P2 + } ; + +oper de_38 : ProPN = + {s = table { + PNom => "de" ; + PAcc => "dem" ; + PGen _ => "deres" + } ; + h1 = Utr Masc ; + h2 = Pl ; + h3 = P3 + } ; + +oper De_38 : ProPN = + {s = table { + PNom => "Dere" ; + PAcc => "Dere" ; + PGen _ => "Deres" + } ; + h1 = Utr Masc ; + h2 = Sg ; + h3 = P2 + } ; + +oper den_39 : ProPN = + {s = table { + PNom => "de" ; + PAcc => "den" ; + PGen _ => "dens" + } ; + h1 = Utr Masc ; + h2 = Sg ; + h3 = P3 + } ; + +oper det_40 : ProPN = + {s = table { + PNom => "det" ; + PAcc => "det" ; + PGen _ => "dets" + } ; + h1 = Neutr ; + h2 = Sg ; + h3 = P3 + } ; + + +-- from Numerals + +param DForm = ental | ton | tiotal ; + +oper mkTal : Str -> Str -> Str -> {s : DForm => Str} = + \två -> \tolv -> \tjugo -> + {s = table {ental => två ; ton => tolv ; tiotal => tjugo}} ; +oper regTal : Str -> {s : DForm => Str} = \fem -> mkTal fem (fem + "ten") (fem + "ti") ; + + numPl : Str -> {s : Gender => Str ; n : Number} = \n -> + {s = \\_ => n ; n = Pl} ; +} diff --git a/lib/resource/norwegian/NumeralsNor.gf b/lib/resource-0.9/norwegian/NumeralsNor.gf similarity index 100% rename from lib/resource/norwegian/NumeralsNor.gf rename to lib/resource-0.9/norwegian/NumeralsNor.gf diff --git a/lib/resource-0.9/norwegian/ParadigmsNor.gf b/lib/resource-0.9/norwegian/ParadigmsNor.gf new file mode 100644 index 000000000..a3193639c --- /dev/null +++ b/lib/resource-0.9/norwegian/ParadigmsNor.gf @@ -0,0 +1,373 @@ +--# -path=.:../scandinavian:../abstract:../../prelude + +--1 Norwegian Lexical Paradigms +-- +-- Aarne Ranta 2003 +-- +-- This is an API to the user of the resource grammar +-- for adding lexical items. It gives functions for forming +-- expressions of open categories: nouns, adjectives, verbs. +-- +-- Closed categories (determiners, pronouns, conjunctions) are +-- accessed through the resource syntax API, $Structural.gf$. +-- +-- The main difference with $MorphoNor.gf$ is that the types +-- referred to are compiled resource grammar types. We have moreover +-- had the design principle of always having existing forms, rather +-- than stems, as string arguments of the paradigms. +-- +-- The structure of functions for each word class $C$ is the following: +-- first we give a handful of patterns that aim to cover all +-- regular cases. Then we give a worst-case function $mkC$, which serves as an +-- escape to construct the most irregular words of type $C$. +-- However, this function should only seldom be needed: we have a +-- separate module $IrregularEng$, which covers all irregularly inflected +-- words. +-- +-- The following modules are presupposed: + +resource ParadigmsNor = + open (Predef=Predef), Prelude, TypesNor, MorphoNor, SyntaxNor, CategoriesNor in { + +--2 Parameters +-- +-- To abstract over gender names, we define the following identifiers. + +oper + Gender : Type ; + + masculine : Gender ; + feminine : Gender ; + neutrum : Gender ; + +-- To abstract over number names, we define the following. + + Number : Type ; + + singular : Number ; + plural : Number ; + +-- To abstract over case names, we define the following. + + Case : Type ; + + nominative : Case ; + genitive : Case ; + +-- Prepositions used in many-argument functions are just strings. + + Preposition : Type = Str ; + +--2 Nouns + +-- Worst case: give all four forms. The gender is computed from the +-- last letter of the second form (if "n", then $utrum$, otherwise $neutrum$). + + mkN : (dreng,drengen,drenger,drengene : Str) -> N ; + +-- The regular function takes the singular indefinite form and the gender, +-- and computes the other forms by a heuristic. +-- If in doubt, use the $cc$ command to test! + + regN : Str -> Gender -> N ; + +-- This function takes the singular indefinite and definite forms; the +-- gender is computed from the definite form. + + mk2N : (bil,bilen : Str) -> N ; + + +--3 Compound nouns +-- +-- All the functions above work quite as well to form compound nouns, +-- such as "fotboll". + + +--3 Relational nouns +-- +-- Relational nouns ("daughter of x") need a preposition. + + mkN2 : N -> Preposition -> N2 ; + +-- The most common preposition is "av", and the following is a +-- shortcut for regular, $nonhuman$ relational nouns with "av". + + regN2 : Str -> Gender -> N2 ; + +-- Use the function $mkPreposition$ or see the section on prepositions below to +-- form other prepositions. +-- +-- Three-place relational nouns ("the connection from x to y") need two prepositions. + + mkN3 : N -> Preposition -> Preposition -> N3 ; + + +--3 Relational common noun phrases +-- +-- In some cases, you may want to make a complex $CN$ into a +-- relational noun (e.g. "the old town hall of"). However, $N2$ and +-- $N3$ are purely lexical categories. But you can use the $AdvCN$ +-- and $PrepNP$ constructions to build phrases like this. + +-- +--3 Proper names and noun phrases +-- +-- Proper names, with a regular genitive, are formed as follows + + regPN : Str -> Gender -> PN ; -- John, John's + +-- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". + + nounPN : N -> PN ; + +-- To form a noun phrase that can also be plural and have an irregular +-- genitive, you can use the worst-case function. + + mkNP : Str -> Str -> Number -> Gender -> NP ; + +--2 Adjectives + +-- Non-comparison one-place adjectives need three forms: + + mkA : (galen,galet,galne : Str) -> A ; + +-- For regular adjectives, the other forms are derived. + + regA : Str -> A ; + +-- In most cases, two forms are enough. + + mk2A : (stor,stort : Str) -> A ; + +--3 Two-place adjectives +-- +-- Two-place adjectives need a preposition for their second argument. + + mkA2 : A -> Preposition -> A2 ; + +-- Comparison adjectives may need as many as five forms. + + mkADeg : (stor,stort,store,storre,storst : Str) -> ADeg ; + +-- The regular pattern works for many adjectives, e.g. those ending +-- with "ig". + + regADeg : Str -> ADeg ; + +-- Just the comparison forms can be irregular. + + irregADeg : (tung,tyngre,tyngst : Str) -> ADeg ; + +-- Sometimes just the positive forms are irregular. + + mk3ADeg : (galen,galet,galna : Str) -> ADeg ; + mk2ADeg : (bred,bredt : Str) -> ADeg ; + +-- If comparison is formed by "mer, "mest", as in general for +-- long adjective, the following pattern is used: + + compoundADeg : A -> ADeg ; -- -/mer/mest norsk + +-- From a given $ADeg$, it is possible to get back to $A$. + + adegA : ADeg -> A ; + + +--2 Adverbs + +-- Adverbs are not inflected. Most lexical ones have position +-- after the verb. Some can be preverbal (e.g. "always"). + + mkAdv : Str -> Adv ; + mkAdV : Str -> AdV ; + +-- Adverbs modifying adjectives and sentences can also be formed. + + mkAdA : Str -> AdA ; + +--2 Prepositions +-- +-- A preposition is just a string. + + mkPreposition : Str -> Preposition ; + +--2 Verbs +-- +-- The worst case needs six forms. + + mkV : (spise,spiser,spises,spiste,spist,spis : Str) -> V ; + +-- The 'regular verb' function is the first conjugation. + + regV : (snakke : Str) -> V ; + +-- The almost regular verb function needs the infinitive and the preteritum. + + mk2V : (leve,levde : Str) -> V ; + +-- There is an extensive list of irregular verbs in the module $IrregularSwe$. +-- In practice, it is enough to give three forms, as in school books. + + irregV : (drikke, drakk, drukket : Str) -> V ; + + +--3 Verbs with a particle. +-- +-- The particle, such as in "switch on", is given as a string. + + partV : V -> Str -> V ; + +--3 Deponent verbs. +-- +-- Some words are used in passive forms only, e.g. "hoppas". + + depV : V -> V ; + +--3 Two-place verbs +-- +-- Two-place verbs need a preposition, except the special case with direct object. +-- (transitive verbs). Notice that a particle comes from the $V$. + + mkV2 : V -> Preposition -> V2 ; + + dirV2 : V -> V2 ; + +--3 Three-place verbs +-- +-- Three-place (ditransitive) verbs need two prepositions, of which +-- the first one or both can be absent. + + mkV3 : V -> Str -> Str -> V3 ; -- speak, with, about + dirV3 : V -> Str -> V3 ; -- give,_,to + dirdirV3 : V -> V3 ; -- give,_,_ + +--3 Other complement patterns +-- +-- Verbs and adjectives can take complements such as sentences, +-- questions, verb phrases, and adjectives. + + mkV0 : V -> V0 ; + mkVS : V -> VS ; + mkV2S : V -> Str -> V2S ; + mkVV : V -> VV ; + mkV2V : V -> Str -> Str -> V2V ; + mkVA : V -> VA ; + mkV2A : V -> Str -> V2A ; + mkVQ : V -> VQ ; + mkV2Q : V -> Str -> V2Q ; + + mkAS : A -> AS ; + mkA2S : A -> Str -> A2S ; + mkAV : A -> AV ; + mkA2V : A -> Str -> A2V ; + + +--2 Definitions of the paradigms +-- +-- The definitions should not bother the user of the API. So they are +-- hidden from the document. +--. + + Gender = SyntaxNor.NounGender ; + Number = TypesNor.Number ; + Case = TypesNor.Case ; + masculine = NUtr Masc ; + feminine = NUtr NoMasc ; + neutrum = NNeutr ; + singular = Sg ; + plural = Pl ; + nominative = Nom ; + genitive = Gen ; + + mkN x y z u = let sb = mkSubstantive x y z u + in {s = \\n,b,c => sb.s ! SF n b c ; g = extNGen y ; lock_N = <>} ; + regN x g = case last x of { + "e" => case g of { + NUtr Masc => mkN x (x + "n") (x + "r") (x + "ne") ; + NUtr NoMasc => mkN x (init x + "a") (x + "r") (x + "ne") ; + NNeutr => mkN x (x + "t") (x + "r") (init x + "a") + } ; + _ => case g of { + NUtr Masc => mkN x (x + "en") (x + "er") (x + "ene") ; + NUtr NoMasc => mkN x (x + "a") (x + "er") (x + "ene") ; + NNeutr => mkN x (x + "et") (x + "") (x + "a") + } + } ; + + mk2N x y = case last y of { + "n" => regN x masculine ; + "a" => regN x feminine ; + _ => regN x neutrum + } ; + + + mkN2 = \n,p -> n ** {lock_N2 = <> ; s2 = p} ; + regN2 n g = mkN2 (regN n g) (mkPreposition "av") ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; s2 = p ; s3 = q} ; + + regPN n g = {s = \\c => mkCase n ! c ; g = g} ** {lock_PN = <>} ; + nounPN n = {s = n.s ! singular ! Indef ; g = n.g ; lock_PN = <>} ; + mkNP x y n g = + {s = table {PGen _ => x ; _ => y} ; g = genNoun g ; n = n ; p = P3 ; + lock_NP = <>} ; + + mkA a b c = extractPositive (mkAdjective a b c [] []) ** {lock_A = <>} ; + mk2A a b = mkA a b (a + "e") ; + regA a = extractPositive (regADeg a) ** {lock_A = <>} ; + + mkA2 a p = a ** {s2 = p ; lock_A2 = <>} ; + + mkADeg a b c d e = mkAdjective a b c d e ** {lock_ADeg = <>} ; + regADeg a = case Predef.dp 2 a of { + "ig" => aBillig a ; + "sk" => aRask a ; + _ => aRod a + } ** {lock_ADeg = <>} ; + irregADeg a b c = mkAdjective a (a + "t") (a + "e") b c ** {lock_ADeg = <>} ; + mk3ADeg a b c = mkAdjective a b c (a + "ere") (a + "est") ** {lock_ADeg = <>} ; + mk2ADeg a b = mkAdjective a b (a + "e") (a + "ere") (a + "est") ** {lock_ADeg = <>} ; + + mkAdv x = ss x ** {lock_Adv = <>} ; + mkAdV x = ss x ** {lock_AdV = <>} ; + mkAdA x = ss x ** {lock_AdA = <>} ; + + mkPreposition p = p ; + + mkV a b c d e f = mkVerb a b c d e f ** {s1 = [] ; lock_V = <>} ; + + regV a = case last a of { + "e" => vHusk (init a) ; + _ => vBo a + } ** {s1 = [] ; lock_V = <>} ; + + mk2V a b = regVerb a b ** {s1 = [] ; lock_V = <>} ; + + irregV x y z = irregVerb x y z + ** {s1 = [] ; lock_V = <>} ; + + partV v p = {s = v.s ; s1 = p ; lock_V = <>} ; + depV v = deponentVerb v ** {lock_V = <>} ; + + mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; lock_V2 = <>} ; + dirV2 v = mkV2 v [] ; + + mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; s3 = q ; lock_V3 = <>} ; + dirV3 v p = mkV3 v [] p ; + dirdirV3 v = dirV3 v [] ; + + mkV0 v = v ** {lock_V0 = <>} ; + mkVS v = v ** {lock_VS = <>} ; + mkV2S v p = mkV2 v p ** {lock_V2S = <>} ; + mkVV v = v ** {isAux = False ; lock_VV = <>} ; + mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2V = <>} ; + mkVA v = v ** {lock_VA = <>} ; + mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; + mkVQ v = v ** {lock_VQ = <>} ; + mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; + + mkAS v = v ** {lock_AS = <>} ; + mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; + mkAV v = v ** {lock_AV = <>} ; + mkA2V v p = mkA2 v p ** {lock_A2V = <>} ; + +} ; diff --git a/lib/resource/norwegian/ResourceNor.gf b/lib/resource-0.9/norwegian/ResourceNor.gf similarity index 100% rename from lib/resource/norwegian/ResourceNor.gf rename to lib/resource-0.9/norwegian/ResourceNor.gf diff --git a/lib/resource/norwegian/RulesNor.gf b/lib/resource-0.9/norwegian/RulesNor.gf similarity index 100% rename from lib/resource/norwegian/RulesNor.gf rename to lib/resource-0.9/norwegian/RulesNor.gf diff --git a/lib/resource-0.9/norwegian/StructuralNor.gf b/lib/resource-0.9/norwegian/StructuralNor.gf new file mode 100644 index 000000000..56a3092e0 --- /dev/null +++ b/lib/resource-0.9/norwegian/StructuralNor.gf @@ -0,0 +1,100 @@ +--# -path=.:../scandinavian:../abstract:../../prelude + +--1 The Top-Level Norwegian Resource Grammar: Structural Words +-- +-- Aarne Ranta 2002 -- 2004 +-- +concrete StructuralNor of Structural = + CategoriesNor, NumeralsNor ** open Prelude, MorphoNor, SyntaxNor in { + + lin + UseNumeral i = {s = \\g => table {Nom => i.s ! g ; Gen => i.s ! g ++ "s"} ; n = i.n} ; + + above_Prep = ss "ovenfor" ; + after_Prep = ss "etter" ; + by8agent_Prep = ss "av" ; + all8mass_Det = mkDeterminerSgGender2 "all" "alt" IndefP ; + all_NDet = mkDeterminerPlNum "alle" IndefP ; + almost_Adv = ss "nesten" ; + although_Subj = ss ["selv om"] ; + and_Conj = ss "og" ** {n = Pl} ; + because_Subj = ss ["fordi"] ; + before_Prep = ss "før" ; + behind_Prep = ss "bakom" ; + between_Prep = ss "mellom" ; + both_AndConjD = sd2 "både" "og" ** {n = Pl} ; + by8means_Prep = ss "med" ; + can8know_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** + {s1 = [] ; isAux = True} ; + can_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** + {s1 = [] ; isAux = True} ; + during_Prep = ss "under" ; + either8or_ConjD = sd2 "enten" "eller" ** {n = Sg} ; + everybody_NP = let alla = table {Nom => "alle" ; Gen => "alles"} in + {s = \\c => alla ! npCase c ; g = Utr Masc ; n = Pl ; p = P3} ; + every_Det = varjeDet ; + everything_NP = nameNounPhrase (mkProperName "alt" NNeutr) ; + everywhere_Adv = advPost "overalt" ; + from_Prep = ss "fra" ; + he_NP = pronNounPhrase han_34 ; + how_IAdv = ss "hvor" ; + how8many_IDet = mkDeterminerPl ["hvor mange"] IndefP ; + if_Subj = ss "hvis" ; + in8front_Prep = ss "foran" ; + i_NP = pronNounPhrase jag_32 ; + in_Prep = ss "i" ; + it_NP = pronNounPhrase det_40 ; ---- + many_Det = mkDeterminerPl "mange" IndefP ; + most_Det = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ; + most8many_Det = flestaDet ; + much_Det = mkDeterminerSg (detSgInvar "mye") IndefP ; + must_VV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "mått" ** + {s1 = [] ; isAux = True} ; + on_Prep = ss "på" ; + or_Conj = ss "eller" ** {n = Sg} ; + otherwise_Adv = ss "annerledes" ; ---- ? + part_Prep = ss "av" ; + no_Phr = ss ["Nei ."] ; + yes_Phr = ss ["Ja ."] ; + possess_Prep = ss "av" ; + quite_Adv = ss "temmelig" ; + she_NP = pronNounPhrase hon_35 ; + so_Adv = ss "så" ; + somebody_NP = nameNounPhrase (mkProperName "noen" (NUtr Masc)) ; + some_Det = mkDeterminerSgGender2 "noen" "noe" IndefP ; + some_NDet = mkDeterminerPlNum "noen" IndefP ; + something_NP = nameNounPhrase (mkProperName "noe" NNeutr) ; + somewhere_Adv = advPost ["et eller annet sted"] ; ---- ? + that_Det = mkDeterminerSgGender2 ["den der"] ["det der"] (DefP Def) ; + that_NP = regNameNounPhrase ["det"] NNeutr ; + therefore_Adv = ss "derfor" ; + these_NDet = mkDeterminerPlNum ["disse"] (DefP Def) ; + they8fem_NP = pronNounPhrase de_38 ; + they_NP = pronNounPhrase de_38 ; + this_Det = mkDeterminerSgGender2 ["denne"] ["dette"] (DefP Def) ; + this_NP = regNameNounPhrase ["dette"] NNeutr ; + those_NDet = mkDeterminerPlNum ["de der"] (DefP Def) ; + thou_NP = pronNounPhrase du_33 ; + through_Prep = ss "gjennom" ; + too_Adv = ss "for" ; + to_Prep = ss "til" ; + under_Prep = ss "under" ; + very_Adv = ss "meget" ; + want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" "vill" ** + {s1 = [] ; isAux = True} ; + we_NP = pronNounPhrase (vi_36) ; + what8many_IP = intPronWhat plural ; + what8one_IP = intPronWhat singular ; + when_IAdv = ss "når" ; + when_Subj = ss "når" ; + where_IAdv = ss "hver" ; + which8one_IDet = vilkenDet ; + which8many_IDet = mkDeterminerPl "hvilke" IndefP ; + who8many_IP = intPronWho plural ; + who8one_IP = intPronWho singular ; + why_IAdv = ss "hvorfor" ; + without_Prep = ss "uten" ; + with_Prep = ss "med" ; + ye_NP = pronNounPhrase (ni_37) ; + you_NP = pronNounPhrase De_38 ; +} diff --git a/lib/resource/norwegian/SwadeshLexNor.gf b/lib/resource-0.9/norwegian/SwadeshLexNor.gf similarity index 100% rename from lib/resource/norwegian/SwadeshLexNor.gf rename to lib/resource-0.9/norwegian/SwadeshLexNor.gf diff --git a/lib/resource/norwegian/SyntaxNor.gf b/lib/resource-0.9/norwegian/SyntaxNor.gf similarity index 100% rename from lib/resource/norwegian/SyntaxNor.gf rename to lib/resource-0.9/norwegian/SyntaxNor.gf diff --git a/lib/resource/norwegian/TimeNor.gf b/lib/resource-0.9/norwegian/TimeNor.gf similarity index 100% rename from lib/resource/norwegian/TimeNor.gf rename to lib/resource-0.9/norwegian/TimeNor.gf diff --git a/lib/resource/norwegian/TypesNor.gf b/lib/resource-0.9/norwegian/TypesNor.gf similarity index 100% rename from lib/resource/norwegian/TypesNor.gf rename to lib/resource-0.9/norwegian/TypesNor.gf diff --git a/lib/resource/norwegian/VerbphraseNor.gf b/lib/resource-0.9/norwegian/VerbphraseNor.gf similarity index 100% rename from lib/resource/norwegian/VerbphraseNor.gf rename to lib/resource-0.9/norwegian/VerbphraseNor.gf diff --git a/lib/resource/norwegian/VerbsNor.gf b/lib/resource-0.9/norwegian/VerbsNor.gf similarity index 100% rename from lib/resource/norwegian/VerbsNor.gf rename to lib/resource-0.9/norwegian/VerbsNor.gf diff --git a/lib/resource/norwegian/VerbsNorAbs.gf b/lib/resource-0.9/norwegian/VerbsNorAbs.gf similarity index 100% rename from lib/resource/norwegian/VerbsNorAbs.gf rename to lib/resource-0.9/norwegian/VerbsNorAbs.gf diff --git a/lib/resource/oldabstract/Categories.gf b/lib/resource-0.9/oldabstract/Categories.gf similarity index 100% rename from lib/resource/oldabstract/Categories.gf rename to lib/resource-0.9/oldabstract/Categories.gf diff --git a/lib/resource/oldabstract/Rules.gf b/lib/resource-0.9/oldabstract/Rules.gf similarity index 100% rename from lib/resource/oldabstract/Rules.gf rename to lib/resource-0.9/oldabstract/Rules.gf diff --git a/lib/resource/oldabstract/TestResource.gf b/lib/resource-0.9/oldabstract/TestResource.gf similarity index 100% rename from lib/resource/oldabstract/TestResource.gf rename to lib/resource-0.9/oldabstract/TestResource.gf diff --git a/lib/resource/romance/CategoriesRomance.gf b/lib/resource-0.9/romance/CategoriesRomance.gf similarity index 100% rename from lib/resource/romance/CategoriesRomance.gf rename to lib/resource-0.9/romance/CategoriesRomance.gf diff --git a/lib/resource/romance/ClauseRomance.gf b/lib/resource-0.9/romance/ClauseRomance.gf similarity index 100% rename from lib/resource/romance/ClauseRomance.gf rename to lib/resource-0.9/romance/ClauseRomance.gf diff --git a/lib/resource/romance/MathRomance.gf b/lib/resource-0.9/romance/MathRomance.gf similarity index 100% rename from lib/resource/romance/MathRomance.gf rename to lib/resource-0.9/romance/MathRomance.gf diff --git a/lib/resource/romance/NewSyntaxRomance.gf b/lib/resource-0.9/romance/NewSyntaxRomance.gf similarity index 100% rename from lib/resource/romance/NewSyntaxRomance.gf rename to lib/resource-0.9/romance/NewSyntaxRomance.gf diff --git a/lib/resource/romance/NumeralsRomance.gf b/lib/resource-0.9/romance/NumeralsRomance.gf similarity index 100% rename from lib/resource/romance/NumeralsRomance.gf rename to lib/resource-0.9/romance/NumeralsRomance.gf diff --git a/lib/resource/romance/RulesRomance.gf b/lib/resource-0.9/romance/RulesRomance.gf similarity index 100% rename from lib/resource/romance/RulesRomance.gf rename to lib/resource-0.9/romance/RulesRomance.gf diff --git a/lib/resource/romance/SyntaxRomance.gf b/lib/resource-0.9/romance/SyntaxRomance.gf similarity index 100% rename from lib/resource/romance/SyntaxRomance.gf rename to lib/resource-0.9/romance/SyntaxRomance.gf diff --git a/lib/resource/romance/SyntaxRomanceVP.gf b/lib/resource-0.9/romance/SyntaxRomanceVP.gf similarity index 100% rename from lib/resource/romance/SyntaxRomanceVP.gf rename to lib/resource-0.9/romance/SyntaxRomanceVP.gf diff --git a/lib/resource/romance/TypesRomance.gf b/lib/resource-0.9/romance/TypesRomance.gf similarity index 100% rename from lib/resource/romance/TypesRomance.gf rename to lib/resource-0.9/romance/TypesRomance.gf diff --git a/lib/resource/romance/VerbphraseRomance.gf b/lib/resource-0.9/romance/VerbphraseRomance.gf similarity index 100% rename from lib/resource/romance/VerbphraseRomance.gf rename to lib/resource-0.9/romance/VerbphraseRomance.gf diff --git a/lib/resource/russian/AllResourceRus.gf b/lib/resource-0.9/russian/AllResourceRus.gf similarity index 100% rename from lib/resource/russian/AllResourceRus.gf rename to lib/resource-0.9/russian/AllResourceRus.gf diff --git a/lib/resource/russian/BasicRus.gf b/lib/resource-0.9/russian/BasicRus.gf similarity index 100% rename from lib/resource/russian/BasicRus.gf rename to lib/resource-0.9/russian/BasicRus.gf diff --git a/lib/resource/russian/CategoriesRus.gf b/lib/resource-0.9/russian/CategoriesRus.gf similarity index 100% rename from lib/resource/russian/CategoriesRus.gf rename to lib/resource-0.9/russian/CategoriesRus.gf diff --git a/lib/resource/russian/ClauseRus.gf b/lib/resource-0.9/russian/ClauseRus.gf similarity index 100% rename from lib/resource/russian/ClauseRus.gf rename to lib/resource-0.9/russian/ClauseRus.gf diff --git a/lib/resource/russian/CountryRus.gf b/lib/resource-0.9/russian/CountryRus.gf similarity index 100% rename from lib/resource/russian/CountryRus.gf rename to lib/resource-0.9/russian/CountryRus.gf diff --git a/lib/resource/russian/DemonstrativeRus.gf b/lib/resource-0.9/russian/DemonstrativeRus.gf similarity index 100% rename from lib/resource/russian/DemonstrativeRus.gf rename to lib/resource-0.9/russian/DemonstrativeRus.gf diff --git a/lib/resource-0.9/russian/LangRus.gf b/lib/resource-0.9/russian/LangRus.gf new file mode 100644 index 000000000..7f928ac05 --- /dev/null +++ b/lib/resource-0.9/russian/LangRus.gf @@ -0,0 +1,25 @@ +--# -path=.:../abstract:../../prelude + +concrete LangRus of Lang = + RulesRus, + ClauseRus, + StructuralRus, +-- BasicRus, + TimeRus, + CountryRus, +-- MathRus + + ** open Prelude, ParadigmsRus, TypesRus +in { +flags coding=utf8 ; +lin + AdvDate d = {s=d.s ! (SF Sg Acc) }; + AdvTime t = prefixSS "в" t ; + NWeekday w = w ; + PNWeekday w = nounPN w ; + + PNCountry x = x ; + ANationality x = x ; + NLanguage x = x ; + +} diff --git a/lib/resource/russian/MathRus.gf b/lib/resource-0.9/russian/MathRus.gf similarity index 100% rename from lib/resource/russian/MathRus.gf rename to lib/resource-0.9/russian/MathRus.gf diff --git a/lib/resource-1.0/russian/MorphoRus.gf b/lib/resource-0.9/russian/MorphoRus.gf similarity index 60% rename from lib/resource-1.0/russian/MorphoRus.gf rename to lib/resource-0.9/russian/MorphoRus.gf index cc858fed7..66834004e 100644 --- a/lib/resource-1.0/russian/MorphoRus.gf +++ b/lib/resource-0.9/russian/MorphoRus.gf @@ -1,23 +1,20 @@ ---# -path=.:../../prelude:../common - --1 A Simple Russian Resource Morphology - --- Aarne Ranta, Janna Khegai 2006 - +-- +-- Aarne Ranta, Janna Khegai 2003 +-- -- This resource morphology contains definitions of the lexical entries -- needed in the resource syntax. -- It moreover contains copies of the most usual inflectional patterns. - +-- -- We use the parameter types and word classes defined for morphology. - +-- -- Note: mkPassive operation is at the moment incorrect. Low-level ending-analysis -- is needed to fix the operation. -resource MorphoRus = ResRus ** open Prelude, (Predef=Predef) in { +resource MorphoRus = TypesRus ** open (Predef=Predef), Prelude in { +flags coding=utf8 ; -flags coding=utf8 ; - -----2 Personal (together with possesive) pronouns. +--2 Personal (together with possesive) pronouns. oper pronYa: Pronoun = { s = table { PF Nom _ NonPoss => "Ñ" ; @@ -81,7 +78,7 @@ oper pronTu: Pronoun = PF Gen _ (Poss (ASg Neut)) => "твоего" ; PF Dat _ (Poss (ASg Neut)) => "твоему" ; PF Acc _ (Poss (ASg Neut)) => "твоё" ; - PF Inst _ (Poss (ASg Neut)) => "твоим" ; + PF Inst _ (Poss (ASg Neut)) => "твоим" ; PF Prepos _ (Poss (ASg Neut)) => "твоём" ; PF Nom _ (Poss APl) => "твои" ; PF Gen _ (Poss APl)=> "твоих" ; @@ -152,7 +149,6 @@ oper pronOno: Pronoun = g = PGen Neut ; n = Sg ; p = P3 ; - pron = True } ; @@ -310,76 +306,43 @@ oper pronChtoTo: Pronoun = p = P3 ; pron = False } ; -oper pronEti: Pronoun = +oper pronNikto: Pronoun = { s = table { - PF Nom _ _ => "Ñти" ; - PF Gen _ _ => "Ñтих" ; - PF Dat _ _ => "Ñтим" ; - PF Acc _ _ => "Ñтих" ; - PF Inst _ _ => "Ñтими" ; - PF Prepos _ _ => "Ñтих" + PF Nom _ _ => "никто" ; + PF Gen _ _ => "никого" ; + PF Dat _ _ => "никому" ; + PF Acc _ _ => "никого" ; + PF Inst _ _ => "никем" ; + PF Prepos _ _ => ["ни о ком"] -- only together with a preposition } ; - n = Pl; - p = P3; - g= PGen Fem ; - anim = Animate ; - pron = False + g = PGen Masc; + n = Sg ; + p = P3 ; + pron = False } ; -oper pronTe: Pronoun = +oper pronNichto: Pronoun = { s = table { - PF Nom _ _ => "те" ; - PF Gen _ _ => "тех" ; - PF Dat _ _ => "тем" ; - PF Acc _ _ => "тех" ; - PF Inst _ _ => "теми" ; - PF Prepos _ _ => "тех" + PF Nom _ _ => "ничто" ; + PF Gen _ _ => "ничего" ; + PF Dat _ _ => "ничему" ; + PF Acc _ _ => "ничего" ; + PF Inst _ _ => "ничем" ; + PF Prepos _ _ => ["ни о чём"] -- only together with preposition } ; - n = Pl; - p = P3; - g=PGen Fem ; - anim = Animate ; - pron = False + g = PGen Masc; + n = Sg ; + p = P3 ; + pron = False } ; - ---oper pronNikto: Pronoun = --- { s = table { --- PF Nom _ _ => "никто" ; --- PF Gen _ _ => "никого" ; --- PF Dat _ _ => "никому" ; --- PF Acc _ _ => "никого" ; --- PF Inst _ _ => "никем" ; --- PF Prepos _ _ => ["ни о ком"] -- only together with a preposition --- } ; --- g = PGen Masc; --- n = Sg ; --- p = P3 ; --- pron = False --- } ; --- ---oper pronNichto: Pronoun = --- { s = table { --- PF Nom _ _ => "ничто" ; --- PF Gen _ _ => "ничего" ; --- PF Dat _ _ => "ничему" ; --- PF Acc _ _ => "ничего" ; --- PF Inst _ _ => "ничем" ; --- PF Prepos _ _ => ["ни о чём"] -- only together with preposition --- } ; --- g = PGen Masc; --- n = Sg ; --- p = P3 ; --- pron = False --- } ; --- oper pronVseInanimate: Pronoun = { s = table { PF Nom _ _ => "вÑÑ‘" ; PF Gen _ _ => "вÑего" ; PF Dat _ _ => "вÑему" ; PF Acc _ _ => "вÑÑ‘" ; - PF Inst _ _ => "вÑем" ; + PF Inst _ _ => "вÑем" ; PF Prepos _ _ => "вÑём" } ; g = PGen Neut; @@ -388,70 +351,68 @@ oper pronVseInanimate: Pronoun = pron = False } ; -----2 Nouns --- ----- Help type SubstFormDecl is introduced to reduce repetition in ----- the declination definitions. It allows us to define a declination type, ----- namely, the String component "s" of the CommNoun type ----- without any reference to the Gender parameter "g". --- -oper - CommNoun = {s : SubstForm => Str ; g : Gender ; anim : Animacy } ; - SubstFormDecl = SS1 SubstForm ; --- ---oper gorlo : CommNoun = l_oEndInAnimateDecl "горл" ; ---oper koleno : CommNoun = oEndInAnimateDecl "колен" ; ---oper plecho : CommNoun = oEndInAnimateDecl "плеч" ; ---oper ukho : CommNoun = oEnd_KH_InAnimateDecl "у" ; ---oper zhivot : CommNoun = nullEndInAnimateDecl1 "живот" ; ---oper grud : CommNoun = softSignEndDeclFem "груд" ; ---oper ruka : CommNoun = aEndG_K_KH_Decl "рук" ; ---oper spina : CommNoun = aEndInAnimateDecl "Ñпин" ; ---oper stopa : CommNoun = aEndInAnimateDecl "Ñтоп" ; ---oper sreda : CommNoun = aEndInAnimateDecl "Ñред" ; ---oper pyatnica : CommNoun = aEndInAnimateDecl "пÑтниц" ; ---oper subbota : CommNoun = aEndInAnimateDecl "Ñуббот" ; ---oper astma : CommNoun = aEndInAnimateDecl "аÑтм" ; ---oper angina : CommNoun = aEndInAnimateDecl "ангин" ; ---oper revmatizm : CommNoun = nullEndInAnimateDecl1 "ревматизм" ; ---oper zapor : CommNoun = nullEndInAnimateDecl1 "запор" ; ---oper ponos : CommNoun = nullEndInAnimateDecl1 "поноÑ" ; ---oper artrit : CommNoun = nullEndInAnimateDecl1 "артрит" ; ---oper diabet : CommNoun = nullEndInAnimateDecl1 "диабет" ; ---oper tsistit : CommNoun = nullEndInAnimateDecl1 "циÑтит" ; ---oper izzhoga : CommNoun = aEndG_K_KH_Decl "изжог" ; ---oper allergiya : CommNoun = i_yaEndDecl "аллерги" ; --- ---oper viagra : CommNoun = aEndInAnimateDecl "виагр" ; ---oper antidepressant : CommNoun = nullEndInAnimateDecl1 "антидепреÑÑант" ; ---oper insulin : CommNoun = nullEndInAnimateDecl1 "инÑулин" ; ---oper vitamin : CommNoun = nullEndInAnimateDecl1 "витамин" ; ---oper antibiotik : CommNoun = nullEndInAnimateDecl3 "антибиотик" ; ---oper ponedelnik : CommNoun = nullEndInAnimateDecl3 "понедельник" ; ---oper vtornik : CommNoun = nullEndInAnimateDecl3 "вторник" ; ---oper chetverg : CommNoun = nullEndInAnimateDecl3 "четверг" ; --- --- ---oper kaplya : CommNoun = (l_yaEndInAnimateDecl "кап") ** {g = Fem; anim = Inanimate} ; ---oper snotvornoe : CommNoun = oeEndInAnimateDecl "Ñнотворн" ; ---oper uspokoitelnoe : CommNoun = oeEndInAnimateDecl "уÑпокоительн" ; ---oper slabitelnoe : CommNoun = oeEndInAnimateDecl "Ñлабительн" ; --- ---oper urolog : CommNoun = nullEndAnimateDecl "уролог" ; ---oper ginekolog : CommNoun = nullEndAnimateDecl "гинеколог" ; ---oper nevropatolog : CommNoun = nullEndAnimateDecl "невропатолог" ; ---oper dermatolog : CommNoun = nullEndAnimateDecl "дерматолог" ; ---oper kardiolog : CommNoun = nullEndAnimateDecl "кардиолог" ; ---oper terapevt : CommNoun = nullEndAnimateDecl2 "терапевт" ; ---oper okulist : CommNoun = nullEndAnimateDecl2 "окулиÑÑ‚" ; ---oper pediatr : CommNoun = nullEndAnimateDecl2 "педиатр" ; ---oper khirurg : CommNoun = nullEndAnimateDecl2 "хирург" ; --- ---oper muzhchina : CommNoun = (aEndAnimateDecl "мужчин") ** { g = Masc ; anim = Animate } ; ---oper zhenchina : CommNoun = (aEndAnimateDecl "женщин") ** { g = Fem ; anim = Animate } ; ---oper mama : CommNoun = (aEndAnimateDecl "мам")**{ g = Fem ; anim = Animate } ; ---oper cena : CommNoun = (aEndAnimateDecl "цен") ** { g = Fem ; anim = Inanimate } ; --- +--2 Nouns + +-- Help type SubstFormDecl is introduced to reduce repetition in +-- the declination definitions. It allows us to define a declination type, +-- namely, the String component "s" of the CommNoun type +-- without any reference to the Gender parameter "g". + +oper SubstFormDecl = SS1 SubstForm ; + +oper gorlo : CommNoun = l_oEndInAnimateDecl "горл" ; +oper koleno : CommNoun = oEndInAnimateDecl "колен" ; +oper plecho : CommNoun = oEndInAnimateDecl "плеч" ; +oper ukho : CommNoun = oEnd_KH_InAnimateDecl "у" ; +oper zhivot : CommNoun = nullEndInAnimateDecl1 "живот" ; +oper grud : CommNoun = softSignEndDeclFem "груд" ; +oper ruka : CommNoun = aEndG_K_KH_Decl "рук" ; +oper spina : CommNoun = aEndInAnimateDecl "Ñпин" ; +oper stopa : CommNoun = aEndInAnimateDecl "Ñтоп" ; +oper sreda : CommNoun = aEndInAnimateDecl "Ñред" ; +oper pyatnica : CommNoun = aEndInAnimateDecl "пÑтниц" ; +oper subbota : CommNoun = aEndInAnimateDecl "Ñуббот" ; +oper astma : CommNoun = aEndInAnimateDecl "аÑтм" ; +oper angina : CommNoun = aEndInAnimateDecl "ангин" ; +oper revmatizm : CommNoun = nullEndInAnimateDecl1 "ревматизм" ; +oper zapor : CommNoun = nullEndInAnimateDecl1 "запор" ; +oper ponos : CommNoun = nullEndInAnimateDecl1 "поноÑ" ; +oper artrit : CommNoun = nullEndInAnimateDecl1 "артрит" ; +oper diabet : CommNoun = nullEndInAnimateDecl1 "диабет" ; +oper tsistit : CommNoun = nullEndInAnimateDecl1 "циÑтит" ; +oper izzhoga : CommNoun = aEndG_K_KH_Decl "изжог" ; +oper allergiya : CommNoun = i_yaEndDecl "аллерги" ; + +oper viagra : CommNoun = aEndInAnimateDecl "виагр" ; +oper antidepressant : CommNoun = nullEndInAnimateDecl1 "антидепреÑÑант" ; +oper insulin : CommNoun = nullEndInAnimateDecl1 "инÑулин" ; +oper vitamin : CommNoun = nullEndInAnimateDecl1 "витамин" ; +oper antibiotik : CommNoun = nullEndInAnimateDecl3 "антибиотик" ; +oper ponedelnik : CommNoun = nullEndInAnimateDecl3 "понедельник" ; +oper vtornik : CommNoun = nullEndInAnimateDecl3 "вторник" ; +oper chetverg : CommNoun = nullEndInAnimateDecl3 "четверг" ; + + +oper kaplya : CommNoun = (l_yaEndInAnimateDecl "кап") ** {g = Fem; anim = Inanimate} ; +oper snotvornoe : CommNoun = oeEndInAnimateDecl "Ñнотворн" ; +oper uspokoitelnoe : CommNoun = oeEndInAnimateDecl "уÑпокоительн" ; +oper slabitelnoe : CommNoun = oeEndInAnimateDecl "Ñлабительн" ; + +oper urolog : CommNoun = nullEndAnimateDecl "уролог" ; +oper ginekolog : CommNoun = nullEndAnimateDecl "гинеколог" ; +oper nevropatolog : CommNoun = nullEndAnimateDecl "невропатолог" ; +oper dermatolog : CommNoun = nullEndAnimateDecl "дерматолог" ; +oper kardiolog : CommNoun = nullEndAnimateDecl "кардиолог" ; +oper terapevt : CommNoun = nullEndAnimateDecl2 "терапевт" ; +oper okulist : CommNoun = nullEndAnimateDecl2 "окулиÑÑ‚" ; +oper pediatr : CommNoun = nullEndAnimateDecl2 "педиатр" ; +oper khirurg : CommNoun = nullEndAnimateDecl2 "хирург" ; + +oper muzhchina : CommNoun = (aEndAnimateDecl "мужчин") ** { g = Masc ; anim = Animate } ; +oper zhenchina : CommNoun = (aEndAnimateDecl "женщин") ** { g = Fem ; anim = Animate } ; +oper mama : CommNoun = (aEndAnimateDecl "мам")**{ g = Fem ; anim = Animate } ; +oper cena : CommNoun = (aEndAnimateDecl "цен") ** { g = Fem ; anim = Inanimate } ; + oper aEndAnimateDecl: Str -> SubstFormDecl = \muzhchin -> {s = table { SF Sg Nom => muzhchin+"а" ; @@ -461,13 +422,14 @@ oper aEndAnimateDecl: Str -> SubstFormDecl = \muzhchin -> SF Sg Inst => muzhchin+"ой" ; SF Sg Prepos => muzhchin +"е" ; SF Pl Nom => muzhchin +"Ñ‹" ; - SF Pl Gen => muzhchin ; SF Pl Dat => muzhchin+"ам" ; + SF Pl Gen => muzhchin ; + SF Pl Dat => muzhchin+"ам" ; SF Pl Acc => muzhchin ; SF Pl Inst => muzhchin+"ами" ; SF Pl Prepos => muzhchin+"ах" } } ; ---oper stomatolog : CommNoun = nullEndAnimateDecl "Ñтоматолог" ; +oper stomatolog : CommNoun = nullEndAnimateDecl "Ñтоматолог" ; oper nullEndInAnimateDecl: Str -> CommNoun = \stomatolog -> {s = table { SF Sg Nom => stomatolog ; @@ -478,7 +440,7 @@ oper nullEndInAnimateDecl: Str -> CommNoun = \stomatolog -> SF Sg Prepos => stomatolog+"е" ; SF Pl Nom => stomatolog+"и" ; SF Pl Gen => stomatolog+"ов" ; - SF Pl Dat => stomatolog+"ам" ; + SF Pl Dat => stomatolog+"ам" ; SF Pl Acc => stomatolog+"ов" ; SF Pl Inst => stomatolog+"ами" ; SF Pl Prepos => stomatolog+"ах" } ; @@ -495,7 +457,7 @@ oper nullEndAnimateDecl: Str -> CommNoun = \stomatolog -> SF Sg Prepos => stomatolog+"е" ; SF Pl Nom => stomatolog+"и" ; SF Pl Gen => stomatolog+"ов" ; - SF Pl Dat => stomatolog+"ам" ; + SF Pl Dat => stomatolog+"ам" ; SF Pl Acc => stomatolog+"ов" ; SF Pl Inst => stomatolog+"ами" ; SF Pl Prepos => stomatolog+"ах" } ; @@ -511,21 +473,21 @@ oper nullEndAnimateDecl2: Str -> CommNoun = \stomatolog -> SF Sg Prepos => stomatolog+"е" ; SF Pl Nom => stomatolog+"Ñ‹" ; SF Pl Gen => stomatolog+"ов" ; - SF Pl Dat => stomatolog+"ам" ; + SF Pl Dat => stomatolog+"ам" ; SF Pl Acc => stomatolog+"ов" ; SF Pl Inst => stomatolog+"ами" ; SF Pl Prepos => stomatolog+"ах" } ; g = Masc ; anim = Animate } ; ---oper gripp : CommNoun = nullEndInAnimateDecl1 "грипп" ; ---oper bar : CommNoun = nullEndInAnimateDecl1 "бар" ; ---oper telefon: CommNoun = nullEndInAnimateDecl1 "телефон" ; ---oper restoran : CommNoun = nullEndInAnimateDecl1 "реÑторан" ; --- ----- Note: Plural form of the "грипп" (influenza) is a bit doubious ----- However, according to http://starling.rinet.ru/morph.htm it exists. ----- so we also keep it. +oper gripp : CommNoun = nullEndInAnimateDecl1 "грипп" ; +oper bar : CommNoun = nullEndInAnimateDecl1 "бар" ; +oper telefon: CommNoun = nullEndInAnimateDecl1 "телефон" ; +oper restoran : CommNoun = nullEndInAnimateDecl1 "реÑторан" ; + +-- Note: Plural form of the "грипп" (influenza) is a bit doubious +-- However, according to http://starling.rinet.ru/morph.htm it exists. +-- so we also keep it. oper nullEndInAnimateDeclPepel: Str -> CommNoun = \gripp -> {s = table { SF Sg Nom => gripp +"ел"; @@ -540,7 +502,7 @@ oper nullEndInAnimateDeclPepel: Str -> CommNoun = \gripp -> SF Pl Acc => gripp +"лы"; SF Pl Inst => gripp+"лами" ; SF Pl Prepos => gripp+"лах" - } ; + } ; g = Masc ; anim = Inanimate } ; @@ -558,7 +520,7 @@ oper nullEndInAnimateDecl1: Str -> CommNoun = \gripp -> SF Pl Acc => gripp +"Ñ‹"; SF Pl Inst => gripp+"ами" ; SF Pl Prepos => gripp+"ах" - } ; + } ; g = Masc ; anim = Inanimate } ; @@ -576,8 +538,9 @@ oper nullEndInAnimateDeclStul: Str -> CommNoun = \brat -> SF Pl Acc => brat +"ьев"; SF Pl Inst => brat+"ÑŒÑми" ; SF Pl Prepos => brat+"ÑŒÑах" - } ; + } ; g = Masc ; anim = Inanimate + } ; oper nullEndAnimateDeclBrat: Str -> CommNoun = \brat -> {s = table @@ -586,58 +549,60 @@ oper nullEndAnimateDeclBrat: Str -> CommNoun = \brat -> SF Sg Dat => brat+"у" ; SF Sg Acc => brat +"а"; SF Sg Inst => brat+"ом" ; - SF Sg Prepos => brat+"е" ; + SF Sg Prepos => brat+"е" ; SF Pl Nom => brat+"ÑŒÑ" ; SF Pl Gen => brat+"ьев" ; SF Pl Dat => brat+"ÑŒÑм" ; SF Pl Acc => brat +"ьев"; SF Pl Inst => brat+"ÑŒÑми" ; SF Pl Prepos => brat+"ÑŒÑах" - } ; + } ; g = Masc ; anim = Animate } ; ---oper adres: CommNoun = nullEndInAnimateDecl2 "адреÑ" ; ---oper dom : CommNoun = nullEndInAnimateDecl2 "дом" ; ---oper svet : CommNoun = nullEndInAnimateDecl2 "Ñвет" ; + +oper adres: CommNoun = nullEndInAnimateDecl2 "адреÑ" ; +oper dom : CommNoun = nullEndInAnimateDecl2 "дом" ; +oper svet : CommNoun = nullEndInAnimateDecl2 "Ñвет" ; oper nullEndInAnimateDecl2: Str -> CommNoun = \gripp -> {s = table - { SF Sg Nom => gripp ; + { SF Sg Nom => gripp ; SF Sg Gen => gripp+"а" ; SF Sg Dat => gripp+"у" ; SF Sg Acc => gripp ; SF Sg Inst => gripp+"ом" ; SF Sg Prepos => gripp+"е" ; SF Pl Nom => gripp+"а" ; - SF Pl Gen => gripp+"ов" ; + SF Pl Gen => gripp+"ов" ; + SF Pl Dat => gripp+"ам" ; SF Pl Acc => gripp +"а"; SF Pl Inst => gripp+"ами" ; - SF Pl Prepos => gripp+"ах" + SF Pl Prepos => gripp+"ах" } ; g = Masc ; anim = Inanimate } ; ---oper nullEndInAnimateDecl3: Str -> CommNoun = \antibiotik -> --- {s = table --- { SF Sg Nom => antibiotik ; --- SF Sg Gen => antibiotik+"а" ; --- SF Sg Dat => antibiotik+"у" ; --- SF Sg Acc => antibiotik ; --- SF Sg Inst => antibiotik+"ом" ; --- SF Sg Prepos => antibiotik+"е" ; --- SF Pl Nom => antibiotik+"и" ; --- SF Pl Gen => antibiotik+"ов" ; --- --- SF Pl Dat => antibiotik+"ам" ; --- SF Pl Acc => antibiotik +"и"; --- SF Pl Inst => antibiotik+"ами" ; --- SF Pl Prepos => antibiotik+"ах" --- } ; --- g = Masc ; anim = Inanimate --- } ; --- ---oper obezbolivauchee : CommNoun = eeEndInAnimateDecl "обезболивающ" ; +oper nullEndInAnimateDecl3: Str -> CommNoun = \antibiotik -> + {s = table + { SF Sg Nom => antibiotik ; + SF Sg Gen => antibiotik+"а" ; + SF Sg Dat => antibiotik+"у" ; + SF Sg Acc => antibiotik ; + SF Sg Inst => antibiotik+"ом" ; + SF Sg Prepos => antibiotik+"е" ; + SF Pl Nom => antibiotik+"и" ; + SF Pl Gen => antibiotik+"ов" ; + + SF Pl Dat => antibiotik+"ам" ; + SF Pl Acc => antibiotik +"и"; + SF Pl Inst => antibiotik+"ами" ; + SF Pl Prepos => antibiotik+"ах" + } ; + g = Masc ; anim = Inanimate + } ; + +oper obezbolivauchee : CommNoun = eeEndInAnimateDecl "обезболивающ" ; oper eeEndInAnimateDecl: Str -> CommNoun = \obezbolivauch -> { s = table { SF Sg Nom => obezbolivauch +"ее"; @@ -691,25 +656,25 @@ oper oeEndAnimateDecl: Str -> CommNoun = \snotvorn -> g = Neut ; anim = Animate } ; ---oper voskresenje : CommNoun = soft_eEndInAnimateDecl "воÑкреÑен" ; ---oper soft_eEndInAnimateDecl: Str -> CommNoun = \proizvedeni -> --- { s = table --- { SF Sg Nom => proizvedeni +"ье"; --- SF Sg Gen => proizvedeni+"ÑŒÑ" ; --- SF Sg Dat => proizvedeni+"ью" ; --- SF Sg Acc => proizvedeni +"ье"; --- SF Sg Inst => proizvedeni+"ьем" ; --- SF Sg Prepos => proizvedeni+"ье" ; --- SF Pl Nom => proizvedeni+"ÑŒÑ" ; --- SF Pl Gen => proizvedeni+"ий" ; --- SF Pl Dat => proizvedeni+"ÑŒÑм" ; --- SF Pl Acc => proizvedeni+"ÑŒÑ" ; --- SF Pl Inst => proizvedeni+"ÑŒÑми" ; --- SF Pl Prepos => proizvedeni+"ÑŒÑÑ…" --- } ; --- g = Neut ; anim = Inanimate --- } ; ---oper proizvedenie : CommNoun = eEndInAnimateDecl "произведени" ; +oper voskresenje : CommNoun = soft_eEndInAnimateDecl "воÑкреÑен" ; +oper soft_eEndInAnimateDecl: Str -> CommNoun = \proizvedeni -> + { s = table + { SF Sg Nom => proizvedeni +"ье"; + SF Sg Gen => proizvedeni+"ÑŒÑ" ; + SF Sg Dat => proizvedeni+"ью" ; + SF Sg Acc => proizvedeni +"ье"; + SF Sg Inst => proizvedeni+"ьем" ; + SF Sg Prepos => proizvedeni+"ье" ; + SF Pl Nom => proizvedeni+"ÑŒÑ" ; + SF Pl Gen => proizvedeni+"ий" ; + SF Pl Dat => proizvedeni+"ÑŒÑм" ; + SF Pl Acc => proizvedeni+"ÑŒÑ" ; + SF Pl Inst => proizvedeni+"ÑŒÑми" ; + SF Pl Prepos => proizvedeni+"ÑŒÑÑ…" + } ; + g = Neut ; anim = Inanimate + } ; +oper proizvedenie : CommNoun = eEndInAnimateDecl "произведени" ; oper eEndInAnimateDecl: Str -> CommNoun = \proizvedeni -> { s = table { SF Sg Nom => proizvedeni +"е"; @@ -727,11 +692,11 @@ oper eEndInAnimateDecl: Str -> CommNoun = \proizvedeni -> } ; g = Neut ; anim = Inanimate } ; ---oper chislo : CommNoun = l_oEndInAnimateDecl "чиÑл" ; ---oper vino : CommNoun = l_oEndInAnimateDecl "вин" ; ---oper l_oEndInAnimateDecl: Str -> CommNoun = \chisl -> --- let { chis = Predef.tk 1 chisl ; ending = Predef.dp 3 chisl } in --- oEndInAnimateDecl3 chisl (chis+"e"+ending) ; +oper chislo : CommNoun = l_oEndInAnimateDecl "чиÑл" ; +oper vino : CommNoun = l_oEndInAnimateDecl "вин" ; +oper l_oEndInAnimateDecl: Str -> CommNoun = \chisl -> + let { chis = Predef.tk 1 chisl ; ending = Predef.dp 3 chisl } in + oEndInAnimateDecl3 chisl (chis+"e"+ending) ; oper oEndInAnimateDecl3: Str -> Str -> CommNoun = \chisl, chisel -> { s = table { SF Sg Nom => chisl +"о"; @@ -756,72 +721,76 @@ oper oEndInAnimateDecl: Str -> CommNoun = \plech -> SF Sg Gen => plech+"а" ; SF Sg Dat => plech+"у" ; SF Sg Acc => plech+"о" ; - SF Sg Inst => plech+"ом" ; SF Sg Prepos => plech+"е" ; + SF Sg Inst => plech+"ом" ; + SF Sg Prepos => plech+"е" ; SF Pl Nom => plech+"и" ; SF Pl Gen => plech; SF Pl Dat => plech+"ам" ; SF Pl Acc => plech+"и" ; SF Pl Inst => plech+"ами" ; - SF Pl Prepos => plech+"ÑÑ…" + SF Pl Prepos => plech+"ÑÑ…" } ; g = Neut ; anim = Inanimate } ; ---oper oEnd_KH_InAnimateDecl: Str -> CommNoun = \u -> --- { s = table --- { SF Sg Nom => u+"хо" ; --- SF Sg Gen => u+"ха" ; --- SF Sg Dat => u+"ху" ; --- SF Sg Acc => u+"хо" ; --- SF Sg Inst => u+"хом" ; -- SF Sg Prepos => u+"хе" ; --- SF Pl Nom => u+"ши" ; --- SF Pl Gen => u +"шей"; --- SF Pl Dat => u+"шам" ; --- SF Pl Acc => u+"ши" ; --- SF Pl Inst => u+"шами" ; --- SF Pl Prepos => u+"шах" --- } ; --- g = Neut ; anim = Inanimate --- } ; --- ---oper malaria : CommNoun = i_yaEndDecl "малÑри" ; --- ---oper daniya : ProperName = mkCNProperName(i_yaEndDecl "Дани" ); ---oper angliya : ProperName = mkCNProperName(i_yaEndDecl "Ðнгли") ; ---oper finlyandiya : ProperName = mkCNProperName(i_yaEndDecl "ФинлÑнди") ; ---oper franciya : ProperName = mkCNProperName(i_yaEndDecl "Франци" ); ---oper germaniya : ProperName = mkCNProperName(i_yaEndDecl "Германи") ; ---oper italiya : ProperName = mkCNProperName(i_yaEndDecl "Итали" ); ---oper norvegiya : ProperName = mkCNProperName(i_yaEndDecl "Ðорвеги") ; ---oper rossiya : ProperName = mkCNProperName(i_yaEndDecl "РоÑÑи") ; ---oper ispaniya : ProperName = mkCNProperName(i_yaEndDecl "ИÑпани") ; ---oper shveciya : ProperName = mkCNProperName(i_yaEndDecl "Швеци") ; --- +oper oEnd_KH_InAnimateDecl: Str -> CommNoun = \u -> + { s = table + { SF Sg Nom => u+"хо" ; + SF Sg Gen => u+"ха" ; + SF Sg Dat => u+"ху" ; + SF Sg Acc => u+"хо" ; + SF Sg Inst => u+"хом" ; + SF Sg Prepos => u+"хе" ; + SF Pl Nom => u+"ши" ; + SF Pl Gen => u +"шей"; + SF Pl Dat => u+"шам" ; + SF Pl Acc => u+"ши" ; + SF Pl Inst => u+"шами" ; + SF Pl Prepos => u+"шах" + } ; + g = Neut ; anim = Inanimate + } ; + +oper malaria : CommNoun = i_yaEndDecl "малÑри" ; + +oper daniya : ProperName = mkCNProperName(i_yaEndDecl "Дани" ); +oper angliya : ProperName = mkCNProperName(i_yaEndDecl "Ðнгли") ; +oper finlyandiya : ProperName = mkCNProperName(i_yaEndDecl "ФинлÑнди") ; +oper franciya : ProperName = mkCNProperName(i_yaEndDecl "Франци" ); +oper germaniya : ProperName = mkCNProperName(i_yaEndDecl "Германи") ; +oper italiya : ProperName = mkCNProperName(i_yaEndDecl "Итали" ); +oper norvegiya : ProperName = mkCNProperName(i_yaEndDecl "Ðорвеги") ; +oper rossiya : ProperName = mkCNProperName(i_yaEndDecl "РоÑÑи") ; +oper ispaniya : ProperName = mkCNProperName(i_yaEndDecl "ИÑпани") ; +oper shveciya : ProperName = mkCNProperName(i_yaEndDecl "Швеци") ; + oper i_yaEndDecl: Str -> CommNoun = \malar -> { s = table { SF Sg Nom => malar+"Ñ" ; SF Sg Gen => malar+"и" ; SF Sg Dat => malar+"и" ; SF Sg Acc => malar+"ÑŽ" ; - SF Sg Inst => malar+"ей" ; SF Sg Prepos => malar+"и" ; + SF Sg Inst => malar+"ей" ; + SF Sg Prepos => malar+"и" ; SF Pl Nom => malar+"и" ; SF Pl Gen => malar+"й" ; SF Pl Dat => malar+"Ñм" ; SF Pl Acc => malar+"и" ; SF Pl Inst => malar+"Ñми" ; - SF Pl Prepos => malar+"ÑÑ…" + SF Pl Prepos => malar+"ÑÑ…" } ; g = Fem ; anim = Inanimate } ; ---oper bol : CommNoun = softSignEndDeclFem "бол" ; ---oper nol : CommNoun = softSignEndDeclMasc "нол" ; ---oper uroven : CommNoun = EN_softSignEndDeclMasc "уровен" ; +oper bol : CommNoun = softSignEndDeclFem "бол" ; +oper nol : CommNoun = softSignEndDeclMasc "нол" ; +oper uroven : CommNoun = EN_softSignEndDeclMasc "уровен" ; oper softSignEndDeclFem: Str -> CommNoun = \bol -> {s = table { SF Sg Nom => bol+"ÑŒ" ; SF Sg Gen => bol+"и" ; SF Sg Dat => bol+"и" ; SF Sg Acc => bol+"ÑŒ" ; + SF Sg Inst => bol+"ью" ; SF Sg Prepos => bol+"и" ; SF Pl Nom => bol+"и" ; @@ -829,7 +798,8 @@ oper softSignEndDeclFem: Str -> CommNoun = \bol -> SF Pl Dat => bol+"Ñм" ; SF Pl Acc => bol+"и" ; SF Pl Inst => bol+"Ñми" ; - SF Pl Prepos => bol+"ÑÑ…" } ; + SF Pl Prepos => bol+"ÑÑ…" + } ; g = Fem ; anim = Inanimate } ; oper softSignEndDeclMasc: Str -> CommNoun = \nol -> @@ -892,7 +862,7 @@ oper EN_softSignEndDeclMasc: Str -> CommNoun = \rem -> SF Sg Gen => rem+"нÑ" ; SF Sg Dat => rem+"ню" ; SF Sg Acc => rem+"ень" ; - SF Sg Inst => rem+"нем" ; + SF Sg Inst => rem+"нем" ; SF Sg Prepos => rem+"не" ; SF Pl Nom => rem+"ни" ; SF Pl Gen => rem+"ней" ; @@ -904,10 +874,10 @@ oper EN_softSignEndDeclMasc: Str -> CommNoun = \rem -> g = Masc ; anim = Inanimate } ; ---oper noga : CommNoun = aEndG_K_KH_Decl "ног" ; ---oper doroga : CommNoun = aEndG_K_KH_Decl "дорог" ; ---oper dvojka : CommNoun = aEndG_K_KH_Decl "двойк" ; ---oper butyulka : CommNoun = aEndG_K_KH_Decl "бутылк" ; +oper noga : CommNoun = aEndG_K_KH_Decl "ног" ; +oper doroga : CommNoun = aEndG_K_KH_Decl "дорог" ; +oper dvojka : CommNoun = aEndG_K_KH_Decl "двойк" ; +oper butyulka : CommNoun = aEndG_K_KH_Decl "бутылк" ; oper aEndG_K_KH_Decl: Str -> CommNoun = \nog -> { s = table { SF Sg Nom => nog+"а" ; @@ -917,27 +887,27 @@ oper aEndG_K_KH_Decl: Str -> CommNoun = \nog -> SF Sg Inst => nog+"ой" ; SF Sg Prepos => nog+"е" ; SF Pl Nom => nog+"и" ; - SF Pl Gen => nog ; + SF Pl Gen => nog ; SF Pl Dat => nog+"ам" ; SF Pl Acc => nog+ "и" ; - SF Pl Inst => nog+"ами" ; + SF Pl Inst => nog+"ами" ; SF Pl Prepos => nog+"ах" } ; g = Fem ; anim = Inanimate } ; ---oper golova : CommNoun = aEndInAnimateDecl "голов" ; ---oper mashina : CommNoun = aEndInAnimateDecl "машин" ; ---oper temperatura : CommNoun = aEndInAnimateDecl "температур" ; ---oper edinica : CommNoun = ej_aEndInAnimateDecl "единиц" ; --- +oper golova : CommNoun = aEndInAnimateDecl "голов" ; +oper mashina : CommNoun = aEndInAnimateDecl "машин" ; +oper temperatura : CommNoun = aEndInAnimateDecl "температур" ; +oper edinica : CommNoun = ej_aEndInAnimateDecl "единиц" ; + oper aEndInAnimateDecl: Str -> CommNoun = \golov -> { s = table { SF Sg Nom => golov+"а" ; SF Sg Gen => golov+"Ñ‹" ; SF Sg Dat => golov+"е" ; SF Sg Acc => golov+"у" ; - SF Sg Inst => golov+"ой" ; + SF Sg Inst => golov+"ой" ; SF Sg Prepos => golov+"е" ; SF Pl Nom => golov+"Ñ‹" ; SF Pl Gen => golov ; @@ -953,8 +923,8 @@ oper ej_aEndInAnimateDecl: Str -> CommNoun = \ediniz -> { SF Sg Nom => ediniz+"а" ; SF Sg Gen => ediniz+"Ñ‹" ; SF Sg Dat => ediniz+"е" ; - SF Sg Acc => ediniz+"у" ; - SF Sg Inst => ediniz+"ей" ; + SF Sg Acc => ediniz+"у" ; + SF Sg Inst => ediniz+"ей" ; SF Sg Prepos => ediniz+"е" ; SF Pl Nom => ediniz+"Ñ‹" ; SF Pl Gen => ediniz ; @@ -967,10 +937,11 @@ oper ej_aEndInAnimateDecl: Str -> CommNoun = \ediniz -> } ; ---oper dyadya : CommNoun = (yaEndAnimateDecl "дÑд") ** {g = Masc; anim = Animate} ; +oper dyadya : CommNoun = (yaEndAnimateDecl "дÑд") ** {g = Masc; anim = Animate} ; oper yaEndAnimateDecl: Str -> SubstFormDecl = \nyan -> - {s = table { - SF Sg Nom => nyan + "Ñ" ; SF Sg Gen => nyan + "и" ; +{s = table { + SF Sg Nom => nyan + "Ñ" ; + SF Sg Gen => nyan + "и" ; SF Sg Dat => nyan + "е" ; SF Sg Acc => nyan + "ÑŽ" ; SF Sg Inst => nyan + "ей" ; @@ -979,56 +950,58 @@ oper yaEndAnimateDecl: Str -> SubstFormDecl = \nyan -> SF Pl Gen => nyan + "ей" ; SF Pl Inst => nyan + "Ñми" ; SF Pl Prepos => nyan + "ÑÑ…" ; - SF Pl Dat => nyan + "Ñм" ; SF Pl Acc => nyan + "ей" + SF Pl Dat => nyan + "Ñм" ; + SF Pl Acc => nyan + "ей" } } ; ---oper l_yaEndInAnimateDecl: Str -> SubstFormDecl = \kap -> ---{s = table { --- SF Sg Nom => kap + "лÑ" ; -- SF Sg Gen => kap + "ли" ; --- SF Sg Dat => kap + "ле" ; --- SF Sg Acc => kap + "лю" ; --- SF Sg Inst => kap + "лей" ; --- SF Sg Prepos => kap + "ле" ; --- SF Pl Nom => kap + "ли" ; --- SF Pl Gen => kap + "ель" ; --- SF Pl Inst => kap + "лÑми" ; --- SF Pl Prepos => kap + "лÑÑ…" ; --- SF Pl Dat => kap + "лÑм" ; -- SF Pl Acc => kap + "ли" --- } --- } ; --- ---oper oEnd_Decl: Str -> CommNoun = \bolshinstv -> ---{ s = table { --- SF Sg Nom => bolshinstv+"о" ; --- SF Sg Gen => bolshinstv+"а" ; --- SF Sg Dat => bolshinstv+"у" ; --- SF Sg Acc => bolshinstv+"о" ; --- SF Sg Inst => bolshinstv+"ом" ; --- SF Sg Prepos => bolshinstv+"е" ; --- SF Pl Nom => bolshinstv+"а" ; --- SF Pl Gen => bolshinstv ; --- SF Pl Dat => bolshinstv+"ам" ; --- SF Pl Acc => bolshinstv+ "а" ; --- SF Pl Inst => bolshinstv+"ами" ; --- SF Pl Prepos => bolshinstv+"ах" --- } ; --- g = Neut ; anim = Inanimate ---} ; +oper l_yaEndInAnimateDecl: Str -> SubstFormDecl = \kap -> +{s = table { + SF Sg Nom => kap + "лÑ" ; + SF Sg Gen => kap + "ли" ; + SF Sg Dat => kap + "ле" ; + SF Sg Acc => kap + "лю" ; + SF Sg Inst => kap + "лей" ; + SF Sg Prepos => kap + "ле" ; + SF Pl Nom => kap + "ли" ; + SF Pl Gen => kap + "ель" ; + SF Pl Inst => kap + "лÑми" ; + SF Pl Prepos => kap + "лÑÑ…" ; + SF Pl Dat => kap + "лÑм" ; + SF Pl Acc => kap + "ли" + } + } ; + +oper oEnd_Decl: Str -> CommNoun = \bolshinstv -> +{ s = table { + SF Sg Nom => bolshinstv+"о" ; + SF Sg Gen => bolshinstv+"а" ; + SF Sg Dat => bolshinstv+"у" ; + SF Sg Acc => bolshinstv+"о" ; + SF Sg Inst => bolshinstv+"ом" ; + SF Sg Prepos => bolshinstv+"е" ; + SF Pl Nom => bolshinstv+"а" ; + SF Pl Gen => bolshinstv ; + SF Pl Dat => bolshinstv+"ам" ; + SF Pl Acc => bolshinstv+ "а" ; + SF Pl Inst => bolshinstv+"ами" ; + SF Pl Prepos => bolshinstv+"ах" + } ; + g = Neut ; anim = Inanimate +} ; oper kg_oEnd_SgDecl: Str -> CommNoun = \mnog -> { s = table { SF _ Nom => mnog+"о" ; SF _ Gen => mnog +"их"; - SF _ Dat => mnog+"им" ; + SF _ Dat => mnog+"им" ; SF _ Acc => mnog+"о" ; SF _ Inst => mnog+"ими" ; SF _ Prepos => mnog+"их" } ; g = Neut ; anim = Inanimate } ; - oper oEnd_PlDecl: Str -> CommNoun = \menshinstv -> - { s = table { +{ s = table { SF _ Nom => menshinstv+"а" ; SF _ Gen => menshinstv; SF _ Dat => menshinstv+"ам" ; @@ -1037,10 +1010,9 @@ oper oEnd_PlDecl: Str -> CommNoun = \menshinstv -> SF _ Prepos => menshinstv+"вах" } ; g = Neut ; anim = Inanimate -} ; - +} ; oper oEnd_SgDecl: Str -> CommNoun = \bolshinstv -> - {s = table { +{ s = table { SF _ Nom => bolshinstv+"о" ; SF _ Gen => bolshinstv+"а" ; SF _ Dat => bolshinstv+"у" ; @@ -1058,88 +1030,84 @@ oper oEnd_SgDecl: Str -> CommNoun = \bolshinstv -> oper eEnd_Decl: Str -> CommNoun = \vs -> { s = table { - SF Sg Nom => vs+"е" ; + SF Sg Nom => vs+"е" ; SF Sg Gen => vs+"ех" ; SF Sg Dat => vs+"ем" ; SF Sg Acc => vs+"ех" ; SF Sg Inst => vs+"еми" ; SF Sg Prepos => vs+"ех" ; SF Pl Nom => vs+"е" ; - SF Pl Gen => vs +"ех"; + SF Pl Gen => vs +"ех"; SF Pl Dat => vs+"ем" ; SF Pl Acc => vs+ "ех" ; - SF Pl Inst => vs+"еми" ; + SF Pl Inst => vs+"еми" ; SF Pl Prepos => vs+"ех" } ; g = Neut ; anim = Inanimate } ; ---mkAdjCommNounMascInanim: Adjective -> CommNoun = ---\a -> ---{ s = table { --- SF Sg Nom => a.s ! AF Nom Inanimate (ASg Masc) ; --- SF Sg Gen => a.s ! AF Gen Inanimate (ASg Masc) ; --- SF Sg Dat => a.s ! AF Dat Inanimate (ASg Masc) ; --- SF Sg Acc => a.s ! AF Acc Inanimate (ASg Masc) ; --- SF Sg Inst => a.s ! AF Inst Inanimate (ASg Masc) ; --- SF Sg Prepos => a.s ! AF Prepos Inanimate (ASg Masc) ; --- SF Pl Nom => a.s ! AF Nom Inanimate APl ; --- SF Pl Gen => a.s ! AF Gen Inanimate APl; --- SF Pl Dat => a.s ! AF Dat Inanimate APl ; --- SF Pl Acc => a.s ! AF Acc Inanimate APl ; --- SF Pl Inst => a.s ! AF Inst Inanimate APl ; --- SF Pl Prepos => a.s ! AF Prepos Inanimate APl --- }; --- g = Masc ; --- anim = Inanimate ---}; -----2 Adjectives --- ----- Type Adjective only has positive degree while AdjDegr type ----- includes also comparative and superlative forms. ----- The later entries can be converted into the former using ----- "extAdjective" operation defined in the syntax module ----- and vice verca using "mkAdjDeg" operation. --- ---oper --- adjInvar: Str -> Adjective = \s -> { s = \\af => s }; --- +mkAdjCommNounMascInanim: Adjective -> CommNoun = +\a -> +{ s = table { + SF Sg Nom => a.s ! AF Nom Inanimate (ASg Masc) ; + SF Sg Gen => a.s ! AF Gen Inanimate (ASg Masc) ; + SF Sg Dat => a.s ! AF Dat Inanimate (ASg Masc) ; + SF Sg Acc => a.s ! AF Acc Inanimate (ASg Masc) ; + SF Sg Inst => a.s ! AF Inst Inanimate (ASg Masc) ; + SF Sg Prepos => a.s ! AF Prepos Inanimate (ASg Masc) ; + SF Pl Nom => a.s ! AF Nom Inanimate APl ; + SF Pl Gen => a.s ! AF Gen Inanimate APl; + SF Pl Dat => a.s ! AF Dat Inanimate APl ; + SF Pl Acc => a.s ! AF Acc Inanimate APl ; + SF Pl Inst => a.s ! AF Inst Inanimate APl ; + SF Pl Prepos => a.s ! AF Prepos Inanimate APl + }; + g = Masc ; + anim = Inanimate +}; +--2 Adjectives + +-- Type Adjective only has positive degree while AdjDegr type +-- includes also comparative and superlative forms. +-- The later entries can be converted into the former using +-- "extAdjective" operation defined in the syntax module +-- and vice verca using "mkAdjDeg" operation. + +oper + adjInvar: Str -> Adjective = \s -> { s = \\af => s }; + kazhdujDet: Adjective = uy_j_EndDecl "кажд" ; samuj: Adjective = uy_j_EndDecl "Ñам" ; --- lubojDet: Adjective = uy_oj_EndDecl "люб" ; --- drugojDet: Adjective = uy_oj_EndDecl "друг" ; --- glaznoj: Adjective = uy_oj_EndDecl "глазн" ; + lubojDet: Adjective = uy_oj_EndDecl "люб" ; + drugojDet: Adjective = uy_oj_EndDecl "друг" ; + glaznoj: Adjective = uy_oj_EndDecl "глазн" ; kotorujDet: Adjective = uy_j_EndDecl "котор"; nekotorujDet: Adjective = uy_j_EndDecl "некотор"; takoj: Adjective = i_oj_EndDecl "так" []; --- kakojNibudDet: Adjective = i_oj_EndDecl "как" "-нибудь"; --- kakojDet: Adjective = i_oj_EndDecl "как" []; --- nikakojDet: Adjective = i_oj_EndDecl "никак" []; + kakojNibudDet: Adjective = i_oj_EndDecl "как" "-нибудь"; + kakojDet: Adjective = i_oj_EndDecl "как" []; + nikakojDet: Adjective = i_oj_EndDecl "никак" []; bolshinstvoSgDet: Adjective = extAdjFromSubst (oEnd_SgDecl "большинÑтв"); mnogoSgDet: Adjective = extAdjFromSubst (kg_oEnd_SgDecl "мног"); skolkoSgDet: Adjective = extAdjFromSubst (kg_oEnd_SgDecl "Ñкольк"); - bolshinstvoPlDet: Adjective = extAdjFromSubst (oEnd_PlDecl "большинÑтв"); - + bolshinstvoPlDet: Adjective = extAdjFromSubst (oEnd_PlDecl "большинÑтв"); vseDetPl: Adjective = extAdjFromSubst (eEnd_Decl "вÑ") ; extAdjFromSubst: CommNoun -> Adjective = \ vse -> {s = \\af => vse.s ! SF (numAF af) (caseAF af) } ; - -oper - AdjDegr : Type = {s : Degree => AdjForm => Str} ; - + oper mkAdjDeg: Adjective -> Str -> AdjDegr = \adj, s -> { s = table { - Posit => adj.s ; - Compar => \\af => s ; - Superl => \\af => samuj.s !af ++ adj.s ! af + Pos => adj.s ; + Comp => \\af => s ; + Super => \\af => samuj.s !af ++ adj.s ! af } }; ---oper uzhasnuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "ужаÑн") "ужаÑнее"; ---oper schastlivyuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "ÑчаÑтлив") "ÑчаÑтливее"; ---oper deshevuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "дешев") "дешевле"; ---oper staruj: AdjDegr = mkAdjDeg (uy_j_EndDecl "Ñтар") "Ñтарше"; +oper uzhasnuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "ужаÑн") "ужаÑнее"; +oper schastlivyuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "ÑчаÑтлив") "ÑчаÑтливее"; +oper deshevuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "дешев") "дешевле"; +oper staruj: AdjDegr = mkAdjDeg (uy_j_EndDecl "Ñтар") "Ñтарше"; oper totDet: Adjective = {s = table { AF Nom _ (ASg Masc) => "тот"; AF Nom _ (ASg Fem) => "та"; @@ -1159,7 +1127,7 @@ oper totDet: Adjective = {s = table { AF Inst _ (ASg Fem) => "той"; AF Inst _ (ASg Neut) => "тем"; AF Inst _ APl => "теми"; - AF Dat _ (ASg Masc) => "тому"; + AF Dat _ (ASg Masc) => "тому"; AF Dat _ (ASg Fem) => "той"; AF Dat _ (ASg Neut) => "тому"; AF Dat _ APl => "тем"; @@ -1170,36 +1138,6 @@ oper totDet: Adjective = {s = table { AdvF => "то" } } ; -oper odinDet: Adjective = {s = table { - AF Nom _ (ASg Masc) => "один"; - AF Nom _ (ASg Fem) => "одна"; - AF Nom _ (ASg Neut) => "одно"; - AF Nom _ APl => "одни"; - AF Acc Inanimate (ASg Masc) => "один"; - AF Acc Animate (ASg Masc) => "одного"; - AF Acc _ (ASg Fem) => "одну"; - AF Acc _ (ASg Neut) => "одно"; - AF Acc Inanimate APl => "одни"; - AF Acc Animate APl => "одних"; - AF Gen _ (ASg Masc) => "одного"; - AF Gen _ (ASg Fem) => "одной"; - AF Gen _ (ASg Neut) => "одного"; - AF Gen _ APl => "одних"; - AF Inst _ (ASg Masc) => "одним"; - AF Inst _ (ASg Fem) => "одной"; - AF Inst _ (ASg Neut) => "одним"; - AF Inst _ APl => "одними"; - AF Dat _ (ASg Masc) => "одному"; - AF Dat _ (ASg Fem) => "одной"; - AF Dat _ (ASg Neut) => "одному"; - AF Dat _ APl => "одним"; - AF Prepos _ (ASg Masc) => "одном"; - AF Prepos _ (ASg Fem) => "одной"; - AF Prepos _ (ASg Neut) => "одном"; - AF Prepos _ APl => "одних"; - AdvF => "одно" - } - } ; oper etotDet: Adjective = {s = table { AF Nom _ (ASg Masc) => "Ñтот"; AF Nom _ (ASg Fem) => "Ñта"; @@ -1215,7 +1153,7 @@ oper etotDet: Adjective = {s = table { AF Gen _ (ASg Fem) => "Ñтой"; AF Gen _ (ASg Neut) => "Ñтого"; AF Gen _ APl => "Ñтих"; - AF Inst _ (ASg Masc) => "Ñтим"; + AF Inst _ (ASg Masc) => "Ñтим"; AF Inst _ (ASg Fem) => "Ñтой"; AF Inst _ (ASg Neut) => "Ñтим"; AF Inst _ APl => "Ñтими"; @@ -1227,7 +1165,7 @@ oper etotDet: Adjective = {s = table { AF Prepos _ (ASg Fem) => "Ñтой"; AF Prepos _ (ASg Neut) => "Ñтом"; AF Prepos _ APl => "Ñтих"; - AdvF => "Ñто" + AdvF => "Ñто" } } ; oper vesDet: Adjective = {s = table { @@ -1257,113 +1195,82 @@ oper vesDet: Adjective = {s = table { AF Prepos _ (ASg Fem) => "вÑей"; AF Prepos _ (ASg Neut) => "вÑём"; AF Prepos _ APl => "вÑех" ; - AdvF => "полноÑтью" + AdvF => "полноÑтью" } } ; oper uy_j_EndDecl : Str -> Adjective = \s ->{s = table { - AF Nom _ (ASg Masc) => s+ "ый"; - AF Nom _ (ASg Fem) => s + "аÑ"; - AF Nom _ (ASg Neut) => s + "ое"; - AF Nom _ APl => s + "ые"; - AF Acc Inanimate (ASg Masc) => s + "ый"; - AF Acc Animate (ASg Masc) => s + "ого"; - AF Acc _ (ASg Fem) => s + "ую"; - AF Acc _ (ASg Neut) => s + "ое"; - AF Acc Inanimate APl => s + "ые"; - AF Acc Animate APl => s + "Ñ‹Ñ…"; - AF Gen _ (ASg Masc) => s + "ого"; - AF Gen _ (ASg Fem) => s + "ой"; - AF Gen _ (ASg Neut) => s + "ого"; - AF Gen _ APl => s + "Ñ‹Ñ…"; - AF Inst _ (ASg Masc) => s + "ым"; - AF Inst _ (ASg Fem) => s + "ой"; - AF Inst _ (ASg Neut) => s + "ым"; - AF Inst _ APl => s + "ыми"; - AF Dat _ (ASg Masc) => s + "ому"; - AF Dat _ (ASg Fem) => s + "ой"; - AF Dat _ (ASg Neut) => s + "ому"; - AF Dat _ APl => s + "ым"; - AF Prepos _ (ASg Masc) => s + "ом"; - AF Prepos _ (ASg Fem) => s + "ой"; - AF Prepos _ (ASg Neut) => s + "ом"; - AF Prepos _ APl => s + "Ñ‹Ñ…"; - AdvF => s +"о" + AF Nom _ (ASg Masc) => s+"ый"; + AF Nom _ (ASg Fem) => s+"аÑ"; + AF Nom _ (ASg Neut) => s+"ое"; + AF Nom _ APl => s+"ые"; + AF Acc Inanimate (ASg Masc) => s+"ый"; + AF Acc Animate (ASg Masc) => s+"ого"; + AF Acc _ (ASg Fem) => s+"ую"; + AF Acc _ (ASg Neut) => s+"ое"; + AF Acc Inanimate APl => s+"ые"; + AF Acc Animate APl => s+"Ñ‹Ñ…"; + AF Gen _ (ASg Masc) => s+"ого"; + AF Gen _ (ASg Fem) => s+"ой"; + AF Gen _ (ASg Neut) => s+"ого"; + AF Gen _ APl => s+"Ñ‹Ñ…"; + AF Inst _ (ASg Masc) => s+"ым"; + AF Inst _ (ASg Fem) => s+"ой"; + AF Inst _ (ASg Neut) => s+"ым"; + AF Inst _ APl => s+"ыми"; + AF Dat _ (ASg Masc) => s+"ому"; + AF Dat _ (ASg Fem) => s+"ой"; + AF Dat _ (ASg Neut) => s+"ому"; + AF Dat _ APl => s+"ым"; + AF Prepos _ (ASg Masc) => s+"ом"; + AF Prepos _ (ASg Fem) => s+"ой"; + AF Prepos _ (ASg Neut) => s+"ом"; + AF Prepos _ APl => s+"Ñ‹Ñ…"; + AdvF => "о" } } ; -oper ti_j_EndDecl : Str -> Adjective = \s ->{s = table { +oper shi_j_EndDecl : Str -> Adjective = \s ->{s = table { AF Nom _ (ASg Masc) => s+"ий"; - AF Nom _ (ASg Fem) => s+"ÑŒÑ"; - AF Nom _ (ASg Neut) => s+"ье"; - AF Nom _ APl => s+"ьи"; + AF Nom _ (ASg Fem) => s+"аÑ"; + AF Nom _ (ASg Neut) => s+"ое"; + AF Nom _ APl => s+"ие"; AF Acc Inanimate (ASg Masc) => s+"ий"; - AF Acc Animate (ASg Masc) => s+"ьего"; - AF Acc _ (ASg Fem) => s+"ью"; - AF Acc _ (ASg Neut) => s+"ье"; - AF Acc Inanimate APl => s+"ьи"; - AF Acc Animate APl => s+"ьих"; - AF Gen _ (ASg Masc) => s+"ьего"; - AF Gen _ (ASg Fem) => s+"ьей"; - AF Gen _ (ASg Neut) => s+"ьего"; - AF Gen _ APl => s+"ьих"; - AF Inst _ (ASg Masc) => s+"ьим"; - AF Inst _ (ASg Fem) => s+"ьей"; - AF Inst _ (ASg Neut) => s+"ьим"; - AF Inst _ APl => s+"ьими"; - AF Dat _ (ASg Masc) => s+"ьему"; - AF Dat _ (ASg Fem) => s+"ьей"; - AF Dat _ (ASg Neut) => s+"ьему"; - AF Dat _ APl => s+"ьим"; - AF Prepos _ (ASg Masc) => s+"ьем"; - AF Prepos _ (ASg Fem) => s+"ьей"; - AF Prepos _ (ASg Neut) => s+"ьем"; - AF Prepos _ APl => s+"ьих"; - AdvF => s + "ье" + AF Acc Animate (ASg Masc) => s+"его"; + AF Acc _ (ASg Fem) => s+"ую"; + AF Acc _ (ASg Neut) => s+"ое"; + AF Acc Inanimate APl => s+"ие"; + AF Acc Animate APl => s+"их"; + AF Gen _ (ASg Masc) => s+"его"; + AF Gen _ (ASg Fem) => s+"ей"; + AF Gen _ (ASg Neut) => s+"его"; + AF Gen _ APl => s+"их"; + AF Inst _ (ASg Masc) => s+"им"; + AF Inst _ (ASg Fem) => s+"ей"; + AF Inst _ (ASg Neut) => s+"им"; + AF Inst _ APl => s+"ими"; + AF Dat _ (ASg Masc) => s+"ему"; + AF Dat _ (ASg Fem) => s+"ей"; + AF Dat _ (ASg Neut) => s+"ему"; + AF Dat _ APl => s+"им"; + AF Prepos _ (ASg Masc) => s+"ем"; + AF Prepos _ (ASg Fem) => s+"ей"; + AF Prepos _ (ASg Neut) => s+"ем"; + AF Prepos _ APl => s+"их"; + AdvF => "о" } } ; ---oper shi_j_EndDecl : Str -> Adjective = \s ->{s = table { --- AF Nom _ (ASg Masc) => s+"ий"; --- AF Nom _ (ASg Fem) => s+"аÑ"; --- AF Nom _ (ASg Neut) => s+"ое"; --- AF Nom _ APl => s+"ие"; --- AF Acc Inanimate (ASg Masc) => s+"ий"; --- AF Acc Animate (ASg Masc) => s+"его"; --- AF Acc _ (ASg Fem) => s+"ую"; --- AF Acc _ (ASg Neut) => s+"ое"; --- AF Acc Inanimate APl => s+"ие"; --- AF Acc Animate APl => s+"их"; --- AF Gen _ (ASg Masc) => s+"его"; --- AF Gen _ (ASg Fem) => s+"ей"; --- AF Gen _ (ASg Neut) => s+"его"; --- AF Gen _ APl => s+"их"; --- AF Inst _ (ASg Masc) => s+"им"; --- AF Inst _ (ASg Fem) => s+"ей"; --- AF Inst _ (ASg Neut) => s+"им"; --- AF Inst _ APl => s+"ими"; --- AF Dat _ (ASg Masc) => s+"ему"; --- AF Dat _ (ASg Fem) => s+"ей"; --- AF Dat _ (ASg Neut) => s+"ему"; --- AF Dat _ APl => s+"им"; --- AF Prepos _ (ASg Masc) => s+"ем"; --- AF Prepos _ (ASg Fem) => s+"ей"; --- AF Prepos _ (ASg Neut) => s+"ем"; --- AF Prepos _ APl => s+"их"; --- AdvF => s + "о" --- } --- } ; --- ---oper indijskij: Adjective = ij_EndK_G_KH_Decl "индийÑк" ; ---oper francuzskij: Adjective = ij_EndK_G_KH_Decl "французÑк" ; ---oper anglijskij: Adjective = ij_EndK_G_KH_Decl "английÑк" ; ---oper datskij: Adjective = ij_EndK_G_KH_Decl "датÑк" ; ---oper russkij: Adjective = ij_EndK_G_KH_Decl "руÑÑк" ; ---oper italyanskij: Adjective = ij_EndK_G_KH_Decl "итальÑнÑк" ; ---oper yaponskij: Adjective = ij_EndK_G_KH_Decl "ÑпонÑк" ; ---oper malenkij: AdjDegr = mkAdjDeg (ij_EndK_G_KH_Decl "маленьк") "меньше" ; ---oper vusokij: AdjDegr = mkAdjDeg (ij_EndK_G_KH_Decl "выÑок") "выше"; +oper indijskij: Adjective = ij_EndK_G_KH_Decl "индийÑк" ; +oper francuzskij: Adjective = ij_EndK_G_KH_Decl "французÑк" ; +oper anglijskij: Adjective = ij_EndK_G_KH_Decl "английÑк" ; +oper datskij: Adjective = ij_EndK_G_KH_Decl "датÑк" ; +oper russkij: Adjective = ij_EndK_G_KH_Decl "руÑÑк" ; +oper italyanskij: Adjective = ij_EndK_G_KH_Decl "итальÑнÑк" ; +oper yaponskij: Adjective = ij_EndK_G_KH_Decl "ÑпонÑк" ; +oper malenkij: AdjDegr = mkAdjDeg (ij_EndK_G_KH_Decl "маленьк") "меньше" ; +oper vusokij: AdjDegr = mkAdjDeg (ij_EndK_G_KH_Decl "выÑок") "выше"; oper ij_EndK_G_KH_Decl : Str -> Adjective = \s ->{s = table { AF Nom _ (ASg Masc) => s+"ий"; - AF Nom _ (ASg Fem) => s+"аÑ"; + AF Nom _ (ASg Fem) => s+"аÑ"; AF Nom _ (ASg Neut) => s+"ое"; AF Nom _ APl => s+"ие"; AF Acc Animate (ASg Masc) => s+"ого"; @@ -1388,12 +1295,12 @@ oper ij_EndK_G_KH_Decl : Str -> Adjective = \s ->{s = table { AF Prepos _ (ASg Fem) => s+"ой"; AF Prepos _ (ASg Neut) => s+"ом"; AF Prepos _ APl => s+"их"; - AdvF => s + "о" + AdvF => "о" } } ; oper shij_End_Decl : Str -> Adjective = \s ->{s = table { AF Nom _ (ASg Masc) => s+"ий"; - AF Nom _ (ASg Fem) => s+"аÑ"; + AF Nom _ (ASg Fem) => s+"аÑ"; AF Nom _ (ASg Neut) => s+"ое"; AF Nom _ APl => s+"ие"; AF Acc Animate (ASg Masc) => s+"его"; @@ -1418,19 +1325,19 @@ oper shij_End_Decl : Str -> Adjective = \s ->{s = table { AF Prepos _ (ASg Fem) => s+"ей"; AF Prepos _ (ASg Neut) => s+"ем"; AF Prepos _ APl => s+"их"; - AdvF => s + "о" + AdvF => "о" } } ; ---oper bolshoj: AdjDegr = mkAdjDeg (i_oj_EndDecl "больш" []) "больше"; ---oper dorogoj: AdjDegr = mkAdjDeg (i_oj_EndDecl "дорог" []) "дороже"; +oper bolshoj: AdjDegr = mkAdjDeg (i_oj_EndDecl "больш" []) "больше"; +oper dorogoj: AdjDegr = mkAdjDeg (i_oj_EndDecl "дорог" []) "дороже"; oper i_oj_EndDecl : Str -> Str -> Adjective = \s, chastica ->{s = table { AF Nom _ (ASg Masc) => s+"ой" + chastica ; AF Nom _ (ASg Fem) => s+"аÑ"+ chastica ; AF Nom _ (ASg Neut) => s+"ое"+ chastica ; AF Nom _ APl => s+"ие"+ chastica ; AF Acc Animate (ASg Masc) => s+"ого"+ chastica ; - AF Acc Inanimate (ASg Masc) => s+"ой"+ chastica ; + AF Acc Inanimate (ASg Masc) => s+"ое"+ chastica ; AF Acc _ (ASg Fem) => s+"ую"+ chastica ; AF Acc _ (ASg Neut) => s+"ое"+ chastica ; AF Acc Animate APl => s+"их"+ chastica ; @@ -1439,11 +1346,11 @@ oper i_oj_EndDecl : Str -> Str -> Adjective = \s, chastica ->{s = table { AF Gen _ (ASg Fem) => s+"ой"+ chastica ; AF Gen _ (ASg Neut) => s+"ого"+ chastica ; AF Gen _ APl => s+"их"+ chastica ; - AF Inst _ (ASg Masc) => s+"им"+ chastica ; - AF Inst _ (ASg Fem) => s+"ой"+ chastica ; + AF Inst _ (ASg Masc) => s+"им"+ chastica ; + AF Inst _ (ASg Fem) => s+"ой"+ chastica ; AF Inst _ (ASg Neut) => s+"им"+ chastica ; AF Inst _ APl => s+"ими"+ chastica ; - AF Dat _ (ASg Masc) => s+"ому"+ chastica ; + AF Dat _ (ASg Masc) => s+"ому"+ chastica ; AF Dat _ (ASg Fem) => s+"ой"+ chastica ; AF Dat _ (ASg Neut) => s+"ому"+ chastica ; AF Dat _ APl => s+"им"+ chastica ; @@ -1451,11 +1358,10 @@ oper i_oj_EndDecl : Str -> Str -> Adjective = \s, chastica ->{s = table { AF Prepos _ (ASg Fem) => s+"ой"+ chastica ; AF Prepos _ (ASg Neut) => s+"ом"+ chastica ; AF Prepos _ APl => s+"их" + chastica; - AdvF => s + "о" + AdvF => "о" } } ; ---oper molodoj: AdjDegr = mkAdjDeg (uy_oj_EndDecl "молод") "моложе"; - +oper molodoj: AdjDegr = mkAdjDeg (uy_oj_EndDecl "молод") "моложе"; oper uy_oj_EndDecl : Str -> Adjective = \s ->{s = table { AF Nom _ (ASg Masc) => s+"ой"; AF Nom _ (ASg Fem) => s+"аÑ"; @@ -1463,7 +1369,7 @@ oper uy_oj_EndDecl : Str -> Adjective = \s ->{s = table { AF Nom _ APl => s+"ые"; AF Acc Animate (ASg Masc) => s+"ого"; AF Acc Inanimate (ASg Masc) => s+"ой"; - AF Acc _ (ASg Fem) => s+"ую"; + AF Acc _ (ASg Fem) => s+"ую"; AF Acc _ (ASg Neut) => s+"ое"; AF Acc Animate APl => s+"Ñ‹Ñ…"; AF Acc Inanimate APl => s+"ые"; @@ -1483,89 +1389,79 @@ oper uy_oj_EndDecl : Str -> Adjective = \s ->{s = table { AF Prepos _ (ASg Fem) => s+"ой"; AF Prepos _ (ASg Neut) => s+"ом"; AF Prepos _ APl => s+"Ñ‹Ñ…"; - AdvF => s + "о" + AdvF => "о" } } ; ---oper prostuzhen: Adjective = shortDecl1 "проÑтужен" ; ---oper beremenen: Adjective = shortDecl "беремен" ; ---oper need: Adjective = shortDecl "нуж" ; ---oper shortDecl1 : Str -> Adjective = \s ->{s = table { --- AF _ _ (ASg Masc) => s; --- AF _ _ (ASg Fem) => s+"а"; --- AF _ _ (ASg Neut) => s+"о"; --- AF _ _ APl => s+"Ñ‹" ; --- AdvF => s + "о" --- } --- } ; ---oper shortDecl : Str -> Adjective = \s ->{s = table { --- AF _ _ (ASg Masc) => s +"ен"; --- AF _ _ (ASg Fem) => s+"на"; --- AF _ _ (ASg Neut) => s+"но"; --- AF _ _ APl => s+"ны" ; --- AdvF => s + "о" --- } -- } ; --- ----- 2 Adverbs --- ---oper vsegda: Adverb = { s = "вÑегда" } ; ---oper chorosho: Adverb = { s = "хорошо" } ; --- ----- 2 Verbs --- ----- Dummy verbum "have" that corresponds to the phrases like ----- "I have a headache" in English. The corresponding sentence ----- in Russian doesn't contain a verb: --- ---oper have: Verbum = {s=\\ vf => "-" ; asp = Imperfective} ; --- ----- There are two common conjugations ----- (according to the number and the person of the subject) ----- patterns in the present tense in the indicative mood. --- +oper prostuzhen: Adjective = shortDecl1 "проÑтужен" ; +oper beremenen: Adjective = shortDecl "беремен" ; +oper need: Adjective = shortDecl "нуж" ; +oper shortDecl1 : Str -> Adjective = \s ->{s = table { + AF _ _ (ASg Masc) => s; + AF _ _ (ASg Fem) => s+"а"; + AF _ _ (ASg Neut) => s+"о"; + AF _ _ APl => s+"Ñ‹" ; + AdvF => "о" + } + } ; +oper shortDecl : Str -> Adjective = \s ->{s = table { + AF _ _ (ASg Masc) => s +"ен"; + AF _ _ (ASg Fem) => s+"на"; + AF _ _ (ASg Neut) => s+"но"; + AF _ _ APl => s+"ны" ; + AdvF => "о" + } } ; + +-- 2 Adverbs + +oper vsegda: Adverb = { s = "вÑегда" } ; +oper chorosho: Adverb = { s = "хорошо" } ; + +-- 2 Verbs + +-- Dummy verbum "have" that corresponds to the phrases like +-- "I have a headache" in English. The corresponding sentence +-- in Russian doesn't contain a verb: + +oper have: Verbum = {s=\\ vf => "-" ; asp = Imperfective} ; + +-- There are two common conjugations +-- (according to the number and the person of the subject) +-- patterns in the present tense in the indicative mood. + param Conjugation = First | FirstE | Second | Mixed | Dolzhen; --- --3 First conjugation (in Present) verbs : -oper verbIdti : Verbum = verbDecl Imperfective First "ид" "у" "шел" "иди" "идти"; ---oper verbGulyat : Verbum = verbDecl Imperfective First "гулÑ" "ÑŽ" "гулÑл" "гулÑй" "гулÑÑ‚ÑŒ"; ---oper verbVkluchat : Verbum = verbDecl Imperfective First "включа" "ÑŽ" "включал" "включай" "включать"; +oper verbGulyat : Verbum = verbDecl Imperfective First "гулÑ" "ÑŽ" "гулÑл" "гулÑй" "гулÑÑ‚ÑŒ"; +oper verbVkluchat : Verbum = verbDecl Imperfective First "включа" "ÑŽ" "включал" "включай" "включать"; oper verbSuchestvovat : Verbum = verbDecl Imperfective First "ÑущеÑтву" "ÑŽ" "ÑущеÑтвовал" "ÑущеÑтвуй" "ÑущеÑтвовать"; ---oper verbVukluchat : Verbum = verbDecl Imperfective First "выключа" "ÑŽ" "выключал" "выключай" "выключать"; ---oper verbZhdat : Verbum = verbDecl Imperfective First "жд" "у" "ждал" "жди" "ждать" ; ---oper verbBegat : Verbum = verbDecl Imperfective First "бега" "ÑŽ" "бегал" "бегай" "бегать"; ---oper verbPrinimat : Verbum = verbDecl Imperfective First "принима" "ÑŽ" "принимал" "принимай" "принимать"; ---oper verbDokazuvat : Verbum = verbDecl Imperfective First "доказыва" "ÑŽ" "доказывал" "доказывай" "доказывать"; ---oper verbPredpochitat : Verbum = verbDecl Imperfective First "предпочита" "ÑŽ" "предпочитал" "предпочитай" "предпочитать"; ---oper verbOtpravlyat : Verbum = verbDecl Imperfective First "отправлÑ" "ÑŽ" "отправлÑл" "отправлÑй" "отправлÑÑ‚ÑŒ"; ---oper verbSlomat : Verbum = verbDecl Perfective First "Ñлома" "ÑŽ" "Ñломал" "Ñломай" "Ñломать"; - - ----- Verbs with vowel "Ñ‘": "даёшь" (give), "пьёшь" (drink) : ---oper verbDavat : Verbum = verbDecl Imperfective FirstE "да" "ÑŽ" "давал" "давай" "давать"; ---oper verbPit : Verbum = verbDecl Imperfective FirstE "пь" "ÑŽ" "пил" "пей" "пить"; --- - - +oper verbVukluchat : Verbum = verbDecl Imperfective First "выключа" "ÑŽ" "выключал" "выключай" "выключать"; +oper verbZhdat : Verbum = verbDecl Imperfective First "жд" "у" "ждал" "жди" "ждать" ; +oper verbBegat : Verbum = verbDecl Imperfective First "бега" "ÑŽ" "бегал" "бегай" "бегать"; +oper verbPrinimat : Verbum = verbDecl Imperfective First "принима" "ÑŽ" "принимал" "принимай" "принимать"; +oper verbDokazuvat : Verbum = verbDecl Imperfective First "доказыва" "ÑŽ" "доказывал" "доказывай" "доказывать"; +oper verbPredpochitat : Verbum = verbDecl Imperfective First "предпочита" "ÑŽ" "предпочитал" "предпочитай" "предпочитать"; +oper verbOtpravlyat : Verbum = verbDecl Imperfective First "отправлÑ" "ÑŽ" "отправлÑл" "отправлÑй" "отправлÑÑ‚ÑŒ"; +oper verbSlomat : Verbum = verbDecl Perfective First "Ñлома" "ÑŽ" "Ñломал" "Ñломай" "Ñломать"; oper verbByut : Verbum = verbDecl Perfective First "буд" "у" "был" "будь" "быть"; - oper verbMoch : Verbum = verbDeclMoch Imperfective First "мог" "у" "мог" "моги" "мочь" "мож"; -----3 Second conjugation (in Present) verbs : --- ---oper verbLubit : Verbum = verbDecl Imperfective Second "люб" "лю" "любил" "люби" "любить"; ---oper verbGovorit : Verbum = verbDecl Imperfective Second "говор" "ÑŽ" "говорил" "говори" "говорить"; --- ---oper verbBolet_2 : Verbum = verbDecl Imperfective Second "бол" "ÑŽ" "болел" "боли" "болеть"; ---oper verbPoranit : Verbum = verbDecl Perfective Second "поран" "ÑŽ" "поранил" "порань" "поранить"; --- --- Irregular Mixed: +-- Verbs with vowel "Ñ‘": "даёшь" (give), "пьёшь" (drink) : +oper verbDavat : Verbum = verbDecl Imperfective FirstE "да" "ÑŽ" "давал" "давай" "давать"; +oper verbPit : Verbum = verbDecl Imperfective FirstE "пь" "ÑŽ" "пил" "пей" "пить"; + +--3 Second conjugation (in Present) verbs : + +oper verbLubit : Verbum = verbDecl Imperfective Second "люб" "лю" "любил" "люби" "любить"; +oper verbGovorit : Verbum = verbDecl Imperfective Second "говор" "ÑŽ" "говорил" "говори" "говорить"; + oper verbBolet_2 : Verbum = verbDecl Imperfective Second "бол" "ÑŽ" "болел" "боли" "болеть"; +oper verbPoranit : Verbum = verbDecl Perfective Second "поран" "ÑŽ" "поранил" "порань" "поранить"; + -- Irregular Mixed: oper verbKhotet : Verbum = verbDecl Imperfective Mixed "хоч" "у" "хотел" "хоти" "хотеть"; -- Irregular oper verbDolzhen : Verbum = verbDecl Imperfective Dolzhen "долж" "ен" "долж" ["будь должен"] ["быть должным"] ; - -- To reduces the redundancies in the definitions -- we introduce some intermediate types, -- so that the full type can be described as a combination @@ -1575,8 +1471,6 @@ oper verbDolzhen : Verbum = verbDecl Imperfective Dolzhen "долж" "ен" "д oper AspectVoice: Type = { s : VerbConj => Str ; asp: Aspect } ; -idetDozhd: Verbum -> Verbum = \idet -> {s = \\vf=>idet.s!vf ++ "дождь"; asp = Imperfective}; - -- "PresentVerb" takes care of the present tense conjugation. param PresentVF = PRF GenNum Person; @@ -1604,7 +1498,7 @@ oper presentConjMixed: Str -> Str -> PresentVerb = \del, sgP1End -> PRF APl P3 => del+ "ÑÑ‚" }; oper presentConj2: Str -> Str -> PresentVerb = \del, sgP1End -> -table { + table { PRF (ASg _) P1 => del+ sgP1End ; PRF (ASg _) P2 => del+ "ишь" ; PRF (ASg _) P3 => del+ "ит" ; @@ -1618,7 +1512,7 @@ oper presentConj1E: Str -> Str -> PresentVerb = \del, sgP1End -> PRF (ASg _) P1 => del+ sgP1End ; PRF (ASg _) P2 => del+ "ёшь" ; PRF (ASg _) P3 => del+ "Ñ‘Ñ‚" ; - PRF APl P1 => del+ "ём" ; + PRF APl P1 => del+ "ём" ; PRF APl P2 => del+ "ёте" ; PRF APl P3 => del+ sgP1End + "Ñ‚" }; @@ -1627,16 +1521,17 @@ oper presentConj1: Str -> Str -> PresentVerb = \del, sgP1End -> PRF (ASg _) P1 => del+ sgP1End ; PRF (ASg _) P2 => del+ "ешь" ; PRF (ASg _) P3 => del+ "ет" ; - PRF APl P1 => del+ "ем" ; + PRF APl P1 => del+ "ем" ; PRF APl P2 => del+ "ете" ; PRF APl P3 => del+ sgP1End + "Ñ‚" }; + oper presentConj1Moch: Str -> Str -> Str -> PresentVerb = \del, sgP1End, altRoot -> - table { + table { PRF (ASg _) P1 => del + sgP1End ; PRF (ASg _) P2 => altRoot + "ешь" ; PRF (ASg _) P3 => altRoot + "ет" ; - PRF APl P1 => altRoot + "ем" ; + PRF APl P1 => altRoot + "ем" ; PRF APl P2 => altRoot + "ете" ; PRF APl P3 => del+ sgP1End + "Ñ‚" }; @@ -1655,7 +1550,7 @@ oper pastConj: Str -> PastVerb = \del -> oper pastConjDolzhen: Str -> PastVerb = \del -> table { - PSF (ASg Masc) => ["был "] + del + "ен" ; + PSF (ASg Masc) => ["был "] + del + "ен" ; PSF (ASg Fem) => ["была "] + del + "на" ; PSF (ASg Neut) => ["было "] + del + "но" ; PSF APl => ["были "] + del + "ны" @@ -1663,7 +1558,7 @@ oper pastConjDolzhen: Str -> PastVerb = \del -> -- "verbDecl" sorts out verbs according to the aspect and voice parameters. -- It produces the full conjugation table for a verb entry - + oper verbDecl: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> Verbum = \a, c, del, sgP1End, sgMascPast, imperSgP2, inf -> case a of { Perfective => case c of { @@ -1686,7 +1581,7 @@ oper verbDecl: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> Verbum -- "могу - можешь" oper verbDeclMoch: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> Str -> Verbum = \a, c, del, sgP1End, sgMascPast, imperSgP2, inf, altRoot -> case a of - { Perfective => mkVerb (perfectiveActivePattern inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConj sgMascPast)) (pastConj sgMascPast); +{ Perfective => mkVerb (perfectiveActivePattern inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConj sgMascPast)) (pastConj sgMascPast); Imperfective => mkVerb (imperfectiveActivePattern inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConj sgMascPast)) (pastConj sgMascPast) }; @@ -1696,37 +1591,38 @@ oper verbDeclMoch: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> St -- Passive is expressed in Russian by so called reflexive verbs, -- which are formed from the active form by suffixation. -oper mkVerb : AspectVoice -> PastVerb -> Verbum = \av1, pv -> { s = table { + oper mkVerb : AspectVoice -> PastVerb -> Verbum = \av1, pv -> + { s = table { VFORM Act vf => av1.s !vf; VFORM Pass vf => (mkPassive av1 pv ).s ! vf } ; asp = av1.asp }; --- vowels : Strs = strs { --- "а" ; "е" ; "Ñ‘" ; "и" ; "о" ; "у" ; --- "Ñ‹" ; "Ñ" ; "ÑŽ" ; "Ñ" --- } ; --- + vowels : Strs = strs { + "а" ; "е" ; "Ñ‘" ; "и" ; "о" ; "у" ; + "Ñ‹" ; "Ñ" ; "ÑŽ" ; "Ñ" + } ; + oper mkPassive: AspectVoice -> PastVerb -> AspectVoice = \av, pv -> { s = table { VINF => av.s ! VINF + "ÑÑ"; VIMP Sg P1 => av.s ! (VIMP Sg P1) +"ÑÑŒ" ; - VIMP Pl P1 => av.s ! (VIMP Pl P1) +"ÑÑ"; + VIMP Pl P1 => av.s ! (VIMP Pl P1) +"ÑÑ"; VIMP Sg P2 => av.s ! (VIMP Sg P2 ) +"ÑÑŒ"; VIMP Pl P2 => av.s! (VIMP Pl P2) +"ÑÑŒ"; - VIMP Sg P3 => av.s ! (VIMP Sg P3) +"ÑÑ"; - VIMP Pl P3 => av.s ! (VIMP Pl P3) +"ÑÑ"; - VSUB (ASg Masc) => pv ! (PSF (ASg Masc)) + "ÑÑ"++"бы"; - VSUB (ASg Fem) => pv ! (PSF (ASg Fem)) + "ÑÑŒ"++"бы"; - VSUB (ASg Neut) => pv ! (PSF (ASg Neut)) + "ÑÑŒ"++"бы"; - VSUB APl => pv ! (PSF APl) + "ÑÑŒ"+"бы" ; + VIMP Sg P3 => av.s ! (VIMP Sg P3) +"ÑÑ"; + VIMP Pl P3 => av.s ! (VIMP Pl P3) +"ÑÑ"; + VSUB (ASg Masc) => pv ! (PSF (ASg Masc)) + "ÑÑ"+[" бы"]; + VSUB (ASg Fem) => pv ! (PSF (ASg Fem)) + "ÑÑŒ"+[" бы"]; + VSUB (ASg Neut) => pv ! (PSF (ASg Neut)) + "ÑÑŒ"+[" бы"]; + VSUB APl => pv ! (PSF APl) + "ÑÑŒ"+[" бы"] ; VIND (ASg _) (VPresent P1) => -- case av.asp of { Imperfective => av.s ! (VIND (ASg Masc) (VPresent P1)) + "ÑÑŒ" ; -- Perfective = > nonExist -- } ; - VIND (ASg _) (VPresent P2) => av.s ! (VIND (ASg Masc) (VPresent P2))+ "ÑÑ" ; + VIND (ASg _) (VPresent P2) => av.s ! (VIND (ASg Masc) (VPresent P2))+ "ÑÑ" ; VIND (ASg _) (VPresent P3) => av.s ! (VIND (ASg Masc) (VPresent P3))+ "ÑÑ" ; VIND APl (VPresent P1) => av.s !( VIND APl (VPresent P1)) + "ÑÑ" ; VIND APl (VPresent P2) => av.s !( VIND APl (VPresent P2)) + "ÑÑŒ" ; @@ -1734,7 +1630,7 @@ oper mkPassive: AspectVoice -> PastVerb -> AspectVoice = \av, pv -> VIND (ASg _) (VFuture P1) => av.s ! (VIND (ASg Masc) (VFuture P1)) + "ÑÑŒ"; VIND (ASg _) (VFuture P2) => av.s! (VIND (ASg Masc) (VFuture P2) )+ "ÑÑ"; VIND (ASg _) (VFuture P3) => av.s! (VIND (ASg Masc) (VFuture P3)) + "ÑÑ"; - VIND APl (VFuture P1) => av.s! (VIND APl (VFuture P1) )+ "ÑÑ"; + VIND APl (VFuture P1) => av.s! (VIND APl (VFuture P1) )+ "ÑÑ"; VIND APl (VFuture P2) => av.s! (VIND APl (VFuture P2) )+ "ÑÑŒ"; VIND APl (VFuture P3) => av.s! (VIND APl (VFuture P3)) + "ÑÑ"; VIND (ASg Masc) VPast => av.s ! (VIND (ASg Masc) VPast ) + "ÑÑ"; @@ -1742,40 +1638,42 @@ oper mkPassive: AspectVoice -> PastVerb -> AspectVoice = \av, pv -> VIND (ASg Neut) VPast => av.s ! (VIND (ASg Neut) VPast) + "ÑÑŒ"; VIND APl VPast => av.s ! (VIND APl VPast ) + "ÑÑŒ" } ; - asp = av.asp + asp = av.asp }; -- Generation the imperfective active pattern given -- a number of basic conjugation forms. oper - imperfectiveActivePattern : Str -> Str -> PresentVerb -> PastVerb -> AspectVoice = + imperfectiveActivePattern : Str -> Str -> PresentVerb -> PastVerb -> AspectVoice = \inf, imper, presentFuture, past -> { s= table { VINF => inf ; - VIMP Sg P1 => "давайте" ++ inf ; - VIMP Pl P1 => "давайте" ++ inf ; + VIMP Sg P1 => ["давайте "]+ inf ; + VIMP Pl P1 => ["давайте "] + inf ; VIMP Sg P2 => imper ; VIMP Pl P2 => imper+"те" ; - VIMP Sg P3 => "пуÑÑ‚ÑŒ" ++ presentFuture ! (PRF (ASg Masc) P3) ; - VIMP Pl P3 => "пуÑÑ‚ÑŒ" ++ presentFuture ! (PRF APl P3) ; - VSUB (ASg Masc) => past ! (PSF (ASg Masc)) ++"бы"; - VSUB (ASg Fem) => past ! (PSF (ASg Fem)) ++"бы"; - VSUB (ASg Neut) => past ! (PSF (ASg Neut) )++"бы"; - VSUB APl => past ! (PSF APl) ++"бы"; + VIMP Sg P3 => ["пуÑкай "] + presentFuture ! (PRF (ASg Masc) P3) ; + VIMP Pl P3 => ["пуÑкай "] + presentFuture ! (PRF APl P3) ; + VSUB (ASg Masc) => past ! (PSF (ASg Masc)) +[" бы"]; + VSUB (ASg Fem) => past ! (PSF (ASg Fem)) +[" бы"]; + + VSUB (ASg Neut) => past ! (PSF (ASg Neut) )+[" бы"]; + VSUB APl => past ! (PSF APl) +[" бы"]; VIND (ASg _) (VPresent P1) => presentFuture ! ( PRF (ASg Masc) P1); VIND (ASg _) (VPresent P2) => presentFuture! (PRF (ASg Masc) P2) ; VIND (ASg _) (VPresent P3) => presentFuture ! (PRF (ASg Masc) P3) ; - VIND APl (VPresent P1) => presentFuture ! (PRF APl P1); + VIND APl (VPresent P1) => presentFuture ! (PRF APl P1); VIND APl (VPresent P2) => presentFuture ! (PRF APl P2); VIND APl (VPresent P3) => presentFuture ! (PRF APl P3); - VIND (ASg _) (VFuture P1) => "буду" ++ inf ; - VIND (ASg _) (VFuture P2) => "будешь" ++ inf ; - VIND (ASg _) (VFuture P3) => "будет" ++ inf ; - VIND APl (VFuture P1) => "будем" ++ inf ; - VIND APl (VFuture P2) => "будете" ++ inf ; - VIND APl (VFuture P3) => "будут" ++ inf ; + VIND (ASg _) (VFuture P1) => ["буду "] + presentFuture ! (PRF (ASg Masc) P1) ; + VIND (ASg _) (VFuture P2) => ["будешь"] + presentFuture ! (PRF (ASg Masc) P2) ; + VIND (ASg _) (VFuture P3) => ["будет "] + presentFuture ! (PRF (ASg Masc) P3) ; + VIND APl (VFuture P1) => ["будем "] + presentFuture ! (PRF APl P1) ; + VIND APl (VFuture P2) => ["будете "] + presentFuture ! (PRF APl P2) ; + VIND APl (VFuture P3) => ["будут "] + presentFuture ! (PRF APl P3) ; + VIND (ASg Masc) VPast => past ! (PSF (ASg Masc)) ; - VIND (ASg Fem) VPast => past ! (PSF (ASg Fem) ) ; + VIND (ASg Fem) VPast => past ! (PSF (ASg Fem) ) ; VIND (ASg Neut) VPast => past ! (PSF (ASg Neut)) ; VIND APl VPast => past ! (PSF APl) } ; @@ -1785,17 +1683,17 @@ oper oper perfectiveActivePattern: Str -> Str -> PresentVerb -> PastVerb -> AspectVoice = \inf, imper, presentFuture, past -> { s= table { VINF => inf ; - VIMP Sg P1 => "давайте"++ presentFuture ! (PRF (ASg Masc) P1); - VIMP Pl P1 => "давайте" ++ presentFuture ! (PRF APl P1); + VIMP Sg P1 => ["давайте "]+ presentFuture ! (PRF (ASg Masc) P1); + VIMP Pl P1 => ["давайте "] + presentFuture ! (PRF APl P1); VIMP Sg P2 => imper ; VIMP Pl P2 => imper+"те" ; - VIMP Sg P3 => "пуÑÑ‚ÑŒ" ++ presentFuture ! (PRF (ASg Masc) P3) ; - VIMP Pl P3 => "пуÑÑ‚ÑŒ" ++ presentFuture ! (PRF APl P3) ; - VSUB (ASg Masc) => past ! (PSF (ASg Masc)) ++"бы"; - VSUB (ASg Fem) => past ! (PSF (ASg Fem)) ++"бы"; + VIMP Sg P3 => ["пуÑкай "] + presentFuture ! (PRF (ASg Masc) P3) ; + VIMP Pl P3 => ["пуÑкай "] + presentFuture ! (PRF APl P3) ; + VSUB (ASg Masc) => past ! (PSF (ASg Masc)) +[" бы"]; + VSUB (ASg Fem) => past ! (PSF (ASg Fem)) +[" бы"]; - VSUB (ASg Neut) => past ! (PSF (ASg Neut) )++"бы"; - VSUB APl => past ! (PSF APl) ++"бы"; + VSUB (ASg Neut) => past ! (PSF (ASg Neut) )+[" бы"]; + VSUB APl => past ! (PSF APl) +[" бы"]; VIND (ASg _) (VPresent _) => [] ; VIND APl (VPresent P1) => nonExist ; VIND APl (VPresent P2) => nonExist ; @@ -1803,7 +1701,7 @@ oper VIND (ASg _) (VFuture P1) => presentFuture ! (PRF (ASg Masc) P1) ; VIND (ASg _) (VFuture P2) => presentFuture ! (PRF (ASg Masc) P2) ; VIND (ASg _) (VFuture P3) => presentFuture ! (PRF (ASg Masc) P3) ; - VIND APl (VFuture P1) => presentFuture ! (PRF APl P1) ; + VIND APl (VFuture P1) => presentFuture ! (PRF APl P1) ; VIND APl (VFuture P2) => presentFuture ! (PRF APl P2) ; VIND APl (VFuture P3) => presentFuture ! (PRF APl P3) ; VIND (ASg Masc) VPast => past ! (PSF (ASg Masc)) ; @@ -1814,14 +1712,13 @@ oper asp = Perfective } ; -----2 Proper names are a simple kind of noun phrases. --- -oper - ProperName : Type = {s : Case => Str ; g : Gender ; anim : Animacy} ; --- --- mkCNProperName : CommNoun -> ProperName = \cn -> ---{s = \\c => cn.s! (SF Sg c); g=cn.g; anim = cn.anim }; --- +--2 Proper names are a simple kind of noun phrases. + + ProperName : Type = {s : Case => Str ; g : Gender ; anim : Animacy} ; + + mkCNProperName : CommNoun -> ProperName = \cn -> +{s = \\c => cn.s! (SF Sg c); g=cn.g; anim = cn.anim }; + mkProperNameMasc : Str -> Animacy -> ProperName = \ivan, anim -> { s = table { Nom => ivan ; Gen => ivan + "а"; @@ -1843,6 +1740,25 @@ oper Prepos => masha + "е" } ; g = Fem ; anim = anim }; -}; +-- For Numerals: +param DForm = unit | teen | ten | hund ; +param Place = attr | indep ; +param Size = nom | sgg | plg ; +--param Gend = masc | fem | neut ; +oper mille : Size => Str = table { + {nom} => "Ñ‚Ñ‹ÑÑча" ; + {sgg} => "Ñ‚Ñ‹ÑÑчи" ; + _ => "Ñ‚Ñ‹ÑÑч"} ; +oper gg : Str -> Gender => Str = \s -> table {_ => s} ; + +oper sebya : Case => Str =table { +Nom => ""; +Gen => "ÑебÑ"; +Dat=> "Ñебе"; +Acc => "ÑебÑ"; +Instr => "Ñобой"; +Prep =>"Ñебе"}; + + }; diff --git a/lib/resource/russian/MultimodalRus.gf b/lib/resource-0.9/russian/MultimodalRus.gf similarity index 100% rename from lib/resource/russian/MultimodalRus.gf rename to lib/resource-0.9/russian/MultimodalRus.gf diff --git a/lib/resource/russian/NumeralsRus.gf b/lib/resource-0.9/russian/NumeralsRus.gf similarity index 100% rename from lib/resource/russian/NumeralsRus.gf rename to lib/resource-0.9/russian/NumeralsRus.gf diff --git a/lib/resource-0.9/russian/ParadigmsRus.gf b/lib/resource-0.9/russian/ParadigmsRus.gf new file mode 100644 index 000000000..31835e8af --- /dev/null +++ b/lib/resource-0.9/russian/ParadigmsRus.gf @@ -0,0 +1,452 @@ +--# -path=.:../abstract:../../prelude + +--1 Russian Lexical Paradigms +-- +-- Aarne Ranta, Janna Khegai 2003 +-- +-- This is an API to the user of the resource grammar +-- for adding lexical items. It give shortcuts for forming +-- expressions of basic categories: nouns, adjectives, verbs. +-- +-- Closed categories (determiners, pronouns, conjunctions) are +-- accessed through the resource syntax API, $resource.Abs.gf$. +-- +-- +-- The following files are presupposed: + +resource ParadigmsRus = open (Predef=Predef), Prelude, MorphoRus, SyntaxRus, +CategoriesRus, RulesRus in { + +flags coding=utf8 ; + +--2 Parameters +-- +-- To abstract over gender names, we define the following identifiers. + +oper + Gender : Type ; + masculine : Gender ; + feminine : Gender ; + neuter : Gender ; + +-- To abstract over case names, we define the following. + Case : Type ; + + nominative : Case ; + genitive : Case ; + dative : Case ; + accusative : Case ; + instructive : Case ; + prepositional : Case ; + +-- In some (written in English) textbooks accusative case +-- is put on the second place. However, we follow the case order +-- standard for Russian textbooks. + +-- To abstract over number names, we define the following. + Number : Type ; + + singular : Number ; + plural : Number ; + +--2 Nouns + +-- Best case: indeclinabe nouns: "кофе", "пальто", "ВУЗ". + Animacy: Type ; + + animate: Animacy; + inanimate: Animacy; + + mkIndeclinableNoun: Str -> Gender -> Animacy -> N ; + +-- Worst case - give six singular forms: +-- Nominative, Genetive, Dative, Accusative, Instructive and Prepositional; +-- corresponding six plural forms and the gender. +-- May be the number of forms needed can be reduced, +-- but this requires a separate investigation. +-- Animacy parameter (determining whether the Accusative form is equal +-- to the Nominative or the Genetive one) is actually of no help, +-- since there are a lot of exceptions and the gain is just one form less. + + mkN : (_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Gender -> Animacy -> N ; + + -- мужчина, мужчины, мужчине, мужчину, мужчиной, мужчине + -- мужчины, мужчин, мужчинам, мужчин, мужчинами, мужчинах + + +-- Here are some common patterns. The list is far from complete. + +-- Feminine patterns. + + nMashina : Str -> N ; -- feminine, inanimate, ending with "-а", Inst -"машин-ой" + nEdinica : Str -> N ; -- feminine, inanimate, ending with "-а", Inst -"единиц-ей" + nZhenchina : Str -> N ; -- feminine, animate, ending with "-a" + nNoga : Str -> N ; -- feminine, inanimate, ending with "г_к_Ñ…-a" + nMalyariya : Str -> N ; -- feminine, inanimate, ending with "-иÑ" + nTetya : Str -> N ; -- feminine, animate, ending with "-Ñ" + nBol : Str -> N ; -- feminine, inanimate, ending with "-ÑŒ"(soft sign) + +-- Neuter patterns. + + nObezbolivauchee : Str -> N ; -- neutral, inanimate, ending with "-ee" + nProizvedenie : Str -> N ; -- neutral, inanimate, ending with "-e" + nChislo : Str -> N ; -- neutral, inanimate, ending with "-o" + nZhivotnoe : Str -> N ; -- masculine, inanimate, ending with "-ень" + +-- Masculine patterns. + +--Ending with consonant: +nPepel : Str -> N ; -- masculine, inanimate, ending with "-ел"- "пеп-ла" + + nBrat: Str -> N ; -- animate, брат-ÑŒÑ + nStul: Str -> N ; -- same as above, but inanimate + nMalush : Str -> N ; -- малышей + nPotolok : Str -> N ; -- потол-ок - потол-ка + + -- the next four differ in plural nominative and/or accusative form(s) : + nBank: Str -> N ; -- банк-и (Nom=Acc) + nStomatolog : Str -> N ; -- same as above, but animate + nAdres : Str -> N ; -- адреÑ-а (Nom=Acc) + nTelefon : Str -> N ; -- телефон-Ñ‹ (Nom=Acc) + + nNol : Str -> N ; -- masculine, inanimate, ending with "-ÑŒ" (soft sign) + nUroven : Str -> N ; -- masculine, inanimate, ending with "-ень" + +-- Nouns used as functions need a preposition. The most common is with Genitive. + + mkFun : N -> Preposition -> Case -> N2 ; + mkN2 : N -> N2 ; + mkN3 : N -> Preposition -> Preposition -> N3 ; + +-- Proper names. + + mkPN : Str -> Gender -> Animacy -> PN ; -- "Иван", "Маша" + nounPN : N -> PN ; + +-- On the top level, it is maybe $CN$ that is used rather than $N$, and +-- $NP$ rather than $PN$. + + mkCN : N -> CN ; + mkNP : Str -> Gender -> Animacy -> NP ; + + +--2 Adjectives + +-- Non-comparison (only positive degree) one-place adjectives need 28 (4 by 7) +-- forms in the worst case: + + +-- Masculine | Feminine | Neutral | Plural +-- Nominative +-- Genitive +-- Dative +-- Accusative Inanimate +-- Accusative Animate +-- Instructive +-- Prepositional + + +-- Notice that 4 short forms, which exist for some adjectives are not included +-- in the current description, otherwise there would be 32 forms for +-- positive degree. + +-- mkA : ( : Str) -> A ; + +-- Invariable adjective is a special case. + + adjInvar : Str -> A ; -- khaki, mini, hindi, netto + +-- Some regular patterns depending on the ending. + + AStaruyj : Str -> A ; -- ending with "-ый" + AMalenkij : Str -> A ; -- ending with "-ий", Gen - "маленьк-ого" + AKhoroshij : Str -> A ; -- ending with "-ий", Gen - "хорош-его" + AMolodoj : Str -> A ; -- ending with "-ой", + -- plural - молод-ые" + AKakoj_Nibud : Str -> Str -> A ; -- ending with "-ой", + -- plural - "как-ие" + +-- Two-place adjectives need a preposition and a case as extra arguments. + + mkA2 : A -> Str -> Case -> A2 ; -- "делим на" + +-- Comparison adjectives need a positive adjective +-- (28 forms without short forms). +-- Taking only one comparative form (non-syntaxic) and +-- only one superlative form (syntaxic) we can produce the +-- comparison adjective with only one extra argument - +-- non-syntaxic comparative form. +-- Syntaxic forms are based on the positive forms. + + + mkADeg : A -> Str -> ADeg ; + +-- On top level, there are adjectival phrases. The most common case is +-- just to use a one-place adjective. + + ap : A -> IsPostfixAdj -> AP ; + +--2 Adverbs + +-- Adverbs are not inflected. Most lexical ones have position +-- after the verb. Some can be preverbal (e.g. "always"). + + mkAdv : Str -> Adv ; + +--2 Verbs +-- +-- In our lexicon description ("Verbum") there are 62 forms: +-- 2 (Voice) by { 1 (infinitive) + [2(number) by 3 (person)](imperative) + +-- [ [2(Number) by 3(Person)](present) + [2(Number) by 3(Person)](future) + +-- 4(GenNum)(past) ](indicative)+ 4 (GenNum) (subjunctive) } +-- Participles (Present and Past) and Gerund forms are not included, +-- since they fuction more like Adjectives and Adverbs correspondingly +-- rather than verbs. Aspect regarded as an inherent parameter of a verb. +-- Notice, that some forms are never used for some verbs. Actually, +-- the majority of verbs do not have many of the forms. +Voice: Type; +Aspect: Type; +Tense : Type; +Bool: Type; +Conjugation: Type ; + +first: Conjugation; -- "гулÑ-Ешь, гулÑ-Ем" +firstE: Conjugation; -- Verbs with vowel "Ñ‘": "даёшь" (give), "пьёшь" (drink) +second: Conjugation; -- "вид-Ишь, вид-Им" +mixed: Conjugation; -- "хоч-Ешь - хот-Им" +dolzhen: Conjugation; -- irregular + +true: Bool; +false: Bool; + +active: Voice ; +passive: Voice ; +imperfective: Aspect; +perfective: Aspect ; +present : Tense ; +past : Tense ; + + +-- The worst case need 6 forms of the present tense in indicative mood +-- ("Ñ Ð±ÐµÐ³Ñƒ", "Ñ‚Ñ‹ бежишь", "он бежит", "мы бежим", "вы бежите", "они бегут"), +-- a past form (singular, masculine: "Ñ Ð±ÐµÐ¶Ð°Ð»"), an imperative form +-- (singular, second person: "беги"), an infinitive ("бежать"). +-- Inherent aspect should also be specified. + + mkVerbum : Aspect -> (_,_,_,_,_,_,_,_,_ : Str) -> V ; + +-- Common conjugation patterns are two conjugations: +-- first - verbs ending with "-ать/-ÑÑ‚ÑŒ" and second - "-ить/-еть". +-- Instead of 6 present forms of the worst case, we only need +-- a present stem and one ending (singular, first person): +-- "Ñ Ð»ÑŽÐ±-лю", "Ñ Ð¶Ð´-у", etc. To determine where the border +-- between stem and ending lies it is sufficient to compare +-- first person from with second person form: +-- "Ñ Ð»ÑŽÐ±-лю", "Ñ‚Ñ‹ люб-ишь". Stems shoud be the same. +-- So the definition for verb "любить" looks like: +-- mkRegVerb Imperfective Second "люб" "лю" "любил" "люби" "любить"; + + mkRegVerb :Aspect -> Conjugation -> (_,_,_,_,_ : Str) -> V ; + +-- For writing an application grammar one usualy doesn't need +-- the whole inflection table, since each verb is used in +-- a particular context that determines some of the parameters +-- (Tense and Voice while Aspect is fixed from the beginning) for certain usage. +-- The "V" type, that have these parameters fixed. +-- We can extract the "V" from the lexicon. + +-- mkV: Verbum -> Voice -> V ; +-- mkPresentV: Verbum -> Voice -> V ; + + +-- Two-place verbs, and the special case with direct object. Notice that +-- a particle can be included in a $V$. + + mkTV : V -> Str -> Case -> V2 ; -- "войти в дом"; "в", accusative + mkV3 : V -> Str -> Str -> Case -> Case -> V3 ; -- "Ñложить пиÑьмо в конверт" + tvDir : V -> V2 ; -- "видеть", "любить" + tvDirDir : V -> V3 ; + +-- The definitions should not bother the user of the API. So they are +-- hidden from the document. +--. + Gender = SyntaxRus.Gender ; + Case = SyntaxRus.Case ; + Number = SyntaxRus.Number ; + Animacy = SyntaxRus.Animacy; + Aspect = SyntaxRus.Aspect; + Voice = SyntaxRus.Voice ; + Tense = SyntaxRus.RusTense ; + Bool = Prelude.Bool ; + Conjugation = MorphoRus.Conjugation; +first = First ; +firstE = FirstE ; +second = Second ; +mixed = Mixed ; +dolzhen = Dolzhen; + + true = True; + false = False ; + masculine = Masc ; + feminine = Fem ; + neuter = Neut ; + nominative = Nom ; + accusative = Acc ; + dative = Dat ; + genitive = Gen ; + instructive = Inst ; + prepositional = Prepos ; + singular = Sg ; + plural = Pl ; + animate = Animate ; + inanimate = Inanimate ; + active = Act ; + passive = Pass ; + imperfective = Imperfective ; + perfective = Perfective ; + present = Present ; + past = Past ; + -- Degree = Pos | Comp | Super ; + -- Person = P1 | P2 | P3 ; + -- AfterPrep = Yes | No ; + -- Possessive = NonPoss | Poss GenNum ; + +-- Noun definitions + + mkIndeclinableNoun = \s,g, anim -> + { + s = table { SF _ _ => s } ; + g = g ; + anim = anim + } ** {lock_N = <>}; + + + mkN = \nomSg, genSg, datSg, accSg, instSg, preposSg, + nomPl, genPl, datPl, accPl, instPl, preposPl, g, anim -> + { + s = table { + SF Sg Nom => nomSg ; + SF Sg Gen => genSg ; + SF Sg Dat => datSg ; + SF Sg Acc => accSg ; + SF Sg Inst => instSg ; + SF Sg Prepos => preposSg ; + SF Pl Nom => nomPl ; + SF Pl Gen => genPl ; + SF Pl Dat => datPl ; + SF Pl Acc => accPl ; + SF Pl Inst => instPl ; + SF Pl Prepos => preposPl + } ; + g = g ; + anim = anim + } ** {lock_N = <>} ; + + nMashina = \s -> aEndInAnimateDecl s ** {lock_N = <>}; + nEdinica = \s -> ej_aEndInAnimateDecl s ** {lock_N = <>}; + nZhenchina = \s -> (aEndAnimateDecl s) ** { g = Fem ; anim = Animate } ** {lock_N = <>}; + nNoga = \s -> aEndG_K_KH_Decl s ** {lock_N = <>}; + nMalyariya = \s -> i_yaEndDecl s ** {lock_N = <>}; + nTetya = \s -> (yaEndAnimateDecl s) ** {g = Fem; anim = Animate; lock_N = <>} ; + nBol = \s -> softSignEndDeclFem s ** {lock_N = <>}; + +-- Neuter patterns. + + nObezbolivauchee = \s -> eeEndInAnimateDecl s ** {lock_N = <>}; + nZhivotnoe = \s -> oeEndAnimateDecl s ** {lock_N = <>}; + nProizvedenie = \s -> eEndInAnimateDecl s ** {lock_N = <>}; + nChislo = \s -> oEndInAnimateDecl s ** {lock_N = <>}; + + +-- Masculine patterns. + nBank = \s -> nullEndInAnimateDecl s ** {lock_N = <>}; + nStomatolog = \s -> nullEndAnimateDecl s ** {lock_N = <>}; + nMalush = \s -> shEndDeclMasc s ** {lock_N = <>}; + nPotolok = \s ->okEndDeclMasc s ** {lock_N = <>}; + + nBrat = \s -> nullEndAnimateDeclBrat s** {lock_N = <>}; + nStul = \s -> nullEndInAnimateDeclStul s** {lock_N = <>}; + + nAdres = \s -> nullEndInAnimateDecl2 s ** {lock_N = <>}; + nTelefon = \s -> nullEndInAnimateDecl1 s ** {lock_N = <>}; + nPepel = \s -> nullEndInAnimateDeclPepel s ** {lock_N = <>}; + + nNol = \s -> softSignEndDeclMasc s ** {lock_N = <>}; + nUroven = \s -> EN_softSignEndDeclMasc s ** {lock_N = <>}; + +-- mkFun defined in syntax.RusU + mkN2 n = funGen n ** {lock_N2 = <>} ; -- defined in syntax.RusU + +mkN3 n p r = mkCommNoun3 n p r ** {lock_N3 = <>} ; -- defined in syntax.RusU + + mkPN = \ivan, g, anim -> + case g of { + Masc => mkProperNameMasc ivan anim ; + _ => mkProperNameFem ivan anim + } ** {lock_PN =<>}; + nounPN n = (mkCNProperName n)**{lock_PN=<>}; + + mkCN = UseN ; + mkNP = \x,y,z -> UsePN (mkPN x y z) ; + +-- Adjective definitions + + adjInvar = \s -> { s = \\af => s } ** {lock_A= <>}; + + AStaruyj s = uy_j_EndDecl s ** {lock_A = <>} ; + AKhoroshij s = shij_End_Decl s ** {lock_A= <>}; +AMalenkij s = ij_EndK_G_KH_Decl s ** {lock_A= <>}; + AMolodoj s = uy_oj_EndDecl s ** {lock_A= <>}; + AKakoj_Nibud s t = i_oj_EndDecl s t ** {lock_A= <>}; + + mkA2 a p c= mkAdjective2 a p c ** {lock_A2 = <>}; + mkADeg a s = mkAdjDeg a s ** {lock_ADeg = <>}; -- defined in morpho.RusU + + ap a p = mkAdjPhrase a p ** {lock_AP = <>}; -- defined in syntax module + + mkAdv x = ss x ** {lock_Adv = <>} ; + +-- Verb definitions + + mkVerbum = \asp, sgP1, sgP2, sgP3, plP1, plP2, plP3, + sgMascPast, imperSgP2, inf -> case asp of { + Perfective => + mkVerb (perfectiveActivePattern inf imperSgP2 + (presentConj sgP1 sgP2 sgP3 plP1 plP2 plP3) (pastConj sgMascPast)) + (pastConj sgMascPast) ** { lock_V=<> }; + Imperfective => + mkVerb (imperfectiveActivePattern inf imperSgP2 + (presentConj sgP1 sgP2 sgP3 plP1 plP2 plP3) (pastConj sgMascPast)) + (pastConj sgMascPast) ** { lock_V=<> } + }; + + oper presentConj: (_,_,_,_,_,_: Str) -> PresentVerb = + \sgP1, sgP2, sgP3, plP1, plP2, plP3 -> + table { + PRF (ASg _) P1 => sgP1 ; + PRF (ASg _) P2 => sgP2 ; + PRF (ASg _) P3 => sgP3 ; + PRF APl P1 => plP1 ; + PRF APl P2 => plP2 ; + PRF APl P3 => plP3 + }; + + mkRegVerb a b c d e f g = verbDecl a b c d e f g ** {lock_V = <>} ; + -- defined in morpho.RusU.gf +{- + mkV a b = extVerb a b ** {lock_V = <>}; -- defined in types.RusU.gf + + mkPresentV = \aller, vox -> + { s = table { + VFin gn p => aller.s ! VFORM vox (VIND (VPresent (numGNum gn) p)) ; + VImper n p => aller.s ! VFORM vox (VIMP n p) ; + VInf => aller.s ! VFORM vox VINF ; + VSubj gn => aller.s ! VFORM vox (VSUB gn) + }; t = Present ; a = aller.asp ; w = vox ; lock_V = <>} ; +-} + mkTV a b c = mkTransVerb a b c ** {lock_V2 = <>}; -- defined in syntax.RusU.gf + tvDir v = mkDirectVerb v ** {lock_V2 = <>}; -- defined in syntax.RusU.gf + tvDirDir v = mkDirDirectVerb v ** {lock_V3 = <>}; -- defined in syntax.RusU.gf +mkV3 v s w c d = mkDitransVerb v s w c d ** {lock_V3 = <>}; -- defined in syntax.RusU.gf + +} ; diff --git a/lib/resource/russian/ResourceRus.gf b/lib/resource-0.9/russian/ResourceRus.gf similarity index 100% rename from lib/resource/russian/ResourceRus.gf rename to lib/resource-0.9/russian/ResourceRus.gf diff --git a/lib/resource/russian/RulesRus.gf b/lib/resource-0.9/russian/RulesRus.gf similarity index 100% rename from lib/resource/russian/RulesRus.gf rename to lib/resource-0.9/russian/RulesRus.gf diff --git a/lib/resource-0.9/russian/StructuralRus.gf b/lib/resource-0.9/russian/StructuralRus.gf new file mode 100644 index 000000000..5741ff09e --- /dev/null +++ b/lib/resource-0.9/russian/StructuralRus.gf @@ -0,0 +1,138 @@ +--# -path=.:../abstract:../../prelude +--1 The Top-Level Russian Resource Grammar +-- +-- Janna Khegai 2003 +-- on the basis of code for other languages by Aarne Ranta +-- +-- This is the Russian concrete syntax of the multilingual resource +-- grammar. Most of the work is done in the file $syntax.RusU.gf$. +-- However, for the purpose of documentation, we make here explicit the +-- linearization types of each category, so that their structures and +-- dependencies can be seen. +-- Another substantial part is the linearization rules of some +-- structural words. +-- +-- The users of the resource grammar should not look at this file for the +-- linearization rules, which are in fact hidden in the document version. +-- They should use $resource.Abs.gf$ to access the syntactic rules. +-- This file can be consulted in those, hopefully rare, occasions in which +-- one has to know how the syntactic categories are +-- implemented. The parameter types are defined in $types.RusU.gf$. + +concrete StructuralRus of Structural = CategoriesRus, NumeralsRus ** open Prelude, SyntaxRus in { +flags + coding=utf8 ; + +lin + +-- First mount the numerals. + + UseNumeral i = i ; + + +-- Then an alphabetical list of structural words + + above_Prep = { s2 = "над" ; c = Inst} ; + after_Prep = { s2 = "поÑле" ; c = Gen }; + all8mass_Det = vesDet ** {n = Sg; g = PNoGen; c = Nom} ; + all_NDet = vseDetPl ** { g = PNoGen; c = Nom} ; + almost_Adv = ss "почти" ; + although_Subj = ss "хотÑ" ; + and_Conj = ss "и" ** {n = Pl} ; + because_Subj = ss ["потому что"] ; + before_Prep ={ s2 = "перед" ; c = Inst}; + behind_Prep = { s2 = "за" ; c = Inst }; + between_Prep = { s2 = "между" ; c = Inst}; + both_AndConjD = sd2 "как" [", так и"] ** {n = Pl} ; + by8agent_Prep = { s2 = ["Ñ Ð¿Ð¾Ð¼Ð¾Ñ‰ÑŒÑŽ"] ; c = Gen}; + by8means_Prep = { s2 = ["Ñ Ð¿Ð¾Ð¼Ð¾Ñ‰ÑŒÑŽ"] ; c = Gen}; + can8know_VV = verbMoch ; + can_VV = verbMoch ; + during_Prep = { s2 = ["в течение"] ; c = Gen}; + either8or_ConjD = sd2 "либо" [", либо"] ** {n = Sg} ; +-- comma is not visible in GUI! + every_Det = kazhdujDet ** {n = Sg ; g = PNoGen; c= Nom} ; + everybody_NP = mkNounPhrase Pl (noun2CommNounPhrase (eEnd_Decl "вÑ")) ; + everything_NP = pron2NounPhrase pronVseInanimate Inanimate; + everywhere_Adv = ss "везде" ; + from_Prep = { s2 = "от" ; c = Gen }; + he_NP = pron2NounPhrase pronOn Animate; + how_IAdv = ss "как" ; + how8many_IDet = skolkoSgDet ** {n = Sg; g = (PGen Neut); c= Gen}; + i_NP = pron2NounPhrase pronYa Animate; + if_Subj = ss "еÑли" ; + in8front_Prep = { s2 = "перед" ; c = Inst}; + in_Prep = { s2 = "в" ; c = Prepos }; + it_NP = pron2NounPhrase pronOno Inanimate; + many_Det = mnogoSgDet ** {n = Sg; g = (PGen Neut); c= Gen} ; + + most_Det = bolshinstvoSgDet ** {n = Sg; g = (PGen Neut); c= Gen} ; + -- inanimate, Sg: "большинÑтво телефонов безмолÑтву-ет" + most8many_Det = bolshinstvoPlDet ** {n = Pl; g = (PGen Neut); c= Gen} ; + -- animate, Pl: "большинÑтво учащихÑÑ Ñ…Ð¾Ñ€Ð¾ÑˆÐ¾ подготовлен-Ñ‹" + much_Det = mnogoSgDet ** {n = Sg; g = (PGen Neut); c= Gen} ; -- same as previous + must_VV = verbDolzhen ; + no_Phr = ss ["Ðет ."] ; + on_Prep = { s2 = "на" ; c = Prepos }; + or_Conj = ss "или" ** {n = Sg} ; + otherwise_Adv = ss "иначе" ; + part_Prep = { s2 = "" ; c = Nom}; -- missing in Russian + possess_Prep = { s2 = "" ; c = Gen}; --- ?? AR 19/2/2004 + quite_Adv = ss "довольно" ; + she_NP = pron2NounPhrase pronOna Animate; + so_Adv = ss "так"; + somebody_NP = pron2NounPhrase pronKtoTo Animate; + some_Det = nekotorujDet ** {n = Sg; g = PNoGen; c= Nom} ; + some_NDet = nekotorujDet ** { g = PNoGen; c= Nom} ; + something_NP = pron2NounPhrase pronChtoTo Inanimate ; + somewhere_Adv = ss "где-нибудь" ; +--- TheseNumNP n = { s =\\_ => [] ; n = Pl; p = P3; g= PGen Fem ; +--- anim = Animate ; pron = True} ; -- missing in Russian + --- ThoseNumNP n = { s =\\_ => [] ; n = Pl; p = P3; g=PGen Fem ; +--- anim = Animate ; pron = True} ; -- missing in Russian + that_Det = totDet ** {n = Sg; g = PNoGen; c= Nom} ; + that_NP = det2NounPhrase totDet ; -- inanimate form only + therefore_Adv = ss "Ñледовательно" ; + these_NDet = etotDet ** { g = PNoGen; c= Nom} ; + they8fem_NP = pron2NounPhrase pronOni Animate; + they_NP = pron2NounPhrase pronOni Animate; + this_Det = etotDet ** {n = Sg; g = PNoGen; c= Nom} ; + this_NP = det2NounPhrase etotDet ; -- inanimate form only + those_NDet = totDet ** {g = PNoGen; c= Nom} ; + thou_NP = pron2NounPhrase pronTu Animate; + through_Prep = { s2 = "через" ; c = Acc }; + to_Prep = { s2 = "к" ; c = Dat }; + too_Adv = ss "Ñлишком" ; + under_Prep = { s2 = "под" ; c = Inst }; + very_Adv = ss "очень" ; + want_VV = verbKhotet ; + we_NP = pron2NounPhrase pronMu Animate ; + what8many_IP = pron2NounPhraseNum pronChto Inanimate Pl; + what8one_IP = pron2NounPhraseNum pronChto Inanimate Sg; + when_IAdv = ss "когда" ; + when_Subj = ss "когда" ; + where_IAdv = ss "где" ; + which8many_IDet = kotorujDet ** {n = Pl; g = PNoGen; c= Nom} ; + which8one_IDet = kotorujDet ** {n = Sg; g = PNoGen; c= Nom} ; + who8many_IP = pron2NounPhraseNum pronKto Animate Pl; + who8one_IP = pron2NounPhraseNum pronKto Animate Sg; + why_IAdv = ss "почему" ; + with_Prep = { s2 = "Ñ" ; c = Inst}; + without_Prep = { s2 = "без" ; c = Gen}; + ye_NP = pron2NounPhrase pronVu Animate; + yes_Phr = ss ["Да ."] ; + you_NP = pron2NounPhrase pronVu Animate; +--- NoDet = nikakojDet ** {n = Sg; g = PNoGen; c= Nom} ; +--- AnyDet = lubojDet ** {n = Sg; g = PNoGen; c= Nom} ; +--- AnyNumDet = mkDeterminerNum (lubojDet ** {n = Pl; g = PNoGen; c= Nom} ); +--- NoNumDet = mkDeterminerNum (nikakojDet ** {n = Pl; g = PNoGen; c= Nom} ); +---NobodyNP = pron2NounPhrase pronNikto Animate; +---NothingNP = pron2NounPhrase pronNichto Inanimate; + +-- In case of "neither.. no" expression double negation is not +-- only possible, but also required in Russian. +-- There is no means of control for this however in the resource grammar. +--- NeitherNor = sd2 "ни" [", ни"] ** {n = Sg} ; +--- NowhereNP = ss "нигде" ; +--- AgentPrep = { s2 = "" ; c = Nom}; -- missing in Russian +} ; diff --git a/lib/resource/russian/SwadeshLexRus.gf b/lib/resource-0.9/russian/SwadeshLexRus.gf similarity index 100% rename from lib/resource/russian/SwadeshLexRus.gf rename to lib/resource-0.9/russian/SwadeshLexRus.gf diff --git a/lib/resource/russian/SyntaxRus.gf b/lib/resource-0.9/russian/SyntaxRus.gf similarity index 100% rename from lib/resource/russian/SyntaxRus.gf rename to lib/resource-0.9/russian/SyntaxRus.gf diff --git a/lib/resource/russian/TimeRus.gf b/lib/resource-0.9/russian/TimeRus.gf similarity index 100% rename from lib/resource/russian/TimeRus.gf rename to lib/resource-0.9/russian/TimeRus.gf diff --git a/lib/resource/russian/TypesRus.gf b/lib/resource-0.9/russian/TypesRus.gf similarity index 100% rename from lib/resource/russian/TypesRus.gf rename to lib/resource-0.9/russian/TypesRus.gf diff --git a/lib/resource/russian/VerbphraseRus.gf b/lib/resource-0.9/russian/VerbphraseRus.gf similarity index 100% rename from lib/resource/russian/VerbphraseRus.gf rename to lib/resource-0.9/russian/VerbphraseRus.gf diff --git a/lib/resource/scandinavian/CategoriesScand.gf b/lib/resource-0.9/scandinavian/CategoriesScand.gf similarity index 100% rename from lib/resource/scandinavian/CategoriesScand.gf rename to lib/resource-0.9/scandinavian/CategoriesScand.gf diff --git a/lib/resource/scandinavian/LangSats.gf b/lib/resource-0.9/scandinavian/LangSats.gf similarity index 100% rename from lib/resource/scandinavian/LangSats.gf rename to lib/resource-0.9/scandinavian/LangSats.gf diff --git a/lib/resource/scandinavian/MathScand.gf b/lib/resource-0.9/scandinavian/MathScand.gf similarity index 100% rename from lib/resource/scandinavian/MathScand.gf rename to lib/resource-0.9/scandinavian/MathScand.gf diff --git a/lib/resource/scandinavian/RulesScand.gf b/lib/resource-0.9/scandinavian/RulesScand.gf similarity index 100% rename from lib/resource/scandinavian/RulesScand.gf rename to lib/resource-0.9/scandinavian/RulesScand.gf diff --git a/lib/resource/scandinavian/SatsScand.gf b/lib/resource-0.9/scandinavian/SatsScand.gf similarity index 100% rename from lib/resource/scandinavian/SatsScand.gf rename to lib/resource-0.9/scandinavian/SatsScand.gf diff --git a/lib/resource/scandinavian/SyntaxScand.gf b/lib/resource-0.9/scandinavian/SyntaxScand.gf similarity index 100% rename from lib/resource/scandinavian/SyntaxScand.gf rename to lib/resource-0.9/scandinavian/SyntaxScand.gf diff --git a/lib/resource/scandinavian/TypesScand.gf b/lib/resource-0.9/scandinavian/TypesScand.gf similarity index 100% rename from lib/resource/scandinavian/TypesScand.gf rename to lib/resource-0.9/scandinavian/TypesScand.gf diff --git a/lib/resource/scandinavian/VerbphraseScand.gf b/lib/resource-0.9/scandinavian/VerbphraseScand.gf similarity index 100% rename from lib/resource/scandinavian/VerbphraseScand.gf rename to lib/resource-0.9/scandinavian/VerbphraseScand.gf diff --git a/lib/resource/spanish/BasicSpa.gf b/lib/resource-0.9/spanish/BasicSpa.gf similarity index 100% rename from lib/resource/spanish/BasicSpa.gf rename to lib/resource-0.9/spanish/BasicSpa.gf diff --git a/lib/resource-0.9/spanish/BeschSpa.gf b/lib/resource-0.9/spanish/BeschSpa.gf new file mode 100644 index 000000000..60d5c8c72 --- /dev/null +++ b/lib/resource-0.9/spanish/BeschSpa.gf @@ -0,0 +1,5760 @@ +--# -path=.:../romance:../abstract:../../prelude + +resource BeschSpa = open TypesSpa in { + +oper Verbum = {s : VForm => Str} ; + +-- machine-generated GF file from FM source by Inger Andersson and Therese Söderberg + +oper ser_1 : Str -> Verbum = \ser -> + let x_ = Predef.tk 3 ser in + {s = table { + VI Infn=> x_ + "ser" ; + VI Ger => x_ + "siendo" ; + VI Part => x_ + "sido" ; + VP (Pres Ind Sg P1) => x_ + "soy" ; + VP (Pres Ind Sg P2) => x_ + "eres" ; + VP (Pres Ind Sg P3) => x_ + "es" ; + VP (Pres Ind Pl P1) => x_ + "somos" ; + VP (Pres Ind Pl P2) => x_ + "sois" ; + VP (Pres Ind Pl P3) => x_ + "son" ; + VP (Pres Subj Sg P1) => x_ + "sea" ; + VP (Pres Subj Sg P2) => x_ + "seas" ; + VP (Pres Subj Sg P3) => x_ + "sea" ; + VP (Pres Subj Pl P1) => x_ + "seamos" ; + VP (Pres Subj Pl P2) => x_ + "seáis" ; + VP (Pres Subj Pl P3) => x_ + "sean" ; + VP (Impf Ind Sg P1) => x_ + "era" ; + VP (Impf Ind Sg P2) => x_ + "eras" ; + VP (Impf Ind Sg P3) => x_ + "era" ; + VP (Impf Ind Pl P1) => x_ + "éramos" ; + VP (Impf Ind Pl P2) => x_ + "erais" ; + VP (Impf Ind Pl P3) => x_ + "eran" ; + VP (Impf Subj Sg P1) => variants {x_ + "fuera" ; x_ + "fuese"} ; + VP (Impf Subj Sg P2) => variants {x_ + "fueras" ; x_ + "fueses"} ; + VP (Impf Subj Sg P3) => variants {x_ + "fuera" ; x_ + "fuese"} ; + VP (Impf Subj Pl P1) => variants {x_ + "fuéramos" ; x_ + "fuésemos"} ; + VP (Impf Subj Pl P2) => variants {x_ + "fuerais" ; x_ + "fueseis"} ; + VP (Impf Subj Pl P3) => variants {x_ + "fueran" ; x_ + "fuesen"} ; + VP (Pret Sg P1) => x_ + "fui" ; + VP (Pret Sg P2) => x_ + "fuiste" ; + VP (Pret Sg P3) => x_ + "fue" ; + VP (Pret Pl P1) => x_ + "fuimos" ; + VP (Pret Pl P2) => x_ + "fuisteis" ; + VP (Pret Pl P3) => x_ + "fueron" ; + VP (Fut Ind Sg P1) => x_ + "seré" ; + VP (Fut Ind Sg P2) => x_ + "serás" ; + VP (Fut Ind Sg P3) => x_ + "será" ; + VP (Fut Ind Pl P1) => x_ + "seremos" ; + VP (Fut Ind Pl P2) => x_ + "seréis" ; + VP (Fut Ind Pl P3) => x_ + "serán" ; + VP (Fut Subj Sg P1) => x_ + "fuere" ; + VP (Fut Subj Sg P2) => x_ + "fueres" ; + VP (Fut Subj Sg P3) => x_ + "fuere" ; + VP (Fut Subj Pl P1) => x_ + "fuéremos" ; + VP (Fut Subj Pl P2) => x_ + "fuereis" ; + VP (Fut Subj Pl P3) => x_ + "fueren" ; + VP (Cond Sg P1) => x_ + "sería" ; + VP (Cond Sg P2) => x_ + "serías" ; + VP (Cond Sg P3) => x_ + "sería" ; + VP (Cond Pl P1) => x_ + "seríamos" ; + VP (Cond Pl P2) => x_ + "seríais" ; + VP (Cond Pl P3) => x_ + "serían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => x_ + "sé" ; + VP (Imp Sg P3) => x_ + "sea" ; + VP (Imp Pl P1) => x_ + "seamos" ; + VP (Imp Pl P2) => x_ + "sed" ; + VP (Imp Pl P3) => x_ + "sean" ; + VP (Pass Sg Masc) => x_ + "sido" ; + VP (Pass Sg Fem) => x_ + "sida" ; + VP (Pass Pl Masc) => x_ + "sidos" ; + VP (Pass Pl Fem) => x_ + "sidas" + } + } ; + +oper estar_2 : Str -> Verbum = \estar -> + let est_ = Predef.tk 2 estar in + {s = table { + VI Infn=> est_ + "ar" ; + VI Ger => est_ + "ando" ; + VI Part => est_ + "ado" ; + VP (Pres Ind Sg P1) => est_ + "oy" ; + VP (Pres Ind Sg P2) => est_ + "ás" ; + VP (Pres Ind Sg P3) => est_ + "á" ; + VP (Pres Ind Pl P1) => est_ + "amos" ; + VP (Pres Ind Pl P2) => est_ + "áis" ; + VP (Pres Ind Pl P3) => est_ + "án" ; + VP (Pres Subj Sg P1) => est_ + "é" ; + VP (Pres Subj Sg P2) => est_ + "és" ; + VP (Pres Subj Sg P3) => est_ + "é" ; + VP (Pres Subj Pl P1) => est_ + "emos" ; + VP (Pres Subj Pl P2) => est_ + "éis" ; + VP (Pres Subj Pl P3) => est_ + "én" ; + VP (Impf Ind Sg P1) => est_ + "aba" ; + VP (Impf Ind Sg P2) => est_ + "abas" ; + VP (Impf Ind Sg P3) => est_ + "aba" ; + VP (Impf Ind Pl P1) => est_ + "ábamos" ; + VP (Impf Ind Pl P2) => est_ + "abais" ; + VP (Impf Ind Pl P3) => est_ + "aban" ; + VP (Impf Subj Sg P1) => variants {est_ + "uviera" ; est_ + "uviese"} ; + VP (Impf Subj Sg P2) => variants {est_ + "uvieras" ; est_ + "uvieses"} ; + VP (Impf Subj Sg P3) => variants {est_ + "uviera" ; est_ + "uviese"} ; + VP (Impf Subj Pl P1) => variants {est_ + "uviéramos" ; est_ + "uviésemos"} ; + VP (Impf Subj Pl P2) => variants {est_ + "uvierais" ; est_ + "uvieseis"} ; + VP (Impf Subj Pl P3) => variants {est_ + "uvieran" ; est_ + "uviesen"} ; + VP (Pret Sg P1) => est_ + "uve" ; + VP (Pret Sg P2) => est_ + "uviste" ; + VP (Pret Sg P3) => est_ + "uvo" ; + VP (Pret Pl P1) => est_ + "uvimos" ; + VP (Pret Pl P2) => est_ + "uvisteis" ; + VP (Pret Pl P3) => est_ + "uvieron" ; + VP (Fut Ind Sg P1) => est_ + "aré" ; + VP (Fut Ind Sg P2) => est_ + "arás" ; + VP (Fut Ind Sg P3) => est_ + "ará" ; + VP (Fut Ind Pl P1) => est_ + "aremos" ; + VP (Fut Ind Pl P2) => est_ + "aréis" ; + VP (Fut Ind Pl P3) => est_ + "arán" ; + VP (Fut Subj Sg P1) => est_ + "uviere" ; + VP (Fut Subj Sg P2) => est_ + "uvieres" ; + VP (Fut Subj Sg P3) => est_ + "uviere" ; + VP (Fut Subj Pl P1) => est_ + "uviéremos" ; + VP (Fut Subj Pl P2) => est_ + "uviereis" ; + VP (Fut Subj Pl P3) => est_ + "uvieren" ; + VP (Cond Sg P1) => est_ + "aría" ; + VP (Cond Sg P2) => est_ + "arías" ; + VP (Cond Sg P3) => est_ + "aría" ; + VP (Cond Pl P1) => est_ + "aríamos" ; + VP (Cond Pl P2) => est_ + "aríais" ; + VP (Cond Pl P3) => est_ + "arían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => est_ + "á" ; + VP (Imp Sg P3) => est_ + "é" ; + VP (Imp Pl P1) => est_ + "emos" ; + VP (Imp Pl P2) => est_ + "ad" ; + VP (Imp Pl P3) => est_ + "én" ; + VP (Pass Sg Masc) => est_ + "ado" ; + VP (Pass Sg Fem) => est_ + "ada" ; + VP (Pass Pl Masc) => est_ + "ados" ; + VP (Pass Pl Fem) => est_ + "adas" + } + } ; + +oper haber_3 : Str -> Verbum = \haber -> + let h_ = Predef.tk 4 haber in + {s = table { + VI Infn=> h_ + "aber" ; + VI Ger => h_ + "abiendo" ; + VI Part => h_ + "abido" ; + VP (Pres Ind Sg P1) => h_ + "e" ; + VP (Pres Ind Sg P2) => h_ + "as" ; + VP (Pres Ind Sg P3) => variants {h_ + "a"} ; ---- h_ + "ay"} ; + VP (Pres Ind Pl P1) => h_ + "emos" ; + VP (Pres Ind Pl P2) => h_ + "abéis" ; + VP (Pres Ind Pl P3) => h_ + "an" ; + VP (Pres Subj Sg P1) => h_ + "aya" ; + VP (Pres Subj Sg P2) => h_ + "ayas" ; + VP (Pres Subj Sg P3) => h_ + "aya" ; + VP (Pres Subj Pl P1) => h_ + "ayamos" ; + VP (Pres Subj Pl P2) => h_ + "ayáis" ; + VP (Pres Subj Pl P3) => h_ + "ayan" ; + VP (Impf Ind Sg P1) => h_ + "abía" ; + VP (Impf Ind Sg P2) => h_ + "abías" ; + VP (Impf Ind Sg P3) => h_ + "abía" ; + VP (Impf Ind Pl P1) => h_ + "abíamos" ; + VP (Impf Ind Pl P2) => h_ + "abíais" ; + VP (Impf Ind Pl P3) => h_ + "abían" ; + VP (Impf Subj Sg P1) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; + VP (Impf Subj Sg P2) => variants {h_ + "ubieras" ; h_ + "ubieses"} ; + VP (Impf Subj Sg P3) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; + VP (Impf Subj Pl P1) => variants {h_ + "ubiéramos" ; h_ + "ubiésemos"} ; + VP (Impf Subj Pl P2) => variants {h_ + "ubierais" ; h_ + "ubieseis"} ; + VP (Impf Subj Pl P3) => variants {h_ + "ubieran" ; h_ + "ubiesen"} ; + VP (Pret Sg P1) => h_ + "ube" ; + VP (Pret Sg P2) => h_ + "ubiste" ; + VP (Pret Sg P3) => h_ + "ubo" ; + VP (Pret Pl P1) => h_ + "ubimos" ; + VP (Pret Pl P2) => h_ + "ubisteis" ; + VP (Pret Pl P3) => h_ + "ubieron" ; + VP (Fut Ind Sg P1) => h_ + "abré" ; + VP (Fut Ind Sg P2) => h_ + "abrás" ; + VP (Fut Ind Sg P3) => h_ + "abrá" ; + VP (Fut Ind Pl P1) => h_ + "abremos" ; + VP (Fut Ind Pl P2) => h_ + "abréis" ; + VP (Fut Ind Pl P3) => h_ + "abrán" ; + VP (Fut Subj Sg P1) => h_ + "ubiere" ; + VP (Fut Subj Sg P2) => h_ + "ubieres" ; + VP (Fut Subj Sg P3) => h_ + "ubiere" ; + VP (Fut Subj Pl P1) => h_ + "ubiéremos" ; + VP (Fut Subj Pl P2) => h_ + "ubiereis" ; + VP (Fut Subj Pl P3) => h_ + "ubieren" ; + VP (Cond Sg P1) => h_ + "abría" ; + VP (Cond Sg P2) => h_ + "abrías" ; + VP (Cond Sg P3) => h_ + "abría" ; + VP (Cond Pl P1) => h_ + "abríamos" ; + VP (Cond Pl P2) => h_ + "abríais" ; + VP (Cond Pl P3) => h_ + "abrían" ; + 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) => h_ + "abido" ; + VP (Pass Sg Fem) => h_ + "abida" ; + VP (Pass Pl Masc) => h_ + "abidos" ; + VP (Pass Pl Fem) => h_ + "abidas" + } + } ; + +oper tener_4 : Str -> Verbum = \tener -> + let t_ = Predef.tk 4 tener in + {s = table { + VI Infn => t_ + "ener" ; + VI Ger => t_ + "eniendo" ; + VI Part => t_ + "enido" ; + VP (Pres Ind Sg P1) => t_ + "engo" ; + VP (Pres Ind Sg P2) => t_ + "ienes" ; + VP (Pres Ind Sg P3) => t_ + "iene" ; + VP (Pres Ind Pl P1) => t_ + "enemos" ; + VP (Pres Ind Pl P2) => t_ + "enéis" ; + VP (Pres Ind Pl P3) => t_ + "ienen" ; + VP (Pres Subj Sg P1) => t_ + "enga" ; + VP (Pres Subj Sg P2) => t_ + "engas" ; + VP (Pres Subj Sg P3) => t_ + "enga" ; + VP (Pres Subj Pl P1) => t_ + "engamos" ; + VP (Pres Subj Pl P2) => t_ + "engáis" ; + VP (Pres Subj Pl P3) => t_ + "engan" ; + VP (Impf Ind Sg P1) => t_ + "enía" ; + VP (Impf Ind Sg P2) => t_ + "enías" ; + VP (Impf Ind Sg P3) => t_ + "enía" ; + VP (Impf Ind Pl P1) => t_ + "eníamos" ; + VP (Impf Ind Pl P2) => t_ + "eníais" ; + VP (Impf Ind Pl P3) => t_ + "enían" ; + VP (Impf Subj Sg P1) => variants {t_ + "uviera" ; t_ + "uviese"} ; + VP (Impf Subj Sg P2) => variants {t_ + "uvieras" ; t_ + "uvieses"} ; + VP (Impf Subj Sg P3) => variants {t_ + "uviera" ; t_ + "uviese"} ; + VP (Impf Subj Pl P1) => variants {t_ + "uviéramos" ; t_ + "uviésemos"} ; + VP (Impf Subj Pl P2) => variants {t_ + "uvierais" ; t_ + "uvieseis"} ; + VP (Impf Subj Pl P3) => variants {t_ + "uvieran" ; t_ + "uviesen"} ; + VP (Pret Sg P1) => t_ + "uve" ; + VP (Pret Sg P2) => t_ + "uviste" ; + VP (Pret Sg P3) => t_ + "uvo" ; + VP (Pret Pl P1) => t_ + "uvimos" ; + VP (Pret Pl P2) => t_ + "uvisteis" ; + VP (Pret Pl P3) => t_ + "uvieron" ; + VP (Fut Ind Sg P1) => t_ + "endré" ; + VP (Fut Ind Sg P2) => t_ + "endrás" ; + VP (Fut Ind Sg P3) => t_ + "endrá" ; + VP (Fut Ind Pl P1) => t_ + "endremos" ; + VP (Fut Ind Pl P2) => t_ + "endréis" ; + VP (Fut Ind Pl P3) => t_ + "endrán" ; + VP (Fut Subj Sg P1) => t_ + "uviere" ; + VP (Fut Subj Sg P2) => t_ + "uvieres" ; + VP (Fut Subj Sg P3) => t_ + "uviere" ; + VP (Fut Subj Pl P1) => t_ + "uviéremos" ; + VP (Fut Subj Pl P2) => t_ + "uviereis" ; + VP (Fut Subj Pl P3) => t_ + "uvieren" ; + VP (Cond Sg P1) => t_ + "endría" ; + VP (Cond Sg P2) => t_ + "endrías" ; + VP (Cond Sg P3) => t_ + "endría" ; + VP (Cond Pl P1) => t_ + "endríamos" ; + VP (Cond Pl P2) => t_ + "endríais" ; + VP (Cond Pl P3) => t_ + "endrían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => t_ + "en" ; + VP (Imp Sg P3) => t_ + "enga" ; + VP (Imp Pl P1) => t_ + "engamos" ; + VP (Imp Pl P2) => t_ + "ened" ; + VP (Imp Pl P3) => t_ + "engan" ; + VP (Pass Sg Masc) => t_ + "enido" ; + VP (Pass Sg Fem) => t_ + "enida" ; + VP (Pass Pl Masc) => t_ + "enidos" ; + VP (Pass Pl Fem) => t_ + "enidas" + } + } ; + +oper cortar_5 : Str -> Verbum = \cortar -> + let cort_ = Predef.tk 2 cortar in + {s = table { + VI Infn => cort_ + "ar" ; + VI Ger => cort_ + "ando" ; + VI Part => cort_ + "ado" ; + VP (Pres Ind Sg P1) => cort_ + "o" ; + VP (Pres Ind Sg P2) => cort_ + "as" ; + VP (Pres Ind Sg P3) => cort_ + "a" ; + VP (Pres Ind Pl P1) => cort_ + "amos" ; + VP (Pres Ind Pl P2) => cort_ + "áis" ; + VP (Pres Ind Pl P3) => cort_ + "an" ; + VP (Pres Subj Sg P1) => cort_ + "e" ; + VP (Pres Subj Sg P2) => cort_ + "es" ; + VP (Pres Subj Sg P3) => cort_ + "e" ; + VP (Pres Subj Pl P1) => cort_ + "emos" ; + VP (Pres Subj Pl P2) => cort_ + "éis" ; + VP (Pres Subj Pl P3) => cort_ + "en" ; + VP (Impf Ind Sg P1) => cort_ + "aba" ; + VP (Impf Ind Sg P2) => cort_ + "abas" ; + VP (Impf Ind Sg P3) => cort_ + "aba" ; + VP (Impf Ind Pl P1) => cort_ + "ábamos" ; + VP (Impf Ind Pl P2) => cort_ + "abais" ; + VP (Impf Ind Pl P3) => cort_ + "aban" ; + VP (Impf Subj Sg P1) => variants {cort_ + "ara" ; cort_ + "ase"} ; + VP (Impf Subj Sg P2) => variants {cort_ + "aras" ; cort_ + "ases"} ; + VP (Impf Subj Sg P3) => variants {cort_ + "ara" ; cort_ + "ase"} ; + VP (Impf Subj Pl P1) => variants {cort_ + "áramos" ; cort_ + "ásemos"} ; + VP (Impf Subj Pl P2) => variants {cort_ + "arais" ; cort_ + "aseis"} ; + VP (Impf Subj Pl P3) => variants {cort_ + "aran" ; cort_ + "asen"} ; + VP (Pret Sg P1) => cort_ + "é" ; + VP (Pret Sg P2) => cort_ + "aste" ; + VP (Pret Sg P3) => cort_ + "ó" ; + VP (Pret Pl P1) => cort_ + "amos" ; + VP (Pret Pl P2) => cort_ + "asteis" ; + VP (Pret Pl P3) => cort_ + "aron" ; + VP (Fut Ind Sg P1) => cort_ + "aré" ; + VP (Fut Ind Sg P2) => cort_ + "arás" ; + VP (Fut Ind Sg P3) => cort_ + "ará" ; + VP (Fut Ind Pl P1) => cort_ + "aremos" ; + VP (Fut Ind Pl P2) => cort_ + "aréis" ; + VP (Fut Ind Pl P3) => cort_ + "arán" ; + VP (Fut Subj Sg P1) => cort_ + "are" ; + VP (Fut Subj Sg P2) => cort_ + "ares" ; + VP (Fut Subj Sg P3) => cort_ + "are" ; + VP (Fut Subj Pl P1) => cort_ + "áremos" ; + VP (Fut Subj Pl P2) => cort_ + "areis" ; + VP (Fut Subj Pl P3) => cort_ + "aren" ; + VP (Cond Sg P1) => cort_ + "aría" ; + VP (Cond Sg P2) => cort_ + "arías" ; + VP (Cond Sg P3) => cort_ + "aría" ; + VP (Cond Pl P1) => cort_ + "aríamos" ; + VP (Cond Pl P2) => cort_ + "aríais" ; + VP (Cond Pl P3) => cort_ + "arían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => cort_ + "a" ; + VP (Imp Sg P3) => cort_ + "e" ; + VP (Imp Pl P1) => cort_ + "emos" ; + VP (Imp Pl P2) => cort_ + "ad" ; + VP (Imp Pl P3) => cort_ + "en" ; + VP (Pass Sg Masc) => cort_ + "ado" ; + VP (Pass Sg Fem) => cort_ + "ada" ; + VP (Pass Pl Masc) => cort_ + "ados" ; + VP (Pass Pl Fem) => cort_ + "adas" + } + } ; + + +oper deber_6 : Str -> Verbum = \deber -> + let deb_ = Predef.tk 2 deber in + {s = table { + VI Infn => deb_ + "er" ; + VI Ger => deb_ + "iendo" ; + VI Part => deb_ + "ido" ; + VP (Pres Ind Sg P1) => deb_ + "o" ; + VP (Pres Ind Sg P2) => deb_ + "es" ; + VP (Pres Ind Sg P3) => deb_ + "e" ; + VP (Pres Ind Pl P1) => deb_ + "emos" ; + VP (Pres Ind Pl P2) => deb_ + "éis" ; + VP (Pres Ind Pl P3) => deb_ + "en" ; + VP (Pres Subj Sg P1) => deb_ + "a" ; + VP (Pres Subj Sg P2) => deb_ + "as" ; + VP (Pres Subj Sg P3) => deb_ + "a" ; + VP (Pres Subj Pl P1) => deb_ + "amos" ; + VP (Pres Subj Pl P2) => deb_ + "áis" ; + VP (Pres Subj Pl P3) => deb_ + "an" ; + VP (Impf Ind Sg P1) => deb_ + "ía" ; + VP (Impf Ind Sg P2) => deb_ + "ías" ; + VP (Impf Ind Sg P3) => deb_ + "ía" ; + VP (Impf Ind Pl P1) => deb_ + "íamos" ; + VP (Impf Ind Pl P2) => deb_ + "íais" ; + VP (Impf Ind Pl P3) => deb_ + "ían" ; + VP (Impf Subj Sg P1) => variants {deb_ + "iera" ; deb_ + "iese"} ; + VP (Impf Subj Sg P2) => variants {deb_ + "ieras" ; deb_ + "ieses"} ; + VP (Impf Subj Sg P3) => variants {deb_ + "iera" ; deb_ + "iese"} ; + VP (Impf Subj Pl P1) => variants {deb_ + "iéramos" ; deb_ + "iésemos"} ; + VP (Impf Subj Pl P2) => variants {deb_ + "ierais" ; deb_ + "ieseis"} ; + VP (Impf Subj Pl P3) => variants {deb_ + "ieran" ; deb_ + "iesen"} ; + VP (Pret Sg P1) => deb_ + "í" ; + VP (Pret Sg P2) => deb_ + "iste" ; + VP (Pret Sg P3) => deb_ + "ió" ; + VP (Pret Pl P1) => deb_ + "imos" ; + VP (Pret Pl P2) => deb_ + "isteis" ; + VP (Pret Pl P3) => deb_ + "ieron" ; + VP (Fut Ind Sg P1) => deb_ + "eré" ; + VP (Fut Ind Sg P2) => deb_ + "erás" ; + VP (Fut Ind Sg P3) => deb_ + "erá" ; + VP (Fut Ind Pl P1) => deb_ + "eremos" ; + VP (Fut Ind Pl P2) => deb_ + "eréis" ; + VP (Fut Ind Pl P3) => deb_ + "erán" ; + VP (Fut Subj Sg P1) => deb_ + "iere" ; + VP (Fut Subj Sg P2) => deb_ + "ieres" ; + VP (Fut Subj Sg P3) => deb_ + "iere" ; + VP (Fut Subj Pl P1) => deb_ + "iéremos" ; + VP (Fut Subj Pl P2) => deb_ + "iereis" ; + VP (Fut Subj Pl P3) => deb_ + "ieren" ; + VP (Cond Sg P1) => deb_ + "ería" ; + VP (Cond Sg P2) => deb_ + "erías" ; + VP (Cond Sg P3) => deb_ + "ería" ; + VP (Cond Pl P1) => deb_ + "eríamos" ; + VP (Cond Pl P2) => deb_ + "eríais" ; + VP (Cond Pl P3) => deb_ + "erían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => deb_ + "e" ; + VP (Imp Sg P3) => deb_ + "a" ; + VP (Imp Pl P1) => deb_ + "amos" ; + VP (Imp Pl P2) => deb_ + "ed" ; + VP (Imp Pl P3) => deb_ + "an" ; + VP (Pass Sg Masc) => deb_ + "ido" ; + VP (Pass Sg Fem) => deb_ + "ida" ; + VP (Pass Pl Masc) => deb_ + "idos" ; + VP (Pass Pl Fem) => deb_ + "idas" + } + } ; +oper vivir_7 : Str -> Verbum = \vivir -> + let viv_ = Predef.tk 2 vivir in + {s = table { + VI Infn => viv_ + "ir" ; + VI Ger => viv_ + "iendo" ; + VI Part => viv_ + "ido" ; + VP (Pres Ind Sg P1) => viv_ + "o" ; + VP (Pres Ind Sg P2) => viv_ + "es" ; + VP (Pres Ind Sg P3) => viv_ + "e" ; + VP (Pres Ind Pl P1) => viv_ + "imos" ; + VP (Pres Ind Pl P2) => viv_ + "ís" ; + VP (Pres Ind Pl P3) => viv_ + "en" ; + VP (Pres Subj Sg P1) => viv_ + "a" ; + VP (Pres Subj Sg P2) => viv_ + "as" ; + VP (Pres Subj Sg P3) => viv_ + "a" ; + VP (Pres Subj Pl P1) => viv_ + "amos" ; + VP (Pres Subj Pl P2) => viv_ + "áis" ; + VP (Pres Subj Pl P3) => viv_ + "an" ; + VP (Impf Ind Sg P1) => viv_ + "ía" ; + VP (Impf Ind Sg P2) => viv_ + "ías" ; + VP (Impf Ind Sg P3) => viv_ + "ía" ; + VP (Impf Ind Pl P1) => viv_ + "íamos" ; + VP (Impf Ind Pl P2) => viv_ + "íais" ; + VP (Impf Ind Pl P3) => viv_ + "ían" ; + VP (Impf Subj Sg P1) => variants {viv_ + "iera" ; viv_ + "iese"} ; + VP (Impf Subj Sg P2) => variants {viv_ + "ieras" ; viv_ + "ieses"} ; + VP (Impf Subj Sg P3) => variants {viv_ + "iera" ; viv_ + "iese"} ; + VP (Impf Subj Pl P1) => variants {viv_ + "iéramos" ; viv_ + "iésemos"} ; + VP (Impf Subj Pl P2) => variants {viv_ + "ierais" ; viv_ + "ieseis"} ; + VP (Impf Subj Pl P3) => variants {viv_ + "ieran" ; viv_ + "iesen"} ; + VP (Pret Sg P1) => viv_ + "í" ; + VP (Pret Sg P2) => viv_ + "iste" ; + VP (Pret Sg P3) => viv_ + "ió" ; + VP (Pret Pl P1) => viv_ + "imos" ; + VP (Pret Pl P2) => viv_ + "isteis" ; + VP (Pret Pl P3) => viv_ + "ieron" ; + VP (Fut Ind Sg P1) => viv_ + "iré" ; + VP (Fut Ind Sg P2) => viv_ + "irás" ; + VP (Fut Ind Sg P3) => viv_ + "irá" ; + VP (Fut Ind Pl P1) => viv_ + "iremos" ; + VP (Fut Ind Pl P2) => viv_ + "iréis" ; + VP (Fut Ind Pl P3) => viv_ + "irán" ; + VP (Fut Subj Sg P1) => viv_ + "iere" ; + VP (Fut Subj Sg P2) => viv_ + "ieres" ; + VP (Fut Subj Sg P3) => viv_ + "iere" ; + VP (Fut Subj Pl P1) => viv_ + "iéremos" ; + VP (Fut Subj Pl P2) => viv_ + "iereis" ; + VP (Fut Subj Pl P3) => viv_ + "ieren" ; + VP (Cond Sg P1) => viv_ + "iría" ; + VP (Cond Sg P2) => viv_ + "irías" ; + VP (Cond Sg P3) => viv_ + "iría" ; + VP (Cond Pl P1) => viv_ + "iríamos" ; + VP (Cond Pl P2) => viv_ + "iríais" ; + VP (Cond Pl P3) => viv_ + "irían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => viv_ + "e" ; + VP (Imp Sg P3) => viv_ + "a" ; + VP (Imp Pl P1) => viv_ + "amos" ; + VP (Imp Pl P2) => viv_ + "id" ; + VP (Imp Pl P3) => viv_ + "an" ; + VP (Pass Sg Masc) => viv_ + "ido" ; + VP (Pass Sg Fem) => viv_ + "ida" ; + VP (Pass Pl Masc) => viv_ + "idos" ; + VP (Pass Pl Fem) => viv_ + "idas" + } + } ; +oper abolir_8 : Str -> Verbum = \abolir -> + let abol_ = Predef.tk 2 abolir in + {s = table { + VI Infn => abol_ + "ir" ; + VI Ger => abol_ + "iendo" ; + VI Part => abol_ + "ido" ; + VP (Pres Ind Sg P1) => variants {} ; + VP (Pres Ind Sg P2) => variants {} ; + VP (Pres Ind Sg P3) => variants {} ; + VP (Pres Ind Pl P1) => abol_ + "imos" ; + VP (Pres Ind Pl P2) => abol_ + "ís" ; + VP (Pres Ind Pl P3) => variants {} ; + VP (Pres Subj Sg P1) => variants {} ; + VP (Pres Subj Sg P2) => variants {} ; + VP (Pres Subj Sg P3) => variants {} ; + VP (Pres Subj Pl P1) => variants {} ; + VP (Pres Subj Pl P2) => variants {} ; + VP (Pres Subj Pl P3) => variants {} ; + VP (Impf Ind Sg P1) => abol_ + "ía" ; + VP (Impf Ind Sg P2) => abol_ + "ías" ; + VP (Impf Ind Sg P3) => abol_ + "ía" ; + VP (Impf Ind Pl P1) => abol_ + "íamos" ; + VP (Impf Ind Pl P2) => abol_ + "íais" ; + VP (Impf Ind Pl P3) => abol_ + "ían" ; + VP (Impf Subj Sg P1) => variants {abol_ + "iera" ; abol_ + "iese"} ; + VP (Impf Subj Sg P2) => variants {abol_ + "ieras" ; abol_ + "ieses"} ; + VP (Impf Subj Sg P3) => variants {abol_ + "iera" ; abol_ + "iese"} ; + VP (Impf Subj Pl P1) => variants {abol_ + "iéramos" ; abol_ + "iésemos"} ; + VP (Impf Subj Pl P2) => variants {abol_ + "ierais" ; abol_ + "ieseis"} ; + VP (Impf Subj Pl P3) => variants {abol_ + "ieran" ; abol_ + "iesen"} ; + VP (Pret Sg P1) => abol_ + "í" ; + VP (Pret Sg P2) => abol_ + "iste" ; + VP (Pret Sg P3) => abol_ + "ió" ; + VP (Pret Pl P1) => abol_ + "imos" ; + VP (Pret Pl P2) => abol_ + "isteis" ; + VP (Pret Pl P3) => abol_ + "ieron" ; + VP (Fut Ind Sg P1) => abol_ + "iré" ; + VP (Fut Ind Sg P2) => abol_ + "irás" ; + VP (Fut Ind Sg P3) => abol_ + "irá" ; + VP (Fut Ind Pl P1) => abol_ + "iremos" ; + VP (Fut Ind Pl P2) => abol_ + "iréis" ; + VP (Fut Ind Pl P3) => abol_ + "irán" ; + VP (Fut Subj Sg P1) => abol_ + "iere" ; + VP (Fut Subj Sg P2) => abol_ + "ieres" ; + VP (Fut Subj Sg P3) => abol_ + "iere" ; + VP (Fut Subj Pl P1) => abol_ + "iéremos" ; + VP (Fut Subj Pl P2) => abol_ + "iereis" ; + VP (Fut Subj Pl P3) => abol_ + "ieren" ; + VP (Cond Sg P1) => abol_ + "iría" ; + VP (Cond Sg P2) => abol_ + "irías" ; + VP (Cond Sg P3) => abol_ + "iría" ; + VP (Cond Pl P1) => abol_ + "iríamos" ; + VP (Cond Pl P2) => abol_ + "iríais" ; + VP (Cond Pl P3) => abol_ + "irían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => variants {} ; + VP (Imp Sg P3) => variants {} ; + VP (Imp Pl P1) => variants {} ; + VP (Imp Pl P2) => abol_ + "id" ; + VP (Imp Pl P3) => variants {} ; + VP (Pass Sg Masc) => abol_ + "ido" ; + VP (Pass Sg Fem) => abol_ + "ida" ; + VP (Pass Pl Masc) => abol_ + "idos" ; + VP (Pass Pl Fem) => abol_ + "idas" + } + } ; +oper actuar_9 : Str -> Verbum = \actuar -> + let act_ = Predef.tk 3 actuar in + {s = table { + VI Infn => act_ + "uar" ; + VI Ger => act_ + "uando" ; + VI Part => act_ + "uado" ; + VP (Pres Ind Sg P1) => act_ + "úo" ; + VP (Pres Ind Sg P2) => act_ + "úas" ; + VP (Pres Ind Sg P3) => act_ + "úa" ; + VP (Pres Ind Pl P1) => act_ + "uamos" ; + VP (Pres Ind Pl P2) => act_ + "uáis" ; + VP (Pres Ind Pl P3) => act_ + "úan" ; + VP (Pres Subj Sg P1) => act_ + "úe" ; + VP (Pres Subj Sg P2) => act_ + "úes" ; + VP (Pres Subj Sg P3) => act_ + "úe" ; + VP (Pres Subj Pl P1) => act_ + "uemos" ; + VP (Pres Subj Pl P2) => act_ + "uéis" ; + VP (Pres Subj Pl P3) => act_ + "úen" ; + VP (Impf Ind Sg P1) => act_ + "uaba" ; + VP (Impf Ind Sg P2) => act_ + "uabas" ; + VP (Impf Ind Sg P3) => act_ + "uaba" ; + VP (Impf Ind Pl P1) => act_ + "uábamos" ; + VP (Impf Ind Pl P2) => act_ + "uabais" ; + VP (Impf Ind Pl P3) => act_ + "uaban" ; + VP (Impf Subj Sg P1) => variants {act_ + "uara" ; act_ + "uase"} ; + VP (Impf Subj Sg P2) => variants {act_ + "uaras" ; act_ + "uases"} ; + VP (Impf Subj Sg P3) => variants {act_ + "uara" ; act_ + "uase"} ; + VP (Impf Subj Pl P1) => variants {act_ + "uáramos" ; act_ + "uásemos"} ; + VP (Impf Subj Pl P2) => variants {act_ + "uarais" ; act_ + "uaseis"} ; + VP (Impf Subj Pl P3) => variants {act_ + "uaran" ; act_ + "uasen"} ; + VP (Pret Sg P1) => act_ + "ué" ; + VP (Pret Sg P2) => act_ + "uaste" ; + VP (Pret Sg P3) => act_ + "uó" ; + VP (Pret Pl P1) => act_ + "uamos" ; + VP (Pret Pl P2) => act_ + "uasteis" ; + VP (Pret Pl P3) => act_ + "uaron" ; + VP (Fut Ind Sg P1) => act_ + "uaré" ; + VP (Fut Ind Sg P2) => act_ + "uarás" ; + VP (Fut Ind Sg P3) => act_ + "uará" ; + VP (Fut Ind Pl P1) => act_ + "uaremos" ; + VP (Fut Ind Pl P2) => act_ + "uaréis" ; + VP (Fut Ind Pl P3) => act_ + "uarán" ; + VP (Fut Subj Sg P1) => act_ + "uare" ; + VP (Fut Subj Sg P2) => act_ + "uares" ; + VP (Fut Subj Sg P3) => act_ + "uare" ; + VP (Fut Subj Pl P1) => act_ + "uáremos" ; + VP (Fut Subj Pl P2) => act_ + "uareis" ; + VP (Fut Subj Pl P3) => act_ + "uaren" ; + VP (Cond Sg P1) => act_ + "uaría" ; + VP (Cond Sg P2) => act_ + "uarías" ; + VP (Cond Sg P3) => act_ + "uaría" ; + VP (Cond Pl P1) => act_ + "uaríamos" ; + VP (Cond Pl P2) => act_ + "uaríais" ; + VP (Cond Pl P3) => act_ + "uarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => act_ + "úa" ; + VP (Imp Sg P3) => act_ + "úe" ; + VP (Imp Pl P1) => act_ + "uemos" ; + VP (Imp Pl P2) => act_ + "uad" ; + VP (Imp Pl P3) => act_ + "úen" ; + VP (Pass Sg Masc) => act_ + "uado" ; + VP (Pass Sg Fem) => act_ + "uada" ; + VP (Pass Pl Masc) => act_ + "uados" ; + VP (Pass Pl Fem) => act_ + "uadas" + } + } ; +oper adquirir_10 : Str -> Verbum = \adquirir -> + let adqui_ = Predef.tk 3 adquirir in + {s = table { + VI Infn => adqui_ + "rir" ; + VI Ger => adqui_ + "riendo" ; + VI Part => adqui_ + "rido" ; + VP (Pres Ind Sg P1) => adqui_ + "ero" ; + VP (Pres Ind Sg P2) => adqui_ + "eres" ; + VP (Pres Ind Sg P3) => adqui_ + "ere" ; + VP (Pres Ind Pl P1) => adqui_ + "rimos" ; + VP (Pres Ind Pl P2) => adqui_ + "rís" ; + VP (Pres Ind Pl P3) => adqui_ + "eren" ; + VP (Pres Subj Sg P1) => adqui_ + "era" ; + VP (Pres Subj Sg P2) => adqui_ + "eras" ; + VP (Pres Subj Sg P3) => adqui_ + "era" ; + VP (Pres Subj Pl P1) => adqui_ + "ramos" ; + VP (Pres Subj Pl P2) => adqui_ + "ráis" ; + VP (Pres Subj Pl P3) => adqui_ + "eran" ; + VP (Impf Ind Sg P1) => adqui_ + "ría" ; + VP (Impf Ind Sg P2) => adqui_ + "rías" ; + VP (Impf Ind Sg P3) => adqui_ + "ría" ; + VP (Impf Ind Pl P1) => adqui_ + "ríamos" ; + VP (Impf Ind Pl P2) => adqui_ + "ríais" ; + VP (Impf Ind Pl P3) => adqui_ + "rían" ; + VP (Impf Subj Sg P1) => variants {adqui_ + "riera" ; adqui_ + "riese"} ; + VP (Impf Subj Sg P2) => variants {adqui_ + "rieras" ; adqui_ + "rieses"} ; + VP (Impf Subj Sg P3) => variants {adqui_ + "riera" ; adqui_ + "riese"} ; + VP (Impf Subj Pl P1) => variants {adqui_ + "riéramos" ; adqui_ + "riésemos"} ; + VP (Impf Subj Pl P2) => variants {adqui_ + "rierais" ; adqui_ + "rieseis"} ; + VP (Impf Subj Pl P3) => variants {adqui_ + "rieran" ; adqui_ + "riesen"} ; + VP (Pret Sg P1) => adqui_ + "rí" ; + VP (Pret Sg P2) => adqui_ + "riste" ; + VP (Pret Sg P3) => adqui_ + "rió" ; + VP (Pret Pl P1) => adqui_ + "rimos" ; + VP (Pret Pl P2) => adqui_ + "risteis" ; + VP (Pret Pl P3) => adqui_ + "rieron" ; + VP (Fut Ind Sg P1) => adqui_ + "riré" ; + VP (Fut Ind Sg P2) => adqui_ + "rirás" ; + VP (Fut Ind Sg P3) => adqui_ + "rirá" ; + VP (Fut Ind Pl P1) => adqui_ + "riremos" ; + VP (Fut Ind Pl P2) => adqui_ + "riréis" ; + VP (Fut Ind Pl P3) => adqui_ + "rirán" ; + VP (Fut Subj Sg P1) => adqui_ + "riere" ; + VP (Fut Subj Sg P2) => adqui_ + "rieres" ; + VP (Fut Subj Sg P3) => adqui_ + "riere" ; + VP (Fut Subj Pl P1) => adqui_ + "riéremos" ; + VP (Fut Subj Pl P2) => adqui_ + "riereis" ; + VP (Fut Subj Pl P3) => adqui_ + "rieren" ; + VP (Cond Sg P1) => adqui_ + "riría" ; + VP (Cond Sg P2) => adqui_ + "rirías" ; + VP (Cond Sg P3) => adqui_ + "riría" ; + VP (Cond Pl P1) => adqui_ + "riríamos" ; + VP (Cond Pl P2) => adqui_ + "riríais" ; + VP (Cond Pl P3) => adqui_ + "rirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => adqui_ + "ere" ; + VP (Imp Sg P3) => adqui_ + "era" ; + VP (Imp Pl P1) => adqui_ + "ramos" ; + VP (Imp Pl P2) => adqui_ + "rid" ; + VP (Imp Pl P3) => adqui_ + "eran" ; + VP (Pass Sg Masc) => adqui_ + "rido" ; + VP (Pass Sg Fem) => adqui_ + "rida" ; + VP (Pass Pl Masc) => adqui_ + "ridos" ; + VP (Pass Pl Fem) => adqui_ + "ridas" + } + } ; +oper ahincar_11 : Str -> Verbum = \ahincar -> + let ah_ = Predef.tk 5 ahincar in + {s = table { + VI Infn => ah_ + "incar" ; + VI Ger => ah_ + "incando" ; + VI Part => ah_ + "incado" ; + VP (Pres Ind Sg P1) => ah_ + "ínco" ; + VP (Pres Ind Sg P2) => ah_ + "íncas" ; + VP (Pres Ind Sg P3) => ah_ + "ínca" ; + VP (Pres Ind Pl P1) => ah_ + "incamos" ; + VP (Pres Ind Pl P2) => ah_ + "incáis" ; + VP (Pres Ind Pl P3) => ah_ + "íncan" ; + VP (Pres Subj Sg P1) => ah_ + "ínque" ; + VP (Pres Subj Sg P2) => ah_ + "ínques" ; + VP (Pres Subj Sg P3) => ah_ + "ínque" ; + VP (Pres Subj Pl P1) => ah_ + "inquemos" ; + VP (Pres Subj Pl P2) => ah_ + "inquéis" ; + VP (Pres Subj Pl P3) => ah_ + "ínquen" ; + VP (Impf Ind Sg P1) => ah_ + "incaba" ; + VP (Impf Ind Sg P2) => ah_ + "incabas" ; + VP (Impf Ind Sg P3) => ah_ + "incaba" ; + VP (Impf Ind Pl P1) => ah_ + "incábamos" ; + VP (Impf Ind Pl P2) => ah_ + "incabais" ; + VP (Impf Ind Pl P3) => ah_ + "incaban" ; + VP (Impf Subj Sg P1) => variants {ah_ + "incara" ; ah_ + "incase"} ; + VP (Impf Subj Sg P2) => variants {ah_ + "incaras" ; ah_ + "incases"} ; + VP (Impf Subj Sg P3) => variants {ah_ + "incara" ; ah_ + "incase"} ; + VP (Impf Subj Pl P1) => variants {ah_ + "incáramos" ; ah_ + "incásemos"} ; + VP (Impf Subj Pl P2) => variants {ah_ + "incarais" ; ah_ + "incaseis"} ; + VP (Impf Subj Pl P3) => variants {ah_ + "incaran" ; ah_ + "incasen"} ; + VP (Pret Sg P1) => ah_ + "inqué" ; + VP (Pret Sg P2) => ah_ + "incaste" ; + VP (Pret Sg P3) => ah_ + "incó" ; + VP (Pret Pl P1) => ah_ + "incamos" ; + VP (Pret Pl P2) => ah_ + "incasteis" ; + VP (Pret Pl P3) => ah_ + "incaron" ; + VP (Fut Ind Sg P1) => ah_ + "incaré" ; + VP (Fut Ind Sg P2) => ah_ + "incarás" ; + VP (Fut Ind Sg P3) => ah_ + "incará" ; + VP (Fut Ind Pl P1) => ah_ + "incaremos" ; + VP (Fut Ind Pl P2) => ah_ + "incaréis" ; + VP (Fut Ind Pl P3) => ah_ + "incarán" ; + VP (Fut Subj Sg P1) => ah_ + "incare" ; + VP (Fut Subj Sg P2) => ah_ + "incares" ; + VP (Fut Subj Sg P3) => ah_ + "incare" ; + VP (Fut Subj Pl P1) => ah_ + "incáremos" ; + VP (Fut Subj Pl P2) => ah_ + "incareis" ; + VP (Fut Subj Pl P3) => ah_ + "incaren" ; + VP (Cond Sg P1) => ah_ + "incaría" ; + VP (Cond Sg P2) => ah_ + "incarías" ; + VP (Cond Sg P3) => ah_ + "incaría" ; + VP (Cond Pl P1) => ah_ + "incaríamos" ; + VP (Cond Pl P2) => ah_ + "incaríais" ; + VP (Cond Pl P3) => ah_ + "incarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => ah_ + "ínca" ; + VP (Imp Sg P3) => ah_ + "ínque" ; + VP (Imp Pl P1) => ah_ + "inquemos" ; + VP (Imp Pl P2) => ah_ + "incad" ; + VP (Imp Pl P3) => ah_ + "ínquen" ; + VP (Pass Sg Masc) => ah_ + "incado" ; + VP (Pass Sg Fem) => ah_ + "incada" ; + VP (Pass Pl Masc) => ah_ + "incados" ; + VP (Pass Pl Fem) => ah_ + "incadas" + } + } ; +oper airar_12 : Str -> Verbum = \airar -> + let a_ = Predef.tk 4 airar in + {s = table { + VI Infn => a_ + "irar" ; + VI Ger => a_ + "irando" ; + VI Part => a_ + "irado" ; + VP (Pres Ind Sg P1) => a_ + "íro" ; + VP (Pres Ind Sg P2) => a_ + "íras" ; + VP (Pres Ind Sg P3) => a_ + "íra" ; + VP (Pres Ind Pl P1) => a_ + "iramos" ; + VP (Pres Ind Pl P2) => a_ + "iráis" ; + VP (Pres Ind Pl P3) => a_ + "íran" ; + VP (Pres Subj Sg P1) => a_ + "íre" ; + VP (Pres Subj Sg P2) => a_ + "íres" ; + VP (Pres Subj Sg P3) => a_ + "íre" ; + VP (Pres Subj Pl P1) => a_ + "iremos" ; + VP (Pres Subj Pl P2) => a_ + "iréis" ; + VP (Pres Subj Pl P3) => a_ + "íren" ; + VP (Impf Ind Sg P1) => a_ + "iraba" ; + VP (Impf Ind Sg P2) => a_ + "irabas" ; + VP (Impf Ind Sg P3) => a_ + "iraba" ; + VP (Impf Ind Pl P1) => a_ + "irábamos" ; + VP (Impf Ind Pl P2) => a_ + "irabais" ; + VP (Impf Ind Pl P3) => a_ + "iraban" ; + VP (Impf Subj Sg P1) => variants {a_ + "irara" ; a_ + "irase"} ; + VP (Impf Subj Sg P2) => variants {a_ + "iraras" ; a_ + "irases"} ; + VP (Impf Subj Sg P3) => variants {a_ + "irara" ; a_ + "irase"} ; + VP (Impf Subj Pl P1) => variants {a_ + "iráramos" ; a_ + "irásemos"} ; + VP (Impf Subj Pl P2) => variants {a_ + "irarais" ; a_ + "iraseis"} ; + VP (Impf Subj Pl P3) => variants {a_ + "iraran" ; a_ + "irasen"} ; + VP (Pret Sg P1) => a_ + "iré" ; + VP (Pret Sg P2) => a_ + "iraste" ; + VP (Pret Sg P3) => a_ + "iró" ; + VP (Pret Pl P1) => a_ + "iramos" ; + VP (Pret Pl P2) => a_ + "irasteis" ; + VP (Pret Pl P3) => a_ + "iraron" ; + VP (Fut Ind Sg P1) => a_ + "iraré" ; + VP (Fut Ind Sg P2) => a_ + "irarás" ; + VP (Fut Ind Sg P3) => a_ + "irará" ; + VP (Fut Ind Pl P1) => a_ + "iraremos" ; + VP (Fut Ind Pl P2) => a_ + "iraréis" ; + VP (Fut Ind Pl P3) => a_ + "irarán" ; + VP (Fut Subj Sg P1) => a_ + "irare" ; + VP (Fut Subj Sg P2) => a_ + "irares" ; + VP (Fut Subj Sg P3) => a_ + "irare" ; + VP (Fut Subj Pl P1) => a_ + "iráremos" ; + VP (Fut Subj Pl P2) => a_ + "irareis" ; + VP (Fut Subj Pl P3) => a_ + "iraren" ; + VP (Cond Sg P1) => a_ + "iraría" ; + VP (Cond Sg P2) => a_ + "irarías" ; + VP (Cond Sg P3) => a_ + "iraría" ; + VP (Cond Pl P1) => a_ + "iraríamos" ; + VP (Cond Pl P2) => a_ + "iraríais" ; + VP (Cond Pl P3) => a_ + "irarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => a_ + "íra" ; + VP (Imp Sg P3) => a_ + "íre" ; + VP (Imp Pl P1) => a_ + "iremos" ; + VP (Imp Pl P2) => a_ + "irad" ; + VP (Imp Pl P3) => a_ + "íren" ; + VP (Pass Sg Masc) => a_ + "irado" ; + VP (Pass Sg Fem) => a_ + "irada" ; + VP (Pass Pl Masc) => a_ + "irados" ; + VP (Pass Pl Fem) => a_ + "iradas" + } + } ; +oper andar_13 : Str -> Verbum = \andar -> + let and_ = Predef.tk 2 andar in + {s = table { + VI Infn => and_ + "ar" ; + VI Ger => and_ + "ando" ; + VI Part => and_ + "ado" ; + VP (Pres Ind Sg P1) => and_ + "o" ; + VP (Pres Ind Sg P2) => and_ + "as" ; + VP (Pres Ind Sg P3) => and_ + "a" ; + VP (Pres Ind Pl P1) => and_ + "amos" ; + VP (Pres Ind Pl P2) => and_ + "áis" ; + VP (Pres Ind Pl P3) => and_ + "an" ; + VP (Pres Subj Sg P1) => and_ + "e" ; + VP (Pres Subj Sg P2) => and_ + "es" ; + VP (Pres Subj Sg P3) => and_ + "e" ; + VP (Pres Subj Pl P1) => and_ + "emos" ; + VP (Pres Subj Pl P2) => and_ + "éis" ; + VP (Pres Subj Pl P3) => and_ + "en" ; + VP (Impf Ind Sg P1) => and_ + "aba" ; + VP (Impf Ind Sg P2) => and_ + "abas" ; + VP (Impf Ind Sg P3) => and_ + "aba" ; + VP (Impf Ind Pl P1) => and_ + "ábamos" ; + VP (Impf Ind Pl P2) => and_ + "abais" ; + VP (Impf Ind Pl P3) => and_ + "aban" ; + VP (Impf Subj Sg P1) => variants {and_ + "uviera" ; and_ + "uviese"} ; + VP (Impf Subj Sg P2) => variants {and_ + "uvieras" ; and_ + "uvieses"} ; + VP (Impf Subj Sg P3) => variants {and_ + "uviera" ; and_ + "uviese"} ; + VP (Impf Subj Pl P1) => variants {and_ + "uviéramos" ; and_ + "uviésemos"} ; + VP (Impf Subj Pl P2) => variants {and_ + "uvierais" ; and_ + "uvieseis"} ; + VP (Impf Subj Pl P3) => variants {and_ + "uvieran" ; and_ + "uviesen"} ; + VP (Pret Sg P1) => and_ + "uve" ; + VP (Pret Sg P2) => and_ + "uviste" ; + VP (Pret Sg P3) => and_ + "uvo" ; + VP (Pret Pl P1) => and_ + "uvimos" ; + VP (Pret Pl P2) => and_ + "uvisteis" ; + VP (Pret Pl P3) => and_ + "uvieron" ; + VP (Fut Ind Sg P1) => and_ + "aré" ; + VP (Fut Ind Sg P2) => and_ + "arás" ; + VP (Fut Ind Sg P3) => and_ + "ará" ; + VP (Fut Ind Pl P1) => and_ + "aremos" ; + VP (Fut Ind Pl P2) => and_ + "aréis" ; + VP (Fut Ind Pl P3) => and_ + "arán" ; + VP (Fut Subj Sg P1) => and_ + "uviere" ; + VP (Fut Subj Sg P2) => and_ + "uvieres" ; + VP (Fut Subj Sg P3) => and_ + "uviere" ; + VP (Fut Subj Pl P1) => and_ + "uviéremos" ; + VP (Fut Subj Pl P2) => and_ + "uviereis" ; + VP (Fut Subj Pl P3) => and_ + "uvieren" ; + VP (Cond Sg P1) => and_ + "aría" ; + VP (Cond Sg P2) => and_ + "arías" ; + VP (Cond Sg P3) => and_ + "aría" ; + VP (Cond Pl P1) => and_ + "aríamos" ; + VP (Cond Pl P2) => and_ + "aríais" ; + VP (Cond Pl P3) => and_ + "arían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => and_ + "a" ; + VP (Imp Sg P3) => and_ + "e" ; + VP (Imp Pl P1) => and_ + "emos" ; + VP (Imp Pl P2) => and_ + "ad" ; + VP (Imp Pl P3) => and_ + "en" ; + VP (Pass Sg Masc) => and_ + "ado" ; + VP (Pass Sg Fem) => and_ + "ada" ; + VP (Pass Pl Masc) => and_ + "ados" ; + VP (Pass Pl Fem) => and_ + "adas" + } + } ; +oper asir_14 : Str -> Verbum = \asir -> + let as_ = Predef.tk 2 asir in + {s = table { + VI Infn => as_ + "ir" ; + VI Ger => as_ + "iendo" ; + VI Part => as_ + "ido" ; + VP (Pres Ind Sg P1) => as_ + "go" ; + VP (Pres Ind Sg P2) => as_ + "es" ; + VP (Pres Ind Sg P3) => as_ + "e" ; + VP (Pres Ind Pl P1) => as_ + "imos" ; + VP (Pres Ind Pl P2) => as_ + "ís" ; + VP (Pres Ind Pl P3) => as_ + "en" ; + VP (Pres Subj Sg P1) => as_ + "ga" ; + VP (Pres Subj Sg P2) => as_ + "gas" ; + VP (Pres Subj Sg P3) => as_ + "ga" ; + VP (Pres Subj Pl P1) => as_ + "gamos" ; + VP (Pres Subj Pl P2) => as_ + "gáis" ; + VP (Pres Subj Pl P3) => as_ + "gan" ; + VP (Impf Ind Sg P1) => as_ + "ía" ; + VP (Impf Ind Sg P2) => as_ + "ías" ; + VP (Impf Ind Sg P3) => as_ + "ía" ; + VP (Impf Ind Pl P1) => as_ + "íamos" ; + VP (Impf Ind Pl P2) => as_ + "íais" ; + VP (Impf Ind Pl P3) => as_ + "ían" ; + VP (Impf Subj Sg P1) => variants {as_ + "iera" ; as_ + "iese"} ; + VP (Impf Subj Sg P2) => variants {as_ + "ieras" ; as_ + "ieses"} ; + VP (Impf Subj Sg P3) => variants {as_ + "iera" ; as_ + "iese"} ; + VP (Impf Subj Pl P1) => variants {as_ + "iéramos" ; as_ + "iésemos"} ; + VP (Impf Subj Pl P2) => variants {as_ + "ierais" ; as_ + "ieseis"} ; + VP (Impf Subj Pl P3) => variants {as_ + "ieran" ; as_ + "iesen"} ; + VP (Pret Sg P1) => as_ + "í" ; + VP (Pret Sg P2) => as_ + "iste" ; + VP (Pret Sg P3) => as_ + "ió" ; + VP (Pret Pl P1) => as_ + "imos" ; + VP (Pret Pl P2) => as_ + "isteis" ; + VP (Pret Pl P3) => as_ + "ieron" ; + VP (Fut Ind Sg P1) => as_ + "iré" ; + VP (Fut Ind Sg P2) => as_ + "irás" ; + VP (Fut Ind Sg P3) => as_ + "irá" ; + VP (Fut Ind Pl P1) => as_ + "iremos" ; + VP (Fut Ind Pl P2) => as_ + "iréis" ; + VP (Fut Ind Pl P3) => as_ + "irán" ; + VP (Fut Subj Sg P1) => as_ + "iere" ; + VP (Fut Subj Sg P2) => as_ + "ieres" ; + VP (Fut Subj Sg P3) => as_ + "iere" ; + VP (Fut Subj Pl P1) => as_ + "iéremos" ; + VP (Fut Subj Pl P2) => as_ + "iereis" ; + VP (Fut Subj Pl P3) => as_ + "ieren" ; + VP (Cond Sg P1) => as_ + "iría" ; + VP (Cond Sg P2) => as_ + "irías" ; + VP (Cond Sg P3) => as_ + "iría" ; + VP (Cond Pl P1) => as_ + "iríamos" ; + VP (Cond Pl P2) => as_ + "iríais" ; + VP (Cond Pl P3) => as_ + "irían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => as_ + "e" ; + VP (Imp Sg P3) => as_ + "ga" ; + VP (Imp Pl P1) => as_ + "gamos" ; + VP (Imp Pl P2) => as_ + "id" ; + VP (Imp Pl P3) => as_ + "gan" ; + VP (Pass Sg Masc) => as_ + "ido" ; + VP (Pass Sg Fem) => as_ + "ida" ; + VP (Pass Pl Masc) => as_ + "idos" ; + VP (Pass Pl Fem) => as_ + "idas" + } + } ; +oper aullar_15 : Str -> Verbum = \aullar -> + let a_ = Predef.tk 5 aullar in + {s = table { + VI Infn => a_ + "ullar" ; + VI Ger => a_ + "ullando" ; + VI Part => a_ + "ullado" ; + VP (Pres Ind Sg P1) => a_ + "úllo" ; + VP (Pres Ind Sg P2) => a_ + "úllas" ; + VP (Pres Ind Sg P3) => a_ + "úlla" ; + VP (Pres Ind Pl P1) => a_ + "ullamos" ; + VP (Pres Ind Pl P2) => a_ + "ulláis" ; + VP (Pres Ind Pl P3) => a_ + "úllan" ; + VP (Pres Subj Sg P1) => a_ + "úlle" ; + VP (Pres Subj Sg P2) => a_ + "úlles" ; + VP (Pres Subj Sg P3) => a_ + "úlle" ; + VP (Pres Subj Pl P1) => a_ + "ullemos" ; + VP (Pres Subj Pl P2) => a_ + "ulléis" ; + VP (Pres Subj Pl P3) => a_ + "úllen" ; + VP (Impf Ind Sg P1) => a_ + "ullaba" ; + VP (Impf Ind Sg P2) => a_ + "ullabas" ; + VP (Impf Ind Sg P3) => a_ + "ullaba" ; + VP (Impf Ind Pl P1) => a_ + "ullábamos" ; + VP (Impf Ind Pl P2) => a_ + "ullabais" ; + VP (Impf Ind Pl P3) => a_ + "ullaban" ; + VP (Impf Subj Sg P1) => variants {a_ + "ullara" ; a_ + "ullase"} ; + VP (Impf Subj Sg P2) => variants {a_ + "ullaras" ; a_ + "ullases"} ; + VP (Impf Subj Sg P3) => variants {a_ + "ullara" ; a_ + "ullase"} ; + VP (Impf Subj Pl P1) => variants {a_ + "ulláramos" ; a_ + "ullásemos"} ; + VP (Impf Subj Pl P2) => variants {a_ + "ullarais" ; a_ + "ullaseis"} ; + VP (Impf Subj Pl P3) => variants {a_ + "ullaran" ; a_ + "ullasen"} ; + VP (Pret Sg P1) => a_ + "ullé" ; + VP (Pret Sg P2) => a_ + "ullaste" ; + VP (Pret Sg P3) => a_ + "ulló" ; + VP (Pret Pl P1) => a_ + "ullamos" ; + VP (Pret Pl P2) => a_ + "ullasteis" ; + VP (Pret Pl P3) => a_ + "ullaron" ; + VP (Fut Ind Sg P1) => a_ + "ullaré" ; + VP (Fut Ind Sg P2) => a_ + "ullarás" ; + VP (Fut Ind Sg P3) => a_ + "ullará" ; + VP (Fut Ind Pl P1) => a_ + "ullaremos" ; + VP (Fut Ind Pl P2) => a_ + "ullaréis" ; + VP (Fut Ind Pl P3) => a_ + "ullarán" ; + VP (Fut Subj Sg P1) => a_ + "ullare" ; + VP (Fut Subj Sg P2) => a_ + "ullares" ; + VP (Fut Subj Sg P3) => a_ + "ullare" ; + VP (Fut Subj Pl P1) => a_ + "ulláremos" ; + VP (Fut Subj Pl P2) => a_ + "ullareis" ; + VP (Fut Subj Pl P3) => a_ + "ullaren" ; + VP (Cond Sg P1) => a_ + "ullaría" ; + VP (Cond Sg P2) => a_ + "ullarías" ; + VP (Cond Sg P3) => a_ + "ullaría" ; + VP (Cond Pl P1) => a_ + "ullaríamos" ; + VP (Cond Pl P2) => a_ + "ullaríais" ; + VP (Cond Pl P3) => a_ + "ullarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => a_ + "úlla" ; + VP (Imp Sg P3) => a_ + "úlle" ; + VP (Imp Pl P1) => a_ + "ullemos" ; + VP (Imp Pl P2) => a_ + "ullad" ; + VP (Imp Pl P3) => a_ + "úllen" ; + VP (Pass Sg Masc) => a_ + "ullado" ; + VP (Pass Sg Fem) => a_ + "ullada" ; + VP (Pass Pl Masc) => a_ + "ullados" ; + VP (Pass Pl Fem) => a_ + "ulladas" + } + } ; +oper avergonzar_16 : Str -> Verbum = \avergonzar -> + let averg_ = Predef.tk 5 avergonzar in + {s = table { + VI Infn => averg_ + "onzar" ; + VI Ger => averg_ + "onzando" ; + VI Part => averg_ + "onzado" ; + VP (Pres Ind Sg P1) => averg_ + "üenzo" ; + VP (Pres Ind Sg P2) => averg_ + "üenzas" ; + VP (Pres Ind Sg P3) => averg_ + "üenza" ; + VP (Pres Ind Pl P1) => averg_ + "onzamos" ; + VP (Pres Ind Pl P2) => averg_ + "onzáis" ; + VP (Pres Ind Pl P3) => averg_ + "üenzan" ; + VP (Pres Subj Sg P1) => averg_ + "üence" ; + VP (Pres Subj Sg P2) => averg_ + "üences" ; + VP (Pres Subj Sg P3) => averg_ + "üence" ; + VP (Pres Subj Pl P1) => averg_ + "oncemos" ; + VP (Pres Subj Pl P2) => averg_ + "oncéis" ; + VP (Pres Subj Pl P3) => averg_ + "üencen" ; + VP (Impf Ind Sg P1) => averg_ + "onzaba" ; + VP (Impf Ind Sg P2) => averg_ + "onzabas" ; + VP (Impf Ind Sg P3) => averg_ + "onzaba" ; + VP (Impf Ind Pl P1) => averg_ + "onzábamos" ; + VP (Impf Ind Pl P2) => averg_ + "onzabais" ; + VP (Impf Ind Pl P3) => averg_ + "onzaban" ; + VP (Impf Subj Sg P1) => variants {averg_ + "onzara" ; averg_ + "onzase"} ; + VP (Impf Subj Sg P2) => variants {averg_ + "onzaras" ; averg_ + "onzases"} ; + VP (Impf Subj Sg P3) => variants {averg_ + "onzara" ; averg_ + "onzase"} ; + VP (Impf Subj Pl P1) => variants {averg_ + "onzáramos" ; averg_ + "onzásemos"} ; + VP (Impf Subj Pl P2) => variants {averg_ + "onzarais" ; averg_ + "onzaseis"} ; + VP (Impf Subj Pl P3) => variants {averg_ + "onzaran" ; averg_ + "onzasen"} ; + VP (Pret Sg P1) => averg_ + "oncé" ; + VP (Pret Sg P2) => averg_ + "onzaste" ; + VP (Pret Sg P3) => averg_ + "onzó" ; + VP (Pret Pl P1) => averg_ + "onzamos" ; + VP (Pret Pl P2) => averg_ + "onzasteis" ; + VP (Pret Pl P3) => averg_ + "onzaron" ; + VP (Fut Ind Sg P1) => averg_ + "onzaré" ; + VP (Fut Ind Sg P2) => averg_ + "onzarás" ; + VP (Fut Ind Sg P3) => averg_ + "onzará" ; + VP (Fut Ind Pl P1) => averg_ + "onzaremos" ; + VP (Fut Ind Pl P2) => averg_ + "onzaréis" ; + VP (Fut Ind Pl P3) => averg_ + "onzarán" ; + VP (Fut Subj Sg P1) => averg_ + "onzare" ; + VP (Fut Subj Sg P2) => averg_ + "onzares" ; + VP (Fut Subj Sg P3) => averg_ + "onzare" ; + VP (Fut Subj Pl P1) => averg_ + "onzáremos" ; + VP (Fut Subj Pl P2) => averg_ + "onzareis" ; + VP (Fut Subj Pl P3) => averg_ + "onzaren" ; + VP (Cond Sg P1) => averg_ + "onzaría" ; + VP (Cond Sg P2) => averg_ + "onzarías" ; + VP (Cond Sg P3) => averg_ + "onzaría" ; + VP (Cond Pl P1) => averg_ + "onzaríamos" ; + VP (Cond Pl P2) => averg_ + "onzaríais" ; + VP (Cond Pl P3) => averg_ + "onzarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => averg_ + "üenza" ; + VP (Imp Sg P3) => averg_ + "üence" ; + VP (Imp Pl P1) => averg_ + "oncemos" ; + VP (Imp Pl P2) => averg_ + "onzad" ; + VP (Imp Pl P3) => averg_ + "üencen" ; + VP (Pass Sg Masc) => averg_ + "onzado" ; + VP (Pass Sg Fem) => averg_ + "onzada" ; + VP (Pass Pl Masc) => averg_ + "onzados" ; + VP (Pass Pl Fem) => averg_ + "onzadas" + } + } ; +oper averiguar_17 : Str -> Verbum = \averiguar -> + let averig_ = Predef.tk 3 averiguar in + {s = table { + VI Infn => averig_ + "uar" ; + VI Ger => averig_ + "uando" ; + VI Part => averig_ + "uado" ; + VP (Pres Ind Sg P1) => averig_ + "uo" ; + VP (Pres Ind Sg P2) => averig_ + "uas" ; + VP (Pres Ind Sg P3) => averig_ + "ua" ; + VP (Pres Ind Pl P1) => averig_ + "uamos" ; + VP (Pres Ind Pl P2) => averig_ + "uáis" ; + VP (Pres Ind Pl P3) => averig_ + "uan" ; + VP (Pres Subj Sg P1) => averig_ + "üe" ; + VP (Pres Subj Sg P2) => averig_ + "ües" ; + VP (Pres Subj Sg P3) => averig_ + "üe" ; + VP (Pres Subj Pl P1) => averig_ + "üemos" ; + VP (Pres Subj Pl P2) => averig_ + "üéis" ; + VP (Pres Subj Pl P3) => averig_ + "üen" ; + VP (Impf Ind Sg P1) => averig_ + "uaba" ; + VP (Impf Ind Sg P2) => averig_ + "uabas" ; + VP (Impf Ind Sg P3) => averig_ + "uaba" ; + VP (Impf Ind Pl P1) => averig_ + "uábamos" ; + VP (Impf Ind Pl P2) => averig_ + "uabais" ; + VP (Impf Ind Pl P3) => averig_ + "uaban" ; + VP (Impf Subj Sg P1) => variants {averig_ + "uara" ; averig_ + "uase"} ; + VP (Impf Subj Sg P2) => variants {averig_ + "uaras" ; averig_ + "uases"} ; + VP (Impf Subj Sg P3) => variants {averig_ + "uara" ; averig_ + "uase"} ; + VP (Impf Subj Pl P1) => variants {averig_ + "uáramos" ; averig_ + "uásemos"} ; + VP (Impf Subj Pl P2) => variants {averig_ + "uarais" ; averig_ + "uaseis"} ; + VP (Impf Subj Pl P3) => variants {averig_ + "uaran" ; averig_ + "uasen"} ; + VP (Pret Sg P1) => averig_ + "üé" ; + VP (Pret Sg P2) => averig_ + "uaste" ; + VP (Pret Sg P3) => averig_ + "uó" ; + VP (Pret Pl P1) => averig_ + "uamos" ; + VP (Pret Pl P2) => averig_ + "uasteis" ; + VP (Pret Pl P3) => averig_ + "uaron" ; + VP (Fut Ind Sg P1) => averig_ + "uaré" ; + VP (Fut Ind Sg P2) => averig_ + "uarás" ; + VP (Fut Ind Sg P3) => averig_ + "uará" ; + VP (Fut Ind Pl P1) => averig_ + "uaremos" ; + VP (Fut Ind Pl P2) => averig_ + "uaréis" ; + VP (Fut Ind Pl P3) => averig_ + "uarán" ; + VP (Fut Subj Sg P1) => averig_ + "uare" ; + VP (Fut Subj Sg P2) => averig_ + "uares" ; + VP (Fut Subj Sg P3) => averig_ + "uare" ; + VP (Fut Subj Pl P1) => averig_ + "uáremos" ; + VP (Fut Subj Pl P2) => averig_ + "uareis" ; + VP (Fut Subj Pl P3) => averig_ + "uaren" ; + VP (Cond Sg P1) => averig_ + "uaría" ; + VP (Cond Sg P2) => averig_ + "uarías" ; + VP (Cond Sg P3) => averig_ + "uaría" ; + VP (Cond Pl P1) => averig_ + "uaríamos" ; + VP (Cond Pl P2) => averig_ + "uaríais" ; + VP (Cond Pl P3) => averig_ + "uarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => averig_ + "ua" ; + VP (Imp Sg P3) => averig_ + "üe" ; + VP (Imp Pl P1) => averig_ + "üemos" ; + VP (Imp Pl P2) => averig_ + "uad" ; + VP (Imp Pl P3) => averig_ + "üen" ; + VP (Pass Sg Masc) => averig_ + "uado" ; + VP (Pass Sg Fem) => averig_ + "uada" ; + VP (Pass Pl Masc) => averig_ + "uados" ; + VP (Pass Pl Fem) => averig_ + "uadas" + } + } ; +oper bruñir_18 : Str -> Verbum = \bruñir -> + let bruñ_ = Predef.tk 2 bruñir in + {s = table { + VI Infn => bruñ_ + "ir" ; + VI Ger => bruñ_ + "endo" ; + VI Part => bruñ_ + "ido" ; + VP (Pres Ind Sg P1) => bruñ_ + "o" ; + VP (Pres Ind Sg P2) => bruñ_ + "es" ; + VP (Pres Ind Sg P3) => bruñ_ + "e" ; + VP (Pres Ind Pl P1) => bruñ_ + "imos" ; + VP (Pres Ind Pl P2) => bruñ_ + "ís" ; + VP (Pres Ind Pl P3) => bruñ_ + "en" ; + VP (Pres Subj Sg P1) => bruñ_ + "a" ; + VP (Pres Subj Sg P2) => bruñ_ + "as" ; + VP (Pres Subj Sg P3) => bruñ_ + "a" ; + VP (Pres Subj Pl P1) => bruñ_ + "amos" ; + VP (Pres Subj Pl P2) => bruñ_ + "áis" ; + VP (Pres Subj Pl P3) => bruñ_ + "an" ; + VP (Impf Ind Sg P1) => bruñ_ + "ía" ; + VP (Impf Ind Sg P2) => bruñ_ + "ías" ; + VP (Impf Ind Sg P3) => bruñ_ + "ía" ; + VP (Impf Ind Pl P1) => bruñ_ + "íamos" ; + VP (Impf Ind Pl P2) => bruñ_ + "íais" ; + VP (Impf Ind Pl P3) => bruñ_ + "ían" ; + VP (Impf Subj Sg P1) => variants {bruñ_ + "era" ; bruñ_ + "ese"} ; + VP (Impf Subj Sg P2) => variants {bruñ_ + "eras" ; bruñ_ + "eses"} ; + VP (Impf Subj Sg P3) => variants {bruñ_ + "era" ; bruñ_ + "ese"} ; + VP (Impf Subj Pl P1) => variants {bruñ_ + "éramos" ; bruñ_ + "ésemos"} ; + VP (Impf Subj Pl P2) => variants {bruñ_ + "erais" ; bruñ_ + "eseis"} ; + VP (Impf Subj Pl P3) => variants {bruñ_ + "eran" ; bruñ_ + "esen"} ; + VP (Pret Sg P1) => bruñ_ + "í" ; + VP (Pret Sg P2) => bruñ_ + "iste" ; + VP (Pret Sg P3) => bruñ_ + "ó" ; + VP (Pret Pl P1) => bruñ_ + "imos" ; + VP (Pret Pl P2) => bruñ_ + "isteis" ; + VP (Pret Pl P3) => bruñ_ + "eron" ; + VP (Fut Ind Sg P1) => bruñ_ + "iré" ; + VP (Fut Ind Sg P2) => bruñ_ + "irás" ; + VP (Fut Ind Sg P3) => bruñ_ + "irá" ; + VP (Fut Ind Pl P1) => bruñ_ + "iremos" ; + VP (Fut Ind Pl P2) => bruñ_ + "iréis" ; + VP (Fut Ind Pl P3) => bruñ_ + "irán" ; + VP (Fut Subj Sg P1) => bruñ_ + "ere" ; + VP (Fut Subj Sg P2) => bruñ_ + "eres" ; + VP (Fut Subj Sg P3) => bruñ_ + "ere" ; + VP (Fut Subj Pl P1) => bruñ_ + "éremos" ; + VP (Fut Subj Pl P2) => bruñ_ + "ereis" ; + VP (Fut Subj Pl P3) => bruñ_ + "eren" ; + VP (Cond Sg P1) => bruñ_ + "iría" ; + VP (Cond Sg P2) => bruñ_ + "irías" ; + VP (Cond Sg P3) => bruñ_ + "iría" ; + VP (Cond Pl P1) => bruñ_ + "iríamos" ; + VP (Cond Pl P2) => bruñ_ + "iríais" ; + VP (Cond Pl P3) => bruñ_ + "irían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => bruñ_ + "e" ; + VP (Imp Sg P3) => bruñ_ + "a" ; + VP (Imp Pl P1) => bruñ_ + "amos" ; + VP (Imp Pl P2) => bruñ_ + "id" ; + VP (Imp Pl P3) => bruñ_ + "an" ; + VP (Pass Sg Masc) => bruñ_ + "ido" ; + VP (Pass Sg Fem) => bruñ_ + "ida" ; + VP (Pass Pl Masc) => bruñ_ + "idos" ; + VP (Pass Pl Fem) => bruñ_ + "idas" + } + } ; +oper caber_19 : Str -> Verbum = \caber -> + let x_ = Predef.tk 5 caber in + {s = table { + VI Infn => x_ + "caber" ; + VI Ger => x_ + "cabiendo" ; + VI Part => x_ + "cabido" ; + VP (Pres Ind Sg P1) => x_ + "quepo" ; + VP (Pres Ind Sg P2) => x_ + "cabes" ; + VP (Pres Ind Sg P3) => x_ + "cabe" ; + VP (Pres Ind Pl P1) => x_ + "cabemos" ; + VP (Pres Ind Pl P2) => x_ + "cabéis" ; + VP (Pres Ind Pl P3) => x_ + "caben" ; + VP (Pres Subj Sg P1) => x_ + "quepa" ; + VP (Pres Subj Sg P2) => x_ + "quepas" ; + VP (Pres Subj Sg P3) => x_ + "quepa" ; + VP (Pres Subj Pl P1) => x_ + "quepamos" ; + VP (Pres Subj Pl P2) => x_ + "quepáis" ; + VP (Pres Subj Pl P3) => x_ + "quepan" ; + VP (Impf Ind Sg P1) => x_ + "cabía" ; + VP (Impf Ind Sg P2) => x_ + "cabías" ; + VP (Impf Ind Sg P3) => x_ + "cabía" ; + VP (Impf Ind Pl P1) => x_ + "cabíamos" ; + VP (Impf Ind Pl P2) => x_ + "cabíais" ; + VP (Impf Ind Pl P3) => x_ + "cabían" ; + VP (Impf Subj Sg P1) => variants {x_ + "cupiera" ; x_ + "cupiese"} ; + VP (Impf Subj Sg P2) => variants {x_ + "cupieras" ; x_ + "cupieses"} ; + VP (Impf Subj Sg P3) => variants {x_ + "cupiera" ; x_ + "cupiese"} ; + VP (Impf Subj Pl P1) => variants {x_ + "cupiéramos" ; x_ + "cupiésemos"} ; + VP (Impf Subj Pl P2) => variants {x_ + "cupierais" ; x_ + "cupieseis"} ; + VP (Impf Subj Pl P3) => variants {x_ + "cupieran" ; x_ + "cupiesen"} ; + VP (Pret Sg P1) => x_ + "cupe" ; + VP (Pret Sg P2) => x_ + "cupiste" ; + VP (Pret Sg P3) => x_ + "cupo" ; + VP (Pret Pl P1) => x_ + "cupimos" ; + VP (Pret Pl P2) => x_ + "cupisteis" ; + VP (Pret Pl P3) => x_ + "cupieron" ; + VP (Fut Ind Sg P1) => x_ + "cabré" ; + VP (Fut Ind Sg P2) => x_ + "cabrás" ; + VP (Fut Ind Sg P3) => x_ + "cabrá" ; + VP (Fut Ind Pl P1) => x_ + "cabremos" ; + VP (Fut Ind Pl P2) => x_ + "cabréis" ; + VP (Fut Ind Pl P3) => x_ + "cabrán" ; + VP (Fut Subj Sg P1) => x_ + "cupiere" ; + VP (Fut Subj Sg P2) => x_ + "cupieres" ; + VP (Fut Subj Sg P3) => x_ + "cupiere" ; + VP (Fut Subj Pl P1) => x_ + "cupiéremos" ; + VP (Fut Subj Pl P2) => x_ + "cupiereis" ; + VP (Fut Subj Pl P3) => x_ + "cupieren" ; + VP (Cond Sg P1) => x_ + "cabría" ; + VP (Cond Sg P2) => x_ + "cabrías" ; + VP (Cond Sg P3) => x_ + "cabría" ; + VP (Cond Pl P1) => x_ + "cabríamos" ; + VP (Cond Pl P2) => x_ + "cabríais" ; + VP (Cond Pl P3) => x_ + "cabrían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => x_ + "cabe" ; + VP (Imp Sg P3) => x_ + "quepa" ; + VP (Imp Pl P1) => x_ + "quepamos" ; + VP (Imp Pl P2) => x_ + "cabed" ; + VP (Imp Pl P3) => x_ + "quepan" ; + VP (Pass Sg Masc) => x_ + "cabido" ; + VP (Pass Sg Fem) => x_ + "cabida" ; + VP (Pass Pl Masc) => x_ + "cabidos" ; + VP (Pass Pl Fem) => x_ + "cabidas" + } + } ; +oper caer_20 : Str -> Verbum = \caer -> + let ca_ = Predef.tk 2 caer in + {s = table { + VI Infn => ca_ + "er" ; + VI Ger => ca_ + "yendo" ; + VI Part => ca_ + "ído" ; + VP (Pres Ind Sg P1) => ca_ + "igo" ; + VP (Pres Ind Sg P2) => ca_ + "es" ; + VP (Pres Ind Sg P3) => ca_ + "e" ; + VP (Pres Ind Pl P1) => ca_ + "emos" ; + VP (Pres Ind Pl P2) => ca_ + "éis" ; + VP (Pres Ind Pl P3) => ca_ + "en" ; + VP (Pres Subj Sg P1) => ca_ + "iga" ; + VP (Pres Subj Sg P2) => ca_ + "igas" ; + VP (Pres Subj Sg P3) => ca_ + "iga" ; + VP (Pres Subj Pl P1) => ca_ + "igamos" ; + VP (Pres Subj Pl P2) => ca_ + "igáis" ; + VP (Pres Subj Pl P3) => ca_ + "igan" ; + VP (Impf Ind Sg P1) => ca_ + "ía" ; + VP (Impf Ind Sg P2) => ca_ + "ías" ; + VP (Impf Ind Sg P3) => ca_ + "ía" ; + VP (Impf Ind Pl P1) => ca_ + "íamos" ; + VP (Impf Ind Pl P2) => ca_ + "íais" ; + VP (Impf Ind Pl P3) => ca_ + "ían" ; + VP (Impf Subj Sg P1) => variants {ca_ + "yera" ; ca_ + "yese"} ; + VP (Impf Subj Sg P2) => variants {ca_ + "yeras" ; ca_ + "yeses"} ; + VP (Impf Subj Sg P3) => variants {ca_ + "yera" ; ca_ + "yese"} ; + VP (Impf Subj Pl P1) => variants {ca_ + "yéramos" ; ca_ + "yésemos"} ; + VP (Impf Subj Pl P2) => variants {ca_ + "yerais" ; ca_ + "yeseis"} ; + VP (Impf Subj Pl P3) => variants {ca_ + "yeran" ; ca_ + "yesen"} ; + VP (Pret Sg P1) => ca_ + "í" ; + VP (Pret Sg P2) => ca_ + "íste" ; + VP (Pret Sg P3) => ca_ + "yó" ; + VP (Pret Pl P1) => ca_ + "ímos" ; + VP (Pret Pl P2) => ca_ + "ísteis" ; + VP (Pret Pl P3) => ca_ + "yeron" ; + VP (Fut Ind Sg P1) => ca_ + "eré" ; + VP (Fut Ind Sg P2) => ca_ + "erás" ; + VP (Fut Ind Sg P3) => ca_ + "erá" ; + VP (Fut Ind Pl P1) => ca_ + "eremos" ; + VP (Fut Ind Pl P2) => ca_ + "eréis" ; + VP (Fut Ind Pl P3) => ca_ + "erán" ; + VP (Fut Subj Sg P1) => ca_ + "yere" ; + VP (Fut Subj Sg P2) => ca_ + "yeres" ; + VP (Fut Subj Sg P3) => ca_ + "yere" ; + VP (Fut Subj Pl P1) => ca_ + "yéremos" ; + VP (Fut Subj Pl P2) => ca_ + "yereis" ; + VP (Fut Subj Pl P3) => ca_ + "yeren" ; + VP (Cond Sg P1) => ca_ + "ería" ; + VP (Cond Sg P2) => ca_ + "erías" ; + VP (Cond Sg P3) => ca_ + "ería" ; + VP (Cond Pl P1) => ca_ + "eríamos" ; + VP (Cond Pl P2) => ca_ + "eríais" ; + VP (Cond Pl P3) => ca_ + "erían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => ca_ + "e" ; + VP (Imp Sg P3) => ca_ + "iga" ; + VP (Imp Pl P1) => ca_ + "igamos" ; + VP (Imp Pl P2) => ca_ + "ed" ; + VP (Imp Pl P3) => ca_ + "igan" ; + VP (Pass Sg Masc) => ca_ + "ído" ; + VP (Pass Sg Fem) => ca_ + "ída" ; + VP (Pass Pl Masc) => ca_ + "ídos" ; + VP (Pass Pl Fem) => ca_ + "ídas" + } + } ; +oper cazar_21 : Str -> Verbum = \cazar -> + let ca_ = Predef.tk 3 cazar in + {s = table { + VI Infn => ca_ + "zar" ; + VI Ger => ca_ + "zando" ; + VI Part => ca_ + "zado" ; + VP (Pres Ind Sg P1) => ca_ + "zo" ; + VP (Pres Ind Sg P2) => ca_ + "zas" ; + VP (Pres Ind Sg P3) => ca_ + "za" ; + VP (Pres Ind Pl P1) => ca_ + "zamos" ; + VP (Pres Ind Pl P2) => ca_ + "záis" ; + VP (Pres Ind Pl P3) => ca_ + "zan" ; + VP (Pres Subj Sg P1) => ca_ + "ce" ; + VP (Pres Subj Sg P2) => ca_ + "ces" ; + VP (Pres Subj Sg P3) => ca_ + "ce" ; + VP (Pres Subj Pl P1) => ca_ + "cemos" ; + VP (Pres Subj Pl P2) => ca_ + "céis" ; + VP (Pres Subj Pl P3) => ca_ + "cen" ; + VP (Impf Ind Sg P1) => ca_ + "zaba" ; + VP (Impf Ind Sg P2) => ca_ + "zabas" ; + VP (Impf Ind Sg P3) => ca_ + "zaba" ; + VP (Impf Ind Pl P1) => ca_ + "zábamos" ; + VP (Impf Ind Pl P2) => ca_ + "zabais" ; + VP (Impf Ind Pl P3) => ca_ + "zaban" ; + VP (Impf Subj Sg P1) => variants {ca_ + "zara" ; ca_ + "zase"} ; + VP (Impf Subj Sg P2) => variants {ca_ + "zaras" ; ca_ + "zases"} ; + VP (Impf Subj Sg P3) => variants {ca_ + "zara" ; ca_ + "zase"} ; + VP (Impf Subj Pl P1) => variants {ca_ + "záramos" ; ca_ + "zásemos"} ; + VP (Impf Subj Pl P2) => variants {ca_ + "zarais" ; ca_ + "zaseis"} ; + VP (Impf Subj Pl P3) => variants {ca_ + "zaran" ; ca_ + "zasen"} ; + VP (Pret Sg P1) => ca_ + "cé" ; + VP (Pret Sg P2) => ca_ + "zaste" ; + VP (Pret Sg P3) => ca_ + "zó" ; + VP (Pret Pl P1) => ca_ + "zamos" ; + VP (Pret Pl P2) => ca_ + "zasteis" ; + VP (Pret Pl P3) => ca_ + "zaron" ; + VP (Fut Ind Sg P1) => ca_ + "zaré" ; + VP (Fut Ind Sg P2) => ca_ + "zarás" ; + VP (Fut Ind Sg P3) => ca_ + "zará" ; + VP (Fut Ind Pl P1) => ca_ + "zaremos" ; + VP (Fut Ind Pl P2) => ca_ + "zaréis" ; + VP (Fut Ind Pl P3) => ca_ + "zarán" ; + VP (Fut Subj Sg P1) => ca_ + "zare" ; + VP (Fut Subj Sg P2) => ca_ + "zares" ; + VP (Fut Subj Sg P3) => ca_ + "zare" ; + VP (Fut Subj Pl P1) => ca_ + "záremos" ; + VP (Fut Subj Pl P2) => ca_ + "zareis" ; + VP (Fut Subj Pl P3) => ca_ + "zaren" ; + VP (Cond Sg P1) => ca_ + "zaría" ; + VP (Cond Sg P2) => ca_ + "zarías" ; + VP (Cond Sg P3) => ca_ + "zaría" ; + VP (Cond Pl P1) => ca_ + "zaríamos" ; + VP (Cond Pl P2) => ca_ + "zaríais" ; + VP (Cond Pl P3) => ca_ + "zarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => ca_ + "za" ; + VP (Imp Sg P3) => ca_ + "ce" ; + VP (Imp Pl P1) => ca_ + "cemos" ; + VP (Imp Pl P2) => ca_ + "zad" ; + VP (Imp Pl P3) => ca_ + "cen" ; + VP (Pass Sg Masc) => ca_ + "zado" ; + VP (Pass Sg Fem) => ca_ + "zada" ; + VP (Pass Pl Masc) => ca_ + "zados" ; + VP (Pass Pl Fem) => ca_ + "zadas" + } + } ; +oper cocer_22 : Str -> Verbum = \cocer -> + let c_ = Predef.tk 4 cocer in + {s = table { + VI Infn => c_ + "ocer" ; + VI Ger => c_ + "ociendo" ; + VI Part => c_ + "ocido" ; + VP (Pres Ind Sg P1) => c_ + "uezo" ; + VP (Pres Ind Sg P2) => c_ + "ueces" ; + VP (Pres Ind Sg P3) => c_ + "uece" ; + VP (Pres Ind Pl P1) => c_ + "ocemos" ; + VP (Pres Ind Pl P2) => c_ + "océis" ; + VP (Pres Ind Pl P3) => c_ + "uecen" ; + VP (Pres Subj Sg P1) => c_ + "ueza" ; + VP (Pres Subj Sg P2) => c_ + "uezas" ; + VP (Pres Subj Sg P3) => c_ + "ueza" ; + VP (Pres Subj Pl P1) => c_ + "ozamos" ; + VP (Pres Subj Pl P2) => c_ + "ozáis" ; + VP (Pres Subj Pl P3) => c_ + "uezan" ; + VP (Impf Ind Sg P1) => c_ + "ocía" ; + VP (Impf Ind Sg P2) => c_ + "ocías" ; + VP (Impf Ind Sg P3) => c_ + "ocía" ; + VP (Impf Ind Pl P1) => c_ + "ocíamos" ; + VP (Impf Ind Pl P2) => c_ + "ocíais" ; + VP (Impf Ind Pl P3) => c_ + "ocían" ; + VP (Impf Subj Sg P1) => variants {c_ + "ociera" ; c_ + "ociese"} ; + VP (Impf Subj Sg P2) => variants {c_ + "ocieras" ; c_ + "ocieses"} ; + VP (Impf Subj Sg P3) => variants {c_ + "ociera" ; c_ + "ociese"} ; + VP (Impf Subj Pl P1) => variants {c_ + "ociéramos" ; c_ + "ociésemos"} ; + VP (Impf Subj Pl P2) => variants {c_ + "ocierais" ; c_ + "ocieseis"} ; + VP (Impf Subj Pl P3) => variants {c_ + "ocieran" ; c_ + "ociesen"} ; + VP (Pret Sg P1) => c_ + "ocí" ; + VP (Pret Sg P2) => c_ + "ociste" ; + VP (Pret Sg P3) => c_ + "oció" ; + VP (Pret Pl P1) => c_ + "ocimos" ; + VP (Pret Pl P2) => c_ + "ocisteis" ; + VP (Pret Pl P3) => c_ + "ocieron" ; + VP (Fut Ind Sg P1) => c_ + "oceré" ; + VP (Fut Ind Sg P2) => c_ + "ocerás" ; + VP (Fut Ind Sg P3) => c_ + "ocerá" ; + VP (Fut Ind Pl P1) => c_ + "oceremos" ; + VP (Fut Ind Pl P2) => c_ + "oceréis" ; + VP (Fut Ind Pl P3) => c_ + "ocerán" ; + VP (Fut Subj Sg P1) => c_ + "ociere" ; + VP (Fut Subj Sg P2) => c_ + "ocieres" ; + VP (Fut Subj Sg P3) => c_ + "ociere" ; + VP (Fut Subj Pl P1) => c_ + "ociéremos" ; + VP (Fut Subj Pl P2) => c_ + "ociereis" ; + VP (Fut Subj Pl P3) => c_ + "ocieren" ; + VP (Cond Sg P1) => c_ + "ocería" ; + VP (Cond Sg P2) => c_ + "ocerías" ; + VP (Cond Sg P3) => c_ + "ocería" ; + VP (Cond Pl P1) => c_ + "oceríamos" ; + VP (Cond Pl P2) => c_ + "oceríais" ; + VP (Cond Pl P3) => c_ + "ocerían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => c_ + "uece" ; + VP (Imp Sg P3) => c_ + "ueza" ; + VP (Imp Pl P1) => c_ + "ozamos" ; + VP (Imp Pl P2) => c_ + "oced" ; + VP (Imp Pl P3) => c_ + "uezan" ; + VP (Pass Sg Masc) => c_ + "ocido" ; + VP (Pass Sg Fem) => c_ + "ocida" ; + VP (Pass Pl Masc) => c_ + "ocidos" ; + VP (Pass Pl Fem) => c_ + "ocidas" + } + } ; +oper coger_23 : Str -> Verbum = \coger -> + let co_ = Predef.tk 3 coger in + {s = table { + VI Infn => co_ + "ger" ; + VI Ger => co_ + "giendo" ; + VI Part => co_ + "gido" ; + VP (Pres Ind Sg P1) => co_ + "jo" ; + VP (Pres Ind Sg P2) => co_ + "ges" ; + VP (Pres Ind Sg P3) => co_ + "ge" ; + VP (Pres Ind Pl P1) => co_ + "gemos" ; + VP (Pres Ind Pl P2) => co_ + "géis" ; + VP (Pres Ind Pl P3) => co_ + "gen" ; + VP (Pres Subj Sg P1) => co_ + "ja" ; + VP (Pres Subj Sg P2) => co_ + "jas" ; + VP (Pres Subj Sg P3) => co_ + "ja" ; + VP (Pres Subj Pl P1) => co_ + "jamos" ; + VP (Pres Subj Pl P2) => co_ + "jáis" ; + VP (Pres Subj Pl P3) => co_ + "jan" ; + VP (Impf Ind Sg P1) => co_ + "gía" ; + VP (Impf Ind Sg P2) => co_ + "gías" ; + VP (Impf Ind Sg P3) => co_ + "gía" ; + VP (Impf Ind Pl P1) => co_ + "gíamos" ; + VP (Impf Ind Pl P2) => co_ + "gíais" ; + VP (Impf Ind Pl P3) => co_ + "gían" ; + VP (Impf Subj Sg P1) => variants {co_ + "giera" ; co_ + "giese"} ; + VP (Impf Subj Sg P2) => variants {co_ + "gieras" ; co_ + "gieses"} ; + VP (Impf Subj Sg P3) => variants {co_ + "giera" ; co_ + "giese"} ; + VP (Impf Subj Pl P1) => variants {co_ + "giéramos" ; co_ + "giésemos"} ; + VP (Impf Subj Pl P2) => variants {co_ + "gierais" ; co_ + "gieseis"} ; + VP (Impf Subj Pl P3) => variants {co_ + "gieran" ; co_ + "giesen"} ; + VP (Pret Sg P1) => co_ + "gí" ; + VP (Pret Sg P2) => co_ + "giste" ; + VP (Pret Sg P3) => co_ + "gió" ; + VP (Pret Pl P1) => co_ + "gimos" ; + VP (Pret Pl P2) => co_ + "gisteis" ; + VP (Pret Pl P3) => co_ + "gieron" ; + VP (Fut Ind Sg P1) => co_ + "geré" ; + VP (Fut Ind Sg P2) => co_ + "gerás" ; + VP (Fut Ind Sg P3) => co_ + "gerá" ; + VP (Fut Ind Pl P1) => co_ + "geremos" ; + VP (Fut Ind Pl P2) => co_ + "geréis" ; + VP (Fut Ind Pl P3) => co_ + "gerán" ; + VP (Fut Subj Sg P1) => co_ + "giere" ; + VP (Fut Subj Sg P2) => co_ + "gieres" ; + VP (Fut Subj Sg P3) => co_ + "giere" ; + VP (Fut Subj Pl P1) => co_ + "giéremos" ; + VP (Fut Subj Pl P2) => co_ + "giereis" ; + VP (Fut Subj Pl P3) => co_ + "gieren" ; + VP (Cond Sg P1) => co_ + "gería" ; + VP (Cond Sg P2) => co_ + "gerías" ; + VP (Cond Sg P3) => co_ + "gería" ; + VP (Cond Pl P1) => co_ + "geríamos" ; + VP (Cond Pl P2) => co_ + "geríais" ; + VP (Cond Pl P3) => co_ + "gerían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => co_ + "ge" ; + VP (Imp Sg P3) => co_ + "ja" ; + VP (Imp Pl P1) => co_ + "jamos" ; + VP (Imp Pl P2) => co_ + "ged" ; + VP (Imp Pl P3) => co_ + "jan" ; + VP (Pass Sg Masc) => co_ + "gido" ; + VP (Pass Sg Fem) => co_ + "gida" ; + VP (Pass Pl Masc) => co_ + "gidos" ; + VP (Pass Pl Fem) => co_ + "gidas" + } + } ; +oper colgar_24 : Str -> Verbum = \colgar -> + let c_ = Predef.tk 5 colgar in + {s = table { + VI Infn => c_ + "olgar" ; + VI Ger => c_ + "olgando" ; + VI Part => c_ + "olgado" ; + VP (Pres Ind Sg P1) => c_ + "uelgo" ; + VP (Pres Ind Sg P2) => c_ + "uelgas" ; + VP (Pres Ind Sg P3) => c_ + "uelga" ; + VP (Pres Ind Pl P1) => c_ + "olgamos" ; + VP (Pres Ind Pl P2) => c_ + "olgáis" ; + VP (Pres Ind Pl P3) => c_ + "uelgan" ; + VP (Pres Subj Sg P1) => c_ + "uelgue" ; + VP (Pres Subj Sg P2) => c_ + "uelgues" ; + VP (Pres Subj Sg P3) => c_ + "uelgue" ; + VP (Pres Subj Pl P1) => c_ + "olguemos" ; + VP (Pres Subj Pl P2) => c_ + "olguéis" ; + VP (Pres Subj Pl P3) => c_ + "uelguen" ; + VP (Impf Ind Sg P1) => c_ + "olgaba" ; + VP (Impf Ind Sg P2) => c_ + "olgabas" ; + VP (Impf Ind Sg P3) => c_ + "olgaba" ; + VP (Impf Ind Pl P1) => c_ + "olgábamos" ; + VP (Impf Ind Pl P2) => c_ + "olgabais" ; + VP (Impf Ind Pl P3) => c_ + "olgaban" ; + VP (Impf Subj Sg P1) => variants {c_ + "olgara" ; c_ + "olgase"} ; + VP (Impf Subj Sg P2) => variants {c_ + "olgaras" ; c_ + "olgases"} ; + VP (Impf Subj Sg P3) => variants {c_ + "olgara" ; c_ + "olgase"} ; + VP (Impf Subj Pl P1) => variants {c_ + "olgáramos" ; c_ + "olgásemos"} ; + VP (Impf Subj Pl P2) => variants {c_ + "olgarais" ; c_ + "olgaseis"} ; + VP (Impf Subj Pl P3) => variants {c_ + "olgaran" ; c_ + "olgasen"} ; + VP (Pret Sg P1) => c_ + "olgué" ; + VP (Pret Sg P2) => c_ + "olgaste" ; + VP (Pret Sg P3) => c_ + "olgó" ; + VP (Pret Pl P1) => c_ + "olgamos" ; + VP (Pret Pl P2) => c_ + "olgasteis" ; + VP (Pret Pl P3) => c_ + "olgaron" ; + VP (Fut Ind Sg P1) => c_ + "olgaré" ; + VP (Fut Ind Sg P2) => c_ + "olgarás" ; + VP (Fut Ind Sg P3) => c_ + "olgará" ; + VP (Fut Ind Pl P1) => c_ + "olgaremos" ; + VP (Fut Ind Pl P2) => c_ + "olgaréis" ; + VP (Fut Ind Pl P3) => c_ + "olgarán" ; + VP (Fut Subj Sg P1) => c_ + "olgare" ; + VP (Fut Subj Sg P2) => c_ + "olgares" ; + VP (Fut Subj Sg P3) => c_ + "olgare" ; + VP (Fut Subj Pl P1) => c_ + "olgáremos" ; + VP (Fut Subj Pl P2) => c_ + "olgareis" ; + VP (Fut Subj Pl P3) => c_ + "olgaren" ; + VP (Cond Sg P1) => c_ + "olgaría" ; + VP (Cond Sg P2) => c_ + "olgarías" ; + VP (Cond Sg P3) => c_ + "olgaría" ; + VP (Cond Pl P1) => c_ + "olgaríamos" ; + VP (Cond Pl P2) => c_ + "olgaríais" ; + VP (Cond Pl P3) => c_ + "olgarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => c_ + "uelga" ; + VP (Imp Sg P3) => c_ + "uelgue" ; + VP (Imp Pl P1) => c_ + "olguemos" ; + VP (Imp Pl P2) => c_ + "olgad" ; + VP (Imp Pl P3) => c_ + "uelguen" ; + VP (Pass Sg Masc) => c_ + "olgado" ; + VP (Pass Sg Fem) => c_ + "olgada" ; + VP (Pass Pl Masc) => c_ + "olgados" ; + VP (Pass Pl Fem) => c_ + "olgadas" + } + } ; +oper conocer_25 : Str -> Verbum = \conocer -> + let cono_ = Predef.tk 3 conocer in + {s = table { + VI Infn => cono_ + "cer" ; + VI Ger => cono_ + "ciendo" ; + VI Part => cono_ + "cido" ; + VP (Pres Ind Sg P1) => cono_ + "zco" ; + VP (Pres Ind Sg P2) => cono_ + "ces" ; + VP (Pres Ind Sg P3) => cono_ + "ce" ; + VP (Pres Ind Pl P1) => cono_ + "cemos" ; + VP (Pres Ind Pl P2) => cono_ + "céis" ; + VP (Pres Ind Pl P3) => cono_ + "cen" ; + VP (Pres Subj Sg P1) => cono_ + "zca" ; + VP (Pres Subj Sg P2) => cono_ + "zcas" ; + VP (Pres Subj Sg P3) => cono_ + "zca" ; + VP (Pres Subj Pl P1) => cono_ + "zcamos" ; + VP (Pres Subj Pl P2) => cono_ + "zcáis" ; + VP (Pres Subj Pl P3) => cono_ + "zcan" ; + VP (Impf Ind Sg P1) => cono_ + "cía" ; + VP (Impf Ind Sg P2) => cono_ + "cías" ; + VP (Impf Ind Sg P3) => cono_ + "cía" ; + VP (Impf Ind Pl P1) => cono_ + "cíamos" ; + VP (Impf Ind Pl P2) => cono_ + "cíais" ; + VP (Impf Ind Pl P3) => cono_ + "cían" ; + VP (Impf Subj Sg P1) => variants {cono_ + "ciera" ; cono_ + "ciese"} ; + VP (Impf Subj Sg P2) => variants {cono_ + "cieras" ; cono_ + "cieses"} ; + VP (Impf Subj Sg P3) => variants {cono_ + "ciera" ; cono_ + "ciese"} ; + VP (Impf Subj Pl P1) => variants {cono_ + "ciéramos" ; cono_ + "ciésemos"} ; + VP (Impf Subj Pl P2) => variants {cono_ + "cierais" ; cono_ + "cieseis"} ; + VP (Impf Subj Pl P3) => variants {cono_ + "cieran" ; cono_ + "ciesen"} ; + VP (Pret Sg P1) => cono_ + "cí" ; + VP (Pret Sg P2) => cono_ + "ciste" ; + VP (Pret Sg P3) => cono_ + "ció" ; + VP (Pret Pl P1) => cono_ + "cimos" ; + VP (Pret Pl P2) => cono_ + "cisteis" ; + VP (Pret Pl P3) => cono_ + "cieron" ; + VP (Fut Ind Sg P1) => cono_ + "ceré" ; + VP (Fut Ind Sg P2) => cono_ + "cerás" ; + VP (Fut Ind Sg P3) => cono_ + "cerá" ; + VP (Fut Ind Pl P1) => cono_ + "ceremos" ; + VP (Fut Ind Pl P2) => cono_ + "ceréis" ; + VP (Fut Ind Pl P3) => cono_ + "cerán" ; + VP (Fut Subj Sg P1) => cono_ + "ciere" ; + VP (Fut Subj Sg P2) => cono_ + "cieres" ; + VP (Fut Subj Sg P3) => cono_ + "ciere" ; + VP (Fut Subj Pl P1) => cono_ + "ciéremos" ; + VP (Fut Subj Pl P2) => cono_ + "ciereis" ; + VP (Fut Subj Pl P3) => cono_ + "cieren" ; + VP (Cond Sg P1) => cono_ + "cería" ; + VP (Cond Sg P2) => cono_ + "cerías" ; + VP (Cond Sg P3) => cono_ + "cería" ; + VP (Cond Pl P1) => cono_ + "ceríamos" ; + VP (Cond Pl P2) => cono_ + "ceríais" ; + VP (Cond Pl P3) => cono_ + "cerían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => cono_ + "ce" ; + VP (Imp Sg P3) => cono_ + "zca" ; + VP (Imp Pl P1) => cono_ + "zcamos" ; + VP (Imp Pl P2) => cono_ + "ced" ; + VP (Imp Pl P3) => cono_ + "zcan" ; + VP (Pass Sg Masc) => cono_ + "cido" ; + VP (Pass Sg Fem) => cono_ + "cida" ; + VP (Pass Pl Masc) => cono_ + "cidos" ; + VP (Pass Pl Fem) => cono_ + "cidas" + } + } ; +oper creer_26 : Str -> Verbum = \creer -> + let cre_ = Predef.tk 2 creer in + {s = table { + VI Infn => cre_ + "er" ; + VI Ger => cre_ + "yendo" ; + VI Part => cre_ + "ído" ; + VP (Pres Ind Sg P1) => cre_ + "o" ; + VP (Pres Ind Sg P2) => cre_ + "es" ; + VP (Pres Ind Sg P3) => cre_ + "e" ; + VP (Pres Ind Pl P1) => cre_ + "emos" ; + VP (Pres Ind Pl P2) => cre_ + "éis" ; + VP (Pres Ind Pl P3) => cre_ + "en" ; + VP (Pres Subj Sg P1) => cre_ + "a" ; + VP (Pres Subj Sg P2) => cre_ + "as" ; + VP (Pres Subj Sg P3) => cre_ + "a" ; + VP (Pres Subj Pl P1) => cre_ + "amos" ; + VP (Pres Subj Pl P2) => cre_ + "áis" ; + VP (Pres Subj Pl P3) => cre_ + "an" ; + VP (Impf Ind Sg P1) => cre_ + "ía" ; + VP (Impf Ind Sg P2) => cre_ + "ías" ; + VP (Impf Ind Sg P3) => cre_ + "ía" ; + VP (Impf Ind Pl P1) => cre_ + "íamos" ; + VP (Impf Ind Pl P2) => cre_ + "íais" ; + VP (Impf Ind Pl P3) => cre_ + "ían" ; + VP (Impf Subj Sg P1) => variants {cre_ + "yera" ; cre_ + "yese"} ; + VP (Impf Subj Sg P2) => variants {cre_ + "yeras" ; cre_ + "yeses"} ; + VP (Impf Subj Sg P3) => variants {cre_ + "yera" ; cre_ + "yese"} ; + VP (Impf Subj Pl P1) => variants {cre_ + "yéramos" ; cre_ + "yésemos"} ; + VP (Impf Subj Pl P2) => variants {cre_ + "yerais" ; cre_ + "yeseis"} ; + VP (Impf Subj Pl P3) => variants {cre_ + "yeran" ; cre_ + "yesen"} ; + VP (Pret Sg P1) => cre_ + "í" ; + VP (Pret Sg P2) => cre_ + "íste" ; + VP (Pret Sg P3) => cre_ + "yó" ; + VP (Pret Pl P1) => cre_ + "ímos" ; + VP (Pret Pl P2) => cre_ + "ísteis" ; + VP (Pret Pl P3) => cre_ + "yeron" ; + VP (Fut Ind Sg P1) => cre_ + "eré" ; + VP (Fut Ind Sg P2) => cre_ + "erás" ; + VP (Fut Ind Sg P3) => cre_ + "erá" ; + VP (Fut Ind Pl P1) => cre_ + "eremos" ; + VP (Fut Ind Pl P2) => cre_ + "eréis" ; + VP (Fut Ind Pl P3) => cre_ + "erán" ; + VP (Fut Subj Sg P1) => cre_ + "yere" ; + VP (Fut Subj Sg P2) => cre_ + "yeres" ; + VP (Fut Subj Sg P3) => cre_ + "yere" ; + VP (Fut Subj Pl P1) => cre_ + "yéremos" ; + VP (Fut Subj Pl P2) => cre_ + "yereis" ; + VP (Fut Subj Pl P3) => cre_ + "yeren" ; + VP (Cond Sg P1) => cre_ + "ería" ; + VP (Cond Sg P2) => cre_ + "erías" ; + VP (Cond Sg P3) => cre_ + "ería" ; + VP (Cond Pl P1) => cre_ + "eríamos" ; + VP (Cond Pl P2) => cre_ + "eríais" ; + VP (Cond Pl P3) => cre_ + "erían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => cre_ + "e" ; + VP (Imp Sg P3) => cre_ + "a" ; + VP (Imp Pl P1) => cre_ + "amos" ; + VP (Imp Pl P2) => cre_ + "ed" ; + VP (Imp Pl P3) => cre_ + "an" ; + VP (Pass Sg Masc) => cre_ + "ído" ; + VP (Pass Sg Fem) => cre_ + "ída" ; + VP (Pass Pl Masc) => cre_ + "ídos" ; + VP (Pass Pl Fem) => cre_ + "ídas" + } + } ; +oper dar_27 : Str -> Verbum = \dar -> + let d_ = Predef.tk 2 dar in + {s = table { + VI Infn => d_ + "ar" ; + VI Ger => d_ + "ando" ; + VI Part => d_ + "ado" ; + VP (Pres Ind Sg P1) => d_ + "oy" ; + VP (Pres Ind Sg P2) => d_ + "as" ; + VP (Pres Ind Sg P3) => d_ + "a" ; + VP (Pres Ind Pl P1) => d_ + "amos" ; + VP (Pres Ind Pl P2) => d_ + "ais" ; + VP (Pres Ind Pl P3) => d_ + "an" ; + VP (Pres Subj Sg P1) => d_ + "é" ; + VP (Pres Subj Sg P2) => d_ + "es" ; + VP (Pres Subj Sg P3) => d_ + "é" ; + VP (Pres Subj Pl P1) => d_ + "emos" ; + VP (Pres Subj Pl P2) => d_ + "eis" ; + VP (Pres Subj Pl P3) => d_ + "en" ; + VP (Impf Ind Sg P1) => d_ + "aba" ; + VP (Impf Ind Sg P2) => d_ + "abas" ; + VP (Impf Ind Sg P3) => d_ + "aba" ; + VP (Impf Ind Pl P1) => d_ + "ábamos" ; + VP (Impf Ind Pl P2) => d_ + "abais" ; + VP (Impf Ind Pl P3) => d_ + "aban" ; + VP (Impf Subj Sg P1) => variants {d_ + "iera" ; d_ + "iese"} ; + VP (Impf Subj Sg P2) => variants {d_ + "ieras" ; d_ + "ieses"} ; + VP (Impf Subj Sg P3) => variants {d_ + "iera" ; d_ + "iese"} ; + VP (Impf Subj Pl P1) => variants {d_ + "iéramos" ; d_ + "iésemos"} ; + VP (Impf Subj Pl P2) => variants {d_ + "ierais" ; d_ + "ieseis"} ; + VP (Impf Subj Pl P3) => variants {d_ + "ieran" ; d_ + "iesen"} ; + VP (Pret Sg P1) => d_ + "i" ; + VP (Pret Sg P2) => d_ + "iste" ; + VP (Pret Sg P3) => d_ + "io" ; + VP (Pret Pl P1) => d_ + "imos" ; + VP (Pret Pl P2) => d_ + "isteis" ; + VP (Pret Pl P3) => d_ + "ieron" ; + VP (Fut Ind Sg P1) => d_ + "aré" ; + VP (Fut Ind Sg P2) => d_ + "arás" ; + VP (Fut Ind Sg P3) => d_ + "ará" ; + VP (Fut Ind Pl P1) => d_ + "aremos" ; + VP (Fut Ind Pl P2) => d_ + "aréis" ; + VP (Fut Ind Pl P3) => d_ + "arán" ; + VP (Fut Subj Sg P1) => d_ + "iere" ; + VP (Fut Subj Sg P2) => d_ + "ieres" ; + VP (Fut Subj Sg P3) => d_ + "iere" ; + VP (Fut Subj Pl P1) => d_ + "iéremos" ; + VP (Fut Subj Pl P2) => d_ + "iereis" ; + VP (Fut Subj Pl P3) => d_ + "ieren" ; + VP (Cond Sg P1) => d_ + "aría" ; + VP (Cond Sg P2) => d_ + "arías" ; + VP (Cond Sg P3) => d_ + "aría" ; + VP (Cond Pl P1) => d_ + "aríamos" ; + VP (Cond Pl P2) => d_ + "aríais" ; + VP (Cond Pl P3) => d_ + "arían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => d_ + "a" ; + VP (Imp Sg P3) => d_ + "é" ; + VP (Imp Pl P1) => d_ + "emos" ; + VP (Imp Pl P2) => d_ + "ad" ; + VP (Imp Pl P3) => d_ + "en" ; + VP (Pass Sg Masc) => d_ + "ado" ; + VP (Pass Sg Fem) => d_ + "ada" ; + VP (Pass Pl Masc) => d_ + "ados" ; + VP (Pass Pl Fem) => d_ + "adas" + } + } ; +oper decir_28 : Str -> Verbum = \decir -> + let d_ = Predef.tk 4 decir in + {s = table { + VI Infn => d_ + "ecir" ; + VI Ger => d_ + "iciendo" ; + VI Part => d_ + "icho" ; + VP (Pres Ind Sg P1) => d_ + "igo" ; + VP (Pres Ind Sg P2) => d_ + "ices" ; + VP (Pres Ind Sg P3) => d_ + "ice" ; + VP (Pres Ind Pl P1) => d_ + "ecimos" ; + VP (Pres Ind Pl P2) => d_ + "ecís" ; + VP (Pres Ind Pl P3) => d_ + "icen" ; + VP (Pres Subj Sg P1) => d_ + "iga" ; + VP (Pres Subj Sg P2) => d_ + "igas" ; + VP (Pres Subj Sg P3) => d_ + "iga" ; + VP (Pres Subj Pl P1) => d_ + "igamos" ; + VP (Pres Subj Pl P2) => d_ + "igáis" ; + VP (Pres Subj Pl P3) => d_ + "igan" ; + VP (Impf Ind Sg P1) => d_ + "ecía" ; + VP (Impf Ind Sg P2) => d_ + "ecías" ; + VP (Impf Ind Sg P3) => d_ + "ecía" ; + VP (Impf Ind Pl P1) => d_ + "ecíamos" ; + VP (Impf Ind Pl P2) => d_ + "ecíais" ; + VP (Impf Ind Pl P3) => d_ + "ecían" ; + VP (Impf Subj Sg P1) => variants {d_ + "ijera" ; d_ + "ijese"} ; + VP (Impf Subj Sg P2) => variants {d_ + "ijeras" ; d_ + "ijeses"} ; + VP (Impf Subj Sg P3) => variants {d_ + "ijera" ; d_ + "ijese"} ; + VP (Impf Subj Pl P1) => variants {d_ + "ijéramos" ; d_ + "ijésemos"} ; + VP (Impf Subj Pl P2) => variants {d_ + "ijerais" ; d_ + "ijeseis"} ; + VP (Impf Subj Pl P3) => variants {d_ + "ijeran" ; d_ + "ijesen"} ; + VP (Pret Sg P1) => d_ + "ije" ; + VP (Pret Sg P2) => d_ + "ijiste" ; + VP (Pret Sg P3) => d_ + "ijo" ; + VP (Pret Pl P1) => d_ + "ijimos" ; + VP (Pret Pl P2) => d_ + "ijisteis" ; + VP (Pret Pl P3) => d_ + "ijeron" ; + VP (Fut Ind Sg P1) => d_ + "iré" ; + VP (Fut Ind Sg P2) => d_ + "irás" ; + VP (Fut Ind Sg P3) => d_ + "irá" ; + VP (Fut Ind Pl P1) => d_ + "iremos" ; + VP (Fut Ind Pl P2) => d_ + "iréis" ; + VP (Fut Ind Pl P3) => d_ + "irán" ; + VP (Fut Subj Sg P1) => d_ + "ijere" ; + VP (Fut Subj Sg P2) => d_ + "ijeres" ; + VP (Fut Subj Sg P3) => d_ + "ijere" ; + VP (Fut Subj Pl P1) => d_ + "ijéremos" ; + VP (Fut Subj Pl P2) => d_ + "ijereis" ; + VP (Fut Subj Pl P3) => d_ + "ijeren" ; + VP (Cond Sg P1) => d_ + "iría" ; + VP (Cond Sg P2) => d_ + "irías" ; + VP (Cond Sg P3) => d_ + "iría" ; + VP (Cond Pl P1) => d_ + "iríamos" ; + VP (Cond Pl P2) => d_ + "iríais" ; + VP (Cond Pl P3) => d_ + "irían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => d_ + "i" ; + VP (Imp Sg P3) => d_ + "iga" ; + VP (Imp Pl P1) => d_ + "igamos" ; + VP (Imp Pl P2) => d_ + "ecid" ; + VP (Imp Pl P3) => d_ + "igan" ; + VP (Pass Sg Masc) => d_ + "icho" ; + VP (Pass Sg Fem) => d_ + "icha" ; + VP (Pass Pl Masc) => d_ + "ichos" ; + VP (Pass Pl Fem) => d_ + "ichas" + } + } ; +oper defender_29 : Str -> Verbum = \defender -> + let + def_ = Predef.tk 5 defender ; + nd_ = Predef.tk 2 (Predef.dp 4 defender) + in + {s = table { + VI Infn => def_ + "e" + nd_ + "er" ; + VI Ger => def_ + "e" + nd_ + "iendo" ; + VI Part => def_ + "e" + nd_ + "ido" ; + VP (Pres Ind Sg P1) => def_ + "ie" + nd_ + "o" ; + VP (Pres Ind Sg P2) => def_ + "ie" + nd_ + "es" ; + VP (Pres Ind Sg P3) => def_ + "ie" + nd_ + "e" ; + VP (Pres Ind Pl P1) => def_ + "e" + nd_ + "emos" ; + VP (Pres Ind Pl P2) => def_ + "e" + nd_ + "éis" ; + VP (Pres Ind Pl P3) => def_ + "ie" + nd_ + "en" ; + VP (Pres Subj Sg P1) => def_ + "ie" + nd_ + "a" ; + VP (Pres Subj Sg P2) => def_ + "ie" + nd_ + "as" ; + VP (Pres Subj Sg P3) => def_ + "ie" + nd_ + "a" ; + VP (Pres Subj Pl P1) => def_ + "e" + nd_ + "amos" ; + VP (Pres Subj Pl P2) => def_ + "e" + nd_ + "áis" ; + VP (Pres Subj Pl P3) => def_ + "ie" + nd_ + "an" ; + VP (Impf Ind Sg P1) => def_ + "e" + nd_ + "ía" ; + VP (Impf Ind Sg P2) => def_ + "e" + nd_ + "ías" ; + VP (Impf Ind Sg P3) => def_ + "e" + nd_ + "ía" ; + VP (Impf Ind Pl P1) => def_ + "e" + nd_ + "íamos" ; + VP (Impf Ind Pl P2) => def_ + "e" + nd_ + "íais" ; + VP (Impf Ind Pl P3) => def_ + "e" + nd_ + "ían" ; + VP (Impf Subj Sg P1) => variants {def_ + "e" + nd_ + "iera" ; def_ + "e" + nd_ + "iese"} ; + VP (Impf Subj Sg P2) => variants {def_ + "e" + nd_ + "ieras" ; def_ + "e" + nd_ + "ieses"} ; + VP (Impf Subj Sg P3) => variants {def_ + "e" + nd_ + "iera" ; def_ + "e" + nd_ + "iese"} ; + VP (Impf Subj Pl P1) => variants {def_ + "e" + nd_ + "iéramos" ; def_ + "e" + nd_ + "iésemos"} ; + VP (Impf Subj Pl P2) => variants {def_ + "e" + nd_ + "ierais" ; def_ + "e" + nd_ + "ieseis"} ; + VP (Impf Subj Pl P3) => variants {def_ + "e" + nd_ + "ieran" ; def_ + "e" + nd_ + "iesen"} ; + VP (Pret Sg P1) => def_ + "e" + nd_ + "í" ; + VP (Pret Sg P2) => def_ + "e" + nd_ + "iste" ; + VP (Pret Sg P3) => def_ + "e" + nd_ + "ió" ; + VP (Pret Pl P1) => def_ + "e" + nd_ + "imos" ; + VP (Pret Pl P2) => def_ + "e" + nd_ + "isteis" ; + VP (Pret Pl P3) => def_ + "e" + nd_ + "ieron" ; + VP (Fut Ind Sg P1) => def_ + "e" + nd_ + "eré" ; + VP (Fut Ind Sg P2) => def_ + "e" + nd_ + "erás" ; + VP (Fut Ind Sg P3) => def_ + "e" + nd_ + "erá" ; + VP (Fut Ind Pl P1) => def_ + "e" + nd_ + "eremos" ; + VP (Fut Ind Pl P2) => def_ + "e" + nd_ + "eréis" ; + VP (Fut Ind Pl P3) => def_ + "e" + nd_ + "erán" ; + VP (Fut Subj Sg P1) => def_ + "e" + nd_ + "iere" ; + VP (Fut Subj Sg P2) => def_ + "e" + nd_ + "ieres" ; + VP (Fut Subj Sg P3) => def_ + "e" + nd_ + "iere" ; + VP (Fut Subj Pl P1) => def_ + "e" + nd_ + "iéremos" ; + VP (Fut Subj Pl P2) => def_ + "e" + nd_ + "iereis" ; + VP (Fut Subj Pl P3) => def_ + "e" + nd_ + "ieren" ; + VP (Cond Sg P1) => def_ + "e" + nd_ + "ería" ; + VP (Cond Sg P2) => def_ + "e" + nd_ + "erías" ; + VP (Cond Sg P3) => def_ + "e" + nd_ + "ería" ; + VP (Cond Pl P1) => def_ + "e" + nd_ + "eríamos" ; + VP (Cond Pl P2) => def_ + "e" + nd_ + "eríais" ; + VP (Cond Pl P3) => def_ + "e" + nd_ + "erían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => def_ + "ie" + nd_ + "e" ; + VP (Imp Sg P3) => def_ + "ie" + nd_ + "a" ; + VP (Imp Pl P1) => def_ + "e" + nd_ + "amos" ; + VP (Imp Pl P2) => def_ + "e" + nd_ + "ed" ; + VP (Imp Pl P3) => def_ + "ie" + nd_ + "an" ; + VP (Pass Sg Masc) => def_ + "e" + nd_ + "ido" ; + VP (Pass Sg Fem) => def_ + "e" + nd_ + "ida" ; + VP (Pass Pl Masc) => def_ + "e" + nd_ + "idos" ; + VP (Pass Pl Fem) => def_ + "e" + nd_ + "idas" + } + } ; +oper delinquir_30 : Str -> Verbum = \delinquir -> + let delin_ = Predef.tk 4 delinquir in + {s = table { + VI Infn => delin_ + "quir" ; + VI Ger => delin_ + "quiendo" ; + VI Part => delin_ + "quido" ; + VP (Pres Ind Sg P1) => delin_ + "co" ; + VP (Pres Ind Sg P2) => delin_ + "ques" ; + VP (Pres Ind Sg P3) => delin_ + "que" ; + VP (Pres Ind Pl P1) => delin_ + "quimos" ; + VP (Pres Ind Pl P2) => delin_ + "quís" ; + VP (Pres Ind Pl P3) => delin_ + "quen" ; + VP (Pres Subj Sg P1) => delin_ + "ca" ; + VP (Pres Subj Sg P2) => delin_ + "cas" ; + VP (Pres Subj Sg P3) => delin_ + "ca" ; + VP (Pres Subj Pl P1) => delin_ + "camos" ; + VP (Pres Subj Pl P2) => delin_ + "cáis" ; + VP (Pres Subj Pl P3) => delin_ + "can" ; + VP (Impf Ind Sg P1) => delin_ + "quía" ; + VP (Impf Ind Sg P2) => delin_ + "quías" ; + VP (Impf Ind Sg P3) => delin_ + "quía" ; + VP (Impf Ind Pl P1) => delin_ + "quíamos" ; + VP (Impf Ind Pl P2) => delin_ + "quíais" ; + VP (Impf Ind Pl P3) => delin_ + "quían" ; + VP (Impf Subj Sg P1) => variants {delin_ + "quiera" ; delin_ + "quiese"} ; + VP (Impf Subj Sg P2) => variants {delin_ + "quieras" ; delin_ + "quieses"} ; + VP (Impf Subj Sg P3) => variants {delin_ + "quiera" ; delin_ + "quiese"} ; + VP (Impf Subj Pl P1) => variants {delin_ + "quiéramos" ; delin_ + "quiésemos"} ; + VP (Impf Subj Pl P2) => variants {delin_ + "quierais" ; delin_ + "quieseis"} ; + VP (Impf Subj Pl P3) => variants {delin_ + "quieran" ; delin_ + "quiesen"} ; + VP (Pret Sg P1) => delin_ + "quí" ; + VP (Pret Sg P2) => delin_ + "quiste" ; + VP (Pret Sg P3) => delin_ + "quió" ; + VP (Pret Pl P1) => delin_ + "quimos" ; + VP (Pret Pl P2) => delin_ + "quisteis" ; + VP (Pret Pl P3) => delin_ + "quieron" ; + VP (Fut Ind Sg P1) => delin_ + "quiré" ; + VP (Fut Ind Sg P2) => delin_ + "quirás" ; + VP (Fut Ind Sg P3) => delin_ + "quirá" ; + VP (Fut Ind Pl P1) => delin_ + "quiremos" ; + VP (Fut Ind Pl P2) => delin_ + "quiréis" ; + VP (Fut Ind Pl P3) => delin_ + "quirán" ; + VP (Fut Subj Sg P1) => delin_ + "quiere" ; + VP (Fut Subj Sg P2) => delin_ + "quieres" ; + VP (Fut Subj Sg P3) => delin_ + "quiere" ; + VP (Fut Subj Pl P1) => delin_ + "quiéremos" ; + VP (Fut Subj Pl P2) => delin_ + "quiereis" ; + VP (Fut Subj Pl P3) => delin_ + "quieren" ; + VP (Cond Sg P1) => delin_ + "quiría" ; + VP (Cond Sg P2) => delin_ + "quirías" ; + VP (Cond Sg P3) => delin_ + "quiría" ; + VP (Cond Pl P1) => delin_ + "quiríamos" ; + VP (Cond Pl P2) => delin_ + "quiríais" ; + VP (Cond Pl P3) => delin_ + "quirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => delin_ + "que" ; + VP (Imp Sg P3) => delin_ + "ca" ; + VP (Imp Pl P1) => delin_ + "camos" ; + VP (Imp Pl P2) => delin_ + "quid" ; + VP (Imp Pl P3) => delin_ + "can" ; + VP (Pass Sg Masc) => delin_ + "quido" ; + VP (Pass Sg Fem) => delin_ + "quida" ; + VP (Pass Pl Masc) => delin_ + "quidos" ; + VP (Pass Pl Fem) => delin_ + "quidas" + } + } ; +oper desosar_31 : Str -> Verbum = \desosar -> + let des_ = Predef.tk 4 desosar in + {s = table { + VI Infn => des_ + "osar" ; + VI Ger => des_ + "osando" ; + VI Part => des_ + "osado" ; + VP (Pres Ind Sg P1) => des_ + "hueso" ; + VP (Pres Ind Sg P2) => des_ + "huesas" ; + VP (Pres Ind Sg P3) => des_ + "huesa" ; + VP (Pres Ind Pl P1) => des_ + "osamos" ; + VP (Pres Ind Pl P2) => des_ + "osáis" ; + VP (Pres Ind Pl P3) => des_ + "huesan" ; + VP (Pres Subj Sg P1) => des_ + "huese" ; + VP (Pres Subj Sg P2) => des_ + "hueses" ; + VP (Pres Subj Sg P3) => des_ + "huese" ; + VP (Pres Subj Pl P1) => des_ + "osemos" ; + VP (Pres Subj Pl P2) => des_ + "oséis" ; + VP (Pres Subj Pl P3) => des_ + "huesen" ; + VP (Impf Ind Sg P1) => des_ + "osaba" ; + VP (Impf Ind Sg P2) => des_ + "osabas" ; + VP (Impf Ind Sg P3) => des_ + "osaba" ; + VP (Impf Ind Pl P1) => des_ + "osábamos" ; + VP (Impf Ind Pl P2) => des_ + "osabais" ; + VP (Impf Ind Pl P3) => des_ + "osaban" ; + VP (Impf Subj Sg P1) => variants {des_ + "osara" ; des_ + "osase"} ; + VP (Impf Subj Sg P2) => variants {des_ + "osaras" ; des_ + "osases"} ; + VP (Impf Subj Sg P3) => variants {des_ + "osara" ; des_ + "osase"} ; + VP (Impf Subj Pl P1) => variants {des_ + "osáramos" ; des_ + "osásemos"} ; + VP (Impf Subj Pl P2) => variants {des_ + "osarais" ; des_ + "osaseis"} ; + VP (Impf Subj Pl P3) => variants {des_ + "osaran" ; des_ + "osasen"} ; + VP (Pret Sg P1) => des_ + "osé" ; + VP (Pret Sg P2) => des_ + "osaste" ; + VP (Pret Sg P3) => des_ + "osó" ; + VP (Pret Pl P1) => des_ + "osamos" ; + VP (Pret Pl P2) => des_ + "osasteis" ; + VP (Pret Pl P3) => des_ + "osaron" ; + VP (Fut Ind Sg P1) => des_ + "osaré" ; + VP (Fut Ind Sg P2) => des_ + "osarás" ; + VP (Fut Ind Sg P3) => des_ + "osará" ; + VP (Fut Ind Pl P1) => des_ + "osaremos" ; + VP (Fut Ind Pl P2) => des_ + "osaréis" ; + VP (Fut Ind Pl P3) => des_ + "osarán" ; + VP (Fut Subj Sg P1) => des_ + "osare" ; + VP (Fut Subj Sg P2) => des_ + "osares" ; + VP (Fut Subj Sg P3) => des_ + "osare" ; + VP (Fut Subj Pl P1) => des_ + "osáremos" ; + VP (Fut Subj Pl P2) => des_ + "osareis" ; + VP (Fut Subj Pl P3) => des_ + "osaren" ; + VP (Cond Sg P1) => des_ + "osaría" ; + VP (Cond Sg P2) => des_ + "osarías" ; + VP (Cond Sg P3) => des_ + "osaría" ; + VP (Cond Pl P1) => des_ + "osaríamos" ; + VP (Cond Pl P2) => des_ + "osaríais" ; + VP (Cond Pl P3) => des_ + "osarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => des_ + "huesa" ; + VP (Imp Sg P3) => des_ + "huese" ; + VP (Imp Pl P1) => des_ + "osemos" ; + VP (Imp Pl P2) => des_ + "osad" ; + VP (Imp Pl P3) => des_ + "huesen" ; + VP (Pass Sg Masc) => des_ + "osado" ; + VP (Pass Sg Fem) => des_ + "osada" ; + VP (Pass Pl Masc) => des_ + "osados" ; + VP (Pass Pl Fem) => des_ + "osadas" + } + } ; +oper dirigir_32 : Str -> Verbum = \dirigir -> + let diri_ = Predef.tk 3 dirigir in + {s = table { + VI Infn => diri_ + "gir" ; + VI Ger => diri_ + "giendo" ; + VI Part => diri_ + "gido" ; + VP (Pres Ind Sg P1) => diri_ + "jo" ; + VP (Pres Ind Sg P2) => diri_ + "ges" ; + VP (Pres Ind Sg P3) => diri_ + "ge" ; + VP (Pres Ind Pl P1) => diri_ + "gimos" ; + VP (Pres Ind Pl P2) => diri_ + "gís" ; + VP (Pres Ind Pl P3) => diri_ + "gen" ; + VP (Pres Subj Sg P1) => diri_ + "ja" ; + VP (Pres Subj Sg P2) => diri_ + "jas" ; + VP (Pres Subj Sg P3) => diri_ + "ja" ; + VP (Pres Subj Pl P1) => diri_ + "jamos" ; + VP (Pres Subj Pl P2) => diri_ + "jáis" ; + VP (Pres Subj Pl P3) => diri_ + "jan" ; + VP (Impf Ind Sg P1) => diri_ + "gía" ; + VP (Impf Ind Sg P2) => diri_ + "gías" ; + VP (Impf Ind Sg P3) => diri_ + "gía" ; + VP (Impf Ind Pl P1) => diri_ + "gíamos" ; + VP (Impf Ind Pl P2) => diri_ + "gíais" ; + VP (Impf Ind Pl P3) => diri_ + "gían" ; + VP (Impf Subj Sg P1) => variants {diri_ + "giera" ; diri_ + "giese"} ; + VP (Impf Subj Sg P2) => variants {diri_ + "gieras" ; diri_ + "gieses"} ; + VP (Impf Subj Sg P3) => variants {diri_ + "giera" ; diri_ + "giese"} ; + VP (Impf Subj Pl P1) => variants {diri_ + "giéramos" ; diri_ + "giésemos"} ; + VP (Impf Subj Pl P2) => variants {diri_ + "gierais" ; diri_ + "gieseis"} ; + VP (Impf Subj Pl P3) => variants {diri_ + "gieran" ; diri_ + "giesen"} ; + VP (Pret Sg P1) => diri_ + "gí" ; + VP (Pret Sg P2) => diri_ + "giste" ; + VP (Pret Sg P3) => diri_ + "gió" ; + VP (Pret Pl P1) => diri_ + "gimos" ; + VP (Pret Pl P2) => diri_ + "gisteis" ; + VP (Pret Pl P3) => diri_ + "gieron" ; + VP (Fut Ind Sg P1) => diri_ + "giré" ; + VP (Fut Ind Sg P2) => diri_ + "girás" ; + VP (Fut Ind Sg P3) => diri_ + "girá" ; + VP (Fut Ind Pl P1) => diri_ + "giremos" ; + VP (Fut Ind Pl P2) => diri_ + "giréis" ; + VP (Fut Ind Pl P3) => diri_ + "girán" ; + VP (Fut Subj Sg P1) => diri_ + "giere" ; + VP (Fut Subj Sg P2) => diri_ + "gieres" ; + VP (Fut Subj Sg P3) => diri_ + "giere" ; + VP (Fut Subj Pl P1) => diri_ + "giéremos" ; + VP (Fut Subj Pl P2) => diri_ + "giereis" ; + VP (Fut Subj Pl P3) => diri_ + "gieren" ; + VP (Cond Sg P1) => diri_ + "giría" ; + VP (Cond Sg P2) => diri_ + "girías" ; + VP (Cond Sg P3) => diri_ + "giría" ; + VP (Cond Pl P1) => diri_ + "giríamos" ; + VP (Cond Pl P2) => diri_ + "giríais" ; + VP (Cond Pl P3) => diri_ + "girían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => diri_ + "ge" ; + VP (Imp Sg P3) => diri_ + "ja" ; + VP (Imp Pl P1) => diri_ + "jamos" ; + VP (Imp Pl P2) => diri_ + "gid" ; + VP (Imp Pl P3) => diri_ + "jan" ; + VP (Pass Sg Masc) => diri_ + "gido" ; + VP (Pass Sg Fem) => diri_ + "gida" ; + VP (Pass Pl Masc) => diri_ + "gidos" ; + VP (Pass Pl Fem) => diri_ + "gidas" + } + } ; +oper discernir_33 : Str -> Verbum = \discernir -> + let disc_ = Predef.tk 5 discernir in + {s = table { + VI Infn => disc_ + "ernir" ; + VI Ger => disc_ + "erniendo" ; + VI Part => disc_ + "ernido" ; + VP (Pres Ind Sg P1) => disc_ + "ierno" ; + VP (Pres Ind Sg P2) => disc_ + "iernes" ; + VP (Pres Ind Sg P3) => disc_ + "ierne" ; + VP (Pres Ind Pl P1) => disc_ + "ernimos" ; + VP (Pres Ind Pl P2) => disc_ + "ernís" ; + VP (Pres Ind Pl P3) => disc_ + "iernen" ; + VP (Pres Subj Sg P1) => disc_ + "ierna" ; + VP (Pres Subj Sg P2) => disc_ + "iernas" ; + VP (Pres Subj Sg P3) => disc_ + "ierna" ; + VP (Pres Subj Pl P1) => disc_ + "ernamos" ; + VP (Pres Subj Pl P2) => disc_ + "ernáis" ; + VP (Pres Subj Pl P3) => disc_ + "iernan" ; + VP (Impf Ind Sg P1) => disc_ + "ernía" ; + VP (Impf Ind Sg P2) => disc_ + "ernías" ; + VP (Impf Ind Sg P3) => disc_ + "ernía" ; + VP (Impf Ind Pl P1) => disc_ + "erníamos" ; + VP (Impf Ind Pl P2) => disc_ + "erníais" ; + VP (Impf Ind Pl P3) => disc_ + "ernían" ; + VP (Impf Subj Sg P1) => variants {disc_ + "erniera" ; disc_ + "erniese"} ; + VP (Impf Subj Sg P2) => variants {disc_ + "ernieras" ; disc_ + "ernieses"} ; + VP (Impf Subj Sg P3) => variants {disc_ + "erniera" ; disc_ + "erniese"} ; + VP (Impf Subj Pl P1) => variants {disc_ + "erniéramos" ; disc_ + "erniésemos"} ; + VP (Impf Subj Pl P2) => variants {disc_ + "ernierais" ; disc_ + "ernieseis"} ; + VP (Impf Subj Pl P3) => variants {disc_ + "ernieran" ; disc_ + "erniesen"} ; + VP (Pret Sg P1) => disc_ + "erní" ; + VP (Pret Sg P2) => disc_ + "erniste" ; + VP (Pret Sg P3) => disc_ + "ernió" ; + VP (Pret Pl P1) => disc_ + "ernimos" ; + VP (Pret Pl P2) => disc_ + "ernisteis" ; + VP (Pret Pl P3) => disc_ + "ernieron" ; + VP (Fut Ind Sg P1) => disc_ + "erniré" ; + VP (Fut Ind Sg P2) => disc_ + "ernirás" ; + VP (Fut Ind Sg P3) => disc_ + "ernirá" ; + VP (Fut Ind Pl P1) => disc_ + "erniremos" ; + VP (Fut Ind Pl P2) => disc_ + "erniréis" ; + VP (Fut Ind Pl P3) => disc_ + "ernirán" ; + VP (Fut Subj Sg P1) => disc_ + "erniere" ; + VP (Fut Subj Sg P2) => disc_ + "ernieres" ; + VP (Fut Subj Sg P3) => disc_ + "erniere" ; + VP (Fut Subj Pl P1) => disc_ + "erniéremos" ; + VP (Fut Subj Pl P2) => disc_ + "erniereis" ; + VP (Fut Subj Pl P3) => disc_ + "ernieren" ; + VP (Cond Sg P1) => disc_ + "erniría" ; + VP (Cond Sg P2) => disc_ + "ernirías" ; + VP (Cond Sg P3) => disc_ + "erniría" ; + VP (Cond Pl P1) => disc_ + "erniríamos" ; + VP (Cond Pl P2) => disc_ + "erniríais" ; + VP (Cond Pl P3) => disc_ + "ernirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => disc_ + "ierne" ; + VP (Imp Sg P3) => disc_ + "ierna" ; + VP (Imp Pl P1) => disc_ + "ernamos" ; + VP (Imp Pl P2) => disc_ + "ernid" ; + VP (Imp Pl P3) => disc_ + "iernan" ; + VP (Pass Sg Masc) => disc_ + "ernido" ; + VP (Pass Sg Fem) => disc_ + "ernida" ; + VP (Pass Pl Masc) => disc_ + "ernidos" ; + VP (Pass Pl Fem) => disc_ + "ernidas" + } + } ; +oper distinguir_34 : Str -> Verbum = \distinguir -> + let disting_ = Predef.tk 3 distinguir in + {s = table { + VI Infn => disting_ + "uir" ; + VI Ger => disting_ + "uiendo" ; + VI Part => disting_ + "uido" ; + VP (Pres Ind Sg P1) => disting_ + "o" ; + VP (Pres Ind Sg P2) => disting_ + "ues" ; + VP (Pres Ind Sg P3) => disting_ + "ue" ; + VP (Pres Ind Pl P1) => disting_ + "uimos" ; + VP (Pres Ind Pl P2) => disting_ + "uís" ; + VP (Pres Ind Pl P3) => disting_ + "uen" ; + VP (Pres Subj Sg P1) => disting_ + "a" ; + VP (Pres Subj Sg P2) => disting_ + "as" ; + VP (Pres Subj Sg P3) => disting_ + "a" ; + VP (Pres Subj Pl P1) => disting_ + "amos" ; + VP (Pres Subj Pl P2) => disting_ + "áis" ; + VP (Pres Subj Pl P3) => disting_ + "an" ; + VP (Impf Ind Sg P1) => disting_ + "uía" ; + VP (Impf Ind Sg P2) => disting_ + "uías" ; + VP (Impf Ind Sg P3) => disting_ + "uía" ; + VP (Impf Ind Pl P1) => disting_ + "uíamos" ; + VP (Impf Ind Pl P2) => disting_ + "uíais" ; + VP (Impf Ind Pl P3) => disting_ + "uían" ; + VP (Impf Subj Sg P1) => variants {disting_ + "uiera" ; disting_ + "uiese"} ; + VP (Impf Subj Sg P2) => variants {disting_ + "uieras" ; disting_ + "uieses"} ; + VP (Impf Subj Sg P3) => variants {disting_ + "uiera" ; disting_ + "uiese"} ; + VP (Impf Subj Pl P1) => variants {disting_ + "uiéramos" ; disting_ + "uiésemos"} ; + VP (Impf Subj Pl P2) => variants {disting_ + "uierais" ; disting_ + "uieseis"} ; + VP (Impf Subj Pl P3) => variants {disting_ + "uieran" ; disting_ + "uiesen"} ; + VP (Pret Sg P1) => disting_ + "uí" ; + VP (Pret Sg P2) => disting_ + "uiste" ; + VP (Pret Sg P3) => disting_ + "uió" ; + VP (Pret Pl P1) => disting_ + "uimos" ; + VP (Pret Pl P2) => disting_ + "uisteis" ; + VP (Pret Pl P3) => disting_ + "uieron" ; + VP (Fut Ind Sg P1) => disting_ + "uiré" ; + VP (Fut Ind Sg P2) => disting_ + "uirás" ; + VP (Fut Ind Sg P3) => disting_ + "uirá" ; + VP (Fut Ind Pl P1) => disting_ + "uiremos" ; + VP (Fut Ind Pl P2) => disting_ + "uiréis" ; + VP (Fut Ind Pl P3) => disting_ + "uirán" ; + VP (Fut Subj Sg P1) => disting_ + "uiere" ; + VP (Fut Subj Sg P2) => disting_ + "uieres" ; + VP (Fut Subj Sg P3) => disting_ + "uiere" ; + VP (Fut Subj Pl P1) => disting_ + "uiéremos" ; + VP (Fut Subj Pl P2) => disting_ + "uiereis" ; + VP (Fut Subj Pl P3) => disting_ + "uieren" ; + VP (Cond Sg P1) => disting_ + "uiría" ; + VP (Cond Sg P2) => disting_ + "uirías" ; + VP (Cond Sg P3) => disting_ + "uiría" ; + VP (Cond Pl P1) => disting_ + "uiríamos" ; + VP (Cond Pl P2) => disting_ + "uiríais" ; + VP (Cond Pl P3) => disting_ + "uirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => disting_ + "ue" ; + VP (Imp Sg P3) => disting_ + "a" ; + VP (Imp Pl P1) => disting_ + "amos" ; + VP (Imp Pl P2) => disting_ + "uid" ; + VP (Imp Pl P3) => disting_ + "an" ; + VP (Pass Sg Masc) => disting_ + "uido" ; + VP (Pass Sg Fem) => disting_ + "uida" ; + VP (Pass Pl Masc) => disting_ + "uidos" ; + VP (Pass Pl Fem) => disting_ + "uidas" + } + } ; +oper dormir_35 : Str -> Verbum = \dormir -> + let d_ = Predef.tk 5 dormir in + {s = table { + VI Infn => d_ + "ormir" ; + VI Ger => d_ + "urmiendo" ; + VI Part => d_ + "ormido" ; + VP (Pres Ind Sg P1) => d_ + "uermo" ; + VP (Pres Ind Sg P2) => d_ + "uermes" ; + VP (Pres Ind Sg P3) => d_ + "uerme" ; + VP (Pres Ind Pl P1) => d_ + "ormimos" ; + VP (Pres Ind Pl P2) => d_ + "ormís" ; + VP (Pres Ind Pl P3) => d_ + "uermen" ; + VP (Pres Subj Sg P1) => d_ + "uerma" ; + VP (Pres Subj Sg P2) => d_ + "uermas" ; + VP (Pres Subj Sg P3) => d_ + "uerma" ; + VP (Pres Subj Pl P1) => d_ + "urmamos" ; + VP (Pres Subj Pl P2) => d_ + "urmáis" ; + VP (Pres Subj Pl P3) => d_ + "uerman" ; + VP (Impf Ind Sg P1) => d_ + "ormía" ; + VP (Impf Ind Sg P2) => d_ + "ormías" ; + VP (Impf Ind Sg P3) => d_ + "ormía" ; + VP (Impf Ind Pl P1) => d_ + "ormíamos" ; + VP (Impf Ind Pl P2) => d_ + "ormíais" ; + VP (Impf Ind Pl P3) => d_ + "ormían" ; + VP (Impf Subj Sg P1) => variants {d_ + "urmiera" ; d_ + "urmiese"} ; + VP (Impf Subj Sg P2) => variants {d_ + "urmieras" ; d_ + "urmieses"} ; + VP (Impf Subj Sg P3) => variants {d_ + "urmiera" ; d_ + "urmiese"} ; + VP (Impf Subj Pl P1) => variants {d_ + "urmiéramos" ; d_ + "urmiésemos"} ; + VP (Impf Subj Pl P2) => variants {d_ + "urmierais" ; d_ + "urmieseis"} ; + VP (Impf Subj Pl P3) => variants {d_ + "urmieran" ; d_ + "urmiesen"} ; + VP (Pret Sg P1) => d_ + "ormí" ; + VP (Pret Sg P2) => d_ + "ormiste" ; + VP (Pret Sg P3) => d_ + "urmió" ; + VP (Pret Pl P1) => d_ + "ormimos" ; + VP (Pret Pl P2) => d_ + "ormisteis" ; + VP (Pret Pl P3) => d_ + "urmieron" ; + VP (Fut Ind Sg P1) => d_ + "ormiré" ; + VP (Fut Ind Sg P2) => d_ + "ormirás" ; + VP (Fut Ind Sg P3) => d_ + "ormirá" ; + VP (Fut Ind Pl P1) => d_ + "ormiremos" ; + VP (Fut Ind Pl P2) => d_ + "ormiréis" ; + VP (Fut Ind Pl P3) => d_ + "ormirán" ; + VP (Fut Subj Sg P1) => d_ + "urmiere" ; + VP (Fut Subj Sg P2) => d_ + "urmieres" ; + VP (Fut Subj Sg P3) => d_ + "urmiere" ; + VP (Fut Subj Pl P1) => d_ + "urmiéremos" ; + VP (Fut Subj Pl P2) => d_ + "urmiereis" ; + VP (Fut Subj Pl P3) => d_ + "urmieren" ; + VP (Cond Sg P1) => d_ + "ormiría" ; + VP (Cond Sg P2) => d_ + "ormirías" ; + VP (Cond Sg P3) => d_ + "ormiría" ; + VP (Cond Pl P1) => d_ + "ormiríamos" ; + VP (Cond Pl P2) => d_ + "ormiríais" ; + VP (Cond Pl P3) => d_ + "ormirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => d_ + "uerme" ; + VP (Imp Sg P3) => d_ + "uerma" ; + VP (Imp Pl P1) => d_ + "urmamos" ; + VP (Imp Pl P2) => d_ + "ormid" ; + VP (Imp Pl P3) => d_ + "uerman" ; + VP (Pass Sg Masc) => d_ + "ormido" ; + VP (Pass Sg Fem) => d_ + "ormida" ; + VP (Pass Pl Masc) => d_ + "ormidos" ; + VP (Pass Pl Fem) => d_ + "ormidas" + } + } ; +oper morir_35b : Str -> Verbum = \morir -> + let d_ = Predef.tk 4 morir in + {s = table { + VI Infn => d_ + "orir" ; + VI Ger => d_ + "uriendo" ; + VI Part => d_ + "orido" ; + VP (Pres Ind Sg P1) => d_ + "uero" ; + VP (Pres Ind Sg P2) => d_ + "ueres" ; + VP (Pres Ind Sg P3) => d_ + "uere" ; + VP (Pres Ind Pl P1) => d_ + "orimos" ; + VP (Pres Ind Pl P2) => d_ + "orís" ; + VP (Pres Ind Pl P3) => d_ + "ueren" ; + VP (Pres Subj Sg P1) => d_ + "uera" ; + VP (Pres Subj Sg P2) => d_ + "ueras" ; + VP (Pres Subj Sg P3) => d_ + "uera" ; + VP (Pres Subj Pl P1) => d_ + "uramos" ; + VP (Pres Subj Pl P2) => d_ + "uráis" ; + VP (Pres Subj Pl P3) => d_ + "ueran" ; + VP (Impf Ind Sg P1) => d_ + "oría" ; + VP (Impf Ind Sg P2) => d_ + "orías" ; + VP (Impf Ind Sg P3) => d_ + "oría" ; + VP (Impf Ind Pl P1) => d_ + "oríamos" ; + VP (Impf Ind Pl P2) => d_ + "oríais" ; + VP (Impf Ind Pl P3) => d_ + "orían" ; + VP (Impf Subj Sg P1) => variants {d_ + "uriera" ; d_ + "uriese"} ; + VP (Impf Subj Sg P2) => variants {d_ + "urieras" ; d_ + "urieses"} ; + VP (Impf Subj Sg P3) => variants {d_ + "uriera" ; d_ + "uriese"} ; + VP (Impf Subj Pl P1) => variants {d_ + "uriéramos" ; d_ + "uriésemos"} ; + VP (Impf Subj Pl P2) => variants {d_ + "urierais" ; d_ + "urieseis"} ; + VP (Impf Subj Pl P3) => variants {d_ + "urieran" ; d_ + "uriesen"} ; + VP (Pret Sg P1) => d_ + "orí" ; + VP (Pret Sg P2) => d_ + "oriste" ; + VP (Pret Sg P3) => d_ + "urió" ; + VP (Pret Pl P1) => d_ + "orimos" ; + VP (Pret Pl P2) => d_ + "oristeis" ; + VP (Pret Pl P3) => d_ + "urieron" ; + VP (Fut Ind Sg P1) => d_ + "oriré" ; + VP (Fut Ind Sg P2) => d_ + "orirás" ; + VP (Fut Ind Sg P3) => d_ + "orirá" ; + VP (Fut Ind Pl P1) => d_ + "oriremos" ; + VP (Fut Ind Pl P2) => d_ + "oriréis" ; + VP (Fut Ind Pl P3) => d_ + "orirán" ; + VP (Fut Subj Sg P1) => d_ + "uriere" ; + VP (Fut Subj Sg P2) => d_ + "urieres" ; + VP (Fut Subj Sg P3) => d_ + "uriere" ; + VP (Fut Subj Pl P1) => d_ + "uriéremos" ; + VP (Fut Subj Pl P2) => d_ + "uriereis" ; + VP (Fut Subj Pl P3) => d_ + "urieren" ; + VP (Cond Sg P1) => d_ + "oriría" ; + VP (Cond Sg P2) => d_ + "orirías" ; + VP (Cond Sg P3) => d_ + "oriría" ; + VP (Cond Pl P1) => d_ + "oriríamos" ; + VP (Cond Pl P2) => d_ + "oriríais" ; + VP (Cond Pl P3) => d_ + "orirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => d_ + "uere" ; + VP (Imp Sg P3) => d_ + "uera" ; + VP (Imp Pl P1) => d_ + "uramos" ; + VP (Imp Pl P2) => d_ + "orid" ; + VP (Imp Pl P3) => d_ + "ueran" ; + VP (Pass Sg Masc) => d_ + "orido" ; + VP (Pass Sg Fem) => d_ + "orida" ; + VP (Pass Pl Masc) => d_ + "oridos" ; + VP (Pass Pl Fem) => d_ + "oridas" + } + } ; +oper elegir_36 : Str -> Verbum = \elegir -> + let el_ = Predef.tk 4 elegir in + {s = table { + VI Infn => el_ + "egir" ; + VI Ger => el_ + "igiendo" ; + VI Part => variants {el_ + "egido" ; el_ + "ecto"} ; + VP (Pres Ind Sg P1) => el_ + "ijo" ; + VP (Pres Ind Sg P2) => el_ + "iges" ; + VP (Pres Ind Sg P3) => el_ + "ige" ; + VP (Pres Ind Pl P1) => el_ + "egimos" ; + VP (Pres Ind Pl P2) => el_ + "egís" ; + VP (Pres Ind Pl P3) => el_ + "igen" ; + VP (Pres Subj Sg P1) => el_ + "ija" ; + VP (Pres Subj Sg P2) => el_ + "ijas" ; + VP (Pres Subj Sg P3) => el_ + "ija" ; + VP (Pres Subj Pl P1) => el_ + "ijamos" ; + VP (Pres Subj Pl P2) => el_ + "ijáis" ; + VP (Pres Subj Pl P3) => el_ + "ijan" ; + VP (Impf Ind Sg P1) => el_ + "egía" ; + VP (Impf Ind Sg P2) => el_ + "egías" ; + VP (Impf Ind Sg P3) => el_ + "egía" ; + VP (Impf Ind Pl P1) => el_ + "egíamos" ; + VP (Impf Ind Pl P2) => el_ + "egíais" ; + VP (Impf Ind Pl P3) => el_ + "egían" ; + VP (Impf Subj Sg P1) => variants {el_ + "igiera" ; el_ + "igiese"} ; + VP (Impf Subj Sg P2) => variants {el_ + "igieras" ; el_ + "igieses"} ; + VP (Impf Subj Sg P3) => variants {el_ + "igiera" ; el_ + "igiese"} ; + VP (Impf Subj Pl P1) => variants {el_ + "igiéramos" ; el_ + "igiésemos"} ; + VP (Impf Subj Pl P2) => variants {el_ + "igierais" ; el_ + "igieseis"} ; + VP (Impf Subj Pl P3) => variants {el_ + "igieran" ; el_ + "igiesen"} ; + VP (Pret Sg P1) => el_ + "egí" ; + VP (Pret Sg P2) => el_ + "egiste" ; + VP (Pret Sg P3) => el_ + "igió" ; + VP (Pret Pl P1) => el_ + "egimos" ; + VP (Pret Pl P2) => el_ + "egisteis" ; + VP (Pret Pl P3) => el_ + "igieron" ; + VP (Fut Ind Sg P1) => el_ + "egiré" ; + VP (Fut Ind Sg P2) => el_ + "egirás" ; + VP (Fut Ind Sg P3) => el_ + "egirá" ; + VP (Fut Ind Pl P1) => el_ + "egiremos" ; + VP (Fut Ind Pl P2) => el_ + "egiréis" ; + VP (Fut Ind Pl P3) => el_ + "egirán" ; + VP (Fut Subj Sg P1) => el_ + "igiere" ; + VP (Fut Subj Sg P2) => el_ + "igieres" ; + VP (Fut Subj Sg P3) => el_ + "igiere" ; + VP (Fut Subj Pl P1) => el_ + "igiéremos" ; + VP (Fut Subj Pl P2) => el_ + "igiereis" ; + VP (Fut Subj Pl P3) => el_ + "igieren" ; + VP (Cond Sg P1) => el_ + "egiría" ; + VP (Cond Sg P2) => el_ + "egirías" ; + VP (Cond Sg P3) => el_ + "egiría" ; + VP (Cond Pl P1) => el_ + "egiríamos" ; + VP (Cond Pl P2) => el_ + "egiríais" ; + VP (Cond Pl P3) => el_ + "egirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => el_ + "ige" ; + VP (Imp Sg P3) => el_ + "ija" ; + VP (Imp Pl P1) => el_ + "ijamos" ; + VP (Imp Pl P2) => el_ + "egid" ; + VP (Imp Pl P3) => el_ + "ijan" ; + VP (Pass Sg Masc) => variants {el_ + "egido" ; el_ + "ecto"} ; + VP (Pass Sg Fem) => variants {el_ + "egida" ; el_ + "ecta"} ; + VP (Pass Pl Masc) => variants {el_ + "egidos" ; el_ + "ectos"} ; + VP (Pass Pl Fem) => variants {el_ + "egidas" ; el_ + "ectas"} + } + } ; +oper empezar_37 : Str -> Verbum = \empezar -> + let emp_ = Predef.tk 4 empezar in + {s = table { + VI Infn => emp_ + "ezar" ; + VI Ger => emp_ + "ezando" ; + VI Part => emp_ + "ezado" ; + VP (Pres Ind Sg P1) => emp_ + "iezo" ; + VP (Pres Ind Sg P2) => emp_ + "iezas" ; + VP (Pres Ind Sg P3) => emp_ + "ieza" ; + VP (Pres Ind Pl P1) => emp_ + "ezamos" ; + VP (Pres Ind Pl P2) => emp_ + "ezáis" ; + VP (Pres Ind Pl P3) => emp_ + "iezan" ; + VP (Pres Subj Sg P1) => emp_ + "iece" ; + VP (Pres Subj Sg P2) => emp_ + "ieces" ; + VP (Pres Subj Sg P3) => emp_ + "iece" ; + VP (Pres Subj Pl P1) => emp_ + "ecemos" ; + VP (Pres Subj Pl P2) => emp_ + "ecéis" ; + VP (Pres Subj Pl P3) => emp_ + "iecen" ; + VP (Impf Ind Sg P1) => emp_ + "ezaba" ; + VP (Impf Ind Sg P2) => emp_ + "ezabas" ; + VP (Impf Ind Sg P3) => emp_ + "ezaba" ; + VP (Impf Ind Pl P1) => emp_ + "ezábamos" ; + VP (Impf Ind Pl P2) => emp_ + "ezabais" ; + VP (Impf Ind Pl P3) => emp_ + "ezaban" ; + VP (Impf Subj Sg P1) => variants {emp_ + "ezara" ; emp_ + "ezase"} ; + VP (Impf Subj Sg P2) => variants {emp_ + "ezaras" ; emp_ + "ezases"} ; + VP (Impf Subj Sg P3) => variants {emp_ + "ezara" ; emp_ + "ezase"} ; + VP (Impf Subj Pl P1) => variants {emp_ + "ezáramos" ; emp_ + "ezásemos"} ; + VP (Impf Subj Pl P2) => variants {emp_ + "ezarais" ; emp_ + "ezaseis"} ; + VP (Impf Subj Pl P3) => variants {emp_ + "ezaran" ; emp_ + "ezasen"} ; + VP (Pret Sg P1) => emp_ + "ecé" ; + VP (Pret Sg P2) => emp_ + "ezaste" ; + VP (Pret Sg P3) => emp_ + "ezó" ; + VP (Pret Pl P1) => emp_ + "ezamos" ; + VP (Pret Pl P2) => emp_ + "ezasteis" ; + VP (Pret Pl P3) => emp_ + "ezaron" ; + VP (Fut Ind Sg P1) => emp_ + "ezaré" ; + VP (Fut Ind Sg P2) => emp_ + "ezarás" ; + VP (Fut Ind Sg P3) => emp_ + "ezará" ; + VP (Fut Ind Pl P1) => emp_ + "ezaremos" ; + VP (Fut Ind Pl P2) => emp_ + "ezaréis" ; + VP (Fut Ind Pl P3) => emp_ + "ezarán" ; + VP (Fut Subj Sg P1) => emp_ + "ezare" ; + VP (Fut Subj Sg P2) => emp_ + "ezares" ; + VP (Fut Subj Sg P3) => emp_ + "ezare" ; + VP (Fut Subj Pl P1) => emp_ + "ezáremos" ; + VP (Fut Subj Pl P2) => emp_ + "ezareis" ; + VP (Fut Subj Pl P3) => emp_ + "ezaren" ; + VP (Cond Sg P1) => emp_ + "ezaría" ; + VP (Cond Sg P2) => emp_ + "ezarías" ; + VP (Cond Sg P3) => emp_ + "ezaría" ; + VP (Cond Pl P1) => emp_ + "ezaríamos" ; + VP (Cond Pl P2) => emp_ + "ezaríais" ; + VP (Cond Pl P3) => emp_ + "ezarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => emp_ + "ieza" ; + VP (Imp Sg P3) => emp_ + "iece" ; + VP (Imp Pl P1) => emp_ + "ecemos" ; + VP (Imp Pl P2) => emp_ + "ezad" ; + VP (Imp Pl P3) => emp_ + "iecen" ; + VP (Pass Sg Masc) => emp_ + "ezado" ; + VP (Pass Sg Fem) => emp_ + "ezada" ; + VP (Pass Pl Masc) => emp_ + "ezados" ; + VP (Pass Pl Fem) => emp_ + "ezadas" + } + } ; +oper encontrar_38 : Str -> Verbum = \encontrar -> + let enc_ = Predef.tk 6 encontrar in + {s = table { + VI Infn => enc_ + "ontrar" ; + VI Ger => enc_ + "ontrando" ; + VI Part => enc_ + "ontrado" ; + VP (Pres Ind Sg P1) => enc_ + "uentro" ; + VP (Pres Ind Sg P2) => enc_ + "uentras" ; + VP (Pres Ind Sg P3) => enc_ + "uentra" ; + VP (Pres Ind Pl P1) => enc_ + "ontramos" ; + VP (Pres Ind Pl P2) => enc_ + "ontráis" ; + VP (Pres Ind Pl P3) => enc_ + "uentran" ; + VP (Pres Subj Sg P1) => enc_ + "uentre" ; + VP (Pres Subj Sg P2) => enc_ + "uentres" ; + VP (Pres Subj Sg P3) => enc_ + "uentre" ; + VP (Pres Subj Pl P1) => enc_ + "ontremos" ; + VP (Pres Subj Pl P2) => enc_ + "ontréis" ; + VP (Pres Subj Pl P3) => enc_ + "uentren" ; + VP (Impf Ind Sg P1) => enc_ + "ontraba" ; + VP (Impf Ind Sg P2) => enc_ + "ontrabas" ; + VP (Impf Ind Sg P3) => enc_ + "ontraba" ; + VP (Impf Ind Pl P1) => enc_ + "ontrábamos" ; + VP (Impf Ind Pl P2) => enc_ + "ontrabais" ; + VP (Impf Ind Pl P3) => enc_ + "ontraban" ; + VP (Impf Subj Sg P1) => variants {enc_ + "ontrara" ; enc_ + "ontrase"} ; + VP (Impf Subj Sg P2) => variants {enc_ + "ontraras" ; enc_ + "ontrases"} ; + VP (Impf Subj Sg P3) => variants {enc_ + "ontrara" ; enc_ + "ontrase"} ; + VP (Impf Subj Pl P1) => variants {enc_ + "ontráramos" ; enc_ + "ontrásemos"} ; + VP (Impf Subj Pl P2) => variants {enc_ + "ontrarais" ; enc_ + "ontraseis"} ; + VP (Impf Subj Pl P3) => variants {enc_ + "ontraran" ; enc_ + "ontrasen"} ; + VP (Pret Sg P1) => enc_ + "ontré" ; + VP (Pret Sg P2) => enc_ + "ontraste" ; + VP (Pret Sg P3) => enc_ + "ontró" ; + VP (Pret Pl P1) => enc_ + "ontramos" ; + VP (Pret Pl P2) => enc_ + "ontrasteis" ; + VP (Pret Pl P3) => enc_ + "ontraron" ; + VP (Fut Ind Sg P1) => enc_ + "ontraré" ; + VP (Fut Ind Sg P2) => enc_ + "ontrarás" ; + VP (Fut Ind Sg P3) => enc_ + "ontrará" ; + VP (Fut Ind Pl P1) => enc_ + "ontraremos" ; + VP (Fut Ind Pl P2) => enc_ + "ontraréis" ; + VP (Fut Ind Pl P3) => enc_ + "ontrarán" ; + VP (Fut Subj Sg P1) => enc_ + "ontrare" ; + VP (Fut Subj Sg P2) => enc_ + "ontrares" ; + VP (Fut Subj Sg P3) => enc_ + "ontrare" ; + VP (Fut Subj Pl P1) => enc_ + "ontráremos" ; + VP (Fut Subj Pl P2) => enc_ + "ontrareis" ; + VP (Fut Subj Pl P3) => enc_ + "ontraren" ; + VP (Cond Sg P1) => enc_ + "ontraría" ; + VP (Cond Sg P2) => enc_ + "ontrarías" ; + VP (Cond Sg P3) => enc_ + "ontraría" ; + VP (Cond Pl P1) => enc_ + "ontraríamos" ; + VP (Cond Pl P2) => enc_ + "ontraríais" ; + VP (Cond Pl P3) => enc_ + "ontrarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => enc_ + "uentra" ; + VP (Imp Sg P3) => enc_ + "uentre" ; + VP (Imp Pl P1) => enc_ + "ontremos" ; + VP (Imp Pl P2) => enc_ + "ontrad" ; + VP (Imp Pl P3) => enc_ + "uentren" ; + VP (Pass Sg Masc) => enc_ + "ontrado" ; + VP (Pass Sg Fem) => enc_ + "ontrada" ; + VP (Pass Pl Masc) => enc_ + "ontrados" ; + VP (Pass Pl Fem) => enc_ + "ontradas" + } + } ; +oper contar_38b : Str -> Verbum = \contar -> + let c_ = Predef.tk 5 contar in + {s = table { + VI Infn => c_ + "ontar" ; + VI Ger => c_ + "ontando" ; + VI Part => c_ + "ontado" ; + VP (Pres Ind Sg P1) => c_ + "uento" ; + VP (Pres Ind Sg P2) => c_ + "uentas" ; + VP (Pres Ind Sg P3) => c_ + "uenta" ; + VP (Pres Ind Pl P1) => c_ + "ontamos" ; + VP (Pres Ind Pl P2) => c_ + "ontáis" ; + VP (Pres Ind Pl P3) => c_ + "uentan" ; + VP (Pres Subj Sg P1) => c_ + "uente" ; + VP (Pres Subj Sg P2) => c_ + "uentes" ; + VP (Pres Subj Sg P3) => c_ + "uente" ; + VP (Pres Subj Pl P1) => c_ + "ontemos" ; + VP (Pres Subj Pl P2) => c_ + "ontéis" ; + VP (Pres Subj Pl P3) => c_ + "uenten" ; + VP (Impf Ind Sg P1) => c_ + "ontaba" ; + VP (Impf Ind Sg P2) => c_ + "ontabas" ; + VP (Impf Ind Sg P3) => c_ + "ontaba" ; + VP (Impf Ind Pl P1) => c_ + "ontábamos" ; + VP (Impf Ind Pl P2) => c_ + "ontabais" ; + VP (Impf Ind Pl P3) => c_ + "ontaban" ; + VP (Impf Subj Sg P1) => variants {c_ + "ontara" ; c_ + "ontase"} ; + VP (Impf Subj Sg P2) => variants {c_ + "ontaras" ; c_ + "ontases"} ; + VP (Impf Subj Sg P3) => variants {c_ + "ontara" ; c_ + "ontase"} ; + VP (Impf Subj Pl P1) => variants {c_ + "ontáramos" ; c_ + "ontásemos"} ; + VP (Impf Subj Pl P2) => variants {c_ + "ontarais" ; c_ + "ontaseis"} ; + VP (Impf Subj Pl P3) => variants {c_ + "ontaran" ; c_ + "ontasen"} ; + VP (Pret Sg P1) => c_ + "onté" ; + VP (Pret Sg P2) => c_ + "ontaste" ; + VP (Pret Sg P3) => c_ + "ontó" ; + VP (Pret Pl P1) => c_ + "ontamos" ; + VP (Pret Pl P2) => c_ + "ontasteis" ; + VP (Pret Pl P3) => c_ + "ontaron" ; + VP (Fut Ind Sg P1) => c_ + "ontaré" ; + VP (Fut Ind Sg P2) => c_ + "ontarás" ; + VP (Fut Ind Sg P3) => c_ + "ontará" ; + VP (Fut Ind Pl P1) => c_ + "ontaremos" ; + VP (Fut Ind Pl P2) => c_ + "ontaréis" ; + VP (Fut Ind Pl P3) => c_ + "ontarán" ; + VP (Fut Subj Sg P1) => c_ + "ontare" ; + VP (Fut Subj Sg P2) => c_ + "ontares" ; + VP (Fut Subj Sg P3) => c_ + "ontare" ; + VP (Fut Subj Pl P1) => c_ + "ontáremos" ; + VP (Fut Subj Pl P2) => c_ + "ontareis" ; + VP (Fut Subj Pl P3) => c_ + "ontaren" ; + VP (Cond Sg P1) => c_ + "ontaría" ; + VP (Cond Sg P2) => c_ + "ontarías" ; + VP (Cond Sg P3) => c_ + "ontaría" ; + VP (Cond Pl P1) => c_ + "ontaríamos" ; + VP (Cond Pl P2) => c_ + "ontaríais" ; + VP (Cond Pl P3) => c_ + "ontarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => c_ + "uenta" ; + VP (Imp Sg P3) => c_ + "uente" ; + VP (Imp Pl P1) => c_ + "ontemos" ; + VP (Imp Pl P2) => c_ + "ontad" ; + VP (Imp Pl P3) => c_ + "uenten" ; + VP (Pass Sg Masc) => c_ + "ontado" ; + VP (Pass Sg Fem) => c_ + "ontada" ; + VP (Pass Pl Masc) => c_ + "ontados" ; + VP (Pass Pl Fem) => c_ + "ontadas" + } + } ; +oper enraizar_39 : Str -> Verbum = \enraizar -> + let enra_ = Predef.tk 4 enraizar in + {s = table { + VI Infn => enra_ + "izar" ; + VI Ger => enra_ + "izando" ; + VI Part => enra_ + "izado" ; + VP (Pres Ind Sg P1) => enra_ + "ízo" ; + VP (Pres Ind Sg P2) => enra_ + "ízas" ; + VP (Pres Ind Sg P3) => enra_ + "íza" ; + VP (Pres Ind Pl P1) => enra_ + "izamos" ; + VP (Pres Ind Pl P2) => enra_ + "izáis" ; + VP (Pres Ind Pl P3) => enra_ + "ízan" ; + VP (Pres Subj Sg P1) => enra_ + "íce" ; + VP (Pres Subj Sg P2) => enra_ + "íces" ; + VP (Pres Subj Sg P3) => enra_ + "íce" ; + VP (Pres Subj Pl P1) => enra_ + "icemos" ; + VP (Pres Subj Pl P2) => enra_ + "icéis" ; + VP (Pres Subj Pl P3) => enra_ + "ícen" ; + VP (Impf Ind Sg P1) => enra_ + "izaba" ; + VP (Impf Ind Sg P2) => enra_ + "izabas" ; + VP (Impf Ind Sg P3) => enra_ + "izaba" ; + VP (Impf Ind Pl P1) => enra_ + "izábamos" ; + VP (Impf Ind Pl P2) => enra_ + "izabais" ; + VP (Impf Ind Pl P3) => enra_ + "izaban" ; + VP (Impf Subj Sg P1) => variants {enra_ + "izara" ; enra_ + "izase"} ; + VP (Impf Subj Sg P2) => variants {enra_ + "izaras" ; enra_ + "izases"} ; + VP (Impf Subj Sg P3) => variants {enra_ + "izara" ; enra_ + "izase"} ; + VP (Impf Subj Pl P1) => variants {enra_ + "izáramos" ; enra_ + "izásemos"} ; + VP (Impf Subj Pl P2) => variants {enra_ + "izarais" ; enra_ + "izaseis"} ; + VP (Impf Subj Pl P3) => variants {enra_ + "izaran" ; enra_ + "izasen"} ; + VP (Pret Sg P1) => enra_ + "icé" ; + VP (Pret Sg P2) => enra_ + "izaste" ; + VP (Pret Sg P3) => enra_ + "izó" ; + VP (Pret Pl P1) => enra_ + "izamos" ; + VP (Pret Pl P2) => enra_ + "izasteis" ; + VP (Pret Pl P3) => enra_ + "izaron" ; + VP (Fut Ind Sg P1) => enra_ + "izaré" ; + VP (Fut Ind Sg P2) => enra_ + "izarás" ; + VP (Fut Ind Sg P3) => enra_ + "izará" ; + VP (Fut Ind Pl P1) => enra_ + "izaremos" ; + VP (Fut Ind Pl P2) => enra_ + "izaréis" ; + VP (Fut Ind Pl P3) => enra_ + "izarán" ; + VP (Fut Subj Sg P1) => enra_ + "izare" ; + VP (Fut Subj Sg P2) => enra_ + "izares" ; + VP (Fut Subj Sg P3) => enra_ + "izare" ; + VP (Fut Subj Pl P1) => enra_ + "izáremos" ; + VP (Fut Subj Pl P2) => enra_ + "izareis" ; + VP (Fut Subj Pl P3) => enra_ + "izaren" ; + VP (Cond Sg P1) => enra_ + "izaría" ; + VP (Cond Sg P2) => enra_ + "izarías" ; + VP (Cond Sg P3) => enra_ + "izaría" ; + VP (Cond Pl P1) => enra_ + "izaríamos" ; + VP (Cond Pl P2) => enra_ + "izaríais" ; + VP (Cond Pl P3) => enra_ + "izarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => enra_ + "íza" ; + VP (Imp Sg P3) => enra_ + "íce" ; + VP (Imp Pl P1) => enra_ + "icemos" ; + VP (Imp Pl P2) => enra_ + "izad" ; + VP (Imp Pl P3) => enra_ + "ícen" ; + VP (Pass Sg Masc) => enra_ + "izado" ; + VP (Pass Sg Fem) => enra_ + "izada" ; + VP (Pass Pl Masc) => enra_ + "izados" ; + VP (Pass Pl Fem) => enra_ + "izadas" + } + } ; +oper erguir_40 : Str -> Verbum = \erguir -> + let x_ = Predef.tk 6 erguir in + {s = table { + VI Infn => x_ + "erguir" ; + VI Ger => x_ + "irguiendo" ; + VI Part => x_ + "erguido" ; + VP (Pres Ind Sg P1) => x_ + "yergo" ; + VP (Pres Ind Sg P2) => x_ + "yergues" ; + VP (Pres Ind Sg P3) => x_ + "yergue" ; + VP (Pres Ind Pl P1) => x_ + "erguimos" ; + VP (Pres Ind Pl P2) => x_ + "erguís" ; + VP (Pres Ind Pl P3) => x_ + "yerguen" ; + VP (Pres Subj Sg P1) => x_ + "yerga" ; + VP (Pres Subj Sg P2) => x_ + "yergas" ; + VP (Pres Subj Sg P3) => x_ + "yerga" ; + VP (Pres Subj Pl P1) => x_ + "irgamos" ; + VP (Pres Subj Pl P2) => x_ + "irgáis" ; + VP (Pres Subj Pl P3) => x_ + "yergan" ; + VP (Impf Ind Sg P1) => x_ + "erguía" ; + VP (Impf Ind Sg P2) => x_ + "erguías" ; + VP (Impf Ind Sg P3) => x_ + "erguía" ; + VP (Impf Ind Pl P1) => x_ + "erguíamos" ; + VP (Impf Ind Pl P2) => x_ + "erguíais" ; + VP (Impf Ind Pl P3) => x_ + "erguían" ; + VP (Impf Subj Sg P1) => variants {x_ + "irguiera" ; x_ + "irguiese"} ; + VP (Impf Subj Sg P2) => variants {x_ + "irguieras" ; x_ + "irguieses"} ; + VP (Impf Subj Sg P3) => variants {x_ + "irguiera" ; x_ + "irguiese"} ; + VP (Impf Subj Pl P1) => variants {x_ + "irguiéramos" ; x_ + "irguiésemos"} ; + VP (Impf Subj Pl P2) => variants {x_ + "irguierais" ; x_ + "irguieseis"} ; + VP (Impf Subj Pl P3) => variants {x_ + "irguieran" ; x_ + "irguiesen"} ; + VP (Pret Sg P1) => x_ + "erguí" ; + VP (Pret Sg P2) => x_ + "erguiste" ; + VP (Pret Sg P3) => x_ + "irguió" ; + VP (Pret Pl P1) => x_ + "erguimos" ; + VP (Pret Pl P2) => x_ + "erguisteis" ; + VP (Pret Pl P3) => x_ + "irguieron" ; + VP (Fut Ind Sg P1) => x_ + "erguiré" ; + VP (Fut Ind Sg P2) => x_ + "erguirás" ; + VP (Fut Ind Sg P3) => x_ + "erguirá" ; + VP (Fut Ind Pl P1) => x_ + "erguiremos" ; + VP (Fut Ind Pl P2) => x_ + "erguiréis" ; + VP (Fut Ind Pl P3) => x_ + "erguirán" ; + VP (Fut Subj Sg P1) => x_ + "irguiere" ; + VP (Fut Subj Sg P2) => x_ + "irguieres" ; + VP (Fut Subj Sg P3) => x_ + "irguiere" ; + VP (Fut Subj Pl P1) => x_ + "irguiéremos" ; + VP (Fut Subj Pl P2) => x_ + "irguiereis" ; + VP (Fut Subj Pl P3) => x_ + "irguieren" ; + VP (Cond Sg P1) => x_ + "erguiría" ; + VP (Cond Sg P2) => x_ + "erguirías" ; + VP (Cond Sg P3) => x_ + "erguiría" ; + VP (Cond Pl P1) => x_ + "erguiríamos" ; + VP (Cond Pl P2) => x_ + "erguiríais" ; + VP (Cond Pl P3) => x_ + "erguirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => x_ + "yergue" ; + VP (Imp Sg P3) => x_ + "yerga" ; + VP (Imp Pl P1) => x_ + "yergamos" ; + VP (Imp Pl P2) => x_ + "erguid" ; + VP (Imp Pl P3) => x_ + "yergan" ; + VP (Pass Sg Masc) => x_ + "erguido" ; + VP (Pass Sg Fem) => x_ + "erguida" ; + VP (Pass Pl Masc) => x_ + "erguidos" ; + VP (Pass Pl Fem) => x_ + "erguidas" + } + } ; +oper errar_41 : Str -> Verbum = \errar -> + let x_ = Predef.tk 5 errar in + {s = table { + VI Infn => x_ + "errar" ; + VI Ger => x_ + "errando" ; + VI Part => x_ + "errado" ; + VP (Pres Ind Sg P1) => x_ + "yerro" ; + VP (Pres Ind Sg P2) => x_ + "yerras" ; + VP (Pres Ind Sg P3) => x_ + "yerra" ; + VP (Pres Ind Pl P1) => x_ + "erramos" ; + VP (Pres Ind Pl P2) => x_ + "erráis" ; + VP (Pres Ind Pl P3) => x_ + "yerran" ; + VP (Pres Subj Sg P1) => x_ + "yerre" ; + VP (Pres Subj Sg P2) => x_ + "yerres" ; + VP (Pres Subj Sg P3) => x_ + "yerre" ; + VP (Pres Subj Pl P1) => x_ + "erremos" ; + VP (Pres Subj Pl P2) => x_ + "erréis" ; + VP (Pres Subj Pl P3) => x_ + "yerren" ; + VP (Impf Ind Sg P1) => x_ + "erraba" ; + VP (Impf Ind Sg P2) => x_ + "errabas" ; + VP (Impf Ind Sg P3) => x_ + "erraba" ; + VP (Impf Ind Pl P1) => x_ + "errábamos" ; + VP (Impf Ind Pl P2) => x_ + "errabais" ; + VP (Impf Ind Pl P3) => x_ + "erraban" ; + VP (Impf Subj Sg P1) => variants {x_ + "errara" ; x_ + "errase"} ; + VP (Impf Subj Sg P2) => variants {x_ + "erraras" ; x_ + "errases"} ; + VP (Impf Subj Sg P3) => variants {x_ + "errara" ; x_ + "errase"} ; + VP (Impf Subj Pl P1) => variants {x_ + "erráramos" ; x_ + "errásemos"} ; + VP (Impf Subj Pl P2) => variants {x_ + "errarais" ; x_ + "erraseis"} ; + VP (Impf Subj Pl P3) => variants {x_ + "erraran" ; x_ + "errasen"} ; + VP (Pret Sg P1) => x_ + "erré" ; + VP (Pret Sg P2) => x_ + "erraste" ; + VP (Pret Sg P3) => x_ + "erró" ; + VP (Pret Pl P1) => x_ + "erramos" ; + VP (Pret Pl P2) => x_ + "errasteis" ; + VP (Pret Pl P3) => x_ + "erraron" ; + VP (Fut Ind Sg P1) => x_ + "erraré" ; + VP (Fut Ind Sg P2) => x_ + "errarás" ; + VP (Fut Ind Sg P3) => x_ + "errará" ; + VP (Fut Ind Pl P1) => x_ + "erraremos" ; + VP (Fut Ind Pl P2) => x_ + "erraréis" ; + VP (Fut Ind Pl P3) => x_ + "errarán" ; + VP (Fut Subj Sg P1) => x_ + "errare" ; + VP (Fut Subj Sg P2) => x_ + "errares" ; + VP (Fut Subj Sg P3) => x_ + "errare" ; + VP (Fut Subj Pl P1) => x_ + "erráremos" ; + VP (Fut Subj Pl P2) => x_ + "errareis" ; + VP (Fut Subj Pl P3) => x_ + "erraren" ; + VP (Cond Sg P1) => x_ + "erraría" ; + VP (Cond Sg P2) => x_ + "errarías" ; + VP (Cond Sg P3) => x_ + "erraría" ; + VP (Cond Pl P1) => x_ + "erraríamos" ; + VP (Cond Pl P2) => x_ + "erraríais" ; + VP (Cond Pl P3) => x_ + "errarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => x_ + "yerra" ; + VP (Imp Sg P3) => x_ + "yerre" ; + VP (Imp Pl P1) => x_ + "erremos" ; + VP (Imp Pl P2) => x_ + "errad" ; + VP (Imp Pl P3) => x_ + "yerren" ; + VP (Pass Sg Masc) => x_ + "errado" ; + VP (Pass Sg Fem) => x_ + "errada" ; + VP (Pass Pl Masc) => x_ + "errados" ; + VP (Pass Pl Fem) => x_ + "erradas" + } + } ; +oper forzar_42 : Str -> Verbum = \forzar -> + let f_ = Predef.tk 5 forzar in + {s = table { + VI Infn => f_ + "orzar" ; + VI Ger => f_ + "orzando" ; + VI Part => f_ + "orzado" ; + VP (Pres Ind Sg P1) => f_ + "uerzo" ; + VP (Pres Ind Sg P2) => f_ + "uerzas" ; + VP (Pres Ind Sg P3) => f_ + "uerza" ; + VP (Pres Ind Pl P1) => f_ + "orzamos" ; + VP (Pres Ind Pl P2) => f_ + "orzáis" ; + VP (Pres Ind Pl P3) => f_ + "uerzan" ; + VP (Pres Subj Sg P1) => f_ + "uerce" ; + VP (Pres Subj Sg P2) => f_ + "uerces" ; + VP (Pres Subj Sg P3) => f_ + "uerce" ; + VP (Pres Subj Pl P1) => f_ + "orcemos" ; + VP (Pres Subj Pl P2) => f_ + "orcéis" ; + VP (Pres Subj Pl P3) => f_ + "uercen" ; + VP (Impf Ind Sg P1) => f_ + "orzaba" ; + VP (Impf Ind Sg P2) => f_ + "orzabas" ; + VP (Impf Ind Sg P3) => f_ + "orzaba" ; + VP (Impf Ind Pl P1) => f_ + "orzábamos" ; + VP (Impf Ind Pl P2) => f_ + "orzabais" ; + VP (Impf Ind Pl P3) => f_ + "orzaban" ; + VP (Impf Subj Sg P1) => variants {f_ + "orzara" ; f_ + "orzase"} ; + VP (Impf Subj Sg P2) => variants {f_ + "orzaras" ; f_ + "orzases"} ; + VP (Impf Subj Sg P3) => variants {f_ + "orzara" ; f_ + "orzase"} ; + VP (Impf Subj Pl P1) => variants {f_ + "orzáramos" ; f_ + "orzásemos"} ; + VP (Impf Subj Pl P2) => variants {f_ + "orzarais" ; f_ + "orzaseis"} ; + VP (Impf Subj Pl P3) => variants {f_ + "orzaran" ; f_ + "orzasen"} ; + VP (Pret Sg P1) => f_ + "orcé" ; + VP (Pret Sg P2) => f_ + "orzaste" ; + VP (Pret Sg P3) => f_ + "orzó" ; + VP (Pret Pl P1) => f_ + "orzamos" ; + VP (Pret Pl P2) => f_ + "orzasteis" ; + VP (Pret Pl P3) => f_ + "orzaron" ; + VP (Fut Ind Sg P1) => f_ + "orzaré" ; + VP (Fut Ind Sg P2) => f_ + "orzarás" ; + VP (Fut Ind Sg P3) => f_ + "orzará" ; + VP (Fut Ind Pl P1) => f_ + "orzaremos" ; + VP (Fut Ind Pl P2) => f_ + "orzaréis" ; + VP (Fut Ind Pl P3) => f_ + "orzarán" ; + VP (Fut Subj Sg P1) => f_ + "orzare" ; + VP (Fut Subj Sg P2) => f_ + "orzares" ; + VP (Fut Subj Sg P3) => f_ + "orzare" ; + VP (Fut Subj Pl P1) => f_ + "orzáremos" ; + VP (Fut Subj Pl P2) => f_ + "orzareis" ; + VP (Fut Subj Pl P3) => f_ + "orzaren" ; + VP (Cond Sg P1) => f_ + "orzaría" ; + VP (Cond Sg P2) => f_ + "orzarías" ; + VP (Cond Sg P3) => f_ + "orzaría" ; + VP (Cond Pl P1) => f_ + "orzaríamos" ; + VP (Cond Pl P2) => f_ + "orzaríais" ; + VP (Cond Pl P3) => f_ + "orzarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => f_ + "uerza" ; + VP (Imp Sg P3) => f_ + "uerce" ; + VP (Imp Pl P1) => f_ + "orcemos" ; + VP (Imp Pl P2) => f_ + "orzad" ; + VP (Imp Pl P3) => f_ + "uercen" ; + VP (Pass Sg Masc) => f_ + "orzado" ; + VP (Pass Sg Fem) => f_ + "orzada" ; + VP (Pass Pl Masc) => f_ + "orzados" ; + VP (Pass Pl Fem) => f_ + "orzadas" + } + } ; +oper guiar_43 : Str -> Verbum = \guiar -> + let gu_ = Predef.tk 3 guiar in + {s = table { + VI Infn => gu_ + "iar" ; + VI Ger => gu_ + "iando" ; + VI Part => gu_ + "iado" ; + VP (Pres Ind Sg P1) => gu_ + "ío" ; + VP (Pres Ind Sg P2) => gu_ + "ías" ; + VP (Pres Ind Sg P3) => gu_ + "ía" ; + VP (Pres Ind Pl P1) => gu_ + "iamos" ; + VP (Pres Ind Pl P2) => gu_ + "iáis" ; + VP (Pres Ind Pl P3) => gu_ + "ían" ; + VP (Pres Subj Sg P1) => gu_ + "íe" ; + VP (Pres Subj Sg P2) => gu_ + "íes" ; + VP (Pres Subj Sg P3) => gu_ + "íe" ; + VP (Pres Subj Pl P1) => gu_ + "iemos" ; + VP (Pres Subj Pl P2) => gu_ + "iéis" ; + VP (Pres Subj Pl P3) => gu_ + "íen" ; + VP (Impf Ind Sg P1) => gu_ + "iaba" ; + VP (Impf Ind Sg P2) => gu_ + "iabas" ; + VP (Impf Ind Sg P3) => gu_ + "iaba" ; + VP (Impf Ind Pl P1) => gu_ + "iábamos" ; + VP (Impf Ind Pl P2) => gu_ + "iabais" ; + VP (Impf Ind Pl P3) => gu_ + "iaban" ; + VP (Impf Subj Sg P1) => variants {gu_ + "iara" ; gu_ + "iase"} ; + VP (Impf Subj Sg P2) => variants {gu_ + "iaras" ; gu_ + "iases"} ; + VP (Impf Subj Sg P3) => variants {gu_ + "iara" ; gu_ + "iase"} ; + VP (Impf Subj Pl P1) => variants {gu_ + "iáramos" ; gu_ + "iásemos"} ; + VP (Impf Subj Pl P2) => variants {gu_ + "iarais" ; gu_ + "iaseis"} ; + VP (Impf Subj Pl P3) => variants {gu_ + "iaran" ; gu_ + "iasen"} ; + VP (Pret Sg P1) => gu_ + "ié" ; + VP (Pret Sg P2) => gu_ + "iaste" ; + VP (Pret Sg P3) => gu_ + "ió" ; + VP (Pret Pl P1) => gu_ + "iamos" ; + VP (Pret Pl P2) => gu_ + "iasteis" ; + VP (Pret Pl P3) => gu_ + "iaron" ; + VP (Fut Ind Sg P1) => gu_ + "iaré" ; + VP (Fut Ind Sg P2) => gu_ + "iarás" ; + VP (Fut Ind Sg P3) => gu_ + "iará" ; + VP (Fut Ind Pl P1) => gu_ + "iaremos" ; + VP (Fut Ind Pl P2) => gu_ + "iaréis" ; + VP (Fut Ind Pl P3) => gu_ + "iarán" ; + VP (Fut Subj Sg P1) => gu_ + "iare" ; + VP (Fut Subj Sg P2) => gu_ + "iares" ; + VP (Fut Subj Sg P3) => gu_ + "iare" ; + VP (Fut Subj Pl P1) => gu_ + "iáremos" ; + VP (Fut Subj Pl P2) => gu_ + "iareis" ; + VP (Fut Subj Pl P3) => gu_ + "iaren" ; + VP (Cond Sg P1) => gu_ + "iaría" ; + VP (Cond Sg P2) => gu_ + "iarías" ; + VP (Cond Sg P3) => gu_ + "iaría" ; + VP (Cond Pl P1) => gu_ + "iaríamos" ; + VP (Cond Pl P2) => gu_ + "iaríais" ; + VP (Cond Pl P3) => gu_ + "iarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => gu_ + "ía" ; + VP (Imp Sg P3) => gu_ + "íe" ; + VP (Imp Pl P1) => gu_ + "iemos" ; + VP (Imp Pl P2) => gu_ + "iad" ; + VP (Imp Pl P3) => gu_ + "íen" ; + VP (Pass Sg Masc) => gu_ + "iado" ; + VP (Pass Sg Fem) => gu_ + "iada" ; + VP (Pass Pl Masc) => gu_ + "iados" ; + VP (Pass Pl Fem) => gu_ + "iadas" + } + } ; +oper hacer_44 : Str -> Verbum = \hacer -> + let h_ = Predef.tk 4 hacer in + {s = table { + VI Infn => h_ + "acer" ; + VI Ger => h_ + "aciendo" ; + VI Part => h_ + "echo" ; + VP (Pres Ind Sg P1) => h_ + "ago" ; + VP (Pres Ind Sg P2) => h_ + "aces" ; + VP (Pres Ind Sg P3) => h_ + "ace" ; + VP (Pres Ind Pl P1) => h_ + "acemos" ; + VP (Pres Ind Pl P2) => h_ + "acéis" ; + VP (Pres Ind Pl P3) => h_ + "acen" ; + VP (Pres Subj Sg P1) => h_ + "aga" ; + VP (Pres Subj Sg P2) => h_ + "agas" ; + VP (Pres Subj Sg P3) => h_ + "aga" ; + VP (Pres Subj Pl P1) => h_ + "agamos" ; + VP (Pres Subj Pl P2) => h_ + "agáis" ; + VP (Pres Subj Pl P3) => h_ + "agan" ; + VP (Impf Ind Sg P1) => h_ + "acía" ; + VP (Impf Ind Sg P2) => h_ + "acías" ; + VP (Impf Ind Sg P3) => h_ + "acía" ; + VP (Impf Ind Pl P1) => h_ + "acíamos" ; + VP (Impf Ind Pl P2) => h_ + "acíais" ; + VP (Impf Ind Pl P3) => h_ + "acían" ; + VP (Impf Subj Sg P1) => variants {h_ + "iciera" ; h_ + "iciese"} ; + VP (Impf Subj Sg P2) => variants {h_ + "icieras" ; h_ + "icieses"} ; + VP (Impf Subj Sg P3) => variants {h_ + "iciera" ; h_ + "iciese"} ; + VP (Impf Subj Pl P1) => variants {h_ + "iciéramos" ; h_ + "iciésemos"} ; + VP (Impf Subj Pl P2) => variants {h_ + "icierais" ; h_ + "icieseis"} ; + VP (Impf Subj Pl P3) => variants {h_ + "icieran" ; h_ + "iciesen"} ; + VP (Pret Sg P1) => h_ + "ice" ; + VP (Pret Sg P2) => h_ + "iciste" ; + VP (Pret Sg P3) => h_ + "izo" ; + VP (Pret Pl P1) => h_ + "icimos" ; + VP (Pret Pl P2) => h_ + "icisteis" ; + VP (Pret Pl P3) => h_ + "icieron" ; + VP (Fut Ind Sg P1) => h_ + "aré" ; + VP (Fut Ind Sg P2) => h_ + "arás" ; + VP (Fut Ind Sg P3) => h_ + "ará" ; + VP (Fut Ind Pl P1) => h_ + "aremos" ; + VP (Fut Ind Pl P2) => h_ + "aréis" ; + VP (Fut Ind Pl P3) => h_ + "arán" ; + VP (Fut Subj Sg P1) => h_ + "iciere" ; + VP (Fut Subj Sg P2) => h_ + "icieres" ; + VP (Fut Subj Sg P3) => h_ + "iciere" ; + VP (Fut Subj Pl P1) => h_ + "iciéremos" ; + VP (Fut Subj Pl P2) => h_ + "iciereis" ; + VP (Fut Subj Pl P3) => h_ + "icieren" ; + VP (Cond Sg P1) => h_ + "aría" ; + VP (Cond Sg P2) => h_ + "arías" ; + VP (Cond Sg P3) => h_ + "aría" ; + VP (Cond Pl P1) => h_ + "aríamos" ; + VP (Cond Pl P2) => h_ + "aríais" ; + VP (Cond Pl P3) => h_ + "arían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => h_ + "az" ; + VP (Imp Sg P3) => h_ + "aga" ; + VP (Imp Pl P1) => h_ + "agamos" ; + VP (Imp Pl P2) => h_ + "aced" ; + VP (Imp Pl P3) => h_ + "agan" ; + VP (Pass Sg Masc) => h_ + "echo" ; + VP (Pass Sg Fem) => h_ + "echa" ; + VP (Pass Pl Masc) => h_ + "echos" ; + VP (Pass Pl Fem) => h_ + "echas" + } + } ; +oper influir_45 : Str -> Verbum = \influir -> + let influ_ = Predef.tk 2 influir in + {s = table { + VI Infn => influ_ + "ir" ; + VI Ger => influ_ + "yendo" ; + VI Part => influ_ + "ido" ; + VP (Pres Ind Sg P1) => influ_ + "yo" ; + VP (Pres Ind Sg P2) => influ_ + "yes" ; + VP (Pres Ind Sg P3) => influ_ + "ye" ; + VP (Pres Ind Pl P1) => influ_ + "imos" ; + VP (Pres Ind Pl P2) => influ_ + "ís" ; + VP (Pres Ind Pl P3) => influ_ + "yen" ; + VP (Pres Subj Sg P1) => influ_ + "ya" ; + VP (Pres Subj Sg P2) => influ_ + "yas" ; + VP (Pres Subj Sg P3) => influ_ + "ya" ; + VP (Pres Subj Pl P1) => influ_ + "yamos" ; + VP (Pres Subj Pl P2) => influ_ + "yáis" ; + VP (Pres Subj Pl P3) => influ_ + "yan" ; + VP (Impf Ind Sg P1) => influ_ + "ía" ; + VP (Impf Ind Sg P2) => influ_ + "ías" ; + VP (Impf Ind Sg P3) => influ_ + "ía" ; + VP (Impf Ind Pl P1) => influ_ + "íamos" ; + VP (Impf Ind Pl P2) => influ_ + "íais" ; + VP (Impf Ind Pl P3) => influ_ + "ían" ; + VP (Impf Subj Sg P1) => variants {influ_ + "yera" ; influ_ + "yese"} ; + VP (Impf Subj Sg P2) => variants {influ_ + "yeras" ; influ_ + "yeses"} ; + VP (Impf Subj Sg P3) => variants {influ_ + "yera" ; influ_ + "yese"} ; + VP (Impf Subj Pl P1) => variants {influ_ + "yéramos" ; influ_ + "yésemos"} ; + VP (Impf Subj Pl P2) => variants {influ_ + "yerais" ; influ_ + "yeseis"} ; + VP (Impf Subj Pl P3) => variants {influ_ + "yeran" ; influ_ + "yesen"} ; + VP (Pret Sg P1) => influ_ + "í" ; + VP (Pret Sg P2) => influ_ + "iste" ; + VP (Pret Sg P3) => influ_ + "yó" ; + VP (Pret Pl P1) => influ_ + "imos" ; + VP (Pret Pl P2) => influ_ + "isteis" ; + VP (Pret Pl P3) => influ_ + "yeron" ; + VP (Fut Ind Sg P1) => influ_ + "iré" ; + VP (Fut Ind Sg P2) => influ_ + "irás" ; + VP (Fut Ind Sg P3) => influ_ + "irá" ; + VP (Fut Ind Pl P1) => influ_ + "iremos" ; + VP (Fut Ind Pl P2) => influ_ + "iréis" ; + VP (Fut Ind Pl P3) => influ_ + "irán" ; + VP (Fut Subj Sg P1) => influ_ + "yere" ; + VP (Fut Subj Sg P2) => influ_ + "yeres" ; + VP (Fut Subj Sg P3) => influ_ + "yere" ; + VP (Fut Subj Pl P1) => influ_ + "yéremos" ; + VP (Fut Subj Pl P2) => influ_ + "yereis" ; + VP (Fut Subj Pl P3) => influ_ + "yeren" ; + VP (Cond Sg P1) => influ_ + "iría" ; + VP (Cond Sg P2) => influ_ + "irías" ; + VP (Cond Sg P3) => influ_ + "iría" ; + VP (Cond Pl P1) => influ_ + "iríamos" ; + VP (Cond Pl P2) => influ_ + "iríais" ; + VP (Cond Pl P3) => influ_ + "irían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => influ_ + "ye" ; + VP (Imp Sg P3) => influ_ + "ya" ; + VP (Imp Pl P1) => influ_ + "yamos" ; + VP (Imp Pl P2) => influ_ + "id" ; + VP (Imp Pl P3) => influ_ + "yan" ; + VP (Pass Sg Masc) => influ_ + "ido" ; + VP (Pass Sg Fem) => influ_ + "ida" ; + VP (Pass Pl Masc) => influ_ + "idos" ; + VP (Pass Pl Fem) => influ_ + "idas" + } + } ; +oper ir_46 : Str -> Verbum = \ir -> + let x_ = Predef.tk 2 ir in + {s = table { + VI Infn => x_ + "ir" ; + VI Ger => x_ + "yendo" ; + VI Part => x_ + "ido" ; + VP (Pres Ind Sg P1) => x_ + "voy" ; + VP (Pres Ind Sg P2) => x_ + "vas" ; + VP (Pres Ind Sg P3) => x_ + "va" ; + VP (Pres Ind Pl P1) => x_ + "vamos" ; + VP (Pres Ind Pl P2) => x_ + "vais" ; + VP (Pres Ind Pl P3) => x_ + "van" ; + VP (Pres Subj Sg P1) => x_ + "vaya" ; + VP (Pres Subj Sg P2) => x_ + "vayas" ; + VP (Pres Subj Sg P3) => x_ + "vaya" ; + VP (Pres Subj Pl P1) => x_ + "vayamos" ; + VP (Pres Subj Pl P2) => x_ + "vayáis" ; + VP (Pres Subj Pl P3) => x_ + "vayan" ; + VP (Impf Ind Sg P1) => x_ + "iba" ; + VP (Impf Ind Sg P2) => x_ + "ibas" ; + VP (Impf Ind Sg P3) => x_ + "iba" ; + VP (Impf Ind Pl P1) => x_ + "íbamos" ; + VP (Impf Ind Pl P2) => x_ + "ibais" ; + VP (Impf Ind Pl P3) => x_ + "iban" ; + VP (Impf Subj Sg P1) => variants {x_ + "fuera" ; x_ + "fuese"} ; + VP (Impf Subj Sg P2) => variants {x_ + "fueras" ; x_ + "fueses"} ; + VP (Impf Subj Sg P3) => variants {x_ + "fuera" ; x_ + "fuese"} ; + VP (Impf Subj Pl P1) => variants {x_ + "fuéramos" ; x_ + "fuésemos"} ; + VP (Impf Subj Pl P2) => variants {x_ + "fuerais" ; x_ + "fueseis"} ; + VP (Impf Subj Pl P3) => variants {x_ + "fueran" ; x_ + "fuesen"} ; + VP (Pret Sg P1) => x_ + "fui" ; + VP (Pret Sg P2) => x_ + "fuiste" ; + VP (Pret Sg P3) => x_ + "fue" ; + VP (Pret Pl P1) => x_ + "fuimos" ; + VP (Pret Pl P2) => x_ + "fuisteis" ; + VP (Pret Pl P3) => x_ + "fueron" ; + VP (Fut Ind Sg P1) => x_ + "iré" ; + VP (Fut Ind Sg P2) => x_ + "irás" ; + VP (Fut Ind Sg P3) => x_ + "irá" ; + VP (Fut Ind Pl P1) => x_ + "iremos" ; + VP (Fut Ind Pl P2) => x_ + "iréis" ; + VP (Fut Ind Pl P3) => x_ + "irán" ; + VP (Fut Subj Sg P1) => x_ + "fuere" ; + VP (Fut Subj Sg P2) => x_ + "fueres" ; + VP (Fut Subj Sg P3) => x_ + "fuere" ; + VP (Fut Subj Pl P1) => x_ + "fuéremos" ; + VP (Fut Subj Pl P2) => x_ + "fuereis" ; + VP (Fut Subj Pl P3) => x_ + "fueren" ; + VP (Cond Sg P1) => x_ + "iría" ; + VP (Cond Sg P2) => x_ + "irías" ; + VP (Cond Sg P3) => x_ + "iría" ; + VP (Cond Pl P1) => x_ + "iríamos" ; + VP (Cond Pl P2) => x_ + "iríais" ; + VP (Cond Pl P3) => x_ + "irían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => x_ + "ve" ; + VP (Imp Sg P3) => x_ + "vaya" ; + VP (Imp Pl P1) => variants {x_ + "vamos" ; x_ + "vayamos"} ; + VP (Imp Pl P2) => x_ + "id" ; + VP (Imp Pl P3) => x_ + "vayan" ; + VP (Pass Sg Masc) => x_ + "ido" ; + VP (Pass Sg Fem) => x_ + "ida" ; + VP (Pass Pl Masc) => x_ + "idos" ; + VP (Pass Pl Fem) => x_ + "idas" + } + } ; +oper jugar_47 : Str -> Verbum = \jugar -> + let ju_ = Predef.tk 3 jugar in + {s = table { + VI Infn => ju_ + "gar" ; + VI Ger => ju_ + "gando" ; + VI Part => ju_ + "gado" ; + VP (Pres Ind Sg P1) => ju_ + "ego" ; + VP (Pres Ind Sg P2) => ju_ + "egas" ; + VP (Pres Ind Sg P3) => ju_ + "ega" ; + VP (Pres Ind Pl P1) => ju_ + "gamos" ; + VP (Pres Ind Pl P2) => ju_ + "gáis" ; + VP (Pres Ind Pl P3) => ju_ + "egan" ; + VP (Pres Subj Sg P1) => ju_ + "egue" ; + VP (Pres Subj Sg P2) => ju_ + "egues" ; + VP (Pres Subj Sg P3) => ju_ + "egue" ; + VP (Pres Subj Pl P1) => ju_ + "guemos" ; + VP (Pres Subj Pl P2) => ju_ + "guéis" ; + VP (Pres Subj Pl P3) => ju_ + "eguen" ; + VP (Impf Ind Sg P1) => ju_ + "gaba" ; + VP (Impf Ind Sg P2) => ju_ + "gabas" ; + VP (Impf Ind Sg P3) => ju_ + "gaba" ; + VP (Impf Ind Pl P1) => ju_ + "gábamos" ; + VP (Impf Ind Pl P2) => ju_ + "gabais" ; + VP (Impf Ind Pl P3) => ju_ + "gaban" ; + VP (Impf Subj Sg P1) => variants {ju_ + "gara" ; ju_ + "gase"} ; + VP (Impf Subj Sg P2) => variants {ju_ + "garas" ; ju_ + "gases"} ; + VP (Impf Subj Sg P3) => variants {ju_ + "gara" ; ju_ + "gase"} ; + VP (Impf Subj Pl P1) => variants {ju_ + "gáramos" ; ju_ + "gásemos"} ; + VP (Impf Subj Pl P2) => variants {ju_ + "garais" ; ju_ + "gaseis"} ; + VP (Impf Subj Pl P3) => variants {ju_ + "garan" ; ju_ + "gasen"} ; + VP (Pret Sg P1) => ju_ + "gué" ; + VP (Pret Sg P2) => ju_ + "gaste" ; + VP (Pret Sg P3) => ju_ + "gó" ; + VP (Pret Pl P1) => ju_ + "gamos" ; + VP (Pret Pl P2) => ju_ + "gasteis" ; + VP (Pret Pl P3) => ju_ + "garon" ; + VP (Fut Ind Sg P1) => ju_ + "garé" ; + VP (Fut Ind Sg P2) => ju_ + "garás" ; + VP (Fut Ind Sg P3) => ju_ + "gará" ; + VP (Fut Ind Pl P1) => ju_ + "garemos" ; + VP (Fut Ind Pl P2) => ju_ + "garéis" ; + VP (Fut Ind Pl P3) => ju_ + "garán" ; + VP (Fut Subj Sg P1) => ju_ + "gare" ; + VP (Fut Subj Sg P2) => ju_ + "gares" ; + VP (Fut Subj Sg P3) => ju_ + "gare" ; + VP (Fut Subj Pl P1) => ju_ + "gáremos" ; + VP (Fut Subj Pl P2) => ju_ + "gareis" ; + VP (Fut Subj Pl P3) => ju_ + "garen" ; + VP (Cond Sg P1) => ju_ + "garía" ; + VP (Cond Sg P2) => ju_ + "garías" ; + VP (Cond Sg P3) => ju_ + "garía" ; + VP (Cond Pl P1) => ju_ + "garíamos" ; + VP (Cond Pl P2) => ju_ + "garíais" ; + VP (Cond Pl P3) => ju_ + "garían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => ju_ + "ega" ; + VP (Imp Sg P3) => ju_ + "egue" ; + VP (Imp Pl P1) => ju_ + "guemos" ; + VP (Imp Pl P2) => ju_ + "gad" ; + VP (Imp Pl P3) => ju_ + "eguen" ; + VP (Pass Sg Masc) => ju_ + "gado" ; + VP (Pass Sg Fem) => ju_ + "gada" ; + VP (Pass Pl Masc) => ju_ + "gados" ; + VP (Pass Pl Fem) => ju_ + "gadas" + } + } ; +oper lucir_48 : Str -> Verbum = \lucir -> + let lu_ = Predef.tk 3 lucir in + {s = table { + VI Infn => lu_ + "cir" ; + VI Ger => lu_ + "ciendo" ; + VI Part => lu_ + "cido" ; + VP (Pres Ind Sg P1) => lu_ + "zco" ; + VP (Pres Ind Sg P2) => lu_ + "ces" ; + VP (Pres Ind Sg P3) => lu_ + "ce" ; + VP (Pres Ind Pl P1) => lu_ + "cimos" ; + VP (Pres Ind Pl P2) => lu_ + "cís" ; + VP (Pres Ind Pl P3) => lu_ + "cen" ; + VP (Pres Subj Sg P1) => lu_ + "zca" ; + VP (Pres Subj Sg P2) => lu_ + "zcas" ; + VP (Pres Subj Sg P3) => lu_ + "zca" ; + VP (Pres Subj Pl P1) => lu_ + "zcamos" ; + VP (Pres Subj Pl P2) => lu_ + "zcáis" ; + VP (Pres Subj Pl P3) => lu_ + "zcan" ; + VP (Impf Ind Sg P1) => lu_ + "cía" ; + VP (Impf Ind Sg P2) => lu_ + "cías" ; + VP (Impf Ind Sg P3) => lu_ + "cía" ; + VP (Impf Ind Pl P1) => lu_ + "cíamos" ; + VP (Impf Ind Pl P2) => lu_ + "cíais" ; + VP (Impf Ind Pl P3) => lu_ + "cían" ; + VP (Impf Subj Sg P1) => variants {lu_ + "ciera" ; lu_ + "ciese"} ; + VP (Impf Subj Sg P2) => variants {lu_ + "cieras" ; lu_ + "cieses"} ; + VP (Impf Subj Sg P3) => variants {lu_ + "ciera" ; lu_ + "ciese"} ; + VP (Impf Subj Pl P1) => variants {lu_ + "ciéramos" ; lu_ + "ciésemos"} ; + VP (Impf Subj Pl P2) => variants {lu_ + "cierais" ; lu_ + "cieseis"} ; + VP (Impf Subj Pl P3) => variants {lu_ + "cieran" ; lu_ + "ciesen"} ; + VP (Pret Sg P1) => lu_ + "cí" ; + VP (Pret Sg P2) => lu_ + "ciste" ; + VP (Pret Sg P3) => lu_ + "ció" ; + VP (Pret Pl P1) => lu_ + "cimos" ; + VP (Pret Pl P2) => lu_ + "cisteis" ; + VP (Pret Pl P3) => lu_ + "cieron" ; + VP (Fut Ind Sg P1) => lu_ + "ciré" ; + VP (Fut Ind Sg P2) => lu_ + "cirás" ; + VP (Fut Ind Sg P3) => lu_ + "cirá" ; + VP (Fut Ind Pl P1) => lu_ + "ciremos" ; + VP (Fut Ind Pl P2) => lu_ + "ciréis" ; + VP (Fut Ind Pl P3) => lu_ + "cirán" ; + VP (Fut Subj Sg P1) => lu_ + "ciere" ; + VP (Fut Subj Sg P2) => lu_ + "cieres" ; + VP (Fut Subj Sg P3) => lu_ + "ciere" ; + VP (Fut Subj Pl P1) => lu_ + "ciéremos" ; + VP (Fut Subj Pl P2) => lu_ + "ciereis" ; + VP (Fut Subj Pl P3) => lu_ + "cieren" ; + VP (Cond Sg P1) => lu_ + "ciría" ; + VP (Cond Sg P2) => lu_ + "cirías" ; + VP (Cond Sg P3) => lu_ + "ciría" ; + VP (Cond Pl P1) => lu_ + "ciríamos" ; + VP (Cond Pl P2) => lu_ + "ciríais" ; + VP (Cond Pl P3) => lu_ + "cirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => lu_ + "ce" ; + VP (Imp Sg P3) => lu_ + "zca" ; + VP (Imp Pl P1) => lu_ + "zcamos" ; + VP (Imp Pl P2) => lu_ + "cid" ; + VP (Imp Pl P3) => lu_ + "zcan" ; + VP (Pass Sg Masc) => lu_ + "cido" ; + VP (Pass Sg Fem) => lu_ + "cida" ; + VP (Pass Pl Masc) => lu_ + "cidos" ; + VP (Pass Pl Fem) => lu_ + "cidas" + } + } ; +oper mecer_49 : Str -> Verbum = \mecer -> + let me_ = Predef.tk 3 mecer in + {s = table { + VI Infn => me_ + "cer" ; + VI Ger => me_ + "ciendo" ; + VI Part => me_ + "cido" ; + VP (Pres Ind Sg P1) => me_ + "zo" ; + VP (Pres Ind Sg P2) => me_ + "ces" ; + VP (Pres Ind Sg P3) => me_ + "ce" ; + VP (Pres Ind Pl P1) => me_ + "cemos" ; + VP (Pres Ind Pl P2) => me_ + "céis" ; + VP (Pres Ind Pl P3) => me_ + "cen" ; + VP (Pres Subj Sg P1) => me_ + "za" ; + VP (Pres Subj Sg P2) => me_ + "zas" ; + VP (Pres Subj Sg P3) => me_ + "za" ; + VP (Pres Subj Pl P1) => me_ + "zamos" ; + VP (Pres Subj Pl P2) => me_ + "záis" ; + VP (Pres Subj Pl P3) => me_ + "zan" ; + VP (Impf Ind Sg P1) => me_ + "cía" ; + VP (Impf Ind Sg P2) => me_ + "cías" ; + VP (Impf Ind Sg P3) => me_ + "cía" ; + VP (Impf Ind Pl P1) => me_ + "cíamos" ; + VP (Impf Ind Pl P2) => me_ + "cíais" ; + VP (Impf Ind Pl P3) => me_ + "cían" ; + VP (Impf Subj Sg P1) => variants {me_ + "ciera" ; me_ + "ciese"} ; + VP (Impf Subj Sg P2) => variants {me_ + "cieras" ; me_ + "cieses"} ; + VP (Impf Subj Sg P3) => variants {me_ + "ciera" ; me_ + "ciese"} ; + VP (Impf Subj Pl P1) => variants {me_ + "ciéramos" ; me_ + "ciésemos"} ; + VP (Impf Subj Pl P2) => variants {me_ + "cierais" ; me_ + "cieseis"} ; + VP (Impf Subj Pl P3) => variants {me_ + "cieran" ; me_ + "ciesen"} ; + VP (Pret Sg P1) => me_ + "cí" ; + VP (Pret Sg P2) => me_ + "ciste" ; + VP (Pret Sg P3) => me_ + "ció" ; + VP (Pret Pl P1) => me_ + "cimos" ; + VP (Pret Pl P2) => me_ + "cisteis" ; + VP (Pret Pl P3) => me_ + "cieron" ; + VP (Fut Ind Sg P1) => me_ + "ceré" ; + VP (Fut Ind Sg P2) => me_ + "cerás" ; + VP (Fut Ind Sg P3) => me_ + "cerá" ; + VP (Fut Ind Pl P1) => me_ + "ceremos" ; + VP (Fut Ind Pl P2) => me_ + "ceréis" ; + VP (Fut Ind Pl P3) => me_ + "cerán" ; + VP (Fut Subj Sg P1) => me_ + "ciere" ; + VP (Fut Subj Sg P2) => me_ + "cieres" ; + VP (Fut Subj Sg P3) => me_ + "ciere" ; + VP (Fut Subj Pl P1) => me_ + "ciéremos" ; + VP (Fut Subj Pl P2) => me_ + "ciereis" ; + VP (Fut Subj Pl P3) => me_ + "cieren" ; + VP (Cond Sg P1) => me_ + "cería" ; + VP (Cond Sg P2) => me_ + "cerías" ; + VP (Cond Sg P3) => me_ + "cería" ; + VP (Cond Pl P1) => me_ + "ceríamos" ; + VP (Cond Pl P2) => me_ + "ceríais" ; + VP (Cond Pl P3) => me_ + "cerían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => me_ + "ce" ; + VP (Imp Sg P3) => me_ + "za" ; + VP (Imp Pl P1) => me_ + "zamos" ; + VP (Imp Pl P2) => me_ + "ced" ; + VP (Imp Pl P3) => me_ + "zan" ; + VP (Pass Sg Masc) => me_ + "cido" ; + VP (Pass Sg Fem) => me_ + "cida" ; + VP (Pass Pl Masc) => me_ + "cidos" ; + VP (Pass Pl Fem) => me_ + "cidas" + } + } ; +oper mover_50 : Str -> Verbum = \mover -> + let m_ = Predef.tk 4 mover in + {s = table { + VI Infn => m_ + "over" ; + VI Ger => m_ + "oviendo" ; + VI Part => m_ + "ovido" ; + VP (Pres Ind Sg P1) => m_ + "uevo" ; + VP (Pres Ind Sg P2) => m_ + "ueves" ; + VP (Pres Ind Sg P3) => m_ + "ueve" ; + VP (Pres Ind Pl P1) => m_ + "ovemos" ; + VP (Pres Ind Pl P2) => m_ + "ovéis" ; + VP (Pres Ind Pl P3) => m_ + "ueven" ; + VP (Pres Subj Sg P1) => m_ + "ueva" ; + VP (Pres Subj Sg P2) => m_ + "uevas" ; + VP (Pres Subj Sg P3) => m_ + "ueva" ; + VP (Pres Subj Pl P1) => m_ + "ovamos" ; + VP (Pres Subj Pl P2) => m_ + "ováis" ; + VP (Pres Subj Pl P3) => m_ + "uevan" ; + VP (Impf Ind Sg P1) => m_ + "ovía" ; + VP (Impf Ind Sg P2) => m_ + "ovías" ; + VP (Impf Ind Sg P3) => m_ + "ovía" ; + VP (Impf Ind Pl P1) => m_ + "ovíamos" ; + VP (Impf Ind Pl P2) => m_ + "ovíais" ; + VP (Impf Ind Pl P3) => m_ + "ovían" ; + VP (Impf Subj Sg P1) => variants {m_ + "oviera" ; m_ + "oviese"} ; + VP (Impf Subj Sg P2) => variants {m_ + "ovieras" ; m_ + "ovieses"} ; + VP (Impf Subj Sg P3) => variants {m_ + "oviera" ; m_ + "oviese"} ; + VP (Impf Subj Pl P1) => variants {m_ + "oviéramos" ; m_ + "oviésemos"} ; + VP (Impf Subj Pl P2) => variants {m_ + "ovierais" ; m_ + "ovieseis"} ; + VP (Impf Subj Pl P3) => variants {m_ + "ovieran" ; m_ + "oviesen"} ; + VP (Pret Sg P1) => m_ + "oví" ; + VP (Pret Sg P2) => m_ + "oviste" ; + VP (Pret Sg P3) => m_ + "ovió" ; + VP (Pret Pl P1) => m_ + "ovimos" ; + VP (Pret Pl P2) => m_ + "ovisteis" ; + VP (Pret Pl P3) => m_ + "ovieron" ; + VP (Fut Ind Sg P1) => m_ + "overé" ; + VP (Fut Ind Sg P2) => m_ + "overás" ; + VP (Fut Ind Sg P3) => m_ + "overá" ; + VP (Fut Ind Pl P1) => m_ + "overemos" ; + VP (Fut Ind Pl P2) => m_ + "overéis" ; + VP (Fut Ind Pl P3) => m_ + "overán" ; + VP (Fut Subj Sg P1) => m_ + "oviere" ; + VP (Fut Subj Sg P2) => m_ + "ovieres" ; + VP (Fut Subj Sg P3) => m_ + "oviere" ; + VP (Fut Subj Pl P1) => m_ + "oviéremos" ; + VP (Fut Subj Pl P2) => m_ + "oviereis" ; + VP (Fut Subj Pl P3) => m_ + "ovieren" ; + VP (Cond Sg P1) => m_ + "overía" ; + VP (Cond Sg P2) => m_ + "overías" ; + VP (Cond Sg P3) => m_ + "overía" ; + VP (Cond Pl P1) => m_ + "overíamos" ; + VP (Cond Pl P2) => m_ + "overíais" ; + VP (Cond Pl P3) => m_ + "overían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => m_ + "ueve" ; + VP (Imp Sg P3) => m_ + "ueva" ; + VP (Imp Pl P1) => m_ + "ovamos" ; + VP (Imp Pl P2) => m_ + "oved" ; + VP (Imp Pl P3) => m_ + "uevan" ; + VP (Pass Sg Masc) => m_ + "ovido" ; + VP (Pass Sg Fem) => m_ + "ovida" ; + VP (Pass Pl Masc) => m_ + "ovidos" ; + VP (Pass Pl Fem) => m_ + "ovidas" + } + } ; +oper morder_50b : Str -> Verbum = \morder -> + let m_ = Predef.tk 4 morder in + {s = table { + VI Infn => m_ + "order" ; + VI Ger => m_ + "ordiendo" ; + VI Part => m_ + "ordido" ; + VP (Pres Ind Sg P1) => m_ + "uerdo" ; + VP (Pres Ind Sg P2) => m_ + "uerdes" ; + VP (Pres Ind Sg P3) => m_ + "uerde" ; + VP (Pres Ind Pl P1) => m_ + "ordemos" ; + VP (Pres Ind Pl P2) => m_ + "ordéis" ; + VP (Pres Ind Pl P3) => m_ + "uerden" ; + VP (Pres Subj Sg P1) => m_ + "uerda" ; + VP (Pres Subj Sg P2) => m_ + "uerdas" ; + VP (Pres Subj Sg P3) => m_ + "uerda" ; + VP (Pres Subj Pl P1) => m_ + "ordamos" ; + VP (Pres Subj Pl P2) => m_ + "ordáis" ; + VP (Pres Subj Pl P3) => m_ + "uerdan" ; + VP (Impf Ind Sg P1) => m_ + "ordía" ; + VP (Impf Ind Sg P2) => m_ + "ordías" ; + VP (Impf Ind Sg P3) => m_ + "ordía" ; + VP (Impf Ind Pl P1) => m_ + "ordíamos" ; + VP (Impf Ind Pl P2) => m_ + "ordíais" ; + VP (Impf Ind Pl P3) => m_ + "ordían" ; + VP (Impf Subj Sg P1) => variants {m_ + "ordiera" ; m_ + "ordiese"} ; + VP (Impf Subj Sg P2) => variants {m_ + "ordieras" ; m_ + "ordieses"} ; + VP (Impf Subj Sg P3) => variants {m_ + "ordiera" ; m_ + "ordiese"} ; + VP (Impf Subj Pl P1) => variants {m_ + "ordiéramos" ; m_ + "ordiésemos"} ; + VP (Impf Subj Pl P2) => variants {m_ + "ordierais" ; m_ + "ordieseis"} ; + VP (Impf Subj Pl P3) => variants {m_ + "ordieran" ; m_ + "ordiesen"} ; + VP (Pret Sg P1) => m_ + "ordí" ; + VP (Pret Sg P2) => m_ + "ordiste" ; + VP (Pret Sg P3) => m_ + "ordió" ; + VP (Pret Pl P1) => m_ + "ordimos" ; + VP (Pret Pl P2) => m_ + "ordisteis" ; + VP (Pret Pl P3) => m_ + "ordieron" ; + VP (Fut Ind Sg P1) => m_ + "orderé" ; + VP (Fut Ind Sg P2) => m_ + "orderás" ; + VP (Fut Ind Sg P3) => m_ + "orderá" ; + VP (Fut Ind Pl P1) => m_ + "orderemos" ; + VP (Fut Ind Pl P2) => m_ + "orderéis" ; + VP (Fut Ind Pl P3) => m_ + "orderán" ; + VP (Fut Subj Sg P1) => m_ + "ordiere" ; + VP (Fut Subj Sg P2) => m_ + "ordieres" ; + VP (Fut Subj Sg P3) => m_ + "ordiere" ; + VP (Fut Subj Pl P1) => m_ + "ordiéremos" ; + VP (Fut Subj Pl P2) => m_ + "ordiereis" ; + VP (Fut Subj Pl P3) => m_ + "ordieren" ; + VP (Cond Sg P1) => m_ + "ordería" ; + VP (Cond Sg P2) => m_ + "orderías" ; + VP (Cond Sg P3) => m_ + "ordería" ; + VP (Cond Pl P1) => m_ + "orderíamos" ; + VP (Cond Pl P2) => m_ + "orderíais" ; + VP (Cond Pl P3) => m_ + "orderían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => m_ + "uerde" ; + VP (Imp Sg P3) => m_ + "uerda" ; + VP (Imp Pl P1) => m_ + "ordamos" ; + VP (Imp Pl P2) => m_ + "orded" ; + VP (Imp Pl P3) => m_ + "uerdan" ; + VP (Pass Sg Masc) => m_ + "ordido" ; + VP (Pass Sg Fem) => m_ + "ordida" ; + VP (Pass Pl Masc) => m_ + "ordidos" ; + VP (Pass Pl Fem) => m_ + "ordidas" + } + } ; +oper oler_52 : Str -> Verbum = \oler -> + let x_ = Predef.tk 4 oler in + {s = table { + VI Infn => x_ + "oler" ; + VI Ger => x_ + "oliendo" ; + VI Part => x_ + "olido" ; + VP (Pres Ind Sg P1) => x_ + "huelo" ; + VP (Pres Ind Sg P2) => x_ + "hueles" ; + VP (Pres Ind Sg P3) => x_ + "huele" ; + VP (Pres Ind Pl P1) => x_ + "olemos" ; + VP (Pres Ind Pl P2) => x_ + "oléis" ; + VP (Pres Ind Pl P3) => x_ + "huelen" ; + VP (Pres Subj Sg P1) => x_ + "huela" ; + VP (Pres Subj Sg P2) => x_ + "huelas" ; + VP (Pres Subj Sg P3) => x_ + "huela" ; + VP (Pres Subj Pl P1) => x_ + "olamos" ; + VP (Pres Subj Pl P2) => x_ + "oláis" ; + VP (Pres Subj Pl P3) => x_ + "huelan" ; + VP (Impf Ind Sg P1) => x_ + "olía" ; + VP (Impf Ind Sg P2) => x_ + "olías" ; + VP (Impf Ind Sg P3) => x_ + "olía" ; + VP (Impf Ind Pl P1) => x_ + "olíamos" ; + VP (Impf Ind Pl P2) => x_ + "olíais" ; + VP (Impf Ind Pl P3) => x_ + "olían" ; + VP (Impf Subj Sg P1) => variants {x_ + "oliera" ; x_ + "oliese"} ; + VP (Impf Subj Sg P2) => variants {x_ + "olieras" ; x_ + "olieses"} ; + VP (Impf Subj Sg P3) => variants {x_ + "oliera" ; x_ + "oliese"} ; + VP (Impf Subj Pl P1) => variants {x_ + "oliéramos" ; x_ + "oliésemos"} ; + VP (Impf Subj Pl P2) => variants {x_ + "olierais" ; x_ + "olieseis"} ; + VP (Impf Subj Pl P3) => variants {x_ + "olieran" ; x_ + "oliesen"} ; + VP (Pret Sg P1) => x_ + "olí" ; + VP (Pret Sg P2) => x_ + "oliste" ; + VP (Pret Sg P3) => x_ + "olió" ; + VP (Pret Pl P1) => x_ + "olimos" ; + VP (Pret Pl P2) => x_ + "olisteis" ; + VP (Pret Pl P3) => x_ + "olieron" ; + VP (Fut Ind Sg P1) => x_ + "oleré" ; + VP (Fut Ind Sg P2) => x_ + "olerás" ; + VP (Fut Ind Sg P3) => x_ + "olerá" ; + VP (Fut Ind Pl P1) => x_ + "oleremos" ; + VP (Fut Ind Pl P2) => x_ + "oleréis" ; + VP (Fut Ind Pl P3) => x_ + "olerán" ; + VP (Fut Subj Sg P1) => x_ + "oliere" ; + VP (Fut Subj Sg P2) => x_ + "olieres" ; + VP (Fut Subj Sg P3) => x_ + "oliere" ; + VP (Fut Subj Pl P1) => x_ + "oliéremos" ; + VP (Fut Subj Pl P2) => x_ + "oliereis" ; + VP (Fut Subj Pl P3) => x_ + "olieren" ; + VP (Cond Sg P1) => x_ + "olería" ; + VP (Cond Sg P2) => x_ + "olerías" ; + VP (Cond Sg P3) => x_ + "olería" ; + VP (Cond Pl P1) => x_ + "oleríamos" ; + VP (Cond Pl P2) => x_ + "oleríais" ; + VP (Cond Pl P3) => x_ + "olerían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => x_ + "huele" ; + VP (Imp Sg P3) => x_ + "huela" ; + VP (Imp Pl P1) => x_ + "olamos" ; + VP (Imp Pl P2) => x_ + "oled" ; + VP (Imp Pl P3) => x_ + "huelan" ; + VP (Pass Sg Masc) => x_ + "olido" ; + VP (Pass Sg Fem) => x_ + "olida" ; + VP (Pass Pl Masc) => x_ + "olidos" ; + VP (Pass Pl Fem) => x_ + "olidas" + } + } ; +oper pagar_53 : Str -> Verbum = \pagar -> + let pag_ = Predef.tk 2 pagar in + {s = table { + VI Infn => pag_ + "ar" ; + VI Ger => pag_ + "ando" ; + VI Part => pag_ + "ado" ; + VP (Pres Ind Sg P1) => pag_ + "o" ; + VP (Pres Ind Sg P2) => pag_ + "as" ; + VP (Pres Ind Sg P3) => pag_ + "a" ; + VP (Pres Ind Pl P1) => pag_ + "amos" ; + VP (Pres Ind Pl P2) => pag_ + "áis" ; + VP (Pres Ind Pl P3) => pag_ + "an" ; + VP (Pres Subj Sg P1) => pag_ + "ue" ; + VP (Pres Subj Sg P2) => pag_ + "ues" ; + VP (Pres Subj Sg P3) => pag_ + "ue" ; + VP (Pres Subj Pl P1) => pag_ + "uemos" ; + VP (Pres Subj Pl P2) => pag_ + "uéis" ; + VP (Pres Subj Pl P3) => pag_ + "uen" ; + VP (Impf Ind Sg P1) => pag_ + "aba" ; + VP (Impf Ind Sg P2) => pag_ + "abas" ; + VP (Impf Ind Sg P3) => pag_ + "aba" ; + VP (Impf Ind Pl P1) => pag_ + "ábamos" ; + VP (Impf Ind Pl P2) => pag_ + "abais" ; + VP (Impf Ind Pl P3) => pag_ + "aban" ; + VP (Impf Subj Sg P1) => variants {pag_ + "ara" ; pag_ + "ase"} ; + VP (Impf Subj Sg P2) => variants {pag_ + "aras" ; pag_ + "ases"} ; + VP (Impf Subj Sg P3) => variants {pag_ + "ara" ; pag_ + "ase"} ; + VP (Impf Subj Pl P1) => variants {pag_ + "áramos" ; pag_ + "ásemos"} ; + VP (Impf Subj Pl P2) => variants {pag_ + "arais" ; pag_ + "aseis"} ; + VP (Impf Subj Pl P3) => variants {pag_ + "aran" ; pag_ + "asen"} ; + VP (Pret Sg P1) => pag_ + "ué" ; + VP (Pret Sg P2) => pag_ + "aste" ; + VP (Pret Sg P3) => pag_ + "ó" ; + VP (Pret Pl P1) => pag_ + "amos" ; + VP (Pret Pl P2) => pag_ + "asteis" ; + VP (Pret Pl P3) => pag_ + "aron" ; + VP (Fut Ind Sg P1) => pag_ + "aré" ; + VP (Fut Ind Sg P2) => pag_ + "arás" ; + VP (Fut Ind Sg P3) => pag_ + "ará" ; + VP (Fut Ind Pl P1) => pag_ + "aremos" ; + VP (Fut Ind Pl P2) => pag_ + "aréis" ; + VP (Fut Ind Pl P3) => pag_ + "arán" ; + VP (Fut Subj Sg P1) => pag_ + "are" ; + VP (Fut Subj Sg P2) => pag_ + "ares" ; + VP (Fut Subj Sg P3) => pag_ + "are" ; + VP (Fut Subj Pl P1) => pag_ + "áremos" ; + VP (Fut Subj Pl P2) => pag_ + "areis" ; + VP (Fut Subj Pl P3) => pag_ + "aren" ; + VP (Cond Sg P1) => pag_ + "aría" ; + VP (Cond Sg P2) => pag_ + "arías" ; + VP (Cond Sg P3) => pag_ + "aría" ; + VP (Cond Pl P1) => pag_ + "aríamos" ; + VP (Cond Pl P2) => pag_ + "aríais" ; + VP (Cond Pl P3) => pag_ + "arían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => pag_ + "a" ; + VP (Imp Sg P3) => pag_ + "ue" ; + VP (Imp Pl P1) => pag_ + "uemos" ; + VP (Imp Pl P2) => pag_ + "ad" ; + VP (Imp Pl P3) => pag_ + "uen" ; + VP (Pass Sg Masc) => pag_ + "ado" ; + VP (Pass Sg Fem) => pag_ + "ada" ; + VP (Pass Pl Masc) => pag_ + "ados" ; + VP (Pass Pl Fem) => pag_ + "adas" + } + } ; +oper parecer_54 : Str -> Verbum = \parecer -> + let pare_ = Predef.tk 3 parecer in + {s = table { + VI Infn => pare_ + "cer" ; + VI Ger => pare_ + "ciendo" ; + VI Part => pare_ + "cido" ; + VP (Pres Ind Sg P1) => pare_ + "zco" ; + VP (Pres Ind Sg P2) => pare_ + "ces" ; + VP (Pres Ind Sg P3) => pare_ + "ce" ; + VP (Pres Ind Pl P1) => pare_ + "cemos" ; + VP (Pres Ind Pl P2) => pare_ + "céis" ; + VP (Pres Ind Pl P3) => pare_ + "cen" ; + VP (Pres Subj Sg P1) => pare_ + "zca" ; + VP (Pres Subj Sg P2) => pare_ + "zcas" ; + VP (Pres Subj Sg P3) => pare_ + "zca" ; + VP (Pres Subj Pl P1) => pare_ + "zcamos" ; + VP (Pres Subj Pl P2) => pare_ + "zcáis" ; + VP (Pres Subj Pl P3) => pare_ + "zcan" ; + VP (Impf Ind Sg P1) => pare_ + "cía" ; + VP (Impf Ind Sg P2) => pare_ + "cías" ; + VP (Impf Ind Sg P3) => pare_ + "cía" ; + VP (Impf Ind Pl P1) => pare_ + "cíamos" ; + VP (Impf Ind Pl P2) => pare_ + "cíais" ; + VP (Impf Ind Pl P3) => pare_ + "cían" ; + VP (Impf Subj Sg P1) => variants {pare_ + "ciera" ; pare_ + "ciese"} ; + VP (Impf Subj Sg P2) => variants {pare_ + "cieras" ; pare_ + "cieses"} ; + VP (Impf Subj Sg P3) => variants {pare_ + "ciera" ; pare_ + "ciese"} ; + VP (Impf Subj Pl P1) => variants {pare_ + "ciéramos" ; pare_ + "ciésemos"} ; + VP (Impf Subj Pl P2) => variants {pare_ + "cierais" ; pare_ + "cieseis"} ; + VP (Impf Subj Pl P3) => variants {pare_ + "cieran" ; pare_ + "ciesen"} ; + VP (Pret Sg P1) => pare_ + "cí" ; + VP (Pret Sg P2) => pare_ + "ciste" ; + VP (Pret Sg P3) => pare_ + "ció" ; + VP (Pret Pl P1) => pare_ + "cimos" ; + VP (Pret Pl P2) => pare_ + "cisteis" ; + VP (Pret Pl P3) => pare_ + "cieron" ; + VP (Fut Ind Sg P1) => pare_ + "ceré" ; + VP (Fut Ind Sg P2) => pare_ + "cerás" ; + VP (Fut Ind Sg P3) => pare_ + "cerá" ; + VP (Fut Ind Pl P1) => pare_ + "ceremos" ; + VP (Fut Ind Pl P2) => pare_ + "ceréis" ; + VP (Fut Ind Pl P3) => pare_ + "cerán" ; + VP (Fut Subj Sg P1) => pare_ + "ciere" ; + VP (Fut Subj Sg P2) => pare_ + "cieres" ; + VP (Fut Subj Sg P3) => pare_ + "ciere" ; + VP (Fut Subj Pl P1) => pare_ + "ciéremos" ; + VP (Fut Subj Pl P2) => pare_ + "ciereis" ; + VP (Fut Subj Pl P3) => pare_ + "cieren" ; + VP (Cond Sg P1) => pare_ + "cería" ; + VP (Cond Sg P2) => pare_ + "cerías" ; + VP (Cond Sg P3) => pare_ + "cería" ; + VP (Cond Pl P1) => pare_ + "ceríamos" ; + VP (Cond Pl P2) => pare_ + "ceríais" ; + VP (Cond Pl P3) => pare_ + "cerían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => pare_ + "ce" ; + VP (Imp Sg P3) => pare_ + "zca" ; + VP (Imp Pl P1) => pare_ + "zcamos" ; + VP (Imp Pl P2) => pare_ + "ced" ; + VP (Imp Pl P3) => pare_ + "zcan" ; + VP (Pass Sg Masc) => pare_ + "cido" ; + VP (Pass Sg Fem) => pare_ + "cida" ; + VP (Pass Pl Masc) => pare_ + "cidos" ; + VP (Pass Pl Fem) => pare_ + "cidas" + } + } ; +oper pedir_55 : Str -> Verbum = \pedir -> + let p_ = Predef.tk 4 pedir in + {s = table { + VI Infn => p_ + "edir" ; + VI Ger => p_ + "idiendo" ; + VI Part => p_ + "edido" ; + VP (Pres Ind Sg P1) => p_ + "ido" ; + VP (Pres Ind Sg P2) => p_ + "ides" ; + VP (Pres Ind Sg P3) => p_ + "ide" ; + VP (Pres Ind Pl P1) => p_ + "edimos" ; + VP (Pres Ind Pl P2) => p_ + "edís" ; + VP (Pres Ind Pl P3) => p_ + "iden" ; + VP (Pres Subj Sg P1) => p_ + "ida" ; + VP (Pres Subj Sg P2) => p_ + "idas" ; + VP (Pres Subj Sg P3) => p_ + "ida" ; + VP (Pres Subj Pl P1) => p_ + "idamos" ; + VP (Pres Subj Pl P2) => p_ + "idáis" ; + VP (Pres Subj Pl P3) => p_ + "idan" ; + VP (Impf Ind Sg P1) => p_ + "edía" ; + VP (Impf Ind Sg P2) => p_ + "edías" ; + VP (Impf Ind Sg P3) => p_ + "edía" ; + VP (Impf Ind Pl P1) => p_ + "edíamos" ; + VP (Impf Ind Pl P2) => p_ + "edíais" ; + VP (Impf Ind Pl P3) => p_ + "edían" ; + VP (Impf Subj Sg P1) => variants {p_ + "idiera" ; p_ + "idiese"} ; + VP (Impf Subj Sg P2) => variants {p_ + "idieras" ; p_ + "idieses"} ; + VP (Impf Subj Sg P3) => variants {p_ + "idiera" ; p_ + "idiese"} ; + VP (Impf Subj Pl P1) => variants {p_ + "idiéramos" ; p_ + "idiésemos"} ; + VP (Impf Subj Pl P2) => variants {p_ + "idierais" ; p_ + "idieseis"} ; + VP (Impf Subj Pl P3) => variants {p_ + "idieran" ; p_ + "idiesen"} ; + VP (Pret Sg P1) => p_ + "edí" ; + VP (Pret Sg P2) => p_ + "ediste" ; + VP (Pret Sg P3) => p_ + "idió" ; + VP (Pret Pl P1) => p_ + "edimos" ; + VP (Pret Pl P2) => p_ + "edisteis" ; + VP (Pret Pl P3) => p_ + "idieron" ; + VP (Fut Ind Sg P1) => p_ + "ediré" ; + VP (Fut Ind Sg P2) => p_ + "edirás" ; + VP (Fut Ind Sg P3) => p_ + "edirá" ; + VP (Fut Ind Pl P1) => p_ + "ediremos" ; + VP (Fut Ind Pl P2) => p_ + "ediréis" ; + VP (Fut Ind Pl P3) => p_ + "edirán" ; + VP (Fut Subj Sg P1) => p_ + "idiere" ; + VP (Fut Subj Sg P2) => p_ + "idieres" ; + VP (Fut Subj Sg P3) => p_ + "idiere" ; + VP (Fut Subj Pl P1) => p_ + "idiéremos" ; + VP (Fut Subj Pl P2) => p_ + "idiereis" ; + VP (Fut Subj Pl P3) => p_ + "idieren" ; + VP (Cond Sg P1) => p_ + "ediría" ; + VP (Cond Sg P2) => p_ + "edirías" ; + VP (Cond Sg P3) => p_ + "ediría" ; + VP (Cond Pl P1) => p_ + "ediríamos" ; + VP (Cond Pl P2) => p_ + "ediríais" ; + VP (Cond Pl P3) => p_ + "edirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => p_ + "ide" ; + VP (Imp Sg P3) => p_ + "ida" ; + VP (Imp Pl P1) => p_ + "idamos" ; + VP (Imp Pl P2) => p_ + "edid" ; + VP (Imp Pl P3) => p_ + "idan" ; + VP (Pass Sg Masc) => p_ + "edido" ; + VP (Pass Sg Fem) => p_ + "edida" ; + VP (Pass Pl Masc) => p_ + "edidos" ; + VP (Pass Pl Fem) => p_ + "edidas" + } + } ; +oper pensar_56 : Str -> Verbum = \pensar -> + let p_ = Predef.tk 5 pensar in + {s = table { + VI Infn => p_ + "ensar" ; + VI Ger => p_ + "ensando" ; + VI Part => p_ + "ensado" ; + VP (Pres Ind Sg P1) => p_ + "ienso" ; + VP (Pres Ind Sg P2) => p_ + "iensas" ; + VP (Pres Ind Sg P3) => p_ + "iensa" ; + VP (Pres Ind Pl P1) => p_ + "ensamos" ; + VP (Pres Ind Pl P2) => p_ + "ensáis" ; + VP (Pres Ind Pl P3) => p_ + "iensan" ; + VP (Pres Subj Sg P1) => p_ + "iense" ; + VP (Pres Subj Sg P2) => p_ + "ienses" ; + VP (Pres Subj Sg P3) => p_ + "iense" ; + VP (Pres Subj Pl P1) => p_ + "ensemos" ; + VP (Pres Subj Pl P2) => p_ + "enséis" ; + VP (Pres Subj Pl P3) => p_ + "iensen" ; + VP (Impf Ind Sg P1) => p_ + "ensaba" ; + VP (Impf Ind Sg P2) => p_ + "ensabas" ; + VP (Impf Ind Sg P3) => p_ + "ensaba" ; + VP (Impf Ind Pl P1) => p_ + "ensábamos" ; + VP (Impf Ind Pl P2) => p_ + "ensabais" ; + VP (Impf Ind Pl P3) => p_ + "ensaban" ; + VP (Impf Subj Sg P1) => variants {p_ + "ensara" ; p_ + "ensase"} ; + VP (Impf Subj Sg P2) => variants {p_ + "ensaras" ; p_ + "ensases"} ; + VP (Impf Subj Sg P3) => variants {p_ + "ensara" ; p_ + "ensase"} ; + VP (Impf Subj Pl P1) => variants {p_ + "ensáramos" ; p_ + "ensásemos"} ; + VP (Impf Subj Pl P2) => variants {p_ + "ensarais" ; p_ + "ensaseis"} ; + VP (Impf Subj Pl P3) => variants {p_ + "ensaran" ; p_ + "ensasen"} ; + VP (Pret Sg P1) => p_ + "ensé" ; + VP (Pret Sg P2) => p_ + "ensaste" ; + VP (Pret Sg P3) => p_ + "ensó" ; + VP (Pret Pl P1) => p_ + "ensamos" ; + VP (Pret Pl P2) => p_ + "ensasteis" ; + VP (Pret Pl P3) => p_ + "ensaron" ; + VP (Fut Ind Sg P1) => p_ + "ensaré" ; + VP (Fut Ind Sg P2) => p_ + "ensarás" ; + VP (Fut Ind Sg P3) => p_ + "ensará" ; + VP (Fut Ind Pl P1) => p_ + "ensaremos" ; + VP (Fut Ind Pl P2) => p_ + "ensaréis" ; + VP (Fut Ind Pl P3) => p_ + "ensarán" ; + VP (Fut Subj Sg P1) => p_ + "ensare" ; + VP (Fut Subj Sg P2) => p_ + "ensares" ; + VP (Fut Subj Sg P3) => p_ + "ensare" ; + VP (Fut Subj Pl P1) => p_ + "ensáremos" ; + VP (Fut Subj Pl P2) => p_ + "ensareis" ; + VP (Fut Subj Pl P3) => p_ + "ensaren" ; + VP (Cond Sg P1) => p_ + "ensaría" ; + VP (Cond Sg P2) => p_ + "ensarías" ; + VP (Cond Sg P3) => p_ + "ensaría" ; + VP (Cond Pl P1) => p_ + "ensaríamos" ; + VP (Cond Pl P2) => p_ + "ensaríais" ; + VP (Cond Pl P3) => p_ + "ensarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => p_ + "iensa" ; + VP (Imp Sg P3) => p_ + "iense" ; + VP (Imp Pl P1) => p_ + "ensemos" ; + VP (Imp Pl P2) => p_ + "ensad" ; + VP (Imp Pl P3) => p_ + "iensen" ; + VP (Pass Sg Masc) => p_ + "ensado" ; + VP (Pass Sg Fem) => p_ + "ensada" ; + VP (Pass Pl Masc) => p_ + "ensados" ; + VP (Pass Pl Fem) => p_ + "ensadas" + } + } ; +oper placer_57 : Str -> Verbum = \placer -> + let pl_ = Predef.tk 4 placer in + {s = table { + VI Infn => pl_ + "acer" ; + VI Ger => pl_ + "aciendo" ; + VI Part => pl_ + "acido" ; + VP (Pres Ind Sg P1) => pl_ + "azco" ; + VP (Pres Ind Sg P2) => pl_ + "aces" ; + VP (Pres Ind Sg P3) => pl_ + "ace" ; + VP (Pres Ind Pl P1) => pl_ + "acemos" ; + VP (Pres Ind Pl P2) => pl_ + "acéis" ; + VP (Pres Ind Pl P3) => pl_ + "acen" ; + VP (Pres Subj Sg P1) => pl_ + "azca" ; + VP (Pres Subj Sg P2) => pl_ + "azcas" ; + VP (Pres Subj Sg P3) => variants {pl_ + "azca" ; pl_ + "egue" ; pl_ + "ega"} ; + VP (Pres Subj Pl P1) => pl_ + "azcamos" ; + VP (Pres Subj Pl P2) => pl_ + "azcáis" ; + VP (Pres Subj Pl P3) => pl_ + "azcan" ; + VP (Impf Ind Sg P1) => pl_ + "acía" ; + VP (Impf Ind Sg P2) => pl_ + "acías" ; + VP (Impf Ind Sg P3) => pl_ + "acía" ; + VP (Impf Ind Pl P1) => pl_ + "acíamos" ; + VP (Impf Ind Pl P2) => pl_ + "acíais" ; + VP (Impf Ind Pl P3) => pl_ + "acían" ; + VP (Impf Subj Sg P1) => variants {pl_ + "aciera" ; pl_ + "aciese"} ; + VP (Impf Subj Sg P2) => variants {pl_ + "acieras" ; pl_ + "acieses"} ; + VP (Impf Subj Sg P3) => variants {pl_ + "aciera" ; pl_ + "aciese" ; pl_ + "uguiera" ; pl_ + "uguiese"} ; + VP (Impf Subj Pl P1) => variants {pl_ + "aciéramos" ; pl_ + "aciésemos"} ; + VP (Impf Subj Pl P2) => variants {pl_ + "acierais" ; pl_ + "acieseis"} ; + VP (Impf Subj Pl P3) => variants {pl_ + "acieran" ; pl_ + "aciesen"} ; + VP (Pret Sg P1) => pl_ + "ací" ; + VP (Pret Sg P2) => pl_ + "aciste" ; + VP (Pret Sg P3) => variants {pl_ + "ació" ; pl_ + "ugo"} ; + VP (Pret Pl P1) => pl_ + "acimos" ; + VP (Pret Pl P2) => pl_ + "acisteis" ; + VP (Pret Pl P3) => variants {pl_ + "acieron" ; pl_ + "uguieron"} ; + VP (Fut Ind Sg P1) => pl_ + "aceré" ; + VP (Fut Ind Sg P2) => pl_ + "acerás" ; + VP (Fut Ind Sg P3) => pl_ + "acerá" ; + VP (Fut Ind Pl P1) => pl_ + "aceremos" ; + VP (Fut Ind Pl P2) => pl_ + "aceréis" ; + VP (Fut Ind Pl P3) => pl_ + "acerán" ; + VP (Fut Subj Sg P1) => pl_ + "aciere" ; + VP (Fut Subj Sg P2) => pl_ + "acieres" ; + VP (Fut Subj Sg P3) => variants {pl_ + "aciere" ; pl_ + "uguiere"} ; + VP (Fut Subj Pl P1) => pl_ + "aciéremos" ; + VP (Fut Subj Pl P2) => pl_ + "aciereis" ; + VP (Fut Subj Pl P3) => pl_ + "acieren" ; + VP (Cond Sg P1) => pl_ + "acería" ; + VP (Cond Sg P2) => pl_ + "acerías" ; + VP (Cond Sg P3) => pl_ + "acería" ; + VP (Cond Pl P1) => pl_ + "aceríamos" ; + VP (Cond Pl P2) => pl_ + "aceríais" ; + VP (Cond Pl P3) => pl_ + "acerían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => pl_ + "ace" ; + VP (Imp Sg P3) => pl_ + "azca" ; + VP (Imp Pl P1) => pl_ + "azcamos" ; + VP (Imp Pl P2) => pl_ + "aced" ; + VP (Imp Pl P3) => pl_ + "azcan" ; + VP (Pass Sg Masc) => pl_ + "acido" ; + VP (Pass Sg Fem) => pl_ + "acida" ; + VP (Pass Pl Masc) => pl_ + "acidos" ; + VP (Pass Pl Fem) => pl_ + "acidas" + } + } ; +oper poder_58 : Str -> Verbum = \poder -> + let p_ = Predef.tk 4 poder in + {s = table { + VI Infn => p_ + "oder" ; + VI Ger => p_ + "udiendo" ; + VI Part => p_ + "odido" ; + VP (Pres Ind Sg P1) => p_ + "uedo" ; + VP (Pres Ind Sg P2) => p_ + "uedes" ; + VP (Pres Ind Sg P3) => p_ + "uede" ; + VP (Pres Ind Pl P1) => p_ + "odemos" ; + VP (Pres Ind Pl P2) => p_ + "odéis" ; + VP (Pres Ind Pl P3) => p_ + "ueden" ; + VP (Pres Subj Sg P1) => p_ + "ueda" ; + VP (Pres Subj Sg P2) => p_ + "uedas" ; + VP (Pres Subj Sg P3) => p_ + "ueda" ; + VP (Pres Subj Pl P1) => p_ + "odamos" ; + VP (Pres Subj Pl P2) => p_ + "odáis" ; + VP (Pres Subj Pl P3) => p_ + "uedan" ; + VP (Impf Ind Sg P1) => p_ + "odía" ; + VP (Impf Ind Sg P2) => p_ + "odías" ; + VP (Impf Ind Sg P3) => p_ + "odía" ; + VP (Impf Ind Pl P1) => p_ + "odíamos" ; + VP (Impf Ind Pl P2) => p_ + "odíais" ; + VP (Impf Ind Pl P3) => p_ + "odían" ; + VP (Impf Subj Sg P1) => variants {p_ + "udiera" ; p_ + "udiese"} ; + VP (Impf Subj Sg P2) => variants {p_ + "udieras" ; p_ + "udieses"} ; + VP (Impf Subj Sg P3) => variants {p_ + "udiera" ; p_ + "udiese"} ; + VP (Impf Subj Pl P1) => variants {p_ + "udiéramos" ; p_ + "udiésemos"} ; + VP (Impf Subj Pl P2) => variants {p_ + "udierais" ; p_ + "udieseis"} ; + VP (Impf Subj Pl P3) => variants {p_ + "udieran" ; p_ + "udiesen"} ; + VP (Pret Sg P1) => p_ + "ude" ; + VP (Pret Sg P2) => p_ + "udiste" ; + VP (Pret Sg P3) => p_ + "udo" ; + VP (Pret Pl P1) => p_ + "udimos" ; + VP (Pret Pl P2) => p_ + "udisteis" ; + VP (Pret Pl P3) => p_ + "udieron" ; + VP (Fut Ind Sg P1) => p_ + "odré" ; + VP (Fut Ind Sg P2) => p_ + "odrás" ; + VP (Fut Ind Sg P3) => p_ + "odrá" ; + VP (Fut Ind Pl P1) => p_ + "odremos" ; + VP (Fut Ind Pl P2) => p_ + "odréis" ; + VP (Fut Ind Pl P3) => p_ + "odrán" ; + VP (Fut Subj Sg P1) => p_ + "udiere" ; + VP (Fut Subj Sg P2) => p_ + "udieres" ; + VP (Fut Subj Sg P3) => p_ + "udiere" ; + VP (Fut Subj Pl P1) => p_ + "udiéremos" ; + VP (Fut Subj Pl P2) => p_ + "udiereis" ; + VP (Fut Subj Pl P3) => p_ + "udieren" ; + VP (Cond Sg P1) => p_ + "odría" ; + VP (Cond Sg P2) => p_ + "odrías" ; + VP (Cond Sg P3) => p_ + "odría" ; + VP (Cond Pl P1) => p_ + "odríamos" ; + VP (Cond Pl P2) => p_ + "odríais" ; + VP (Cond Pl P3) => p_ + "odrían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => p_ + "uede" ; + VP (Imp Sg P3) => p_ + "ueda" ; + VP (Imp Pl P1) => p_ + "odamos" ; + VP (Imp Pl P2) => p_ + "oded" ; + VP (Imp Pl P3) => p_ + "uedan" ; + VP (Pass Sg Masc) => p_ + "odido" ; + VP (Pass Sg Fem) => p_ + "odida" ; + VP (Pass Pl Masc) => p_ + "odidos" ; + VP (Pass Pl Fem) => p_ + "odidas" + } + } ; +oper poner_60 : Str -> Verbum = \poner -> + let p_ = Predef.tk 4 poner in + {s = table { + VI Infn => p_ + "oner" ; + VI Ger => p_ + "oniendo" ; + VI Part => p_ + "uesto" ; + VP (Pres Ind Sg P1) => p_ + "ongo" ; + VP (Pres Ind Sg P2) => p_ + "ones" ; + VP (Pres Ind Sg P3) => p_ + "one" ; + VP (Pres Ind Pl P1) => p_ + "onemos" ; + VP (Pres Ind Pl P2) => p_ + "onéis" ; + VP (Pres Ind Pl P3) => p_ + "onen" ; + VP (Pres Subj Sg P1) => p_ + "onga" ; + VP (Pres Subj Sg P2) => p_ + "ongas" ; + VP (Pres Subj Sg P3) => p_ + "onga" ; + VP (Pres Subj Pl P1) => p_ + "ongamos" ; + VP (Pres Subj Pl P2) => p_ + "ongáis" ; + VP (Pres Subj Pl P3) => p_ + "ongan" ; + VP (Impf Ind Sg P1) => p_ + "onía" ; + VP (Impf Ind Sg P2) => p_ + "onías" ; + VP (Impf Ind Sg P3) => p_ + "onía" ; + VP (Impf Ind Pl P1) => p_ + "oníamos" ; + VP (Impf Ind Pl P2) => p_ + "oníais" ; + VP (Impf Ind Pl P3) => p_ + "onían" ; + VP (Impf Subj Sg P1) => variants {p_ + "usiera" ; p_ + "usiese"} ; + VP (Impf Subj Sg P2) => variants {p_ + "usieras" ; p_ + "usieses"} ; + VP (Impf Subj Sg P3) => variants {p_ + "usiera" ; p_ + "usiese"} ; + VP (Impf Subj Pl P1) => variants {p_ + "usiéramos" ; p_ + "usiésemos"} ; + VP (Impf Subj Pl P2) => variants {p_ + "usierais" ; p_ + "usieseis"} ; + VP (Impf Subj Pl P3) => variants {p_ + "usieran" ; p_ + "usiesen"} ; + VP (Pret Sg P1) => p_ + "use" ; + VP (Pret Sg P2) => p_ + "usiste" ; + VP (Pret Sg P3) => p_ + "uso" ; + VP (Pret Pl P1) => p_ + "usimos" ; + VP (Pret Pl P2) => p_ + "usisteis" ; + VP (Pret Pl P3) => p_ + "usieron" ; + VP (Fut Ind Sg P1) => p_ + "ondré" ; + VP (Fut Ind Sg P2) => p_ + "ondrás" ; + VP (Fut Ind Sg P3) => p_ + "ondrá" ; + VP (Fut Ind Pl P1) => p_ + "ondremos" ; + VP (Fut Ind Pl P2) => p_ + "ondréis" ; + VP (Fut Ind Pl P3) => p_ + "ondrán" ; + VP (Fut Subj Sg P1) => p_ + "usiere" ; + VP (Fut Subj Sg P2) => p_ + "usieres" ; + VP (Fut Subj Sg P3) => p_ + "usiere" ; + VP (Fut Subj Pl P1) => p_ + "usiéremos" ; + VP (Fut Subj Pl P2) => p_ + "usiereis" ; + VP (Fut Subj Pl P3) => p_ + "usieren" ; + VP (Cond Sg P1) => p_ + "ondría" ; + VP (Cond Sg P2) => p_ + "ondrías" ; + VP (Cond Sg P3) => p_ + "ondría" ; + VP (Cond Pl P1) => p_ + "ondríamos" ; + VP (Cond Pl P2) => p_ + "ondríais" ; + VP (Cond Pl P3) => p_ + "ondrían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => p_ + "on" ; + VP (Imp Sg P3) => p_ + "onga" ; + VP (Imp Pl P1) => p_ + "ongamos" ; + VP (Imp Pl P2) => p_ + "oned" ; + VP (Imp Pl P3) => p_ + "ongan" ; + VP (Pass Sg Masc) => p_ + "uesto" ; + VP (Pass Sg Fem) => p_ + "uesta" ; + VP (Pass Pl Masc) => p_ + "uestos" ; + VP (Pass Pl Fem) => p_ + "uestas" + } + } ; +oper predecir_61 : Str -> Verbum = \predecir -> + let pred_ = Predef.tk 4 predecir in + {s = table { + VI Infn => pred_ + "ecir" ; + VI Ger => pred_ + "iciendo" ; + VI Part => pred_ + "icho" ; + VP (Pres Ind Sg P1) => pred_ + "igo" ; + VP (Pres Ind Sg P2) => pred_ + "ices" ; + VP (Pres Ind Sg P3) => pred_ + "ice" ; + VP (Pres Ind Pl P1) => pred_ + "ecimos" ; + VP (Pres Ind Pl P2) => pred_ + "ecís" ; + VP (Pres Ind Pl P3) => pred_ + "icen" ; + VP (Pres Subj Sg P1) => pred_ + "iga" ; + VP (Pres Subj Sg P2) => pred_ + "igas" ; + VP (Pres Subj Sg P3) => pred_ + "iga" ; + VP (Pres Subj Pl P1) => pred_ + "igamos" ; + VP (Pres Subj Pl P2) => pred_ + "igáis" ; + VP (Pres Subj Pl P3) => pred_ + "igan" ; + VP (Impf Ind Sg P1) => pred_ + "ecía" ; + VP (Impf Ind Sg P2) => pred_ + "ecías" ; + VP (Impf Ind Sg P3) => pred_ + "ecía" ; + VP (Impf Ind Pl P1) => pred_ + "ecíamos" ; + VP (Impf Ind Pl P2) => pred_ + "ecíais" ; + VP (Impf Ind Pl P3) => pred_ + "ecían" ; + VP (Impf Subj Sg P1) => variants {pred_ + "ijera" ; pred_ + "ijese"} ; + VP (Impf Subj Sg P2) => variants {pred_ + "ijeras" ; pred_ + "ijeses"} ; + VP (Impf Subj Sg P3) => variants {pred_ + "ijera" ; pred_ + "ijese"} ; + VP (Impf Subj Pl P1) => variants {pred_ + "ijéramos" ; pred_ + "ijésemos"} ; + VP (Impf Subj Pl P2) => variants {pred_ + "ijerais" ; pred_ + "ijeseis"} ; + VP (Impf Subj Pl P3) => variants {pred_ + "ijeran" ; pred_ + "ijesen"} ; + VP (Pret Sg P1) => pred_ + "ije" ; + VP (Pret Sg P2) => pred_ + "ijiste" ; + VP (Pret Sg P3) => pred_ + "ijo" ; + VP (Pret Pl P1) => pred_ + "ijimos" ; + VP (Pret Pl P2) => pred_ + "ijisteis" ; + VP (Pret Pl P3) => pred_ + "ijeron" ; + VP (Fut Ind Sg P1) => pred_ + "eciré" ; + VP (Fut Ind Sg P2) => pred_ + "ecirás" ; + VP (Fut Ind Sg P3) => pred_ + "ecirá" ; + VP (Fut Ind Pl P1) => pred_ + "eciremos" ; + VP (Fut Ind Pl P2) => pred_ + "eciréis" ; + VP (Fut Ind Pl P3) => pred_ + "ecirán" ; + VP (Fut Subj Sg P1) => pred_ + "ijere" ; + VP (Fut Subj Sg P2) => pred_ + "ijeres" ; + VP (Fut Subj Sg P3) => pred_ + "ijere" ; + VP (Fut Subj Pl P1) => pred_ + "ijéremos" ; + VP (Fut Subj Pl P2) => pred_ + "ijereis" ; + VP (Fut Subj Pl P3) => pred_ + "ijeren" ; + VP (Cond Sg P1) => pred_ + "eciría" ; + VP (Cond Sg P2) => pred_ + "ecirías" ; + VP (Cond Sg P3) => pred_ + "eciría" ; + VP (Cond Pl P1) => pred_ + "eciríamos" ; + VP (Cond Pl P2) => pred_ + "eciríais" ; + VP (Cond Pl P3) => pred_ + "ecirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => pred_ + "ice" ; + VP (Imp Sg P3) => pred_ + "iga" ; + VP (Imp Pl P1) => pred_ + "igamos" ; + VP (Imp Pl P2) => pred_ + "ecid" ; + VP (Imp Pl P3) => pred_ + "igan" ; + VP (Pass Sg Masc) => pred_ + "icho" ; + VP (Pass Sg Fem) => pred_ + "icha" ; + VP (Pass Pl Masc) => pred_ + "ichos" ; + VP (Pass Pl Fem) => pred_ + "ichas" + } + } ; +oper producir_62 : Str -> Verbum = \producir -> + let produ_ = Predef.tk 3 producir in + {s = table { + VI Infn => produ_ + "cir" ; + VI Ger => produ_ + "ciendo" ; + VI Part => produ_ + "cido" ; + VP (Pres Ind Sg P1) => produ_ + "zco" ; + VP (Pres Ind Sg P2) => produ_ + "ces" ; + VP (Pres Ind Sg P3) => produ_ + "ce" ; + VP (Pres Ind Pl P1) => produ_ + "cimos" ; + VP (Pres Ind Pl P2) => produ_ + "cís" ; + VP (Pres Ind Pl P3) => produ_ + "cen" ; + VP (Pres Subj Sg P1) => produ_ + "zca" ; + VP (Pres Subj Sg P2) => produ_ + "zcas" ; + VP (Pres Subj Sg P3) => produ_ + "zca" ; + VP (Pres Subj Pl P1) => produ_ + "zcamos" ; + VP (Pres Subj Pl P2) => produ_ + "zcáis" ; + VP (Pres Subj Pl P3) => produ_ + "zcan" ; + VP (Impf Ind Sg P1) => produ_ + "cía" ; + VP (Impf Ind Sg P2) => produ_ + "cías" ; + VP (Impf Ind Sg P3) => produ_ + "cía" ; + VP (Impf Ind Pl P1) => produ_ + "cíamos" ; + VP (Impf Ind Pl P2) => produ_ + "cíais" ; + VP (Impf Ind Pl P3) => produ_ + "cían" ; + VP (Impf Subj Sg P1) => variants {produ_ + "jera" ; produ_ + "jese"} ; + VP (Impf Subj Sg P2) => variants {produ_ + "jeras" ; produ_ + "jeses"} ; + VP (Impf Subj Sg P3) => variants {produ_ + "jera" ; produ_ + "jese"} ; + VP (Impf Subj Pl P1) => variants {produ_ + "jéramos" ; produ_ + "jésemos"} ; + VP (Impf Subj Pl P2) => variants {produ_ + "jerais" ; produ_ + "jeseis"} ; + VP (Impf Subj Pl P3) => variants {produ_ + "jeran" ; produ_ + "jesen"} ; + VP (Pret Sg P1) => produ_ + "je" ; + VP (Pret Sg P2) => produ_ + "jiste" ; + VP (Pret Sg P3) => produ_ + "jo" ; + VP (Pret Pl P1) => produ_ + "jimos" ; + VP (Pret Pl P2) => produ_ + "jisteis" ; + VP (Pret Pl P3) => produ_ + "jeron" ; + VP (Fut Ind Sg P1) => produ_ + "ciré" ; + VP (Fut Ind Sg P2) => produ_ + "cirás" ; + VP (Fut Ind Sg P3) => produ_ + "cirá" ; + VP (Fut Ind Pl P1) => produ_ + "ciremos" ; + VP (Fut Ind Pl P2) => produ_ + "ciréis" ; + VP (Fut Ind Pl P3) => produ_ + "cirán" ; + VP (Fut Subj Sg P1) => produ_ + "jere" ; + VP (Fut Subj Sg P2) => produ_ + "jeres" ; + VP (Fut Subj Sg P3) => produ_ + "jere" ; + VP (Fut Subj Pl P1) => produ_ + "jéremos" ; + VP (Fut Subj Pl P2) => produ_ + "jereis" ; + VP (Fut Subj Pl P3) => produ_ + "jeren" ; + VP (Cond Sg P1) => produ_ + "ciría" ; + VP (Cond Sg P2) => produ_ + "cirías" ; + VP (Cond Sg P3) => produ_ + "ciría" ; + VP (Cond Pl P1) => produ_ + "ciríamos" ; + VP (Cond Pl P2) => produ_ + "ciríais" ; + VP (Cond Pl P3) => produ_ + "cirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => produ_ + "ce" ; + VP (Imp Sg P3) => produ_ + "zca" ; + VP (Imp Pl P1) => produ_ + "zcamos" ; + VP (Imp Pl P2) => produ_ + "cid" ; + VP (Imp Pl P3) => produ_ + "zcan" ; + VP (Pass Sg Masc) => produ_ + "cido" ; + VP (Pass Sg Fem) => produ_ + "cida" ; + VP (Pass Pl Masc) => produ_ + "cidos" ; + VP (Pass Pl Fem) => produ_ + "cidas" + } + } ; +oper prohibir_63 : Str -> Verbum = \prohibir -> + let proh_ = Predef.tk 4 prohibir in + {s = table { + VI Infn => proh_ + "ibir" ; + VI Ger => proh_ + "ibiendo" ; + VI Part => proh_ + "ibido" ; + VP (Pres Ind Sg P1) => proh_ + "íbo" ; + VP (Pres Ind Sg P2) => proh_ + "íbes" ; + VP (Pres Ind Sg P3) => proh_ + "íbe" ; + VP (Pres Ind Pl P1) => proh_ + "ibimos" ; + VP (Pres Ind Pl P2) => proh_ + "ibís" ; + VP (Pres Ind Pl P3) => proh_ + "íben" ; + VP (Pres Subj Sg P1) => proh_ + "íba" ; + VP (Pres Subj Sg P2) => proh_ + "íbas" ; + VP (Pres Subj Sg P3) => proh_ + "íba" ; + VP (Pres Subj Pl P1) => proh_ + "ibamos" ; + VP (Pres Subj Pl P2) => proh_ + "ibáis" ; + VP (Pres Subj Pl P3) => proh_ + "íban" ; + VP (Impf Ind Sg P1) => proh_ + "ibía" ; + VP (Impf Ind Sg P2) => proh_ + "ibías" ; + VP (Impf Ind Sg P3) => proh_ + "ibía" ; + VP (Impf Ind Pl P1) => proh_ + "ibíamos" ; + VP (Impf Ind Pl P2) => proh_ + "ibíais" ; + VP (Impf Ind Pl P3) => proh_ + "ibían" ; + VP (Impf Subj Sg P1) => variants {proh_ + "ibiera" ; proh_ + "ibiese"} ; + VP (Impf Subj Sg P2) => variants {proh_ + "ibieras" ; proh_ + "ibieses"} ; + VP (Impf Subj Sg P3) => variants {proh_ + "ibiera" ; proh_ + "ibiese"} ; + VP (Impf Subj Pl P1) => variants {proh_ + "ibiéramos" ; proh_ + "ibiésemos"} ; + VP (Impf Subj Pl P2) => variants {proh_ + "ibierais" ; proh_ + "ibieseis"} ; + VP (Impf Subj Pl P3) => variants {proh_ + "ibieran" ; proh_ + "ibiesen"} ; + VP (Pret Sg P1) => proh_ + "ibí" ; + VP (Pret Sg P2) => proh_ + "ibiste" ; + VP (Pret Sg P3) => proh_ + "ibió" ; + VP (Pret Pl P1) => proh_ + "ibimos" ; + VP (Pret Pl P2) => proh_ + "ibisteis" ; + VP (Pret Pl P3) => proh_ + "ibieron" ; + VP (Fut Ind Sg P1) => proh_ + "ibiré" ; + VP (Fut Ind Sg P2) => proh_ + "ibirás" ; + VP (Fut Ind Sg P3) => proh_ + "ibirá" ; + VP (Fut Ind Pl P1) => proh_ + "ibiremos" ; + VP (Fut Ind Pl P2) => proh_ + "ibiréis" ; + VP (Fut Ind Pl P3) => proh_ + "ibirán" ; + VP (Fut Subj Sg P1) => proh_ + "ibiere" ; + VP (Fut Subj Sg P2) => proh_ + "ibieres" ; + VP (Fut Subj Sg P3) => proh_ + "ibiere" ; + VP (Fut Subj Pl P1) => proh_ + "ibiéremos" ; + VP (Fut Subj Pl P2) => proh_ + "ibiereis" ; + VP (Fut Subj Pl P3) => proh_ + "ibieren" ; + VP (Cond Sg P1) => proh_ + "ibiría" ; + VP (Cond Sg P2) => proh_ + "ibirías" ; + VP (Cond Sg P3) => proh_ + "ibiría" ; + VP (Cond Pl P1) => proh_ + "ibiríamos" ; + VP (Cond Pl P2) => proh_ + "ibiríais" ; + VP (Cond Pl P3) => proh_ + "ibirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => proh_ + "íbe" ; + VP (Imp Sg P3) => proh_ + "íba" ; + VP (Imp Pl P1) => proh_ + "ibamos" ; + VP (Imp Pl P2) => proh_ + "ibid" ; + VP (Imp Pl P3) => proh_ + "íban" ; + VP (Pass Sg Masc) => proh_ + "ibido" ; + VP (Pass Sg Fem) => proh_ + "ibida" ; + VP (Pass Pl Masc) => proh_ + "ibidos" ; + VP (Pass Pl Fem) => proh_ + "ibidas" + } + } ; +oper querer_64 : Str -> Verbum = \querer -> + let qu_ = Predef.tk 4 querer in + {s = table { + VI Infn => qu_ + "erer" ; + VI Ger => qu_ + "eriendo" ; + VI Part => qu_ + "erido" ; + VP (Pres Ind Sg P1) => qu_ + "iero" ; + VP (Pres Ind Sg P2) => qu_ + "ieres" ; + VP (Pres Ind Sg P3) => qu_ + "iere" ; + VP (Pres Ind Pl P1) => qu_ + "eremos" ; + VP (Pres Ind Pl P2) => qu_ + "eréis" ; + VP (Pres Ind Pl P3) => qu_ + "ieren" ; + VP (Pres Subj Sg P1) => qu_ + "iera" ; + VP (Pres Subj Sg P2) => qu_ + "ieras" ; + VP (Pres Subj Sg P3) => qu_ + "iera" ; + VP (Pres Subj Pl P1) => qu_ + "eramos" ; + VP (Pres Subj Pl P2) => qu_ + "eráis" ; + VP (Pres Subj Pl P3) => qu_ + "ieran" ; + VP (Impf Ind Sg P1) => qu_ + "ería" ; + VP (Impf Ind Sg P2) => qu_ + "erías" ; + VP (Impf Ind Sg P3) => qu_ + "ería" ; + VP (Impf Ind Pl P1) => qu_ + "eríamos" ; + VP (Impf Ind Pl P2) => qu_ + "eríais" ; + VP (Impf Ind Pl P3) => qu_ + "erían" ; + VP (Impf Subj Sg P1) => variants {qu_ + "isiera" ; qu_ + "isiese"} ; + VP (Impf Subj Sg P2) => variants {qu_ + "isieras" ; qu_ + "isieses"} ; + VP (Impf Subj Sg P3) => variants {qu_ + "isiera" ; qu_ + "isiese"} ; + VP (Impf Subj Pl P1) => variants {qu_ + "isiéramos" ; qu_ + "isiésemos"} ; + VP (Impf Subj Pl P2) => variants {qu_ + "isierais" ; qu_ + "isieseis"} ; + VP (Impf Subj Pl P3) => variants {qu_ + "isieran" ; qu_ + "isiesen"} ; + VP (Pret Sg P1) => qu_ + "ise" ; + VP (Pret Sg P2) => qu_ + "isiste" ; + VP (Pret Sg P3) => qu_ + "iso" ; + VP (Pret Pl P1) => qu_ + "isimos" ; + VP (Pret Pl P2) => qu_ + "isisteis" ; + VP (Pret Pl P3) => qu_ + "isieron" ; + VP (Fut Ind Sg P1) => qu_ + "erré" ; + VP (Fut Ind Sg P2) => qu_ + "errás" ; + VP (Fut Ind Sg P3) => qu_ + "errá" ; + VP (Fut Ind Pl P1) => qu_ + "erremos" ; + VP (Fut Ind Pl P2) => qu_ + "erréis" ; + VP (Fut Ind Pl P3) => qu_ + "errán" ; + VP (Fut Subj Sg P1) => qu_ + "isiere" ; + VP (Fut Subj Sg P2) => qu_ + "isieres" ; + VP (Fut Subj Sg P3) => qu_ + "isiere" ; + VP (Fut Subj Pl P1) => qu_ + "isiéremos" ; + VP (Fut Subj Pl P2) => qu_ + "isiereis" ; + VP (Fut Subj Pl P3) => qu_ + "isieren" ; + VP (Cond Sg P1) => qu_ + "erría" ; + VP (Cond Sg P2) => qu_ + "errías" ; + VP (Cond Sg P3) => qu_ + "erría" ; + VP (Cond Pl P1) => qu_ + "erríamos" ; + VP (Cond Pl P2) => qu_ + "erríais" ; + VP (Cond Pl P3) => qu_ + "errían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => qu_ + "iere" ; + VP (Imp Sg P3) => qu_ + "iera" ; + VP (Imp Pl P1) => qu_ + "eramos" ; + VP (Imp Pl P2) => qu_ + "ered" ; + VP (Imp Pl P3) => qu_ + "ieran" ; + VP (Pass Sg Masc) => qu_ + "erido" ; + VP (Pass Sg Fem) => qu_ + "erida" ; + VP (Pass Pl Masc) => qu_ + "eridos" ; + VP (Pass Pl Fem) => qu_ + "eridas" + } + } ; +oper raer_65 : Str -> Verbum = \raer -> + let ra_ = Predef.tk 2 raer in + {s = table { + VI Infn => ra_ + "er" ; + VI Ger => ra_ + "yendo" ; + VI Part => ra_ + "ído" ; + VP (Pres Ind Sg P1) => variants {ra_ + "o" ; ra_ + "igo"} ; + VP (Pres Ind Sg P2) => ra_ + "es" ; + VP (Pres Ind Sg P3) => ra_ + "e" ; + VP (Pres Ind Pl P1) => ra_ + "emos" ; + VP (Pres Ind Pl P2) => ra_ + "éis" ; + VP (Pres Ind Pl P3) => ra_ + "en" ; + VP (Pres Subj Sg P1) => ra_ + "iga" ; + VP (Pres Subj Sg P2) => ra_ + "igas" ; + VP (Pres Subj Sg P3) => ra_ + "iga" ; + VP (Pres Subj Pl P1) => ra_ + "igamos" ; + VP (Pres Subj Pl P2) => ra_ + "igáis" ; + VP (Pres Subj Pl P3) => ra_ + "igan" ; + VP (Impf Ind Sg P1) => ra_ + "ía" ; + VP (Impf Ind Sg P2) => ra_ + "ías" ; + VP (Impf Ind Sg P3) => ra_ + "ía" ; + VP (Impf Ind Pl P1) => ra_ + "íamos" ; + VP (Impf Ind Pl P2) => ra_ + "íais" ; + VP (Impf Ind Pl P3) => ra_ + "ían" ; + VP (Impf Subj Sg P1) => variants {ra_ + "yera" ; ra_ + "yese"} ; + VP (Impf Subj Sg P2) => variants {ra_ + "yeras" ; ra_ + "yeses"} ; + VP (Impf Subj Sg P3) => variants {ra_ + "yera" ; ra_ + "yese"} ; + VP (Impf Subj Pl P1) => variants {ra_ + "yéramos" ; ra_ + "yésemos"} ; + VP (Impf Subj Pl P2) => variants {ra_ + "yerais" ; ra_ + "yeseis"} ; + VP (Impf Subj Pl P3) => variants {ra_ + "yeran" ; ra_ + "yesen"} ; + VP (Pret Sg P1) => ra_ + "í" ; + VP (Pret Sg P2) => ra_ + "íste" ; + VP (Pret Sg P3) => ra_ + "yó" ; + VP (Pret Pl P1) => ra_ + "ímos" ; + VP (Pret Pl P2) => ra_ + "ísteis" ; + VP (Pret Pl P3) => ra_ + "yeron" ; + VP (Fut Ind Sg P1) => ra_ + "eré" ; + VP (Fut Ind Sg P2) => ra_ + "erás" ; + VP (Fut Ind Sg P3) => ra_ + "erá" ; + VP (Fut Ind Pl P1) => ra_ + "eremos" ; + VP (Fut Ind Pl P2) => ra_ + "eréis" ; + VP (Fut Ind Pl P3) => ra_ + "erán" ; + VP (Fut Subj Sg P1) => ra_ + "yere" ; + VP (Fut Subj Sg P2) => ra_ + "yeres" ; + VP (Fut Subj Sg P3) => ra_ + "yere" ; + VP (Fut Subj Pl P1) => ra_ + "yéremos" ; + VP (Fut Subj Pl P2) => ra_ + "yereis" ; + VP (Fut Subj Pl P3) => ra_ + "yeren" ; + VP (Cond Sg P1) => ra_ + "ería" ; + VP (Cond Sg P2) => ra_ + "erías" ; + VP (Cond Sg P3) => ra_ + "ería" ; + VP (Cond Pl P1) => ra_ + "eríamos" ; + VP (Cond Pl P2) => ra_ + "eríais" ; + VP (Cond Pl P3) => ra_ + "erían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => ra_ + "e" ; + VP (Imp Sg P3) => ra_ + "iga" ; + VP (Imp Pl P1) => ra_ + "igamos" ; + VP (Imp Pl P2) => ra_ + "ed" ; + VP (Imp Pl P3) => ra_ + "igan" ; + VP (Pass Sg Masc) => ra_ + "ído" ; + VP (Pass Sg Fem) => ra_ + "ída" ; + VP (Pass Pl Masc) => ra_ + "ídos" ; + VP (Pass Pl Fem) => ra_ + "ídas" + } + } ; +oper regar_66 : Str -> Verbum = \regar -> + let r_ = Predef.tk 4 regar in + {s = table { + VI Infn => r_ + "egar" ; + VI Ger => r_ + "egando" ; + VI Part => r_ + "egado" ; + VP (Pres Ind Sg P1) => r_ + "iego" ; + VP (Pres Ind Sg P2) => r_ + "iegas" ; + VP (Pres Ind Sg P3) => r_ + "iega" ; + VP (Pres Ind Pl P1) => r_ + "egamos" ; + VP (Pres Ind Pl P2) => r_ + "egáis" ; + VP (Pres Ind Pl P3) => r_ + "iegan" ; + VP (Pres Subj Sg P1) => r_ + "iegue" ; + VP (Pres Subj Sg P2) => r_ + "iegues" ; + VP (Pres Subj Sg P3) => r_ + "iegue" ; + VP (Pres Subj Pl P1) => r_ + "eguemos" ; + VP (Pres Subj Pl P2) => r_ + "eguéis" ; + VP (Pres Subj Pl P3) => r_ + "ieguen" ; + VP (Impf Ind Sg P1) => r_ + "egaba" ; + VP (Impf Ind Sg P2) => r_ + "egabas" ; + VP (Impf Ind Sg P3) => r_ + "egaba" ; + VP (Impf Ind Pl P1) => r_ + "egábamos" ; + VP (Impf Ind Pl P2) => r_ + "egabais" ; + VP (Impf Ind Pl P3) => r_ + "egaban" ; + VP (Impf Subj Sg P1) => variants {r_ + "egara" ; r_ + "egase"} ; + VP (Impf Subj Sg P2) => variants {r_ + "egaras" ; r_ + "egases"} ; + VP (Impf Subj Sg P3) => variants {r_ + "egara" ; r_ + "egase"} ; + VP (Impf Subj Pl P1) => variants {r_ + "egáramos" ; r_ + "egásemos"} ; + VP (Impf Subj Pl P2) => variants {r_ + "egarais" ; r_ + "egaseis"} ; + VP (Impf Subj Pl P3) => variants {r_ + "egaran" ; r_ + "egasen"} ; + VP (Pret Sg P1) => r_ + "egué" ; + VP (Pret Sg P2) => r_ + "egaste" ; + VP (Pret Sg P3) => r_ + "egó" ; + VP (Pret Pl P1) => r_ + "egamos" ; + VP (Pret Pl P2) => r_ + "egasteis" ; + VP (Pret Pl P3) => r_ + "egaron" ; + VP (Fut Ind Sg P1) => r_ + "egaré" ; + VP (Fut Ind Sg P2) => r_ + "egarás" ; + VP (Fut Ind Sg P3) => r_ + "egará" ; + VP (Fut Ind Pl P1) => r_ + "egaremos" ; + VP (Fut Ind Pl P2) => r_ + "egaréis" ; + VP (Fut Ind Pl P3) => r_ + "egarán" ; + VP (Fut Subj Sg P1) => r_ + "egare" ; + VP (Fut Subj Sg P2) => r_ + "egares" ; + VP (Fut Subj Sg P3) => r_ + "egare" ; + VP (Fut Subj Pl P1) => r_ + "egáremos" ; + VP (Fut Subj Pl P2) => r_ + "egareis" ; + VP (Fut Subj Pl P3) => r_ + "egaren" ; + VP (Cond Sg P1) => r_ + "egaría" ; + VP (Cond Sg P2) => r_ + "egarías" ; + VP (Cond Sg P3) => r_ + "egaría" ; + VP (Cond Pl P1) => r_ + "egaríamos" ; + VP (Cond Pl P2) => r_ + "egaríais" ; + VP (Cond Pl P3) => r_ + "egarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => r_ + "iega" ; + VP (Imp Sg P3) => r_ + "iegue" ; + VP (Imp Pl P1) => r_ + "eguemos" ; + VP (Imp Pl P2) => r_ + "egad" ; + VP (Imp Pl P3) => r_ + "ieguen" ; + VP (Pass Sg Masc) => r_ + "egado" ; + VP (Pass Sg Fem) => r_ + "egada" ; + VP (Pass Pl Masc) => r_ + "egados" ; + VP (Pass Pl Fem) => r_ + "egadas" + } + } ; +oper reñir_68 : Str -> Verbum = \reñir -> + let r_ = Predef.tk 4 reñir in + {s = table { + VI Infn => r_ + "eñir" ; + VI Ger => r_ + "iñiendo" ; + VI Part => r_ + "eñido" ; + VP (Pres Ind Sg P1) => r_ + "iño" ; + VP (Pres Ind Sg P2) => r_ + "iñes" ; + VP (Pres Ind Sg P3) => r_ + "iñe" ; + VP (Pres Ind Pl P1) => r_ + "eñimos" ; + VP (Pres Ind Pl P2) => r_ + "eñís" ; + VP (Pres Ind Pl P3) => r_ + "iñen" ; + VP (Pres Subj Sg P1) => r_ + "iña" ; + VP (Pres Subj Sg P2) => r_ + "iñas" ; + VP (Pres Subj Sg P3) => r_ + "iña" ; + VP (Pres Subj Pl P1) => r_ + "iñamos" ; + VP (Pres Subj Pl P2) => r_ + "iñáis" ; + VP (Pres Subj Pl P3) => r_ + "iñan" ; + VP (Impf Ind Sg P1) => r_ + "eñía" ; + VP (Impf Ind Sg P2) => r_ + "eñías" ; + VP (Impf Ind Sg P3) => r_ + "eñía" ; + VP (Impf Ind Pl P1) => r_ + "eñíamos" ; + VP (Impf Ind Pl P2) => r_ + "eñíais" ; + VP (Impf Ind Pl P3) => r_ + "eñían" ; + VP (Impf Subj Sg P1) => variants {r_ + "iñera" ; r_ + "iñese"} ; + VP (Impf Subj Sg P2) => variants {r_ + "iñeras" ; r_ + "iñeses"} ; + VP (Impf Subj Sg P3) => variants {r_ + "iñera" ; r_ + "iñese"} ; + VP (Impf Subj Pl P1) => variants {r_ + "iñéramos" ; r_ + "iñésemos"} ; + VP (Impf Subj Pl P2) => variants {r_ + "iñerais" ; r_ + "iñeseis"} ; + VP (Impf Subj Pl P3) => variants {r_ + "iñeran" ; r_ + "iñesen"} ; + VP (Pret Sg P1) => r_ + "eñí" ; + VP (Pret Sg P2) => r_ + "eñiste" ; + VP (Pret Sg P3) => r_ + "iñó" ; + VP (Pret Pl P1) => r_ + "eñimos" ; + VP (Pret Pl P2) => r_ + "eñisteis" ; + VP (Pret Pl P3) => r_ + "iñeron" ; + VP (Fut Ind Sg P1) => r_ + "eñiré" ; + VP (Fut Ind Sg P2) => r_ + "eñirás" ; + VP (Fut Ind Sg P3) => r_ + "eñirá" ; + VP (Fut Ind Pl P1) => r_ + "eñiremos" ; + VP (Fut Ind Pl P2) => r_ + "eñiréis" ; + VP (Fut Ind Pl P3) => r_ + "eñirán" ; + VP (Fut Subj Sg P1) => r_ + "iñere" ; + VP (Fut Subj Sg P2) => r_ + "iñeres" ; + VP (Fut Subj Sg P3) => r_ + "iñere" ; + VP (Fut Subj Pl P1) => r_ + "iñéremos" ; + VP (Fut Subj Pl P2) => r_ + "iñereis" ; + VP (Fut Subj Pl P3) => r_ + "iñeren" ; + VP (Cond Sg P1) => r_ + "eñiría" ; + VP (Cond Sg P2) => r_ + "eñirías" ; + VP (Cond Sg P3) => r_ + "eñiría" ; + VP (Cond Pl P1) => r_ + "eñiríamos" ; + VP (Cond Pl P2) => r_ + "eñiríais" ; + VP (Cond Pl P3) => r_ + "eñirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => r_ + "iñe" ; + VP (Imp Sg P3) => r_ + "iña" ; + VP (Imp Pl P1) => r_ + "iñamos" ; + VP (Imp Pl P2) => r_ + "eñid" ; + VP (Imp Pl P3) => r_ + "iñan" ; + VP (Pass Sg Masc) => r_ + "eñido" ; + VP (Pass Sg Fem) => r_ + "eñida" ; + VP (Pass Pl Masc) => r_ + "eñidos" ; + VP (Pass Pl Fem) => r_ + "eñidas" + } + } ; +oper reunir_69 : Str -> Verbum = \reunir -> + let re_ = Predef.tk 4 reunir in + {s = table { + VI Infn => re_ + "unir" ; + VI Ger => re_ + "uniendo" ; + VI Part => re_ + "unido" ; + VP (Pres Ind Sg P1) => re_ + "úno" ; + VP (Pres Ind Sg P2) => re_ + "únes" ; + VP (Pres Ind Sg P3) => re_ + "úne" ; + VP (Pres Ind Pl P1) => re_ + "unimos" ; + VP (Pres Ind Pl P2) => re_ + "unís" ; + VP (Pres Ind Pl P3) => re_ + "únen" ; + VP (Pres Subj Sg P1) => re_ + "úna" ; + VP (Pres Subj Sg P2) => re_ + "únas" ; + VP (Pres Subj Sg P3) => re_ + "úna" ; + VP (Pres Subj Pl P1) => re_ + "unamos" ; + VP (Pres Subj Pl P2) => re_ + "unáis" ; + VP (Pres Subj Pl P3) => re_ + "únan" ; + VP (Impf Ind Sg P1) => re_ + "unía" ; + VP (Impf Ind Sg P2) => re_ + "unías" ; + VP (Impf Ind Sg P3) => re_ + "unía" ; + VP (Impf Ind Pl P1) => re_ + "uníamos" ; + VP (Impf Ind Pl P2) => re_ + "uníais" ; + VP (Impf Ind Pl P3) => re_ + "unían" ; + VP (Impf Subj Sg P1) => variants {re_ + "uniera" ; re_ + "uniese"} ; + VP (Impf Subj Sg P2) => variants {re_ + "unieras" ; re_ + "unieses"} ; + VP (Impf Subj Sg P3) => variants {re_ + "uniera" ; re_ + "uniese"} ; + VP (Impf Subj Pl P1) => variants {re_ + "uniéramos" ; re_ + "uniésemos"} ; + VP (Impf Subj Pl P2) => variants {re_ + "unierais" ; re_ + "unieseis"} ; + VP (Impf Subj Pl P3) => variants {re_ + "unieran" ; re_ + "uniesen"} ; + VP (Pret Sg P1) => re_ + "uní" ; + VP (Pret Sg P2) => re_ + "uniste" ; + VP (Pret Sg P3) => re_ + "unió" ; + VP (Pret Pl P1) => re_ + "unimos" ; + VP (Pret Pl P2) => re_ + "unisteis" ; + VP (Pret Pl P3) => re_ + "unieron" ; + VP (Fut Ind Sg P1) => re_ + "uniré" ; + VP (Fut Ind Sg P2) => re_ + "unirás" ; + VP (Fut Ind Sg P3) => re_ + "unirá" ; + VP (Fut Ind Pl P1) => re_ + "uniremos" ; + VP (Fut Ind Pl P2) => re_ + "uniréis" ; + VP (Fut Ind Pl P3) => re_ + "unirán" ; + VP (Fut Subj Sg P1) => re_ + "uniere" ; + VP (Fut Subj Sg P2) => re_ + "unieres" ; + VP (Fut Subj Sg P3) => re_ + "uniere" ; + VP (Fut Subj Pl P1) => re_ + "uniéremos" ; + VP (Fut Subj Pl P2) => re_ + "uniereis" ; + VP (Fut Subj Pl P3) => re_ + "unieren" ; + VP (Cond Sg P1) => re_ + "uniría" ; + VP (Cond Sg P2) => re_ + "unirías" ; + VP (Cond Sg P3) => re_ + "uniría" ; + VP (Cond Pl P1) => re_ + "uniríamos" ; + VP (Cond Pl P2) => re_ + "uniríais" ; + VP (Cond Pl P3) => re_ + "unirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => re_ + "úne" ; + VP (Imp Sg P3) => re_ + "úna" ; + VP (Imp Pl P1) => re_ + "unamos" ; + VP (Imp Pl P2) => re_ + "unid" ; + VP (Imp Pl P3) => re_ + "únan" ; + VP (Pass Sg Masc) => re_ + "unido" ; + VP (Pass Sg Fem) => re_ + "unida" ; + VP (Pass Pl Masc) => re_ + "unidos" ; + VP (Pass Pl Fem) => re_ + "unidas" + } + } ; +oper roer_70 : Str -> Verbum = \roer -> + let ro_ = Predef.tk 2 roer in + {s = table { + VI Infn => ro_ + "er" ; + VI Ger => ro_ + "yendo" ; + VI Part => ro_ + "ído" ; + VP (Pres Ind Sg P1) => variants {ro_ + "o" ; ro_ + "igo"} ; + VP (Pres Ind Sg P2) => ro_ + "es" ; + VP (Pres Ind Sg P3) => ro_ + "e" ; + VP (Pres Ind Pl P1) => ro_ + "emos" ; + VP (Pres Ind Pl P2) => ro_ + "éis" ; + VP (Pres Ind Pl P3) => ro_ + "en" ; + VP (Pres Subj Sg P1) => ro_ + "a" ; + VP (Pres Subj Sg P2) => ro_ + "as" ; + VP (Pres Subj Sg P3) => ro_ + "a" ; + VP (Pres Subj Pl P1) => ro_ + "amos" ; + VP (Pres Subj Pl P2) => ro_ + "áis" ; + VP (Pres Subj Pl P3) => ro_ + "an" ; + VP (Impf Ind Sg P1) => ro_ + "ía" ; + VP (Impf Ind Sg P2) => ro_ + "ías" ; + VP (Impf Ind Sg P3) => ro_ + "ía" ; + VP (Impf Ind Pl P1) => ro_ + "íamos" ; + VP (Impf Ind Pl P2) => ro_ + "íais" ; + VP (Impf Ind Pl P3) => ro_ + "ían" ; + VP (Impf Subj Sg P1) => variants {ro_ + "yera" ; ro_ + "yese"} ; + VP (Impf Subj Sg P2) => variants {ro_ + "yeras" ; ro_ + "yeses"} ; + VP (Impf Subj Sg P3) => variants {ro_ + "yera" ; ro_ + "yese"} ; + VP (Impf Subj Pl P1) => variants {ro_ + "yéramos" ; ro_ + "yésemos"} ; + VP (Impf Subj Pl P2) => variants {ro_ + "yerais" ; ro_ + "yeseis"} ; + VP (Impf Subj Pl P3) => variants {ro_ + "yeran" ; ro_ + "yesen"} ; + VP (Pret Sg P1) => ro_ + "í" ; + VP (Pret Sg P2) => ro_ + "íste" ; + VP (Pret Sg P3) => ro_ + "yó" ; + VP (Pret Pl P1) => ro_ + "ímos" ; + VP (Pret Pl P2) => ro_ + "ísteis" ; + VP (Pret Pl P3) => ro_ + "yeron" ; + VP (Fut Ind Sg P1) => ro_ + "eré" ; + VP (Fut Ind Sg P2) => ro_ + "erás" ; + VP (Fut Ind Sg P3) => ro_ + "erá" ; + VP (Fut Ind Pl P1) => ro_ + "eremos" ; + VP (Fut Ind Pl P2) => ro_ + "eréis" ; + VP (Fut Ind Pl P3) => ro_ + "erán" ; + VP (Fut Subj Sg P1) => ro_ + "yere" ; + VP (Fut Subj Sg P2) => ro_ + "yeres" ; + VP (Fut Subj Sg P3) => ro_ + "yere" ; + VP (Fut Subj Pl P1) => ro_ + "yéremos" ; + VP (Fut Subj Pl P2) => ro_ + "yereis" ; + VP (Fut Subj Pl P3) => ro_ + "yeren" ; + VP (Cond Sg P1) => ro_ + "ería" ; + VP (Cond Sg P2) => ro_ + "erías" ; + VP (Cond Sg P3) => ro_ + "ería" ; + VP (Cond Pl P1) => ro_ + "eríamos" ; + VP (Cond Pl P2) => ro_ + "eríais" ; + VP (Cond Pl P3) => ro_ + "erían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => ro_ + "e" ; + VP (Imp Sg P3) => ro_ + "a" ; + VP (Imp Pl P1) => ro_ + "amos" ; + VP (Imp Pl P2) => ro_ + "ed" ; + VP (Imp Pl P3) => ro_ + "an" ; + VP (Pass Sg Masc) => ro_ + "ído" ; + VP (Pass Sg Fem) => ro_ + "ída" ; + VP (Pass Pl Masc) => ro_ + "ídos" ; + VP (Pass Pl Fem) => ro_ + "ídas" + } + } ; +oper saber_71 : Str -> Verbum = \saber -> + let s_ = Predef.tk 4 saber in + {s = table { + VI Infn => s_ + "aber" ; + VI Ger => s_ + "abiendo" ; + VI Part => s_ + "abido" ; + VP (Pres Ind Sg P1) => s_ + "é" ; + VP (Pres Ind Sg P2) => s_ + "abes" ; + VP (Pres Ind Sg P3) => s_ + "abe" ; + VP (Pres Ind Pl P1) => s_ + "abemos" ; + VP (Pres Ind Pl P2) => s_ + "abéis" ; + VP (Pres Ind Pl P3) => s_ + "aben" ; + VP (Pres Subj Sg P1) => s_ + "epa" ; + VP (Pres Subj Sg P2) => s_ + "epas" ; + VP (Pres Subj Sg P3) => s_ + "epa" ; + VP (Pres Subj Pl P1) => s_ + "epamos" ; + VP (Pres Subj Pl P2) => s_ + "epáis" ; + VP (Pres Subj Pl P3) => s_ + "epan" ; + VP (Impf Ind Sg P1) => s_ + "abía" ; + VP (Impf Ind Sg P2) => s_ + "abías" ; + VP (Impf Ind Sg P3) => s_ + "abía" ; + VP (Impf Ind Pl P1) => s_ + "abíamos" ; + VP (Impf Ind Pl P2) => s_ + "abíais" ; + VP (Impf Ind Pl P3) => s_ + "abían" ; + VP (Impf Subj Sg P1) => variants {s_ + "upiera" ; s_ + "upiese"} ; + VP (Impf Subj Sg P2) => variants {s_ + "upieras" ; s_ + "upieses"} ; + VP (Impf Subj Sg P3) => variants {s_ + "upiera" ; s_ + "upiese"} ; + VP (Impf Subj Pl P1) => variants {s_ + "upiéramos" ; s_ + "upiésemos"} ; + VP (Impf Subj Pl P2) => variants {s_ + "upierais" ; s_ + "upieseis"} ; + VP (Impf Subj Pl P3) => variants {s_ + "upieran" ; s_ + "upiesen"} ; + VP (Pret Sg P1) => s_ + "upe" ; + VP (Pret Sg P2) => s_ + "upiste" ; + VP (Pret Sg P3) => s_ + "upo" ; + VP (Pret Pl P1) => s_ + "upimos" ; + VP (Pret Pl P2) => s_ + "upisteis" ; + VP (Pret Pl P3) => s_ + "upieron" ; + VP (Fut Ind Sg P1) => s_ + "abré" ; + VP (Fut Ind Sg P2) => s_ + "abrás" ; + VP (Fut Ind Sg P3) => s_ + "abrá" ; + VP (Fut Ind Pl P1) => s_ + "abremos" ; + VP (Fut Ind Pl P2) => s_ + "abréis" ; + VP (Fut Ind Pl P3) => s_ + "abrán" ; + VP (Fut Subj Sg P1) => s_ + "upiere" ; + VP (Fut Subj Sg P2) => s_ + "upieres" ; + VP (Fut Subj Sg P3) => s_ + "upiere" ; + VP (Fut Subj Pl P1) => s_ + "upiéremos" ; + VP (Fut Subj Pl P2) => s_ + "upiereis" ; + VP (Fut Subj Pl P3) => s_ + "upieren" ; + VP (Cond Sg P1) => s_ + "abría" ; + VP (Cond Sg P2) => s_ + "abrías" ; + VP (Cond Sg P3) => s_ + "abría" ; + VP (Cond Pl P1) => s_ + "abríamos" ; + VP (Cond Pl P2) => s_ + "abríais" ; + VP (Cond Pl P3) => s_ + "abrían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => s_ + "abe" ; + VP (Imp Sg P3) => s_ + "epa" ; + VP (Imp Pl P1) => s_ + "epamos" ; + VP (Imp Pl P2) => s_ + "abed" ; + VP (Imp Pl P3) => s_ + "epan" ; + VP (Pass Sg Masc) => s_ + "abido" ; + VP (Pass Sg Fem) => s_ + "abida" ; + VP (Pass Pl Masc) => s_ + "abidos" ; + VP (Pass Pl Fem) => s_ + "abidas" + } + } ; +oper sacar_72 : Str -> Verbum = \sacar -> + let sa_ = Predef.tk 3 sacar in + {s = table { + VI Infn => sa_ + "car" ; + VI Ger => sa_ + "cando" ; + VI Part => sa_ + "cado" ; + VP (Pres Ind Sg P1) => sa_ + "co" ; + VP (Pres Ind Sg P2) => sa_ + "cas" ; + VP (Pres Ind Sg P3) => sa_ + "ca" ; + VP (Pres Ind Pl P1) => sa_ + "camos" ; + VP (Pres Ind Pl P2) => sa_ + "cáis" ; + VP (Pres Ind Pl P3) => sa_ + "can" ; + VP (Pres Subj Sg P1) => sa_ + "que" ; + VP (Pres Subj Sg P2) => sa_ + "ques" ; + VP (Pres Subj Sg P3) => sa_ + "que" ; + VP (Pres Subj Pl P1) => sa_ + "quemos" ; + VP (Pres Subj Pl P2) => sa_ + "quéis" ; + VP (Pres Subj Pl P3) => sa_ + "quen" ; + VP (Impf Ind Sg P1) => sa_ + "caba" ; + VP (Impf Ind Sg P2) => sa_ + "cabas" ; + VP (Impf Ind Sg P3) => sa_ + "caba" ; + VP (Impf Ind Pl P1) => sa_ + "cábamos" ; + VP (Impf Ind Pl P2) => sa_ + "cabais" ; + VP (Impf Ind Pl P3) => sa_ + "caban" ; + VP (Impf Subj Sg P1) => variants {sa_ + "cara" ; sa_ + "case"} ; + VP (Impf Subj Sg P2) => variants {sa_ + "caras" ; sa_ + "cases"} ; + VP (Impf Subj Sg P3) => variants {sa_ + "cara" ; sa_ + "case"} ; + VP (Impf Subj Pl P1) => variants {sa_ + "cáramos" ; sa_ + "cásemos"} ; + VP (Impf Subj Pl P2) => variants {sa_ + "carais" ; sa_ + "caseis"} ; + VP (Impf Subj Pl P3) => variants {sa_ + "caran" ; sa_ + "casen"} ; + VP (Pret Sg P1) => sa_ + "qué" ; + VP (Pret Sg P2) => sa_ + "caste" ; + VP (Pret Sg P3) => sa_ + "có" ; + VP (Pret Pl P1) => sa_ + "camos" ; + VP (Pret Pl P2) => sa_ + "casteis" ; + VP (Pret Pl P3) => sa_ + "caron" ; + VP (Fut Ind Sg P1) => sa_ + "caré" ; + VP (Fut Ind Sg P2) => sa_ + "carás" ; + VP (Fut Ind Sg P3) => sa_ + "cará" ; + VP (Fut Ind Pl P1) => sa_ + "caremos" ; + VP (Fut Ind Pl P2) => sa_ + "caréis" ; + VP (Fut Ind Pl P3) => sa_ + "carán" ; + VP (Fut Subj Sg P1) => sa_ + "care" ; + VP (Fut Subj Sg P2) => sa_ + "cares" ; + VP (Fut Subj Sg P3) => sa_ + "care" ; + VP (Fut Subj Pl P1) => sa_ + "cáremos" ; + VP (Fut Subj Pl P2) => sa_ + "careis" ; + VP (Fut Subj Pl P3) => sa_ + "caren" ; + VP (Cond Sg P1) => sa_ + "caría" ; + VP (Cond Sg P2) => sa_ + "carías" ; + VP (Cond Sg P3) => sa_ + "caría" ; + VP (Cond Pl P1) => sa_ + "caríamos" ; + VP (Cond Pl P2) => sa_ + "caríais" ; + VP (Cond Pl P3) => sa_ + "carían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => sa_ + "ca" ; + VP (Imp Sg P3) => sa_ + "que" ; + VP (Imp Pl P1) => sa_ + "quemos" ; + VP (Imp Pl P2) => sa_ + "cad" ; + VP (Imp Pl P3) => sa_ + "quen" ; + VP (Pass Sg Masc) => sa_ + "cado" ; + VP (Pass Sg Fem) => sa_ + "cada" ; + VP (Pass Pl Masc) => sa_ + "cados" ; + VP (Pass Pl Fem) => sa_ + "cadas" + } + } ; +oper salir_73 : Str -> Verbum = \salir -> + let sal_ = Predef.tk 2 salir in + {s = table { + VI Infn => sal_ + "ir" ; + VI Ger => sal_ + "iendo" ; + VI Part => sal_ + "ido" ; + VP (Pres Ind Sg P1) => sal_ + "go" ; + VP (Pres Ind Sg P2) => sal_ + "es" ; + VP (Pres Ind Sg P3) => sal_ + "e" ; + VP (Pres Ind Pl P1) => sal_ + "imos" ; + VP (Pres Ind Pl P2) => sal_ + "ís" ; + VP (Pres Ind Pl P3) => sal_ + "en" ; + VP (Pres Subj Sg P1) => sal_ + "ga" ; + VP (Pres Subj Sg P2) => sal_ + "gas" ; + VP (Pres Subj Sg P3) => sal_ + "ga" ; + VP (Pres Subj Pl P1) => sal_ + "gamos" ; + VP (Pres Subj Pl P2) => sal_ + "gáis" ; + VP (Pres Subj Pl P3) => sal_ + "gan" ; + VP (Impf Ind Sg P1) => sal_ + "ía" ; + VP (Impf Ind Sg P2) => sal_ + "ías" ; + VP (Impf Ind Sg P3) => sal_ + "ía" ; + VP (Impf Ind Pl P1) => sal_ + "íamos" ; + VP (Impf Ind Pl P2) => sal_ + "íais" ; + VP (Impf Ind Pl P3) => sal_ + "ían" ; + VP (Impf Subj Sg P1) => variants {sal_ + "iera" ; sal_ + "iese"} ; + VP (Impf Subj Sg P2) => variants {sal_ + "ieras" ; sal_ + "ieses"} ; + VP (Impf Subj Sg P3) => variants {sal_ + "iera" ; sal_ + "iese"} ; + VP (Impf Subj Pl P1) => variants {sal_ + "iéramos" ; sal_ + "iésemos"} ; + VP (Impf Subj Pl P2) => variants {sal_ + "ierais" ; sal_ + "ieseis"} ; + VP (Impf Subj Pl P3) => variants {sal_ + "ieran" ; sal_ + "iesen"} ; + VP (Pret Sg P1) => sal_ + "í" ; + VP (Pret Sg P2) => sal_ + "iste" ; + VP (Pret Sg P3) => sal_ + "ió" ; + VP (Pret Pl P1) => sal_ + "imos" ; + VP (Pret Pl P2) => sal_ + "isteis" ; + VP (Pret Pl P3) => sal_ + "ieron" ; + VP (Fut Ind Sg P1) => sal_ + "dré" ; + VP (Fut Ind Sg P2) => sal_ + "drás" ; + VP (Fut Ind Sg P3) => sal_ + "drá" ; + VP (Fut Ind Pl P1) => sal_ + "dremos" ; + VP (Fut Ind Pl P2) => sal_ + "dréis" ; + VP (Fut Ind Pl P3) => sal_ + "drán" ; + VP (Fut Subj Sg P1) => sal_ + "iere" ; + VP (Fut Subj Sg P2) => sal_ + "ieres" ; + VP (Fut Subj Sg P3) => sal_ + "iere" ; + VP (Fut Subj Pl P1) => sal_ + "iéremos" ; + VP (Fut Subj Pl P2) => sal_ + "iereis" ; + VP (Fut Subj Pl P3) => sal_ + "ieren" ; + VP (Cond Sg P1) => sal_ + "dría" ; + VP (Cond Sg P2) => sal_ + "drías" ; + VP (Cond Sg P3) => sal_ + "dría" ; + VP (Cond Pl P1) => sal_ + "dríamos" ; + VP (Cond Pl P2) => sal_ + "dríais" ; + VP (Cond Pl P3) => sal_ + "drían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => sal_ + "" ; + VP (Imp Sg P3) => sal_ + "ga" ; + VP (Imp Pl P1) => sal_ + "gamos" ; + VP (Imp Pl P2) => sal_ + "id" ; + VP (Imp Pl P3) => sal_ + "gan" ; + VP (Pass Sg Masc) => sal_ + "ido" ; + VP (Pass Sg Fem) => sal_ + "ida" ; + VP (Pass Pl Masc) => sal_ + "idos" ; + VP (Pass Pl Fem) => sal_ + "idas" + } + } ; +oper satisfacer_74 : Str -> Verbum = \satisfacer -> + let satisf_ = Predef.tk 4 satisfacer in + {s = table { + VI Infn => satisf_ + "acer" ; + VI Ger => satisf_ + "aciendo" ; + VI Part => satisf_ + "echo" ; + VP (Pres Ind Sg P1) => satisf_ + "ago" ; + VP (Pres Ind Sg P2) => satisf_ + "aces" ; + VP (Pres Ind Sg P3) => satisf_ + "ace" ; + VP (Pres Ind Pl P1) => satisf_ + "acemos" ; + VP (Pres Ind Pl P2) => satisf_ + "acéis" ; + VP (Pres Ind Pl P3) => satisf_ + "acen" ; + VP (Pres Subj Sg P1) => satisf_ + "aga" ; + VP (Pres Subj Sg P2) => satisf_ + "agas" ; + VP (Pres Subj Sg P3) => satisf_ + "aga" ; + VP (Pres Subj Pl P1) => satisf_ + "agamos" ; + VP (Pres Subj Pl P2) => satisf_ + "agáis" ; + VP (Pres Subj Pl P3) => satisf_ + "agan" ; + VP (Impf Ind Sg P1) => satisf_ + "acía" ; + VP (Impf Ind Sg P2) => satisf_ + "acías" ; + VP (Impf Ind Sg P3) => satisf_ + "acía" ; + VP (Impf Ind Pl P1) => satisf_ + "acíamos" ; + VP (Impf Ind Pl P2) => satisf_ + "acíais" ; + VP (Impf Ind Pl P3) => satisf_ + "acían" ; + VP (Impf Subj Sg P1) => variants {satisf_ + "iciera" ; satisf_ + "iciese"} ; + VP (Impf Subj Sg P2) => variants {satisf_ + "icieras" ; satisf_ + "icieses"} ; + VP (Impf Subj Sg P3) => variants {satisf_ + "iciera" ; satisf_ + "iciese"} ; + VP (Impf Subj Pl P1) => variants {satisf_ + "iciéramos" ; satisf_ + "iciésemos"} ; + VP (Impf Subj Pl P2) => variants {satisf_ + "icierais" ; satisf_ + "icieseis"} ; + VP (Impf Subj Pl P3) => variants {satisf_ + "icieran" ; satisf_ + "iciesen"} ; + VP (Pret Sg P1) => satisf_ + "ice" ; + VP (Pret Sg P2) => satisf_ + "iciste" ; + VP (Pret Sg P3) => satisf_ + "izo" ; + VP (Pret Pl P1) => satisf_ + "icimos" ; + VP (Pret Pl P2) => satisf_ + "icisteis" ; + VP (Pret Pl P3) => satisf_ + "icieron" ; + VP (Fut Ind Sg P1) => satisf_ + "aré" ; + VP (Fut Ind Sg P2) => satisf_ + "arás" ; + VP (Fut Ind Sg P3) => satisf_ + "ará" ; + VP (Fut Ind Pl P1) => satisf_ + "aremos" ; + VP (Fut Ind Pl P2) => satisf_ + "aréis" ; + VP (Fut Ind Pl P3) => satisf_ + "arán" ; + VP (Fut Subj Sg P1) => satisf_ + "iciere" ; + VP (Fut Subj Sg P2) => satisf_ + "icieres" ; + VP (Fut Subj Sg P3) => satisf_ + "iciere" ; + VP (Fut Subj Pl P1) => satisf_ + "iciéremos" ; + VP (Fut Subj Pl P2) => satisf_ + "iciereis" ; + VP (Fut Subj Pl P3) => satisf_ + "icieren" ; + VP (Cond Sg P1) => satisf_ + "aría" ; + VP (Cond Sg P2) => satisf_ + "arías" ; + VP (Cond Sg P3) => satisf_ + "aría" ; + VP (Cond Pl P1) => satisf_ + "aríamos" ; + VP (Cond Pl P2) => satisf_ + "aríais" ; + VP (Cond Pl P3) => satisf_ + "arían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => variants {satisf_ + "az" ; satisf_ + "ace"} ; + VP (Imp Sg P3) => satisf_ + "aga" ; + VP (Imp Pl P1) => satisf_ + "agamos" ; + VP (Imp Pl P2) => satisf_ + "aced" ; + VP (Imp Pl P3) => satisf_ + "agan" ; + VP (Pass Sg Masc) => satisf_ + "echo" ; + VP (Pass Sg Fem) => satisf_ + "echa" ; + VP (Pass Pl Masc) => satisf_ + "echos" ; + VP (Pass Pl Fem) => satisf_ + "echas" + } + } ; +oper sentir_76 : Str -> Verbum = \sentir -> + let s_ = Predef.tk 5 sentir in + {s = table { + VI Infn => s_ + "entir" ; + VI Ger => s_ + "intiendo" ; + VI Part => s_ + "entido" ; + VP (Pres Ind Sg P1) => s_ + "iento" ; + VP (Pres Ind Sg P2) => s_ + "ientes" ; + VP (Pres Ind Sg P3) => s_ + "iente" ; + VP (Pres Ind Pl P1) => s_ + "entimos" ; + VP (Pres Ind Pl P2) => s_ + "entís" ; + VP (Pres Ind Pl P3) => s_ + "ienten" ; + VP (Pres Subj Sg P1) => s_ + "ienta" ; + VP (Pres Subj Sg P2) => s_ + "ientas" ; + VP (Pres Subj Sg P3) => s_ + "ienta" ; + VP (Pres Subj Pl P1) => s_ + "intamos" ; + VP (Pres Subj Pl P2) => s_ + "intáis" ; + VP (Pres Subj Pl P3) => s_ + "ientan" ; + VP (Impf Ind Sg P1) => s_ + "entía" ; + VP (Impf Ind Sg P2) => s_ + "entías" ; + VP (Impf Ind Sg P3) => s_ + "entía" ; + VP (Impf Ind Pl P1) => s_ + "entíamos" ; + VP (Impf Ind Pl P2) => s_ + "entíais" ; + VP (Impf Ind Pl P3) => s_ + "entían" ; + VP (Impf Subj Sg P1) => variants {s_ + "intiera" ; s_ + "intiese"} ; + VP (Impf Subj Sg P2) => variants {s_ + "intieras" ; s_ + "intieses"} ; + VP (Impf Subj Sg P3) => variants {s_ + "intiera" ; s_ + "intiese"} ; + VP (Impf Subj Pl P1) => variants {s_ + "intiéramos" ; s_ + "intiésemos"} ; + VP (Impf Subj Pl P2) => variants {s_ + "intierais" ; s_ + "intieseis"} ; + VP (Impf Subj Pl P3) => variants {s_ + "intieran" ; s_ + "intiesen"} ; + VP (Pret Sg P1) => s_ + "entí" ; + VP (Pret Sg P2) => s_ + "entiste" ; + VP (Pret Sg P3) => s_ + "intió" ; + VP (Pret Pl P1) => s_ + "entimos" ; + VP (Pret Pl P2) => s_ + "entisteis" ; + VP (Pret Pl P3) => s_ + "intieron" ; + VP (Fut Ind Sg P1) => s_ + "entiré" ; + VP (Fut Ind Sg P2) => s_ + "entirás" ; + VP (Fut Ind Sg P3) => s_ + "entirá" ; + VP (Fut Ind Pl P1) => s_ + "entiremos" ; + VP (Fut Ind Pl P2) => s_ + "entiréis" ; + VP (Fut Ind Pl P3) => s_ + "entirán" ; + VP (Fut Subj Sg P1) => s_ + "intiere" ; + VP (Fut Subj Sg P2) => s_ + "intieres" ; + VP (Fut Subj Sg P3) => s_ + "intiere" ; + VP (Fut Subj Pl P1) => s_ + "intiéremos" ; + VP (Fut Subj Pl P2) => s_ + "intiereis" ; + VP (Fut Subj Pl P3) => s_ + "intieren" ; + VP (Cond Sg P1) => s_ + "entiría" ; + VP (Cond Sg P2) => s_ + "entirías" ; + VP (Cond Sg P3) => s_ + "entiría" ; + VP (Cond Pl P1) => s_ + "entiríamos" ; + VP (Cond Pl P2) => s_ + "entiríais" ; + VP (Cond Pl P3) => s_ + "entirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => s_ + "iente" ; + VP (Imp Sg P3) => s_ + "ienta" ; + VP (Imp Pl P1) => s_ + "intamos" ; + VP (Imp Pl P2) => s_ + "entid" ; + VP (Imp Pl P3) => s_ + "ientan" ; + VP (Pass Sg Masc) => s_ + "entido" ; + VP (Pass Sg Fem) => s_ + "entida" ; + VP (Pass Pl Masc) => s_ + "entidos" ; + VP (Pass Pl Fem) => s_ + "entidas" + } + } ; +oper soler_77 : Str -> Verbum = \soler -> + let s_ = Predef.tk 4 soler in + {s = table { + VI Infn => s_ + "oler" ; + VI Ger => variants {} ; + VI Part => variants {} ; + VP (Pres Ind Sg P1) => s_ + "uelo" ; + VP (Pres Ind Sg P2) => s_ + "ueles" ; + VP (Pres Ind Sg P3) => s_ + "uele" ; + VP (Pres Ind Pl P1) => s_ + "olemos" ; + VP (Pres Ind Pl P2) => s_ + "oléis" ; + VP (Pres Ind Pl P3) => s_ + "uelen" ; + VP (Pres Subj Sg P1) => s_ + "uela" ; + VP (Pres Subj Sg P2) => s_ + "uelas" ; + VP (Pres Subj Sg P3) => s_ + "uela" ; + VP (Pres Subj Pl P1) => s_ + "olamos" ; + VP (Pres Subj Pl P2) => s_ + "oláis" ; + VP (Pres Subj Pl P3) => s_ + "uelan" ; + VP (Impf Ind Sg P1) => s_ + "olía" ; + VP (Impf Ind Sg P2) => s_ + "olías" ; + VP (Impf Ind Sg P3) => s_ + "olía" ; + VP (Impf Ind Pl P1) => s_ + "olíamos" ; + VP (Impf Ind Pl P2) => s_ + "olíais" ; + VP (Impf Ind Pl P3) => s_ + "olían" ; + VP (Impf Subj Sg P1) => variants {s_ + "oliera" ; s_ + "oliese"} ; + VP (Impf Subj Sg P2) => variants {s_ + "olieras" ; s_ + "olieses"} ; + VP (Impf Subj Sg P3) => variants {s_ + "oliera" ; s_ + "oliese"} ; + VP (Impf Subj Pl P1) => variants {s_ + "oliéramos" ; s_ + "oliésemos"} ; + VP (Impf Subj Pl P2) => variants {s_ + "olierais" ; s_ + "olieseis"} ; + VP (Impf Subj Pl P3) => variants {s_ + "olieran" ; s_ + "oliesen"} ; + VP (Pret Sg P1) => s_ + "olí" ; + VP (Pret Sg P2) => s_ + "oliste" ; + VP (Pret Sg P3) => s_ + "olió" ; + VP (Pret Pl P1) => s_ + "olimos" ; + VP (Pret Pl P2) => s_ + "olisteis" ; + VP (Pret Pl P3) => s_ + "olieron" ; + VP (Fut Ind Sg P1) => variants {} ; + VP (Fut Ind Sg P2) => variants {} ; + VP (Fut Ind Sg P3) => variants {} ; + VP (Fut Ind Pl P1) => variants {} ; + VP (Fut Ind Pl P2) => variants {} ; + VP (Fut Ind Pl P3) => variants {} ; + VP (Fut Subj Sg P1) => variants {} ; + VP (Fut Subj Sg P2) => variants {} ; + VP (Fut Subj Sg P3) => variants {} ; + VP (Fut Subj Pl P1) => variants {} ; + VP (Fut Subj Pl P2) => variants {} ; + VP (Fut Subj Pl P3) => variants {} ; + VP (Cond Sg P1) => variants {} ; + VP (Cond Sg P2) => variants {} ; + VP (Cond Sg P3) => variants {} ; + VP (Cond Pl P1) => variants {} ; + VP (Cond Pl P2) => variants {} ; + VP (Cond Pl P3) => variants {} ; + 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) => variants {} ; + VP (Pass Sg Fem) => variants {} ; + VP (Pass Pl Masc) => variants {} ; + VP (Pass Pl Fem) => variants {} + } + } ; +oper tañer_78 : Str -> Verbum = \tañer -> + let tañ_ = Predef.tk 2 tañer in + {s = table { + VI Infn => tañ_ + "er" ; + VI Ger => tañ_ + "endo" ; + VI Part => tañ_ + "ido" ; + VP (Pres Ind Sg P1) => tañ_ + "o" ; + VP (Pres Ind Sg P2) => tañ_ + "es" ; + VP (Pres Ind Sg P3) => tañ_ + "e" ; + VP (Pres Ind Pl P1) => tañ_ + "emos" ; + VP (Pres Ind Pl P2) => tañ_ + "éis" ; + VP (Pres Ind Pl P3) => tañ_ + "en" ; + VP (Pres Subj Sg P1) => tañ_ + "a" ; + VP (Pres Subj Sg P2) => tañ_ + "as" ; + VP (Pres Subj Sg P3) => tañ_ + "a" ; + VP (Pres Subj Pl P1) => tañ_ + "amos" ; + VP (Pres Subj Pl P2) => tañ_ + "áis" ; + VP (Pres Subj Pl P3) => tañ_ + "an" ; + VP (Impf Ind Sg P1) => tañ_ + "ía" ; + VP (Impf Ind Sg P2) => tañ_ + "ías" ; + VP (Impf Ind Sg P3) => tañ_ + "ía" ; + VP (Impf Ind Pl P1) => tañ_ + "íamos" ; + VP (Impf Ind Pl P2) => tañ_ + "íais" ; + VP (Impf Ind Pl P3) => tañ_ + "ían" ; + VP (Impf Subj Sg P1) => variants {tañ_ + "era" ; tañ_ + "ese"} ; + VP (Impf Subj Sg P2) => variants {tañ_ + "eras" ; tañ_ + "eses"} ; + VP (Impf Subj Sg P3) => variants {tañ_ + "era" ; tañ_ + "ese"} ; + VP (Impf Subj Pl P1) => variants {tañ_ + "éramos" ; tañ_ + "ésemos"} ; + VP (Impf Subj Pl P2) => variants {tañ_ + "erais" ; tañ_ + "eseis"} ; + VP (Impf Subj Pl P3) => variants {tañ_ + "eran" ; tañ_ + "esen"} ; + VP (Pret Sg P1) => tañ_ + "í" ; + VP (Pret Sg P2) => tañ_ + "iste" ; + VP (Pret Sg P3) => tañ_ + "ó" ; + VP (Pret Pl P1) => tañ_ + "imos" ; + VP (Pret Pl P2) => tañ_ + "isteis" ; + VP (Pret Pl P3) => tañ_ + "eron" ; + VP (Fut Ind Sg P1) => tañ_ + "eré" ; + VP (Fut Ind Sg P2) => tañ_ + "erás" ; + VP (Fut Ind Sg P3) => tañ_ + "erá" ; + VP (Fut Ind Pl P1) => tañ_ + "eremos" ; + VP (Fut Ind Pl P2) => tañ_ + "eréis" ; + VP (Fut Ind Pl P3) => tañ_ + "erán" ; + VP (Fut Subj Sg P1) => tañ_ + "ere" ; + VP (Fut Subj Sg P2) => tañ_ + "eres" ; + VP (Fut Subj Sg P3) => tañ_ + "ere" ; + VP (Fut Subj Pl P1) => tañ_ + "éremos" ; + VP (Fut Subj Pl P2) => tañ_ + "ereis" ; + VP (Fut Subj Pl P3) => tañ_ + "eren" ; + VP (Cond Sg P1) => tañ_ + "ería" ; + VP (Cond Sg P2) => tañ_ + "erías" ; + VP (Cond Sg P3) => tañ_ + "ería" ; + VP (Cond Pl P1) => tañ_ + "eríamos" ; + VP (Cond Pl P2) => tañ_ + "eríais" ; + VP (Cond Pl P3) => tañ_ + "erían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => tañ_ + "e" ; + VP (Imp Sg P3) => tañ_ + "a" ; + VP (Imp Pl P1) => tañ_ + "amos" ; + VP (Imp Pl P2) => tañ_ + "ed" ; + VP (Imp Pl P3) => tañ_ + "an" ; + VP (Pass Sg Masc) => tañ_ + "ido" ; + VP (Pass Sg Fem) => tañ_ + "ida" ; + VP (Pass Pl Masc) => tañ_ + "idos" ; + VP (Pass Pl Fem) => tañ_ + "idas" + } + } ; +oper traer_79 : Str -> Verbum = \traer -> + let tra_ = Predef.tk 2 traer in + {s = table { + VI Infn => tra_ + "er" ; + VI Ger => tra_ + "yendo" ; + VI Part => tra_ + "ído" ; + VP (Pres Ind Sg P1) => tra_ + "o" ; + VP (Pres Ind Sg P2) => tra_ + "es" ; + VP (Pres Ind Sg P3) => tra_ + "e" ; + VP (Pres Ind Pl P1) => tra_ + "emos" ; + VP (Pres Ind Pl P2) => tra_ + "éis" ; + VP (Pres Ind Pl P3) => tra_ + "en" ; + VP (Pres Subj Sg P1) => tra_ + "a" ; + VP (Pres Subj Sg P2) => tra_ + "as" ; + VP (Pres Subj Sg P3) => tra_ + "a" ; + VP (Pres Subj Pl P1) => tra_ + "amos" ; + VP (Pres Subj Pl P2) => tra_ + "áis" ; + VP (Pres Subj Pl P3) => tra_ + "an" ; + VP (Impf Ind Sg P1) => tra_ + "ía" ; + VP (Impf Ind Sg P2) => tra_ + "ías" ; + VP (Impf Ind Sg P3) => tra_ + "ía" ; + VP (Impf Ind Pl P1) => tra_ + "íamos" ; + VP (Impf Ind Pl P2) => tra_ + "íais" ; + VP (Impf Ind Pl P3) => tra_ + "ían" ; + VP (Impf Subj Sg P1) => variants {tra_ + "yera" ; tra_ + "yese"} ; + VP (Impf Subj Sg P2) => variants {tra_ + "yeras" ; tra_ + "yeses"} ; + VP (Impf Subj Sg P3) => variants {tra_ + "yera" ; tra_ + "yese"} ; + VP (Impf Subj Pl P1) => variants {tra_ + "yéramos" ; tra_ + "yésemos"} ; + VP (Impf Subj Pl P2) => variants {tra_ + "yerais" ; tra_ + "yeseis"} ; + VP (Impf Subj Pl P3) => variants {tra_ + "yeran" ; tra_ + "yesen"} ; + VP (Pret Sg P1) => tra_ + "í" ; + VP (Pret Sg P2) => tra_ + "íste" ; + VP (Pret Sg P3) => tra_ + "yó" ; + VP (Pret Pl P1) => tra_ + "ímos" ; + VP (Pret Pl P2) => tra_ + "ísteis" ; + VP (Pret Pl P3) => tra_ + "yeron" ; + VP (Fut Ind Sg P1) => tra_ + "eré" ; + VP (Fut Ind Sg P2) => tra_ + "erás" ; + VP (Fut Ind Sg P3) => tra_ + "erá" ; + VP (Fut Ind Pl P1) => tra_ + "eremos" ; + VP (Fut Ind Pl P2) => tra_ + "eréis" ; + VP (Fut Ind Pl P3) => tra_ + "erán" ; + VP (Fut Subj Sg P1) => tra_ + "yere" ; + VP (Fut Subj Sg P2) => tra_ + "yeres" ; + VP (Fut Subj Sg P3) => tra_ + "yere" ; + VP (Fut Subj Pl P1) => tra_ + "yéremos" ; + VP (Fut Subj Pl P2) => tra_ + "yereis" ; + VP (Fut Subj Pl P3) => tra_ + "yeren" ; + VP (Cond Sg P1) => tra_ + "ería" ; + VP (Cond Sg P2) => tra_ + "erías" ; + VP (Cond Sg P3) => tra_ + "ería" ; + VP (Cond Pl P1) => tra_ + "eríamos" ; + VP (Cond Pl P2) => tra_ + "eríais" ; + VP (Cond Pl P3) => tra_ + "erían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => tra_ + "e" ; + VP (Imp Sg P3) => tra_ + "a" ; + VP (Imp Pl P1) => tra_ + "amos" ; + VP (Imp Pl P2) => tra_ + "ed" ; + VP (Imp Pl P3) => tra_ + "an" ; + VP (Pass Sg Masc) => tra_ + "ído" ; + VP (Pass Sg Fem) => tra_ + "ída" ; + VP (Pass Pl Masc) => tra_ + "ídos" ; + VP (Pass Pl Fem) => tra_ + "ídas" + } + } ; +oper trocar_80 : Str -> Verbum = \trocar -> + let tr_ = Predef.tk 4 trocar in + {s = table { + VI Infn => tr_ + "ocar" ; + VI Ger => tr_ + "ocando" ; + VI Part => tr_ + "ocado" ; + VP (Pres Ind Sg P1) => tr_ + "ueco" ; + VP (Pres Ind Sg P2) => tr_ + "uecas" ; + VP (Pres Ind Sg P3) => tr_ + "ueca" ; + VP (Pres Ind Pl P1) => tr_ + "ocamos" ; + VP (Pres Ind Pl P2) => tr_ + "ocáis" ; + VP (Pres Ind Pl P3) => tr_ + "uecan" ; + VP (Pres Subj Sg P1) => tr_ + "ueque" ; + VP (Pres Subj Sg P2) => tr_ + "ueques" ; + VP (Pres Subj Sg P3) => tr_ + "ueque" ; + VP (Pres Subj Pl P1) => tr_ + "oquemos" ; + VP (Pres Subj Pl P2) => tr_ + "oquéis" ; + VP (Pres Subj Pl P3) => tr_ + "uequen" ; + VP (Impf Ind Sg P1) => tr_ + "ocaba" ; + VP (Impf Ind Sg P2) => tr_ + "ocabas" ; + VP (Impf Ind Sg P3) => tr_ + "ocaba" ; + VP (Impf Ind Pl P1) => tr_ + "ocábamos" ; + VP (Impf Ind Pl P2) => tr_ + "ocabais" ; + VP (Impf Ind Pl P3) => tr_ + "ocaban" ; + VP (Impf Subj Sg P1) => variants {tr_ + "ocara" ; tr_ + "ocase"} ; + VP (Impf Subj Sg P2) => variants {tr_ + "ocaras" ; tr_ + "ocases"} ; + VP (Impf Subj Sg P3) => variants {tr_ + "ocara" ; tr_ + "ocase"} ; + VP (Impf Subj Pl P1) => variants {tr_ + "ocáramos" ; tr_ + "ocásemos"} ; + VP (Impf Subj Pl P2) => variants {tr_ + "ocarais" ; tr_ + "ocaseis"} ; + VP (Impf Subj Pl P3) => variants {tr_ + "ocaran" ; tr_ + "ocasen"} ; + VP (Pret Sg P1) => tr_ + "oqué" ; + VP (Pret Sg P2) => tr_ + "ocaste" ; + VP (Pret Sg P3) => tr_ + "ocó" ; + VP (Pret Pl P1) => tr_ + "ocamos" ; + VP (Pret Pl P2) => tr_ + "ocasteis" ; + VP (Pret Pl P3) => tr_ + "ocaron" ; + VP (Fut Ind Sg P1) => tr_ + "ocaré" ; + VP (Fut Ind Sg P2) => tr_ + "ocarás" ; + VP (Fut Ind Sg P3) => tr_ + "ocará" ; + VP (Fut Ind Pl P1) => tr_ + "ocaremos" ; + VP (Fut Ind Pl P2) => tr_ + "ocaréis" ; + VP (Fut Ind Pl P3) => tr_ + "ocarán" ; + VP (Fut Subj Sg P1) => tr_ + "ocare" ; + VP (Fut Subj Sg P2) => tr_ + "ocares" ; + VP (Fut Subj Sg P3) => tr_ + "ocare" ; + VP (Fut Subj Pl P1) => tr_ + "ocáremos" ; + VP (Fut Subj Pl P2) => tr_ + "ocareis" ; + VP (Fut Subj Pl P3) => tr_ + "ocaren" ; + VP (Cond Sg P1) => tr_ + "ocaría" ; + VP (Cond Sg P2) => tr_ + "ocarías" ; + VP (Cond Sg P3) => tr_ + "ocaría" ; + VP (Cond Pl P1) => tr_ + "ocaríamos" ; + VP (Cond Pl P2) => tr_ + "ocaríais" ; + VP (Cond Pl P3) => tr_ + "ocarían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => tr_ + "ueca" ; + VP (Imp Sg P3) => tr_ + "ueque" ; + VP (Imp Pl P1) => tr_ + "oquemos" ; + VP (Imp Pl P2) => tr_ + "ocad" ; + VP (Imp Pl P3) => tr_ + "uequen" ; + VP (Pass Sg Masc) => tr_ + "ocado" ; + VP (Pass Sg Fem) => tr_ + "ocada" ; + VP (Pass Pl Masc) => tr_ + "ocados" ; + VP (Pass Pl Fem) => tr_ + "ocadas" + } + } ; +oper valer_81 : Str -> Verbum = \valer -> + let val_ = Predef.tk 2 valer in + {s = table { + VI Infn => val_ + "er" ; + VI Ger => val_ + "iendo" ; + VI Part => val_ + "ido" ; + VP (Pres Ind Sg P1) => val_ + "go" ; + VP (Pres Ind Sg P2) => val_ + "es" ; + VP (Pres Ind Sg P3) => val_ + "e" ; + VP (Pres Ind Pl P1) => val_ + "emos" ; + VP (Pres Ind Pl P2) => val_ + "éis" ; + VP (Pres Ind Pl P3) => val_ + "en" ; + VP (Pres Subj Sg P1) => val_ + "ga" ; + VP (Pres Subj Sg P2) => val_ + "gas" ; + VP (Pres Subj Sg P3) => val_ + "ga" ; + VP (Pres Subj Pl P1) => val_ + "gamos" ; + VP (Pres Subj Pl P2) => val_ + "gáis" ; + VP (Pres Subj Pl P3) => val_ + "gan" ; + VP (Impf Ind Sg P1) => val_ + "ía" ; + VP (Impf Ind Sg P2) => val_ + "ías" ; + VP (Impf Ind Sg P3) => val_ + "ía" ; + VP (Impf Ind Pl P1) => val_ + "íamos" ; + VP (Impf Ind Pl P2) => val_ + "íais" ; + VP (Impf Ind Pl P3) => val_ + "ían" ; + VP (Impf Subj Sg P1) => variants {val_ + "iera" ; val_ + "iese"} ; + VP (Impf Subj Sg P2) => variants {val_ + "ieras" ; val_ + "ieses"} ; + VP (Impf Subj Sg P3) => variants {val_ + "iera" ; val_ + "iese"} ; + VP (Impf Subj Pl P1) => variants {val_ + "iéramos" ; val_ + "iésemos"} ; + VP (Impf Subj Pl P2) => variants {val_ + "ierais" ; val_ + "ieseis"} ; + VP (Impf Subj Pl P3) => variants {val_ + "ieran" ; val_ + "iesen"} ; + VP (Pret Sg P1) => val_ + "í" ; + VP (Pret Sg P2) => val_ + "iste" ; + VP (Pret Sg P3) => val_ + "ió" ; + VP (Pret Pl P1) => val_ + "imos" ; + VP (Pret Pl P2) => val_ + "isteis" ; + VP (Pret Pl P3) => val_ + "ieron" ; + VP (Fut Ind Sg P1) => val_ + "dré" ; + VP (Fut Ind Sg P2) => val_ + "drás" ; + VP (Fut Ind Sg P3) => val_ + "drá" ; + VP (Fut Ind Pl P1) => val_ + "dremos" ; + VP (Fut Ind Pl P2) => val_ + "dréis" ; + VP (Fut Ind Pl P3) => val_ + "drán" ; + VP (Fut Subj Sg P1) => val_ + "iere" ; + VP (Fut Subj Sg P2) => val_ + "ieres" ; + VP (Fut Subj Sg P3) => val_ + "iere" ; + VP (Fut Subj Pl P1) => val_ + "iéremos" ; + VP (Fut Subj Pl P2) => val_ + "iereis" ; + VP (Fut Subj Pl P3) => val_ + "ieren" ; + VP (Cond Sg P1) => val_ + "dría" ; + VP (Cond Sg P2) => val_ + "drías" ; + VP (Cond Sg P3) => val_ + "dría" ; + VP (Cond Pl P1) => val_ + "dríamos" ; + VP (Cond Pl P2) => val_ + "dríais" ; + VP (Cond Pl P3) => val_ + "drían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => val_ + "e" ; + VP (Imp Sg P3) => val_ + "ga" ; + VP (Imp Pl P1) => val_ + "gamos" ; + VP (Imp Pl P2) => val_ + "ed" ; + VP (Imp Pl P3) => val_ + "gan" ; + VP (Pass Sg Masc) => val_ + "ido" ; + VP (Pass Sg Fem) => val_ + "ida" ; + VP (Pass Pl Masc) => val_ + "idos" ; + VP (Pass Pl Fem) => val_ + "idas" + } + } ; +oper venir_82 : Str -> Verbum = \venir -> + let v_ = Predef.tk 4 venir in + {s = table { + VI Infn => v_ + "enir" ; + VI Ger => v_ + "iniendo" ; + VI Part => v_ + "enido" ; + VP (Pres Ind Sg P1) => v_ + "engo" ; + VP (Pres Ind Sg P2) => v_ + "ienes" ; + VP (Pres Ind Sg P3) => v_ + "iene" ; + VP (Pres Ind Pl P1) => v_ + "enimos" ; + VP (Pres Ind Pl P2) => v_ + "enís" ; + VP (Pres Ind Pl P3) => v_ + "ienen" ; + VP (Pres Subj Sg P1) => v_ + "enga" ; + VP (Pres Subj Sg P2) => v_ + "engas" ; + VP (Pres Subj Sg P3) => v_ + "enga" ; + VP (Pres Subj Pl P1) => v_ + "engamos" ; + VP (Pres Subj Pl P2) => v_ + "engáis" ; + VP (Pres Subj Pl P3) => v_ + "engan" ; + VP (Impf Ind Sg P1) => v_ + "enía" ; + VP (Impf Ind Sg P2) => v_ + "enías" ; + VP (Impf Ind Sg P3) => v_ + "enía" ; + VP (Impf Ind Pl P1) => v_ + "eníamos" ; + VP (Impf Ind Pl P2) => v_ + "eníais" ; + VP (Impf Ind Pl P3) => v_ + "enían" ; + VP (Impf Subj Sg P1) => variants {v_ + "iniera" ; v_ + "iniese"} ; + VP (Impf Subj Sg P2) => variants {v_ + "inieras" ; v_ + "inieses"} ; + VP (Impf Subj Sg P3) => variants {v_ + "iniera" ; v_ + "iniese"} ; + VP (Impf Subj Pl P1) => variants {v_ + "iniéramos" ; v_ + "iniésemos"} ; + VP (Impf Subj Pl P2) => variants {v_ + "inierais" ; v_ + "inieseis"} ; + VP (Impf Subj Pl P3) => variants {v_ + "inieran" ; v_ + "iniesen"} ; + VP (Pret Sg P1) => v_ + "ine" ; + VP (Pret Sg P2) => v_ + "iniste" ; + VP (Pret Sg P3) => v_ + "ino" ; + VP (Pret Pl P1) => v_ + "inimos" ; + VP (Pret Pl P2) => v_ + "inisteis" ; + VP (Pret Pl P3) => v_ + "inieron" ; + VP (Fut Ind Sg P1) => v_ + "endré" ; + VP (Fut Ind Sg P2) => v_ + "endrás" ; + VP (Fut Ind Sg P3) => v_ + "endrá" ; + VP (Fut Ind Pl P1) => v_ + "endremos" ; + VP (Fut Ind Pl P2) => v_ + "endréis" ; + VP (Fut Ind Pl P3) => v_ + "endrán" ; + VP (Fut Subj Sg P1) => v_ + "iniere" ; + VP (Fut Subj Sg P2) => v_ + "inieres" ; + VP (Fut Subj Sg P3) => v_ + "iniere" ; + VP (Fut Subj Pl P1) => v_ + "iniéremos" ; + VP (Fut Subj Pl P2) => v_ + "iniereis" ; + VP (Fut Subj Pl P3) => v_ + "inieren" ; + VP (Cond Sg P1) => v_ + "endría" ; + VP (Cond Sg P2) => v_ + "endrías" ; + VP (Cond Sg P3) => v_ + "endría" ; + VP (Cond Pl P1) => v_ + "endríamos" ; + VP (Cond Pl P2) => v_ + "endríais" ; + VP (Cond Pl P3) => v_ + "endrían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => v_ + "en" ; + VP (Imp Sg P3) => v_ + "enga" ; + VP (Imp Pl P1) => v_ + "engamos" ; + VP (Imp Pl P2) => v_ + "enid" ; + VP (Imp Pl P3) => v_ + "engan" ; + VP (Pass Sg Masc) => v_ + "enido" ; + VP (Pass Sg Fem) => v_ + "enida" ; + VP (Pass Pl Masc) => v_ + "enidos" ; + VP (Pass Pl Fem) => v_ + "enidas" + } + } ; +oper ver_83 : Str -> Verbum = \ver -> + let v_ = Predef.tk 2 ver in + {s = table { + VI Infn => v_ + "er" ; + VI Ger => v_ + "iendo" ; + VI Part => v_ + "isto" ; + VP (Pres Ind Sg P1) => v_ + "eo" ; + VP (Pres Ind Sg P2) => v_ + "es" ; + VP (Pres Ind Sg P3) => v_ + "e" ; + VP (Pres Ind Pl P1) => v_ + "emos" ; + VP (Pres Ind Pl P2) => v_ + "eis" ; + VP (Pres Ind Pl P3) => v_ + "en" ; + VP (Pres Subj Sg P1) => v_ + "ea" ; + VP (Pres Subj Sg P2) => v_ + "eas" ; + VP (Pres Subj Sg P3) => v_ + "ea" ; + VP (Pres Subj Pl P1) => v_ + "eamos" ; + VP (Pres Subj Pl P2) => v_ + "eáis" ; + VP (Pres Subj Pl P3) => v_ + "ean" ; + VP (Impf Ind Sg P1) => v_ + "eía" ; + VP (Impf Ind Sg P2) => v_ + "eías" ; + VP (Impf Ind Sg P3) => v_ + "eía" ; + VP (Impf Ind Pl P1) => v_ + "eíamos" ; + VP (Impf Ind Pl P2) => v_ + "eíais" ; + VP (Impf Ind Pl P3) => v_ + "eían" ; + VP (Impf Subj Sg P1) => variants {v_ + "iera" ; v_ + "iese"} ; + VP (Impf Subj Sg P2) => variants {v_ + "ieras" ; v_ + "ieses"} ; + VP (Impf Subj Sg P3) => variants {v_ + "iera" ; v_ + "iese"} ; + VP (Impf Subj Pl P1) => variants {v_ + "iéramos" ; v_ + "iésemos"} ; + VP (Impf Subj Pl P2) => variants {v_ + "ierais" ; v_ + "ieseis"} ; + VP (Impf Subj Pl P3) => variants {v_ + "ieran" ; v_ + "iesen"} ; + VP (Pret Sg P1) => v_ + "i" ; + VP (Pret Sg P2) => v_ + "iste" ; + VP (Pret Sg P3) => v_ + "io" ; + VP (Pret Pl P1) => v_ + "imos" ; + VP (Pret Pl P2) => v_ + "isteis" ; + VP (Pret Pl P3) => v_ + "ieron" ; + VP (Fut Ind Sg P1) => v_ + "eré" ; + VP (Fut Ind Sg P2) => v_ + "erás" ; + VP (Fut Ind Sg P3) => v_ + "erá" ; + VP (Fut Ind Pl P1) => v_ + "eremos" ; + VP (Fut Ind Pl P2) => v_ + "eréis" ; + VP (Fut Ind Pl P3) => v_ + "erán" ; + VP (Fut Subj Sg P1) => v_ + "iere" ; + VP (Fut Subj Sg P2) => v_ + "ieres" ; + VP (Fut Subj Sg P3) => v_ + "iere" ; + VP (Fut Subj Pl P1) => v_ + "iéremos" ; + VP (Fut Subj Pl P2) => v_ + "iereis" ; + VP (Fut Subj Pl P3) => v_ + "ieren" ; + VP (Cond Sg P1) => v_ + "ería" ; + VP (Cond Sg P2) => v_ + "erías" ; + VP (Cond Sg P3) => v_ + "ería" ; + VP (Cond Pl P1) => v_ + "eríamos" ; + VP (Cond Pl P2) => v_ + "eríais" ; + VP (Cond Pl P3) => v_ + "erían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => v_ + "e" ; + VP (Imp Sg P3) => v_ + "ea" ; + VP (Imp Pl P1) => v_ + "eamos" ; + VP (Imp Pl P2) => v_ + "ed" ; + VP (Imp Pl P3) => v_ + "ean" ; + VP (Pass Sg Masc) => v_ + "isto" ; + VP (Pass Sg Fem) => v_ + "ista" ; + VP (Pass Pl Masc) => v_ + "istos" ; + VP (Pass Pl Fem) => v_ + "istas" + } + } ; +oper volver_84 : Str -> Verbum = \volver -> + let v_ = Predef.tk 5 volver in + {s = table { + VI Infn => v_ + "olver" ; + VI Ger => v_ + "olviendo" ; + VI Part => v_ + "uelto" ; + VP (Pres Ind Sg P1) => v_ + "uelvo" ; + VP (Pres Ind Sg P2) => v_ + "uelves" ; + VP (Pres Ind Sg P3) => v_ + "uelve" ; + VP (Pres Ind Pl P1) => v_ + "olvemos" ; + VP (Pres Ind Pl P2) => v_ + "olvéis" ; + VP (Pres Ind Pl P3) => v_ + "uelven" ; + VP (Pres Subj Sg P1) => v_ + "uelva" ; + VP (Pres Subj Sg P2) => v_ + "uelvas" ; + VP (Pres Subj Sg P3) => v_ + "uelva" ; + VP (Pres Subj Pl P1) => v_ + "olvamos" ; + VP (Pres Subj Pl P2) => v_ + "olváis" ; + VP (Pres Subj Pl P3) => v_ + "uelvan" ; + VP (Impf Ind Sg P1) => v_ + "olvía" ; + VP (Impf Ind Sg P2) => v_ + "olvías" ; + VP (Impf Ind Sg P3) => v_ + "olvía" ; + VP (Impf Ind Pl P1) => v_ + "olvíamos" ; + VP (Impf Ind Pl P2) => v_ + "olvíais" ; + VP (Impf Ind Pl P3) => v_ + "olvían" ; + VP (Impf Subj Sg P1) => variants {v_ + "olviera" ; v_ + "olviese"} ; + VP (Impf Subj Sg P2) => variants {v_ + "olvieras" ; v_ + "olvieses"} ; + VP (Impf Subj Sg P3) => variants {v_ + "olviera" ; v_ + "olviese"} ; + VP (Impf Subj Pl P1) => variants {v_ + "olviéramos" ; v_ + "olviésemos"} ; + VP (Impf Subj Pl P2) => variants {v_ + "olvierais" ; v_ + "olvieseis"} ; + VP (Impf Subj Pl P3) => variants {v_ + "olvieran" ; v_ + "olviesen"} ; + VP (Pret Sg P1) => v_ + "olví" ; + VP (Pret Sg P2) => v_ + "olviste" ; + VP (Pret Sg P3) => v_ + "olvió" ; + VP (Pret Pl P1) => v_ + "olvimos" ; + VP (Pret Pl P2) => v_ + "olvisteis" ; + VP (Pret Pl P3) => v_ + "olvieron" ; + VP (Fut Ind Sg P1) => v_ + "olveré" ; + VP (Fut Ind Sg P2) => v_ + "olverás" ; + VP (Fut Ind Sg P3) => v_ + "olverá" ; + VP (Fut Ind Pl P1) => v_ + "olveremos" ; + VP (Fut Ind Pl P2) => v_ + "olveréis" ; + VP (Fut Ind Pl P3) => v_ + "olverán" ; + VP (Fut Subj Sg P1) => v_ + "olviere" ; + VP (Fut Subj Sg P2) => v_ + "olvieres" ; + VP (Fut Subj Sg P3) => v_ + "olviere" ; + VP (Fut Subj Pl P1) => v_ + "olviéremos" ; + VP (Fut Subj Pl P2) => v_ + "olviereis" ; + VP (Fut Subj Pl P3) => v_ + "olvieren" ; + VP (Cond Sg P1) => v_ + "olvería" ; + VP (Cond Sg P2) => v_ + "olverías" ; + VP (Cond Sg P3) => v_ + "olvería" ; + VP (Cond Pl P1) => v_ + "olveríamos" ; + VP (Cond Pl P2) => v_ + "olveríais" ; + VP (Cond Pl P3) => v_ + "olverían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => v_ + "uelve" ; + VP (Imp Sg P3) => v_ + "uelva" ; + VP (Imp Pl P1) => v_ + "olvamos" ; + VP (Imp Pl P2) => v_ + "olved" ; + VP (Imp Pl P3) => v_ + "uelvan" ; + VP (Pass Sg Masc) => v_ + "uelto" ; + VP (Pass Sg Fem) => v_ + "uelta" ; + VP (Pass Pl Masc) => v_ + "ueltos" ; + VP (Pass Pl Fem) => v_ + "ueltas" + } + } ; +oper yacer_85 : Str -> Verbum = \yacer -> + let ya_ = Predef.tk 3 yacer in + {s = table { + VI Infn => ya_ + "cer" ; + VI Ger => ya_ + "ciendo" ; + VI Part => ya_ + "cido" ; + VP (Pres Ind Sg P1) => ya_ + "zgo" ; + VP (Pres Ind Sg P2) => ya_ + "ces" ; + VP (Pres Ind Sg P3) => ya_ + "ce" ; + VP (Pres Ind Pl P1) => ya_ + "cemos" ; + VP (Pres Ind Pl P2) => ya_ + "céis" ; + VP (Pres Ind Pl P3) => ya_ + "cen" ; + VP (Pres Subj Sg P1) => ya_ + "zga" ; + VP (Pres Subj Sg P2) => ya_ + "zgas" ; + VP (Pres Subj Sg P3) => ya_ + "zga" ; + VP (Pres Subj Pl P1) => ya_ + "zgamos" ; + VP (Pres Subj Pl P2) => ya_ + "zgáis" ; + VP (Pres Subj Pl P3) => ya_ + "zgan" ; + VP (Impf Ind Sg P1) => ya_ + "cía" ; + VP (Impf Ind Sg P2) => ya_ + "cías" ; + VP (Impf Ind Sg P3) => ya_ + "cía" ; + VP (Impf Ind Pl P1) => ya_ + "cíamos" ; + VP (Impf Ind Pl P2) => ya_ + "cíais" ; + VP (Impf Ind Pl P3) => ya_ + "cían" ; + VP (Impf Subj Sg P1) => variants {ya_ + "ciera" ; ya_ + "ciese"} ; + VP (Impf Subj Sg P2) => variants {ya_ + "cieras" ; ya_ + "cieses"} ; + VP (Impf Subj Sg P3) => variants {ya_ + "ciera" ; ya_ + "ciese"} ; + VP (Impf Subj Pl P1) => variants {ya_ + "ciéramos" ; ya_ + "ciésemos"} ; + VP (Impf Subj Pl P2) => variants {ya_ + "cierais" ; ya_ + "cieseis"} ; + VP (Impf Subj Pl P3) => variants {ya_ + "cieran" ; ya_ + "ciesen"} ; + VP (Pret Sg P1) => ya_ + "cí" ; + VP (Pret Sg P2) => ya_ + "ciste" ; + VP (Pret Sg P3) => ya_ + "ció" ; + VP (Pret Pl P1) => ya_ + "cimos" ; + VP (Pret Pl P2) => ya_ + "cisteis" ; + VP (Pret Pl P3) => ya_ + "cieron" ; + VP (Fut Ind Sg P1) => ya_ + "ceré" ; + VP (Fut Ind Sg P2) => ya_ + "cerás" ; + VP (Fut Ind Sg P3) => ya_ + "cerá" ; + VP (Fut Ind Pl P1) => ya_ + "ceremos" ; + VP (Fut Ind Pl P2) => ya_ + "ceréis" ; + VP (Fut Ind Pl P3) => ya_ + "cerán" ; + VP (Fut Subj Sg P1) => ya_ + "ciere" ; + VP (Fut Subj Sg P2) => ya_ + "cieres" ; + VP (Fut Subj Sg P3) => ya_ + "ciere" ; + VP (Fut Subj Pl P1) => ya_ + "ciéremos" ; + VP (Fut Subj Pl P2) => ya_ + "ciereis" ; + VP (Fut Subj Pl P3) => ya_ + "cieren" ; + VP (Cond Sg P1) => ya_ + "cería" ; + VP (Cond Sg P2) => ya_ + "cerías" ; + VP (Cond Sg P3) => ya_ + "cería" ; + VP (Cond Pl P1) => ya_ + "ceríamos" ; + VP (Cond Pl P2) => ya_ + "ceríais" ; + VP (Cond Pl P3) => ya_ + "cerían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => ya_ + "ce" ; + VP (Imp Sg P3) => ya_ + "zga" ; + VP (Imp Pl P1) => ya_ + "zgamos" ; + VP (Imp Pl P2) => ya_ + "ced" ; + VP (Imp Pl P3) => ya_ + "zgan" ; + VP (Pass Sg Masc) => ya_ + "cido" ; + VP (Pass Sg Fem) => ya_ + "cida" ; + VP (Pass Pl Masc) => ya_ + "cidos" ; + VP (Pass Pl Fem) => ya_ + "cidas" + } + } ; +oper zurcir_86 : Str -> Verbum = \zurcir -> + let zur_ = Predef.tk 3 zurcir in + {s = table { + VI Infn => zur_ + "cir" ; + VI Ger => zur_ + "ciendo" ; + VI Part => zur_ + "cido" ; + VP (Pres Ind Sg P1) => zur_ + "zo" ; + VP (Pres Ind Sg P2) => zur_ + "ces" ; + VP (Pres Ind Sg P3) => zur_ + "ce" ; + VP (Pres Ind Pl P1) => zur_ + "cimos" ; + VP (Pres Ind Pl P2) => zur_ + "cís" ; + VP (Pres Ind Pl P3) => zur_ + "cen" ; + VP (Pres Subj Sg P1) => zur_ + "za" ; + VP (Pres Subj Sg P2) => zur_ + "zas" ; + VP (Pres Subj Sg P3) => zur_ + "za" ; + VP (Pres Subj Pl P1) => zur_ + "zamos" ; + VP (Pres Subj Pl P2) => zur_ + "záis" ; + VP (Pres Subj Pl P3) => zur_ + "zan" ; + VP (Impf Ind Sg P1) => zur_ + "cía" ; + VP (Impf Ind Sg P2) => zur_ + "cías" ; + VP (Impf Ind Sg P3) => zur_ + "cía" ; + VP (Impf Ind Pl P1) => zur_ + "cíamos" ; + VP (Impf Ind Pl P2) => zur_ + "cíais" ; + VP (Impf Ind Pl P3) => zur_ + "cían" ; + VP (Impf Subj Sg P1) => variants {zur_ + "ciera" ; zur_ + "ciese"} ; + VP (Impf Subj Sg P2) => variants {zur_ + "cieras" ; zur_ + "cieses"} ; + VP (Impf Subj Sg P3) => variants {zur_ + "ciera" ; zur_ + "ciese"} ; + VP (Impf Subj Pl P1) => variants {zur_ + "ciéramos" ; zur_ + "ciésemos"} ; + VP (Impf Subj Pl P2) => variants {zur_ + "cierais" ; zur_ + "cieseis"} ; + VP (Impf Subj Pl P3) => variants {zur_ + "cieran" ; zur_ + "ciesen"} ; + VP (Pret Sg P1) => zur_ + "cí" ; + VP (Pret Sg P2) => zur_ + "ciste" ; + VP (Pret Sg P3) => zur_ + "ció" ; + VP (Pret Pl P1) => zur_ + "cimos" ; + VP (Pret Pl P2) => zur_ + "cisteis" ; + VP (Pret Pl P3) => zur_ + "cieron" ; + VP (Fut Ind Sg P1) => zur_ + "ciré" ; + VP (Fut Ind Sg P2) => zur_ + "cirás" ; + VP (Fut Ind Sg P3) => zur_ + "cirá" ; + VP (Fut Ind Pl P1) => zur_ + "ciremos" ; + VP (Fut Ind Pl P2) => zur_ + "ciréis" ; + VP (Fut Ind Pl P3) => zur_ + "cirán" ; + VP (Fut Subj Sg P1) => zur_ + "ciere" ; + VP (Fut Subj Sg P2) => zur_ + "cieres" ; + VP (Fut Subj Sg P3) => zur_ + "ciere" ; + VP (Fut Subj Pl P1) => zur_ + "ciéremos" ; + VP (Fut Subj Pl P2) => zur_ + "ciereis" ; + VP (Fut Subj Pl P3) => zur_ + "cieren" ; + VP (Cond Sg P1) => zur_ + "ciría" ; + VP (Cond Sg P2) => zur_ + "cirías" ; + VP (Cond Sg P3) => zur_ + "ciría" ; + VP (Cond Pl P1) => zur_ + "ciríamos" ; + VP (Cond Pl P2) => zur_ + "ciríais" ; + VP (Cond Pl P3) => zur_ + "cirían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => zur_ + "ce" ; + VP (Imp Sg P3) => zur_ + "za" ; + VP (Imp Pl P1) => zur_ + "zamos" ; + VP (Imp Pl P2) => zur_ + "cid" ; + VP (Imp Pl P3) => zur_ + "zan" ; + VP (Pass Sg Masc) => zur_ + "cido" ; + VP (Pass Sg Fem) => zur_ + "cida" ; + VP (Pass Pl Masc) => zur_ + "cidos" ; + VP (Pass Pl Fem) => zur_ + "cidas" + } + } ; +oper amar_87 : Str -> Verbum = \amar -> + let am_ = Predef.tk 2 amar in + {s = table { + VI Infn => am_ + "ar" ; + VI Ger => am_ + "ando" ; + VI Part => am_ + "ado" ; + VP (Pres Ind Sg P1) => am_ + "o" ; + VP (Pres Ind Sg P2) => am_ + "as" ; + VP (Pres Ind Sg P3) => am_ + "a" ; + VP (Pres Ind Pl P1) => am_ + "amos" ; + VP (Pres Ind Pl P2) => am_ + "áis" ; + VP (Pres Ind Pl P3) => am_ + "an" ; + VP (Pres Subj Sg P1) => am_ + "e" ; + VP (Pres Subj Sg P2) => am_ + "es" ; + VP (Pres Subj Sg P3) => am_ + "e" ; + VP (Pres Subj Pl P1) => am_ + "emos" ; + VP (Pres Subj Pl P2) => am_ + "éis" ; + VP (Pres Subj Pl P3) => am_ + "en" ; + VP (Impf Ind Sg P1) => am_ + "aba" ; + VP (Impf Ind Sg P2) => am_ + "abas" ; + VP (Impf Ind Sg P3) => am_ + "aba" ; + VP (Impf Ind Pl P1) => am_ + "ábamos" ; + VP (Impf Ind Pl P2) => am_ + "abais" ; + VP (Impf Ind Pl P3) => am_ + "aban" ; + VP (Impf Subj Sg P1) => variants {am_ + "ara" ; am_ + "ase"} ; + VP (Impf Subj Sg P2) => variants {am_ + "aras" ; am_ + "ases"} ; + VP (Impf Subj Sg P3) => variants {am_ + "ara" ; am_ + "ase"} ; + VP (Impf Subj Pl P1) => variants {am_ + "áramos" ; am_ + "ásemos"} ; + VP (Impf Subj Pl P2) => variants {am_ + "arais" ; am_ + "aseis"} ; + VP (Impf Subj Pl P3) => variants {am_ + "aran" ; am_ + "asen"} ; + VP (Pret Sg P1) => am_ + "é" ; + VP (Pret Sg P2) => am_ + "aste" ; + VP (Pret Sg P3) => am_ + "ó" ; + VP (Pret Pl P1) => am_ + "amos" ; + VP (Pret Pl P2) => am_ + "asteis" ; + VP (Pret Pl P3) => am_ + "aron" ; + VP (Fut Ind Sg P1) => am_ + "aré" ; + VP (Fut Ind Sg P2) => am_ + "arás" ; + VP (Fut Ind Sg P3) => am_ + "ará" ; + VP (Fut Ind Pl P1) => am_ + "aremos" ; + VP (Fut Ind Pl P2) => am_ + "aréis" ; + VP (Fut Ind Pl P3) => am_ + "arán" ; + VP (Fut Subj Sg P1) => am_ + "are" ; + VP (Fut Subj Sg P2) => am_ + "ares" ; + VP (Fut Subj Sg P3) => am_ + "are" ; + VP (Fut Subj Pl P1) => am_ + "áremos" ; + VP (Fut Subj Pl P2) => am_ + "areis" ; + VP (Fut Subj Pl P3) => am_ + "aren" ; + VP (Cond Sg P1) => am_ + "aría" ; + VP (Cond Sg P2) => am_ + "arías" ; + VP (Cond Sg P3) => am_ + "aría" ; + VP (Cond Pl P1) => am_ + "aríamos" ; + VP (Cond Pl P2) => am_ + "aríais" ; + VP (Cond Pl P3) => am_ + "arían" ; + VP (Imp Sg P1) => variants {} ; + VP (Imp Sg P2) => am_ + "a" ; + VP (Imp Sg P3) => am_ + "e" ; + VP (Imp Pl P1) => am_ + "emos" ; + VP (Imp Pl P2) => am_ + "ad" ; + VP (Imp Pl P3) => am_ + "en" ; + VP (Pass Sg Masc) => am_ + "ado" ; + VP (Pass Sg Fem) => am_ + "ada" ; + VP (Pass Pl Masc) => am_ + "ados" ; + VP (Pass Pl Fem) => am_ + "adas" + } + } ; +oper llover_89 : Str -> Verbum = \llover -> + let ll_ = Predef.tk 4 llover in + {s = table { + VI Infn => ll_ + "over" ; + VI Ger => ll_ + "oviendo" ; + VI Part => ll_ + "ovido" ; + VP (Pres Ind Sg P1) => variants {} ; + VP (Pres Ind Sg P2) => variants {} ; + VP (Pres Ind Sg P3) => ll_ + "ueve" ; + VP (Pres Ind Pl P1) => variants {} ; + VP (Pres Ind Pl P2) => variants {} ; + VP (Pres Ind Pl P3) => variants {} ; + VP (Pres Subj Sg P1) => variants {} ; + VP (Pres Subj Sg P2) => variants {} ; + VP (Pres Subj Sg P3) => ll_ + "ueva" ; + VP (Pres Subj Pl P1) => variants {} ; + VP (Pres Subj Pl P2) => variants {} ; + VP (Pres Subj Pl P3) => variants {} ; + VP (Impf Ind Sg P1) => variants {} ; + VP (Impf Ind Sg P2) => variants {} ; + VP (Impf Ind Sg P3) => ll_ + "ovía" ; + VP (Impf Ind Pl P1) => variants {} ; + VP (Impf Ind Pl P2) => variants {} ; + VP (Impf Ind Pl P3) => variants {} ; + VP (Impf Subj Sg P1) => variants {} ; + VP (Impf Subj Sg P2) => variants {} ; + VP (Impf Subj Sg P3) => variants {ll_ + "oviera" ; ll_ + "oviese"} ; + VP (Impf Subj Pl P1) => variants {} ; + VP (Impf Subj Pl P2) => variants {} ; + VP (Impf Subj Pl P3) => variants {} ; + VP (Pret Sg P1) => variants {} ; + VP (Pret Sg P2) => variants {} ; + VP (Pret Sg P3) => ll_ + "ovió" ; + VP (Pret Pl P1) => variants {} ; + VP (Pret Pl P2) => variants {} ; + VP (Pret Pl P3) => variants {} ; + VP (Fut Ind Sg P1) => variants {} ; + VP (Fut Ind Sg P2) => variants {} ; + VP (Fut Ind Sg P3) => ll_ + "overá" ; + VP (Fut Ind Pl P1) => variants {} ; + VP (Fut Ind Pl P2) => variants {} ; + VP (Fut Ind Pl P3) => variants {} ; + VP (Fut Subj Sg P1) => variants {} ; + VP (Fut Subj Sg P2) => variants {} ; + VP (Fut Subj Sg P3) => ll_ + "oviere" ; + VP (Fut Subj Pl P1) => variants {} ; + VP (Fut Subj Pl P2) => variants {} ; + VP (Fut Subj Pl P3) => variants {} ; + VP (Cond Sg P1) => variants {} ; + VP (Cond Sg P2) => variants {} ; + VP (Cond Sg P3) => ll_ + "overía" ; + VP (Cond Pl P1) => variants {} ; + VP (Cond Pl P2) => variants {} ; + VP (Cond Pl P3) => variants {} ; + 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) => variants {} ; + VP (Pass Sg Fem) => variants {} ; + VP (Pass Pl Masc) => variants {} ; + VP (Pass Pl Fem) => variants {} + } + } ; +} diff --git a/lib/resource/spanish/CategoriesSpa.gf b/lib/resource-0.9/spanish/CategoriesSpa.gf similarity index 100% rename from lib/resource/spanish/CategoriesSpa.gf rename to lib/resource-0.9/spanish/CategoriesSpa.gf diff --git a/lib/resource/spanish/ClauseSpa.gf b/lib/resource-0.9/spanish/ClauseSpa.gf similarity index 100% rename from lib/resource/spanish/ClauseSpa.gf rename to lib/resource-0.9/spanish/ClauseSpa.gf diff --git a/lib/resource/spanish/CountrySpa.gf b/lib/resource-0.9/spanish/CountrySpa.gf similarity index 100% rename from lib/resource/spanish/CountrySpa.gf rename to lib/resource-0.9/spanish/CountrySpa.gf diff --git a/lib/resource-0.9/spanish/LangSpa.gf b/lib/resource-0.9/spanish/LangSpa.gf new file mode 100644 index 000000000..240497490 --- /dev/null +++ b/lib/resource-0.9/spanish/LangSpa.gf @@ -0,0 +1,23 @@ +--# -path=.:../romance:../abstract:../../prelude + +concrete LangSpa of Lang = + RulesSpa, + ClauseSpa, + StructuralSpa, + BasicSpa, + TimeSpa, + CountrySpa, + MathSpa + + ** open Prelude, ParadigmsSpa in { + +lin + AdvDate d = prefixSS "el" d ; + AdvTime t = prefixSS ["a las"] t ; + NWeekday w = w ; + PNWeekday w = mkPN (w.s ! singular) w.g ; + + PNCountry x = x ; + ANationality x = x ; + NLanguage x = x ; +} diff --git a/lib/resource/spanish/MathSpa.gf b/lib/resource-0.9/spanish/MathSpa.gf similarity index 100% rename from lib/resource/spanish/MathSpa.gf rename to lib/resource-0.9/spanish/MathSpa.gf diff --git a/lib/resource-0.9/spanish/MorphoSpa.gf b/lib/resource-0.9/spanish/MorphoSpa.gf new file mode 100644 index 000000000..99e25d698 --- /dev/null +++ b/lib/resource-0.9/spanish/MorphoSpa.gf @@ -0,0 +1,211 @@ +--# -path=.:../romance:../../prelude + +--1 A Simple Spanish Resource Morphology +-- +-- Aarne Ranta 2002--2003 +-- +-- This resource morphology contains definitions needed in the resource +-- syntax. It moreover contains the most usual inflectional patterns. +-- The patterns for verbs contain the complete "Bescherelle" conjugation +-- tables. +-- +-- We use the parameter types and word classes defined in $TypesSpa.gf$. + +resource MorphoSpa = open (Predef=Predef), Prelude, TypesSpa, BeschSpa in { + +--2 Some phonology +-- +--3 Elision +-- +-- The phonological rule of *elision* can be defined as follows in GF. +-- In Italian it includes both vowels and the *impure 's'*. + +oper + vocale : Strs = strs { + "a" ; "e" ; "h" ; "i" ; "o" ; "u" + } ; + + elisQue = "que" ; --- no elision in Italian + elisDe = "de" ; + +--2 Nouns +-- +-- The following macro is useful for creating the forms of number-dependent +-- tables, such as common nouns. + + numForms : (_,_ : Str) -> Number => Str = \vino, vini -> + table {Sg => vino ; Pl => vini} ; + +-- For example: + + nomVino : Str -> Number => Str = \vino -> + numForms vino (vino + "s") ; + + nomPilar : Str -> Number => Str = \pilar -> + numForms pilar (pilar + "es") ; + + nomTram : Str -> Number => Str = \tram -> + numForms tram tram ; + +-- Common nouns are inflected in number and have an inherent gender. + + mkCNom : (Number => Str) -> Gender -> CNom = \mecmecs,gen -> + {s = mecmecs ; g = gen} ; + + mkCNomIrreg : Str -> Str -> Gender -> CNom = \mec,mecs -> + mkCNom (numForms mec mecs) ; + + mkNomReg : Str -> CNom = \mec -> + case last mec of { + "o" | "e" => mkCNom (nomVino mec) Masc ; + "a" => mkCNom (nomVino mec) Fem ; + "z" => mkCNomIrreg mec (init mec + "ces") Fem ; + _ => mkCNom (nomPilar mec) Masc + } ; + +--2 Adjectives +-- +-- Adjectives are conveniently seen as gender-dependent nouns. +-- Here are some patterns. First one that describes the worst case. + + mkAdj : (_,_,_,_,_ : Str) -> Adj = \solo,sola,soli,sole,solamente -> + {s = table { + AF Masc n => numForms solo soli ! n ; + AF Fem n => numForms sola sole ! n ; + AA => solamente + } + } ; + +-- Then the regular and invariant patterns. + + adjSolo : Str -> Adj = \solo -> + let + sol = Predef.tk 1 solo + in + mkAdj solo (sol + "a") (sol + "os") (sol + "as") (sol + "amente") ; + + adjUtil : Str -> Str -> Adj = \util,utiles -> + mkAdj util util utiles utiles (util + "mente") ; + + adjBlu : Str -> Adj = \blu -> + mkAdj blu blu blu blu blu ; --- + + mkAdjReg : Str -> Adj = \solo -> + case last solo of { + "o" => adjSolo solo ; + "e" => adjUtil solo (solo + "s") ; + _ => adjUtil solo (solo + "es") +---- _ => adjBlu solo + } ; + +--2 Personal pronouns +-- +-- All the eight personal pronouns can be built by the following macro. +-- The use of "ne" as atonic genitive is debatable. +-- We follow the rule that the atonic nominative is empty. + + mkPronoun : (_,_,_,_,_,_,_,_ : Str) -> + PronGen -> Number -> Person -> ClitType -> Pronoun = + \il,le,lui,Lui,son,sa,ses,see,g,n,p,c -> + {s = table { + Ton Nom => il ; + Ton x => prepCase x ++ Lui ; + Aton Nom => il ; ---- [] ; + Aton Acc => le ; +---- Aton (CPrep P_de) => "ne" ; --- hmm + Aton (CPrep P_a) => lui ; + Aton (CPrep q) => strPrep q ++ Lui ; ---- GF bug with c or p! + Poss Sg Masc => son ; + Poss Sg Fem => sa ; + Poss Pl Masc => ses ; + Poss Pl Fem => see + } ; + g = g ; + n = n ; + p = p ; + c = c + } ; + + -- used in constructions like "(no) hay ..." + + pronEmpty : Number -> Pronoun = \n -> mkPronoun + [] + [] + [] + [] + [] [] [] [] + (PGen Masc) + n + P3 + Clit2 ; + +--2 Reflexive pronouns +-- +-- It is simply a function depending on number and person. + + pronRefl : Number -> Person -> Str = \n,p -> case of { + => "me" ; + => "te" ; + <_, P3> => "se" ; + => "nos" ; + => "vos" + } ; + + +--2 Determiners +-- +-- Determiners, traditionally called indefinite pronouns, are inflected +-- in gender and number, like adjectives. + + pronForms : Adj -> Gender -> Number -> Str = \tale,g,n -> tale.s ! AF g n ; + + qualPron : Gender -> Number -> Str = pronForms (adjUtil "cuál" "cuales") ; + + talPron : Gender -> Number -> Str = pronForms (adjUtil "tál" "tales") ; + + tuttoPron : Gender -> Number -> Str = pronForms (adjSolo "todo") ; + +--2 Articles +-- +-- The definite article has quite some variation: three parameters and +-- elision. This is the simples definition we have been able to find. + + artDefTable : Gender => Number => Case => Str = \\g,n,c => case of { + => "del" ; + => "al" ; + => prepCase c ++ "el" ; + + => prepCase c ++ "la" ; + => prepCase c ++ "los" ; + => prepCase c ++ "las" + } ; + +--2 Verbs +-- +--3 The Bescherelle conjugations. +-- +-- The following conjugations tables were generated using FM software +-- from a Haskell source. +-- +-- The verb "essere" is often used in syntax. + + verbSer = verbPres (ser_7 "ser") AHabere ; + verbHaber = verbPres (haber_10 "haber") AHabere ; + +-- for bw compatibility + +ser_7 : Str -> Verbum = ser_1 ; +haber_10 : Str -> Verbum = haber_3 ; + +-- for Numerals + +param DForm = unit | teen | ten | hundred ; +param Modif = mod | unmod | conj ; + +oper spl : Str -> {s : Gender => Str ; n : Number} = \s -> {s = \\_ => + s ; n = Pl} ; + + uno : Gender => Str = table {Masc => "uno" ; Fem => "una"} ; + yuno : Gender => Str = \\g => "y" ++ uno ! g ; + +} diff --git a/lib/resource/spanish/NumeralsSpa.gf b/lib/resource-0.9/spanish/NumeralsSpa.gf similarity index 100% rename from lib/resource/spanish/NumeralsSpa.gf rename to lib/resource-0.9/spanish/NumeralsSpa.gf diff --git a/lib/resource-1.0/spanish/ParadigmsSpa.gf b/lib/resource-0.9/spanish/ParadigmsSpa.gf similarity index 57% rename from lib/resource-1.0/spanish/ParadigmsSpa.gf rename to lib/resource-0.9/spanish/ParadigmsSpa.gf index 957867e6a..e2855cff3 100644 --- a/lib/resource-1.0/spanish/ParadigmsSpa.gf +++ b/lib/resource-0.9/spanish/ParadigmsSpa.gf @@ -1,53 +1,41 @@ ---# -path=.:../romance:../common:../abstract:../../prelude +--# -path=.:../romance:../abstract:../../prelude --1 Spanish Lexical Paradigms -- --- Aarne Ranta 2004 - 2006 +-- Aarne Ranta 2005 -- --- This is an API for the user of the resource grammar --- for adding lexical items. It gives functions for forming --- expressions of open categories: nouns, adjectives, verbs. +-- This is an API to the user of the resource grammar +-- for adding lexical items. It give shortcuts for forming +-- expressions of basic categories: nouns, adjectives, verbs. -- -- Closed categories (determiners, pronouns, conjunctions) are --- accessed through the resource syntax API, $Structural.gf$. +-- accessed through the resource syntax API, $resource.Abs.gf$. -- --- The main difference with $MorphoSpa.gf$ is that the types +-- The main difference with $MorphoIta.gf$ is that the types -- referred to are compiled resource grammar types. We have moreover --- had the design principle of always having existing forms, rather --- than stems, as string arguments of the paradigms. +-- had the design principle of always having existing forms, not stems, as string +-- arguments of the paradigms. -- --- The structure of functions for each word class $C$ is the following: --- first we give a handful of patterns that aim to cover all --- regular cases. Then we give a worst-case function $mkC$, which serves as an --- escape to construct the most irregular words of type $C$. For --- verbs, there is a fairly complete list of irregular verbs in --- [``IrregSpa`` ../../spanish/IrregSpa.gf]. +-- The following modules are presupposed: resource ParadigmsSpa = - open - (Predef=Predef), - Prelude, - CommonRomance, - ResSpa, - MorphoSpa, - BeschSpa, - CatSpa in { - - flags optimize=all ; + open Prelude, (Types = TypesSpa), SyntaxSpa, MorphoSpa, BeschSpa, + RulesSpa in { --2 Parameters -- -- To abstract over gender names, we define the following identifiers. oper - Gender : Type ; + Bool : Type ; + Gender : Type ; masculine : Gender ; feminine : Gender ; -- To abstract over number names, we define the following. - Number : Type ; + Number : Type ; singular : Number ; plural : Number ; @@ -55,23 +43,22 @@ oper -- Prepositions used in many-argument functions are either strings -- (including the 'accusative' empty string) or strings that -- amalgamate with the following word (the 'genitive' "de" and the --- 'dative' "a"). +-- 'dative' "à"). - Prep : Type ; + Preposition : Type ; - accusative : Prep ; - genitive : Prep ; - dative : Prep ; - - mkPrep : Str -> Prep ; + accusative : Preposition ; + dative : Preposition ; + genitive : Preposition ; + mkPreposition : Str -> Preposition ; --2 Nouns -- Worst case: two forms (singular + plural), -- and the gender. - mkN : (_,_ : Str) -> Gender -> N ; -- bastón, bastones, masculine + mkN : (_,_ : Str) -> Gender -> N ; -- uomo, uomini, masculine -- The regular function takes the singular form and the gender, -- and computes the plural and the gender by a heuristic. @@ -91,7 +78,7 @@ oper --3 Compound nouns -- -- Some nouns are ones where the first part is inflected as a noun but --- the second part is not inflected. e.g. "número de teléfono". +-- the second part is not inflected. e.g. "numéro de téléphone". -- They could be formed in syntax, but we give a shortcut here since -- they are frequent in lexica. @@ -102,7 +89,7 @@ oper -- -- Relational nouns ("fille de x") need a case and a preposition. - mkN2 : N -> Prep -> N2 ; + mkN2 : N -> Preposition -> N2 ; -- The most common cases are the genitive "de" and the dative "a", -- with the empty preposition. @@ -112,7 +99,7 @@ oper -- Three-place relational nouns ("la connessione di x a y") need two prepositions. - mkN3 : N -> Prep -> Prep -> N3 ; + mkN3 : N -> Preposition -> Preposition -> N3 ; --3 Relational common noun phrases @@ -127,9 +114,7 @@ oper -- -- Proper names need a string and a gender. - mkPN : Str -> Gender -> PN ; -- Juan - regPN : Str -> PN ; -- feminine for "-a", otherwise masculine - + mkPN : Str -> Gender -> PN ; -- Jean -- To form a noun phrase that can also be plural, -- you can use the worst-case function. @@ -141,7 +126,7 @@ oper -- Non-comparison one-place adjectives need five forms in the worst -- case (masc and fem singular, masc plural, adverbial). - mkA : (solo,sola,solos,solas, solamiento : Str) -> A ; + mkA : (solo,sola,soli,sole, solamente : Str) -> A ; -- For regular adjectives, all other forms are derived from the -- masculine singular. The types of adjectives that are recognized are @@ -151,7 +136,7 @@ oper -- These functions create postfix adjectives. To switch -- them to prefix ones (i.e. ones placed before the noun in --- modification, as in "bueno vino"), the following function is +-- modification, as in "petite maison"), the following function is -- provided. prefA : A -> A ; @@ -160,25 +145,33 @@ oper -- -- Two-place adjectives need a preposition for their second argument. - mkA2 : A -> Prep -> A2 ; + mkA2 : A -> Preposition -> A2 ; --3 Comparison adjectives -- Comparison adjectives are in the worst case put up from two -- adjectives: the positive ("bueno"), and the comparative ("mejor"). - mkADeg : A -> A -> A ; + mkADeg : A -> A -> ADeg ; -- If comparison is formed by "mas", as usual in Spanish, -- the following pattern is used: - compADeg : A -> A ; + compADeg : A -> ADeg ; -- The regular pattern is the same as $regA$ for plain adjectives, -- with comparison by "mas". - regADeg : Str -> A ; + regADeg : Str -> ADeg ; +-- From a given $ADeg$, it is possible to get back to $A$. + + adegA : ADeg -> A ; + +-- For prefixed adjectives, the following function is +-- provided. + + prefADeg : ADeg -> ADeg ; --2 Adverbs @@ -211,10 +204,6 @@ oper verboV : Verbum -> V ; --- To form reflexive verbs: - - reflV : V -> V ; - -- Verbs with a deviant passive participle: just give the participle -- in masculine singular form as second argument. @@ -225,7 +214,7 @@ oper -- Two-place verbs need a preposition, except the special case with direct object. -- (transitive verbs). Notice that a particle comes from the $V$. - mkV2 : V -> Prep -> V2 ; + mkV2 : V -> Preposition -> V2 ; dirV2 : V -> V2 ; @@ -238,9 +227,9 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Prep -> Prep -> V3 ; -- hablar, a, di - dirV3 : V -> Prep -> V3 ; -- dar,(accusative),a - dirdirV3 : V -> V3 ; -- dar,(dative),(accusative) + mkV3 : V -> Preposition -> Preposition -> V3 ; -- parler, à, de + dirV3 : V -> Preposition -> V3 ; -- donner,_,à + dirdirV3 : V -> V3 ; -- donner,_,_ --3 Other complement patterns -- @@ -249,86 +238,73 @@ oper mkV0 : V -> V0 ; mkVS : V -> VS ; - mkV2S : V -> Prep -> V2S ; - mkVV : V -> VV ; -- plain infinitive: "quiero hablar" - deVV : V -> VV ; -- "terminar de hablar" - aVV : V -> VV ; -- "aprender a hablar" - mkV2V : V -> Prep -> Prep -> V2V ; + mkV2S : V -> Preposition -> V2S ; + mkVV : V -> VV ; -- plain infinitive: "je veux parler" + deVV : V -> VV ; -- "j'essaie de parler" + aVV : V -> VV ; -- "j'arrive à parler" + mkV2V : V -> Preposition -> Preposition -> V2V ; mkVA : V -> VA ; - mkV2A : V -> Prep -> Prep -> V2A ; + mkV2A : V -> Preposition -> V2A ; mkVQ : V -> VQ ; - mkV2Q : V -> Prep -> V2Q ; + mkV2Q : V -> Preposition -> V2Q ; - mkAS : A -> AS ; - mkA2S : A -> Prep -> A2S ; - mkAV : A -> Prep -> AV ; - mkA2V : A -> Prep -> Prep -> A2V ; - --- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated --- just as synonyms of $V2$, and the second argument is given --- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. --- $V0$ is just $V$. - - V0, V2S, V2V, V2Q : Type ; - AS, A2S, AV, A2V : Type ; + mkAS : A -> AS ; + subjAS : A -> AS ; + mkA2S : A -> Preposition -> A2S ; + mkAV : A -> Preposition -> AV ; + mkA2V : A -> Preposition -> Preposition -> A2V ; ---. ---2 The definitions of the paradigms +--2 Definitions of the paradigms -- -- The definitions should not bother the user of the API. So they are -- hidden from the document. +--. + + Bool = Prelude.Bool ; + Gender = SyntaxSpa.Gender ; + Preposition = SyntaxSpa.Case * Str ; + Number = SyntaxSpa.Number ; - Gender = MorphoSpa.Gender ; - Number = MorphoSpa.Number ; masculine = Masc ; - feminine = Fem ; - singular = Sg ; - plural = Pl ; + feminine = Fem ; - Prep = Compl ; - accusative = complAcc ; - genitive = complGen ; - dative = complDat ; - mkPrep p = {s = p ; c = Acc ; isDir = False} ; + accusative = ; + genitive = ; + dative = ; + mkPreposition p = ; + singular = Types.singular ; + plural = Types.plural ; - mkN x y g = mkNounIrreg x y g ** {lock_N = <>} ; + mkN x y g = mkCNomIrreg x y g ** {lock_N = <>} ; regN x = mkNomReg x ** {lock_N = <>} ; compN x y = {s = \\n => x.s ! n ++ y ; g = x.g ; lock_N = <>} ; femN x = {s = x.s ; g = feminine ; lock_N = <>} ; mascN x = {s = x.s ; g = masculine ; lock_N = <>} ; - mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; + mkN2 = \n,p -> n ** {lock_N2 = <> ; c = p.p1 ; s2 = p.p2} ; deN2 n = mkN2 n genitive ; aN2 n = mkN2 n dative ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c = p.p1 ; s2 = p.p2 ; c3 = q.p1 ; s3 = q.p2} ; mkPN x g = {s = x ; g = g} ** {lock_PN = <>} ; - regPN x = mkPN x g where { - g = case last x of { - "a" => feminine ; - _ => masculine - } - } ; + mkNP x g n = let np = mkNameNounPhrase x g in + {s = np.s ; g = np.g ; p = np.p ; c = np.c ; n = n ; lock_NP = <>} ; - mkNP x g n = {s = (pn2np (mkPN x g)).s; a = agrP3 g n ; hasClit = False} ** {lock_NP = <>} ; + mkA a b c d e = mkAdj a b c d e ** {p = False ; lock_A = <>} ; + regA a = mkAdjReg a ** {p = False ; lock_A = <>} ; + prefA a = {s = a.s ; p = True ; lock_A = <>} ; - mkA a b c d e = - compADeg {s = \\_ => (mkAdj a b c d e).s ; isPre = False ; lock_A = <>} ; - regA a = compADeg {s = \\_ => (mkAdjReg a).s ; isPre = False ; lock_A = <>} ; - prefA a = {s = a.s ; isPre = True ; lock_A = <>} ; + mkA2 a p = a ** {c = p.p1 ; s2 = p.p2 ; lock_A2 = <>} ; - mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ; - - mkADeg a b = - {s = table {Posit => a.s ! Posit ; _ => b.s ! Posit} ; - isPre = a.isPre ; lock_A = <>} ; - compADeg a = - {s = table {Posit => a.s ! Posit ; _ => \\f => "más" ++ a.s ! Posit ! f} ; - isPre = a.isPre ; - lock_A = <>} ; + mkADeg a b = {s = table {Pos => a.s ; _ => b.s} ; p = a.p ; lock_ADeg = <>} ; + compADeg a = {s = table {Pos => a.s ; _ => \\f => "mas" ++ a.s ! f} ; p = a.p ; + lock_ADeg = <>} ; regADeg a = compADeg (regA a) ; + prefADeg a = {s = a.s ; p = True ; lock_ADeg = <>} ; + + adegA a = {s = a.s ! Pos ; p = a.p ; lock_A = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ; @@ -350,13 +326,9 @@ oper _ => cortar_5 x } } - in verbBesch verb ** {vtyp = VHabere ; lock_V = <>} ; + in verbPres verb AHabere ** {lock_V = <>} ; - reflV v = {s = v.s ; vtyp = VRefl ; lock_V = <>} ; - - verboV ve = verbBesch ve ** {vtyp = VHabere ; lock_V = <>} ; - - reflVerboV : Verbum -> V = \ve -> reflV (verboV ve) ; + verboV ve = verbPres ve AHabere ** {lock_V = <>} ; special_ppV ve pa = { s = table { @@ -364,37 +336,32 @@ oper p => ve.s ! p } ; lock_V = <> ; - vtyp = VHabere + aux = AHabere } ; - mkV2 v p = {s = v.s ; vtyp = v.vtyp ; c2 = p ; lock_V2 = <>} ; + mkV2 v p = {s = v.s ; aux = v.aux ; s2 = p.p2 ; c = p.p1 ; lock_V2 = <>} ; dirV2 v = mkV2 v accusative ; v2V v = v ** {lock_V = <>} ; - mkV3 v p q = {s = v.s ; vtyp = v.vtyp ; - c2 = p ; c3 = q ; lock_V3 = <>} ; + mkV3 v p q = {s = v.s ; aux = v.aux ; + s2 = p.p2 ; s3 = q.p2 ; c = p.p1 ; c3 = q.p1 ; lock_V3 = <>} ; dirV3 v p = mkV3 v accusative p ; dirdirV3 v = dirV3 v dative ; - V0 : Type = V ; - V2S, V2V, V2Q : Type = V2 ; - AS, AV : Type = A ; - A2S, A2V : Type = A2 ; - mkV0 v = v ** {lock_V0 = <>} ; - mkVS v = v ** {m = \\_ => Indic ; lock_VS = <>} ; ---- more moods - mkV2S v p = mkV2 v p ** {mn,mp = Indic ; lock_V2S = <>} ; - mkVV v = v ** {c2 = complAcc ; lock_VV = <>} ; - deVV v = v ** {c2 = complGen ; lock_VV = <>} ; - aVV v = v ** {c2 = complDat ; lock_VV = <>} ; + mkVS v = v ** {mn,mp = Ind ; lock_VS = <>} ; ---- more moods + mkV2S v p = mkV2 v p ** {mn,mp = Ind ; lock_V2S = <>} ; + mkVV v = v ** {c = accusative.p1 ; lock_VV = <>} ; + deVV v = v ** {c = genitive.p1 ; lock_VV = <>} ; + aVV v = v ** {c = dative.p1 ; lock_VV = <>} ; mkV2V v p t = mkV2 v p ** {c3 = t.p1 ; s3 = p.p2 ; lock_V2V = <>} ; mkVA v = v ** {lock_VA = <>} ; - mkV2A v p q = mkV3 v p q ** {lock_V2A = <>} ; + mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; mkVQ v = v ** {lock_VQ = <>} ; mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - mkAS v = v ** {lock_AS = <>} ; ---- more moods - mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; + mkAS v = v ** {mn,mp = Ind ; lock_AS = <>} ; ---- more moods + mkA2S v p = mkA2 v p ** {mn,mp = Ind ; lock_A2S = <>} ; mkAV v p = v ** {c = p.p1 ; s2 = p.p2 ; lock_AV = <>} ; mkA2V v p q = mkA2 v p ** {s3 = q.p2 ; c3 = q.p1 ; lock_A2V = <>} ; diff --git a/lib/resource/spanish/ResourceSpa.gf b/lib/resource-0.9/spanish/ResourceSpa.gf similarity index 100% rename from lib/resource/spanish/ResourceSpa.gf rename to lib/resource-0.9/spanish/ResourceSpa.gf diff --git a/lib/resource/spanish/RulesSpa.gf b/lib/resource-0.9/spanish/RulesSpa.gf similarity index 100% rename from lib/resource/spanish/RulesSpa.gf rename to lib/resource-0.9/spanish/RulesSpa.gf diff --git a/lib/resource-0.9/spanish/StructuralSpa.gf b/lib/resource-0.9/spanish/StructuralSpa.gf new file mode 100644 index 000000000..36a1086e5 --- /dev/null +++ b/lib/resource-0.9/spanish/StructuralSpa.gf @@ -0,0 +1,95 @@ +--# -path=.:../romance:../abstract:../../prelude + + +concrete StructuralSpa of Structural = CategoriesSpa, NumeralsSpa ** + open SyntaxSpa, MorphoSpa, BeschSpa, Prelude in { + +lin + + UseNumeral n = {s = \\g => n.s !g ; n = n.n ; isNo = False} ; + + above_Prep = justPrep "sobre" ; + after_Prep = {s = "después" ; c = genitive} ; + all8mass_Det = mkDeterminer singular "todo" "toda" ; + all_NDet = mkDeterminerNum ["todos los"] ["todas las"] ; + almost_Adv = ss "casi" ; + although_Subj = ss "benché" ** {m = Con} ; + and_Conj = etConj ; + because_Subj = ss "porque" ** {m = Ind} ; + before_Prep = {s = "antes" ; c = genitive} ; + behind_Prep = {s = "detrás" ; c = genitive} ; + between_Prep = justPrep "entre" ; + both_AndConjD = etetConj ; + by8agent_Prep = justPrep "por" ; + by8means_Prep = justPrep "por" ; + can8know_VV = mkVerbVerbDir (verbPres (saber_71 "saber") AHabere) ; + can_VV = mkVerbVerbDir (verbPres (poder_58 "poder") AHabere) ; ---- + during_Prep = justPrep "durante" ; ---- + either8or_ConjD = ououConj ; + everybody_NP = normalNounPhrase (\\c => prepCase c ++ "todos") Masc Pl ; + every_Det = chaqueDet ; + everything_NP = mkNameNounPhrase ["todo"] Masc ; + everywhere_Adv = ss ["en todas partes"] ; + from_Prep = justCase (CPrep P_de) ; + he_NP = pronNounPhrase pronIl ; + how8many_IDet = mkDeterminer plural "cuántos" "cuántas" ; + how_IAdv = commentAdv ; + if_Subj = siSubj ; + in8front_Prep = {s = "delante" ; c = genitive} ; + i_NP = pronNounPhrase pronJe ; + in_Prep = justPrep "en" ; + it_NP = pronNounPhrase pronIl ; + many_Det = mkDeterminer plural "muchos" "muchas" ; + most8many_Det = plupartDet ; + most_Det = mkDeterminer1 singular (["la mayor parte"] ++ elisDe) ; --- de + much_Det = mkDeterminer1 singular "mucho" ; + must_VV = mkVerbVerbDir (verbPres (deber_6 "deber") AHabere) ; ---- + no_Phr = nonPhr ; + on_Prep = justPrep "sobre" ; ---- + or_Conj = ouConj ; + otherwise_Adv = ss "otramente" ; + part_Prep = justCase genitive ; --- + possess_Prep = justCase genitive ; + quite_Adv = ss "bastante" ; + she_NP = pronNounPhrase pronElle ; + so_Adv = ss "tanto" ; ---- + somebody_NP = mkNameNounPhrase ["algún"] Masc ; + some_Det = mkDeterminer singular "algun" "alguna" ; + some_NDet = mkDeterminerNum "algunos" "algunas" ; + something_NP = mkNameNounPhrase ["algo"] Masc ; + somewhere_Adv = ss ["en ninguna parte"] ; + that_Det = mkDeterminer singular "ese" "esa" ; + that_NP = mkNameNounPhrase ["eso"] Masc ; + therefore_Adv = ss ["por eso"] ; + these_NDet = mkDeterminerNum "estos" "estas" ; + they8fem_NP = pronNounPhrase pronElles ; + they_NP = pronNounPhrase pronIls ; + this_Det = mkDeterminer singular "este" "esta" ; + this_NP = mkNameNounPhrase ["esto"] Masc ; + those_NDet = mkDeterminerNum "esos" "esas" ; + thou_NP = pronNounPhrase pronTu ; + through_Prep = justPrep "por" ; + too_Adv = ss "demasiado" ; + to_Prep = justCase dative ; --- + under_Prep = justPrep "bajo" ; + very_Adv = ss "muy" ; + want_VV = mkVerbVerbDir (verbPres (querer_64 "querer") AHabere) ; ---- + we_NP = pronNounPhrase pronNous ; + what8one_IP = intPronWhat singular ; + what8many_IP = intPronWhat plural ; + when_IAdv = quandAdv ; + when_Subj = quandSubj ; + where_IAdv = ouAdv ; + which8many_IDet = mkDeterminerNum "cuales" "cuales" ** {n = Pl} ; + which8one_IDet = quelDet ; + who8one_IP = intPronWho singular ; + who8many_IP = intPronWho plural ; + why_IAdv = pourquoiAdv ; + without_Prep = justPrep "sin" ; + with_Prep = justPrep "con" ; + ye_NP = pronNounPhrase pronVous ; + yes_Phr = ouiPhr ; + you_NP = pronNounPhrase pronVous ; + +} + diff --git a/lib/resource/spanish/SwadeshLexSpa.gf b/lib/resource-0.9/spanish/SwadeshLexSpa.gf similarity index 100% rename from lib/resource/spanish/SwadeshLexSpa.gf rename to lib/resource-0.9/spanish/SwadeshLexSpa.gf diff --git a/lib/resource/spanish/SyntaxSpa.gf b/lib/resource-0.9/spanish/SyntaxSpa.gf similarity index 100% rename from lib/resource/spanish/SyntaxSpa.gf rename to lib/resource-0.9/spanish/SyntaxSpa.gf diff --git a/lib/resource/spanish/TimeSpa.gf b/lib/resource-0.9/spanish/TimeSpa.gf similarity index 100% rename from lib/resource/spanish/TimeSpa.gf rename to lib/resource-0.9/spanish/TimeSpa.gf diff --git a/lib/resource/spanish/TypesSpa.gf b/lib/resource-0.9/spanish/TypesSpa.gf similarity index 100% rename from lib/resource/spanish/TypesSpa.gf rename to lib/resource-0.9/spanish/TypesSpa.gf diff --git a/lib/resource/spanish/fmSpa.gf b/lib/resource-0.9/spanish/fmSpa.gf similarity index 100% rename from lib/resource/spanish/fmSpa.gf rename to lib/resource-0.9/spanish/fmSpa.gf diff --git a/lib/resource/swedish/BasicSwe.gf b/lib/resource-0.9/swedish/BasicSwe.gf similarity index 100% rename from lib/resource/swedish/BasicSwe.gf rename to lib/resource-0.9/swedish/BasicSwe.gf diff --git a/lib/resource/swedish/CategoriesSwe.gf b/lib/resource-0.9/swedish/CategoriesSwe.gf similarity index 100% rename from lib/resource/swedish/CategoriesSwe.gf rename to lib/resource-0.9/swedish/CategoriesSwe.gf diff --git a/lib/resource/swedish/ClauseSwe.gf b/lib/resource-0.9/swedish/ClauseSwe.gf similarity index 100% rename from lib/resource/swedish/ClauseSwe.gf rename to lib/resource-0.9/swedish/ClauseSwe.gf diff --git a/lib/resource/swedish/CountrySwe.gf b/lib/resource-0.9/swedish/CountrySwe.gf similarity index 100% rename from lib/resource/swedish/CountrySwe.gf rename to lib/resource-0.9/swedish/CountrySwe.gf diff --git a/lib/resource/swedish/DemResSwe.gf b/lib/resource-0.9/swedish/DemResSwe.gf similarity index 100% rename from lib/resource/swedish/DemResSwe.gf rename to lib/resource-0.9/swedish/DemResSwe.gf diff --git a/lib/resource/swedish/DemonstrativeSwe.gf b/lib/resource-0.9/swedish/DemonstrativeSwe.gf similarity index 100% rename from lib/resource/swedish/DemonstrativeSwe.gf rename to lib/resource-0.9/swedish/DemonstrativeSwe.gf diff --git a/lib/resource/swedish/LangSatsSwe.gf b/lib/resource-0.9/swedish/LangSatsSwe.gf similarity index 100% rename from lib/resource/swedish/LangSatsSwe.gf rename to lib/resource-0.9/swedish/LangSatsSwe.gf diff --git a/lib/resource-0.9/swedish/LangSwe.gf b/lib/resource-0.9/swedish/LangSwe.gf new file mode 100644 index 000000000..2cdbadb52 --- /dev/null +++ b/lib/resource-0.9/swedish/LangSwe.gf @@ -0,0 +1,23 @@ +--# -path=.:../scandinavian:../abstract:../../prelude + +concrete LangSwe of Lang = + RulesSwe, + ClauseSwe, + StructuralSwe, + BasicSwe, + TimeSwe, + CountrySwe, + MathSwe + + ** open Prelude, ResourceSwe, ParadigmsSwe in { + +lin + AdvDate d = prefixSS "på" d ; + AdvTime t = prefixSS "klockan" t ; + NWeekday w = w ; + PNWeekday w = nounPN w ; + + PNCountry x = x ; + ANationality x = x ; + NLanguage x = x ; +} diff --git a/lib/resource/swedish/MathSwe.gf b/lib/resource-0.9/swedish/MathSwe.gf similarity index 100% rename from lib/resource/swedish/MathSwe.gf rename to lib/resource-0.9/swedish/MathSwe.gf diff --git a/lib/resource-0.9/swedish/MorphoSwe.gf b/lib/resource-0.9/swedish/MorphoSwe.gf new file mode 100644 index 000000000..f79043d1d --- /dev/null +++ b/lib/resource-0.9/swedish/MorphoSwe.gf @@ -0,0 +1,1252 @@ +--1 A Simple Swedish Resource Morphology +-- +-- Aarne Ranta 2002 +-- +-- This resource morphology contains definitions needed in the resource +-- syntax. It moreover contains copies of the most usual inflectional patterns +-- as defined in functional morphology (in the Haskell file $RulesSw.hs$). +-- +-- We use the parameter types and word classes defined for morphology. + +resource MorphoSwe = TypesSwe ** open Prelude in { + +-- Nouns + +oper + mkNoun : (apa,apan,apor,aporna : Str) -> Subst = + \apa,apan,apor,aporna -> + {s = table { + SF Sg Indef c => mkCase c apa ; + SF Sg Def c => mkCase c apan ; + SF Pl Indef c => mkCase c apor ; + SF Pl Def c => mkCase c aporna + } ; + h1 = case last apan of { + "n" => Utr ; + _ => Neutr + } + } ; + + reg2Noun : Str -> Str -> Subst = \bil,bilar -> + let + l = last bil ; + b = Predef.tk 2 bil ; + ar = Predef.dp 2 bilar ; + bile = Predef.tk 2 bilar + in + case ar of { + "or" => case l of { + "a" => decl1Noun bil ; + "r" => sLik bil ; + "o" => mkNoun bil (bil + "n") bilar (bilar + "na") ; + _ => mkNoun bil (bil + "en") bilar (bilar + "na") + } ; + "ar" => ifTok Subst bil bilar + (decl5Noun bil) + (ifTok Subst bile bil + (decl2Noun bil) + (case l of { + "e" => decl2Noun bil ; -- pojke-pojkar + _ => mkNoun bil (bile + "en") bilar (bilar + "na") -- mun-munnar + } + ) + ) ; + "er" => case l of { + "e" => sVarelse (init bil) ; + "å" => sNivå bil ; + _ => mkNoun bil (bil + "en") (bilar) (bilar + "na") + } ; + "en" => ifTok Subst bil bilar (sLik bil) (sRike bil) ; -- ben-ben + _ => ifTok Subst bil bilar ( + case Predef.dp 3 bil of { + "are" => sKikare (init bil) ; + _ => decl5Noun bil + } + ) + (decl5Noun bil) --- rest case with lots of garbage + } ; + +--- this is a very rough heuristic as regards "ar/er" + + regNoun : Str -> Gender -> Subst = \bil,g -> case g of { + Utr => case last bil of { + "a" => decl1Noun bil ; + _ => decl2Noun bil + } ; + Neutr => case last bil of { + "e" => sRike bil ; + _ => decl5Noun bil + } + } ; + + + decl1Noun : Str -> Subst = \apa -> sApa (init apa) ; + + decl2Noun : Str -> Subst = \bil -> + case last bil of { + "e" => sPojke (init bil) ; + "o" | "u" | "y" => mkNoun bil (bil + "n") (bil + "ar") (bil + "arna") ; + _ => mkNoun bil (bil + "en") (bil + "ar") (bil + "arna") + } ; + + decl3Noun : Str -> Subst = \sak -> + case last sak of { + "e" => sVarelse (init sak) ; + "å" => sNivå sak ; + _ => mkNoun sak (sak + "en") (sak + "er") (sak + "erna") + } ; + + decl5Noun : Str -> Subst = \lik -> + mkNoun lik (lik + "et") lik (lik + "en") ; + + +-- Adjectives + + +mkAdjPos : Str -> Str -> Str -> Str -> AdjFormPos -> Str ; +mkAdjPos liten litet lilla sma a = case a of { + Strong gn => case gn of { + ASg Utr => liten ; + ASg Neutr => litet ; + APl => sma + } ; + Weak sn => case sn of { + AxSg NoMasc => lilla ; + AxSg Masc => init lilla + "e" ; + AxPl => sma + } + } ; + +-- The worst-case macro for the full declension (including comparison forms) +-- is not so much worse. + +mkAdjective : Str -> Str -> Str -> Str -> + Str -> Str -> Str -> Adj ; +mkAdjective liten litet lilla sma mindre minst minsta = {s = table { + AF (Posit p) c => mkCase c (mkAdjPos liten litet lilla sma p) ; + AF Compar c => mkCase c mindre ; + AF (Super SupStrong) c => mkCase c minst ; + AF (Super SupWeak) c => mkCase c minsta + } +} ; + +-- It is handy to extract the positive part of a declension only, if +-- the other comparicon forms aren't needed or don't make sense. + +extractPositive : Adj -> {s : AdjFormPos => Case => Str} ; +extractPositive adj = {s = \\a,c => adj.s ! (AF (Posit a) c)} ; + +-- The notion of 'moderately irregular adjective' covers almost all adjectives. + +adjIrreg : (_,_,_,_ : Str) -> Adj ; +adjIrreg god gott battre bast = + mkAdjective god gott (god + "a") (god + "a") battre bast (bast + "a") ; + +-- Often it is possible to derive the $Pos Sg Neutr$ form even if the +-- comparison forms are irregular. + +adjIrreg3 : (_,_,_: Str) -> Adj ; +adjIrreg3 ung yngre yngst = adjIrreg ung (ung + "t") yngre yngst ; + +-- Some adjectives must be given $Pos Sg Utr$ $Pos Sg Neutr$, and $Pos Pl$, +-- e.g. those ending with unstressed "en". + +adjAlmostReg : (_,_,_: Str) -> Adj ; +adjAlmostReg ljummen ljummet ljumma = + mkAdjective ljummen ljummet ljumma ljumma + (ljumma + "re") (ljumma + "st") (ljumma + "ste") ; + +adjReg : Str -> Adj = \fin -> adjAlmostReg fin (fin + "t") (fin + "a") ; + +adj2Reg : Str -> Str -> Adj = \vid,vitt -> adjAlmostReg vid vitt (vid + "a") ; + + +-- Verbs + + mkVerb : (supa,super,sup,söp,supit,supen : Str) -> Verb = + \finna,finner,finn,fann,funnit,funnen -> + let funn = ptPretForms funnen in + {s = table { + VF (Pres Act) => finner ; + VF (Pres Pass) => mkVoice Pass finn ; + VF (Pret v) => mkVoice v fann ; + VF (Imper v) => mkVoice v finn ; + VI (Inf v) => mkVoice v finna ; + VI (Supin v) => mkVoice v funnit ; + VI (PtPret a c) => funn ! a ! c + } ; + s1 = [] + } ; + + vFinna : (_,_,_ : Str) -> Verb = \finn, fann, funn -> + mkVerb (finn + "a") (finn + "er") finn fann (funn + "it") (funn + "en") ; + +-- Now this is more general and subsumes $vFinna$. + + vSälja : (_,_,_ : Str) -> Verb = \sälja, sålde, sålt -> + let + a = last sälja ; + sälj = case a of { + "a" => init sälja ; + _ => sälja + } ; + er = case a of { + "a" => "er" ; + _ => "r" + } ; + såld = case Predef.dp 2 sålt of { + "it" => Predef.tk 2 sålt + "en" ; + "tt" => Predef.tk 2 sålt + "dd" ; + _ => init sålt + "d" + } + in + mkVerb sälja (sälj + er) sälj sålde sålt såld ; + + regVerb : (_,_ : Str) -> Verb = \tala,talade -> + let + ade = Predef.dp 3 talade ; + de = Predef.dp 2 ade ; + tal = Predef.tk 1 tala ; + forms = case ade of { + "ade" => vTala tal ; + "dde" => case last tala of { + "a" => vTyda (init tal) ; + _ => mkVerb tala (tala + "r") tala (tala + "dde") (tala + "tt") (tala + "dd") + } ; + "tte" => vByta (init tal) ; + "nde" => vVända (init tal) ; + "rde" => vHyra tal ; + _ => case de of { + "te" => vLeka tal ; + _ => vGräva tal + } + } + in forms ** {s1 = []} ; + + ptPretForms : Str -> AdjFormPos => Case => Str = \funnen -> \\a,c => + let + funn = Predef.tk 2 funnen ; + en = Predef.dp 2 funnen ; + funne = init funnen ; + n = last funnen ; + m = case last funn of { + "n" => [] ; + _ => "n" + } ; + funna = case en of { + "en" => case a of { + (Strong (ASg Utr)) => funn + "en" ; + (Strong (ASg Neutr)) => funn + "et" ; + (Weak (AxSg Masc)) => funn + m + "e" ; + _ => funn + m + "a" + } ; + "dd" => case a of { + (Strong (ASg Utr)) => funn + "dd" ; + (Strong (ASg Neutr)) => funn + "tt" ; + (Weak (AxSg Masc)) => funn + "dde" ; + _ => funn + "dda" + } ; + "ad" => case a of { + (Strong (ASg Utr)) => funn + "ad" ; + (Strong (ASg Neutr)) => funn + "at" ; + _ => funn + "ade" + } ; + _ => case n of { + "d" => case a of { + (Strong (ASg Utr)) => funne + "d" ; + (Strong (ASg Neutr)) => funne + "t" ; + (Weak (AxSg Masc)) => funne + "de" ; + _ => funne + "da" + } ; + _ => case a of { + (Strong (ASg Utr)) => funne + "t" ; + (Strong (ASg Neutr)) => funne + "t" ; + (Weak (AxSg Masc)) => funne + "te" ; + _ => funne + "ta" + } + } + } + in + mkCase c funna ; + +mkCase : Case -> Str -> Str = \c,f -> case c of { + Nom => f ; + Gen => f + case last f of { + "s" | "x" => [] ; + _ => "s" + } + } ; + +mkVoice : Voice -> Str -> Str = \c,f -> case c of { + Act => f ; + Pass => f + case last f of { + "s" => "es" ; + _ => "s" + } + } ; + +-- The most common is a verb without a particle. + + mkVerbPart : (_,_,_,_,_,_,_ : Str) -> Verb = \supa,super,sup,söp,supit,supen,upp -> + {s = (mkVerb supa super sup söp supit supen).s} ** {s1 = upp} ; + +-- Prepositions are just strings. + Preposition = Str ; + +-- Relative pronouns have a special case system. $RPrep$ is the form used +-- after a preposition (e.g. "det hus i vilket jag bor"). +param + RelCase = RNom | RAcc | RGen | RPrep ; + +oper + relPronForms : RelCase => GenNum => Str = table { + RNom => \\_ => "som" ; + RAcc => \\_ => variants {"som" ; []} ; + RGen => \\_ => "vars" ; + RPrep => pronVilken + } ; + + pronVilken = table { + ASg Utr => "vilken" ; + ASg Neutr => "vilket" ; + APl => "vilka" + } ; + + pronSådan = table { + ASg Utr => "sådan" ; + ASg Neutr => "sådant" ; + APl => "sådana" + } ; + +-- What follows are machine-generated inflection paradigms from functional +-- morphology. Hence they are low-level paradigms, without any +-- abstractions or generalizations: the Haskell code is better in these respects. +-- +-- The variable names are selected in such a way that the paradigms can be read +-- as inflection tables of certain words. + +oper sApa : Str -> Subst = \ap -> + {s = table { + SF Sg Indef Nom => ap + "a" ; + SF Sg Indef Gen => ap + "as" ; + SF Sg Def Nom => ap + "an" ; + SF Sg Def Gen => ap + "ans" ; + SF Pl Indef Nom => ap + "or" ; + SF Pl Indef Gen => ap + "ors" ; + SF Pl Def Nom => ap + "orna" ; + SF Pl Def Gen => ap + "ornas" + } ; + h1 = Utr + } ; + +oper sBil : Str -> Subst = \bil -> + {s = table { + SF Sg Indef Nom => bil ; + SF Sg Indef Gen => bil + "s" ; + SF Sg Def Nom => bil + "en" ; + SF Sg Def Gen => bil + "ens" ; + SF Pl Indef Nom => bil + "ar" ; + SF Pl Indef Gen => bil + "ars" ; + SF Pl Def Nom => bil + "arna" ; + SF Pl Def Gen => bil + "arnas" + } ; + h1 = Utr + } ; + +oper sPojke : Str -> Subst = \pojk -> + {s = table { + SF Sg Indef Nom => pojk + "e" ; + SF Sg Indef Gen => pojk + "es" ; + SF Sg Def Nom => pojk + "en" ; + SF Sg Def Gen => pojk + "ens" ; + SF Pl Indef Nom => pojk + "ar" ; + SF Pl Indef Gen => pojk + "ars" ; + SF Pl Def Nom => pojk + "arna" ; + SF Pl Def Gen => pojk + "arnas" + } ; + h1 = Utr + } ; + +oper sNyckel : Str -> Subst = \nyck -> + {s = table { + SF Sg Indef Nom => nyck + "el" ; + SF Sg Indef Gen => nyck + "els" ; + SF Sg Def Nom => nyck + "eln" ; + SF Sg Def Gen => nyck + "elns" ; + SF Pl Indef Nom => nyck + "lar" ; + SF Pl Indef Gen => nyck + "lars" ; + SF Pl Def Nom => nyck + "larna" ; + SF Pl Def Gen => nyck + "larnas" + } ; + h1 = Utr + } ; + +oper sKam : Str -> Subst = \kam -> + {s = table { + SF Sg Indef Nom => kam ; + SF Sg Indef Gen => kam + "s" ; + SF Sg Def Nom => kam + "men" ; + SF Sg Def Gen => kam + "mens" ; + SF Pl Indef Nom => kam + "mar" ; + SF Pl Indef Gen => kam + "mars" ; + SF Pl Def Nom => kam + "marna" ; + SF Pl Def Gen => kam + "marnas" + } ; + h1 = Utr + } ; + +oper sSak : Str -> Subst = \sak -> + {s = table { + SF Sg Indef Nom => sak ; + SF Sg Indef Gen => sak + "s" ; + SF Sg Def Nom => sak + "en" ; + SF Sg Def Gen => sak + "ens" ; + SF Pl Indef Nom => sak + "er" ; + SF Pl Indef Gen => sak + "ers" ; + SF Pl Def Nom => sak + "erna" ; + SF Pl Def Gen => sak + "ernas" + } ; + h1 = Utr + } ; + +oper sVarelse : Str -> Subst = \varelse -> + {s = table { + SF Sg Indef Nom => varelse ; + SF Sg Indef Gen => varelse + "s" ; + SF Sg Def Nom => varelse + "n" ; + SF Sg Def Gen => varelse + "ns" ; + SF Pl Indef Nom => varelse + "r" ; + SF Pl Indef Gen => varelse + "rs" ; + SF Pl Def Nom => varelse + "rna" ; + SF Pl Def Gen => varelse + "rnas" + } ; + h1 = Utr + } ; + +oper sNivå : Str -> Subst = \nivå -> + {s = table { + SF Sg Indef Nom => nivå ; + SF Sg Indef Gen => nivå + "s" ; + SF Sg Def Nom => nivå + "n" ; + SF Sg Def Gen => nivå + "ns" ; + SF Pl Indef Nom => nivå + "er" ; + SF Pl Indef Gen => nivå + "ers" ; + SF Pl Def Nom => nivå + "erna" ; + SF Pl Def Gen => nivå + "ernas" + } ; + h1 = Utr + } ; + +oper sParti : Str -> Subst = \parti -> + {s = table { + SF Sg Indef Nom => parti ; + SF Sg Indef Gen => parti + "s" ; + SF Sg Def Nom => parti + "et" ; + SF Sg Def Gen => parti + "ets" ; + SF Pl Indef Nom => parti + "er" ; + SF Pl Indef Gen => parti + "ers" ; + SF Pl Def Nom => parti + "erna" ; + SF Pl Def Gen => parti + "ernas" + } ; + h1 = Neutr + } ; + +oper sMuseum : Str -> Subst = \muse -> + {s = table { + SF Sg Indef Nom => muse + "um" ; + SF Sg Indef Gen => muse + "ums" ; + SF Sg Def Nom => muse + "et" ; + SF Sg Def Gen => muse + "ets" ; + SF Pl Indef Nom => muse + "er" ; + SF Pl Indef Gen => muse + "ers" ; + SF Pl Def Nom => muse + "erna" ; + SF Pl Def Gen => muse + "ernas" + } ; + h1 = Neutr + } ; + +oper sRike : Str -> Subst = \rike -> + {s = table { + SF Sg Indef Nom => rike ; + SF Sg Indef Gen => rike + "s" ; + SF Sg Def Nom => rike + "t" ; + SF Sg Def Gen => rike + "ts" ; + SF Pl Indef Nom => rike + "n" ; + SF Pl Indef Gen => rike + "ns" ; + SF Pl Def Nom => rike + "na" ; + SF Pl Def Gen => rike + "nas" + } ; + h1 = Neutr + } ; + +oper sLik : Str -> Subst = \lik -> + {s = table { + SF Sg Indef Nom => lik ; + SF Sg Indef Gen => lik + "s" ; + SF Sg Def Nom => lik + "et" ; + SF Sg Def Gen => lik + "ets" ; + SF Pl Indef Nom => lik ; + SF Pl Indef Gen => lik + "s" ; + SF Pl Def Nom => lik + "en" ; + SF Pl Def Gen => lik + "ens" + } ; + h1 = Neutr + } ; + +oper sRum : Str -> Subst = \rum -> + {s = table { + SF Sg Indef Nom => rum ; + SF Sg Indef Gen => rum + "s" ; + SF Sg Def Nom => rum + "met" ; + SF Sg Def Gen => rum + "mets" ; + SF Pl Indef Nom => rum ; + SF Pl Indef Gen => rum + "s" ; + SF Pl Def Nom => rum + "men" ; + SF Pl Def Gen => rum + "mens" + } ; + h1 = Neutr + } ; + +oper sHus : Str -> Subst = \hus -> + {s = table { + SF Sg Indef Nom => hus ; + SF Sg Indef Gen => hus ; + SF Sg Def Nom => hus + "et" ; + SF Sg Def Gen => hus + "ets" ; + SF Pl Indef Nom => hus ; + SF Pl Indef Gen => hus ; + SF Pl Def Nom => hus + "en" ; + SF Pl Def Gen => hus + "ens" + } ; + h1 = Neutr + } ; + +oper sPapper : Str -> Subst = \papp -> + {s = table { + SF Sg Indef Nom => papp + "er" ; + SF Sg Indef Gen => papp + "ers" ; + SF Sg Def Nom => papp + "ret" ; + SF Sg Def Gen => papp + "rets" ; + SF Pl Indef Nom => papp + "er" ; + SF Pl Indef Gen => papp + "ers" ; + SF Pl Def Nom => papp + "ren" ; + SF Pl Def Gen => papp + "rens" + } ; + h1 = Neutr + } ; + +oper sNummer : Str -> Subst = \num -> + {s = table { + SF Sg Indef Nom => num + "mer" ; + SF Sg Indef Gen => num + "mers" ; + SF Sg Def Nom => num + "ret" ; + SF Sg Def Gen => num + "rets" ; + SF Pl Indef Nom => num + "mer" ; + SF Pl Indef Gen => num + "mers" ; + SF Pl Def Nom => num + "ren" ; + SF Pl Def Gen => num + "rens" + } ; + h1 = Neutr + } ; + +oper sKikare : Str -> Subst = \kikar -> + {s = table { + SF Sg Indef Nom => kikar + "e" ; + SF Sg Indef Gen => kikar + "es" ; + SF Sg Def Nom => kikar + "en" ; + SF Sg Def Gen => kikar + "ens" ; + SF Pl Indef Nom => kikar + "e" ; + SF Pl Indef Gen => kikar + "es" ; + SF Pl Def Nom => kikar + "na" ; + SF Pl Def Gen => kikar + "nas" + } ; + h1 = Utr + } ; + +oper sProgram : Str -> Subst = \program -> + {s = table { + SF Sg Indef Nom => program ; + SF Sg Indef Gen => program + "s" ; + SF Sg Def Nom => program + "met" ; + SF Sg Def Gen => program + "mets" ; + SF Pl Indef Nom => program ; + SF Pl Indef Gen => program + "s" ; + SF Pl Def Nom => program + "men" ; + SF Pl Def Gen => program + "mens" + } ; + h1 = Neutr + } ; + +oper aFin : Str -> Adj = \fin -> + {s = table { + AF (Posit (Strong (ASg Utr))) Nom => fin ; + AF (Posit (Strong (ASg Utr))) Gen => fin + "s" ; + AF (Posit (Strong (ASg Neutr))) Nom => fin + "t" ; + AF (Posit (Strong (ASg Neutr))) Gen => fin + "ts" ; + AF (Posit (Strong APl)) Nom => fin + "a" ; + AF (Posit (Strong APl)) Gen => fin + "as" ; + AF (Posit (Weak (AxSg NoMasc))) Nom => fin + "a" ; + AF (Posit (Weak (AxSg NoMasc))) Gen => fin + "as" ; + AF (Posit (Weak (AxSg Masc))) Nom => fin + "e" ; + AF (Posit (Weak (AxSg Masc))) Gen => fin + "es" ; + AF (Posit (Weak AxPl)) Nom => fin + "a" ; + AF (Posit (Weak AxPl)) Gen => fin + "as" ; + AF Compar Nom => fin + "are" ; + AF Compar Gen => fin + "ares" ; + AF (Super SupStrong) Nom => fin + "ast" ; + AF (Super SupStrong) Gen => fin + "asts" ; + AF (Super SupWeak) Nom => fin + "aste" ; + AF (Super SupWeak) Gen => fin + "astes" + } + } ; + +oper aFager : Str -> Adj = \fag -> + {s = table { + AF (Posit (Strong (ASg Utr))) Nom => fag + "er" ; + AF (Posit (Strong (ASg Utr))) Gen => fag + "ers" ; + AF (Posit (Strong (ASg Neutr))) Nom => fag + "ert" ; + AF (Posit (Strong (ASg Neutr))) Gen => fag + "erts" ; + AF (Posit (Strong APl)) Nom => fag + "era" ; + AF (Posit (Strong APl)) Gen => fag + "eras" ; + AF (Posit (Weak (AxSg NoMasc))) Nom => fag + "era" ; + AF (Posit (Weak (AxSg NoMasc))) Gen => fag + "eras" ; + AF (Posit (Weak (AxSg Masc))) Nom => fag + "ere" ; + AF (Posit (Weak (AxSg Masc))) Gen => fag + "eres" ; + AF (Posit (Weak AxPl)) Nom => fag + "era" ; + AF (Posit (Weak AxPl)) Gen => fag + "eras" ; + AF Compar Nom => fag + "erare" ; + AF Compar Gen => fag + "erares" ; + AF (Super SupStrong) Nom => fag + "erast" ; + AF (Super SupStrong) Gen => fag + "erasts" ; + AF (Super SupWeak) Nom => fag + "eraste" ; + AF (Super SupWeak) Gen => fag + "erastes" + } + } ; + +oper aGrund : Str -> Adj = \grun -> + {s = table { + AF (Posit (Strong (ASg Utr))) Nom => grun + "d" ; + AF (Posit (Strong (ASg Utr))) Gen => grun + "ds" ; + AF (Posit (Strong (ASg Neutr))) Nom => grun + "t" ; + AF (Posit (Strong (ASg Neutr))) Gen => grun + "ts" ; + AF (Posit (Strong APl)) Nom => grun + "da" ; + AF (Posit (Strong APl)) Gen => grun + "das" ; + AF (Posit (Weak (AxSg NoMasc))) Nom => grun + "da" ; + AF (Posit (Weak (AxSg NoMasc))) Gen => grun + "das" ; + AF (Posit (Weak (AxSg Masc))) Nom => grun + "de" ; + AF (Posit (Weak (AxSg Masc))) Gen => grun + "des" ; + AF (Posit (Weak AxPl)) Nom => grun + "da" ; + AF (Posit (Weak AxPl)) Gen => grun + "das" ; + AF Compar Nom => grun + "dare" ; + AF Compar Gen => grun + "dares" ; + AF (Super SupStrong) Nom => grun + "dast" ; + AF (Super SupStrong) Gen => grun + "dasts" ; + AF (Super SupWeak) Nom => grun + "daste" ; + AF (Super SupWeak) Gen => grun + "dastes" + } + } ; + +oper aVid : Str -> Adj = \vi -> + {s = table { + AF (Posit (Strong (ASg Utr))) Nom => vi + "d" ; + AF (Posit (Strong (ASg Utr))) Gen => vi + "ds" ; + AF (Posit (Strong (ASg Neutr))) Nom => vi + "tt" ; + AF (Posit (Strong (ASg Neutr))) Gen => vi + "tts" ; + AF (Posit (Strong APl)) Nom => vi + "da" ; + AF (Posit (Strong APl)) Gen => vi + "das" ; + AF (Posit (Weak (AxSg NoMasc))) Nom => vi + "da" ; + AF (Posit (Weak (AxSg NoMasc))) Gen => vi + "das" ; + AF (Posit (Weak (AxSg Masc))) Nom => vi + "de" ; + AF (Posit (Weak (AxSg Masc))) Gen => vi + "des" ; + AF (Posit (Weak AxPl)) Nom => vi + "da" ; + AF (Posit (Weak AxPl)) Gen => vi + "das" ; + AF Compar Nom => vi + "dare" ; + AF Compar Gen => vi + "dares" ; + AF (Super SupStrong) Nom => vi + "dast" ; + AF (Super SupStrong) Gen => vi + "dasts" ; + AF (Super SupWeak) Nom => vi + "daste" ; + AF (Super SupWeak) Gen => vi + "dastes" + } + } ; + +oper aVaken : Str -> Adj = \vak -> + {s = table { + AF (Posit (Strong (ASg Utr))) Nom => vak + "en" ; + AF (Posit (Strong (ASg Utr))) Gen => vak + "ens" ; + AF (Posit (Strong (ASg Neutr))) Nom => vak + "et" ; + AF (Posit (Strong (ASg Neutr))) Gen => vak + "ets" ; + AF (Posit (Strong APl)) Nom => vak + "na" ; + AF (Posit (Strong APl)) Gen => vak + "nas" ; + AF (Posit (Weak (AxSg NoMasc))) Nom => vak + "na" ; + AF (Posit (Weak (AxSg NoMasc))) Gen => vak + "nas" ; + AF (Posit (Weak (AxSg Masc))) Nom => vak + "ne" ; + AF (Posit (Weak (AxSg Masc))) Gen => vak + "nes" ; + AF (Posit (Weak AxPl)) Nom => vak + "na" ; + AF (Posit (Weak AxPl)) Gen => vak + "nas" ; + AF Compar Nom => vak + "nare" ; + AF Compar Gen => vak + "nares" ; + AF (Super SupStrong) Nom => vak + "nast" ; + AF (Super SupStrong) Gen => vak + "nasts" ; + AF (Super SupWeak) Nom => vak + "naste" ; + AF (Super SupWeak) Gen => vak + "nastes" + } + } ; + +oper aKorkad : Str -> Adj = \korka -> + {s = table { + AF (Posit (Strong (ASg Utr))) Nom => korka + "d" ; + AF (Posit (Strong (ASg Utr))) Gen => korka + "ds" ; + AF (Posit (Strong (ASg Neutr))) Nom => korka + "t" ; + AF (Posit (Strong (ASg Neutr))) Gen => korka + "ts" ; + AF (Posit (Strong APl)) Nom => korka + "de" ; + AF (Posit (Strong APl)) Gen => korka + "des" ; + AF (Posit (Weak (AxSg NoMasc))) Nom => korka + "de" ; + AF (Posit (Weak (AxSg NoMasc))) Gen => korka + "des" ; + AF (Posit (Weak (AxSg Masc))) Nom => korka + "de" ; + AF (Posit (Weak (AxSg Masc))) Gen => korka + "des" ; + AF (Posit (Weak AxPl)) Nom => korka + "de" ; + AF (Posit (Weak AxPl)) Gen => korka + "des" ; + AF Compar Nom => variants {} ; + AF Compar Gen => variants {} ; + AF (Super SupStrong) Nom => variants {} ; + AF (Super SupStrong) Gen => variants {} ; + AF (Super SupWeak) Nom => variants {} ; + AF (Super SupWeak) Gen => variants {} + } + } ; + +oper aAbstrakt : Str -> Adj = \abstrakt -> + {s = table { + AF (Posit (Strong (ASg Utr))) Nom => abstrakt ; + AF (Posit (Strong (ASg Utr))) Gen => abstrakt + "s" ; + AF (Posit (Strong (ASg Neutr))) Nom => abstrakt ; + AF (Posit (Strong (ASg Neutr))) Gen => abstrakt + "s" ; + AF (Posit (Strong APl)) Nom => abstrakt + "a" ; + AF (Posit (Strong APl)) Gen => abstrakt + "as" ; + AF (Posit (Weak (AxSg NoMasc))) Nom => abstrakt + "a" ; + AF (Posit (Weak (AxSg NoMasc))) Gen => abstrakt + "as" ; + AF (Posit (Weak (AxSg Masc))) Nom => abstrakt + "e" ; + AF (Posit (Weak (AxSg Masc))) Gen => abstrakt + "es" ; + AF (Posit (Weak AxPl)) Nom => abstrakt + "a" ; + AF (Posit (Weak AxPl)) Gen => abstrakt + "as" ; + AF Compar Nom => abstrakt + "are" ; + AF Compar Gen => abstrakt + "ares" ; + AF (Super SupStrong) Nom => abstrakt + "ast" ; + AF (Super SupStrong) Gen => abstrakt + "asts" ; + AF (Super SupWeak) Nom => abstrakt + "aste" ; + AF (Super SupWeak) Gen => abstrakt + "astes" + } + } ; + +oper vTala : Str -> Verbum = \tal -> + {s = table { + VF (Pres Act) => tal + "ar" ; + VF (Pres Pass) => tal + "as" ; + VF (Pret Act) => tal + "ade" ; + VF (Pret Pass) => tal + "ades" ; + VF (Imper Act) => tal + "a" ; + VF (Imper Pass) => tal + "as" ; + VI (Inf Act) => tal + "a" ; + VI (Inf Pass) => tal + "as" ; + VI (Supin Act) => tal + "at" ; + VI (Supin Pass) => tal + "ats" ; + VI (PtPret (Strong (ASg Utr)) Nom) => tal + "ad" ; + VI (PtPret (Strong (ASg Utr)) Gen) => tal + "ads" ; + VI (PtPret (Strong (ASg Neutr)) Nom) => tal + "at" ; + VI (PtPret (Strong (ASg Neutr)) Gen) => tal + "ats" ; + VI (PtPret (Strong APl) Nom) => tal + "ade" ; + VI (PtPret (Strong APl) Gen) => tal + "ades" ; + VI (PtPret (Weak (AxSg NoMasc)) Nom) => tal + "ade" ; + VI (PtPret (Weak (AxSg NoMasc)) Gen) => tal + "ades" ; + VI (PtPret (Weak (AxSg Masc)) Nom) => tal + "ade" ; + VI (PtPret (Weak (AxSg Masc)) Gen) => tal + "ades" ; + VI (PtPret (Weak AxPl) Nom) => tal + "ade" ; + VI (PtPret (Weak AxPl) Gen) => tal + "ades" + } + } ; + +oper vLeka : Str -> Verbum = \lek -> + {s = table { + VF (Pres Act) => lek + "er" ; + VF (Pres Pass) => mkVoice Pass lek ; + VF (Pret Act) => lek + "te" ; + VF (Pret Pass) => lek + "tes" ; + VF (Imper v) => mkVoice v lek ; + VI (Inf Act) => lek + "a" ; + VI (Inf Pass) => lek + "as" ; + VI (Supin Act) => lek + "t" ; + VI (Supin Pass) => lek + "ts" ; + VI (PtPret (Strong (ASg Utr)) Nom) => lek + "t" ; + VI (PtPret (Strong (ASg Utr)) Gen) => lek + "ts" ; + VI (PtPret (Strong (ASg Neutr)) Nom) => lek + "t" ; + VI (PtPret (Strong (ASg Neutr)) Gen) => lek + "ts" ; + VI (PtPret (Strong APl) Nom) => lek + "ta" ; + VI (PtPret (Strong APl) Gen) => lek + "tas" ; + VI (PtPret (Weak (AxSg NoMasc)) Nom) => lek + "ta" ; + VI (PtPret (Weak (AxSg NoMasc)) Gen) => lek + "tas" ; + VI (PtPret (Weak (AxSg Masc)) Nom) => lek + "te" ; + VI (PtPret (Weak (AxSg Masc)) Gen) => lek + "tes" ; + VI (PtPret (Weak AxPl) Nom) => lek + "ta" ; + VI (PtPret (Weak AxPl) Gen) => lek + "tas" + } + } ; + +oper vGräva : Str -> Verbum = \gräv -> + {s = table { + VF (Pres Act) => gräv + "er" ; + VF (Pres Pass) => mkVoice Pass gräv ; + VF (Pret Act) => gräv + "de" ; + VF (Pret Pass) => gräv + "des" ; + VF (Imper v) => mkVoice v gräv ; + VI (Inf Act) => gräv + "a" ; + VI (Inf Pass) => gräv + "as" ; + VI (Supin Act) => gräv + "t" ; + VI (Supin Pass) => gräv + "ts" ; + VI (PtPret (Strong (ASg Utr)) Nom) => gräv + "d" ; + VI (PtPret (Strong (ASg Utr)) Gen) => gräv + "ds" ; + VI (PtPret (Strong (ASg Neutr)) Nom) => gräv + "t" ; + VI (PtPret (Strong (ASg Neutr)) Gen) => gräv + "ts" ; + VI (PtPret (Strong APl) Nom) => gräv + "da" ; + VI (PtPret (Strong APl) Gen) => gräv + "das" ; + VI (PtPret (Weak (AxSg NoMasc)) Nom) => gräv + "da" ; + VI (PtPret (Weak (AxSg NoMasc)) Gen) => gräv + "das" ; + VI (PtPret (Weak (AxSg Masc)) Nom) => gräv + "de" ; + VI (PtPret (Weak (AxSg Masc)) Gen) => gräv + "des" ; + VI (PtPret (Weak AxPl) Nom) => gräv + "da" ; + VI (PtPret (Weak AxPl) Gen) => gräv + "das" + } + } ; + +oper vTyda : Str -> Verbum = \ty -> + {s = table { + VF (Pres Act) => ty + "der" ; + VF (Pres Pass) => variants {ty + "ds" ; ty + "des"} ; + VF (Pret Act) => ty + "dde" ; + VF (Pret Pass) => ty + "ddes" ; + VF (Imper Act) => ty + "d" ; + VF (Imper Pass) => ty + "ds" ; + VI (Inf Act) => ty + "da" ; + VI (Inf Pass) => ty + "das" ; + VI (Supin Act) => ty + "tt" ; + VI (Supin Pass) => ty + "tts" ; + VI (PtPret (Strong (ASg Utr)) Nom) => ty + "dd" ; + VI (PtPret (Strong (ASg Utr)) Gen) => ty + "dds" ; + VI (PtPret (Strong (ASg Neutr)) Nom) => ty + "tt" ; + VI (PtPret (Strong (ASg Neutr)) Gen) => ty + "tts" ; + VI (PtPret (Strong APl) Nom) => ty + "dda" ; + VI (PtPret (Strong APl) Gen) => ty + "ddas" ; + VI (PtPret (Weak (AxSg NoMasc)) Nom) => ty + "dda" ; + VI (PtPret (Weak (AxSg NoMasc)) Gen) => ty + "ddas" ; + VI (PtPret (Weak (AxSg Masc)) Nom) => ty + "dde" ; + VI (PtPret (Weak (AxSg Masc)) Gen) => ty + "ddes" ; + VI (PtPret (Weak AxPl) Nom) => ty + "dda" ; + VI (PtPret (Weak AxPl) Gen) => ty + "ddas" + } + } ; + +oper vVända : Str -> Verbum = \vän -> + {s = table { + VF (Pres Act) => vän + "der" ; + VF (Pres Pass) => variants {vän + "ds" ; vän + "des"} ; + VF (Pret Act) => vän + "de" ; + VF (Pret Pass) => vän + "des" ; + VF (Imper Act) => vän + "d" ; + VF (Imper Pass) => vän + "ds" ; + VI (Inf Act) => vän + "da" ; + VI (Inf Pass) => vän + "das" ; + VI (Supin Act) => vän + "t" ; + VI (Supin Pass) => vän + "ts" ; + VI (PtPret (Strong (ASg Utr)) Nom) => vän + "d" ; + VI (PtPret (Strong (ASg Utr)) Gen) => vän + "ds" ; + VI (PtPret (Strong (ASg Neutr)) Nom) => vän + "t" ; + VI (PtPret (Strong (ASg Neutr)) Gen) => vän + "ts" ; + VI (PtPret (Strong APl) Nom) => vän + "da" ; + VI (PtPret (Strong APl) Gen) => vän + "das" ; + VI (PtPret (Weak (AxSg NoMasc)) Nom) => vän + "da" ; + VI (PtPret (Weak (AxSg NoMasc)) Gen) => vän + "das" ; + VI (PtPret (Weak (AxSg Masc)) Nom) => vän + "de" ; + VI (PtPret (Weak (AxSg Masc)) Gen) => vän + "des" ; + VI (PtPret (Weak AxPl) Nom) => vän + "da" ; + VI (PtPret (Weak AxPl) Gen) => vän + "das" + } + } ; + +oper vByta : Str -> Verbum = \by -> + {s = table { + VF (Pres Act) => by + "ter" ; + VF (Pres Pass) => variants {by + "ts" ; by + "tes"} ; + VF (Pret Act) => by + "tte" ; + VF (Pret Pass) => by + "ttes" ; + VF (Imper Act) => by + "t" ; + VF (Imper Pass) => by + "ts" ; + VI (Inf Act) => by + "ta" ; + VI (Inf Pass) => by + "tas" ; + VI (Supin Act) => by + "tt" ; + VI (Supin Pass) => by + "tts" ; + VI (PtPret (Strong (ASg Utr)) Nom) => by + "tt" ; + VI (PtPret (Strong (ASg Utr)) Gen) => by + "tts" ; + VI (PtPret (Strong (ASg Neutr)) Nom) => by + "tt" ; + VI (PtPret (Strong (ASg Neutr)) Gen) => by + "tts" ; + VI (PtPret (Strong APl) Nom) => by + "tta" ; + VI (PtPret (Strong APl) Gen) => by + "ttas" ; + VI (PtPret (Weak (AxSg NoMasc)) Nom) => by + "tta" ; + VI (PtPret (Weak (AxSg NoMasc)) Gen) => by + "ttas" ; + VI (PtPret (Weak (AxSg Masc)) Nom) => by + "tte" ; + VI (PtPret (Weak (AxSg Masc)) Gen) => by + "ttes" ; + VI (PtPret (Weak AxPl) Nom) => by + "tta" ; + VI (PtPret (Weak AxPl) Gen) => by + "ttas" + } + } ; + +oper vHyra : Str -> Verbum = \hyr -> + {s = table { + VF (Pres Act) => hyr ; + VF (Pres Pass) => variants {hyr + "s" ; hyr + "es"} ; + VF (Pret Act) => hyr + "de" ; + VF (Pret Pass) => hyr + "des" ; + VF (Imper Act) => hyr ; + VF (Imper Pass) => hyr + "s" ; + VI (Inf Act) => hyr + "a" ; + VI (Inf Pass) => hyr + "as" ; + VI (Supin Act) => hyr + "t" ; + VI (Supin Pass) => hyr + "ts" ; + VI (PtPret (Strong (ASg Utr)) Nom) => hyr + "d" ; + VI (PtPret (Strong (ASg Utr)) Gen) => hyr + "ds" ; + VI (PtPret (Strong (ASg Neutr)) Nom) => hyr + "t" ; + VI (PtPret (Strong (ASg Neutr)) Gen) => hyr + "ts" ; + VI (PtPret (Strong APl) Nom) => hyr + "da" ; + VI (PtPret (Strong APl) Gen) => hyr + "das" ; + VI (PtPret (Weak (AxSg NoMasc)) Nom) => hyr + "da" ; + VI (PtPret (Weak (AxSg NoMasc)) Gen) => hyr + "das" ; + VI (PtPret (Weak (AxSg Masc)) Nom) => hyr + "de" ; + VI (PtPret (Weak (AxSg Masc)) Gen) => hyr + "des" ; + VI (PtPret (Weak AxPl) Nom) => hyr + "da" ; + VI (PtPret (Weak AxPl) Gen) => hyr + "das" + } + } ; + +-- machine-generated exceptional inflection tables from rules.Swe.gf + +oper mor_1 : Subst = + {s = table { + SF Sg Indef Nom => variants {"mor" ; "moder"} ; + SF Sg Indef Gen => variants {"mors" ; "moders"} ; + SF Sg Def Nom => "modern" ; + SF Sg Def Gen => "moderns" ; + SF Pl Indef Nom => "mödrar" ; + SF Pl Indef Gen => "mödrars" ; + SF Pl Def Nom => "mödrarna" ; + SF Pl Def Gen => "mödrarnas" + } ; + h1 = Utr + } ; + +oper farbror_8 : Subst = + {s = table { + SF Sg Indef Nom => variants {"farbror" ; "farbroder"} ; + SF Sg Indef Gen => variants {"farbrors" ; "farbroders"} ; + SF Sg Def Nom => "farbrodern" ; + SF Sg Def Gen => "farbroderns" ; + SF Pl Indef Nom => "farbröder" ; + SF Pl Indef Gen => "farbröders" ; + SF Pl Def Nom => "farbröderna" ; + SF Pl Def Gen => "farbrödernas" + } ; + h1 = Utr + } ; + +oper gammal_16 : Adj = + {s = table { + AF (Posit (Strong (ASg Utr))) Nom => "gammal" ; + AF (Posit (Strong (ASg Utr))) Gen => "gammals" ; + AF (Posit (Strong (ASg Neutr))) Nom => "gammalt" ; + AF (Posit (Strong (ASg Neutr))) Gen => "gammalts" ; + AF (Posit (Strong APl)) Nom => "gamla" ; + AF (Posit (Strong APl)) Gen => "gamlas" ; + AF (Posit (Weak (AxSg NoMasc))) Nom => "gamla" ; + AF (Posit (Weak (AxSg NoMasc))) Gen => "gamlas" ; + AF (Posit (Weak (AxSg Masc))) Nom => "gamle" ; + AF (Posit (Weak (AxSg Masc))) Gen => "gamles" ; + AF (Posit (Weak AxPl)) Nom => "gamla" ; + AF (Posit (Weak AxPl)) Gen => "gamlas" ; + AF Compar Nom => "äldre" ; + AF Compar Gen => "äldres" ; + AF (Super SupStrong) Nom => "äldst" ; + AF (Super SupStrong) Gen => "äldsts" ; + AF (Super SupWeak) Nom => "äldsta" ; + AF (Super SupWeak) Gen => "äldstas" + } + } ; + + +oper stor_25 : Adj = + {s = table { + AF (Posit (Strong (ASg Utr))) Nom => "stor" ; + AF (Posit (Strong (ASg Utr))) Gen => "stors" ; + AF (Posit (Strong (ASg Neutr))) Nom => "stort" ; + AF (Posit (Strong (ASg Neutr))) Gen => "storts" ; + AF (Posit (Strong APl)) Nom => "stora" ; + AF (Posit (Strong APl)) Gen => "storas" ; + AF (Posit (Weak (AxSg NoMasc))) Nom => "stora" ; + AF (Posit (Weak (AxSg NoMasc))) Gen => "storas" ; + AF (Posit (Weak (AxSg Masc))) Nom => "store" ; + AF (Posit (Weak (AxSg Masc))) Gen => "stores" ; + AF (Posit (Weak AxPl)) Nom => "stora" ; + AF (Posit (Weak AxPl)) Gen => "storas" ; + AF Compar Nom => "större" ; + AF Compar Gen => "störres" ; + AF (Super SupStrong) Nom => "störst" ; + AF (Super SupStrong) Gen => "störsts" ; + AF (Super SupWeak) Nom => "största" ; + AF (Super SupWeak) Gen => "störstas" + } + } ; + +oper ung_29 : Adj = + {s = table { + AF (Posit (Strong (ASg Utr))) Nom => "ung" ; + AF (Posit (Strong (ASg Utr))) Gen => "ungs" ; + AF (Posit (Strong (ASg Neutr))) Nom => "ungt" ; + AF (Posit (Strong (ASg Neutr))) Gen => "ungts" ; + AF (Posit (Strong APl)) Nom => "unga" ; + AF (Posit (Strong APl)) Gen => "ungas" ; + AF (Posit (Weak (AxSg NoMasc))) Nom => "unga" ; + AF (Posit (Weak (AxSg NoMasc))) Gen => "ungas" ; + AF (Posit (Weak (AxSg Masc))) Nom => "unge" ; + AF (Posit (Weak (AxSg Masc))) Gen => "unges" ; + AF (Posit (Weak AxPl)) Nom => "unga" ; + AF (Posit (Weak AxPl)) Gen => "ungas" ; + AF Compar Nom => "yngre" ; + AF Compar Gen => "yngres" ; + AF (Super SupStrong) Nom => "yngst" ; + AF (Super SupStrong) Gen => "yngsts" ; + AF (Super SupWeak) Nom => "yngsta" ; + AF (Super SupWeak) Gen => "yngstas" + } + } ; + + +oper jag_32 : ProPN = + {s = table { + PNom => "jag" ; + PAcc => "mig" ; + PGen (ASg Utr) => "min" ; + PGen (ASg Neutr) => "mitt" ; + PGen APl => "mina" + } ; + h1 = Utr ; + h2 = Sg ; + h3 = P1 + } ; + +oper du_33 : ProPN = + {s = table { + PNom => "du" ; + PAcc => "dig" ; + PGen (ASg Utr) => "din" ; + PGen (ASg Neutr) => "ditt" ; + PGen APl => "dina" + } ; + h1 = Utr ; + h2 = Sg ; + h3 = P2 + } ; + +oper han_34 : ProPN = + {s = table { + PNom => "han" ; + PAcc => "honom" ; + PGen (ASg Utr) => "hans" ; + PGen (ASg Neutr) => "hans" ; + PGen APl => "hans" + } ; + h1 = Utr ; + h2 = Sg ; + h3 = P3 + } ; + +oper hon_35 : ProPN = + {s = table { + PNom => "hon" ; + PAcc => "henne" ; + PGen (ASg Utr) => "hennes" ; + PGen (ASg Neutr) => "hennes" ; + PGen APl => "hennes" + } ; + h1 = Utr ; + h2 = Sg ; + h3 = P3 + } ; + +oper vi_36 : ProPN = + {s = table { + PNom => "vi" ; + PAcc => "oss" ; + PGen (ASg Utr) => "vår" ; + PGen (ASg Neutr) => "vårt" ; + PGen APl => "våra" + } ; + h1 = Utr ; + h2 = Pl ; + h3 = P1 + } ; + +oper ni_37 : ProPN = + {s = table { + PNom => "ni" ; + PAcc => "er" ; + PGen (ASg Utr) => "er" ; + PGen (ASg Neutr) => "ert" ; + PGen APl => "era" + } ; + h1 = Utr ; + h2 = Pl ; + h3 = P2 + } ; + +oper de_38 : ProPN = + {s = table { + PNom => "de" ; + PAcc => "dem" ; + PGen (ASg Utr) => "deras" ; + PGen (ASg Neutr) => "deras" ; + PGen APl => "deras" + } ; + h1 = Utr ; + h2 = Pl ; + h3 = P3 + } ; + +oper den_39 : ProPN = + {s = table { + PNom => "den" ; + PAcc => "den" ; + PGen (ASg Utr) => "dess" ; + PGen (ASg Neutr) => "dess" ; + PGen APl => "dess" + } ; + h1 = Utr ; + h2 = Sg ; + h3 = P3 + } ; + +oper det_40 : ProPN = + {s = table { + PNom => "det" ; + PAcc => "det" ; + PGen (ASg Utr) => "dess" ; + PGen (ASg Neutr) => "dess" ; + PGen APl => "dess" + } ; + h1 = Neutr ; + h2 = Sg ; + h3 = P3 + } ; + +oper man_1144 : Subst = + {s = table { + SF Sg Indef Nom => "man" ; + SF Sg Indef Gen => "mans" ; + SF Sg Def Nom => "mannen" ; + SF Sg Def Gen => "mannens" ; + SF Pl Indef Nom => "män" ; + SF Pl Indef Gen => "mäns" ; + SF Pl Def Nom => "männen" ; + SF Pl Def Gen => "männens" + } ; + h1 = Utr + } ; + +oper liten_1146 : Adj = + {s = table { + AF (Posit (Strong (ASg Utr))) Nom => "liten" ; + AF (Posit (Strong (ASg Utr))) Gen => "litens" ; + AF (Posit (Strong (ASg Neutr))) Nom => "litet" ; + AF (Posit (Strong (ASg Neutr))) Gen => "litets" ; + AF (Posit (Strong APl)) Nom => "små" ; + AF (Posit (Strong APl)) Gen => "smås" ; + AF (Posit (Weak (AxSg NoMasc))) Nom => "lilla" ; + AF (Posit (Weak (AxSg NoMasc))) Gen => "lillas" ; + AF (Posit (Weak (AxSg Masc))) Nom => "lille" ; + AF (Posit (Weak (AxSg Masc))) Gen => "lilles" ; + AF (Posit (Weak AxPl)) Nom => "små" ; + AF (Posit (Weak AxPl)) Gen => "smås" ; + AF Compar Nom => "mindre" ; + AF Compar Gen => "mindres" ; + AF (Super SupStrong) Nom => "minst" ; + AF (Super SupStrong) Gen => "minsts" ; + AF (Super SupWeak) Nom => "minsta" ; + AF (Super SupWeak) Gen => "minstas" + } + } ; + +oper hava_1198 : Verbum = + {s = table { + VF (Pres Act) => "har" ; + VF (Pres Pass) => "has" ; + VF (Pret Act) => "hade" ; + VF (Pret Pass) => "hades" ; + VF (Imper Act) => "ha" ; + VF (Imper Pass) => "has" ; + VI (Inf Act) => "ha" ; + VI (Inf Pass) => "has" ; + VI (Supin Act) => "haft" ; + VI (Supin Pass) => "hafts" ; + VI (PtPret (Strong (ASg Utr)) Nom) => variants {} ; + VI (PtPret (Strong (ASg Utr)) Gen) => variants {} ; + VI (PtPret (Strong (ASg Neutr)) Nom) => variants {} ; + VI (PtPret (Strong (ASg Neutr)) Gen) => variants {} ; + VI (PtPret (Strong APl) Nom) => variants {} ; + VI (PtPret (Strong APl) Gen) => variants {} ; + VI (PtPret (Weak (AxSg NoMasc)) Nom) => variants {} ; + VI (PtPret (Weak (AxSg NoMasc)) Gen) => variants {} ; + VI (PtPret (Weak (AxSg Masc)) Nom) => variants {} ; + VI (PtPret (Weak (AxSg Masc)) Gen) => variants {} ; + VI (PtPret (Weak AxPl) Nom) => variants {} ; + VI (PtPret (Weak AxPl) Gen) => variants {} + } + } ; + +oper vara_1200 : Verbum = + {s = table { + VF (Pres Act) => "är" ; + VF (Pres Pass) => variants {} ; + VF (Pret Act) => "var" ; + VF (Pret Pass) => variants {} ; + VF (Imper _) => "var" ; + VI (Inf Act) => "vara" ; + VI (Inf Pass) => variants {} ; + VI (Supin Act) => "varit" ; + VI (Supin Pass) => variants {} ; + VI (PtPret (Strong (ASg Utr)) Nom) => variants {} ; + VI (PtPret (Strong (ASg Utr)) Gen) => variants {} ; + VI (PtPret (Strong (ASg Neutr)) Nom) => variants {} ; + VI (PtPret (Strong (ASg Neutr)) Gen) => variants {} ; + VI (PtPret (Strong APl) Nom) => variants {} ; + VI (PtPret (Strong APl) Gen) => variants {} ; + VI (PtPret (Weak (AxSg NoMasc)) Nom) => variants {} ; + VI (PtPret (Weak (AxSg NoMasc)) Gen) => variants {} ; + VI (PtPret (Weak (AxSg Masc)) Nom) => variants {} ; + VI (PtPret (Weak (AxSg Masc)) Gen) => variants {} ; + VI (PtPret (Weak AxPl) Nom) => variants {} ; + VI (PtPret (Weak AxPl) Gen) => variants {} + } + } ; + +-- for Numerals + +param DForm = ental | ton | tiotal ; + +oper + LinDigit = {s : DForm => Str} ; + + mkTal : Str -> Str -> Str -> LinDigit = \två, tolv, tjugo -> + {s = table {ental => två ; ton => tolv ; tiotal => tjugo}} ; + + regTal : Str -> LinDigit = \fem -> + mkTal fem (fem + "ton") (fem + "tio") ; + + numPl : Str -> {s : Gender => Str ; n : Number} = \n -> + {s = \\_ => n ; n = Pl} ; + +} diff --git a/lib/resource/swedish/MultimodalSwe.gf b/lib/resource-0.9/swedish/MultimodalSwe.gf similarity index 100% rename from lib/resource/swedish/MultimodalSwe.gf rename to lib/resource-0.9/swedish/MultimodalSwe.gf diff --git a/lib/resource/swedish/NumeralsSwe.gf b/lib/resource-0.9/swedish/NumeralsSwe.gf similarity index 100% rename from lib/resource/swedish/NumeralsSwe.gf rename to lib/resource-0.9/swedish/NumeralsSwe.gf diff --git a/lib/resource/swedish/OldParadigmsSwe.gf b/lib/resource-0.9/swedish/OldParadigmsSwe.gf similarity index 100% rename from lib/resource/swedish/OldParadigmsSwe.gf rename to lib/resource-0.9/swedish/OldParadigmsSwe.gf diff --git a/lib/resource-0.9/swedish/ParadigmsSwe.gf b/lib/resource-0.9/swedish/ParadigmsSwe.gf new file mode 100644 index 000000000..41afd5727 --- /dev/null +++ b/lib/resource-0.9/swedish/ParadigmsSwe.gf @@ -0,0 +1,356 @@ +--# -path=.:../scandinavian:../abstract:../../prelude + +--1 Swedish Lexical Paradigms +-- +-- Aarne Ranta 2003 +-- +-- This is an API to the user of the resource grammar +-- for adding lexical items. It gives functions for forming +-- expressions of open categories: nouns, adjectives, verbs. +-- +-- Closed categories (determiners, pronouns, conjunctions) are +-- accessed through the resource syntax API, $Structural.gf$. +-- +-- The main difference with $MorphoEng.gf$ is that the types +-- referred to are compiled resource grammar types. We have moreover +-- had the design principle of always having existing forms, rather +-- than stems, as string arguments of the paradigms. +-- +-- The structure of functions for each word class $C$ is the following: +-- first we give a handful of patterns that aim to cover all +-- regular cases. Then we give a worst-case function $mkC$, which serves as an +-- escape to construct the most irregular words of type $C$. +-- However, this function should only seldom be needed: we have a +-- separate module $IrregularEng$, which covers all irregularly inflected +-- words. +-- +-- The following modules are presupposed: + +resource ParadigmsSwe = + open (Predef=Predef), Prelude, TypesSwe, MorphoSwe, SyntaxSwe, CategoriesSwe in { + +--2 Parameters +-- +-- To abstract over gender names, we define the following identifiers. + +oper + Gender : Type ; + + utrum : Gender ; + neutrum : Gender ; + +-- To abstract over number names, we define the following. + + Number : Type ; + + singular : Number ; + plural : Number ; + +-- To abstract over case names, we define the following. + + Case : Type ; + + nominative : Case ; + genitive : Case ; + +-- Prepositions used in many-argument functions are just strings. + + Preposition : Type = Str ; + +--2 Nouns + +-- Worst case: give all four forms. The gender is computed from the +-- last letter of the second form (if "n", then $utrum$, otherwise $neutrum$). + + mkN : (apa,apan,apor,aporna : Str) -> N ; + +-- The regular function takes the singular indefinite form and the gender, +-- and computes the other forms by a heuristic. +-- If in doubt, use the $cc$ command to test! + + regN : Str -> Gender -> N ; + +-- In practice the worst case is often just: give singular and plural indefinite. + + mk2N : (nyckel,nycklar : Str) -> N ; + +-- All nouns created by the previous functions are marked as +-- $nonmasculine$. If you want a $masculine$ noun, wrap it with the following +-- function: + + mascN : N -> N ; + +--3 Compound nouns +-- +-- All the functions above work quite as well to form compound nouns, +-- such as "fotboll". + + +--3 Relational nouns +-- +-- Relational nouns ("daughter of x") need a preposition. + + mkN2 : N -> Preposition -> N2 ; + +-- The most common preposition is "av", and the following is a +-- shortcut for regular, $nonhuman$ relational nouns with "av". + + regN2 : Str -> Gender -> N2 ; + +-- Use the function $mkPreposition$ or see the section on prepositions below to +-- form other prepositions. +-- +-- Three-place relational nouns ("the connection from x to y") need two prepositions. + + mkN3 : N -> Preposition -> Preposition -> N3 ; + + +--3 Relational common noun phrases +-- +-- In some cases, you may want to make a complex $CN$ into a +-- relational noun (e.g. "the old town hall of"). However, $N2$ and +-- $N3$ are purely lexical categories. But you can use the $AdvCN$ +-- and $PrepNP$ constructions to build phrases like this. + +-- +--3 Proper names and noun phrases +-- +-- Proper names, with a regular genitive, are formed as follows + + regPN : Str -> Gender -> PN ; -- John, John's + +-- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". + + nounPN : N -> PN ; + +-- To form a noun phrase that can also be plural and have an irregular +-- genitive, you can use the worst-case function. + + mkNP : Str -> Str -> Number -> Gender -> NP ; + +--2 Adjectives + +-- Non-comparison one-place adjectives need for forms: + + mkA : (galen,galet,galna : Str) -> A ; + +-- For regular adjectives, the other forms are derived. + + regA : Str -> A ; + +-- In practice, two forms are enough. + + mk2A : (bred,brett : Str) -> A ; + +--3 Two-place adjectives +-- +-- Two-place adjectives need a preposition for their second argument. + + mkA2 : A -> Preposition -> A2 ; + +-- Comparison adjectives may need as many as seven forms. + + mkADeg : (liten, litet, lilla, sma, mindre, minst, minsta : Str) -> ADeg ; + +-- The regular pattern works for many adjectives, e.g. those ending +-- with "ig". + + regADeg : Str -> ADeg ; + +-- Just the comparison forms can be irregular. + + irregADeg : (tung,tyngre,tyngst : Str) -> ADeg ; + +-- Sometimes just the positive forms are irregular. + + mk3ADeg : (galen,galet,galna : Str) -> ADeg ; + mk2ADeg : (bred,brett : Str) -> ADeg ; + +-- If comparison is formed by "more, "most", as in general for +-- long adjective, the following pattern is used: + + compoundADeg : A -> ADeg ; -- -/more/most ridiculous + +-- From a given $ADeg$, it is possible to get back to $A$. + + adegA : ADeg -> A ; + + +--2 Adverbs + +-- Adverbs are not inflected. Most lexical ones have position +-- after the verb. Some can be preverbal (e.g. "always"). + + mkAdv : Str -> Adv ; + mkAdV : Str -> AdV ; + +-- Adverbs modifying adjectives and sentences can also be formed. + + mkAdA : Str -> AdA ; + +--2 Prepositions +-- +-- A preposition is just a string. + + mkPreposition : Str -> Preposition ; + +--2 Verbs +-- +-- The worst case needs five forms. + + mkV : (supa,super,sup,söp,supit,supen : Str) -> V ; + +-- The 'regular verb' function is the first conjugation if the +-- infinitive ends with "a" ("tala" - "talar" - "talade" - "talat"), +-- the third in other cases ("bo" - "bor" - "bodde" - "bott"). + + regV : (tala : Str) -> V ; + +-- The almost regular verb function needs the infinitive and the preteritum. +-- It can deal with almost all cases in the first, second, and third +-- conjugation: "tala" - "talade", "leka" - "lekte", +-- "gräva" - "grävde", "byta" - "bytte", "vända" - "vände", +-- "tyda" - "tydde", "bo" - "bodde". + + mk2V : (leka,lekte : Str) -> V ; + +-- There is an extensive list of irregular verbs in the module $IrregularSwe$. +-- In practice, it is enough to give three forms, as in school books. + + irregV : (dricka, drack, druckit : Str) -> V ; + + +--3 Verbs with a particle. +-- +-- The particle, such as in "switch on", is given as a string. + + partV : V -> Str -> V ; + +--3 Deponent verbs. +-- +-- Some words are used in passive forms only, e.g. "hoppas". + + depV : V -> V ; + +--3 Two-place verbs +-- +-- Two-place verbs need a preposition, except the special case with direct object. +-- (transitive verbs). Notice that a particle comes from the $V$. + + mkV2 : V -> Preposition -> V2 ; + + dirV2 : V -> V2 ; + +--3 Three-place verbs +-- +-- Three-place (ditransitive) verbs need two prepositions, of which +-- the first one or both can be absent. + + mkV3 : V -> Str -> Str -> V3 ; -- speak, with, about + dirV3 : V -> Str -> V3 ; -- give,_,to + dirdirV3 : V -> V3 ; -- give,_,_ + +--3 Other complement patterns +-- +-- Verbs and adjectives can take complements such as sentences, +-- questions, verb phrases, and adjectives. + + mkV0 : V -> V0 ; + mkVS : V -> VS ; + mkV2S : V -> Str -> V2S ; + mkVV : V -> VV ; + mkV2V : V -> Str -> Str -> V2V ; + mkVA : V -> VA ; + mkV2A : V -> Str -> V2A ; + mkVQ : V -> VQ ; + mkV2Q : V -> Str -> V2Q ; + + mkAS : A -> AS ; + mkA2S : A -> Str -> A2S ; + mkAV : A -> AV ; + mkA2V : A -> Str -> A2V ; + + +--2 Definitions of the paradigms +-- +-- The definitions should not bother the user of the API. So they are +-- hidden from the document. +--. + + Gender = SyntaxSwe.NounGender ; + Number = TypesSwe.Number ; + Case = TypesSwe.Case ; + utrum = NUtr NoMasc ; + neutrum = NNeutr ; + singular = Sg ; + plural = Pl ; + nominative = Nom ; + genitive = Gen ; + + mkN x y z u = extCommNoun (mkNoun x y z u) ** {lock_N = <>} ; + regN x g = extCommNoun (regNoun x (genNoun g)) ** {lock_N = <>} ; + mk2N x g = extCommNoun (reg2Noun x g) ** {lock_N = <>} ; + mascN n = {s = n.s ; g = NUtr Masc ; lock_N = <>} ; + + mkN2 = \n,p -> n ** {lock_N2 = <> ; s2 = p} ; + regN2 n g = mkN2 (regN n g) (mkPreposition "av") ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; s2 = p ; s3 = q} ; + + regPN n g = {s = \\c => mkCase c n ; g = g} ** {lock_PN = <>} ; + nounPN n = {s = n.s ! singular ! Indef ; g = n.g ; lock_PN = <>} ; + mkNP x y n g = + {s = table {PGen _ => x ; _ => y} ; g = genNoun g ; n = n ; p = P3 ; + lock_NP = <>} ; + + mkA a b c = extractPositive (adjAlmostReg a b c) ** {lock_A = <>} ; + mk2A a b = extractPositive (adj2Reg a b) ** {lock_A = <>} ; + regA a = extractPositive (adjReg a) ** {lock_A = <>} ; + + mkA2 a p = a ** {s2 = p ; lock_A2 = <>} ; + + mkADeg a b c d e f g = mkAdjective a b c d e f g ** {lock_ADeg = <>} ; + regADeg a = adjReg a ** {lock_ADeg = <>} ; + irregADeg a b c = adjIrreg3 a b c ** {lock_ADeg = <>} ; + mk3ADeg a b c = adjAlmostReg a b c ** {lock_ADeg = <>} ; + mk2ADeg a b = adj2Reg a b ** {lock_ADeg = <>} ; + + mkAdv x = ss x ** {lock_Adv = <>} ; + mkAdV x = ss x ** {lock_AdV = <>} ; + mkAdA x = ss x ** {lock_AdA = <>} ; + + mkPreposition p = p ; + + mkV a b c d e f = mkVerb a b c d e f ** {s1 = [] ; lock_V = <>} ; + + regV a = mk2V a (a + de) where {de = case last a of {"a" => "de" ; _ => "dde"}} ; + mk2V a b = regVerb a b ** {s1 = [] ; lock_V = <>} ; + + irregV x y z = vSälja x y z + ** {s1 = [] ; lock_V = <>} ; + + partV v p = {s = v.s ; s1 = p ; lock_V = <>} ; + depV v = deponentVerb v ** {lock_V = <>} ; + + mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; lock_V2 = <>} ; + dirV2 v = mkV2 v [] ; + + mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; s3 = q ; lock_V3 = <>} ; + dirV3 v p = mkV3 v [] p ; + dirdirV3 v = dirV3 v [] ; + + mkV0 v = v ** {lock_V0 = <>} ; + mkVS v = v ** {lock_VS = <>} ; + mkV2S v p = mkV2 v p ** {lock_V2S = <>} ; + mkVV v = v ** {isAux = False ; lock_VV = <>} ; + mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2V = <>} ; + mkVA v = v ** {lock_VA = <>} ; + mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; + mkVQ v = v ** {lock_VQ = <>} ; + mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; + + mkAS v = v ** {lock_AS = <>} ; + mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; + mkAV v = v ** {lock_AV = <>} ; + mkA2V v p = mkA2 v p ** {lock_A2V = <>} ; + +} ; diff --git a/lib/resource/swedish/ResourceSwe.gf b/lib/resource-0.9/swedish/ResourceSwe.gf similarity index 100% rename from lib/resource/swedish/ResourceSwe.gf rename to lib/resource-0.9/swedish/ResourceSwe.gf diff --git a/lib/resource/swedish/RulesSwe.gf b/lib/resource-0.9/swedish/RulesSwe.gf similarity index 100% rename from lib/resource/swedish/RulesSwe.gf rename to lib/resource-0.9/swedish/RulesSwe.gf diff --git a/lib/resource/swedish/SatsSwe.gf b/lib/resource-0.9/swedish/SatsSwe.gf similarity index 100% rename from lib/resource/swedish/SatsSwe.gf rename to lib/resource-0.9/swedish/SatsSwe.gf diff --git a/lib/resource/swedish/SimpleLangSwe.gf b/lib/resource-0.9/swedish/SimpleLangSwe.gf similarity index 100% rename from lib/resource/swedish/SimpleLangSwe.gf rename to lib/resource-0.9/swedish/SimpleLangSwe.gf diff --git a/lib/resource/swedish/SimpleSwe.gf b/lib/resource-0.9/swedish/SimpleSwe.gf similarity index 100% rename from lib/resource/swedish/SimpleSwe.gf rename to lib/resource-0.9/swedish/SimpleSwe.gf diff --git a/lib/resource-0.9/swedish/StructuralSwe.gf b/lib/resource-0.9/swedish/StructuralSwe.gf new file mode 100644 index 000000000..a31dc758d --- /dev/null +++ b/lib/resource-0.9/swedish/StructuralSwe.gf @@ -0,0 +1,215 @@ +--# -path=.:../abstract:../scandinavian:../../prelude + +--1 The Top-Level Swedish Resource Grammar: Structural Words +-- +-- Aarne Ranta 2002 -- 2004 +-- +concrete StructuralSwe of Structural = + CategoriesSwe, NumeralsSwe ** + open Prelude, MorphoSwe, SyntaxSwe in { + + flags optimize=values ; + + lin + + UseNumeral i = {s = \\g => table {Nom => i.s ! g ; Gen => i.s ! g ++ + "s"} ; n = i.n} ; --- + + above_Prep = ss "ovanför" ; + after_Prep = ss "efter" ; + by8agent_Prep = ss "av" ; + all8mass_Det = mkDeterminerSgGender2 "all" "allt" IndefP ; + all_NDet = mkDeterminerPlNum "alla" IndefP ; + almost_Adv = ss "nästan" ; + although_Subj = ss "fast" ; + and_Conj = ss "och" ** {n = Pl} ; + because_Subj = ss "eftersom" ; + before_Prep = ss "före" ; + behind_Prep = ss "bakom" ; + between_Prep = ss "mellan" ; + both_AndConjD = sd2 "både" "och" ** {n = Pl} ; + by8means_Prep = ss "med" ; + can8know_VV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" + ** {isAux = True} ; + can_VV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" + ** {isAux = True} ; + during_Prep = ss "under" ; + either8or_ConjD = sd2 "antingen" "eller" ** {n = Sg} ; + everybody_NP = let alla = table {Nom => "alla" ; Gen => "allas"} in + {s = \\c => alla ! npCase c ; g = Utr ; n = Pl ; p = P3} ; + every_Det = varjeDet ; + everything_NP = nameNounPhrase (mkProperName "allting" NNeutr) ; + everywhere_Adv = advPost "varstans" ; + from_Prep = ss "från" ; + he_NP = pronNounPhrase han_34 ; + how_IAdv = ss "hur" ; + how8many_IDet = mkDeterminerPl ["hur många"] IndefP ; + if_Subj = ss "om" ; + in8front_Prep = ss "framför" ; + i_NP = pronNounPhrase jag_32 ; + in_Prep = ss "i" ; + it_NP = pronNounPhrase det_40 ; ---- + + many_Det = mkDeterminerPl "många" IndefP ; + most_Det = mkDeterminerSgGender2 ["den mesta"] ["det mesta"] (DefP Def) ; + most8many_Det = flestaDet ; + much_Det = mkDeterminerSg (detSgInvar "mycket") IndefP ; + must_VV = mkVerb "få" "måste" "få" "fick" "måst" "måst" ** {isAux = True} ; + no_Phr = ss ["Nej ."] ; + on_Prep = ss "på" ; + or_Conj = ss "eller" ** {n = Sg} ; + otherwise_Adv = ss "annars" ; + part_Prep = ss "av" ; + possess_Prep = ss "av" ; + quite_Adv = ss "ganska" ; + she_NP = pronNounPhrase hon_35 ; + so_Adv = ss "så" ; + somebody_NP = nameNounPhrase (mkProperName "någon" (NUtr Masc)) ; + some_Det = mkDeterminerSgGender2 "någon" "något" IndefP ; + some_NDet = mkDeterminerPlNum "några" IndefP ; + something_NP = nameNounPhrase (mkProperName "någonting" NNeutr) ; + somewhere_Adv = advPost "någonstans" ; + that_Det = mkDeterminerSgGender2 ["den där"] ["det där"] (DefP Def) ; + that_NP = regNameNounPhrase ["det där"] NNeutr ; + therefore_Adv = ss "därför" ; + these_NDet = mkDeterminerPlNum ["de här"] (DefP Def) ; + they8fem_NP = pronNounPhrase de_38 ; + they_NP = pronNounPhrase de_38 ; + this_Det = mkDeterminerSgGender2 ["den här"] ["det här"] (DefP Def) ; + this_NP = regNameNounPhrase ["det här"] NNeutr ; + those_NDet = mkDeterminerPlNum ["de där"] (DefP Def) ; + thou_NP = pronNounPhrase du_33 ; + through_Prep = ss "genom" ; + too_Adv = ss "för" ; + to_Prep = ss "till" ; + under_Prep = ss "under" ; + very_Adv = ss "mycket" ; + want_VV = mkVerb "vilja" "vill" "vilj" "ville" "velat" "velad" ** {isAux = True} ; + we_NP = pronNounPhrase (vi_36) ; + what8many_IP = intPronWhat plural ; + what8one_IP = intPronWhat singular ; + when_IAdv = ss "när" ; + when_Subj = ss "när" ; + where_IAdv = ss "var" ; + which8one_IDet = vilkenDet ; + which8many_IDet = mkDeterminerPl "vilka" IndefP ; + who8many_IP = intPronWho plural ; + who8one_IP = intPronWho singular ; + why_IAdv = ss "varför" ; + without_Prep = ss "utan" ; + with_Prep = ss "med" ; + ye_NP = pronNounPhrase (ni_37) ; + yes_Phr = ss ["Ja ."] ; + you_NP = let {ni = pronNounPhrase ni_37 } in { + s = ni.s ; g = ni.g ; n = Sg ; p = P2} ; ---- gives wrong refl + + + +{- + INP = pronNounPhrase jag_32 ; + ThouNP = pronNounPhrase du_33 ; + HeNP = pronNounPhrase han_34 ; + SheNP = pronNounPhrase hon_35 ; + WeNP n = pronNounPhrase (vi_36 n) ; + YeNP n = pronNounPhrase (ni_37 n) ; + TheyNP = pronNounPhrase de_38 ; + TheyFemNP = pronNounPhrase de_38 ; + + YouNP = let {ni = pronNounPhrase ni_37 } in { + s = ni.s ; g = ni.g ; n = Sg ; p = P2} ; ---- gives wrong refl + + ItNP = pronNounPhrase det_40 ; ---- + ThisNP = regNameNounPhrase ["det här"] NNeutr ; + ThatNP = regNameNounPhrase ["det där"] NNeutr ; + + EveryDet = varjeDet ; + AllMassDet = mkDeterminerSgGender2 "all" "allt" IndefP ; + AllNumDet = mkDeterminerPlNum "alla" IndefP ; + AnyDet = mkDeterminerSgGender2 "någon" "något" IndefP ; + AnyNumDet = mkDeterminerPlNum "några" IndefP ; + SomeDet = mkDeterminerSgGender2 "någon" "något" IndefP ; + SomeNumDet = mkDeterminerPlNum "några" IndefP ; + ManyDet = mkDeterminerPl "många" IndefP ; + HowManyDet = mkDeterminerPl ["hur många"] IndefP ; + NoDet = mkDeterminerSgGender2 "ingen" "inget" IndefP ; + NoNumDet = mkDeterminerPlNum "inga" IndefP ; + WhichNumDet = mkDeterminerPlNum "vilka" IndefP ; + + UseNumeral i = {s = table {Nom => i.s ; Gen => i.s ++ "s"}} ; --- + + WhichDet = vilkenDet ; + MostDet = mkDeterminerSgGender2 ["den mesta"] ["det mesta"] (DefP Def) ; + MostsDet = flestaDet ; + MuchDet = mkDeterminerSg (detSgInvar "mycket") IndefP ; + + ThisDet = mkDeterminerSgGender2 ["den här"] ["det här"] (DefP Def) ; + ThatDet = mkDeterminerSgGender2 ["den där"] ["det där"] (DefP Def) ; + TheseNumDet = mkDeterminerPlNum ["de här"] (DefP Def) ; + ThoseNumDet = mkDeterminerPlNum ["de där"] (DefP Def) ; + + HowIAdv = ss "hur" ; + WhenIAdv = ss "när" ; + WhereIAdv = ss "var" ; + WhyIAdv = ss "varför" ; + + AndConj = ss "och" ** {n = Pl} ; + OrConj = ss "eller" ** {n = Sg} ; + BothAnd = sd2 "både" "och" ** {n = Pl} ; + EitherOr = sd2 "antingen" "eller" ** {n = Sg} ; + NeitherNor = sd2 "varken" "eller" ** {n = Sg} ; + IfSubj = ss "om" ; + WhenSubj = ss "när" ; + + YesPhr = ss ["Ja ."] ; + NoPhr = ss ["Nej ."] ; + + VeryAdv = ss "mycket" ; + TooAdv = ss "för" ; + SoAdv = ss "så" ; + OtherwiseAdv = ss "annars" ; + ThereforeAdv = ss "därför" ; + + EverybodyNP = let alla = table {Nom => "alla" ; Gen => "allas"} in {s = \\c => alla ! npCase c ; g = Utr ; n = Pl ; p = P3} ; + SomebodyNP = nameNounPhrase (mkProperName "någon" (NUtr Masc)) ; + NobodyNP = nameNounPhrase (mkProperName "ingen" (NUtr Masc)) ; + EverythingNP = nameNounPhrase (mkProperName "allting" NNeutr) ; + SomethingNP = nameNounPhrase (mkProperName "någonting" NNeutr) ; + NothingNP = nameNounPhrase (mkProperName "ingenting" NNeutr) ; + + CanVV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" ** {s3 = []} ; + CanKnowVV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" ** {s3 = []} ; + MustVV = mkVerb "få" "måste" "få" "fick" "måst" "måst" ** {s3 = []} ; + WantVV = mkVerb "vilja" "vill" "vilj" "ville" "velat" "velad" ** {s3 = []} ; + + EverywhereNP = advPost "varstans" ; + SomewhereNP = advPost "någonstans" ; + NowhereNP = advPost "ingenstans" ; + + AlthoughSubj = ss "fast" ; + + AlmostAdv = ss "nästan" ; + QuiteAdv = ss "ganska" ; + + InPrep = ss "i" ; + OnPrep = ss "på" ; + ToPrep = ss "till" ; + ThroughPrep = ss "genom" ; + AbovePrep = ss "ovanför" ; + UnderPrep = ss "under" ; + InFrontPrep = ss "framför" ; + BehindPrep = ss "bakom" ; + BetweenPrep = ss "mellan" ; + FromPrep = ss "från" ; + BeforePrep = ss "före" ; + DuringPrep = ss "under" ; + AfterPrep = ss "efter" ; + WithPrep = ss "med" ; + WithoutPrep = ss "utan" ; + ByMeansPrep = ss "med" ; + PossessPrep = ss "av" ; + PartPrep = ss "av" ; + AgentPrep = ss "av" ; +-} + + +} diff --git a/lib/resource/swedish/SwadeshLexSwe.gf b/lib/resource-0.9/swedish/SwadeshLexSwe.gf similarity index 100% rename from lib/resource/swedish/SwadeshLexSwe.gf rename to lib/resource-0.9/swedish/SwadeshLexSwe.gf diff --git a/lib/resource/swedish/SyntaxSwe.gf b/lib/resource-0.9/swedish/SyntaxSwe.gf similarity index 100% rename from lib/resource/swedish/SyntaxSwe.gf rename to lib/resource-0.9/swedish/SyntaxSwe.gf diff --git a/lib/resource/swedish/TimeSwe.gf b/lib/resource-0.9/swedish/TimeSwe.gf similarity index 100% rename from lib/resource/swedish/TimeSwe.gf rename to lib/resource-0.9/swedish/TimeSwe.gf diff --git a/lib/resource/swedish/TypesSwe.gf b/lib/resource-0.9/swedish/TypesSwe.gf similarity index 100% rename from lib/resource/swedish/TypesSwe.gf rename to lib/resource-0.9/swedish/TypesSwe.gf diff --git a/lib/resource/swedish/VerbphraseSwe.gf b/lib/resource-0.9/swedish/VerbphraseSwe.gf similarity index 100% rename from lib/resource/swedish/VerbphraseSwe.gf rename to lib/resource-0.9/swedish/VerbphraseSwe.gf diff --git a/lib/resource/swedish/VerbsSwe.gf b/lib/resource-0.9/swedish/VerbsSwe.gf similarity index 100% rename from lib/resource/swedish/VerbsSwe.gf rename to lib/resource-0.9/swedish/VerbsSwe.gf diff --git a/lib/resource/swedish/VerbsSweAbs.gf b/lib/resource-0.9/swedish/VerbsSweAbs.gf similarity index 100% rename from lib/resource/swedish/VerbsSweAbs.gf rename to lib/resource-0.9/swedish/VerbsSweAbs.gf diff --git a/lib/resource/swedish/sag-missing.txt b/lib/resource-0.9/swedish/sag-missing.txt similarity index 100% rename from lib/resource/swedish/sag-missing.txt rename to lib/resource-0.9/swedish/sag-missing.txt diff --git a/lib/resource/vp.gfnoparse b/lib/resource-0.9/vp.gfnoparse similarity index 100% rename from lib/resource/vp.gfnoparse rename to lib/resource-0.9/vp.gfnoparse diff --git a/lib/resource-1.0/Makefile b/lib/resource-1.0/Makefile deleted file mode 100644 index aa050f5ce..000000000 --- a/lib/resource-1.0/Makefile +++ /dev/null @@ -1,89 +0,0 @@ -GF=gf -RTS=+RTS -M800M -K100M -RTSS=+RTS -M1000M -K100M -GFCA=$(GF) -nocf -GFCC=$(GF) -nocf -make -GFC=$(GFCC) -src -GFCP=$(GFC) -preproc=./mkPresent - - -.PHONY: show-path all test alltenses pretest langs present mathematical multimodal compiled treebank stat gfdoc clean - -all: show-path present alltenses langs multimodal mathematical compiled - -show-path: - @echo GF_LIB_PATH=$(GF_LIB_PATH) - -test: - echo "gr -cat=Text -number=11 -prob | tb" | $(GF) -nocf -probs=lang.gfprob langs.gfcm - -pretest: - echo "gr -cat=Cl -number=11 -prob | tb" | $(GF) -probs=lang.gfprob -path=present:prelude -nocf ../present/Lang???.gfc - -alltenses: -# $(GFC) arabic/LangAra.gf - $(GFC) danish/Danish.gf - $(GFC) english/English.gf - $(GFC) finnish/Finnish.gf - $(GFC) french/French.gf - $(GFC) german/German.gf - $(GFC) italian/Italian.gf - $(GFC) norwegian/Norwegian.gf - $(GFC) russian/Russian.gf - $(GFC) spanish/Spanish.gf - $(GFC) swedish/Swedish.gf - cp -p */*.gfc */*.gfr ../alltenses - -langs: - echo "s ;; pm | wf langs.gfcm" | $(GFCA) -path=alltenses:prelude ../alltenses/Lang???.gfc $(RTSS) - - -present: -# $(GFCP) arabic/LangAra.gf - $(GFCP) danish/Danish.gf - $(GFCP) english/English.gf - $(GFCP) finnish/Finnish.gf - $(GFCP) french/French.gf - $(GFCP) german/German.gf - $(GFCP) italian/Italian.gf - $(GFCP) norwegian/Norwegian.gf - $(GFCP) russian/LangRus.gf - $(GFCP) spanish/Spanish.gf - $(GFCP) swedish/Swedish.gf - mv */*.gfc */*.gfr ../present - -mathematical: - $(GF) -make -nocf -preproc=./mkPresent mathematical/Mathematical???.gf - mv mathematical/*.gfc ../mathematical - -multimodal: - $(GF) -make -nocf multimodal/Multi???.gf - mv multimodal/*.gfc ../multimodal - -compiled: - cd .. ; tar cvfz compiled.tgz alltenses/ mathematical/ multimodal/ present/ prelude/*.gf? - -treebank: - gf p -cat=Phr -fcfg "I haven't seen her" | l -multi - -To link to the library, use the precompiled packages - -- ``lib/alltenses`` the complete ground-API library with all forms -- ``lib/present`` a pruned ground-API library with present tense only -- ``lib/mathematical`` special-purpose API for mathematical applications -- ``lib/multimodal`` special-purpose API for multimodal dialogue applications - -The main changes from 0.9 to 1.0 are - -1. Refactoring of module structure: there are many more modules now. - However, the full API is still available as LangX. - -2. Increased coverage. We have used the second CLE book ("Spoken - Language Translation", by M. Rayner, D. Carter, P. Bouillon - V. Digalakis, and M. Wirén, Cambridge UP, 2000) as guideline and - goal. - -3. Some constructions have been dropped out or modified. This concerns - in particular the determiner structure in the module Noun. Also the - number of verb subcategorization patterns is lower: predication can - be done by adding adverbs instead. Also the division between A and ADeg - is eliminated. - -4. The implementation is more direct; there is no "SyntaxX" variant of - each rule as in 0.9. The ease to find definitions and change them - weighs many times more than the abstraction attained by indirection, - in this case. Also compilation time and amount of generated code (gfr) - decreases quite a bit. - -5. The result is a lighter and more efficient resource library, just - because of lessons learned from earlier implementations. - Compared to 0.9, compilation times and gfc sizes have dropped by - 50% up to 70%. - -Version 0.9 is hereby "frozen" to its current state, which means that -extensions and bug fixes are not carried over to it. However, if -requested, we might provide a reimplementation of the old API using -the new. - -When will it be ready? Today (25 February 2006) the implementation -is complete for 8 languages (which excludes Danish and Russian). -A number of bugs wait to be fixes, and a SourceForge release will -be made some time in March. - -BUT WE ALREADY RECOMMEND USING 1.0 INSTEAD OF THE OLDER VERSIONS. -Notice that GF v. - ----------- later history and status: - -16/6 Close to complete, with 10 languages and a substantial part of - Arabic. - -25/2 Added directories for precompiled libraries directly under lib. - See doc/index.html for more information. - -21/2 Added modules Text and Idiom. Many bugs fixed, see TODO. - - 7/2 Finnish added. - - 3/2 Spanish added, except ordinal numerals. Much remains to do in Spa & Ita clitics. - - 1/2 Italian added. - -26/1 Norwegian added. - -24/1 French complete, as well as the Romance parametrized modules. - -20/1 Main difficulties of French and Romance implemented. Also -ParadigmsFre and fragments of LangFre. - -17/1 All of English, Swedish, and German implemented. Some known bugs -remain, also some ToDo API functions. - -13/1/2006 All of English, most of Scandinavian/Swedish, and TestGer -have now been implemented. Most abstract/ modules have been documented -using gfdoc. diff --git a/lib/resource-1.0/abstract/Lang.gf b/lib/resource-1.0/abstract/Lang.gf deleted file mode 100644 index 1c70f80a8..000000000 --- a/lib/resource-1.0/abstract/Lang.gf +++ /dev/null @@ -1,11 +0,0 @@ ---1 Lang: a Test Module for the Resource Grammar - --- This grammar is for testing the resource as included in the --- language-independent API, consisting of a grammar and a lexicon. --- The grammar without a lexicon is [``Grammar`` Grammar.html], --- which may be more suitable to open in applications. - -abstract Lang = - Grammar, - Lexicon - ** {} ; diff --git a/lib/resource-1.0/abstract/Structural.gf b/lib/resource-1.0/abstract/Structural.gf deleted file mode 100644 index 556cabc0a..000000000 --- a/lib/resource-1.0/abstract/Structural.gf +++ /dev/null @@ -1,111 +0,0 @@ ---1 Structural: Structural Words --- --- Here we have some words belonging to closed classes and appearing --- in all languages we have considered. --- Sometimes more distinctions are needed, e.g. $we_Pron$ in Spanish --- should be replaced by masculine and feminine variants, found in --- [``ExtraSpa`` ../spanish/ExtraSpa.gf]. - -abstract Structural = Cat ** { - - fun - --- This is an alphabetical list of structural words - - above_Prep : Prep ; - after_Prep : Prep ; - all_Predet : Predet ; - almost_AdA : AdA ; - almost_AdN : AdN ; - although_Subj : Subj ; - always_AdV : AdV ; - and_Conj : Conj ; - because_Subj : Subj ; - before_Prep : Prep ; - behind_Prep : Prep ; - between_Prep : Prep ; - both7and_DConj : DConj ; - but_PConj : PConj ; - by8agent_Prep : Prep ; - by8means_Prep : Prep ; - can8know_VV : VV ; - can_VV : VV ; - during_Prep : Prep ; - either7or_DConj : DConj ; - every_Det : Det ; - everybody_NP : NP ; - everything_NP : NP ; - everywhere_Adv : Adv ; - first_Ord : Ord ; - few_Det : Det ; - from_Prep : Prep ; - he_Pron : Pron ; - here_Adv : Adv ; - here7to_Adv : Adv ; - here7from_Adv : Adv ; - how_IAdv : IAdv ; - how8many_IDet : IDet ; - i_Pron : Pron ; - if_Subj : Subj ; - in8front_Prep : Prep ; - in_Prep : Prep ; - it_Pron : Pron ; - less_CAdv : CAdv ; - many_Det : Det ; - more_CAdv : CAdv ; - most_Predet : Predet ; - much_Det : Det ; - must_VV : VV ; - no_Phr : Phr ; - on_Prep : Prep ; - one_Quant : QuantSg ; - only_Predet : Predet ; - or_Conj : Conj ; - otherwise_PConj : PConj ; - part_Prep : Prep ; - please_Voc : Voc ; - possess_Prep : Prep ; - quite_Adv : AdA ; - she_Pron : Pron ; - so_AdA : AdA ; - someSg_Det : Det ; - somePl_Det : Det ; - somebody_NP : NP ; - something_NP : NP ; - somewhere_Adv : Adv ; - that_Quant : Quant ; - that_NP : NP ; - there_Adv : Adv ; - there7to_Adv : Adv ; - there7from_Adv : Adv ; - therefore_PConj : PConj ; - these_NP : NP ; - they_Pron : Pron ; - this_Quant : Quant ; - this_NP : NP ; - those_NP : NP ; - through_Prep : Prep ; - to_Prep : Prep ; - too_AdA : AdA ; - under_Prep : Prep ; - very_AdA : AdA ; - want_VV : VV ; - we_Pron : Pron ; - whatPl_IP : IP ; - whatSg_IP : IP ; - when_IAdv : IAdv ; - when_Subj : Subj ; - where_IAdv : IAdv ; - whichPl_IDet : IDet ; - whichSg_IDet : IDet ; - whoPl_IP : IP ; - whoSg_IP : IP ; - why_IAdv : IAdv ; - with_Prep : Prep ; - without_Prep : Prep ; - yes_Phr : Phr ; - youSg_Pron : Pron ; - youPl_Pron : Pron ; - youPol_Pron : Pron ; - -} diff --git a/lib/resource-1.0/danish/LangDan.gf b/lib/resource-1.0/danish/LangDan.gf deleted file mode 100644 index 7a80aded4..000000000 --- a/lib/resource-1.0/danish/LangDan.gf +++ /dev/null @@ -1,10 +0,0 @@ ---# -path=.:../scandinavian:../abstract:../common:prelude - -concrete LangDan of Lang = - GrammarDan, - LexiconDan - ** { - -flags startcat = Phr ; unlexer = text ; lexer = text ; - -} ; diff --git a/lib/resource-1.0/danish/MathDan.gf b/lib/resource-1.0/danish/MathDan.gf deleted file mode 100644 index 11d87f5d9..000000000 --- a/lib/resource-1.0/danish/MathDan.gf +++ /dev/null @@ -1,2 +0,0 @@ -concrete MathDan of Math = CatDan ** MathScand with - (ResScand = ResDan) ; diff --git a/lib/resource-1.0/danish/MorphoDan.gf b/lib/resource-1.0/danish/MorphoDan.gf deleted file mode 100644 index a5ee90a48..000000000 --- a/lib/resource-1.0/danish/MorphoDan.gf +++ /dev/null @@ -1,164 +0,0 @@ ---1 A Simple Danish Resource Morphology --- --- Aarne Ranta 2002 --- --- This resource morphology contains definitions needed in the resource --- syntax. It moreover contains copies of the most usual inflectional patterns --- as defined in functional morphology (in the Haskell file $RulesSw.hs$). --- --- We use the parameter types and word classes defined for morphology. - -resource MorphoDan = CommonScand, ResDan ** open Prelude, Predef in { - -oper - --- type synonyms - - Subst : Type = {s : Number => Species => Case => Str} ; - Adj = Adjective ; - --- nouns - - mkSubstantive : (_,_,_,_ : Str) -> Subst = - \dreng, drengen, drenger, drengene -> - {s = nounForms dreng drengen drenger drengene} ; - - extNGen : Str -> Gender = \s -> case last s of { - "n" => Utr ; - _ => Neutr - } ; - - nDreng : Str -> Subst = \dreng -> - mkSubstantive dreng (dreng + "en") (dreng + "e") (dreng + "ene") ** - {h1 = Utr} ; - - nBil : Str -> Subst = \bil -> - mkSubstantive bil (bil + "en") (bil + "er") (bil + "erne") ** - {h1 = Utr} ; - - nUge : Str -> Subst = \uge -> - mkSubstantive uge (uge + "n") (uge + "r") (uge + "rne") ** - {h1 = Utr} ; - - nHus : Str -> Subst = \hus -> - mkSubstantive hus (hus + "et") hus (hus + "ene") ** - {h1 = Neutr} ; - --- adjectives - - mkAdject : (_,_,_,_,_ : Str) -> Adj = - \stor,stort,store,storre,storst -> {s = table { - AF (APosit (Strong SgUtr )) c => mkCase c stor ; - AF (APosit (Strong SgNeutr)) c => mkCase c stort ; - AF (APosit _) c => mkCase c store ; - AF ACompar c => mkCase c storre ; - AF (ASuperl SupStrong) c => mkCase c storst ; - AF (ASuperl SupWeak) c => mkCase c (storst + "e") - } - } ; - - aRod : Str -> Adj = \rod -> - mkAdject rod (rod + "t") (rod + "e") (rod + "ere") (rod + "est") ; - - aAbstrakt : Str -> Adj = \abstrakt -> - mkAdject abstrakt abstrakt (abstrakt + "e") (abstrakt + "ere") (abstrakt + "est") ; - - aRask : Str -> Adj = \rask -> - mkAdject rask rask (rask + "e") (rask + "ere") (rask + "est") ; - - --- verbs - - Verbum : Type = {s : VForm => Str} ; - - mkVerb6 : (_,_,_,_,_,_ : Str) -> Verbum = - \spise,spiser,spises,spiste,spist,spis -> {s = table { - VI (VInfin v) => mkVoice v spise ; - VF (VPres Act) => spiser ; - VF (VPres Pass) => spises ; - VF (VPret v) => mkVoice v spiste ; --# notpresent - VI (VSupin v) => mkVoice v spist ; --# notpresent - VI (VPtPret (Strong (SgUtr | SgNeutr)) c) => mkCase c spist ; - VI (VPtPret _ c) => mkCase c (spist + "e") ; - VF (VImper v) => mkVoice v spis - } - } ; - - irregVerb : (drikke,drakk,drukket : Str) -> Verbum = - \drikke,drakk,drukket -> - let - drikk = init drikke ; - drikker = case last (init drikke) of { - "r" => drikk ; - _ => drikke + "r" - } - in - mkVerb6 drikke drikker (drikke + "s") drakk drukket (mkImper drikk) ; - - regVerb : Str -> Str -> Verbum = \spise, spiste -> - let - spis = init spise ; - te = Predef.dp 2 spiste - in - case te of { - "te" => vSpis spis ; - "de" => case last spise of { - "e" => vHusk spis ; - _ => vBo spise - } ; - _ => vHusk spis - } ; - - vHusk : Str -> Verbum = \husk -> - mkVerb6 (husk + "e") (husk + "er") (husk + "es") (husk + "ede") (husk + "et") - (mkImper husk) ; - - vSpis : Str -> Verbum = \spis -> - mkVerb6 (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t") - (mkImper spis) ; - - vBo : Str -> Verbum = \bo -> - mkVerb6 bo (bo + "r") (bo + "es") (bo + "ede") (bo + "et") (mkImper bo) ; - --- Remove consonant duplication: "passe - pas" - - mkImper : Str -> Str = \s -> - if_then_Str (pbool2bool (Predef.eqStr (last s) (last (init s)))) (init s) s ; - --- For $Numeral$. - -param DForm = ental | ton | tiotal ; - -oper - LinDigit = {s : DForm => CardOrd => Str} ; - - cardOrd : Str -> Str -> CardOrd => Str = \tre,tredje -> - table { - NCard _ => tre ; - NOrd a => tredje ---- a - } ; - - cardReg : Str -> CardOrd => Str = \syv -> - cardOrd syv (syv + case last syv of { - "n" => "de" ; - "e" => "nde" ; - _ => "ende" - }) ; - - - mkTal : (x1,_,_,_,x5 : Str) -> LinDigit = - \två, tolv, tjugo, andra, tyvende -> - {s = table { - ental => cardOrd två andra ; - ton => cardReg tolv ; - tiotal => cardOrd tjugo tyvende - } - } ; - - numPl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \n -> - {s = n ; n = Pl} ; - - invNum : CardOrd = NCard Neutr ; - - -} diff --git a/lib/resource-1.0/danish/ParadigmsDan.gf b/lib/resource-1.0/danish/ParadigmsDan.gf deleted file mode 100644 index 9aa3bb14b..000000000 --- a/lib/resource-1.0/danish/ParadigmsDan.gf +++ /dev/null @@ -1,456 +0,0 @@ ---# -path=.:../scandinavian:../common:../abstract:../../prelude - ---1 Danish Lexical Paradigms --- --- Aarne Ranta 2005 - 2006 --- --- This is an API for the user of the resource grammar --- for adding lexical items. It gives functions for forming --- expressions of open categories: nouns, adjectives, verbs. --- --- Closed categories (determiners, pronouns, conjunctions) are --- accessed through the resource syntax API, $Structural.gf$. --- --- The main difference with $MorphoDan.gf$ is that the types --- referred to are compiled resource grammar types. We have moreover --- had the design principle of always having existing forms, rather --- than stems, as string arguments of the paradigms. --- --- The structure of functions for each word class $C$ is the following: --- first we give a handful of patterns that aim to cover all --- regular cases. Then we give a worst-case function $mkC$, which serves as an --- escape to construct the most irregular words of type $C$. --- However, this function should only seldom be needed: we have a --- separate module [``IrregDan`` ../../danish/IrregDan.gf], --- which haves a list of irregular verbs. - -resource ParadigmsDan = - open - (Predef=Predef), - Prelude, - CommonScand, - ResDan, - MorphoDan, - CatDan in { - ---2 Parameters --- --- To abstract over gender names, we define the following identifiers. - -oper - Gender : Type ; - - utrum : Gender ; - neutrum : Gender ; - --- To abstract over number names, we define the following. - - Number : Type ; - - singular : Number ; - plural : Number ; - --- To abstract over case names, we define the following. - - Case : Type ; - - nominative : Case ; - genitive : Case ; - --- Prepositions used in many-argument functions are just strings. - - mkPrep : Str -> Prep ; - noPrep : Prep ; -- empty string - ---2 Nouns - --- Worst case: give all four forms. The gender is computed from the --- last letter of the second form (if "n", then $utrum$, otherwise $neutrum$). - - mkN : (dreng,drengen,drenge,drengene : Str) -> N ; - --- The regular function takes the singular indefinite form --- and computes the other forms and the gender by a heuristic. --- The heuristic is that all nouns are $utrum$ with the --- plural ending "er" or "r". - - regN : Str -> N ; - --- Giving gender manually makes the heuristic more reliable. - - regGenN : Str -> Gender -> N ; - --- This function takes the singular indefinite and definite forms; the --- gender is computed from the definite form. - - mk2N : (bil,bilen : Str) -> N ; - --- This function takes the singular indefinite and definite and the plural --- indefinite - - mk3N : (bil,bilen,biler : Str) -> N ; - - ---3 Compound nouns --- --- All the functions above work quite as well to form compound nouns, --- such as "fodbold". - - ---3 Relational nouns --- --- Relational nouns ("datter til x") need a preposition. - - mkN2 : N -> Prep -> N2 ; - --- The most common preposition is "af", and the following is a --- shortcut for regular relational nouns with "af". - - regN2 : Str -> Gender -> N2 ; - --- Use the function $mkPrep$ or see the section on prepositions below to --- form other prepositions. --- --- Three-place relational nouns ("forbindelse fra x til y") --- need two prepositions. - - mkN3 : N -> Prep -> Prep -> N3 ; - - ---3 Relational common noun phrases --- --- In some cases, you may want to make a complex $CN$ into a --- relational noun (e.g. "tidligere kone til"). However, $N2$ and --- $N3$ are purely lexical categories. But you can use the $AdvCN$ --- and $PrepNP$ constructions to build phrases like this. - --- ---3 Proper names and noun phrases --- --- Proper names, with a regular genitive, are formed as follows - - mkPN : Str -> Gender -> PN ; -- Paris neutrum - regPN : Str -> PN ; -- utrum gender - --- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". - - nounPN : N -> PN ; - --- To form a noun phrase that can also be plural and have an irregular --- genitive, you can use the worst-case function. - - mkNP : Str -> Str -> Number -> Gender -> NP ; - ---2 Adjectives - --- Non-comparison one-place adjectives need three forms: - - mkA : (galen,galet,galne : Str) -> A ; - --- For regular adjectives, the other forms are derived. - - regA : Str -> A ; - --- In most cases, two forms are enough. - - mk2A : (stor,stort : Str) -> A ; - ---3 Two-place adjectives --- --- Two-place adjectives need a preposition for their second argument. - - mkA2 : A -> Prep -> A2 ; - --- Comparison adjectives may need as many as five forms. - - mkADeg : (stor,stort,store,storre,storst : Str) -> A ; - --- The regular pattern works for many adjectives, e.g. those ending --- with "ig". - - regADeg : Str -> A ; - --- Just the comparison forms can be irregular. - - irregADeg : (tung,tyngre,tyngst : Str) -> A ; - --- Sometimes just the positive forms are irregular. - - mk3ADeg : (galen,galet,galna : Str) -> A ; - mk2ADeg : (bred,bredt : Str) -> A ; - --- If comparison is formed by "mer", "mest", as in general for --- long adjective, the following pattern is used: - - compoundA : A -> A ; -- -/mer/mest norsk - - ---2 Adverbs - --- Adverbs are not inflected. Most lexical ones have position --- after the verb. Some can be close to the verb like the negation --- "ikke" (e.g. "altid"). - - mkAdv : Str -> Adv ; - mkAdV : Str -> AdV ; - --- Adverbs modifying adjectives and sentences can also be formed. - - mkAdA : Str -> AdA ; - - ---2 Verbs --- --- The worst case needs six forms. - - mkV : (spise,spiser,spises,spiste,spist,spis : Str) -> V ; - --- The 'regular verb' function is the first conjugation. - - regV : (snakke : Str) -> V ; - --- The almost regular verb function needs the infinitive and the preteritum. - - mk2V : (leve,levde : Str) -> V ; - --- There is an extensive list of irregular verbs in the module $IrregDan$. --- In practice, it is enough to give three forms, as in school books. - - irregV : (drikke, drak, drukket : Str) -> V ; - - ---3 Verbs with 'være' as auxiliary --- --- By default, the auxiliary is "have". This function changes it to "være". - - vaereV : V -> V ; - - - ---3 Verbs with a particle --- --- The particle, such as in "passe på", is given as a string. - - partV : V -> Str -> V ; - - ---3 Deponent verbs --- --- Some words are used in passive forms only, e.g. "undres", some as --- reflexive e.g. "forestille sig". - - depV : V -> V ; - reflV : V -> V ; - - ---3 Two-place verbs --- --- Two-place verbs need a preposition, except the special case with direct object. --- (transitive verbs). Notice that a particle comes from the $V$. - - mkV2 : V -> Prep -> V2 ; - - dirV2 : V -> V2 ; - ---3 Three-place verbs --- --- Three-place (ditransitive) verbs need two prepositions, of which --- the first one or both can be absent. - - mkV3 : V -> Prep -> Prep -> V3 ; -- snakke, med, om - dirV3 : V -> Prep -> V3 ; -- give,_,til - dirdirV3 : V -> V3 ; -- give,_,_ - ---3 Other complement patterns --- --- Verbs and adjectives can take complements such as sentences, --- questions, verb phrases, and adjectives. - - mkV0 : V -> V0 ; - mkVS : V -> VS ; - mkV2S : V -> Prep -> V2S ; - mkVV : V -> VV ; - mkV2V : V -> Prep -> Prep -> V2V ; - mkVA : V -> VA ; - mkV2A : V -> Prep -> V2A ; - mkVQ : V -> VQ ; - mkV2Q : V -> Prep -> V2Q ; - - mkAS : A -> AS ; - mkA2S : A -> Prep -> A2S ; - mkAV : A -> AV ; - mkA2V : A -> Prep -> A2V ; - --- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated --- just as synonyms of $V2$, and the second argument is given --- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. --- $V0$ is just $V$. - - V0, V2S, V2V, V2A, V2Q : Type ; - AS, A2S, AV, A2V : Type ; - ---. - ---2 Definitions of the paradigms --- --- The definitions should not bother the user of the API. So they are --- hidden from the document. - - - Gender = MorphoDan.Gender ; - Number = MorphoDan.Number ; - Case = MorphoDan.Case ; - utrum = Utr ; - neutrum = Neutr ; - singular = Sg ; - plural = Pl ; - nominative = Nom ; - genitive = Gen ; - - Preposition : Type = Str ; -- obsolete - - mkPreposition : Str -> Prep ; -- obsolete - mkPreposition = mkPrep ; - - mkPrep p = {s = p ; lock_Prep = <>} ; - noPrep = mkPrep [] ; - - mkN x y z u = mkSubstantive x y z u ** {g = extNGen y ; lock_N = <>} ; - - regN x = regGenN x Utr ; - - regGenN x g = case last x of { - "e" => case g of { - Utr => mkN x (x + "n") (x + "r") (x + "rne") ; - Neutr => mkN x (x + "t") (x + "r") (init x + "ene") - } ; - _ => case g of { - Utr => mkN x (x + "en") (x + "er") (x + "erne") ; - Neutr => mkN x (x + "et") (x + "") (x + "ene") - } - } ; - - - mk2N x y = case last y of { - "n" => mk3N x y (init y + "r") ; - _ => mk3N x y x - } ; - - mk3N x y z = let u = ifTok Str x z "ene" "ne" in mkN x y z (z + u) ; - - mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p.s} ; - regN2 n g = mkN2 (regGenN n g) (mkPreposition "av") ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ; - - mkPN n g = {s = \\c => mkCase c n ; g = g} ** {lock_PN = <>} ; - regPN n = mkPN n utrum ; - nounPN n = {s = n.s ! singular ! Indef ; g = n.g ; lock_PN = <>} ; - mkNP x y n g = - {s = table {NPPoss _ => x ; _ => y} ; a = agrP3 g n ; - lock_NP = <>} ; - - mkA = mk3ADeg ; - mk2A a b = mkA a b (a + "e") ; - regA a = (regADeg a) ** {lock_A = <>} ; - - mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ; - - mkADeg a b c d e = mkAdject a b c d e ** {isComp = False ; lock_A = <>} ; - - regADeg a = case Predef.dp 2 a of { - "sk" => aRask a ; - _ => case last a of { - "t" => aAbstrakt a ; - _ => aRod a - }} ** {isComp = False ; lock_A = <>} ; - - irregADeg a b c = mkAdject a (a + "t") (a + "e") b c ** - {isComp = False ; lock_A = <>} ; - mk3ADeg a b c = mkAdject a b c (c + "re") (c + "st") ** - {isComp = False ; lock_A = <>} ; - mk2ADeg a b = mkAdject a b (a + "e") (a + "ere") (a + "est") ** - {isComp = False ; lock_A = <>} ; - - compoundA adj = {s = adj.s ; isComp = True ; lock_A = <>} ; - - mkAdv x = ss x ** {lock_Adv = <>} ; - mkAdV x = ss x ** {lock_AdV = <>} ; - mkAdA x = ss x ** {lock_AdA = <>} ; - - mkV a b c d e f = mkVerb6 a b c d e f ** - {part = [] ; vtype = VAct ; lock_V = <> ; isVaere = False} ; - - regV a = case last a of { - "e" => vHusk (init a) ; - _ => vBo a - } ** {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ; - - mk2V a b = regVerb a b ** - {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ; - - irregV = - \drikke,drakk,drukket -> - let - drikk = case last drikke of { - "e" => init drikke ; - _ => drikke - } ; - drikker = case last (init drikke) of { - "r" => init drikke ; - _ => drikke + "r" - } - in - mkV drikke drikker (drikke + "s") drakk drukket (mkImper drikk) ; - - vaereV v = { - s = v.s ; - part = [] ; - vtype = v.vtype ; - isVaere = True ; - lock_V = <> - } ; - - partV v p = { - s = v.s ; - part = p ; - vtype = v.vtype ; - isVaere = v.isVaere ; - lock_V = <> - } ; - - depV v = { - s = v.s ; part = v.part ; vtype = VPass ; isVaere = False ; lock_V = <> - } ; - reflV v = { - s = v.s ; part = v.part ; vtype = VRefl ; isVaere = False ; lock_V = <> - } ; - - mkV2 v p = v ** {c2 = p.s ; lock_V2 = <>} ; - dirV2 v = mkV2 v (mkPrep []) ; - - mkV3 v p q = v ** {c2 = p.s ; c3 = q.s ; lock_V3 = <>} ; - dirV3 v p = mkV3 v noPrep p ; - dirdirV3 v = dirV3 v noPrep ; - - mkV0 v = v ** {lock_V0 = <>} ; - mkVS v = v ** {lock_VS = <>} ; - mkV2S v p = mkV2 v p ** {lock_V2S = <>} ; - mkVV v = v ** {c2 = "å" ; lock_VV = <>} ; - mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2V = <>} ; - mkVA v = v ** {lock_VA = <>} ; - mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; - mkVQ v = v ** {lock_VQ = <>} ; - mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - - mkAS v = v ** {lock_A = <>} ; - mkA2S v p = mkA2 v p ** {lock_A = <>} ; - mkAV v = v ** {lock_A = <>} ; - mkA2V v p = mkA2 v p ** {lock_A = <>} ; - - V0 : Type = V ; - V2S, V2V, V2Q, V2A : Type = V2 ; - AS, A2S, AV : Type = A ; - A2V : Type = A2 ; - - -} ; diff --git a/lib/resource-1.0/danish/StructuralDan.gf b/lib/resource-1.0/danish/StructuralDan.gf deleted file mode 100644 index 9f3c7d04f..000000000 --- a/lib/resource-1.0/danish/StructuralDan.gf +++ /dev/null @@ -1,126 +0,0 @@ -concrete StructuralDan of Structural = CatDan ** - open MorphoDan, ParadigmsDan, Prelude in { - - flags optimize=all ; - - lin - above_Prep = ss "ovenfor" ; - after_Prep = ss "efter" ; - by8agent_Prep = ss "af" ; - all_Predet = {s = gennumForms "all" "alt" "alle"} ; - almost_AdA, almost_AdN = ss "næsten" ; - although_Subj = ss ["selv om"] ; - always_AdV = ss "altid" ; - and_Conj = ss "og" ** {n = Pl} ; - because_Subj = ss "fordi" ; - before_Prep = ss "før" ; - behind_Prep = ss "bag" ; - between_Prep = ss "mellem" ; - both7and_DConj = sd2 "både" "og" ** {n = Pl} ; - but_PConj = ss "men" ; - by8means_Prep = ss "med" ; - can8know_VV, can_VV = - mkV "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** - {c2 = [] ; lock_VV = <>} ; - during_Prep = ss "under" ; - either7or_DConj = sd2 "enten" "eller" ** {n = Sg} ; - everybody_NP = regNP "alle" "alles" Plg ; - every_Det = {s = \\_,_ => "hver" ; n = Sg ; det = DDef Indef} ; - everything_NP = regNP "alt" "alts" SgNeutr ; - everywhere_Adv = ss "overalt" ; - few_Det = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ; - first_Ord = {s = "første" ; isDet = True} ; - from_Prep = ss "fra" ; - he_Pron = MorphoDan.mkNP "han" "ham" "hans" "hans" "hans" SgUtr P3 ; - here_Adv = ss "her" ; - here7to_Adv = ss "hit" ; - here7from_Adv = ss "herfra" ; - how_IAdv = ss "hvor" ; - how8many_IDet = {s = \\_ => ["hur mange"] ; n = Pl ; det = DDef Indef} ; - if_Subj = ss "hvis" ; - in8front_Prep = ss "foran" ; - i_Pron = - MorphoDan.mkNP "jeg" "mig" "min" "mit" "mine" SgUtr P1 ; - in_Prep = ss "i" ; - it_Pron = MorphoDan.regNP "det" "dets" SgNeutr ; - less_CAdv = ss "mindre" ; - many_Det = {s = \\_,_ => "mange" ; n = Pl ; det = DDef Indef} ; - more_CAdv = ss "mer" ; - most_Predet = {s = gennumForms ["den meste"] ["det meste"] ["de fleste"]} ; - much_Det = {s = \\_,_ => "meget" ; n = Pl ; det = DDef Indef} ; - must_VV = - mkV "måtte" "må" "må" "måtte" "måttet" "mått" ** {c2 = [] ; lock_VV = <>} ; - no_Phr = ss ["Nej"] ; - on_Prep = ss "på" ; - one_Quant = {s = \\_ => genderForms ["en"] ["et"] ; n = Sg ; det = DIndef} ; --- ei - only_Predet = {s = \\_ => "kun"} ; - or_Conj = ss "eller" ** {n = Sg} ; - otherwise_PConj = ss "anderledes" ; - part_Prep = ss "af" ; - please_Voc = ss "tak" ; --- - possess_Prep = ss "af" ; - quite_Adv = ss "temmelig" ; - she_Pron = MorphoDan.mkNP "hun" "hende" "hendes" "hendes" "hendes" SgUtr P3 ; - so_AdA = ss "så" ; - someSg_Det = {s = \\_ => genderForms "nogen" "noget" ; n = Sg ; det = DIndef} ; - somePl_Det = {s = \\_,_ => "nogle" ; n = Pl ; det = DIndef} ; - somebody_NP = regNP "nogen" "nogens" SgUtr ; - something_NP = regNP "noget" "nogets" SgNeutr ; - somewhere_Adv = ss ["et eller annet sted"] ; ---- ? - that_Quant = - {s = table { - Sg => \\_ => genderForms ["den der"] ["det der"] ; - Pl => \\_,_ => ["de der"] - } ; - det = DDef Indef - } ; - that_NP = regNP ["det der"] ["det ders"] SgNeutr ; - there_Adv = ss "der" ; - there7to_Adv = ss "dit" ; - there7from_Adv = ss "derfra" ; - therefore_PConj = ss "derfor" ; - these_NP = regNP ["disse"] ["disses"] Plg ; - they_Pron = MorphoDan.mkNP "de" "dem" "deres" "deres" "deres" Plg P1 ; - this_Quant = - {s = table { - Sg => \\_ => genderForms ["denne"] ["dette"] ; - Pl => \\_,_ => ["disse"] - } ; - det = DDef Indef - } ; - this_NP = regNP ["dette"] ["dettes"] SgNeutr ; - those_NP = regNP ["de der"] ["de ders"] Plg ; - through_Prep = ss "gennem" ; - too_AdA = ss "for" ; - to_Prep = ss "til" ; - under_Prep = ss "under" ; - very_AdA = ss "meget" ; - want_VV = - mkV "ville" "vil" nonExist "ville" "villet" "villed" ** - {c2 = [] ; lock_VV = <>} ; - we_Pron = MorphoDan.mkNP "vi" "os" "vores" "vores" "vores" Plg P1 ; - whatSg_IP = {s = \\_ => "hvad" ; gn = SgUtr} ; ---- infl - whatPl_IP = {s = \\_ => "hvilke" ; gn = Plg} ; ---- infl - when_IAdv = ss "hvornår" ; - when_Subj = ss "når" ; - where_IAdv = ss "hver" ; - whichPl_IDet = {s = \\_ => "hvilke" ; n = Pl ; det = DIndef} ; - whichSg_IDet = {s = genderForms "hvilken" "hvilket" ; n = Sg ; det = DIndef} ; - whoSg_IP = {s = vem.s ; gn = SgUtr} ; - whoPl_IP = {s = \\_ => "hvilke" ; gn = Plg} ; - why_IAdv = ss "hvorfor" ; - without_Prep = ss "uden" ; - with_Prep = ss "med" ; - yes_Phr = ss ["ja"] ; - youSg_Pron = - MorphoDan.mkNP "du" "dig" "din" "dit" "dine" SgUtr P2 ; ---- - youPl_Pron = MorphoDan.mkNP "i" "jer" "jeres" "jeres" "jeres" Plg P2 ; - youPol_Pron = MorphoDan.mkNP "Dere" "Dere" "Deres" "Deres" "Deres" SgUtr P2 ; --- wrong in refl - --- Auxiliaries that are used repeatedly. - - oper - vem = MorphoDan.mkNP "hvem" "hvem" "hvis" "hvis" "hvis" SgUtr P3 ; - -} - diff --git a/lib/resource-1.0/doc/Makefile b/lib/resource-1.0/doc/Makefile deleted file mode 100644 index fe776c896..000000000 --- a/lib/resource-1.0/doc/Makefile +++ /dev/null @@ -1,7 +0,0 @@ -clt: - txt2tags clt2006.txt - htmls clt2006.html -gslt: - txt2tags gslt-sem-2006.txt - htmls gslt-sem-2006.html - diff --git a/lib/resource-1.0/english/LangEng.gf b/lib/resource-1.0/english/LangEng.gf deleted file mode 100644 index 966308a2b..000000000 --- a/lib/resource-1.0/english/LangEng.gf +++ /dev/null @@ -1,10 +0,0 @@ ---# -path=.:../abstract:../common:prelude - -concrete LangEng of Lang = - GrammarEng, - LexiconEng - ** { - -flags startcat = Phr ; unlexer = text ; lexer = text ; - -} ; diff --git a/lib/resource-1.0/english/MorphoEng.gf b/lib/resource-1.0/english/MorphoEng.gf deleted file mode 100644 index a45a2b82c..000000000 --- a/lib/resource-1.0/english/MorphoEng.gf +++ /dev/null @@ -1,198 +0,0 @@ ---# -path=.:../../prelude - ---1 A Simple English Resource Morphology --- --- Aarne Ranta 2002 -- 2005 --- --- This resource morphology contains definitions needed in the resource --- syntax. To build a lexicon, it is better to use $ParadigmsEng$, which --- gives a higher-level access to this module. - -resource MorphoEng = ResEng ** open Prelude, (Predef=Predef) in { - - flags optimize=all ; - ---2 Phonology --- --- To regulate the use of endings for both nouns, adjectives, and verbs: - -oper - y2ie : Str -> Str -> Str = \fly,s -> - let y = last (init fly) in - case y of { - "a" => fly + s ; - "e" => fly + s ; - "o" => fly + s ; - "u" => fly + s ; - _ => init fly + "ie" + s - } ; - - ---2 Nouns --- --- For conciseness and abstraction, we define a worst-case macro for --- noun inflection. It is used for defining special case that --- only need one string as argument. - -oper - CommonNoun : Type = {s : Number => Case => Str} ; - - nounGen : Str -> CommonNoun = \dog -> case last dog of { - "y" => nounY "dog" ; - "s" => nounS (init "dog") ; - _ => nounReg "dog" - } ; - --- These are auxiliaries to $nounGen$. - - nounReg : Str -> CommonNoun = \dog -> - mkNoun dog (dog + "s") (dog + "'s") (dog + "s'"); - nounS : Str -> CommonNoun = \kiss -> - mkNoun kiss (kiss + "es") (kiss + "'s") (kiss + "es'") ; - nounY : Str -> CommonNoun = \fl -> - mkNoun (fl + "y") (fl + "ies") (fl + "y's") (fl + "ies'") ; - - ---3 Proper names --- --- Regular proper names are inflected with "'s" in the genitive. - - nameReg : Str -> Gender -> {s : Case => Str} = \john,g -> - {s = table {Gen => john + "'s" ; _ => john} ; g = g} ; - ---2 Determiners - - mkDeterminer : Number -> Str -> {s : Str ; n : Number} = \n,s -> - {s = s ; n = n} ; - ---2 Pronouns --- --- Here we define personal pronouns. --- --- We record the form "mine" and the gender for later use. - - Pronoun : Type = - {s : Case => Str ; a : Agr ; g : Gender} ; - - mkPronoun : (_,_,_,_ : Str) -> Number -> Person -> Gender -> Pronoun = - \I,me,my,mine,n,p,g -> - {s = table {Nom => I ; Acc => me ; Gen => my} ; - a = {n = n ; p = p} ; - g = g - } ; - - human : Gender = Masc ; --- doesn't matter - - pronI = mkPronoun "I" "me" "my" "mine" Sg P1 human ; - pronYouSg = mkPronoun "you" "you" "your" "yours" Sg P2 human ; -- verb agr OK - pronHe = mkPronoun "he" "him" "his" "his" Sg P3 Masc ; - pronShe = mkPronoun "she" "her" "her" "hers" Sg P3 Fem ; - pronIt = mkPronoun "it" "it" "its" "it" Sg P3 Neutr ; - - pronWe = mkPronoun "we" "us" "our" "ours" Pl P1 human ; - pronYouPl = mkPronoun "you" "you" "your" "yours" Pl P2 human ; - pronThey = mkPronoun "they" "them" "their" "theirs" Pl P3 human ; --- - - ---2 Adjectives --- --- To form the adjectival and the adverbial forms, two strings are needed --- in the worst case. (First without degrees.) - - Adjective = {s : AForm => Str} ; - --- However, most adjectives can be inflected using the final character. --- N.B. this is not correct for "shy", but $mkAdjective$ has to be used. - - regAdjective : Str -> Adjective = \free -> - let - e = last free ; - fre = init free ; - freely = case e of { - "y" => fre + "ily" ; - _ => free + "ly" - } ; - fre = case e of { - "e" => fre ; - "y" => fre + "i" ; - _ => free - } - in - mkAdjective free (fre + "er") (fre + "est") freely ; - --- Many adjectives are 'inflected' by adding a comparison word. - - adjDegrLong : Str -> Adjective = \ridiculous -> - mkAdjective - ridiculous - ("more" ++ ridiculous) - ("most" ++ ridiculous) - ((regAdjective ridiculous).s ! AAdv) ; - - ---3 Verbs --- --- The worst case needs five forms. (The verb "be" is treated separately.) - - mkVerb4 : (_,_,_,_: Str) -> Verb = \go,goes,went,gone -> - let going = case last go of { - "e" => init go + "ing" ; - _ => go + "ing" - } - in - mkVerb go goes went gone going ; - --- This is what we use to derive the irregular forms in almost all cases - - mkVerbIrreg : (_,_,_ : Str) -> Verb = \bite,bit,bitten -> - let bites = case last bite of { - "y" => y2ie bite "s" ; - "s" => init bite + "es" ; - _ => bite + "s" - } - in mkVerb4 bite bites bit bitten ; - --- This is used to derive regular forms. - - mkVerbReg : Str -> Verb = \soak -> - let - soaks = case last soak of { - "y" => y2ie soak "s" ; - "s" => init soak + "es" ; - _ => soak + "s" - } ; - soaked = case last soak of { - "e" => init soak + "s" ; - _ => soak + "ed" - } - in - mkVerb4 soak soaks soaked soaked ; - - verbGen : Str -> Verb = \kill -> case last kill of { - "y" => verbP3y (init kill) ; - "e" => verbP3e (init kill) ; - "s" => verbP3s (init kill) ; - _ => regVerbP3 kill - } ; - --- These are just auxiliary to $verbGen$. - - regVerbP3 : Str -> Verb = \walk -> - mkVerbIrreg walk (walk + "ed") (walk + "ed") ; - verbP3s : Str -> Verb = \kiss -> - mkVerb4 kiss (kiss + "es") (kiss + "ed") (kiss + "ed") ; - verbP3e : Str -> Verb = \love -> - mkVerb4 love (love + "s") (love + "d") (love + "d") ; - verbP3y : Str -> Verb = \cr -> - mkVerb4 (cr + "y") (cr + "ies") (cr + "ied") (cr + "ied") ; - ---- The particle always appears right after the verb. - - verbPart : Verb -> Str -> Verb = \v,p -> - {s = \\f => v.s ! f ++ p ; isRefl = v.isRefl} ; - - verbNoPart : Verb -> Verb = \v -> verbPart v [] ; - - -} ; - diff --git a/lib/resource-1.0/english/StructuralEng.gf b/lib/resource-1.0/english/StructuralEng.gf deleted file mode 100644 index 86be7cd82..000000000 --- a/lib/resource-1.0/english/StructuralEng.gf +++ /dev/null @@ -1,116 +0,0 @@ -concrete StructuralEng of Structural = CatEng ** - open MorphoEng, (P = ParadigmsEng), Prelude in { - - flags optimize=all ; - - lin - above_Prep = ss "above" ; - after_Prep = ss "after" ; - all_Predet = ss "all" ; - almost_AdA, almost_AdN = ss "almost" ; - although_Subj = ss "although" ; - always_AdV = ss "always" ; - and_Conj = ss "and" ** {n = Pl} ; - because_Subj = ss "because" ; - before_Prep = ss "before" ; - behind_Prep = ss "behind" ; - between_Prep = ss "between" ; - both7and_DConj = sd2 "both" "and" ** {n = Pl} ; - but_PConj = ss "but" ; - by8agent_Prep = ss "by" ; - by8means_Prep = ss "by" ; - can8know_VV, can_VV = { - s = table VVForm [["be able to"] ; "can" ; ["been able to"] ; - ["being able to"] ; "could" ; "can't" ; "couldn't"] ; - isAux = True - } ; - during_Prep = ss "during" ; - either7or_DConj = sd2 "either" "or" ** {n = Sg} ; - everybody_NP = regNP "everybody" Sg ; - every_Det = mkDeterminer Sg "every" ; - everything_NP = regNP "everything" Sg ; - everywhere_Adv = ss "everywhere" ; - few_Det = mkDeterminer Pl "few" ; - first_Ord = ss "first" ; - from_Prep = ss "from" ; - he_Pron = mkNP "he" "him" "his" Sg P3 ; - here_Adv = ss "here" ; - here7to_Adv = ss ["to here"] ; - here7from_Adv = ss ["from here"] ; - how_IAdv = ss "how" ; - how8many_IDet = mkDeterminer Pl ["how many"] ; - if_Subj = ss "if" ; - in8front_Prep = ss ["in front of"] ; - i_Pron = mkNP "I" "me" "my" Sg P1 ; - in_Prep = ss "in" ; - it_Pron = mkNP "it" "it" "its" Sg P3 ; - less_CAdv = ss "less" ; - many_Det = mkDeterminer Pl "many" ; - more_CAdv = ss "more" ; - most_Predet = ss "most" ; - much_Det = mkDeterminer Sg "much" ; - must_VV = { - s = table VVForm [["have to"] ; "must" ; ["had to"] ; - ["having to"] ; ["had to"] ; "mustn't" ; ["hadn't to"]] ; ---- - isAux = True - } ; - no_Phr = ss "no" ; - on_Prep = ss "on" ; - one_Quant = mkDeterminer Sg "one" ; - only_Predet = ss "only" ; - or_Conj = ss "or" ** {n = Sg} ; - otherwise_PConj = ss "otherwise" ; - part_Prep = ss "of" ; - please_Voc = ss "please" ; - possess_Prep = ss "of" ; - quite_Adv = ss "quite" ; - she_Pron = mkNP "she" "her" "her" Sg P3 ; - so_AdA = ss "so" ; - somebody_NP = regNP "somebody" Sg ; - someSg_Det = mkDeterminer Sg "some" ; - somePl_Det = mkDeterminer Pl "some" ; - something_NP = regNP "something" Sg ; - somewhere_Adv = ss "somewhere" ; - that_Quant = mkQuant "that" "those" ; - that_NP = regNP "that" Sg ; - there_Adv = ss "there" ; - there7to_Adv = ss "there" ; - there7from_Adv = ss ["from there"] ; - therefore_PConj = ss "therefore" ; - these_NP = regNP "these" Pl ; - they_Pron = mkNP "they" "them" "their" Pl P3 ; - this_Quant = mkQuant "this" "these" ; - this_NP = regNP "this" Sg ; - those_NP = regNP "those" Pl ; - through_Prep = ss "through" ; - too_AdA = ss "too" ; - to_Prep = ss "to" ; - under_Prep = ss "under" ; - very_AdA = ss "very" ; - want_VV = P.mkVV (P.regV "want") ; - we_Pron = mkNP "we" "us" "our" Pl P1 ; - whatPl_IP = mkIP "what" "what" "what's" Sg ; - whatSg_IP = mkIP "what" "what" "what's" Sg ; - when_IAdv = ss "when" ; - when_Subj = ss "when" ; - where_IAdv = ss "where" ; - whichPl_IDet = mkDeterminer Pl ["which"] ; - whichSg_IDet = mkDeterminer Sg ["which"] ; - whoSg_IP = mkIP "who" "whom" "whose" Sg ; - whoPl_IP = mkIP "who" "whom" "whose" Pl ; - why_IAdv = ss "why" ; - without_Prep = ss "without" ; - with_Prep = ss "with" ; - yes_Phr = ss "yes" ; - youSg_Pron = mkNP "you" "you" "your" Sg P2 ; - youPl_Pron = mkNP "you" "you" "your" Pl P2 ; - youPol_Pron = mkNP "you" "you" "your" Sg P2 ; - - -oper - mkQuant : Str -> Str -> {s : Number => Str} = \x,y -> { - s = table Number [x ; y] - } ; - -} - diff --git a/lib/resource-1.0/finnish/LangFin.gf b/lib/resource-1.0/finnish/LangFin.gf deleted file mode 100644 index 3cd551a18..000000000 --- a/lib/resource-1.0/finnish/LangFin.gf +++ /dev/null @@ -1,10 +0,0 @@ ---# -path=.:../abstract:../common:prelude - -concrete LangFin of Lang = - GrammarFin, - LexiconFin - ** { - -flags startcat = Phr ; unlexer = text ; lexer = finnish ; - -} ; diff --git a/lib/resource-1.0/finnish/StructuralFin.gf b/lib/resource-1.0/finnish/StructuralFin.gf deleted file mode 100644 index af7a27b72..000000000 --- a/lib/resource-1.0/finnish/StructuralFin.gf +++ /dev/null @@ -1,306 +0,0 @@ -concrete StructuralFin of Structural = CatFin ** - open MorphoFin, ParadigmsFin, Prelude in { - - flags optimize=all ; - - lin - above_Prep = postGenPrep "yläpuolella" ; - after_Prep = postGenPrep "jälkeen" ; - - all_Predet = {s = \\n,c => - let - kaiket = caseTable n (nhn (sKorpi "kaikki" "kaiken" "kaikkena")) - in - case npform2case n c of { - Nom => "kaikki" ; - k => kaiket ! k - } - } ; - almost_AdA, almost_AdN = ss "melkein" ; - although_Subj = ss "vaikka" ; - always_AdV = ss "aina" ; - and_Conj = ss "ja" ** {n = Pl} ; - because_Subj = ss "koska" ; - before_Prep = prePrep partitive "ennen" ; - behind_Prep = postGenPrep "takana" ; - between_Prep = postGenPrep "välissä" ; - both7and_DConj = sd2 "sekä" "että" ** {n = Pl} ; - but_PConj = ss "mutta" ; - by8agent_Prep = postGenPrep "toimesta" ; - by8means_Prep = casePrep adessive ; - can8know_VV = reg2V "osata" "osasi" ; - can_VV = reg2V "voida" "voi" ; - during_Prep = postGenPrep "aikana" ; - either7or_DConj = sd2 "joko" "tai" ** {n = Sg} ; - everybody_NP = mkNP (regN "jokainen") Sg ; - every_Det = mkDet Sg (regN "jokainen") ; - everything_NP = mkNP ((nhn (sKorpi "kaikki" "kaiken" "kaikkena")) ** - {lock_N = <>}) Sg ; - everywhere_Adv = ss "kaikkialla" ; - few_Det = mkDet Sg (regN "harva") ; - first_Ord = {s = \\n,c => (regN "ensimmäinen").s ! NCase n c} ; - from_Prep = casePrep elative ; - he_Pron = mkPronoun "hän" "hänen" "häntä" "hänenä" "häneen" Sg P3 ; - here_Adv = ss "täällä" ; - here7to_Adv = ss "tänne" ; - here7from_Adv = ss "täältä" ; - how_IAdv = ss "miten" ; - how8many_IDet = - {s = \\c => "kuinka" ++ (reg2N "moni" "monia").s ! NCase Sg c ; n = Sg} ; - if_Subj = ss "jos" ; - in8front_Prep = postGenPrep "edessä" ; - i_Pron = mkPronoun "minä" "minun" "minua" "minuna" "minuun" Sg P1 ; - in_Prep = casePrep inessive ; - it_Pron = { - s = \\c => pronSe.s ! npform2case Sg c ; - a = agrP3 Sg ; - isPron = False - } ; - less_CAdv = ss "vähemmän" ; - many_Det = mkDet Sg (reg2N "moni" "monia") ; - more_CAdv = ss "enemmän" ; - most_Predet = {s = \\n,c => (nhn (sSuurin "useinta")).s ! NCase n (npform2case n c)} ; - much_Det = mkDet Sg {s = \\_ => "paljon"} ; - must_VV = subjcaseV (regV "täytyä") genitive ; - no_Phr = ss "ei" ; - on_Prep = casePrep adessive ; - one_Quant = mkDet Sg - (nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi" - "yksien" "yksiä" "yksiin")) ; - only_Predet = {s = \\_,_ => "vain"} ; - or_Conj = ss "tai" ** {n = Sg} ; - otherwise_PConj = ss "muuten" ; - part_Prep = casePrep partitive ; - please_Voc = ss ["ole hyvä"] ; --- number - possess_Prep = casePrep genitive ; - quite_Adv = ss "melko" ; - she_Pron = mkPronoun "hän" "hänen" "häntä" "hänenä" "häneen" Sg P3 ; - so_AdA = ss "niin" ; - somebody_NP = { - s = \\c => jokuPron ! Sg ! npform2case Sg c ; - a = agrP3 Sg ; - isPron = False - } ; - someSg_Det = { - s1 = jokuPron ! Sg ; - s2 = [] ; - isNum,isPoss = False ; isDef = True ; n = Sg - } ; - somePl_Det = { - s1 = jokuPron ! Pl ; - s2 = [] ; isNum,isPoss = False ; isDef = True ; - n = Pl - } ; - something_NP = { - s = \\c => jokinPron ! Sg ! npform2case Sg c ; - a = agrP3 Sg ; - isPron = False - } ; - somewhere_Adv = ss "jossain" ; - that_Quant = { - s1 = table Number [ - table Case { - c => (mkPronoun "tuo" "tuon" "tuota" "tuona" "tuohon" Sg P3).s ! NPCase c - } ; - table Case { - c => (mkPronoun "nuo" "noiden" "noita" "noina" "noihin" Sg P3).s ! NPCase c - } - ] ; - s2 = [] ; isNum,isPoss = False ; isDef = True ; - } ; - that_NP = - mkDemPronoun "tuo" "tuon" "tuota" "tuona" "tuohon" Sg ** - {isPron = False} ; - there_Adv = ss "siellä" ; --- tuolla - there7to_Adv = ss "sinne" ; - there7from_Adv = ss "sieltä" ; - therefore_PConj = ss "siksi" ; - these_NP = - mkDemPronoun "nämä" "näiden" "näitä" "näinä" "näihin" Pl ** - {isPron = False} ; - they_Pron = mkPronoun "he" "heidän" "heitä" "heinä" "heihin" Pl P3 ; --- ne - this_Quant = { - s1 = table Number [ - table Case { - c => (mkPronoun "tämä" "tämän" "tätä" "tänä" "tähän" Sg P3).s ! NPCase c - } ; - table Case { - c => (mkPronoun "nuo" "noiden" "noita" "noina" "noihin" Sg P3).s ! NPCase c - } - ] ; - s2 = [] ; isNum,isPoss = False ; isDef = True ; - } ; - this_NP = - mkDemPronoun "tämä" "tämän" "tätä" "tänä" "tähän" Sg ** - {isPron = False} ; - those_NP = - mkDemPronoun "nuo" "noiden" "noita" "noina" "noihin" Pl ** - {isPron = False} ; - through_Prep = postGenPrep "kautta" ; - too_AdA = ss "liian" ; - to_Prep = casePrep illative ; --- allative - under_Prep = postGenPrep "alla" ; - very_AdA = ss "erittäin" ; - want_VV = regV "tahtoa" ; - we_Pron = mkPronoun "me" "meidän" "meitä" "meinä" "meihin" Pl P1 ; - whatPl_IP = { - s = table {NPAcc => "mitkä" ; c => mikaInt ! Pl ! npform2case Pl c} ; - n = Pl - } ; - whatSg_IP = { - s = \\c => mikaInt ! Sg ! npform2case Sg c ; - n = Sg - } ; - when_IAdv = ss "milloin" ; - when_Subj = ss "kun" ; - where_IAdv = ss "missä" ; - whichPl_IDet = { - s = mikaInt ! Pl ; - n = Pl - } ; - whichSg_IDet = { - s = mikaInt ! Sg ; - n = Sg - } ; - whoSg_IP = { - s = table {NPAcc => "kenet" ; c => kukaInt ! Sg ! npform2case Sg c} ; - n = Sg - } ; - whoPl_IP = { - s = table {NPAcc => "ketkä" ; c => kukaInt ! Pl ! npform2case Pl c} ; - n = Pl - } ; - why_IAdv = ss "miksi" ; - without_Prep = prePrep partitive "ilman" ; - with_Prep = postGenPrep "kanssa" ; - yes_Phr = ss "kyllä" ; - youSg_Pron = mkPronoun "sinä" "sinun" "sinua" "sinuna" "sinuun" Sg P2 ; - youPl_Pron = mkPronoun "te" "teidän" "teitä" "teinä" "teihin" Pl P2 ; - youPol_Pron = mkPronoun "te" "teidän" "teitä" "teinä" "teihin" Pl P2 ; --- Sg - - -oper - jokuPron : Number => Case => Str = - let - ku = nhn (sPuu "ku") ; - kui = nhn (sPuu "kuu") - in - table { - Sg => table { - Nom => "joku" ; - Gen => "jonkun" ; - c => relPron ! Sg ! c + ku.s ! NCase Sg c - } ; - Pl => table { - Nom => "jotkut" ; - c => relPron ! Pl ! c + kui.s ! NCase Pl c - } - } ; - - jokinPron : Number => Case => Str = - table { - Sg => table { - Nom => "jokin" ; - Gen => "jonkin" ; - c => relPron ! Sg ! c + "kin" - } ; - Pl => table { - Nom => "jotkin" ; - c => relPron ! Pl ! c + "kin" - } - } ; - - mikaInt : Number => Case => Str = - let { - mi = nhn (sSuo "mi") - } in - table { - Sg => table { - Nom => "mikä" ; - Gen => "minkä" ; - c => mi.s ! NCase Sg c - } ; - Pl => table { - Nom => "mitkä" ; - Gen => "mittenkä" ; - c => mi.s ! NCase Sg c - } - } ; - - kukaInt : Number => Case => Str = - let { - ku = nhn (sRae "kuka" "kenenä") ; - ket = nhn (sRae "kuka" "keinä")} in - table { - Sg => table { - Nom => "kuka" ; - Part => "ketä" ; - Illat => "keneen" ; - c => ku.s ! NCase Sg c - } ; - Pl => table { - Nom => "ketkä" ; - Illat => "keihin" ; - c => ket.s ! NCase Pl c - } - } ; - mikaanPron : Number => Case => Str = \\n,c => - case of { - => "mikään" ; - <_,Part> => "mitään" ; - => "minkään" ; - => "mitkään" ; - => "mittenkään" ; - <_,Ess> => "minään" ; - <_,Iness> => "missään" ; - <_,Elat> => "mistään" ; - <_,Adess> => "millään" ; - <_,Ablat> => "miltään" ; - _ => mikaInt ! n ! c + "kään" - } ; - - kukaanPron : Number => Case => Str = - table { - Sg => table { - Nom => "kukaan" ; - Part => "ketään" ; - Ess => "kenään" ; - Iness => "kessään" ; - Elat => "kestään" ; - Illat => "kehenkään" ; - Adess => "kellään" ; - Ablat => "keltään" ; - c => kukaInt ! Sg ! c + "kään" - } ; - Pl => table { - Nom => "ketkään" ; - Part => "keitään" ; - Ess => "keinään" ; - Iness => "keissään" ; - Elat => "keistään" ; - Adess => "keillään" ; - Ablat => "keiltään" ; - c => kukaInt ! Pl ! c + "kään" - } - } ; - - pronSe : ProperName = { - s = table { - Nom => "se" ; - Gen => "sen" ; - Part => "sitä" ; - Transl => "siksi" ; - Ess => "sinä" ; - Iness => "siinä" ; - Elat => "siitä" ; - Illat => "siihen" ; - Adess => "sillä" ; - Ablat => "siltä" ; - Allat => "sille" ; - Abess => "sittä" - } ; - } ; - - -} - diff --git a/lib/resource-1.0/french/LangFre.gf b/lib/resource-1.0/french/LangFre.gf deleted file mode 100644 index 6070e2634..000000000 --- a/lib/resource-1.0/french/LangFre.gf +++ /dev/null @@ -1,10 +0,0 @@ ---# -path=.:../romance:../abstract:../common:prelude - -concrete LangFre of Lang = - GrammarFre, - LexiconFre - ** { - -flags startcat = Phr ; unlexer = text ; lexer = text ; - -} ; diff --git a/lib/resource-1.0/french/StructuralFre.gf b/lib/resource-1.0/french/StructuralFre.gf deleted file mode 100644 index 9f9b331ac..000000000 --- a/lib/resource-1.0/french/StructuralFre.gf +++ /dev/null @@ -1,142 +0,0 @@ -concrete StructuralFre of Structural = CatFre ** - open PhonoFre, MorphoFre, ParadigmsFre, IrregFre, Prelude in { - - flags optimize=all ; - -lin - - above_Prep = {s = ["au dessus"] ; c = MorphoFre.genitive ; isDir = False} ; - after_Prep = mkPreposition "après" ; - all_Predet = { - s = \\a,c => prepCase c ++ aagrForms "tout" "toute" "tous" "toutes" ! a ; - c = Nom - } ; - almost_AdA, almost_AdN = ss "presque" ; - always_AdV = ss "toujours" ; - although_Subj = ss ("bien" ++ elisQue) ** {m = Conjunct} ; - and_Conj = ss "et" ** {n = Pl} ; - because_Subj = ss ("parce" ++ elisQue) ** {m = Indic} ; - before_Prep = mkPreposition "avant" ; - behind_Prep = mkPreposition "derrière" ; - between_Prep = mkPreposition "entre" ; - both7and_DConj = {s1,s2 = "et" ; n = Pl} ; - but_PConj = ss "mais" ; - by8agent_Prep = mkPreposition "par" ; - by8means_Prep = mkPreposition "par" ; - can8know_VV = mkVV (savoir_V2 ** {lock_V = <>}) ; - can_VV = mkVV pouvoir_V ; - during_Prep = mkPreposition "pendant" ; - either7or_DConj = {s1,s2 = "ou" ; n = Pl} ; - everybody_NP = pn2np (mkPN ["tout le monde"] Masc) ; - every_Det = {s = \\_,_ => "chaque" ; n = Sg} ; - everything_NP = pn2np (mkPN ["tout"] Masc) ; - everywhere_Adv = ss "partout" ; - few_Det = {s = \\g,c => prepCase c ++ "peu" ++ elisDe ; n = Pl} ; - first_Ord = {s = \\ag => (regA "premier").s ! Posit ! AF ag.g ag.n} ; - from_Prep = complGen ; --- - he_Pron = - mkPronoun - "il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses" - Masc Sg P3 ; - here7from_Adv = ss "d'ici" ; - here7to_Adv = ss "ici" ; - here_Adv = ss "ici" ; - how_IAdv = ss "comment" ; - how8many_IDet = {s = \\_,c => prepCase c ++ "combien" ++ elisDe ; n = Pl} ; - if_Subj = ss elisSi ** {m = Indic} ; - in8front_Prep = mkPreposition "devant" ; - i_Pron = - mkPronoun - (elision "j") (elision "m") (elision "m") "moi" "mon" (elisPoss "m") "mes" - Masc Sg P1 ; - in_Prep = mkPreposition "dans" ; - it_Pron = - mkPronoun - "il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses" - Masc Sg P3 ; - less_CAdv = ss "moins" ; - many_Det = {s = \\_,c => prepCase c ++ "plusieurs" ; n = Pl} ; - more_CAdv = ss "plus" ; - most_Predet = {s = \\_,c => prepCase c ++ ["la plupart"] ; c = CPrep P_de} ; - much_Det = {s = \\_,c => prepCase c ++ "beaucoup" ++ elisDe ; n = Pl} ; - must_VV = mkVV (devoir_V2 ** {lock_V = <>}) ; - no_Phr = ss "non" ; - on_Prep = mkPreposition "sur" ; - one_Quant = {s = \\g,c => prepCase c ++ genForms "un" "une" ! g} ; - only_Predet = {s = \\_,c => prepCase c ++ "seulement" ; c = Nom} ; --- seul(e)(s) - or_Conj = {s = "ou" ; n = Sg} ; - otherwise_PConj = ss "autrement" ; - part_Prep = complGen ; - please_Voc = ss ["s'il vous plaît"] ; - possess_Prep = complGen ; - quite_Adv = ss "assez" ; - she_Pron = - mkPronoun - "elle" elisLa "lui" "elle" "son" (elisPoss "s") "ses" - Fem Sg P3 ; - - so_AdA = ss "si" ; - somebody_NP = pn2np (mkPN ["quelqu'un"] Masc) ; - somePl_Det = {s = \\_,c => prepCase c ++ "quelques" ; n = Pl} ; - someSg_Det = {s = \\_,c => prepCase c ++ elision "quelqu" ; n = Sg} ; - something_NP = pn2np (mkPN ["quelque chose"] Masc) ; - somewhere_Adv = ss ["quelque part"] ; --- ne - pas - that_Quant = {s = \\_ => - table { - Sg => \\g,c => prepCase c ++ genForms "ce" "cette" ! g ; ---- cet ; là - Pl => \\_,_ => "ces" - } - } ; - that_NP = mkNP ["cela"] Masc Sg ; - there7from_Adv = ss ["de là"] ; - there7to_Adv = ss "là" ; --- y - there_Adv = ss "là" ; - therefore_PConj = ss "donc" ; - these_NP = mkNP ["ceux-ci"] Masc Pl ; - they_Pron = mkPronoun - "ils" "les" "leur" "eux" "leur" "leur" "leurs" - Masc Pl P3 ; - this_Quant = {s = \\_ => - table { - Sg => \\g,c => prepCase c ++ genForms "ce" "cette" ! g ; ---- cet ; ci - Pl => \\_,_ => "ces" - } - } ; - this_NP = pn2np (mkPN ["ceci"] Masc) ; - those_NP = mkNP ["ceux-là"] Masc Pl ; - through_Prep = mkPreposition "par" ; - too_AdA = ss "trop" ; - to_Prep = complDat ; - under_Prep = mkPreposition "sous" ; - very_AdA = ss "très" ; - want_VV = mkVV (vouloir_V2 ** {lock_V = <>}) ; - we_Pron = - mkPronoun "nous" "nous" "nous" "nous" "notre" "notre" "nos" - Masc Pl P1 ; - whatSg_IP = - {s = \\c => artDef a.g a.n c + quelPron ! a ; a = a} - where {a = aagr Masc Sg} ; - whatPl_IP = - {s = \\c => artDef a.g a.n c + quelPron ! a ; a = a} - where {a = aagr Masc Pl} ; - when_IAdv = ss "quand" ; - when_Subj = ss "quand" ** {m = Indic} ; - where_IAdv = ss "où" ; - whichSg_IDet = {s = \\g,c => prepCase c ++ genForms "quel" "quelle" ! g ; n = Sg} ; - whichPl_IDet = {s = \\g,c => prepCase c ++ genForms "quels" "quelles" ! g; n = Pl} ; - whoPl_IP = {s = \\c => prepCase c ++ "qui" ; a = aagr Masc Pl} ; - whoSg_IP = {s = \\c => prepCase c ++ "qui" ; a = aagr Masc Sg} ; - why_IAdv = ss "pourquoi" ; - without_Prep = mkPreposition "sans" ; - with_Prep = mkPreposition "avec" ; - yes_Phr = ss "oui" ; --- si - youSg_Pron = mkPronoun - "tu" (elision "t") (elision "t") "toi" "ton" (elisPoss "t") "tes" - Masc Sg P2 ; - youPl_Pron, youPol_Pron = - mkPronoun - "vous" "vous" "vous" "vous" "votre" "votre" "vos" - Masc Pl P2 ; - -} - diff --git a/lib/resource-1.0/italian/BeschIta.gf b/lib/resource-1.0/italian/BeschIta.gf deleted file mode 100644 index c9120731e..000000000 --- a/lib/resource-1.0/italian/BeschIta.gf +++ /dev/null @@ -1,6602 +0,0 @@ ---# -path=.:../romance:../common:../abstract:../../prelude - -resource BeschIta = open Prelude, CommonRomance in { - -flags optimize=values ; -- smaller than noexpand - -oper Verbo = {s : VForm => Str} ; - --- machine-generated GF file - -oper essere_1 : Str -> Verbo = \essere -> - let x_ = Predef.tk 6 essere in - {s = table { - Inf => x_ + "essere" ; - InfClit => x_ + "r" ; - Indi Pres Sg P1 => x_ + "sono" ; - Indi Pres Sg P2 => x_ + "sei" ; - Indi Pres Sg P3 => x_ + "è" ; - Indi Pres Pl P1 => x_ + "siamo" ; - Indi Pres Pl P2 => x_ + "siete" ; - Indi Pres Pl P3 => x_ + "sono" ; - Indi Imperf Sg P1 => x_ + "ero" ; --# notpresent - Indi Imperf Sg P2 => x_ + "eri" ; --# notpresent - Indi Imperf Sg P3 => x_ + "era" ; --# notpresent - Indi Imperf Pl P1 => x_ + "eravamo" ; --# notpresent - Indi Imperf Pl P2 => x_ + "eravate" ; --# notpresent - Indi Imperf Pl P3 => x_ + "erano" ; --# notpresent - Pass Sg P1 => x_ + "fui" ; --# notpresent - Pass Sg P2 => x_ + "fosti" ; --# notpresent - Pass Sg P3 => x_ + "fu" ; --# notpresent - Pass Pl P1 => x_ + "fummo" ; --# notpresent - Pass Pl P2 => x_ + "foste" ; --# notpresent - Pass Pl P3 => x_ + "furono" ; --# notpresent - Fut Sg P1 => x_ + "sarò" ; --# notpresent - Fut Sg P2 => x_ + "sarai" ; --# notpresent - Fut Sg P3 => x_ + "sarà" ; --# notpresent - Fut Pl P1 => x_ + "saremo" ; --# notpresent - Fut Pl P2 => x_ + "sarete" ; --# notpresent - Fut Pl P3 => x_ + "saranno" ; --# notpresent - Cong Pres Sg P1 => x_ + "sia" ; - Cong Pres Sg P2 => x_ + "sia" ; - Cong Pres Sg P3 => x_ + "sia" ; - Cong Pres Pl P1 => x_ + "siamo" ; - Cong Pres Pl P2 => x_ + "siate" ; - Cong Pres Pl P3 => x_ + "siano" ; - Cong Imperf Sg P1 => x_ + "fossi" ; --# notpresent - Cong Imperf Sg P2 => x_ + "fossi" ; --# notpresent - Cong Imperf Sg P3 => x_ + "fosse" ; --# notpresent - Cong Imperf Pl P1 => x_ + "fossimo" ; --# notpresent - Cong Imperf Pl P2 => x_ + "foste" ; --# notpresent - Cong Imperf Pl P3 => x_ + "fossero" ; --# notpresent - Cond Sg P1 => x_ + "sarei" ; --# notpresent - Cond Sg P2 => x_ + "saresti" ; --# notpresent - Cond Sg P3 => x_ + "sarebbe" ; --# notpresent - Cond Pl P1 => x_ + "saremmo" ; --# notpresent - Cond Pl P2 => x_ + "sareste" ; --# notpresent - Cond Pl P3 => x_ + "sarebbero" ; --# notpresent - Imper SgP2 => x_ + "sii" ; - Imper PlP1 => x_ + "siamo" ; - Imper PlP2 => x_ + "siate" ; - Ger => x_ + "essendo" ; - Part PresP Masc Sg => variants {} ; - Part PresP Masc Pl => variants {} ; - Part PresP Fem Sg => variants {} ; - Part PresP Fem Pl => variants {} ; - Part PassP Masc Sg => x_ + "stato" ; - Part PassP Masc Pl => x_ + "stati" ; - Part PassP Fem Sg => x_ + "stata" ; - Part PassP Fem Pl => x_ + "state" - } - } ; - -oper avere_2 : Str -> Verbo = \avere -> - let x_ = Predef.tk 5 avere in - {s = table { - Inf => x_ + "avere" ; - InfClit => x_ + "aver" ; - Indi Pres Sg P1 => x_ + "ho" ; - Indi Pres Sg P2 => x_ + "hai" ; - Indi Pres Sg P3 => x_ + "ha" ; - Indi Pres Pl P1 => x_ + "abbiamo" ; - Indi Pres Pl P2 => x_ + "avete" ; - Indi Pres Pl P3 => x_ + "hanno" ; - Indi Imperf Sg P1 => x_ + "avevo" ; --# notpresent - Indi Imperf Sg P2 => x_ + "avevi" ; --# notpresent - Indi Imperf Sg P3 => x_ + "aveva" ; --# notpresent - Indi Imperf Pl P1 => x_ + "avevamo" ; --# notpresent - Indi Imperf Pl P2 => x_ + "avevate" ; --# notpresent - Indi Imperf Pl P3 => x_ + "avevano" ; --# notpresent - Pass Sg P1 => x_ + "ebbi" ; --# notpresent - Pass Sg P2 => x_ + "avesti" ; --# notpresent - Pass Sg P3 => x_ + "ebbe" ; --# notpresent - Pass Pl P1 => x_ + "avemmo" ; --# notpresent - Pass Pl P2 => x_ + "aveste" ; --# notpresent - Pass Pl P3 => x_ + "ebbero" ; --# notpresent - Fut Sg P1 => x_ + "avrò" ; --# notpresent - Fut Sg P2 => x_ + "avrai" ; --# notpresent - Fut Sg P3 => x_ + "avrà" ; --# notpresent - Fut Pl P1 => x_ + "avremo" ; --# notpresent - Fut Pl P2 => x_ + "avrete" ; --# notpresent - Fut Pl P3 => x_ + "avranno" ; --# notpresent - Cong Pres Sg P1 => x_ + "abbia" ; - Cong Pres Sg P2 => x_ + "abbia" ; - Cong Pres Sg P3 => x_ + "abbia" ; - Cong Pres Pl P1 => x_ + "abbiamo" ; - Cong Pres Pl P2 => x_ + "abbiate" ; - Cong Pres Pl P3 => x_ + "abbiano" ; - Cong Imperf Sg P1 => x_ + "avessi" ; --# notpresent - Cong Imperf Sg P2 => x_ + "avessi" ; --# notpresent - Cong Imperf Sg P3 => x_ + "avesse" ; --# notpresent - Cong Imperf Pl P1 => x_ + "avessimo" ; --# notpresent - Cong Imperf Pl P2 => x_ + "aveste" ; --# notpresent - Cong Imperf Pl P3 => x_ + "avessero" ; --# notpresent - Cond Sg P1 => x_ + "avrei" ; --# notpresent - Cond Sg P2 => x_ + "avresti" ; --# notpresent - Cond Sg P3 => x_ + "avrebbe" ; --# notpresent - Cond Pl P1 => x_ + "avremmo" ; --# notpresent - Cond Pl P2 => x_ + "avreste" ; --# notpresent - Cond Pl P3 => x_ + "avrebbero" ; --# notpresent - Imper SgP2 => x_ + "abbi" ; - Imper PlP1 => x_ + "abbiamo" ; - Imper PlP2 => x_ + "abbiate" ; - Ger => x_ + "avendo" ; - Part PresP Masc Sg => x_ + "avente" ; - Part PresP Masc Pl => x_ + "aventi" ; - Part PresP Fem Sg => x_ + "avente" ; - Part PresP Fem Pl => x_ + "aventi" ; - Part PassP Masc Sg => x_ + "avuto" ; - Part PassP Masc Pl => x_ + "avuti" ; - Part PassP Fem Sg => x_ + "avuta" ; - Part PassP Fem Pl => x_ + "avute" - } - } ; - -oper amare_6 : Str -> Verbo = \amare -> - let am_ = Predef.tk 3 amare in - {s = table { - Inf => am_ + "are" ; - InfClit => am_ + "ar" ; - Indi Pres Sg P1 => am_ + "o" ; - Indi Pres Sg P2 => am_ + "i" ; - Indi Pres Sg P3 => am_ + "a" ; - Indi Pres Pl P1 => am_ + "iamo" ; - Indi Pres Pl P2 => am_ + "ate" ; - Indi Pres Pl P3 => am_ + "ano" ; - Indi Imperf Sg P1 => am_ + "avo" ; --# notpresent - Indi Imperf Sg P2 => am_ + "avi" ; --# notpresent - Indi Imperf Sg P3 => am_ + "ava" ; --# notpresent - Indi Imperf Pl P1 => am_ + "avamo" ; --# notpresent - Indi Imperf Pl P2 => am_ + "avate" ; --# notpresent - Indi Imperf Pl P3 => am_ + "avano" ; --# notpresent - Pass Sg P1 => am_ + "ai" ; --# notpresent - Pass Sg P2 => am_ + "asti" ; --# notpresent - Pass Sg P3 => am_ + "ò" ; --# notpresent - Pass Pl P1 => am_ + "ammo" ; --# notpresent - Pass Pl P2 => am_ + "aste" ; --# notpresent - Pass Pl P3 => am_ + "arono" ; --# notpresent - Fut Sg P1 => am_ + "erò" ; --# notpresent - Fut Sg P2 => am_ + "erai" ; --# notpresent - Fut Sg P3 => am_ + "erà" ; --# notpresent - Fut Pl P1 => am_ + "eremo" ; --# notpresent - Fut Pl P2 => am_ + "erete" ; --# notpresent - Fut Pl P3 => am_ + "eranno" ; --# notpresent - Cong Pres Sg P1 => am_ + "i" ; - Cong Pres Sg P2 => am_ + "i" ; - Cong Pres Sg P3 => am_ + "i" ; - Cong Pres Pl P1 => am_ + "iamo" ; - Cong Pres Pl P2 => am_ + "iate" ; - Cong Pres Pl P3 => am_ + "ino" ; - Cong Imperf Sg P1 => am_ + "assi" ; --# notpresent - Cong Imperf Sg P2 => am_ + "assi" ; --# notpresent - Cong Imperf Sg P3 => am_ + "asse" ; --# notpresent - Cong Imperf Pl P1 => am_ + "assimo" ; --# notpresent - Cong Imperf Pl P2 => am_ + "aste" ; --# notpresent - Cong Imperf Pl P3 => am_ + "assero" ; --# notpresent - Cond Sg P1 => am_ + "erei" ; --# notpresent - Cond Sg P2 => am_ + "eresti" ; --# notpresent - Cond Sg P3 => am_ + "erebbe" ; --# notpresent - Cond Pl P1 => am_ + "eremmo" ; --# notpresent - Cond Pl P2 => am_ + "ereste" ; --# notpresent - Cond Pl P3 => am_ + "erebbero" ; --# notpresent - Imper SgP2 => am_ + "a" ; - Imper PlP1 => am_ + "iamo" ; - Imper PlP2 => am_ + "ate" ; - Ger => am_ + "ando" ; - Part PresP Masc Sg => am_ + "ante" ; - Part PresP Masc Pl => am_ + "anti" ; - Part PresP Fem Sg => am_ + "ante" ; - Part PresP Fem Pl => am_ + "anti" ; - Part PassP Masc Sg => am_ + "ato" ; - Part PassP Masc Pl => am_ + "ati" ; - Part PassP Fem Sg => am_ + "ata" ; - Part PassP Fem Pl => am_ + "ate" - } - } ; - -oper cercare_7 : Str -> Verbo = \cercare -> - let cerc_ = Predef.tk 3 cercare in - {s = table { - Inf => cerc_ + "are" ; - InfClit => cerc_ + "ar" ; - Indi Pres Sg P1 => cerc_ + "o" ; - Indi Pres Sg P2 => cerc_ + "hi" ; - Indi Pres Sg P3 => cerc_ + "a" ; - Indi Pres Pl P1 => cerc_ + "hiamo" ; - Indi Pres Pl P2 => cerc_ + "ate" ; - Indi Pres Pl P3 => cerc_ + "ano" ; - Indi Imperf Sg P1 => cerc_ + "avo" ; --# notpresent - Indi Imperf Sg P2 => cerc_ + "avi" ; --# notpresent - Indi Imperf Sg P3 => cerc_ + "ava" ; --# notpresent - Indi Imperf Pl P1 => cerc_ + "avamo" ; --# notpresent - Indi Imperf Pl P2 => cerc_ + "avate" ; --# notpresent - Indi Imperf Pl P3 => cerc_ + "avano" ; --# notpresent - Pass Sg P1 => cerc_ + "ai" ; --# notpresent - Pass Sg P2 => cerc_ + "asti" ; --# notpresent - Pass Sg P3 => cerc_ + "ò" ; --# notpresent - Pass Pl P1 => cerc_ + "ammo" ; --# notpresent - Pass Pl P2 => cerc_ + "aste" ; --# notpresent - Pass Pl P3 => cerc_ + "arono" ; --# notpresent - Fut Sg P1 => cerc_ + "herò" ; --# notpresent - Fut Sg P2 => cerc_ + "herai" ; --# notpresent - Fut Sg P3 => cerc_ + "herà" ; --# notpresent - Fut Pl P1 => cerc_ + "heremo" ; --# notpresent - Fut Pl P2 => cerc_ + "herete" ; --# notpresent - Fut Pl P3 => cerc_ + "heranno" ; --# notpresent - Cong Pres Sg P1 => cerc_ + "hi" ; - Cong Pres Sg P2 => cerc_ + "hi" ; - Cong Pres Sg P3 => cerc_ + "hi" ; - Cong Pres Pl P1 => cerc_ + "hiamo" ; - Cong Pres Pl P2 => cerc_ + "hiate" ; - Cong Pres Pl P3 => cerc_ + "hino" ; - Cong Imperf Sg P1 => cerc_ + "assi" ; --# notpresent - Cong Imperf Sg P2 => cerc_ + "assi" ; --# notpresent - Cong Imperf Sg P3 => cerc_ + "asse" ; --# notpresent - Cong Imperf Pl P1 => cerc_ + "assimo" ; --# notpresent - Cong Imperf Pl P2 => cerc_ + "aste" ; --# notpresent - Cong Imperf Pl P3 => cerc_ + "assero" ; --# notpresent - Cond Sg P1 => cerc_ + "herei" ; --# notpresent - Cond Sg P2 => cerc_ + "heresti" ; --# notpresent - Cond Sg P3 => cerc_ + "herebbe" ; --# notpresent - Cond Pl P1 => cerc_ + "heremmo" ; --# notpresent - Cond Pl P2 => cerc_ + "hereste" ; --# notpresent - Cond Pl P3 => cerc_ + "herebbero" ; --# notpresent - Imper SgP2 => cerc_ + "a" ; - Imper PlP1 => cerc_ + "hiamo" ; - Imper PlP2 => cerc_ + "ate" ; - Ger => cerc_ + "ando" ; - Part PresP Masc Sg => cerc_ + "ante" ; - Part PresP Masc Pl => cerc_ + "anti" ; - Part PresP Fem Sg => cerc_ + "ante" ; - Part PresP Fem Pl => cerc_ + "anti" ; - Part PassP Masc Sg => cerc_ + "ato" ; - Part PassP Masc Pl => cerc_ + "ati" ; - Part PassP Fem Sg => cerc_ + "ata" ; - Part PassP Fem Pl => cerc_ + "ate" - } - } ; - -oper legare_8 : Str -> Verbo = \legare -> - let leg_ = Predef.tk 3 legare in - {s = table { - Inf => leg_ + "are" ; - InfClit => leg_ + "ar" ; - Indi Pres Sg P1 => leg_ + "o" ; - Indi Pres Sg P2 => leg_ + "hi" ; - Indi Pres Sg P3 => leg_ + "a" ; - Indi Pres Pl P1 => leg_ + "hiamo" ; - Indi Pres Pl P2 => leg_ + "ate" ; - Indi Pres Pl P3 => leg_ + "ano" ; - Indi Imperf Sg P1 => leg_ + "avo" ; --# notpresent - Indi Imperf Sg P2 => leg_ + "avi" ; --# notpresent - Indi Imperf Sg P3 => leg_ + "ava" ; --# notpresent - Indi Imperf Pl P1 => leg_ + "avamo" ; --# notpresent - Indi Imperf Pl P2 => leg_ + "avate" ; --# notpresent - Indi Imperf Pl P3 => leg_ + "avano" ; --# notpresent - Pass Sg P1 => leg_ + "ai" ; --# notpresent - Pass Sg P2 => leg_ + "asti" ; --# notpresent - Pass Sg P3 => leg_ + "ò" ; --# notpresent - Pass Pl P1 => leg_ + "ammo" ; --# notpresent - Pass Pl P2 => leg_ + "aste" ; --# notpresent - Pass Pl P3 => leg_ + "arono" ; --# notpresent - Fut Sg P1 => leg_ + "herò" ; --# notpresent - Fut Sg P2 => leg_ + "herai" ; --# notpresent - Fut Sg P3 => leg_ + "herà" ; --# notpresent - Fut Pl P1 => leg_ + "heremo" ; --# notpresent - Fut Pl P2 => leg_ + "herete" ; --# notpresent - Fut Pl P3 => leg_ + "heranno" ; --# notpresent - Cong Pres Sg P1 => leg_ + "hi" ; - Cong Pres Sg P2 => leg_ + "hi" ; - Cong Pres Sg P3 => leg_ + "hi" ; - Cong Pres Pl P1 => leg_ + "hiamo" ; - Cong Pres Pl P2 => leg_ + "hiate" ; - Cong Pres Pl P3 => leg_ + "hino" ; - Cong Imperf Sg P1 => leg_ + "assi" ; --# notpresent - Cong Imperf Sg P2 => leg_ + "assi" ; --# notpresent - Cong Imperf Sg P3 => leg_ + "asse" ; --# notpresent - Cong Imperf Pl P1 => leg_ + "assimo" ; --# notpresent - Cong Imperf Pl P2 => leg_ + "aste" ; --# notpresent - Cong Imperf Pl P3 => leg_ + "assero" ; --# notpresent - Cond Sg P1 => leg_ + "herei" ; --# notpresent - Cond Sg P2 => leg_ + "heresti" ; --# notpresent - Cond Sg P3 => leg_ + "herebbe" ; --# notpresent - Cond Pl P1 => leg_ + "heremmo" ; --# notpresent - Cond Pl P2 => leg_ + "hereste" ; --# notpresent - Cond Pl P3 => leg_ + "herebbero" ; --# notpresent - Imper SgP2 => leg_ + "a" ; - Imper PlP1 => leg_ + "hiamo" ; - Imper PlP2 => leg_ + "ate" ; - Ger => leg_ + "ando" ; - Part PresP Masc Sg => leg_ + "ante" ; - Part PresP Masc Pl => leg_ + "anti" ; - Part PresP Fem Sg => leg_ + "ante" ; - Part PresP Fem Pl => leg_ + "anti" ; - Part PassP Masc Sg => leg_ + "ato" ; - Part PassP Masc Pl => leg_ + "ati" ; - Part PassP Fem Sg => leg_ + "ata" ; - Part PassP Fem Pl => leg_ + "ate" - } - } ; - -oper cominciare_9 : Str -> Verbo = \cominciare -> - let cominc_ = Predef.tk 4 cominciare in - {s = table { - Inf => cominc_ + "iare" ; - InfClit => cominc_ + "iar" ; - Indi Pres Sg P1 => cominc_ + "io" ; - Indi Pres Sg P2 => cominc_ + "i" ; - Indi Pres Sg P3 => cominc_ + "ia" ; - Indi Pres Pl P1 => cominc_ + "iamo" ; - Indi Pres Pl P2 => cominc_ + "iate" ; - Indi Pres Pl P3 => cominc_ + "iano" ; - Indi Imperf Sg P1 => cominc_ + "iavo" ; --# notpresent - Indi Imperf Sg P2 => cominc_ + "iavi" ; --# notpresent - Indi Imperf Sg P3 => cominc_ + "iava" ; --# notpresent - Indi Imperf Pl P1 => cominc_ + "iavamo" ; --# notpresent - Indi Imperf Pl P2 => cominc_ + "iavate" ; --# notpresent - Indi Imperf Pl P3 => cominc_ + "iavano" ; --# notpresent - Pass Sg P1 => cominc_ + "iai" ; --# notpresent - Pass Sg P2 => cominc_ + "iasti" ; --# notpresent - Pass Sg P3 => cominc_ + "iò" ; --# notpresent - Pass Pl P1 => cominc_ + "iammo" ; --# notpresent - Pass Pl P2 => cominc_ + "iaste" ; --# notpresent - Pass Pl P3 => cominc_ + "iarono" ; --# notpresent - Fut Sg P1 => cominc_ + "erò" ; --# notpresent - Fut Sg P2 => cominc_ + "erai" ; --# notpresent - Fut Sg P3 => cominc_ + "erà" ; --# notpresent - Fut Pl P1 => cominc_ + "eremo" ; --# notpresent - Fut Pl P2 => cominc_ + "erete" ; --# notpresent - Fut Pl P3 => cominc_ + "eranno" ; --# notpresent - Cong Pres Sg P1 => cominc_ + "i" ; - Cong Pres Sg P2 => cominc_ + "i" ; - Cong Pres Sg P3 => cominc_ + "i" ; - Cong Pres Pl P1 => cominc_ + "iamo" ; - Cong Pres Pl P2 => cominc_ + "iate" ; - Cong Pres Pl P3 => cominc_ + "ino" ; - Cong Imperf Sg P1 => cominc_ + "iassi" ; --# notpresent - Cong Imperf Sg P2 => cominc_ + "iassi" ; --# notpresent - Cong Imperf Sg P3 => cominc_ + "iasse" ; --# notpresent - Cong Imperf Pl P1 => cominc_ + "iassimo" ; --# notpresent - Cong Imperf Pl P2 => cominc_ + "iaste" ; --# notpresent - Cong Imperf Pl P3 => cominc_ + "iassero" ; --# notpresent - Cond Sg P1 => cominc_ + "erei" ; --# notpresent - Cond Sg P2 => cominc_ + "eresti" ; --# notpresent - Cond Sg P3 => cominc_ + "erebbe" ; --# notpresent - Cond Pl P1 => cominc_ + "eremmo" ; --# notpresent - Cond Pl P2 => cominc_ + "ereste" ; --# notpresent - Cond Pl P3 => cominc_ + "erebbero" ; --# notpresent - Imper SgP2 => cominc_ + "ia" ; - Imper PlP1 => cominc_ + "iamo" ; - Imper PlP2 => cominc_ + "iate" ; - Ger => cominc_ + "iando" ; - Part PresP Masc Sg => cominc_ + "iante" ; - Part PresP Masc Pl => cominc_ + "ianti" ; - Part PresP Fem Sg => cominc_ + "iante" ; - Part PresP Fem Pl => cominc_ + "ianti" ; - Part PassP Masc Sg => cominc_ + "iato" ; - Part PassP Masc Pl => cominc_ + "iati" ; - Part PassP Fem Sg => cominc_ + "iata" ; - Part PassP Fem Pl => cominc_ + "iate" - } - } ; - -oper mangiare_10 : Str -> Verbo = \mangiare -> - let mang_ = Predef.tk 4 mangiare in - {s = table { - Inf => mang_ + "iare" ; - InfClit => mang_ + "iar" ; - Indi Pres Sg P1 => mang_ + "io" ; - Indi Pres Sg P2 => mang_ + "i" ; - Indi Pres Sg P3 => mang_ + "ia" ; - Indi Pres Pl P1 => mang_ + "iamo" ; - Indi Pres Pl P2 => mang_ + "iate" ; - Indi Pres Pl P3 => mang_ + "iano" ; - Indi Imperf Sg P1 => mang_ + "iavo" ; --# notpresent - Indi Imperf Sg P2 => mang_ + "iavi" ; --# notpresent - Indi Imperf Sg P3 => mang_ + "iava" ; --# notpresent - Indi Imperf Pl P1 => mang_ + "iavamo" ; --# notpresent - Indi Imperf Pl P2 => mang_ + "iavate" ; --# notpresent - Indi Imperf Pl P3 => mang_ + "iavano" ; --# notpresent - Pass Sg P1 => mang_ + "iai" ; --# notpresent - Pass Sg P2 => mang_ + "iasti" ; --# notpresent - Pass Sg P3 => mang_ + "iò" ; --# notpresent - Pass Pl P1 => mang_ + "iammo" ; --# notpresent - Pass Pl P2 => mang_ + "iaste" ; --# notpresent - Pass Pl P3 => mang_ + "iarono" ; --# notpresent - Fut Sg P1 => mang_ + "erò" ; --# notpresent - Fut Sg P2 => mang_ + "erai" ; --# notpresent - Fut Sg P3 => mang_ + "erà" ; --# notpresent - Fut Pl P1 => mang_ + "eremo" ; --# notpresent - Fut Pl P2 => mang_ + "erete" ; --# notpresent - Fut Pl P3 => mang_ + "eranno" ; --# notpresent - Cong Pres Sg P1 => mang_ + "i" ; - Cong Pres Sg P2 => mang_ + "i" ; - Cong Pres Sg P3 => mang_ + "i" ; - Cong Pres Pl P1 => mang_ + "iamo" ; - Cong Pres Pl P2 => mang_ + "iate" ; - Cong Pres Pl P3 => mang_ + "ino" ; - Cong Imperf Sg P1 => mang_ + "iassi" ; --# notpresent - Cong Imperf Sg P2 => mang_ + "iassi" ; --# notpresent - Cong Imperf Sg P3 => mang_ + "iasse" ; --# notpresent - Cong Imperf Pl P1 => mang_ + "iassimo" ; --# notpresent - Cong Imperf Pl P2 => mang_ + "iaste" ; --# notpresent - Cong Imperf Pl P3 => mang_ + "iassero" ; --# notpresent - Cond Sg P1 => mang_ + "erei" ; --# notpresent - Cond Sg P2 => mang_ + "eresti" ; --# notpresent - Cond Sg P3 => mang_ + "erebbe" ; --# notpresent - Cond Pl P1 => mang_ + "eremmo" ; --# notpresent - Cond Pl P2 => mang_ + "ereste" ; --# notpresent - Cond Pl P3 => mang_ + "erebbero" ; --# notpresent - Imper SgP2 => mang_ + "ia" ; - Imper PlP1 => mang_ + "iamo" ; - Imper PlP2 => mang_ + "iate" ; - Ger => mang_ + "iando" ; - Part PresP Masc Sg => mang_ + "iante" ; - Part PresP Masc Pl => mang_ + "ianti" ; - Part PresP Fem Sg => mang_ + "iante" ; - Part PresP Fem Pl => mang_ + "ianti" ; - Part PassP Masc Sg => mang_ + "iato" ; - Part PassP Masc Pl => mang_ + "iati" ; - Part PassP Fem Sg => mang_ + "iata" ; - Part PassP Fem Pl => mang_ + "iate" - } - } ; - -oper inviare_11 : Str -> Verbo = \inviare -> - let invi_ = Predef.tk 3 inviare in - {s = table { - Inf => invi_ + "are" ; - InfClit => invi_ + "ar" ; - Indi Pres Sg P1 => invi_ + "o" ; - Indi Pres Sg P2 => invi_ + "i" ; - Indi Pres Sg P3 => invi_ + "a" ; - Indi Pres Pl P1 => invi_ + "iamo" ; - Indi Pres Pl P2 => invi_ + "ate" ; - Indi Pres Pl P3 => invi_ + "ano" ; - Indi Imperf Sg P1 => invi_ + "avo" ; --# notpresent - Indi Imperf Sg P2 => invi_ + "avi" ; --# notpresent - Indi Imperf Sg P3 => invi_ + "ava" ; --# notpresent - Indi Imperf Pl P1 => invi_ + "avamo" ; --# notpresent - Indi Imperf Pl P2 => invi_ + "avate" ; --# notpresent - Indi Imperf Pl P3 => invi_ + "avano" ; --# notpresent - Pass Sg P1 => invi_ + "ai" ; --# notpresent - Pass Sg P2 => invi_ + "asti" ; --# notpresent - Pass Sg P3 => invi_ + "ò" ; --# notpresent - Pass Pl P1 => invi_ + "ammo" ; --# notpresent - Pass Pl P2 => invi_ + "aste" ; --# notpresent - Pass Pl P3 => invi_ + "arono" ; --# notpresent - Fut Sg P1 => invi_ + "erò" ; --# notpresent - Fut Sg P2 => invi_ + "erai" ; --# notpresent - Fut Sg P3 => invi_ + "erà" ; --# notpresent - Fut Pl P1 => invi_ + "eremo" ; --# notpresent - Fut Pl P2 => invi_ + "erete" ; --# notpresent - Fut Pl P3 => invi_ + "eranno" ; --# notpresent - Cong Pres Sg P1 => invi_ + "i" ; - Cong Pres Sg P2 => invi_ + "i" ; - Cong Pres Sg P3 => invi_ + "i" ; - Cong Pres Pl P1 => invi_ + "iamo" ; - Cong Pres Pl P2 => invi_ + "iate" ; - Cong Pres Pl P3 => invi_ + "ino" ; - Cong Imperf Sg P1 => invi_ + "assi" ; --# notpresent - Cong Imperf Sg P2 => invi_ + "assi" ; --# notpresent - Cong Imperf Sg P3 => invi_ + "asse" ; --# notpresent - Cong Imperf Pl P1 => invi_ + "assimo" ; --# notpresent - Cong Imperf Pl P2 => invi_ + "aste" ; --# notpresent - Cong Imperf Pl P3 => invi_ + "assero" ; --# notpresent - Cond Sg P1 => invi_ + "erei" ; --# notpresent - Cond Sg P2 => invi_ + "eresti" ; --# notpresent - Cond Sg P3 => invi_ + "erebbe" ; --# notpresent - Cond Pl P1 => invi_ + "eremmo" ; --# notpresent - Cond Pl P2 => invi_ + "ereste" ; --# notpresent - Cond Pl P3 => invi_ + "erebbero" ; --# notpresent - Imper SgP2 => invi_ + "a" ; - Imper PlP1 => invi_ + "iamo" ; - Imper PlP2 => invi_ + "ate" ; - Ger => invi_ + "ando" ; - Part PresP Masc Sg => invi_ + "ante" ; - Part PresP Masc Pl => invi_ + "anti" ; - Part PresP Fem Sg => invi_ + "ante" ; - Part PresP Fem Pl => invi_ + "anti" ; - Part PassP Masc Sg => invi_ + "ato" ; - Part PassP Masc Pl => invi_ + "ati" ; - Part PassP Fem Sg => invi_ + "ata" ; - Part PassP Fem Pl => invi_ + "ate" - } - } ; - -oper studiare_12 : Str -> Verbo = \studiare -> - let studi_ = Predef.tk 3 studiare in - {s = table { - Inf => studi_ + "are" ; - InfClit => studi_ + "ar" ; - Indi Pres Sg P1 => studi_ + "o" ; - Indi Pres Sg P2 => studi_ + "" ; - Indi Pres Sg P3 => studi_ + "a" ; - Indi Pres Pl P1 => studi_ + "amo" ; - Indi Pres Pl P2 => studi_ + "ate" ; - Indi Pres Pl P3 => studi_ + "ano" ; - Indi Imperf Sg P1 => studi_ + "avo" ; --# notpresent - Indi Imperf Sg P2 => studi_ + "avi" ; --# notpresent - Indi Imperf Sg P3 => studi_ + "ava" ; --# notpresent - Indi Imperf Pl P1 => studi_ + "avamo" ; --# notpresent - Indi Imperf Pl P2 => studi_ + "avate" ; --# notpresent - Indi Imperf Pl P3 => studi_ + "avano" ; --# notpresent - Pass Sg P1 => studi_ + "ai" ; --# notpresent - Pass Sg P2 => studi_ + "asti" ; --# notpresent - Pass Sg P3 => studi_ + "ò" ; --# notpresent - Pass Pl P1 => studi_ + "ammo" ; --# notpresent - Pass Pl P2 => studi_ + "aste" ; --# notpresent - Pass Pl P3 => studi_ + "arono" ; --# notpresent - Fut Sg P1 => studi_ + "erò" ; --# notpresent - Fut Sg P2 => studi_ + "erai" ; --# notpresent - Fut Sg P3 => studi_ + "erà" ; --# notpresent - Fut Pl P1 => studi_ + "eremo" ; --# notpresent - Fut Pl P2 => studi_ + "erete" ; --# notpresent - Fut Pl P3 => studi_ + "eranno" ; --# notpresent - Cong Pres Sg P1 => studi_ + "" ; - Cong Pres Sg P2 => studi_ + "" ; - Cong Pres Sg P3 => studi_ + "" ; - Cong Pres Pl P1 => studi_ + "amo" ; - Cong Pres Pl P2 => studi_ + "ate" ; - Cong Pres Pl P3 => studi_ + "no" ; - Cong Imperf Sg P1 => studi_ + "assi" ; --# notpresent - Cong Imperf Sg P2 => studi_ + "assi" ; --# notpresent - Cong Imperf Sg P3 => studi_ + "asse" ; --# notpresent - Cong Imperf Pl P1 => studi_ + "assimo" ; --# notpresent - Cong Imperf Pl P2 => studi_ + "aste" ; --# notpresent - Cong Imperf Pl P3 => studi_ + "assero" ; --# notpresent - Cond Sg P1 => studi_ + "erei" ; --# notpresent - Cond Sg P2 => studi_ + "eresti" ; --# notpresent - Cond Sg P3 => studi_ + "erebbe" ; --# notpresent - Cond Pl P1 => studi_ + "eremmo" ; --# notpresent - Cond Pl P2 => studi_ + "ereste" ; --# notpresent - Cond Pl P3 => studi_ + "erebbero" ; --# notpresent - Imper SgP2 => studi_ + "a" ; - Imper PlP1 => studi_ + "amo" ; - Imper PlP2 => studi_ + "ate" ; - Ger => studi_ + "ando" ; - Part PresP Masc Sg => studi_ + "ante" ; - Part PresP Masc Pl => studi_ + "anti" ; - Part PresP Fem Sg => studi_ + "ante" ; - Part PresP Fem Pl => studi_ + "anti" ; - Part PassP Masc Sg => studi_ + "ato" ; - Part PassP Masc Pl => studi_ + "ati" ; - Part PassP Fem Sg => studi_ + "ata" ; - Part PassP Fem Pl => studi_ + "ate" - } - } ; - -oper giocare_13 : Str -> Verbo = \giocare -> - let gioc_ = Predef.tk 3 giocare in - {s = table { - Inf => gioc_ + "are" ; - InfClit => gioc_ + "ar" ; - Indi Pres Sg P1 => gioc_ + "o" ; - Indi Pres Sg P2 => gioc_ + "hi" ; - Indi Pres Sg P3 => gioc_ + "a" ; - Indi Pres Pl P1 => gioc_ + "hiamo" ; - Indi Pres Pl P2 => gioc_ + "ate" ; - Indi Pres Pl P3 => gioc_ + "ano" ; - Indi Imperf Sg P1 => gioc_ + "avo" ; --# notpresent - Indi Imperf Sg P2 => gioc_ + "avi" ; --# notpresent - Indi Imperf Sg P3 => gioc_ + "ava" ; --# notpresent - Indi Imperf Pl P1 => gioc_ + "avamo" ; --# notpresent - Indi Imperf Pl P2 => gioc_ + "avate" ; --# notpresent - Indi Imperf Pl P3 => gioc_ + "avano" ; --# notpresent - Pass Sg P1 => gioc_ + "ai" ; --# notpresent - Pass Sg P2 => gioc_ + "asti" ; --# notpresent - Pass Sg P3 => gioc_ + "ò" ; --# notpresent - Pass Pl P1 => gioc_ + "ammo" ; --# notpresent - Pass Pl P2 => gioc_ + "aste" ; --# notpresent - Pass Pl P3 => gioc_ + "arono" ; --# notpresent - Fut Sg P1 => gioc_ + "herò" ; --# notpresent - Fut Sg P2 => gioc_ + "herai" ; --# notpresent - Fut Sg P3 => gioc_ + "herà" ; --# notpresent - Fut Pl P1 => gioc_ + "heremo" ; --# notpresent - Fut Pl P2 => gioc_ + "herete" ; --# notpresent - Fut Pl P3 => gioc_ + "heranno" ; --# notpresent - Cong Pres Sg P1 => gioc_ + "hi" ; - Cong Pres Sg P2 => gioc_ + "hi" ; - Cong Pres Sg P3 => gioc_ + "hi" ; - Cong Pres Pl P1 => gioc_ + "hiamo" ; - Cong Pres Pl P2 => gioc_ + "hiate" ; - Cong Pres Pl P3 => gioc_ + "hino" ; - Cong Imperf Sg P1 => gioc_ + "assi" ; --# notpresent - Cong Imperf Sg P2 => gioc_ + "assi" ; --# notpresent - Cong Imperf Sg P3 => gioc_ + "asse" ; --# notpresent - Cong Imperf Pl P1 => gioc_ + "assimo" ; --# notpresent - Cong Imperf Pl P2 => gioc_ + "aste" ; --# notpresent - Cong Imperf Pl P3 => gioc_ + "assero" ; --# notpresent - Cond Sg P1 => gioc_ + "herei" ; --# notpresent - Cond Sg P2 => gioc_ + "heresti" ; --# notpresent - Cond Sg P3 => gioc_ + "herebbe" ; --# notpresent - Cond Pl P1 => gioc_ + "heremmo" ; --# notpresent - Cond Pl P2 => gioc_ + "hereste" ; --# notpresent - Cond Pl P3 => gioc_ + "herebbero" ; --# notpresent - Imper SgP2 => gioc_ + "a" ; - Imper PlP1 => gioc_ + "hiamo" ; - Imper PlP2 => gioc_ + "ate" ; - Ger => gioc_ + "ando" ; - Part PresP Masc Sg => gioc_ + "ante" ; - Part PresP Masc Pl => gioc_ + "anti" ; - Part PresP Fem Sg => gioc_ + "ante" ; - Part PresP Fem Pl => gioc_ + "anti" ; - Part PassP Masc Sg => gioc_ + "ato" ; - Part PassP Masc Pl => gioc_ + "ati" ; - Part PassP Fem Sg => gioc_ + "ata" ; - Part PassP Fem Pl => gioc_ + "ate" - } - } ; - -oper andare_14 : Str -> Verbo = \andare -> - let x_ = Predef.tk 6 andare in - {s = table { - Inf => x_ + "andare" ; - InfClit => x_ + "andar" ; - Indi Pres Sg P1 => variants {x_ + "vo" ; x_ + "vado"} ; - Indi Pres Sg P2 => x_ + "vai" ; - Indi Pres Sg P3 => x_ + "va" ; - Indi Pres Pl P1 => x_ + "andiamo" ; - Indi Pres Pl P2 => x_ + "andate" ; - Indi Pres Pl P3 => x_ + "vanno" ; - Indi Imperf Sg P1 => x_ + "andavo" ; --# notpresent - Indi Imperf Sg P2 => x_ + "andavi" ; --# notpresent - Indi Imperf Sg P3 => x_ + "andava" ; --# notpresent - Indi Imperf Pl P1 => x_ + "andavamo" ; --# notpresent - Indi Imperf Pl P2 => x_ + "andavate" ; --# notpresent - Indi Imperf Pl P3 => x_ + "andavano" ; --# notpresent - Pass Sg P1 => x_ + "andai" ; --# notpresent - Pass Sg P2 => x_ + "andasti" ; --# notpresent - Pass Sg P3 => x_ + "andò" ; --# notpresent - Pass Pl P1 => x_ + "andammo" ; --# notpresent - Pass Pl P2 => x_ + "andaste" ; --# notpresent - Pass Pl P3 => x_ + "andarono" ; --# notpresent - Fut Sg P1 => x_ + "andrò" ; --# notpresent - Fut Sg P2 => x_ + "andrai" ; --# notpresent - Fut Sg P3 => x_ + "andrà" ; --# notpresent - Fut Pl P1 => x_ + "andremo" ; --# notpresent - Fut Pl P2 => x_ + "andrete" ; --# notpresent - Fut Pl P3 => x_ + "andranno" ; --# notpresent - Cong Pres Sg P1 => x_ + "vada" ; - Cong Pres Sg P2 => x_ + "vada" ; - Cong Pres Sg P3 => x_ + "vada" ; - Cong Pres Pl P1 => x_ + "andiamo" ; - Cong Pres Pl P2 => x_ + "andiate" ; - Cong Pres Pl P3 => x_ + "vadano" ; - Cong Imperf Sg P1 => x_ + "andassi" ; --# notpresent - Cong Imperf Sg P2 => x_ + "andassi" ; --# notpresent - Cong Imperf Sg P3 => x_ + "andasse" ; --# notpresent - Cong Imperf Pl P1 => x_ + "andassimo" ; --# notpresent - Cong Imperf Pl P2 => x_ + "andaste" ; --# notpresent - Cong Imperf Pl P3 => x_ + "andassero" ; --# notpresent - Cond Sg P1 => x_ + "andrei" ; --# notpresent - Cond Sg P2 => x_ + "andresti" ; --# notpresent - Cond Sg P3 => x_ + "andrebbe" ; --# notpresent - Cond Pl P1 => x_ + "andremmo" ; --# notpresent - Cond Pl P2 => x_ + "andreste" ; --# notpresent - Cond Pl P3 => x_ + "andrebbero" ; --# notpresent - Imper SgP2 => x_ + "vai" ; - Imper PlP1 => x_ + "andiamo" ; - Imper PlP2 => x_ + "andate" ; - Ger => x_ + "andando" ; - Part PresP Masc Sg => x_ + "andante" ; - Part PresP Masc Pl => x_ + "andanti" ; - Part PresP Fem Sg => x_ + "andante" ; - Part PresP Fem Pl => x_ + "andanti" ; - Part PassP Masc Sg => x_ + "andato" ; - Part PassP Masc Pl => x_ + "andati" ; - Part PassP Fem Sg => x_ + "andata" ; - Part PassP Fem Pl => x_ + "andate" - } - } ; - -oper riandare_14b : Str -> Verbo = \riandare -> - let ri_ = Predef.tk 6 riandare in - {s = table { - Inf => ri_ + "andare" ; - InfClit => ri_ + "andar" ; - Indi Pres Sg P1 => variants {ri_ + "vo" ; ri_ + "vado"} ; - Indi Pres Sg P2 => ri_ + "vai" ; - Indi Pres Sg P3 => ri_ + "và" ; - Indi Pres Pl P1 => ri_ + "andiamo" ; - Indi Pres Pl P2 => ri_ + "andate" ; - Indi Pres Pl P3 => ri_ + "vanno" ; - Indi Imperf Sg P1 => ri_ + "andavo" ; --# notpresent - Indi Imperf Sg P2 => ri_ + "andavi" ; --# notpresent - Indi Imperf Sg P3 => ri_ + "andava" ; --# notpresent - Indi Imperf Pl P1 => ri_ + "andavamo" ; --# notpresent - Indi Imperf Pl P2 => ri_ + "andavate" ; --# notpresent - Indi Imperf Pl P3 => ri_ + "andavano" ; --# notpresent - Pass Sg P1 => ri_ + "andai" ; --# notpresent - Pass Sg P2 => ri_ + "andasti" ; --# notpresent - Pass Sg P3 => ri_ + "andò" ; --# notpresent - Pass Pl P1 => ri_ + "andammo" ; --# notpresent - Pass Pl P2 => ri_ + "andaste" ; --# notpresent - Pass Pl P3 => ri_ + "andarono" ; --# notpresent - Fut Sg P1 => ri_ + "andrò" ; --# notpresent - Fut Sg P2 => ri_ + "andrai" ; --# notpresent - Fut Sg P3 => ri_ + "andrà" ; --# notpresent - Fut Pl P1 => ri_ + "andremo" ; --# notpresent - Fut Pl P2 => ri_ + "andrete" ; --# notpresent - Fut Pl P3 => ri_ + "andranno" ; --# notpresent - Cong Pres Sg P1 => ri_ + "vada" ; - Cong Pres Sg P2 => ri_ + "vada" ; - Cong Pres Sg P3 => ri_ + "vada" ; - Cong Pres Pl P1 => ri_ + "andiamo" ; - Cong Pres Pl P2 => ri_ + "andiate" ; - Cong Pres Pl P3 => ri_ + "vadano" ; - Cong Imperf Sg P1 => ri_ + "andassi" ; --# notpresent - Cong Imperf Sg P2 => ri_ + "andassi" ; --# notpresent - Cong Imperf Sg P3 => ri_ + "andasse" ; --# notpresent - Cong Imperf Pl P1 => ri_ + "andassimo" ; --# notpresent - Cong Imperf Pl P2 => ri_ + "andaste" ; --# notpresent - Cong Imperf Pl P3 => ri_ + "andassero" ; --# notpresent - Cond Sg P1 => ri_ + "andrei" ; --# notpresent - Cond Sg P2 => ri_ + "andresti" ; --# notpresent - Cond Sg P3 => ri_ + "andrebbe" ; --# notpresent - Cond Pl P1 => ri_ + "andremmo" ; --# notpresent - Cond Pl P2 => ri_ + "andreste" ; --# notpresent - Cond Pl P3 => ri_ + "andrebbero" ; --# notpresent - Imper SgP2 => ri_ + "vai" ; - Imper PlP1 => ri_ + "andiamo" ; - Imper PlP2 => ri_ + "andate" ; - Ger => ri_ + "andando" ; - Part PresP Masc Sg => ri_ + "andante" ; - Part PresP Masc Pl => ri_ + "andanti" ; - Part PresP Fem Sg => ri_ + "andante" ; - Part PresP Fem Pl => ri_ + "andanti" ; - Part PassP Masc Sg => ri_ + "andato" ; - Part PassP Masc Pl => ri_ + "andati" ; - Part PassP Fem Sg => ri_ + "andata" ; - Part PassP Fem Pl => ri_ + "andate" - } - } ; - -oper dare_15 : Str -> Verbo = \dare -> - let d_ = Predef.tk 3 dare in - {s = table { - Inf => d_ + "are" ; - InfClit => d_ + "a" ; - Indi Pres Sg P1 => d_ + "o" ; - Indi Pres Sg P2 => d_ + "ai" ; - Indi Pres Sg P3 => d_ + "à" ; - Indi Pres Pl P1 => d_ + "iamo" ; - Indi Pres Pl P2 => d_ + "ate" ; - Indi Pres Pl P3 => d_ + "anno" ; - Indi Imperf Sg P1 => d_ + "avo" ; --# notpresent - Indi Imperf Sg P2 => d_ + "avi" ; --# notpresent - Indi Imperf Sg P3 => d_ + "ava" ; --# notpresent - Indi Imperf Pl P1 => d_ + "avamo" ; --# notpresent - Indi Imperf Pl P2 => d_ + "avate" ; --# notpresent - Indi Imperf Pl P3 => d_ + "avano" ; --# notpresent - Pass Sg P1 => d_ + "iedi" ; --# notpresent - Pass Sg P2 => d_ + "esti" ; --# notpresent - Pass Sg P3 => d_ + "iede" ; --# notpresent - Pass Pl P1 => d_ + "emmo" ; --# notpresent - Pass Pl P2 => d_ + "este" ; --# notpresent - Pass Pl P3 => d_ + "iedero" ; --# notpresent - Fut Sg P1 => d_ + "arò" ; --# notpresent - Fut Sg P2 => d_ + "arai" ; --# notpresent - Fut Sg P3 => d_ + "arà" ; --# notpresent - Fut Pl P1 => d_ + "aremo" ; --# notpresent - Fut Pl P2 => d_ + "arete" ; --# notpresent - Fut Pl P3 => d_ + "aranno" ; --# notpresent - Cong Pres Sg P1 => d_ + "ia" ; - Cong Pres Sg P2 => d_ + "ia" ; - Cong Pres Sg P3 => d_ + "ia" ; - Cong Pres Pl P1 => d_ + "iamo" ; - Cong Pres Pl P2 => d_ + "iate" ; - Cong Pres Pl P3 => d_ + "iano" ; - Cong Imperf Sg P1 => d_ + "essi" ; --# notpresent - Cong Imperf Sg P2 => d_ + "essi" ; --# notpresent - Cong Imperf Sg P3 => d_ + "esse" ; --# notpresent - Cong Imperf Pl P1 => d_ + "essimo" ; --# notpresent - Cong Imperf Pl P2 => d_ + "este" ; --# notpresent - Cong Imperf Pl P3 => d_ + "essero" ; --# notpresent - Cond Sg P1 => d_ + "arei" ; --# notpresent - Cond Sg P2 => d_ + "aresti" ; --# notpresent - Cond Sg P3 => d_ + "arebbe" ; --# notpresent - Cond Pl P1 => d_ + "aremmo" ; --# notpresent - Cond Pl P2 => d_ + "areste" ; --# notpresent - Cond Pl P3 => d_ + "arebbero" ; --# notpresent - Imper SgP2 => d_ + "ai" ; - Imper PlP1 => d_ + "iamo" ; - Imper PlP2 => d_ + "iate" ; - Ger => d_ + "ando" ; - Part PresP Masc Sg => d_ + "ante" ; - Part PresP Masc Pl => d_ + "anti" ; - Part PresP Fem Sg => d_ + "ante" ; - Part PresP Fem Pl => d_ + "anti" ; - Part PassP Masc Sg => d_ + "ato" ; - Part PassP Masc Pl => d_ + "ati" ; - Part PassP Fem Sg => d_ + "ata" ; - Part PassP Fem Pl => d_ + "ate" - } - } ; - -oper stare_16 : Str -> Verbo = \stare -> - let st_ = Predef.tk 3 stare in - {s = table { - Inf => st_ + "are" ; - InfClit => st_ + "a" ; - Indi Pres Sg P1 => st_ + "o" ; - Indi Pres Sg P2 => st_ + "ai" ; - Indi Pres Sg P3 => st_ + "a" ; - Indi Pres Pl P1 => st_ + "iamo" ; - Indi Pres Pl P2 => st_ + "ate" ; - Indi Pres Pl P3 => st_ + "anno" ; - Indi Imperf Sg P1 => st_ + "avo" ; --# notpresent - Indi Imperf Sg P2 => st_ + "avi" ; --# notpresent - Indi Imperf Sg P3 => st_ + "ava" ; --# notpresent - Indi Imperf Pl P1 => st_ + "avamo" ; --# notpresent - Indi Imperf Pl P2 => st_ + "avate" ; --# notpresent - Indi Imperf Pl P3 => st_ + "avano" ; --# notpresent - Pass Sg P1 => st_ + "etti" ; --# notpresent - Pass Sg P2 => st_ + "esti" ; --# notpresent - Pass Sg P3 => st_ + "ette" ; --# notpresent - Pass Pl P1 => st_ + "emmo" ; --# notpresent - Pass Pl P2 => st_ + "este" ; --# notpresent - Pass Pl P3 => st_ + "ettero" ; --# notpresent - Fut Sg P1 => st_ + "arò" ; --# notpresent - Fut Sg P2 => st_ + "arai" ; --# notpresent - Fut Sg P3 => st_ + "arà" ; --# notpresent - Fut Pl P1 => st_ + "aremo" ; --# notpresent - Fut Pl P2 => st_ + "arete" ; --# notpresent - Fut Pl P3 => st_ + "aranno" ; --# notpresent - Cong Pres Sg P1 => st_ + "ia" ; - Cong Pres Sg P2 => st_ + "ia" ; - Cong Pres Sg P3 => st_ + "ia" ; - Cong Pres Pl P1 => st_ + "iamo" ; - Cong Pres Pl P2 => st_ + "iate" ; - Cong Pres Pl P3 => st_ + "iano" ; - Cong Imperf Sg P1 => st_ + "essi" ; --# notpresent - Cong Imperf Sg P2 => st_ + "essi" ; --# notpresent - Cong Imperf Sg P3 => st_ + "esse" ; --# notpresent - Cong Imperf Pl P1 => st_ + "essimo" ; --# notpresent - Cong Imperf Pl P2 => st_ + "este" ; --# notpresent - Cong Imperf Pl P3 => st_ + "essero" ; --# notpresent - Cond Sg P1 => st_ + "arei" ; --# notpresent - Cond Sg P2 => st_ + "aresti" ; --# notpresent - Cond Sg P3 => st_ + "arebbe" ; --# notpresent - Cond Pl P1 => st_ + "aremmo" ; --# notpresent - Cond Pl P2 => st_ + "areste" ; --# notpresent - Cond Pl P3 => st_ + "arebbero" ; --# notpresent - Imper SgP2 => variants {st_ + "a`" ; st_ + "ai"} ; - Imper PlP1 => st_ + "iamo" ; - Imper PlP2 => st_ + "iate" ; - Ger => st_ + "ando" ; - Part PresP Masc Sg => st_ + "ante" ; - Part PresP Masc Pl => st_ + "anti" ; - Part PresP Fem Sg => st_ + "ante" ; - Part PresP Fem Pl => st_ + "anti" ; - Part PassP Masc Sg => st_ + "ato" ; - Part PassP Masc Pl => st_ + "ati" ; - Part PassP Fem Sg => st_ + "ata" ; - Part PassP Fem Pl => st_ + "ate" - } - } ; - -oper agitare_17 : Str -> Verbo = \agitare -> - let agit_ = Predef.tk 3 agitare in - {s = table { - Inf => agit_ + "are" ; - InfClit => agit_ + "ar" ; - Indi Pres Sg P1 => agit_ + "o" ; - Indi Pres Sg P2 => agit_ + "i" ; - Indi Pres Sg P3 => agit_ + "a" ; - Indi Pres Pl P1 => agit_ + "iamo" ; - Indi Pres Pl P2 => agit_ + "ate" ; - Indi Pres Pl P3 => agit_ + "ano" ; - Indi Imperf Sg P1 => agit_ + "avo" ; --# notpresent - Indi Imperf Sg P2 => agit_ + "avi" ; --# notpresent - Indi Imperf Sg P3 => agit_ + "ava" ; --# notpresent - Indi Imperf Pl P1 => agit_ + "avamo" ; --# notpresent - Indi Imperf Pl P2 => agit_ + "avate" ; --# notpresent - Indi Imperf Pl P3 => agit_ + "avano" ; --# notpresent - Pass Sg P1 => agit_ + "ai" ; --# notpresent - Pass Sg P2 => agit_ + "asti" ; --# notpresent - Pass Sg P3 => agit_ + "ò" ; --# notpresent - Pass Pl P1 => agit_ + "ammo" ; --# notpresent - Pass Pl P2 => agit_ + "aste" ; --# notpresent - Pass Pl P3 => agit_ + "arono" ; --# notpresent - Fut Sg P1 => agit_ + "erò" ; --# notpresent - Fut Sg P2 => agit_ + "erai" ; --# notpresent - Fut Sg P3 => agit_ + "erà" ; --# notpresent - Fut Pl P1 => agit_ + "eremo" ; --# notpresent - Fut Pl P2 => agit_ + "erete" ; --# notpresent - Fut Pl P3 => agit_ + "eranno" ; --# notpresent - Cong Pres Sg P1 => agit_ + "i" ; - Cong Pres Sg P2 => agit_ + "i" ; - Cong Pres Sg P3 => agit_ + "i" ; - Cong Pres Pl P1 => agit_ + "iamo" ; - Cong Pres Pl P2 => agit_ + "iate" ; - Cong Pres Pl P3 => agit_ + "ino" ; - Cong Imperf Sg P1 => agit_ + "assi" ; --# notpresent - Cong Imperf Sg P2 => agit_ + "assi" ; --# notpresent - Cong Imperf Sg P3 => agit_ + "asse" ; --# notpresent - Cong Imperf Pl P1 => agit_ + "assimo" ; --# notpresent - Cong Imperf Pl P2 => agit_ + "aste" ; --# notpresent - Cong Imperf Pl P3 => agit_ + "assero" ; --# notpresent - Cond Sg P1 => agit_ + "erei" ; --# notpresent - Cond Sg P2 => agit_ + "eresti" ; --# notpresent - Cond Sg P3 => agit_ + "erebbe" ; --# notpresent - Cond Pl P1 => agit_ + "eremmo" ; --# notpresent - Cond Pl P2 => agit_ + "ereste" ; --# notpresent - Cond Pl P3 => agit_ + "erebbero" ; --# notpresent - Imper SgP2 => agit_ + "a" ; - Imper PlP1 => agit_ + "iamo" ; - Imper PlP2 => agit_ + "ate" ; - Ger => agit_ + "ando" ; - Part PresP Masc Sg => agit_ + "ante" ; - Part PresP Masc Pl => agit_ + "anti" ; - Part PresP Fem Sg => agit_ + "ante" ; - Part PresP Fem Pl => agit_ + "anti" ; - Part PassP Masc Sg => agit_ + "ato" ; - Part PassP Masc Pl => agit_ + "ati" ; - Part PassP Fem Sg => agit_ + "ata" ; - Part PassP Fem Pl => agit_ + "ate" - } - } ; - -oper immaginare_18 : Str -> Verbo = \immaginare -> - let immagin_ = Predef.tk 3 immaginare in - {s = table { - Inf => immagin_ + "are" ; - InfClit => immagin_ + "ar" ; - Indi Pres Sg P1 => immagin_ + "o" ; - Indi Pres Sg P2 => immagin_ + "i" ; - Indi Pres Sg P3 => immagin_ + "a" ; - Indi Pres Pl P1 => immagin_ + "iamo" ; - Indi Pres Pl P2 => immagin_ + "ate" ; - Indi Pres Pl P3 => immagin_ + "ano" ; - Indi Imperf Sg P1 => immagin_ + "avo" ; --# notpresent - Indi Imperf Sg P2 => immagin_ + "avi" ; --# notpresent - Indi Imperf Sg P3 => immagin_ + "ava" ; --# notpresent - Indi Imperf Pl P1 => immagin_ + "avamo" ; --# notpresent - Indi Imperf Pl P2 => immagin_ + "avate" ; --# notpresent - Indi Imperf Pl P3 => immagin_ + "avano" ; --# notpresent - Pass Sg P1 => immagin_ + "ai" ; --# notpresent - Pass Sg P2 => immagin_ + "asti" ; --# notpresent - Pass Sg P3 => immagin_ + "ò" ; --# notpresent - Pass Pl P1 => immagin_ + "ammo" ; --# notpresent - Pass Pl P2 => immagin_ + "aste" ; --# notpresent - Pass Pl P3 => immagin_ + "arono" ; --# notpresent - Fut Sg P1 => immagin_ + "erò" ; --# notpresent - Fut Sg P2 => immagin_ + "erai" ; --# notpresent - Fut Sg P3 => immagin_ + "erà" ; --# notpresent - Fut Pl P1 => immagin_ + "eremo" ; --# notpresent - Fut Pl P2 => immagin_ + "erete" ; --# notpresent - Fut Pl P3 => immagin_ + "eranno" ; --# notpresent - Cong Pres Sg P1 => immagin_ + "i" ; - Cong Pres Sg P2 => immagin_ + "i" ; - Cong Pres Sg P3 => immagin_ + "i" ; - Cong Pres Pl P1 => immagin_ + "iamo" ; - Cong Pres Pl P2 => immagin_ + "iate" ; - Cong Pres Pl P3 => immagin_ + "ino" ; - Cong Imperf Sg P1 => immagin_ + "assi" ; --# notpresent - Cong Imperf Sg P2 => immagin_ + "assi" ; --# notpresent - Cong Imperf Sg P3 => immagin_ + "asse" ; --# notpresent - Cong Imperf Pl P1 => immagin_ + "assimo" ; --# notpresent - Cong Imperf Pl P2 => immagin_ + "aste" ; --# notpresent - Cong Imperf Pl P3 => immagin_ + "assero" ; --# notpresent - Cond Sg P1 => immagin_ + "erei" ; --# notpresent - Cond Sg P2 => immagin_ + "eresti" ; --# notpresent - Cond Sg P3 => immagin_ + "erebbe" ; --# notpresent - Cond Pl P1 => immagin_ + "eremmo" ; --# notpresent - Cond Pl P2 => immagin_ + "ereste" ; --# notpresent - Cond Pl P3 => immagin_ + "erebbero" ; --# notpresent - Imper SgP2 => immagin_ + "a" ; - Imper PlP1 => immagin_ + "iamo" ; - Imper PlP2 => immagin_ + "ate" ; - Ger => immagin_ + "ando" ; - Part PresP Masc Sg => immagin_ + "ante" ; - Part PresP Masc Pl => immagin_ + "anti" ; - Part PresP Fem Sg => immagin_ + "ante" ; - Part PresP Fem Pl => immagin_ + "anti" ; - Part PassP Masc Sg => immagin_ + "ato" ; - Part PassP Masc Pl => immagin_ + "ati" ; - Part PassP Fem Sg => immagin_ + "ata" ; - Part PassP Fem Pl => immagin_ + "ate" - } - } ; - -oper modificare_19 : Str -> Verbo = \modificare -> - let modific_ = Predef.tk 3 modificare in - {s = table { - Inf => modific_ + "are" ; - InfClit => modific_ + "ar" ; - Indi Pres Sg P1 => modific_ + "o" ; - Indi Pres Sg P2 => modific_ + "hi" ; - Indi Pres Sg P3 => modific_ + "a" ; - Indi Pres Pl P1 => modific_ + "hiamo" ; - Indi Pres Pl P2 => modific_ + "ate" ; - Indi Pres Pl P3 => modific_ + "ano" ; - Indi Imperf Sg P1 => modific_ + "avo" ; --# notpresent - Indi Imperf Sg P2 => modific_ + "avi" ; --# notpresent - Indi Imperf Sg P3 => modific_ + "ava" ; --# notpresent - Indi Imperf Pl P1 => modific_ + "avamo" ; --# notpresent - Indi Imperf Pl P2 => modific_ + "avate" ; --# notpresent - Indi Imperf Pl P3 => modific_ + "avano" ; --# notpresent - Pass Sg P1 => modific_ + "ai" ; --# notpresent - Pass Sg P2 => modific_ + "asti" ; --# notpresent - Pass Sg P3 => modific_ + "ò" ; --# notpresent - Pass Pl P1 => modific_ + "ammo" ; --# notpresent - Pass Pl P2 => modific_ + "aste" ; --# notpresent - Pass Pl P3 => modific_ + "arono" ; --# notpresent - Fut Sg P1 => modific_ + "herò" ; --# notpresent - Fut Sg P2 => modific_ + "herai" ; --# notpresent - Fut Sg P3 => modific_ + "herà" ; --# notpresent - Fut Pl P1 => modific_ + "heremo" ; --# notpresent - Fut Pl P2 => modific_ + "herete" ; --# notpresent - Fut Pl P3 => modific_ + "heranno" ; --# notpresent - Cong Pres Sg P1 => modific_ + "hi" ; - Cong Pres Sg P2 => modific_ + "hi" ; - Cong Pres Sg P3 => modific_ + "hi" ; - Cong Pres Pl P1 => modific_ + "hiamo" ; - Cong Pres Pl P2 => modific_ + "hiate" ; - Cong Pres Pl P3 => modific_ + "hino" ; - Cong Imperf Sg P1 => modific_ + "assi" ; --# notpresent - Cong Imperf Sg P2 => modific_ + "assi" ; --# notpresent - Cong Imperf Sg P3 => modific_ + "asse" ; --# notpresent - Cong Imperf Pl P1 => modific_ + "assimo" ; --# notpresent - Cong Imperf Pl P2 => modific_ + "aste" ; --# notpresent - Cong Imperf Pl P3 => modific_ + "assero" ; --# notpresent - Cond Sg P1 => modific_ + "herei" ; --# notpresent - Cond Sg P2 => modific_ + "heresti" ; --# notpresent - Cond Sg P3 => modific_ + "herebbe" ; --# notpresent - Cond Pl P1 => modific_ + "heremmo" ; --# notpresent - Cond Pl P2 => modific_ + "hereste" ; --# notpresent - Cond Pl P3 => modific_ + "herebbero" ; --# notpresent - Imper SgP2 => modific_ + "a" ; - Imper PlP1 => modific_ + "hiamo" ; - Imper PlP2 => modific_ + "ate" ; - Ger => modific_ + "ando" ; - Part PresP Masc Sg => modific_ + "ante" ; - Part PresP Masc Pl => modific_ + "anti" ; - Part PresP Fem Sg => modific_ + "ante" ; - Part PresP Fem Pl => modific_ + "anti" ; - Part PassP Masc Sg => modific_ + "ato" ; - Part PassP Masc Pl => modific_ + "ati" ; - Part PassP Fem Sg => modific_ + "ata" ; - Part PassP Fem Pl => modific_ + "ate" - } - } ; - -oper temere_20 : Str -> Verbo = \temere -> - let tem_ = Predef.tk 3 temere in - {s = table { - Inf => tem_ + "ere" ; - InfClit => tem_ + "er" ; - Indi Pres Sg P1 => tem_ + "o" ; - Indi Pres Sg P2 => tem_ + "i" ; - Indi Pres Sg P3 => tem_ + "e" ; - Indi Pres Pl P1 => tem_ + "iamo" ; - Indi Pres Pl P2 => tem_ + "ete" ; - Indi Pres Pl P3 => tem_ + "ono" ; - Indi Imperf Sg P1 => tem_ + "evo" ; --# notpresent - Indi Imperf Sg P2 => tem_ + "evi" ; --# notpresent - Indi Imperf Sg P3 => tem_ + "eva" ; --# notpresent - Indi Imperf Pl P1 => tem_ + "evamo" ; --# notpresent - Indi Imperf Pl P2 => tem_ + "evate" ; --# notpresent - Indi Imperf Pl P3 => tem_ + "evano" ; --# notpresent - Pass Sg P1 => tem_ + "etti" ; --# notpresent - Pass Sg P2 => tem_ + "esti" ; --# notpresent - Pass Sg P3 => tem_ + "ette" ; --# notpresent - Pass Pl P1 => tem_ + "emmo" ; --# notpresent - Pass Pl P2 => tem_ + "este" ; --# notpresent - Pass Pl P3 => tem_ + "ettero" ; --# notpresent - Fut Sg P1 => tem_ + "erò" ; --# notpresent - Fut Sg P2 => tem_ + "erai" ; --# notpresent - Fut Sg P3 => tem_ + "erà" ; --# notpresent - Fut Pl P1 => tem_ + "eremo" ; --# notpresent - Fut Pl P2 => tem_ + "erete" ; --# notpresent - Fut Pl P3 => tem_ + "eranno" ; --# notpresent - Cong Pres Sg P1 => tem_ + "a" ; - Cong Pres Sg P2 => tem_ + "a" ; - Cong Pres Sg P3 => tem_ + "a" ; - Cong Pres Pl P1 => tem_ + "iamo" ; - Cong Pres Pl P2 => tem_ + "iate" ; - Cong Pres Pl P3 => tem_ + "ano" ; - Cong Imperf Sg P1 => tem_ + "essi" ; --# notpresent - Cong Imperf Sg P2 => tem_ + "essi" ; --# notpresent - Cong Imperf Sg P3 => tem_ + "esse" ; --# notpresent - Cong Imperf Pl P1 => tem_ + "essimo" ; --# notpresent - Cong Imperf Pl P2 => tem_ + "este" ; --# notpresent - Cong Imperf Pl P3 => tem_ + "essero" ; --# notpresent - Cond Sg P1 => tem_ + "erei" ; --# notpresent - Cond Sg P2 => tem_ + "eresti" ; --# notpresent - Cond Sg P3 => tem_ + "erebbe" ; --# notpresent - Cond Pl P1 => tem_ + "eremmo" ; --# notpresent - Cond Pl P2 => tem_ + "ereste" ; --# notpresent - Cond Pl P3 => tem_ + "erebbero" ; --# notpresent - Imper SgP2 => tem_ + "i" ; - Imper PlP1 => tem_ + "iamo" ; - Imper PlP2 => tem_ + "ete" ; - Ger => tem_ + "endo" ; - Part PresP Masc Sg => tem_ + "ente" ; - Part PresP Masc Pl => tem_ + "enti" ; - Part PresP Fem Sg => tem_ + "ente" ; - Part PresP Fem Pl => tem_ + "enti" ; - Part PassP Masc Sg => tem_ + "uto" ; - Part PassP Masc Pl => tem_ + "uti" ; - Part PassP Fem Sg => tem_ + "uta" ; - Part PassP Fem Pl => tem_ + "ute" - } - } ; - -oper accendere_21 : Str -> Verbo = \accendere -> - let acce_ = Predef.tk 5 accendere in - {s = table { - Inf => acce_ + "ndere" ; - InfClit => acce_ + "nder" ; - Indi Pres Sg P1 => acce_ + "ndo" ; - Indi Pres Sg P2 => acce_ + "ndi" ; - Indi Pres Sg P3 => acce_ + "nde" ; - Indi Pres Pl P1 => acce_ + "ndiamo" ; - Indi Pres Pl P2 => acce_ + "ndete" ; - Indi Pres Pl P3 => acce_ + "ndono" ; - Indi Imperf Sg P1 => acce_ + "ndevo" ; --# notpresent - Indi Imperf Sg P2 => acce_ + "ndevi" ; --# notpresent - Indi Imperf Sg P3 => acce_ + "ndeva" ; --# notpresent - Indi Imperf Pl P1 => acce_ + "ndevamo" ; --# notpresent - Indi Imperf Pl P2 => acce_ + "ndevate" ; --# notpresent - Indi Imperf Pl P3 => acce_ + "ndevano" ; --# notpresent - Pass Sg P1 => acce_ + "si" ; --# notpresent - Pass Sg P2 => acce_ + "ndesti" ; --# notpresent - Pass Sg P3 => acce_ + "se" ; --# notpresent - Pass Pl P1 => acce_ + "ndemmo" ; --# notpresent - Pass Pl P2 => acce_ + "ndeste" ; --# notpresent - Pass Pl P3 => acce_ + "sero" ; --# notpresent - Fut Sg P1 => acce_ + "nderò" ; --# notpresent - Fut Sg P2 => acce_ + "nderai" ; --# notpresent - Fut Sg P3 => acce_ + "nderà" ; --# notpresent - Fut Pl P1 => acce_ + "nderemo" ; --# notpresent - Fut Pl P2 => acce_ + "nderete" ; --# notpresent - Fut Pl P3 => acce_ + "nderanno" ; --# notpresent - Cong Pres Sg P1 => acce_ + "nda" ; - Cong Pres Sg P2 => acce_ + "nda" ; - Cong Pres Sg P3 => acce_ + "nda" ; - Cong Pres Pl P1 => acce_ + "ndiamo" ; - Cong Pres Pl P2 => acce_ + "ndiate" ; - Cong Pres Pl P3 => acce_ + "ndano" ; - Cong Imperf Sg P1 => acce_ + "ndessi" ; --# notpresent - Cong Imperf Sg P2 => acce_ + "ndessi" ; --# notpresent - Cong Imperf Sg P3 => acce_ + "ndesse" ; --# notpresent - Cong Imperf Pl P1 => acce_ + "ndessimo" ; --# notpresent - Cong Imperf Pl P2 => acce_ + "ndeste" ; --# notpresent - Cong Imperf Pl P3 => acce_ + "ndessero" ; --# notpresent - Cond Sg P1 => acce_ + "nderei" ; --# notpresent - Cond Sg P2 => acce_ + "nderesti" ; --# notpresent - Cond Sg P3 => acce_ + "nderebbe" ; --# notpresent - Cond Pl P1 => acce_ + "nderemmo" ; --# notpresent - Cond Pl P2 => acce_ + "ndereste" ; --# notpresent - Cond Pl P3 => acce_ + "nderebbero" ; --# notpresent - Imper SgP2 => acce_ + "ndi" ; - Imper PlP1 => acce_ + "ndiamo" ; - Imper PlP2 => acce_ + "ndete" ; - Ger => acce_ + "ndendo" ; - Part PresP Masc Sg => acce_ + "ndente" ; - Part PresP Masc Pl => acce_ + "ndenti" ; - Part PresP Fem Sg => acce_ + "ndente" ; - Part PresP Fem Pl => acce_ + "ndenti" ; - Part PassP Masc Sg => acce_ + "so" ; - Part PassP Masc Pl => acce_ + "si" ; - Part PassP Fem Sg => acce_ + "sa" ; - Part PassP Fem Pl => acce_ + "se" - } - } ; - -oper affiggere_22 : Str -> Verbo = \affiggere -> - let affi_ = Predef.tk 5 affiggere in - {s = table { - Inf => affi_ + "ggere" ; - InfClit => affi_ + "gger" ; - Indi Pres Sg P1 => affi_ + "ggo" ; - Indi Pres Sg P2 => affi_ + "ggi" ; - Indi Pres Sg P3 => affi_ + "gge" ; - Indi Pres Pl P1 => affi_ + "ggiamo" ; - Indi Pres Pl P2 => affi_ + "ggete" ; - Indi Pres Pl P3 => affi_ + "ggono" ; - Indi Imperf Sg P1 => affi_ + "ggevo" ; --# notpresent - Indi Imperf Sg P2 => affi_ + "ggevi" ; --# notpresent - Indi Imperf Sg P3 => affi_ + "ggeva" ; --# notpresent - Indi Imperf Pl P1 => affi_ + "ggevamo" ; --# notpresent - Indi Imperf Pl P2 => affi_ + "ggevate" ; --# notpresent - Indi Imperf Pl P3 => affi_ + "ggevano" ; --# notpresent - Pass Sg P1 => affi_ + "ssi" ; --# notpresent - Pass Sg P2 => affi_ + "ggesti" ; --# notpresent - Pass Sg P3 => affi_ + "sse" ; --# notpresent - Pass Pl P1 => affi_ + "ggemmo" ; --# notpresent - Pass Pl P2 => affi_ + "ggeste" ; --# notpresent - Pass Pl P3 => affi_ + "ssero" ; --# notpresent - Fut Sg P1 => affi_ + "ggerò" ; --# notpresent - Fut Sg P2 => affi_ + "ggerai" ; --# notpresent - Fut Sg P3 => affi_ + "ggerà" ; --# notpresent - Fut Pl P1 => affi_ + "ggeremo" ; --# notpresent - Fut Pl P2 => affi_ + "ggerete" ; --# notpresent - Fut Pl P3 => affi_ + "ggeranno" ; --# notpresent - Cong Pres Sg P1 => affi_ + "gga" ; - Cong Pres Sg P2 => affi_ + "gga" ; - Cong Pres Sg P3 => affi_ + "gga" ; - Cong Pres Pl P1 => affi_ + "ggiamo" ; - Cong Pres Pl P2 => affi_ + "ggiate" ; - Cong Pres Pl P3 => affi_ + "ggano" ; - Cong Imperf Sg P1 => affi_ + "ggessi" ; --# notpresent - Cong Imperf Sg P2 => affi_ + "ggessi" ; --# notpresent - Cong Imperf Sg P3 => affi_ + "ggesse" ; --# notpresent - Cong Imperf Pl P1 => affi_ + "ggessimo" ; --# notpresent - Cong Imperf Pl P2 => affi_ + "ggeste" ; --# notpresent - Cong Imperf Pl P3 => affi_ + "ggessero" ; --# notpresent - Cond Sg P1 => affi_ + "ggerei" ; --# notpresent - Cond Sg P2 => affi_ + "ggeresti" ; --# notpresent - Cond Sg P3 => affi_ + "ggerebbe" ; --# notpresent - Cond Pl P1 => affi_ + "ggeremmo" ; --# notpresent - Cond Pl P2 => affi_ + "ggereste" ; --# notpresent - Cond Pl P3 => affi_ + "ggerebbero" ; --# notpresent - Imper SgP2 => affi_ + "ggi" ; - Imper PlP1 => affi_ + "ggiamo" ; - Imper PlP2 => affi_ + "ggete" ; - Ger => affi_ + "ggendo" ; - Part PresP Masc Sg => affi_ + "ggente" ; - Part PresP Masc Pl => affi_ + "ggenti" ; - Part PresP Fem Sg => affi_ + "ggente" ; - Part PresP Fem Pl => affi_ + "ggenti" ; - Part PassP Masc Sg => affi_ + "sso" ; - Part PassP Masc Pl => affi_ + "ssi" ; - Part PassP Fem Sg => affi_ + "ssa" ; - Part PassP Fem Pl => affi_ + "sse" - } - } ; - -oper ardere_23 : Str -> Verbo = \ardere -> - let ar_ = Predef.tk 4 ardere in - {s = table { - Inf => ar_ + "dere" ; - InfClit => ar_ + "der" ; - Indi Pres Sg P1 => ar_ + "do" ; - Indi Pres Sg P2 => ar_ + "di" ; - Indi Pres Sg P3 => ar_ + "de" ; - Indi Pres Pl P1 => ar_ + "diamo" ; - Indi Pres Pl P2 => ar_ + "dete" ; - Indi Pres Pl P3 => ar_ + "dono" ; - Indi Imperf Sg P1 => ar_ + "devo" ; --# notpresent - Indi Imperf Sg P2 => ar_ + "devi" ; --# notpresent - Indi Imperf Sg P3 => ar_ + "deva" ; --# notpresent - Indi Imperf Pl P1 => ar_ + "devamo" ; --# notpresent - Indi Imperf Pl P2 => ar_ + "devate" ; --# notpresent - Indi Imperf Pl P3 => ar_ + "devano" ; --# notpresent - Pass Sg P1 => ar_ + "si" ; --# notpresent - Pass Sg P2 => ar_ + "desti" ; --# notpresent - Pass Sg P3 => ar_ + "se" ; --# notpresent - Pass Pl P1 => ar_ + "demmo" ; --# notpresent - Pass Pl P2 => ar_ + "deste" ; --# notpresent - Pass Pl P3 => ar_ + "sero" ; --# notpresent - Fut Sg P1 => ar_ + "derò" ; --# notpresent - Fut Sg P2 => ar_ + "derai" ; --# notpresent - Fut Sg P3 => ar_ + "derà" ; --# notpresent - Fut Pl P1 => ar_ + "deremo" ; --# notpresent - Fut Pl P2 => ar_ + "derete" ; --# notpresent - Fut Pl P3 => ar_ + "deranno" ; --# notpresent - Cong Pres Sg P1 => ar_ + "da" ; - Cong Pres Sg P2 => ar_ + "da" ; - Cong Pres Sg P3 => ar_ + "da" ; - Cong Pres Pl P1 => ar_ + "diamo" ; - Cong Pres Pl P2 => ar_ + "diate" ; - Cong Pres Pl P3 => ar_ + "dano" ; - Cong Imperf Sg P1 => ar_ + "dessi" ; --# notpresent - Cong Imperf Sg P2 => ar_ + "dessi" ; --# notpresent - Cong Imperf Sg P3 => ar_ + "desse" ; --# notpresent - Cong Imperf Pl P1 => ar_ + "dessimo" ; --# notpresent - Cong Imperf Pl P2 => ar_ + "deste" ; --# notpresent - Cong Imperf Pl P3 => ar_ + "dessero" ; --# notpresent - Cond Sg P1 => ar_ + "derei" ; --# notpresent - Cond Sg P2 => ar_ + "deresti" ; --# notpresent - Cond Sg P3 => ar_ + "derebbe" ; --# notpresent - Cond Pl P1 => ar_ + "deremmo" ; --# notpresent - Cond Pl P2 => ar_ + "dereste" ; --# notpresent - Cond Pl P3 => ar_ + "derebbero" ; --# notpresent - Imper SgP2 => ar_ + "di" ; - Imper PlP1 => ar_ + "diamo" ; - Imper PlP2 => ar_ + "dete" ; - Ger => ar_ + "dendo" ; - Part PresP Masc Sg => ar_ + "dente" ; - Part PresP Masc Pl => ar_ + "denti" ; - Part PresP Fem Sg => ar_ + "dente" ; - Part PresP Fem Pl => ar_ + "denti" ; - Part PassP Masc Sg => ar_ + "so" ; - Part PassP Masc Pl => ar_ + "si" ; - Part PassP Fem Sg => ar_ + "sa" ; - Part PassP Fem Pl => ar_ + "se" - } - } ; - -oper assistere_24 : Str -> Verbo = \assistere -> - let assist_ = Predef.tk 3 assistere in - {s = table { - Inf => assist_ + "ere" ; - InfClit => assist_ + "er" ; - Indi Pres Sg P1 => assist_ + "o" ; - Indi Pres Sg P2 => assist_ + "i" ; - Indi Pres Sg P3 => assist_ + "e" ; - Indi Pres Pl P1 => assist_ + "iamo" ; - Indi Pres Pl P2 => assist_ + "ete" ; - Indi Pres Pl P3 => assist_ + "ono" ; - Indi Imperf Sg P1 => assist_ + "evo" ; --# notpresent - Indi Imperf Sg P2 => assist_ + "evi" ; --# notpresent - Indi Imperf Sg P3 => assist_ + "eva" ; --# notpresent - Indi Imperf Pl P1 => assist_ + "evamo" ; --# notpresent - Indi Imperf Pl P2 => assist_ + "evate" ; --# notpresent - Indi Imperf Pl P3 => assist_ + "evano" ; --# notpresent - Pass Sg P1 => assist_ + "ei" ; --# notpresent - Pass Sg P2 => assist_ + "esti" ; --# notpresent - Pass Sg P3 => assist_ + "é" ; --# notpresent - Pass Pl P1 => assist_ + "emmo" ; --# notpresent - Pass Pl P2 => assist_ + "este" ; --# notpresent - Pass Pl P3 => assist_ + "erono" ; --# notpresent - Fut Sg P1 => assist_ + "erò" ; --# notpresent - Fut Sg P2 => assist_ + "erai" ; --# notpresent - Fut Sg P3 => assist_ + "erà" ; --# notpresent - Fut Pl P1 => assist_ + "eremo" ; --# notpresent - Fut Pl P2 => assist_ + "erete" ; --# notpresent - Fut Pl P3 => assist_ + "eranno" ; --# notpresent - Cong Pres Sg P1 => assist_ + "a" ; - Cong Pres Sg P2 => assist_ + "a" ; - Cong Pres Sg P3 => assist_ + "a" ; - Cong Pres Pl P1 => assist_ + "iamo" ; - Cong Pres Pl P2 => assist_ + "iate" ; - Cong Pres Pl P3 => assist_ + "ano" ; - Cong Imperf Sg P1 => assist_ + "essi" ; --# notpresent - Cong Imperf Sg P2 => assist_ + "essi" ; --# notpresent - Cong Imperf Sg P3 => assist_ + "esse" ; --# notpresent - Cong Imperf Pl P1 => assist_ + "essimo" ; --# notpresent - Cong Imperf Pl P2 => assist_ + "este" ; --# notpresent - Cong Imperf Pl P3 => assist_ + "essero" ; --# notpresent - Cond Sg P1 => assist_ + "erei" ; --# notpresent - Cond Sg P2 => assist_ + "eresti" ; --# notpresent - Cond Sg P3 => assist_ + "erebbe" ; --# notpresent - Cond Pl P1 => assist_ + "eremmo" ; --# notpresent - Cond Pl P2 => assist_ + "ereste" ; --# notpresent - Cond Pl P3 => assist_ + "erebbero" ; --# notpresent - Imper SgP2 => assist_ + "i" ; - Imper PlP1 => assist_ + "iamo" ; - Imper PlP2 => assist_ + "ete" ; - Ger => assist_ + "endo" ; - Part PresP Masc Sg => assist_ + "ente" ; - Part PresP Masc Pl => assist_ + "enti" ; - Part PresP Fem Sg => assist_ + "ente" ; - Part PresP Fem Pl => assist_ + "enti" ; - Part PassP Masc Sg => assist_ + "ito" ; - Part PassP Masc Pl => assist_ + "iti" ; - Part PassP Fem Sg => assist_ + "ita" ; - Part PassP Fem Pl => assist_ + "ite" - } - } ; - -oper assolvere_25 : Str -> Verbo = \assolvere -> - let assol_ = Predef.tk 4 assolvere in - {s = table { - Inf => assol_ + "vere" ; - InfClit => assol_ + "ver" ; - Indi Pres Sg P1 => assol_ + "vo" ; - Indi Pres Sg P2 => assol_ + "vi" ; - Indi Pres Sg P3 => assol_ + "ve" ; - Indi Pres Pl P1 => assol_ + "viamo" ; - Indi Pres Pl P2 => assol_ + "vete" ; - Indi Pres Pl P3 => assol_ + "vono" ; - Indi Imperf Sg P1 => assol_ + "vevo" ; --# notpresent - Indi Imperf Sg P2 => assol_ + "vevi" ; --# notpresent - Indi Imperf Sg P3 => assol_ + "veva" ; --# notpresent - Indi Imperf Pl P1 => assol_ + "vevamo" ; --# notpresent - Indi Imperf Pl P2 => assol_ + "vevate" ; --# notpresent - Indi Imperf Pl P3 => assol_ + "vevano" ; --# notpresent - Pass Sg P1 => assol_ + "si" ; --# notpresent - Pass Sg P2 => assol_ + "vesti" ; --# notpresent - Pass Sg P3 => assol_ + "se" ; --# notpresent - Pass Pl P1 => assol_ + "vemmo" ; --# notpresent - Pass Pl P2 => assol_ + "veste" ; --# notpresent - Pass Pl P3 => assol_ + "sero" ; --# notpresent - Fut Sg P1 => assol_ + "verò" ; --# notpresent - Fut Sg P2 => assol_ + "verai" ; --# notpresent - Fut Sg P3 => assol_ + "verà" ; --# notpresent - Fut Pl P1 => assol_ + "veremo" ; --# notpresent - Fut Pl P2 => assol_ + "verete" ; --# notpresent - Fut Pl P3 => assol_ + "veranno" ; --# notpresent - Cong Pres Sg P1 => assol_ + "va" ; - Cong Pres Sg P2 => assol_ + "va" ; - Cong Pres Sg P3 => assol_ + "va" ; - Cong Pres Pl P1 => assol_ + "viamo" ; - Cong Pres Pl P2 => assol_ + "viate" ; - Cong Pres Pl P3 => assol_ + "vano" ; - Cong Imperf Sg P1 => assol_ + "vessi" ; --# notpresent - Cong Imperf Sg P2 => assol_ + "vessi" ; --# notpresent - Cong Imperf Sg P3 => assol_ + "vesse" ; --# notpresent - Cong Imperf Pl P1 => assol_ + "vessimo" ; --# notpresent - Cong Imperf Pl P2 => assol_ + "veste" ; --# notpresent - Cong Imperf Pl P3 => assol_ + "vessero" ; --# notpresent - Cond Sg P1 => assol_ + "verei" ; --# notpresent - Cond Sg P2 => assol_ + "veresti" ; --# notpresent - Cond Sg P3 => assol_ + "verebbe" ; --# notpresent - Cond Pl P1 => assol_ + "veremmo" ; --# notpresent - Cond Pl P2 => assol_ + "vereste" ; --# notpresent - Cond Pl P3 => assol_ + "verebbero" ; --# notpresent - Imper SgP2 => assol_ + "vi" ; - Imper PlP1 => assol_ + "viamo" ; - Imper PlP2 => assol_ + "vete" ; - Ger => assol_ + "vendo" ; - Part PresP Masc Sg => assol_ + "vente" ; - Part PresP Masc Pl => assol_ + "venti" ; - Part PresP Fem Sg => assol_ + "vente" ; - Part PresP Fem Pl => assol_ + "venti" ; - Part PassP Masc Sg => assol_ + "to" ; - Part PassP Masc Pl => assol_ + "ti" ; - Part PassP Fem Sg => assol_ + "ta" ; - Part PassP Fem Pl => assol_ + "te" - } - } ; - -oper assumere_26 : Str -> Verbo = \assumere -> - let assu_ = Predef.tk 4 assumere in - {s = table { - Inf => assu_ + "mere" ; - InfClit => assu_ + "mer" ; - Indi Pres Sg P1 => assu_ + "mo" ; - Indi Pres Sg P2 => assu_ + "mi" ; - Indi Pres Sg P3 => assu_ + "me" ; - Indi Pres Pl P1 => assu_ + "miamo" ; - Indi Pres Pl P2 => assu_ + "mete" ; - Indi Pres Pl P3 => assu_ + "mono" ; - Indi Imperf Sg P1 => assu_ + "mevo" ; --# notpresent - Indi Imperf Sg P2 => assu_ + "mevi" ; --# notpresent - Indi Imperf Sg P3 => assu_ + "meva" ; --# notpresent - Indi Imperf Pl P1 => assu_ + "mevamo" ; --# notpresent - Indi Imperf Pl P2 => assu_ + "mevate" ; --# notpresent - Indi Imperf Pl P3 => assu_ + "mevano" ; --# notpresent - Pass Sg P1 => assu_ + "nsi" ; --# notpresent - Pass Sg P2 => assu_ + "mesti" ; --# notpresent - Pass Sg P3 => assu_ + "nse" ; --# notpresent - Pass Pl P1 => assu_ + "memmo" ; --# notpresent - Pass Pl P2 => assu_ + "meste" ; --# notpresent - Pass Pl P3 => assu_ + "nsero" ; --# notpresent - Fut Sg P1 => assu_ + "merò" ; --# notpresent - Fut Sg P2 => assu_ + "merai" ; --# notpresent - Fut Sg P3 => assu_ + "merà" ; --# notpresent - Fut Pl P1 => assu_ + "meremo" ; --# notpresent - Fut Pl P2 => assu_ + "merete" ; --# notpresent - Fut Pl P3 => assu_ + "meranno" ; --# notpresent - Cong Pres Sg P1 => assu_ + "ma" ; - Cong Pres Sg P2 => assu_ + "ma" ; - Cong Pres Sg P3 => assu_ + "ma" ; - Cong Pres Pl P1 => assu_ + "miamo" ; - Cong Pres Pl P2 => assu_ + "miate" ; - Cong Pres Pl P3 => assu_ + "mano" ; - Cong Imperf Sg P1 => assu_ + "messi" ; --# notpresent - Cong Imperf Sg P2 => assu_ + "messi" ; --# notpresent - Cong Imperf Sg P3 => assu_ + "messe" ; --# notpresent - Cong Imperf Pl P1 => assu_ + "messimo" ; --# notpresent - Cong Imperf Pl P2 => assu_ + "meste" ; --# notpresent - Cong Imperf Pl P3 => assu_ + "messero" ; --# notpresent - Cond Sg P1 => assu_ + "merei" ; --# notpresent - Cond Sg P2 => assu_ + "meresti" ; --# notpresent - Cond Sg P3 => assu_ + "merebbe" ; --# notpresent - Cond Pl P1 => assu_ + "meremmo" ; --# notpresent - Cond Pl P2 => assu_ + "mereste" ; --# notpresent - Cond Pl P3 => assu_ + "merebbero" ; --# notpresent - Imper SgP2 => assu_ + "mi" ; - Imper PlP1 => assu_ + "miamo" ; - Imper PlP2 => assu_ + "mete" ; - Ger => assu_ + "mendo" ; - Part PresP Masc Sg => assu_ + "mente" ; - Part PresP Masc Pl => assu_ + "menti" ; - Part PresP Fem Sg => assu_ + "mente" ; - Part PresP Fem Pl => assu_ + "menti" ; - Part PassP Masc Sg => assu_ + "nto" ; - Part PassP Masc Pl => assu_ + "nti" ; - Part PassP Fem Sg => assu_ + "nta" ; - Part PassP Fem Pl => assu_ + "nte" - } - } ; - -oper bere_27 : Str -> Verbo = \bere -> - let be_ = Predef.tk 2 bere in - {s = table { - Inf => be_ + "re" ; - InfClit => be_ + "r" ; - Indi Pres Sg P1 => be_ + "vo" ; - Indi Pres Sg P2 => be_ + "vi" ; - Indi Pres Sg P3 => be_ + "ve" ; - Indi Pres Pl P1 => be_ + "viamo" ; - Indi Pres Pl P2 => be_ + "vete" ; - Indi Pres Pl P3 => be_ + "vono" ; - Indi Imperf Sg P1 => be_ + "vevo" ; --# notpresent - Indi Imperf Sg P2 => be_ + "vevi" ; --# notpresent - Indi Imperf Sg P3 => be_ + "veva" ; --# notpresent - Indi Imperf Pl P1 => be_ + "vevamo" ; --# notpresent - Indi Imperf Pl P2 => be_ + "vevate" ; --# notpresent - Indi Imperf Pl P3 => be_ + "vevano" ; --# notpresent - Pass Sg P1 => be_ + "vvi" ; --# notpresent - Pass Sg P2 => be_ + "vesti" ; --# notpresent - Pass Sg P3 => be_ + "vve" ; --# notpresent - Pass Pl P1 => be_ + "vemmo" ; --# notpresent - Pass Pl P2 => be_ + "veste" ; --# notpresent - Pass Pl P3 => be_ + "vvero" ; --# notpresent - Fut Sg P1 => be_ + "rrò" ; --# notpresent - Fut Sg P2 => be_ + "rrai" ; --# notpresent - Fut Sg P3 => be_ + "rrà" ; --# notpresent - Fut Pl P1 => be_ + "rremo" ; --# notpresent - Fut Pl P2 => be_ + "rrete" ; --# notpresent - Fut Pl P3 => be_ + "rranno" ; --# notpresent - Cong Pres Sg P1 => be_ + "va" ; - Cong Pres Sg P2 => be_ + "va" ; - Cong Pres Sg P3 => be_ + "va" ; - Cong Pres Pl P1 => be_ + "viamo" ; - Cong Pres Pl P2 => be_ + "viate" ; - Cong Pres Pl P3 => be_ + "vano" ; - Cong Imperf Sg P1 => be_ + "vessi" ; --# notpresent - Cong Imperf Sg P2 => be_ + "vessi" ; --# notpresent - Cong Imperf Sg P3 => be_ + "vesse" ; --# notpresent - Cong Imperf Pl P1 => be_ + "vessimo" ; --# notpresent - Cong Imperf Pl P2 => be_ + "veste" ; --# notpresent - Cong Imperf Pl P3 => be_ + "vessero" ; --# notpresent - Cond Sg P1 => be_ + "rrei" ; --# notpresent - Cond Sg P2 => be_ + "rresti" ; --# notpresent - Cond Sg P3 => be_ + "rrebbe" ; --# notpresent - Cond Pl P1 => be_ + "rremmo" ; --# notpresent - Cond Pl P2 => be_ + "rreste" ; --# notpresent - Cond Pl P3 => be_ + "rrebbero" ; --# notpresent - Imper SgP2 => be_ + "vi" ; - Imper PlP1 => be_ + "viamo" ; - Imper PlP2 => be_ + "vete" ; - Ger => be_ + "vendo" ; - Part PresP Masc Sg => be_ + "vente" ; - Part PresP Masc Pl => be_ + "venti" ; - Part PresP Fem Sg => be_ + "vente" ; - Part PresP Fem Pl => be_ + "venti" ; - Part PassP Masc Sg => be_ + "vuto" ; - Part PassP Masc Pl => be_ + "vuti" ; - Part PassP Fem Sg => be_ + "vuta" ; - Part PassP Fem Pl => be_ + "vute" - } - } ; - -oper cadere_28 : Str -> Verbo = \caere -> - let ca_ = Predef.tk 3 caere in - {s = table { - Inf => ca_ + "ere" ; - InfClit => ca_ + "er" ; - Indi Pres Sg P1 => ca_ + "o" ; - Indi Pres Sg P2 => ca_ + "i" ; - Indi Pres Sg P3 => ca_ + "e" ; - Indi Pres Pl P1 => ca_ + "iamo" ; - Indi Pres Pl P2 => ca_ + "ete" ; - Indi Pres Pl P3 => ca_ + "ono" ; - Indi Imperf Sg P1 => ca_ + "evo" ; --# notpresent - Indi Imperf Sg P2 => ca_ + "evi" ; --# notpresent - Indi Imperf Sg P3 => ca_ + "eva" ; --# notpresent - Indi Imperf Pl P1 => ca_ + "evamo" ; --# notpresent - Indi Imperf Pl P2 => ca_ + "evate" ; --# notpresent - Indi Imperf Pl P3 => ca_ + "evano" ; --# notpresent - Pass Sg P1 => ca_ + "di" ; --# notpresent - Pass Sg P2 => ca_ + "esti" ; --# notpresent - Pass Sg P3 => ca_ + "de" ; --# notpresent - Pass Pl P1 => ca_ + "emmo" ; --# notpresent - Pass Pl P2 => ca_ + "este" ; --# notpresent - Pass Pl P3 => ca_ + "dero" ; --# notpresent - Fut Sg P1 => ca_ + "rò" ; --# notpresent - Fut Sg P2 => ca_ + "rai" ; --# notpresent - Fut Sg P3 => ca_ + "rà" ; --# notpresent - Fut Pl P1 => ca_ + "remo" ; --# notpresent - Fut Pl P2 => ca_ + "rete" ; --# notpresent - Fut Pl P3 => ca_ + "ranno" ; --# notpresent - Cong Pres Sg P1 => ca_ + "a" ; - Cong Pres Sg P2 => ca_ + "a" ; - Cong Pres Sg P3 => ca_ + "a" ; - Cong Pres Pl P1 => ca_ + "iamo" ; - Cong Pres Pl P2 => ca_ + "iate" ; - Cong Pres Pl P3 => ca_ + "ano" ; - Cong Imperf Sg P1 => ca_ + "essi" ; --# notpresent - Cong Imperf Sg P2 => ca_ + "essi" ; --# notpresent - Cong Imperf Sg P3 => ca_ + "esse" ; --# notpresent - Cong Imperf Pl P1 => ca_ + "essimo" ; --# notpresent - Cong Imperf Pl P2 => ca_ + "este" ; --# notpresent - Cong Imperf Pl P3 => ca_ + "essero" ; --# notpresent - Cond Sg P1 => ca_ + "rei" ; --# notpresent - Cond Sg P2 => ca_ + "resti" ; --# notpresent - Cond Sg P3 => ca_ + "rebbe" ; --# notpresent - Cond Pl P1 => ca_ + "remmo" ; --# notpresent - Cond Pl P2 => ca_ + "reste" ; --# notpresent - Cond Pl P3 => ca_ + "rebbero" ; --# notpresent - Imper SgP2 => ca_ + "i" ; - Imper PlP1 => ca_ + "iamo" ; - Imper PlP2 => ca_ + "ete" ; - Ger => ca_ + "endo" ; - Part PresP Masc Sg => ca_ + "ente" ; - Part PresP Masc Pl => ca_ + "enti" ; - Part PresP Fem Sg => ca_ + "ente" ; - Part PresP Fem Pl => ca_ + "enti" ; - Part PassP Masc Sg => ca_ + "uto" ; - Part PassP Masc Pl => ca_ + "uti" ; - Part PassP Fem Sg => ca_ + "uta" ; - Part PassP Fem Pl => ca_ + "ute" - } - } ; - -oper chiedere_29 : Str -> Verbo = \chiedere -> - let chie_ = Predef.tk 4 chiedere in - {s = table { - Inf => chie_ + "dere" ; - InfClit => chie_ + "der" ; - Indi Pres Sg P1 => chie_ + "do" ; - Indi Pres Sg P2 => chie_ + "di" ; - Indi Pres Sg P3 => chie_ + "de" ; - Indi Pres Pl P1 => chie_ + "diamo" ; - Indi Pres Pl P2 => chie_ + "dete" ; - Indi Pres Pl P3 => chie_ + "dono" ; - Indi Imperf Sg P1 => chie_ + "devo" ; --# notpresent - Indi Imperf Sg P2 => chie_ + "devi" ; --# notpresent - Indi Imperf Sg P3 => chie_ + "deva" ; --# notpresent - Indi Imperf Pl P1 => chie_ + "devamo" ; --# notpresent - Indi Imperf Pl P2 => chie_ + "devate" ; --# notpresent - Indi Imperf Pl P3 => chie_ + "devano" ; --# notpresent - Pass Sg P1 => chie_ + "si" ; --# notpresent - Pass Sg P2 => chie_ + "desti" ; --# notpresent - Pass Sg P3 => chie_ + "se" ; --# notpresent - Pass Pl P1 => chie_ + "demmo" ; --# notpresent - Pass Pl P2 => chie_ + "deste" ; --# notpresent - Pass Pl P3 => chie_ + "sero" ; --# notpresent - Fut Sg P1 => chie_ + "derò" ; --# notpresent - Fut Sg P2 => chie_ + "derai" ; --# notpresent - Fut Sg P3 => chie_ + "derà" ; --# notpresent - Fut Pl P1 => chie_ + "deremo" ; --# notpresent - Fut Pl P2 => chie_ + "derete" ; --# notpresent - Fut Pl P3 => chie_ + "deranno" ; --# notpresent - Cong Pres Sg P1 => chie_ + "da" ; - Cong Pres Sg P2 => chie_ + "da" ; - Cong Pres Sg P3 => chie_ + "da" ; - Cong Pres Pl P1 => chie_ + "diamo" ; - Cong Pres Pl P2 => chie_ + "diate" ; - Cong Pres Pl P3 => chie_ + "dano" ; - Cong Imperf Sg P1 => chie_ + "dessi" ; --# notpresent - Cong Imperf Sg P2 => chie_ + "dessi" ; --# notpresent - Cong Imperf Sg P3 => chie_ + "desse" ; --# notpresent - Cong Imperf Pl P1 => chie_ + "dessimo" ; --# notpresent - Cong Imperf Pl P2 => chie_ + "deste" ; --# notpresent - Cong Imperf Pl P3 => chie_ + "dessero" ; --# notpresent - Cond Sg P1 => chie_ + "derei" ; --# notpresent - Cond Sg P2 => chie_ + "deresti" ; --# notpresent - Cond Sg P3 => chie_ + "derebbe" ; --# notpresent - Cond Pl P1 => chie_ + "deremmo" ; --# notpresent - Cond Pl P2 => chie_ + "dereste" ; --# notpresent - Cond Pl P3 => chie_ + "derebbero" ; --# notpresent - Imper SgP2 => chie_ + "di" ; - Imper PlP1 => chie_ + "diamo" ; - Imper PlP2 => chie_ + "dete" ; - Ger => chie_ + "dendo" ; - Part PresP Masc Sg => chie_ + "dente" ; - Part PresP Masc Pl => chie_ + "denti" ; - Part PresP Fem Sg => chie_ + "dente" ; - Part PresP Fem Pl => chie_ + "denti" ; - Part PassP Masc Sg => chie_ + "sto" ; - Part PassP Masc Pl => chie_ + "sti" ; - Part PassP Fem Sg => chie_ + "sta" ; - Part PassP Fem Pl => chie_ + "ste" - } - } ; - -oper chiudere_30 : Str -> Verbo = \chiudere -> - let chiu_ = Predef.tk 4 chiudere in - {s = table { - Inf => chiu_ + "dere" ; - InfClit => chiu_ + "der" ; - Indi Pres Sg P1 => chiu_ + "do" ; - Indi Pres Sg P2 => chiu_ + "di" ; - Indi Pres Sg P3 => chiu_ + "de" ; - Indi Pres Pl P1 => chiu_ + "diamo" ; - Indi Pres Pl P2 => chiu_ + "dete" ; - Indi Pres Pl P3 => chiu_ + "dono" ; - Indi Imperf Sg P1 => chiu_ + "devo" ; --# notpresent - Indi Imperf Sg P2 => chiu_ + "devi" ; --# notpresent - Indi Imperf Sg P3 => chiu_ + "deva" ; --# notpresent - Indi Imperf Pl P1 => chiu_ + "devamo" ; --# notpresent - Indi Imperf Pl P2 => chiu_ + "devate" ; --# notpresent - Indi Imperf Pl P3 => chiu_ + "devano" ; --# notpresent - Pass Sg P1 => chiu_ + "si" ; --# notpresent - Pass Sg P2 => chiu_ + "desti" ; --# notpresent - Pass Sg P3 => chiu_ + "se" ; --# notpresent - Pass Pl P1 => chiu_ + "demmo" ; --# notpresent - Pass Pl P2 => chiu_ + "deste" ; --# notpresent - Pass Pl P3 => chiu_ + "sero" ; --# notpresent - Fut Sg P1 => chiu_ + "derò" ; --# notpresent - Fut Sg P2 => chiu_ + "derai" ; --# notpresent - Fut Sg P3 => chiu_ + "derà" ; --# notpresent - Fut Pl P1 => chiu_ + "deremo" ; --# notpresent - Fut Pl P2 => chiu_ + "derete" ; --# notpresent - Fut Pl P3 => chiu_ + "deranno" ; --# notpresent - Cong Pres Sg P1 => chiu_ + "da" ; - Cong Pres Sg P2 => chiu_ + "da" ; - Cong Pres Sg P3 => chiu_ + "da" ; - Cong Pres Pl P1 => chiu_ + "diamo" ; - Cong Pres Pl P2 => chiu_ + "diate" ; - Cong Pres Pl P3 => chiu_ + "dano" ; - Cong Imperf Sg P1 => chiu_ + "dessi" ; --# notpresent - Cong Imperf Sg P2 => chiu_ + "dessi" ; --# notpresent - Cong Imperf Sg P3 => chiu_ + "desse" ; --# notpresent - Cong Imperf Pl P1 => chiu_ + "dessimo" ; --# notpresent - Cong Imperf Pl P2 => chiu_ + "deste" ; --# notpresent - Cong Imperf Pl P3 => chiu_ + "dessero" ; --# notpresent - Cond Sg P1 => chiu_ + "derei" ; --# notpresent - Cond Sg P2 => chiu_ + "deresti" ; --# notpresent - Cond Sg P3 => chiu_ + "derebbe" ; --# notpresent - Cond Pl P1 => chiu_ + "deremmo" ; --# notpresent - Cond Pl P2 => chiu_ + "dereste" ; --# notpresent - Cond Pl P3 => chiu_ + "derebbero" ; --# notpresent - Imper SgP2 => chiu_ + "di" ; - Imper PlP1 => chiu_ + "diamo" ; - Imper PlP2 => chiu_ + "dete" ; - Ger => chiu_ + "dendo" ; - Part PresP Masc Sg => chiu_ + "dente" ; - Part PresP Masc Pl => chiu_ + "denti" ; - Part PresP Fem Sg => chiu_ + "dente" ; - Part PresP Fem Pl => chiu_ + "denti" ; - Part PassP Masc Sg => chiu_ + "so" ; - Part PassP Masc Pl => chiu_ + "si" ; - Part PassP Fem Sg => chiu_ + "sa" ; - Part PassP Fem Pl => chiu_ + "se" - } - } ; - -oper cingere_31 : Str -> Verbo = \cingere -> - let cin_ = Predef.tk 4 cingere in - {s = table { - Inf => cin_ + "gere" ; - InfClit => cin_ + "ger" ; - Indi Pres Sg P1 => cin_ + "go" ; - Indi Pres Sg P2 => cin_ + "gi" ; - Indi Pres Sg P3 => cin_ + "ge" ; - Indi Pres Pl P1 => cin_ + "giamo" ; - Indi Pres Pl P2 => cin_ + "gete" ; - Indi Pres Pl P3 => cin_ + "gono" ; - Indi Imperf Sg P1 => cin_ + "gevo" ; --# notpresent - Indi Imperf Sg P2 => cin_ + "gevi" ; --# notpresent - Indi Imperf Sg P3 => cin_ + "geva" ; --# notpresent - Indi Imperf Pl P1 => cin_ + "gevamo" ; --# notpresent - Indi Imperf Pl P2 => cin_ + "gevate" ; --# notpresent - Indi Imperf Pl P3 => cin_ + "gevano" ; --# notpresent - Pass Sg P1 => cin_ + "si" ; --# notpresent - Pass Sg P2 => cin_ + "gesti" ; --# notpresent - Pass Sg P3 => cin_ + "se" ; --# notpresent - Pass Pl P1 => cin_ + "gemmo" ; --# notpresent - Pass Pl P2 => cin_ + "geste" ; --# notpresent - Pass Pl P3 => cin_ + "sero" ; --# notpresent - Fut Sg P1 => cin_ + "gerò" ; --# notpresent - Fut Sg P2 => cin_ + "gerai" ; --# notpresent - Fut Sg P3 => cin_ + "gerà" ; --# notpresent - Fut Pl P1 => cin_ + "geremo" ; --# notpresent - Fut Pl P2 => cin_ + "gerete" ; --# notpresent - Fut Pl P3 => cin_ + "geranno" ; --# notpresent - Cong Pres Sg P1 => cin_ + "ga" ; - Cong Pres Sg P2 => cin_ + "ga" ; - Cong Pres Sg P3 => cin_ + "ga" ; - Cong Pres Pl P1 => cin_ + "giamo" ; - Cong Pres Pl P2 => cin_ + "giate" ; - Cong Pres Pl P3 => cin_ + "gano" ; - Cong Imperf Sg P1 => cin_ + "gessi" ; --# notpresent - Cong Imperf Sg P2 => cin_ + "gessi" ; --# notpresent - Cong Imperf Sg P3 => cin_ + "gesse" ; --# notpresent - Cong Imperf Pl P1 => cin_ + "gessimo" ; --# notpresent - Cong Imperf Pl P2 => cin_ + "geste" ; --# notpresent - Cong Imperf Pl P3 => cin_ + "gessero" ; --# notpresent - Cond Sg P1 => cin_ + "gerei" ; --# notpresent - Cond Sg P2 => cin_ + "geresti" ; --# notpresent - Cond Sg P3 => cin_ + "gerebbe" ; --# notpresent - Cond Pl P1 => cin_ + "geremmo" ; --# notpresent - Cond Pl P2 => cin_ + "gereste" ; --# notpresent - Cond Pl P3 => cin_ + "gerebbero" ; --# notpresent - Imper SgP2 => cin_ + "gi" ; - Imper PlP1 => cin_ + "giamo" ; - Imper PlP2 => cin_ + "gete" ; - Ger => cin_ + "gendo" ; - Part PresP Masc Sg => cin_ + "gente" ; - Part PresP Masc Pl => cin_ + "genti" ; - Part PresP Fem Sg => cin_ + "gente" ; - Part PresP Fem Pl => cin_ + "genti" ; - Part PassP Masc Sg => cin_ + "to" ; - Part PassP Masc Pl => cin_ + "ti" ; - Part PassP Fem Sg => cin_ + "ta" ; - Part PassP Fem Pl => cin_ + "te" - } - } ; - -oper cogliere_32 : Str -> Verbo = \cogliere -> - let co_ = Predef.tk 6 cogliere in - {s = table { - Inf => co_ + "gliere" ; - InfClit => co_ + "glier" ; - Indi Pres Sg P1 => co_ + "lgo" ; - Indi Pres Sg P2 => co_ + "gli" ; - Indi Pres Sg P3 => co_ + "glie" ; - Indi Pres Pl P1 => co_ + "gliamo" ; - Indi Pres Pl P2 => co_ + "gliete" ; - Indi Pres Pl P3 => co_ + "lgono" ; - Indi Imperf Sg P1 => co_ + "glievo" ; --# notpresent - Indi Imperf Sg P2 => co_ + "glievi" ; --# notpresent - Indi Imperf Sg P3 => co_ + "glieva" ; --# notpresent - Indi Imperf Pl P1 => co_ + "glievamo" ; --# notpresent - Indi Imperf Pl P2 => co_ + "glievate" ; --# notpresent - Indi Imperf Pl P3 => co_ + "glievano" ; --# notpresent - Pass Sg P1 => co_ + "lsi" ; --# notpresent - Pass Sg P2 => co_ + "gliesti" ; --# notpresent - Pass Sg P3 => co_ + "lse" ; --# notpresent - Pass Pl P1 => co_ + "gliemmo" ; --# notpresent - Pass Pl P2 => co_ + "glieste" ; --# notpresent - Pass Pl P3 => co_ + "lsero" ; --# notpresent - Fut Sg P1 => co_ + "glierò" ; --# notpresent - Fut Sg P2 => co_ + "glierai" ; --# notpresent - Fut Sg P3 => co_ + "glierà" ; --# notpresent - Fut Pl P1 => co_ + "glieremo" ; --# notpresent - Fut Pl P2 => co_ + "glierete" ; --# notpresent - Fut Pl P3 => co_ + "glieranno" ; --# notpresent - Cong Pres Sg P1 => co_ + "lga" ; - Cong Pres Sg P2 => co_ + "lga" ; - Cong Pres Sg P3 => co_ + "lga" ; - Cong Pres Pl P1 => co_ + "gliamo" ; - Cong Pres Pl P2 => co_ + "gliate" ; - Cong Pres Pl P3 => co_ + "lgano" ; - Cong Imperf Sg P1 => co_ + "gliessi" ; --# notpresent - Cong Imperf Sg P2 => co_ + "gliessi" ; --# notpresent - Cong Imperf Sg P3 => co_ + "gliesse" ; --# notpresent - Cong Imperf Pl P1 => co_ + "gliessimo" ; --# notpresent - Cong Imperf Pl P2 => co_ + "glieste" ; --# notpresent - Cong Imperf Pl P3 => co_ + "gliessero" ; --# notpresent - Cond Sg P1 => co_ + "glierei" ; --# notpresent - Cond Sg P2 => co_ + "glieresti" ; --# notpresent - Cond Sg P3 => co_ + "glierebbe" ; --# notpresent - Cond Pl P1 => co_ + "glieremmo" ; --# notpresent - Cond Pl P2 => co_ + "gliereste" ; --# notpresent - Cond Pl P3 => co_ + "glierebbero" ; --# notpresent - Imper SgP2 => co_ + "gli" ; - Imper PlP1 => co_ + "gliamo" ; - Imper PlP2 => co_ + "gliete" ; - Ger => co_ + "gliendo" ; - Part PresP Masc Sg => co_ + "gliente" ; - Part PresP Masc Pl => co_ + "glienti" ; - Part PresP Fem Sg => co_ + "gliente" ; - Part PresP Fem Pl => co_ + "glienti" ; - Part PassP Masc Sg => co_ + "lto" ; - Part PassP Masc Pl => co_ + "lti" ; - Part PassP Fem Sg => co_ + "lta" ; - Part PassP Fem Pl => co_ + "lte" - } - } ; - -oper compiere_33 : Str -> Verbo = \compiere -> - let compi_ = Predef.tk 3 compiere in - {s = table { - Inf => compi_ + "ere" ; - InfClit => compi_ + "er" ; - Indi Pres Sg P1 => compi_ + "o" ; - Indi Pres Sg P2 => compi_ + "" ; - Indi Pres Sg P3 => compi_ + "e" ; - Indi Pres Pl P1 => compi_ + "amo" ; - Indi Pres Pl P2 => compi_ + "te" ; - Indi Pres Pl P3 => compi_ + "ono" ; - Indi Imperf Sg P1 => compi_ + "evo" ; --# notpresent - Indi Imperf Sg P2 => compi_ + "evi" ; --# notpresent - Indi Imperf Sg P3 => compi_ + "eva" ; --# notpresent - Indi Imperf Pl P1 => compi_ + "evamo" ; --# notpresent - Indi Imperf Pl P2 => compi_ + "evate" ; --# notpresent - Indi Imperf Pl P3 => compi_ + "evano" ; --# notpresent - Pass Sg P1 => compi_ + "ei" ; --# notpresent - Pass Sg P2 => compi_ + "esti" ; --# notpresent - Pass Sg P3 => compi_ + "é" ; --# notpresent - Pass Pl P1 => compi_ + "emmo" ; --# notpresent - Pass Pl P2 => compi_ + "este" ; --# notpresent - Pass Pl P3 => compi_ + "erono" ; --# notpresent - Fut Sg P1 => compi_ + "rò" ; --# notpresent - Fut Sg P2 => compi_ + "rai" ; --# notpresent - Fut Sg P3 => compi_ + "rà" ; --# notpresent - Fut Pl P1 => compi_ + "remo" ; --# notpresent - Fut Pl P2 => compi_ + "rete" ; --# notpresent - Fut Pl P3 => compi_ + "ranno" ; --# notpresent - Cong Pres Sg P1 => compi_ + "a" ; - Cong Pres Sg P2 => compi_ + "a" ; - Cong Pres Sg P3 => compi_ + "a" ; - Cong Pres Pl P1 => compi_ + "amo" ; - Cong Pres Pl P2 => compi_ + "ate" ; - Cong Pres Pl P3 => compi_ + "ano" ; - Cong Imperf Sg P1 => compi_ + "essi" ; --# notpresent - Cong Imperf Sg P2 => compi_ + "essi" ; --# notpresent - Cong Imperf Sg P3 => compi_ + "esse" ; --# notpresent - Cong Imperf Pl P1 => compi_ + "essimo" ; --# notpresent - Cong Imperf Pl P2 => compi_ + "este" ; --# notpresent - Cong Imperf Pl P3 => compi_ + "essero" ; --# notpresent - Cond Sg P1 => compi_ + "rei" ; --# notpresent - Cond Sg P2 => compi_ + "resti" ; --# notpresent - Cond Sg P3 => compi_ + "rebbe" ; --# notpresent - Cond Pl P1 => compi_ + "remmo" ; --# notpresent - Cond Pl P2 => compi_ + "reste" ; --# notpresent - Cond Pl P3 => compi_ + "rebbero" ; --# notpresent - Imper SgP2 => compi_ + "" ; - Imper PlP1 => compi_ + "amo" ; - Imper PlP2 => compi_ + "ete" ; - Ger => compi_ + "endo" ; - Part PresP Masc Sg => compi_ + "ente" ; - Part PresP Masc Pl => compi_ + "enti" ; - Part PresP Fem Sg => compi_ + "ente" ; - Part PresP Fem Pl => compi_ + "enti" ; - Part PassP Masc Sg => compi_ + "uto" ; - Part PassP Masc Pl => compi_ + "uti" ; - Part PassP Fem Sg => compi_ + "uta" ; - Part PassP Fem Pl => compi_ + "ute" - } - } ; - -oper compire_33b : Str -> Verbo = \cire -> - let c_ = Predef.tk 3 cire in - {s = table { - Inf => c_ + "ire" ; - InfClit => c_ + "ir" ; - Indi Pres Sg P1 => c_ + "isco" ; - Indi Pres Sg P2 => c_ + "isci" ; - Indi Pres Sg P3 => c_ + "isce" ; - Indi Pres Pl P1 => c_ + "iamo" ; - Indi Pres Pl P2 => c_ + "ite" ; - Indi Pres Pl P3 => c_ + "iscono" ; - Indi Imperf Sg P1 => c_ + "ivo" ; --# notpresent - Indi Imperf Sg P2 => c_ + "ivi" ; --# notpresent - Indi Imperf Sg P3 => c_ + "iva" ; --# notpresent - Indi Imperf Pl P1 => c_ + "ivamo" ; --# notpresent - Indi Imperf Pl P2 => c_ + "ivate" ; --# notpresent - Indi Imperf Pl P3 => c_ + "ivano" ; --# notpresent - Pass Sg P1 => c_ + "ii" ; --# notpresent - Pass Sg P2 => c_ + "isti" ; --# notpresent - Pass Sg P3 => c_ + "ì" ; --# notpresent - Pass Pl P1 => c_ + "immo" ; --# notpresent - Pass Pl P2 => c_ + "iste" ; --# notpresent - Pass Pl P3 => c_ + "irono" ; --# notpresent - Fut Sg P1 => c_ + "irò" ; --# notpresent - Fut Sg P2 => c_ + "irai" ; --# notpresent - Fut Sg P3 => c_ + "irà" ; --# notpresent - Fut Pl P1 => c_ + "iremo" ; --# notpresent - Fut Pl P2 => c_ + "irete" ; --# notpresent - Fut Pl P3 => c_ + "iranno" ; --# notpresent - Cong Pres Sg P1 => c_ + "isca" ; - Cong Pres Sg P2 => c_ + "isca" ; - Cong Pres Sg P3 => c_ + "isca" ; - Cong Pres Pl P1 => c_ + "iamo" ; - Cong Pres Pl P2 => c_ + "iate" ; - Cong Pres Pl P3 => c_ + "iscano" ; - Cong Imperf Sg P1 => c_ + "issi" ; --# notpresent - Cong Imperf Sg P2 => c_ + "issi" ; --# notpresent - Cong Imperf Sg P3 => c_ + "isse" ; --# notpresent - Cong Imperf Pl P1 => c_ + "issimo" ; --# notpresent - Cong Imperf Pl P2 => c_ + "iste" ; --# notpresent - Cong Imperf Pl P3 => c_ + "issero" ; --# notpresent - Cond Sg P1 => c_ + "irei" ; --# notpresent - Cond Sg P2 => c_ + "iresti" ; --# notpresent - Cond Sg P3 => c_ + "irebbe" ; --# notpresent - Cond Pl P1 => c_ + "iremmo" ; --# notpresent - Cond Pl P2 => c_ + "ireste" ; --# notpresent - Cond Pl P3 => c_ + "irebbero" ; --# notpresent - Imper SgP2 => c_ + "isci" ; - Imper PlP1 => c_ + "iamo" ; - Imper PlP2 => c_ + "ite" ; - Ger => c_ + "ompiendo" ; - Part PresP Masc Sg => c_ + "ompiente" ; - Part PresP Masc Pl => c_ + "ompienti" ; - Part PresP Fem Sg => c_ + "ompiente" ; - Part PresP Fem Pl => c_ + "ompienti" ; - Part PassP Masc Sg => c_ + "ito" ; - Part PassP Masc Pl => c_ + "iti" ; - Part PassP Fem Sg => c_ + "ita" ; - Part PassP Fem Pl => c_ + "ite" - } - } ; - -oper comprimere_34 : Str -> Verbo = \comprimere -> - let compr_ = Predef.tk 5 comprimere in - {s = table { - Inf => compr_ + "imere" ; - InfClit => compr_ + "imer" ; - Indi Pres Sg P1 => compr_ + "imo" ; - Indi Pres Sg P2 => compr_ + "imi" ; - Indi Pres Sg P3 => compr_ + "ime" ; - Indi Pres Pl P1 => compr_ + "imiamo" ; - Indi Pres Pl P2 => compr_ + "imete" ; - Indi Pres Pl P3 => compr_ + "imono" ; - Indi Imperf Sg P1 => compr_ + "imevo" ; --# notpresent - Indi Imperf Sg P2 => compr_ + "imevi" ; --# notpresent - Indi Imperf Sg P3 => compr_ + "imeva" ; --# notpresent - Indi Imperf Pl P1 => compr_ + "imevamo" ; --# notpresent - Indi Imperf Pl P2 => compr_ + "imevate" ; --# notpresent - Indi Imperf Pl P3 => compr_ + "imevano" ; --# notpresent - Pass Sg P1 => compr_ + "essi" ; --# notpresent - Pass Sg P2 => compr_ + "imesti" ; --# notpresent - Pass Sg P3 => compr_ + "esse" ; --# notpresent - Pass Pl P1 => compr_ + "imemmo" ; --# notpresent - Pass Pl P2 => compr_ + "imeste" ; --# notpresent - Pass Pl P3 => compr_ + "essero" ; --# notpresent - Fut Sg P1 => compr_ + "imerò" ; --# notpresent - Fut Sg P2 => compr_ + "imerai" ; --# notpresent - Fut Sg P3 => compr_ + "imerà" ; --# notpresent - Fut Pl P1 => compr_ + "imeremo" ; --# notpresent - Fut Pl P2 => compr_ + "imerete" ; --# notpresent - Fut Pl P3 => compr_ + "imeranno" ; --# notpresent - Cong Pres Sg P1 => compr_ + "ima" ; - Cong Pres Sg P2 => compr_ + "ima" ; - Cong Pres Sg P3 => compr_ + "ima" ; - Cong Pres Pl P1 => compr_ + "imiamo" ; - Cong Pres Pl P2 => compr_ + "imiate" ; - Cong Pres Pl P3 => compr_ + "imano" ; - Cong Imperf Sg P1 => compr_ + "imessi" ; --# notpresent - Cong Imperf Sg P2 => compr_ + "imessi" ; --# notpresent - Cong Imperf Sg P3 => compr_ + "imesse" ; --# notpresent - Cong Imperf Pl P1 => compr_ + "imessimo" ; --# notpresent - Cong Imperf Pl P2 => compr_ + "imeste" ; --# notpresent - Cong Imperf Pl P3 => compr_ + "imessero" ; --# notpresent - Cond Sg P1 => compr_ + "imerei" ; --# notpresent - Cond Sg P2 => compr_ + "imeresti" ; --# notpresent - Cond Sg P3 => compr_ + "imerebbe" ; --# notpresent - Cond Pl P1 => compr_ + "imeremmo" ; --# notpresent - Cond Pl P2 => compr_ + "imereste" ; --# notpresent - Cond Pl P3 => compr_ + "imerebbero" ; --# notpresent - Imper SgP2 => compr_ + "imi" ; - Imper PlP1 => compr_ + "imiamo" ; - Imper PlP2 => compr_ + "imete" ; - Ger => compr_ + "imendo" ; - Part PresP Masc Sg => compr_ + "imente" ; - Part PresP Masc Pl => compr_ + "imenti" ; - Part PresP Fem Sg => compr_ + "imente" ; - Part PresP Fem Pl => compr_ + "imenti" ; - Part PassP Masc Sg => compr_ + "esso" ; - Part PassP Masc Pl => compr_ + "essi" ; - Part PassP Fem Sg => compr_ + "essa" ; - Part PassP Fem Pl => compr_ + "esse" - } - } ; - -oper concedere_35 : Str -> Verbo = \concedere -> - let conce_ = Predef.tk 4 concedere in - {s = table { - Inf => conce_ + "dere" ; - InfClit => conce_ + "der" ; - Indi Pres Sg P1 => conce_ + "do" ; - Indi Pres Sg P2 => conce_ + "di" ; - Indi Pres Sg P3 => conce_ + "de" ; - Indi Pres Pl P1 => conce_ + "diamo" ; - Indi Pres Pl P2 => conce_ + "dete" ; - Indi Pres Pl P3 => conce_ + "dono" ; - Indi Imperf Sg P1 => conce_ + "devo" ; --# notpresent - Indi Imperf Sg P2 => conce_ + "devi" ; --# notpresent - Indi Imperf Sg P3 => conce_ + "deva" ; --# notpresent - Indi Imperf Pl P1 => conce_ + "devamo" ; --# notpresent - Indi Imperf Pl P2 => conce_ + "devate" ; --# notpresent - Indi Imperf Pl P3 => conce_ + "devano" ; --# notpresent - Pass Sg P1 => conce_ + "ssi" ; --# notpresent - Pass Sg P2 => conce_ + "desti" ; --# notpresent - Pass Sg P3 => conce_ + "sse" ; --# notpresent - Pass Pl P1 => conce_ + "demmo" ; --# notpresent - Pass Pl P2 => conce_ + "deste" ; --# notpresent - Pass Pl P3 => conce_ + "ssero" ; --# notpresent - Fut Sg P1 => conce_ + "derò" ; --# notpresent - Fut Sg P2 => conce_ + "derai" ; --# notpresent - Fut Sg P3 => conce_ + "derà" ; --# notpresent - Fut Pl P1 => conce_ + "deremo" ; --# notpresent - Fut Pl P2 => conce_ + "derete" ; --# notpresent - Fut Pl P3 => conce_ + "deranno" ; --# notpresent - Cong Pres Sg P1 => conce_ + "da" ; - Cong Pres Sg P2 => conce_ + "da" ; - Cong Pres Sg P3 => conce_ + "da" ; - Cong Pres Pl P1 => conce_ + "diamo" ; - Cong Pres Pl P2 => conce_ + "diate" ; - Cong Pres Pl P3 => conce_ + "dano" ; - Cong Imperf Sg P1 => conce_ + "dessi" ; --# notpresent - Cong Imperf Sg P2 => conce_ + "dessi" ; --# notpresent - Cong Imperf Sg P3 => conce_ + "desse" ; --# notpresent - Cong Imperf Pl P1 => conce_ + "dessimo" ; --# notpresent - Cong Imperf Pl P2 => conce_ + "deste" ; --# notpresent - Cong Imperf Pl P3 => conce_ + "dessero" ; --# notpresent - Cond Sg P1 => conce_ + "derei" ; --# notpresent - Cond Sg P2 => conce_ + "deresti" ; --# notpresent - Cond Sg P3 => conce_ + "derebbe" ; --# notpresent - Cond Pl P1 => conce_ + "deremmo" ; --# notpresent - Cond Pl P2 => conce_ + "dereste" ; --# notpresent - Cond Pl P3 => conce_ + "derebbero" ; --# notpresent - Imper SgP2 => conce_ + "di" ; - Imper PlP1 => conce_ + "diamo" ; - Imper PlP2 => conce_ + "dete" ; - Ger => conce_ + "dendo" ; - Part PresP Masc Sg => conce_ + "dente" ; - Part PresP Masc Pl => conce_ + "denti" ; - Part PresP Fem Sg => conce_ + "dente" ; - Part PresP Fem Pl => conce_ + "denti" ; - Part PassP Masc Sg => conce_ + "sso" ; - Part PassP Masc Pl => conce_ + "ssi" ; - Part PassP Fem Sg => conce_ + "ssa" ; - Part PassP Fem Pl => conce_ + "sse" - } - } ; - -oper condurre_36 : Str -> Verbo = \condurre -> - let cond_ = Predef.tk 4 condurre in - {s = table { - Inf => cond_ + "urre" ; - InfClit => cond_ + "ur" ; - Indi Pres Sg P1 => cond_ + "uco" ; - Indi Pres Sg P2 => cond_ + "uci" ; - Indi Pres Sg P3 => cond_ + "uce" ; - Indi Pres Pl P1 => cond_ + "uciamo" ; - Indi Pres Pl P2 => cond_ + "ucete" ; - Indi Pres Pl P3 => cond_ + "ucono" ; - Indi Imperf Sg P1 => cond_ + "ucevo" ; --# notpresent - Indi Imperf Sg P2 => cond_ + "ucevi" ; --# notpresent - Indi Imperf Sg P3 => cond_ + "uceva" ; --# notpresent - Indi Imperf Pl P1 => cond_ + "ucevamo" ; --# notpresent - Indi Imperf Pl P2 => cond_ + "ucevate" ; --# notpresent - Indi Imperf Pl P3 => cond_ + "ucevano" ; --# notpresent - Pass Sg P1 => cond_ + "ussi" ; --# notpresent - Pass Sg P2 => cond_ + "ucesti" ; --# notpresent - Pass Sg P3 => cond_ + "usse" ; --# notpresent - Pass Pl P1 => cond_ + "ucemmo" ; --# notpresent - Pass Pl P2 => cond_ + "uceste" ; --# notpresent - Pass Pl P3 => cond_ + "ussero" ; --# notpresent - Fut Sg P1 => cond_ + "urrò" ; --# notpresent - Fut Sg P2 => cond_ + "urrai" ; --# notpresent - Fut Sg P3 => cond_ + "urrà" ; --# notpresent - Fut Pl P1 => cond_ + "urremo" ; --# notpresent - Fut Pl P2 => cond_ + "urrete" ; --# notpresent - Fut Pl P3 => cond_ + "urranno" ; --# notpresent - Cong Pres Sg P1 => cond_ + "uca" ; - Cong Pres Sg P2 => cond_ + "uca" ; - Cong Pres Sg P3 => cond_ + "uca" ; - Cong Pres Pl P1 => cond_ + "uciamo" ; - Cong Pres Pl P2 => cond_ + "uciate" ; - Cong Pres Pl P3 => cond_ + "ucano" ; - Cong Imperf Sg P1 => cond_ + "ucessi" ; --# notpresent - Cong Imperf Sg P2 => cond_ + "ucessi" ; --# notpresent - Cong Imperf Sg P3 => cond_ + "ucesse" ; --# notpresent - Cong Imperf Pl P1 => cond_ + "ucessimo" ; --# notpresent - Cong Imperf Pl P2 => cond_ + "uceste" ; --# notpresent - Cong Imperf Pl P3 => cond_ + "ucessero" ; --# notpresent - Cond Sg P1 => cond_ + "urrei" ; --# notpresent - Cond Sg P2 => cond_ + "urresti" ; --# notpresent - Cond Sg P3 => cond_ + "urrebbe" ; --# notpresent - Cond Pl P1 => cond_ + "urremmo" ; --# notpresent - Cond Pl P2 => cond_ + "urreste" ; --# notpresent - Cond Pl P3 => cond_ + "urrebbero" ; --# notpresent - Imper SgP2 => cond_ + "uci" ; - Imper PlP1 => cond_ + "uciamo" ; - Imper PlP2 => cond_ + "ucete" ; - Ger => cond_ + "ucendo" ; - Part PresP Masc Sg => cond_ + "ucente" ; - Part PresP Masc Pl => cond_ + "ucenti" ; - Part PresP Fem Sg => cond_ + "ucente" ; - Part PresP Fem Pl => cond_ + "ucenti" ; - Part PassP Masc Sg => cond_ + "otto" ; - Part PassP Masc Pl => cond_ + "otti" ; - Part PassP Fem Sg => cond_ + "otta" ; - Part PassP Fem Pl => cond_ + "otte" - } - } ; - -oper conoscere_37 : Str -> Verbo = \conoscere -> - let cono_ = Predef.tk 5 conoscere in - {s = table { - Inf => cono_ + "scere" ; - InfClit => cono_ + "scer" ; - Indi Pres Sg P1 => cono_ + "sco" ; - Indi Pres Sg P2 => cono_ + "sci" ; - Indi Pres Sg P3 => cono_ + "sce" ; - Indi Pres Pl P1 => cono_ + "sciamo" ; - Indi Pres Pl P2 => cono_ + "scete" ; - Indi Pres Pl P3 => cono_ + "scono" ; - Indi Imperf Sg P1 => cono_ + "scevo" ; --# notpresent - Indi Imperf Sg P2 => cono_ + "scevi" ; --# notpresent - Indi Imperf Sg P3 => cono_ + "sceva" ; --# notpresent - Indi Imperf Pl P1 => cono_ + "scevamo" ; --# notpresent - Indi Imperf Pl P2 => cono_ + "scevate" ; --# notpresent - Indi Imperf Pl P3 => cono_ + "scevano" ; --# notpresent - Pass Sg P1 => cono_ + "bbi" ; --# notpresent - Pass Sg P2 => cono_ + "scesti" ; --# notpresent - Pass Sg P3 => cono_ + "bbe" ; --# notpresent - Pass Pl P1 => cono_ + "scemmo" ; --# notpresent - Pass Pl P2 => cono_ + "sceste" ; --# notpresent - Pass Pl P3 => cono_ + "bbero" ; --# notpresent - Fut Sg P1 => cono_ + "scerò" ; --# notpresent - Fut Sg P2 => cono_ + "scerai" ; --# notpresent - Fut Sg P3 => cono_ + "scerà" ; --# notpresent - Fut Pl P1 => cono_ + "sceremo" ; --# notpresent - Fut Pl P2 => cono_ + "scerete" ; --# notpresent - Fut Pl P3 => cono_ + "sceranno" ; --# notpresent - Cong Pres Sg P1 => cono_ + "sca" ; - Cong Pres Sg P2 => cono_ + "sca" ; - Cong Pres Sg P3 => cono_ + "sca" ; - Cong Pres Pl P1 => cono_ + "sciamo" ; - Cong Pres Pl P2 => cono_ + "sciate" ; - Cong Pres Pl P3 => cono_ + "scano" ; - Cong Imperf Sg P1 => cono_ + "scessi" ; --# notpresent - Cong Imperf Sg P2 => cono_ + "scessi" ; --# notpresent - Cong Imperf Sg P3 => cono_ + "scesse" ; --# notpresent - Cong Imperf Pl P1 => cono_ + "scessimo" ; --# notpresent - Cong Imperf Pl P2 => cono_ + "sceste" ; --# notpresent - Cong Imperf Pl P3 => cono_ + "scessero" ; --# notpresent - Cond Sg P1 => cono_ + "scerei" ; --# notpresent - Cond Sg P2 => cono_ + "sceresti" ; --# notpresent - Cond Sg P3 => cono_ + "scerebbe" ; --# notpresent - Cond Pl P1 => cono_ + "sceremmo" ; --# notpresent - Cond Pl P2 => cono_ + "scereste" ; --# notpresent - Cond Pl P3 => cono_ + "scerebbero" ; --# notpresent - Imper SgP2 => cono_ + "sci" ; - Imper PlP1 => cono_ + "sciamo" ; - Imper PlP2 => cono_ + "scete" ; - Ger => cono_ + "scendo" ; - Part PresP Masc Sg => cono_ + "scente" ; - Part PresP Masc Pl => cono_ + "scenti" ; - Part PresP Fem Sg => cono_ + "scente" ; - Part PresP Fem Pl => cono_ + "scenti" ; - Part PassP Masc Sg => cono_ + "sciuto" ; - Part PassP Masc Pl => cono_ + "sciuti" ; - Part PassP Fem Sg => cono_ + "sciuta" ; - Part PassP Fem Pl => cono_ + "sciute" - } - } ; - -oper correre_38 : Str -> Verbo = \correre -> - let cor_ = Predef.tk 4 correre in - {s = table { - Inf => cor_ + "rere" ; - InfClit => cor_ + "rer" ; - Indi Pres Sg P1 => cor_ + "ro" ; - Indi Pres Sg P2 => cor_ + "ri" ; - Indi Pres Sg P3 => cor_ + "re" ; - Indi Pres Pl P1 => cor_ + "riamo" ; - Indi Pres Pl P2 => cor_ + "rete" ; - Indi Pres Pl P3 => cor_ + "rono" ; - Indi Imperf Sg P1 => cor_ + "revo" ; --# notpresent - Indi Imperf Sg P2 => cor_ + "revi" ; --# notpresent - Indi Imperf Sg P3 => cor_ + "reva" ; --# notpresent - Indi Imperf Pl P1 => cor_ + "revamo" ; --# notpresent - Indi Imperf Pl P2 => cor_ + "revate" ; --# notpresent - Indi Imperf Pl P3 => cor_ + "revano" ; --# notpresent - Pass Sg P1 => cor_ + "si" ; --# notpresent - Pass Sg P2 => cor_ + "resti" ; --# notpresent - Pass Sg P3 => cor_ + "se" ; --# notpresent - Pass Pl P1 => cor_ + "remmo" ; --# notpresent - Pass Pl P2 => cor_ + "reste" ; --# notpresent - Pass Pl P3 => cor_ + "sero" ; --# notpresent - Fut Sg P1 => cor_ + "rerò" ; --# notpresent - Fut Sg P2 => cor_ + "rerai" ; --# notpresent - Fut Sg P3 => cor_ + "rerà" ; --# notpresent - Fut Pl P1 => cor_ + "reremo" ; --# notpresent - Fut Pl P2 => cor_ + "rerete" ; --# notpresent - Fut Pl P3 => cor_ + "reranno" ; --# notpresent - Cong Pres Sg P1 => cor_ + "ra" ; - Cong Pres Sg P2 => cor_ + "ra" ; - Cong Pres Sg P3 => cor_ + "ra" ; - Cong Pres Pl P1 => cor_ + "riamo" ; - Cong Pres Pl P2 => cor_ + "riate" ; - Cong Pres Pl P3 => cor_ + "rano" ; - Cong Imperf Sg P1 => cor_ + "ressi" ; --# notpresent - Cong Imperf Sg P2 => cor_ + "ressi" ; --# notpresent - Cong Imperf Sg P3 => cor_ + "resse" ; --# notpresent - Cong Imperf Pl P1 => cor_ + "ressimo" ; --# notpresent - Cong Imperf Pl P2 => cor_ + "reste" ; --# notpresent - Cong Imperf Pl P3 => cor_ + "ressero" ; --# notpresent - Cond Sg P1 => cor_ + "rerei" ; --# notpresent - Cond Sg P2 => cor_ + "reresti" ; --# notpresent - Cond Sg P3 => cor_ + "rerebbe" ; --# notpresent - Cond Pl P1 => cor_ + "reremmo" ; --# notpresent - Cond Pl P2 => cor_ + "rereste" ; --# notpresent - Cond Pl P3 => cor_ + "rerebbero" ; --# notpresent - Imper SgP2 => cor_ + "ri" ; - Imper PlP1 => cor_ + "riamo" ; - Imper PlP2 => cor_ + "rete" ; - Ger => cor_ + "rendo" ; - Part PresP Masc Sg => cor_ + "rente" ; - Part PresP Masc Pl => cor_ + "renti" ; - Part PresP Fem Sg => cor_ + "rente" ; - Part PresP Fem Pl => cor_ + "renti" ; - Part PassP Masc Sg => cor_ + "so" ; - Part PassP Masc Pl => cor_ + "si" ; - Part PassP Fem Sg => cor_ + "sa" ; - Part PassP Fem Pl => cor_ + "se" - } - } ; - -oper crescere_39 : Str -> Verbo = \crescere -> - let cre_ = Predef.tk 5 crescere in - {s = table { - Inf => cre_ + "scere" ; - InfClit => cre_ + "scer" ; - Indi Pres Sg P1 => cre_ + "sco" ; - Indi Pres Sg P2 => cre_ + "sci" ; - Indi Pres Sg P3 => cre_ + "sce" ; - Indi Pres Pl P1 => cre_ + "sciamo" ; - Indi Pres Pl P2 => cre_ + "scete" ; - Indi Pres Pl P3 => cre_ + "scono" ; - Indi Imperf Sg P1 => cre_ + "scevo" ; --# notpresent - Indi Imperf Sg P2 => cre_ + "scevi" ; --# notpresent - Indi Imperf Sg P3 => cre_ + "sceva" ; --# notpresent - Indi Imperf Pl P1 => cre_ + "scevamo" ; --# notpresent - Indi Imperf Pl P2 => cre_ + "scevate" ; --# notpresent - Indi Imperf Pl P3 => cre_ + "scevano" ; --# notpresent - Pass Sg P1 => cre_ + "bbi" ; --# notpresent - Pass Sg P2 => cre_ + "scesti" ; --# notpresent - Pass Sg P3 => cre_ + "bbe" ; --# notpresent - Pass Pl P1 => cre_ + "scemmo" ; --# notpresent - Pass Pl P2 => cre_ + "sceste" ; --# notpresent - Pass Pl P3 => cre_ + "bbero" ; --# notpresent - Fut Sg P1 => cre_ + "scerò" ; --# notpresent - Fut Sg P2 => cre_ + "scerai" ; --# notpresent - Fut Sg P3 => cre_ + "scerà" ; --# notpresent - Fut Pl P1 => cre_ + "sceremo" ; --# notpresent - Fut Pl P2 => cre_ + "scerete" ; --# notpresent - Fut Pl P3 => cre_ + "sceranno" ; --# notpresent - Cong Pres Sg P1 => cre_ + "sca" ; - Cong Pres Sg P2 => cre_ + "sca" ; - Cong Pres Sg P3 => cre_ + "sca" ; - Cong Pres Pl P1 => cre_ + "sciamo" ; - Cong Pres Pl P2 => cre_ + "sciate" ; - Cong Pres Pl P3 => cre_ + "scano" ; - Cong Imperf Sg P1 => cre_ + "scessi" ; --# notpresent - Cong Imperf Sg P2 => cre_ + "scessi" ; --# notpresent - Cong Imperf Sg P3 => cre_ + "scesse" ; --# notpresent - Cong Imperf Pl P1 => cre_ + "scessimo" ; --# notpresent - Cong Imperf Pl P2 => cre_ + "sceste" ; --# notpresent - Cong Imperf Pl P3 => cre_ + "scessero" ; --# notpresent - Cond Sg P1 => cre_ + "scerei" ; --# notpresent - Cond Sg P2 => cre_ + "sceresti" ; --# notpresent - Cond Sg P3 => cre_ + "scerebbe" ; --# notpresent - Cond Pl P1 => cre_ + "sceremmo" ; --# notpresent - Cond Pl P2 => cre_ + "scereste" ; --# notpresent - Cond Pl P3 => cre_ + "scerebbero" ; --# notpresent - Imper SgP2 => cre_ + "sci" ; - Imper PlP1 => cre_ + "sciamo" ; - Imper PlP2 => cre_ + "scete" ; - Ger => cre_ + "scendo" ; - Part PresP Masc Sg => cre_ + "scente" ; - Part PresP Masc Pl => cre_ + "scenti" ; - Part PresP Fem Sg => cre_ + "scente" ; - Part PresP Fem Pl => cre_ + "scenti" ; - Part PassP Masc Sg => cre_ + "sciuto" ; - Part PassP Masc Pl => cre_ + "sciuti" ; - Part PassP Fem Sg => cre_ + "sciuta" ; - Part PassP Fem Pl => cre_ + "sciute" - } - } ; - -oper cuocere_40 : Str -> Verbo = \cuocere -> - let c_ = Predef.tk 6 cuocere in - {s = table { - Inf => c_ + "uocere" ; - InfClit => c_ + "uocer" ; - Indi Pres Sg P1 => c_ + "uocio" ; - Indi Pres Sg P2 => c_ + "uoci" ; - Indi Pres Sg P3 => c_ + "uoce" ; - Indi Pres Pl P1 => c_ + "uociamo" ; - Indi Pres Pl P2 => c_ + "uocete" ; - Indi Pres Pl P3 => c_ + "uociono" ; - Indi Imperf Sg P1 => c_ + "uocevo" ; --# notpresent - Indi Imperf Sg P2 => c_ + "uocevi" ; --# notpresent - Indi Imperf Sg P3 => c_ + "uoceva" ; --# notpresent - Indi Imperf Pl P1 => c_ + "uocevamo" ; --# notpresent - Indi Imperf Pl P2 => c_ + "uocevate" ; --# notpresent - Indi Imperf Pl P3 => c_ + "uocevano" ; --# notpresent - Pass Sg P1 => c_ + "ossi" ; --# notpresent - Pass Sg P2 => c_ + "uocesti" ; --# notpresent - Pass Sg P3 => c_ + "osse" ; --# notpresent - Pass Pl P1 => c_ + "uocemmo" ; --# notpresent - Pass Pl P2 => c_ + "uoceste" ; --# notpresent - Pass Pl P3 => c_ + "ossero" ; --# notpresent - Fut Sg P1 => c_ + "uocerò" ; --# notpresent - Fut Sg P2 => c_ + "uocerai" ; --# notpresent - Fut Sg P3 => c_ + "uocerà" ; --# notpresent - Fut Pl P1 => c_ + "uoceremo" ; --# notpresent - Fut Pl P2 => c_ + "uocerete" ; --# notpresent - Fut Pl P3 => c_ + "uoceranno" ; --# notpresent - Cong Pres Sg P1 => c_ + "uocia" ; - Cong Pres Sg P2 => c_ + "uocia" ; - Cong Pres Sg P3 => c_ + "uocia" ; - Cong Pres Pl P1 => c_ + "uociamo" ; - Cong Pres Pl P2 => c_ + "uociate" ; - Cong Pres Pl P3 => c_ + "uociano" ; - Cong Imperf Sg P1 => c_ + "uocessi" ; --# notpresent - Cong Imperf Sg P2 => c_ + "uocessi" ; --# notpresent - Cong Imperf Sg P3 => c_ + "uocesse" ; --# notpresent - Cong Imperf Pl P1 => c_ + "uocessimo" ; --# notpresent - Cong Imperf Pl P2 => c_ + "uoceste" ; --# notpresent - Cong Imperf Pl P3 => c_ + "uocessero" ; --# notpresent - Cond Sg P1 => c_ + "uocerei" ; --# notpresent - Cond Sg P2 => c_ + "uoceresti" ; --# notpresent - Cond Sg P3 => c_ + "uocerebbe" ; --# notpresent - Cond Pl P1 => c_ + "uoceremmo" ; --# notpresent - Cond Pl P2 => c_ + "uocereste" ; --# notpresent - Cond Pl P3 => c_ + "uocerebbero" ; --# notpresent - Imper SgP2 => c_ + "uoci" ; - Imper PlP1 => c_ + "uociamo" ; - Imper PlP2 => c_ + "uocete" ; - Ger => c_ + "uocendo" ; - Part PresP Masc Sg => c_ + "uocente" ; - Part PresP Masc Pl => c_ + "uocenti" ; - Part PresP Fem Sg => c_ + "uocente" ; - Part PresP Fem Pl => c_ + "uocenti" ; - Part PassP Masc Sg => c_ + "otto" ; - Part PassP Masc Pl => c_ + "otti" ; - Part PassP Fem Sg => c_ + "otta" ; - Part PassP Fem Pl => c_ + "otte" - } - } ; - -oper dire_41 : Str -> Verbo = \dire -> - let d_ = Predef.tk 3 dire in - {s = table { - Inf => d_ + "ire" ; - InfClit => d_ + "ir" ; - Indi Pres Sg P1 => d_ + "ico" ; - Indi Pres Sg P2 => d_ + "ici" ; - Indi Pres Sg P3 => d_ + "ice" ; - Indi Pres Pl P1 => d_ + "iciamo" ; - Indi Pres Pl P2 => d_ + "ite" ; - Indi Pres Pl P3 => d_ + "icono" ; - Indi Imperf Sg P1 => d_ + "icevo" ; --# notpresent - Indi Imperf Sg P2 => d_ + "icevi" ; --# notpresent - Indi Imperf Sg P3 => d_ + "iceva" ; --# notpresent - Indi Imperf Pl P1 => d_ + "icevamo" ; --# notpresent - Indi Imperf Pl P2 => d_ + "icevate" ; --# notpresent - Indi Imperf Pl P3 => d_ + "icevano" ; --# notpresent - Pass Sg P1 => d_ + "issi" ; --# notpresent - Pass Sg P2 => d_ + "icesti" ; --# notpresent - Pass Sg P3 => d_ + "isse" ; --# notpresent - Pass Pl P1 => d_ + "icemmo" ; --# notpresent - Pass Pl P2 => d_ + "iceste" ; --# notpresent - Pass Pl P3 => d_ + "issero" ; --# notpresent - Fut Sg P1 => d_ + "irò" ; --# notpresent - Fut Sg P2 => d_ + "irai" ; --# notpresent - Fut Sg P3 => d_ + "irà" ; --# notpresent - Fut Pl P1 => d_ + "iremo" ; --# notpresent - Fut Pl P2 => d_ + "irete" ; --# notpresent - Fut Pl P3 => d_ + "iranno" ; --# notpresent - Cong Pres Sg P1 => d_ + "ica" ; - Cong Pres Sg P2 => d_ + "ica" ; - Cong Pres Sg P3 => d_ + "ica" ; - Cong Pres Pl P1 => d_ + "iciamo" ; - Cong Pres Pl P2 => d_ + "iciate" ; - Cong Pres Pl P3 => d_ + "icano" ; - Cong Imperf Sg P1 => d_ + "icessi" ; --# notpresent - Cong Imperf Sg P2 => d_ + "icessi" ; --# notpresent - Cong Imperf Sg P3 => d_ + "icesse" ; --# notpresent - Cong Imperf Pl P1 => d_ + "icessimo" ; --# notpresent - Cong Imperf Pl P2 => d_ + "iceste" ; --# notpresent - Cong Imperf Pl P3 => d_ + "icessero" ; --# notpresent - Cond Sg P1 => d_ + "irei" ; --# notpresent - Cond Sg P2 => d_ + "iresti" ; --# notpresent - Cond Sg P3 => d_ + "irebbe" ; --# notpresent - Cond Pl P1 => d_ + "iremmo" ; --# notpresent - Cond Pl P2 => d_ + "ireste" ; --# notpresent - Cond Pl P3 => d_ + "irebbero" ; --# notpresent - Imper SgP2 => variants {d_ + "i`" ; d_ + "i"} ; - Imper PlP1 => d_ + "iciamo" ; - Imper PlP2 => d_ + "ite" ; - Ger => d_ + "icendo" ; - Part PresP Masc Sg => d_ + "icente" ; - Part PresP Masc Pl => d_ + "icenti" ; - Part PresP Fem Sg => d_ + "icente" ; - Part PresP Fem Pl => d_ + "icenti" ; - Part PassP Masc Sg => d_ + "etto" ; - Part PassP Masc Pl => d_ + "etti" ; - Part PassP Fem Sg => d_ + "etta" ; - Part PassP Fem Pl => d_ + "ette" - } - } ; - -oper dirigere_42 : Str -> Verbo = \dirigere -> - let dir_ = Predef.tk 5 dirigere in - {s = table { - Inf => dir_ + "igere" ; - InfClit => dir_ + "iger" ; - Indi Pres Sg P1 => dir_ + "igo" ; - Indi Pres Sg P2 => dir_ + "igi" ; - Indi Pres Sg P3 => dir_ + "ige" ; - Indi Pres Pl P1 => dir_ + "igiamo" ; - Indi Pres Pl P2 => dir_ + "igete" ; - Indi Pres Pl P3 => dir_ + "igono" ; - Indi Imperf Sg P1 => dir_ + "igevo" ; --# notpresent - Indi Imperf Sg P2 => dir_ + "igevi" ; --# notpresent - Indi Imperf Sg P3 => dir_ + "igeva" ; --# notpresent - Indi Imperf Pl P1 => dir_ + "igevamo" ; --# notpresent - Indi Imperf Pl P2 => dir_ + "igevate" ; --# notpresent - Indi Imperf Pl P3 => dir_ + "igevano" ; --# notpresent - Pass Sg P1 => dir_ + "essi" ; --# notpresent - Pass Sg P2 => dir_ + "igesti" ; --# notpresent - Pass Sg P3 => dir_ + "esse" ; --# notpresent - Pass Pl P1 => dir_ + "igemmo" ; --# notpresent - Pass Pl P2 => dir_ + "igeste" ; --# notpresent - Pass Pl P3 => dir_ + "essero" ; --# notpresent - Fut Sg P1 => dir_ + "igerò" ; --# notpresent - Fut Sg P2 => dir_ + "igerai" ; --# notpresent - Fut Sg P3 => dir_ + "igerà" ; --# notpresent - Fut Pl P1 => dir_ + "igeremo" ; --# notpresent - Fut Pl P2 => dir_ + "igerete" ; --# notpresent - Fut Pl P3 => dir_ + "igeranno" ; --# notpresent - Cong Pres Sg P1 => dir_ + "iga" ; - Cong Pres Sg P2 => dir_ + "iga" ; - Cong Pres Sg P3 => dir_ + "iga" ; - Cong Pres Pl P1 => dir_ + "igiamo" ; - Cong Pres Pl P2 => dir_ + "igiate" ; - Cong Pres Pl P3 => dir_ + "igano" ; - Cong Imperf Sg P1 => dir_ + "igessi" ; --# notpresent - Cong Imperf Sg P2 => dir_ + "igessi" ; --# notpresent - Cong Imperf Sg P3 => dir_ + "igesse" ; --# notpresent - Cong Imperf Pl P1 => dir_ + "igessimo" ; --# notpresent - Cong Imperf Pl P2 => dir_ + "igeste" ; --# notpresent - Cong Imperf Pl P3 => dir_ + "igessero" ; --# notpresent - Cond Sg P1 => dir_ + "igerei" ; --# notpresent - Cond Sg P2 => dir_ + "igeresti" ; --# notpresent - Cond Sg P3 => dir_ + "igerebbe" ; --# notpresent - Cond Pl P1 => dir_ + "igeremmo" ; --# notpresent - Cond Pl P2 => dir_ + "igereste" ; --# notpresent - Cond Pl P3 => dir_ + "igerebbero" ; --# notpresent - Imper SgP2 => dir_ + "igi" ; - Imper PlP1 => dir_ + "igiamo" ; - Imper PlP2 => dir_ + "igete" ; - Ger => dir_ + "igendo" ; - Part PresP Masc Sg => dir_ + "igente" ; - Part PresP Masc Pl => dir_ + "igenti" ; - Part PresP Fem Sg => dir_ + "igente" ; - Part PresP Fem Pl => dir_ + "igenti" ; - Part PassP Masc Sg => dir_ + "etto" ; - Part PassP Masc Pl => dir_ + "etti" ; - Part PassP Fem Sg => dir_ + "etta" ; - Part PassP Fem Pl => dir_ + "ette" - } - } ; - -oper discutere_43 : Str -> Verbo = \discutere -> - let discu_ = Predef.tk 4 discutere in - {s = table { - Inf => discu_ + "tere" ; - InfClit => discu_ + "ter" ; - Indi Pres Sg P1 => discu_ + "to" ; - Indi Pres Sg P2 => discu_ + "ti" ; - Indi Pres Sg P3 => discu_ + "te" ; - Indi Pres Pl P1 => discu_ + "tiamo" ; - Indi Pres Pl P2 => discu_ + "tete" ; - Indi Pres Pl P3 => discu_ + "tono" ; - Indi Imperf Sg P1 => discu_ + "tevo" ; --# notpresent - Indi Imperf Sg P2 => discu_ + "tevi" ; --# notpresent - Indi Imperf Sg P3 => discu_ + "teva" ; --# notpresent - Indi Imperf Pl P1 => discu_ + "tevamo" ; --# notpresent - Indi Imperf Pl P2 => discu_ + "tevate" ; --# notpresent - Indi Imperf Pl P3 => discu_ + "tevano" ; --# notpresent - Pass Sg P1 => discu_ + "ssi" ; --# notpresent - Pass Sg P2 => discu_ + "testi" ; --# notpresent - Pass Sg P3 => discu_ + "sse" ; --# notpresent - Pass Pl P1 => discu_ + "temmo" ; --# notpresent - Pass Pl P2 => discu_ + "teste" ; --# notpresent - Pass Pl P3 => discu_ + "ssero" ; --# notpresent - Fut Sg P1 => discu_ + "terò" ; --# notpresent - Fut Sg P2 => discu_ + "terai" ; --# notpresent - Fut Sg P3 => discu_ + "terà" ; --# notpresent - Fut Pl P1 => discu_ + "teremo" ; --# notpresent - Fut Pl P2 => discu_ + "terete" ; --# notpresent - Fut Pl P3 => discu_ + "teranno" ; --# notpresent - Cong Pres Sg P1 => discu_ + "ta" ; - Cong Pres Sg P2 => discu_ + "ta" ; - Cong Pres Sg P3 => discu_ + "ta" ; - Cong Pres Pl P1 => discu_ + "tiamo" ; - Cong Pres Pl P2 => discu_ + "tiate" ; - Cong Pres Pl P3 => discu_ + "tano" ; - Cong Imperf Sg P1 => discu_ + "tessi" ; --# notpresent - Cong Imperf Sg P2 => discu_ + "tessi" ; --# notpresent - Cong Imperf Sg P3 => discu_ + "tesse" ; --# notpresent - Cong Imperf Pl P1 => discu_ + "tessimo" ; --# notpresent - Cong Imperf Pl P2 => discu_ + "teste" ; --# notpresent - Cong Imperf Pl P3 => discu_ + "tessero" ; --# notpresent - Cond Sg P1 => discu_ + "terei" ; --# notpresent - Cond Sg P2 => discu_ + "teresti" ; --# notpresent - Cond Sg P3 => discu_ + "terebbe" ; --# notpresent - Cond Pl P1 => discu_ + "teremmo" ; --# notpresent - Cond Pl P2 => discu_ + "tereste" ; --# notpresent - Cond Pl P3 => discu_ + "terebbero" ; --# notpresent - Imper SgP2 => discu_ + "ti" ; - Imper PlP1 => discu_ + "tiamo" ; - Imper PlP2 => discu_ + "tete" ; - Ger => discu_ + "tendo" ; - Part PresP Masc Sg => discu_ + "tente" ; - Part PresP Masc Pl => discu_ + "tenti" ; - Part PresP Fem Sg => discu_ + "tente" ; - Part PresP Fem Pl => discu_ + "tenti" ; - Part PassP Masc Sg => discu_ + "sso" ; - Part PassP Masc Pl => discu_ + "ssi" ; - Part PassP Fem Sg => discu_ + "ssa" ; - Part PassP Fem Pl => discu_ + "sse" - } - } ; - -oper distinguere_44 : Str -> Verbo = \distinguere -> - let distin_ = Predef.tk 5 distinguere in - {s = table { - Inf => distin_ + "guere" ; - InfClit => distin_ + "guer" ; - Indi Pres Sg P1 => distin_ + "guo" ; - Indi Pres Sg P2 => distin_ + "gui" ; - Indi Pres Sg P3 => distin_ + "gue" ; - Indi Pres Pl P1 => distin_ + "guiamo" ; - Indi Pres Pl P2 => distin_ + "guete" ; - Indi Pres Pl P3 => distin_ + "guono" ; - Indi Imperf Sg P1 => distin_ + "guevo" ; --# notpresent - Indi Imperf Sg P2 => distin_ + "guevi" ; --# notpresent - Indi Imperf Sg P3 => distin_ + "gueva" ; --# notpresent - Indi Imperf Pl P1 => distin_ + "guevamo" ; --# notpresent - Indi Imperf Pl P2 => distin_ + "guevate" ; --# notpresent - Indi Imperf Pl P3 => distin_ + "guevano" ; --# notpresent - Pass Sg P1 => distin_ + "si" ; --# notpresent - Pass Sg P2 => distin_ + "guesti" ; --# notpresent - Pass Sg P3 => distin_ + "se" ; --# notpresent - Pass Pl P1 => distin_ + "guemmo" ; --# notpresent - Pass Pl P2 => distin_ + "gueste" ; --# notpresent - Pass Pl P3 => distin_ + "sero" ; --# notpresent - Fut Sg P1 => distin_ + "guerò" ; --# notpresent - Fut Sg P2 => distin_ + "guerai" ; --# notpresent - Fut Sg P3 => distin_ + "guerà" ; --# notpresent - Fut Pl P1 => distin_ + "gueremo" ; --# notpresent - Fut Pl P2 => distin_ + "guerete" ; --# notpresent - Fut Pl P3 => distin_ + "gueranno" ; --# notpresent - Cong Pres Sg P1 => distin_ + "gua" ; - Cong Pres Sg P2 => distin_ + "gua" ; - Cong Pres Sg P3 => distin_ + "gua" ; - Cong Pres Pl P1 => distin_ + "guiamo" ; - Cong Pres Pl P2 => distin_ + "guiate" ; - Cong Pres Pl P3 => distin_ + "guano" ; - Cong Imperf Sg P1 => distin_ + "guessi" ; --# notpresent - Cong Imperf Sg P2 => distin_ + "guessi" ; --# notpresent - Cong Imperf Sg P3 => distin_ + "guesse" ; --# notpresent - Cong Imperf Pl P1 => distin_ + "guessimo" ; --# notpresent - Cong Imperf Pl P2 => distin_ + "gueste" ; --# notpresent - Cong Imperf Pl P3 => distin_ + "guessero" ; --# notpresent - Cond Sg P1 => distin_ + "guerei" ; --# notpresent - Cond Sg P2 => distin_ + "gueresti" ; --# notpresent - Cond Sg P3 => distin_ + "guerebbe" ; --# notpresent - Cond Pl P1 => distin_ + "gueremmo" ; --# notpresent - Cond Pl P2 => distin_ + "guereste" ; --# notpresent - Cond Pl P3 => distin_ + "guerebbero" ; --# notpresent - Imper SgP2 => distin_ + "gui" ; - Imper PlP1 => distin_ + "guiamo" ; - Imper PlP2 => distin_ + "guete" ; - Ger => distin_ + "guendo" ; - Part PresP Masc Sg => distin_ + "guente" ; - Part PresP Masc Pl => distin_ + "guenti" ; - Part PresP Fem Sg => distin_ + "guente" ; - Part PresP Fem Pl => distin_ + "guenti" ; - Part PassP Masc Sg => distin_ + "to" ; - Part PassP Masc Pl => distin_ + "ti" ; - Part PassP Fem Sg => distin_ + "ta" ; - Part PassP Fem Pl => distin_ + "te" - } - } ; - -oper distruggere_45 : Str -> Verbo = \distruggere -> - let distru_ = Predef.tk 5 distruggere in - {s = table { - Inf => distru_ + "ggere" ; - InfClit => distru_ + "gger" ; - Indi Pres Sg P1 => distru_ + "ggo" ; - Indi Pres Sg P2 => distru_ + "ggi" ; - Indi Pres Sg P3 => distru_ + "gge" ; - Indi Pres Pl P1 => distru_ + "ggiamo" ; - Indi Pres Pl P2 => distru_ + "ggete" ; - Indi Pres Pl P3 => distru_ + "ggono" ; - Indi Imperf Sg P1 => distru_ + "ggevo" ; --# notpresent - Indi Imperf Sg P2 => distru_ + "ggevi" ; --# notpresent - Indi Imperf Sg P3 => distru_ + "ggeva" ; --# notpresent - Indi Imperf Pl P1 => distru_ + "ggevamo" ; --# notpresent - Indi Imperf Pl P2 => distru_ + "ggevate" ; --# notpresent - Indi Imperf Pl P3 => distru_ + "ggevano" ; --# notpresent - Pass Sg P1 => distru_ + "ssi" ; --# notpresent - Pass Sg P2 => distru_ + "ggesti" ; --# notpresent - Pass Sg P3 => distru_ + "sse" ; --# notpresent - Pass Pl P1 => distru_ + "ggemmo" ; --# notpresent - Pass Pl P2 => distru_ + "ggeste" ; --# notpresent - Pass Pl P3 => distru_ + "ssero" ; --# notpresent - Fut Sg P1 => distru_ + "ggerò" ; --# notpresent - Fut Sg P2 => distru_ + "ggerai" ; --# notpresent - Fut Sg P3 => distru_ + "ggerà" ; --# notpresent - Fut Pl P1 => distru_ + "ggeremo" ; --# notpresent - Fut Pl P2 => distru_ + "ggerete" ; --# notpresent - Fut Pl P3 => distru_ + "ggeranno" ; --# notpresent - Cong Pres Sg P1 => distru_ + "gga" ; - Cong Pres Sg P2 => distru_ + "gga" ; - Cong Pres Sg P3 => distru_ + "gga" ; - Cong Pres Pl P1 => distru_ + "ggiamo" ; - Cong Pres Pl P2 => distru_ + "ggiate" ; - Cong Pres Pl P3 => distru_ + "ggano" ; - Cong Imperf Sg P1 => distru_ + "ggessi" ; --# notpresent - Cong Imperf Sg P2 => distru_ + "ggessi" ; --# notpresent - Cong Imperf Sg P3 => distru_ + "ggesse" ; --# notpresent - Cong Imperf Pl P1 => distru_ + "ggessimo" ; --# notpresent - Cong Imperf Pl P2 => distru_ + "ggeste" ; --# notpresent - Cong Imperf Pl P3 => distru_ + "ggessero" ; --# notpresent - Cond Sg P1 => distru_ + "ggerei" ; --# notpresent - Cond Sg P2 => distru_ + "ggeresti" ; --# notpresent - Cond Sg P3 => distru_ + "ggerebbe" ; --# notpresent - Cond Pl P1 => distru_ + "ggeremmo" ; --# notpresent - Cond Pl P2 => distru_ + "ggereste" ; --# notpresent - Cond Pl P3 => distru_ + "ggerebbero" ; --# notpresent - Imper SgP2 => distru_ + "ggi" ; - Imper PlP1 => distru_ + "ggiamo" ; - Imper PlP2 => distru_ + "ggete" ; - Ger => distru_ + "ggendo" ; - Part PresP Masc Sg => distru_ + "ggente" ; - Part PresP Masc Pl => distru_ + "ggenti" ; - Part PresP Fem Sg => distru_ + "ggente" ; - Part PresP Fem Pl => distru_ + "ggenti" ; - Part PassP Masc Sg => distru_ + "tto" ; - Part PassP Masc Pl => distru_ + "tti" ; - Part PassP Fem Sg => distru_ + "tta" ; - Part PassP Fem Pl => distru_ + "tte" - } - } ; - -oper dolere_46 : Str -> Verbo = \dolere -> - let d_ = Predef.tk 5 dolere in - {s = table { - Inf => d_ + "olere" ; - InfClit => d_ + "oler" ; - Indi Pres Sg P1 => d_ + "olgo" ; - Indi Pres Sg P2 => d_ + "uoli" ; - Indi Pres Sg P3 => d_ + "uole" ; - Indi Pres Pl P1 => d_ + "oliamo" ; - Indi Pres Pl P2 => d_ + "olete" ; - Indi Pres Pl P3 => d_ + "olgono" ; - Indi Imperf Sg P1 => d_ + "olevo" ; --# notpresent - Indi Imperf Sg P2 => d_ + "olevi" ; --# notpresent - Indi Imperf Sg P3 => d_ + "oleva" ; --# notpresent - Indi Imperf Pl P1 => d_ + "olevamo" ; --# notpresent - Indi Imperf Pl P2 => d_ + "olevate" ; --# notpresent - Indi Imperf Pl P3 => d_ + "olevano" ; --# notpresent - Pass Sg P1 => d_ + "olsi" ; --# notpresent - Pass Sg P2 => d_ + "olesti" ; --# notpresent - Pass Sg P3 => d_ + "olse" ; --# notpresent - Pass Pl P1 => d_ + "olemmo" ; --# notpresent - Pass Pl P2 => d_ + "oleste" ; --# notpresent - Pass Pl P3 => d_ + "olsero" ; --# notpresent - Fut Sg P1 => d_ + "orrò" ; --# notpresent - Fut Sg P2 => d_ + "orrai" ; --# notpresent - Fut Sg P3 => d_ + "orrà" ; --# notpresent - Fut Pl P1 => d_ + "orremo" ; --# notpresent - Fut Pl P2 => d_ + "orrete" ; --# notpresent - Fut Pl P3 => d_ + "orranno" ; --# notpresent - Cong Pres Sg P1 => d_ + "olga" ; - Cong Pres Sg P2 => d_ + "olga" ; - Cong Pres Sg P3 => d_ + "olga" ; - Cong Pres Pl P1 => d_ + "oliamo" ; - Cong Pres Pl P2 => d_ + "oliate" ; - Cong Pres Pl P3 => d_ + "olgano" ; - Cong Imperf Sg P1 => d_ + "olessi" ; --# notpresent - Cong Imperf Sg P2 => d_ + "olessi" ; --# notpresent - Cong Imperf Sg P3 => d_ + "olesse" ; --# notpresent - Cong Imperf Pl P1 => d_ + "olessimo" ; --# notpresent - Cong Imperf Pl P2 => d_ + "oleste" ; --# notpresent - Cong Imperf Pl P3 => d_ + "olessero" ; --# notpresent - Cond Sg P1 => d_ + "orrei" ; --# notpresent - Cond Sg P2 => d_ + "orresti" ; --# notpresent - Cond Sg P3 => d_ + "orrebbe" ; --# notpresent - Cond Pl P1 => d_ + "orremmo" ; --# notpresent - Cond Pl P2 => d_ + "orreste" ; --# notpresent - Cond Pl P3 => d_ + "orrebbero" ; --# notpresent - Imper SgP2 => d_ + "uoli" ; - Imper PlP1 => d_ + "oliamo" ; - Imper PlP2 => d_ + "olete" ; - Ger => d_ + "olendo" ; - Part PresP Masc Sg => d_ + "olente" ; - Part PresP Masc Pl => d_ + "olenti" ; - Part PresP Fem Sg => d_ + "olente" ; - Part PresP Fem Pl => d_ + "olenti" ; - Part PassP Masc Sg => d_ + "oluto" ; - Part PassP Masc Pl => d_ + "oluti" ; - Part PassP Fem Sg => d_ + "oluta" ; - Part PassP Fem Pl => d_ + "olute" - } - } ; - -oper dovere_47 : Str -> Verbo = \dovere -> - let d_ = Predef.tk 5 dovere in - {s = table { - Inf => d_ + "overe" ; - InfClit => d_ + "over" ; - Indi Pres Sg P1 => variants {d_ + "ebbo" ; d_ + "evo"} ; - Indi Pres Sg P2 => d_ + "evi" ; - Indi Pres Sg P3 => d_ + "eve" ; - Indi Pres Pl P1 => d_ + "obbiamo" ; - Indi Pres Pl P2 => d_ + "ovete" ; - Indi Pres Pl P3 => variants {d_ + "ebbono" ; d_ + "evono"} ; - Indi Imperf Sg P1 => d_ + "ovevo" ; --# notpresent - Indi Imperf Sg P2 => d_ + "ovevi" ; --# notpresent - Indi Imperf Sg P3 => d_ + "oveva" ; --# notpresent - Indi Imperf Pl P1 => d_ + "ovevamo" ; --# notpresent - Indi Imperf Pl P2 => d_ + "ovevate" ; --# notpresent - Indi Imperf Pl P3 => d_ + "ovevano" ; --# notpresent - Pass Sg P1 => d_ + "ovetti" ; --# notpresent - Pass Sg P2 => d_ + "ovesti" ; --# notpresent - Pass Sg P3 => d_ + "ovette" ; --# notpresent - Pass Pl P1 => d_ + "ovemmo" ; --# notpresent - Pass Pl P2 => d_ + "oveste" ; --# notpresent - Pass Pl P3 => d_ + "ovettero" ; --# notpresent - Fut Sg P1 => d_ + "ovrò" ; --# notpresent - Fut Sg P2 => d_ + "ovrai" ; --# notpresent - Fut Sg P3 => d_ + "ovrà" ; --# notpresent - Fut Pl P1 => d_ + "ovremo" ; --# notpresent - Fut Pl P2 => d_ + "ovrete" ; --# notpresent - Fut Pl P3 => d_ + "ovranno" ; --# notpresent - Cong Pres Sg P1 => variants {d_ + "ebba" ; d_ + "eva"} ; - Cong Pres Sg P2 => variants {d_ + "ebba" ; d_ + "eva"} ; - Cong Pres Sg P3 => variants {d_ + "ebba" ; d_ + "eva"} ; - Cong Pres Pl P1 => d_ + "obbiamo" ; - Cong Pres Pl P2 => d_ + "obbiate" ; - Cong Pres Pl P3 => variants {d_ + "ebbano" ; d_ + "evano"} ; - Cong Imperf Sg P1 => d_ + "ovessi" ; --# notpresent - Cong Imperf Sg P2 => d_ + "ovessi" ; --# notpresent - Cong Imperf Sg P3 => d_ + "ovesse" ; --# notpresent - Cong Imperf Pl P1 => d_ + "ovessimo" ; --# notpresent - Cong Imperf Pl P2 => d_ + "oveste" ; --# notpresent - Cong Imperf Pl P3 => d_ + "ovessero" ; --# notpresent - Cond Sg P1 => d_ + "ovrei" ; --# notpresent - Cond Sg P2 => d_ + "ovresti" ; --# notpresent - Cond Sg P3 => d_ + "ovrebbe" ; --# notpresent - Cond Pl P1 => d_ + "ovremmo" ; --# notpresent - Cond Pl P2 => d_ + "ovreste" ; --# notpresent - Cond Pl P3 => d_ + "ovrebbero" ; --# notpresent - Imper SgP2 => variants {} ; - Imper PlP1 => variants {} ; - Imper PlP2 => variants {} ; - Ger => d_ + "ovendo" ; - Part PresP Masc Sg => variants {} ; - Part PresP Masc Pl => variants {} ; - Part PresP Fem Sg => variants {} ; - Part PresP Fem Pl => variants {} ; - Part PassP Masc Sg => d_ + "ovuto" ; - Part PassP Masc Pl => d_ + "ovuti" ; - Part PassP Fem Sg => d_ + "ovuta" ; - Part PassP Fem Pl => d_ + "ovute" - } - } ; - -oper emergere_28 : Str -> Verbo = \emergere -> - let emer_ = Predef.tk 4 emergere in - {s = table { - Inf => emer_ + "gere" ; - InfClit => emer_ + "ger" ; - Indi Pres Sg P1 => emer_ + "go" ; - Indi Pres Sg P2 => emer_ + "gi" ; - Indi Pres Sg P3 => emer_ + "ge" ; - Indi Pres Pl P1 => emer_ + "giamo" ; - Indi Pres Pl P2 => emer_ + "gete" ; - Indi Pres Pl P3 => emer_ + "gono" ; - Indi Imperf Sg P1 => emer_ + "gevo" ; --# notpresent - Indi Imperf Sg P2 => emer_ + "gevi" ; --# notpresent - Indi Imperf Sg P3 => emer_ + "geva" ; --# notpresent - Indi Imperf Pl P1 => emer_ + "gevamo" ; --# notpresent - Indi Imperf Pl P2 => emer_ + "gevate" ; --# notpresent - Indi Imperf Pl P3 => emer_ + "gevano" ; --# notpresent - Pass Sg P1 => emer_ + "si" ; --# notpresent - Pass Sg P2 => emer_ + "gesti" ; --# notpresent - Pass Sg P3 => emer_ + "se" ; --# notpresent - Pass Pl P1 => emer_ + "gemmo" ; --# notpresent - Pass Pl P2 => emer_ + "geste" ; --# notpresent - Pass Pl P3 => emer_ + "sero" ; --# notpresent - Fut Sg P1 => emer_ + "gerò" ; --# notpresent - Fut Sg P2 => emer_ + "gerai" ; --# notpresent - Fut Sg P3 => emer_ + "gerà" ; --# notpresent - Fut Pl P1 => emer_ + "geremo" ; --# notpresent - Fut Pl P2 => emer_ + "gerete" ; --# notpresent - Fut Pl P3 => emer_ + "geranno" ; --# notpresent - Cong Pres Sg P1 => emer_ + "ga" ; - Cong Pres Sg P2 => emer_ + "ga" ; - Cong Pres Sg P3 => emer_ + "ga" ; - Cong Pres Pl P1 => emer_ + "giamo" ; - Cong Pres Pl P2 => emer_ + "giate" ; - Cong Pres Pl P3 => emer_ + "gano" ; - Cong Imperf Sg P1 => emer_ + "gessi" ; --# notpresent - Cong Imperf Sg P2 => emer_ + "gessi" ; --# notpresent - Cong Imperf Sg P3 => emer_ + "gesse" ; --# notpresent - Cong Imperf Pl P1 => emer_ + "gessimo" ; --# notpresent - Cong Imperf Pl P2 => emer_ + "geste" ; --# notpresent - Cong Imperf Pl P3 => emer_ + "gessero" ; --# notpresent - Cond Sg P1 => emer_ + "gerei" ; --# notpresent - Cond Sg P2 => emer_ + "geresti" ; --# notpresent - Cond Sg P3 => emer_ + "gerebbe" ; --# notpresent - Cond Pl P1 => emer_ + "geremmo" ; --# notpresent - Cond Pl P2 => emer_ + "gereste" ; --# notpresent - Cond Pl P3 => emer_ + "gerebbero" ; --# notpresent - Imper SgP2 => emer_ + "gi" ; - Imper PlP1 => emer_ + "giamo" ; - Imper PlP2 => emer_ + "gete" ; - Ger => emer_ + "gendo" ; - Part PresP Masc Sg => emer_ + "gente" ; - Part PresP Masc Pl => emer_ + "genti" ; - Part PresP Fem Sg => emer_ + "gente" ; - Part PresP Fem Pl => emer_ + "genti" ; - Part PassP Masc Sg => emer_ + "so" ; - Part PassP Masc Pl => emer_ + "si" ; - Part PassP Fem Sg => emer_ + "sa" ; - Part PassP Fem Pl => emer_ + "se" - } - } ; - -oper espandere_49 : Str -> Verbo = \espandere -> - let espan_ = Predef.tk 4 espandere in - {s = table { - Inf => espan_ + "dere" ; - InfClit => espan_ + "der" ; - Indi Pres Sg P1 => espan_ + "do" ; - Indi Pres Sg P2 => espan_ + "di" ; - Indi Pres Sg P3 => espan_ + "de" ; - Indi Pres Pl P1 => espan_ + "diamo" ; - Indi Pres Pl P2 => espan_ + "dete" ; - Indi Pres Pl P3 => espan_ + "dono" ; - Indi Imperf Sg P1 => espan_ + "devo" ; --# notpresent - Indi Imperf Sg P2 => espan_ + "devi" ; --# notpresent - Indi Imperf Sg P3 => espan_ + "deva" ; --# notpresent - Indi Imperf Pl P1 => espan_ + "devamo" ; --# notpresent - Indi Imperf Pl P2 => espan_ + "devate" ; --# notpresent - Indi Imperf Pl P3 => espan_ + "devano" ; --# notpresent - Pass Sg P1 => espan_ + "si" ; --# notpresent - Pass Sg P2 => espan_ + "desti" ; --# notpresent - Pass Sg P3 => espan_ + "se" ; --# notpresent - Pass Pl P1 => espan_ + "demmo" ; --# notpresent - Pass Pl P2 => espan_ + "deste" ; --# notpresent - Pass Pl P3 => espan_ + "sero" ; --# notpresent - Fut Sg P1 => espan_ + "derò" ; --# notpresent - Fut Sg P2 => espan_ + "derai" ; --# notpresent - Fut Sg P3 => espan_ + "derà" ; --# notpresent - Fut Pl P1 => espan_ + "deremo" ; --# notpresent - Fut Pl P2 => espan_ + "derete" ; --# notpresent - Fut Pl P3 => espan_ + "deranno" ; --# notpresent - Cong Pres Sg P1 => espan_ + "da" ; - Cong Pres Sg P2 => espan_ + "da" ; - Cong Pres Sg P3 => espan_ + "da" ; - Cong Pres Pl P1 => espan_ + "diamo" ; - Cong Pres Pl P2 => espan_ + "diate" ; - Cong Pres Pl P3 => espan_ + "dano" ; - Cong Imperf Sg P1 => espan_ + "dessi" ; --# notpresent - Cong Imperf Sg P2 => espan_ + "dessi" ; --# notpresent - Cong Imperf Sg P3 => espan_ + "desse" ; --# notpresent - Cong Imperf Pl P1 => espan_ + "dessimo" ; --# notpresent - Cong Imperf Pl P2 => espan_ + "deste" ; --# notpresent - Cong Imperf Pl P3 => espan_ + "dessero" ; --# notpresent - Cond Sg P1 => espan_ + "derei" ; --# notpresent - Cond Sg P2 => espan_ + "deresti" ; --# notpresent - Cond Sg P3 => espan_ + "derebbe" ; --# notpresent - Cond Pl P1 => espan_ + "deremmo" ; --# notpresent - Cond Pl P2 => espan_ + "dereste" ; --# notpresent - Cond Pl P3 => espan_ + "derebbero" ; --# notpresent - Imper SgP2 => espan_ + "di" ; - Imper PlP1 => espan_ + "diamo" ; - Imper PlP2 => espan_ + "dete" ; - Ger => espan_ + "dendo" ; - Part PresP Masc Sg => espan_ + "dente" ; - Part PresP Masc Pl => espan_ + "denti" ; - Part PresP Fem Sg => espan_ + "dente" ; - Part PresP Fem Pl => espan_ + "denti" ; - Part PassP Masc Sg => espan_ + "so" ; - Part PassP Masc Pl => espan_ + "si" ; - Part PassP Fem Sg => espan_ + "sa" ; - Part PassP Fem Pl => espan_ + "se" - } - } ; - -oper espellere_50 : Str -> Verbo = \espellere -> - let esp_ = Predef.tk 6 espellere in - {s = table { - Inf => esp_ + "ellere" ; - InfClit => esp_ + "eller" ; - Indi Pres Sg P1 => esp_ + "ello" ; - Indi Pres Sg P2 => esp_ + "elli" ; - Indi Pres Sg P3 => esp_ + "elle" ; - Indi Pres Pl P1 => esp_ + "elliamo" ; - Indi Pres Pl P2 => esp_ + "ellete" ; - Indi Pres Pl P3 => esp_ + "ellono" ; - Indi Imperf Sg P1 => esp_ + "ellevo" ; --# notpresent - Indi Imperf Sg P2 => esp_ + "ellevi" ; --# notpresent - Indi Imperf Sg P3 => esp_ + "elleva" ; --# notpresent - Indi Imperf Pl P1 => esp_ + "ellevamo" ; --# notpresent - Indi Imperf Pl P2 => esp_ + "ellevate" ; --# notpresent - Indi Imperf Pl P3 => esp_ + "ellevano" ; --# notpresent - Pass Sg P1 => esp_ + "ulsi" ; --# notpresent - Pass Sg P2 => esp_ + "ellesti" ; --# notpresent - Pass Sg P3 => esp_ + "ulse" ; --# notpresent - Pass Pl P1 => esp_ + "ellemmo" ; --# notpresent - Pass Pl P2 => esp_ + "elleste" ; --# notpresent - Pass Pl P3 => esp_ + "ulsero" ; --# notpresent - Fut Sg P1 => esp_ + "ellerò" ; --# notpresent - Fut Sg P2 => esp_ + "ellerai" ; --# notpresent - Fut Sg P3 => esp_ + "ellerà" ; --# notpresent - Fut Pl P1 => esp_ + "elleremo" ; --# notpresent - Fut Pl P2 => esp_ + "ellerete" ; --# notpresent - Fut Pl P3 => esp_ + "elleranno" ; --# notpresent - Cong Pres Sg P1 => esp_ + "ella" ; - Cong Pres Sg P2 => esp_ + "ella" ; - Cong Pres Sg P3 => esp_ + "ella" ; - Cong Pres Pl P1 => esp_ + "elliamo" ; - Cong Pres Pl P2 => esp_ + "elliate" ; - Cong Pres Pl P3 => esp_ + "ellano" ; - Cong Imperf Sg P1 => esp_ + "ellessi" ; --# notpresent - Cong Imperf Sg P2 => esp_ + "ellessi" ; --# notpresent - Cong Imperf Sg P3 => esp_ + "ellesse" ; --# notpresent - Cong Imperf Pl P1 => esp_ + "ellessimo" ; --# notpresent - Cong Imperf Pl P2 => esp_ + "elleste" ; --# notpresent - Cong Imperf Pl P3 => esp_ + "ellessero" ; --# notpresent - Cond Sg P1 => esp_ + "ellerei" ; --# notpresent - Cond Sg P2 => esp_ + "elleresti" ; --# notpresent - Cond Sg P3 => esp_ + "ellerebbe" ; --# notpresent - Cond Pl P1 => esp_ + "elleremmo" ; --# notpresent - Cond Pl P2 => esp_ + "ellereste" ; --# notpresent - Cond Pl P3 => esp_ + "ellerebbero" ; --# notpresent - Imper SgP2 => esp_ + "elli" ; - Imper PlP1 => esp_ + "elliamo" ; - Imper PlP2 => esp_ + "ellete" ; - Ger => esp_ + "ellendo" ; - Part PresP Masc Sg => esp_ + "ellente" ; - Part PresP Masc Pl => esp_ + "ellenti" ; - Part PresP Fem Sg => esp_ + "ellente" ; - Part PresP Fem Pl => esp_ + "ellenti" ; - Part PassP Masc Sg => esp_ + "ulso" ; - Part PassP Masc Pl => esp_ + "ulsi" ; - Part PassP Fem Sg => esp_ + "ulsa" ; - Part PassP Fem Pl => esp_ + "ulse" - } - } ; - -oper esplodere_51 : Str -> Verbo = \esplodere -> - let esplo_ = Predef.tk 4 esplodere in - {s = table { - Inf => esplo_ + "dere" ; - InfClit => esplo_ + "der" ; - Indi Pres Sg P1 => esplo_ + "do" ; - Indi Pres Sg P2 => esplo_ + "di" ; - Indi Pres Sg P3 => esplo_ + "de" ; - Indi Pres Pl P1 => esplo_ + "diamo" ; - Indi Pres Pl P2 => esplo_ + "dete" ; - Indi Pres Pl P3 => esplo_ + "dono" ; - Indi Imperf Sg P1 => esplo_ + "devo" ; --# notpresent - Indi Imperf Sg P2 => esplo_ + "devi" ; --# notpresent - Indi Imperf Sg P3 => esplo_ + "deva" ; --# notpresent - Indi Imperf Pl P1 => esplo_ + "devamo" ; --# notpresent - Indi Imperf Pl P2 => esplo_ + "devate" ; --# notpresent - Indi Imperf Pl P3 => esplo_ + "devano" ; --# notpresent - Pass Sg P1 => esplo_ + "si" ; --# notpresent - Pass Sg P2 => esplo_ + "desti" ; --# notpresent - Pass Sg P3 => esplo_ + "se" ; --# notpresent - Pass Pl P1 => esplo_ + "demmo" ; --# notpresent - Pass Pl P2 => esplo_ + "deste" ; --# notpresent - Pass Pl P3 => esplo_ + "sero" ; --# notpresent - Fut Sg P1 => esplo_ + "derò" ; --# notpresent - Fut Sg P2 => esplo_ + "derai" ; --# notpresent - Fut Sg P3 => esplo_ + "derà" ; --# notpresent - Fut Pl P1 => esplo_ + "deremo" ; --# notpresent - Fut Pl P2 => esplo_ + "derete" ; --# notpresent - Fut Pl P3 => esplo_ + "deranno" ; --# notpresent - Cong Pres Sg P1 => esplo_ + "da" ; - Cong Pres Sg P2 => esplo_ + "da" ; - Cong Pres Sg P3 => esplo_ + "da" ; - Cong Pres Pl P1 => esplo_ + "diamo" ; - Cong Pres Pl P2 => esplo_ + "diate" ; - Cong Pres Pl P3 => esplo_ + "dano" ; - Cong Imperf Sg P1 => esplo_ + "dessi" ; --# notpresent - Cong Imperf Sg P2 => esplo_ + "dessi" ; --# notpresent - Cong Imperf Sg P3 => esplo_ + "desse" ; --# notpresent - Cong Imperf Pl P1 => esplo_ + "dessimo" ; --# notpresent - Cong Imperf Pl P2 => esplo_ + "deste" ; --# notpresent - Cong Imperf Pl P3 => esplo_ + "dessero" ; --# notpresent - Cond Sg P1 => esplo_ + "derei" ; --# notpresent - Cond Sg P2 => esplo_ + "deresti" ; --# notpresent - Cond Sg P3 => esplo_ + "derebbe" ; --# notpresent - Cond Pl P1 => esplo_ + "deremmo" ; --# notpresent - Cond Pl P2 => esplo_ + "dereste" ; --# notpresent - Cond Pl P3 => esplo_ + "derebbero" ; --# notpresent - Imper SgP2 => esplo_ + "di" ; - Imper PlP1 => esplo_ + "diamo" ; - Imper PlP2 => esplo_ + "dete" ; - Ger => esplo_ + "dendo" ; - Part PresP Masc Sg => esplo_ + "dente" ; - Part PresP Masc Pl => esplo_ + "denti" ; - Part PresP Fem Sg => esplo_ + "dente" ; - Part PresP Fem Pl => esplo_ + "denti" ; - Part PassP Masc Sg => esplo_ + "so" ; - Part PassP Masc Pl => esplo_ + "si" ; - Part PassP Fem Sg => esplo_ + "sa" ; - Part PassP Fem Pl => esplo_ + "se" - } - } ; - -oper fare_52 : Str -> Verbo = \fare -> - let f_ = Predef.tk 3 fare in - {s = table { - Inf => f_ + "are" ; - InfClit => f_ + "ar" ; - Indi Pres Sg P1 => f_ + "accio" ; - Indi Pres Sg P2 => f_ + "ai" ; - Indi Pres Sg P3 => f_ + "a" ; - Indi Pres Pl P1 => f_ + "acciamo" ; - Indi Pres Pl P2 => f_ + "ate" ; - Indi Pres Pl P3 => f_ + "anno" ; - Indi Imperf Sg P1 => f_ + "acevo" ; --# notpresent - Indi Imperf Sg P2 => f_ + "acevi" ; --# notpresent - Indi Imperf Sg P3 => f_ + "aceva" ; --# notpresent - Indi Imperf Pl P1 => f_ + "acevamo" ; --# notpresent - Indi Imperf Pl P2 => f_ + "acevate" ; --# notpresent - Indi Imperf Pl P3 => f_ + "acevano" ; --# notpresent - Pass Sg P1 => f_ + "eci" ; --# notpresent - Pass Sg P2 => f_ + "acesti" ; --# notpresent - Pass Sg P3 => f_ + "ece" ; --# notpresent - Pass Pl P1 => f_ + "acemmo" ; --# notpresent - Pass Pl P2 => f_ + "aceste" ; --# notpresent - Pass Pl P3 => f_ + "ecero" ; --# notpresent - Fut Sg P1 => f_ + "arò" ; --# notpresent - Fut Sg P2 => f_ + "arai" ; --# notpresent - Fut Sg P3 => f_ + "arà" ; --# notpresent - Fut Pl P1 => f_ + "aremo" ; --# notpresent - Fut Pl P2 => f_ + "arete" ; --# notpresent - Fut Pl P3 => f_ + "aranno" ; --# notpresent - Cong Pres Sg P1 => f_ + "accia" ; - Cong Pres Sg P2 => f_ + "accia" ; - Cong Pres Sg P3 => f_ + "accia" ; - Cong Pres Pl P1 => f_ + "acciamo" ; - Cong Pres Pl P2 => f_ + "acciate" ; - Cong Pres Pl P3 => f_ + "acciano" ; - Cong Imperf Sg P1 => f_ + "acessi" ; --# notpresent - Cong Imperf Sg P2 => f_ + "acessi" ; --# notpresent - Cong Imperf Sg P3 => f_ + "acesse" ; --# notpresent - Cong Imperf Pl P1 => f_ + "acessimo" ; --# notpresent - Cong Imperf Pl P2 => f_ + "aceste" ; --# notpresent - Cong Imperf Pl P3 => f_ + "acessero" ; --# notpresent - Cond Sg P1 => f_ + "arei" ; --# notpresent - Cond Sg P2 => f_ + "aresti" ; --# notpresent - Cond Sg P3 => f_ + "arebbe" ; --# notpresent - Cond Pl P1 => f_ + "aremmo" ; --# notpresent - Cond Pl P2 => f_ + "areste" ; --# notpresent - Cond Pl P3 => f_ + "arebbero" ; --# notpresent - Imper SgP2 => f_ + "ai" ; - Imper PlP1 => f_ + "acciamo" ; - Imper PlP2 => f_ + "ate" ; - Ger => f_ + "acendo" ; - Part PresP Masc Sg => f_ + "acente" ; - Part PresP Masc Pl => f_ + "acenti" ; - Part PresP Fem Sg => f_ + "acente" ; - Part PresP Fem Pl => f_ + "acenti" ; - Part PassP Masc Sg => f_ + "atto" ; - Part PassP Masc Pl => f_ + "atti" ; - Part PassP Fem Sg => f_ + "atta" ; - Part PassP Fem Pl => f_ + "atte" - } - } ; - -oper flettere_53 : Str -> Verbo = \flettere -> - let fle_ = Predef.tk 5 flettere in - {s = table { - Inf => fle_ + "ttere" ; - InfClit => fle_ + "tter" ; - Indi Pres Sg P1 => fle_ + "tto" ; - Indi Pres Sg P2 => fle_ + "tti" ; - Indi Pres Sg P3 => fle_ + "tte" ; - Indi Pres Pl P1 => fle_ + "ttiamo" ; - Indi Pres Pl P2 => fle_ + "ttete" ; - Indi Pres Pl P3 => fle_ + "ttono" ; - Indi Imperf Sg P1 => fle_ + "ttevo" ; --# notpresent - Indi Imperf Sg P2 => fle_ + "ttevi" ; --# notpresent - Indi Imperf Sg P3 => fle_ + "tteva" ; --# notpresent - Indi Imperf Pl P1 => fle_ + "ttevamo" ; --# notpresent - Indi Imperf Pl P2 => fle_ + "ttevate" ; --# notpresent - Indi Imperf Pl P3 => fle_ + "ttevano" ; --# notpresent - Pass Sg P1 => fle_ + "ssi" ; --# notpresent - Pass Sg P2 => fle_ + "ttesti" ; --# notpresent - Pass Sg P3 => fle_ + "sse" ; --# notpresent - Pass Pl P1 => fle_ + "ttemmo" ; --# notpresent - Pass Pl P2 => fle_ + "tteste" ; --# notpresent - Pass Pl P3 => fle_ + "ssero" ; --# notpresent - Fut Sg P1 => fle_ + "tterò" ; --# notpresent - Fut Sg P2 => fle_ + "tterai" ; --# notpresent - Fut Sg P3 => fle_ + "tterà" ; --# notpresent - Fut Pl P1 => fle_ + "tteremo" ; --# notpresent - Fut Pl P2 => fle_ + "tterete" ; --# notpresent - Fut Pl P3 => fle_ + "tteranno" ; --# notpresent - Cong Pres Sg P1 => fle_ + "tta" ; - Cong Pres Sg P2 => fle_ + "tta" ; - Cong Pres Sg P3 => fle_ + "tta" ; - Cong Pres Pl P1 => fle_ + "ttiamo" ; - Cong Pres Pl P2 => fle_ + "ttiate" ; - Cong Pres Pl P3 => fle_ + "ttano" ; - Cong Imperf Sg P1 => fle_ + "ttessi" ; --# notpresent - Cong Imperf Sg P2 => fle_ + "ttessi" ; --# notpresent - Cong Imperf Sg P3 => fle_ + "ttesse" ; --# notpresent - Cong Imperf Pl P1 => fle_ + "ttessimo" ; --# notpresent - Cong Imperf Pl P2 => fle_ + "tteste" ; --# notpresent - Cong Imperf Pl P3 => fle_ + "ttessero" ; --# notpresent - Cond Sg P1 => fle_ + "tterei" ; --# notpresent - Cond Sg P2 => fle_ + "tteresti" ; --# notpresent - Cond Sg P3 => fle_ + "tterebbe" ; --# notpresent - Cond Pl P1 => fle_ + "tteremmo" ; --# notpresent - Cond Pl P2 => fle_ + "ttereste" ; --# notpresent - Cond Pl P3 => fle_ + "tterebbero" ; --# notpresent - Imper SgP2 => fle_ + "tti" ; - Imper PlP1 => fle_ + "ttiamo" ; - Imper PlP2 => fle_ + "ttete" ; - Ger => fle_ + "ttendo" ; - Part PresP Masc Sg => fle_ + "ttente" ; - Part PresP Masc Pl => fle_ + "ttenti" ; - Part PresP Fem Sg => fle_ + "ttente" ; - Part PresP Fem Pl => fle_ + "ttenti" ; - Part PassP Masc Sg => fle_ + "sso" ; - Part PassP Masc Pl => fle_ + "ssi" ; - Part PassP Fem Sg => fle_ + "ssa" ; - Part PassP Fem Pl => fle_ + "sse" - } - } ; - -oper fondere_54 : Str -> Verbo = \fondere -> - let f_ = Predef.tk 6 fondere in - {s = table { - Inf => f_ + "ondere" ; - InfClit => f_ + "onder" ; - Indi Pres Sg P1 => f_ + "ondo" ; - Indi Pres Sg P2 => f_ + "ondi" ; - Indi Pres Sg P3 => f_ + "onde" ; - Indi Pres Pl P1 => f_ + "ondiamo" ; - Indi Pres Pl P2 => f_ + "ondete" ; - Indi Pres Pl P3 => f_ + "ondono" ; - Indi Imperf Sg P1 => f_ + "ondevo" ; --# notpresent - Indi Imperf Sg P2 => f_ + "ondevi" ; --# notpresent - Indi Imperf Sg P3 => f_ + "ondeva" ; --# notpresent - Indi Imperf Pl P1 => f_ + "ondevamo" ; --# notpresent - Indi Imperf Pl P2 => f_ + "ondevate" ; --# notpresent - Indi Imperf Pl P3 => f_ + "ondevano" ; --# notpresent - Pass Sg P1 => f_ + "usi" ; --# notpresent - Pass Sg P2 => f_ + "ondesti" ; --# notpresent - Pass Sg P3 => f_ + "use" ; --# notpresent - Pass Pl P1 => f_ + "ondemmo" ; --# notpresent - Pass Pl P2 => f_ + "ondeste" ; --# notpresent - Pass Pl P3 => f_ + "usero" ; --# notpresent - Fut Sg P1 => f_ + "onderò" ; --# notpresent - Fut Sg P2 => f_ + "onderai" ; --# notpresent - Fut Sg P3 => f_ + "onderà" ; --# notpresent - Fut Pl P1 => f_ + "onderemo" ; --# notpresent - Fut Pl P2 => f_ + "onderete" ; --# notpresent - Fut Pl P3 => f_ + "onderanno" ; --# notpresent - Cong Pres Sg P1 => f_ + "onda" ; - Cong Pres Sg P2 => f_ + "onda" ; - Cong Pres Sg P3 => f_ + "onda" ; - Cong Pres Pl P1 => f_ + "ondiamo" ; - Cong Pres Pl P2 => f_ + "ondiate" ; - Cong Pres Pl P3 => f_ + "ondano" ; - Cong Imperf Sg P1 => f_ + "ondessi" ; --# notpresent - Cong Imperf Sg P2 => f_ + "ondessi" ; --# notpresent - Cong Imperf Sg P3 => f_ + "ondesse" ; --# notpresent - Cong Imperf Pl P1 => f_ + "ondessimo" ; --# notpresent - Cong Imperf Pl P2 => f_ + "ondeste" ; --# notpresent - Cong Imperf Pl P3 => f_ + "ondessero" ; --# notpresent - Cond Sg P1 => f_ + "onderei" ; --# notpresent - Cond Sg P2 => f_ + "onderesti" ; --# notpresent - Cond Sg P3 => f_ + "onderebbe" ; --# notpresent - Cond Pl P1 => f_ + "onderemmo" ; --# notpresent - Cond Pl P2 => f_ + "ondereste" ; --# notpresent - Cond Pl P3 => f_ + "onderebbero" ; --# notpresent - Imper SgP2 => f_ + "ondi" ; - Imper PlP1 => f_ + "ondiamo" ; - Imper PlP2 => f_ + "ondete" ; - Ger => f_ + "ondendo" ; - Part PresP Masc Sg => f_ + "ondente" ; - Part PresP Masc Pl => f_ + "ondenti" ; - Part PresP Fem Sg => f_ + "ondente" ; - Part PresP Fem Pl => f_ + "ondenti" ; - Part PassP Masc Sg => f_ + "uso" ; - Part PassP Masc Pl => f_ + "usi" ; - Part PassP Fem Sg => f_ + "usa" ; - Part PassP Fem Pl => f_ + "use" - } - } ; - -oper giungere_55 : Str -> Verbo = \giungere -> - let giun_ = Predef.tk 4 giungere in - {s = table { - Inf => giun_ + "gere" ; - InfClit => giun_ + "ger" ; - Indi Pres Sg P1 => giun_ + "go" ; - Indi Pres Sg P2 => giun_ + "gi" ; - Indi Pres Sg P3 => giun_ + "ge" ; - Indi Pres Pl P1 => giun_ + "giamo" ; - Indi Pres Pl P2 => giun_ + "gete" ; - Indi Pres Pl P3 => giun_ + "gono" ; - Indi Imperf Sg P1 => giun_ + "gevo" ; --# notpresent - Indi Imperf Sg P2 => giun_ + "gevi" ; --# notpresent - Indi Imperf Sg P3 => giun_ + "geva" ; --# notpresent - Indi Imperf Pl P1 => giun_ + "gevamo" ; --# notpresent - Indi Imperf Pl P2 => giun_ + "gevate" ; --# notpresent - Indi Imperf Pl P3 => giun_ + "gevano" ; --# notpresent - Pass Sg P1 => giun_ + "si" ; --# notpresent - Pass Sg P2 => giun_ + "gesti" ; --# notpresent - Pass Sg P3 => giun_ + "se" ; --# notpresent - Pass Pl P1 => giun_ + "gemmo" ; --# notpresent - Pass Pl P2 => giun_ + "geste" ; --# notpresent - Pass Pl P3 => giun_ + "sero" ; --# notpresent - Fut Sg P1 => giun_ + "gerò" ; --# notpresent - Fut Sg P2 => giun_ + "gerai" ; --# notpresent - Fut Sg P3 => giun_ + "gerà" ; --# notpresent - Fut Pl P1 => giun_ + "geremo" ; --# notpresent - Fut Pl P2 => giun_ + "gerete" ; --# notpresent - Fut Pl P3 => giun_ + "geranno" ; --# notpresent - Cong Pres Sg P1 => giun_ + "ga" ; - Cong Pres Sg P2 => giun_ + "ga" ; - Cong Pres Sg P3 => giun_ + "ga" ; - Cong Pres Pl P1 => giun_ + "giamo" ; - Cong Pres Pl P2 => giun_ + "giate" ; - Cong Pres Pl P3 => giun_ + "gano" ; - Cong Imperf Sg P1 => giun_ + "gessi" ; --# notpresent - Cong Imperf Sg P2 => giun_ + "gessi" ; --# notpresent - Cong Imperf Sg P3 => giun_ + "gesse" ; --# notpresent - Cong Imperf Pl P1 => giun_ + "gessimo" ; --# notpresent - Cong Imperf Pl P2 => giun_ + "geste" ; --# notpresent - Cong Imperf Pl P3 => giun_ + "gessero" ; --# notpresent - Cond Sg P1 => giun_ + "gerei" ; --# notpresent - Cond Sg P2 => giun_ + "geresti" ; --# notpresent - Cond Sg P3 => giun_ + "gerebbe" ; --# notpresent - Cond Pl P1 => giun_ + "geremmo" ; --# notpresent - Cond Pl P2 => giun_ + "gereste" ; --# notpresent - Cond Pl P3 => giun_ + "gerebbero" ; --# notpresent - Imper SgP2 => giun_ + "gi" ; - Imper PlP1 => giun_ + "giamo" ; - Imper PlP2 => giun_ + "gete" ; - Ger => giun_ + "gendo" ; - Part PresP Masc Sg => giun_ + "gente" ; - Part PresP Masc Pl => giun_ + "genti" ; - Part PresP Fem Sg => giun_ + "gente" ; - Part PresP Fem Pl => giun_ + "genti" ; - Part PassP Masc Sg => giun_ + "to" ; - Part PassP Masc Pl => giun_ + "ti" ; - Part PassP Fem Sg => giun_ + "ta" ; - Part PassP Fem Pl => giun_ + "te" - } - } ; - -oper leggere_56 : Str -> Verbo = \leggere -> - let le_ = Predef.tk 5 leggere in - {s = table { - Inf => le_ + "ggere" ; - InfClit => le_ + "gger" ; - Indi Pres Sg P1 => le_ + "ggo" ; - Indi Pres Sg P2 => le_ + "ggi" ; - Indi Pres Sg P3 => le_ + "gge" ; - Indi Pres Pl P1 => le_ + "ggiamo" ; - Indi Pres Pl P2 => le_ + "ggete" ; - Indi Pres Pl P3 => le_ + "ggono" ; - Indi Imperf Sg P1 => le_ + "ggevo" ; --# notpresent - Indi Imperf Sg P2 => le_ + "ggevi" ; --# notpresent - Indi Imperf Sg P3 => le_ + "ggeva" ; --# notpresent - Indi Imperf Pl P1 => le_ + "ggevamo" ; --# notpresent - Indi Imperf Pl P2 => le_ + "ggevate" ; --# notpresent - Indi Imperf Pl P3 => le_ + "ggevano" ; --# notpresent - Pass Sg P1 => le_ + "ssi" ; --# notpresent - Pass Sg P2 => le_ + "ggesti" ; --# notpresent - Pass Sg P3 => le_ + "sse" ; --# notpresent - Pass Pl P1 => le_ + "ggemmo" ; --# notpresent - Pass Pl P2 => le_ + "ggeste" ; --# notpresent - Pass Pl P3 => le_ + "ssero" ; --# notpresent - Fut Sg P1 => le_ + "ggerò" ; --# notpresent - Fut Sg P2 => le_ + "ggerai" ; --# notpresent - Fut Sg P3 => le_ + "ggerà" ; --# notpresent - Fut Pl P1 => le_ + "ggeremo" ; --# notpresent - Fut Pl P2 => le_ + "ggerete" ; --# notpresent - Fut Pl P3 => le_ + "ggeranno" ; --# notpresent - Cong Pres Sg P1 => le_ + "gga" ; - Cong Pres Sg P2 => le_ + "gga" ; - Cong Pres Sg P3 => le_ + "gga" ; - Cong Pres Pl P1 => le_ + "ggiamo" ; - Cong Pres Pl P2 => le_ + "ggiate" ; - Cong Pres Pl P3 => le_ + "ggano" ; - Cong Imperf Sg P1 => le_ + "ggessi" ; --# notpresent - Cong Imperf Sg P2 => le_ + "ggessi" ; --# notpresent - Cong Imperf Sg P3 => le_ + "ggesse" ; --# notpresent - Cong Imperf Pl P1 => le_ + "ggessimo" ; --# notpresent - Cong Imperf Pl P2 => le_ + "ggeste" ; --# notpresent - Cong Imperf Pl P3 => le_ + "ggessero" ; --# notpresent - Cond Sg P1 => le_ + "ggerei" ; --# notpresent - Cond Sg P2 => le_ + "ggeresti" ; --# notpresent - Cond Sg P3 => le_ + "ggerebbe" ; --# notpresent - Cond Pl P1 => le_ + "ggeremmo" ; --# notpresent - Cond Pl P2 => le_ + "ggereste" ; --# notpresent - Cond Pl P3 => le_ + "ggerebbero" ; --# notpresent - Imper SgP2 => le_ + "ggi" ; - Imper PlP1 => le_ + "ggiamo" ; - Imper PlP2 => le_ + "ggete" ; - Ger => le_ + "ggendo" ; - Part PresP Masc Sg => le_ + "ggente" ; - Part PresP Masc Pl => le_ + "ggenti" ; - Part PresP Fem Sg => le_ + "ggente" ; - Part PresP Fem Pl => le_ + "ggenti" ; - Part PassP Masc Sg => le_ + "tto" ; - Part PassP Masc Pl => le_ + "tti" ; - Part PassP Fem Sg => le_ + "tta" ; - Part PassP Fem Pl => le_ + "tte" - } - } ; - -oper mettere_57 : Str -> Verbo = \mettere -> - let m_ = Predef.tk 6 mettere in - {s = table { - Inf => m_ + "ettere" ; - InfClit => m_ + "etter" ; - Indi Pres Sg P1 => m_ + "etto" ; - Indi Pres Sg P2 => m_ + "etti" ; - Indi Pres Sg P3 => m_ + "ette" ; - Indi Pres Pl P1 => m_ + "ettiamo" ; - Indi Pres Pl P2 => m_ + "ettete" ; - Indi Pres Pl P3 => m_ + "ettono" ; - Indi Imperf Sg P1 => m_ + "ettevo" ; --# notpresent - Indi Imperf Sg P2 => m_ + "ettevi" ; --# notpresent - Indi Imperf Sg P3 => m_ + "etteva" ; --# notpresent - Indi Imperf Pl P1 => m_ + "ettevamo" ; --# notpresent - Indi Imperf Pl P2 => m_ + "ettevate" ; --# notpresent - Indi Imperf Pl P3 => m_ + "ettevano" ; --# notpresent - Pass Sg P1 => m_ + "isi" ; --# notpresent - Pass Sg P2 => m_ + "ettesti" ; --# notpresent - Pass Sg P3 => m_ + "ise" ; --# notpresent - Pass Pl P1 => m_ + "ettemmo" ; --# notpresent - Pass Pl P2 => m_ + "etteste" ; --# notpresent - Pass Pl P3 => m_ + "isero" ; --# notpresent - Fut Sg P1 => m_ + "etterò" ; --# notpresent - Fut Sg P2 => m_ + "etterai" ; --# notpresent - Fut Sg P3 => m_ + "etterà" ; --# notpresent - Fut Pl P1 => m_ + "etteremo" ; --# notpresent - Fut Pl P2 => m_ + "etterete" ; --# notpresent - Fut Pl P3 => m_ + "etteranno" ; --# notpresent - Cong Pres Sg P1 => m_ + "etta" ; - Cong Pres Sg P2 => m_ + "etta" ; - Cong Pres Sg P3 => m_ + "etta" ; - Cong Pres Pl P1 => m_ + "ettiamo" ; - Cong Pres Pl P2 => m_ + "ettiate" ; - Cong Pres Pl P3 => m_ + "ettano" ; - Cong Imperf Sg P1 => m_ + "ettessi" ; --# notpresent - Cong Imperf Sg P2 => m_ + "ettessi" ; --# notpresent - Cong Imperf Sg P3 => m_ + "ettesse" ; --# notpresent - Cong Imperf Pl P1 => m_ + "ettessimo" ; --# notpresent - Cong Imperf Pl P2 => m_ + "etteste" ; --# notpresent - Cong Imperf Pl P3 => m_ + "ettessero" ; --# notpresent - Cond Sg P1 => m_ + "etterei" ; --# notpresent - Cond Sg P2 => m_ + "etteresti" ; --# notpresent - Cond Sg P3 => m_ + "etterebbe" ; --# notpresent - Cond Pl P1 => m_ + "etteremmo" ; --# notpresent - Cond Pl P2 => m_ + "ettereste" ; --# notpresent - Cond Pl P3 => m_ + "etterebbero" ; --# notpresent - Imper SgP2 => m_ + "etti" ; - Imper PlP1 => m_ + "ettiamo" ; - Imper PlP2 => m_ + "ettete" ; - Ger => m_ + "ettendo" ; - Part PresP Masc Sg => m_ + "ettente" ; - Part PresP Masc Pl => m_ + "ettenti" ; - Part PresP Fem Sg => m_ + "ettente" ; - Part PresP Fem Pl => m_ + "ettenti" ; - Part PassP Masc Sg => m_ + "esso" ; - Part PassP Masc Pl => m_ + "essi" ; - Part PassP Fem Sg => m_ + "essa" ; - Part PassP Fem Pl => m_ + "esse" - } - } ; - -oper muovere_58 : Str -> Verbo = \muovere -> - let m_ = Predef.tk 6 muovere in - {s = table { - Inf => m_ + "uovere" ; - InfClit => m_ + "uover" ; - Indi Pres Sg P1 => m_ + "uovo" ; - Indi Pres Sg P2 => m_ + "uovi" ; - Indi Pres Sg P3 => m_ + "uove" ; - Indi Pres Pl P1 => m_ + "uoviamo" ; - Indi Pres Pl P2 => m_ + "uovete" ; - Indi Pres Pl P3 => m_ + "uovono" ; - Indi Imperf Sg P1 => m_ + "uovevo" ; --# notpresent - Indi Imperf Sg P2 => m_ + "uovevi" ; --# notpresent - Indi Imperf Sg P3 => m_ + "uoveva" ; --# notpresent - Indi Imperf Pl P1 => m_ + "uovevamo" ; --# notpresent - Indi Imperf Pl P2 => m_ + "uovevate" ; --# notpresent - Indi Imperf Pl P3 => m_ + "uovevano" ; --# notpresent - Pass Sg P1 => m_ + "ossi" ; --# notpresent - Pass Sg P2 => m_ + "uovesti" ; --# notpresent - Pass Sg P3 => m_ + "osse" ; --# notpresent - Pass Pl P1 => m_ + "uovemmo" ; --# notpresent - Pass Pl P2 => m_ + "uoveste" ; --# notpresent - Pass Pl P3 => m_ + "ossero" ; --# notpresent - Fut Sg P1 => m_ + "uoverò" ; --# notpresent - Fut Sg P2 => m_ + "uoverai" ; --# notpresent - Fut Sg P3 => m_ + "uoverà" ; --# notpresent - Fut Pl P1 => m_ + "uoveremo" ; --# notpresent - Fut Pl P2 => m_ + "uoverete" ; --# notpresent - Fut Pl P3 => m_ + "uoveranno" ; --# notpresent - Cong Pres Sg P1 => m_ + "uova" ; - Cong Pres Sg P2 => m_ + "uova" ; - Cong Pres Sg P3 => m_ + "uova" ; - Cong Pres Pl P1 => m_ + "uoviamo" ; - Cong Pres Pl P2 => m_ + "uoviate" ; - Cong Pres Pl P3 => m_ + "uovano" ; - Cong Imperf Sg P1 => m_ + "uovessi" ; --# notpresent - Cong Imperf Sg P2 => m_ + "uovessi" ; --# notpresent - Cong Imperf Sg P3 => m_ + "uovesse" ; --# notpresent - Cong Imperf Pl P1 => m_ + "uovessimo" ; --# notpresent - Cong Imperf Pl P2 => m_ + "uoveste" ; --# notpresent - Cong Imperf Pl P3 => m_ + "uovessero" ; --# notpresent - Cond Sg P1 => m_ + "uoverei" ; --# notpresent - Cond Sg P2 => m_ + "uoveresti" ; --# notpresent - Cond Sg P3 => m_ + "uoverebbe" ; --# notpresent - Cond Pl P1 => m_ + "uoveremmo" ; --# notpresent - Cond Pl P2 => m_ + "uovereste" ; --# notpresent - Cond Pl P3 => m_ + "uoverebbero" ; --# notpresent - Imper SgP2 => m_ + "uovi" ; - Imper PlP1 => m_ + "uoviamo" ; - Imper PlP2 => m_ + "uovete" ; - Ger => m_ + "uovendo" ; - Part PresP Masc Sg => m_ + "uovente" ; - Part PresP Masc Pl => m_ + "uoventi" ; - Part PresP Fem Sg => m_ + "uovente" ; - Part PresP Fem Pl => m_ + "uoventi" ; - Part PassP Masc Sg => m_ + "osso" ; - Part PassP Masc Pl => m_ + "ossi" ; - Part PassP Fem Sg => m_ + "ossa" ; - Part PassP Fem Pl => m_ + "osse" - } - } ; - -oper nascere_59 : Str -> Verbo = \nascere -> - let na_ = Predef.tk 5 nascere in - {s = table { - Inf => na_ + "scere" ; - InfClit => na_ + "scer" ; - Indi Pres Sg P1 => na_ + "sco" ; - Indi Pres Sg P2 => na_ + "sci" ; - Indi Pres Sg P3 => na_ + "sce" ; - Indi Pres Pl P1 => na_ + "sciamo" ; - Indi Pres Pl P2 => na_ + "scete" ; - Indi Pres Pl P3 => na_ + "scono" ; - Indi Imperf Sg P1 => na_ + "scevo" ; --# notpresent - Indi Imperf Sg P2 => na_ + "scevi" ; --# notpresent - Indi Imperf Sg P3 => na_ + "sceva" ; --# notpresent - Indi Imperf Pl P1 => na_ + "scevamo" ; --# notpresent - Indi Imperf Pl P2 => na_ + "scevate" ; --# notpresent - Indi Imperf Pl P3 => na_ + "scevano" ; --# notpresent - Pass Sg P1 => na_ + "cqui" ; --# notpresent - Pass Sg P2 => na_ + "scesti" ; --# notpresent - Pass Sg P3 => na_ + "cque" ; --# notpresent - Pass Pl P1 => na_ + "scemmo" ; --# notpresent - Pass Pl P2 => na_ + "sceste" ; --# notpresent - Pass Pl P3 => na_ + "cquero" ; --# notpresent - Fut Sg P1 => na_ + "scerò" ; --# notpresent - Fut Sg P2 => na_ + "scerai" ; --# notpresent - Fut Sg P3 => na_ + "scerà" ; --# notpresent - Fut Pl P1 => na_ + "sceremo" ; --# notpresent - Fut Pl P2 => na_ + "scerete" ; --# notpresent - Fut Pl P3 => na_ + "sceranno" ; --# notpresent - Cong Pres Sg P1 => na_ + "sca" ; - Cong Pres Sg P2 => na_ + "sca" ; - Cong Pres Sg P3 => na_ + "sca" ; - Cong Pres Pl P1 => na_ + "sciamo" ; - Cong Pres Pl P2 => na_ + "sciate" ; - Cong Pres Pl P3 => na_ + "scano" ; - Cong Imperf Sg P1 => na_ + "scessi" ; --# notpresent - Cong Imperf Sg P2 => na_ + "scessi" ; --# notpresent - Cong Imperf Sg P3 => na_ + "scesse" ; --# notpresent - Cong Imperf Pl P1 => na_ + "scessimo" ; --# notpresent - Cong Imperf Pl P2 => na_ + "sceste" ; --# notpresent - Cong Imperf Pl P3 => na_ + "scessero" ; --# notpresent - Cond Sg P1 => na_ + "scerei" ; --# notpresent - Cond Sg P2 => na_ + "sceresti" ; --# notpresent - Cond Sg P3 => na_ + "scerebbe" ; --# notpresent - Cond Pl P1 => na_ + "sceremmo" ; --# notpresent - Cond Pl P2 => na_ + "scereste" ; --# notpresent - Cond Pl P3 => na_ + "scerebbero" ; --# notpresent - Imper SgP2 => na_ + "sci" ; - Imper PlP1 => na_ + "sciamo" ; - Imper PlP2 => na_ + "scete" ; - Ger => na_ + "scendo" ; - Part PresP Masc Sg => na_ + "scente" ; - Part PresP Masc Pl => na_ + "scenti" ; - Part PresP Fem Sg => na_ + "scente" ; - Part PresP Fem Pl => na_ + "scenti" ; - Part PassP Masc Sg => na_ + "to" ; - Part PassP Masc Pl => na_ + "ti" ; - Part PassP Fem Sg => na_ + "ta" ; - Part PassP Fem Pl => na_ + "te" - } - } ; - -oper nuocere_60 : Str -> Verbo = \nuocere -> - let n_ = Predef.tk 6 nuocere in - {s = table { - Inf => n_ + "uocere" ; - InfClit => n_ + "uocer" ; - Indi Pres Sg P1 => n_ + "uoccio" ; - Indi Pres Sg P2 => n_ + "uoci" ; - Indi Pres Sg P3 => n_ + "uoce" ; - Indi Pres Pl P1 => n_ + "uociamo" ; - Indi Pres Pl P2 => n_ + "uocete" ; - Indi Pres Pl P3 => n_ + "uocciono" ; - Indi Imperf Sg P1 => n_ + "uocevo" ; --# notpresent - Indi Imperf Sg P2 => n_ + "uocevi" ; --# notpresent - Indi Imperf Sg P3 => n_ + "uoceva" ; --# notpresent - Indi Imperf Pl P1 => n_ + "uocevamo" ; --# notpresent - Indi Imperf Pl P2 => n_ + "uocevate" ; --# notpresent - Indi Imperf Pl P3 => n_ + "uocevano" ; --# notpresent - Pass Sg P1 => n_ + "ocqui" ; --# notpresent - Pass Sg P2 => n_ + "uocesti" ; --# notpresent - Pass Sg P3 => n_ + "ocque" ; --# notpresent - Pass Pl P1 => n_ + "uocemmo" ; --# notpresent - Pass Pl P2 => n_ + "uoceste" ; --# notpresent - Pass Pl P3 => n_ + "ocquero" ; --# notpresent - Fut Sg P1 => n_ + "uocerò" ; --# notpresent - Fut Sg P2 => n_ + "uocerai" ; --# notpresent - Fut Sg P3 => n_ + "uocerà" ; --# notpresent - Fut Pl P1 => n_ + "uoceremo" ; --# notpresent - Fut Pl P2 => n_ + "uocerete" ; --# notpresent - Fut Pl P3 => n_ + "uoceranno" ; --# notpresent - Cong Pres Sg P1 => n_ + "uoccia" ; - Cong Pres Sg P2 => n_ + "uoccia" ; - Cong Pres Sg P3 => n_ + "uoccia" ; - Cong Pres Pl P1 => n_ + "uociamo" ; - Cong Pres Pl P2 => n_ + "uociate" ; - Cong Pres Pl P3 => n_ + "uocciano" ; - Cong Imperf Sg P1 => n_ + "uocessi" ; --# notpresent - Cong Imperf Sg P2 => n_ + "uocessi" ; --# notpresent - Cong Imperf Sg P3 => n_ + "uocesse" ; --# notpresent - Cong Imperf Pl P1 => n_ + "uocessimo" ; --# notpresent - Cong Imperf Pl P2 => n_ + "uoceste" ; --# notpresent - Cong Imperf Pl P3 => n_ + "uocessero" ; --# notpresent - Cond Sg P1 => n_ + "uocerei" ; --# notpresent - Cond Sg P2 => n_ + "uoceresti" ; --# notpresent - Cond Sg P3 => n_ + "uocerebbe" ; --# notpresent - Cond Pl P1 => n_ + "uoceremmo" ; --# notpresent - Cond Pl P2 => n_ + "uocereste" ; --# notpresent - Cond Pl P3 => n_ + "uocerebbero" ; --# notpresent - Imper SgP2 => n_ + "uoci" ; - Imper PlP1 => n_ + "uociamo" ; - Imper PlP2 => n_ + "uocete" ; - Ger => n_ + "uocendo" ; - Part PresP Masc Sg => n_ + "uocente" ; - Part PresP Masc Pl => n_ + "uocenti" ; - Part PresP Fem Sg => n_ + "uocente" ; - Part PresP Fem Pl => n_ + "uocenti" ; - Part PassP Masc Sg => n_ + "uociuto" ; - Part PassP Masc Pl => n_ + "uociuti" ; - Part PassP Fem Sg => n_ + "uociuta" ; - Part PassP Fem Pl => n_ + "uociute" - } - } ; - -oper parere_61 : Str -> Verbo = \parere -> - let pa_ = Predef.tk 4 parere in - {s = table { - Inf => pa_ + "rere" ; - InfClit => pa_ + "rer" ; - Indi Pres Sg P1 => pa_ + "io" ; - Indi Pres Sg P2 => pa_ + "ri" ; - Indi Pres Sg P3 => pa_ + "re" ; - Indi Pres Pl P1 => pa_ + "riamo" ; - Indi Pres Pl P2 => pa_ + "rete" ; - Indi Pres Pl P3 => pa_ + "iono" ; - Indi Imperf Sg P1 => pa_ + "revo" ; --# notpresent - Indi Imperf Sg P2 => pa_ + "revi" ; --# notpresent - Indi Imperf Sg P3 => pa_ + "reva" ; --# notpresent - Indi Imperf Pl P1 => pa_ + "revamo" ; --# notpresent - Indi Imperf Pl P2 => pa_ + "revate" ; --# notpresent - Indi Imperf Pl P3 => pa_ + "revano" ; --# notpresent - Pass Sg P1 => pa_ + "rvi" ; --# notpresent - Pass Sg P2 => pa_ + "resti" ; --# notpresent - Pass Sg P3 => pa_ + "rve" ; --# notpresent - Pass Pl P1 => pa_ + "remmo" ; --# notpresent - Pass Pl P2 => pa_ + "reste" ; --# notpresent - Pass Pl P3 => pa_ + "rvero" ; --# notpresent - Fut Sg P1 => pa_ + "rrò" ; --# notpresent - Fut Sg P2 => pa_ + "rrai" ; --# notpresent - Fut Sg P3 => pa_ + "rrà" ; --# notpresent - Fut Pl P1 => pa_ + "rremo" ; --# notpresent - Fut Pl P2 => pa_ + "rrete" ; --# notpresent - Fut Pl P3 => pa_ + "rranno" ; --# notpresent - Cong Pres Sg P1 => pa_ + "ia" ; - Cong Pres Sg P2 => pa_ + "ia" ; - Cong Pres Sg P3 => pa_ + "ia" ; - Cong Pres Pl P1 => pa_ + "riamo" ; - Cong Pres Pl P2 => pa_ + "riate" ; - Cong Pres Pl P3 => pa_ + "iano" ; - Cong Imperf Sg P1 => pa_ + "ressi" ; --# notpresent - Cong Imperf Sg P2 => pa_ + "ressi" ; --# notpresent - Cong Imperf Sg P3 => pa_ + "resse" ; --# notpresent - Cong Imperf Pl P1 => pa_ + "ressimo" ; --# notpresent - Cong Imperf Pl P2 => pa_ + "reste" ; --# notpresent - Cong Imperf Pl P3 => pa_ + "ressero" ; --# notpresent - Cond Sg P1 => pa_ + "rrei" ; --# notpresent - Cond Sg P2 => pa_ + "rresti" ; --# notpresent - Cond Sg P3 => pa_ + "rrebbe" ; --# notpresent - Cond Pl P1 => pa_ + "rremmo" ; --# notpresent - Cond Pl P2 => pa_ + "rreste" ; --# notpresent - Cond Pl P3 => pa_ + "rrebbero" ; --# notpresent - Imper SgP2 => variants {} ; - Imper PlP1 => variants {} ; - Imper PlP2 => variants {} ; - Ger => pa_ + "rendo" ; - Part PresP Masc Sg => pa_ + "rvente" ; - Part PresP Masc Pl => pa_ + "rventi" ; - Part PresP Fem Sg => pa_ + "rvente" ; - Part PresP Fem Pl => pa_ + "rventi" ; - Part PassP Masc Sg => pa_ + "rso" ; - Part PassP Masc Pl => pa_ + "rsi" ; - Part PassP Fem Sg => pa_ + "rsa" ; - Part PassP Fem Pl => pa_ + "rse" - } - } ; - -oper perdere_62 : Str -> Verbo = \perdere -> - let per_ = Predef.tk 4 perdere in - {s = table { - Inf => per_ + "dere" ; - InfClit => per_ + "der" ; - Indi Pres Sg P1 => per_ + "do" ; - Indi Pres Sg P2 => per_ + "di" ; - Indi Pres Sg P3 => per_ + "de" ; - Indi Pres Pl P1 => per_ + "diamo" ; - Indi Pres Pl P2 => per_ + "dete" ; - Indi Pres Pl P3 => per_ + "dono" ; - Indi Imperf Sg P1 => per_ + "devo" ; --# notpresent - Indi Imperf Sg P2 => per_ + "devi" ; --# notpresent - Indi Imperf Sg P3 => per_ + "deva" ; --# notpresent - Indi Imperf Pl P1 => per_ + "devamo" ; --# notpresent - Indi Imperf Pl P2 => per_ + "devate" ; --# notpresent - Indi Imperf Pl P3 => per_ + "devano" ; --# notpresent - Pass Sg P1 => per_ + "si" ; --# notpresent - Pass Sg P2 => per_ + "desti" ; --# notpresent - Pass Sg P3 => per_ + "se" ; --# notpresent - Pass Pl P1 => per_ + "demmo" ; --# notpresent - Pass Pl P2 => per_ + "deste" ; --# notpresent - Pass Pl P3 => per_ + "sero" ; --# notpresent - Fut Sg P1 => per_ + "derò" ; --# notpresent - Fut Sg P2 => per_ + "derai" ; --# notpresent - Fut Sg P3 => per_ + "derà" ; --# notpresent - Fut Pl P1 => per_ + "deremo" ; --# notpresent - Fut Pl P2 => per_ + "derete" ; --# notpresent - Fut Pl P3 => per_ + "deranno" ; --# notpresent - Cong Pres Sg P1 => per_ + "da" ; - Cong Pres Sg P2 => per_ + "da" ; - Cong Pres Sg P3 => per_ + "da" ; - Cong Pres Pl P1 => per_ + "diamo" ; - Cong Pres Pl P2 => per_ + "diate" ; - Cong Pres Pl P3 => per_ + "dano" ; - Cong Imperf Sg P1 => per_ + "dessi" ; --# notpresent - Cong Imperf Sg P2 => per_ + "dessi" ; --# notpresent - Cong Imperf Sg P3 => per_ + "desse" ; --# notpresent - Cong Imperf Pl P1 => per_ + "dessimo" ; --# notpresent - Cong Imperf Pl P2 => per_ + "deste" ; --# notpresent - Cong Imperf Pl P3 => per_ + "dessero" ; --# notpresent - Cond Sg P1 => per_ + "derei" ; --# notpresent - Cond Sg P2 => per_ + "deresti" ; --# notpresent - Cond Sg P3 => per_ + "derebbe" ; --# notpresent - Cond Pl P1 => per_ + "deremmo" ; --# notpresent - Cond Pl P2 => per_ + "dereste" ; --# notpresent - Cond Pl P3 => per_ + "derebbero" ; --# notpresent - Imper SgP2 => per_ + "di" ; - Imper PlP1 => per_ + "diamo" ; - Imper PlP2 => per_ + "dete" ; - Ger => per_ + "dendo" ; - Part PresP Masc Sg => per_ + "dente" ; - Part PresP Masc Pl => per_ + "denti" ; - Part PresP Fem Sg => per_ + "dente" ; - Part PresP Fem Pl => per_ + "denti" ; - Part PassP Masc Sg => variants {per_ + "duto" ; per_ + "so"} ; - Part PassP Masc Pl => variants {per_ + "duti" ; per_ + "si"} ; - Part PassP Fem Sg => variants {per_ + "duta" ; per_ + "sa"} ; - Part PassP Fem Pl => variants {per_ + "dute" ; per_ + "se"} - } - } ; - -oper persuadere_63 : Str -> Verbo = \persuadere -> - let persua_ = Predef.tk 4 persuadere in - {s = table { - Inf => persua_ + "dere" ; - InfClit => persua_ + "der" ; - Indi Pres Sg P1 => persua_ + "do" ; - Indi Pres Sg P2 => persua_ + "di" ; - Indi Pres Sg P3 => persua_ + "de" ; - Indi Pres Pl P1 => persua_ + "diamo" ; - Indi Pres Pl P2 => persua_ + "dete" ; - Indi Pres Pl P3 => persua_ + "dono" ; - Indi Imperf Sg P1 => persua_ + "devo" ; --# notpresent - Indi Imperf Sg P2 => persua_ + "devi" ; --# notpresent - Indi Imperf Sg P3 => persua_ + "deva" ; --# notpresent - Indi Imperf Pl P1 => persua_ + "devamo" ; --# notpresent - Indi Imperf Pl P2 => persua_ + "devate" ; --# notpresent - Indi Imperf Pl P3 => persua_ + "devano" ; --# notpresent - Pass Sg P1 => persua_ + "si" ; --# notpresent - Pass Sg P2 => persua_ + "desti" ; --# notpresent - Pass Sg P3 => persua_ + "se" ; --# notpresent - Pass Pl P1 => persua_ + "demmo" ; --# notpresent - Pass Pl P2 => persua_ + "deste" ; --# notpresent - Pass Pl P3 => persua_ + "sero" ; --# notpresent - Fut Sg P1 => persua_ + "derò" ; --# notpresent - Fut Sg P2 => persua_ + "derai" ; --# notpresent - Fut Sg P3 => persua_ + "derà" ; --# notpresent - Fut Pl P1 => persua_ + "deremo" ; --# notpresent - Fut Pl P2 => persua_ + "derete" ; --# notpresent - Fut Pl P3 => persua_ + "deranno" ; --# notpresent - Cong Pres Sg P1 => persua_ + "da" ; - Cong Pres Sg P2 => persua_ + "da" ; - Cong Pres Sg P3 => persua_ + "da" ; - Cong Pres Pl P1 => persua_ + "diamo" ; - Cong Pres Pl P2 => persua_ + "diate" ; - Cong Pres Pl P3 => persua_ + "dano" ; - Cong Imperf Sg P1 => persua_ + "dessi" ; --# notpresent - Cong Imperf Sg P2 => persua_ + "dessi" ; --# notpresent - Cong Imperf Sg P3 => persua_ + "desse" ; --# notpresent - Cong Imperf Pl P1 => persua_ + "dessimo" ; --# notpresent - Cong Imperf Pl P2 => persua_ + "deste" ; --# notpresent - Cong Imperf Pl P3 => persua_ + "dessero" ; --# notpresent - Cond Sg P1 => persua_ + "derei" ; --# notpresent - Cond Sg P2 => persua_ + "deresti" ; --# notpresent - Cond Sg P3 => persua_ + "derebbe" ; --# notpresent - Cond Pl P1 => persua_ + "deremmo" ; --# notpresent - Cond Pl P2 => persua_ + "dereste" ; --# notpresent - Cond Pl P3 => persua_ + "derebbero" ; --# notpresent - Imper SgP2 => persua_ + "di" ; - Imper PlP1 => persua_ + "diamo" ; - Imper PlP2 => persua_ + "dete" ; - Ger => persua_ + "dendo" ; - Part PresP Masc Sg => persua_ + "dente" ; - Part PresP Masc Pl => persua_ + "denti" ; - Part PresP Fem Sg => persua_ + "dente" ; - Part PresP Fem Pl => persua_ + "denti" ; - Part PassP Masc Sg => persua_ + "so" ; - Part PassP Masc Pl => persua_ + "si" ; - Part PassP Fem Sg => persua_ + "sa" ; - Part PassP Fem Pl => persua_ + "se" - } - } ; - -oper piacere_64 : Str -> Verbo = \piacerecere -> - let piacerec_ = Predef.tk 3 piacerecere in - {s = table { - Inf => piacerec_ + "ere" ; - InfClit => piacerec_ + "er" ; - Indi Pres Sg P1 => piacerec_ + "cio" ; - Indi Pres Sg P2 => piacerec_ + "i" ; - Indi Pres Sg P3 => piacerec_ + "e" ; - Indi Pres Pl P1 => piacerec_ + "iamo" ; - Indi Pres Pl P2 => piacerec_ + "ete" ; - Indi Pres Pl P3 => piacerec_ + "ciono" ; - Indi Imperf Sg P1 => piacerec_ + "evo" ; --# notpresent - Indi Imperf Sg P2 => piacerec_ + "evi" ; --# notpresent - Indi Imperf Sg P3 => piacerec_ + "eva" ; --# notpresent - Indi Imperf Pl P1 => piacerec_ + "evamo" ; --# notpresent - Indi Imperf Pl P2 => piacerec_ + "evate" ; --# notpresent - Indi Imperf Pl P3 => piacerec_ + "evano" ; --# notpresent - Pass Sg P1 => piacerec_ + "qui" ; --# notpresent - Pass Sg P2 => piacerec_ + "esti" ; --# notpresent - Pass Sg P3 => piacerec_ + "que" ; --# notpresent - Pass Pl P1 => piacerec_ + "emmo" ; --# notpresent - Pass Pl P2 => piacerec_ + "este" ; --# notpresent - Pass Pl P3 => piacerec_ + "quero" ; --# notpresent - Fut Sg P1 => piacerec_ + "erò" ; --# notpresent - Fut Sg P2 => piacerec_ + "erai" ; --# notpresent - Fut Sg P3 => piacerec_ + "erà" ; --# notpresent - Fut Pl P1 => piacerec_ + "eremo" ; --# notpresent - Fut Pl P2 => piacerec_ + "erete" ; --# notpresent - Fut Pl P3 => piacerec_ + "eranno" ; --# notpresent - Cong Pres Sg P1 => piacerec_ + "cia" ; - Cong Pres Sg P2 => piacerec_ + "cia" ; - Cong Pres Sg P3 => piacerec_ + "cia" ; - Cong Pres Pl P1 => piacerec_ + "iamo" ; - Cong Pres Pl P2 => piacerec_ + "iate" ; - Cong Pres Pl P3 => piacerec_ + "ciano" ; - Cong Imperf Sg P1 => piacerec_ + "essi" ; --# notpresent - Cong Imperf Sg P2 => piacerec_ + "essi" ; --# notpresent - Cong Imperf Sg P3 => piacerec_ + "esse" ; --# notpresent - Cong Imperf Pl P1 => piacerec_ + "essimo" ; --# notpresent - Cong Imperf Pl P2 => piacerec_ + "este" ; --# notpresent - Cong Imperf Pl P3 => piacerec_ + "essero" ; --# notpresent - Cond Sg P1 => piacerec_ + "erei" ; --# notpresent - Cond Sg P2 => piacerec_ + "eresti" ; --# notpresent - Cond Sg P3 => piacerec_ + "erebbe" ; --# notpresent - Cond Pl P1 => piacerec_ + "eremmo" ; --# notpresent - Cond Pl P2 => piacerec_ + "ereste" ; --# notpresent - Cond Pl P3 => piacerec_ + "erebbero" ; --# notpresent - Imper SgP2 => piacerec_ + "i" ; - Imper PlP1 => piacerec_ + "iamo" ; - Imper PlP2 => piacerec_ + "ete" ; - Ger => piacerec_ + "endo" ; - Part PresP Masc Sg => piacerec_ + "ente" ; - Part PresP Masc Pl => piacerec_ + "enti" ; - Part PresP Fem Sg => piacerec_ + "ente" ; - Part PresP Fem Pl => piacerec_ + "enti" ; - Part PassP Masc Sg => piacerec_ + "iuto" ; - Part PassP Masc Pl => piacerec_ + "iuti" ; - Part PassP Fem Sg => piacerec_ + "iuta" ; - Part PassP Fem Pl => piacerec_ + "iute" - } - } ; - -oper piangere_65 : Str -> Verbo = \piangere -> - let pian_ = Predef.tk 4 piangere in - {s = table { - Inf => pian_ + "gere" ; - InfClit => pian_ + "ger" ; - Indi Pres Sg P1 => pian_ + "go" ; - Indi Pres Sg P2 => pian_ + "gi" ; - Indi Pres Sg P3 => pian_ + "ge" ; - Indi Pres Pl P1 => pian_ + "giamo" ; - Indi Pres Pl P2 => pian_ + "gete" ; - Indi Pres Pl P3 => pian_ + "gono" ; - Indi Imperf Sg P1 => pian_ + "gevo" ; --# notpresent - Indi Imperf Sg P2 => pian_ + "gevi" ; --# notpresent - Indi Imperf Sg P3 => pian_ + "geva" ; --# notpresent - Indi Imperf Pl P1 => pian_ + "gevamo" ; --# notpresent - Indi Imperf Pl P2 => pian_ + "gevate" ; --# notpresent - Indi Imperf Pl P3 => pian_ + "gevano" ; --# notpresent - Pass Sg P1 => pian_ + "si" ; --# notpresent - Pass Sg P2 => pian_ + "gesti" ; --# notpresent - Pass Sg P3 => pian_ + "se" ; --# notpresent - Pass Pl P1 => pian_ + "gemmo" ; --# notpresent - Pass Pl P2 => pian_ + "geste" ; --# notpresent - Pass Pl P3 => pian_ + "sero" ; --# notpresent - Fut Sg P1 => pian_ + "gerò" ; --# notpresent - Fut Sg P2 => pian_ + "gerai" ; --# notpresent - Fut Sg P3 => pian_ + "gerà" ; --# notpresent - Fut Pl P1 => pian_ + "geremo" ; --# notpresent - Fut Pl P2 => pian_ + "gerete" ; --# notpresent - Fut Pl P3 => pian_ + "geranno" ; --# notpresent - Cong Pres Sg P1 => pian_ + "ga" ; - Cong Pres Sg P2 => pian_ + "ga" ; - Cong Pres Sg P3 => pian_ + "ga" ; - Cong Pres Pl P1 => pian_ + "giamo" ; - Cong Pres Pl P2 => pian_ + "giate" ; - Cong Pres Pl P3 => pian_ + "gano" ; - Cong Imperf Sg P1 => pian_ + "gessi" ; --# notpresent - Cong Imperf Sg P2 => pian_ + "gessi" ; --# notpresent - Cong Imperf Sg P3 => pian_ + "gesse" ; --# notpresent - Cong Imperf Pl P1 => pian_ + "gessimo" ; --# notpresent - Cong Imperf Pl P2 => pian_ + "geste" ; --# notpresent - Cong Imperf Pl P3 => pian_ + "gessero" ; --# notpresent - Cond Sg P1 => pian_ + "gerei" ; --# notpresent - Cond Sg P2 => pian_ + "geresti" ; --# notpresent - Cond Sg P3 => pian_ + "gerebbe" ; --# notpresent - Cond Pl P1 => pian_ + "geremmo" ; --# notpresent - Cond Pl P2 => pian_ + "gereste" ; --# notpresent - Cond Pl P3 => pian_ + "gerebbero" ; --# notpresent - Imper SgP2 => pian_ + "gi" ; - Imper PlP1 => pian_ + "giamo" ; - Imper PlP2 => pian_ + "gete" ; - Ger => pian_ + "gendo" ; - Part PresP Masc Sg => pian_ + "gente" ; - Part PresP Masc Pl => pian_ + "genti" ; - Part PresP Fem Sg => pian_ + "gente" ; - Part PresP Fem Pl => pian_ + "genti" ; - Part PassP Masc Sg => pian_ + "to" ; - Part PassP Masc Pl => pian_ + "ti" ; - Part PassP Fem Sg => pian_ + "ta" ; - Part PassP Fem Pl => pian_ + "te" - } - } ; - -oper piovere_66 : Str -> Verbo = \piovere -> - let piov_ = Predef.tk 3 piovere in - {s = table { - Inf => piov_ + "ere" ; - InfClit => piov_ + "er" ; - Indi Pres Sg P1 => piov_ + "o" ; - Indi Pres Sg P2 => piov_ + "i" ; - Indi Pres Sg P3 => piov_ + "e" ; - Indi Pres Pl P1 => piov_ + "iamo" ; - Indi Pres Pl P2 => piov_ + "ete" ; - Indi Pres Pl P3 => piov_ + "ono" ; - Indi Imperf Sg P1 => piov_ + "evo" ; --# notpresent - Indi Imperf Sg P2 => piov_ + "evi" ; --# notpresent - Indi Imperf Sg P3 => piov_ + "eva" ; --# notpresent - Indi Imperf Pl P1 => piov_ + "evamo" ; --# notpresent - Indi Imperf Pl P2 => piov_ + "evate" ; --# notpresent - Indi Imperf Pl P3 => piov_ + "evano" ; --# notpresent - Pass Sg P1 => piov_ + "vi" ; --# notpresent - Pass Sg P2 => piov_ + "esti" ; --# notpresent - Pass Sg P3 => piov_ + "ve" ; --# notpresent - Pass Pl P1 => piov_ + "emmo" ; --# notpresent - Pass Pl P2 => piov_ + "este" ; --# notpresent - Pass Pl P3 => piov_ + "vero" ; --# notpresent - Fut Sg P1 => piov_ + "erò" ; --# notpresent - Fut Sg P2 => piov_ + "erai" ; --# notpresent - Fut Sg P3 => piov_ + "erà" ; --# notpresent - Fut Pl P1 => piov_ + "eremo" ; --# notpresent - Fut Pl P2 => piov_ + "erete" ; --# notpresent - Fut Pl P3 => piov_ + "eranno" ; --# notpresent - Cong Pres Sg P1 => piov_ + "a" ; - Cong Pres Sg P2 => piov_ + "a" ; - Cong Pres Sg P3 => piov_ + "a" ; - Cong Pres Pl P1 => piov_ + "iamo" ; - Cong Pres Pl P2 => piov_ + "iate" ; - Cong Pres Pl P3 => piov_ + "ano" ; - Cong Imperf Sg P1 => piov_ + "essi" ; --# notpresent - Cong Imperf Sg P2 => piov_ + "essi" ; --# notpresent - Cong Imperf Sg P3 => piov_ + "esse" ; --# notpresent - Cong Imperf Pl P1 => piov_ + "essimo" ; --# notpresent - Cong Imperf Pl P2 => piov_ + "este" ; --# notpresent - Cong Imperf Pl P3 => piov_ + "essero" ; --# notpresent - Cond Sg P1 => piov_ + "erei" ; --# notpresent - Cond Sg P2 => piov_ + "eresti" ; --# notpresent - Cond Sg P3 => piov_ + "erebbe" ; --# notpresent - Cond Pl P1 => piov_ + "eremmo" ; --# notpresent - Cond Pl P2 => piov_ + "ereste" ; --# notpresent - Cond Pl P3 => piov_ + "erebbero" ; --# notpresent - Imper SgP2 => piov_ + "i" ; - Imper PlP1 => piov_ + "iamo" ; - Imper PlP2 => piov_ + "ete" ; - Ger => piov_ + "endo" ; - Part PresP Masc Sg => piov_ + "ente" ; - Part PresP Masc Pl => piov_ + "enti" ; - Part PresP Fem Sg => piov_ + "ente" ; - Part PresP Fem Pl => piov_ + "enti" ; - Part PassP Masc Sg => piov_ + "uto" ; - Part PassP Masc Pl => piov_ + "uti" ; - Part PassP Fem Sg => piov_ + "uta" ; - Part PassP Fem Pl => piov_ + "ute" - } - } ; - -oper porgere_67 : Str -> Verbo = \porgere -> - let por_ = Predef.tk 4 porgere in - {s = table { - Inf => por_ + "gere" ; - InfClit => por_ + "ger" ; - Indi Pres Sg P1 => por_ + "go" ; - Indi Pres Sg P2 => por_ + "gi" ; - Indi Pres Sg P3 => por_ + "ge" ; - Indi Pres Pl P1 => por_ + "giamo" ; - Indi Pres Pl P2 => por_ + "gete" ; - Indi Pres Pl P3 => por_ + "gono" ; - Indi Imperf Sg P1 => por_ + "gevo" ; --# notpresent - Indi Imperf Sg P2 => por_ + "gevi" ; --# notpresent - Indi Imperf Sg P3 => por_ + "geva" ; --# notpresent - Indi Imperf Pl P1 => por_ + "gevamo" ; --# notpresent - Indi Imperf Pl P2 => por_ + "gevate" ; --# notpresent - Indi Imperf Pl P3 => por_ + "gevano" ; --# notpresent - Pass Sg P1 => por_ + "si" ; --# notpresent - Pass Sg P2 => por_ + "gesti" ; --# notpresent - Pass Sg P3 => por_ + "se" ; --# notpresent - Pass Pl P1 => por_ + "gemmo" ; --# notpresent - Pass Pl P2 => por_ + "geste" ; --# notpresent - Pass Pl P3 => por_ + "sero" ; --# notpresent - Fut Sg P1 => por_ + "gerò" ; --# notpresent - Fut Sg P2 => por_ + "gerai" ; --# notpresent - Fut Sg P3 => por_ + "gerà" ; --# notpresent - Fut Pl P1 => por_ + "geremo" ; --# notpresent - Fut Pl P2 => por_ + "gerete" ; --# notpresent - Fut Pl P3 => por_ + "geranno" ; --# notpresent - Cong Pres Sg P1 => por_ + "ga" ; - Cong Pres Sg P2 => por_ + "ga" ; - Cong Pres Sg P3 => por_ + "ga" ; - Cong Pres Pl P1 => por_ + "giamo" ; - Cong Pres Pl P2 => por_ + "giate" ; - Cong Pres Pl P3 => por_ + "gano" ; - Cong Imperf Sg P1 => por_ + "gessi" ; --# notpresent - Cong Imperf Sg P2 => por_ + "gessi" ; --# notpresent - Cong Imperf Sg P3 => por_ + "gesse" ; --# notpresent - Cong Imperf Pl P1 => por_ + "gessimo" ; --# notpresent - Cong Imperf Pl P2 => por_ + "geste" ; --# notpresent - Cong Imperf Pl P3 => por_ + "gessero" ; --# notpresent - Cond Sg P1 => por_ + "gerei" ; --# notpresent - Cond Sg P2 => por_ + "geresti" ; --# notpresent - Cond Sg P3 => por_ + "gerebbe" ; --# notpresent - Cond Pl P1 => por_ + "geremmo" ; --# notpresent - Cond Pl P2 => por_ + "gereste" ; --# notpresent - Cond Pl P3 => por_ + "gerebbero" ; --# notpresent - Imper SgP2 => por_ + "gi" ; - Imper PlP1 => por_ + "giamo" ; - Imper PlP2 => por_ + "gete" ; - Ger => por_ + "gendo" ; - Part PresP Masc Sg => por_ + "gente" ; - Part PresP Masc Pl => por_ + "genti" ; - Part PresP Fem Sg => por_ + "gente" ; - Part PresP Fem Pl => por_ + "genti" ; - Part PassP Masc Sg => por_ + "to" ; - Part PassP Masc Pl => por_ + "ti" ; - Part PassP Fem Sg => por_ + "ta" ; - Part PassP Fem Pl => por_ + "te" - } - } ; - -oper porre_68 : Str -> Verbo = \porre -> - let po_ = Predef.tk 3 porre in - {s = table { - Inf => po_ + "rre" ; - InfClit => po_ + "r" ; - Indi Pres Sg P1 => po_ + "ngo" ; - Indi Pres Sg P2 => po_ + "ni" ; - Indi Pres Sg P3 => po_ + "ne" ; - Indi Pres Pl P1 => po_ + "niamo" ; - Indi Pres Pl P2 => po_ + "nete" ; - Indi Pres Pl P3 => po_ + "ngono" ; - Indi Imperf Sg P1 => po_ + "nevo" ; --# notpresent - Indi Imperf Sg P2 => po_ + "nevi" ; --# notpresent - Indi Imperf Sg P3 => po_ + "neva" ; --# notpresent - Indi Imperf Pl P1 => po_ + "nevamo" ; --# notpresent - Indi Imperf Pl P2 => po_ + "nevate" ; --# notpresent - Indi Imperf Pl P3 => po_ + "nevano" ; --# notpresent - Pass Sg P1 => po_ + "si" ; --# notpresent - Pass Sg P2 => po_ + "nesti" ; --# notpresent - Pass Sg P3 => po_ + "se" ; --# notpresent - Pass Pl P1 => po_ + "nemmo" ; --# notpresent - Pass Pl P2 => po_ + "neste" ; --# notpresent - Pass Pl P3 => po_ + "sero" ; --# notpresent - Fut Sg P1 => po_ + "rrò" ; --# notpresent - Fut Sg P2 => po_ + "rrai" ; --# notpresent - Fut Sg P3 => po_ + "rrà" ; --# notpresent - Fut Pl P1 => po_ + "rremo" ; --# notpresent - Fut Pl P2 => po_ + "rrete" ; --# notpresent - Fut Pl P3 => po_ + "rranno" ; --# notpresent - Cong Pres Sg P1 => po_ + "nga" ; - Cong Pres Sg P2 => po_ + "nga" ; - Cong Pres Sg P3 => po_ + "nga" ; - Cong Pres Pl P1 => po_ + "niamo" ; - Cong Pres Pl P2 => po_ + "niate" ; - Cong Pres Pl P3 => po_ + "ngano" ; - Cong Imperf Sg P1 => po_ + "nessi" ; --# notpresent - Cong Imperf Sg P2 => po_ + "nessi" ; --# notpresent - Cong Imperf Sg P3 => po_ + "nesse" ; --# notpresent - Cong Imperf Pl P1 => po_ + "nessimo" ; --# notpresent - Cong Imperf Pl P2 => po_ + "neste" ; --# notpresent - Cong Imperf Pl P3 => po_ + "nessero" ; --# notpresent - Cond Sg P1 => po_ + "rrei" ; --# notpresent - Cond Sg P2 => po_ + "rresti" ; --# notpresent - Cond Sg P3 => po_ + "rrebbe" ; --# notpresent - Cond Pl P1 => po_ + "rremmo" ; --# notpresent - Cond Pl P2 => po_ + "rreste" ; --# notpresent - Cond Pl P3 => po_ + "rrebbero" ; --# notpresent - Imper SgP2 => po_ + "ni" ; - Imper PlP1 => po_ + "niamo" ; - Imper PlP2 => po_ + "nete" ; - Ger => po_ + "nendo" ; - Part PresP Masc Sg => po_ + "nente" ; - Part PresP Masc Pl => po_ + "nenti" ; - Part PresP Fem Sg => po_ + "nente" ; - Part PresP Fem Pl => po_ + "nenti" ; - Part PassP Masc Sg => po_ + "sto" ; - Part PassP Masc Pl => po_ + "sti" ; - Part PassP Fem Sg => po_ + "sta" ; - Part PassP Fem Pl => po_ + "ste" - } - } ; - -oper potere_69 : Str -> Verbo = \potere -> - let p_ = Predef.tk 5 potere in - {s = table { - Inf => p_ + "otere" ; - InfClit => p_ + "oter" ; - Indi Pres Sg P1 => p_ + "osso" ; - Indi Pres Sg P2 => p_ + "uoi" ; - Indi Pres Sg P3 => p_ + "uò" ; - Indi Pres Pl P1 => p_ + "otiamo" ; - Indi Pres Pl P2 => p_ + "otete" ; - Indi Pres Pl P3 => p_ + "ossono" ; - Indi Imperf Sg P1 => p_ + "otevo" ; --# notpresent - Indi Imperf Sg P2 => p_ + "otevi" ; --# notpresent - Indi Imperf Sg P3 => p_ + "oteva" ; --# notpresent - Indi Imperf Pl P1 => p_ + "otevamo" ; --# notpresent - Indi Imperf Pl P2 => p_ + "otevate" ; --# notpresent - Indi Imperf Pl P3 => p_ + "otevano" ; --# notpresent - Pass Sg P1 => p_ + "otetti" ; --# notpresent - Pass Sg P2 => p_ + "otesti" ; --# notpresent - Pass Sg P3 => p_ + "otette" ; --# notpresent - Pass Pl P1 => p_ + "otemmo" ; --# notpresent - Pass Pl P2 => p_ + "oteste" ; --# notpresent - Pass Pl P3 => p_ + "otettero" ; --# notpresent - Fut Sg P1 => p_ + "otrò" ; --# notpresent - Fut Sg P2 => p_ + "otrai" ; --# notpresent - Fut Sg P3 => p_ + "otrà" ; --# notpresent - Fut Pl P1 => p_ + "otremo" ; --# notpresent - Fut Pl P2 => p_ + "otrete" ; --# notpresent - Fut Pl P3 => p_ + "otranno" ; --# notpresent - Cong Pres Sg P1 => p_ + "ossa" ; - Cong Pres Sg P2 => p_ + "ossa" ; - Cong Pres Sg P3 => p_ + "ossa" ; - Cong Pres Pl P1 => p_ + "otiamo" ; - Cong Pres Pl P2 => p_ + "otiate" ; - Cong Pres Pl P3 => p_ + "ossano" ; - Cong Imperf Sg P1 => p_ + "otessi" ; --# notpresent - Cong Imperf Sg P2 => p_ + "otessi" ; --# notpresent - Cong Imperf Sg P3 => p_ + "otesse" ; --# notpresent - Cong Imperf Pl P1 => p_ + "otessimo" ; --# notpresent - Cong Imperf Pl P2 => p_ + "oteste" ; --# notpresent - Cong Imperf Pl P3 => p_ + "otessero" ; --# notpresent - Cond Sg P1 => p_ + "otrei" ; --# notpresent - Cond Sg P2 => p_ + "otresti" ; --# notpresent - Cond Sg P3 => p_ + "otrebbe" ; --# notpresent - Cond Pl P1 => p_ + "otremmo" ; --# notpresent - Cond Pl P2 => p_ + "otreste" ; --# notpresent - Cond Pl P3 => p_ + "otrebbero" ; --# notpresent - Imper SgP2 => variants {} ; - Imper PlP1 => variants {} ; - Imper PlP2 => variants {} ; - Ger => p_ + "otendo" ; - Part PresP Masc Sg => p_ + "otente" ; - Part PresP Masc Pl => p_ + "otenti" ; - Part PresP Fem Sg => p_ + "otente" ; - Part PresP Fem Pl => p_ + "otenti" ; - Part PassP Masc Sg => p_ + "otuto" ; - Part PassP Masc Pl => p_ + "otuti" ; - Part PassP Fem Sg => p_ + "otuta" ; - Part PassP Fem Pl => p_ + "otute" - } - } ; - -oper prendere_70 : Str -> Verbo = \prendere -> - let pre_ = Predef.tk 5 prendere in - {s = table { - Inf => pre_ + "ndere" ; - InfClit => pre_ + "nder" ; - Indi Pres Sg P1 => pre_ + "ndo" ; - Indi Pres Sg P2 => pre_ + "ndi" ; - Indi Pres Sg P3 => pre_ + "nde" ; - Indi Pres Pl P1 => pre_ + "ndiamo" ; - Indi Pres Pl P2 => pre_ + "ndete" ; - Indi Pres Pl P3 => pre_ + "ndono" ; - Indi Imperf Sg P1 => pre_ + "ndevo" ; --# notpresent - Indi Imperf Sg P2 => pre_ + "ndevi" ; --# notpresent - Indi Imperf Sg P3 => pre_ + "ndeva" ; --# notpresent - Indi Imperf Pl P1 => pre_ + "ndevamo" ; --# notpresent - Indi Imperf Pl P2 => pre_ + "ndevate" ; --# notpresent - Indi Imperf Pl P3 => pre_ + "ndevano" ; --# notpresent - Pass Sg P1 => pre_ + "si" ; --# notpresent - Pass Sg P2 => pre_ + "ndesti" ; --# notpresent - Pass Sg P3 => pre_ + "se" ; --# notpresent - Pass Pl P1 => pre_ + "ndemmo" ; --# notpresent - Pass Pl P2 => pre_ + "ndeste" ; --# notpresent - Pass Pl P3 => pre_ + "sero" ; --# notpresent - Fut Sg P1 => pre_ + "nderò" ; --# notpresent - Fut Sg P2 => pre_ + "nderai" ; --# notpresent - Fut Sg P3 => pre_ + "nderà" ; --# notpresent - Fut Pl P1 => pre_ + "nderemo" ; --# notpresent - Fut Pl P2 => pre_ + "nderete" ; --# notpresent - Fut Pl P3 => pre_ + "nderanno" ; --# notpresent - Cong Pres Sg P1 => pre_ + "nda" ; - Cong Pres Sg P2 => pre_ + "nda" ; - Cong Pres Sg P3 => pre_ + "nda" ; - Cong Pres Pl P1 => pre_ + "ndiamo" ; - Cong Pres Pl P2 => pre_ + "ndiate" ; - Cong Pres Pl P3 => pre_ + "ndano" ; - Cong Imperf Sg P1 => pre_ + "ndessi" ; --# notpresent - Cong Imperf Sg P2 => pre_ + "ndessi" ; --# notpresent - Cong Imperf Sg P3 => pre_ + "ndesse" ; --# notpresent - Cong Imperf Pl P1 => pre_ + "ndessimo" ; --# notpresent - Cong Imperf Pl P2 => pre_ + "ndeste" ; --# notpresent - Cong Imperf Pl P3 => pre_ + "ndessero" ; --# notpresent - Cond Sg P1 => pre_ + "nderei" ; --# notpresent - Cond Sg P2 => pre_ + "nderesti" ; --# notpresent - Cond Sg P3 => pre_ + "nderebbe" ; --# notpresent - Cond Pl P1 => pre_ + "nderemmo" ; --# notpresent - Cond Pl P2 => pre_ + "ndereste" ; --# notpresent - Cond Pl P3 => pre_ + "nderebbero" ; --# notpresent - Imper SgP2 => pre_ + "ndi" ; - Imper PlP1 => pre_ + "ndiamo" ; - Imper PlP2 => pre_ + "ndete" ; - Ger => pre_ + "ndendo" ; - Part PresP Masc Sg => pre_ + "ndente" ; - Part PresP Masc Pl => pre_ + "ndenti" ; - Part PresP Fem Sg => pre_ + "ndente" ; - Part PresP Fem Pl => pre_ + "ndenti" ; - Part PassP Masc Sg => pre_ + "so" ; - Part PassP Masc Pl => pre_ + "si" ; - Part PassP Fem Sg => pre_ + "sa" ; - Part PassP Fem Pl => pre_ + "se" - } - } ; - -oper radere_71 : Str -> Verbo = \radere -> - let ra_ = Predef.tk 4 radere in - {s = table { - Inf => ra_ + "dere" ; - InfClit => ra_ + "der" ; - Indi Pres Sg P1 => ra_ + "do" ; - Indi Pres Sg P2 => ra_ + "di" ; - Indi Pres Sg P3 => ra_ + "de" ; - Indi Pres Pl P1 => ra_ + "diamo" ; - Indi Pres Pl P2 => ra_ + "dete" ; - Indi Pres Pl P3 => ra_ + "dono" ; - Indi Imperf Sg P1 => ra_ + "devo" ; --# notpresent - Indi Imperf Sg P2 => ra_ + "devi" ; --# notpresent - Indi Imperf Sg P3 => ra_ + "deva" ; --# notpresent - Indi Imperf Pl P1 => ra_ + "devamo" ; --# notpresent - Indi Imperf Pl P2 => ra_ + "devate" ; --# notpresent - Indi Imperf Pl P3 => ra_ + "devano" ; --# notpresent - Pass Sg P1 => ra_ + "si" ; --# notpresent - Pass Sg P2 => ra_ + "desti" ; --# notpresent - Pass Sg P3 => ra_ + "se" ; --# notpresent - Pass Pl P1 => ra_ + "demmo" ; --# notpresent - Pass Pl P2 => ra_ + "deste" ; --# notpresent - Pass Pl P3 => ra_ + "sero" ; --# notpresent - Fut Sg P1 => ra_ + "derò" ; --# notpresent - Fut Sg P2 => ra_ + "derai" ; --# notpresent - Fut Sg P3 => ra_ + "derà" ; --# notpresent - Fut Pl P1 => ra_ + "deremo" ; --# notpresent - Fut Pl P2 => ra_ + "derete" ; --# notpresent - Fut Pl P3 => ra_ + "deranno" ; --# notpresent - Cong Pres Sg P1 => ra_ + "da" ; - Cong Pres Sg P2 => ra_ + "da" ; - Cong Pres Sg P3 => ra_ + "da" ; - Cong Pres Pl P1 => ra_ + "diamo" ; - Cong Pres Pl P2 => ra_ + "diate" ; - Cong Pres Pl P3 => ra_ + "dano" ; - Cong Imperf Sg P1 => ra_ + "dessi" ; --# notpresent - Cong Imperf Sg P2 => ra_ + "dessi" ; --# notpresent - Cong Imperf Sg P3 => ra_ + "desse" ; --# notpresent - Cong Imperf Pl P1 => ra_ + "dessimo" ; --# notpresent - Cong Imperf Pl P2 => ra_ + "deste" ; --# notpresent - Cong Imperf Pl P3 => ra_ + "dessero" ; --# notpresent - Cond Sg P1 => ra_ + "derei" ; --# notpresent - Cond Sg P2 => ra_ + "deresti" ; --# notpresent - Cond Sg P3 => ra_ + "derebbe" ; --# notpresent - Cond Pl P1 => ra_ + "deremmo" ; --# notpresent - Cond Pl P2 => ra_ + "dereste" ; --# notpresent - Cond Pl P3 => ra_ + "derebbero" ; --# notpresent - Imper SgP2 => ra_ + "di" ; - Imper PlP1 => ra_ + "diamo" ; - Imper PlP2 => ra_ + "dete" ; - Ger => ra_ + "dendo" ; - Part PresP Masc Sg => ra_ + "dente" ; - Part PresP Masc Pl => ra_ + "denti" ; - Part PresP Fem Sg => ra_ + "dente" ; - Part PresP Fem Pl => ra_ + "denti" ; - Part PassP Masc Sg => ra_ + "so" ; - Part PassP Masc Pl => ra_ + "si" ; - Part PassP Fem Sg => ra_ + "sa" ; - Part PassP Fem Pl => ra_ + "se" - } - } ; - -oper redigere_72 : Str -> Verbo = \redigere -> - let red_ = Predef.tk 5 redigere in - {s = table { - Inf => red_ + "igere" ; - InfClit => red_ + "iger" ; - Indi Pres Sg P1 => red_ + "igo" ; - Indi Pres Sg P2 => red_ + "igi" ; - Indi Pres Sg P3 => red_ + "ige" ; - Indi Pres Pl P1 => red_ + "igiamo" ; - Indi Pres Pl P2 => red_ + "igete" ; - Indi Pres Pl P3 => red_ + "igono" ; - Indi Imperf Sg P1 => red_ + "igevo" ; --# notpresent - Indi Imperf Sg P2 => red_ + "igevi" ; --# notpresent - Indi Imperf Sg P3 => red_ + "igeva" ; --# notpresent - Indi Imperf Pl P1 => red_ + "igevamo" ; --# notpresent - Indi Imperf Pl P2 => red_ + "igevate" ; --# notpresent - Indi Imperf Pl P3 => red_ + "igevano" ; --# notpresent - Pass Sg P1 => red_ + "assi" ; --# notpresent - Pass Sg P2 => red_ + "igesti" ; --# notpresent - Pass Sg P3 => red_ + "asse" ; --# notpresent - Pass Pl P1 => red_ + "igemmo" ; --# notpresent - Pass Pl P2 => red_ + "igeste" ; --# notpresent - Pass Pl P3 => red_ + "assero" ; --# notpresent - Fut Sg P1 => red_ + "igerò" ; --# notpresent - Fut Sg P2 => red_ + "igerai" ; --# notpresent - Fut Sg P3 => red_ + "igerà" ; --# notpresent - Fut Pl P1 => red_ + "igeremo" ; --# notpresent - Fut Pl P2 => red_ + "igerete" ; --# notpresent - Fut Pl P3 => red_ + "igeranno" ; --# notpresent - Cong Pres Sg P1 => red_ + "iga" ; - Cong Pres Sg P2 => red_ + "iga" ; - Cong Pres Sg P3 => red_ + "iga" ; - Cong Pres Pl P1 => red_ + "igiamo" ; - Cong Pres Pl P2 => red_ + "igiate" ; - Cong Pres Pl P3 => red_ + "igano" ; - Cong Imperf Sg P1 => red_ + "igessi" ; --# notpresent - Cong Imperf Sg P2 => red_ + "igessi" ; --# notpresent - Cong Imperf Sg P3 => red_ + "igesse" ; --# notpresent - Cong Imperf Pl P1 => red_ + "igessimo" ; --# notpresent - Cong Imperf Pl P2 => red_ + "igeste" ; --# notpresent - Cong Imperf Pl P3 => red_ + "igessero" ; --# notpresent - Cond Sg P1 => red_ + "igerei" ; --# notpresent - Cond Sg P2 => red_ + "igeresti" ; --# notpresent - Cond Sg P3 => red_ + "igerebbe" ; --# notpresent - Cond Pl P1 => red_ + "igeremmo" ; --# notpresent - Cond Pl P2 => red_ + "igereste" ; --# notpresent - Cond Pl P3 => red_ + "igerebbero" ; --# notpresent - Imper SgP2 => red_ + "igi" ; - Imper PlP1 => red_ + "igiamo" ; - Imper PlP2 => red_ + "igete" ; - Ger => red_ + "igendo" ; - Part PresP Masc Sg => red_ + "igente" ; - Part PresP Masc Pl => red_ + "igenti" ; - Part PresP Fem Sg => red_ + "igente" ; - Part PresP Fem Pl => red_ + "igenti" ; - Part PassP Masc Sg => red_ + "atto" ; - Part PassP Masc Pl => red_ + "atti" ; - Part PassP Fem Sg => red_ + "atta" ; - Part PassP Fem Pl => red_ + "atte" - } - } ; - -oper redimere_73 : Str -> Verbo = \redimere -> - let red_ = Predef.tk 5 redimere in - {s = table { - Inf => red_ + "imere" ; - InfClit => red_ + "imer" ; - Indi Pres Sg P1 => red_ + "imo" ; - Indi Pres Sg P2 => red_ + "imi" ; - Indi Pres Sg P3 => red_ + "ime" ; - Indi Pres Pl P1 => red_ + "imiamo" ; - Indi Pres Pl P2 => red_ + "imete" ; - Indi Pres Pl P3 => red_ + "imono" ; - Indi Imperf Sg P1 => red_ + "imevo" ; --# notpresent - Indi Imperf Sg P2 => red_ + "imevi" ; --# notpresent - Indi Imperf Sg P3 => red_ + "imeva" ; --# notpresent - Indi Imperf Pl P1 => red_ + "imevamo" ; --# notpresent - Indi Imperf Pl P2 => red_ + "imevate" ; --# notpresent - Indi Imperf Pl P3 => red_ + "imevano" ; --# notpresent - Pass Sg P1 => red_ + "ensi" ; --# notpresent - Pass Sg P2 => red_ + "imesti" ; --# notpresent - Pass Sg P3 => red_ + "ense" ; --# notpresent - Pass Pl P1 => red_ + "imemmo" ; --# notpresent - Pass Pl P2 => red_ + "imeste" ; --# notpresent - Pass Pl P3 => red_ + "ensero" ; --# notpresent - Fut Sg P1 => red_ + "imerò" ; --# notpresent - Fut Sg P2 => red_ + "imerai" ; --# notpresent - Fut Sg P3 => red_ + "imerà" ; --# notpresent - Fut Pl P1 => red_ + "imeremo" ; --# notpresent - Fut Pl P2 => red_ + "imerete" ; --# notpresent - Fut Pl P3 => red_ + "imeranno" ; --# notpresent - Cong Pres Sg P1 => red_ + "ima" ; - Cong Pres Sg P2 => red_ + "ima" ; - Cong Pres Sg P3 => red_ + "ima" ; - Cong Pres Pl P1 => red_ + "imiamo" ; - Cong Pres Pl P2 => red_ + "imiate" ; - Cong Pres Pl P3 => red_ + "imano" ; - Cong Imperf Sg P1 => red_ + "imessi" ; --# notpresent - Cong Imperf Sg P2 => red_ + "imessi" ; --# notpresent - Cong Imperf Sg P3 => red_ + "imesse" ; --# notpresent - Cong Imperf Pl P1 => red_ + "imessimo" ; --# notpresent - Cong Imperf Pl P2 => red_ + "imeste" ; --# notpresent - Cong Imperf Pl P3 => red_ + "imessero" ; --# notpresent - Cond Sg P1 => red_ + "imerei" ; --# notpresent - Cond Sg P2 => red_ + "imeresti" ; --# notpresent - Cond Sg P3 => red_ + "imerebbe" ; --# notpresent - Cond Pl P1 => red_ + "imeremmo" ; --# notpresent - Cond Pl P2 => red_ + "imereste" ; --# notpresent - Cond Pl P3 => red_ + "imerebbero" ; --# notpresent - Imper SgP2 => red_ + "imi" ; - Imper PlP1 => red_ + "imiamo" ; - Imper PlP2 => red_ + "imete" ; - Ger => red_ + "imendo" ; - Part PresP Masc Sg => red_ + "imente" ; - Part PresP Masc Pl => red_ + "imenti" ; - Part PresP Fem Sg => red_ + "imente" ; - Part PresP Fem Pl => red_ + "imenti" ; - Part PassP Masc Sg => red_ + "ento" ; - Part PassP Masc Pl => red_ + "enti" ; - Part PassP Fem Sg => red_ + "enta" ; - Part PassP Fem Pl => red_ + "ente" - } - } ; - -oper ridere_74 : Str -> Verbo = \ridere -> - let ri_ = Predef.tk 4 ridere in - {s = table { - Inf => ri_ + "dere" ; - InfClit => ri_ + "der" ; - Indi Pres Sg P1 => ri_ + "do" ; - Indi Pres Sg P2 => ri_ + "di" ; - Indi Pres Sg P3 => ri_ + "de" ; - Indi Pres Pl P1 => ri_ + "diamo" ; - Indi Pres Pl P2 => ri_ + "dete" ; - Indi Pres Pl P3 => ri_ + "dono" ; - Indi Imperf Sg P1 => ri_ + "devo" ; --# notpresent - Indi Imperf Sg P2 => ri_ + "devi" ; --# notpresent - Indi Imperf Sg P3 => ri_ + "deva" ; --# notpresent - Indi Imperf Pl P1 => ri_ + "devamo" ; --# notpresent - Indi Imperf Pl P2 => ri_ + "devate" ; --# notpresent - Indi Imperf Pl P3 => ri_ + "devano" ; --# notpresent - Pass Sg P1 => ri_ + "si" ; --# notpresent - Pass Sg P2 => ri_ + "desti" ; --# notpresent - Pass Sg P3 => ri_ + "se" ; --# notpresent - Pass Pl P1 => ri_ + "demmo" ; --# notpresent - Pass Pl P2 => ri_ + "deste" ; --# notpresent - Pass Pl P3 => ri_ + "sero" ; --# notpresent - Fut Sg P1 => ri_ + "derò" ; --# notpresent - Fut Sg P2 => ri_ + "derai" ; --# notpresent - Fut Sg P3 => ri_ + "derà" ; --# notpresent - Fut Pl P1 => ri_ + "deremo" ; --# notpresent - Fut Pl P2 => ri_ + "derete" ; --# notpresent - Fut Pl P3 => ri_ + "deranno" ; --# notpresent - Cong Pres Sg P1 => ri_ + "da" ; - Cong Pres Sg P2 => ri_ + "da" ; - Cong Pres Sg P3 => ri_ + "da" ; - Cong Pres Pl P1 => ri_ + "diamo" ; - Cong Pres Pl P2 => ri_ + "diate" ; - Cong Pres Pl P3 => ri_ + "dano" ; - Cong Imperf Sg P1 => ri_ + "dessi" ; --# notpresent - Cong Imperf Sg P2 => ri_ + "dessi" ; --# notpresent - Cong Imperf Sg P3 => ri_ + "desse" ; --# notpresent - Cong Imperf Pl P1 => ri_ + "dessimo" ; --# notpresent - Cong Imperf Pl P2 => ri_ + "deste" ; --# notpresent - Cong Imperf Pl P3 => ri_ + "dessero" ; --# notpresent - Cond Sg P1 => ri_ + "derei" ; --# notpresent - Cond Sg P2 => ri_ + "deresti" ; --# notpresent - Cond Sg P3 => ri_ + "derebbe" ; --# notpresent - Cond Pl P1 => ri_ + "deremmo" ; --# notpresent - Cond Pl P2 => ri_ + "dereste" ; --# notpresent - Cond Pl P3 => ri_ + "derebbero" ; --# notpresent - Imper SgP2 => ri_ + "di" ; - Imper PlP1 => ri_ + "diamo" ; - Imper PlP2 => ri_ + "dete" ; - Ger => ri_ + "dendo" ; - Part PresP Masc Sg => ri_ + "dente" ; - Part PresP Masc Pl => ri_ + "denti" ; - Part PresP Fem Sg => ri_ + "dente" ; - Part PresP Fem Pl => ri_ + "denti" ; - Part PassP Masc Sg => ri_ + "so" ; - Part PassP Masc Pl => ri_ + "si" ; - Part PassP Fem Sg => ri_ + "sa" ; - Part PassP Fem Pl => ri_ + "se" - } - } ; - -oper rimanere_75 : Str -> Verbo = \rimanere -> - let rima_ = Predef.tk 4 rimanere in - {s = table { - Inf => rima_ + "nere" ; - InfClit => rima_ + "ner" ; - Indi Pres Sg P1 => rima_ + "ngo" ; - Indi Pres Sg P2 => rima_ + "ni" ; - Indi Pres Sg P3 => rima_ + "ne" ; - Indi Pres Pl P1 => rima_ + "niamo" ; - Indi Pres Pl P2 => rima_ + "nete" ; - Indi Pres Pl P3 => rima_ + "ngono" ; - Indi Imperf Sg P1 => rima_ + "nevo" ; --# notpresent - Indi Imperf Sg P2 => rima_ + "nevi" ; --# notpresent - Indi Imperf Sg P3 => rima_ + "neva" ; --# notpresent - Indi Imperf Pl P1 => rima_ + "nevamo" ; --# notpresent - Indi Imperf Pl P2 => rima_ + "nevate" ; --# notpresent - Indi Imperf Pl P3 => rima_ + "nevano" ; --# notpresent - Pass Sg P1 => rima_ + "si" ; --# notpresent - Pass Sg P2 => rima_ + "nesti" ; --# notpresent - Pass Sg P3 => rima_ + "se" ; --# notpresent - Pass Pl P1 => rima_ + "nemmo" ; --# notpresent - Pass Pl P2 => rima_ + "neste" ; --# notpresent - Pass Pl P3 => rima_ + "sero" ; --# notpresent - Fut Sg P1 => rima_ + "rrò" ; --# notpresent - Fut Sg P2 => rima_ + "rrai" ; --# notpresent - Fut Sg P3 => rima_ + "rrà" ; --# notpresent - Fut Pl P1 => rima_ + "rremo" ; --# notpresent - Fut Pl P2 => rima_ + "rrete" ; --# notpresent - Fut Pl P3 => rima_ + "rranno" ; --# notpresent - Cong Pres Sg P1 => rima_ + "nga" ; - Cong Pres Sg P2 => rima_ + "nga" ; - Cong Pres Sg P3 => rima_ + "nga" ; - Cong Pres Pl P1 => rima_ + "niamo" ; - Cong Pres Pl P2 => rima_ + "niate" ; - Cong Pres Pl P3 => rima_ + "ngano" ; - Cong Imperf Sg P1 => rima_ + "nessi" ; --# notpresent - Cong Imperf Sg P2 => rima_ + "nessi" ; --# notpresent - Cong Imperf Sg P3 => rima_ + "nesse" ; --# notpresent - Cong Imperf Pl P1 => rima_ + "nessimo" ; --# notpresent - Cong Imperf Pl P2 => rima_ + "neste" ; --# notpresent - Cong Imperf Pl P3 => rima_ + "nessero" ; --# notpresent - Cond Sg P1 => rima_ + "rrei" ; --# notpresent - Cond Sg P2 => rima_ + "rresti" ; --# notpresent - Cond Sg P3 => rima_ + "rrebbe" ; --# notpresent - Cond Pl P1 => rima_ + "rremmo" ; --# notpresent - Cond Pl P2 => rima_ + "rreste" ; --# notpresent - Cond Pl P3 => rima_ + "rrebbero" ; --# notpresent - Imper SgP2 => rima_ + "ni" ; - Imper PlP1 => rima_ + "niamo" ; - Imper PlP2 => rima_ + "nete" ; - Ger => rima_ + "nendo" ; - Part PresP Masc Sg => rima_ + "nente" ; - Part PresP Masc Pl => rima_ + "nenti" ; - Part PresP Fem Sg => rima_ + "nente" ; - Part PresP Fem Pl => rima_ + "nenti" ; - Part PassP Masc Sg => rima_ + "sto" ; - Part PassP Masc Pl => rima_ + "sti" ; - Part PassP Fem Sg => rima_ + "sta" ; - Part PassP Fem Pl => rima_ + "ste" - } - } ; - -oper rispondere_76 : Str -> Verbo = \rispondere -> - let rispo_ = Predef.tk 5 rispondere in - {s = table { - Inf => rispo_ + "ndere" ; - InfClit => rispo_ + "nder" ; - Indi Pres Sg P1 => rispo_ + "ndo" ; - Indi Pres Sg P2 => rispo_ + "ndi" ; - Indi Pres Sg P3 => rispo_ + "nde" ; - Indi Pres Pl P1 => rispo_ + "ndiamo" ; - Indi Pres Pl P2 => rispo_ + "ndete" ; - Indi Pres Pl P3 => rispo_ + "ndono" ; - Indi Imperf Sg P1 => rispo_ + "ndevo" ; --# notpresent - Indi Imperf Sg P2 => rispo_ + "ndevi" ; --# notpresent - Indi Imperf Sg P3 => rispo_ + "ndeva" ; --# notpresent - Indi Imperf Pl P1 => rispo_ + "ndevamo" ; --# notpresent - Indi Imperf Pl P2 => rispo_ + "ndevate" ; --# notpresent - Indi Imperf Pl P3 => rispo_ + "ndevano" ; --# notpresent - Pass Sg P1 => rispo_ + "si" ; --# notpresent - Pass Sg P2 => rispo_ + "ndesti" ; --# notpresent - Pass Sg P3 => rispo_ + "se" ; --# notpresent - Pass Pl P1 => rispo_ + "ndemmo" ; --# notpresent - Pass Pl P2 => rispo_ + "ndeste" ; --# notpresent - Pass Pl P3 => rispo_ + "sero" ; --# notpresent - Fut Sg P1 => rispo_ + "nderò" ; --# notpresent - Fut Sg P2 => rispo_ + "nderai" ; --# notpresent - Fut Sg P3 => rispo_ + "nderà" ; --# notpresent - Fut Pl P1 => rispo_ + "nderemo" ; --# notpresent - Fut Pl P2 => rispo_ + "nderete" ; --# notpresent - Fut Pl P3 => rispo_ + "nderanno" ; --# notpresent - Cong Pres Sg P1 => rispo_ + "nda" ; - Cong Pres Sg P2 => rispo_ + "nda" ; - Cong Pres Sg P3 => rispo_ + "nda" ; - Cong Pres Pl P1 => rispo_ + "ndiamo" ; - Cong Pres Pl P2 => rispo_ + "ndiate" ; - Cong Pres Pl P3 => rispo_ + "ndano" ; - Cong Imperf Sg P1 => rispo_ + "ndessi" ; --# notpresent - Cong Imperf Sg P2 => rispo_ + "ndessi" ; --# notpresent - Cong Imperf Sg P3 => rispo_ + "ndesse" ; --# notpresent - Cong Imperf Pl P1 => rispo_ + "ndessimo" ; --# notpresent - Cong Imperf Pl P2 => rispo_ + "ndeste" ; --# notpresent - Cong Imperf Pl P3 => rispo_ + "ndessero" ; --# notpresent - Cond Sg P1 => rispo_ + "nderei" ; --# notpresent - Cond Sg P2 => rispo_ + "nderesti" ; --# notpresent - Cond Sg P3 => rispo_ + "nderebbe" ; --# notpresent - Cond Pl P1 => rispo_ + "nderemmo" ; --# notpresent - Cond Pl P2 => rispo_ + "ndereste" ; --# notpresent - Cond Pl P3 => rispo_ + "nderebbero" ; --# notpresent - Imper SgP2 => rispo_ + "ndi" ; - Imper PlP1 => rispo_ + "ndiamo" ; - Imper PlP2 => rispo_ + "ndete" ; - Ger => rispo_ + "ndendo" ; - Part PresP Masc Sg => rispo_ + "ndente" ; - Part PresP Masc Pl => rispo_ + "ndenti" ; - Part PresP Fem Sg => rispo_ + "ndente" ; - Part PresP Fem Pl => rispo_ + "ndenti" ; - Part PassP Masc Sg => rispo_ + "sto" ; - Part PassP Masc Pl => rispo_ + "sti" ; - Part PassP Fem Sg => rispo_ + "sta" ; - Part PassP Fem Pl => rispo_ + "ste" - } - } ; - -oper rompere_77 : Str -> Verbo = \roompere -> - let ro_ = Predef.tk 6 roompere in - {s = table { - Inf => ro_ + "ompere" ; - InfClit => ro_ + "omper" ; - Indi Pres Sg P1 => ro_ + "ompo" ; - Indi Pres Sg P2 => ro_ + "ompi" ; - Indi Pres Sg P3 => ro_ + "ompe" ; - Indi Pres Pl P1 => ro_ + "ompiamo" ; - Indi Pres Pl P2 => ro_ + "ompete" ; - Indi Pres Pl P3 => ro_ + "ompono" ; - Indi Imperf Sg P1 => ro_ + "ompevo" ; --# notpresent - Indi Imperf Sg P2 => ro_ + "ompevi" ; --# notpresent - Indi Imperf Sg P3 => ro_ + "ompeva" ; --# notpresent - Indi Imperf Pl P1 => ro_ + "ompevamo" ; --# notpresent - Indi Imperf Pl P2 => ro_ + "ompevate" ; --# notpresent - Indi Imperf Pl P3 => ro_ + "ompevano" ; --# notpresent - Pass Sg P1 => ro_ + "uppi" ; --# notpresent - Pass Sg P2 => ro_ + "ompesti" ; --# notpresent - Pass Sg P3 => ro_ + "uppe" ; --# notpresent - Pass Pl P1 => ro_ + "ompemmo" ; --# notpresent - Pass Pl P2 => ro_ + "ompeste" ; --# notpresent - Pass Pl P3 => ro_ + "uppero" ; --# notpresent - Fut Sg P1 => ro_ + "omperò" ; --# notpresent - Fut Sg P2 => ro_ + "omperai" ; --# notpresent - Fut Sg P3 => ro_ + "omperà" ; --# notpresent - Fut Pl P1 => ro_ + "omperemo" ; --# notpresent - Fut Pl P2 => ro_ + "omperete" ; --# notpresent - Fut Pl P3 => ro_ + "omperanno" ; --# notpresent - Cong Pres Sg P1 => ro_ + "ompa" ; - Cong Pres Sg P2 => ro_ + "ompa" ; - Cong Pres Sg P3 => ro_ + "ompa" ; - Cong Pres Pl P1 => ro_ + "ompiamo" ; - Cong Pres Pl P2 => ro_ + "ompiate" ; - Cong Pres Pl P3 => ro_ + "ompano" ; - Cong Imperf Sg P1 => ro_ + "ompessi" ; --# notpresent - Cong Imperf Sg P2 => ro_ + "ompessi" ; --# notpresent - Cong Imperf Sg P3 => ro_ + "ompesse" ; --# notpresent - Cong Imperf Pl P1 => ro_ + "ompessimo" ; --# notpresent - Cong Imperf Pl P2 => ro_ + "ompeste" ; --# notpresent - Cong Imperf Pl P3 => ro_ + "ompessero" ; --# notpresent - Cond Sg P1 => ro_ + "omperei" ; --# notpresent - Cond Sg P2 => ro_ + "omperesti" ; --# notpresent - Cond Sg P3 => ro_ + "omperebbe" ; --# notpresent - Cond Pl P1 => ro_ + "omperemmo" ; --# notpresent - Cond Pl P2 => ro_ + "ompereste" ; --# notpresent - Cond Pl P3 => ro_ + "omperebbero" ; --# notpresent - Imper SgP2 => ro_ + "ompi" ; - Imper PlP1 => ro_ + "ompiamo" ; - Imper PlP2 => ro_ + "ompete" ; - Ger => ro_ + "ompendo" ; - Part PresP Masc Sg => ro_ + "ompente" ; - Part PresP Masc Pl => ro_ + "ompenti" ; - Part PresP Fem Sg => ro_ + "ompente" ; - Part PresP Fem Pl => ro_ + "ompenti" ; - Part PassP Masc Sg => ro_ + "otto" ; - Part PassP Masc Pl => ro_ + "otti" ; - Part PassP Fem Sg => ro_ + "otta" ; - Part PassP Fem Pl => ro_ + "otte" - } - } ; - -oper sapere_78 : Str -> Verbo = \sapere -> - let s_ = Predef.tk 5 sapere in - {s = table { - Inf => s_ + "apere" ; - InfClit => s_ + "aper" ; - Indi Pres Sg P1 => s_ + "o" ; - Indi Pres Sg P2 => s_ + "ai" ; - Indi Pres Sg P3 => s_ + "a" ; - Indi Pres Pl P1 => s_ + "appiamo" ; - Indi Pres Pl P2 => s_ + "apete" ; - Indi Pres Pl P3 => s_ + "anno" ; - Indi Imperf Sg P1 => s_ + "apevo" ; --# notpresent - Indi Imperf Sg P2 => s_ + "apevi" ; --# notpresent - Indi Imperf Sg P3 => s_ + "apeva" ; --# notpresent - Indi Imperf Pl P1 => s_ + "apevamo" ; --# notpresent - Indi Imperf Pl P2 => s_ + "apevate" ; --# notpresent - Indi Imperf Pl P3 => s_ + "apevano" ; --# notpresent - Pass Sg P1 => s_ + "eppi" ; --# notpresent - Pass Sg P2 => s_ + "apesti" ; --# notpresent - Pass Sg P3 => s_ + "eppe" ; --# notpresent - Pass Pl P1 => s_ + "apemmo" ; --# notpresent - Pass Pl P2 => s_ + "apeste" ; --# notpresent - Pass Pl P3 => s_ + "eppero" ; --# notpresent - Fut Sg P1 => s_ + "aprò" ; --# notpresent - Fut Sg P2 => s_ + "aprai" ; --# notpresent - Fut Sg P3 => s_ + "aprà" ; --# notpresent - Fut Pl P1 => s_ + "apremo" ; --# notpresent - Fut Pl P2 => s_ + "aprete" ; --# notpresent - Fut Pl P3 => s_ + "apranno" ; --# notpresent - Cong Pres Sg P1 => s_ + "appia" ; - Cong Pres Sg P2 => s_ + "appia" ; - Cong Pres Sg P3 => s_ + "appia" ; - Cong Pres Pl P1 => s_ + "appiamo" ; - Cong Pres Pl P2 => s_ + "appiate" ; - Cong Pres Pl P3 => s_ + "appiano" ; - Cong Imperf Sg P1 => s_ + "apessi" ; --# notpresent - Cong Imperf Sg P2 => s_ + "apessi" ; --# notpresent - Cong Imperf Sg P3 => s_ + "apesse" ; --# notpresent - Cong Imperf Pl P1 => s_ + "apessimo" ; --# notpresent - Cong Imperf Pl P2 => s_ + "apeste" ; --# notpresent - Cong Imperf Pl P3 => s_ + "apessero" ; --# notpresent - Cond Sg P1 => s_ + "aprei" ; --# notpresent - Cond Sg P2 => s_ + "apresti" ; --# notpresent - Cond Sg P3 => s_ + "aprebbe" ; --# notpresent - Cond Pl P1 => s_ + "apremmo" ; --# notpresent - Cond Pl P2 => s_ + "apreste" ; --# notpresent - Cond Pl P3 => s_ + "aprebbero" ; --# notpresent - Imper SgP2 => s_ + "appi" ; - Imper PlP1 => s_ + "appiamo" ; - Imper PlP2 => s_ + "appiate" ; - Ger => s_ + "apendo" ; - Part PresP Masc Sg => variants {} ; - Part PresP Masc Pl => variants {} ; - Part PresP Fem Sg => variants {} ; - Part PresP Fem Pl => variants {} ; - Part PassP Masc Sg => s_ + "aputo" ; - Part PassP Masc Pl => s_ + "aputi" ; - Part PassP Fem Sg => s_ + "aputa" ; - Part PassP Fem Pl => s_ + "apute" - } - } ; - -oper scegliere_79 : Str -> Verbo = \scegliere -> - let sce_ = Predef.tk 6 scegliere in - {s = table { - Inf => sce_ + "gliere" ; - InfClit => sce_ + "glier" ; - Indi Pres Sg P1 => sce_ + "lgo" ; - Indi Pres Sg P2 => sce_ + "gli" ; - Indi Pres Sg P3 => sce_ + "glie" ; - Indi Pres Pl P1 => sce_ + "gliamo" ; - Indi Pres Pl P2 => sce_ + "gliete" ; - Indi Pres Pl P3 => sce_ + "lgono" ; - Indi Imperf Sg P1 => sce_ + "glievo" ; --# notpresent - Indi Imperf Sg P2 => sce_ + "glievi" ; --# notpresent - Indi Imperf Sg P3 => sce_ + "glieva" ; --# notpresent - Indi Imperf Pl P1 => sce_ + "glievamo" ; --# notpresent - Indi Imperf Pl P2 => sce_ + "glievate" ; --# notpresent - Indi Imperf Pl P3 => sce_ + "glievano" ; --# notpresent - Pass Sg P1 => sce_ + "lsi" ; --# notpresent - Pass Sg P2 => sce_ + "gliesti" ; --# notpresent - Pass Sg P3 => sce_ + "lse" ; --# notpresent - Pass Pl P1 => sce_ + "gliemmo" ; --# notpresent - Pass Pl P2 => sce_ + "glieste" ; --# notpresent - Pass Pl P3 => sce_ + "lsero" ; --# notpresent - Fut Sg P1 => sce_ + "glierò" ; --# notpresent - Fut Sg P2 => sce_ + "glierai" ; --# notpresent - Fut Sg P3 => sce_ + "glierà" ; --# notpresent - Fut Pl P1 => sce_ + "glieremo" ; --# notpresent - Fut Pl P2 => sce_ + "glierete" ; --# notpresent - Fut Pl P3 => sce_ + "glieranno" ; --# notpresent - Cong Pres Sg P1 => sce_ + "lga" ; - Cong Pres Sg P2 => sce_ + "lga" ; - Cong Pres Sg P3 => sce_ + "lga" ; - Cong Pres Pl P1 => sce_ + "gliamo" ; - Cong Pres Pl P2 => sce_ + "gliate" ; - Cong Pres Pl P3 => sce_ + "lgano" ; - Cong Imperf Sg P1 => sce_ + "gliessi" ; --# notpresent - Cong Imperf Sg P2 => sce_ + "gliessi" ; --# notpresent - Cong Imperf Sg P3 => sce_ + "gliesse" ; --# notpresent - Cong Imperf Pl P1 => sce_ + "gliessimo" ; --# notpresent - Cong Imperf Pl P2 => sce_ + "glieste" ; --# notpresent - Cong Imperf Pl P3 => sce_ + "gliessero" ; --# notpresent - Cond Sg P1 => sce_ + "glierei" ; --# notpresent - Cond Sg P2 => sce_ + "glieresti" ; --# notpresent - Cond Sg P3 => sce_ + "glierebbe" ; --# notpresent - Cond Pl P1 => sce_ + "glieremmo" ; --# notpresent - Cond Pl P2 => sce_ + "gliereste" ; --# notpresent - Cond Pl P3 => sce_ + "glierebbero" ; --# notpresent - Imper SgP2 => sce_ + "gli" ; - Imper PlP1 => sce_ + "gliamo" ; - Imper PlP2 => sce_ + "gliete" ; - Ger => sce_ + "gliendo" ; - Part PresP Masc Sg => sce_ + "gliente" ; - Part PresP Masc Pl => sce_ + "glienti" ; - Part PresP Fem Sg => sce_ + "gliente" ; - Part PresP Fem Pl => sce_ + "glienti" ; - Part PassP Masc Sg => sce_ + "lto" ; - Part PassP Masc Pl => sce_ + "lti" ; - Part PassP Fem Sg => sce_ + "lta" ; - Part PassP Fem Pl => sce_ + "lte" - } - } ; - -oper scendere_80 : Str -> Verbo = \scendere -> - let sce_ = Predef.tk 5 scendere in - {s = table { - Inf => sce_ + "ndere" ; - InfClit => sce_ + "nder" ; - Indi Pres Sg P1 => sce_ + "ndo" ; - Indi Pres Sg P2 => sce_ + "ndi" ; - Indi Pres Sg P3 => sce_ + "nde" ; - Indi Pres Pl P1 => sce_ + "ndiamo" ; - Indi Pres Pl P2 => sce_ + "ndete" ; - Indi Pres Pl P3 => sce_ + "ndono" ; - Indi Imperf Sg P1 => sce_ + "ndevo" ; --# notpresent - Indi Imperf Sg P2 => sce_ + "ndevi" ; --# notpresent - Indi Imperf Sg P3 => sce_ + "ndeva" ; --# notpresent - Indi Imperf Pl P1 => sce_ + "ndevamo" ; --# notpresent - Indi Imperf Pl P2 => sce_ + "ndevate" ; --# notpresent - Indi Imperf Pl P3 => sce_ + "ndevano" ; --# notpresent - Pass Sg P1 => sce_ + "si" ; --# notpresent - Pass Sg P2 => sce_ + "ndesti" ; --# notpresent - Pass Sg P3 => sce_ + "se" ; --# notpresent - Pass Pl P1 => sce_ + "ndemmo" ; --# notpresent - Pass Pl P2 => sce_ + "ndeste" ; --# notpresent - Pass Pl P3 => sce_ + "sero" ; --# notpresent - Fut Sg P1 => sce_ + "nderò" ; --# notpresent - Fut Sg P2 => sce_ + "nderai" ; --# notpresent - Fut Sg P3 => sce_ + "nderà" ; --# notpresent - Fut Pl P1 => sce_ + "nderemo" ; --# notpresent - Fut Pl P2 => sce_ + "nderete" ; --# notpresent - Fut Pl P3 => sce_ + "nderanno" ; --# notpresent - Cong Pres Sg P1 => sce_ + "nda" ; - Cong Pres Sg P2 => sce_ + "nda" ; - Cong Pres Sg P3 => sce_ + "nda" ; - Cong Pres Pl P1 => sce_ + "ndiamo" ; - Cong Pres Pl P2 => sce_ + "ndiate" ; - Cong Pres Pl P3 => sce_ + "ndano" ; - Cong Imperf Sg P1 => sce_ + "ndessi" ; --# notpresent - Cong Imperf Sg P2 => sce_ + "ndessi" ; --# notpresent - Cong Imperf Sg P3 => sce_ + "ndesse" ; --# notpresent - Cong Imperf Pl P1 => sce_ + "ndessimo" ; --# notpresent - Cong Imperf Pl P2 => sce_ + "ndeste" ; --# notpresent - Cong Imperf Pl P3 => sce_ + "ndessero" ; --# notpresent - Cond Sg P1 => sce_ + "nderei" ; --# notpresent - Cond Sg P2 => sce_ + "nderesti" ; --# notpresent - Cond Sg P3 => sce_ + "nderebbe" ; --# notpresent - Cond Pl P1 => sce_ + "nderemmo" ; --# notpresent - Cond Pl P2 => sce_ + "ndereste" ; --# notpresent - Cond Pl P3 => sce_ + "nderebbero" ; --# notpresent - Imper SgP2 => sce_ + "ndi" ; - Imper PlP1 => sce_ + "ndiamo" ; - Imper PlP2 => sce_ + "ndete" ; - Ger => sce_ + "ndendo" ; - Part PresP Masc Sg => sce_ + "ndente" ; - Part PresP Masc Pl => sce_ + "ndenti" ; - Part PresP Fem Sg => sce_ + "ndente" ; - Part PresP Fem Pl => sce_ + "ndenti" ; - Part PassP Masc Sg => sce_ + "so" ; - Part PassP Masc Pl => sce_ + "si" ; - Part PassP Fem Sg => sce_ + "sa" ; - Part PassP Fem Pl => sce_ + "se" - } - } ; - -oper scindere_81 : Str -> Verbo = \scindere -> - let sci_ = Predef.tk 5 scindere in - {s = table { - Inf => sci_ + "ndere" ; - InfClit => sci_ + "nder" ; - Indi Pres Sg P1 => sci_ + "ndo" ; - Indi Pres Sg P2 => sci_ + "ndi" ; - Indi Pres Sg P3 => sci_ + "nde" ; - Indi Pres Pl P1 => sci_ + "ndiamo" ; - Indi Pres Pl P2 => sci_ + "ndete" ; - Indi Pres Pl P3 => sci_ + "ndono" ; - Indi Imperf Sg P1 => sci_ + "ndevo" ; --# notpresent - Indi Imperf Sg P2 => sci_ + "ndevi" ; --# notpresent - Indi Imperf Sg P3 => sci_ + "ndeva" ; --# notpresent - Indi Imperf Pl P1 => sci_ + "ndevamo" ; --# notpresent - Indi Imperf Pl P2 => sci_ + "ndevate" ; --# notpresent - Indi Imperf Pl P3 => sci_ + "ndevano" ; --# notpresent - Pass Sg P1 => sci_ + "ssi" ; --# notpresent - Pass Sg P2 => sci_ + "ndesti" ; --# notpresent - Pass Sg P3 => sci_ + "sse" ; --# notpresent - Pass Pl P1 => sci_ + "ndemmo" ; --# notpresent - Pass Pl P2 => sci_ + "ndeste" ; --# notpresent - Pass Pl P3 => sci_ + "ssero" ; --# notpresent - Fut Sg P1 => sci_ + "nderò" ; --# notpresent - Fut Sg P2 => sci_ + "nderai" ; --# notpresent - Fut Sg P3 => sci_ + "nderà" ; --# notpresent - Fut Pl P1 => sci_ + "nderemo" ; --# notpresent - Fut Pl P2 => sci_ + "nderete" ; --# notpresent - Fut Pl P3 => sci_ + "nderanno" ; --# notpresent - Cong Pres Sg P1 => sci_ + "nda" ; - Cong Pres Sg P2 => sci_ + "nda" ; - Cong Pres Sg P3 => sci_ + "nda" ; - Cong Pres Pl P1 => sci_ + "ndiamo" ; - Cong Pres Pl P2 => sci_ + "ndiate" ; - Cong Pres Pl P3 => sci_ + "ndano" ; - Cong Imperf Sg P1 => sci_ + "ndessi" ; --# notpresent - Cong Imperf Sg P2 => sci_ + "ndessi" ; --# notpresent - Cong Imperf Sg P3 => sci_ + "ndesse" ; --# notpresent - Cong Imperf Pl P1 => sci_ + "ndessimo" ; --# notpresent - Cong Imperf Pl P2 => sci_ + "ndeste" ; --# notpresent - Cong Imperf Pl P3 => sci_ + "ndessero" ; --# notpresent - Cond Sg P1 => sci_ + "nderei" ; --# notpresent - Cond Sg P2 => sci_ + "nderesti" ; --# notpresent - Cond Sg P3 => sci_ + "nderebbe" ; --# notpresent - Cond Pl P1 => sci_ + "nderemmo" ; --# notpresent - Cond Pl P2 => sci_ + "ndereste" ; --# notpresent - Cond Pl P3 => sci_ + "nderebbero" ; --# notpresent - Imper SgP2 => sci_ + "ndi" ; - Imper PlP1 => sci_ + "ndiamo" ; - Imper PlP2 => sci_ + "ndete" ; - Ger => sci_ + "ndendo" ; - Part PresP Masc Sg => sci_ + "ndente" ; - Part PresP Masc Pl => sci_ + "ndenti" ; - Part PresP Fem Sg => sci_ + "ndente" ; - Part PresP Fem Pl => sci_ + "ndenti" ; - Part PassP Masc Sg => sci_ + "sso" ; - Part PassP Masc Pl => sci_ + "ssi" ; - Part PassP Fem Sg => sci_ + "ssa" ; - Part PassP Fem Pl => sci_ + "sse" - } - } ; - -oper scrivere_82 : Str -> Verbo = \scrivere -> - let scri_ = Predef.tk 4 scrivere in - {s = table { - Inf => scri_ + "vere" ; - InfClit => scri_ + "ver" ; - Indi Pres Sg P1 => scri_ + "vo" ; - Indi Pres Sg P2 => scri_ + "vi" ; - Indi Pres Sg P3 => scri_ + "ve" ; - Indi Pres Pl P1 => scri_ + "viamo" ; - Indi Pres Pl P2 => scri_ + "vete" ; - Indi Pres Pl P3 => scri_ + "vono" ; - Indi Imperf Sg P1 => scri_ + "vevo" ; --# notpresent - Indi Imperf Sg P2 => scri_ + "vevi" ; --# notpresent - Indi Imperf Sg P3 => scri_ + "veva" ; --# notpresent - Indi Imperf Pl P1 => scri_ + "vevamo" ; --# notpresent - Indi Imperf Pl P2 => scri_ + "vevate" ; --# notpresent - Indi Imperf Pl P3 => scri_ + "vevano" ; --# notpresent - Pass Sg P1 => scri_ + "ssi" ; --# notpresent - Pass Sg P2 => scri_ + "vesti" ; --# notpresent - Pass Sg P3 => scri_ + "sse" ; --# notpresent - Pass Pl P1 => scri_ + "vemmo" ; --# notpresent - Pass Pl P2 => scri_ + "veste" ; --# notpresent - Pass Pl P3 => scri_ + "ssero" ; --# notpresent - Fut Sg P1 => scri_ + "verò" ; --# notpresent - Fut Sg P2 => scri_ + "verai" ; --# notpresent - Fut Sg P3 => scri_ + "verà" ; --# notpresent - Fut Pl P1 => scri_ + "veremo" ; --# notpresent - Fut Pl P2 => scri_ + "verete" ; --# notpresent - Fut Pl P3 => scri_ + "veranno" ; --# notpresent - Cong Pres Sg P1 => scri_ + "va" ; - Cong Pres Sg P2 => scri_ + "va" ; - Cong Pres Sg P3 => scri_ + "va" ; - Cong Pres Pl P1 => scri_ + "viamo" ; - Cong Pres Pl P2 => scri_ + "viate" ; - Cong Pres Pl P3 => scri_ + "vano" ; - Cong Imperf Sg P1 => scri_ + "vessi" ; --# notpresent - Cong Imperf Sg P2 => scri_ + "vessi" ; --# notpresent - Cong Imperf Sg P3 => scri_ + "vesse" ; --# notpresent - Cong Imperf Pl P1 => scri_ + "vessimo" ; --# notpresent - Cong Imperf Pl P2 => scri_ + "veste" ; --# notpresent - Cong Imperf Pl P3 => scri_ + "vessero" ; --# notpresent - Cond Sg P1 => scri_ + "verei" ; --# notpresent - Cond Sg P2 => scri_ + "veresti" ; --# notpresent - Cond Sg P3 => scri_ + "verebbe" ; --# notpresent - Cond Pl P1 => scri_ + "veremmo" ; --# notpresent - Cond Pl P2 => scri_ + "vereste" ; --# notpresent - Cond Pl P3 => scri_ + "verebbero" ; --# notpresent - Imper SgP2 => scri_ + "vi" ; - Imper PlP1 => scri_ + "viamo" ; - Imper PlP2 => scri_ + "vete" ; - Ger => scri_ + "vendo" ; - Part PresP Masc Sg => scri_ + "vente" ; - Part PresP Masc Pl => scri_ + "venti" ; - Part PresP Fem Sg => scri_ + "vente" ; - Part PresP Fem Pl => scri_ + "venti" ; - Part PassP Masc Sg => scri_ + "tto" ; - Part PassP Masc Pl => scri_ + "tti" ; - Part PassP Fem Sg => scri_ + "tta" ; - Part PassP Fem Pl => scri_ + "tte" - } - } ; - -oper scuotere_83 : Str -> Verbo = \scuotere -> - let sc_ = Predef.tk 6 scuotere in - {s = table { - Inf => sc_ + "uotere" ; - InfClit => sc_ + "uoter" ; - Indi Pres Sg P1 => sc_ + "uoto" ; - Indi Pres Sg P2 => sc_ + "uoti" ; - Indi Pres Sg P3 => sc_ + "uote" ; - Indi Pres Pl P1 => sc_ + "uotiamo" ; - Indi Pres Pl P2 => sc_ + "uotete" ; - Indi Pres Pl P3 => sc_ + "uotono" ; - Indi Imperf Sg P1 => sc_ + "uotevo" ; --# notpresent - Indi Imperf Sg P2 => sc_ + "uotevi" ; --# notpresent - Indi Imperf Sg P3 => sc_ + "uoteva" ; --# notpresent - Indi Imperf Pl P1 => sc_ + "uotevamo" ; --# notpresent - Indi Imperf Pl P2 => sc_ + "uotevate" ; --# notpresent - Indi Imperf Pl P3 => sc_ + "uotevano" ; --# notpresent - Pass Sg P1 => sc_ + "ossi" ; --# notpresent - Pass Sg P2 => sc_ + "uotesti" ; --# notpresent - Pass Sg P3 => sc_ + "osse" ; --# notpresent - Pass Pl P1 => sc_ + "uotemmo" ; --# notpresent - Pass Pl P2 => sc_ + "uoteste" ; --# notpresent - Pass Pl P3 => sc_ + "ossero" ; --# notpresent - Fut Sg P1 => sc_ + "uoterò" ; --# notpresent - Fut Sg P2 => sc_ + "uoterai" ; --# notpresent - Fut Sg P3 => sc_ + "uoterà" ; --# notpresent - Fut Pl P1 => sc_ + "uoteremo" ; --# notpresent - Fut Pl P2 => sc_ + "uoterete" ; --# notpresent - Fut Pl P3 => sc_ + "uoteranno" ; --# notpresent - Cong Pres Sg P1 => sc_ + "uota" ; - Cong Pres Sg P2 => sc_ + "uota" ; - Cong Pres Sg P3 => sc_ + "uota" ; - Cong Pres Pl P1 => sc_ + "uotiamo" ; - Cong Pres Pl P2 => sc_ + "uotiate" ; - Cong Pres Pl P3 => sc_ + "uotano" ; - Cong Imperf Sg P1 => sc_ + "uotessi" ; --# notpresent - Cong Imperf Sg P2 => sc_ + "uotessi" ; --# notpresent - Cong Imperf Sg P3 => sc_ + "uotesse" ; --# notpresent - Cong Imperf Pl P1 => sc_ + "uotessimo" ; --# notpresent - Cong Imperf Pl P2 => sc_ + "uoteste" ; --# notpresent - Cong Imperf Pl P3 => sc_ + "uotessero" ; --# notpresent - Cond Sg P1 => sc_ + "uoterei" ; --# notpresent - Cond Sg P2 => sc_ + "uoteresti" ; --# notpresent - Cond Sg P3 => sc_ + "uoterebbe" ; --# notpresent - Cond Pl P1 => sc_ + "uoteremmo" ; --# notpresent - Cond Pl P2 => sc_ + "uotereste" ; --# notpresent - Cond Pl P3 => sc_ + "uoterebbero" ; --# notpresent - Imper SgP2 => sc_ + "uoti" ; - Imper PlP1 => sc_ + "uotiamo" ; - Imper PlP2 => sc_ + "uotete" ; - Ger => sc_ + "uotendo" ; - Part PresP Masc Sg => sc_ + "uotente" ; - Part PresP Masc Pl => sc_ + "uotenti" ; - Part PresP Fem Sg => sc_ + "uotente" ; - Part PresP Fem Pl => sc_ + "uotenti" ; - Part PassP Masc Sg => sc_ + "osso" ; - Part PassP Masc Pl => sc_ + "ossi" ; - Part PassP Fem Sg => sc_ + "ossa" ; - Part PassP Fem Pl => sc_ + "osse" - } - } ; - -oper sedere_84 : Str -> Verbo = \sedere -> - let s_ = Predef.tk 5 sedere in - {s = table { - Inf => s_ + "edere" ; - InfClit => s_ + "eder" ; - Indi Pres Sg P1 => s_ + "iedo" ; - Indi Pres Sg P2 => s_ + "iedi" ; - Indi Pres Sg P3 => s_ + "iede" ; - Indi Pres Pl P1 => s_ + "ediamo" ; - Indi Pres Pl P2 => s_ + "edete" ; - Indi Pres Pl P3 => s_ + "iedono" ; - Indi Imperf Sg P1 => s_ + "edevo" ; --# notpresent - Indi Imperf Sg P2 => s_ + "edevi" ; --# notpresent - Indi Imperf Sg P3 => s_ + "edeva" ; --# notpresent - Indi Imperf Pl P1 => s_ + "edevamo" ; --# notpresent - Indi Imperf Pl P2 => s_ + "edevate" ; --# notpresent - Indi Imperf Pl P3 => s_ + "edevano" ; --# notpresent - Pass Sg P1 => s_ + "edetti" ; --# notpresent - Pass Sg P2 => s_ + "edesti" ; --# notpresent - Pass Sg P3 => s_ + "edette" ; --# notpresent - Pass Pl P1 => s_ + "edemmo" ; --# notpresent - Pass Pl P2 => s_ + "edeste" ; --# notpresent - Pass Pl P3 => s_ + "edettero" ; --# notpresent - Fut Sg P1 => s_ + "ederò" ; --# notpresent - Fut Sg P2 => s_ + "ederai" ; --# notpresent - Fut Sg P3 => s_ + "ederà" ; --# notpresent - Fut Pl P1 => s_ + "ederemo" ; --# notpresent - Fut Pl P2 => s_ + "ederete" ; --# notpresent - Fut Pl P3 => s_ + "ederanno" ; --# notpresent - Cong Pres Sg P1 => s_ + "ieda" ; - Cong Pres Sg P2 => s_ + "ieda" ; - Cong Pres Sg P3 => s_ + "ieda" ; - Cong Pres Pl P1 => s_ + "ediamo" ; - Cong Pres Pl P2 => s_ + "ediate" ; - Cong Pres Pl P3 => s_ + "iedano" ; - Cong Imperf Sg P1 => s_ + "edessi" ; --# notpresent - Cong Imperf Sg P2 => s_ + "edessi" ; --# notpresent - Cong Imperf Sg P3 => s_ + "edesse" ; --# notpresent - Cong Imperf Pl P1 => s_ + "edessimo" ; --# notpresent - Cong Imperf Pl P2 => s_ + "edeste" ; --# notpresent - Cong Imperf Pl P3 => s_ + "edessero" ; --# notpresent - Cond Sg P1 => s_ + "ederei" ; --# notpresent - Cond Sg P2 => s_ + "ederesti" ; --# notpresent - Cond Sg P3 => s_ + "ederebbe" ; --# notpresent - Cond Pl P1 => s_ + "ederemmo" ; --# notpresent - Cond Pl P2 => s_ + "edereste" ; --# notpresent - Cond Pl P3 => s_ + "ederebbero" ; --# notpresent - Imper SgP2 => s_ + "iedi" ; - Imper PlP1 => s_ + "ediamo" ; - Imper PlP2 => s_ + "edete" ; - Ger => s_ + "edendo" ; - Part PresP Masc Sg => s_ + "edente" ; - Part PresP Masc Pl => s_ + "edenti" ; - Part PresP Fem Sg => s_ + "edente" ; - Part PresP Fem Pl => s_ + "edenti" ; - Part PassP Masc Sg => s_ + "eduto" ; - Part PassP Masc Pl => s_ + "eduti" ; - Part PassP Fem Sg => s_ + "eduta" ; - Part PassP Fem Pl => s_ + "edute" - } - } ; - -oper spargere_85 : Str -> Verbo = \spargere -> - let spar_ = Predef.tk 4 spargere in - {s = table { - Inf => spar_ + "gere" ; - InfClit => spar_ + "ger" ; - Indi Pres Sg P1 => spar_ + "go" ; - Indi Pres Sg P2 => spar_ + "gi" ; - Indi Pres Sg P3 => spar_ + "ge" ; - Indi Pres Pl P1 => spar_ + "giamo" ; - Indi Pres Pl P2 => spar_ + "gete" ; - Indi Pres Pl P3 => spar_ + "gono" ; - Indi Imperf Sg P1 => spar_ + "gevo" ; --# notpresent - Indi Imperf Sg P2 => spar_ + "gevi" ; --# notpresent - Indi Imperf Sg P3 => spar_ + "geva" ; --# notpresent - Indi Imperf Pl P1 => spar_ + "gevamo" ; --# notpresent - Indi Imperf Pl P2 => spar_ + "gevate" ; --# notpresent - Indi Imperf Pl P3 => spar_ + "gevano" ; --# notpresent - Pass Sg P1 => spar_ + "si" ; --# notpresent - Pass Sg P2 => spar_ + "gesti" ; --# notpresent - Pass Sg P3 => spar_ + "se" ; --# notpresent - Pass Pl P1 => spar_ + "gemmo" ; --# notpresent - Pass Pl P2 => spar_ + "geste" ; --# notpresent - Pass Pl P3 => spar_ + "sero" ; --# notpresent - Fut Sg P1 => spar_ + "gerò" ; --# notpresent - Fut Sg P2 => spar_ + "gerai" ; --# notpresent - Fut Sg P3 => spar_ + "gerà" ; --# notpresent - Fut Pl P1 => spar_ + "geremo" ; --# notpresent - Fut Pl P2 => spar_ + "gerete" ; --# notpresent - Fut Pl P3 => spar_ + "geranno" ; --# notpresent - Cong Pres Sg P1 => spar_ + "ga" ; - Cong Pres Sg P2 => spar_ + "ga" ; - Cong Pres Sg P3 => spar_ + "ga" ; - Cong Pres Pl P1 => spar_ + "giamo" ; - Cong Pres Pl P2 => spar_ + "giate" ; - Cong Pres Pl P3 => spar_ + "gano" ; - Cong Imperf Sg P1 => spar_ + "gessi" ; --# notpresent - Cong Imperf Sg P2 => spar_ + "gessi" ; --# notpresent - Cong Imperf Sg P3 => spar_ + "gesse" ; --# notpresent - Cong Imperf Pl P1 => spar_ + "gessimo" ; --# notpresent - Cong Imperf Pl P2 => spar_ + "geste" ; --# notpresent - Cong Imperf Pl P3 => spar_ + "gessero" ; --# notpresent - Cond Sg P1 => spar_ + "gerei" ; --# notpresent - Cond Sg P2 => spar_ + "geresti" ; --# notpresent - Cond Sg P3 => spar_ + "gerebbe" ; --# notpresent - Cond Pl P1 => spar_ + "geremmo" ; --# notpresent - Cond Pl P2 => spar_ + "gereste" ; --# notpresent - Cond Pl P3 => spar_ + "gerebbero" ; --# notpresent - Imper SgP2 => spar_ + "gi" ; - Imper PlP1 => spar_ + "giamo" ; - Imper PlP2 => spar_ + "gete" ; - Ger => spar_ + "gendo" ; - Part PresP Masc Sg => spar_ + "gente" ; - Part PresP Masc Pl => spar_ + "genti" ; - Part PresP Fem Sg => spar_ + "gente" ; - Part PresP Fem Pl => spar_ + "genti" ; - Part PassP Masc Sg => spar_ + "so" ; - Part PassP Masc Pl => spar_ + "si" ; - Part PassP Fem Sg => spar_ + "sa" ; - Part PassP Fem Pl => spar_ + "se" - } - } ; - -oper spegnere_86 : Str -> Verbo = \spegnere -> - let spe_ = Predef.tk 5 spegnere in - {s = table { - Inf => spe_ + "gnere" ; - InfClit => spe_ + "gner" ; - Indi Pres Sg P1 => spe_ + "ngo" ; - Indi Pres Sg P2 => spe_ + "gni" ; - Indi Pres Sg P3 => spe_ + "gne" ; - Indi Pres Pl P1 => spe_ + "gniamo" ; - Indi Pres Pl P2 => spe_ + "gnete" ; - Indi Pres Pl P3 => spe_ + "ngono" ; - Indi Imperf Sg P1 => spe_ + "gnevo" ; --# notpresent - Indi Imperf Sg P2 => spe_ + "gnevi" ; --# notpresent - Indi Imperf Sg P3 => spe_ + "gneva" ; --# notpresent - Indi Imperf Pl P1 => spe_ + "gnevamo" ; --# notpresent - Indi Imperf Pl P2 => spe_ + "gnevate" ; --# notpresent - Indi Imperf Pl P3 => spe_ + "gnevano" ; --# notpresent - Pass Sg P1 => spe_ + "nsi" ; --# notpresent - Pass Sg P2 => spe_ + "gnesti" ; --# notpresent - Pass Sg P3 => spe_ + "nse" ; --# notpresent - Pass Pl P1 => spe_ + "gnemmo" ; --# notpresent - Pass Pl P2 => spe_ + "gneste" ; --# notpresent - Pass Pl P3 => spe_ + "nsero" ; --# notpresent - Fut Sg P1 => spe_ + "gnerò" ; --# notpresent - Fut Sg P2 => spe_ + "gnerai" ; --# notpresent - Fut Sg P3 => spe_ + "gnerà" ; --# notpresent - Fut Pl P1 => spe_ + "gneremo" ; --# notpresent - Fut Pl P2 => spe_ + "gnerete" ; --# notpresent - Fut Pl P3 => spe_ + "gneranno" ; --# notpresent - Cong Pres Sg P1 => spe_ + "nga" ; - Cong Pres Sg P2 => spe_ + "nga" ; - Cong Pres Sg P3 => spe_ + "nga" ; - Cong Pres Pl P1 => spe_ + "gniamo" ; - Cong Pres Pl P2 => spe_ + "gniate" ; - Cong Pres Pl P3 => spe_ + "ngano" ; - Cong Imperf Sg P1 => spe_ + "gnessi" ; --# notpresent - Cong Imperf Sg P2 => spe_ + "gnessi" ; --# notpresent - Cong Imperf Sg P3 => spe_ + "gnesse" ; --# notpresent - Cong Imperf Pl P1 => spe_ + "gnessimo" ; --# notpresent - Cong Imperf Pl P2 => spe_ + "gneste" ; --# notpresent - Cong Imperf Pl P3 => spe_ + "gnessero" ; --# notpresent - Cond Sg P1 => spe_ + "gnerei" ; --# notpresent - Cond Sg P2 => spe_ + "gneresti" ; --# notpresent - Cond Sg P3 => spe_ + "gnerebbe" ; --# notpresent - Cond Pl P1 => spe_ + "gneremmo" ; --# notpresent - Cond Pl P2 => spe_ + "gnereste" ; --# notpresent - Cond Pl P3 => spe_ + "gnerebbero" ; --# notpresent - Imper SgP2 => spe_ + "gni" ; - Imper PlP1 => spe_ + "gniamo" ; - Imper PlP2 => spe_ + "gnete" ; - Ger => spe_ + "gnendo" ; - Part PresP Masc Sg => spe_ + "gnente" ; - Part PresP Masc Pl => spe_ + "gnenti" ; - Part PresP Fem Sg => spe_ + "gnente" ; - Part PresP Fem Pl => spe_ + "gnenti" ; - Part PassP Masc Sg => spe_ + "nto" ; - Part PassP Masc Pl => spe_ + "nti" ; - Part PassP Fem Sg => spe_ + "nta" ; - Part PassP Fem Pl => spe_ + "nte" - } - } ; - -oper stringere_87 : Str -> Verbo = \striingere -> - let stri_ = Predef.tk 6 striingere in - {s = table { - Inf => stri_ + "ingere" ; - InfClit => stri_ + "inger" ; - Indi Pres Sg P1 => stri_ + "ingo" ; - Indi Pres Sg P2 => stri_ + "ingi" ; - Indi Pres Sg P3 => stri_ + "inge" ; - Indi Pres Pl P1 => stri_ + "ingiamo" ; - Indi Pres Pl P2 => stri_ + "ingete" ; - Indi Pres Pl P3 => stri_ + "ingono" ; - Indi Imperf Sg P1 => stri_ + "ingevo" ; --# notpresent - Indi Imperf Sg P2 => stri_ + "ingevi" ; --# notpresent - Indi Imperf Sg P3 => stri_ + "ingeva" ; --# notpresent - Indi Imperf Pl P1 => stri_ + "ingevamo" ; --# notpresent - Indi Imperf Pl P2 => stri_ + "ingevate" ; --# notpresent - Indi Imperf Pl P3 => stri_ + "ingevano" ; --# notpresent - Pass Sg P1 => stri_ + "insi" ; --# notpresent - Pass Sg P2 => stri_ + "ingesti" ; --# notpresent - Pass Sg P3 => stri_ + "inse" ; --# notpresent - Pass Pl P1 => stri_ + "ingemmo" ; --# notpresent - Pass Pl P2 => stri_ + "ingeste" ; --# notpresent - Pass Pl P3 => stri_ + "insero" ; --# notpresent - Fut Sg P1 => stri_ + "ingerò" ; --# notpresent - Fut Sg P2 => stri_ + "ingerai" ; --# notpresent - Fut Sg P3 => stri_ + "ingerà" ; --# notpresent - Fut Pl P1 => stri_ + "ingeremo" ; --# notpresent - Fut Pl P2 => stri_ + "ingerete" ; --# notpresent - Fut Pl P3 => stri_ + "ingeranno" ; --# notpresent - Cong Pres Sg P1 => stri_ + "inga" ; - Cong Pres Sg P2 => stri_ + "inga" ; - Cong Pres Sg P3 => stri_ + "inga" ; - Cong Pres Pl P1 => stri_ + "ingiamo" ; - Cong Pres Pl P2 => stri_ + "ingiate" ; - Cong Pres Pl P3 => stri_ + "ingano" ; - Cong Imperf Sg P1 => stri_ + "ingessi" ; --# notpresent - Cong Imperf Sg P2 => stri_ + "ingessi" ; --# notpresent - Cong Imperf Sg P3 => stri_ + "ingesse" ; --# notpresent - Cong Imperf Pl P1 => stri_ + "ingessimo" ; --# notpresent - Cong Imperf Pl P2 => stri_ + "ingeste" ; --# notpresent - Cong Imperf Pl P3 => stri_ + "ingessero" ; --# notpresent - Cond Sg P1 => stri_ + "ingerei" ; --# notpresent - Cond Sg P2 => stri_ + "ingeresti" ; --# notpresent - Cond Sg P3 => stri_ + "ingerebbe" ; --# notpresent - Cond Pl P1 => stri_ + "ingeremmo" ; --# notpresent - Cond Pl P2 => stri_ + "ingereste" ; --# notpresent - Cond Pl P3 => stri_ + "ingerebbero" ; --# notpresent - Imper SgP2 => stri_ + "ingi" ; - Imper PlP1 => stri_ + "ingiamo" ; - Imper PlP2 => stri_ + "ingete" ; - Ger => stri_ + "ingendo" ; - Part PresP Masc Sg => stri_ + "ingente" ; - Part PresP Masc Pl => stri_ + "ingenti" ; - Part PresP Fem Sg => stri_ + "ingente" ; - Part PresP Fem Pl => stri_ + "ingenti" ; - Part PassP Masc Sg => stri_ + "etto" ; - Part PassP Masc Pl => stri_ + "etti" ; - Part PassP Fem Sg => stri_ + "etta" ; - Part PassP Fem Pl => stri_ + "ette" - } - } ; - -oper svellere_88 : Str -> Verbo = \svellere -> - let svel_ = Predef.tk 4 svellere in - {s = table { - Inf => svel_ + "lere" ; - InfClit => svel_ + "ler" ; - Indi Pres Sg P1 => svel_ + "lo" ; - Indi Pres Sg P2 => svel_ + "li" ; - Indi Pres Sg P3 => svel_ + "le" ; - Indi Pres Pl P1 => svel_ + "liamo" ; - Indi Pres Pl P2 => svel_ + "lete" ; - Indi Pres Pl P3 => svel_ + "lono" ; - Indi Imperf Sg P1 => svel_ + "levo" ; --# notpresent - Indi Imperf Sg P2 => svel_ + "levi" ; --# notpresent - Indi Imperf Sg P3 => svel_ + "leva" ; --# notpresent - Indi Imperf Pl P1 => svel_ + "levamo" ; --# notpresent - Indi Imperf Pl P2 => svel_ + "levate" ; --# notpresent - Indi Imperf Pl P3 => svel_ + "levano" ; --# notpresent - Pass Sg P1 => svel_ + "si" ; --# notpresent - Pass Sg P2 => svel_ + "lesti" ; --# notpresent - Pass Sg P3 => svel_ + "se" ; --# notpresent - Pass Pl P1 => svel_ + "lemmo" ; --# notpresent - Pass Pl P2 => svel_ + "leste" ; --# notpresent - Pass Pl P3 => svel_ + "sero" ; --# notpresent - Fut Sg P1 => svel_ + "lerò" ; --# notpresent - Fut Sg P2 => svel_ + "lerai" ; --# notpresent - Fut Sg P3 => svel_ + "lerà" ; --# notpresent - Fut Pl P1 => svel_ + "leremo" ; --# notpresent - Fut Pl P2 => svel_ + "lerete" ; --# notpresent - Fut Pl P3 => svel_ + "leranno" ; --# notpresent - Cong Pres Sg P1 => svel_ + "la" ; - Cong Pres Sg P2 => svel_ + "la" ; - Cong Pres Sg P3 => svel_ + "la" ; - Cong Pres Pl P1 => svel_ + "liamo" ; - Cong Pres Pl P2 => svel_ + "liate" ; - Cong Pres Pl P3 => svel_ + "lano" ; - Cong Imperf Sg P1 => svel_ + "lessi" ; --# notpresent - Cong Imperf Sg P2 => svel_ + "lessi" ; --# notpresent - Cong Imperf Sg P3 => svel_ + "lesse" ; --# notpresent - Cong Imperf Pl P1 => svel_ + "lessimo" ; --# notpresent - Cong Imperf Pl P2 => svel_ + "leste" ; --# notpresent - Cong Imperf Pl P3 => svel_ + "lessero" ; --# notpresent - Cond Sg P1 => svel_ + "lerei" ; --# notpresent - Cond Sg P2 => svel_ + "leresti" ; --# notpresent - Cond Sg P3 => svel_ + "lerebbe" ; --# notpresent - Cond Pl P1 => svel_ + "leremmo" ; --# notpresent - Cond Pl P2 => svel_ + "lereste" ; --# notpresent - Cond Pl P3 => svel_ + "lerebbero" ; --# notpresent - Imper SgP2 => svel_ + "li" ; - Imper PlP1 => svel_ + "liamo" ; - Imper PlP2 => svel_ + "lete" ; - Ger => svel_ + "lendo" ; - Part PresP Masc Sg => svel_ + "lente" ; - Part PresP Masc Pl => svel_ + "lenti" ; - Part PresP Fem Sg => svel_ + "lente" ; - Part PresP Fem Pl => svel_ + "lenti" ; - Part PassP Masc Sg => svel_ + "to" ; - Part PassP Masc Pl => svel_ + "ti" ; - Part PassP Fem Sg => svel_ + "ta" ; - Part PassP Fem Pl => svel_ + "te" - } - } ; - -oper tenere_89 : Str -> Verbo = \tenere -> - let t_ = Predef.tk 5 tenere in - {s = table { - Inf => t_ + "enere" ; - InfClit => t_ + "ener" ; - Indi Pres Sg P1 => t_ + "engo" ; - Indi Pres Sg P2 => t_ + "ieni" ; - Indi Pres Sg P3 => t_ + "iene" ; - Indi Pres Pl P1 => t_ + "eniamo" ; - Indi Pres Pl P2 => t_ + "enete" ; - Indi Pres Pl P3 => t_ + "engono" ; - Indi Imperf Sg P1 => t_ + "enevo" ; --# notpresent - Indi Imperf Sg P2 => t_ + "enevi" ; --# notpresent - Indi Imperf Sg P3 => t_ + "eneva" ; --# notpresent - Indi Imperf Pl P1 => t_ + "enevamo" ; --# notpresent - Indi Imperf Pl P2 => t_ + "enevate" ; --# notpresent - Indi Imperf Pl P3 => t_ + "enevano" ; --# notpresent - Pass Sg P1 => t_ + "enni" ; --# notpresent - Pass Sg P2 => t_ + "enesti" ; --# notpresent - Pass Sg P3 => t_ + "enne" ; --# notpresent - Pass Pl P1 => t_ + "enemmo" ; --# notpresent - Pass Pl P2 => t_ + "eneste" ; --# notpresent - Pass Pl P3 => t_ + "ennero" ; --# notpresent - Fut Sg P1 => t_ + "errò" ; --# notpresent - Fut Sg P2 => t_ + "errai" ; --# notpresent - Fut Sg P3 => t_ + "errà" ; --# notpresent - Fut Pl P1 => t_ + "erremo" ; --# notpresent - Fut Pl P2 => t_ + "errete" ; --# notpresent - Fut Pl P3 => t_ + "erranno" ; --# notpresent - Cong Pres Sg P1 => t_ + "enga" ; - Cong Pres Sg P2 => t_ + "enga" ; - Cong Pres Sg P3 => t_ + "enga" ; - Cong Pres Pl P1 => t_ + "eniamo" ; - Cong Pres Pl P2 => t_ + "eniate" ; - Cong Pres Pl P3 => t_ + "engano" ; - Cong Imperf Sg P1 => t_ + "enessi" ; --# notpresent - Cong Imperf Sg P2 => t_ + "enessi" ; --# notpresent - Cong Imperf Sg P3 => t_ + "enesse" ; --# notpresent - Cong Imperf Pl P1 => t_ + "enessimo" ; --# notpresent - Cong Imperf Pl P2 => t_ + "eneste" ; --# notpresent - Cong Imperf Pl P3 => t_ + "enessero" ; --# notpresent - Cond Sg P1 => t_ + "errei" ; --# notpresent - Cond Sg P2 => t_ + "erresti" ; --# notpresent - Cond Sg P3 => t_ + "errebbe" ; --# notpresent - Cond Pl P1 => t_ + "erremmo" ; --# notpresent - Cond Pl P2 => t_ + "erreste" ; --# notpresent - Cond Pl P3 => t_ + "errebbero" ; --# notpresent - Imper SgP2 => t_ + "ieni" ; - Imper PlP1 => t_ + "eniamo" ; - Imper PlP2 => t_ + "enete" ; - Ger => t_ + "enendo" ; - Part PresP Masc Sg => t_ + "enente" ; - Part PresP Masc Pl => t_ + "enenti" ; - Part PresP Fem Sg => t_ + "enente" ; - Part PresP Fem Pl => t_ + "enenti" ; - Part PassP Masc Sg => t_ + "enuto" ; - Part PassP Masc Pl => t_ + "enuti" ; - Part PassP Fem Sg => t_ + "enuta" ; - Part PassP Fem Pl => t_ + "enute" - } - } ; - -oper torcere_90 : Str -> Verbo = \torcere -> - let tor_ = Predef.tk 4 torcere in - {s = table { - Inf => tor_ + "cere" ; - InfClit => tor_ + "cer" ; - Indi Pres Sg P1 => tor_ + "co" ; - Indi Pres Sg P2 => tor_ + "ci" ; - Indi Pres Sg P3 => tor_ + "ce" ; - Indi Pres Pl P1 => tor_ + "ciamo" ; - Indi Pres Pl P2 => tor_ + "cete" ; - Indi Pres Pl P3 => tor_ + "cono" ; - Indi Imperf Sg P1 => tor_ + "cevo" ; --# notpresent - Indi Imperf Sg P2 => tor_ + "cevi" ; --# notpresent - Indi Imperf Sg P3 => tor_ + "ceva" ; --# notpresent - Indi Imperf Pl P1 => tor_ + "cevamo" ; --# notpresent - Indi Imperf Pl P2 => tor_ + "cevate" ; --# notpresent - Indi Imperf Pl P3 => tor_ + "cevano" ; --# notpresent - Pass Sg P1 => tor_ + "si" ; --# notpresent - Pass Sg P2 => tor_ + "cesti" ; --# notpresent - Pass Sg P3 => tor_ + "se" ; --# notpresent - Pass Pl P1 => tor_ + "cemmo" ; --# notpresent - Pass Pl P2 => tor_ + "ceste" ; --# notpresent - Pass Pl P3 => tor_ + "sero" ; --# notpresent - Fut Sg P1 => tor_ + "cerò" ; --# notpresent - Fut Sg P2 => tor_ + "cerai" ; --# notpresent - Fut Sg P3 => tor_ + "cerà" ; --# notpresent - Fut Pl P1 => tor_ + "ceremo" ; --# notpresent - Fut Pl P2 => tor_ + "cerete" ; --# notpresent - Fut Pl P3 => tor_ + "ceranno" ; --# notpresent - Cong Pres Sg P1 => tor_ + "ca" ; - Cong Pres Sg P2 => tor_ + "ca" ; - Cong Pres Sg P3 => tor_ + "ca" ; - Cong Pres Pl P1 => tor_ + "ciamo" ; - Cong Pres Pl P2 => tor_ + "ciate" ; - Cong Pres Pl P3 => tor_ + "cano" ; - Cong Imperf Sg P1 => tor_ + "cessi" ; --# notpresent - Cong Imperf Sg P2 => tor_ + "cessi" ; --# notpresent - Cong Imperf Sg P3 => tor_ + "cesse" ; --# notpresent - Cong Imperf Pl P1 => tor_ + "cessimo" ; --# notpresent - Cong Imperf Pl P2 => tor_ + "ceste" ; --# notpresent - Cong Imperf Pl P3 => tor_ + "cessero" ; --# notpresent - Cond Sg P1 => tor_ + "cerei" ; --# notpresent - Cond Sg P2 => tor_ + "ceresti" ; --# notpresent - Cond Sg P3 => tor_ + "cerebbe" ; --# notpresent - Cond Pl P1 => tor_ + "ceremmo" ; --# notpresent - Cond Pl P2 => tor_ + "cereste" ; --# notpresent - Cond Pl P3 => tor_ + "cerebbero" ; --# notpresent - Imper SgP2 => tor_ + "ci" ; - Imper PlP1 => tor_ + "ciamo" ; - Imper PlP2 => tor_ + "cete" ; - Ger => tor_ + "cendo" ; - Part PresP Masc Sg => tor_ + "cente" ; - Part PresP Masc Pl => tor_ + "centi" ; - Part PresP Fem Sg => tor_ + "cente" ; - Part PresP Fem Pl => tor_ + "centi" ; - Part PassP Masc Sg => tor_ + "to" ; - Part PassP Masc Pl => tor_ + "ti" ; - Part PassP Fem Sg => tor_ + "ta" ; - Part PassP Fem Pl => tor_ + "te" - } - } ; - -oper trarre_91 : Str -> Verbo = \trarre -> - let tra_ = Predef.tk 3 trarre in - {s = table { - Inf => tra_ + "rre" ; - InfClit => tra_ + "r" ; - Indi Pres Sg P1 => tra_ + "ggo" ; - Indi Pres Sg P2 => tra_ + "i" ; - Indi Pres Sg P3 => tra_ + "e" ; - Indi Pres Pl P1 => tra_ + "iamo" ; - Indi Pres Pl P2 => tra_ + "ete" ; - Indi Pres Pl P3 => tra_ + "ggono" ; - Indi Imperf Sg P1 => tra_ + "evo" ; --# notpresent - Indi Imperf Sg P2 => tra_ + "evi" ; --# notpresent - Indi Imperf Sg P3 => tra_ + "eva" ; --# notpresent - Indi Imperf Pl P1 => tra_ + "evamo" ; --# notpresent - Indi Imperf Pl P2 => tra_ + "evate" ; --# notpresent - Indi Imperf Pl P3 => tra_ + "evano" ; --# notpresent - Pass Sg P1 => tra_ + "ssi" ; --# notpresent - Pass Sg P2 => tra_ + "esti" ; --# notpresent - Pass Sg P3 => tra_ + "sse" ; --# notpresent - Pass Pl P1 => tra_ + "emmo" ; --# notpresent - Pass Pl P2 => tra_ + "este" ; --# notpresent - Pass Pl P3 => tra_ + "ssero" ; --# notpresent - Fut Sg P1 => tra_ + "rrò" ; --# notpresent - Fut Sg P2 => tra_ + "rrai" ; --# notpresent - Fut Sg P3 => tra_ + "rrà" ; --# notpresent - Fut Pl P1 => tra_ + "rremo" ; --# notpresent - Fut Pl P2 => tra_ + "rrete" ; --# notpresent - Fut Pl P3 => tra_ + "rranno" ; --# notpresent - Cong Pres Sg P1 => tra_ + "gga" ; - Cong Pres Sg P2 => tra_ + "gga" ; - Cong Pres Sg P3 => tra_ + "gga" ; - Cong Pres Pl P1 => tra_ + "iamo" ; - Cong Pres Pl P2 => tra_ + "iate" ; - Cong Pres Pl P3 => tra_ + "ggano" ; - Cong Imperf Sg P1 => tra_ + "essi" ; --# notpresent - Cong Imperf Sg P2 => tra_ + "essi" ; --# notpresent - Cong Imperf Sg P3 => tra_ + "esse" ; --# notpresent - Cong Imperf Pl P1 => tra_ + "essimo" ; --# notpresent - Cong Imperf Pl P2 => tra_ + "este" ; --# notpresent - Cong Imperf Pl P3 => tra_ + "essero" ; --# notpresent - Cond Sg P1 => tra_ + "rrei" ; --# notpresent - Cond Sg P2 => tra_ + "rresti" ; --# notpresent - Cond Sg P3 => tra_ + "rrebbe" ; --# notpresent - Cond Pl P1 => tra_ + "rremmo" ; --# notpresent - Cond Pl P2 => tra_ + "rreste" ; --# notpresent - Cond Pl P3 => tra_ + "rrebbero" ; --# notpresent - Imper SgP2 => tra_ + "i" ; - Imper PlP1 => tra_ + "iamo" ; - Imper PlP2 => tra_ + "ete" ; - Ger => tra_ + "endo" ; - Part PresP Masc Sg => tra_ + "ente" ; - Part PresP Masc Pl => tra_ + "enti" ; - Part PresP Fem Sg => tra_ + "ente" ; - Part PresP Fem Pl => tra_ + "enti" ; - Part PassP Masc Sg => tra_ + "tto" ; - Part PassP Masc Pl => tra_ + "tti" ; - Part PassP Fem Sg => tra_ + "tta" ; - Part PassP Fem Pl => tra_ + "tte" - } - } ; - -oper valere_92 : Str -> Verbo = \valere -> - let va_ = Predef.tk 4 valere in - {s = table { - Inf => va_ + "lere" ; - InfClit => va_ + "ler" ; - Indi Pres Sg P1 => va_ + "lgo" ; - Indi Pres Sg P2 => va_ + "li" ; - Indi Pres Sg P3 => va_ + "le" ; - Indi Pres Pl P1 => va_ + "liamo" ; - Indi Pres Pl P2 => va_ + "lete" ; - Indi Pres Pl P3 => va_ + "lgono" ; - Indi Imperf Sg P1 => va_ + "levo" ; --# notpresent - Indi Imperf Sg P2 => va_ + "levi" ; --# notpresent - Indi Imperf Sg P3 => va_ + "leva" ; --# notpresent - Indi Imperf Pl P1 => va_ + "levamo" ; --# notpresent - Indi Imperf Pl P2 => va_ + "levate" ; --# notpresent - Indi Imperf Pl P3 => va_ + "levano" ; --# notpresent - Pass Sg P1 => va_ + "lsi" ; --# notpresent - Pass Sg P2 => va_ + "lesti" ; --# notpresent - Pass Sg P3 => va_ + "lse" ; --# notpresent - Pass Pl P1 => va_ + "lemmo" ; --# notpresent - Pass Pl P2 => va_ + "leste" ; --# notpresent - Pass Pl P3 => va_ + "lsero" ; --# notpresent - Fut Sg P1 => va_ + "rrò" ; --# notpresent - Fut Sg P2 => va_ + "rrai" ; --# notpresent - Fut Sg P3 => va_ + "rrà" ; --# notpresent - Fut Pl P1 => va_ + "rremo" ; --# notpresent - Fut Pl P2 => va_ + "rrete" ; --# notpresent - Fut Pl P3 => va_ + "rranno" ; --# notpresent - Cong Pres Sg P1 => va_ + "lga" ; - Cong Pres Sg P2 => va_ + "lga" ; - Cong Pres Sg P3 => va_ + "lga" ; - Cong Pres Pl P1 => va_ + "liamo" ; - Cong Pres Pl P2 => va_ + "liate" ; - Cong Pres Pl P3 => va_ + "lgano" ; - Cong Imperf Sg P1 => va_ + "lessi" ; --# notpresent - Cong Imperf Sg P2 => va_ + "lessi" ; --# notpresent - Cong Imperf Sg P3 => va_ + "lesse" ; --# notpresent - Cong Imperf Pl P1 => va_ + "lessimo" ; --# notpresent - Cong Imperf Pl P2 => va_ + "leste" ; --# notpresent - Cong Imperf Pl P3 => va_ + "lessero" ; --# notpresent - Cond Sg P1 => va_ + "rrei" ; --# notpresent - Cond Sg P2 => va_ + "rresti" ; --# notpresent - Cond Sg P3 => va_ + "rrebbe" ; --# notpresent - Cond Pl P1 => va_ + "rremmo" ; --# notpresent - Cond Pl P2 => va_ + "rreste" ; --# notpresent - Cond Pl P3 => va_ + "rrebbero" ; --# notpresent - Imper SgP2 => va_ + "li" ; - Imper PlP1 => va_ + "liamo" ; - Imper PlP2 => va_ + "lete" ; - Ger => va_ + "lendo" ; - Part PresP Masc Sg => va_ + "lente" ; - Part PresP Masc Pl => va_ + "lenti" ; - Part PresP Fem Sg => va_ + "lente" ; - Part PresP Fem Pl => va_ + "lenti" ; - Part PassP Masc Sg => va_ + "lso" ; - Part PassP Masc Pl => va_ + "lsi" ; - Part PassP Fem Sg => va_ + "lsa" ; - Part PassP Fem Pl => va_ + "lse" - } - } ; - -oper vedere_93 : Str -> Verbo = \vedereedere -> - let vedere_ = Predef.tk 5 vedereedere in - {s = table { - Inf => vedere_ + "edere" ; - InfClit => vedere_ + "eder" ; - Indi Pres Sg P1 => vedere_ + "edo" ; - Indi Pres Sg P2 => vedere_ + "edi" ; - Indi Pres Sg P3 => vedere_ + "ede" ; - Indi Pres Pl P1 => vedere_ + "ediamo" ; - Indi Pres Pl P2 => vedere_ + "edete" ; - Indi Pres Pl P3 => vedere_ + "edono" ; - Indi Imperf Sg P1 => vedere_ + "edevo" ; --# notpresent - Indi Imperf Sg P2 => vedere_ + "edevi" ; --# notpresent - Indi Imperf Sg P3 => vedere_ + "edeva" ; --# notpresent - Indi Imperf Pl P1 => vedere_ + "edevamo" ; --# notpresent - Indi Imperf Pl P2 => vedere_ + "edevate" ; --# notpresent - Indi Imperf Pl P3 => vedere_ + "edevano" ; --# notpresent - Pass Sg P1 => vedere_ + "idi" ; --# notpresent - Pass Sg P2 => vedere_ + "edesti" ; --# notpresent - Pass Sg P3 => vedere_ + "ide" ; --# notpresent - Pass Pl P1 => vedere_ + "edemmo" ; --# notpresent - Pass Pl P2 => vedere_ + "edeste" ; --# notpresent - Pass Pl P3 => vedere_ + "idero" ; --# notpresent - Fut Sg P1 => vedere_ + "edrò" ; --# notpresent - Fut Sg P2 => vedere_ + "edrai" ; --# notpresent - Fut Sg P3 => vedere_ + "edrà" ; --# notpresent - Fut Pl P1 => vedere_ + "edremo" ; --# notpresent - Fut Pl P2 => vedere_ + "edrete" ; --# notpresent - Fut Pl P3 => vedere_ + "edranno" ; --# notpresent - Cong Pres Sg P1 => vedere_ + "eda" ; - Cong Pres Sg P2 => vedere_ + "eda" ; - Cong Pres Sg P3 => vedere_ + "eda" ; - Cong Pres Pl P1 => vedere_ + "ediamo" ; - Cong Pres Pl P2 => vedere_ + "ediate" ; - Cong Pres Pl P3 => vedere_ + "edano" ; - Cong Imperf Sg P1 => vedere_ + "edessi" ; --# notpresent - Cong Imperf Sg P2 => vedere_ + "edessi" ; --# notpresent - Cong Imperf Sg P3 => vedere_ + "edesse" ; --# notpresent - Cong Imperf Pl P1 => vedere_ + "edessimo" ; --# notpresent - Cong Imperf Pl P2 => vedere_ + "edeste" ; --# notpresent - Cong Imperf Pl P3 => vedere_ + "edessero" ; --# notpresent - Cond Sg P1 => vedere_ + "edrei" ; --# notpresent - Cond Sg P2 => vedere_ + "edresti" ; --# notpresent - Cond Sg P3 => vedere_ + "edrebbe" ; --# notpresent - Cond Pl P1 => vedere_ + "edremmo" ; --# notpresent - Cond Pl P2 => vedere_ + "edreste" ; --# notpresent - Cond Pl P3 => vedere_ + "edrebbero" ; --# notpresent - Imper SgP2 => vedere_ + "edi" ; - Imper PlP1 => vedere_ + "ediamo" ; - Imper PlP2 => vedere_ + "edete" ; - Ger => vedere_ + "edendo" ; - Part PresP Masc Sg => vedere_ + "edente" ; - Part PresP Masc Pl => vedere_ + "edenti" ; - Part PresP Fem Sg => vedere_ + "edente" ; - Part PresP Fem Pl => vedere_ + "edenti" ; - Part PassP Masc Sg => vedere_ + "isto" ; - Part PassP Masc Pl => vedere_ + "isti" ; - Part PassP Fem Sg => vedere_ + "ista" ; - Part PassP Fem Pl => vedere_ + "iste" - } - } ; - -oper vincere_94 : Str -> Verbo = \vincere -> - let vin_ = Predef.tk 4 vincere in - {s = table { - Inf => vin_ + "cere" ; - InfClit => vin_ + "cer" ; - Indi Pres Sg P1 => vin_ + "co" ; - Indi Pres Sg P2 => vin_ + "ci" ; - Indi Pres Sg P3 => vin_ + "ce" ; - Indi Pres Pl P1 => vin_ + "ciamo" ; - Indi Pres Pl P2 => vin_ + "cete" ; - Indi Pres Pl P3 => vin_ + "cono" ; - Indi Imperf Sg P1 => vin_ + "cevo" ; --# notpresent - Indi Imperf Sg P2 => vin_ + "cevi" ; --# notpresent - Indi Imperf Sg P3 => vin_ + "ceva" ; --# notpresent - Indi Imperf Pl P1 => vin_ + "cevamo" ; --# notpresent - Indi Imperf Pl P2 => vin_ + "cevate" ; --# notpresent - Indi Imperf Pl P3 => vin_ + "cevano" ; --# notpresent - Pass Sg P1 => vin_ + "si" ; --# notpresent - Pass Sg P2 => vin_ + "cesti" ; --# notpresent - Pass Sg P3 => vin_ + "se" ; --# notpresent - Pass Pl P1 => vin_ + "cemmo" ; --# notpresent - Pass Pl P2 => vin_ + "ceste" ; --# notpresent - Pass Pl P3 => vin_ + "sero" ; --# notpresent - Fut Sg P1 => vin_ + "cerò" ; --# notpresent - Fut Sg P2 => vin_ + "cerai" ; --# notpresent - Fut Sg P3 => vin_ + "cerà" ; --# notpresent - Fut Pl P1 => vin_ + "ceremo" ; --# notpresent - Fut Pl P2 => vin_ + "cerete" ; --# notpresent - Fut Pl P3 => vin_ + "ceranno" ; --# notpresent - Cong Pres Sg P1 => vin_ + "ca" ; - Cong Pres Sg P2 => vin_ + "ca" ; - Cong Pres Sg P3 => vin_ + "ca" ; - Cong Pres Pl P1 => vin_ + "ciamo" ; - Cong Pres Pl P2 => vin_ + "ciate" ; - Cong Pres Pl P3 => vin_ + "cano" ; - Cong Imperf Sg P1 => vin_ + "cessi" ; --# notpresent - Cong Imperf Sg P2 => vin_ + "cessi" ; --# notpresent - Cong Imperf Sg P3 => vin_ + "cesse" ; --# notpresent - Cong Imperf Pl P1 => vin_ + "cessimo" ; --# notpresent - Cong Imperf Pl P2 => vin_ + "ceste" ; --# notpresent - Cong Imperf Pl P3 => vin_ + "cessero" ; --# notpresent - Cond Sg P1 => vin_ + "cerei" ; --# notpresent - Cond Sg P2 => vin_ + "ceresti" ; --# notpresent - Cond Sg P3 => vin_ + "cerebbe" ; --# notpresent - Cond Pl P1 => vin_ + "ceremmo" ; --# notpresent - Cond Pl P2 => vin_ + "cereste" ; --# notpresent - Cond Pl P3 => vin_ + "cerebbero" ; --# notpresent - Imper SgP2 => vin_ + "ci" ; - Imper PlP1 => vin_ + "ciamo" ; - Imper PlP2 => vin_ + "cete" ; - Ger => vin_ + "cendo" ; - Part PresP Masc Sg => vin_ + "cente" ; - Part PresP Masc Pl => vin_ + "centi" ; - Part PresP Fem Sg => vin_ + "cente" ; - Part PresP Fem Pl => vin_ + "centi" ; - Part PassP Masc Sg => vin_ + "to" ; - Part PassP Masc Pl => vin_ + "ti" ; - Part PassP Fem Sg => vin_ + "ta" ; - Part PassP Fem Pl => vin_ + "te" - } - } ; - -oper vivere_95 : Str -> Verbo = \viverevere -> - let vivere_ = Predef.tk 4 viverevere in - {s = table { - Inf => vivere_ + "vere" ; - InfClit => vivere_ + "ver" ; - Indi Pres Sg P1 => vivere_ + "vo" ; - Indi Pres Sg P2 => vivere_ + "vi" ; - Indi Pres Sg P3 => vivere_ + "ve" ; - Indi Pres Pl P1 => vivere_ + "viamo" ; - Indi Pres Pl P2 => vivere_ + "vete" ; - Indi Pres Pl P3 => vivere_ + "vono" ; - Indi Imperf Sg P1 => vivere_ + "vevo" ; --# notpresent - Indi Imperf Sg P2 => vivere_ + "vevi" ; --# notpresent - Indi Imperf Sg P3 => vivere_ + "veva" ; --# notpresent - Indi Imperf Pl P1 => vivere_ + "vevamo" ; --# notpresent - Indi Imperf Pl P2 => vivere_ + "vevate" ; --# notpresent - Indi Imperf Pl P3 => vivere_ + "vevano" ; --# notpresent - Pass Sg P1 => vivere_ + "ssi" ; --# notpresent - Pass Sg P2 => vivere_ + "vesti" ; --# notpresent - Pass Sg P3 => vivere_ + "sse" ; --# notpresent - Pass Pl P1 => vivere_ + "vemmo" ; --# notpresent - Pass Pl P2 => vivere_ + "veste" ; --# notpresent - Pass Pl P3 => vivere_ + "ssero" ; --# notpresent - Fut Sg P1 => vivere_ + "vrò" ; --# notpresent - Fut Sg P2 => vivere_ + "vrai" ; --# notpresent - Fut Sg P3 => vivere_ + "vrà" ; --# notpresent - Fut Pl P1 => vivere_ + "vremo" ; --# notpresent - Fut Pl P2 => vivere_ + "vrete" ; --# notpresent - Fut Pl P3 => vivere_ + "vranno" ; --# notpresent - Cong Pres Sg P1 => vivere_ + "va" ; - Cong Pres Sg P2 => vivere_ + "va" ; - Cong Pres Sg P3 => vivere_ + "va" ; - Cong Pres Pl P1 => vivere_ + "viamo" ; - Cong Pres Pl P2 => vivere_ + "viate" ; - Cong Pres Pl P3 => vivere_ + "vano" ; - Cong Imperf Sg P1 => vivere_ + "vessi" ; --# notpresent - Cong Imperf Sg P2 => vivere_ + "vessi" ; --# notpresent - Cong Imperf Sg P3 => vivere_ + "vesse" ; --# notpresent - Cong Imperf Pl P1 => vivere_ + "vessimo" ; --# notpresent - Cong Imperf Pl P2 => vivere_ + "veste" ; --# notpresent - Cong Imperf Pl P3 => vivere_ + "vessero" ; --# notpresent - Cond Sg P1 => vivere_ + "vrei" ; --# notpresent - Cond Sg P2 => vivere_ + "vresti" ; --# notpresent - Cond Sg P3 => vivere_ + "vrebbe" ; --# notpresent - Cond Pl P1 => vivere_ + "vremmo" ; --# notpresent - Cond Pl P2 => vivere_ + "vreste" ; --# notpresent - Cond Pl P3 => vivere_ + "vrebbero" ; --# notpresent - Imper SgP2 => vivere_ + "vi" ; - Imper PlP1 => vivere_ + "viamo" ; - Imper PlP2 => vivere_ + "vete" ; - Ger => vivere_ + "vendo" ; - Part PresP Masc Sg => vivere_ + "vente" ; - Part PresP Masc Pl => vivere_ + "venti" ; - Part PresP Fem Sg => vivere_ + "vente" ; - Part PresP Fem Pl => vivere_ + "venti" ; - Part PassP Masc Sg => vivere_ + "ssuto" ; - Part PassP Masc Pl => vivere_ + "ssuti" ; - Part PassP Fem Sg => vivere_ + "ssuta" ; - Part PassP Fem Pl => vivere_ + "ssute" - } - } ; - -oper volere_96 : Str -> Verbo = \volere -> - let v_ = Predef.tk 5 volere in - {s = table { - Inf => v_ + "olere" ; - InfClit => v_ + "oler" ; - Indi Pres Sg P1 => v_ + "oglio" ; - Indi Pres Sg P2 => v_ + "uoi" ; - Indi Pres Sg P3 => v_ + "uole" ; - Indi Pres Pl P1 => v_ + "ogliamo" ; - Indi Pres Pl P2 => v_ + "olete" ; - Indi Pres Pl P3 => v_ + "ogliono" ; - Indi Imperf Sg P1 => v_ + "olevo" ; --# notpresent - Indi Imperf Sg P2 => v_ + "olevi" ; --# notpresent - Indi Imperf Sg P3 => v_ + "oleva" ; --# notpresent - Indi Imperf Pl P1 => v_ + "olevamo" ; --# notpresent - Indi Imperf Pl P2 => v_ + "olevate" ; --# notpresent - Indi Imperf Pl P3 => v_ + "olevano" ; --# notpresent - Pass Sg P1 => v_ + "olli" ; --# notpresent - Pass Sg P2 => v_ + "olesti" ; --# notpresent - Pass Sg P3 => v_ + "olle" ; --# notpresent - Pass Pl P1 => v_ + "olemmo" ; --# notpresent - Pass Pl P2 => v_ + "oleste" ; --# notpresent - Pass Pl P3 => v_ + "ollero" ; --# notpresent - Fut Sg P1 => v_ + "orrò" ; --# notpresent - Fut Sg P2 => v_ + "orrai" ; --# notpresent - Fut Sg P3 => v_ + "orrà" ; --# notpresent - Fut Pl P1 => v_ + "orremo" ; --# notpresent - Fut Pl P2 => v_ + "orrete" ; --# notpresent - Fut Pl P3 => v_ + "orranno" ; --# notpresent - Cong Pres Sg P1 => v_ + "oglia" ; - Cong Pres Sg P2 => v_ + "oglia" ; - Cong Pres Sg P3 => v_ + "oglia" ; - Cong Pres Pl P1 => v_ + "ogliamo" ; - Cong Pres Pl P2 => v_ + "ogliate" ; - Cong Pres Pl P3 => v_ + "ogliano" ; - Cong Imperf Sg P1 => v_ + "olessi" ; --# notpresent - Cong Imperf Sg P2 => v_ + "olessi" ; --# notpresent - Cong Imperf Sg P3 => v_ + "olesse" ; --# notpresent - Cong Imperf Pl P1 => v_ + "olessimo" ; --# notpresent - Cong Imperf Pl P2 => v_ + "oleste" ; --# notpresent - Cong Imperf Pl P3 => v_ + "olessero" ; --# notpresent - Cond Sg P1 => v_ + "orrei" ; --# notpresent - Cond Sg P2 => v_ + "orresti" ; --# notpresent - Cond Sg P3 => v_ + "orrebbe" ; --# notpresent - Cond Pl P1 => v_ + "orremmo" ; --# notpresent - Cond Pl P2 => v_ + "orreste" ; --# notpresent - Cond Pl P3 => v_ + "orrebbero" ; --# notpresent - Imper SgP2 => v_ + "uoi" ; - Imper PlP1 => v_ + "ogliamo" ; - Imper PlP2 => v_ + "olete" ; - Ger => v_ + "olendo" ; - Part PresP Masc Sg => v_ + "olente" ; - Part PresP Masc Pl => v_ + "olenti" ; - Part PresP Fem Sg => v_ + "olente" ; - Part PresP Fem Pl => v_ + "olenti" ; - Part PassP Masc Sg => v_ + "oluto" ; - Part PassP Masc Pl => v_ + "oluti" ; - Part PassP Fem Sg => v_ + "oluta" ; - Part PassP Fem Pl => v_ + "olute" - } - } ; - -oper volgere_97 : Str -> Verbo = \volgere -> - let vol_ = Predef.tk 4 volgere in - {s = table { - Inf => vol_ + "gere" ; - InfClit => vol_ + "ger" ; - Indi Pres Sg P1 => vol_ + "go" ; - Indi Pres Sg P2 => vol_ + "gi" ; - Indi Pres Sg P3 => vol_ + "ge" ; - Indi Pres Pl P1 => vol_ + "giamo" ; - Indi Pres Pl P2 => vol_ + "gete" ; - Indi Pres Pl P3 => vol_ + "gono" ; - Indi Imperf Sg P1 => vol_ + "gevo" ; --# notpresent - Indi Imperf Sg P2 => vol_ + "gevi" ; --# notpresent - Indi Imperf Sg P3 => vol_ + "geva" ; --# notpresent - Indi Imperf Pl P1 => vol_ + "gevamo" ; --# notpresent - Indi Imperf Pl P2 => vol_ + "gevate" ; --# notpresent - Indi Imperf Pl P3 => vol_ + "gevano" ; --# notpresent - Pass Sg P1 => vol_ + "si" ; --# notpresent - Pass Sg P2 => vol_ + "gesti" ; --# notpresent - Pass Sg P3 => vol_ + "se" ; --# notpresent - Pass Pl P1 => vol_ + "gemmo" ; --# notpresent - Pass Pl P2 => vol_ + "geste" ; --# notpresent - Pass Pl P3 => vol_ + "sero" ; --# notpresent - Fut Sg P1 => vol_ + "gerò" ; --# notpresent - Fut Sg P2 => vol_ + "gerai" ; --# notpresent - Fut Sg P3 => vol_ + "gerà" ; --# notpresent - Fut Pl P1 => vol_ + "geremo" ; --# notpresent - Fut Pl P2 => vol_ + "gerete" ; --# notpresent - Fut Pl P3 => vol_ + "geranno" ; --# notpresent - Cong Pres Sg P1 => vol_ + "ga" ; - Cong Pres Sg P2 => vol_ + "ga" ; - Cong Pres Sg P3 => vol_ + "ga" ; - Cong Pres Pl P1 => vol_ + "giamo" ; - Cong Pres Pl P2 => vol_ + "giate" ; - Cong Pres Pl P3 => vol_ + "gano" ; - Cong Imperf Sg P1 => vol_ + "gessi" ; --# notpresent - Cong Imperf Sg P2 => vol_ + "gessi" ; --# notpresent - Cong Imperf Sg P3 => vol_ + "gesse" ; --# notpresent - Cong Imperf Pl P1 => vol_ + "gessimo" ; --# notpresent - Cong Imperf Pl P2 => vol_ + "geste" ; --# notpresent - Cong Imperf Pl P3 => vol_ + "gessero" ; --# notpresent - Cond Sg P1 => vol_ + "gerei" ; --# notpresent - Cond Sg P2 => vol_ + "geresti" ; --# notpresent - Cond Sg P3 => vol_ + "gerebbe" ; --# notpresent - Cond Pl P1 => vol_ + "geremmo" ; --# notpresent - Cond Pl P2 => vol_ + "gereste" ; --# notpresent - Cond Pl P3 => vol_ + "gerebbero" ; --# notpresent - Imper SgP2 => vol_ + "gi" ; - Imper PlP1 => vol_ + "giamo" ; - Imper PlP2 => vol_ + "gete" ; - Ger => vol_ + "gendo" ; - Part PresP Masc Sg => vol_ + "gente" ; - Part PresP Masc Pl => vol_ + "genti" ; - Part PresP Fem Sg => vol_ + "gente" ; - Part PresP Fem Pl => vol_ + "genti" ; - Part PassP Masc Sg => vol_ + "to" ; - Part PassP Masc Pl => vol_ + "ti" ; - Part PassP Fem Sg => vol_ + "ta" ; - Part PassP Fem Pl => vol_ + "te" - } - } ; - ----- solere_98a ----- suggere_98b - -oper sentire_99 : Str -> Verbo = \sentire -> - let sen_ = Predef.tk 4 sentire in - {s = table { - Inf => sen_ + "tire" ; - InfClit => sen_ + "tir" ; - Indi Pres Sg P1 => sen_ + "to" ; - Indi Pres Sg P2 => sen_ + "ti" ; - Indi Pres Sg P3 => sen_ + "te" ; - Indi Pres Pl P1 => sen_ + "tiamo" ; - Indi Pres Pl P2 => sen_ + "tite" ; - Indi Pres Pl P3 => sen_ + "tono" ; - Indi Imperf Sg P1 => sen_ + "tivo" ; --# notpresent - Indi Imperf Sg P2 => sen_ + "tivi" ; --# notpresent - Indi Imperf Sg P3 => sen_ + "tiva" ; --# notpresent - Indi Imperf Pl P1 => sen_ + "tivamo" ; --# notpresent - Indi Imperf Pl P2 => sen_ + "tivate" ; --# notpresent - Indi Imperf Pl P3 => sen_ + "tivano" ; --# notpresent - Pass Sg P1 => sen_ + "tii" ; --# notpresent - Pass Sg P2 => sen_ + "tisti" ; --# notpresent - Pass Sg P3 => sen_ + "tì" ; --# notpresent - Pass Pl P1 => sen_ + "timmo" ; --# notpresent - Pass Pl P2 => sen_ + "tiste" ; --# notpresent - Pass Pl P3 => sen_ + "tirono" ; --# notpresent - Fut Sg P1 => sen_ + "tirò" ; --# notpresent - Fut Sg P2 => sen_ + "tirai" ; --# notpresent - Fut Sg P3 => sen_ + "tirà" ; --# notpresent - Fut Pl P1 => sen_ + "tiremo" ; --# notpresent - Fut Pl P2 => sen_ + "tirete" ; --# notpresent - Fut Pl P3 => sen_ + "tiranno" ; --# notpresent - Cong Pres Sg P1 => sen_ + "ta" ; - Cong Pres Sg P2 => sen_ + "ta" ; - Cong Pres Sg P3 => sen_ + "ta" ; - Cong Pres Pl P1 => sen_ + "tiamo" ; - Cong Pres Pl P2 => sen_ + "tiate" ; - Cong Pres Pl P3 => sen_ + "tano" ; - Cong Imperf Sg P1 => sen_ + "tissi" ; --# notpresent - Cong Imperf Sg P2 => sen_ + "tissi" ; --# notpresent - Cong Imperf Sg P3 => sen_ + "tisse" ; --# notpresent - Cong Imperf Pl P1 => sen_ + "tissimo" ; --# notpresent - Cong Imperf Pl P2 => sen_ + "tiste" ; --# notpresent - Cong Imperf Pl P3 => sen_ + "tissero" ; --# notpresent - Cond Sg P1 => sen_ + "tirei" ; --# notpresent - Cond Sg P2 => sen_ + "tiresti" ; --# notpresent - Cond Sg P3 => sen_ + "tirebbe" ; --# notpresent - Cond Pl P1 => sen_ + "tiremmo" ; --# notpresent - Cond Pl P2 => sen_ + "tireste" ; --# notpresent - Cond Pl P3 => sen_ + "tirebbero" ; --# notpresent - Imper SgP2 => sen_ + "ti" ; - Imper PlP1 => sen_ + "tiamo" ; - Imper PlP2 => sen_ + "tite" ; - Ger => sen_ + "tendo" ; - Part PresP Masc Sg => sen_ + "zient" ; - Part PresP Masc Pl => sen_ + "zieni" ; - Part PresP Fem Sg => sen_ + "zient" ; - Part PresP Fem Pl => sen_ + "zieni" ; - Part PassP Masc Sg => sen_ + "tito" ; - Part PassP Masc Pl => sen_ + "titi" ; - Part PassP Fem Sg => sen_ + "tita" ; - Part PassP Fem Pl => sen_ + "tite" - } - } ; - -oper dormire_99b : Str -> Verbo = \dormire -> - let dorm_ = Predef.tk 3 dormire in - {s = table { - Inf => dorm_ + "ire" ; - InfClit => dorm_ + "ir" ; - Indi Pres Sg P1 => dorm_ + "o" ; - Indi Pres Sg P2 => dorm_ + "i" ; - Indi Pres Sg P3 => dorm_ + "e" ; - Indi Pres Pl P1 => dorm_ + "iamo" ; - Indi Pres Pl P2 => dorm_ + "ite" ; - Indi Pres Pl P3 => dorm_ + "ono" ; - Indi Imperf Sg P1 => dorm_ + "ivo" ; --# notpresent - Indi Imperf Sg P2 => dorm_ + "ivi" ; --# notpresent - Indi Imperf Sg P3 => dorm_ + "iva" ; --# notpresent - Indi Imperf Pl P1 => dorm_ + "ivamo" ; --# notpresent - Indi Imperf Pl P2 => dorm_ + "ivate" ; --# notpresent - Indi Imperf Pl P3 => dorm_ + "ivano" ; --# notpresent - Pass Sg P1 => dorm_ + "ii" ; --# notpresent - Pass Sg P2 => dorm_ + "isti" ; --# notpresent - Pass Sg P3 => dorm_ + "ì" ; --# notpresent - Pass Pl P1 => dorm_ + "immo" ; --# notpresent - Pass Pl P2 => dorm_ + "iste" ; --# notpresent - Pass Pl P3 => dorm_ + "irono" ; --# notpresent - Fut Sg P1 => dorm_ + "irò" ; --# notpresent - Fut Sg P2 => dorm_ + "irai" ; --# notpresent - Fut Sg P3 => dorm_ + "irà" ; --# notpresent - Fut Pl P1 => dorm_ + "iremo" ; --# notpresent - Fut Pl P2 => dorm_ + "irete" ; --# notpresent - Fut Pl P3 => dorm_ + "iranno" ; --# notpresent - Cong Pres Sg P1 => dorm_ + "a" ; - Cong Pres Sg P2 => dorm_ + "a" ; - Cong Pres Sg P3 => dorm_ + "a" ; - Cong Pres Pl P1 => dorm_ + "iamo" ; - Cong Pres Pl P2 => dorm_ + "iate" ; - Cong Pres Pl P3 => dorm_ + "ano" ; - Cong Imperf Sg P1 => dorm_ + "issi" ; --# notpresent - Cong Imperf Sg P2 => dorm_ + "issi" ; --# notpresent - Cong Imperf Sg P3 => dorm_ + "isse" ; --# notpresent - Cong Imperf Pl P1 => dorm_ + "issimo" ; --# notpresent - Cong Imperf Pl P2 => dorm_ + "iste" ; --# notpresent - Cong Imperf Pl P3 => dorm_ + "issero" ; --# notpresent - Cond Sg P1 => dorm_ + "irei" ; --# notpresent - Cond Sg P2 => dorm_ + "iresti" ; --# notpresent - Cond Sg P3 => dorm_ + "irebbe" ; --# notpresent - Cond Pl P1 => dorm_ + "iremmo" ; --# notpresent - Cond Pl P2 => dorm_ + "ireste" ; --# notpresent - Cond Pl P3 => dorm_ + "irebbero" ; --# notpresent - Imper SgP2 => dorm_ + "i" ; - Imper PlP1 => dorm_ + "iamo" ; - Imper PlP2 => dorm_ + "ite" ; - Ger => dorm_ + "endo" ; - Part PresP Masc Sg => dorm_ + "ente" ; - Part PresP Masc Pl => dorm_ + "enti" ; - Part PresP Fem Sg => dorm_ + "ente" ; - Part PresP Fem Pl => dorm_ + "enti" ; - Part PassP Masc Sg => dorm_ + "ito" ; - Part PassP Masc Pl => dorm_ + "iti" ; - Part PassP Fem Sg => dorm_ + "ita" ; - Part PassP Fem Pl => dorm_ + "ite" - } - } ; - -oper finire_100 : Str -> Verbo = \finire -> - let fin_ = Predef.tk 3 finire in - {s = table { - Inf => fin_ + "ire" ; - InfClit => fin_ + "ir" ; - Indi Pres Sg P1 => fin_ + "isco" ; - Indi Pres Sg P2 => fin_ + "isci" ; - Indi Pres Sg P3 => fin_ + "isce" ; - Indi Pres Pl P1 => fin_ + "iamo" ; - Indi Pres Pl P2 => fin_ + "ite" ; - Indi Pres Pl P3 => fin_ + "iscono" ; - Indi Imperf Sg P1 => fin_ + "ivo" ; --# notpresent - Indi Imperf Sg P2 => fin_ + "ivi" ; --# notpresent - Indi Imperf Sg P3 => fin_ + "iva" ; --# notpresent - Indi Imperf Pl P1 => fin_ + "ivamo" ; --# notpresent - Indi Imperf Pl P2 => fin_ + "ivate" ; --# notpresent - Indi Imperf Pl P3 => fin_ + "ivano" ; --# notpresent - Pass Sg P1 => fin_ + "ii" ; --# notpresent - Pass Sg P2 => fin_ + "isti" ; --# notpresent - Pass Sg P3 => fin_ + "ì" ; --# notpresent - Pass Pl P1 => fin_ + "immo" ; --# notpresent - Pass Pl P2 => fin_ + "iste" ; --# notpresent - Pass Pl P3 => fin_ + "irono" ; --# notpresent - Fut Sg P1 => fin_ + "irò" ; --# notpresent - Fut Sg P2 => fin_ + "irai" ; --# notpresent - Fut Sg P3 => fin_ + "irà" ; --# notpresent - Fut Pl P1 => fin_ + "iremo" ; --# notpresent - Fut Pl P2 => fin_ + "irete" ; --# notpresent - Fut Pl P3 => fin_ + "iranno" ; --# notpresent - Cong Pres Sg P1 => fin_ + "isca" ; - Cong Pres Sg P2 => fin_ + "isca" ; - Cong Pres Sg P3 => fin_ + "isca" ; - Cong Pres Pl P1 => fin_ + "iamo" ; - Cong Pres Pl P2 => fin_ + "iate" ; - Cong Pres Pl P3 => fin_ + "iscano" ; - Cong Imperf Sg P1 => fin_ + "issi" ; --# notpresent - Cong Imperf Sg P2 => fin_ + "issi" ; --# notpresent - Cong Imperf Sg P3 => fin_ + "isse" ; --# notpresent - Cong Imperf Pl P1 => fin_ + "issimo" ; --# notpresent - Cong Imperf Pl P2 => fin_ + "iste" ; --# notpresent - Cong Imperf Pl P3 => fin_ + "issero" ; --# notpresent - Cond Sg P1 => fin_ + "irei" ; --# notpresent - Cond Sg P2 => fin_ + "iresti" ; --# notpresent - Cond Sg P3 => fin_ + "irebbe" ; --# notpresent - Cond Pl P1 => fin_ + "iremmo" ; --# notpresent - Cond Pl P2 => fin_ + "ireste" ; --# notpresent - Cond Pl P3 => fin_ + "irebbero" ; --# notpresent - Imper SgP2 => fin_ + "isci" ; - Imper PlP1 => fin_ + "iamo" ; - Imper PlP2 => fin_ + "ite" ; - Ger => fin_ + "endo" ; - Part PresP Masc Sg => fin_ + "ente" ; - Part PresP Masc Pl => fin_ + "enti" ; - Part PresP Fem Sg => fin_ + "ente" ; - Part PresP Fem Pl => fin_ + "enti" ; - Part PassP Masc Sg => fin_ + "ito" ; - Part PassP Masc Pl => fin_ + "iti" ; - Part PassP Fem Sg => fin_ + "ita" ; - Part PassP Fem Pl => fin_ + "ite" - } - } ; - ----- apparire_101 - -oper aprire_102 : Str -> Verbo = \aprire -> - let ap_ = Predef.tk 4 aprire in - {s = table { - Inf => ap_ + "rire" ; - InfClit => ap_ + "rir" ; - Indi Pres Sg P1 => ap_ + "ro" ; - Indi Pres Sg P2 => ap_ + "ri" ; - Indi Pres Sg P3 => ap_ + "re" ; - Indi Pres Pl P1 => ap_ + "riamo" ; - Indi Pres Pl P2 => ap_ + "rite" ; - Indi Pres Pl P3 => ap_ + "rono" ; - Indi Imperf Sg P1 => ap_ + "rivo" ; --# notpresent - Indi Imperf Sg P2 => ap_ + "rivi" ; --# notpresent - Indi Imperf Sg P3 => ap_ + "riva" ; --# notpresent - Indi Imperf Pl P1 => ap_ + "rivamo" ; --# notpresent - Indi Imperf Pl P2 => ap_ + "rivate" ; --# notpresent - Indi Imperf Pl P3 => ap_ + "rivano" ; --# notpresent - Pass Sg P1 => variants {ap_ + "rii" ; ap_ + "ersi"} ; --# notpresent - Pass Sg P2 => ap_ + "risti" ; --# notpresent - Pass Sg P3 => variants {ap_ + "rì" ; ap_ + "erse"} ; --# notpresent - Pass Pl P1 => ap_ + "rimmo" ; --# notpresent - Pass Pl P2 => ap_ + "riste" ; --# notpresent - Pass Pl P3 => variants {ap_ + "rirono" ; ap_ + "ersero"} ; --# notpresent - Fut Sg P1 => ap_ + "rirò" ; --# notpresent - Fut Sg P2 => ap_ + "rirai" ; --# notpresent - Fut Sg P3 => ap_ + "rirà" ; --# notpresent - Fut Pl P1 => ap_ + "riremo" ; --# notpresent - Fut Pl P2 => ap_ + "rirete" ; --# notpresent - Fut Pl P3 => ap_ + "riranno" ; --# notpresent - Cong Pres Sg P1 => ap_ + "ra" ; - Cong Pres Sg P2 => ap_ + "ra" ; - Cong Pres Sg P3 => ap_ + "ra" ; - Cong Pres Pl P1 => ap_ + "riamo" ; - Cong Pres Pl P2 => ap_ + "riate" ; - Cong Pres Pl P3 => ap_ + "rano" ; - Cong Imperf Sg P1 => ap_ + "rissi" ; --# notpresent - Cong Imperf Sg P2 => ap_ + "rissi" ; --# notpresent - Cong Imperf Sg P3 => ap_ + "risse" ; --# notpresent - Cong Imperf Pl P1 => ap_ + "rissimo" ; --# notpresent - Cong Imperf Pl P2 => ap_ + "riste" ; --# notpresent - Cong Imperf Pl P3 => ap_ + "rissero" ; --# notpresent - Cond Sg P1 => ap_ + "rirei" ; --# notpresent - Cond Sg P2 => ap_ + "riresti" ; --# notpresent - Cond Sg P3 => ap_ + "rirebbe" ; --# notpresent - Cond Pl P1 => ap_ + "riremmo" ; --# notpresent - Cond Pl P2 => ap_ + "rireste" ; --# notpresent - Cond Pl P3 => ap_ + "rirebbero" ; --# notpresent - Imper SgP2 => ap_ + "ri" ; - Imper PlP1 => ap_ + "riamo" ; - Imper PlP2 => ap_ + "rite" ; - Ger => ap_ + "rendo" ; - Part PresP Masc Sg => ap_ + "rendo" ; - Part PresP Masc Pl => ap_ + "rendo" ; - Part PresP Fem Sg => ap_ + "rendo" ; - Part PresP Fem Pl => ap_ + "rendo" ; - Part PassP Masc Sg => ap_ + "erto" ; - Part PassP Masc Pl => ap_ + "erti" ; - Part PassP Fem Sg => ap_ + "erta" ; - Part PassP Fem Pl => ap_ + "erte" - } - } ; - - -oper cucire_103 : Str -> Verbo = \cucire -> - let cuc_ = Predef.tk 3 cucire in - {s = table { - Inf => cuc_ + "ire" ; - InfClit => cuc_ + "ir" ; - Indi Pres Sg P1 => cuc_ + "io" ; - Indi Pres Sg P2 => cuc_ + "i" ; - Indi Pres Sg P3 => cuc_ + "e" ; - Indi Pres Pl P1 => cuc_ + "iamo" ; - Indi Pres Pl P2 => cuc_ + "ite" ; - Indi Pres Pl P3 => cuc_ + "iono" ; - Indi Imperf Sg P1 => cuc_ + "ivo" ; --# notpresent - Indi Imperf Sg P2 => cuc_ + "ivi" ; --# notpresent - Indi Imperf Sg P3 => cuc_ + "iva" ; --# notpresent - Indi Imperf Pl P1 => cuc_ + "ivamo" ; --# notpresent - Indi Imperf Pl P2 => cuc_ + "ivate" ; --# notpresent - Indi Imperf Pl P3 => cuc_ + "ivano" ; --# notpresent - Pass Sg P1 => cuc_ + "ii" ; --# notpresent - Pass Sg P2 => cuc_ + "isti" ; --# notpresent - Pass Sg P3 => cuc_ + "ì" ; --# notpresent - Pass Pl P1 => cuc_ + "immo" ; --# notpresent - Pass Pl P2 => cuc_ + "iste" ; --# notpresent - Pass Pl P3 => cuc_ + "irono" ; --# notpresent - Fut Sg P1 => cuc_ + "irò" ; --# notpresent - Fut Sg P2 => cuc_ + "irai" ; --# notpresent - Fut Sg P3 => cuc_ + "irà" ; --# notpresent - Fut Pl P1 => cuc_ + "iremo" ; --# notpresent - Fut Pl P2 => cuc_ + "irete" ; --# notpresent - Fut Pl P3 => cuc_ + "iranno" ; --# notpresent - Cong Pres Sg P1 => cuc_ + "ia" ; - Cong Pres Sg P2 => cuc_ + "ia" ; - Cong Pres Sg P3 => cuc_ + "ia" ; - Cong Pres Pl P1 => cuc_ + "iamo" ; - Cong Pres Pl P2 => cuc_ + "iate" ; - Cong Pres Pl P3 => cuc_ + "iano" ; - Cong Imperf Sg P1 => cuc_ + "issi" ; --# notpresent - Cong Imperf Sg P2 => cuc_ + "issi" ; --# notpresent - Cong Imperf Sg P3 => cuc_ + "isse" ; --# notpresent - Cong Imperf Pl P1 => cuc_ + "issimo" ; --# notpresent - Cong Imperf Pl P2 => cuc_ + "iste" ; --# notpresent - Cong Imperf Pl P3 => cuc_ + "issero" ; --# notpresent - Cond Sg P1 => cuc_ + "irei" ; --# notpresent - Cond Sg P2 => cuc_ + "iresti" ; --# notpresent - Cond Sg P3 => cuc_ + "irebbe" ; --# notpresent - Cond Pl P1 => cuc_ + "iremmo" ; --# notpresent - Cond Pl P2 => cuc_ + "ireste" ; --# notpresent - Cond Pl P3 => cuc_ + "irebbero" ; --# notpresent - Imper SgP2 => cuc_ + "i" ; - Imper PlP1 => cuc_ + "iamo" ; - Imper PlP2 => cuc_ + "ite" ; - Ger => cuc_ + "endo" ; - Part PresP Masc Sg => cuc_ + "ente" ; - Part PresP Masc Pl => cuc_ + "enti" ; - Part PresP Fem Sg => cuc_ + "ente" ; - Part PresP Fem Pl => cuc_ + "enti" ; - Part PassP Masc Sg => cuc_ + "ito" ; - Part PassP Masc Pl => cuc_ + "iti" ; - Part PassP Fem Sg => cuc_ + "ita" ; - Part PassP Fem Pl => cuc_ + "ite" - } - } ; - -oper fuggire_104 : Str -> Verbo = \fuggire -> - let fugg_ = Predef.tk 3 fuggire in - {s = table { - Inf => fugg_ + "ire" ; - InfClit => fugg_ + "ir" ; - Indi Pres Sg P1 => fugg_ + "o" ; - Indi Pres Sg P2 => fugg_ + "i" ; - Indi Pres Sg P3 => fugg_ + "e" ; - Indi Pres Pl P1 => fugg_ + "iamo" ; - Indi Pres Pl P2 => fugg_ + "ite" ; - Indi Pres Pl P3 => fugg_ + "ono" ; - Indi Imperf Sg P1 => fugg_ + "ivo" ; --# notpresent - Indi Imperf Sg P2 => fugg_ + "ivi" ; --# notpresent - Indi Imperf Sg P3 => fugg_ + "iva" ; --# notpresent - Indi Imperf Pl P1 => fugg_ + "ivamo" ; --# notpresent - Indi Imperf Pl P2 => fugg_ + "ivate" ; --# notpresent - Indi Imperf Pl P3 => fugg_ + "ivano" ; --# notpresent - Pass Sg P1 => fugg_ + "ii" ; --# notpresent - Pass Sg P2 => fugg_ + "isti" ; --# notpresent - Pass Sg P3 => fugg_ + "ì" ; --# notpresent - Pass Pl P1 => fugg_ + "immo" ; --# notpresent - Pass Pl P2 => fugg_ + "iste" ; --# notpresent - Pass Pl P3 => fugg_ + "irono" ; --# notpresent - Fut Sg P1 => fugg_ + "irò" ; --# notpresent - Fut Sg P2 => fugg_ + "irai" ; --# notpresent - Fut Sg P3 => fugg_ + "irà" ; --# notpresent - Fut Pl P1 => fugg_ + "iremo" ; --# notpresent - Fut Pl P2 => fugg_ + "irete" ; --# notpresent - Fut Pl P3 => fugg_ + "iranno" ; --# notpresent - Cong Pres Sg P1 => fugg_ + "a" ; - Cong Pres Sg P2 => fugg_ + "a" ; - Cong Pres Sg P3 => fugg_ + "a" ; - Cong Pres Pl P1 => fugg_ + "iamo" ; - Cong Pres Pl P2 => fugg_ + "iate" ; - Cong Pres Pl P3 => fugg_ + "ano" ; - Cong Imperf Sg P1 => fugg_ + "issi" ; --# notpresent - Cong Imperf Sg P2 => fugg_ + "issi" ; --# notpresent - Cong Imperf Sg P3 => fugg_ + "isse" ; --# notpresent - Cong Imperf Pl P1 => fugg_ + "issimo" ; --# notpresent - Cong Imperf Pl P2 => fugg_ + "iste" ; --# notpresent - Cong Imperf Pl P3 => fugg_ + "issero" ; --# notpresent - Cond Sg P1 => fugg_ + "irei" ; --# notpresent - Cond Sg P2 => fugg_ + "iresti" ; --# notpresent - Cond Sg P3 => fugg_ + "irebbe" ; --# notpresent - Cond Pl P1 => fugg_ + "iremmo" ; --# notpresent - Cond Pl P2 => fugg_ + "ireste" ; --# notpresent - Cond Pl P3 => fugg_ + "irebbero" ; --# notpresent - Imper SgP2 => fugg_ + "i" ; - Imper PlP1 => fugg_ + "iamo" ; - Imper PlP2 => fugg_ + "ite" ; - Ger => fugg_ + "endo" ; - Part PresP Masc Sg => fugg_ + "ente" ; - Part PresP Masc Pl => fugg_ + "enti" ; - Part PresP Fem Sg => fugg_ + "ente" ; - Part PresP Fem Pl => fugg_ + "enti" ; - Part PassP Masc Sg => fugg_ + "ito" ; - Part PassP Masc Pl => fugg_ + "iti" ; - Part PassP Fem Sg => fugg_ + "ita" ; - Part PassP Fem Pl => fugg_ + "ite" - } - } ; - -oper morire_105 : Str -> Verbo = \morire -> - let mor_ = Predef.tk 3 morire ; - m_ = Predef.tk 5 morire - in - {s = table { - Inf => mor_ + "ire" ; - InfClit => mor_ + "ir" ; - Indi Pres Sg P1 => m_ + "uoio" ; - Indi Pres Sg P2 => m_ + "uori" ; - Indi Pres Sg P3 => m_ + "uore" ; - Indi Pres Pl P1 => mor_ + "iamo" ; - Indi Pres Pl P2 => mor_ + "ite" ; - Indi Pres Pl P3 => m_ + "uoiono" ; - Indi Imperf Sg P1 => mor_ + "ivo" ; --# notpresent - Indi Imperf Sg P2 => mor_ + "ivi" ; --# notpresent - Indi Imperf Sg P3 => mor_ + "iva" ; --# notpresent - Indi Imperf Pl P1 => mor_ + "ivamo" ; --# notpresent - Indi Imperf Pl P2 => mor_ + "ivate" ; --# notpresent - Indi Imperf Pl P3 => mor_ + "ivano" ; --# notpresent - Pass Sg P1 => mor_ + "ii" ; --# notpresent - Pass Sg P2 => mor_ + "isti" ; --# notpresent - Pass Sg P3 => mor_ + "ì" ; --# notpresent - Pass Pl P1 => mor_ + "immo" ; --# notpresent - Pass Pl P2 => mor_ + "iste" ; --# notpresent - Pass Pl P3 => mor_ + "irono" ; --# notpresent - Fut Sg P1 => mor_ + "irò" ; ---- also morrò etc --# notpresent - Fut Sg P2 => mor_ + "irai" ; --# notpresent - Fut Sg P3 => mor_ + "irà" ; --# notpresent - Fut Pl P1 => mor_ + "iremo" ; --# notpresent - Fut Pl P2 => mor_ + "irete" ; --# notpresent - Fut Pl P3 => mor_ + "iranno" ; --# notpresent - Cong Pres Sg P1 => m_ + "uoia" ; - Cong Pres Sg P2 => m_ + "uoia" ; - Cong Pres Sg P3 => m_ + "uoia" ; - Cong Pres Pl P1 => mor_ + "iamo" ; - Cong Pres Pl P2 => mor_ + "iate" ; - Cong Pres Pl P3 => m_ + "uoiano" ; - Cong Imperf Sg P1 => mor_ + "issi" ; --# notpresent - Cong Imperf Sg P2 => mor_ + "issi" ; --# notpresent - Cong Imperf Sg P3 => mor_ + "isse" ; --# notpresent - Cong Imperf Pl P1 => mor_ + "issimo" ; --# notpresent - Cong Imperf Pl P2 => mor_ + "iste" ; --# notpresent - Cong Imperf Pl P3 => mor_ + "issero" ; --# notpresent - Cond Sg P1 => mor_ + "irei" ; --# notpresent - Cond Sg P2 => mor_ + "iresti" ; --# notpresent - Cond Sg P3 => mor_ + "irebbe" ; --# notpresent - Cond Pl P1 => mor_ + "iremmo" ; --# notpresent - Cond Pl P2 => mor_ + "ireste" ; --# notpresent - Cond Pl P3 => mor_ + "irebbero" ; --# notpresent - Imper SgP2 => m_ + "uori" ; - Imper PlP1 => mor_ + "iamo" ; - Imper PlP2 => mor_ + "ite" ; - Ger => mor_ + "endo" ; - Part PresP Masc Sg => mor_ + "ente" ; - Part PresP Masc Pl => mor_ + "enti" ; - Part PresP Fem Sg => mor_ + "ente" ; - Part PresP Fem Pl => mor_ + "enti" ; - Part PassP Masc Sg => mor_ + "to" ; - Part PassP Masc Pl => mor_ + "ti" ; - Part PassP Fem Sg => mor_ + "ta" ; - Part PassP Fem Pl => mor_ + "te" - } - } ; - -oper salire_106 : Str -> Verbo = \salire -> - let x_ = Predef.tk 6 salire in - mkVerbo - (x_ + "salire") (x_ + "salgo") (x_ + "sale") (x_ + "saliamo") - (x_ + "salirò") (x_ + "salii") (x_ + "salisti") (x_ + "salì") - (x_ + "salirono") (x_ + "sali") (x_ + "salito") ; - -oper seguire_107 : Str -> Verbo = \seguire -> - let x_ = Predef.tk 7 seguire in - mkVerbo - (x_ + "seguire") (x_ + "seguo") (x_ + "segue") (x_ + "seguiamo") - (x_ + "seguirò") (x_ + "seguii") (x_ + "seguisti") (x_ + "seguì") - (x_ + "seguirono") (x_ + "segui") (x_ + "seguito") ; - -oper udire_108 : Str -> Verbo = \udire -> - let x_ = Predef.tk 5 udire in - mkVerbo (x_ + "udire") (x_ + "odo") (x_ + "ode") (x_ + "udiamo") - (x_ + "udirò") (x_ + "udii") (x_ + "udisti") (x_ + "udì") - (x_ + "udirono") (x_ + "odi") (x_ + "udito") ; - -oper uscire_109 : Str -> Verbo = \uscire -> - let x_ = Predef.tk 6 uscire in - mkVerbo (x_ + "uscire") (x_ + "esco") (x_ + "esce") - (x_ + "usciamo") (x_ + "uscirò") (x_ + "uscii") (x_ + "uscisti") - (x_ + "uscì") (x_ + "uscirono") (x_ + "esci") (x_ + "uscito") ; - -oper venire_110 : Str -> Verbo = \venire -> - let v_ = Predef.tk 5 venire in - {s = table { - Inf => v_ + "enire" ; - InfClit => v_ + "enir" ; - Indi Pres Sg P1 => v_ + "engo" ; - Indi Pres Sg P2 => v_ + "ieni" ; - Indi Pres Sg P3 => v_ + "iene" ; - Indi Pres Pl P1 => v_ + "eniamo" ; - Indi Pres Pl P2 => v_ + "enite" ; - Indi Pres Pl P3 => v_ + "engono" ; - Indi Imperf Sg P1 => v_ + "enivo" ; --# notpresent - Indi Imperf Sg P2 => v_ + "enivi" ; --# notpresent - Indi Imperf Sg P3 => v_ + "eniva" ; --# notpresent - Indi Imperf Pl P1 => v_ + "enivamo" ; --# notpresent - Indi Imperf Pl P2 => v_ + "enivate" ; --# notpresent - Indi Imperf Pl P3 => v_ + "enivano" ; --# notpresent - Pass Sg P1 => v_ + "enni" ; --# notpresent - Pass Sg P2 => v_ + "enisti" ; --# notpresent - Pass Sg P3 => v_ + "enne" ; --# notpresent - Pass Pl P1 => v_ + "enimmo" ; --# notpresent - Pass Pl P2 => v_ + "eniste" ; --# notpresent - Pass Pl P3 => v_ + "ennero" ; --# notpresent - Fut Sg P1 => v_ + "errò" ; --# notpresent - Fut Sg P2 => v_ + "errai" ; --# notpresent - Fut Sg P3 => v_ + "errà" ; --# notpresent - Fut Pl P1 => v_ + "erremo" ; --# notpresent - Fut Pl P2 => v_ + "errete" ; --# notpresent - Fut Pl P3 => v_ + "erranno" ; --# notpresent - Cong Pres Sg P1 => v_ + "enga" ; - Cong Pres Sg P2 => v_ + "enga" ; - Cong Pres Sg P3 => v_ + "enga" ; - Cong Pres Pl P1 => v_ + "eniamo" ; - Cong Pres Pl P2 => v_ + "eniate" ; - Cong Pres Pl P3 => v_ + "engano" ; - Cong Imperf Sg P1 => v_ + "enissi" ; --# notpresent - Cong Imperf Sg P2 => v_ + "enissi" ; --# notpresent - Cong Imperf Sg P3 => v_ + "enisse" ; --# notpresent - Cong Imperf Pl P1 => v_ + "enissimo" ; --# notpresent - Cong Imperf Pl P2 => v_ + "eniste" ; --# notpresent - Cong Imperf Pl P3 => v_ + "enissero" ; --# notpresent - Cond Sg P1 => v_ + "errei" ; --# notpresent - Cond Sg P2 => v_ + "erresti" ; --# notpresent - Cond Sg P3 => v_ + "errebbe" ; --# notpresent - Cond Pl P1 => v_ + "erremmo" ; --# notpresent - Cond Pl P2 => v_ + "erreste" ; --# notpresent - Cond Pl P3 => v_ + "errebbero" ; --# notpresent - Imper SgP2 => v_ + "ieni" ; - Imper PlP1 => v_ + "eniamo" ; - Imper PlP2 => v_ + "enite" ; - Ger => v_ + "enendo" ; - Part PresP Masc Sg => v_ + "eniente" ; - Part PresP Masc Pl => v_ + "enienti" ; - Part PresP Fem Sg => v_ + "eniente" ; - Part PresP Fem Pl => v_ + "enienti" ; - Part PassP Masc Sg => v_ + "enuto" ; - Part PassP Masc Pl => v_ + "enuti" ; - Part PassP Fem Sg => v_ + "enuta" ; - Part PassP Fem Pl => v_ + "enute" - } - } ; - - verbBesch : {s : VForm => Str} -> {s : VF => Str} = \amare -> {s = table { - VInfin False => amare.s ! Inf ; - VInfin True => amare.s ! InfClit ; - VFin (VPres Indic) n p => amare.s ! Indi Pres n p ; - VFin (VPres Conjunct) n p => amare.s ! Cong Pres n p ; - VFin (VImperf Indic) n p => amare.s ! Indi Imperf n p ; --# notpresent - VFin (VImperf Conjunct) n p => amare.s ! Cong Imperf n p ; --# notpresent - VFin VPasse n p => amare.s ! Pass n p ; --# notpresent - VFin VFut n p => amare.s ! Fut n p ; --# notpresent - VFin VCondit n p => amare.s ! Cond n p ; --# notpresent - VImper np => amare.s ! Imper np ; - VPart g n => amare.s ! Part PassP g n ; - VGer => amare.s ! Ger - } - } ; - -param - Tempo = - Pres - | Imperf --# notpresent - ; - TempoP = - PresP - | PassP - ; - VForm = - Inf - | InfClit - | Indi Tempo Number Person - | Pass Number Person --# notpresent - | Fut Number Person --# notpresent - | Cong Tempo Number Person - | Cond Number Person --# notpresent - | Imper NumPersI - | Ger - | Part TempoP Gender Number - ; - - oper - mkVerbo : (x1,_,_,_,_,_,_,_,_,_,x11 : Str) -> Verbo ; - mkVerbo - dovere devo deve dobbiamo dovro - dovetti dovesti dovette dovettero dovi dovuto = - let - dove = Predef.tk 2 dovere ; - dov = init dove ; - dev = init devo ; - dovr = init dovro ; - dovei = Predef.tk 3 dovesti ; - dovut = init dovuto - in ( - {s = table { - Inf => dovere ; - InfClit => init dovere ; - Indi Pres Sg P1 => devo ; - Indi Pres Sg P2 => init deve + "i" ; - Indi Pres Sg P3 => deve ; - Indi Pres Pl P1 => dobbiamo ; - Indi Pres Pl P2 => dove + "te" ; - Indi Pres Pl P3 => init deve + "ono" ; - Indi Imperf Sg P1 => dove + "vo" ; --# notpresent - Indi Imperf Sg P2 => dove + "vi" ; --# notpresent - Indi Imperf Sg P3 => dove + "va" ; --# notpresent - Indi Imperf Pl P1 => dove + "vamo" ; --# notpresent - Indi Imperf Pl P2 => dove + "vate" ; --# notpresent - Indi Imperf Pl P3 => dove + "vano" ; --# notpresent - Pass Sg P1 => dovetti ; --# notpresent - Pass Sg P2 => dovesti ; --# notpresent - Pass Sg P3 => dovette ; --# notpresent - Pass Pl P1 => dovei + "mmo" ; --# notpresent - Pass Pl P2 => dovei + "ste" ; --# notpresent - Pass Pl P3 => dovettero ; --# notpresent - Fut Sg P1 => dovro ; --# notpresent - Fut Sg P2 => dovr + "ai" ; --# notpresent - Fut Sg P3 => dovr + "à" ; --# notpresent - Fut Pl P1 => dovr + "emo" ; --# notpresent - Fut Pl P2 => dovr + "ete" ; --# notpresent - Fut Pl P3 => dovr + "anno" ; --# notpresent - Cong Pres Sg P1 => dev + "a" ; - Cong Pres Sg P2 => dev + "a" ; - Cong Pres Sg P3 => dev + "a" ; - Cong Pres Pl P1 => dobbiamo ; - Cong Pres Pl P2 => Predef.tk 2 dobbiamo + "te" ; - Cong Pres Pl P3 => dev + "ano" ; - Cong Imperf Sg P1 => dovei + "ssi" ; --# notpresent - Cong Imperf Sg P2 => dovei + "ssi" ; --# notpresent - Cong Imperf Sg P3 => dovei + "sse" ; --# notpresent - Cong Imperf Pl P1 => dovei + "ssimo" ; --# notpresent - Cong Imperf Pl P2 => dovei + "ste" ; --# notpresent - Cong Imperf Pl P3 => dovei + "ssero" ; --# notpresent - Cond Sg P1 => dovr + "ei" ; --# notpresent - Cond Sg P2 => dovr + "esti" ; --# notpresent - Cond Sg P3 => dovr + "ebbe" ; --# notpresent - Cond Pl P1 => dovr + "emmo" ; --# notpresent - Cond Pl P2 => dovr + "este" ; --# notpresent - Cond Pl P3 => dovr + "ebbero" ; --# notpresent - Imper SgP2 => dovi ; - Imper PlP1 => dobbiamo ; - Imper PlP2 => dove + "te" ; - Ger => dov + "endo" ; - Part PresP _ Sg => dov + "ente" ; - Part PresP _ Pl => dov + "enti" ; - Part PassP Masc Sg => dovuto ; - Part PassP Masc Pl => dovut + "i" ; - Part PassP Fem Sg => dovut + "a" ; - Part PassP Fem Pl => dovut + "e" - } - }) ; - -} diff --git a/lib/resource-1.0/italian/LangIta.gf b/lib/resource-1.0/italian/LangIta.gf deleted file mode 100644 index d5e4670c7..000000000 --- a/lib/resource-1.0/italian/LangIta.gf +++ /dev/null @@ -1,10 +0,0 @@ ---# -path=.:../romance:../abstract:../common:prelude - -concrete LangIta of Lang = - GrammarIta, - LexiconIta - ** { - -flags startcat = Phr ; unlexer = text ; lexer = text ; - -} ; diff --git a/lib/resource-1.0/italian/MorphoIta.gf b/lib/resource-1.0/italian/MorphoIta.gf deleted file mode 100644 index 669e1300b..000000000 --- a/lib/resource-1.0/italian/MorphoIta.gf +++ /dev/null @@ -1,165 +0,0 @@ ---# -path=.:../romance:../common:../../prelude - ---1 A Simple Italian Resource Morphology --- --- Aarne Ranta 2002 -- 2005 --- --- This resource morphology contains definitions needed in the resource --- syntax. To build a lexicon, it is better to use $ParadigmsIta$, which --- gives a higher-level access to this module. - -resource MorphoIta = CommonRomance, ResIta ** - open PhonoIta, Prelude, Predef in { - - flags optimize=all ; - - - ---2 Nouns --- --- The following macro is useful for creating the forms of number-dependent --- tables, such as common nouns. - -oper - numForms : (_,_ : Str) -> Number => Str = \vino, vini -> - table {Sg => vino ; Pl => vini} ; - --- For example: - - nomVino : Str -> Number => Str = \vino -> let {vin = Predef.tk 1 vino} in - numForms vino (vin + "i") ; - - nomRana : Str -> Number => Str = \rana -> let {ran = Predef.tk 1 rana} in - numForms rana (ran + "e") ; - - nomSale : Str -> Number => Str = \sale -> let {sal = Predef.tk 1 sale} in - numForms sale (sal + "i") ; - - nomTram : Str -> Number => Str = \tram -> - numForms tram tram ; - --- Common nouns are inflected in number and have an inherent gender. - - mkNoun : (Number => Str) -> Gender -> Noun = \mecmecs,gen -> - {s = mecmecs ; g = gen} ; - - mkNounIrreg : Str -> Str -> Gender -> Noun = \mec,mecs -> - mkNoun (numForms mec mecs) ; - - mkNomReg : Str -> Noun = \vino -> - let - o = last vino ; - vin = init vino ; - n = last vin - in - case o of { - "o" => {s = case n of { - "c" | "g" => numForms vino (vin + "hi") ; - "i" => numForms vino vin ; - _ => numForms vino (vin + "i") - } ; g = Masc} ; - "a" => {s = case n of { - "c" | "g" => numForms vino (vin + "he") ; - _ => numForms vino (vin + "e") - } ; g = Fem} ; - "e" => {s = numForms vino (vin + "i") - ; g = Masc} ; - "à" | "ù" => {s = numForms vino vino - ; g = Fem} ; - _ => {s = numForms vino vino - ; g = Masc} - } ; - - - ---2 Adjectives --- --- Adjectives are conveniently seen as gender-dependent nouns. --- Here are some patterns. First one that describes the worst case. - - mkAdj : (_,_,_,_,_ : Str) -> Adj = \solo,sola,soli,sole,solamente -> - {s = table { - AF Masc n => numForms solo soli ! n ; - AF Fem n => numForms sola sole ! n ; - AA => solamente - } - } ; - --- Then the regular and invariant patterns. - - adjSolo : Str -> Adj = \solo -> - let - sol = Predef.tk 1 solo - in - mkAdj solo (sol + "a") (sol + "i") (sol + "e") (sol + "amente") ; - - adjTale : Str -> Adj = \tale -> - let - tal = Predef.tk 1 tale ; - tali = tal + "i" ; - tala = if_then_Str (pbool2bool (Predef.occur (Predef.dp 1 tal) "lr")) tal tale - in - mkAdj tale tale tali tali (tala + "mente") ; - - adjBlu : Str -> Adj = \blu -> - mkAdj blu blu blu blu blu ; --- - - - mkAdjReg : Str -> Adj = \solo -> - let - o = last solo ; - sol = init solo ; - l = last sol ; - solamente = (sol + "amente") - in - case o of { - "o" => case l of { - "c" | "g" => mkAdj solo (sol + "a") (sol + "hi") (sol + "he") solamente ; - "i" => mkAdj solo (sol + "a") sol (sol + "e") solamente ; - _ => mkAdj solo (sol + "a") (sol + "i") (sol + "e") solamente - } ; - "e" => mkAdj solo solo (sol + "i") (sol + "i") (case l of { - "l" => sol + "mente" ; - _ => solo + "mente" - }) ; - _ => mkAdj solo solo solo solo (sol + "mente") - } ; - - ---2 Personal pronouns --- --- All the eight personal pronouns can be built by the following macro. --- The use of "ne" as atonic genitive is debatable. --- We follow the rule that the atonic nominative is empty. --- (The form $glie$ is no longer used, and also the other clitics are --- given in $DiffIta.argPron$ and therefore wouldn't be needed in the --- pronoun itself.) - - mkPronoun : (_,_,_,_,_,_,_,_,_ : Str) -> - Gender -> Number -> Person -> Pronoun = - \il,le,lui,glie,Lui,son,sa,ses,see,g,n,p -> - {s = table { - Ton Nom => il ; - Ton x => prepCase x ++ Lui ; - Aton Nom => strOpt il ; -- [] or il - Aton Acc => le ; - Aton (CPrep P_di) => "ne" ; --- hmm - Aton (CPrep P_a) => lui ; - Aton q => prepCase q ++ Lui ; ---- GF bug with c or p! - Poss {n = Sg ; g = Masc} => son ; - Poss {n = Sg ; g = Fem} => sa ; - Poss {n = Pl ; g = Masc} => ses ; - Poss {n = Pl ; g = Fem} => see - } ; - a = {g = g ; n = n ; p = p} ; - hasClit = True - } ; - ---2 Determiners --- --- Determiners, traditionally called indefinite pronouns, are inflected --- in gender and number, like adjectives. - - pronForms : Adj -> Gender -> Number -> Str = \tale,g,n -> tale.s ! AF g n ; - -} diff --git a/lib/resource-1.0/italian/StructuralIta.gf b/lib/resource-1.0/italian/StructuralIta.gf deleted file mode 100644 index de1f301b7..000000000 --- a/lib/resource-1.0/italian/StructuralIta.gf +++ /dev/null @@ -1,141 +0,0 @@ -concrete StructuralIta of Structural = CatIta ** - open PhonoIta, MorphoIta, ParadigmsIta, BeschIta, Prelude in { - - flags optimize=all ; - -lin - - above_Prep = {s = ["sopra"] ; c = MorphoIta.genitive ; isDir = False} ; - after_Prep = mkPrep "dopo" ; - all_Predet = { - s = \\a,c => prepCase c ++ aagrForms "tutto" "tutta" "tutti" "tutte" ! a ; - c = Nom - } ; - almost_AdA, almost_AdN = ss "quasi" ; - always_AdV = ss "sempre" ; - although_Subj = ss "benché" ** {m = Conjunct} ; - and_Conj = ss "e" ** {n = Pl} ; - because_Subj = ss "perché" ** {m = Indic} ; - before_Prep = mkPrep "prima" ; - behind_Prep = mkPrep "dietro" ; - between_Prep = mkPrep "fra" ; - both7and_DConj = {s1,s2 = "e" ; n = Pl} ; - but_PConj = ss "ma" ; - by8agent_Prep = {s = [] ; c = CPrep P_da ; isDir = False} ; - by8means_Prep = mkPrep "per" ; - can8know_VV = mkVV (verboV (sapere_78 "sapere")) ; - can_VV = mkVV (verboV (potere_69 "potere")) ; - during_Prep = mkPrep "durante" ; - either7or_DConj = {s1,s2 = "o" ; n = Sg} ; - everybody_NP = mkNP ["tutti"] Masc Pl ; - every_Det = {s = \\_,_ => "ogni" ; n = Sg} ; - everything_NP = pn2np (mkPN ["tutto"] Masc) ; - everywhere_Adv = ss "dappertutto" ; - few_Det = {s = \\g,c => prepCase c ++ genForms "pochi" "poche" ! g ; n = Pl} ; - first_Ord = {s = \\ag => (regA "primo").s ! Posit ! AF ag.g ag.n} ; - from_Prep = complGen ; --- - he_Pron = - mkPronoun - "lui" "lo" "gli" "glie" "lui" "suo" "sua" "suoi" "sue" - Masc Sg P3 ; - here7from_Adv = ss ["da quì"] ; - here7to_Adv = ss "quì" ; - here_Adv = ss "quì" ; - how_IAdv = ss "come" ; - how8many_IDet = {s = \\g,c => prepCase c ++ genForms "quanti" "quante" ! g ; n = Pl} ; - if_Subj = ss "se" ** {m = Indic} ; - in8front_Prep = mkPrep "davanti" ; - i_Pron = - mkPronoun - "io" "mi" "mi" "me" "me" "mio" "mia" "miei" "mie" - Masc Sg P1 ; - in_Prep = {s = [] ; c = CPrep P_in ; isDir = False} ; - it_Pron = - mkPronoun - "lui" "lo" "gli" "glie" "lui" "suo" "sua" "suoi" "sue" - Masc Sg P3 ; - less_CAdv = ss "meno" ; - many_Det = {s = \\g,c => prepCase c ++ genForms "molti" "molte" ! g ; n = Pl} ; - more_CAdv = ss "più" ; - most_Predet = {s = \\_,c => prepCase c ++ ["la maggior parte"] ; c = CPrep P_di} ; - much_Det = {s = \\g,c => prepCase c ++ genForms "molto" "molta" ! g ; n = Sg} ; - must_VV = mkVV (verboV (dovere_47 "dovere")) ; - no_Phr = ss "no" ; - on_Prep = {s = [] ; c = CPrep P_su ; isDir = False} ; - one_Quant = {s = \\g,c => prepCase c ++ genForms "uno" "una" ! g} ; - only_Predet = {s = \\_,c => prepCase c ++ "soltanto" ; c = Nom} ; --- solo|a|i|e - or_Conj = {s = "o" ; n = Sg} ; - otherwise_PConj = ss "altramente" ; - part_Prep = complGen ; - please_Voc = ss ["per favore"] ; - possess_Prep = complGen ; - quite_Adv = ss "assai" ; - she_Pron = - mkPronoun - "lei" "la" "le" "glie" "lei" "suo" "sua" "suoi" "sue" - Fem Sg P3 ; - so_AdA = ss "così" ; - somebody_NP = pn2np (mkPN ["qualcuno"] Masc) ; - somePl_Det = {s = \\_,c => prepCase c ++ "qualche" ; n = Pl} ; - someSg_Det = {s = \\_,c => prepCase c ++ "qualche" ; n = Sg} ; - something_NP = pn2np (mkPN ["qualche cosa"] Masc) ; - somewhere_Adv = ss ["qualche parte"] ; - that_Quant = { - s = \\_ => table { - Sg => \\g,c => prepCase c ++ genForms "quello" "quella" ! g ; - Pl => \\g,c => prepCase c ++ genForms "quelli" "quelle" ! g ---- quegli - } - } ; - that_NP = mkNP ["quello"] Masc Sg ; - there7from_Adv = ss ["di là"] ; - there7to_Adv = ss "là" ; --- ci - there_Adv = ss "là" ; - therefore_PConj = ss "quindi" ; - these_NP = mkNP ["questi"] Masc Pl ; - they_Pron = mkPronoun - "loro" "loro" "li" "glie" "loro" "loro" "loro" "loro" "loro" - Masc Pl P3 ; - this_Quant = { - s = \\_ => table { - Sg => \\g,c => prepCase c ++ genForms "questo" "questa" ! g ; - Pl => \\g,c => prepCase c ++ genForms "questi" "queste" ! g - } - } ; - this_NP = pn2np (mkPN ["questo"] Masc) ; - those_NP = mkNP ["quelli"] Masc Pl ; - through_Prep = mkPrep "per" ; - too_AdA = ss "troppo" ; - to_Prep = complDat ; - under_Prep = mkPrep "sotto" ; - very_AdA = ss "molto" ; - want_VV = mkVV (verboV (volere_96 "volere")) ; - we_Pron = - mkPronoun "noi" "ci" "ci" "ce" "noi" "nostro" "nostra" "nostri" "nostre" - Masc Pl P1 ; - whatSg_IP = {s = \\c => prepCase c ++ ["che cosa"] ; a = aagr Fem Sg} ; - whatPl_IP = {s = \\c => prepCase c ++ ["che cose"] ; a = aagr Fem Pl} ; --- - when_IAdv = ss "quando" ; - when_Subj = ss "quando" ** {m = Indic} ; - where_IAdv = ss "dove" ; - whichSg_IDet = {s = \\g,c => prepCase c ++ genForms "quale" "quale" ! g ; n = Sg} ; - whichPl_IDet = {s = \\g,c => prepCase c ++ genForms "quali" "quali" ! g; n = Pl} ; - whoPl_IP = {s = \\c => prepCase c ++ "chi" ; a = aagr Masc Pl} ; - whoSg_IP = {s = \\c => prepCase c ++ "chi" ; a = aagr Masc Sg} ; - why_IAdv = ss "perché" ; - without_Prep = mkPrep "senza" ; - with_Prep = {s = [] ; c = CPrep P_con ; isDir = False} ; - yes_Phr = ss "sì" ; - youSg_Pron = mkPronoun - "tu" "ti" "ti" "te" "te" "tuo" "tua" "tuoi" "tue" - Masc Sg P2 ; - youPl_Pron = - mkPronoun - "voi" "vi" "vi" "ve" "voi" "vostro" "vostra" "vostri" "vostre" - Masc Pl P2 ; - youPol_Pron = - mkPronoun - "Lei" "La" "Le" "Glie" "Lei" "Suo" "Sua" "Suoi" "Sue" - Masc Sg P3 ; - -} - diff --git a/lib/resource-1.0/norwegian/LangNor.gf b/lib/resource-1.0/norwegian/LangNor.gf deleted file mode 100644 index 41d51c2a9..000000000 --- a/lib/resource-1.0/norwegian/LangNor.gf +++ /dev/null @@ -1,10 +0,0 @@ ---# -path=.:../scandinavian:../abstract:../common:prelude - -concrete LangNor of Lang = - GrammarNor, - LexiconNor - ** { - -flags startcat = Phr ; unlexer = text ; lexer = text ; - -} ; diff --git a/lib/resource-1.0/norwegian/MathNor.gf b/lib/resource-1.0/norwegian/MathNor.gf deleted file mode 100644 index 53e9ffd99..000000000 --- a/lib/resource-1.0/norwegian/MathNor.gf +++ /dev/null @@ -1,2 +0,0 @@ -concrete MathNor of Math = CatNor ** MathScand with - (ResScand = ResNor) ; diff --git a/lib/resource-1.0/norwegian/MorphoNor.gf b/lib/resource-1.0/norwegian/MorphoNor.gf deleted file mode 100644 index 13a87125a..000000000 --- a/lib/resource-1.0/norwegian/MorphoNor.gf +++ /dev/null @@ -1,171 +0,0 @@ ---1 A Simple Norwegian Resource Morphology --- --- Aarne Ranta 2002 --- --- This resource morphology contains definitions needed in the resource --- syntax. It moreover contains copies of the most usual inflectional patterns --- as defined in functional morphology (in the Haskell file $RulesSw.hs$). --- --- We use the parameter types and word classes defined for morphology. - -resource MorphoNor = CommonScand, ResNor ** open Prelude, Predef in { - --- genders - -oper - masc = Utr Masc ; - fem = Utr Fem ; - neutr = Neutr ; - --- type synonyms - - Subst : Type = {s : Number => Species => Case => Str} ; - Adj = Adjective ; - --- nouns - - mkSubstantive : (_,_,_,_ : Str) -> Subst = - \dreng, drengen, drenger, drengene -> - {s = nounForms dreng drengen drenger drengene} ; - - extNGen : Str -> Gender = \s -> case last s of { - "n" => Utr Masc ; - "a" => Utr Fem ; - _ => Neutr - } ; - - nBil : Str -> Subst = \bil -> - mkSubstantive bil (bil + "en") (bil + "er") (bil + "erne") ** - {h1 = masc} ; - - nUke : Str -> Subst = \uke -> - mkSubstantive uke (init uke + "a") (uke + "r") (uke + "ne") ** - {h1 = fem} ; - - nHus : Str -> Subst = \hus -> - mkSubstantive hus (hus + "et") hus (hus + "ene") ** - {h1 = neutr} ; - - nHotell : Str -> Subst = \hotell -> - mkSubstantive hotell (hotell + "et") (hotell + "er") (hotell + "ene") ** - {h1 = neutr} ; - - - - --- adjectives - - mkAdject : (_,_,_,_,_ : Str) -> Adj = - \stor,stort,store,storre,storst -> {s = table { - AF (APosit (Strong SgUtr )) c => mkCase c stor ; - AF (APosit (Strong SgNeutr)) c => mkCase c stort ; - AF (APosit _) c => mkCase c store ; - AF ACompar c => mkCase c storre ; - AF (ASuperl SupStrong) c => mkCase c storst ; - AF (ASuperl SupWeak) c => mkCase c (storst + "e") - } - } ; - - aRod : Str -> Adj = \rod -> - mkAdject rod (rod + "t") (rod + "e") (rod + "ere") (rod + "est") ; - - aAbstrakt : Str -> Adj = \abstrakt -> - mkAdject abstrakt abstrakt (abstrakt + "e") (abstrakt + "ere") (abstrakt + "est") ; - - aRask : Str -> Adj = \rask -> - mkAdject rask rask (rask + "e") (rask + "ere") (rask + "est") ; - - aBillig : Str -> Adj = \billig -> - mkAdject billig billig (billig + "e") (billig + "ere") (billig + "st") ; - --- verbs - - Verbum : Type = {s : VForm => Str} ; - - mkVerb6 : (_,_,_,_,_,_ : Str) -> Verbum = - \spise,spiser,spises,spiste,spist,spis -> {s = table { - VI (VInfin v) => mkVoice v spise ; - VF (VPres Act) => spiser ; - VF (VPres Pass) => spises ; - VF (VPret v) => mkVoice v spiste ; --# notpresent - VI (VSupin v) => mkVoice v spist ; --# notpresent - VI (VPtPret (Strong (SgUtr | SgNeutr)) c) => mkCase c spist ; - VI (VPtPret _ c) => case last spist of { - "a" => mkCase c spist ; - _ => mkCase c (spist + "e") - } ; - VF (VImper v) => mkVoice v spis - } - } ; - - vHusk : Str -> Verbum = \husk -> - let huska : Str = husk + "a" ---- variants {husk + "a" ; husk + "et"} - in - mkVerb6 (husk + "e") (husk + "er") (husk + "es") huska huska husk ; - - vSpis : Str -> Verbum = \spis -> - mkVerb6 (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t") spis ; - - vLev : Str -> Verbum = \lev -> - let lever = case last lev of { - "r" => lev ; - _ => lev + "er" - } - in - mkVerb6 (lev + "e") lever (lev + "es") (lev + "de") (lev + "d") lev ; - - vBo : Str -> Verbum = \bo -> - mkVerb6 bo (bo + "r") (bo + "es") (bo + "dde") (bo + "dd") bo ; - - regVerb : Str -> Str -> Verbum = \spise, spiste -> - let - spis = init spise ; - te = dp 2 spiste - in - case te of { - "te" => vSpis spis ; - "de" => case last spise of { - "e" => vLev spis ; - _ => vBo spise - } ; - _ => vHusk spis - } ; - - --- For $Numeral$. - -param DForm = ental | ton | tiotal ; - -oper - LinDigit = {s : DForm => CardOrd => Str} ; - - cardOrd : Str -> Str -> CardOrd => Str = \tre,tredje -> - table { - NCard _ => tre ; - NOrd a => tredje ---- a - } ; - - cardReg : Str -> CardOrd => Str = \syv -> - cardOrd syv (syv + case last syv of { - "n" => "de" ; - "e" => "nde" ; - _ => "ende" - }) ; - - - mkTal : (x1,_,_,_,x5 : Str) -> LinDigit = - \två, tolv, tjugo, andra, tolfte -> - {s = table { - ental => cardOrd två andra ; - ton => cardOrd tolv tolfte ; - tiotal => cardReg tjugo - } - } ; - - numPl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \n -> - {s = n ; n = Pl} ; - - invNum : CardOrd = NCard Neutr ; - - -} diff --git a/lib/resource-1.0/norwegian/ParadigmsNor.gf b/lib/resource-1.0/norwegian/ParadigmsNor.gf deleted file mode 100644 index 2e1ca5e70..000000000 --- a/lib/resource-1.0/norwegian/ParadigmsNor.gf +++ /dev/null @@ -1,436 +0,0 @@ ---# -path=.:../scandinavian:../common:../abstract:../../prelude - ---1 Norwegian Lexical Paradigms --- --- Aarne Ranta 2003 --- --- This is an API for the user of the resource grammar --- for adding lexical items. It gives functions for forming --- expressions of open categories: nouns, adjectives, verbs. --- It covers the "bokmål" variant of Norwegian. --- --- Closed categories (determiners, pronouns, conjunctions) are --- accessed through the resource syntax API, $Structural$. --- --- The main difference with $MorphoNor.gf$ is that the types --- referred to are compiled resource grammar types. We have moreover --- had the design principle of always having existing forms, rather --- than stems, as string arguments of the paradigms. --- --- The structure of functions for each word class $C$ is the following: --- first we give a handful of patterns that aim to cover all --- regular cases. Then we give a worst-case function $mkC$, which serves as an --- escape to construct the most irregular words of type $C$. --- However, this function should only seldom be needed: we have a --- separate module [``IrregNor`` ../../norwegian/IrregNor], --- which covers irregularly inflected verbs. - -resource ParadigmsNor = - open - (Predef=Predef), - Prelude, - CommonScand, - ResNor, - MorphoNor, - CatNor in { - ---2 Parameters --- --- To abstract over gender names, we define the following identifiers. - -oper - Gender : Type ; - - masculine : Gender ; - feminine : Gender ; - neutrum : Gender ; - --- To abstract over number names, we define the following. - - Number : Type ; - - singular : Number ; - plural : Number ; - --- To abstract over case names, we define the following. - - Case : Type ; - - nominative : Case ; - genitive : Case ; - --- Prepositions used in many-argument functions are just strings. - - mkPrep : Str -> Prep ; - noPrep : Prep ; -- empty string - ---2 Nouns - --- Worst case: give all four forms. The gender is computed from the --- last letter of the second form (if "n", then $utrum$, otherwise $neutrum$). - - mkN : (dreng,drengen,drenger,drengene : Str) -> N ; - --- The regular function takes the singular indefinite form --- and computes the other forms and the gender by a heuristic. --- The heuristic is that nouns ending "e" are feminine like "kvinne", --- all others are masculine like "bil". --- If in doubt, use the $cc$ command to test! - - regN : Str -> N ; - --- Giving gender manually makes the heuristic more reliable. - - regGenN : Str -> Gender -> N ; - --- This function takes the singular indefinite and definite forms; the --- gender is computed from the definite form. - - mk2N : (bil,bilen : Str) -> N ; - - ---3 Compound nouns --- --- All the functions above work quite as well to form compound nouns, --- such as "fotboll". - - ---3 Relational nouns --- --- Relational nouns ("datter til x") need a preposition. - - mkN2 : N -> Prep -> N2 ; - --- The most common preposition is "av", and the following is a --- shortcut for regular, $nonhuman$ relational nouns with "av". - - regN2 : Str -> Gender -> N2 ; - --- Use the function $mkPrep$ or see the section on prepositions below to --- form other prepositions. --- --- Three-place relational nouns ("forbindelse fra x til y") --- need two prepositions. - - mkN3 : N -> Prep -> Prep -> N3 ; - - ---3 Relational common noun phrases --- --- In some cases, you may want to make a complex $CN$ into a --- relational noun (e.g. "den gamle kongen av"). However, $N2$ and --- $N3$ are purely lexical categories. But you can use the $AdvCN$ --- and $PrepNP$ constructions to build phrases like this. - --- ---3 Proper names and noun phrases --- --- Proper names, with a regular genitive, are formed as follows - - regPN : Str -> PN ; -- utrum - regGenPN : Str -> Gender -> PN ; - --- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". - - nounPN : N -> PN ; - --- To form a noun phrase that can also be plural and have an irregular --- genitive, you can use the worst-case function. - - mkNP : Str -> Str -> Number -> Gender -> NP ; - ---2 Adjectives - --- Non-comparison one-place adjectives need three forms: - - mkA : (galen,galet,galne : Str) -> A ; - --- For regular adjectives, the other forms are derived. - - regA : Str -> A ; - --- In most cases, two forms are enough. - - mk2A : (stor,stort : Str) -> A ; - ---3 Two-place adjectives --- --- Two-place adjectives need a preposition for their second argument. - - mkA2 : A -> Prep -> A2 ; - --- Comparison adjectives may need as many as five forms. - - mkADeg : (stor,stort,store,storre,storst : Str) -> A ; - --- The regular pattern works for many adjectives, e.g. those ending --- with "ig". - - regADeg : Str -> A ; - --- Just the comparison forms can be irregular. - - irregADeg : (tung,tyngre,tyngst : Str) -> A ; - --- Sometimes just the positive forms are irregular. - - mk3ADeg : (galen,galet,galne : Str) -> A ; - mk2ADeg : (bred,bredt : Str) -> A ; - --- If comparison is formed by "mer", "mest", as in general for --- long adjective, the following pattern is used: - - compoundA : A -> A ; -- -/mer/mest norsk - - ---2 Adverbs - --- Adverbs are not inflected. Most lexical ones have position --- after the verb. Some follow the verb (e.g. "altid"). - - mkAdv : Str -> Adv ; -- e.g. her - mkAdV : Str -> AdV ; -- e.g. altid - --- Adverbs modifying adjectives and sentences can also be formed. - - mkAdA : Str -> AdA ; - - ---2 Verbs --- --- The worst case needs six forms. - - mkV : (spise,spiser,spises,spiste,spist,spis : Str) -> V ; - --- The 'regular verb' function is the first conjugation. - - regV : (snakke : Str) -> V ; - --- The almost regular verb function needs the infinitive and the preteritum. - - mk2V : (leve,levde : Str) -> V ; - --- There is an extensive list of irregular verbs in the module $IrregNor$. --- In practice, it is enough to give three forms, as in school books. - - irregV : (drikke, drakk, drukket : Str) -> V ; - - ---3 Verbs with 'være' as auxiliary --- --- By default, the auxiliary is "have". This function changes it to "være". - - vaereV : V -> V ; - - ---3 Verbs with a particle. --- --- The particle, such as in "lukke opp", is given as a string. - - partV : V -> Str -> V ; - ---3 Deponent verbs. --- --- Some words are used in passive forms only, e.g. "trives", some as --- reflexive e.g. "forestille seg". - - depV : V -> V ; - reflV : V -> V ; - ---3 Two-place verbs --- --- Two-place verbs need a preposition, except the special case with direct object. --- (transitive verbs). Notice that a particle comes from the $V$. - - mkV2 : V -> Prep -> V2 ; - - dirV2 : V -> V2 ; - ---3 Three-place verbs --- --- Three-place (ditransitive) verbs need two prepositions, of which --- the first one or both can be absent. - - mkV3 : V -> Prep -> Prep -> V3 ; -- snakke, med, om - dirV3 : V -> Prep -> V3 ; -- gi,_,til - dirdirV3 : V -> V3 ; -- gi,_,_ - ---3 Other complement patterns --- --- Verbs and adjectives can take complements such as sentences, --- questions, verb phrases, and adjectives. - - mkV0 : V -> V0 ; - mkVS : V -> VS ; - mkV2S : V -> Prep -> V2S ; - mkVV : V -> VV ; - mkV2V : V -> Prep -> Prep -> V2V ; - mkVA : V -> VA ; - mkV2A : V -> Prep -> V2A ; - mkVQ : V -> VQ ; - mkV2Q : V -> Prep -> V2Q ; - - mkAS : A -> AS ; - mkA2S : A -> Prep -> A2S ; - mkAV : A -> AV ; - mkA2V : A -> Prep -> A2V ; - --- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated --- just as synonyms of $V2$, and the second argument is given --- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. --- $V0$ is just $V$. - - V0, V2S, V2V, V2A, V2Q : Type ; - AS, A2S, AV, A2V : Type ; - - ---. ---2 Definitions of the paradigms --- --- The definitions should not bother the user of the API. So they are --- hidden from the document. - - Gender = MorphoNor.Gender ; - Number = MorphoNor.Number ; - Case = MorphoNor.Case ; - masculine = Utr Masc ; - feminine = Utr Fem ; - neutrum = Neutr ; - singular = Sg ; - plural = Pl ; - nominative = Nom ; - genitive = Gen ; - - mkN x y z u = mkSubstantive x y z u ** {g = extNGen y ; lock_N = <>} ; - - regN x = regGenN x g where { - g = case of { - _ + "e" => Utr Fem ; - _ => Utr Masc - } - } ; - - regGenN x g = case last x of { - "e" => case g of { - Utr Masc => mkN x (x + "n") (x + "r") (x + "ne") ; - Utr Fem => mkN x (init x + "a") (x + "r") (x + "ne") ; - Neutr => mkN x (x + "t") (x + "r") (init x + "a") - } ; - _ => case g of { - Utr Masc => mkN x (x + "en") (x + "er") (x + "ene") ; - Utr Fem => mkN x (x + "a") (x + "er") (x + "ene") ; - Neutr => mkN x (x + "et") (x + "") (x + "a") - } - } ; - - mk2N x y = case last y of { - "n" => regGenN x masculine ; - "a" => regGenN x feminine ; - _ => regGenN x neutrum - } ; - - - mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p.s} ; - regN2 n g = mkN2 (regGenN n g) (mkPrep "av") ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ; - - regGenPN n g = {s = \\c => mkCase c n ; g = g} ** {lock_PN = <>} ; - regPN n = regGenPN n utrum ; - nounPN n = {s = n.s ! singular ! Indef ; g = n.g ; lock_PN = <>} ; - mkNP x y n g = - {s = table {NPPoss _ => x ; _ => y} ; a = agrP3 g n ; - lock_NP = <>} ; - - mkA a b c = (mkAdject a b c [] []) ** {isComp = False ; lock_A = <>} ; - mk2A a b = mkA a b (a + "e") ; - regA a = (regADeg a) ** {isComp = False ; lock_A = <>} ; - - mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ; - - mkADeg a b c d e = mkAdject a b c d e ** {isComp = False ; lock_A = <>} ; - regADeg a = case Predef.dp 2 a of { - "ig" => aBillig a ; - "sk" => aRask a ; - _ => aRod a - } ** {isComp = False ; lock_A = <>} ; - irregADeg a b c = mkAdject a (a + "t") (a + "e") b c ** - {isComp = False ; lock_A = <>} ; - mk3ADeg a b c = mkAdject a b c (a + "ere") (a + "est") ** - {isComp = False ; lock_A = <>} ; - mk2ADeg a b = mkAdject a b (a + "e") (a + "ere") (a + "est") ** - {isComp = False ; lock_A = <>} ; - - compoundA adj = {s = adj.s ; isComp = True ; lock_A = <>} ; - - mkAdv x = ss x ** {lock_Adv = <>} ; - mkAdV x = ss x ** {lock_AdV = <>} ; - mkAdA x = ss x ** {lock_AdA = <>} ; - - mkPrep p = {s = p ; lock_Prep = <>} ; - noPrep = mkPrep [] ; - - mkV a b c d e f = mkVerb6 a b c d e f ** - {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ; - - regV a = case last a of { - "e" => vHusk (init a) ; - _ => vBo a - } ** {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ; - - mk2V a b = regVerb a b ** {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ; - - irregV = - \drikke,drakk,drukket -> - let - drikk = case last drikke of { - "e" => init drikke ; - _ => drikke - } ; - drikker = case last (init drikke) of { - "r" => init drikke ; - _ => drikke + "r" - } - in - mkV drikke drikker (drikke + "s") drakk drukket drikk ; - - vaereV v = { - s = v.s ; - part = [] ; - vtype = v.vtype ; - isVaere = True ; - lock_V = <> - } ; - - partV v p = {s = v.s ; part = p ; vtype = v.vtype ; isVaere = v.isVaere ; lock_V = <>} ; - depV v = {s = v.s ; part = v.part ; vtype = VPass ; isVaere = False ; lock_V = <>} ; - reflV v = {s = v.s ; part = v.part ; vtype = VRefl ; isVaere = False ; lock_V = <>} ; - - mkV2 v p = v ** {c2 = p.s ; lock_V2 = <>} ; - dirV2 v = mkV2 v noPrep ; - - mkV3 v p q = v ** {c2 = p.s ; c3 = q.s ; lock_V3 = <>} ; - dirV3 v p = mkV3 v noPrep p ; - dirdirV3 v = dirV3 v noPrep ; - - mkV0 v = v ** {lock_V0 = <>} ; - mkVS v = v ** {lock_VS = <>} ; - mkV2S v p = mkV2 v p ** {lock_V2S = <>} ; - mkVV v = v ** {c2 = "å" ; lock_VV = <>} ; - mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2V = <>} ; - mkVA v = v ** {lock_VA = <>} ; - mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; - mkVQ v = v ** {lock_VQ = <>} ; - mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - - mkAS v = v ** {lock_A = <>} ; - mkA2S v p = mkA2 v p ** {lock_A = <>} ; - mkAV v = v ** {lock_A = <>} ; - mkA2V v p = mkA2 v p ** {lock_A = <>} ; - - V0 : Type = V ; - V2S, V2V, V2Q, V2A : Type = V2 ; - AS, A2S, AV : Type = A ; - A2V : Type = A2 ; - - -} ; diff --git a/lib/resource-1.0/norwegian/StructuralNor.gf b/lib/resource-1.0/norwegian/StructuralNor.gf deleted file mode 100644 index 5079154c6..000000000 --- a/lib/resource-1.0/norwegian/StructuralNor.gf +++ /dev/null @@ -1,126 +0,0 @@ -concrete StructuralNor of Structural = CatNor ** - open MorphoNor, ParadigmsNor, Prelude in { - - flags optimize=all ; - - lin - above_Prep = ss "ovenfor" ; - after_Prep = ss "etter" ; - by8agent_Prep = ss "av" ; - all_Predet = {s = gennumForms "all" "alt" "alle"} ; - almost_AdA, almost_AdN = ss "nesten" ; - although_Subj = ss ["selv om"] ; - always_AdV = ss "altid" ; - and_Conj = ss "og" ** {n = Pl} ; - because_Subj = ss "fordi" ; - before_Prep = ss "før" ; - behind_Prep = ss "bakom" ; - between_Prep = ss "mellom" ; - both7and_DConj = sd2 "både" "og" ** {n = Pl} ; - but_PConj = ss "men" ; - by8means_Prep = ss "med" ; - can8know_VV, can_VV = - mkV "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** - {c2 = [] ; lock_VV = <>} ; - during_Prep = ss "under" ; - either7or_DConj = sd2 "enten" "eller" ** {n = Sg} ; - everybody_NP = regNP "alle" "alles" Plg ; - every_Det = {s = \\_,_ => "hver" ; n = Sg ; det = DDef Indef} ; - everything_NP = regNP "alt" "alts" SgNeutr ; - everywhere_Adv = ss "overalt" ; - few_Det = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ; - first_Ord = {s = "første" ; isDet = True} ; - from_Prep = ss "fra" ; - he_Pron = MorphoNor.mkNP "han" "ham" "hans" "hans" "hans" SgUtr P3 ; - here_Adv = ss "her" ; - here7to_Adv = ss "hit" ; - here7from_Adv = ss "herfra" ; - how_IAdv = ss "hvor" ; - how8many_IDet = {s = \\_ => ["hur mange"] ; n = Pl ; det = DDef Indef} ; - if_Subj = ss "hvis" ; - in8front_Prep = ss "foran" ; - i_Pron = - MorphoNor.mkNP "jeg" "meg" (variants {"min" ; "mi"}) "mit" "mine" SgUtr P1 ; --- mi - in_Prep = ss "i" ; - it_Pron = MorphoNor.regNP "det" "dets" SgNeutr ; - less_CAdv = ss "mindre" ; - many_Det = {s = \\_,_ => "mange" ; n = Pl ; det = DDef Indef} ; - more_CAdv = ss "mer" ; - most_Predet = {s = gennumForms ["den meste"] ["det meste"] ["de fleste"]} ; - much_Det = {s = \\_,_ => "mye" ; n = Pl ; det = DDef Indef} ; - must_VV = - mkV "måtte" "må" "få" "måtte" "måttet" "mått" ** {c2 = [] ; lock_VV = <>} ; - no_Phr = ss ["Nei"] ; - on_Prep = ss "på" ; - one_Quant = {s = \\_ => genderForms ["en"] ["et"] ; n = Sg ; det = DIndef} ; --- ei - only_Predet = {s = \\_ => "kun"} ; - or_Conj = ss "eller" ** {n = Sg} ; - otherwise_PConj = ss "annarledes" ; - part_Prep = ss "av" ; - please_Voc = ss "takk" ; --- - possess_Prep = ss "av" ; - quite_Adv = ss "temmelig" ; - she_Pron = MorphoNor.mkNP "hun" "henne" "hennes" "hennes" "hennes" SgUtr P3 ; - so_AdA = ss "så" ; - someSg_Det = {s = \\_ => genderForms "noen" "noe" ; n = Sg ; det = DIndef} ; - somePl_Det = {s = \\_,_ => "noen" ; n = Pl ; det = DIndef} ; - somebody_NP = regNP "noen" "noens" SgUtr ; - something_NP = regNP "noe" "noes" SgNeutr ; - somewhere_Adv = ss ["et eller annet sted"] ; ---- ? - that_Quant = - {s = table { - Sg => \\_ => genderForms ["den der"] ["det der"] ; - Pl => \\_,_ => ["de der"] - } ; - det = DDef Indef - } ; - that_NP = regNP ["det der"] ["det ders"] SgNeutr ; - there_Adv = ss "der" ; - there7to_Adv = ss "dit" ; - there7from_Adv = ss "derfra" ; - therefore_PConj = ss "derfor" ; - these_NP = regNP ["disse"] ["disses"] Plg ; - they_Pron = MorphoNor.mkNP "de" "dem" "deres" "deres" "deres" Plg P1 ; - this_Quant = - {s = table { - Sg => \\_ => genderForms ["denne"] ["dette"] ; - Pl => \\_,_ => ["disse"] - } ; - det = DDef Def - } ; - this_NP = regNP ["dette"] ["dettes"] SgNeutr ; - those_NP = regNP ["de der"] ["de ders"] Plg ; - through_Prep = ss "gjennom" ; - too_AdA = ss "for" ; - to_Prep = ss "til" ; - under_Prep = ss "under" ; - very_AdA = ss "mye" ; - want_VV = - mkV "ville" "vil" nonExist "ville" "villet" "villed" ** - {c2 = [] ; lock_VV = <>} ; - we_Pron = MorphoNor.mkNP "vi" "oss" "vår" "vårt" "våre" Plg P1 ; - whatSg_IP = {s = \\_ => "hva" ; gn = SgUtr} ; ---- infl - whatPl_IP = {s = \\_ => "hva" ; gn = Plg} ; ---- infl - when_IAdv = ss "når" ; - when_Subj = ss "når" ; - where_IAdv = ss "hver" ; - whichPl_IDet = {s = \\_ => "hvilke" ; n = Pl ; det = DIndef} ; - whichSg_IDet = {s = genderForms "hvilken" "hvilket" ; n = Sg ; det = DIndef} ; - whoSg_IP = {s = vem.s ; gn = SgUtr} ; - whoPl_IP = {s = \\_ => "hvilke" ; gn = Plg} ; - why_IAdv = ss "hvorfor" ; - without_Prep = ss "uten" ; - with_Prep = ss "med" ; - yes_Phr = ss ["ja"] ; - youSg_Pron = - MorphoNor.mkNP "du" "deg" (variants {"din" ; "di"}) "dit" "dine" SgUtr P2 ; ---- - youPl_Pron = MorphoNor.mkNP "dere" "dere" "deres" "deres" "deres" Plg P2 ; - youPol_Pron = MorphoNor.mkNP "Dere" "Dere" "Deres" "Deres" "Deres" SgUtr P2 ; --- wrong in refl - --- Auxiliaries that are used repeatedly. - - oper - vem = MorphoNor.mkNP "hvem" "hvem" "hvis" "hvis" "hvis" SgUtr P3 ; - -} - diff --git a/lib/resource-1.0/russian/LangRus.gf b/lib/resource-1.0/russian/LangRus.gf deleted file mode 100644 index a91740233..000000000 --- a/lib/resource-1.0/russian/LangRus.gf +++ /dev/null @@ -1,17 +0,0 @@ ---# -path=.:../abstract:../common:../../prelude - -concrete LangRus of Lang = - NounRus, - VerbRus, - AdjectiveRus, - AdverbRus, - NumeralRus, - SentenceRus, - QuestionRus, - RelativeRus, - ConjunctionRus, - PhraseRus, - TextX, - StructuralRus, - IdiomRus, - LexiconRus ** { flags startcat = Phr ; unlexer = text ; lexer = text ;} ; diff --git a/lib/resource-1.0/russian/ParadigmsRus.gf b/lib/resource-1.0/russian/ParadigmsRus.gf deleted file mode 100644 index 1ef1e971e..000000000 --- a/lib/resource-1.0/russian/ParadigmsRus.gf +++ /dev/null @@ -1,968 +0,0 @@ ---# -path=.:../abstract:../../prelude:../common - ---1 Russian Lexical Paradigms --- --- Janna Khegai 2003--2006 --- --- This is an API for the user of the resource grammar --- for adding lexical items. It gives functions for forming --- expressions of open categories: nouns, adjectives, verbs. --- --- Closed categories (determiners, pronouns, conjunctions) are --- accessed through the resource syntax API, $Structural.gf$. --- --- The main difference with $MorphoRus.gf$ is that the types --- referred to are compiled resource grammar types. We have moreover --- had the design principle of always having existing forms, rather --- than stems, as string arguments of the paradigms. --- --- The structure of functions for each word class $C$ is the following: --- first we give a handful of patterns that aim to cover all --- regular cases. Then we give a worst-case function $mkC$, which serves as an --- escape to construct the most irregular words of type $C$. --- --- The following modules are presupposed: - -resource ParadigmsRus = open - (Predef=Predef), - Prelude, - MorphoRus, - CatRus, - NounRus - in { - -flags coding=utf8 ; - ---2 Parameters --- --- To abstract over gender names, we define the following identifiers. - -oper - Gender : Type ; - masculine : Gender ; - feminine : Gender ; - neuter : Gender ; - --- To abstract over case names, we define the following. - Case : Type ; - - nominative : Case ; - genitive : Case ; - dative : Case ; - accusative : Case ; - instructive : Case ; - prepositional : Case ; - --- In some (written in English) textbooks accusative case --- is put on the second place. However, we follow the case order --- standard for Russian textbooks. - --- To abstract over number names, we define the following. - Number : Type ; - - singular : Number ; - plural : Number ; - ---2 Nouns - --- Best case: indeclinabe nouns: "кофе", "пальто", "ВУЗ". - Animacy: Type ; - - animate: Animacy; - inanimate: Animacy; - - mkIndeclinableNoun: Str -> Gender -> Animacy -> N ; - --- Worst case - give six singular forms: --- Nominative, Genetive, Dative, Accusative, Instructive and Prepositional; --- corresponding six plural forms and the gender. --- May be the number of forms needed can be reduced, --- but this requires a separate investigation. --- Animacy parameter (determining whether the Accusative form is equal --- to the Nominative or the Genetive one) is actually of no help, --- since there are a lot of exceptions and the gain is just one form less. - - mkN : (nomSg, genSg, datSg, accSg, instSg, preposSg, - nomPl, genPl, datPl, accPl, instPl, preposPl: Str) -> Gender -> Animacy -> N ; - - -- мужчина, мужчины, мужчине, мужчину, мужчиной, мужчине - -- мужчины, мужчин, мужчинам, мужчин, мужчинами, мужчинах - --- The regular function captures the variants for some popular nouns --- endings below: - - regN : Str -> N ; - - --- Here are some common patterns. The list is far from complete. - --- Feminine patterns. - - nMashina : Str -> N ; -- feminine, inanimate, ending with "-а", Inst -"машин-ой" - nEdinica : Str -> N ; -- feminine, inanimate, ending with "-а", Inst -"единиц-ей" - nZhenchina : Str -> N ; -- feminine, animate, ending with "-a" - nNoga : Str -> N ; -- feminine, inanimate, ending with "г_к_Ñ…-a" - nMalyariya : Str -> N ; -- feminine, inanimate, ending with "-иÑ" - nTetya : Str -> N ; -- feminine, animate, ending with "-Ñ" - nBol : Str -> N ; -- feminine, inanimate, ending with "-ÑŒ"(soft sign) - --- Neuter patterns. - - nObezbolivauchee : Str -> N ; -- neutral, inanimate, ending with "-ee" - nProizvedenie : Str -> N ; -- neutral, inanimate, ending with "-e" - nChislo : Str -> N ; -- neutral, inanimate, ending with "-o" - nZhivotnoe : Str -> N ; -- masculine, inanimate, ending with "-ень" - --- Masculine patterns. - --- Ending with consonant: - nPepel : Str -> N ; -- masculine, inanimate, ending with "-ел"- "пеп-ла" - - nBrat: Str -> N ; -- animate, брат-ÑŒÑ - nStul: Str -> N ; -- same as above, but inanimate - nMalush : Str -> N ; -- малышей - nPotolok : Str -> N ; -- потол-ок - потол-ка - - -- the next four differ in plural nominative and/or accusative form(s) : - nBank: Str -> N ; -- банк-и (Nom=Acc) - nStomatolog : Str -> N ; -- same as above, but animate - nAdres : Str -> N ; -- адреÑ-а (Nom=Acc) - nTelefon : Str -> N ; -- телефон-Ñ‹ (Nom=Acc) - - nNol : Str -> N ; -- masculine, inanimate, ending with "-ÑŒ" (soft sign) - nUroven : Str -> N ; -- masculine, inanimate, ending with "-ень" - --- Nouns used as functions need a preposition. The most common is with Genitive. - - mkFun : N -> Prep -> N2 ; - mkN2 : N -> N2 ; - mkN3 : N -> Prep -> Prep -> N3 ; - --- Proper names. - - mkPN : Str -> Gender -> Animacy -> PN ; -- "Иван", "Маша" - nounPN : N -> PN ; - --- On the top level, it is maybe $CN$ that is used rather than $N$, and --- $NP$ rather than $PN$. - - mkCN : N -> CN ; - mkNP : Str -> Gender -> Animacy -> NP ; - - ---2 Adjectives - --- Non-comparison (only positive degree) one-place adjectives need 28 (4 by 7) --- forms in the worst case: - - --- (Masculine | Feminine | Neutral | Plural) * - --- (Nominative | Genitive | Dative | Accusative Inanimate | Accusative Animate | --- Instructive | Prepositional) - - --- Notice that 4 short forms, which exist for some adjectives are not included --- in the current description, otherwise there would be 32 forms for --- positive degree. - --- mkA : ( : Str) -> A ; - --- The regular function captures the variants for some popular adjective --- endings below. The first string agrument is the masculine singular form, --- the second is comparative: - - regA : Str -> Str -> A ; - - --- Invariable adjective is a special case. - - adjInvar : Str -> A ; -- khaki, mini, hindi, netto - --- Some regular patterns depending on the ending. - - AStaruyj : Str -> Str -> A ; -- ending with "-ый" - AMalenkij : Str -> Str -> A ; -- ending with "-ий", Gen - "маленьк-ого" - AKhoroshij : Str -> Str -> A ; -- ending with "-ий", Gen - "хорош-его" - AMolodoj : Str -> Str -> A ; -- ending with "-ой", - -- plural - молод-ые" - AKakoj_Nibud : Str -> Str -> Str -> A ; -- ending with "-ой", - -- plural - "как-ие" - --- Two-place adjectives need a preposition and a case as extra arguments. - - mkA2 : A -> Str -> Case -> A2 ; -- "делим на" - --- Comparison adjectives need a positive adjective --- (28 forms without short forms). --- Taking only one comparative form (non-syntactic) and --- only one superlative form (syntactic) we can produce the --- comparison adjective with only one extra argument - --- non-syntactic comparative form. --- Syntactic forms are based on the positive forms. - - --- mkADeg : A -> Str -> ADeg ; - --- On top level, there are adjectival phrases. The most common case is --- just to use a one-place adjective. --- ap : A -> IsPostfixAdj -> AP ; - ---2 Adverbs - --- Adverbs are not inflected. - - mkAdv : Str -> Adv ; - ---2 Verbs --- --- In our lexicon description ("Verbum") there are 62 forms: --- 2 (Voice) by { 1 (infinitive) + [2(number) by 3 (person)](imperative) + --- [ [2(Number) by 3(Person)](present) + [2(Number) by 3(Person)](future) + --- 4(GenNum)(past) ](indicative)+ 4 (GenNum) (subjunctive) } --- Participles (Present and Past) and Gerund forms are not included, --- since they fuction more like Adjectives and Adverbs correspondingly --- rather than verbs. Aspect is regarded as an inherent parameter of a verb. --- Notice, that some forms are never used for some verbs. - -Voice: Type; -Aspect: Type; -Bool: Type; -Conjugation: Type ; - -first: Conjugation; -- "гулÑ-Ешь, гулÑ-Ем" -firstE: Conjugation; -- Verbs with vowel "Ñ‘": "даёшь" (give), "пьёшь" (drink) -second: Conjugation; -- "вид-Ишь, вид-Им" -mixed: Conjugation; -- "хоч-Ешь - хот-Им" -dolzhen: Conjugation; -- irregular - -true: Bool; -false: Bool; - -active: Voice ; -passive: Voice ; -imperfective: Aspect; -perfective: Aspect ; - - --- The worst case need 6 forms of the present tense in indicative mood --- ("Ñ Ð±ÐµÐ³Ñƒ", "Ñ‚Ñ‹ бежишь", "он бежит", "мы бежим", "вы бежите", "они бегут"), --- a past form (singular, masculine: "Ñ Ð±ÐµÐ¶Ð°Ð»"), an imperative form --- (singular, second person: "беги"), an infinitive ("бежать"). --- Inherent aspect should also be specified. - - mkVerbum : Aspect -> (presentSgP1,presentSgP2,presentSgP3, - presentPlP1,presentPlP2,presentPlP3, - pastSgMasculine,imperative,infinitive: Str) -> V ; - --- Common conjugation patterns are two conjugations: --- first - verbs ending with "-ать/-ÑÑ‚ÑŒ" and second - "-ить/-еть". --- Instead of 6 present forms of the worst case, we only need --- a present stem and one ending (singular, first person): --- "Ñ Ð»ÑŽÐ±-лю", "Ñ Ð¶Ð´-у", etc. To determine where the border --- between stem and ending lies it is sufficient to compare --- first person from with second person form: --- "Ñ Ð»ÑŽÐ±-лю", "Ñ‚Ñ‹ люб-ишь". Stems shoud be the same. --- So the definition for verb "любить" looks like: --- regV Imperfective Second "люб" "лю" "любил" "люби" "любить"; - - regV :Aspect -> Conjugation -> (stemPresentSgP1,endingPresentSgP1, - pastSgP1,imperative,infinitive : Str) -> V ; - --- For writing an application grammar one usualy doesn't need --- the whole inflection table, since each verb is used in --- a particular context that determines some of the parameters --- (Tense and Voice while Aspect is fixed from the beginning) for certain usage. --- The "V" type, that have these parameters fixed. --- We can extract the "V" from the lexicon. - --- mkV: Verbum -> Voice -> V ; --- mkPresentV: Verbum -> Voice -> V ; - - --- Two-place verbs, and the special case with direct object. Notice that --- a particle can be included in a $V$. - - mkV2 : V -> Str -> Case -> V2 ; -- "войти в дом"; "в", accusative - mkV3 : V -> Str -> Str -> Case -> Case -> V3 ; -- "Ñложить пиÑьмо в конверт" - dirV2 : V -> V2 ; -- "видеть", "любить" - tvDirDir : V -> V3 ; - --- The definitions should not bother the user of the API. So they are --- hidden from the document. ---. - Gender = MorphoRus.Gender ; - Case = MorphoRus.Case ; - Number = MorphoRus.Number ; - Animacy = MorphoRus.Animacy; - Aspect = MorphoRus.Aspect; - Voice = MorphoRus.Voice ; - --Tense = Tense ; - Bool = Prelude.Bool ; - Conjugation = MorphoRus.Conjugation; -first = First ; -firstE = FirstE ; -second = Second ; -mixed = Mixed ; -dolzhen = Dolzhen; - - true = True; - false = False ; - masculine = Masc ; - feminine = Fem ; - neuter = Neut ; - nominative = Nom ; - accusative = Acc ; - dative = Dat ; - genitive = Gen ; - instructive = Inst ; - prepositional = Prepos ; - singular = Sg ; - plural = Pl ; - animate = Animate ; - inanimate = Inanimate ; - active = Act ; - passive = Pass ; - imperfective = Imperfective ; - perfective = Perfective ; - -- present = Present ; - --past = Past ; - -- Degree = Pos | Comp | Super ; - -- Person = P1 | P2 | P3 ; - -- AfterPrep = Yes | No ; - -- Possessive = NonPoss | Poss GenNum ; - --- Noun definitions - - mkIndeclinableNoun = \s,g, anim -> - { - s = table { SF _ _ => s } ; - g = g ; - anim = anim - } ** {lock_N = <>}; - - - mkN = \nomSg, genSg, datSg, accSg, instSg, preposSg, - nomPl, genPl, datPl, accPl, instPl, preposPl, g, anim -> - { - s = table { - SF Sg Nom => nomSg ; - SF Sg Gen => genSg ; - SF Sg Dat => datSg ; - SF Sg Acc => accSg ; - SF Sg Inst => instSg ; - SF Sg Prepos => preposSg ; - SF Pl Nom => nomPl ; - SF Pl Gen => genPl ; - SF Pl Dat => datPl ; - SF Pl Acc => accPl ; - SF Pl Inst => instPl ; - SF Pl Prepos => preposPl - } ; - g = g ; - anim = anim - } ** {lock_N = <>} ; - - -regN = \ray -> - let - ra = Predef.tk 1 ray ; - y = Predef.dp 1 ray ; - r = Predef.tk 2 ray ; - ay = Predef.dp 2 ray ; - rays = - case y of { - "а" => nMashina ray ; - "ÑŒ" => nBol ray ; - "Ñ" => case ay of { - "иÑ" => nMalyariya ray; - _ => nTetya ray }; - "е" => case ay of { - "ее" => nObezbolivauchee ray ; - "ое" => nZhivotnoe ray ; - _ => nProizvedenie ray }; - "о" => nChislo ray; - _=> nStomatolog ray - } - in - rays ; - - - - nMashina = \s -> aEndInAnimateDecl s ** {lock_N = <>}; - nEdinica = \s -> ej_aEndInAnimateDecl s ** {lock_N = <>}; - nZhenchina = \s -> (aEndAnimateDecl s) ** { g = Fem ; anim = Animate } ** {lock_N = <>}; - nNoga = \s -> aEndG_K_KH_Decl s ** {lock_N = <>}; - nMalyariya = \s -> i_yaEndDecl s ** {lock_N = <>}; - nTetya = \s -> (yaEndAnimateDecl s) ** {g = Fem; anim = Animate; lock_N = <>} ; - nBol = \s -> softSignEndDeclFem s ** {lock_N = <>}; - --- Neuter patterns. - - nObezbolivauchee = \s -> eeEndInAnimateDecl s ** {lock_N = <>}; - nZhivotnoe = \s -> oeEndAnimateDecl s ** {lock_N = <>}; - nProizvedenie = \s -> eEndInAnimateDecl s ** {lock_N = <>}; - nChislo = \s -> oEndInAnimateDecl s ** {lock_N = <>}; - - --- Masculine patterns. - nBank = \s -> nullEndInAnimateDecl s ** {lock_N = <>}; - nStomatolog = \s -> nullEndAnimateDecl s ** {lock_N = <>}; - nMalush = \s -> shEndDeclMasc s ** {lock_N = <>}; - nPotolok = \s ->okEndDeclMasc s ** {lock_N = <>}; - - nBrat = \s -> nullEndAnimateDeclBrat s** {lock_N = <>}; - nStul = \s -> nullEndInAnimateDeclStul s** {lock_N = <>}; - - nAdres = \s -> nullEndInAnimateDecl2 s ** {lock_N = <>}; - nTelefon = \s -> nullEndInAnimateDecl1 s ** {lock_N = <>}; - nPepel = \s -> nullEndInAnimateDeclPepel s ** {lock_N = <>}; - - nNol = \s -> softSignEndDeclMasc s ** {lock_N = <>}; - nUroven = \s -> EN_softSignEndDeclMasc s ** {lock_N = <>}; - - --- An individual-valued function is a common noun together with the --- preposition prefixed to its argument ("клZ+ о' дома"). --- The situation is analogous to two-place adjectives and transitive verbs. --- --- We allow the genitive construction to be used as a variant of --- all function applications. It would definitely be too restrictive only --- to allow it when the required case is genitive. We don't know if there --- are counterexamples to the liberal choice we've made. - - mkFun f p = (UseN f) ** {s2 = p.s ; c = p.c}** {lock_N2 = <>} ; - --- The commonest cases are functions with Genitive. - mkN2 n = mkFun n nullPrep ; - nullPrep : Prep = {s = []; c= Gen; lock_Prep=<>} ; - - mkN3 f p r = (UseN f) ** {s2 = p.s ; c=p.c; s3=r.s ; c2=r.c; lock_N3 = <>} ; - - - mkPN = \ivan, g, anim -> - case g of { - Masc => mkProperNameMasc ivan anim ; - _ => mkProperNameFem ivan anim - } ** {lock_PN =<>}; - nounPN n = {s=\\c => n.s! SF Sg c; anim=n.anim; g=n.g; lock_PN=<>}; - - mkCN = UseN; - - mkNP = \x,y,z -> UsePN (mkPN x y z) ; - --- Adjective definitions - regA = \ray, comp -> - let - ay = Predef.dp 2 ray ; - rays = - case ay of { - "ый" => AStaruyj ray comp; - "ой" => AMolodoj ray comp; - "ий" => AMalenkij ray comp; - _=> AKhoroshij ray comp - } - in - rays ; - - adjInvar = \s -> { s = \\_,_ => s } ** {lock_A= <>}; - - AStaruyj s comp = mkAdjDeg (uy_j_EndDecl s) comp ** {lock_A = <>} ; - AKhoroshij s comp = mkAdjDeg (shij_End_Decl s) comp ** {lock_A= <>}; - AMalenkij s comp = mkAdjDeg (ij_EndK_G_KH_Decl s) comp ** {lock_A= <>}; - AMolodoj s comp = mkAdjDeg (uy_oj_EndDecl s) comp ** {lock_A= <>}; - AKakoj_Nibud s t comp = mkAdjDeg (i_oj_EndDecl s t) comp ** {lock_A= <>}; - - mkA2 a p c= a ** {s2 = p ; c = c; lock_A2 = <>}; --- mkADeg a s = mkAdjDeg a s ** {lock_ADeg = <>}; -- defined in morpho.RusU - --- ap a p = mkAdjPhrase a p ** {lock_AP = <>}; -- defined in syntax module - - mkAdv x = ss x ** {lock_Adv = <>} ; - --- Verb definitions - - mkVerbum = \asp, sgP1, sgP2, sgP3, plP1, plP2, plP3, - sgMascPast, imperSgP2, inf -> case asp of { - Perfective => - mkVerb (perfectiveActivePattern inf imperSgP2 - (presentConj sgP1 sgP2 sgP3 plP1 plP2 plP3) (pastConj sgMascPast)) - (pastConj sgMascPast) ** { lock_V=<> }; - Imperfective => - mkVerb (imperfectiveActivePattern inf imperSgP2 - (presentConj sgP1 sgP2 sgP3 plP1 plP2 plP3) (pastConj sgMascPast)) - (pastConj sgMascPast) ** { lock_V=<> } - }; - - oper presentConj: (_,_,_,_,_,_: Str) -> PresentVerb = - \sgP1, sgP2, sgP3, plP1, plP2, plP3 -> - table { - PRF (ASg _) P1 => sgP1 ; - PRF (ASg _) P2 => sgP2 ; - PRF (ASg _) P3 => sgP3 ; - PRF APl P1 => plP1 ; - PRF APl P2 => plP2 ; - PRF APl P3 => plP3 - }; - - regV a b c d e f g = verbDecl a b c d e f g ** {lock_V = <>} ; - -- defined in morpho.RusU.gf -{- - mkV a b = extVerb a b ** {lock_V = <>}; -- defined in types.RusU.gf - - mkPresentV = \aller, vox -> - { s = table { - VFin gn p => aller.s ! VFORM vox (VIND (VPresent (numGNum gn) p)) ; - VImper n p => aller.s ! VFORM vox (VIMP n p) ; - VInf => aller.s ! VFORM vox VINF ; - VSubj gn => aller.s ! VFORM vox (VSUB gn) - }; t = Present ; a = aller.asp ; w = vox ; lock_V = <>} ; --} - mkV2 v p cas = v ** {s2 = p ; c = cas; lock_V2 = <>}; - dirV2 v = mkV2 v [] Acc; - - - tvDirDir v = mkV3 v "" "" Acc Dat; - --- *Ditransitive verbs* are verbs with three argument places. --- We treat so far only the rule in which the ditransitive --- verb takes both complements to form a verb phrase. - - mkV3 v s1 s2 c1 c2 = v ** {s2 = s1; c = c1; s4 = s2; c2=c2; lock_V3 = <>}; - - -----2 Parameters ----- ----- To abstract over gender names, we define the following identifiers. --- ---oper --- Gender : Type ; --- --- human : Gender ; --- nonhuman : Gender ; --- masculine : Gender ; --- ----- To abstract over number names, we define the following. --- --- Number : Type ; --- --- singular : Number ; --- plural : Number ; --- ----- To abstract over case names, we define the following. --- --- Case : Type ; --- --- nominative : Case ; --- genitive : Case ; --- ----- Prepositions are used in many-argument functions for rection. --- --- Preposition : Type ; --- --- -----2 Nouns --- ----- Worst case: give all four forms and the semantic gender. --- --- mkN : (man,men,man's,men's : Str) -> N ; --- ----- The regular function captures the variants for nouns ending with ----- "s","sh","x","z" or "y": "kiss - kisses", "flash - flashes"; ----- "fly - flies" (but "toy - toys"), --- --- regN : Str -> N ; --- ----- In practice the worst case is just: give singular and plural nominative. --- --- mk2N : (man,men : Str) -> N ; --- ----- All nouns created by the previous functions are marked as ----- $nonhuman$. If you want a $human$ noun, wrap it with the following ----- function: --- --- genderN : Gender -> N -> N ; --- -----3 Compound nouns ----- ----- A compound noun ia an uninflected string attached to an inflected noun, ----- such as "baby boom", "chief executive officer". --- --- compoundN : Str -> N -> N ; --- --- -----3 Relational nouns ----- ----- Relational nouns ("daughter of x") need a preposition. --- --- mkN2 : N -> Preposition -> N2 ; --- ----- The most common preposition is "of", and the following is a ----- shortcut for regular relational nouns with "of". --- --- regN2 : Str -> N2 ; --- ----- Use the function $mkPreposition$ or see the section on prepositions below to ----- form other prepositions. ----- ----- Three-place relational nouns ("the connection from x to y") need two prepositions. --- --- mkN3 : N -> Preposition -> Preposition -> N3 ; --- --- -----3 Relational common noun phrases ----- ----- In some cases, you may want to make a complex $CN$ into a ----- relational noun (e.g. "the old town hall of"). --- --- cnN2 : CN -> Preposition -> N2 ; --- cnN3 : CN -> Preposition -> Preposition -> N3 ; --- ----- -----3 Proper names and noun phrases ----- ----- Proper names, with a regular genitive, are formed as follows --- --- regPN : Str -> Gender -> PN ; -- John, John's --- ----- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". --- --- nounPN : N -> PN ; --- ----- To form a noun phrase that can also be plural and have an irregular ----- genitive, you can use the worst-case function. --- --- mkNP : Str -> Str -> Number -> Gender -> NP ; --- -----2 Adjectives --- ----- Non-comparison one-place adjectives need two forms: one for ----- the adjectival and one for the adverbial form ("free - freely") --- --- mkA : (free,freely : Str) -> A ; --- ----- For regular adjectives, the adverbial form is derived. This holds ----- even for cases with the variation "happy - happily". --- --- regA : Str -> A ; --- -----3 Two-place adjectives ----- ----- Two-place adjectives need a preposition for their second argument. --- --- mkA2 : A -> Preposition -> A2 ; --- ----- Comparison adjectives may two more forms. --- --- ADeg : Type ; --- --- mkADeg : (good,better,best,well : Str) -> ADeg ; --- ----- The regular pattern recognizes two common variations: ----- "-e" ("rude" - "ruder" - "rudest") and ----- "-y" ("happy - happier - happiest - happily") --- --- regADeg : Str -> ADeg ; -- long, longer, longest --- ----- However, the duplication of the final consonant is nor predicted, ----- but a separate pattern is used: --- --- duplADeg : Str -> ADeg ; -- fat, fatter, fattest --- ----- If comparison is formed by "more, "most", as in general for ----- long adjective, the following pattern is used: --- --- compoundADeg : A -> ADeg ; -- -/more/most ridiculous --- ----- From a given $ADeg$, it is possible to get back to $A$. --- --- adegA : ADeg -> A ; --- --- -----2 Adverbs --- ----- Adverbs are not inflected. Most lexical ones have position ----- after the verb. Some can be preverbal (e.g. "always"). --- --- mkAdv : Str -> Adv ; --- mkAdV : Str -> AdV ; --- ----- Adverbs modifying adjectives and sentences can also be formed. --- --- mkAdA : Str -> AdA ; --- -----2 Prepositions ----- ----- A preposition as used for rection in the lexicon, as well as to ----- build $PP$s in the resource API, just requires a string. --- --- mkPreposition : Str -> Preposition ; --- mkPrep : Str -> Prep ; --- ----- (These two functions are synonyms.) --- -----2 Verbs ----- ----- Except for "be", the worst case needs five forms: the infinitive and ----- the third person singular present, the past indicative, and the ----- past and present participles. --- --- mkV : (go, goes, went, gone, going : Str) -> V ; --- ----- The regular verb function recognizes the special cases where the last ----- character is "y" ("cry - cries" but "buy - buys") or "s", "sh", "x", "z" ----- ("fix - fixes", etc). --- --- regV : Str -> V ; --- ----- The following variant duplicates the last letter in the forms like ----- "rip - ripped - ripping". --- --- regDuplV : Str -> V ; --- ----- There is an extensive list of irregular verbs in the module $IrregularEng$. ----- In practice, it is enough to give three forms, ----- e.g. "drink - drank - drunk", with a variant indicating consonant ----- duplication in the present participle. --- --- irregV : (drink, drank, drunk : Str) -> V ; --- irregDuplV : (get, got, gotten : Str) -> V ; --- --- -----3 Verbs with a particle. ----- ----- The particle, such as in "switch on", is given as a string. --- --- partV : V -> Str -> V ; --- -----3 Reflexive verbs ----- ----- By default, verbs are not reflexive; this function makes them that. --- --- reflV : V -> V ; --- -----3 Two-place verbs ----- ----- Two-place verbs need a preposition, except the special case with direct object. ----- (transitive verbs). Notice that a particle comes from the $V$. --- --- mkV2 : V -> Preposition -> V2 ; --- --- dirV2 : V -> V2 ; --- -----3 Three-place verbs ----- ----- Three-place (ditransitive) verbs need two prepositions, of which ----- the first one or both can be absent. --- --- mkV3 : V -> Preposition -> Preposition -> V3 ; -- speak, with, about --- dirV3 : V -> Preposition -> V3 ; -- give,_,to --- dirdirV3 : V -> V3 ; -- give,_,_ --- -----3 Other complement patterns ----- ----- Verbs and adjectives can take complements such as sentences, ----- questions, verb phrases, and adjectives. --- --- mkV0 : V -> V0 ; --- mkVS : V -> VS ; --- mkV2S : V -> Str -> V2S ; --- mkVV : V -> VV ; --- mkV2V : V -> Str -> Str -> V2V ; --- mkVA : V -> VA ; --- mkV2A : V -> Str -> V2A ; --- mkVQ : V -> VQ ; --- mkV2Q : V -> Str -> V2Q ; --- --- mkAS : A -> AS ; --- mkA2S : A -> Str -> A2S ; --- mkAV : A -> AV ; --- mkA2V : A -> Str -> A2V ; --- ----- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated ----- just as synonyms of $V2$, and the second argument is given ----- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. ----- $V0$ is just $V$. --- --- V0, V2S, V2V, V2A, V2Q : Type ; --- AS, A2S, AV, A2V : Type ; --- --- -----2 Definitions of paradigms ----- ----- The definitions should not bother the user of the API. So they are ----- hidden from the document. -----. --- --- Gender = MorphoEng.Gender ; --- Number = MorphoEng.Number ; --- Case = MorphoEng.Case ; --- human = Masc ; --- nonhuman = Neutr ; --- masculine = Masc ; --- feminine = Fem ; --- singular = Sg ; --- plural = Pl ; --- nominative = Nom ; --- genitive = Gen ; --- --- Preposition = Str ; --- --- regN = \ray -> --- let --- ra = Predef.tk 1 ray ; --- y = Predef.dp 1 ray ; --- r = Predef.tk 2 ray ; --- ay = Predef.dp 2 ray ; --- rays = --- case y of { --- "y" => y2ie ray "s" ; --- "s" => ray + "es" ; --- "z" => ray + "es" ; --- "x" => ray + "es" ; --- _ => case ay of { --- "sh" => ray + "es" ; --- "ch" => ray + "es" ; --- _ => ray + "s" --- } --- } --- in --- mk2N ray rays ; --- --- mk2N = \man,men -> --- let mens = case last men of { --- "s" => men + "'" ; --- _ => men + "'s" --- } --- in --- mkN man men (man + "'s") mens ; --- --- mkN = \man,men,man's,men's -> --- mkNoun man man's men men's ** {g = Neutr ; lock_N = <>} ; --- --- genderN g man = {s = man.s ; g = g ; lock_N = <>} ; --- --- compoundN s n = {s = \\x,y => s ++ n.s ! x ! y ; g=n.g ; lock_N = <>} ; --- --- mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; --- regN2 n = mkN2 (regN n) (mkPreposition "of") ; --- mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ; --- cnN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; --- cnN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ; --- --- regPN n g = nameReg n g ** {lock_PN = <>} ; --- nounPN n = {s = n.s ! singular ; g = n.g ; lock_PN = <>} ; --- mkNP x y n g = {s = table {Gen => x ; _ => y} ; a = agrP3 n ; --- lock_NP = <>} ; --- --- mkA a b = mkAdjective a a a b ** {lock_A = <>} ; --- regA a = regAdjective a ** {lock_A = <>} ; --- --- mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ; --- --- ADeg = A ; ---- --- --- mkADeg a b c d = mkAdjective a b c d ** {lock_A = <>} ; --- --- regADeg happy = --- let --- happ = init happy ; --- y = last happy ; --- happie = case y of { --- "y" => happ + "ie" ; --- "e" => happy ; --- _ => happy + "e" --- } ; --- happily = case y of { --- "y" => happ + "ily" ; --- _ => happy + "ly" --- } ; --- in mkADeg happy (happie + "r") (happie + "st") happily ; --- --- duplADeg fat = --- mkADeg fat --- (fat + last fat + "er") (fat + last fat + "est") (fat + "ly") ; --- --- compoundADeg a = --- let ad = (a.s ! AAdj Posit) --- in mkADeg ad ("more" ++ ad) ("most" ++ ad) (a.s ! AAdv) ; --- --- adegA a = a ; --- --- mkAdv x = ss x ** {lock_Adv = <>} ; --- mkAdV x = ss x ** {lock_AdV = <>} ; --- mkAdA x = ss x ** {lock_AdA = <>} ; --- --- mkPreposition p = p ; --- mkPrep p = ss p ** {lock_Prep = <>} ; --- --- mkV a b c d e = mkVerb a b c d e ** {s1 = [] ; lock_V = <>} ; --- --- regV cry = --- let --- cr = init cry ; --- y = last cry ; --- cries = (regN cry).s ! Pl ! Nom ; -- ! --- crie = init cries ; --- cried = case last crie of { --- "e" => crie + "d" ; --- _ => crie + "ed" --- } ; --- crying = case y of { --- "e" => case last cr of { --- "e" => cry + "ing" ; --- _ => cr + "ing" --- } ; --- _ => cry + "ing" --- } --- in mkV cry cries cried cried crying ; --- --- regDuplV fit = --- let fitt = fit + last fit in --- mkV fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing") ; --- --- irregV x y z = let reg = (regV x).s in --- mkV x (reg ! VPres) y z (reg ! VPresPart) ** {s1 = [] ; lock_V = <>} ; --- --- irregDuplV fit y z = --- let --- fitting = (regDuplV fit).s ! VPresPart --- in --- mkV fit (fit + "s") y z fitting ; --- --- partV v p = verbPart v p ** {lock_V = <>} ; --- reflV v = {s = v.s ; part = v.part ; lock_V = v.lock_V ; isRefl = True} ; --- --- mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; c2 = p ; lock_V2 = <>} ; --- dirV2 v = mkV2 v [] ; --- --- mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; c2 = p ; c3 = q ; lock_V3 = <>} ; --- dirV3 v p = mkV3 v [] p ; --- dirdirV3 v = dirV3 v [] ; --- --- mkVS v = v ** {lock_VS = <>} ; --- mkVV v = { --- s = table {VVF vf => v.s ! vf ; _ => variants {}} ; --- isAux = False ; lock_VV = <> --- } ; --- mkVQ v = v ** {lock_VQ = <>} ; --- --- V0 : Type = V ; --- V2S, V2V, V2Q, V2A : Type = V2 ; --- AS, A2S, AV : Type = A ; --- A2V : Type = A2 ; --- --- mkV0 v = v ** {lock_V = <>} ; --- mkV2S v p = mkV2 v p ** {lock_V2 = <>} ; --- mkV2V v p t = mkV2 v p ** {s4 = t ; lock_V2 = <>} ; --- mkVA v = v ** {lock_VA = <>} ; --- mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; --- mkV2Q v p = mkV2 v p ** {lock_V2 = <>} ; --- --- mkAS v = v ** {lock_A = <>} ; --- mkA2S v p = mkA2 v p ** {lock_A = <>} ; --- mkAV v = v ** {lock_A = <>} ; --- mkA2V v p = mkA2 v p ** {lock_A2 = <>} ; --- -} ; - diff --git a/lib/resource-1.0/russian/StructuralRus.gf b/lib/resource-1.0/russian/StructuralRus.gf deleted file mode 100644 index 5ae9c6941..000000000 --- a/lib/resource-1.0/russian/StructuralRus.gf +++ /dev/null @@ -1,134 +0,0 @@ ---# -path=.:../abstract:../common:../../prelude - -concrete StructuralRus of Structural = CatRus ** - open ResRus, MorphoRus, (P = ParadigmsRus), Prelude, NounRus, in { - - flags optimize=all ; coding=utf8 ; - -lin --- First mount the numerals. --- UseNumeral i = i ; - --- Then an alphabetical list of structural words - - above_Prep = { s = "над" ; c = Inst} ; - after_Prep = { s = "поÑле" ; c = Gen }; --- all8mass_Det = vesDet ** {n = Sg; g = PNoGen; c = Nom} ; - all_Predet = vseDetPl ** { g = PNoGen; c = Nom} ; - almost_AdA = {s= "почти"} ; - almost_AdN = {s= "почти"} ; - although_Subj = ss "хотÑ" ; - always_AdV = ss "вÑегда" ; - and_Conj = ss "и" ** {n = Pl} ; - because_Subj = ss ["потому что"] ; - before_Prep ={ s = "перед" ; c = Inst}; - behind_Prep = { s = "за" ; c = Inst }; - between_Prep = { s = "между" ; c = Inst}; - both7and_DConj = sd2 "как" [", так и"] ** {n = Pl} ; - but_PConj = ss "но" ; - by8agent_Prep = { s = ["Ñ Ð¿Ð¾Ð¼Ð¾Ñ‰ÑŒÑŽ"] ; c = Gen}; - by8means_Prep = { s = ["Ñ Ð¿Ð¾Ð¼Ð¾Ñ‰ÑŒÑŽ"] ; c = Gen}; - can8know_VV = verbMoch ; - can_VV = verbMoch ; - during_Prep = { s = ["в течение"] ; c = Gen}; - either7or_DConj = sd2 "либо" [", либо"] ** {n = Sg} ; --- comma is not visible in GUI! - every_Det = kazhdujDet ** {n = Sg ; g = PNoGen; c= Nom} ; - everybody_NP = mkNP Pl (UseN ((eEnd_Decl "вÑ")**{lock_N=<>})) ; - everything_NP = UsePron (pronVseInanimate ** {lock_Pron=<>}) ; - everywhere_Adv = ss "везде" ; - few_Det = (ij_EndK_G_KH_Decl "немног") **{lock_Det= <>; n= Sg; g = PNoGen; c = Nom}; -- AMalenkij - first_Ord = (uy_j_EndDecl "перв" ) ** {lock_A = <>}; --AStaruyj - from_Prep = { s = "от" ; c = Gen }; - he_Pron = pronOn ; - here_Adv = ss "здеÑÑŒ" ; - here7to_Adv = ss "Ñюда" ; - here7from_Adv = ss "отÑюда" ; - how_IAdv = ss "как" ; - how8many_IDet = skolkoSgDet ** {n = Pl; g = (PGen Neut); c= Gen}; - i_Pron = pronYa ; - if_Subj = ss "еÑли" ; - in8front_Prep = { s = "перед" ; c = Inst}; - in_Prep = { s = "в" ; c = Prepos }; - it_Pron = pronOno ; - less_CAdv = ss "менее" ; - many_Det = mnogoSgDet ** {n = Sg; g = (PGen Neut); c= Gen} ; - more_CAdv = ss "более" ; - most_Predet = bolshinstvoSgDet ** {n = Sg; g = (PGen Neut); c= Gen} ; - -- inanimate, Sg: "большинÑтво телефонов безмолÑтву-ет" --- most8many_Det = bolshinstvoPlDet ** {n = Pl; g = (PGen Neut); c= Gen} ; - -- animate, Pl: "большинÑтво учащихÑÑ Ñ…Ð¾Ñ€Ð¾ÑˆÐ¾ подготовлен-Ñ‹" - much_Det = mnogoSgDet ** {n = Sg; g = (PGen Neut); c= Gen} ; -- same as previous - must_VV = verbDolzhen ; - no_Phr = ss ["Ðет ."] ; - on_Prep = { s = "на" ; c = Prepos }; - one_Quant = odinDet ** {lock_QuantSg = <>; n= Sg; g = PNoGen; c = Nom }; ---AStaruyj : - only_Predet = (uy_j_EndDecl "единÑтвенн" ) ** {lock_Predet = <>; n= Sg; g = PNoGen; c = Nom }; - or_Conj = ss "или" ** {n = Sg} ; - otherwise_PConj = ss "иначе" ; - part_Prep = { s = "" ; c = Nom}; -- missing in Russian - please_Voc = ss "пожалуйÑта" ; - possess_Prep = { s = "" ; c = Gen}; --- ?? AR 19/2/2004 - quite_Adv = ss "довольно" ; - she_Pron = pronOna ; - so_AdA = ss "так"; - somebody_NP = UsePron (pronKtoTo** {lock_Pron = <>}); - someSg_Det = nekotorujDet ** {n = Sg; g = PNoGen; c= Nom} ; - somePl_Det = nekotorujDet ** {n = Pl; g = PNoGen; c= Nom} ; - something_NP = UsePron (pronChtoTo** {lock_Pron=<> }) ; - somewhere_Adv = ss "где-нибудь" ; - these_NP = UsePron (pronEti** {lock_Pron = <>}); -- missing in Russian - those_NP = UsePron (pronTe** {lock_Pron = <>}); -- missing in Russian - that_Quant = totDet ** {n = Sg; g = PNoGen; c= Nom} ; - that_NP = det2NounPhrase totDet ; -- inanimate form only - there_Adv = ss "там" ; - there7to_Adv = ss "туда" ; - there7from_Adv = ss "оттуда" ; - therefore_PConj = ss "Ñледовательно" ; --- these_NDet = etotDet ** { g = PNoGen; c= Nom} ; --- they8fem_NP = UsePron pronOni Animate; - they_Pron = pronOni; - this_Quant = etotDet ** {n = Sg; g = PNoGen; c= Nom} ; - this_NP = det2NounPhrase etotDet ; -- inanimate form only --- those_NDet = totDet ** {g = PNoGen; c= Nom} ; --- thou_NP = UsePron pronTu Animate; - through_Prep = { s = "через" ; c = Acc }; - to_Prep = { s = "к" ; c = Dat }; - too_AdA = ss "Ñлишком" ; - under_Prep = { s = "под" ; c = Inst }; - very_AdA = ss "очень" ; - want_VV = verbKhotet ; - we_Pron = pronMu ; - whatPl_IP = pron2NounPhraseNum pronChto Inanimate Pl; - whatSg_IP = pron2NounPhraseNum pronChto Inanimate Sg; - when_IAdv = ss "когда" ; - when_Subj = ss "когда" ; - where_IAdv = ss "где" ; - whichPl_IDet = kotorujDet ** {n = Pl; g = PNoGen; c= Nom} ; - whichSg_IDet = kotorujDet ** {n = Sg; g = PNoGen; c= Nom} ; - whoPl_IP = pron2NounPhraseNum pronKto Animate Pl; - whoSg_IP = pron2NounPhraseNum pronKto Animate Sg; - why_IAdv = ss "почему" ; - with_Prep = { s = "Ñ" ; c = Inst}; - without_Prep = { s = "без" ; c = Gen}; - youPl_Pron = pronVu; - yes_Phr = ss ["Да ."] ; - youSg_Pron = pronVu; - youPol_Pron = pronVu; - ---- NoDet = nikakojDet ** {n = Sg; g = PNoGen; c= Nom} ; ---- AnyDet = lubojDet ** {n = Sg; g = PNoGen; c= Nom} ; ---- AnyNumDet = mkDeterminerNum (lubojDet ** {n = Pl; g = PNoGen; c= Nom} ); ---- NoNumDet = mkDeterminerNum (nikakojDet ** {n = Pl; g = PNoGen; c= Nom} ); ----NobodyNP = UsePron pronNikto Animate; ----NothingNP = UsePron pronNichto Inanimate; - --- In case of "neither.. no" expression double negation is not --- only possible, but also required in Russian. --- There is no means of control for this however in the resource grammar. ---- NeitherNor = sd2 "ни" [", ни"] ** {n = Sg} ; ---- NowhereNP = ss "нигде" ; ---- AgentPrep = { s = "" ; c = Nom}; -- missing in Russian -} - diff --git a/lib/resource-1.0/spanish/BeschSpa.gf b/lib/resource-1.0/spanish/BeschSpa.gf deleted file mode 100644 index adc1e5cef..000000000 --- a/lib/resource-1.0/spanish/BeschSpa.gf +++ /dev/null @@ -1,5892 +0,0 @@ ---# -path=.:../romance:../common:../abstract:../../prelude - -resource BeschSpa = open Prelude, CommonRomance in { - -flags optimize=noexpand ; -- faster than values - -oper Verbum = {s : VFB => Str} ; - --- machine-generated GF file from FM source by Inger Andersson and Therese Söderberg - -oper ser_1 : Str -> Verbum = \ser -> - let x_ = Predef.tk 3 ser in - {s = table { - VI Infn=> x_ + "ser" ; - VI Ger => x_ + "siendo" ; - VI Part => x_ + "sido" ; - VP (Pres Ind Sg P1) => x_ + "soy" ; - VP (Pres Ind Sg P2) => x_ + "eres" ; - VP (Pres Ind Sg P3) => x_ + "es" ; - VP (Pres Ind Pl P1) => x_ + "somos" ; - VP (Pres Ind Pl P2) => x_ + "sois" ; - VP (Pres Ind Pl P3) => x_ + "son" ; - VP (Pres Subj Sg P1) => x_ + "sea" ; - VP (Pres Subj Sg P2) => x_ + "seas" ; - VP (Pres Subj Sg P3) => x_ + "sea" ; - VP (Pres Subj Pl P1) => x_ + "seamos" ; - VP (Pres Subj Pl P2) => x_ + "seáis" ; - VP (Pres Subj Pl P3) => x_ + "sean" ; - VP (Impf Ind Sg P1) => x_ + "era" ; --# notpresent - VP (Impf Ind Sg P2) => x_ + "eras" ; --# notpresent - VP (Impf Ind Sg P3) => x_ + "era" ; --# notpresent - VP (Impf Ind Pl P1) => x_ + "éramos" ; --# notpresent - VP (Impf Ind Pl P2) => x_ + "erais" ; --# notpresent - VP (Impf Ind Pl P3) => x_ + "eran" ; --# notpresent - VP (Impf Subj Sg P1) => variants {x_ + "fuera" ; x_ + "fuese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {x_ + "fueras" ; x_ + "fueses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {x_ + "fuera" ; x_ + "fuese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {x_ + "fuéramos" ; x_ + "fuésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {x_ + "fuerais" ; x_ + "fueseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {x_ + "fueran" ; x_ + "fuesen"} ; --# notpresent - VP (Pret Sg P1) => x_ + "fui" ; --# notpresent - VP (Pret Sg P2) => x_ + "fuiste" ; --# notpresent - VP (Pret Sg P3) => x_ + "fue" ; --# notpresent - VP (Pret Pl P1) => x_ + "fuimos" ; --# notpresent - VP (Pret Pl P2) => x_ + "fuisteis" ; --# notpresent - VP (Pret Pl P3) => x_ + "fueron" ; --# notpresent - VP (Fut Ind Sg P1) => x_ + "seré" ; --# notpresent - VP (Fut Ind Sg P2) => x_ + "serás" ; --# notpresent - VP (Fut Ind Sg P3) => x_ + "será" ; --# notpresent - VP (Fut Ind Pl P1) => x_ + "seremos" ; --# notpresent - VP (Fut Ind Pl P2) => x_ + "seréis" ; --# notpresent - VP (Fut Ind Pl P3) => x_ + "serán" ; --# notpresent - VP (Fut Subj Sg P1) => x_ + "fuere" ; --# notpresent - VP (Fut Subj Sg P2) => x_ + "fueres" ; --# notpresent - VP (Fut Subj Sg P3) => x_ + "fuere" ; --# notpresent - VP (Fut Subj Pl P1) => x_ + "fuéremos" ; --# notpresent - VP (Fut Subj Pl P2) => x_ + "fuereis" ; --# notpresent - VP (Fut Subj Pl P3) => x_ + "fueren" ; --# notpresent - VP (Cond Sg P1) => x_ + "sería" ; --# notpresent - VP (Cond Sg P2) => x_ + "serías" ; --# notpresent - VP (Cond Sg P3) => x_ + "sería" ; --# notpresent - VP (Cond Pl P1) => x_ + "seríamos" ; --# notpresent - VP (Cond Pl P2) => x_ + "seríais" ; --# notpresent - VP (Cond Pl P3) => x_ + "serían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => x_ + "sé" ; - VP (Imp Sg P3) => x_ + "sea" ; - VP (Imp Pl P1) => x_ + "seamos" ; - VP (Imp Pl P2) => x_ + "sed" ; - VP (Imp Pl P3) => x_ + "sean" ; - VP (Pass Sg Masc) => x_ + "sido" ; - VP (Pass Sg Fem) => x_ + "sida" ; - VP (Pass Pl Masc) => x_ + "sidos" ; - VP (Pass Pl Fem) => x_ + "sidas" - } - } ; - -oper estar_2 : Str -> Verbum = \estar -> - let est_ = Predef.tk 2 estar in - {s = table { - VI Infn=> est_ + "ar" ; - VI Ger => est_ + "ando" ; - VI Part => est_ + "ado" ; - VP (Pres Ind Sg P1) => est_ + "oy" ; - VP (Pres Ind Sg P2) => est_ + "ás" ; - VP (Pres Ind Sg P3) => est_ + "á" ; - VP (Pres Ind Pl P1) => est_ + "amos" ; - VP (Pres Ind Pl P2) => est_ + "áis" ; - VP (Pres Ind Pl P3) => est_ + "án" ; - VP (Pres Subj Sg P1) => est_ + "é" ; - VP (Pres Subj Sg P2) => est_ + "és" ; - VP (Pres Subj Sg P3) => est_ + "é" ; - VP (Pres Subj Pl P1) => est_ + "emos" ; - VP (Pres Subj Pl P2) => est_ + "éis" ; - VP (Pres Subj Pl P3) => est_ + "én" ; - VP (Impf Ind Sg P1) => est_ + "aba" ; --# notpresent - VP (Impf Ind Sg P2) => est_ + "abas" ; --# notpresent - VP (Impf Ind Sg P3) => est_ + "aba" ; --# notpresent - VP (Impf Ind Pl P1) => est_ + "ábamos" ; --# notpresent - VP (Impf Ind Pl P2) => est_ + "abais" ; --# notpresent - VP (Impf Ind Pl P3) => est_ + "aban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {est_ + "uviera" ; est_ + "uviese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {est_ + "uvieras" ; est_ + "uvieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {est_ + "uviera" ; est_ + "uviese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {est_ + "uviéramos" ; est_ + "uviésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {est_ + "uvierais" ; est_ + "uvieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {est_ + "uvieran" ; est_ + "uviesen"} ; --# notpresent - VP (Pret Sg P1) => est_ + "uve" ; --# notpresent - VP (Pret Sg P2) => est_ + "uviste" ; --# notpresent - VP (Pret Sg P3) => est_ + "uvo" ; --# notpresent - VP (Pret Pl P1) => est_ + "uvimos" ; --# notpresent - VP (Pret Pl P2) => est_ + "uvisteis" ; --# notpresent - VP (Pret Pl P3) => est_ + "uvieron" ; --# notpresent - VP (Fut Ind Sg P1) => est_ + "aré" ; --# notpresent - VP (Fut Ind Sg P2) => est_ + "arás" ; --# notpresent - VP (Fut Ind Sg P3) => est_ + "ará" ; --# notpresent - VP (Fut Ind Pl P1) => est_ + "aremos" ; --# notpresent - VP (Fut Ind Pl P2) => est_ + "aréis" ; --# notpresent - VP (Fut Ind Pl P3) => est_ + "arán" ; --# notpresent - VP (Fut Subj Sg P1) => est_ + "uviere" ; --# notpresent - VP (Fut Subj Sg P2) => est_ + "uvieres" ; --# notpresent - VP (Fut Subj Sg P3) => est_ + "uviere" ; --# notpresent - VP (Fut Subj Pl P1) => est_ + "uviéremos" ; --# notpresent - VP (Fut Subj Pl P2) => est_ + "uviereis" ; --# notpresent - VP (Fut Subj Pl P3) => est_ + "uvieren" ; --# notpresent - VP (Cond Sg P1) => est_ + "aría" ; --# notpresent - VP (Cond Sg P2) => est_ + "arías" ; --# notpresent - VP (Cond Sg P3) => est_ + "aría" ; --# notpresent - VP (Cond Pl P1) => est_ + "aríamos" ; --# notpresent - VP (Cond Pl P2) => est_ + "aríais" ; --# notpresent - VP (Cond Pl P3) => est_ + "arían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => est_ + "á" ; - VP (Imp Sg P3) => est_ + "é" ; - VP (Imp Pl P1) => est_ + "emos" ; - VP (Imp Pl P2) => est_ + "ad" ; - VP (Imp Pl P3) => est_ + "én" ; - VP (Pass Sg Masc) => est_ + "ado" ; - VP (Pass Sg Fem) => est_ + "ada" ; - VP (Pass Pl Masc) => est_ + "ados" ; - VP (Pass Pl Fem) => est_ + "adas" - } - } ; - -oper haber_3 : Str -> Verbum = \haber -> - let h_ = Predef.tk 4 haber in - {s = table { - VI Infn=> h_ + "aber" ; - VI Ger => h_ + "abiendo" ; - VI Part => h_ + "abido" ; - VP (Pres Ind Sg P1) => h_ + "e" ; - VP (Pres Ind Sg P2) => h_ + "as" ; - VP (Pres Ind Sg P3) => variants {h_ + "a"} ; ---- h_ + "ay"} ; - VP (Pres Ind Pl P1) => h_ + "emos" ; - VP (Pres Ind Pl P2) => h_ + "abéis" ; - VP (Pres Ind Pl P3) => h_ + "an" ; - VP (Pres Subj Sg P1) => h_ + "aya" ; - VP (Pres Subj Sg P2) => h_ + "ayas" ; - VP (Pres Subj Sg P3) => h_ + "aya" ; - VP (Pres Subj Pl P1) => h_ + "ayamos" ; - VP (Pres Subj Pl P2) => h_ + "ayáis" ; - VP (Pres Subj Pl P3) => h_ + "ayan" ; - VP (Impf Ind Sg P1) => h_ + "abía" ; --# notpresent - VP (Impf Ind Sg P2) => h_ + "abías" ; --# notpresent - VP (Impf Ind Sg P3) => h_ + "abía" ; --# notpresent - VP (Impf Ind Pl P1) => h_ + "abíamos" ; --# notpresent - VP (Impf Ind Pl P2) => h_ + "abíais" ; --# notpresent - VP (Impf Ind Pl P3) => h_ + "abían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {h_ + "ubieras" ; h_ + "ubieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {h_ + "ubiéramos" ; h_ + "ubiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {h_ + "ubierais" ; h_ + "ubieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {h_ + "ubieran" ; h_ + "ubiesen"} ; --# notpresent - VP (Pret Sg P1) => h_ + "ube" ; --# notpresent - VP (Pret Sg P2) => h_ + "ubiste" ; --# notpresent - VP (Pret Sg P3) => h_ + "ubo" ; --# notpresent - VP (Pret Pl P1) => h_ + "ubimos" ; --# notpresent - VP (Pret Pl P2) => h_ + "ubisteis" ; --# notpresent - VP (Pret Pl P3) => h_ + "ubieron" ; --# notpresent - VP (Fut Ind Sg P1) => h_ + "abré" ; --# notpresent - VP (Fut Ind Sg P2) => h_ + "abrás" ; --# notpresent - VP (Fut Ind Sg P3) => h_ + "abrá" ; --# notpresent - VP (Fut Ind Pl P1) => h_ + "abremos" ; --# notpresent - VP (Fut Ind Pl P2) => h_ + "abréis" ; --# notpresent - VP (Fut Ind Pl P3) => h_ + "abrán" ; --# notpresent - VP (Fut Subj Sg P1) => h_ + "ubiere" ; --# notpresent - VP (Fut Subj Sg P2) => h_ + "ubieres" ; --# notpresent - VP (Fut Subj Sg P3) => h_ + "ubiere" ; --# notpresent - VP (Fut Subj Pl P1) => h_ + "ubiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => h_ + "ubiereis" ; --# notpresent - VP (Fut Subj Pl P3) => h_ + "ubieren" ; --# notpresent - VP (Cond Sg P1) => h_ + "abría" ; --# notpresent - VP (Cond Sg P2) => h_ + "abrías" ; --# notpresent - VP (Cond Sg P3) => h_ + "abría" ; --# notpresent - VP (Cond Pl P1) => h_ + "abríamos" ; --# notpresent - VP (Cond Pl P2) => h_ + "abríais" ; --# notpresent - VP (Cond Pl P3) => h_ + "abrían" ; --# 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) => h_ + "abido" ; - VP (Pass Sg Fem) => h_ + "abida" ; - VP (Pass Pl Masc) => h_ + "abidos" ; - VP (Pass Pl Fem) => h_ + "abidas" - } - } ; - -oper hay_3 : Str -> Verbum = \haber -> - let h_ = Predef.tk 4 haber in - {s = table { - VI Infn=> h_ + "aber" ; - VI Ger => h_ + "abiendo" ; - VI Part => h_ + "abido" ; - VP (Pres Ind Sg P1) => h_ + "e" ; - VP (Pres Ind Sg P2) => h_ + "as" ; - VP (Pres Ind Sg P3) => h_ + "ay" ; - VP (Pres Ind Pl P1) => h_ + "emos" ; - VP (Pres Ind Pl P2) => h_ + "abéis" ; - VP (Pres Ind Pl P3) => h_ + "an" ; - VP (Pres Subj Sg P1) => h_ + "aya" ; - VP (Pres Subj Sg P2) => h_ + "ayas" ; - VP (Pres Subj Sg P3) => h_ + "aya" ; - VP (Pres Subj Pl P1) => h_ + "ayamos" ; - VP (Pres Subj Pl P2) => h_ + "ayáis" ; - VP (Pres Subj Pl P3) => h_ + "ayan" ; - VP (Impf Ind Sg P1) => h_ + "abía" ; --# notpresent - VP (Impf Ind Sg P2) => h_ + "abías" ; --# notpresent - VP (Impf Ind Sg P3) => h_ + "abía" ; --# notpresent - VP (Impf Ind Pl P1) => h_ + "abíamos" ; --# notpresent - VP (Impf Ind Pl P2) => h_ + "abíais" ; --# notpresent - VP (Impf Ind Pl P3) => h_ + "abían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {h_ + "ubieras" ; h_ + "ubieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {h_ + "ubiéramos" ; h_ + "ubiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {h_ + "ubierais" ; h_ + "ubieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {h_ + "ubieran" ; h_ + "ubiesen"} ; --# notpresent - VP (Pret Sg P1) => h_ + "ube" ; --# notpresent - VP (Pret Sg P2) => h_ + "ubiste" ; --# notpresent - VP (Pret Sg P3) => h_ + "ubo" ; --# notpresent - VP (Pret Pl P1) => h_ + "ubimos" ; --# notpresent - VP (Pret Pl P2) => h_ + "ubisteis" ; --# notpresent - VP (Pret Pl P3) => h_ + "ubieron" ; --# notpresent - VP (Fut Ind Sg P1) => h_ + "abré" ; --# notpresent - VP (Fut Ind Sg P2) => h_ + "abrás" ; --# notpresent - VP (Fut Ind Sg P3) => h_ + "abrá" ; --# notpresent - VP (Fut Ind Pl P1) => h_ + "abremos" ; --# notpresent - VP (Fut Ind Pl P2) => h_ + "abréis" ; --# notpresent - VP (Fut Ind Pl P3) => h_ + "abrán" ; --# notpresent - VP (Fut Subj Sg P1) => h_ + "ubiere" ; --# notpresent - VP (Fut Subj Sg P2) => h_ + "ubieres" ; --# notpresent - VP (Fut Subj Sg P3) => h_ + "ubiere" ; --# notpresent - VP (Fut Subj Pl P1) => h_ + "ubiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => h_ + "ubiereis" ; --# notpresent - VP (Fut Subj Pl P3) => h_ + "ubieren" ; --# notpresent - VP (Cond Sg P1) => h_ + "abría" ; --# notpresent - VP (Cond Sg P2) => h_ + "abrías" ; --# notpresent - VP (Cond Sg P3) => h_ + "abría" ; --# notpresent - VP (Cond Pl P1) => h_ + "abríamos" ; --# notpresent - VP (Cond Pl P2) => h_ + "abríais" ; --# notpresent - VP (Cond Pl P3) => h_ + "abrían" ; --# 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) => h_ + "abido" ; - VP (Pass Sg Fem) => h_ + "abida" ; - VP (Pass Pl Masc) => h_ + "abidos" ; - VP (Pass Pl Fem) => h_ + "abidas" - } - } ; - -oper tener_4 : Str -> Verbum = \tener -> - let t_ = Predef.tk 4 tener in - {s = table { - VI Infn => t_ + "ener" ; - VI Ger => t_ + "eniendo" ; - VI Part => t_ + "enido" ; - VP (Pres Ind Sg P1) => t_ + "engo" ; - VP (Pres Ind Sg P2) => t_ + "ienes" ; - VP (Pres Ind Sg P3) => t_ + "iene" ; - VP (Pres Ind Pl P1) => t_ + "enemos" ; - VP (Pres Ind Pl P2) => t_ + "enéis" ; - VP (Pres Ind Pl P3) => t_ + "ienen" ; - VP (Pres Subj Sg P1) => t_ + "enga" ; - VP (Pres Subj Sg P2) => t_ + "engas" ; - VP (Pres Subj Sg P3) => t_ + "enga" ; - VP (Pres Subj Pl P1) => t_ + "engamos" ; - VP (Pres Subj Pl P2) => t_ + "engáis" ; - VP (Pres Subj Pl P3) => t_ + "engan" ; - VP (Impf Ind Sg P1) => t_ + "enía" ; --# notpresent - VP (Impf Ind Sg P2) => t_ + "enías" ; --# notpresent - VP (Impf Ind Sg P3) => t_ + "enía" ; --# notpresent - VP (Impf Ind Pl P1) => t_ + "eníamos" ; --# notpresent - VP (Impf Ind Pl P2) => t_ + "eníais" ; --# notpresent - VP (Impf Ind Pl P3) => t_ + "enían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {t_ + "uviera" ; t_ + "uviese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {t_ + "uvieras" ; t_ + "uvieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {t_ + "uviera" ; t_ + "uviese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {t_ + "uviéramos" ; t_ + "uviésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {t_ + "uvierais" ; t_ + "uvieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {t_ + "uvieran" ; t_ + "uviesen"} ; --# notpresent - VP (Pret Sg P1) => t_ + "uve" ; --# notpresent - VP (Pret Sg P2) => t_ + "uviste" ; --# notpresent - VP (Pret Sg P3) => t_ + "uvo" ; --# notpresent - VP (Pret Pl P1) => t_ + "uvimos" ; --# notpresent - VP (Pret Pl P2) => t_ + "uvisteis" ; --# notpresent - VP (Pret Pl P3) => t_ + "uvieron" ; --# notpresent - VP (Fut Ind Sg P1) => t_ + "endré" ; --# notpresent - VP (Fut Ind Sg P2) => t_ + "endrás" ; --# notpresent - VP (Fut Ind Sg P3) => t_ + "endrá" ; --# notpresent - VP (Fut Ind Pl P1) => t_ + "endremos" ; --# notpresent - VP (Fut Ind Pl P2) => t_ + "endréis" ; --# notpresent - VP (Fut Ind Pl P3) => t_ + "endrán" ; --# notpresent - VP (Fut Subj Sg P1) => t_ + "uviere" ; --# notpresent - VP (Fut Subj Sg P2) => t_ + "uvieres" ; --# notpresent - VP (Fut Subj Sg P3) => t_ + "uviere" ; --# notpresent - VP (Fut Subj Pl P1) => t_ + "uviéremos" ; --# notpresent - VP (Fut Subj Pl P2) => t_ + "uviereis" ; --# notpresent - VP (Fut Subj Pl P3) => t_ + "uvieren" ; --# notpresent - VP (Cond Sg P1) => t_ + "endría" ; --# notpresent - VP (Cond Sg P2) => t_ + "endrías" ; --# notpresent - VP (Cond Sg P3) => t_ + "endría" ; --# notpresent - VP (Cond Pl P1) => t_ + "endríamos" ; --# notpresent - VP (Cond Pl P2) => t_ + "endríais" ; --# notpresent - VP (Cond Pl P3) => t_ + "endrían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => t_ + "en" ; - VP (Imp Sg P3) => t_ + "enga" ; - VP (Imp Pl P1) => t_ + "engamos" ; - VP (Imp Pl P2) => t_ + "ened" ; - VP (Imp Pl P3) => t_ + "engan" ; - VP (Pass Sg Masc) => t_ + "enido" ; - VP (Pass Sg Fem) => t_ + "enida" ; - VP (Pass Pl Masc) => t_ + "enidos" ; - VP (Pass Pl Fem) => t_ + "enidas" - } - } ; - -oper cortar_5 : Str -> Verbum = \cortar -> - let cort_ = Predef.tk 2 cortar in - {s = table { - VI Infn => cort_ + "ar" ; - VI Ger => cort_ + "ando" ; - VI Part => cort_ + "ado" ; - VP (Pres Ind Sg P1) => cort_ + "o" ; - VP (Pres Ind Sg P2) => cort_ + "as" ; - VP (Pres Ind Sg P3) => cort_ + "a" ; - VP (Pres Ind Pl P1) => cort_ + "amos" ; - VP (Pres Ind Pl P2) => cort_ + "áis" ; - VP (Pres Ind Pl P3) => cort_ + "an" ; - VP (Pres Subj Sg P1) => cort_ + "e" ; - VP (Pres Subj Sg P2) => cort_ + "es" ; - VP (Pres Subj Sg P3) => cort_ + "e" ; - VP (Pres Subj Pl P1) => cort_ + "emos" ; - VP (Pres Subj Pl P2) => cort_ + "éis" ; - VP (Pres Subj Pl P3) => cort_ + "en" ; - VP (Impf Ind Sg P1) => cort_ + "aba" ; --# notpresent - VP (Impf Ind Sg P2) => cort_ + "abas" ; --# notpresent - VP (Impf Ind Sg P3) => cort_ + "aba" ; --# notpresent - VP (Impf Ind Pl P1) => cort_ + "ábamos" ; --# notpresent - VP (Impf Ind Pl P2) => cort_ + "abais" ; --# notpresent - VP (Impf Ind Pl P3) => cort_ + "aban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {cort_ + "ara" ; cort_ + "ase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {cort_ + "aras" ; cort_ + "ases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {cort_ + "ara" ; cort_ + "ase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {cort_ + "áramos" ; cort_ + "ásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {cort_ + "arais" ; cort_ + "aseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {cort_ + "aran" ; cort_ + "asen"} ; --# notpresent - VP (Pret Sg P1) => cort_ + "é" ; --# notpresent - VP (Pret Sg P2) => cort_ + "aste" ; --# notpresent - VP (Pret Sg P3) => cort_ + "ó" ; --# notpresent - VP (Pret Pl P1) => cort_ + "amos" ; --# notpresent - VP (Pret Pl P2) => cort_ + "asteis" ; --# notpresent - VP (Pret Pl P3) => cort_ + "aron" ; --# notpresent - VP (Fut Ind Sg P1) => cort_ + "aré" ; --# notpresent - VP (Fut Ind Sg P2) => cort_ + "arás" ; --# notpresent - VP (Fut Ind Sg P3) => cort_ + "ará" ; --# notpresent - VP (Fut Ind Pl P1) => cort_ + "aremos" ; --# notpresent - VP (Fut Ind Pl P2) => cort_ + "aréis" ; --# notpresent - VP (Fut Ind Pl P3) => cort_ + "arán" ; --# notpresent - VP (Fut Subj Sg P1) => cort_ + "are" ; --# notpresent - VP (Fut Subj Sg P2) => cort_ + "ares" ; --# notpresent - VP (Fut Subj Sg P3) => cort_ + "are" ; --# notpresent - VP (Fut Subj Pl P1) => cort_ + "áremos" ; --# notpresent - VP (Fut Subj Pl P2) => cort_ + "areis" ; --# notpresent - VP (Fut Subj Pl P3) => cort_ + "aren" ; --# notpresent - VP (Cond Sg P1) => cort_ + "aría" ; --# notpresent - VP (Cond Sg P2) => cort_ + "arías" ; --# notpresent - VP (Cond Sg P3) => cort_ + "aría" ; --# notpresent - VP (Cond Pl P1) => cort_ + "aríamos" ; --# notpresent - VP (Cond Pl P2) => cort_ + "aríais" ; --# notpresent - VP (Cond Pl P3) => cort_ + "arían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => cort_ + "a" ; - VP (Imp Sg P3) => cort_ + "e" ; - VP (Imp Pl P1) => cort_ + "emos" ; - VP (Imp Pl P2) => cort_ + "ad" ; - VP (Imp Pl P3) => cort_ + "en" ; - VP (Pass Sg Masc) => cort_ + "ado" ; - VP (Pass Sg Fem) => cort_ + "ada" ; - VP (Pass Pl Masc) => cort_ + "ados" ; - VP (Pass Pl Fem) => cort_ + "adas" - } - } ; - - -oper deber_6 : Str -> Verbum = \deber -> - let deb_ = Predef.tk 2 deber in - {s = table { - VI Infn => deb_ + "er" ; - VI Ger => deb_ + "iendo" ; - VI Part => deb_ + "ido" ; - VP (Pres Ind Sg P1) => deb_ + "o" ; - VP (Pres Ind Sg P2) => deb_ + "es" ; - VP (Pres Ind Sg P3) => deb_ + "e" ; - VP (Pres Ind Pl P1) => deb_ + "emos" ; - VP (Pres Ind Pl P2) => deb_ + "éis" ; - VP (Pres Ind Pl P3) => deb_ + "en" ; - VP (Pres Subj Sg P1) => deb_ + "a" ; - VP (Pres Subj Sg P2) => deb_ + "as" ; - VP (Pres Subj Sg P3) => deb_ + "a" ; - VP (Pres Subj Pl P1) => deb_ + "amos" ; - VP (Pres Subj Pl P2) => deb_ + "áis" ; - VP (Pres Subj Pl P3) => deb_ + "an" ; - VP (Impf Ind Sg P1) => deb_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => deb_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => deb_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => deb_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => deb_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => deb_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {deb_ + "iera" ; deb_ + "iese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {deb_ + "ieras" ; deb_ + "ieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {deb_ + "iera" ; deb_ + "iese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {deb_ + "iéramos" ; deb_ + "iésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {deb_ + "ierais" ; deb_ + "ieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {deb_ + "ieran" ; deb_ + "iesen"} ; --# notpresent - VP (Pret Sg P1) => deb_ + "í" ; --# notpresent - VP (Pret Sg P2) => deb_ + "iste" ; --# notpresent - VP (Pret Sg P3) => deb_ + "ió" ; --# notpresent - VP (Pret Pl P1) => deb_ + "imos" ; --# notpresent - VP (Pret Pl P2) => deb_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => deb_ + "ieron" ; --# notpresent - VP (Fut Ind Sg P1) => deb_ + "eré" ; --# notpresent - VP (Fut Ind Sg P2) => deb_ + "erás" ; --# notpresent - VP (Fut Ind Sg P3) => deb_ + "erá" ; --# notpresent - VP (Fut Ind Pl P1) => deb_ + "eremos" ; --# notpresent - VP (Fut Ind Pl P2) => deb_ + "eréis" ; --# notpresent - VP (Fut Ind Pl P3) => deb_ + "erán" ; --# notpresent - VP (Fut Subj Sg P1) => deb_ + "iere" ; --# notpresent - VP (Fut Subj Sg P2) => deb_ + "ieres" ; --# notpresent - VP (Fut Subj Sg P3) => deb_ + "iere" ; --# notpresent - VP (Fut Subj Pl P1) => deb_ + "iéremos" ; --# notpresent - VP (Fut Subj Pl P2) => deb_ + "iereis" ; --# notpresent - VP (Fut Subj Pl P3) => deb_ + "ieren" ; --# notpresent - VP (Cond Sg P1) => deb_ + "ería" ; --# notpresent - VP (Cond Sg P2) => deb_ + "erías" ; --# notpresent - VP (Cond Sg P3) => deb_ + "ería" ; --# notpresent - VP (Cond Pl P1) => deb_ + "eríamos" ; --# notpresent - VP (Cond Pl P2) => deb_ + "eríais" ; --# notpresent - VP (Cond Pl P3) => deb_ + "erían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => deb_ + "e" ; - VP (Imp Sg P3) => deb_ + "a" ; - VP (Imp Pl P1) => deb_ + "amos" ; - VP (Imp Pl P2) => deb_ + "ed" ; - VP (Imp Pl P3) => deb_ + "an" ; - VP (Pass Sg Masc) => deb_ + "ido" ; - VP (Pass Sg Fem) => deb_ + "ida" ; - VP (Pass Pl Masc) => deb_ + "idos" ; - VP (Pass Pl Fem) => deb_ + "idas" - } - } ; -oper vivir_7 : Str -> Verbum = \vivir -> - let viv_ = Predef.tk 2 vivir in - {s = table { - VI Infn => viv_ + "ir" ; - VI Ger => viv_ + "iendo" ; - VI Part => viv_ + "ido" ; - VP (Pres Ind Sg P1) => viv_ + "o" ; - VP (Pres Ind Sg P2) => viv_ + "es" ; - VP (Pres Ind Sg P3) => viv_ + "e" ; - VP (Pres Ind Pl P1) => viv_ + "imos" ; - VP (Pres Ind Pl P2) => viv_ + "ís" ; - VP (Pres Ind Pl P3) => viv_ + "en" ; - VP (Pres Subj Sg P1) => viv_ + "a" ; - VP (Pres Subj Sg P2) => viv_ + "as" ; - VP (Pres Subj Sg P3) => viv_ + "a" ; - VP (Pres Subj Pl P1) => viv_ + "amos" ; - VP (Pres Subj Pl P2) => viv_ + "áis" ; - VP (Pres Subj Pl P3) => viv_ + "an" ; - VP (Impf Ind Sg P1) => viv_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => viv_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => viv_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => viv_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => viv_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => viv_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {viv_ + "iera" ; viv_ + "iese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {viv_ + "ieras" ; viv_ + "ieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {viv_ + "iera" ; viv_ + "iese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {viv_ + "iéramos" ; viv_ + "iésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {viv_ + "ierais" ; viv_ + "ieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {viv_ + "ieran" ; viv_ + "iesen"} ; --# notpresent - VP (Pret Sg P1) => viv_ + "í" ; --# notpresent - VP (Pret Sg P2) => viv_ + "iste" ; --# notpresent - VP (Pret Sg P3) => viv_ + "ió" ; --# notpresent - VP (Pret Pl P1) => viv_ + "imos" ; --# notpresent - VP (Pret Pl P2) => viv_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => viv_ + "ieron" ; --# notpresent - VP (Fut Ind Sg P1) => viv_ + "iré" ; --# notpresent - VP (Fut Ind Sg P2) => viv_ + "irás" ; --# notpresent - VP (Fut Ind Sg P3) => viv_ + "irá" ; --# notpresent - VP (Fut Ind Pl P1) => viv_ + "iremos" ; --# notpresent - VP (Fut Ind Pl P2) => viv_ + "iréis" ; --# notpresent - VP (Fut Ind Pl P3) => viv_ + "irán" ; --# notpresent - VP (Fut Subj Sg P1) => viv_ + "iere" ; --# notpresent - VP (Fut Subj Sg P2) => viv_ + "ieres" ; --# notpresent - VP (Fut Subj Sg P3) => viv_ + "iere" ; --# notpresent - VP (Fut Subj Pl P1) => viv_ + "iéremos" ; --# notpresent - VP (Fut Subj Pl P2) => viv_ + "iereis" ; --# notpresent - VP (Fut Subj Pl P3) => viv_ + "ieren" ; --# notpresent - VP (Cond Sg P1) => viv_ + "iría" ; --# notpresent - VP (Cond Sg P2) => viv_ + "irías" ; --# notpresent - VP (Cond Sg P3) => viv_ + "iría" ; --# notpresent - VP (Cond Pl P1) => viv_ + "iríamos" ; --# notpresent - VP (Cond Pl P2) => viv_ + "iríais" ; --# notpresent - VP (Cond Pl P3) => viv_ + "irían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => viv_ + "e" ; - VP (Imp Sg P3) => viv_ + "a" ; - VP (Imp Pl P1) => viv_ + "amos" ; - VP (Imp Pl P2) => viv_ + "id" ; - VP (Imp Pl P3) => viv_ + "an" ; - VP (Pass Sg Masc) => viv_ + "ido" ; - VP (Pass Sg Fem) => viv_ + "ida" ; - VP (Pass Pl Masc) => viv_ + "idos" ; - VP (Pass Pl Fem) => viv_ + "idas" - } - } ; -oper abolir_8 : Str -> Verbum = \abolir -> - let abol_ = Predef.tk 2 abolir in - {s = table { - VI Infn => abol_ + "ir" ; - VI Ger => abol_ + "iendo" ; - VI Part => abol_ + "ido" ; - VP (Pres Ind Sg P1) => variants {} ; - VP (Pres Ind Sg P2) => variants {} ; - VP (Pres Ind Sg P3) => variants {} ; - VP (Pres Ind Pl P1) => abol_ + "imos" ; - VP (Pres Ind Pl P2) => abol_ + "ís" ; - VP (Pres Ind Pl P3) => variants {} ; - VP (Pres Subj Sg P1) => variants {} ; - VP (Pres Subj Sg P2) => variants {} ; - VP (Pres Subj Sg P3) => variants {} ; - VP (Pres Subj Pl P1) => variants {} ; - VP (Pres Subj Pl P2) => variants {} ; - VP (Pres Subj Pl P3) => variants {} ; - VP (Impf Ind Sg P1) => abol_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => abol_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => abol_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => abol_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => abol_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => abol_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {abol_ + "iera" ; abol_ + "iese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {abol_ + "ieras" ; abol_ + "ieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {abol_ + "iera" ; abol_ + "iese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {abol_ + "iéramos" ; abol_ + "iésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {abol_ + "ierais" ; abol_ + "ieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {abol_ + "ieran" ; abol_ + "iesen"} ; --# notpresent - VP (Pret Sg P1) => abol_ + "í" ; --# notpresent - VP (Pret Sg P2) => abol_ + "iste" ; --# notpresent - VP (Pret Sg P3) => abol_ + "ió" ; --# notpresent - VP (Pret Pl P1) => abol_ + "imos" ; --# notpresent - VP (Pret Pl P2) => abol_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => abol_ + "ieron" ; --# notpresent - VP (Fut Ind Sg P1) => abol_ + "iré" ; --# notpresent - VP (Fut Ind Sg P2) => abol_ + "irás" ; --# notpresent - VP (Fut Ind Sg P3) => abol_ + "irá" ; --# notpresent - VP (Fut Ind Pl P1) => abol_ + "iremos" ; --# notpresent - VP (Fut Ind Pl P2) => abol_ + "iréis" ; --# notpresent - VP (Fut Ind Pl P3) => abol_ + "irán" ; --# notpresent - VP (Fut Subj Sg P1) => abol_ + "iere" ; --# notpresent - VP (Fut Subj Sg P2) => abol_ + "ieres" ; --# notpresent - VP (Fut Subj Sg P3) => abol_ + "iere" ; --# notpresent - VP (Fut Subj Pl P1) => abol_ + "iéremos" ; --# notpresent - VP (Fut Subj Pl P2) => abol_ + "iereis" ; --# notpresent - VP (Fut Subj Pl P3) => abol_ + "ieren" ; --# notpresent - VP (Cond Sg P1) => abol_ + "iría" ; --# notpresent - VP (Cond Sg P2) => abol_ + "irías" ; --# notpresent - VP (Cond Sg P3) => abol_ + "iría" ; --# notpresent - VP (Cond Pl P1) => abol_ + "iríamos" ; --# notpresent - VP (Cond Pl P2) => abol_ + "iríais" ; --# notpresent - VP (Cond Pl P3) => abol_ + "irían" ; --# 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) => abol_ + "id" ; - VP (Imp Pl P3) => variants {} ; - VP (Pass Sg Masc) => abol_ + "ido" ; - VP (Pass Sg Fem) => abol_ + "ida" ; - VP (Pass Pl Masc) => abol_ + "idos" ; - VP (Pass Pl Fem) => abol_ + "idas" - } - } ; -oper actuar_9 : Str -> Verbum = \actuar -> - let act_ = Predef.tk 3 actuar in - {s = table { - VI Infn => act_ + "uar" ; - VI Ger => act_ + "uando" ; - VI Part => act_ + "uado" ; - VP (Pres Ind Sg P1) => act_ + "úo" ; - VP (Pres Ind Sg P2) => act_ + "úas" ; - VP (Pres Ind Sg P3) => act_ + "úa" ; - VP (Pres Ind Pl P1) => act_ + "uamos" ; - VP (Pres Ind Pl P2) => act_ + "uáis" ; - VP (Pres Ind Pl P3) => act_ + "úan" ; - VP (Pres Subj Sg P1) => act_ + "úe" ; - VP (Pres Subj Sg P2) => act_ + "úes" ; - VP (Pres Subj Sg P3) => act_ + "úe" ; - VP (Pres Subj Pl P1) => act_ + "uemos" ; - VP (Pres Subj Pl P2) => act_ + "uéis" ; - VP (Pres Subj Pl P3) => act_ + "úen" ; - VP (Impf Ind Sg P1) => act_ + "uaba" ; --# notpresent - VP (Impf Ind Sg P2) => act_ + "uabas" ; --# notpresent - VP (Impf Ind Sg P3) => act_ + "uaba" ; --# notpresent - VP (Impf Ind Pl P1) => act_ + "uábamos" ; --# notpresent - VP (Impf Ind Pl P2) => act_ + "uabais" ; --# notpresent - VP (Impf Ind Pl P3) => act_ + "uaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {act_ + "uara" ; act_ + "uase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {act_ + "uaras" ; act_ + "uases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {act_ + "uara" ; act_ + "uase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {act_ + "uáramos" ; act_ + "uásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {act_ + "uarais" ; act_ + "uaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {act_ + "uaran" ; act_ + "uasen"} ; --# notpresent - VP (Pret Sg P1) => act_ + "ué" ; --# notpresent - VP (Pret Sg P2) => act_ + "uaste" ; --# notpresent - VP (Pret Sg P3) => act_ + "uó" ; --# notpresent - VP (Pret Pl P1) => act_ + "uamos" ; --# notpresent - VP (Pret Pl P2) => act_ + "uasteis" ; --# notpresent - VP (Pret Pl P3) => act_ + "uaron" ; --# notpresent - VP (Fut Ind Sg P1) => act_ + "uaré" ; --# notpresent - VP (Fut Ind Sg P2) => act_ + "uarás" ; --# notpresent - VP (Fut Ind Sg P3) => act_ + "uará" ; --# notpresent - VP (Fut Ind Pl P1) => act_ + "uaremos" ; --# notpresent - VP (Fut Ind Pl P2) => act_ + "uaréis" ; --# notpresent - VP (Fut Ind Pl P3) => act_ + "uarán" ; --# notpresent - VP (Fut Subj Sg P1) => act_ + "uare" ; --# notpresent - VP (Fut Subj Sg P2) => act_ + "uares" ; --# notpresent - VP (Fut Subj Sg P3) => act_ + "uare" ; --# notpresent - VP (Fut Subj Pl P1) => act_ + "uáremos" ; --# notpresent - VP (Fut Subj Pl P2) => act_ + "uareis" ; --# notpresent - VP (Fut Subj Pl P3) => act_ + "uaren" ; --# notpresent - VP (Cond Sg P1) => act_ + "uaría" ; --# notpresent - VP (Cond Sg P2) => act_ + "uarías" ; --# notpresent - VP (Cond Sg P3) => act_ + "uaría" ; --# notpresent - VP (Cond Pl P1) => act_ + "uaríamos" ; --# notpresent - VP (Cond Pl P2) => act_ + "uaríais" ; --# notpresent - VP (Cond Pl P3) => act_ + "uarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => act_ + "úa" ; - VP (Imp Sg P3) => act_ + "úe" ; - VP (Imp Pl P1) => act_ + "uemos" ; - VP (Imp Pl P2) => act_ + "uad" ; - VP (Imp Pl P3) => act_ + "úen" ; - VP (Pass Sg Masc) => act_ + "uado" ; - VP (Pass Sg Fem) => act_ + "uada" ; - VP (Pass Pl Masc) => act_ + "uados" ; - VP (Pass Pl Fem) => act_ + "uadas" - } - } ; -oper adquirir_10 : Str -> Verbum = \adquirir -> - let adqui_ = Predef.tk 3 adquirir in - {s = table { - VI Infn => adqui_ + "rir" ; - VI Ger => adqui_ + "riendo" ; - VI Part => adqui_ + "rido" ; - VP (Pres Ind Sg P1) => adqui_ + "ero" ; - VP (Pres Ind Sg P2) => adqui_ + "eres" ; - VP (Pres Ind Sg P3) => adqui_ + "ere" ; - VP (Pres Ind Pl P1) => adqui_ + "rimos" ; - VP (Pres Ind Pl P2) => adqui_ + "rís" ; - VP (Pres Ind Pl P3) => adqui_ + "eren" ; - VP (Pres Subj Sg P1) => adqui_ + "era" ; - VP (Pres Subj Sg P2) => adqui_ + "eras" ; - VP (Pres Subj Sg P3) => adqui_ + "era" ; - VP (Pres Subj Pl P1) => adqui_ + "ramos" ; - VP (Pres Subj Pl P2) => adqui_ + "ráis" ; - VP (Pres Subj Pl P3) => adqui_ + "eran" ; - VP (Impf Ind Sg P1) => adqui_ + "ría" ; --# notpresent - VP (Impf Ind Sg P2) => adqui_ + "rías" ; --# notpresent - VP (Impf Ind Sg P3) => adqui_ + "ría" ; --# notpresent - VP (Impf Ind Pl P1) => adqui_ + "ríamos" ; --# notpresent - VP (Impf Ind Pl P2) => adqui_ + "ríais" ; --# notpresent - VP (Impf Ind Pl P3) => adqui_ + "rían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {adqui_ + "riera" ; adqui_ + "riese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {adqui_ + "rieras" ; adqui_ + "rieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {adqui_ + "riera" ; adqui_ + "riese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {adqui_ + "riéramos" ; adqui_ + "riésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {adqui_ + "rierais" ; adqui_ + "rieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {adqui_ + "rieran" ; adqui_ + "riesen"} ; --# notpresent - VP (Pret Sg P1) => adqui_ + "rí" ; --# notpresent - VP (Pret Sg P2) => adqui_ + "riste" ; --# notpresent - VP (Pret Sg P3) => adqui_ + "rió" ; --# notpresent - VP (Pret Pl P1) => adqui_ + "rimos" ; --# notpresent - VP (Pret Pl P2) => adqui_ + "risteis" ; --# notpresent - VP (Pret Pl P3) => adqui_ + "rieron" ; --# notpresent - VP (Fut Ind Sg P1) => adqui_ + "riré" ; --# notpresent - VP (Fut Ind Sg P2) => adqui_ + "rirás" ; --# notpresent - VP (Fut Ind Sg P3) => adqui_ + "rirá" ; --# notpresent - VP (Fut Ind Pl P1) => adqui_ + "riremos" ; --# notpresent - VP (Fut Ind Pl P2) => adqui_ + "riréis" ; --# notpresent - VP (Fut Ind Pl P3) => adqui_ + "rirán" ; --# notpresent - VP (Fut Subj Sg P1) => adqui_ + "riere" ; --# notpresent - VP (Fut Subj Sg P2) => adqui_ + "rieres" ; --# notpresent - VP (Fut Subj Sg P3) => adqui_ + "riere" ; --# notpresent - VP (Fut Subj Pl P1) => adqui_ + "riéremos" ; --# notpresent - VP (Fut Subj Pl P2) => adqui_ + "riereis" ; --# notpresent - VP (Fut Subj Pl P3) => adqui_ + "rieren" ; --# notpresent - VP (Cond Sg P1) => adqui_ + "riría" ; --# notpresent - VP (Cond Sg P2) => adqui_ + "rirías" ; --# notpresent - VP (Cond Sg P3) => adqui_ + "riría" ; --# notpresent - VP (Cond Pl P1) => adqui_ + "riríamos" ; --# notpresent - VP (Cond Pl P2) => adqui_ + "riríais" ; --# notpresent - VP (Cond Pl P3) => adqui_ + "rirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => adqui_ + "ere" ; - VP (Imp Sg P3) => adqui_ + "era" ; - VP (Imp Pl P1) => adqui_ + "ramos" ; - VP (Imp Pl P2) => adqui_ + "rid" ; - VP (Imp Pl P3) => adqui_ + "eran" ; - VP (Pass Sg Masc) => adqui_ + "rido" ; - VP (Pass Sg Fem) => adqui_ + "rida" ; - VP (Pass Pl Masc) => adqui_ + "ridos" ; - VP (Pass Pl Fem) => adqui_ + "ridas" - } - } ; -oper ahincar_11 : Str -> Verbum = \ahincar -> - let ah_ = Predef.tk 5 ahincar in - {s = table { - VI Infn => ah_ + "incar" ; - VI Ger => ah_ + "incando" ; - VI Part => ah_ + "incado" ; - VP (Pres Ind Sg P1) => ah_ + "ínco" ; - VP (Pres Ind Sg P2) => ah_ + "íncas" ; - VP (Pres Ind Sg P3) => ah_ + "ínca" ; - VP (Pres Ind Pl P1) => ah_ + "incamos" ; - VP (Pres Ind Pl P2) => ah_ + "incáis" ; - VP (Pres Ind Pl P3) => ah_ + "íncan" ; - VP (Pres Subj Sg P1) => ah_ + "ínque" ; - VP (Pres Subj Sg P2) => ah_ + "ínques" ; - VP (Pres Subj Sg P3) => ah_ + "ínque" ; - VP (Pres Subj Pl P1) => ah_ + "inquemos" ; - VP (Pres Subj Pl P2) => ah_ + "inquéis" ; - VP (Pres Subj Pl P3) => ah_ + "ínquen" ; - VP (Impf Ind Sg P1) => ah_ + "incaba" ; --# notpresent - VP (Impf Ind Sg P2) => ah_ + "incabas" ; --# notpresent - VP (Impf Ind Sg P3) => ah_ + "incaba" ; --# notpresent - VP (Impf Ind Pl P1) => ah_ + "incábamos" ; --# notpresent - VP (Impf Ind Pl P2) => ah_ + "incabais" ; --# notpresent - VP (Impf Ind Pl P3) => ah_ + "incaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {ah_ + "incara" ; ah_ + "incase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {ah_ + "incaras" ; ah_ + "incases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {ah_ + "incara" ; ah_ + "incase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {ah_ + "incáramos" ; ah_ + "incásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {ah_ + "incarais" ; ah_ + "incaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {ah_ + "incaran" ; ah_ + "incasen"} ; --# notpresent - VP (Pret Sg P1) => ah_ + "inqué" ; --# notpresent - VP (Pret Sg P2) => ah_ + "incaste" ; --# notpresent - VP (Pret Sg P3) => ah_ + "incó" ; --# notpresent - VP (Pret Pl P1) => ah_ + "incamos" ; --# notpresent - VP (Pret Pl P2) => ah_ + "incasteis" ; --# notpresent - VP (Pret Pl P3) => ah_ + "incaron" ; --# notpresent - VP (Fut Ind Sg P1) => ah_ + "incaré" ; --# notpresent - VP (Fut Ind Sg P2) => ah_ + "incarás" ; --# notpresent - VP (Fut Ind Sg P3) => ah_ + "incará" ; --# notpresent - VP (Fut Ind Pl P1) => ah_ + "incaremos" ; --# notpresent - VP (Fut Ind Pl P2) => ah_ + "incaréis" ; --# notpresent - VP (Fut Ind Pl P3) => ah_ + "incarán" ; --# notpresent - VP (Fut Subj Sg P1) => ah_ + "incare" ; --# notpresent - VP (Fut Subj Sg P2) => ah_ + "incares" ; --# notpresent - VP (Fut Subj Sg P3) => ah_ + "incare" ; --# notpresent - VP (Fut Subj Pl P1) => ah_ + "incáremos" ; --# notpresent - VP (Fut Subj Pl P2) => ah_ + "incareis" ; --# notpresent - VP (Fut Subj Pl P3) => ah_ + "incaren" ; --# notpresent - VP (Cond Sg P1) => ah_ + "incaría" ; --# notpresent - VP (Cond Sg P2) => ah_ + "incarías" ; --# notpresent - VP (Cond Sg P3) => ah_ + "incaría" ; --# notpresent - VP (Cond Pl P1) => ah_ + "incaríamos" ; --# notpresent - VP (Cond Pl P2) => ah_ + "incaríais" ; --# notpresent - VP (Cond Pl P3) => ah_ + "incarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => ah_ + "ínca" ; - VP (Imp Sg P3) => ah_ + "ínque" ; - VP (Imp Pl P1) => ah_ + "inquemos" ; - VP (Imp Pl P2) => ah_ + "incad" ; - VP (Imp Pl P3) => ah_ + "ínquen" ; - VP (Pass Sg Masc) => ah_ + "incado" ; - VP (Pass Sg Fem) => ah_ + "incada" ; - VP (Pass Pl Masc) => ah_ + "incados" ; - VP (Pass Pl Fem) => ah_ + "incadas" - } - } ; -oper airar_12 : Str -> Verbum = \airar -> - let a_ = Predef.tk 4 airar in - {s = table { - VI Infn => a_ + "irar" ; - VI Ger => a_ + "irando" ; - VI Part => a_ + "irado" ; - VP (Pres Ind Sg P1) => a_ + "íro" ; - VP (Pres Ind Sg P2) => a_ + "íras" ; - VP (Pres Ind Sg P3) => a_ + "íra" ; - VP (Pres Ind Pl P1) => a_ + "iramos" ; - VP (Pres Ind Pl P2) => a_ + "iráis" ; - VP (Pres Ind Pl P3) => a_ + "íran" ; - VP (Pres Subj Sg P1) => a_ + "íre" ; - VP (Pres Subj Sg P2) => a_ + "íres" ; - VP (Pres Subj Sg P3) => a_ + "íre" ; - VP (Pres Subj Pl P1) => a_ + "iremos" ; - VP (Pres Subj Pl P2) => a_ + "iréis" ; - VP (Pres Subj Pl P3) => a_ + "íren" ; - VP (Impf Ind Sg P1) => a_ + "iraba" ; --# notpresent - VP (Impf Ind Sg P2) => a_ + "irabas" ; --# notpresent - VP (Impf Ind Sg P3) => a_ + "iraba" ; --# notpresent - VP (Impf Ind Pl P1) => a_ + "irábamos" ; --# notpresent - VP (Impf Ind Pl P2) => a_ + "irabais" ; --# notpresent - VP (Impf Ind Pl P3) => a_ + "iraban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {a_ + "irara" ; a_ + "irase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {a_ + "iraras" ; a_ + "irases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {a_ + "irara" ; a_ + "irase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {a_ + "iráramos" ; a_ + "irásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {a_ + "irarais" ; a_ + "iraseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {a_ + "iraran" ; a_ + "irasen"} ; --# notpresent - VP (Pret Sg P1) => a_ + "iré" ; --# notpresent - VP (Pret Sg P2) => a_ + "iraste" ; --# notpresent - VP (Pret Sg P3) => a_ + "iró" ; --# notpresent - VP (Pret Pl P1) => a_ + "iramos" ; --# notpresent - VP (Pret Pl P2) => a_ + "irasteis" ; --# notpresent - VP (Pret Pl P3) => a_ + "iraron" ; --# notpresent - VP (Fut Ind Sg P1) => a_ + "iraré" ; --# notpresent - VP (Fut Ind Sg P2) => a_ + "irarás" ; --# notpresent - VP (Fut Ind Sg P3) => a_ + "irará" ; --# notpresent - VP (Fut Ind Pl P1) => a_ + "iraremos" ; --# notpresent - VP (Fut Ind Pl P2) => a_ + "iraréis" ; --# notpresent - VP (Fut Ind Pl P3) => a_ + "irarán" ; --# notpresent - VP (Fut Subj Sg P1) => a_ + "irare" ; --# notpresent - VP (Fut Subj Sg P2) => a_ + "irares" ; --# notpresent - VP (Fut Subj Sg P3) => a_ + "irare" ; --# notpresent - VP (Fut Subj Pl P1) => a_ + "iráremos" ; --# notpresent - VP (Fut Subj Pl P2) => a_ + "irareis" ; --# notpresent - VP (Fut Subj Pl P3) => a_ + "iraren" ; --# notpresent - VP (Cond Sg P1) => a_ + "iraría" ; --# notpresent - VP (Cond Sg P2) => a_ + "irarías" ; --# notpresent - VP (Cond Sg P3) => a_ + "iraría" ; --# notpresent - VP (Cond Pl P1) => a_ + "iraríamos" ; --# notpresent - VP (Cond Pl P2) => a_ + "iraríais" ; --# notpresent - VP (Cond Pl P3) => a_ + "irarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => a_ + "íra" ; - VP (Imp Sg P3) => a_ + "íre" ; - VP (Imp Pl P1) => a_ + "iremos" ; - VP (Imp Pl P2) => a_ + "irad" ; - VP (Imp Pl P3) => a_ + "íren" ; - VP (Pass Sg Masc) => a_ + "irado" ; - VP (Pass Sg Fem) => a_ + "irada" ; - VP (Pass Pl Masc) => a_ + "irados" ; - VP (Pass Pl Fem) => a_ + "iradas" - } - } ; -oper andar_13 : Str -> Verbum = \andar -> - let and_ = Predef.tk 2 andar in - {s = table { - VI Infn => and_ + "ar" ; - VI Ger => and_ + "ando" ; - VI Part => and_ + "ado" ; - VP (Pres Ind Sg P1) => and_ + "o" ; - VP (Pres Ind Sg P2) => and_ + "as" ; - VP (Pres Ind Sg P3) => and_ + "a" ; - VP (Pres Ind Pl P1) => and_ + "amos" ; - VP (Pres Ind Pl P2) => and_ + "áis" ; - VP (Pres Ind Pl P3) => and_ + "an" ; - VP (Pres Subj Sg P1) => and_ + "e" ; - VP (Pres Subj Sg P2) => and_ + "es" ; - VP (Pres Subj Sg P3) => and_ + "e" ; - VP (Pres Subj Pl P1) => and_ + "emos" ; - VP (Pres Subj Pl P2) => and_ + "éis" ; - VP (Pres Subj Pl P3) => and_ + "en" ; - VP (Impf Ind Sg P1) => and_ + "aba" ; --# notpresent - VP (Impf Ind Sg P2) => and_ + "abas" ; --# notpresent - VP (Impf Ind Sg P3) => and_ + "aba" ; --# notpresent - VP (Impf Ind Pl P1) => and_ + "ábamos" ; --# notpresent - VP (Impf Ind Pl P2) => and_ + "abais" ; --# notpresent - VP (Impf Ind Pl P3) => and_ + "aban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {and_ + "uviera" ; and_ + "uviese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {and_ + "uvieras" ; and_ + "uvieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {and_ + "uviera" ; and_ + "uviese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {and_ + "uviéramos" ; and_ + "uviésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {and_ + "uvierais" ; and_ + "uvieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {and_ + "uvieran" ; and_ + "uviesen"} ; --# notpresent - VP (Pret Sg P1) => and_ + "uve" ; --# notpresent - VP (Pret Sg P2) => and_ + "uviste" ; --# notpresent - VP (Pret Sg P3) => and_ + "uvo" ; --# notpresent - VP (Pret Pl P1) => and_ + "uvimos" ; --# notpresent - VP (Pret Pl P2) => and_ + "uvisteis" ; --# notpresent - VP (Pret Pl P3) => and_ + "uvieron" ; --# notpresent - VP (Fut Ind Sg P1) => and_ + "aré" ; --# notpresent - VP (Fut Ind Sg P2) => and_ + "arás" ; --# notpresent - VP (Fut Ind Sg P3) => and_ + "ará" ; --# notpresent - VP (Fut Ind Pl P1) => and_ + "aremos" ; --# notpresent - VP (Fut Ind Pl P2) => and_ + "aréis" ; --# notpresent - VP (Fut Ind Pl P3) => and_ + "arán" ; --# notpresent - VP (Fut Subj Sg P1) => and_ + "uviere" ; --# notpresent - VP (Fut Subj Sg P2) => and_ + "uvieres" ; --# notpresent - VP (Fut Subj Sg P3) => and_ + "uviere" ; --# notpresent - VP (Fut Subj Pl P1) => and_ + "uviéremos" ; --# notpresent - VP (Fut Subj Pl P2) => and_ + "uviereis" ; --# notpresent - VP (Fut Subj Pl P3) => and_ + "uvieren" ; --# notpresent - VP (Cond Sg P1) => and_ + "aría" ; --# notpresent - VP (Cond Sg P2) => and_ + "arías" ; --# notpresent - VP (Cond Sg P3) => and_ + "aría" ; --# notpresent - VP (Cond Pl P1) => and_ + "aríamos" ; --# notpresent - VP (Cond Pl P2) => and_ + "aríais" ; --# notpresent - VP (Cond Pl P3) => and_ + "arían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => and_ + "a" ; - VP (Imp Sg P3) => and_ + "e" ; - VP (Imp Pl P1) => and_ + "emos" ; - VP (Imp Pl P2) => and_ + "ad" ; - VP (Imp Pl P3) => and_ + "en" ; - VP (Pass Sg Masc) => and_ + "ado" ; - VP (Pass Sg Fem) => and_ + "ada" ; - VP (Pass Pl Masc) => and_ + "ados" ; - VP (Pass Pl Fem) => and_ + "adas" - } - } ; -oper asir_14 : Str -> Verbum = \asir -> - let as_ = Predef.tk 2 asir in - {s = table { - VI Infn => as_ + "ir" ; - VI Ger => as_ + "iendo" ; - VI Part => as_ + "ido" ; - VP (Pres Ind Sg P1) => as_ + "go" ; - VP (Pres Ind Sg P2) => as_ + "es" ; - VP (Pres Ind Sg P3) => as_ + "e" ; - VP (Pres Ind Pl P1) => as_ + "imos" ; - VP (Pres Ind Pl P2) => as_ + "ís" ; - VP (Pres Ind Pl P3) => as_ + "en" ; - VP (Pres Subj Sg P1) => as_ + "ga" ; - VP (Pres Subj Sg P2) => as_ + "gas" ; - VP (Pres Subj Sg P3) => as_ + "ga" ; - VP (Pres Subj Pl P1) => as_ + "gamos" ; - VP (Pres Subj Pl P2) => as_ + "gáis" ; - VP (Pres Subj Pl P3) => as_ + "gan" ; - VP (Impf Ind Sg P1) => as_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => as_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => as_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => as_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => as_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => as_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {as_ + "iera" ; as_ + "iese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {as_ + "ieras" ; as_ + "ieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {as_ + "iera" ; as_ + "iese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {as_ + "iéramos" ; as_ + "iésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {as_ + "ierais" ; as_ + "ieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {as_ + "ieran" ; as_ + "iesen"} ; --# notpresent - VP (Pret Sg P1) => as_ + "í" ; --# notpresent - VP (Pret Sg P2) => as_ + "iste" ; --# notpresent - VP (Pret Sg P3) => as_ + "ió" ; --# notpresent - VP (Pret Pl P1) => as_ + "imos" ; --# notpresent - VP (Pret Pl P2) => as_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => as_ + "ieron" ; --# notpresent - VP (Fut Ind Sg P1) => as_ + "iré" ; --# notpresent - VP (Fut Ind Sg P2) => as_ + "irás" ; --# notpresent - VP (Fut Ind Sg P3) => as_ + "irá" ; --# notpresent - VP (Fut Ind Pl P1) => as_ + "iremos" ; --# notpresent - VP (Fut Ind Pl P2) => as_ + "iréis" ; --# notpresent - VP (Fut Ind Pl P3) => as_ + "irán" ; --# notpresent - VP (Fut Subj Sg P1) => as_ + "iere" ; --# notpresent - VP (Fut Subj Sg P2) => as_ + "ieres" ; --# notpresent - VP (Fut Subj Sg P3) => as_ + "iere" ; --# notpresent - VP (Fut Subj Pl P1) => as_ + "iéremos" ; --# notpresent - VP (Fut Subj Pl P2) => as_ + "iereis" ; --# notpresent - VP (Fut Subj Pl P3) => as_ + "ieren" ; --# notpresent - VP (Cond Sg P1) => as_ + "iría" ; --# notpresent - VP (Cond Sg P2) => as_ + "irías" ; --# notpresent - VP (Cond Sg P3) => as_ + "iría" ; --# notpresent - VP (Cond Pl P1) => as_ + "iríamos" ; --# notpresent - VP (Cond Pl P2) => as_ + "iríais" ; --# notpresent - VP (Cond Pl P3) => as_ + "irían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => as_ + "e" ; - VP (Imp Sg P3) => as_ + "ga" ; - VP (Imp Pl P1) => as_ + "gamos" ; - VP (Imp Pl P2) => as_ + "id" ; - VP (Imp Pl P3) => as_ + "gan" ; - VP (Pass Sg Masc) => as_ + "ido" ; - VP (Pass Sg Fem) => as_ + "ida" ; - VP (Pass Pl Masc) => as_ + "idos" ; - VP (Pass Pl Fem) => as_ + "idas" - } - } ; -oper aullar_15 : Str -> Verbum = \aullar -> - let a_ = Predef.tk 5 aullar in - {s = table { - VI Infn => a_ + "ullar" ; - VI Ger => a_ + "ullando" ; - VI Part => a_ + "ullado" ; - VP (Pres Ind Sg P1) => a_ + "úllo" ; - VP (Pres Ind Sg P2) => a_ + "úllas" ; - VP (Pres Ind Sg P3) => a_ + "úlla" ; - VP (Pres Ind Pl P1) => a_ + "ullamos" ; - VP (Pres Ind Pl P2) => a_ + "ulláis" ; - VP (Pres Ind Pl P3) => a_ + "úllan" ; - VP (Pres Subj Sg P1) => a_ + "úlle" ; - VP (Pres Subj Sg P2) => a_ + "úlles" ; - VP (Pres Subj Sg P3) => a_ + "úlle" ; - VP (Pres Subj Pl P1) => a_ + "ullemos" ; - VP (Pres Subj Pl P2) => a_ + "ulléis" ; - VP (Pres Subj Pl P3) => a_ + "úllen" ; - VP (Impf Ind Sg P1) => a_ + "ullaba" ; --# notpresent - VP (Impf Ind Sg P2) => a_ + "ullabas" ; --# notpresent - VP (Impf Ind Sg P3) => a_ + "ullaba" ; --# notpresent - VP (Impf Ind Pl P1) => a_ + "ullábamos" ; --# notpresent - VP (Impf Ind Pl P2) => a_ + "ullabais" ; --# notpresent - VP (Impf Ind Pl P3) => a_ + "ullaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {a_ + "ullara" ; a_ + "ullase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {a_ + "ullaras" ; a_ + "ullases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {a_ + "ullara" ; a_ + "ullase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {a_ + "ulláramos" ; a_ + "ullásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {a_ + "ullarais" ; a_ + "ullaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {a_ + "ullaran" ; a_ + "ullasen"} ; --# notpresent - VP (Pret Sg P1) => a_ + "ullé" ; --# notpresent - VP (Pret Sg P2) => a_ + "ullaste" ; --# notpresent - VP (Pret Sg P3) => a_ + "ulló" ; --# notpresent - VP (Pret Pl P1) => a_ + "ullamos" ; --# notpresent - VP (Pret Pl P2) => a_ + "ullasteis" ; --# notpresent - VP (Pret Pl P3) => a_ + "ullaron" ; --# notpresent - VP (Fut Ind Sg P1) => a_ + "ullaré" ; --# notpresent - VP (Fut Ind Sg P2) => a_ + "ullarás" ; --# notpresent - VP (Fut Ind Sg P3) => a_ + "ullará" ; --# notpresent - VP (Fut Ind Pl P1) => a_ + "ullaremos" ; --# notpresent - VP (Fut Ind Pl P2) => a_ + "ullaréis" ; --# notpresent - VP (Fut Ind Pl P3) => a_ + "ullarán" ; --# notpresent - VP (Fut Subj Sg P1) => a_ + "ullare" ; --# notpresent - VP (Fut Subj Sg P2) => a_ + "ullares" ; --# notpresent - VP (Fut Subj Sg P3) => a_ + "ullare" ; --# notpresent - VP (Fut Subj Pl P1) => a_ + "ulláremos" ; --# notpresent - VP (Fut Subj Pl P2) => a_ + "ullareis" ; --# notpresent - VP (Fut Subj Pl P3) => a_ + "ullaren" ; --# notpresent - VP (Cond Sg P1) => a_ + "ullaría" ; --# notpresent - VP (Cond Sg P2) => a_ + "ullarías" ; --# notpresent - VP (Cond Sg P3) => a_ + "ullaría" ; --# notpresent - VP (Cond Pl P1) => a_ + "ullaríamos" ; --# notpresent - VP (Cond Pl P2) => a_ + "ullaríais" ; --# notpresent - VP (Cond Pl P3) => a_ + "ullarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => a_ + "úlla" ; - VP (Imp Sg P3) => a_ + "úlle" ; - VP (Imp Pl P1) => a_ + "ullemos" ; - VP (Imp Pl P2) => a_ + "ullad" ; - VP (Imp Pl P3) => a_ + "úllen" ; - VP (Pass Sg Masc) => a_ + "ullado" ; - VP (Pass Sg Fem) => a_ + "ullada" ; - VP (Pass Pl Masc) => a_ + "ullados" ; - VP (Pass Pl Fem) => a_ + "ulladas" - } - } ; -oper avergonzar_16 : Str -> Verbum = \avergonzar -> - let averg_ = Predef.tk 5 avergonzar in - {s = table { - VI Infn => averg_ + "onzar" ; - VI Ger => averg_ + "onzando" ; - VI Part => averg_ + "onzado" ; - VP (Pres Ind Sg P1) => averg_ + "üenzo" ; - VP (Pres Ind Sg P2) => averg_ + "üenzas" ; - VP (Pres Ind Sg P3) => averg_ + "üenza" ; - VP (Pres Ind Pl P1) => averg_ + "onzamos" ; - VP (Pres Ind Pl P2) => averg_ + "onzáis" ; - VP (Pres Ind Pl P3) => averg_ + "üenzan" ; - VP (Pres Subj Sg P1) => averg_ + "üence" ; - VP (Pres Subj Sg P2) => averg_ + "üences" ; - VP (Pres Subj Sg P3) => averg_ + "üence" ; - VP (Pres Subj Pl P1) => averg_ + "oncemos" ; - VP (Pres Subj Pl P2) => averg_ + "oncéis" ; - VP (Pres Subj Pl P3) => averg_ + "üencen" ; - VP (Impf Ind Sg P1) => averg_ + "onzaba" ; --# notpresent - VP (Impf Ind Sg P2) => averg_ + "onzabas" ; --# notpresent - VP (Impf Ind Sg P3) => averg_ + "onzaba" ; --# notpresent - VP (Impf Ind Pl P1) => averg_ + "onzábamos" ; --# notpresent - VP (Impf Ind Pl P2) => averg_ + "onzabais" ; --# notpresent - VP (Impf Ind Pl P3) => averg_ + "onzaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {averg_ + "onzara" ; averg_ + "onzase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {averg_ + "onzaras" ; averg_ + "onzases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {averg_ + "onzara" ; averg_ + "onzase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {averg_ + "onzáramos" ; averg_ + "onzásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {averg_ + "onzarais" ; averg_ + "onzaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {averg_ + "onzaran" ; averg_ + "onzasen"} ; --# notpresent - VP (Pret Sg P1) => averg_ + "oncé" ; --# notpresent - VP (Pret Sg P2) => averg_ + "onzaste" ; --# notpresent - VP (Pret Sg P3) => averg_ + "onzó" ; --# notpresent - VP (Pret Pl P1) => averg_ + "onzamos" ; --# notpresent - VP (Pret Pl P2) => averg_ + "onzasteis" ; --# notpresent - VP (Pret Pl P3) => averg_ + "onzaron" ; --# notpresent - VP (Fut Ind Sg P1) => averg_ + "onzaré" ; --# notpresent - VP (Fut Ind Sg P2) => averg_ + "onzarás" ; --# notpresent - VP (Fut Ind Sg P3) => averg_ + "onzará" ; --# notpresent - VP (Fut Ind Pl P1) => averg_ + "onzaremos" ; --# notpresent - VP (Fut Ind Pl P2) => averg_ + "onzaréis" ; --# notpresent - VP (Fut Ind Pl P3) => averg_ + "onzarán" ; --# notpresent - VP (Fut Subj Sg P1) => averg_ + "onzare" ; --# notpresent - VP (Fut Subj Sg P2) => averg_ + "onzares" ; --# notpresent - VP (Fut Subj Sg P3) => averg_ + "onzare" ; --# notpresent - VP (Fut Subj Pl P1) => averg_ + "onzáremos" ; --# notpresent - VP (Fut Subj Pl P2) => averg_ + "onzareis" ; --# notpresent - VP (Fut Subj Pl P3) => averg_ + "onzaren" ; --# notpresent - VP (Cond Sg P1) => averg_ + "onzaría" ; --# notpresent - VP (Cond Sg P2) => averg_ + "onzarías" ; --# notpresent - VP (Cond Sg P3) => averg_ + "onzaría" ; --# notpresent - VP (Cond Pl P1) => averg_ + "onzaríamos" ; --# notpresent - VP (Cond Pl P2) => averg_ + "onzaríais" ; --# notpresent - VP (Cond Pl P3) => averg_ + "onzarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => averg_ + "üenza" ; - VP (Imp Sg P3) => averg_ + "üence" ; - VP (Imp Pl P1) => averg_ + "oncemos" ; - VP (Imp Pl P2) => averg_ + "onzad" ; - VP (Imp Pl P3) => averg_ + "üencen" ; - VP (Pass Sg Masc) => averg_ + "onzado" ; - VP (Pass Sg Fem) => averg_ + "onzada" ; - VP (Pass Pl Masc) => averg_ + "onzados" ; - VP (Pass Pl Fem) => averg_ + "onzadas" - } - } ; -oper averiguar_17 : Str -> Verbum = \averiguar -> - let averig_ = Predef.tk 3 averiguar in - {s = table { - VI Infn => averig_ + "uar" ; - VI Ger => averig_ + "uando" ; - VI Part => averig_ + "uado" ; - VP (Pres Ind Sg P1) => averig_ + "uo" ; - VP (Pres Ind Sg P2) => averig_ + "uas" ; - VP (Pres Ind Sg P3) => averig_ + "ua" ; - VP (Pres Ind Pl P1) => averig_ + "uamos" ; - VP (Pres Ind Pl P2) => averig_ + "uáis" ; - VP (Pres Ind Pl P3) => averig_ + "uan" ; - VP (Pres Subj Sg P1) => averig_ + "üe" ; - VP (Pres Subj Sg P2) => averig_ + "ües" ; - VP (Pres Subj Sg P3) => averig_ + "üe" ; - VP (Pres Subj Pl P1) => averig_ + "üemos" ; - VP (Pres Subj Pl P2) => averig_ + "üéis" ; - VP (Pres Subj Pl P3) => averig_ + "üen" ; - VP (Impf Ind Sg P1) => averig_ + "uaba" ; --# notpresent - VP (Impf Ind Sg P2) => averig_ + "uabas" ; --# notpresent - VP (Impf Ind Sg P3) => averig_ + "uaba" ; --# notpresent - VP (Impf Ind Pl P1) => averig_ + "uábamos" ; --# notpresent - VP (Impf Ind Pl P2) => averig_ + "uabais" ; --# notpresent - VP (Impf Ind Pl P3) => averig_ + "uaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {averig_ + "uara" ; averig_ + "uase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {averig_ + "uaras" ; averig_ + "uases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {averig_ + "uara" ; averig_ + "uase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {averig_ + "uáramos" ; averig_ + "uásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {averig_ + "uarais" ; averig_ + "uaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {averig_ + "uaran" ; averig_ + "uasen"} ; --# notpresent - VP (Pret Sg P1) => averig_ + "üé" ; --# notpresent - VP (Pret Sg P2) => averig_ + "uaste" ; --# notpresent - VP (Pret Sg P3) => averig_ + "uó" ; --# notpresent - VP (Pret Pl P1) => averig_ + "uamos" ; --# notpresent - VP (Pret Pl P2) => averig_ + "uasteis" ; --# notpresent - VP (Pret Pl P3) => averig_ + "uaron" ; --# notpresent - VP (Fut Ind Sg P1) => averig_ + "uaré" ; --# notpresent - VP (Fut Ind Sg P2) => averig_ + "uarás" ; --# notpresent - VP (Fut Ind Sg P3) => averig_ + "uará" ; --# notpresent - VP (Fut Ind Pl P1) => averig_ + "uaremos" ; --# notpresent - VP (Fut Ind Pl P2) => averig_ + "uaréis" ; --# notpresent - VP (Fut Ind Pl P3) => averig_ + "uarán" ; --# notpresent - VP (Fut Subj Sg P1) => averig_ + "uare" ; --# notpresent - VP (Fut Subj Sg P2) => averig_ + "uares" ; --# notpresent - VP (Fut Subj Sg P3) => averig_ + "uare" ; --# notpresent - VP (Fut Subj Pl P1) => averig_ + "uáremos" ; --# notpresent - VP (Fut Subj Pl P2) => averig_ + "uareis" ; --# notpresent - VP (Fut Subj Pl P3) => averig_ + "uaren" ; --# notpresent - VP (Cond Sg P1) => averig_ + "uaría" ; --# notpresent - VP (Cond Sg P2) => averig_ + "uarías" ; --# notpresent - VP (Cond Sg P3) => averig_ + "uaría" ; --# notpresent - VP (Cond Pl P1) => averig_ + "uaríamos" ; --# notpresent - VP (Cond Pl P2) => averig_ + "uaríais" ; --# notpresent - VP (Cond Pl P3) => averig_ + "uarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => averig_ + "ua" ; - VP (Imp Sg P3) => averig_ + "üe" ; - VP (Imp Pl P1) => averig_ + "üemos" ; - VP (Imp Pl P2) => averig_ + "uad" ; - VP (Imp Pl P3) => averig_ + "üen" ; - VP (Pass Sg Masc) => averig_ + "uado" ; - VP (Pass Sg Fem) => averig_ + "uada" ; - VP (Pass Pl Masc) => averig_ + "uados" ; - VP (Pass Pl Fem) => averig_ + "uadas" - } - } ; -oper bruñir_18 : Str -> Verbum = \bruñir -> - let bruñ_ = Predef.tk 2 bruñir in - {s = table { - VI Infn => bruñ_ + "ir" ; - VI Ger => bruñ_ + "endo" ; - VI Part => bruñ_ + "ido" ; - VP (Pres Ind Sg P1) => bruñ_ + "o" ; - VP (Pres Ind Sg P2) => bruñ_ + "es" ; - VP (Pres Ind Sg P3) => bruñ_ + "e" ; - VP (Pres Ind Pl P1) => bruñ_ + "imos" ; - VP (Pres Ind Pl P2) => bruñ_ + "ís" ; - VP (Pres Ind Pl P3) => bruñ_ + "en" ; - VP (Pres Subj Sg P1) => bruñ_ + "a" ; - VP (Pres Subj Sg P2) => bruñ_ + "as" ; - VP (Pres Subj Sg P3) => bruñ_ + "a" ; - VP (Pres Subj Pl P1) => bruñ_ + "amos" ; - VP (Pres Subj Pl P2) => bruñ_ + "áis" ; - VP (Pres Subj Pl P3) => bruñ_ + "an" ; - VP (Impf Ind Sg P1) => bruñ_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => bruñ_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => bruñ_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => bruñ_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => bruñ_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => bruñ_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {bruñ_ + "era" ; bruñ_ + "ese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {bruñ_ + "eras" ; bruñ_ + "eses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {bruñ_ + "era" ; bruñ_ + "ese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {bruñ_ + "éramos" ; bruñ_ + "ésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {bruñ_ + "erais" ; bruñ_ + "eseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {bruñ_ + "eran" ; bruñ_ + "esen"} ; --# notpresent - VP (Pret Sg P1) => bruñ_ + "í" ; --# notpresent - VP (Pret Sg P2) => bruñ_ + "iste" ; --# notpresent - VP (Pret Sg P3) => bruñ_ + "ó" ; --# notpresent - VP (Pret Pl P1) => bruñ_ + "imos" ; --# notpresent - VP (Pret Pl P2) => bruñ_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => bruñ_ + "eron" ; --# notpresent - VP (Fut Ind Sg P1) => bruñ_ + "iré" ; --# notpresent - VP (Fut Ind Sg P2) => bruñ_ + "irás" ; --# notpresent - VP (Fut Ind Sg P3) => bruñ_ + "irá" ; --# notpresent - VP (Fut Ind Pl P1) => bruñ_ + "iremos" ; --# notpresent - VP (Fut Ind Pl P2) => bruñ_ + "iréis" ; --# notpresent - VP (Fut Ind Pl P3) => bruñ_ + "irán" ; --# notpresent - VP (Fut Subj Sg P1) => bruñ_ + "ere" ; --# notpresent - VP (Fut Subj Sg P2) => bruñ_ + "eres" ; --# notpresent - VP (Fut Subj Sg P3) => bruñ_ + "ere" ; --# notpresent - VP (Fut Subj Pl P1) => bruñ_ + "éremos" ; --# notpresent - VP (Fut Subj Pl P2) => bruñ_ + "ereis" ; --# notpresent - VP (Fut Subj Pl P3) => bruñ_ + "eren" ; --# notpresent - VP (Cond Sg P1) => bruñ_ + "iría" ; --# notpresent - VP (Cond Sg P2) => bruñ_ + "irías" ; --# notpresent - VP (Cond Sg P3) => bruñ_ + "iría" ; --# notpresent - VP (Cond Pl P1) => bruñ_ + "iríamos" ; --# notpresent - VP (Cond Pl P2) => bruñ_ + "iríais" ; --# notpresent - VP (Cond Pl P3) => bruñ_ + "irían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => bruñ_ + "e" ; - VP (Imp Sg P3) => bruñ_ + "a" ; - VP (Imp Pl P1) => bruñ_ + "amos" ; - VP (Imp Pl P2) => bruñ_ + "id" ; - VP (Imp Pl P3) => bruñ_ + "an" ; - VP (Pass Sg Masc) => bruñ_ + "ido" ; - VP (Pass Sg Fem) => bruñ_ + "ida" ; - VP (Pass Pl Masc) => bruñ_ + "idos" ; - VP (Pass Pl Fem) => bruñ_ + "idas" - } - } ; -oper caber_19 : Str -> Verbum = \caber -> - let x_ = Predef.tk 5 caber in - {s = table { - VI Infn => x_ + "caber" ; - VI Ger => x_ + "cabiendo" ; - VI Part => x_ + "cabido" ; - VP (Pres Ind Sg P1) => x_ + "quepo" ; - VP (Pres Ind Sg P2) => x_ + "cabes" ; - VP (Pres Ind Sg P3) => x_ + "cabe" ; - VP (Pres Ind Pl P1) => x_ + "cabemos" ; - VP (Pres Ind Pl P2) => x_ + "cabéis" ; - VP (Pres Ind Pl P3) => x_ + "caben" ; - VP (Pres Subj Sg P1) => x_ + "quepa" ; - VP (Pres Subj Sg P2) => x_ + "quepas" ; - VP (Pres Subj Sg P3) => x_ + "quepa" ; - VP (Pres Subj Pl P1) => x_ + "quepamos" ; - VP (Pres Subj Pl P2) => x_ + "quepáis" ; - VP (Pres Subj Pl P3) => x_ + "quepan" ; - VP (Impf Ind Sg P1) => x_ + "cabía" ; --# notpresent - VP (Impf Ind Sg P2) => x_ + "cabías" ; --# notpresent - VP (Impf Ind Sg P3) => x_ + "cabía" ; --# notpresent - VP (Impf Ind Pl P1) => x_ + "cabíamos" ; --# notpresent - VP (Impf Ind Pl P2) => x_ + "cabíais" ; --# notpresent - VP (Impf Ind Pl P3) => x_ + "cabían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {x_ + "cupiera" ; x_ + "cupiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {x_ + "cupieras" ; x_ + "cupieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {x_ + "cupiera" ; x_ + "cupiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {x_ + "cupiéramos" ; x_ + "cupiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {x_ + "cupierais" ; x_ + "cupieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {x_ + "cupieran" ; x_ + "cupiesen"} ; --# notpresent - VP (Pret Sg P1) => x_ + "cupe" ; --# notpresent - VP (Pret Sg P2) => x_ + "cupiste" ; --# notpresent - VP (Pret Sg P3) => x_ + "cupo" ; --# notpresent - VP (Pret Pl P1) => x_ + "cupimos" ; --# notpresent - VP (Pret Pl P2) => x_ + "cupisteis" ; --# notpresent - VP (Pret Pl P3) => x_ + "cupieron" ; --# notpresent - VP (Fut Ind Sg P1) => x_ + "cabré" ; --# notpresent - VP (Fut Ind Sg P2) => x_ + "cabrás" ; --# notpresent - VP (Fut Ind Sg P3) => x_ + "cabrá" ; --# notpresent - VP (Fut Ind Pl P1) => x_ + "cabremos" ; --# notpresent - VP (Fut Ind Pl P2) => x_ + "cabréis" ; --# notpresent - VP (Fut Ind Pl P3) => x_ + "cabrán" ; --# notpresent - VP (Fut Subj Sg P1) => x_ + "cupiere" ; --# notpresent - VP (Fut Subj Sg P2) => x_ + "cupieres" ; --# notpresent - VP (Fut Subj Sg P3) => x_ + "cupiere" ; --# notpresent - VP (Fut Subj Pl P1) => x_ + "cupiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => x_ + "cupiereis" ; --# notpresent - VP (Fut Subj Pl P3) => x_ + "cupieren" ; --# notpresent - VP (Cond Sg P1) => x_ + "cabría" ; --# notpresent - VP (Cond Sg P2) => x_ + "cabrías" ; --# notpresent - VP (Cond Sg P3) => x_ + "cabría" ; --# notpresent - VP (Cond Pl P1) => x_ + "cabríamos" ; --# notpresent - VP (Cond Pl P2) => x_ + "cabríais" ; --# notpresent - VP (Cond Pl P3) => x_ + "cabrían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => x_ + "cabe" ; - VP (Imp Sg P3) => x_ + "quepa" ; - VP (Imp Pl P1) => x_ + "quepamos" ; - VP (Imp Pl P2) => x_ + "cabed" ; - VP (Imp Pl P3) => x_ + "quepan" ; - VP (Pass Sg Masc) => x_ + "cabido" ; - VP (Pass Sg Fem) => x_ + "cabida" ; - VP (Pass Pl Masc) => x_ + "cabidos" ; - VP (Pass Pl Fem) => x_ + "cabidas" - } - } ; -oper caer_20 : Str -> Verbum = \caer -> - let ca_ = Predef.tk 2 caer in - {s = table { - VI Infn => ca_ + "er" ; - VI Ger => ca_ + "yendo" ; - VI Part => ca_ + "ído" ; - VP (Pres Ind Sg P1) => ca_ + "igo" ; - VP (Pres Ind Sg P2) => ca_ + "es" ; - VP (Pres Ind Sg P3) => ca_ + "e" ; - VP (Pres Ind Pl P1) => ca_ + "emos" ; - VP (Pres Ind Pl P2) => ca_ + "éis" ; - VP (Pres Ind Pl P3) => ca_ + "en" ; - VP (Pres Subj Sg P1) => ca_ + "iga" ; - VP (Pres Subj Sg P2) => ca_ + "igas" ; - VP (Pres Subj Sg P3) => ca_ + "iga" ; - VP (Pres Subj Pl P1) => ca_ + "igamos" ; - VP (Pres Subj Pl P2) => ca_ + "igáis" ; - VP (Pres Subj Pl P3) => ca_ + "igan" ; - VP (Impf Ind Sg P1) => ca_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => ca_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => ca_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => ca_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => ca_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => ca_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {ca_ + "yera" ; ca_ + "yese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {ca_ + "yeras" ; ca_ + "yeses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {ca_ + "yera" ; ca_ + "yese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {ca_ + "yéramos" ; ca_ + "yésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {ca_ + "yerais" ; ca_ + "yeseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {ca_ + "yeran" ; ca_ + "yesen"} ; --# notpresent - VP (Pret Sg P1) => ca_ + "í" ; --# notpresent - VP (Pret Sg P2) => ca_ + "íste" ; --# notpresent - VP (Pret Sg P3) => ca_ + "yó" ; --# notpresent - VP (Pret Pl P1) => ca_ + "ímos" ; --# notpresent - VP (Pret Pl P2) => ca_ + "ísteis" ; --# notpresent - VP (Pret Pl P3) => ca_ + "yeron" ; --# notpresent - VP (Fut Ind Sg P1) => ca_ + "eré" ; --# notpresent - VP (Fut Ind Sg P2) => ca_ + "erás" ; --# notpresent - VP (Fut Ind Sg P3) => ca_ + "erá" ; --# notpresent - VP (Fut Ind Pl P1) => ca_ + "eremos" ; --# notpresent - VP (Fut Ind Pl P2) => ca_ + "eréis" ; --# notpresent - VP (Fut Ind Pl P3) => ca_ + "erán" ; --# notpresent - VP (Fut Subj Sg P1) => ca_ + "yere" ; --# notpresent - VP (Fut Subj Sg P2) => ca_ + "yeres" ; --# notpresent - VP (Fut Subj Sg P3) => ca_ + "yere" ; --# notpresent - VP (Fut Subj Pl P1) => ca_ + "yéremos" ; --# notpresent - VP (Fut Subj Pl P2) => ca_ + "yereis" ; --# notpresent - VP (Fut Subj Pl P3) => ca_ + "yeren" ; --# notpresent - VP (Cond Sg P1) => ca_ + "ería" ; --# notpresent - VP (Cond Sg P2) => ca_ + "erías" ; --# notpresent - VP (Cond Sg P3) => ca_ + "ería" ; --# notpresent - VP (Cond Pl P1) => ca_ + "eríamos" ; --# notpresent - VP (Cond Pl P2) => ca_ + "eríais" ; --# notpresent - VP (Cond Pl P3) => ca_ + "erían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => ca_ + "e" ; - VP (Imp Sg P3) => ca_ + "iga" ; - VP (Imp Pl P1) => ca_ + "igamos" ; - VP (Imp Pl P2) => ca_ + "ed" ; - VP (Imp Pl P3) => ca_ + "igan" ; - VP (Pass Sg Masc) => ca_ + "ído" ; - VP (Pass Sg Fem) => ca_ + "ída" ; - VP (Pass Pl Masc) => ca_ + "ídos" ; - VP (Pass Pl Fem) => ca_ + "ídas" - } - } ; -oper cazar_21 : Str -> Verbum = \cazar -> - let ca_ = Predef.tk 3 cazar in - {s = table { - VI Infn => ca_ + "zar" ; - VI Ger => ca_ + "zando" ; - VI Part => ca_ + "zado" ; - VP (Pres Ind Sg P1) => ca_ + "zo" ; - VP (Pres Ind Sg P2) => ca_ + "zas" ; - VP (Pres Ind Sg P3) => ca_ + "za" ; - VP (Pres Ind Pl P1) => ca_ + "zamos" ; - VP (Pres Ind Pl P2) => ca_ + "záis" ; - VP (Pres Ind Pl P3) => ca_ + "zan" ; - VP (Pres Subj Sg P1) => ca_ + "ce" ; - VP (Pres Subj Sg P2) => ca_ + "ces" ; - VP (Pres Subj Sg P3) => ca_ + "ce" ; - VP (Pres Subj Pl P1) => ca_ + "cemos" ; - VP (Pres Subj Pl P2) => ca_ + "céis" ; - VP (Pres Subj Pl P3) => ca_ + "cen" ; - VP (Impf Ind Sg P1) => ca_ + "zaba" ; --# notpresent - VP (Impf Ind Sg P2) => ca_ + "zabas" ; --# notpresent - VP (Impf Ind Sg P3) => ca_ + "zaba" ; --# notpresent - VP (Impf Ind Pl P1) => ca_ + "zábamos" ; --# notpresent - VP (Impf Ind Pl P2) => ca_ + "zabais" ; --# notpresent - VP (Impf Ind Pl P3) => ca_ + "zaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {ca_ + "zara" ; ca_ + "zase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {ca_ + "zaras" ; ca_ + "zases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {ca_ + "zara" ; ca_ + "zase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {ca_ + "záramos" ; ca_ + "zásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {ca_ + "zarais" ; ca_ + "zaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {ca_ + "zaran" ; ca_ + "zasen"} ; --# notpresent - VP (Pret Sg P1) => ca_ + "cé" ; --# notpresent - VP (Pret Sg P2) => ca_ + "zaste" ; --# notpresent - VP (Pret Sg P3) => ca_ + "zó" ; --# notpresent - VP (Pret Pl P1) => ca_ + "zamos" ; --# notpresent - VP (Pret Pl P2) => ca_ + "zasteis" ; --# notpresent - VP (Pret Pl P3) => ca_ + "zaron" ; --# notpresent - VP (Fut Ind Sg P1) => ca_ + "zaré" ; --# notpresent - VP (Fut Ind Sg P2) => ca_ + "zarás" ; --# notpresent - VP (Fut Ind Sg P3) => ca_ + "zará" ; --# notpresent - VP (Fut Ind Pl P1) => ca_ + "zaremos" ; --# notpresent - VP (Fut Ind Pl P2) => ca_ + "zaréis" ; --# notpresent - VP (Fut Ind Pl P3) => ca_ + "zarán" ; --# notpresent - VP (Fut Subj Sg P1) => ca_ + "zare" ; --# notpresent - VP (Fut Subj Sg P2) => ca_ + "zares" ; --# notpresent - VP (Fut Subj Sg P3) => ca_ + "zare" ; --# notpresent - VP (Fut Subj Pl P1) => ca_ + "záremos" ; --# notpresent - VP (Fut Subj Pl P2) => ca_ + "zareis" ; --# notpresent - VP (Fut Subj Pl P3) => ca_ + "zaren" ; --# notpresent - VP (Cond Sg P1) => ca_ + "zaría" ; --# notpresent - VP (Cond Sg P2) => ca_ + "zarías" ; --# notpresent - VP (Cond Sg P3) => ca_ + "zaría" ; --# notpresent - VP (Cond Pl P1) => ca_ + "zaríamos" ; --# notpresent - VP (Cond Pl P2) => ca_ + "zaríais" ; --# notpresent - VP (Cond Pl P3) => ca_ + "zarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => ca_ + "za" ; - VP (Imp Sg P3) => ca_ + "ce" ; - VP (Imp Pl P1) => ca_ + "cemos" ; - VP (Imp Pl P2) => ca_ + "zad" ; - VP (Imp Pl P3) => ca_ + "cen" ; - VP (Pass Sg Masc) => ca_ + "zado" ; - VP (Pass Sg Fem) => ca_ + "zada" ; - VP (Pass Pl Masc) => ca_ + "zados" ; - VP (Pass Pl Fem) => ca_ + "zadas" - } - } ; -oper cocer_22 : Str -> Verbum = \cocer -> - let c_ = Predef.tk 4 cocer in - {s = table { - VI Infn => c_ + "ocer" ; - VI Ger => c_ + "ociendo" ; - VI Part => c_ + "ocido" ; - VP (Pres Ind Sg P1) => c_ + "uezo" ; - VP (Pres Ind Sg P2) => c_ + "ueces" ; - VP (Pres Ind Sg P3) => c_ + "uece" ; - VP (Pres Ind Pl P1) => c_ + "ocemos" ; - VP (Pres Ind Pl P2) => c_ + "océis" ; - VP (Pres Ind Pl P3) => c_ + "uecen" ; - VP (Pres Subj Sg P1) => c_ + "ueza" ; - VP (Pres Subj Sg P2) => c_ + "uezas" ; - VP (Pres Subj Sg P3) => c_ + "ueza" ; - VP (Pres Subj Pl P1) => c_ + "ozamos" ; - VP (Pres Subj Pl P2) => c_ + "ozáis" ; - VP (Pres Subj Pl P3) => c_ + "uezan" ; - VP (Impf Ind Sg P1) => c_ + "ocía" ; --# notpresent - VP (Impf Ind Sg P2) => c_ + "ocías" ; --# notpresent - VP (Impf Ind Sg P3) => c_ + "ocía" ; --# notpresent - VP (Impf Ind Pl P1) => c_ + "ocíamos" ; --# notpresent - VP (Impf Ind Pl P2) => c_ + "ocíais" ; --# notpresent - VP (Impf Ind Pl P3) => c_ + "ocían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {c_ + "ociera" ; c_ + "ociese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {c_ + "ocieras" ; c_ + "ocieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {c_ + "ociera" ; c_ + "ociese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {c_ + "ociéramos" ; c_ + "ociésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {c_ + "ocierais" ; c_ + "ocieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {c_ + "ocieran" ; c_ + "ociesen"} ; --# notpresent - VP (Pret Sg P1) => c_ + "ocí" ; --# notpresent - VP (Pret Sg P2) => c_ + "ociste" ; --# notpresent - VP (Pret Sg P3) => c_ + "oció" ; --# notpresent - VP (Pret Pl P1) => c_ + "ocimos" ; --# notpresent - VP (Pret Pl P2) => c_ + "ocisteis" ; --# notpresent - VP (Pret Pl P3) => c_ + "ocieron" ; --# notpresent - VP (Fut Ind Sg P1) => c_ + "oceré" ; --# notpresent - VP (Fut Ind Sg P2) => c_ + "ocerás" ; --# notpresent - VP (Fut Ind Sg P3) => c_ + "ocerá" ; --# notpresent - VP (Fut Ind Pl P1) => c_ + "oceremos" ; --# notpresent - VP (Fut Ind Pl P2) => c_ + "oceréis" ; --# notpresent - VP (Fut Ind Pl P3) => c_ + "ocerán" ; --# notpresent - VP (Fut Subj Sg P1) => c_ + "ociere" ; --# notpresent - VP (Fut Subj Sg P2) => c_ + "ocieres" ; --# notpresent - VP (Fut Subj Sg P3) => c_ + "ociere" ; --# notpresent - VP (Fut Subj Pl P1) => c_ + "ociéremos" ; --# notpresent - VP (Fut Subj Pl P2) => c_ + "ociereis" ; --# notpresent - VP (Fut Subj Pl P3) => c_ + "ocieren" ; --# notpresent - VP (Cond Sg P1) => c_ + "ocería" ; --# notpresent - VP (Cond Sg P2) => c_ + "ocerías" ; --# notpresent - VP (Cond Sg P3) => c_ + "ocería" ; --# notpresent - VP (Cond Pl P1) => c_ + "oceríamos" ; --# notpresent - VP (Cond Pl P2) => c_ + "oceríais" ; --# notpresent - VP (Cond Pl P3) => c_ + "ocerían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => c_ + "uece" ; - VP (Imp Sg P3) => c_ + "ueza" ; - VP (Imp Pl P1) => c_ + "ozamos" ; - VP (Imp Pl P2) => c_ + "oced" ; - VP (Imp Pl P3) => c_ + "uezan" ; - VP (Pass Sg Masc) => c_ + "ocido" ; - VP (Pass Sg Fem) => c_ + "ocida" ; - VP (Pass Pl Masc) => c_ + "ocidos" ; - VP (Pass Pl Fem) => c_ + "ocidas" - } - } ; -oper coger_23 : Str -> Verbum = \coger -> - let co_ = Predef.tk 3 coger in - {s = table { - VI Infn => co_ + "ger" ; - VI Ger => co_ + "giendo" ; - VI Part => co_ + "gido" ; - VP (Pres Ind Sg P1) => co_ + "jo" ; - VP (Pres Ind Sg P2) => co_ + "ges" ; - VP (Pres Ind Sg P3) => co_ + "ge" ; - VP (Pres Ind Pl P1) => co_ + "gemos" ; - VP (Pres Ind Pl P2) => co_ + "géis" ; - VP (Pres Ind Pl P3) => co_ + "gen" ; - VP (Pres Subj Sg P1) => co_ + "ja" ; - VP (Pres Subj Sg P2) => co_ + "jas" ; - VP (Pres Subj Sg P3) => co_ + "ja" ; - VP (Pres Subj Pl P1) => co_ + "jamos" ; - VP (Pres Subj Pl P2) => co_ + "jáis" ; - VP (Pres Subj Pl P3) => co_ + "jan" ; - VP (Impf Ind Sg P1) => co_ + "gía" ; --# notpresent - VP (Impf Ind Sg P2) => co_ + "gías" ; --# notpresent - VP (Impf Ind Sg P3) => co_ + "gía" ; --# notpresent - VP (Impf Ind Pl P1) => co_ + "gíamos" ; --# notpresent - VP (Impf Ind Pl P2) => co_ + "gíais" ; --# notpresent - VP (Impf Ind Pl P3) => co_ + "gían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {co_ + "giera" ; co_ + "giese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {co_ + "gieras" ; co_ + "gieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {co_ + "giera" ; co_ + "giese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {co_ + "giéramos" ; co_ + "giésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {co_ + "gierais" ; co_ + "gieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {co_ + "gieran" ; co_ + "giesen"} ; --# notpresent - VP (Pret Sg P1) => co_ + "gí" ; --# notpresent - VP (Pret Sg P2) => co_ + "giste" ; --# notpresent - VP (Pret Sg P3) => co_ + "gió" ; --# notpresent - VP (Pret Pl P1) => co_ + "gimos" ; --# notpresent - VP (Pret Pl P2) => co_ + "gisteis" ; --# notpresent - VP (Pret Pl P3) => co_ + "gieron" ; --# notpresent - VP (Fut Ind Sg P1) => co_ + "geré" ; --# notpresent - VP (Fut Ind Sg P2) => co_ + "gerás" ; --# notpresent - VP (Fut Ind Sg P3) => co_ + "gerá" ; --# notpresent - VP (Fut Ind Pl P1) => co_ + "geremos" ; --# notpresent - VP (Fut Ind Pl P2) => co_ + "geréis" ; --# notpresent - VP (Fut Ind Pl P3) => co_ + "gerán" ; --# notpresent - VP (Fut Subj Sg P1) => co_ + "giere" ; --# notpresent - VP (Fut Subj Sg P2) => co_ + "gieres" ; --# notpresent - VP (Fut Subj Sg P3) => co_ + "giere" ; --# notpresent - VP (Fut Subj Pl P1) => co_ + "giéremos" ; --# notpresent - VP (Fut Subj Pl P2) => co_ + "giereis" ; --# notpresent - VP (Fut Subj Pl P3) => co_ + "gieren" ; --# notpresent - VP (Cond Sg P1) => co_ + "gería" ; --# notpresent - VP (Cond Sg P2) => co_ + "gerías" ; --# notpresent - VP (Cond Sg P3) => co_ + "gería" ; --# notpresent - VP (Cond Pl P1) => co_ + "geríamos" ; --# notpresent - VP (Cond Pl P2) => co_ + "geríais" ; --# notpresent - VP (Cond Pl P3) => co_ + "gerían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => co_ + "ge" ; - VP (Imp Sg P3) => co_ + "ja" ; - VP (Imp Pl P1) => co_ + "jamos" ; - VP (Imp Pl P2) => co_ + "ged" ; - VP (Imp Pl P3) => co_ + "jan" ; - VP (Pass Sg Masc) => co_ + "gido" ; - VP (Pass Sg Fem) => co_ + "gida" ; - VP (Pass Pl Masc) => co_ + "gidos" ; - VP (Pass Pl Fem) => co_ + "gidas" - } - } ; -oper colgar_24 : Str -> Verbum = \colgar -> - let c_ = Predef.tk 5 colgar in - {s = table { - VI Infn => c_ + "olgar" ; - VI Ger => c_ + "olgando" ; - VI Part => c_ + "olgado" ; - VP (Pres Ind Sg P1) => c_ + "uelgo" ; - VP (Pres Ind Sg P2) => c_ + "uelgas" ; - VP (Pres Ind Sg P3) => c_ + "uelga" ; - VP (Pres Ind Pl P1) => c_ + "olgamos" ; - VP (Pres Ind Pl P2) => c_ + "olgáis" ; - VP (Pres Ind Pl P3) => c_ + "uelgan" ; - VP (Pres Subj Sg P1) => c_ + "uelgue" ; - VP (Pres Subj Sg P2) => c_ + "uelgues" ; - VP (Pres Subj Sg P3) => c_ + "uelgue" ; - VP (Pres Subj Pl P1) => c_ + "olguemos" ; - VP (Pres Subj Pl P2) => c_ + "olguéis" ; - VP (Pres Subj Pl P3) => c_ + "uelguen" ; - VP (Impf Ind Sg P1) => c_ + "olgaba" ; --# notpresent - VP (Impf Ind Sg P2) => c_ + "olgabas" ; --# notpresent - VP (Impf Ind Sg P3) => c_ + "olgaba" ; --# notpresent - VP (Impf Ind Pl P1) => c_ + "olgábamos" ; --# notpresent - VP (Impf Ind Pl P2) => c_ + "olgabais" ; --# notpresent - VP (Impf Ind Pl P3) => c_ + "olgaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {c_ + "olgara" ; c_ + "olgase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {c_ + "olgaras" ; c_ + "olgases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {c_ + "olgara" ; c_ + "olgase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {c_ + "olgáramos" ; c_ + "olgásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {c_ + "olgarais" ; c_ + "olgaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {c_ + "olgaran" ; c_ + "olgasen"} ; --# notpresent - VP (Pret Sg P1) => c_ + "olgué" ; --# notpresent - VP (Pret Sg P2) => c_ + "olgaste" ; --# notpresent - VP (Pret Sg P3) => c_ + "olgó" ; --# notpresent - VP (Pret Pl P1) => c_ + "olgamos" ; --# notpresent - VP (Pret Pl P2) => c_ + "olgasteis" ; --# notpresent - VP (Pret Pl P3) => c_ + "olgaron" ; --# notpresent - VP (Fut Ind Sg P1) => c_ + "olgaré" ; --# notpresent - VP (Fut Ind Sg P2) => c_ + "olgarás" ; --# notpresent - VP (Fut Ind Sg P3) => c_ + "olgará" ; --# notpresent - VP (Fut Ind Pl P1) => c_ + "olgaremos" ; --# notpresent - VP (Fut Ind Pl P2) => c_ + "olgaréis" ; --# notpresent - VP (Fut Ind Pl P3) => c_ + "olgarán" ; --# notpresent - VP (Fut Subj Sg P1) => c_ + "olgare" ; --# notpresent - VP (Fut Subj Sg P2) => c_ + "olgares" ; --# notpresent - VP (Fut Subj Sg P3) => c_ + "olgare" ; --# notpresent - VP (Fut Subj Pl P1) => c_ + "olgáremos" ; --# notpresent - VP (Fut Subj Pl P2) => c_ + "olgareis" ; --# notpresent - VP (Fut Subj Pl P3) => c_ + "olgaren" ; --# notpresent - VP (Cond Sg P1) => c_ + "olgaría" ; --# notpresent - VP (Cond Sg P2) => c_ + "olgarías" ; --# notpresent - VP (Cond Sg P3) => c_ + "olgaría" ; --# notpresent - VP (Cond Pl P1) => c_ + "olgaríamos" ; --# notpresent - VP (Cond Pl P2) => c_ + "olgaríais" ; --# notpresent - VP (Cond Pl P3) => c_ + "olgarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => c_ + "uelga" ; - VP (Imp Sg P3) => c_ + "uelgue" ; - VP (Imp Pl P1) => c_ + "olguemos" ; - VP (Imp Pl P2) => c_ + "olgad" ; - VP (Imp Pl P3) => c_ + "uelguen" ; - VP (Pass Sg Masc) => c_ + "olgado" ; - VP (Pass Sg Fem) => c_ + "olgada" ; - VP (Pass Pl Masc) => c_ + "olgados" ; - VP (Pass Pl Fem) => c_ + "olgadas" - } - } ; -oper conocer_25 : Str -> Verbum = \conocer -> - let cono_ = Predef.tk 3 conocer in - {s = table { - VI Infn => cono_ + "cer" ; - VI Ger => cono_ + "ciendo" ; - VI Part => cono_ + "cido" ; - VP (Pres Ind Sg P1) => cono_ + "zco" ; - VP (Pres Ind Sg P2) => cono_ + "ces" ; - VP (Pres Ind Sg P3) => cono_ + "ce" ; - VP (Pres Ind Pl P1) => cono_ + "cemos" ; - VP (Pres Ind Pl P2) => cono_ + "céis" ; - VP (Pres Ind Pl P3) => cono_ + "cen" ; - VP (Pres Subj Sg P1) => cono_ + "zca" ; - VP (Pres Subj Sg P2) => cono_ + "zcas" ; - VP (Pres Subj Sg P3) => cono_ + "zca" ; - VP (Pres Subj Pl P1) => cono_ + "zcamos" ; - VP (Pres Subj Pl P2) => cono_ + "zcáis" ; - VP (Pres Subj Pl P3) => cono_ + "zcan" ; - VP (Impf Ind Sg P1) => cono_ + "cía" ; --# notpresent - VP (Impf Ind Sg P2) => cono_ + "cías" ; --# notpresent - VP (Impf Ind Sg P3) => cono_ + "cía" ; --# notpresent - VP (Impf Ind Pl P1) => cono_ + "cíamos" ; --# notpresent - VP (Impf Ind Pl P2) => cono_ + "cíais" ; --# notpresent - VP (Impf Ind Pl P3) => cono_ + "cían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {cono_ + "ciera" ; cono_ + "ciese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {cono_ + "cieras" ; cono_ + "cieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {cono_ + "ciera" ; cono_ + "ciese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {cono_ + "ciéramos" ; cono_ + "ciésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {cono_ + "cierais" ; cono_ + "cieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {cono_ + "cieran" ; cono_ + "ciesen"} ; --# notpresent - VP (Pret Sg P1) => cono_ + "cí" ; --# notpresent - VP (Pret Sg P2) => cono_ + "ciste" ; --# notpresent - VP (Pret Sg P3) => cono_ + "ció" ; --# notpresent - VP (Pret Pl P1) => cono_ + "cimos" ; --# notpresent - VP (Pret Pl P2) => cono_ + "cisteis" ; --# notpresent - VP (Pret Pl P3) => cono_ + "cieron" ; --# notpresent - VP (Fut Ind Sg P1) => cono_ + "ceré" ; --# notpresent - VP (Fut Ind Sg P2) => cono_ + "cerás" ; --# notpresent - VP (Fut Ind Sg P3) => cono_ + "cerá" ; --# notpresent - VP (Fut Ind Pl P1) => cono_ + "ceremos" ; --# notpresent - VP (Fut Ind Pl P2) => cono_ + "ceréis" ; --# notpresent - VP (Fut Ind Pl P3) => cono_ + "cerán" ; --# notpresent - VP (Fut Subj Sg P1) => cono_ + "ciere" ; --# notpresent - VP (Fut Subj Sg P2) => cono_ + "cieres" ; --# notpresent - VP (Fut Subj Sg P3) => cono_ + "ciere" ; --# notpresent - VP (Fut Subj Pl P1) => cono_ + "ciéremos" ; --# notpresent - VP (Fut Subj Pl P2) => cono_ + "ciereis" ; --# notpresent - VP (Fut Subj Pl P3) => cono_ + "cieren" ; --# notpresent - VP (Cond Sg P1) => cono_ + "cería" ; --# notpresent - VP (Cond Sg P2) => cono_ + "cerías" ; --# notpresent - VP (Cond Sg P3) => cono_ + "cería" ; --# notpresent - VP (Cond Pl P1) => cono_ + "ceríamos" ; --# notpresent - VP (Cond Pl P2) => cono_ + "ceríais" ; --# notpresent - VP (Cond Pl P3) => cono_ + "cerían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => cono_ + "ce" ; - VP (Imp Sg P3) => cono_ + "zca" ; - VP (Imp Pl P1) => cono_ + "zcamos" ; - VP (Imp Pl P2) => cono_ + "ced" ; - VP (Imp Pl P3) => cono_ + "zcan" ; - VP (Pass Sg Masc) => cono_ + "cido" ; - VP (Pass Sg Fem) => cono_ + "cida" ; - VP (Pass Pl Masc) => cono_ + "cidos" ; - VP (Pass Pl Fem) => cono_ + "cidas" - } - } ; -oper creer_26 : Str -> Verbum = \creer -> - let cre_ = Predef.tk 2 creer in - {s = table { - VI Infn => cre_ + "er" ; - VI Ger => cre_ + "yendo" ; - VI Part => cre_ + "ído" ; - VP (Pres Ind Sg P1) => cre_ + "o" ; - VP (Pres Ind Sg P2) => cre_ + "es" ; - VP (Pres Ind Sg P3) => cre_ + "e" ; - VP (Pres Ind Pl P1) => cre_ + "emos" ; - VP (Pres Ind Pl P2) => cre_ + "éis" ; - VP (Pres Ind Pl P3) => cre_ + "en" ; - VP (Pres Subj Sg P1) => cre_ + "a" ; - VP (Pres Subj Sg P2) => cre_ + "as" ; - VP (Pres Subj Sg P3) => cre_ + "a" ; - VP (Pres Subj Pl P1) => cre_ + "amos" ; - VP (Pres Subj Pl P2) => cre_ + "áis" ; - VP (Pres Subj Pl P3) => cre_ + "an" ; - VP (Impf Ind Sg P1) => cre_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => cre_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => cre_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => cre_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => cre_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => cre_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {cre_ + "yera" ; cre_ + "yese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {cre_ + "yeras" ; cre_ + "yeses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {cre_ + "yera" ; cre_ + "yese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {cre_ + "yéramos" ; cre_ + "yésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {cre_ + "yerais" ; cre_ + "yeseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {cre_ + "yeran" ; cre_ + "yesen"} ; --# notpresent - VP (Pret Sg P1) => cre_ + "í" ; --# notpresent - VP (Pret Sg P2) => cre_ + "íste" ; --# notpresent - VP (Pret Sg P3) => cre_ + "yó" ; --# notpresent - VP (Pret Pl P1) => cre_ + "ímos" ; --# notpresent - VP (Pret Pl P2) => cre_ + "ísteis" ; --# notpresent - VP (Pret Pl P3) => cre_ + "yeron" ; --# notpresent - VP (Fut Ind Sg P1) => cre_ + "eré" ; --# notpresent - VP (Fut Ind Sg P2) => cre_ + "erás" ; --# notpresent - VP (Fut Ind Sg P3) => cre_ + "erá" ; --# notpresent - VP (Fut Ind Pl P1) => cre_ + "eremos" ; --# notpresent - VP (Fut Ind Pl P2) => cre_ + "eréis" ; --# notpresent - VP (Fut Ind Pl P3) => cre_ + "erán" ; --# notpresent - VP (Fut Subj Sg P1) => cre_ + "yere" ; --# notpresent - VP (Fut Subj Sg P2) => cre_ + "yeres" ; --# notpresent - VP (Fut Subj Sg P3) => cre_ + "yere" ; --# notpresent - VP (Fut Subj Pl P1) => cre_ + "yéremos" ; --# notpresent - VP (Fut Subj Pl P2) => cre_ + "yereis" ; --# notpresent - VP (Fut Subj Pl P3) => cre_ + "yeren" ; --# notpresent - VP (Cond Sg P1) => cre_ + "ería" ; --# notpresent - VP (Cond Sg P2) => cre_ + "erías" ; --# notpresent - VP (Cond Sg P3) => cre_ + "ería" ; --# notpresent - VP (Cond Pl P1) => cre_ + "eríamos" ; --# notpresent - VP (Cond Pl P2) => cre_ + "eríais" ; --# notpresent - VP (Cond Pl P3) => cre_ + "erían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => cre_ + "e" ; - VP (Imp Sg P3) => cre_ + "a" ; - VP (Imp Pl P1) => cre_ + "amos" ; - VP (Imp Pl P2) => cre_ + "ed" ; - VP (Imp Pl P3) => cre_ + "an" ; - VP (Pass Sg Masc) => cre_ + "ído" ; - VP (Pass Sg Fem) => cre_ + "ída" ; - VP (Pass Pl Masc) => cre_ + "ídos" ; - VP (Pass Pl Fem) => cre_ + "ídas" - } - } ; -oper dar_27 : Str -> Verbum = \dar -> - let d_ = Predef.tk 2 dar in - {s = table { - VI Infn => d_ + "ar" ; - VI Ger => d_ + "ando" ; - VI Part => d_ + "ado" ; - VP (Pres Ind Sg P1) => d_ + "oy" ; - VP (Pres Ind Sg P2) => d_ + "as" ; - VP (Pres Ind Sg P3) => d_ + "a" ; - VP (Pres Ind Pl P1) => d_ + "amos" ; - VP (Pres Ind Pl P2) => d_ + "ais" ; - VP (Pres Ind Pl P3) => d_ + "an" ; - VP (Pres Subj Sg P1) => d_ + "é" ; - VP (Pres Subj Sg P2) => d_ + "es" ; - VP (Pres Subj Sg P3) => d_ + "é" ; - VP (Pres Subj Pl P1) => d_ + "emos" ; - VP (Pres Subj Pl P2) => d_ + "eis" ; - VP (Pres Subj Pl P3) => d_ + "en" ; - VP (Impf Ind Sg P1) => d_ + "aba" ; --# notpresent - VP (Impf Ind Sg P2) => d_ + "abas" ; --# notpresent - VP (Impf Ind Sg P3) => d_ + "aba" ; --# notpresent - VP (Impf Ind Pl P1) => d_ + "ábamos" ; --# notpresent - VP (Impf Ind Pl P2) => d_ + "abais" ; --# notpresent - VP (Impf Ind Pl P3) => d_ + "aban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {d_ + "iera" ; d_ + "iese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {d_ + "ieras" ; d_ + "ieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {d_ + "iera" ; d_ + "iese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {d_ + "iéramos" ; d_ + "iésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {d_ + "ierais" ; d_ + "ieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {d_ + "ieran" ; d_ + "iesen"} ; --# notpresent - VP (Pret Sg P1) => d_ + "i" ; --# notpresent - VP (Pret Sg P2) => d_ + "iste" ; --# notpresent - VP (Pret Sg P3) => d_ + "io" ; --# notpresent - VP (Pret Pl P1) => d_ + "imos" ; --# notpresent - VP (Pret Pl P2) => d_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => d_ + "ieron" ; --# notpresent - VP (Fut Ind Sg P1) => d_ + "aré" ; --# notpresent - VP (Fut Ind Sg P2) => d_ + "arás" ; --# notpresent - VP (Fut Ind Sg P3) => d_ + "ará" ; --# notpresent - VP (Fut Ind Pl P1) => d_ + "aremos" ; --# notpresent - VP (Fut Ind Pl P2) => d_ + "aréis" ; --# notpresent - VP (Fut Ind Pl P3) => d_ + "arán" ; --# notpresent - VP (Fut Subj Sg P1) => d_ + "iere" ; --# notpresent - VP (Fut Subj Sg P2) => d_ + "ieres" ; --# notpresent - VP (Fut Subj Sg P3) => d_ + "iere" ; --# notpresent - VP (Fut Subj Pl P1) => d_ + "iéremos" ; --# notpresent - VP (Fut Subj Pl P2) => d_ + "iereis" ; --# notpresent - VP (Fut Subj Pl P3) => d_ + "ieren" ; --# notpresent - VP (Cond Sg P1) => d_ + "aría" ; --# notpresent - VP (Cond Sg P2) => d_ + "arías" ; --# notpresent - VP (Cond Sg P3) => d_ + "aría" ; --# notpresent - VP (Cond Pl P1) => d_ + "aríamos" ; --# notpresent - VP (Cond Pl P2) => d_ + "aríais" ; --# notpresent - VP (Cond Pl P3) => d_ + "arían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => d_ + "a" ; - VP (Imp Sg P3) => d_ + "é" ; - VP (Imp Pl P1) => d_ + "emos" ; - VP (Imp Pl P2) => d_ + "ad" ; - VP (Imp Pl P3) => d_ + "en" ; - VP (Pass Sg Masc) => d_ + "ado" ; - VP (Pass Sg Fem) => d_ + "ada" ; - VP (Pass Pl Masc) => d_ + "ados" ; - VP (Pass Pl Fem) => d_ + "adas" - } - } ; -oper decir_28 : Str -> Verbum = \decir -> - let d_ = Predef.tk 4 decir in - {s = table { - VI Infn => d_ + "ecir" ; - VI Ger => d_ + "iciendo" ; - VI Part => d_ + "icho" ; - VP (Pres Ind Sg P1) => d_ + "igo" ; - VP (Pres Ind Sg P2) => d_ + "ices" ; - VP (Pres Ind Sg P3) => d_ + "ice" ; - VP (Pres Ind Pl P1) => d_ + "ecimos" ; - VP (Pres Ind Pl P2) => d_ + "ecís" ; - VP (Pres Ind Pl P3) => d_ + "icen" ; - VP (Pres Subj Sg P1) => d_ + "iga" ; - VP (Pres Subj Sg P2) => d_ + "igas" ; - VP (Pres Subj Sg P3) => d_ + "iga" ; - VP (Pres Subj Pl P1) => d_ + "igamos" ; - VP (Pres Subj Pl P2) => d_ + "igáis" ; - VP (Pres Subj Pl P3) => d_ + "igan" ; - VP (Impf Ind Sg P1) => d_ + "ecía" ; --# notpresent - VP (Impf Ind Sg P2) => d_ + "ecías" ; --# notpresent - VP (Impf Ind Sg P3) => d_ + "ecía" ; --# notpresent - VP (Impf Ind Pl P1) => d_ + "ecíamos" ; --# notpresent - VP (Impf Ind Pl P2) => d_ + "ecíais" ; --# notpresent - VP (Impf Ind Pl P3) => d_ + "ecían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {d_ + "ijera" ; d_ + "ijese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {d_ + "ijeras" ; d_ + "ijeses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {d_ + "ijera" ; d_ + "ijese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {d_ + "ijéramos" ; d_ + "ijésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {d_ + "ijerais" ; d_ + "ijeseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {d_ + "ijeran" ; d_ + "ijesen"} ; --# notpresent - VP (Pret Sg P1) => d_ + "ije" ; --# notpresent - VP (Pret Sg P2) => d_ + "ijiste" ; --# notpresent - VP (Pret Sg P3) => d_ + "ijo" ; --# notpresent - VP (Pret Pl P1) => d_ + "ijimos" ; --# notpresent - VP (Pret Pl P2) => d_ + "ijisteis" ; --# notpresent - VP (Pret Pl P3) => d_ + "ijeron" ; --# notpresent - VP (Fut Ind Sg P1) => d_ + "iré" ; --# notpresent - VP (Fut Ind Sg P2) => d_ + "irás" ; --# notpresent - VP (Fut Ind Sg P3) => d_ + "irá" ; --# notpresent - VP (Fut Ind Pl P1) => d_ + "iremos" ; --# notpresent - VP (Fut Ind Pl P2) => d_ + "iréis" ; --# notpresent - VP (Fut Ind Pl P3) => d_ + "irán" ; --# notpresent - VP (Fut Subj Sg P1) => d_ + "ijere" ; --# notpresent - VP (Fut Subj Sg P2) => d_ + "ijeres" ; --# notpresent - VP (Fut Subj Sg P3) => d_ + "ijere" ; --# notpresent - VP (Fut Subj Pl P1) => d_ + "ijéremos" ; --# notpresent - VP (Fut Subj Pl P2) => d_ + "ijereis" ; --# notpresent - VP (Fut Subj Pl P3) => d_ + "ijeren" ; --# notpresent - VP (Cond Sg P1) => d_ + "iría" ; --# notpresent - VP (Cond Sg P2) => d_ + "irías" ; --# notpresent - VP (Cond Sg P3) => d_ + "iría" ; --# notpresent - VP (Cond Pl P1) => d_ + "iríamos" ; --# notpresent - VP (Cond Pl P2) => d_ + "iríais" ; --# notpresent - VP (Cond Pl P3) => d_ + "irían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => d_ + "i" ; - VP (Imp Sg P3) => d_ + "iga" ; - VP (Imp Pl P1) => d_ + "igamos" ; - VP (Imp Pl P2) => d_ + "ecid" ; - VP (Imp Pl P3) => d_ + "igan" ; - VP (Pass Sg Masc) => d_ + "icho" ; - VP (Pass Sg Fem) => d_ + "icha" ; - VP (Pass Pl Masc) => d_ + "ichos" ; - VP (Pass Pl Fem) => d_ + "ichas" - } - } ; -oper defender_29 : Str -> Verbum = \defender -> - let - def_ = Predef.tk 5 defender ; - nd_ = Predef.tk 2 (Predef.dp 4 defender) - in - {s = table { - VI Infn => def_ + "e" + nd_ + "er" ; - VI Ger => def_ + "e" + nd_ + "iendo" ; - VI Part => def_ + "e" + nd_ + "ido" ; - VP (Pres Ind Sg P1) => def_ + "ie" + nd_ + "o" ; - VP (Pres Ind Sg P2) => def_ + "ie" + nd_ + "es" ; - VP (Pres Ind Sg P3) => def_ + "ie" + nd_ + "e" ; - VP (Pres Ind Pl P1) => def_ + "e" + nd_ + "emos" ; - VP (Pres Ind Pl P2) => def_ + "e" + nd_ + "éis" ; - VP (Pres Ind Pl P3) => def_ + "ie" + nd_ + "en" ; - VP (Pres Subj Sg P1) => def_ + "ie" + nd_ + "a" ; - VP (Pres Subj Sg P2) => def_ + "ie" + nd_ + "as" ; - VP (Pres Subj Sg P3) => def_ + "ie" + nd_ + "a" ; - VP (Pres Subj Pl P1) => def_ + "e" + nd_ + "amos" ; - VP (Pres Subj Pl P2) => def_ + "e" + nd_ + "áis" ; - VP (Pres Subj Pl P3) => def_ + "ie" + nd_ + "an" ; - VP (Impf Ind Sg P1) => def_ + "e" + nd_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => def_ + "e" + nd_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => def_ + "e" + nd_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => def_ + "e" + nd_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => def_ + "e" + nd_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => def_ + "e" + nd_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {def_ + "e" + nd_ + "iera" ; def_ + "e" + nd_ + "iese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {def_ + "e" + nd_ + "ieras" ; def_ + "e" + nd_ + "ieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {def_ + "e" + nd_ + "iera" ; def_ + "e" + nd_ + "iese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {def_ + "e" + nd_ + "iéramos" ; def_ + "e" + nd_ + "iésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {def_ + "e" + nd_ + "ierais" ; def_ + "e" + nd_ + "ieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {def_ + "e" + nd_ + "ieran" ; def_ + "e" + nd_ + "iesen"} ; --# notpresent - VP (Pret Sg P1) => def_ + "e" + nd_ + "í" ; --# notpresent - VP (Pret Sg P2) => def_ + "e" + nd_ + "iste" ; --# notpresent - VP (Pret Sg P3) => def_ + "e" + nd_ + "ió" ; --# notpresent - VP (Pret Pl P1) => def_ + "e" + nd_ + "imos" ; --# notpresent - VP (Pret Pl P2) => def_ + "e" + nd_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => def_ + "e" + nd_ + "ieron" ; --# notpresent - VP (Fut Ind Sg P1) => def_ + "e" + nd_ + "eré" ; --# notpresent - VP (Fut Ind Sg P2) => def_ + "e" + nd_ + "erás" ; --# notpresent - VP (Fut Ind Sg P3) => def_ + "e" + nd_ + "erá" ; --# notpresent - VP (Fut Ind Pl P1) => def_ + "e" + nd_ + "eremos" ; --# notpresent - VP (Fut Ind Pl P2) => def_ + "e" + nd_ + "eréis" ; --# notpresent - VP (Fut Ind Pl P3) => def_ + "e" + nd_ + "erán" ; --# notpresent - VP (Fut Subj Sg P1) => def_ + "e" + nd_ + "iere" ; --# notpresent - VP (Fut Subj Sg P2) => def_ + "e" + nd_ + "ieres" ; --# notpresent - VP (Fut Subj Sg P3) => def_ + "e" + nd_ + "iere" ; --# notpresent - VP (Fut Subj Pl P1) => def_ + "e" + nd_ + "iéremos" ; --# notpresent - VP (Fut Subj Pl P2) => def_ + "e" + nd_ + "iereis" ; --# notpresent - VP (Fut Subj Pl P3) => def_ + "e" + nd_ + "ieren" ; --# notpresent - VP (Cond Sg P1) => def_ + "e" + nd_ + "ería" ; --# notpresent - VP (Cond Sg P2) => def_ + "e" + nd_ + "erías" ; --# notpresent - VP (Cond Sg P3) => def_ + "e" + nd_ + "ería" ; --# notpresent - VP (Cond Pl P1) => def_ + "e" + nd_ + "eríamos" ; --# notpresent - VP (Cond Pl P2) => def_ + "e" + nd_ + "eríais" ; --# notpresent - VP (Cond Pl P3) => def_ + "e" + nd_ + "erían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => def_ + "ie" + nd_ + "e" ; - VP (Imp Sg P3) => def_ + "ie" + nd_ + "a" ; - VP (Imp Pl P1) => def_ + "e" + nd_ + "amos" ; - VP (Imp Pl P2) => def_ + "e" + nd_ + "ed" ; - VP (Imp Pl P3) => def_ + "ie" + nd_ + "an" ; - VP (Pass Sg Masc) => def_ + "e" + nd_ + "ido" ; - VP (Pass Sg Fem) => def_ + "e" + nd_ + "ida" ; - VP (Pass Pl Masc) => def_ + "e" + nd_ + "idos" ; - VP (Pass Pl Fem) => def_ + "e" + nd_ + "idas" - } - } ; -oper delinquir_30 : Str -> Verbum = \delinquir -> - let delin_ = Predef.tk 4 delinquir in - {s = table { - VI Infn => delin_ + "quir" ; - VI Ger => delin_ + "quiendo" ; - VI Part => delin_ + "quido" ; - VP (Pres Ind Sg P1) => delin_ + "co" ; - VP (Pres Ind Sg P2) => delin_ + "ques" ; - VP (Pres Ind Sg P3) => delin_ + "que" ; - VP (Pres Ind Pl P1) => delin_ + "quimos" ; - VP (Pres Ind Pl P2) => delin_ + "quís" ; - VP (Pres Ind Pl P3) => delin_ + "quen" ; - VP (Pres Subj Sg P1) => delin_ + "ca" ; - VP (Pres Subj Sg P2) => delin_ + "cas" ; - VP (Pres Subj Sg P3) => delin_ + "ca" ; - VP (Pres Subj Pl P1) => delin_ + "camos" ; - VP (Pres Subj Pl P2) => delin_ + "cáis" ; - VP (Pres Subj Pl P3) => delin_ + "can" ; - VP (Impf Ind Sg P1) => delin_ + "quía" ; --# notpresent - VP (Impf Ind Sg P2) => delin_ + "quías" ; --# notpresent - VP (Impf Ind Sg P3) => delin_ + "quía" ; --# notpresent - VP (Impf Ind Pl P1) => delin_ + "quíamos" ; --# notpresent - VP (Impf Ind Pl P2) => delin_ + "quíais" ; --# notpresent - VP (Impf Ind Pl P3) => delin_ + "quían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {delin_ + "quiera" ; delin_ + "quiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {delin_ + "quieras" ; delin_ + "quieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {delin_ + "quiera" ; delin_ + "quiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {delin_ + "quiéramos" ; delin_ + "quiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {delin_ + "quierais" ; delin_ + "quieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {delin_ + "quieran" ; delin_ + "quiesen"} ; --# notpresent - VP (Pret Sg P1) => delin_ + "quí" ; --# notpresent - VP (Pret Sg P2) => delin_ + "quiste" ; --# notpresent - VP (Pret Sg P3) => delin_ + "quió" ; --# notpresent - VP (Pret Pl P1) => delin_ + "quimos" ; --# notpresent - VP (Pret Pl P2) => delin_ + "quisteis" ; --# notpresent - VP (Pret Pl P3) => delin_ + "quieron" ; --# notpresent - VP (Fut Ind Sg P1) => delin_ + "quiré" ; --# notpresent - VP (Fut Ind Sg P2) => delin_ + "quirás" ; --# notpresent - VP (Fut Ind Sg P3) => delin_ + "quirá" ; --# notpresent - VP (Fut Ind Pl P1) => delin_ + "quiremos" ; --# notpresent - VP (Fut Ind Pl P2) => delin_ + "quiréis" ; --# notpresent - VP (Fut Ind Pl P3) => delin_ + "quirán" ; --# notpresent - VP (Fut Subj Sg P1) => delin_ + "quiere" ; --# notpresent - VP (Fut Subj Sg P2) => delin_ + "quieres" ; --# notpresent - VP (Fut Subj Sg P3) => delin_ + "quiere" ; --# notpresent - VP (Fut Subj Pl P1) => delin_ + "quiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => delin_ + "quiereis" ; --# notpresent - VP (Fut Subj Pl P3) => delin_ + "quieren" ; --# notpresent - VP (Cond Sg P1) => delin_ + "quiría" ; --# notpresent - VP (Cond Sg P2) => delin_ + "quirías" ; --# notpresent - VP (Cond Sg P3) => delin_ + "quiría" ; --# notpresent - VP (Cond Pl P1) => delin_ + "quiríamos" ; --# notpresent - VP (Cond Pl P2) => delin_ + "quiríais" ; --# notpresent - VP (Cond Pl P3) => delin_ + "quirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => delin_ + "que" ; - VP (Imp Sg P3) => delin_ + "ca" ; - VP (Imp Pl P1) => delin_ + "camos" ; - VP (Imp Pl P2) => delin_ + "quid" ; - VP (Imp Pl P3) => delin_ + "can" ; - VP (Pass Sg Masc) => delin_ + "quido" ; - VP (Pass Sg Fem) => delin_ + "quida" ; - VP (Pass Pl Masc) => delin_ + "quidos" ; - VP (Pass Pl Fem) => delin_ + "quidas" - } - } ; -oper desosar_31 : Str -> Verbum = \desosar -> - let des_ = Predef.tk 4 desosar in - {s = table { - VI Infn => des_ + "osar" ; - VI Ger => des_ + "osando" ; - VI Part => des_ + "osado" ; - VP (Pres Ind Sg P1) => des_ + "hueso" ; - VP (Pres Ind Sg P2) => des_ + "huesas" ; - VP (Pres Ind Sg P3) => des_ + "huesa" ; - VP (Pres Ind Pl P1) => des_ + "osamos" ; - VP (Pres Ind Pl P2) => des_ + "osáis" ; - VP (Pres Ind Pl P3) => des_ + "huesan" ; - VP (Pres Subj Sg P1) => des_ + "huese" ; - VP (Pres Subj Sg P2) => des_ + "hueses" ; - VP (Pres Subj Sg P3) => des_ + "huese" ; - VP (Pres Subj Pl P1) => des_ + "osemos" ; - VP (Pres Subj Pl P2) => des_ + "oséis" ; - VP (Pres Subj Pl P3) => des_ + "huesen" ; - VP (Impf Ind Sg P1) => des_ + "osaba" ; --# notpresent - VP (Impf Ind Sg P2) => des_ + "osabas" ; --# notpresent - VP (Impf Ind Sg P3) => des_ + "osaba" ; --# notpresent - VP (Impf Ind Pl P1) => des_ + "osábamos" ; --# notpresent - VP (Impf Ind Pl P2) => des_ + "osabais" ; --# notpresent - VP (Impf Ind Pl P3) => des_ + "osaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {des_ + "osara" ; des_ + "osase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {des_ + "osaras" ; des_ + "osases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {des_ + "osara" ; des_ + "osase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {des_ + "osáramos" ; des_ + "osásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {des_ + "osarais" ; des_ + "osaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {des_ + "osaran" ; des_ + "osasen"} ; --# notpresent - VP (Pret Sg P1) => des_ + "osé" ; --# notpresent - VP (Pret Sg P2) => des_ + "osaste" ; --# notpresent - VP (Pret Sg P3) => des_ + "osó" ; --# notpresent - VP (Pret Pl P1) => des_ + "osamos" ; --# notpresent - VP (Pret Pl P2) => des_ + "osasteis" ; --# notpresent - VP (Pret Pl P3) => des_ + "osaron" ; --# notpresent - VP (Fut Ind Sg P1) => des_ + "osaré" ; --# notpresent - VP (Fut Ind Sg P2) => des_ + "osarás" ; --# notpresent - VP (Fut Ind Sg P3) => des_ + "osará" ; --# notpresent - VP (Fut Ind Pl P1) => des_ + "osaremos" ; --# notpresent - VP (Fut Ind Pl P2) => des_ + "osaréis" ; --# notpresent - VP (Fut Ind Pl P3) => des_ + "osarán" ; --# notpresent - VP (Fut Subj Sg P1) => des_ + "osare" ; --# notpresent - VP (Fut Subj Sg P2) => des_ + "osares" ; --# notpresent - VP (Fut Subj Sg P3) => des_ + "osare" ; --# notpresent - VP (Fut Subj Pl P1) => des_ + "osáremos" ; --# notpresent - VP (Fut Subj Pl P2) => des_ + "osareis" ; --# notpresent - VP (Fut Subj Pl P3) => des_ + "osaren" ; --# notpresent - VP (Cond Sg P1) => des_ + "osaría" ; --# notpresent - VP (Cond Sg P2) => des_ + "osarías" ; --# notpresent - VP (Cond Sg P3) => des_ + "osaría" ; --# notpresent - VP (Cond Pl P1) => des_ + "osaríamos" ; --# notpresent - VP (Cond Pl P2) => des_ + "osaríais" ; --# notpresent - VP (Cond Pl P3) => des_ + "osarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => des_ + "huesa" ; - VP (Imp Sg P3) => des_ + "huese" ; - VP (Imp Pl P1) => des_ + "osemos" ; - VP (Imp Pl P2) => des_ + "osad" ; - VP (Imp Pl P3) => des_ + "huesen" ; - VP (Pass Sg Masc) => des_ + "osado" ; - VP (Pass Sg Fem) => des_ + "osada" ; - VP (Pass Pl Masc) => des_ + "osados" ; - VP (Pass Pl Fem) => des_ + "osadas" - } - } ; -oper dirigir_32 : Str -> Verbum = \dirigir -> - let diri_ = Predef.tk 3 dirigir in - {s = table { - VI Infn => diri_ + "gir" ; - VI Ger => diri_ + "giendo" ; - VI Part => diri_ + "gido" ; - VP (Pres Ind Sg P1) => diri_ + "jo" ; - VP (Pres Ind Sg P2) => diri_ + "ges" ; - VP (Pres Ind Sg P3) => diri_ + "ge" ; - VP (Pres Ind Pl P1) => diri_ + "gimos" ; - VP (Pres Ind Pl P2) => diri_ + "gís" ; - VP (Pres Ind Pl P3) => diri_ + "gen" ; - VP (Pres Subj Sg P1) => diri_ + "ja" ; - VP (Pres Subj Sg P2) => diri_ + "jas" ; - VP (Pres Subj Sg P3) => diri_ + "ja" ; - VP (Pres Subj Pl P1) => diri_ + "jamos" ; - VP (Pres Subj Pl P2) => diri_ + "jáis" ; - VP (Pres Subj Pl P3) => diri_ + "jan" ; - VP (Impf Ind Sg P1) => diri_ + "gía" ; --# notpresent - VP (Impf Ind Sg P2) => diri_ + "gías" ; --# notpresent - VP (Impf Ind Sg P3) => diri_ + "gía" ; --# notpresent - VP (Impf Ind Pl P1) => diri_ + "gíamos" ; --# notpresent - VP (Impf Ind Pl P2) => diri_ + "gíais" ; --# notpresent - VP (Impf Ind Pl P3) => diri_ + "gían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {diri_ + "giera" ; diri_ + "giese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {diri_ + "gieras" ; diri_ + "gieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {diri_ + "giera" ; diri_ + "giese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {diri_ + "giéramos" ; diri_ + "giésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {diri_ + "gierais" ; diri_ + "gieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {diri_ + "gieran" ; diri_ + "giesen"} ; --# notpresent - VP (Pret Sg P1) => diri_ + "gí" ; --# notpresent - VP (Pret Sg P2) => diri_ + "giste" ; --# notpresent - VP (Pret Sg P3) => diri_ + "gió" ; --# notpresent - VP (Pret Pl P1) => diri_ + "gimos" ; --# notpresent - VP (Pret Pl P2) => diri_ + "gisteis" ; --# notpresent - VP (Pret Pl P3) => diri_ + "gieron" ; --# notpresent - VP (Fut Ind Sg P1) => diri_ + "giré" ; --# notpresent - VP (Fut Ind Sg P2) => diri_ + "girás" ; --# notpresent - VP (Fut Ind Sg P3) => diri_ + "girá" ; --# notpresent - VP (Fut Ind Pl P1) => diri_ + "giremos" ; --# notpresent - VP (Fut Ind Pl P2) => diri_ + "giréis" ; --# notpresent - VP (Fut Ind Pl P3) => diri_ + "girán" ; --# notpresent - VP (Fut Subj Sg P1) => diri_ + "giere" ; --# notpresent - VP (Fut Subj Sg P2) => diri_ + "gieres" ; --# notpresent - VP (Fut Subj Sg P3) => diri_ + "giere" ; --# notpresent - VP (Fut Subj Pl P1) => diri_ + "giéremos" ; --# notpresent - VP (Fut Subj Pl P2) => diri_ + "giereis" ; --# notpresent - VP (Fut Subj Pl P3) => diri_ + "gieren" ; --# notpresent - VP (Cond Sg P1) => diri_ + "giría" ; --# notpresent - VP (Cond Sg P2) => diri_ + "girías" ; --# notpresent - VP (Cond Sg P3) => diri_ + "giría" ; --# notpresent - VP (Cond Pl P1) => diri_ + "giríamos" ; --# notpresent - VP (Cond Pl P2) => diri_ + "giríais" ; --# notpresent - VP (Cond Pl P3) => diri_ + "girían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => diri_ + "ge" ; - VP (Imp Sg P3) => diri_ + "ja" ; - VP (Imp Pl P1) => diri_ + "jamos" ; - VP (Imp Pl P2) => diri_ + "gid" ; - VP (Imp Pl P3) => diri_ + "jan" ; - VP (Pass Sg Masc) => diri_ + "gido" ; - VP (Pass Sg Fem) => diri_ + "gida" ; - VP (Pass Pl Masc) => diri_ + "gidos" ; - VP (Pass Pl Fem) => diri_ + "gidas" - } - } ; -oper discernir_33 : Str -> Verbum = \discernir -> - let disc_ = Predef.tk 5 discernir in - {s = table { - VI Infn => disc_ + "ernir" ; - VI Ger => disc_ + "erniendo" ; - VI Part => disc_ + "ernido" ; - VP (Pres Ind Sg P1) => disc_ + "ierno" ; - VP (Pres Ind Sg P2) => disc_ + "iernes" ; - VP (Pres Ind Sg P3) => disc_ + "ierne" ; - VP (Pres Ind Pl P1) => disc_ + "ernimos" ; - VP (Pres Ind Pl P2) => disc_ + "ernís" ; - VP (Pres Ind Pl P3) => disc_ + "iernen" ; - VP (Pres Subj Sg P1) => disc_ + "ierna" ; - VP (Pres Subj Sg P2) => disc_ + "iernas" ; - VP (Pres Subj Sg P3) => disc_ + "ierna" ; - VP (Pres Subj Pl P1) => disc_ + "ernamos" ; - VP (Pres Subj Pl P2) => disc_ + "ernáis" ; - VP (Pres Subj Pl P3) => disc_ + "iernan" ; - VP (Impf Ind Sg P1) => disc_ + "ernía" ; --# notpresent - VP (Impf Ind Sg P2) => disc_ + "ernías" ; --# notpresent - VP (Impf Ind Sg P3) => disc_ + "ernía" ; --# notpresent - VP (Impf Ind Pl P1) => disc_ + "erníamos" ; --# notpresent - VP (Impf Ind Pl P2) => disc_ + "erníais" ; --# notpresent - VP (Impf Ind Pl P3) => disc_ + "ernían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {disc_ + "erniera" ; disc_ + "erniese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {disc_ + "ernieras" ; disc_ + "ernieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {disc_ + "erniera" ; disc_ + "erniese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {disc_ + "erniéramos" ; disc_ + "erniésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {disc_ + "ernierais" ; disc_ + "ernieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {disc_ + "ernieran" ; disc_ + "erniesen"} ; --# notpresent - VP (Pret Sg P1) => disc_ + "erní" ; --# notpresent - VP (Pret Sg P2) => disc_ + "erniste" ; --# notpresent - VP (Pret Sg P3) => disc_ + "ernió" ; --# notpresent - VP (Pret Pl P1) => disc_ + "ernimos" ; --# notpresent - VP (Pret Pl P2) => disc_ + "ernisteis" ; --# notpresent - VP (Pret Pl P3) => disc_ + "ernieron" ; --# notpresent - VP (Fut Ind Sg P1) => disc_ + "erniré" ; --# notpresent - VP (Fut Ind Sg P2) => disc_ + "ernirás" ; --# notpresent - VP (Fut Ind Sg P3) => disc_ + "ernirá" ; --# notpresent - VP (Fut Ind Pl P1) => disc_ + "erniremos" ; --# notpresent - VP (Fut Ind Pl P2) => disc_ + "erniréis" ; --# notpresent - VP (Fut Ind Pl P3) => disc_ + "ernirán" ; --# notpresent - VP (Fut Subj Sg P1) => disc_ + "erniere" ; --# notpresent - VP (Fut Subj Sg P2) => disc_ + "ernieres" ; --# notpresent - VP (Fut Subj Sg P3) => disc_ + "erniere" ; --# notpresent - VP (Fut Subj Pl P1) => disc_ + "erniéremos" ; --# notpresent - VP (Fut Subj Pl P2) => disc_ + "erniereis" ; --# notpresent - VP (Fut Subj Pl P3) => disc_ + "ernieren" ; --# notpresent - VP (Cond Sg P1) => disc_ + "erniría" ; --# notpresent - VP (Cond Sg P2) => disc_ + "ernirías" ; --# notpresent - VP (Cond Sg P3) => disc_ + "erniría" ; --# notpresent - VP (Cond Pl P1) => disc_ + "erniríamos" ; --# notpresent - VP (Cond Pl P2) => disc_ + "erniríais" ; --# notpresent - VP (Cond Pl P3) => disc_ + "ernirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => disc_ + "ierne" ; - VP (Imp Sg P3) => disc_ + "ierna" ; - VP (Imp Pl P1) => disc_ + "ernamos" ; - VP (Imp Pl P2) => disc_ + "ernid" ; - VP (Imp Pl P3) => disc_ + "iernan" ; - VP (Pass Sg Masc) => disc_ + "ernido" ; - VP (Pass Sg Fem) => disc_ + "ernida" ; - VP (Pass Pl Masc) => disc_ + "ernidos" ; - VP (Pass Pl Fem) => disc_ + "ernidas" - } - } ; -oper distinguir_34 : Str -> Verbum = \distinguir -> - let disting_ = Predef.tk 3 distinguir in - {s = table { - VI Infn => disting_ + "uir" ; - VI Ger => disting_ + "uiendo" ; - VI Part => disting_ + "uido" ; - VP (Pres Ind Sg P1) => disting_ + "o" ; - VP (Pres Ind Sg P2) => disting_ + "ues" ; - VP (Pres Ind Sg P3) => disting_ + "ue" ; - VP (Pres Ind Pl P1) => disting_ + "uimos" ; - VP (Pres Ind Pl P2) => disting_ + "uís" ; - VP (Pres Ind Pl P3) => disting_ + "uen" ; - VP (Pres Subj Sg P1) => disting_ + "a" ; - VP (Pres Subj Sg P2) => disting_ + "as" ; - VP (Pres Subj Sg P3) => disting_ + "a" ; - VP (Pres Subj Pl P1) => disting_ + "amos" ; - VP (Pres Subj Pl P2) => disting_ + "áis" ; - VP (Pres Subj Pl P3) => disting_ + "an" ; - VP (Impf Ind Sg P1) => disting_ + "uía" ; --# notpresent - VP (Impf Ind Sg P2) => disting_ + "uías" ; --# notpresent - VP (Impf Ind Sg P3) => disting_ + "uía" ; --# notpresent - VP (Impf Ind Pl P1) => disting_ + "uíamos" ; --# notpresent - VP (Impf Ind Pl P2) => disting_ + "uíais" ; --# notpresent - VP (Impf Ind Pl P3) => disting_ + "uían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {disting_ + "uiera" ; disting_ + "uiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {disting_ + "uieras" ; disting_ + "uieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {disting_ + "uiera" ; disting_ + "uiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {disting_ + "uiéramos" ; disting_ + "uiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {disting_ + "uierais" ; disting_ + "uieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {disting_ + "uieran" ; disting_ + "uiesen"} ; --# notpresent - VP (Pret Sg P1) => disting_ + "uí" ; --# notpresent - VP (Pret Sg P2) => disting_ + "uiste" ; --# notpresent - VP (Pret Sg P3) => disting_ + "uió" ; --# notpresent - VP (Pret Pl P1) => disting_ + "uimos" ; --# notpresent - VP (Pret Pl P2) => disting_ + "uisteis" ; --# notpresent - VP (Pret Pl P3) => disting_ + "uieron" ; --# notpresent - VP (Fut Ind Sg P1) => disting_ + "uiré" ; --# notpresent - VP (Fut Ind Sg P2) => disting_ + "uirás" ; --# notpresent - VP (Fut Ind Sg P3) => disting_ + "uirá" ; --# notpresent - VP (Fut Ind Pl P1) => disting_ + "uiremos" ; --# notpresent - VP (Fut Ind Pl P2) => disting_ + "uiréis" ; --# notpresent - VP (Fut Ind Pl P3) => disting_ + "uirán" ; --# notpresent - VP (Fut Subj Sg P1) => disting_ + "uiere" ; --# notpresent - VP (Fut Subj Sg P2) => disting_ + "uieres" ; --# notpresent - VP (Fut Subj Sg P3) => disting_ + "uiere" ; --# notpresent - VP (Fut Subj Pl P1) => disting_ + "uiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => disting_ + "uiereis" ; --# notpresent - VP (Fut Subj Pl P3) => disting_ + "uieren" ; --# notpresent - VP (Cond Sg P1) => disting_ + "uiría" ; --# notpresent - VP (Cond Sg P2) => disting_ + "uirías" ; --# notpresent - VP (Cond Sg P3) => disting_ + "uiría" ; --# notpresent - VP (Cond Pl P1) => disting_ + "uiríamos" ; --# notpresent - VP (Cond Pl P2) => disting_ + "uiríais" ; --# notpresent - VP (Cond Pl P3) => disting_ + "uirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => disting_ + "ue" ; - VP (Imp Sg P3) => disting_ + "a" ; - VP (Imp Pl P1) => disting_ + "amos" ; - VP (Imp Pl P2) => disting_ + "uid" ; - VP (Imp Pl P3) => disting_ + "an" ; - VP (Pass Sg Masc) => disting_ + "uido" ; - VP (Pass Sg Fem) => disting_ + "uida" ; - VP (Pass Pl Masc) => disting_ + "uidos" ; - VP (Pass Pl Fem) => disting_ + "uidas" - } - } ; -oper dormir_35 : Str -> Verbum = \dormir -> - let d_ = Predef.tk 5 dormir in - {s = table { - VI Infn => d_ + "ormir" ; - VI Ger => d_ + "urmiendo" ; - VI Part => d_ + "ormido" ; - VP (Pres Ind Sg P1) => d_ + "uermo" ; - VP (Pres Ind Sg P2) => d_ + "uermes" ; - VP (Pres Ind Sg P3) => d_ + "uerme" ; - VP (Pres Ind Pl P1) => d_ + "ormimos" ; - VP (Pres Ind Pl P2) => d_ + "ormís" ; - VP (Pres Ind Pl P3) => d_ + "uermen" ; - VP (Pres Subj Sg P1) => d_ + "uerma" ; - VP (Pres Subj Sg P2) => d_ + "uermas" ; - VP (Pres Subj Sg P3) => d_ + "uerma" ; - VP (Pres Subj Pl P1) => d_ + "urmamos" ; - VP (Pres Subj Pl P2) => d_ + "urmáis" ; - VP (Pres Subj Pl P3) => d_ + "uerman" ; - VP (Impf Ind Sg P1) => d_ + "ormía" ; --# notpresent - VP (Impf Ind Sg P2) => d_ + "ormías" ; --# notpresent - VP (Impf Ind Sg P3) => d_ + "ormía" ; --# notpresent - VP (Impf Ind Pl P1) => d_ + "ormíamos" ; --# notpresent - VP (Impf Ind Pl P2) => d_ + "ormíais" ; --# notpresent - VP (Impf Ind Pl P3) => d_ + "ormían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {d_ + "urmiera" ; d_ + "urmiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {d_ + "urmieras" ; d_ + "urmieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {d_ + "urmiera" ; d_ + "urmiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {d_ + "urmiéramos" ; d_ + "urmiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {d_ + "urmierais" ; d_ + "urmieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {d_ + "urmieran" ; d_ + "urmiesen"} ; --# notpresent - VP (Pret Sg P1) => d_ + "ormí" ; --# notpresent - VP (Pret Sg P2) => d_ + "ormiste" ; --# notpresent - VP (Pret Sg P3) => d_ + "urmió" ; --# notpresent - VP (Pret Pl P1) => d_ + "ormimos" ; --# notpresent - VP (Pret Pl P2) => d_ + "ormisteis" ; --# notpresent - VP (Pret Pl P3) => d_ + "urmieron" ; --# notpresent - VP (Fut Ind Sg P1) => d_ + "ormiré" ; --# notpresent - VP (Fut Ind Sg P2) => d_ + "ormirás" ; --# notpresent - VP (Fut Ind Sg P3) => d_ + "ormirá" ; --# notpresent - VP (Fut Ind Pl P1) => d_ + "ormiremos" ; --# notpresent - VP (Fut Ind Pl P2) => d_ + "ormiréis" ; --# notpresent - VP (Fut Ind Pl P3) => d_ + "ormirán" ; --# notpresent - VP (Fut Subj Sg P1) => d_ + "urmiere" ; --# notpresent - VP (Fut Subj Sg P2) => d_ + "urmieres" ; --# notpresent - VP (Fut Subj Sg P3) => d_ + "urmiere" ; --# notpresent - VP (Fut Subj Pl P1) => d_ + "urmiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => d_ + "urmiereis" ; --# notpresent - VP (Fut Subj Pl P3) => d_ + "urmieren" ; --# notpresent - VP (Cond Sg P1) => d_ + "ormiría" ; --# notpresent - VP (Cond Sg P2) => d_ + "ormirías" ; --# notpresent - VP (Cond Sg P3) => d_ + "ormiría" ; --# notpresent - VP (Cond Pl P1) => d_ + "ormiríamos" ; --# notpresent - VP (Cond Pl P2) => d_ + "ormiríais" ; --# notpresent - VP (Cond Pl P3) => d_ + "ormirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => d_ + "uerme" ; - VP (Imp Sg P3) => d_ + "uerma" ; - VP (Imp Pl P1) => d_ + "urmamos" ; - VP (Imp Pl P2) => d_ + "ormid" ; - VP (Imp Pl P3) => d_ + "uerman" ; - VP (Pass Sg Masc) => d_ + "ormido" ; - VP (Pass Sg Fem) => d_ + "ormida" ; - VP (Pass Pl Masc) => d_ + "ormidos" ; - VP (Pass Pl Fem) => d_ + "ormidas" - } - } ; -oper morir_35b : Str -> Verbum = \morir -> - let d_ = Predef.tk 4 morir in - {s = table { - VI Infn => d_ + "orir" ; - VI Ger => d_ + "uriendo" ; - VI Part => d_ + "orido" ; - VP (Pres Ind Sg P1) => d_ + "uero" ; - VP (Pres Ind Sg P2) => d_ + "ueres" ; - VP (Pres Ind Sg P3) => d_ + "uere" ; - VP (Pres Ind Pl P1) => d_ + "orimos" ; - VP (Pres Ind Pl P2) => d_ + "orís" ; - VP (Pres Ind Pl P3) => d_ + "ueren" ; - VP (Pres Subj Sg P1) => d_ + "uera" ; - VP (Pres Subj Sg P2) => d_ + "ueras" ; - VP (Pres Subj Sg P3) => d_ + "uera" ; - VP (Pres Subj Pl P1) => d_ + "uramos" ; - VP (Pres Subj Pl P2) => d_ + "uráis" ; - VP (Pres Subj Pl P3) => d_ + "ueran" ; - VP (Impf Ind Sg P1) => d_ + "oría" ; --# notpresent - VP (Impf Ind Sg P2) => d_ + "orías" ; --# notpresent - VP (Impf Ind Sg P3) => d_ + "oría" ; --# notpresent - VP (Impf Ind Pl P1) => d_ + "oríamos" ; --# notpresent - VP (Impf Ind Pl P2) => d_ + "oríais" ; --# notpresent - VP (Impf Ind Pl P3) => d_ + "orían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {d_ + "uriera" ; d_ + "uriese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {d_ + "urieras" ; d_ + "urieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {d_ + "uriera" ; d_ + "uriese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {d_ + "uriéramos" ; d_ + "uriésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {d_ + "urierais" ; d_ + "urieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {d_ + "urieran" ; d_ + "uriesen"} ; --# notpresent - VP (Pret Sg P1) => d_ + "orí" ; --# notpresent - VP (Pret Sg P2) => d_ + "oriste" ; --# notpresent - VP (Pret Sg P3) => d_ + "urió" ; --# notpresent - VP (Pret Pl P1) => d_ + "orimos" ; --# notpresent - VP (Pret Pl P2) => d_ + "oristeis" ; --# notpresent - VP (Pret Pl P3) => d_ + "urieron" ; --# notpresent - VP (Fut Ind Sg P1) => d_ + "oriré" ; --# notpresent - VP (Fut Ind Sg P2) => d_ + "orirás" ; --# notpresent - VP (Fut Ind Sg P3) => d_ + "orirá" ; --# notpresent - VP (Fut Ind Pl P1) => d_ + "oriremos" ; --# notpresent - VP (Fut Ind Pl P2) => d_ + "oriréis" ; --# notpresent - VP (Fut Ind Pl P3) => d_ + "orirán" ; --# notpresent - VP (Fut Subj Sg P1) => d_ + "uriere" ; --# notpresent - VP (Fut Subj Sg P2) => d_ + "urieres" ; --# notpresent - VP (Fut Subj Sg P3) => d_ + "uriere" ; --# notpresent - VP (Fut Subj Pl P1) => d_ + "uriéremos" ; --# notpresent - VP (Fut Subj Pl P2) => d_ + "uriereis" ; --# notpresent - VP (Fut Subj Pl P3) => d_ + "urieren" ; --# notpresent - VP (Cond Sg P1) => d_ + "oriría" ; --# notpresent - VP (Cond Sg P2) => d_ + "orirías" ; --# notpresent - VP (Cond Sg P3) => d_ + "oriría" ; --# notpresent - VP (Cond Pl P1) => d_ + "oriríamos" ; --# notpresent - VP (Cond Pl P2) => d_ + "oriríais" ; --# notpresent - VP (Cond Pl P3) => d_ + "orirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => d_ + "uere" ; - VP (Imp Sg P3) => d_ + "uera" ; - VP (Imp Pl P1) => d_ + "uramos" ; - VP (Imp Pl P2) => d_ + "orid" ; - VP (Imp Pl P3) => d_ + "ueran" ; - VP (Pass Sg Masc) => d_ + "orido" ; - VP (Pass Sg Fem) => d_ + "orida" ; - VP (Pass Pl Masc) => d_ + "oridos" ; - VP (Pass Pl Fem) => d_ + "oridas" - } - } ; -oper elegir_36 : Str -> Verbum = \elegir -> - let el_ = Predef.tk 4 elegir in - {s = table { - VI Infn => el_ + "egir" ; - VI Ger => el_ + "igiendo" ; - VI Part => variants {el_ + "egido" ; el_ + "ecto"} ; - VP (Pres Ind Sg P1) => el_ + "ijo" ; - VP (Pres Ind Sg P2) => el_ + "iges" ; - VP (Pres Ind Sg P3) => el_ + "ige" ; - VP (Pres Ind Pl P1) => el_ + "egimos" ; - VP (Pres Ind Pl P2) => el_ + "egís" ; - VP (Pres Ind Pl P3) => el_ + "igen" ; - VP (Pres Subj Sg P1) => el_ + "ija" ; - VP (Pres Subj Sg P2) => el_ + "ijas" ; - VP (Pres Subj Sg P3) => el_ + "ija" ; - VP (Pres Subj Pl P1) => el_ + "ijamos" ; - VP (Pres Subj Pl P2) => el_ + "ijáis" ; - VP (Pres Subj Pl P3) => el_ + "ijan" ; - VP (Impf Ind Sg P1) => el_ + "egía" ; --# notpresent - VP (Impf Ind Sg P2) => el_ + "egías" ; --# notpresent - VP (Impf Ind Sg P3) => el_ + "egía" ; --# notpresent - VP (Impf Ind Pl P1) => el_ + "egíamos" ; --# notpresent - VP (Impf Ind Pl P2) => el_ + "egíais" ; --# notpresent - VP (Impf Ind Pl P3) => el_ + "egían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {el_ + "igiera" ; el_ + "igiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {el_ + "igieras" ; el_ + "igieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {el_ + "igiera" ; el_ + "igiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {el_ + "igiéramos" ; el_ + "igiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {el_ + "igierais" ; el_ + "igieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {el_ + "igieran" ; el_ + "igiesen"} ; --# notpresent - VP (Pret Sg P1) => el_ + "egí" ; --# notpresent - VP (Pret Sg P2) => el_ + "egiste" ; --# notpresent - VP (Pret Sg P3) => el_ + "igió" ; --# notpresent - VP (Pret Pl P1) => el_ + "egimos" ; --# notpresent - VP (Pret Pl P2) => el_ + "egisteis" ; --# notpresent - VP (Pret Pl P3) => el_ + "igieron" ; --# notpresent - VP (Fut Ind Sg P1) => el_ + "egiré" ; --# notpresent - VP (Fut Ind Sg P2) => el_ + "egirás" ; --# notpresent - VP (Fut Ind Sg P3) => el_ + "egirá" ; --# notpresent - VP (Fut Ind Pl P1) => el_ + "egiremos" ; --# notpresent - VP (Fut Ind Pl P2) => el_ + "egiréis" ; --# notpresent - VP (Fut Ind Pl P3) => el_ + "egirán" ; --# notpresent - VP (Fut Subj Sg P1) => el_ + "igiere" ; --# notpresent - VP (Fut Subj Sg P2) => el_ + "igieres" ; --# notpresent - VP (Fut Subj Sg P3) => el_ + "igiere" ; --# notpresent - VP (Fut Subj Pl P1) => el_ + "igiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => el_ + "igiereis" ; --# notpresent - VP (Fut Subj Pl P3) => el_ + "igieren" ; --# notpresent - VP (Cond Sg P1) => el_ + "egiría" ; --# notpresent - VP (Cond Sg P2) => el_ + "egirías" ; --# notpresent - VP (Cond Sg P3) => el_ + "egiría" ; --# notpresent - VP (Cond Pl P1) => el_ + "egiríamos" ; --# notpresent - VP (Cond Pl P2) => el_ + "egiríais" ; --# notpresent - VP (Cond Pl P3) => el_ + "egirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => el_ + "ige" ; - VP (Imp Sg P3) => el_ + "ija" ; - VP (Imp Pl P1) => el_ + "ijamos" ; - VP (Imp Pl P2) => el_ + "egid" ; - VP (Imp Pl P3) => el_ + "ijan" ; - VP (Pass Sg Masc) => variants {el_ + "egido" ; el_ + "ecto"} ; - VP (Pass Sg Fem) => variants {el_ + "egida" ; el_ + "ecta"} ; - VP (Pass Pl Masc) => variants {el_ + "egidos" ; el_ + "ectos"} ; - VP (Pass Pl Fem) => variants {el_ + "egidas" ; el_ + "ectas"} - } - } ; -oper empezar_37 : Str -> Verbum = \empezar -> - let emp_ = Predef.tk 4 empezar in - {s = table { - VI Infn => emp_ + "ezar" ; - VI Ger => emp_ + "ezando" ; - VI Part => emp_ + "ezado" ; - VP (Pres Ind Sg P1) => emp_ + "iezo" ; - VP (Pres Ind Sg P2) => emp_ + "iezas" ; - VP (Pres Ind Sg P3) => emp_ + "ieza" ; - VP (Pres Ind Pl P1) => emp_ + "ezamos" ; - VP (Pres Ind Pl P2) => emp_ + "ezáis" ; - VP (Pres Ind Pl P3) => emp_ + "iezan" ; - VP (Pres Subj Sg P1) => emp_ + "iece" ; - VP (Pres Subj Sg P2) => emp_ + "ieces" ; - VP (Pres Subj Sg P3) => emp_ + "iece" ; - VP (Pres Subj Pl P1) => emp_ + "ecemos" ; - VP (Pres Subj Pl P2) => emp_ + "ecéis" ; - VP (Pres Subj Pl P3) => emp_ + "iecen" ; - VP (Impf Ind Sg P1) => emp_ + "ezaba" ; --# notpresent - VP (Impf Ind Sg P2) => emp_ + "ezabas" ; --# notpresent - VP (Impf Ind Sg P3) => emp_ + "ezaba" ; --# notpresent - VP (Impf Ind Pl P1) => emp_ + "ezábamos" ; --# notpresent - VP (Impf Ind Pl P2) => emp_ + "ezabais" ; --# notpresent - VP (Impf Ind Pl P3) => emp_ + "ezaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {emp_ + "ezara" ; emp_ + "ezase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {emp_ + "ezaras" ; emp_ + "ezases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {emp_ + "ezara" ; emp_ + "ezase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {emp_ + "ezáramos" ; emp_ + "ezásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {emp_ + "ezarais" ; emp_ + "ezaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {emp_ + "ezaran" ; emp_ + "ezasen"} ; --# notpresent - VP (Pret Sg P1) => emp_ + "ecé" ; --# notpresent - VP (Pret Sg P2) => emp_ + "ezaste" ; --# notpresent - VP (Pret Sg P3) => emp_ + "ezó" ; --# notpresent - VP (Pret Pl P1) => emp_ + "ezamos" ; --# notpresent - VP (Pret Pl P2) => emp_ + "ezasteis" ; --# notpresent - VP (Pret Pl P3) => emp_ + "ezaron" ; --# notpresent - VP (Fut Ind Sg P1) => emp_ + "ezaré" ; --# notpresent - VP (Fut Ind Sg P2) => emp_ + "ezarás" ; --# notpresent - VP (Fut Ind Sg P3) => emp_ + "ezará" ; --# notpresent - VP (Fut Ind Pl P1) => emp_ + "ezaremos" ; --# notpresent - VP (Fut Ind Pl P2) => emp_ + "ezaréis" ; --# notpresent - VP (Fut Ind Pl P3) => emp_ + "ezarán" ; --# notpresent - VP (Fut Subj Sg P1) => emp_ + "ezare" ; --# notpresent - VP (Fut Subj Sg P2) => emp_ + "ezares" ; --# notpresent - VP (Fut Subj Sg P3) => emp_ + "ezare" ; --# notpresent - VP (Fut Subj Pl P1) => emp_ + "ezáremos" ; --# notpresent - VP (Fut Subj Pl P2) => emp_ + "ezareis" ; --# notpresent - VP (Fut Subj Pl P3) => emp_ + "ezaren" ; --# notpresent - VP (Cond Sg P1) => emp_ + "ezaría" ; --# notpresent - VP (Cond Sg P2) => emp_ + "ezarías" ; --# notpresent - VP (Cond Sg P3) => emp_ + "ezaría" ; --# notpresent - VP (Cond Pl P1) => emp_ + "ezaríamos" ; --# notpresent - VP (Cond Pl P2) => emp_ + "ezaríais" ; --# notpresent - VP (Cond Pl P3) => emp_ + "ezarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => emp_ + "ieza" ; - VP (Imp Sg P3) => emp_ + "iece" ; - VP (Imp Pl P1) => emp_ + "ecemos" ; - VP (Imp Pl P2) => emp_ + "ezad" ; - VP (Imp Pl P3) => emp_ + "iecen" ; - VP (Pass Sg Masc) => emp_ + "ezado" ; - VP (Pass Sg Fem) => emp_ + "ezada" ; - VP (Pass Pl Masc) => emp_ + "ezados" ; - VP (Pass Pl Fem) => emp_ + "ezadas" - } - } ; -oper encontrar_38 : Str -> Verbum = \encontrar -> - let enc_ = Predef.tk 6 encontrar in - {s = table { - VI Infn => enc_ + "ontrar" ; - VI Ger => enc_ + "ontrando" ; - VI Part => enc_ + "ontrado" ; - VP (Pres Ind Sg P1) => enc_ + "uentro" ; - VP (Pres Ind Sg P2) => enc_ + "uentras" ; - VP (Pres Ind Sg P3) => enc_ + "uentra" ; - VP (Pres Ind Pl P1) => enc_ + "ontramos" ; - VP (Pres Ind Pl P2) => enc_ + "ontráis" ; - VP (Pres Ind Pl P3) => enc_ + "uentran" ; - VP (Pres Subj Sg P1) => enc_ + "uentre" ; - VP (Pres Subj Sg P2) => enc_ + "uentres" ; - VP (Pres Subj Sg P3) => enc_ + "uentre" ; - VP (Pres Subj Pl P1) => enc_ + "ontremos" ; - VP (Pres Subj Pl P2) => enc_ + "ontréis" ; - VP (Pres Subj Pl P3) => enc_ + "uentren" ; - VP (Impf Ind Sg P1) => enc_ + "ontraba" ; --# notpresent - VP (Impf Ind Sg P2) => enc_ + "ontrabas" ; --# notpresent - VP (Impf Ind Sg P3) => enc_ + "ontraba" ; --# notpresent - VP (Impf Ind Pl P1) => enc_ + "ontrábamos" ; --# notpresent - VP (Impf Ind Pl P2) => enc_ + "ontrabais" ; --# notpresent - VP (Impf Ind Pl P3) => enc_ + "ontraban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {enc_ + "ontrara" ; enc_ + "ontrase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {enc_ + "ontraras" ; enc_ + "ontrases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {enc_ + "ontrara" ; enc_ + "ontrase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {enc_ + "ontráramos" ; enc_ + "ontrásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {enc_ + "ontrarais" ; enc_ + "ontraseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {enc_ + "ontraran" ; enc_ + "ontrasen"} ; --# notpresent - VP (Pret Sg P1) => enc_ + "ontré" ; --# notpresent - VP (Pret Sg P2) => enc_ + "ontraste" ; --# notpresent - VP (Pret Sg P3) => enc_ + "ontró" ; --# notpresent - VP (Pret Pl P1) => enc_ + "ontramos" ; --# notpresent - VP (Pret Pl P2) => enc_ + "ontrasteis" ; --# notpresent - VP (Pret Pl P3) => enc_ + "ontraron" ; --# notpresent - VP (Fut Ind Sg P1) => enc_ + "ontraré" ; --# notpresent - VP (Fut Ind Sg P2) => enc_ + "ontrarás" ; --# notpresent - VP (Fut Ind Sg P3) => enc_ + "ontrará" ; --# notpresent - VP (Fut Ind Pl P1) => enc_ + "ontraremos" ; --# notpresent - VP (Fut Ind Pl P2) => enc_ + "ontraréis" ; --# notpresent - VP (Fut Ind Pl P3) => enc_ + "ontrarán" ; --# notpresent - VP (Fut Subj Sg P1) => enc_ + "ontrare" ; --# notpresent - VP (Fut Subj Sg P2) => enc_ + "ontrares" ; --# notpresent - VP (Fut Subj Sg P3) => enc_ + "ontrare" ; --# notpresent - VP (Fut Subj Pl P1) => enc_ + "ontráremos" ; --# notpresent - VP (Fut Subj Pl P2) => enc_ + "ontrareis" ; --# notpresent - VP (Fut Subj Pl P3) => enc_ + "ontraren" ; --# notpresent - VP (Cond Sg P1) => enc_ + "ontraría" ; --# notpresent - VP (Cond Sg P2) => enc_ + "ontrarías" ; --# notpresent - VP (Cond Sg P3) => enc_ + "ontraría" ; --# notpresent - VP (Cond Pl P1) => enc_ + "ontraríamos" ; --# notpresent - VP (Cond Pl P2) => enc_ + "ontraríais" ; --# notpresent - VP (Cond Pl P3) => enc_ + "ontrarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => enc_ + "uentra" ; - VP (Imp Sg P3) => enc_ + "uentre" ; - VP (Imp Pl P1) => enc_ + "ontremos" ; - VP (Imp Pl P2) => enc_ + "ontrad" ; - VP (Imp Pl P3) => enc_ + "uentren" ; - VP (Pass Sg Masc) => enc_ + "ontrado" ; - VP (Pass Sg Fem) => enc_ + "ontrada" ; - VP (Pass Pl Masc) => enc_ + "ontrados" ; - VP (Pass Pl Fem) => enc_ + "ontradas" - } - } ; -oper contar_38b : Str -> Verbum = \contar -> - let c_ = Predef.tk 5 contar in - {s = table { - VI Infn => c_ + "ontar" ; - VI Ger => c_ + "ontando" ; - VI Part => c_ + "ontado" ; - VP (Pres Ind Sg P1) => c_ + "uento" ; - VP (Pres Ind Sg P2) => c_ + "uentas" ; - VP (Pres Ind Sg P3) => c_ + "uenta" ; - VP (Pres Ind Pl P1) => c_ + "ontamos" ; - VP (Pres Ind Pl P2) => c_ + "ontáis" ; - VP (Pres Ind Pl P3) => c_ + "uentan" ; - VP (Pres Subj Sg P1) => c_ + "uente" ; - VP (Pres Subj Sg P2) => c_ + "uentes" ; - VP (Pres Subj Sg P3) => c_ + "uente" ; - VP (Pres Subj Pl P1) => c_ + "ontemos" ; - VP (Pres Subj Pl P2) => c_ + "ontéis" ; - VP (Pres Subj Pl P3) => c_ + "uenten" ; - VP (Impf Ind Sg P1) => c_ + "ontaba" ; --# notpresent - VP (Impf Ind Sg P2) => c_ + "ontabas" ; --# notpresent - VP (Impf Ind Sg P3) => c_ + "ontaba" ; --# notpresent - VP (Impf Ind Pl P1) => c_ + "ontábamos" ; --# notpresent - VP (Impf Ind Pl P2) => c_ + "ontabais" ; --# notpresent - VP (Impf Ind Pl P3) => c_ + "ontaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {c_ + "ontara" ; c_ + "ontase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {c_ + "ontaras" ; c_ + "ontases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {c_ + "ontara" ; c_ + "ontase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {c_ + "ontáramos" ; c_ + "ontásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {c_ + "ontarais" ; c_ + "ontaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {c_ + "ontaran" ; c_ + "ontasen"} ; --# notpresent - VP (Pret Sg P1) => c_ + "onté" ; --# notpresent - VP (Pret Sg P2) => c_ + "ontaste" ; --# notpresent - VP (Pret Sg P3) => c_ + "ontó" ; --# notpresent - VP (Pret Pl P1) => c_ + "ontamos" ; --# notpresent - VP (Pret Pl P2) => c_ + "ontasteis" ; --# notpresent - VP (Pret Pl P3) => c_ + "ontaron" ; --# notpresent - VP (Fut Ind Sg P1) => c_ + "ontaré" ; --# notpresent - VP (Fut Ind Sg P2) => c_ + "ontarás" ; --# notpresent - VP (Fut Ind Sg P3) => c_ + "ontará" ; --# notpresent - VP (Fut Ind Pl P1) => c_ + "ontaremos" ; --# notpresent - VP (Fut Ind Pl P2) => c_ + "ontaréis" ; --# notpresent - VP (Fut Ind Pl P3) => c_ + "ontarán" ; --# notpresent - VP (Fut Subj Sg P1) => c_ + "ontare" ; --# notpresent - VP (Fut Subj Sg P2) => c_ + "ontares" ; --# notpresent - VP (Fut Subj Sg P3) => c_ + "ontare" ; --# notpresent - VP (Fut Subj Pl P1) => c_ + "ontáremos" ; --# notpresent - VP (Fut Subj Pl P2) => c_ + "ontareis" ; --# notpresent - VP (Fut Subj Pl P3) => c_ + "ontaren" ; --# notpresent - VP (Cond Sg P1) => c_ + "ontaría" ; --# notpresent - VP (Cond Sg P2) => c_ + "ontarías" ; --# notpresent - VP (Cond Sg P3) => c_ + "ontaría" ; --# notpresent - VP (Cond Pl P1) => c_ + "ontaríamos" ; --# notpresent - VP (Cond Pl P2) => c_ + "ontaríais" ; --# notpresent - VP (Cond Pl P3) => c_ + "ontarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => c_ + "uenta" ; - VP (Imp Sg P3) => c_ + "uente" ; - VP (Imp Pl P1) => c_ + "ontemos" ; - VP (Imp Pl P2) => c_ + "ontad" ; - VP (Imp Pl P3) => c_ + "uenten" ; - VP (Pass Sg Masc) => c_ + "ontado" ; - VP (Pass Sg Fem) => c_ + "ontada" ; - VP (Pass Pl Masc) => c_ + "ontados" ; - VP (Pass Pl Fem) => c_ + "ontadas" - } - } ; -oper enraizar_39 : Str -> Verbum = \enraizar -> - let enra_ = Predef.tk 4 enraizar in - {s = table { - VI Infn => enra_ + "izar" ; - VI Ger => enra_ + "izando" ; - VI Part => enra_ + "izado" ; - VP (Pres Ind Sg P1) => enra_ + "ízo" ; - VP (Pres Ind Sg P2) => enra_ + "ízas" ; - VP (Pres Ind Sg P3) => enra_ + "íza" ; - VP (Pres Ind Pl P1) => enra_ + "izamos" ; - VP (Pres Ind Pl P2) => enra_ + "izáis" ; - VP (Pres Ind Pl P3) => enra_ + "ízan" ; - VP (Pres Subj Sg P1) => enra_ + "íce" ; - VP (Pres Subj Sg P2) => enra_ + "íces" ; - VP (Pres Subj Sg P3) => enra_ + "íce" ; - VP (Pres Subj Pl P1) => enra_ + "icemos" ; - VP (Pres Subj Pl P2) => enra_ + "icéis" ; - VP (Pres Subj Pl P3) => enra_ + "ícen" ; - VP (Impf Ind Sg P1) => enra_ + "izaba" ; --# notpresent - VP (Impf Ind Sg P2) => enra_ + "izabas" ; --# notpresent - VP (Impf Ind Sg P3) => enra_ + "izaba" ; --# notpresent - VP (Impf Ind Pl P1) => enra_ + "izábamos" ; --# notpresent - VP (Impf Ind Pl P2) => enra_ + "izabais" ; --# notpresent - VP (Impf Ind Pl P3) => enra_ + "izaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {enra_ + "izara" ; enra_ + "izase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {enra_ + "izaras" ; enra_ + "izases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {enra_ + "izara" ; enra_ + "izase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {enra_ + "izáramos" ; enra_ + "izásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {enra_ + "izarais" ; enra_ + "izaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {enra_ + "izaran" ; enra_ + "izasen"} ; --# notpresent - VP (Pret Sg P1) => enra_ + "icé" ; --# notpresent - VP (Pret Sg P2) => enra_ + "izaste" ; --# notpresent - VP (Pret Sg P3) => enra_ + "izó" ; --# notpresent - VP (Pret Pl P1) => enra_ + "izamos" ; --# notpresent - VP (Pret Pl P2) => enra_ + "izasteis" ; --# notpresent - VP (Pret Pl P3) => enra_ + "izaron" ; --# notpresent - VP (Fut Ind Sg P1) => enra_ + "izaré" ; --# notpresent - VP (Fut Ind Sg P2) => enra_ + "izarás" ; --# notpresent - VP (Fut Ind Sg P3) => enra_ + "izará" ; --# notpresent - VP (Fut Ind Pl P1) => enra_ + "izaremos" ; --# notpresent - VP (Fut Ind Pl P2) => enra_ + "izaréis" ; --# notpresent - VP (Fut Ind Pl P3) => enra_ + "izarán" ; --# notpresent - VP (Fut Subj Sg P1) => enra_ + "izare" ; --# notpresent - VP (Fut Subj Sg P2) => enra_ + "izares" ; --# notpresent - VP (Fut Subj Sg P3) => enra_ + "izare" ; --# notpresent - VP (Fut Subj Pl P1) => enra_ + "izáremos" ; --# notpresent - VP (Fut Subj Pl P2) => enra_ + "izareis" ; --# notpresent - VP (Fut Subj Pl P3) => enra_ + "izaren" ; --# notpresent - VP (Cond Sg P1) => enra_ + "izaría" ; --# notpresent - VP (Cond Sg P2) => enra_ + "izarías" ; --# notpresent - VP (Cond Sg P3) => enra_ + "izaría" ; --# notpresent - VP (Cond Pl P1) => enra_ + "izaríamos" ; --# notpresent - VP (Cond Pl P2) => enra_ + "izaríais" ; --# notpresent - VP (Cond Pl P3) => enra_ + "izarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => enra_ + "íza" ; - VP (Imp Sg P3) => enra_ + "íce" ; - VP (Imp Pl P1) => enra_ + "icemos" ; - VP (Imp Pl P2) => enra_ + "izad" ; - VP (Imp Pl P3) => enra_ + "ícen" ; - VP (Pass Sg Masc) => enra_ + "izado" ; - VP (Pass Sg Fem) => enra_ + "izada" ; - VP (Pass Pl Masc) => enra_ + "izados" ; - VP (Pass Pl Fem) => enra_ + "izadas" - } - } ; -oper erguir_40 : Str -> Verbum = \erguir -> - let x_ = Predef.tk 6 erguir in - {s = table { - VI Infn => x_ + "erguir" ; - VI Ger => x_ + "irguiendo" ; - VI Part => x_ + "erguido" ; - VP (Pres Ind Sg P1) => x_ + "yergo" ; - VP (Pres Ind Sg P2) => x_ + "yergues" ; - VP (Pres Ind Sg P3) => x_ + "yergue" ; - VP (Pres Ind Pl P1) => x_ + "erguimos" ; - VP (Pres Ind Pl P2) => x_ + "erguís" ; - VP (Pres Ind Pl P3) => x_ + "yerguen" ; - VP (Pres Subj Sg P1) => x_ + "yerga" ; - VP (Pres Subj Sg P2) => x_ + "yergas" ; - VP (Pres Subj Sg P3) => x_ + "yerga" ; - VP (Pres Subj Pl P1) => x_ + "irgamos" ; - VP (Pres Subj Pl P2) => x_ + "irgáis" ; - VP (Pres Subj Pl P3) => x_ + "yergan" ; - VP (Impf Ind Sg P1) => x_ + "erguía" ; --# notpresent - VP (Impf Ind Sg P2) => x_ + "erguías" ; --# notpresent - VP (Impf Ind Sg P3) => x_ + "erguía" ; --# notpresent - VP (Impf Ind Pl P1) => x_ + "erguíamos" ; --# notpresent - VP (Impf Ind Pl P2) => x_ + "erguíais" ; --# notpresent - VP (Impf Ind Pl P3) => x_ + "erguían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {x_ + "irguiera" ; x_ + "irguiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {x_ + "irguieras" ; x_ + "irguieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {x_ + "irguiera" ; x_ + "irguiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {x_ + "irguiéramos" ; x_ + "irguiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {x_ + "irguierais" ; x_ + "irguieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {x_ + "irguieran" ; x_ + "irguiesen"} ; --# notpresent - VP (Pret Sg P1) => x_ + "erguí" ; --# notpresent - VP (Pret Sg P2) => x_ + "erguiste" ; --# notpresent - VP (Pret Sg P3) => x_ + "irguió" ; --# notpresent - VP (Pret Pl P1) => x_ + "erguimos" ; --# notpresent - VP (Pret Pl P2) => x_ + "erguisteis" ; --# notpresent - VP (Pret Pl P3) => x_ + "irguieron" ; --# notpresent - VP (Fut Ind Sg P1) => x_ + "erguiré" ; --# notpresent - VP (Fut Ind Sg P2) => x_ + "erguirás" ; --# notpresent - VP (Fut Ind Sg P3) => x_ + "erguirá" ; --# notpresent - VP (Fut Ind Pl P1) => x_ + "erguiremos" ; --# notpresent - VP (Fut Ind Pl P2) => x_ + "erguiréis" ; --# notpresent - VP (Fut Ind Pl P3) => x_ + "erguirán" ; --# notpresent - VP (Fut Subj Sg P1) => x_ + "irguiere" ; --# notpresent - VP (Fut Subj Sg P2) => x_ + "irguieres" ; --# notpresent - VP (Fut Subj Sg P3) => x_ + "irguiere" ; --# notpresent - VP (Fut Subj Pl P1) => x_ + "irguiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => x_ + "irguiereis" ; --# notpresent - VP (Fut Subj Pl P3) => x_ + "irguieren" ; --# notpresent - VP (Cond Sg P1) => x_ + "erguiría" ; --# notpresent - VP (Cond Sg P2) => x_ + "erguirías" ; --# notpresent - VP (Cond Sg P3) => x_ + "erguiría" ; --# notpresent - VP (Cond Pl P1) => x_ + "erguiríamos" ; --# notpresent - VP (Cond Pl P2) => x_ + "erguiríais" ; --# notpresent - VP (Cond Pl P3) => x_ + "erguirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => x_ + "yergue" ; - VP (Imp Sg P3) => x_ + "yerga" ; - VP (Imp Pl P1) => x_ + "yergamos" ; - VP (Imp Pl P2) => x_ + "erguid" ; - VP (Imp Pl P3) => x_ + "yergan" ; - VP (Pass Sg Masc) => x_ + "erguido" ; - VP (Pass Sg Fem) => x_ + "erguida" ; - VP (Pass Pl Masc) => x_ + "erguidos" ; - VP (Pass Pl Fem) => x_ + "erguidas" - } - } ; -oper errar_41 : Str -> Verbum = \errar -> - let x_ = Predef.tk 5 errar in - {s = table { - VI Infn => x_ + "errar" ; - VI Ger => x_ + "errando" ; - VI Part => x_ + "errado" ; - VP (Pres Ind Sg P1) => x_ + "yerro" ; - VP (Pres Ind Sg P2) => x_ + "yerras" ; - VP (Pres Ind Sg P3) => x_ + "yerra" ; - VP (Pres Ind Pl P1) => x_ + "erramos" ; - VP (Pres Ind Pl P2) => x_ + "erráis" ; - VP (Pres Ind Pl P3) => x_ + "yerran" ; - VP (Pres Subj Sg P1) => x_ + "yerre" ; - VP (Pres Subj Sg P2) => x_ + "yerres" ; - VP (Pres Subj Sg P3) => x_ + "yerre" ; - VP (Pres Subj Pl P1) => x_ + "erremos" ; - VP (Pres Subj Pl P2) => x_ + "erréis" ; - VP (Pres Subj Pl P3) => x_ + "yerren" ; - VP (Impf Ind Sg P1) => x_ + "erraba" ; --# notpresent - VP (Impf Ind Sg P2) => x_ + "errabas" ; --# notpresent - VP (Impf Ind Sg P3) => x_ + "erraba" ; --# notpresent - VP (Impf Ind Pl P1) => x_ + "errábamos" ; --# notpresent - VP (Impf Ind Pl P2) => x_ + "errabais" ; --# notpresent - VP (Impf Ind Pl P3) => x_ + "erraban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {x_ + "errara" ; x_ + "errase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {x_ + "erraras" ; x_ + "errases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {x_ + "errara" ; x_ + "errase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {x_ + "erráramos" ; x_ + "errásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {x_ + "errarais" ; x_ + "erraseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {x_ + "erraran" ; x_ + "errasen"} ; --# notpresent - VP (Pret Sg P1) => x_ + "erré" ; --# notpresent - VP (Pret Sg P2) => x_ + "erraste" ; --# notpresent - VP (Pret Sg P3) => x_ + "erró" ; --# notpresent - VP (Pret Pl P1) => x_ + "erramos" ; --# notpresent - VP (Pret Pl P2) => x_ + "errasteis" ; --# notpresent - VP (Pret Pl P3) => x_ + "erraron" ; --# notpresent - VP (Fut Ind Sg P1) => x_ + "erraré" ; --# notpresent - VP (Fut Ind Sg P2) => x_ + "errarás" ; --# notpresent - VP (Fut Ind Sg P3) => x_ + "errará" ; --# notpresent - VP (Fut Ind Pl P1) => x_ + "erraremos" ; --# notpresent - VP (Fut Ind Pl P2) => x_ + "erraréis" ; --# notpresent - VP (Fut Ind Pl P3) => x_ + "errarán" ; --# notpresent - VP (Fut Subj Sg P1) => x_ + "errare" ; --# notpresent - VP (Fut Subj Sg P2) => x_ + "errares" ; --# notpresent - VP (Fut Subj Sg P3) => x_ + "errare" ; --# notpresent - VP (Fut Subj Pl P1) => x_ + "erráremos" ; --# notpresent - VP (Fut Subj Pl P2) => x_ + "errareis" ; --# notpresent - VP (Fut Subj Pl P3) => x_ + "erraren" ; --# notpresent - VP (Cond Sg P1) => x_ + "erraría" ; --# notpresent - VP (Cond Sg P2) => x_ + "errarías" ; --# notpresent - VP (Cond Sg P3) => x_ + "erraría" ; --# notpresent - VP (Cond Pl P1) => x_ + "erraríamos" ; --# notpresent - VP (Cond Pl P2) => x_ + "erraríais" ; --# notpresent - VP (Cond Pl P3) => x_ + "errarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => x_ + "yerra" ; - VP (Imp Sg P3) => x_ + "yerre" ; - VP (Imp Pl P1) => x_ + "erremos" ; - VP (Imp Pl P2) => x_ + "errad" ; - VP (Imp Pl P3) => x_ + "yerren" ; - VP (Pass Sg Masc) => x_ + "errado" ; - VP (Pass Sg Fem) => x_ + "errada" ; - VP (Pass Pl Masc) => x_ + "errados" ; - VP (Pass Pl Fem) => x_ + "erradas" - } - } ; -oper forzar_42 : Str -> Verbum = \forzar -> - let f_ = Predef.tk 5 forzar in - {s = table { - VI Infn => f_ + "orzar" ; - VI Ger => f_ + "orzando" ; - VI Part => f_ + "orzado" ; - VP (Pres Ind Sg P1) => f_ + "uerzo" ; - VP (Pres Ind Sg P2) => f_ + "uerzas" ; - VP (Pres Ind Sg P3) => f_ + "uerza" ; - VP (Pres Ind Pl P1) => f_ + "orzamos" ; - VP (Pres Ind Pl P2) => f_ + "orzáis" ; - VP (Pres Ind Pl P3) => f_ + "uerzan" ; - VP (Pres Subj Sg P1) => f_ + "uerce" ; - VP (Pres Subj Sg P2) => f_ + "uerces" ; - VP (Pres Subj Sg P3) => f_ + "uerce" ; - VP (Pres Subj Pl P1) => f_ + "orcemos" ; - VP (Pres Subj Pl P2) => f_ + "orcéis" ; - VP (Pres Subj Pl P3) => f_ + "uercen" ; - VP (Impf Ind Sg P1) => f_ + "orzaba" ; --# notpresent - VP (Impf Ind Sg P2) => f_ + "orzabas" ; --# notpresent - VP (Impf Ind Sg P3) => f_ + "orzaba" ; --# notpresent - VP (Impf Ind Pl P1) => f_ + "orzábamos" ; --# notpresent - VP (Impf Ind Pl P2) => f_ + "orzabais" ; --# notpresent - VP (Impf Ind Pl P3) => f_ + "orzaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {f_ + "orzara" ; f_ + "orzase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {f_ + "orzaras" ; f_ + "orzases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {f_ + "orzara" ; f_ + "orzase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {f_ + "orzáramos" ; f_ + "orzásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {f_ + "orzarais" ; f_ + "orzaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {f_ + "orzaran" ; f_ + "orzasen"} ; --# notpresent - VP (Pret Sg P1) => f_ + "orcé" ; --# notpresent - VP (Pret Sg P2) => f_ + "orzaste" ; --# notpresent - VP (Pret Sg P3) => f_ + "orzó" ; --# notpresent - VP (Pret Pl P1) => f_ + "orzamos" ; --# notpresent - VP (Pret Pl P2) => f_ + "orzasteis" ; --# notpresent - VP (Pret Pl P3) => f_ + "orzaron" ; --# notpresent - VP (Fut Ind Sg P1) => f_ + "orzaré" ; --# notpresent - VP (Fut Ind Sg P2) => f_ + "orzarás" ; --# notpresent - VP (Fut Ind Sg P3) => f_ + "orzará" ; --# notpresent - VP (Fut Ind Pl P1) => f_ + "orzaremos" ; --# notpresent - VP (Fut Ind Pl P2) => f_ + "orzaréis" ; --# notpresent - VP (Fut Ind Pl P3) => f_ + "orzarán" ; --# notpresent - VP (Fut Subj Sg P1) => f_ + "orzare" ; --# notpresent - VP (Fut Subj Sg P2) => f_ + "orzares" ; --# notpresent - VP (Fut Subj Sg P3) => f_ + "orzare" ; --# notpresent - VP (Fut Subj Pl P1) => f_ + "orzáremos" ; --# notpresent - VP (Fut Subj Pl P2) => f_ + "orzareis" ; --# notpresent - VP (Fut Subj Pl P3) => f_ + "orzaren" ; --# notpresent - VP (Cond Sg P1) => f_ + "orzaría" ; --# notpresent - VP (Cond Sg P2) => f_ + "orzarías" ; --# notpresent - VP (Cond Sg P3) => f_ + "orzaría" ; --# notpresent - VP (Cond Pl P1) => f_ + "orzaríamos" ; --# notpresent - VP (Cond Pl P2) => f_ + "orzaríais" ; --# notpresent - VP (Cond Pl P3) => f_ + "orzarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => f_ + "uerza" ; - VP (Imp Sg P3) => f_ + "uerce" ; - VP (Imp Pl P1) => f_ + "orcemos" ; - VP (Imp Pl P2) => f_ + "orzad" ; - VP (Imp Pl P3) => f_ + "uercen" ; - VP (Pass Sg Masc) => f_ + "orzado" ; - VP (Pass Sg Fem) => f_ + "orzada" ; - VP (Pass Pl Masc) => f_ + "orzados" ; - VP (Pass Pl Fem) => f_ + "orzadas" - } - } ; -oper guiar_43 : Str -> Verbum = \guiar -> - let gu_ = Predef.tk 3 guiar in - {s = table { - VI Infn => gu_ + "iar" ; - VI Ger => gu_ + "iando" ; - VI Part => gu_ + "iado" ; - VP (Pres Ind Sg P1) => gu_ + "ío" ; - VP (Pres Ind Sg P2) => gu_ + "ías" ; - VP (Pres Ind Sg P3) => gu_ + "ía" ; - VP (Pres Ind Pl P1) => gu_ + "iamos" ; - VP (Pres Ind Pl P2) => gu_ + "iáis" ; - VP (Pres Ind Pl P3) => gu_ + "ían" ; - VP (Pres Subj Sg P1) => gu_ + "íe" ; - VP (Pres Subj Sg P2) => gu_ + "íes" ; - VP (Pres Subj Sg P3) => gu_ + "íe" ; - VP (Pres Subj Pl P1) => gu_ + "iemos" ; - VP (Pres Subj Pl P2) => gu_ + "iéis" ; - VP (Pres Subj Pl P3) => gu_ + "íen" ; - VP (Impf Ind Sg P1) => gu_ + "iaba" ; --# notpresent - VP (Impf Ind Sg P2) => gu_ + "iabas" ; --# notpresent - VP (Impf Ind Sg P3) => gu_ + "iaba" ; --# notpresent - VP (Impf Ind Pl P1) => gu_ + "iábamos" ; --# notpresent - VP (Impf Ind Pl P2) => gu_ + "iabais" ; --# notpresent - VP (Impf Ind Pl P3) => gu_ + "iaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {gu_ + "iara" ; gu_ + "iase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {gu_ + "iaras" ; gu_ + "iases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {gu_ + "iara" ; gu_ + "iase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {gu_ + "iáramos" ; gu_ + "iásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {gu_ + "iarais" ; gu_ + "iaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {gu_ + "iaran" ; gu_ + "iasen"} ; --# notpresent - VP (Pret Sg P1) => gu_ + "ié" ; --# notpresent - VP (Pret Sg P2) => gu_ + "iaste" ; --# notpresent - VP (Pret Sg P3) => gu_ + "ió" ; --# notpresent - VP (Pret Pl P1) => gu_ + "iamos" ; --# notpresent - VP (Pret Pl P2) => gu_ + "iasteis" ; --# notpresent - VP (Pret Pl P3) => gu_ + "iaron" ; --# notpresent - VP (Fut Ind Sg P1) => gu_ + "iaré" ; --# notpresent - VP (Fut Ind Sg P2) => gu_ + "iarás" ; --# notpresent - VP (Fut Ind Sg P3) => gu_ + "iará" ; --# notpresent - VP (Fut Ind Pl P1) => gu_ + "iaremos" ; --# notpresent - VP (Fut Ind Pl P2) => gu_ + "iaréis" ; --# notpresent - VP (Fut Ind Pl P3) => gu_ + "iarán" ; --# notpresent - VP (Fut Subj Sg P1) => gu_ + "iare" ; --# notpresent - VP (Fut Subj Sg P2) => gu_ + "iares" ; --# notpresent - VP (Fut Subj Sg P3) => gu_ + "iare" ; --# notpresent - VP (Fut Subj Pl P1) => gu_ + "iáremos" ; --# notpresent - VP (Fut Subj Pl P2) => gu_ + "iareis" ; --# notpresent - VP (Fut Subj Pl P3) => gu_ + "iaren" ; --# notpresent - VP (Cond Sg P1) => gu_ + "iaría" ; --# notpresent - VP (Cond Sg P2) => gu_ + "iarías" ; --# notpresent - VP (Cond Sg P3) => gu_ + "iaría" ; --# notpresent - VP (Cond Pl P1) => gu_ + "iaríamos" ; --# notpresent - VP (Cond Pl P2) => gu_ + "iaríais" ; --# notpresent - VP (Cond Pl P3) => gu_ + "iarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => gu_ + "ía" ; - VP (Imp Sg P3) => gu_ + "íe" ; - VP (Imp Pl P1) => gu_ + "iemos" ; - VP (Imp Pl P2) => gu_ + "iad" ; - VP (Imp Pl P3) => gu_ + "íen" ; - VP (Pass Sg Masc) => gu_ + "iado" ; - VP (Pass Sg Fem) => gu_ + "iada" ; - VP (Pass Pl Masc) => gu_ + "iados" ; - VP (Pass Pl Fem) => gu_ + "iadas" - } - } ; -oper hacer_44 : Str -> Verbum = \hacer -> - let h_ = Predef.tk 4 hacer in - {s = table { - VI Infn => h_ + "acer" ; - VI Ger => h_ + "aciendo" ; - VI Part => h_ + "echo" ; - VP (Pres Ind Sg P1) => h_ + "ago" ; - VP (Pres Ind Sg P2) => h_ + "aces" ; - VP (Pres Ind Sg P3) => h_ + "ace" ; - VP (Pres Ind Pl P1) => h_ + "acemos" ; - VP (Pres Ind Pl P2) => h_ + "acéis" ; - VP (Pres Ind Pl P3) => h_ + "acen" ; - VP (Pres Subj Sg P1) => h_ + "aga" ; - VP (Pres Subj Sg P2) => h_ + "agas" ; - VP (Pres Subj Sg P3) => h_ + "aga" ; - VP (Pres Subj Pl P1) => h_ + "agamos" ; - VP (Pres Subj Pl P2) => h_ + "agáis" ; - VP (Pres Subj Pl P3) => h_ + "agan" ; - VP (Impf Ind Sg P1) => h_ + "acía" ; --# notpresent - VP (Impf Ind Sg P2) => h_ + "acías" ; --# notpresent - VP (Impf Ind Sg P3) => h_ + "acía" ; --# notpresent - VP (Impf Ind Pl P1) => h_ + "acíamos" ; --# notpresent - VP (Impf Ind Pl P2) => h_ + "acíais" ; --# notpresent - VP (Impf Ind Pl P3) => h_ + "acían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {h_ + "iciera" ; h_ + "iciese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {h_ + "icieras" ; h_ + "icieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {h_ + "iciera" ; h_ + "iciese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {h_ + "iciéramos" ; h_ + "iciésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {h_ + "icierais" ; h_ + "icieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {h_ + "icieran" ; h_ + "iciesen"} ; --# notpresent - VP (Pret Sg P1) => h_ + "ice" ; --# notpresent - VP (Pret Sg P2) => h_ + "iciste" ; --# notpresent - VP (Pret Sg P3) => h_ + "izo" ; --# notpresent - VP (Pret Pl P1) => h_ + "icimos" ; --# notpresent - VP (Pret Pl P2) => h_ + "icisteis" ; --# notpresent - VP (Pret Pl P3) => h_ + "icieron" ; --# notpresent - VP (Fut Ind Sg P1) => h_ + "aré" ; --# notpresent - VP (Fut Ind Sg P2) => h_ + "arás" ; --# notpresent - VP (Fut Ind Sg P3) => h_ + "ará" ; --# notpresent - VP (Fut Ind Pl P1) => h_ + "aremos" ; --# notpresent - VP (Fut Ind Pl P2) => h_ + "aréis" ; --# notpresent - VP (Fut Ind Pl P3) => h_ + "arán" ; --# notpresent - VP (Fut Subj Sg P1) => h_ + "iciere" ; --# notpresent - VP (Fut Subj Sg P2) => h_ + "icieres" ; --# notpresent - VP (Fut Subj Sg P3) => h_ + "iciere" ; --# notpresent - VP (Fut Subj Pl P1) => h_ + "iciéremos" ; --# notpresent - VP (Fut Subj Pl P2) => h_ + "iciereis" ; --# notpresent - VP (Fut Subj Pl P3) => h_ + "icieren" ; --# notpresent - VP (Cond Sg P1) => h_ + "aría" ; --# notpresent - VP (Cond Sg P2) => h_ + "arías" ; --# notpresent - VP (Cond Sg P3) => h_ + "aría" ; --# notpresent - VP (Cond Pl P1) => h_ + "aríamos" ; --# notpresent - VP (Cond Pl P2) => h_ + "aríais" ; --# notpresent - VP (Cond Pl P3) => h_ + "arían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => h_ + "az" ; - VP (Imp Sg P3) => h_ + "aga" ; - VP (Imp Pl P1) => h_ + "agamos" ; - VP (Imp Pl P2) => h_ + "aced" ; - VP (Imp Pl P3) => h_ + "agan" ; - VP (Pass Sg Masc) => h_ + "echo" ; - VP (Pass Sg Fem) => h_ + "echa" ; - VP (Pass Pl Masc) => h_ + "echos" ; - VP (Pass Pl Fem) => h_ + "echas" - } - } ; -oper influir_45 : Str -> Verbum = \influir -> - let influ_ = Predef.tk 2 influir in - {s = table { - VI Infn => influ_ + "ir" ; - VI Ger => influ_ + "yendo" ; - VI Part => influ_ + "ido" ; - VP (Pres Ind Sg P1) => influ_ + "yo" ; - VP (Pres Ind Sg P2) => influ_ + "yes" ; - VP (Pres Ind Sg P3) => influ_ + "ye" ; - VP (Pres Ind Pl P1) => influ_ + "imos" ; - VP (Pres Ind Pl P2) => influ_ + "ís" ; - VP (Pres Ind Pl P3) => influ_ + "yen" ; - VP (Pres Subj Sg P1) => influ_ + "ya" ; - VP (Pres Subj Sg P2) => influ_ + "yas" ; - VP (Pres Subj Sg P3) => influ_ + "ya" ; - VP (Pres Subj Pl P1) => influ_ + "yamos" ; - VP (Pres Subj Pl P2) => influ_ + "yáis" ; - VP (Pres Subj Pl P3) => influ_ + "yan" ; - VP (Impf Ind Sg P1) => influ_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => influ_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => influ_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => influ_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => influ_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => influ_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {influ_ + "yera" ; influ_ + "yese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {influ_ + "yeras" ; influ_ + "yeses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {influ_ + "yera" ; influ_ + "yese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {influ_ + "yéramos" ; influ_ + "yésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {influ_ + "yerais" ; influ_ + "yeseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {influ_ + "yeran" ; influ_ + "yesen"} ; --# notpresent - VP (Pret Sg P1) => influ_ + "í" ; --# notpresent - VP (Pret Sg P2) => influ_ + "iste" ; --# notpresent - VP (Pret Sg P3) => influ_ + "yó" ; --# notpresent - VP (Pret Pl P1) => influ_ + "imos" ; --# notpresent - VP (Pret Pl P2) => influ_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => influ_ + "yeron" ; --# notpresent - VP (Fut Ind Sg P1) => influ_ + "iré" ; --# notpresent - VP (Fut Ind Sg P2) => influ_ + "irás" ; --# notpresent - VP (Fut Ind Sg P3) => influ_ + "irá" ; --# notpresent - VP (Fut Ind Pl P1) => influ_ + "iremos" ; --# notpresent - VP (Fut Ind Pl P2) => influ_ + "iréis" ; --# notpresent - VP (Fut Ind Pl P3) => influ_ + "irán" ; --# notpresent - VP (Fut Subj Sg P1) => influ_ + "yere" ; --# notpresent - VP (Fut Subj Sg P2) => influ_ + "yeres" ; --# notpresent - VP (Fut Subj Sg P3) => influ_ + "yere" ; --# notpresent - VP (Fut Subj Pl P1) => influ_ + "yéremos" ; --# notpresent - VP (Fut Subj Pl P2) => influ_ + "yereis" ; --# notpresent - VP (Fut Subj Pl P3) => influ_ + "yeren" ; --# notpresent - VP (Cond Sg P1) => influ_ + "iría" ; --# notpresent - VP (Cond Sg P2) => influ_ + "irías" ; --# notpresent - VP (Cond Sg P3) => influ_ + "iría" ; --# notpresent - VP (Cond Pl P1) => influ_ + "iríamos" ; --# notpresent - VP (Cond Pl P2) => influ_ + "iríais" ; --# notpresent - VP (Cond Pl P3) => influ_ + "irían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => influ_ + "ye" ; - VP (Imp Sg P3) => influ_ + "ya" ; - VP (Imp Pl P1) => influ_ + "yamos" ; - VP (Imp Pl P2) => influ_ + "id" ; - VP (Imp Pl P3) => influ_ + "yan" ; - VP (Pass Sg Masc) => influ_ + "ido" ; - VP (Pass Sg Fem) => influ_ + "ida" ; - VP (Pass Pl Masc) => influ_ + "idos" ; - VP (Pass Pl Fem) => influ_ + "idas" - } - } ; -oper ir_46 : Str -> Verbum = \ir -> - let x_ = Predef.tk 2 ir in - {s = table { - VI Infn => x_ + "ir" ; - VI Ger => x_ + "yendo" ; - VI Part => x_ + "ido" ; - VP (Pres Ind Sg P1) => x_ + "voy" ; - VP (Pres Ind Sg P2) => x_ + "vas" ; - VP (Pres Ind Sg P3) => x_ + "va" ; - VP (Pres Ind Pl P1) => x_ + "vamos" ; - VP (Pres Ind Pl P2) => x_ + "vais" ; - VP (Pres Ind Pl P3) => x_ + "van" ; - VP (Pres Subj Sg P1) => x_ + "vaya" ; - VP (Pres Subj Sg P2) => x_ + "vayas" ; - VP (Pres Subj Sg P3) => x_ + "vaya" ; - VP (Pres Subj Pl P1) => x_ + "vayamos" ; - VP (Pres Subj Pl P2) => x_ + "vayáis" ; - VP (Pres Subj Pl P3) => x_ + "vayan" ; - VP (Impf Ind Sg P1) => x_ + "iba" ; --# notpresent - VP (Impf Ind Sg P2) => x_ + "ibas" ; --# notpresent - VP (Impf Ind Sg P3) => x_ + "iba" ; --# notpresent - VP (Impf Ind Pl P1) => x_ + "íbamos" ; --# notpresent - VP (Impf Ind Pl P2) => x_ + "ibais" ; --# notpresent - VP (Impf Ind Pl P3) => x_ + "iban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {x_ + "fuera" ; x_ + "fuese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {x_ + "fueras" ; x_ + "fueses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {x_ + "fuera" ; x_ + "fuese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {x_ + "fuéramos" ; x_ + "fuésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {x_ + "fuerais" ; x_ + "fueseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {x_ + "fueran" ; x_ + "fuesen"} ; --# notpresent - VP (Pret Sg P1) => x_ + "fui" ; --# notpresent - VP (Pret Sg P2) => x_ + "fuiste" ; --# notpresent - VP (Pret Sg P3) => x_ + "fue" ; --# notpresent - VP (Pret Pl P1) => x_ + "fuimos" ; --# notpresent - VP (Pret Pl P2) => x_ + "fuisteis" ; --# notpresent - VP (Pret Pl P3) => x_ + "fueron" ; --# notpresent - VP (Fut Ind Sg P1) => x_ + "iré" ; --# notpresent - VP (Fut Ind Sg P2) => x_ + "irás" ; --# notpresent - VP (Fut Ind Sg P3) => x_ + "irá" ; --# notpresent - VP (Fut Ind Pl P1) => x_ + "iremos" ; --# notpresent - VP (Fut Ind Pl P2) => x_ + "iréis" ; --# notpresent - VP (Fut Ind Pl P3) => x_ + "irán" ; --# notpresent - VP (Fut Subj Sg P1) => x_ + "fuere" ; --# notpresent - VP (Fut Subj Sg P2) => x_ + "fueres" ; --# notpresent - VP (Fut Subj Sg P3) => x_ + "fuere" ; --# notpresent - VP (Fut Subj Pl P1) => x_ + "fuéremos" ; --# notpresent - VP (Fut Subj Pl P2) => x_ + "fuereis" ; --# notpresent - VP (Fut Subj Pl P3) => x_ + "fueren" ; --# notpresent - VP (Cond Sg P1) => x_ + "iría" ; --# notpresent - VP (Cond Sg P2) => x_ + "irías" ; --# notpresent - VP (Cond Sg P3) => x_ + "iría" ; --# notpresent - VP (Cond Pl P1) => x_ + "iríamos" ; --# notpresent - VP (Cond Pl P2) => x_ + "iríais" ; --# notpresent - VP (Cond Pl P3) => x_ + "irían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => x_ + "ve" ; - VP (Imp Sg P3) => x_ + "vaya" ; - VP (Imp Pl P1) => variants {x_ + "vamos" ; x_ + "vayamos"} ; - VP (Imp Pl P2) => x_ + "id" ; - VP (Imp Pl P3) => x_ + "vayan" ; - VP (Pass Sg Masc) => x_ + "ido" ; - VP (Pass Sg Fem) => x_ + "ida" ; - VP (Pass Pl Masc) => x_ + "idos" ; - VP (Pass Pl Fem) => x_ + "idas" - } - } ; -oper jugar_47 : Str -> Verbum = \jugar -> - let ju_ = Predef.tk 3 jugar in - {s = table { - VI Infn => ju_ + "gar" ; - VI Ger => ju_ + "gando" ; - VI Part => ju_ + "gado" ; - VP (Pres Ind Sg P1) => ju_ + "ego" ; - VP (Pres Ind Sg P2) => ju_ + "egas" ; - VP (Pres Ind Sg P3) => ju_ + "ega" ; - VP (Pres Ind Pl P1) => ju_ + "gamos" ; - VP (Pres Ind Pl P2) => ju_ + "gáis" ; - VP (Pres Ind Pl P3) => ju_ + "egan" ; - VP (Pres Subj Sg P1) => ju_ + "egue" ; - VP (Pres Subj Sg P2) => ju_ + "egues" ; - VP (Pres Subj Sg P3) => ju_ + "egue" ; - VP (Pres Subj Pl P1) => ju_ + "guemos" ; - VP (Pres Subj Pl P2) => ju_ + "guéis" ; - VP (Pres Subj Pl P3) => ju_ + "eguen" ; - VP (Impf Ind Sg P1) => ju_ + "gaba" ; --# notpresent - VP (Impf Ind Sg P2) => ju_ + "gabas" ; --# notpresent - VP (Impf Ind Sg P3) => ju_ + "gaba" ; --# notpresent - VP (Impf Ind Pl P1) => ju_ + "gábamos" ; --# notpresent - VP (Impf Ind Pl P2) => ju_ + "gabais" ; --# notpresent - VP (Impf Ind Pl P3) => ju_ + "gaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {ju_ + "gara" ; ju_ + "gase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {ju_ + "garas" ; ju_ + "gases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {ju_ + "gara" ; ju_ + "gase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {ju_ + "gáramos" ; ju_ + "gásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {ju_ + "garais" ; ju_ + "gaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {ju_ + "garan" ; ju_ + "gasen"} ; --# notpresent - VP (Pret Sg P1) => ju_ + "gué" ; --# notpresent - VP (Pret Sg P2) => ju_ + "gaste" ; --# notpresent - VP (Pret Sg P3) => ju_ + "gó" ; --# notpresent - VP (Pret Pl P1) => ju_ + "gamos" ; --# notpresent - VP (Pret Pl P2) => ju_ + "gasteis" ; --# notpresent - VP (Pret Pl P3) => ju_ + "garon" ; --# notpresent - VP (Fut Ind Sg P1) => ju_ + "garé" ; --# notpresent - VP (Fut Ind Sg P2) => ju_ + "garás" ; --# notpresent - VP (Fut Ind Sg P3) => ju_ + "gará" ; --# notpresent - VP (Fut Ind Pl P1) => ju_ + "garemos" ; --# notpresent - VP (Fut Ind Pl P2) => ju_ + "garéis" ; --# notpresent - VP (Fut Ind Pl P3) => ju_ + "garán" ; --# notpresent - VP (Fut Subj Sg P1) => ju_ + "gare" ; --# notpresent - VP (Fut Subj Sg P2) => ju_ + "gares" ; --# notpresent - VP (Fut Subj Sg P3) => ju_ + "gare" ; --# notpresent - VP (Fut Subj Pl P1) => ju_ + "gáremos" ; --# notpresent - VP (Fut Subj Pl P2) => ju_ + "gareis" ; --# notpresent - VP (Fut Subj Pl P3) => ju_ + "garen" ; --# notpresent - VP (Cond Sg P1) => ju_ + "garía" ; --# notpresent - VP (Cond Sg P2) => ju_ + "garías" ; --# notpresent - VP (Cond Sg P3) => ju_ + "garía" ; --# notpresent - VP (Cond Pl P1) => ju_ + "garíamos" ; --# notpresent - VP (Cond Pl P2) => ju_ + "garíais" ; --# notpresent - VP (Cond Pl P3) => ju_ + "garían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => ju_ + "ega" ; - VP (Imp Sg P3) => ju_ + "egue" ; - VP (Imp Pl P1) => ju_ + "guemos" ; - VP (Imp Pl P2) => ju_ + "gad" ; - VP (Imp Pl P3) => ju_ + "eguen" ; - VP (Pass Sg Masc) => ju_ + "gado" ; - VP (Pass Sg Fem) => ju_ + "gada" ; - VP (Pass Pl Masc) => ju_ + "gados" ; - VP (Pass Pl Fem) => ju_ + "gadas" - } - } ; -oper lucir_48 : Str -> Verbum = \lucir -> - let lu_ = Predef.tk 3 lucir in - {s = table { - VI Infn => lu_ + "cir" ; - VI Ger => lu_ + "ciendo" ; - VI Part => lu_ + "cido" ; - VP (Pres Ind Sg P1) => lu_ + "zco" ; - VP (Pres Ind Sg P2) => lu_ + "ces" ; - VP (Pres Ind Sg P3) => lu_ + "ce" ; - VP (Pres Ind Pl P1) => lu_ + "cimos" ; - VP (Pres Ind Pl P2) => lu_ + "cís" ; - VP (Pres Ind Pl P3) => lu_ + "cen" ; - VP (Pres Subj Sg P1) => lu_ + "zca" ; - VP (Pres Subj Sg P2) => lu_ + "zcas" ; - VP (Pres Subj Sg P3) => lu_ + "zca" ; - VP (Pres Subj Pl P1) => lu_ + "zcamos" ; - VP (Pres Subj Pl P2) => lu_ + "zcáis" ; - VP (Pres Subj Pl P3) => lu_ + "zcan" ; - VP (Impf Ind Sg P1) => lu_ + "cía" ; --# notpresent - VP (Impf Ind Sg P2) => lu_ + "cías" ; --# notpresent - VP (Impf Ind Sg P3) => lu_ + "cía" ; --# notpresent - VP (Impf Ind Pl P1) => lu_ + "cíamos" ; --# notpresent - VP (Impf Ind Pl P2) => lu_ + "cíais" ; --# notpresent - VP (Impf Ind Pl P3) => lu_ + "cían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {lu_ + "ciera" ; lu_ + "ciese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {lu_ + "cieras" ; lu_ + "cieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {lu_ + "ciera" ; lu_ + "ciese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {lu_ + "ciéramos" ; lu_ + "ciésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {lu_ + "cierais" ; lu_ + "cieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {lu_ + "cieran" ; lu_ + "ciesen"} ; --# notpresent - VP (Pret Sg P1) => lu_ + "cí" ; --# notpresent - VP (Pret Sg P2) => lu_ + "ciste" ; --# notpresent - VP (Pret Sg P3) => lu_ + "ció" ; --# notpresent - VP (Pret Pl P1) => lu_ + "cimos" ; --# notpresent - VP (Pret Pl P2) => lu_ + "cisteis" ; --# notpresent - VP (Pret Pl P3) => lu_ + "cieron" ; --# notpresent - VP (Fut Ind Sg P1) => lu_ + "ciré" ; --# notpresent - VP (Fut Ind Sg P2) => lu_ + "cirás" ; --# notpresent - VP (Fut Ind Sg P3) => lu_ + "cirá" ; --# notpresent - VP (Fut Ind Pl P1) => lu_ + "ciremos" ; --# notpresent - VP (Fut Ind Pl P2) => lu_ + "ciréis" ; --# notpresent - VP (Fut Ind Pl P3) => lu_ + "cirán" ; --# notpresent - VP (Fut Subj Sg P1) => lu_ + "ciere" ; --# notpresent - VP (Fut Subj Sg P2) => lu_ + "cieres" ; --# notpresent - VP (Fut Subj Sg P3) => lu_ + "ciere" ; --# notpresent - VP (Fut Subj Pl P1) => lu_ + "ciéremos" ; --# notpresent - VP (Fut Subj Pl P2) => lu_ + "ciereis" ; --# notpresent - VP (Fut Subj Pl P3) => lu_ + "cieren" ; --# notpresent - VP (Cond Sg P1) => lu_ + "ciría" ; --# notpresent - VP (Cond Sg P2) => lu_ + "cirías" ; --# notpresent - VP (Cond Sg P3) => lu_ + "ciría" ; --# notpresent - VP (Cond Pl P1) => lu_ + "ciríamos" ; --# notpresent - VP (Cond Pl P2) => lu_ + "ciríais" ; --# notpresent - VP (Cond Pl P3) => lu_ + "cirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => lu_ + "ce" ; - VP (Imp Sg P3) => lu_ + "zca" ; - VP (Imp Pl P1) => lu_ + "zcamos" ; - VP (Imp Pl P2) => lu_ + "cid" ; - VP (Imp Pl P3) => lu_ + "zcan" ; - VP (Pass Sg Masc) => lu_ + "cido" ; - VP (Pass Sg Fem) => lu_ + "cida" ; - VP (Pass Pl Masc) => lu_ + "cidos" ; - VP (Pass Pl Fem) => lu_ + "cidas" - } - } ; -oper mecer_49 : Str -> Verbum = \mecer -> - let me_ = Predef.tk 3 mecer in - {s = table { - VI Infn => me_ + "cer" ; - VI Ger => me_ + "ciendo" ; - VI Part => me_ + "cido" ; - VP (Pres Ind Sg P1) => me_ + "zo" ; - VP (Pres Ind Sg P2) => me_ + "ces" ; - VP (Pres Ind Sg P3) => me_ + "ce" ; - VP (Pres Ind Pl P1) => me_ + "cemos" ; - VP (Pres Ind Pl P2) => me_ + "céis" ; - VP (Pres Ind Pl P3) => me_ + "cen" ; - VP (Pres Subj Sg P1) => me_ + "za" ; - VP (Pres Subj Sg P2) => me_ + "zas" ; - VP (Pres Subj Sg P3) => me_ + "za" ; - VP (Pres Subj Pl P1) => me_ + "zamos" ; - VP (Pres Subj Pl P2) => me_ + "záis" ; - VP (Pres Subj Pl P3) => me_ + "zan" ; - VP (Impf Ind Sg P1) => me_ + "cía" ; --# notpresent - VP (Impf Ind Sg P2) => me_ + "cías" ; --# notpresent - VP (Impf Ind Sg P3) => me_ + "cía" ; --# notpresent - VP (Impf Ind Pl P1) => me_ + "cíamos" ; --# notpresent - VP (Impf Ind Pl P2) => me_ + "cíais" ; --# notpresent - VP (Impf Ind Pl P3) => me_ + "cían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {me_ + "ciera" ; me_ + "ciese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {me_ + "cieras" ; me_ + "cieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {me_ + "ciera" ; me_ + "ciese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {me_ + "ciéramos" ; me_ + "ciésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {me_ + "cierais" ; me_ + "cieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {me_ + "cieran" ; me_ + "ciesen"} ; --# notpresent - VP (Pret Sg P1) => me_ + "cí" ; --# notpresent - VP (Pret Sg P2) => me_ + "ciste" ; --# notpresent - VP (Pret Sg P3) => me_ + "ció" ; --# notpresent - VP (Pret Pl P1) => me_ + "cimos" ; --# notpresent - VP (Pret Pl P2) => me_ + "cisteis" ; --# notpresent - VP (Pret Pl P3) => me_ + "cieron" ; --# notpresent - VP (Fut Ind Sg P1) => me_ + "ceré" ; --# notpresent - VP (Fut Ind Sg P2) => me_ + "cerás" ; --# notpresent - VP (Fut Ind Sg P3) => me_ + "cerá" ; --# notpresent - VP (Fut Ind Pl P1) => me_ + "ceremos" ; --# notpresent - VP (Fut Ind Pl P2) => me_ + "ceréis" ; --# notpresent - VP (Fut Ind Pl P3) => me_ + "cerán" ; --# notpresent - VP (Fut Subj Sg P1) => me_ + "ciere" ; --# notpresent - VP (Fut Subj Sg P2) => me_ + "cieres" ; --# notpresent - VP (Fut Subj Sg P3) => me_ + "ciere" ; --# notpresent - VP (Fut Subj Pl P1) => me_ + "ciéremos" ; --# notpresent - VP (Fut Subj Pl P2) => me_ + "ciereis" ; --# notpresent - VP (Fut Subj Pl P3) => me_ + "cieren" ; --# notpresent - VP (Cond Sg P1) => me_ + "cería" ; --# notpresent - VP (Cond Sg P2) => me_ + "cerías" ; --# notpresent - VP (Cond Sg P3) => me_ + "cería" ; --# notpresent - VP (Cond Pl P1) => me_ + "ceríamos" ; --# notpresent - VP (Cond Pl P2) => me_ + "ceríais" ; --# notpresent - VP (Cond Pl P3) => me_ + "cerían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => me_ + "ce" ; - VP (Imp Sg P3) => me_ + "za" ; - VP (Imp Pl P1) => me_ + "zamos" ; - VP (Imp Pl P2) => me_ + "ced" ; - VP (Imp Pl P3) => me_ + "zan" ; - VP (Pass Sg Masc) => me_ + "cido" ; - VP (Pass Sg Fem) => me_ + "cida" ; - VP (Pass Pl Masc) => me_ + "cidos" ; - VP (Pass Pl Fem) => me_ + "cidas" - } - } ; -oper mover_50 : Str -> Verbum = \mover -> - let m_ = Predef.tk 4 mover in - {s = table { - VI Infn => m_ + "over" ; - VI Ger => m_ + "oviendo" ; - VI Part => m_ + "ovido" ; - VP (Pres Ind Sg P1) => m_ + "uevo" ; - VP (Pres Ind Sg P2) => m_ + "ueves" ; - VP (Pres Ind Sg P3) => m_ + "ueve" ; - VP (Pres Ind Pl P1) => m_ + "ovemos" ; - VP (Pres Ind Pl P2) => m_ + "ovéis" ; - VP (Pres Ind Pl P3) => m_ + "ueven" ; - VP (Pres Subj Sg P1) => m_ + "ueva" ; - VP (Pres Subj Sg P2) => m_ + "uevas" ; - VP (Pres Subj Sg P3) => m_ + "ueva" ; - VP (Pres Subj Pl P1) => m_ + "ovamos" ; - VP (Pres Subj Pl P2) => m_ + "ováis" ; - VP (Pres Subj Pl P3) => m_ + "uevan" ; - VP (Impf Ind Sg P1) => m_ + "ovía" ; --# notpresent - VP (Impf Ind Sg P2) => m_ + "ovías" ; --# notpresent - VP (Impf Ind Sg P3) => m_ + "ovía" ; --# notpresent - VP (Impf Ind Pl P1) => m_ + "ovíamos" ; --# notpresent - VP (Impf Ind Pl P2) => m_ + "ovíais" ; --# notpresent - VP (Impf Ind Pl P3) => m_ + "ovían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {m_ + "oviera" ; m_ + "oviese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {m_ + "ovieras" ; m_ + "ovieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {m_ + "oviera" ; m_ + "oviese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {m_ + "oviéramos" ; m_ + "oviésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {m_ + "ovierais" ; m_ + "ovieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {m_ + "ovieran" ; m_ + "oviesen"} ; --# notpresent - VP (Pret Sg P1) => m_ + "oví" ; --# notpresent - VP (Pret Sg P2) => m_ + "oviste" ; --# notpresent - VP (Pret Sg P3) => m_ + "ovió" ; --# notpresent - VP (Pret Pl P1) => m_ + "ovimos" ; --# notpresent - VP (Pret Pl P2) => m_ + "ovisteis" ; --# notpresent - VP (Pret Pl P3) => m_ + "ovieron" ; --# notpresent - VP (Fut Ind Sg P1) => m_ + "overé" ; --# notpresent - VP (Fut Ind Sg P2) => m_ + "overás" ; --# notpresent - VP (Fut Ind Sg P3) => m_ + "overá" ; --# notpresent - VP (Fut Ind Pl P1) => m_ + "overemos" ; --# notpresent - VP (Fut Ind Pl P2) => m_ + "overéis" ; --# notpresent - VP (Fut Ind Pl P3) => m_ + "overán" ; --# notpresent - VP (Fut Subj Sg P1) => m_ + "oviere" ; --# notpresent - VP (Fut Subj Sg P2) => m_ + "ovieres" ; --# notpresent - VP (Fut Subj Sg P3) => m_ + "oviere" ; --# notpresent - VP (Fut Subj Pl P1) => m_ + "oviéremos" ; --# notpresent - VP (Fut Subj Pl P2) => m_ + "oviereis" ; --# notpresent - VP (Fut Subj Pl P3) => m_ + "ovieren" ; --# notpresent - VP (Cond Sg P1) => m_ + "overía" ; --# notpresent - VP (Cond Sg P2) => m_ + "overías" ; --# notpresent - VP (Cond Sg P3) => m_ + "overía" ; --# notpresent - VP (Cond Pl P1) => m_ + "overíamos" ; --# notpresent - VP (Cond Pl P2) => m_ + "overíais" ; --# notpresent - VP (Cond Pl P3) => m_ + "overían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => m_ + "ueve" ; - VP (Imp Sg P3) => m_ + "ueva" ; - VP (Imp Pl P1) => m_ + "ovamos" ; - VP (Imp Pl P2) => m_ + "oved" ; - VP (Imp Pl P3) => m_ + "uevan" ; - VP (Pass Sg Masc) => m_ + "ovido" ; - VP (Pass Sg Fem) => m_ + "ovida" ; - VP (Pass Pl Masc) => m_ + "ovidos" ; - VP (Pass Pl Fem) => m_ + "ovidas" - } - } ; -oper morder_50b : Str -> Verbum = \morder -> - let m_ = Predef.tk 4 morder in - {s = table { - VI Infn => m_ + "order" ; - VI Ger => m_ + "ordiendo" ; - VI Part => m_ + "ordido" ; - VP (Pres Ind Sg P1) => m_ + "uerdo" ; - VP (Pres Ind Sg P2) => m_ + "uerdes" ; - VP (Pres Ind Sg P3) => m_ + "uerde" ; - VP (Pres Ind Pl P1) => m_ + "ordemos" ; - VP (Pres Ind Pl P2) => m_ + "ordéis" ; - VP (Pres Ind Pl P3) => m_ + "uerden" ; - VP (Pres Subj Sg P1) => m_ + "uerda" ; - VP (Pres Subj Sg P2) => m_ + "uerdas" ; - VP (Pres Subj Sg P3) => m_ + "uerda" ; - VP (Pres Subj Pl P1) => m_ + "ordamos" ; - VP (Pres Subj Pl P2) => m_ + "ordáis" ; - VP (Pres Subj Pl P3) => m_ + "uerdan" ; - VP (Impf Ind Sg P1) => m_ + "ordía" ; --# notpresent - VP (Impf Ind Sg P2) => m_ + "ordías" ; --# notpresent - VP (Impf Ind Sg P3) => m_ + "ordía" ; --# notpresent - VP (Impf Ind Pl P1) => m_ + "ordíamos" ; --# notpresent - VP (Impf Ind Pl P2) => m_ + "ordíais" ; --# notpresent - VP (Impf Ind Pl P3) => m_ + "ordían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {m_ + "ordiera" ; m_ + "ordiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {m_ + "ordieras" ; m_ + "ordieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {m_ + "ordiera" ; m_ + "ordiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {m_ + "ordiéramos" ; m_ + "ordiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {m_ + "ordierais" ; m_ + "ordieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {m_ + "ordieran" ; m_ + "ordiesen"} ; --# notpresent - VP (Pret Sg P1) => m_ + "ordí" ; --# notpresent - VP (Pret Sg P2) => m_ + "ordiste" ; --# notpresent - VP (Pret Sg P3) => m_ + "ordió" ; --# notpresent - VP (Pret Pl P1) => m_ + "ordimos" ; --# notpresent - VP (Pret Pl P2) => m_ + "ordisteis" ; --# notpresent - VP (Pret Pl P3) => m_ + "ordieron" ; --# notpresent - VP (Fut Ind Sg P1) => m_ + "orderé" ; --# notpresent - VP (Fut Ind Sg P2) => m_ + "orderás" ; --# notpresent - VP (Fut Ind Sg P3) => m_ + "orderá" ; --# notpresent - VP (Fut Ind Pl P1) => m_ + "orderemos" ; --# notpresent - VP (Fut Ind Pl P2) => m_ + "orderéis" ; --# notpresent - VP (Fut Ind Pl P3) => m_ + "orderán" ; --# notpresent - VP (Fut Subj Sg P1) => m_ + "ordiere" ; --# notpresent - VP (Fut Subj Sg P2) => m_ + "ordieres" ; --# notpresent - VP (Fut Subj Sg P3) => m_ + "ordiere" ; --# notpresent - VP (Fut Subj Pl P1) => m_ + "ordiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => m_ + "ordiereis" ; --# notpresent - VP (Fut Subj Pl P3) => m_ + "ordieren" ; --# notpresent - VP (Cond Sg P1) => m_ + "ordería" ; --# notpresent - VP (Cond Sg P2) => m_ + "orderías" ; --# notpresent - VP (Cond Sg P3) => m_ + "ordería" ; --# notpresent - VP (Cond Pl P1) => m_ + "orderíamos" ; --# notpresent - VP (Cond Pl P2) => m_ + "orderíais" ; --# notpresent - VP (Cond Pl P3) => m_ + "orderían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => m_ + "uerde" ; - VP (Imp Sg P3) => m_ + "uerda" ; - VP (Imp Pl P1) => m_ + "ordamos" ; - VP (Imp Pl P2) => m_ + "orded" ; - VP (Imp Pl P3) => m_ + "uerdan" ; - VP (Pass Sg Masc) => m_ + "ordido" ; - VP (Pass Sg Fem) => m_ + "ordida" ; - VP (Pass Pl Masc) => m_ + "ordidos" ; - VP (Pass Pl Fem) => m_ + "ordidas" - } - } ; -oper oler_52 : Str -> Verbum = \oler -> - let x_ = Predef.tk 4 oler in - {s = table { - VI Infn => x_ + "oler" ; - VI Ger => x_ + "oliendo" ; - VI Part => x_ + "olido" ; - VP (Pres Ind Sg P1) => x_ + "huelo" ; - VP (Pres Ind Sg P2) => x_ + "hueles" ; - VP (Pres Ind Sg P3) => x_ + "huele" ; - VP (Pres Ind Pl P1) => x_ + "olemos" ; - VP (Pres Ind Pl P2) => x_ + "oléis" ; - VP (Pres Ind Pl P3) => x_ + "huelen" ; - VP (Pres Subj Sg P1) => x_ + "huela" ; - VP (Pres Subj Sg P2) => x_ + "huelas" ; - VP (Pres Subj Sg P3) => x_ + "huela" ; - VP (Pres Subj Pl P1) => x_ + "olamos" ; - VP (Pres Subj Pl P2) => x_ + "oláis" ; - VP (Pres Subj Pl P3) => x_ + "huelan" ; - VP (Impf Ind Sg P1) => x_ + "olía" ; --# notpresent - VP (Impf Ind Sg P2) => x_ + "olías" ; --# notpresent - VP (Impf Ind Sg P3) => x_ + "olía" ; --# notpresent - VP (Impf Ind Pl P1) => x_ + "olíamos" ; --# notpresent - VP (Impf Ind Pl P2) => x_ + "olíais" ; --# notpresent - VP (Impf Ind Pl P3) => x_ + "olían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {x_ + "oliera" ; x_ + "oliese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {x_ + "olieras" ; x_ + "olieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {x_ + "oliera" ; x_ + "oliese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {x_ + "oliéramos" ; x_ + "oliésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {x_ + "olierais" ; x_ + "olieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {x_ + "olieran" ; x_ + "oliesen"} ; --# notpresent - VP (Pret Sg P1) => x_ + "olí" ; --# notpresent - VP (Pret Sg P2) => x_ + "oliste" ; --# notpresent - VP (Pret Sg P3) => x_ + "olió" ; --# notpresent - VP (Pret Pl P1) => x_ + "olimos" ; --# notpresent - VP (Pret Pl P2) => x_ + "olisteis" ; --# notpresent - VP (Pret Pl P3) => x_ + "olieron" ; --# notpresent - VP (Fut Ind Sg P1) => x_ + "oleré" ; --# notpresent - VP (Fut Ind Sg P2) => x_ + "olerás" ; --# notpresent - VP (Fut Ind Sg P3) => x_ + "olerá" ; --# notpresent - VP (Fut Ind Pl P1) => x_ + "oleremos" ; --# notpresent - VP (Fut Ind Pl P2) => x_ + "oleréis" ; --# notpresent - VP (Fut Ind Pl P3) => x_ + "olerán" ; --# notpresent - VP (Fut Subj Sg P1) => x_ + "oliere" ; --# notpresent - VP (Fut Subj Sg P2) => x_ + "olieres" ; --# notpresent - VP (Fut Subj Sg P3) => x_ + "oliere" ; --# notpresent - VP (Fut Subj Pl P1) => x_ + "oliéremos" ; --# notpresent - VP (Fut Subj Pl P2) => x_ + "oliereis" ; --# notpresent - VP (Fut Subj Pl P3) => x_ + "olieren" ; --# notpresent - VP (Cond Sg P1) => x_ + "olería" ; --# notpresent - VP (Cond Sg P2) => x_ + "olerías" ; --# notpresent - VP (Cond Sg P3) => x_ + "olería" ; --# notpresent - VP (Cond Pl P1) => x_ + "oleríamos" ; --# notpresent - VP (Cond Pl P2) => x_ + "oleríais" ; --# notpresent - VP (Cond Pl P3) => x_ + "olerían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => x_ + "huele" ; - VP (Imp Sg P3) => x_ + "huela" ; - VP (Imp Pl P1) => x_ + "olamos" ; - VP (Imp Pl P2) => x_ + "oled" ; - VP (Imp Pl P3) => x_ + "huelan" ; - VP (Pass Sg Masc) => x_ + "olido" ; - VP (Pass Sg Fem) => x_ + "olida" ; - VP (Pass Pl Masc) => x_ + "olidos" ; - VP (Pass Pl Fem) => x_ + "olidas" - } - } ; -oper pagar_53 : Str -> Verbum = \pagar -> - let pag_ = Predef.tk 2 pagar in - {s = table { - VI Infn => pag_ + "ar" ; - VI Ger => pag_ + "ando" ; - VI Part => pag_ + "ado" ; - VP (Pres Ind Sg P1) => pag_ + "o" ; - VP (Pres Ind Sg P2) => pag_ + "as" ; - VP (Pres Ind Sg P3) => pag_ + "a" ; - VP (Pres Ind Pl P1) => pag_ + "amos" ; - VP (Pres Ind Pl P2) => pag_ + "áis" ; - VP (Pres Ind Pl P3) => pag_ + "an" ; - VP (Pres Subj Sg P1) => pag_ + "ue" ; - VP (Pres Subj Sg P2) => pag_ + "ues" ; - VP (Pres Subj Sg P3) => pag_ + "ue" ; - VP (Pres Subj Pl P1) => pag_ + "uemos" ; - VP (Pres Subj Pl P2) => pag_ + "uéis" ; - VP (Pres Subj Pl P3) => pag_ + "uen" ; - VP (Impf Ind Sg P1) => pag_ + "aba" ; --# notpresent - VP (Impf Ind Sg P2) => pag_ + "abas" ; --# notpresent - VP (Impf Ind Sg P3) => pag_ + "aba" ; --# notpresent - VP (Impf Ind Pl P1) => pag_ + "ábamos" ; --# notpresent - VP (Impf Ind Pl P2) => pag_ + "abais" ; --# notpresent - VP (Impf Ind Pl P3) => pag_ + "aban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {pag_ + "ara" ; pag_ + "ase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {pag_ + "aras" ; pag_ + "ases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {pag_ + "ara" ; pag_ + "ase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {pag_ + "áramos" ; pag_ + "ásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {pag_ + "arais" ; pag_ + "aseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {pag_ + "aran" ; pag_ + "asen"} ; --# notpresent - VP (Pret Sg P1) => pag_ + "ué" ; --# notpresent - VP (Pret Sg P2) => pag_ + "aste" ; --# notpresent - VP (Pret Sg P3) => pag_ + "ó" ; --# notpresent - VP (Pret Pl P1) => pag_ + "amos" ; --# notpresent - VP (Pret Pl P2) => pag_ + "asteis" ; --# notpresent - VP (Pret Pl P3) => pag_ + "aron" ; --# notpresent - VP (Fut Ind Sg P1) => pag_ + "aré" ; --# notpresent - VP (Fut Ind Sg P2) => pag_ + "arás" ; --# notpresent - VP (Fut Ind Sg P3) => pag_ + "ará" ; --# notpresent - VP (Fut Ind Pl P1) => pag_ + "aremos" ; --# notpresent - VP (Fut Ind Pl P2) => pag_ + "aréis" ; --# notpresent - VP (Fut Ind Pl P3) => pag_ + "arán" ; --# notpresent - VP (Fut Subj Sg P1) => pag_ + "are" ; --# notpresent - VP (Fut Subj Sg P2) => pag_ + "ares" ; --# notpresent - VP (Fut Subj Sg P3) => pag_ + "are" ; --# notpresent - VP (Fut Subj Pl P1) => pag_ + "áremos" ; --# notpresent - VP (Fut Subj Pl P2) => pag_ + "areis" ; --# notpresent - VP (Fut Subj Pl P3) => pag_ + "aren" ; --# notpresent - VP (Cond Sg P1) => pag_ + "aría" ; --# notpresent - VP (Cond Sg P2) => pag_ + "arías" ; --# notpresent - VP (Cond Sg P3) => pag_ + "aría" ; --# notpresent - VP (Cond Pl P1) => pag_ + "aríamos" ; --# notpresent - VP (Cond Pl P2) => pag_ + "aríais" ; --# notpresent - VP (Cond Pl P3) => pag_ + "arían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => pag_ + "a" ; - VP (Imp Sg P3) => pag_ + "ue" ; - VP (Imp Pl P1) => pag_ + "uemos" ; - VP (Imp Pl P2) => pag_ + "ad" ; - VP (Imp Pl P3) => pag_ + "uen" ; - VP (Pass Sg Masc) => pag_ + "ado" ; - VP (Pass Sg Fem) => pag_ + "ada" ; - VP (Pass Pl Masc) => pag_ + "ados" ; - VP (Pass Pl Fem) => pag_ + "adas" - } - } ; -oper parecer_54 : Str -> Verbum = \parecer -> - let pare_ = Predef.tk 3 parecer in - {s = table { - VI Infn => pare_ + "cer" ; - VI Ger => pare_ + "ciendo" ; - VI Part => pare_ + "cido" ; - VP (Pres Ind Sg P1) => pare_ + "zco" ; - VP (Pres Ind Sg P2) => pare_ + "ces" ; - VP (Pres Ind Sg P3) => pare_ + "ce" ; - VP (Pres Ind Pl P1) => pare_ + "cemos" ; - VP (Pres Ind Pl P2) => pare_ + "céis" ; - VP (Pres Ind Pl P3) => pare_ + "cen" ; - VP (Pres Subj Sg P1) => pare_ + "zca" ; - VP (Pres Subj Sg P2) => pare_ + "zcas" ; - VP (Pres Subj Sg P3) => pare_ + "zca" ; - VP (Pres Subj Pl P1) => pare_ + "zcamos" ; - VP (Pres Subj Pl P2) => pare_ + "zcáis" ; - VP (Pres Subj Pl P3) => pare_ + "zcan" ; - VP (Impf Ind Sg P1) => pare_ + "cía" ; --# notpresent - VP (Impf Ind Sg P2) => pare_ + "cías" ; --# notpresent - VP (Impf Ind Sg P3) => pare_ + "cía" ; --# notpresent - VP (Impf Ind Pl P1) => pare_ + "cíamos" ; --# notpresent - VP (Impf Ind Pl P2) => pare_ + "cíais" ; --# notpresent - VP (Impf Ind Pl P3) => pare_ + "cían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {pare_ + "ciera" ; pare_ + "ciese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {pare_ + "cieras" ; pare_ + "cieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {pare_ + "ciera" ; pare_ + "ciese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {pare_ + "ciéramos" ; pare_ + "ciésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {pare_ + "cierais" ; pare_ + "cieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {pare_ + "cieran" ; pare_ + "ciesen"} ; --# notpresent - VP (Pret Sg P1) => pare_ + "cí" ; --# notpresent - VP (Pret Sg P2) => pare_ + "ciste" ; --# notpresent - VP (Pret Sg P3) => pare_ + "ció" ; --# notpresent - VP (Pret Pl P1) => pare_ + "cimos" ; --# notpresent - VP (Pret Pl P2) => pare_ + "cisteis" ; --# notpresent - VP (Pret Pl P3) => pare_ + "cieron" ; --# notpresent - VP (Fut Ind Sg P1) => pare_ + "ceré" ; --# notpresent - VP (Fut Ind Sg P2) => pare_ + "cerás" ; --# notpresent - VP (Fut Ind Sg P3) => pare_ + "cerá" ; --# notpresent - VP (Fut Ind Pl P1) => pare_ + "ceremos" ; --# notpresent - VP (Fut Ind Pl P2) => pare_ + "ceréis" ; --# notpresent - VP (Fut Ind Pl P3) => pare_ + "cerán" ; --# notpresent - VP (Fut Subj Sg P1) => pare_ + "ciere" ; --# notpresent - VP (Fut Subj Sg P2) => pare_ + "cieres" ; --# notpresent - VP (Fut Subj Sg P3) => pare_ + "ciere" ; --# notpresent - VP (Fut Subj Pl P1) => pare_ + "ciéremos" ; --# notpresent - VP (Fut Subj Pl P2) => pare_ + "ciereis" ; --# notpresent - VP (Fut Subj Pl P3) => pare_ + "cieren" ; --# notpresent - VP (Cond Sg P1) => pare_ + "cería" ; --# notpresent - VP (Cond Sg P2) => pare_ + "cerías" ; --# notpresent - VP (Cond Sg P3) => pare_ + "cería" ; --# notpresent - VP (Cond Pl P1) => pare_ + "ceríamos" ; --# notpresent - VP (Cond Pl P2) => pare_ + "ceríais" ; --# notpresent - VP (Cond Pl P3) => pare_ + "cerían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => pare_ + "ce" ; - VP (Imp Sg P3) => pare_ + "zca" ; - VP (Imp Pl P1) => pare_ + "zcamos" ; - VP (Imp Pl P2) => pare_ + "ced" ; - VP (Imp Pl P3) => pare_ + "zcan" ; - VP (Pass Sg Masc) => pare_ + "cido" ; - VP (Pass Sg Fem) => pare_ + "cida" ; - VP (Pass Pl Masc) => pare_ + "cidos" ; - VP (Pass Pl Fem) => pare_ + "cidas" - } - } ; -oper pedir_55 : Str -> Verbum = \pedir -> - let p_ = Predef.tk 4 pedir in - {s = table { - VI Infn => p_ + "edir" ; - VI Ger => p_ + "idiendo" ; - VI Part => p_ + "edido" ; - VP (Pres Ind Sg P1) => p_ + "ido" ; - VP (Pres Ind Sg P2) => p_ + "ides" ; - VP (Pres Ind Sg P3) => p_ + "ide" ; - VP (Pres Ind Pl P1) => p_ + "edimos" ; - VP (Pres Ind Pl P2) => p_ + "edís" ; - VP (Pres Ind Pl P3) => p_ + "iden" ; - VP (Pres Subj Sg P1) => p_ + "ida" ; - VP (Pres Subj Sg P2) => p_ + "idas" ; - VP (Pres Subj Sg P3) => p_ + "ida" ; - VP (Pres Subj Pl P1) => p_ + "idamos" ; - VP (Pres Subj Pl P2) => p_ + "idáis" ; - VP (Pres Subj Pl P3) => p_ + "idan" ; - VP (Impf Ind Sg P1) => p_ + "edía" ; --# notpresent - VP (Impf Ind Sg P2) => p_ + "edías" ; --# notpresent - VP (Impf Ind Sg P3) => p_ + "edía" ; --# notpresent - VP (Impf Ind Pl P1) => p_ + "edíamos" ; --# notpresent - VP (Impf Ind Pl P2) => p_ + "edíais" ; --# notpresent - VP (Impf Ind Pl P3) => p_ + "edían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {p_ + "idiera" ; p_ + "idiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {p_ + "idieras" ; p_ + "idieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {p_ + "idiera" ; p_ + "idiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {p_ + "idiéramos" ; p_ + "idiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {p_ + "idierais" ; p_ + "idieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {p_ + "idieran" ; p_ + "idiesen"} ; --# notpresent - VP (Pret Sg P1) => p_ + "edí" ; --# notpresent - VP (Pret Sg P2) => p_ + "ediste" ; --# notpresent - VP (Pret Sg P3) => p_ + "idió" ; --# notpresent - VP (Pret Pl P1) => p_ + "edimos" ; --# notpresent - VP (Pret Pl P2) => p_ + "edisteis" ; --# notpresent - VP (Pret Pl P3) => p_ + "idieron" ; --# notpresent - VP (Fut Ind Sg P1) => p_ + "ediré" ; --# notpresent - VP (Fut Ind Sg P2) => p_ + "edirás" ; --# notpresent - VP (Fut Ind Sg P3) => p_ + "edirá" ; --# notpresent - VP (Fut Ind Pl P1) => p_ + "ediremos" ; --# notpresent - VP (Fut Ind Pl P2) => p_ + "ediréis" ; --# notpresent - VP (Fut Ind Pl P3) => p_ + "edirán" ; --# notpresent - VP (Fut Subj Sg P1) => p_ + "idiere" ; --# notpresent - VP (Fut Subj Sg P2) => p_ + "idieres" ; --# notpresent - VP (Fut Subj Sg P3) => p_ + "idiere" ; --# notpresent - VP (Fut Subj Pl P1) => p_ + "idiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => p_ + "idiereis" ; --# notpresent - VP (Fut Subj Pl P3) => p_ + "idieren" ; --# notpresent - VP (Cond Sg P1) => p_ + "ediría" ; --# notpresent - VP (Cond Sg P2) => p_ + "edirías" ; --# notpresent - VP (Cond Sg P3) => p_ + "ediría" ; --# notpresent - VP (Cond Pl P1) => p_ + "ediríamos" ; --# notpresent - VP (Cond Pl P2) => p_ + "ediríais" ; --# notpresent - VP (Cond Pl P3) => p_ + "edirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => p_ + "ide" ; - VP (Imp Sg P3) => p_ + "ida" ; - VP (Imp Pl P1) => p_ + "idamos" ; - VP (Imp Pl P2) => p_ + "edid" ; - VP (Imp Pl P3) => p_ + "idan" ; - VP (Pass Sg Masc) => p_ + "edido" ; - VP (Pass Sg Fem) => p_ + "edida" ; - VP (Pass Pl Masc) => p_ + "edidos" ; - VP (Pass Pl Fem) => p_ + "edidas" - } - } ; -oper pensar_56 : Str -> Verbum = \pensar -> - let p_ = Predef.tk 5 pensar in - {s = table { - VI Infn => p_ + "ensar" ; - VI Ger => p_ + "ensando" ; - VI Part => p_ + "ensado" ; - VP (Pres Ind Sg P1) => p_ + "ienso" ; - VP (Pres Ind Sg P2) => p_ + "iensas" ; - VP (Pres Ind Sg P3) => p_ + "iensa" ; - VP (Pres Ind Pl P1) => p_ + "ensamos" ; - VP (Pres Ind Pl P2) => p_ + "ensáis" ; - VP (Pres Ind Pl P3) => p_ + "iensan" ; - VP (Pres Subj Sg P1) => p_ + "iense" ; - VP (Pres Subj Sg P2) => p_ + "ienses" ; - VP (Pres Subj Sg P3) => p_ + "iense" ; - VP (Pres Subj Pl P1) => p_ + "ensemos" ; - VP (Pres Subj Pl P2) => p_ + "enséis" ; - VP (Pres Subj Pl P3) => p_ + "iensen" ; - VP (Impf Ind Sg P1) => p_ + "ensaba" ; --# notpresent - VP (Impf Ind Sg P2) => p_ + "ensabas" ; --# notpresent - VP (Impf Ind Sg P3) => p_ + "ensaba" ; --# notpresent - VP (Impf Ind Pl P1) => p_ + "ensábamos" ; --# notpresent - VP (Impf Ind Pl P2) => p_ + "ensabais" ; --# notpresent - VP (Impf Ind Pl P3) => p_ + "ensaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {p_ + "ensara" ; p_ + "ensase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {p_ + "ensaras" ; p_ + "ensases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {p_ + "ensara" ; p_ + "ensase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {p_ + "ensáramos" ; p_ + "ensásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {p_ + "ensarais" ; p_ + "ensaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {p_ + "ensaran" ; p_ + "ensasen"} ; --# notpresent - VP (Pret Sg P1) => p_ + "ensé" ; --# notpresent - VP (Pret Sg P2) => p_ + "ensaste" ; --# notpresent - VP (Pret Sg P3) => p_ + "ensó" ; --# notpresent - VP (Pret Pl P1) => p_ + "ensamos" ; --# notpresent - VP (Pret Pl P2) => p_ + "ensasteis" ; --# notpresent - VP (Pret Pl P3) => p_ + "ensaron" ; --# notpresent - VP (Fut Ind Sg P1) => p_ + "ensaré" ; --# notpresent - VP (Fut Ind Sg P2) => p_ + "ensarás" ; --# notpresent - VP (Fut Ind Sg P3) => p_ + "ensará" ; --# notpresent - VP (Fut Ind Pl P1) => p_ + "ensaremos" ; --# notpresent - VP (Fut Ind Pl P2) => p_ + "ensaréis" ; --# notpresent - VP (Fut Ind Pl P3) => p_ + "ensarán" ; --# notpresent - VP (Fut Subj Sg P1) => p_ + "ensare" ; --# notpresent - VP (Fut Subj Sg P2) => p_ + "ensares" ; --# notpresent - VP (Fut Subj Sg P3) => p_ + "ensare" ; --# notpresent - VP (Fut Subj Pl P1) => p_ + "ensáremos" ; --# notpresent - VP (Fut Subj Pl P2) => p_ + "ensareis" ; --# notpresent - VP (Fut Subj Pl P3) => p_ + "ensaren" ; --# notpresent - VP (Cond Sg P1) => p_ + "ensaría" ; --# notpresent - VP (Cond Sg P2) => p_ + "ensarías" ; --# notpresent - VP (Cond Sg P3) => p_ + "ensaría" ; --# notpresent - VP (Cond Pl P1) => p_ + "ensaríamos" ; --# notpresent - VP (Cond Pl P2) => p_ + "ensaríais" ; --# notpresent - VP (Cond Pl P3) => p_ + "ensarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => p_ + "iensa" ; - VP (Imp Sg P3) => p_ + "iense" ; - VP (Imp Pl P1) => p_ + "ensemos" ; - VP (Imp Pl P2) => p_ + "ensad" ; - VP (Imp Pl P3) => p_ + "iensen" ; - VP (Pass Sg Masc) => p_ + "ensado" ; - VP (Pass Sg Fem) => p_ + "ensada" ; - VP (Pass Pl Masc) => p_ + "ensados" ; - VP (Pass Pl Fem) => p_ + "ensadas" - } - } ; -oper placer_57 : Str -> Verbum = \placer -> - let pl_ = Predef.tk 4 placer in - {s = table { - VI Infn => pl_ + "acer" ; - VI Ger => pl_ + "aciendo" ; - VI Part => pl_ + "acido" ; - VP (Pres Ind Sg P1) => pl_ + "azco" ; - VP (Pres Ind Sg P2) => pl_ + "aces" ; - VP (Pres Ind Sg P3) => pl_ + "ace" ; - VP (Pres Ind Pl P1) => pl_ + "acemos" ; - VP (Pres Ind Pl P2) => pl_ + "acéis" ; - VP (Pres Ind Pl P3) => pl_ + "acen" ; - VP (Pres Subj Sg P1) => pl_ + "azca" ; - VP (Pres Subj Sg P2) => pl_ + "azcas" ; - VP (Pres Subj Sg P3) => variants {pl_ + "azca" ; pl_ + "egue" ; pl_ + "ega"} ; - VP (Pres Subj Pl P1) => pl_ + "azcamos" ; - VP (Pres Subj Pl P2) => pl_ + "azcáis" ; - VP (Pres Subj Pl P3) => pl_ + "azcan" ; - VP (Impf Ind Sg P1) => pl_ + "acía" ; --# notpresent - VP (Impf Ind Sg P2) => pl_ + "acías" ; --# notpresent - VP (Impf Ind Sg P3) => pl_ + "acía" ; --# notpresent - VP (Impf Ind Pl P1) => pl_ + "acíamos" ; --# notpresent - VP (Impf Ind Pl P2) => pl_ + "acíais" ; --# notpresent - VP (Impf Ind Pl P3) => pl_ + "acían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {pl_ + "aciera" ; pl_ + "aciese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {pl_ + "acieras" ; pl_ + "acieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {pl_ + "aciera" ; pl_ + "aciese" ; pl_ + "uguiera" ; pl_ + "uguiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {pl_ + "aciéramos" ; pl_ + "aciésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {pl_ + "acierais" ; pl_ + "acieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {pl_ + "acieran" ; pl_ + "aciesen"} ; --# notpresent - VP (Pret Sg P1) => pl_ + "ací" ; --# notpresent - VP (Pret Sg P2) => pl_ + "aciste" ; --# notpresent - VP (Pret Sg P3) => variants {pl_ + "ació" ; pl_ + "ugo"} ; --# notpresent - VP (Pret Pl P1) => pl_ + "acimos" ; --# notpresent - VP (Pret Pl P2) => pl_ + "acisteis" ; --# notpresent - VP (Pret Pl P3) => variants {pl_ + "acieron" ; pl_ + "uguieron"} ; --# notpresent - VP (Fut Ind Sg P1) => pl_ + "aceré" ; --# notpresent - VP (Fut Ind Sg P2) => pl_ + "acerás" ; --# notpresent - VP (Fut Ind Sg P3) => pl_ + "acerá" ; --# notpresent - VP (Fut Ind Pl P1) => pl_ + "aceremos" ; --# notpresent - VP (Fut Ind Pl P2) => pl_ + "aceréis" ; --# notpresent - VP (Fut Ind Pl P3) => pl_ + "acerán" ; --# notpresent - VP (Fut Subj Sg P1) => pl_ + "aciere" ; --# notpresent - VP (Fut Subj Sg P2) => pl_ + "acieres" ; --# notpresent - VP (Fut Subj Sg P3) => variants {pl_ + "aciere" ; pl_ + "uguiere"} ; --# notpresent - VP (Fut Subj Pl P1) => pl_ + "aciéremos" ; --# notpresent - VP (Fut Subj Pl P2) => pl_ + "aciereis" ; --# notpresent - VP (Fut Subj Pl P3) => pl_ + "acieren" ; --# notpresent - VP (Cond Sg P1) => pl_ + "acería" ; --# notpresent - VP (Cond Sg P2) => pl_ + "acerías" ; --# notpresent - VP (Cond Sg P3) => pl_ + "acería" ; --# notpresent - VP (Cond Pl P1) => pl_ + "aceríamos" ; --# notpresent - VP (Cond Pl P2) => pl_ + "aceríais" ; --# notpresent - VP (Cond Pl P3) => pl_ + "acerían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => pl_ + "ace" ; - VP (Imp Sg P3) => pl_ + "azca" ; - VP (Imp Pl P1) => pl_ + "azcamos" ; - VP (Imp Pl P2) => pl_ + "aced" ; - VP (Imp Pl P3) => pl_ + "azcan" ; - VP (Pass Sg Masc) => pl_ + "acido" ; - VP (Pass Sg Fem) => pl_ + "acida" ; - VP (Pass Pl Masc) => pl_ + "acidos" ; - VP (Pass Pl Fem) => pl_ + "acidas" - } - } ; -oper poder_58 : Str -> Verbum = \poder -> - let p_ = Predef.tk 4 poder in - {s = table { - VI Infn => p_ + "oder" ; - VI Ger => p_ + "udiendo" ; - VI Part => p_ + "odido" ; - VP (Pres Ind Sg P1) => p_ + "uedo" ; - VP (Pres Ind Sg P2) => p_ + "uedes" ; - VP (Pres Ind Sg P3) => p_ + "uede" ; - VP (Pres Ind Pl P1) => p_ + "odemos" ; - VP (Pres Ind Pl P2) => p_ + "odéis" ; - VP (Pres Ind Pl P3) => p_ + "ueden" ; - VP (Pres Subj Sg P1) => p_ + "ueda" ; - VP (Pres Subj Sg P2) => p_ + "uedas" ; - VP (Pres Subj Sg P3) => p_ + "ueda" ; - VP (Pres Subj Pl P1) => p_ + "odamos" ; - VP (Pres Subj Pl P2) => p_ + "odáis" ; - VP (Pres Subj Pl P3) => p_ + "uedan" ; - VP (Impf Ind Sg P1) => p_ + "odía" ; --# notpresent - VP (Impf Ind Sg P2) => p_ + "odías" ; --# notpresent - VP (Impf Ind Sg P3) => p_ + "odía" ; --# notpresent - VP (Impf Ind Pl P1) => p_ + "odíamos" ; --# notpresent - VP (Impf Ind Pl P2) => p_ + "odíais" ; --# notpresent - VP (Impf Ind Pl P3) => p_ + "odían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {p_ + "udiera" ; p_ + "udiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {p_ + "udieras" ; p_ + "udieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {p_ + "udiera" ; p_ + "udiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {p_ + "udiéramos" ; p_ + "udiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {p_ + "udierais" ; p_ + "udieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {p_ + "udieran" ; p_ + "udiesen"} ; --# notpresent - VP (Pret Sg P1) => p_ + "ude" ; --# notpresent - VP (Pret Sg P2) => p_ + "udiste" ; --# notpresent - VP (Pret Sg P3) => p_ + "udo" ; --# notpresent - VP (Pret Pl P1) => p_ + "udimos" ; --# notpresent - VP (Pret Pl P2) => p_ + "udisteis" ; --# notpresent - VP (Pret Pl P3) => p_ + "udieron" ; --# notpresent - VP (Fut Ind Sg P1) => p_ + "odré" ; --# notpresent - VP (Fut Ind Sg P2) => p_ + "odrás" ; --# notpresent - VP (Fut Ind Sg P3) => p_ + "odrá" ; --# notpresent - VP (Fut Ind Pl P1) => p_ + "odremos" ; --# notpresent - VP (Fut Ind Pl P2) => p_ + "odréis" ; --# notpresent - VP (Fut Ind Pl P3) => p_ + "odrán" ; --# notpresent - VP (Fut Subj Sg P1) => p_ + "udiere" ; --# notpresent - VP (Fut Subj Sg P2) => p_ + "udieres" ; --# notpresent - VP (Fut Subj Sg P3) => p_ + "udiere" ; --# notpresent - VP (Fut Subj Pl P1) => p_ + "udiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => p_ + "udiereis" ; --# notpresent - VP (Fut Subj Pl P3) => p_ + "udieren" ; --# notpresent - VP (Cond Sg P1) => p_ + "odría" ; --# notpresent - VP (Cond Sg P2) => p_ + "odrías" ; --# notpresent - VP (Cond Sg P3) => p_ + "odría" ; --# notpresent - VP (Cond Pl P1) => p_ + "odríamos" ; --# notpresent - VP (Cond Pl P2) => p_ + "odríais" ; --# notpresent - VP (Cond Pl P3) => p_ + "odrían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => p_ + "uede" ; - VP (Imp Sg P3) => p_ + "ueda" ; - VP (Imp Pl P1) => p_ + "odamos" ; - VP (Imp Pl P2) => p_ + "oded" ; - VP (Imp Pl P3) => p_ + "uedan" ; - VP (Pass Sg Masc) => p_ + "odido" ; - VP (Pass Sg Fem) => p_ + "odida" ; - VP (Pass Pl Masc) => p_ + "odidos" ; - VP (Pass Pl Fem) => p_ + "odidas" - } - } ; -oper poner_60 : Str -> Verbum = \poner -> - let p_ = Predef.tk 4 poner in - {s = table { - VI Infn => p_ + "oner" ; - VI Ger => p_ + "oniendo" ; - VI Part => p_ + "uesto" ; - VP (Pres Ind Sg P1) => p_ + "ongo" ; - VP (Pres Ind Sg P2) => p_ + "ones" ; - VP (Pres Ind Sg P3) => p_ + "one" ; - VP (Pres Ind Pl P1) => p_ + "onemos" ; - VP (Pres Ind Pl P2) => p_ + "onéis" ; - VP (Pres Ind Pl P3) => p_ + "onen" ; - VP (Pres Subj Sg P1) => p_ + "onga" ; - VP (Pres Subj Sg P2) => p_ + "ongas" ; - VP (Pres Subj Sg P3) => p_ + "onga" ; - VP (Pres Subj Pl P1) => p_ + "ongamos" ; - VP (Pres Subj Pl P2) => p_ + "ongáis" ; - VP (Pres Subj Pl P3) => p_ + "ongan" ; - VP (Impf Ind Sg P1) => p_ + "onía" ; --# notpresent - VP (Impf Ind Sg P2) => p_ + "onías" ; --# notpresent - VP (Impf Ind Sg P3) => p_ + "onía" ; --# notpresent - VP (Impf Ind Pl P1) => p_ + "oníamos" ; --# notpresent - VP (Impf Ind Pl P2) => p_ + "oníais" ; --# notpresent - VP (Impf Ind Pl P3) => p_ + "onían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {p_ + "usiera" ; p_ + "usiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {p_ + "usieras" ; p_ + "usieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {p_ + "usiera" ; p_ + "usiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {p_ + "usiéramos" ; p_ + "usiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {p_ + "usierais" ; p_ + "usieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {p_ + "usieran" ; p_ + "usiesen"} ; --# notpresent - VP (Pret Sg P1) => p_ + "use" ; --# notpresent - VP (Pret Sg P2) => p_ + "usiste" ; --# notpresent - VP (Pret Sg P3) => p_ + "uso" ; --# notpresent - VP (Pret Pl P1) => p_ + "usimos" ; --# notpresent - VP (Pret Pl P2) => p_ + "usisteis" ; --# notpresent - VP (Pret Pl P3) => p_ + "usieron" ; --# notpresent - VP (Fut Ind Sg P1) => p_ + "ondré" ; --# notpresent - VP (Fut Ind Sg P2) => p_ + "ondrás" ; --# notpresent - VP (Fut Ind Sg P3) => p_ + "ondrá" ; --# notpresent - VP (Fut Ind Pl P1) => p_ + "ondremos" ; --# notpresent - VP (Fut Ind Pl P2) => p_ + "ondréis" ; --# notpresent - VP (Fut Ind Pl P3) => p_ + "ondrán" ; --# notpresent - VP (Fut Subj Sg P1) => p_ + "usiere" ; --# notpresent - VP (Fut Subj Sg P2) => p_ + "usieres" ; --# notpresent - VP (Fut Subj Sg P3) => p_ + "usiere" ; --# notpresent - VP (Fut Subj Pl P1) => p_ + "usiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => p_ + "usiereis" ; --# notpresent - VP (Fut Subj Pl P3) => p_ + "usieren" ; --# notpresent - VP (Cond Sg P1) => p_ + "ondría" ; --# notpresent - VP (Cond Sg P2) => p_ + "ondrías" ; --# notpresent - VP (Cond Sg P3) => p_ + "ondría" ; --# notpresent - VP (Cond Pl P1) => p_ + "ondríamos" ; --# notpresent - VP (Cond Pl P2) => p_ + "ondríais" ; --# notpresent - VP (Cond Pl P3) => p_ + "ondrían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => p_ + "on" ; - VP (Imp Sg P3) => p_ + "onga" ; - VP (Imp Pl P1) => p_ + "ongamos" ; - VP (Imp Pl P2) => p_ + "oned" ; - VP (Imp Pl P3) => p_ + "ongan" ; - VP (Pass Sg Masc) => p_ + "uesto" ; - VP (Pass Sg Fem) => p_ + "uesta" ; - VP (Pass Pl Masc) => p_ + "uestos" ; - VP (Pass Pl Fem) => p_ + "uestas" - } - } ; -oper predecir_61 : Str -> Verbum = \predecir -> - let pred_ = Predef.tk 4 predecir in - {s = table { - VI Infn => pred_ + "ecir" ; - VI Ger => pred_ + "iciendo" ; - VI Part => pred_ + "icho" ; - VP (Pres Ind Sg P1) => pred_ + "igo" ; - VP (Pres Ind Sg P2) => pred_ + "ices" ; - VP (Pres Ind Sg P3) => pred_ + "ice" ; - VP (Pres Ind Pl P1) => pred_ + "ecimos" ; - VP (Pres Ind Pl P2) => pred_ + "ecís" ; - VP (Pres Ind Pl P3) => pred_ + "icen" ; - VP (Pres Subj Sg P1) => pred_ + "iga" ; - VP (Pres Subj Sg P2) => pred_ + "igas" ; - VP (Pres Subj Sg P3) => pred_ + "iga" ; - VP (Pres Subj Pl P1) => pred_ + "igamos" ; - VP (Pres Subj Pl P2) => pred_ + "igáis" ; - VP (Pres Subj Pl P3) => pred_ + "igan" ; - VP (Impf Ind Sg P1) => pred_ + "ecía" ; --# notpresent - VP (Impf Ind Sg P2) => pred_ + "ecías" ; --# notpresent - VP (Impf Ind Sg P3) => pred_ + "ecía" ; --# notpresent - VP (Impf Ind Pl P1) => pred_ + "ecíamos" ; --# notpresent - VP (Impf Ind Pl P2) => pred_ + "ecíais" ; --# notpresent - VP (Impf Ind Pl P3) => pred_ + "ecían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {pred_ + "ijera" ; pred_ + "ijese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {pred_ + "ijeras" ; pred_ + "ijeses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {pred_ + "ijera" ; pred_ + "ijese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {pred_ + "ijéramos" ; pred_ + "ijésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {pred_ + "ijerais" ; pred_ + "ijeseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {pred_ + "ijeran" ; pred_ + "ijesen"} ; --# notpresent - VP (Pret Sg P1) => pred_ + "ije" ; --# notpresent - VP (Pret Sg P2) => pred_ + "ijiste" ; --# notpresent - VP (Pret Sg P3) => pred_ + "ijo" ; --# notpresent - VP (Pret Pl P1) => pred_ + "ijimos" ; --# notpresent - VP (Pret Pl P2) => pred_ + "ijisteis" ; --# notpresent - VP (Pret Pl P3) => pred_ + "ijeron" ; --# notpresent - VP (Fut Ind Sg P1) => pred_ + "eciré" ; --# notpresent - VP (Fut Ind Sg P2) => pred_ + "ecirás" ; --# notpresent - VP (Fut Ind Sg P3) => pred_ + "ecirá" ; --# notpresent - VP (Fut Ind Pl P1) => pred_ + "eciremos" ; --# notpresent - VP (Fut Ind Pl P2) => pred_ + "eciréis" ; --# notpresent - VP (Fut Ind Pl P3) => pred_ + "ecirán" ; --# notpresent - VP (Fut Subj Sg P1) => pred_ + "ijere" ; --# notpresent - VP (Fut Subj Sg P2) => pred_ + "ijeres" ; --# notpresent - VP (Fut Subj Sg P3) => pred_ + "ijere" ; --# notpresent - VP (Fut Subj Pl P1) => pred_ + "ijéremos" ; --# notpresent - VP (Fut Subj Pl P2) => pred_ + "ijereis" ; --# notpresent - VP (Fut Subj Pl P3) => pred_ + "ijeren" ; --# notpresent - VP (Cond Sg P1) => pred_ + "eciría" ; --# notpresent - VP (Cond Sg P2) => pred_ + "ecirías" ; --# notpresent - VP (Cond Sg P3) => pred_ + "eciría" ; --# notpresent - VP (Cond Pl P1) => pred_ + "eciríamos" ; --# notpresent - VP (Cond Pl P2) => pred_ + "eciríais" ; --# notpresent - VP (Cond Pl P3) => pred_ + "ecirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => pred_ + "ice" ; - VP (Imp Sg P3) => pred_ + "iga" ; - VP (Imp Pl P1) => pred_ + "igamos" ; - VP (Imp Pl P2) => pred_ + "ecid" ; - VP (Imp Pl P3) => pred_ + "igan" ; - VP (Pass Sg Masc) => pred_ + "icho" ; - VP (Pass Sg Fem) => pred_ + "icha" ; - VP (Pass Pl Masc) => pred_ + "ichos" ; - VP (Pass Pl Fem) => pred_ + "ichas" - } - } ; -oper producir_62 : Str -> Verbum = \producir -> - let produ_ = Predef.tk 3 producir in - {s = table { - VI Infn => produ_ + "cir" ; - VI Ger => produ_ + "ciendo" ; - VI Part => produ_ + "cido" ; - VP (Pres Ind Sg P1) => produ_ + "zco" ; - VP (Pres Ind Sg P2) => produ_ + "ces" ; - VP (Pres Ind Sg P3) => produ_ + "ce" ; - VP (Pres Ind Pl P1) => produ_ + "cimos" ; - VP (Pres Ind Pl P2) => produ_ + "cís" ; - VP (Pres Ind Pl P3) => produ_ + "cen" ; - VP (Pres Subj Sg P1) => produ_ + "zca" ; - VP (Pres Subj Sg P2) => produ_ + "zcas" ; - VP (Pres Subj Sg P3) => produ_ + "zca" ; - VP (Pres Subj Pl P1) => produ_ + "zcamos" ; - VP (Pres Subj Pl P2) => produ_ + "zcáis" ; - VP (Pres Subj Pl P3) => produ_ + "zcan" ; - VP (Impf Ind Sg P1) => produ_ + "cía" ; --# notpresent - VP (Impf Ind Sg P2) => produ_ + "cías" ; --# notpresent - VP (Impf Ind Sg P3) => produ_ + "cía" ; --# notpresent - VP (Impf Ind Pl P1) => produ_ + "cíamos" ; --# notpresent - VP (Impf Ind Pl P2) => produ_ + "cíais" ; --# notpresent - VP (Impf Ind Pl P3) => produ_ + "cían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {produ_ + "jera" ; produ_ + "jese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {produ_ + "jeras" ; produ_ + "jeses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {produ_ + "jera" ; produ_ + "jese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {produ_ + "jéramos" ; produ_ + "jésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {produ_ + "jerais" ; produ_ + "jeseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {produ_ + "jeran" ; produ_ + "jesen"} ; --# notpresent - VP (Pret Sg P1) => produ_ + "je" ; --# notpresent - VP (Pret Sg P2) => produ_ + "jiste" ; --# notpresent - VP (Pret Sg P3) => produ_ + "jo" ; --# notpresent - VP (Pret Pl P1) => produ_ + "jimos" ; --# notpresent - VP (Pret Pl P2) => produ_ + "jisteis" ; --# notpresent - VP (Pret Pl P3) => produ_ + "jeron" ; --# notpresent - VP (Fut Ind Sg P1) => produ_ + "ciré" ; --# notpresent - VP (Fut Ind Sg P2) => produ_ + "cirás" ; --# notpresent - VP (Fut Ind Sg P3) => produ_ + "cirá" ; --# notpresent - VP (Fut Ind Pl P1) => produ_ + "ciremos" ; --# notpresent - VP (Fut Ind Pl P2) => produ_ + "ciréis" ; --# notpresent - VP (Fut Ind Pl P3) => produ_ + "cirán" ; --# notpresent - VP (Fut Subj Sg P1) => produ_ + "jere" ; --# notpresent - VP (Fut Subj Sg P2) => produ_ + "jeres" ; --# notpresent - VP (Fut Subj Sg P3) => produ_ + "jere" ; --# notpresent - VP (Fut Subj Pl P1) => produ_ + "jéremos" ; --# notpresent - VP (Fut Subj Pl P2) => produ_ + "jereis" ; --# notpresent - VP (Fut Subj Pl P3) => produ_ + "jeren" ; --# notpresent - VP (Cond Sg P1) => produ_ + "ciría" ; --# notpresent - VP (Cond Sg P2) => produ_ + "cirías" ; --# notpresent - VP (Cond Sg P3) => produ_ + "ciría" ; --# notpresent - VP (Cond Pl P1) => produ_ + "ciríamos" ; --# notpresent - VP (Cond Pl P2) => produ_ + "ciríais" ; --# notpresent - VP (Cond Pl P3) => produ_ + "cirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => produ_ + "ce" ; - VP (Imp Sg P3) => produ_ + "zca" ; - VP (Imp Pl P1) => produ_ + "zcamos" ; - VP (Imp Pl P2) => produ_ + "cid" ; - VP (Imp Pl P3) => produ_ + "zcan" ; - VP (Pass Sg Masc) => produ_ + "cido" ; - VP (Pass Sg Fem) => produ_ + "cida" ; - VP (Pass Pl Masc) => produ_ + "cidos" ; - VP (Pass Pl Fem) => produ_ + "cidas" - } - } ; -oper prohibir_63 : Str -> Verbum = \prohibir -> - let proh_ = Predef.tk 4 prohibir in - {s = table { - VI Infn => proh_ + "ibir" ; - VI Ger => proh_ + "ibiendo" ; - VI Part => proh_ + "ibido" ; - VP (Pres Ind Sg P1) => proh_ + "íbo" ; - VP (Pres Ind Sg P2) => proh_ + "íbes" ; - VP (Pres Ind Sg P3) => proh_ + "íbe" ; - VP (Pres Ind Pl P1) => proh_ + "ibimos" ; - VP (Pres Ind Pl P2) => proh_ + "ibís" ; - VP (Pres Ind Pl P3) => proh_ + "íben" ; - VP (Pres Subj Sg P1) => proh_ + "íba" ; - VP (Pres Subj Sg P2) => proh_ + "íbas" ; - VP (Pres Subj Sg P3) => proh_ + "íba" ; - VP (Pres Subj Pl P1) => proh_ + "ibamos" ; - VP (Pres Subj Pl P2) => proh_ + "ibáis" ; - VP (Pres Subj Pl P3) => proh_ + "íban" ; - VP (Impf Ind Sg P1) => proh_ + "ibía" ; --# notpresent - VP (Impf Ind Sg P2) => proh_ + "ibías" ; --# notpresent - VP (Impf Ind Sg P3) => proh_ + "ibía" ; --# notpresent - VP (Impf Ind Pl P1) => proh_ + "ibíamos" ; --# notpresent - VP (Impf Ind Pl P2) => proh_ + "ibíais" ; --# notpresent - VP (Impf Ind Pl P3) => proh_ + "ibían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {proh_ + "ibiera" ; proh_ + "ibiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {proh_ + "ibieras" ; proh_ + "ibieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {proh_ + "ibiera" ; proh_ + "ibiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {proh_ + "ibiéramos" ; proh_ + "ibiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {proh_ + "ibierais" ; proh_ + "ibieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {proh_ + "ibieran" ; proh_ + "ibiesen"} ; --# notpresent - VP (Pret Sg P1) => proh_ + "ibí" ; --# notpresent - VP (Pret Sg P2) => proh_ + "ibiste" ; --# notpresent - VP (Pret Sg P3) => proh_ + "ibió" ; --# notpresent - VP (Pret Pl P1) => proh_ + "ibimos" ; --# notpresent - VP (Pret Pl P2) => proh_ + "ibisteis" ; --# notpresent - VP (Pret Pl P3) => proh_ + "ibieron" ; --# notpresent - VP (Fut Ind Sg P1) => proh_ + "ibiré" ; --# notpresent - VP (Fut Ind Sg P2) => proh_ + "ibirás" ; --# notpresent - VP (Fut Ind Sg P3) => proh_ + "ibirá" ; --# notpresent - VP (Fut Ind Pl P1) => proh_ + "ibiremos" ; --# notpresent - VP (Fut Ind Pl P2) => proh_ + "ibiréis" ; --# notpresent - VP (Fut Ind Pl P3) => proh_ + "ibirán" ; --# notpresent - VP (Fut Subj Sg P1) => proh_ + "ibiere" ; --# notpresent - VP (Fut Subj Sg P2) => proh_ + "ibieres" ; --# notpresent - VP (Fut Subj Sg P3) => proh_ + "ibiere" ; --# notpresent - VP (Fut Subj Pl P1) => proh_ + "ibiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => proh_ + "ibiereis" ; --# notpresent - VP (Fut Subj Pl P3) => proh_ + "ibieren" ; --# notpresent - VP (Cond Sg P1) => proh_ + "ibiría" ; --# notpresent - VP (Cond Sg P2) => proh_ + "ibirías" ; --# notpresent - VP (Cond Sg P3) => proh_ + "ibiría" ; --# notpresent - VP (Cond Pl P1) => proh_ + "ibiríamos" ; --# notpresent - VP (Cond Pl P2) => proh_ + "ibiríais" ; --# notpresent - VP (Cond Pl P3) => proh_ + "ibirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => proh_ + "íbe" ; - VP (Imp Sg P3) => proh_ + "íba" ; - VP (Imp Pl P1) => proh_ + "ibamos" ; - VP (Imp Pl P2) => proh_ + "ibid" ; - VP (Imp Pl P3) => proh_ + "íban" ; - VP (Pass Sg Masc) => proh_ + "ibido" ; - VP (Pass Sg Fem) => proh_ + "ibida" ; - VP (Pass Pl Masc) => proh_ + "ibidos" ; - VP (Pass Pl Fem) => proh_ + "ibidas" - } - } ; -oper querer_64 : Str -> Verbum = \querer -> - let qu_ = Predef.tk 4 querer in - {s = table { - VI Infn => qu_ + "erer" ; - VI Ger => qu_ + "eriendo" ; - VI Part => qu_ + "erido" ; - VP (Pres Ind Sg P1) => qu_ + "iero" ; - VP (Pres Ind Sg P2) => qu_ + "ieres" ; - VP (Pres Ind Sg P3) => qu_ + "iere" ; - VP (Pres Ind Pl P1) => qu_ + "eremos" ; - VP (Pres Ind Pl P2) => qu_ + "eréis" ; - VP (Pres Ind Pl P3) => qu_ + "ieren" ; - VP (Pres Subj Sg P1) => qu_ + "iera" ; - VP (Pres Subj Sg P2) => qu_ + "ieras" ; - VP (Pres Subj Sg P3) => qu_ + "iera" ; - VP (Pres Subj Pl P1) => qu_ + "eramos" ; - VP (Pres Subj Pl P2) => qu_ + "eráis" ; - VP (Pres Subj Pl P3) => qu_ + "ieran" ; - VP (Impf Ind Sg P1) => qu_ + "ería" ; --# notpresent - VP (Impf Ind Sg P2) => qu_ + "erías" ; --# notpresent - VP (Impf Ind Sg P3) => qu_ + "ería" ; --# notpresent - VP (Impf Ind Pl P1) => qu_ + "eríamos" ; --# notpresent - VP (Impf Ind Pl P2) => qu_ + "eríais" ; --# notpresent - VP (Impf Ind Pl P3) => qu_ + "erían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {qu_ + "isiera" ; qu_ + "isiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {qu_ + "isieras" ; qu_ + "isieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {qu_ + "isiera" ; qu_ + "isiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {qu_ + "isiéramos" ; qu_ + "isiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {qu_ + "isierais" ; qu_ + "isieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {qu_ + "isieran" ; qu_ + "isiesen"} ; --# notpresent - VP (Pret Sg P1) => qu_ + "ise" ; --# notpresent - VP (Pret Sg P2) => qu_ + "isiste" ; --# notpresent - VP (Pret Sg P3) => qu_ + "iso" ; --# notpresent - VP (Pret Pl P1) => qu_ + "isimos" ; --# notpresent - VP (Pret Pl P2) => qu_ + "isisteis" ; --# notpresent - VP (Pret Pl P3) => qu_ + "isieron" ; --# notpresent - VP (Fut Ind Sg P1) => qu_ + "erré" ; --# notpresent - VP (Fut Ind Sg P2) => qu_ + "errás" ; --# notpresent - VP (Fut Ind Sg P3) => qu_ + "errá" ; --# notpresent - VP (Fut Ind Pl P1) => qu_ + "erremos" ; --# notpresent - VP (Fut Ind Pl P2) => qu_ + "erréis" ; --# notpresent - VP (Fut Ind Pl P3) => qu_ + "errán" ; --# notpresent - VP (Fut Subj Sg P1) => qu_ + "isiere" ; --# notpresent - VP (Fut Subj Sg P2) => qu_ + "isieres" ; --# notpresent - VP (Fut Subj Sg P3) => qu_ + "isiere" ; --# notpresent - VP (Fut Subj Pl P1) => qu_ + "isiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => qu_ + "isiereis" ; --# notpresent - VP (Fut Subj Pl P3) => qu_ + "isieren" ; --# notpresent - VP (Cond Sg P1) => qu_ + "erría" ; --# notpresent - VP (Cond Sg P2) => qu_ + "errías" ; --# notpresent - VP (Cond Sg P3) => qu_ + "erría" ; --# notpresent - VP (Cond Pl P1) => qu_ + "erríamos" ; --# notpresent - VP (Cond Pl P2) => qu_ + "erríais" ; --# notpresent - VP (Cond Pl P3) => qu_ + "errían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => qu_ + "iere" ; - VP (Imp Sg P3) => qu_ + "iera" ; - VP (Imp Pl P1) => qu_ + "eramos" ; - VP (Imp Pl P2) => qu_ + "ered" ; - VP (Imp Pl P3) => qu_ + "ieran" ; - VP (Pass Sg Masc) => qu_ + "erido" ; - VP (Pass Sg Fem) => qu_ + "erida" ; - VP (Pass Pl Masc) => qu_ + "eridos" ; - VP (Pass Pl Fem) => qu_ + "eridas" - } - } ; -oper raer_65 : Str -> Verbum = \raer -> - let ra_ = Predef.tk 2 raer in - {s = table { - VI Infn => ra_ + "er" ; - VI Ger => ra_ + "yendo" ; - VI Part => ra_ + "ído" ; - VP (Pres Ind Sg P1) => variants {ra_ + "o" ; ra_ + "igo"} ; - VP (Pres Ind Sg P2) => ra_ + "es" ; - VP (Pres Ind Sg P3) => ra_ + "e" ; - VP (Pres Ind Pl P1) => ra_ + "emos" ; - VP (Pres Ind Pl P2) => ra_ + "éis" ; - VP (Pres Ind Pl P3) => ra_ + "en" ; - VP (Pres Subj Sg P1) => ra_ + "iga" ; - VP (Pres Subj Sg P2) => ra_ + "igas" ; - VP (Pres Subj Sg P3) => ra_ + "iga" ; - VP (Pres Subj Pl P1) => ra_ + "igamos" ; - VP (Pres Subj Pl P2) => ra_ + "igáis" ; - VP (Pres Subj Pl P3) => ra_ + "igan" ; - VP (Impf Ind Sg P1) => ra_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => ra_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => ra_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => ra_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => ra_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => ra_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {ra_ + "yera" ; ra_ + "yese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {ra_ + "yeras" ; ra_ + "yeses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {ra_ + "yera" ; ra_ + "yese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {ra_ + "yéramos" ; ra_ + "yésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {ra_ + "yerais" ; ra_ + "yeseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {ra_ + "yeran" ; ra_ + "yesen"} ; --# notpresent - VP (Pret Sg P1) => ra_ + "í" ; --# notpresent - VP (Pret Sg P2) => ra_ + "íste" ; --# notpresent - VP (Pret Sg P3) => ra_ + "yó" ; --# notpresent - VP (Pret Pl P1) => ra_ + "ímos" ; --# notpresent - VP (Pret Pl P2) => ra_ + "ísteis" ; --# notpresent - VP (Pret Pl P3) => ra_ + "yeron" ; --# notpresent - VP (Fut Ind Sg P1) => ra_ + "eré" ; --# notpresent - VP (Fut Ind Sg P2) => ra_ + "erás" ; --# notpresent - VP (Fut Ind Sg P3) => ra_ + "erá" ; --# notpresent - VP (Fut Ind Pl P1) => ra_ + "eremos" ; --# notpresent - VP (Fut Ind Pl P2) => ra_ + "eréis" ; --# notpresent - VP (Fut Ind Pl P3) => ra_ + "erán" ; --# notpresent - VP (Fut Subj Sg P1) => ra_ + "yere" ; --# notpresent - VP (Fut Subj Sg P2) => ra_ + "yeres" ; --# notpresent - VP (Fut Subj Sg P3) => ra_ + "yere" ; --# notpresent - VP (Fut Subj Pl P1) => ra_ + "yéremos" ; --# notpresent - VP (Fut Subj Pl P2) => ra_ + "yereis" ; --# notpresent - VP (Fut Subj Pl P3) => ra_ + "yeren" ; --# notpresent - VP (Cond Sg P1) => ra_ + "ería" ; --# notpresent - VP (Cond Sg P2) => ra_ + "erías" ; --# notpresent - VP (Cond Sg P3) => ra_ + "ería" ; --# notpresent - VP (Cond Pl P1) => ra_ + "eríamos" ; --# notpresent - VP (Cond Pl P2) => ra_ + "eríais" ; --# notpresent - VP (Cond Pl P3) => ra_ + "erían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => ra_ + "e" ; - VP (Imp Sg P3) => ra_ + "iga" ; - VP (Imp Pl P1) => ra_ + "igamos" ; - VP (Imp Pl P2) => ra_ + "ed" ; - VP (Imp Pl P3) => ra_ + "igan" ; - VP (Pass Sg Masc) => ra_ + "ído" ; - VP (Pass Sg Fem) => ra_ + "ída" ; - VP (Pass Pl Masc) => ra_ + "ídos" ; - VP (Pass Pl Fem) => ra_ + "ídas" - } - } ; -oper regar_66 : Str -> Verbum = \regar -> - let r_ = Predef.tk 4 regar in - {s = table { - VI Infn => r_ + "egar" ; - VI Ger => r_ + "egando" ; - VI Part => r_ + "egado" ; - VP (Pres Ind Sg P1) => r_ + "iego" ; - VP (Pres Ind Sg P2) => r_ + "iegas" ; - VP (Pres Ind Sg P3) => r_ + "iega" ; - VP (Pres Ind Pl P1) => r_ + "egamos" ; - VP (Pres Ind Pl P2) => r_ + "egáis" ; - VP (Pres Ind Pl P3) => r_ + "iegan" ; - VP (Pres Subj Sg P1) => r_ + "iegue" ; - VP (Pres Subj Sg P2) => r_ + "iegues" ; - VP (Pres Subj Sg P3) => r_ + "iegue" ; - VP (Pres Subj Pl P1) => r_ + "eguemos" ; - VP (Pres Subj Pl P2) => r_ + "eguéis" ; - VP (Pres Subj Pl P3) => r_ + "ieguen" ; - VP (Impf Ind Sg P1) => r_ + "egaba" ; --# notpresent - VP (Impf Ind Sg P2) => r_ + "egabas" ; --# notpresent - VP (Impf Ind Sg P3) => r_ + "egaba" ; --# notpresent - VP (Impf Ind Pl P1) => r_ + "egábamos" ; --# notpresent - VP (Impf Ind Pl P2) => r_ + "egabais" ; --# notpresent - VP (Impf Ind Pl P3) => r_ + "egaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {r_ + "egara" ; r_ + "egase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {r_ + "egaras" ; r_ + "egases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {r_ + "egara" ; r_ + "egase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {r_ + "egáramos" ; r_ + "egásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {r_ + "egarais" ; r_ + "egaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {r_ + "egaran" ; r_ + "egasen"} ; --# notpresent - VP (Pret Sg P1) => r_ + "egué" ; --# notpresent - VP (Pret Sg P2) => r_ + "egaste" ; --# notpresent - VP (Pret Sg P3) => r_ + "egó" ; --# notpresent - VP (Pret Pl P1) => r_ + "egamos" ; --# notpresent - VP (Pret Pl P2) => r_ + "egasteis" ; --# notpresent - VP (Pret Pl P3) => r_ + "egaron" ; --# notpresent - VP (Fut Ind Sg P1) => r_ + "egaré" ; --# notpresent - VP (Fut Ind Sg P2) => r_ + "egarás" ; --# notpresent - VP (Fut Ind Sg P3) => r_ + "egará" ; --# notpresent - VP (Fut Ind Pl P1) => r_ + "egaremos" ; --# notpresent - VP (Fut Ind Pl P2) => r_ + "egaréis" ; --# notpresent - VP (Fut Ind Pl P3) => r_ + "egarán" ; --# notpresent - VP (Fut Subj Sg P1) => r_ + "egare" ; --# notpresent - VP (Fut Subj Sg P2) => r_ + "egares" ; --# notpresent - VP (Fut Subj Sg P3) => r_ + "egare" ; --# notpresent - VP (Fut Subj Pl P1) => r_ + "egáremos" ; --# notpresent - VP (Fut Subj Pl P2) => r_ + "egareis" ; --# notpresent - VP (Fut Subj Pl P3) => r_ + "egaren" ; --# notpresent - VP (Cond Sg P1) => r_ + "egaría" ; --# notpresent - VP (Cond Sg P2) => r_ + "egarías" ; --# notpresent - VP (Cond Sg P3) => r_ + "egaría" ; --# notpresent - VP (Cond Pl P1) => r_ + "egaríamos" ; --# notpresent - VP (Cond Pl P2) => r_ + "egaríais" ; --# notpresent - VP (Cond Pl P3) => r_ + "egarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => r_ + "iega" ; - VP (Imp Sg P3) => r_ + "iegue" ; - VP (Imp Pl P1) => r_ + "eguemos" ; - VP (Imp Pl P2) => r_ + "egad" ; - VP (Imp Pl P3) => r_ + "ieguen" ; - VP (Pass Sg Masc) => r_ + "egado" ; - VP (Pass Sg Fem) => r_ + "egada" ; - VP (Pass Pl Masc) => r_ + "egados" ; - VP (Pass Pl Fem) => r_ + "egadas" - } - } ; -oper reñir_68 : Str -> Verbum = \reñir -> - let r_ = Predef.tk 4 reñir in - {s = table { - VI Infn => r_ + "eñir" ; - VI Ger => r_ + "iñiendo" ; - VI Part => r_ + "eñido" ; - VP (Pres Ind Sg P1) => r_ + "iño" ; - VP (Pres Ind Sg P2) => r_ + "iñes" ; - VP (Pres Ind Sg P3) => r_ + "iñe" ; - VP (Pres Ind Pl P1) => r_ + "eñimos" ; - VP (Pres Ind Pl P2) => r_ + "eñís" ; - VP (Pres Ind Pl P3) => r_ + "iñen" ; - VP (Pres Subj Sg P1) => r_ + "iña" ; - VP (Pres Subj Sg P2) => r_ + "iñas" ; - VP (Pres Subj Sg P3) => r_ + "iña" ; - VP (Pres Subj Pl P1) => r_ + "iñamos" ; - VP (Pres Subj Pl P2) => r_ + "iñáis" ; - VP (Pres Subj Pl P3) => r_ + "iñan" ; - VP (Impf Ind Sg P1) => r_ + "eñía" ; --# notpresent - VP (Impf Ind Sg P2) => r_ + "eñías" ; --# notpresent - VP (Impf Ind Sg P3) => r_ + "eñía" ; --# notpresent - VP (Impf Ind Pl P1) => r_ + "eñíamos" ; --# notpresent - VP (Impf Ind Pl P2) => r_ + "eñíais" ; --# notpresent - VP (Impf Ind Pl P3) => r_ + "eñían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {r_ + "iñera" ; r_ + "iñese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {r_ + "iñeras" ; r_ + "iñeses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {r_ + "iñera" ; r_ + "iñese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {r_ + "iñéramos" ; r_ + "iñésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {r_ + "iñerais" ; r_ + "iñeseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {r_ + "iñeran" ; r_ + "iñesen"} ; --# notpresent - VP (Pret Sg P1) => r_ + "eñí" ; --# notpresent - VP (Pret Sg P2) => r_ + "eñiste" ; --# notpresent - VP (Pret Sg P3) => r_ + "iñó" ; --# notpresent - VP (Pret Pl P1) => r_ + "eñimos" ; --# notpresent - VP (Pret Pl P2) => r_ + "eñisteis" ; --# notpresent - VP (Pret Pl P3) => r_ + "iñeron" ; --# notpresent - VP (Fut Ind Sg P1) => r_ + "eñiré" ; --# notpresent - VP (Fut Ind Sg P2) => r_ + "eñirás" ; --# notpresent - VP (Fut Ind Sg P3) => r_ + "eñirá" ; --# notpresent - VP (Fut Ind Pl P1) => r_ + "eñiremos" ; --# notpresent - VP (Fut Ind Pl P2) => r_ + "eñiréis" ; --# notpresent - VP (Fut Ind Pl P3) => r_ + "eñirán" ; --# notpresent - VP (Fut Subj Sg P1) => r_ + "iñere" ; --# notpresent - VP (Fut Subj Sg P2) => r_ + "iñeres" ; --# notpresent - VP (Fut Subj Sg P3) => r_ + "iñere" ; --# notpresent - VP (Fut Subj Pl P1) => r_ + "iñéremos" ; --# notpresent - VP (Fut Subj Pl P2) => r_ + "iñereis" ; --# notpresent - VP (Fut Subj Pl P3) => r_ + "iñeren" ; --# notpresent - VP (Cond Sg P1) => r_ + "eñiría" ; --# notpresent - VP (Cond Sg P2) => r_ + "eñirías" ; --# notpresent - VP (Cond Sg P3) => r_ + "eñiría" ; --# notpresent - VP (Cond Pl P1) => r_ + "eñiríamos" ; --# notpresent - VP (Cond Pl P2) => r_ + "eñiríais" ; --# notpresent - VP (Cond Pl P3) => r_ + "eñirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => r_ + "iñe" ; - VP (Imp Sg P3) => r_ + "iña" ; - VP (Imp Pl P1) => r_ + "iñamos" ; - VP (Imp Pl P2) => r_ + "eñid" ; - VP (Imp Pl P3) => r_ + "iñan" ; - VP (Pass Sg Masc) => r_ + "eñido" ; - VP (Pass Sg Fem) => r_ + "eñida" ; - VP (Pass Pl Masc) => r_ + "eñidos" ; - VP (Pass Pl Fem) => r_ + "eñidas" - } - } ; -oper reunir_69 : Str -> Verbum = \reunir -> - let re_ = Predef.tk 4 reunir in - {s = table { - VI Infn => re_ + "unir" ; - VI Ger => re_ + "uniendo" ; - VI Part => re_ + "unido" ; - VP (Pres Ind Sg P1) => re_ + "úno" ; - VP (Pres Ind Sg P2) => re_ + "únes" ; - VP (Pres Ind Sg P3) => re_ + "úne" ; - VP (Pres Ind Pl P1) => re_ + "unimos" ; - VP (Pres Ind Pl P2) => re_ + "unís" ; - VP (Pres Ind Pl P3) => re_ + "únen" ; - VP (Pres Subj Sg P1) => re_ + "úna" ; - VP (Pres Subj Sg P2) => re_ + "únas" ; - VP (Pres Subj Sg P3) => re_ + "úna" ; - VP (Pres Subj Pl P1) => re_ + "unamos" ; - VP (Pres Subj Pl P2) => re_ + "unáis" ; - VP (Pres Subj Pl P3) => re_ + "únan" ; - VP (Impf Ind Sg P1) => re_ + "unía" ; --# notpresent - VP (Impf Ind Sg P2) => re_ + "unías" ; --# notpresent - VP (Impf Ind Sg P3) => re_ + "unía" ; --# notpresent - VP (Impf Ind Pl P1) => re_ + "uníamos" ; --# notpresent - VP (Impf Ind Pl P2) => re_ + "uníais" ; --# notpresent - VP (Impf Ind Pl P3) => re_ + "unían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {re_ + "uniera" ; re_ + "uniese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {re_ + "unieras" ; re_ + "unieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {re_ + "uniera" ; re_ + "uniese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {re_ + "uniéramos" ; re_ + "uniésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {re_ + "unierais" ; re_ + "unieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {re_ + "unieran" ; re_ + "uniesen"} ; --# notpresent - VP (Pret Sg P1) => re_ + "uní" ; --# notpresent - VP (Pret Sg P2) => re_ + "uniste" ; --# notpresent - VP (Pret Sg P3) => re_ + "unió" ; --# notpresent - VP (Pret Pl P1) => re_ + "unimos" ; --# notpresent - VP (Pret Pl P2) => re_ + "unisteis" ; --# notpresent - VP (Pret Pl P3) => re_ + "unieron" ; --# notpresent - VP (Fut Ind Sg P1) => re_ + "uniré" ; --# notpresent - VP (Fut Ind Sg P2) => re_ + "unirás" ; --# notpresent - VP (Fut Ind Sg P3) => re_ + "unirá" ; --# notpresent - VP (Fut Ind Pl P1) => re_ + "uniremos" ; --# notpresent - VP (Fut Ind Pl P2) => re_ + "uniréis" ; --# notpresent - VP (Fut Ind Pl P3) => re_ + "unirán" ; --# notpresent - VP (Fut Subj Sg P1) => re_ + "uniere" ; --# notpresent - VP (Fut Subj Sg P2) => re_ + "unieres" ; --# notpresent - VP (Fut Subj Sg P3) => re_ + "uniere" ; --# notpresent - VP (Fut Subj Pl P1) => re_ + "uniéremos" ; --# notpresent - VP (Fut Subj Pl P2) => re_ + "uniereis" ; --# notpresent - VP (Fut Subj Pl P3) => re_ + "unieren" ; --# notpresent - VP (Cond Sg P1) => re_ + "uniría" ; --# notpresent - VP (Cond Sg P2) => re_ + "unirías" ; --# notpresent - VP (Cond Sg P3) => re_ + "uniría" ; --# notpresent - VP (Cond Pl P1) => re_ + "uniríamos" ; --# notpresent - VP (Cond Pl P2) => re_ + "uniríais" ; --# notpresent - VP (Cond Pl P3) => re_ + "unirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => re_ + "úne" ; - VP (Imp Sg P3) => re_ + "úna" ; - VP (Imp Pl P1) => re_ + "unamos" ; - VP (Imp Pl P2) => re_ + "unid" ; - VP (Imp Pl P3) => re_ + "únan" ; - VP (Pass Sg Masc) => re_ + "unido" ; - VP (Pass Sg Fem) => re_ + "unida" ; - VP (Pass Pl Masc) => re_ + "unidos" ; - VP (Pass Pl Fem) => re_ + "unidas" - } - } ; -oper roer_70 : Str -> Verbum = \roer -> - let ro_ = Predef.tk 2 roer in - {s = table { - VI Infn => ro_ + "er" ; - VI Ger => ro_ + "yendo" ; - VI Part => ro_ + "ído" ; - VP (Pres Ind Sg P1) => variants {ro_ + "o" ; ro_ + "igo"} ; - VP (Pres Ind Sg P2) => ro_ + "es" ; - VP (Pres Ind Sg P3) => ro_ + "e" ; - VP (Pres Ind Pl P1) => ro_ + "emos" ; - VP (Pres Ind Pl P2) => ro_ + "éis" ; - VP (Pres Ind Pl P3) => ro_ + "en" ; - VP (Pres Subj Sg P1) => ro_ + "a" ; - VP (Pres Subj Sg P2) => ro_ + "as" ; - VP (Pres Subj Sg P3) => ro_ + "a" ; - VP (Pres Subj Pl P1) => ro_ + "amos" ; - VP (Pres Subj Pl P2) => ro_ + "áis" ; - VP (Pres Subj Pl P3) => ro_ + "an" ; - VP (Impf Ind Sg P1) => ro_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => ro_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => ro_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => ro_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => ro_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => ro_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {ro_ + "yera" ; ro_ + "yese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {ro_ + "yeras" ; ro_ + "yeses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {ro_ + "yera" ; ro_ + "yese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {ro_ + "yéramos" ; ro_ + "yésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {ro_ + "yerais" ; ro_ + "yeseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {ro_ + "yeran" ; ro_ + "yesen"} ; --# notpresent - VP (Pret Sg P1) => ro_ + "í" ; --# notpresent - VP (Pret Sg P2) => ro_ + "íste" ; --# notpresent - VP (Pret Sg P3) => ro_ + "yó" ; --# notpresent - VP (Pret Pl P1) => ro_ + "ímos" ; --# notpresent - VP (Pret Pl P2) => ro_ + "ísteis" ; --# notpresent - VP (Pret Pl P3) => ro_ + "yeron" ; --# notpresent - VP (Fut Ind Sg P1) => ro_ + "eré" ; --# notpresent - VP (Fut Ind Sg P2) => ro_ + "erás" ; --# notpresent - VP (Fut Ind Sg P3) => ro_ + "erá" ; --# notpresent - VP (Fut Ind Pl P1) => ro_ + "eremos" ; --# notpresent - VP (Fut Ind Pl P2) => ro_ + "eréis" ; --# notpresent - VP (Fut Ind Pl P3) => ro_ + "erán" ; --# notpresent - VP (Fut Subj Sg P1) => ro_ + "yere" ; --# notpresent - VP (Fut Subj Sg P2) => ro_ + "yeres" ; --# notpresent - VP (Fut Subj Sg P3) => ro_ + "yere" ; --# notpresent - VP (Fut Subj Pl P1) => ro_ + "yéremos" ; --# notpresent - VP (Fut Subj Pl P2) => ro_ + "yereis" ; --# notpresent - VP (Fut Subj Pl P3) => ro_ + "yeren" ; --# notpresent - VP (Cond Sg P1) => ro_ + "ería" ; --# notpresent - VP (Cond Sg P2) => ro_ + "erías" ; --# notpresent - VP (Cond Sg P3) => ro_ + "ería" ; --# notpresent - VP (Cond Pl P1) => ro_ + "eríamos" ; --# notpresent - VP (Cond Pl P2) => ro_ + "eríais" ; --# notpresent - VP (Cond Pl P3) => ro_ + "erían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => ro_ + "e" ; - VP (Imp Sg P3) => ro_ + "a" ; - VP (Imp Pl P1) => ro_ + "amos" ; - VP (Imp Pl P2) => ro_ + "ed" ; - VP (Imp Pl P3) => ro_ + "an" ; - VP (Pass Sg Masc) => ro_ + "ído" ; - VP (Pass Sg Fem) => ro_ + "ída" ; - VP (Pass Pl Masc) => ro_ + "ídos" ; - VP (Pass Pl Fem) => ro_ + "ídas" - } - } ; -oper saber_71 : Str -> Verbum = \saber -> - let s_ = Predef.tk 4 saber in - {s = table { - VI Infn => s_ + "aber" ; - VI Ger => s_ + "abiendo" ; - VI Part => s_ + "abido" ; - VP (Pres Ind Sg P1) => s_ + "é" ; - VP (Pres Ind Sg P2) => s_ + "abes" ; - VP (Pres Ind Sg P3) => s_ + "abe" ; - VP (Pres Ind Pl P1) => s_ + "abemos" ; - VP (Pres Ind Pl P2) => s_ + "abéis" ; - VP (Pres Ind Pl P3) => s_ + "aben" ; - VP (Pres Subj Sg P1) => s_ + "epa" ; - VP (Pres Subj Sg P2) => s_ + "epas" ; - VP (Pres Subj Sg P3) => s_ + "epa" ; - VP (Pres Subj Pl P1) => s_ + "epamos" ; - VP (Pres Subj Pl P2) => s_ + "epáis" ; - VP (Pres Subj Pl P3) => s_ + "epan" ; - VP (Impf Ind Sg P1) => s_ + "abía" ; --# notpresent - VP (Impf Ind Sg P2) => s_ + "abías" ; --# notpresent - VP (Impf Ind Sg P3) => s_ + "abía" ; --# notpresent - VP (Impf Ind Pl P1) => s_ + "abíamos" ; --# notpresent - VP (Impf Ind Pl P2) => s_ + "abíais" ; --# notpresent - VP (Impf Ind Pl P3) => s_ + "abían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {s_ + "upiera" ; s_ + "upiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {s_ + "upieras" ; s_ + "upieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {s_ + "upiera" ; s_ + "upiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {s_ + "upiéramos" ; s_ + "upiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {s_ + "upierais" ; s_ + "upieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {s_ + "upieran" ; s_ + "upiesen"} ; --# notpresent - VP (Pret Sg P1) => s_ + "upe" ; --# notpresent - VP (Pret Sg P2) => s_ + "upiste" ; --# notpresent - VP (Pret Sg P3) => s_ + "upo" ; --# notpresent - VP (Pret Pl P1) => s_ + "upimos" ; --# notpresent - VP (Pret Pl P2) => s_ + "upisteis" ; --# notpresent - VP (Pret Pl P3) => s_ + "upieron" ; --# notpresent - VP (Fut Ind Sg P1) => s_ + "abré" ; --# notpresent - VP (Fut Ind Sg P2) => s_ + "abrás" ; --# notpresent - VP (Fut Ind Sg P3) => s_ + "abrá" ; --# notpresent - VP (Fut Ind Pl P1) => s_ + "abremos" ; --# notpresent - VP (Fut Ind Pl P2) => s_ + "abréis" ; --# notpresent - VP (Fut Ind Pl P3) => s_ + "abrán" ; --# notpresent - VP (Fut Subj Sg P1) => s_ + "upiere" ; --# notpresent - VP (Fut Subj Sg P2) => s_ + "upieres" ; --# notpresent - VP (Fut Subj Sg P3) => s_ + "upiere" ; --# notpresent - VP (Fut Subj Pl P1) => s_ + "upiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => s_ + "upiereis" ; --# notpresent - VP (Fut Subj Pl P3) => s_ + "upieren" ; --# notpresent - VP (Cond Sg P1) => s_ + "abría" ; --# notpresent - VP (Cond Sg P2) => s_ + "abrías" ; --# notpresent - VP (Cond Sg P3) => s_ + "abría" ; --# notpresent - VP (Cond Pl P1) => s_ + "abríamos" ; --# notpresent - VP (Cond Pl P2) => s_ + "abríais" ; --# notpresent - VP (Cond Pl P3) => s_ + "abrían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => s_ + "abe" ; - VP (Imp Sg P3) => s_ + "epa" ; - VP (Imp Pl P1) => s_ + "epamos" ; - VP (Imp Pl P2) => s_ + "abed" ; - VP (Imp Pl P3) => s_ + "epan" ; - VP (Pass Sg Masc) => s_ + "abido" ; - VP (Pass Sg Fem) => s_ + "abida" ; - VP (Pass Pl Masc) => s_ + "abidos" ; - VP (Pass Pl Fem) => s_ + "abidas" - } - } ; -oper sacar_72 : Str -> Verbum = \sacar -> - let sa_ = Predef.tk 3 sacar in - {s = table { - VI Infn => sa_ + "car" ; - VI Ger => sa_ + "cando" ; - VI Part => sa_ + "cado" ; - VP (Pres Ind Sg P1) => sa_ + "co" ; - VP (Pres Ind Sg P2) => sa_ + "cas" ; - VP (Pres Ind Sg P3) => sa_ + "ca" ; - VP (Pres Ind Pl P1) => sa_ + "camos" ; - VP (Pres Ind Pl P2) => sa_ + "cáis" ; - VP (Pres Ind Pl P3) => sa_ + "can" ; - VP (Pres Subj Sg P1) => sa_ + "que" ; - VP (Pres Subj Sg P2) => sa_ + "ques" ; - VP (Pres Subj Sg P3) => sa_ + "que" ; - VP (Pres Subj Pl P1) => sa_ + "quemos" ; - VP (Pres Subj Pl P2) => sa_ + "quéis" ; - VP (Pres Subj Pl P3) => sa_ + "quen" ; - VP (Impf Ind Sg P1) => sa_ + "caba" ; --# notpresent - VP (Impf Ind Sg P2) => sa_ + "cabas" ; --# notpresent - VP (Impf Ind Sg P3) => sa_ + "caba" ; --# notpresent - VP (Impf Ind Pl P1) => sa_ + "cábamos" ; --# notpresent - VP (Impf Ind Pl P2) => sa_ + "cabais" ; --# notpresent - VP (Impf Ind Pl P3) => sa_ + "caban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {sa_ + "cara" ; sa_ + "case"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {sa_ + "caras" ; sa_ + "cases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {sa_ + "cara" ; sa_ + "case"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {sa_ + "cáramos" ; sa_ + "cásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {sa_ + "carais" ; sa_ + "caseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {sa_ + "caran" ; sa_ + "casen"} ; --# notpresent - VP (Pret Sg P1) => sa_ + "qué" ; --# notpresent - VP (Pret Sg P2) => sa_ + "caste" ; --# notpresent - VP (Pret Sg P3) => sa_ + "có" ; --# notpresent - VP (Pret Pl P1) => sa_ + "camos" ; --# notpresent - VP (Pret Pl P2) => sa_ + "casteis" ; --# notpresent - VP (Pret Pl P3) => sa_ + "caron" ; --# notpresent - VP (Fut Ind Sg P1) => sa_ + "caré" ; --# notpresent - VP (Fut Ind Sg P2) => sa_ + "carás" ; --# notpresent - VP (Fut Ind Sg P3) => sa_ + "cará" ; --# notpresent - VP (Fut Ind Pl P1) => sa_ + "caremos" ; --# notpresent - VP (Fut Ind Pl P2) => sa_ + "caréis" ; --# notpresent - VP (Fut Ind Pl P3) => sa_ + "carán" ; --# notpresent - VP (Fut Subj Sg P1) => sa_ + "care" ; --# notpresent - VP (Fut Subj Sg P2) => sa_ + "cares" ; --# notpresent - VP (Fut Subj Sg P3) => sa_ + "care" ; --# notpresent - VP (Fut Subj Pl P1) => sa_ + "cáremos" ; --# notpresent - VP (Fut Subj Pl P2) => sa_ + "careis" ; --# notpresent - VP (Fut Subj Pl P3) => sa_ + "caren" ; --# notpresent - VP (Cond Sg P1) => sa_ + "caría" ; --# notpresent - VP (Cond Sg P2) => sa_ + "carías" ; --# notpresent - VP (Cond Sg P3) => sa_ + "caría" ; --# notpresent - VP (Cond Pl P1) => sa_ + "caríamos" ; --# notpresent - VP (Cond Pl P2) => sa_ + "caríais" ; --# notpresent - VP (Cond Pl P3) => sa_ + "carían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => sa_ + "ca" ; - VP (Imp Sg P3) => sa_ + "que" ; - VP (Imp Pl P1) => sa_ + "quemos" ; - VP (Imp Pl P2) => sa_ + "cad" ; - VP (Imp Pl P3) => sa_ + "quen" ; - VP (Pass Sg Masc) => sa_ + "cado" ; - VP (Pass Sg Fem) => sa_ + "cada" ; - VP (Pass Pl Masc) => sa_ + "cados" ; - VP (Pass Pl Fem) => sa_ + "cadas" - } - } ; -oper salir_73 : Str -> Verbum = \salir -> - let sal_ = Predef.tk 2 salir in - {s = table { - VI Infn => sal_ + "ir" ; - VI Ger => sal_ + "iendo" ; - VI Part => sal_ + "ido" ; - VP (Pres Ind Sg P1) => sal_ + "go" ; - VP (Pres Ind Sg P2) => sal_ + "es" ; - VP (Pres Ind Sg P3) => sal_ + "e" ; - VP (Pres Ind Pl P1) => sal_ + "imos" ; - VP (Pres Ind Pl P2) => sal_ + "ís" ; - VP (Pres Ind Pl P3) => sal_ + "en" ; - VP (Pres Subj Sg P1) => sal_ + "ga" ; - VP (Pres Subj Sg P2) => sal_ + "gas" ; - VP (Pres Subj Sg P3) => sal_ + "ga" ; - VP (Pres Subj Pl P1) => sal_ + "gamos" ; - VP (Pres Subj Pl P2) => sal_ + "gáis" ; - VP (Pres Subj Pl P3) => sal_ + "gan" ; - VP (Impf Ind Sg P1) => sal_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => sal_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => sal_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => sal_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => sal_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => sal_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {sal_ + "iera" ; sal_ + "iese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {sal_ + "ieras" ; sal_ + "ieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {sal_ + "iera" ; sal_ + "iese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {sal_ + "iéramos" ; sal_ + "iésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {sal_ + "ierais" ; sal_ + "ieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {sal_ + "ieran" ; sal_ + "iesen"} ; --# notpresent - VP (Pret Sg P1) => sal_ + "í" ; --# notpresent - VP (Pret Sg P2) => sal_ + "iste" ; --# notpresent - VP (Pret Sg P3) => sal_ + "ió" ; --# notpresent - VP (Pret Pl P1) => sal_ + "imos" ; --# notpresent - VP (Pret Pl P2) => sal_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => sal_ + "ieron" ; --# notpresent - VP (Fut Ind Sg P1) => sal_ + "dré" ; --# notpresent - VP (Fut Ind Sg P2) => sal_ + "drás" ; --# notpresent - VP (Fut Ind Sg P3) => sal_ + "drá" ; --# notpresent - VP (Fut Ind Pl P1) => sal_ + "dremos" ; --# notpresent - VP (Fut Ind Pl P2) => sal_ + "dréis" ; --# notpresent - VP (Fut Ind Pl P3) => sal_ + "drán" ; --# notpresent - VP (Fut Subj Sg P1) => sal_ + "iere" ; --# notpresent - VP (Fut Subj Sg P2) => sal_ + "ieres" ; --# notpresent - VP (Fut Subj Sg P3) => sal_ + "iere" ; --# notpresent - VP (Fut Subj Pl P1) => sal_ + "iéremos" ; --# notpresent - VP (Fut Subj Pl P2) => sal_ + "iereis" ; --# notpresent - VP (Fut Subj Pl P3) => sal_ + "ieren" ; --# notpresent - VP (Cond Sg P1) => sal_ + "dría" ; --# notpresent - VP (Cond Sg P2) => sal_ + "drías" ; --# notpresent - VP (Cond Sg P3) => sal_ + "dría" ; --# notpresent - VP (Cond Pl P1) => sal_ + "dríamos" ; --# notpresent - VP (Cond Pl P2) => sal_ + "dríais" ; --# notpresent - VP (Cond Pl P3) => sal_ + "drían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => sal_ + "" ; - VP (Imp Sg P3) => sal_ + "ga" ; - VP (Imp Pl P1) => sal_ + "gamos" ; - VP (Imp Pl P2) => sal_ + "id" ; - VP (Imp Pl P3) => sal_ + "gan" ; - VP (Pass Sg Masc) => sal_ + "ido" ; - VP (Pass Sg Fem) => sal_ + "ida" ; - VP (Pass Pl Masc) => sal_ + "idos" ; - VP (Pass Pl Fem) => sal_ + "idas" - } - } ; -oper satisfacer_74 : Str -> Verbum = \satisfacer -> - let satisf_ = Predef.tk 4 satisfacer in - {s = table { - VI Infn => satisf_ + "acer" ; - VI Ger => satisf_ + "aciendo" ; - VI Part => satisf_ + "echo" ; - VP (Pres Ind Sg P1) => satisf_ + "ago" ; - VP (Pres Ind Sg P2) => satisf_ + "aces" ; - VP (Pres Ind Sg P3) => satisf_ + "ace" ; - VP (Pres Ind Pl P1) => satisf_ + "acemos" ; - VP (Pres Ind Pl P2) => satisf_ + "acéis" ; - VP (Pres Ind Pl P3) => satisf_ + "acen" ; - VP (Pres Subj Sg P1) => satisf_ + "aga" ; - VP (Pres Subj Sg P2) => satisf_ + "agas" ; - VP (Pres Subj Sg P3) => satisf_ + "aga" ; - VP (Pres Subj Pl P1) => satisf_ + "agamos" ; - VP (Pres Subj Pl P2) => satisf_ + "agáis" ; - VP (Pres Subj Pl P3) => satisf_ + "agan" ; - VP (Impf Ind Sg P1) => satisf_ + "acía" ; --# notpresent - VP (Impf Ind Sg P2) => satisf_ + "acías" ; --# notpresent - VP (Impf Ind Sg P3) => satisf_ + "acía" ; --# notpresent - VP (Impf Ind Pl P1) => satisf_ + "acíamos" ; --# notpresent - VP (Impf Ind Pl P2) => satisf_ + "acíais" ; --# notpresent - VP (Impf Ind Pl P3) => satisf_ + "acían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {satisf_ + "iciera" ; satisf_ + "iciese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {satisf_ + "icieras" ; satisf_ + "icieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {satisf_ + "iciera" ; satisf_ + "iciese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {satisf_ + "iciéramos" ; satisf_ + "iciésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {satisf_ + "icierais" ; satisf_ + "icieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {satisf_ + "icieran" ; satisf_ + "iciesen"} ; --# notpresent - VP (Pret Sg P1) => satisf_ + "ice" ; --# notpresent - VP (Pret Sg P2) => satisf_ + "iciste" ; --# notpresent - VP (Pret Sg P3) => satisf_ + "izo" ; --# notpresent - VP (Pret Pl P1) => satisf_ + "icimos" ; --# notpresent - VP (Pret Pl P2) => satisf_ + "icisteis" ; --# notpresent - VP (Pret Pl P3) => satisf_ + "icieron" ; --# notpresent - VP (Fut Ind Sg P1) => satisf_ + "aré" ; --# notpresent - VP (Fut Ind Sg P2) => satisf_ + "arás" ; --# notpresent - VP (Fut Ind Sg P3) => satisf_ + "ará" ; --# notpresent - VP (Fut Ind Pl P1) => satisf_ + "aremos" ; --# notpresent - VP (Fut Ind Pl P2) => satisf_ + "aréis" ; --# notpresent - VP (Fut Ind Pl P3) => satisf_ + "arán" ; --# notpresent - VP (Fut Subj Sg P1) => satisf_ + "iciere" ; --# notpresent - VP (Fut Subj Sg P2) => satisf_ + "icieres" ; --# notpresent - VP (Fut Subj Sg P3) => satisf_ + "iciere" ; --# notpresent - VP (Fut Subj Pl P1) => satisf_ + "iciéremos" ; --# notpresent - VP (Fut Subj Pl P2) => satisf_ + "iciereis" ; --# notpresent - VP (Fut Subj Pl P3) => satisf_ + "icieren" ; --# notpresent - VP (Cond Sg P1) => satisf_ + "aría" ; --# notpresent - VP (Cond Sg P2) => satisf_ + "arías" ; --# notpresent - VP (Cond Sg P3) => satisf_ + "aría" ; --# notpresent - VP (Cond Pl P1) => satisf_ + "aríamos" ; --# notpresent - VP (Cond Pl P2) => satisf_ + "aríais" ; --# notpresent - VP (Cond Pl P3) => satisf_ + "arían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => variants {satisf_ + "az" ; satisf_ + "ace"} ; - VP (Imp Sg P3) => satisf_ + "aga" ; - VP (Imp Pl P1) => satisf_ + "agamos" ; - VP (Imp Pl P2) => satisf_ + "aced" ; - VP (Imp Pl P3) => satisf_ + "agan" ; - VP (Pass Sg Masc) => satisf_ + "echo" ; - VP (Pass Sg Fem) => satisf_ + "echa" ; - VP (Pass Pl Masc) => satisf_ + "echos" ; - VP (Pass Pl Fem) => satisf_ + "echas" - } - } ; -oper sentir_76 : Str -> Verbum = \sentir -> - let s_ = Predef.tk 5 sentir in - {s = table { - VI Infn => s_ + "entir" ; - VI Ger => s_ + "intiendo" ; - VI Part => s_ + "entido" ; - VP (Pres Ind Sg P1) => s_ + "iento" ; - VP (Pres Ind Sg P2) => s_ + "ientes" ; - VP (Pres Ind Sg P3) => s_ + "iente" ; - VP (Pres Ind Pl P1) => s_ + "entimos" ; - VP (Pres Ind Pl P2) => s_ + "entís" ; - VP (Pres Ind Pl P3) => s_ + "ienten" ; - VP (Pres Subj Sg P1) => s_ + "ienta" ; - VP (Pres Subj Sg P2) => s_ + "ientas" ; - VP (Pres Subj Sg P3) => s_ + "ienta" ; - VP (Pres Subj Pl P1) => s_ + "intamos" ; - VP (Pres Subj Pl P2) => s_ + "intáis" ; - VP (Pres Subj Pl P3) => s_ + "ientan" ; - VP (Impf Ind Sg P1) => s_ + "entía" ; --# notpresent - VP (Impf Ind Sg P2) => s_ + "entías" ; --# notpresent - VP (Impf Ind Sg P3) => s_ + "entía" ; --# notpresent - VP (Impf Ind Pl P1) => s_ + "entíamos" ; --# notpresent - VP (Impf Ind Pl P2) => s_ + "entíais" ; --# notpresent - VP (Impf Ind Pl P3) => s_ + "entían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {s_ + "intiera" ; s_ + "intiese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {s_ + "intieras" ; s_ + "intieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {s_ + "intiera" ; s_ + "intiese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {s_ + "intiéramos" ; s_ + "intiésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {s_ + "intierais" ; s_ + "intieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {s_ + "intieran" ; s_ + "intiesen"} ; --# notpresent - VP (Pret Sg P1) => s_ + "entí" ; --# notpresent - VP (Pret Sg P2) => s_ + "entiste" ; --# notpresent - VP (Pret Sg P3) => s_ + "intió" ; --# notpresent - VP (Pret Pl P1) => s_ + "entimos" ; --# notpresent - VP (Pret Pl P2) => s_ + "entisteis" ; --# notpresent - VP (Pret Pl P3) => s_ + "intieron" ; --# notpresent - VP (Fut Ind Sg P1) => s_ + "entiré" ; --# notpresent - VP (Fut Ind Sg P2) => s_ + "entirás" ; --# notpresent - VP (Fut Ind Sg P3) => s_ + "entirá" ; --# notpresent - VP (Fut Ind Pl P1) => s_ + "entiremos" ; --# notpresent - VP (Fut Ind Pl P2) => s_ + "entiréis" ; --# notpresent - VP (Fut Ind Pl P3) => s_ + "entirán" ; --# notpresent - VP (Fut Subj Sg P1) => s_ + "intiere" ; --# notpresent - VP (Fut Subj Sg P2) => s_ + "intieres" ; --# notpresent - VP (Fut Subj Sg P3) => s_ + "intiere" ; --# notpresent - VP (Fut Subj Pl P1) => s_ + "intiéremos" ; --# notpresent - VP (Fut Subj Pl P2) => s_ + "intiereis" ; --# notpresent - VP (Fut Subj Pl P3) => s_ + "intieren" ; --# notpresent - VP (Cond Sg P1) => s_ + "entiría" ; --# notpresent - VP (Cond Sg P2) => s_ + "entirías" ; --# notpresent - VP (Cond Sg P3) => s_ + "entiría" ; --# notpresent - VP (Cond Pl P1) => s_ + "entiríamos" ; --# notpresent - VP (Cond Pl P2) => s_ + "entiríais" ; --# notpresent - VP (Cond Pl P3) => s_ + "entirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => s_ + "iente" ; - VP (Imp Sg P3) => s_ + "ienta" ; - VP (Imp Pl P1) => s_ + "intamos" ; - VP (Imp Pl P2) => s_ + "entid" ; - VP (Imp Pl P3) => s_ + "ientan" ; - VP (Pass Sg Masc) => s_ + "entido" ; - VP (Pass Sg Fem) => s_ + "entida" ; - VP (Pass Pl Masc) => s_ + "entidos" ; - VP (Pass Pl Fem) => s_ + "entidas" - } - } ; -oper soler_77 : Str -> Verbum = \soler -> - let s_ = Predef.tk 4 soler in - {s = table { - VI Infn => s_ + "oler" ; - VI Ger => variants {} ; - VI Part => variants {} ; - VP (Pres Ind Sg P1) => s_ + "uelo" ; - VP (Pres Ind Sg P2) => s_ + "ueles" ; - VP (Pres Ind Sg P3) => s_ + "uele" ; - VP (Pres Ind Pl P1) => s_ + "olemos" ; - VP (Pres Ind Pl P2) => s_ + "oléis" ; - VP (Pres Ind Pl P3) => s_ + "uelen" ; - VP (Pres Subj Sg P1) => s_ + "uela" ; - VP (Pres Subj Sg P2) => s_ + "uelas" ; - VP (Pres Subj Sg P3) => s_ + "uela" ; - VP (Pres Subj Pl P1) => s_ + "olamos" ; - VP (Pres Subj Pl P2) => s_ + "oláis" ; - VP (Pres Subj Pl P3) => s_ + "uelan" ; - VP (Impf Ind Sg P1) => s_ + "olía" ; --# notpresent - VP (Impf Ind Sg P2) => s_ + "olías" ; --# notpresent - VP (Impf Ind Sg P3) => s_ + "olía" ; --# notpresent - VP (Impf Ind Pl P1) => s_ + "olíamos" ; --# notpresent - VP (Impf Ind Pl P2) => s_ + "olíais" ; --# notpresent - VP (Impf Ind Pl P3) => s_ + "olían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {s_ + "oliera" ; s_ + "oliese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {s_ + "olieras" ; s_ + "olieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {s_ + "oliera" ; s_ + "oliese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {s_ + "oliéramos" ; s_ + "oliésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {s_ + "olierais" ; s_ + "olieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {s_ + "olieran" ; s_ + "oliesen"} ; --# notpresent - VP (Pret Sg P1) => s_ + "olí" ; --# notpresent - VP (Pret Sg P2) => s_ + "oliste" ; --# notpresent - VP (Pret Sg P3) => s_ + "olió" ; --# notpresent - VP (Pret Pl P1) => s_ + "olimos" ; --# notpresent - VP (Pret Pl P2) => s_ + "olisteis" ; --# notpresent - VP (Pret Pl P3) => s_ + "olieron" ; --# notpresent - VP (Fut Ind Sg P1) => variants {} ; --# notpresent - VP (Fut Ind Sg P2) => variants {} ; --# notpresent - VP (Fut Ind Sg P3) => variants {} ; --# notpresent - VP (Fut Ind Pl P1) => variants {} ; --# notpresent - VP (Fut Ind Pl P2) => variants {} ; --# notpresent - VP (Fut Ind Pl P3) => variants {} ; --# notpresent - VP (Fut Subj Sg P1) => variants {} ; --# notpresent - VP (Fut Subj Sg P2) => variants {} ; --# notpresent - VP (Fut Subj Sg P3) => variants {} ; --# notpresent - VP (Fut Subj Pl P1) => variants {} ; --# notpresent - VP (Fut Subj Pl P2) => variants {} ; --# notpresent - VP (Fut Subj Pl P3) => variants {} ; --# notpresent - VP (Cond Sg P1) => variants {} ; --# notpresent - VP (Cond Sg P2) => variants {} ; --# notpresent - VP (Cond Sg P3) => variants {} ; --# notpresent - VP (Cond Pl P1) => variants {} ; --# notpresent - VP (Cond Pl P2) => variants {} ; --# notpresent - VP (Cond Pl P3) => variants {} ; --# 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) => variants {} ; - VP (Pass Sg Fem) => variants {} ; - VP (Pass Pl Masc) => variants {} ; - VP (Pass Pl Fem) => variants {} - } - } ; -oper tañer_78 : Str -> Verbum = \tañer -> - let tañ_ = Predef.tk 2 tañer in - {s = table { - VI Infn => tañ_ + "er" ; - VI Ger => tañ_ + "endo" ; - VI Part => tañ_ + "ido" ; - VP (Pres Ind Sg P1) => tañ_ + "o" ; - VP (Pres Ind Sg P2) => tañ_ + "es" ; - VP (Pres Ind Sg P3) => tañ_ + "e" ; - VP (Pres Ind Pl P1) => tañ_ + "emos" ; - VP (Pres Ind Pl P2) => tañ_ + "éis" ; - VP (Pres Ind Pl P3) => tañ_ + "en" ; - VP (Pres Subj Sg P1) => tañ_ + "a" ; - VP (Pres Subj Sg P2) => tañ_ + "as" ; - VP (Pres Subj Sg P3) => tañ_ + "a" ; - VP (Pres Subj Pl P1) => tañ_ + "amos" ; - VP (Pres Subj Pl P2) => tañ_ + "áis" ; - VP (Pres Subj Pl P3) => tañ_ + "an" ; - VP (Impf Ind Sg P1) => tañ_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => tañ_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => tañ_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => tañ_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => tañ_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => tañ_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {tañ_ + "era" ; tañ_ + "ese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {tañ_ + "eras" ; tañ_ + "eses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {tañ_ + "era" ; tañ_ + "ese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {tañ_ + "éramos" ; tañ_ + "ésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {tañ_ + "erais" ; tañ_ + "eseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {tañ_ + "eran" ; tañ_ + "esen"} ; --# notpresent - VP (Pret Sg P1) => tañ_ + "í" ; --# notpresent - VP (Pret Sg P2) => tañ_ + "iste" ; --# notpresent - VP (Pret Sg P3) => tañ_ + "ó" ; --# notpresent - VP (Pret Pl P1) => tañ_ + "imos" ; --# notpresent - VP (Pret Pl P2) => tañ_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => tañ_ + "eron" ; --# notpresent - VP (Fut Ind Sg P1) => tañ_ + "eré" ; --# notpresent - VP (Fut Ind Sg P2) => tañ_ + "erás" ; --# notpresent - VP (Fut Ind Sg P3) => tañ_ + "erá" ; --# notpresent - VP (Fut Ind Pl P1) => tañ_ + "eremos" ; --# notpresent - VP (Fut Ind Pl P2) => tañ_ + "eréis" ; --# notpresent - VP (Fut Ind Pl P3) => tañ_ + "erán" ; --# notpresent - VP (Fut Subj Sg P1) => tañ_ + "ere" ; --# notpresent - VP (Fut Subj Sg P2) => tañ_ + "eres" ; --# notpresent - VP (Fut Subj Sg P3) => tañ_ + "ere" ; --# notpresent - VP (Fut Subj Pl P1) => tañ_ + "éremos" ; --# notpresent - VP (Fut Subj Pl P2) => tañ_ + "ereis" ; --# notpresent - VP (Fut Subj Pl P3) => tañ_ + "eren" ; --# notpresent - VP (Cond Sg P1) => tañ_ + "ería" ; --# notpresent - VP (Cond Sg P2) => tañ_ + "erías" ; --# notpresent - VP (Cond Sg P3) => tañ_ + "ería" ; --# notpresent - VP (Cond Pl P1) => tañ_ + "eríamos" ; --# notpresent - VP (Cond Pl P2) => tañ_ + "eríais" ; --# notpresent - VP (Cond Pl P3) => tañ_ + "erían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => tañ_ + "e" ; - VP (Imp Sg P3) => tañ_ + "a" ; - VP (Imp Pl P1) => tañ_ + "amos" ; - VP (Imp Pl P2) => tañ_ + "ed" ; - VP (Imp Pl P3) => tañ_ + "an" ; - VP (Pass Sg Masc) => tañ_ + "ido" ; - VP (Pass Sg Fem) => tañ_ + "ida" ; - VP (Pass Pl Masc) => tañ_ + "idos" ; - VP (Pass Pl Fem) => tañ_ + "idas" - } - } ; -oper traer_79 : Str -> Verbum = \traer -> - let tra_ = Predef.tk 2 traer in - {s = table { - VI Infn => tra_ + "er" ; - VI Ger => tra_ + "yendo" ; - VI Part => tra_ + "ído" ; - VP (Pres Ind Sg P1) => tra_ + "o" ; - VP (Pres Ind Sg P2) => tra_ + "es" ; - VP (Pres Ind Sg P3) => tra_ + "e" ; - VP (Pres Ind Pl P1) => tra_ + "emos" ; - VP (Pres Ind Pl P2) => tra_ + "éis" ; - VP (Pres Ind Pl P3) => tra_ + "en" ; - VP (Pres Subj Sg P1) => tra_ + "a" ; - VP (Pres Subj Sg P2) => tra_ + "as" ; - VP (Pres Subj Sg P3) => tra_ + "a" ; - VP (Pres Subj Pl P1) => tra_ + "amos" ; - VP (Pres Subj Pl P2) => tra_ + "áis" ; - VP (Pres Subj Pl P3) => tra_ + "an" ; - VP (Impf Ind Sg P1) => tra_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => tra_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => tra_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => tra_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => tra_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => tra_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {tra_ + "yera" ; tra_ + "yese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {tra_ + "yeras" ; tra_ + "yeses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {tra_ + "yera" ; tra_ + "yese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {tra_ + "yéramos" ; tra_ + "yésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {tra_ + "yerais" ; tra_ + "yeseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {tra_ + "yeran" ; tra_ + "yesen"} ; --# notpresent - VP (Pret Sg P1) => tra_ + "í" ; --# notpresent - VP (Pret Sg P2) => tra_ + "íste" ; --# notpresent - VP (Pret Sg P3) => tra_ + "yó" ; --# notpresent - VP (Pret Pl P1) => tra_ + "ímos" ; --# notpresent - VP (Pret Pl P2) => tra_ + "ísteis" ; --# notpresent - VP (Pret Pl P3) => tra_ + "yeron" ; --# notpresent - VP (Fut Ind Sg P1) => tra_ + "eré" ; --# notpresent - VP (Fut Ind Sg P2) => tra_ + "erás" ; --# notpresent - VP (Fut Ind Sg P3) => tra_ + "erá" ; --# notpresent - VP (Fut Ind Pl P1) => tra_ + "eremos" ; --# notpresent - VP (Fut Ind Pl P2) => tra_ + "eréis" ; --# notpresent - VP (Fut Ind Pl P3) => tra_ + "erán" ; --# notpresent - VP (Fut Subj Sg P1) => tra_ + "yere" ; --# notpresent - VP (Fut Subj Sg P2) => tra_ + "yeres" ; --# notpresent - VP (Fut Subj Sg P3) => tra_ + "yere" ; --# notpresent - VP (Fut Subj Pl P1) => tra_ + "yéremos" ; --# notpresent - VP (Fut Subj Pl P2) => tra_ + "yereis" ; --# notpresent - VP (Fut Subj Pl P3) => tra_ + "yeren" ; --# notpresent - VP (Cond Sg P1) => tra_ + "ería" ; --# notpresent - VP (Cond Sg P2) => tra_ + "erías" ; --# notpresent - VP (Cond Sg P3) => tra_ + "ería" ; --# notpresent - VP (Cond Pl P1) => tra_ + "eríamos" ; --# notpresent - VP (Cond Pl P2) => tra_ + "eríais" ; --# notpresent - VP (Cond Pl P3) => tra_ + "erían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => tra_ + "e" ; - VP (Imp Sg P3) => tra_ + "a" ; - VP (Imp Pl P1) => tra_ + "amos" ; - VP (Imp Pl P2) => tra_ + "ed" ; - VP (Imp Pl P3) => tra_ + "an" ; - VP (Pass Sg Masc) => tra_ + "ído" ; - VP (Pass Sg Fem) => tra_ + "ída" ; - VP (Pass Pl Masc) => tra_ + "ídos" ; - VP (Pass Pl Fem) => tra_ + "ídas" - } - } ; -oper trocar_80 : Str -> Verbum = \trocar -> - let tr_ = Predef.tk 4 trocar in - {s = table { - VI Infn => tr_ + "ocar" ; - VI Ger => tr_ + "ocando" ; - VI Part => tr_ + "ocado" ; - VP (Pres Ind Sg P1) => tr_ + "ueco" ; - VP (Pres Ind Sg P2) => tr_ + "uecas" ; - VP (Pres Ind Sg P3) => tr_ + "ueca" ; - VP (Pres Ind Pl P1) => tr_ + "ocamos" ; - VP (Pres Ind Pl P2) => tr_ + "ocáis" ; - VP (Pres Ind Pl P3) => tr_ + "uecan" ; - VP (Pres Subj Sg P1) => tr_ + "ueque" ; - VP (Pres Subj Sg P2) => tr_ + "ueques" ; - VP (Pres Subj Sg P3) => tr_ + "ueque" ; - VP (Pres Subj Pl P1) => tr_ + "oquemos" ; - VP (Pres Subj Pl P2) => tr_ + "oquéis" ; - VP (Pres Subj Pl P3) => tr_ + "uequen" ; - VP (Impf Ind Sg P1) => tr_ + "ocaba" ; --# notpresent - VP (Impf Ind Sg P2) => tr_ + "ocabas" ; --# notpresent - VP (Impf Ind Sg P3) => tr_ + "ocaba" ; --# notpresent - VP (Impf Ind Pl P1) => tr_ + "ocábamos" ; --# notpresent - VP (Impf Ind Pl P2) => tr_ + "ocabais" ; --# notpresent - VP (Impf Ind Pl P3) => tr_ + "ocaban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {tr_ + "ocara" ; tr_ + "ocase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {tr_ + "ocaras" ; tr_ + "ocases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {tr_ + "ocara" ; tr_ + "ocase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {tr_ + "ocáramos" ; tr_ + "ocásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {tr_ + "ocarais" ; tr_ + "ocaseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {tr_ + "ocaran" ; tr_ + "ocasen"} ; --# notpresent - VP (Pret Sg P1) => tr_ + "oqué" ; --# notpresent - VP (Pret Sg P2) => tr_ + "ocaste" ; --# notpresent - VP (Pret Sg P3) => tr_ + "ocó" ; --# notpresent - VP (Pret Pl P1) => tr_ + "ocamos" ; --# notpresent - VP (Pret Pl P2) => tr_ + "ocasteis" ; --# notpresent - VP (Pret Pl P3) => tr_ + "ocaron" ; --# notpresent - VP (Fut Ind Sg P1) => tr_ + "ocaré" ; --# notpresent - VP (Fut Ind Sg P2) => tr_ + "ocarás" ; --# notpresent - VP (Fut Ind Sg P3) => tr_ + "ocará" ; --# notpresent - VP (Fut Ind Pl P1) => tr_ + "ocaremos" ; --# notpresent - VP (Fut Ind Pl P2) => tr_ + "ocaréis" ; --# notpresent - VP (Fut Ind Pl P3) => tr_ + "ocarán" ; --# notpresent - VP (Fut Subj Sg P1) => tr_ + "ocare" ; --# notpresent - VP (Fut Subj Sg P2) => tr_ + "ocares" ; --# notpresent - VP (Fut Subj Sg P3) => tr_ + "ocare" ; --# notpresent - VP (Fut Subj Pl P1) => tr_ + "ocáremos" ; --# notpresent - VP (Fut Subj Pl P2) => tr_ + "ocareis" ; --# notpresent - VP (Fut Subj Pl P3) => tr_ + "ocaren" ; --# notpresent - VP (Cond Sg P1) => tr_ + "ocaría" ; --# notpresent - VP (Cond Sg P2) => tr_ + "ocarías" ; --# notpresent - VP (Cond Sg P3) => tr_ + "ocaría" ; --# notpresent - VP (Cond Pl P1) => tr_ + "ocaríamos" ; --# notpresent - VP (Cond Pl P2) => tr_ + "ocaríais" ; --# notpresent - VP (Cond Pl P3) => tr_ + "ocarían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => tr_ + "ueca" ; - VP (Imp Sg P3) => tr_ + "ueque" ; - VP (Imp Pl P1) => tr_ + "oquemos" ; - VP (Imp Pl P2) => tr_ + "ocad" ; - VP (Imp Pl P3) => tr_ + "uequen" ; - VP (Pass Sg Masc) => tr_ + "ocado" ; - VP (Pass Sg Fem) => tr_ + "ocada" ; - VP (Pass Pl Masc) => tr_ + "ocados" ; - VP (Pass Pl Fem) => tr_ + "ocadas" - } - } ; -oper valer_81 : Str -> Verbum = \valer -> - let val_ = Predef.tk 2 valer in - {s = table { - VI Infn => val_ + "er" ; - VI Ger => val_ + "iendo" ; - VI Part => val_ + "ido" ; - VP (Pres Ind Sg P1) => val_ + "go" ; - VP (Pres Ind Sg P2) => val_ + "es" ; - VP (Pres Ind Sg P3) => val_ + "e" ; - VP (Pres Ind Pl P1) => val_ + "emos" ; - VP (Pres Ind Pl P2) => val_ + "éis" ; - VP (Pres Ind Pl P3) => val_ + "en" ; - VP (Pres Subj Sg P1) => val_ + "ga" ; - VP (Pres Subj Sg P2) => val_ + "gas" ; - VP (Pres Subj Sg P3) => val_ + "ga" ; - VP (Pres Subj Pl P1) => val_ + "gamos" ; - VP (Pres Subj Pl P2) => val_ + "gáis" ; - VP (Pres Subj Pl P3) => val_ + "gan" ; - VP (Impf Ind Sg P1) => val_ + "ía" ; --# notpresent - VP (Impf Ind Sg P2) => val_ + "ías" ; --# notpresent - VP (Impf Ind Sg P3) => val_ + "ía" ; --# notpresent - VP (Impf Ind Pl P1) => val_ + "íamos" ; --# notpresent - VP (Impf Ind Pl P2) => val_ + "íais" ; --# notpresent - VP (Impf Ind Pl P3) => val_ + "ían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {val_ + "iera" ; val_ + "iese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {val_ + "ieras" ; val_ + "ieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {val_ + "iera" ; val_ + "iese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {val_ + "iéramos" ; val_ + "iésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {val_ + "ierais" ; val_ + "ieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {val_ + "ieran" ; val_ + "iesen"} ; --# notpresent - VP (Pret Sg P1) => val_ + "í" ; --# notpresent - VP (Pret Sg P2) => val_ + "iste" ; --# notpresent - VP (Pret Sg P3) => val_ + "ió" ; --# notpresent - VP (Pret Pl P1) => val_ + "imos" ; --# notpresent - VP (Pret Pl P2) => val_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => val_ + "ieron" ; --# notpresent - VP (Fut Ind Sg P1) => val_ + "dré" ; --# notpresent - VP (Fut Ind Sg P2) => val_ + "drás" ; --# notpresent - VP (Fut Ind Sg P3) => val_ + "drá" ; --# notpresent - VP (Fut Ind Pl P1) => val_ + "dremos" ; --# notpresent - VP (Fut Ind Pl P2) => val_ + "dréis" ; --# notpresent - VP (Fut Ind Pl P3) => val_ + "drán" ; --# notpresent - VP (Fut Subj Sg P1) => val_ + "iere" ; --# notpresent - VP (Fut Subj Sg P2) => val_ + "ieres" ; --# notpresent - VP (Fut Subj Sg P3) => val_ + "iere" ; --# notpresent - VP (Fut Subj Pl P1) => val_ + "iéremos" ; --# notpresent - VP (Fut Subj Pl P2) => val_ + "iereis" ; --# notpresent - VP (Fut Subj Pl P3) => val_ + "ieren" ; --# notpresent - VP (Cond Sg P1) => val_ + "dría" ; --# notpresent - VP (Cond Sg P2) => val_ + "drías" ; --# notpresent - VP (Cond Sg P3) => val_ + "dría" ; --# notpresent - VP (Cond Pl P1) => val_ + "dríamos" ; --# notpresent - VP (Cond Pl P2) => val_ + "dríais" ; --# notpresent - VP (Cond Pl P3) => val_ + "drían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => val_ + "e" ; - VP (Imp Sg P3) => val_ + "ga" ; - VP (Imp Pl P1) => val_ + "gamos" ; - VP (Imp Pl P2) => val_ + "ed" ; - VP (Imp Pl P3) => val_ + "gan" ; - VP (Pass Sg Masc) => val_ + "ido" ; - VP (Pass Sg Fem) => val_ + "ida" ; - VP (Pass Pl Masc) => val_ + "idos" ; - VP (Pass Pl Fem) => val_ + "idas" - } - } ; -oper venir_82 : Str -> Verbum = \venir -> - let v_ = Predef.tk 4 venir in - {s = table { - VI Infn => v_ + "enir" ; - VI Ger => v_ + "iniendo" ; - VI Part => v_ + "enido" ; - VP (Pres Ind Sg P1) => v_ + "engo" ; - VP (Pres Ind Sg P2) => v_ + "ienes" ; - VP (Pres Ind Sg P3) => v_ + "iene" ; - VP (Pres Ind Pl P1) => v_ + "enimos" ; - VP (Pres Ind Pl P2) => v_ + "enís" ; - VP (Pres Ind Pl P3) => v_ + "ienen" ; - VP (Pres Subj Sg P1) => v_ + "enga" ; - VP (Pres Subj Sg P2) => v_ + "engas" ; - VP (Pres Subj Sg P3) => v_ + "enga" ; - VP (Pres Subj Pl P1) => v_ + "engamos" ; - VP (Pres Subj Pl P2) => v_ + "engáis" ; - VP (Pres Subj Pl P3) => v_ + "engan" ; - VP (Impf Ind Sg P1) => v_ + "enía" ; --# notpresent - VP (Impf Ind Sg P2) => v_ + "enías" ; --# notpresent - VP (Impf Ind Sg P3) => v_ + "enía" ; --# notpresent - VP (Impf Ind Pl P1) => v_ + "eníamos" ; --# notpresent - VP (Impf Ind Pl P2) => v_ + "eníais" ; --# notpresent - VP (Impf Ind Pl P3) => v_ + "enían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {v_ + "iniera" ; v_ + "iniese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {v_ + "inieras" ; v_ + "inieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {v_ + "iniera" ; v_ + "iniese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {v_ + "iniéramos" ; v_ + "iniésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {v_ + "inierais" ; v_ + "inieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {v_ + "inieran" ; v_ + "iniesen"} ; --# notpresent - VP (Pret Sg P1) => v_ + "ine" ; --# notpresent - VP (Pret Sg P2) => v_ + "iniste" ; --# notpresent - VP (Pret Sg P3) => v_ + "ino" ; --# notpresent - VP (Pret Pl P1) => v_ + "inimos" ; --# notpresent - VP (Pret Pl P2) => v_ + "inisteis" ; --# notpresent - VP (Pret Pl P3) => v_ + "inieron" ; --# notpresent - VP (Fut Ind Sg P1) => v_ + "endré" ; --# notpresent - VP (Fut Ind Sg P2) => v_ + "endrás" ; --# notpresent - VP (Fut Ind Sg P3) => v_ + "endrá" ; --# notpresent - VP (Fut Ind Pl P1) => v_ + "endremos" ; --# notpresent - VP (Fut Ind Pl P2) => v_ + "endréis" ; --# notpresent - VP (Fut Ind Pl P3) => v_ + "endrán" ; --# notpresent - VP (Fut Subj Sg P1) => v_ + "iniere" ; --# notpresent - VP (Fut Subj Sg P2) => v_ + "inieres" ; --# notpresent - VP (Fut Subj Sg P3) => v_ + "iniere" ; --# notpresent - VP (Fut Subj Pl P1) => v_ + "iniéremos" ; --# notpresent - VP (Fut Subj Pl P2) => v_ + "iniereis" ; --# notpresent - VP (Fut Subj Pl P3) => v_ + "inieren" ; --# notpresent - VP (Cond Sg P1) => v_ + "endría" ; --# notpresent - VP (Cond Sg P2) => v_ + "endrías" ; --# notpresent - VP (Cond Sg P3) => v_ + "endría" ; --# notpresent - VP (Cond Pl P1) => v_ + "endríamos" ; --# notpresent - VP (Cond Pl P2) => v_ + "endríais" ; --# notpresent - VP (Cond Pl P3) => v_ + "endrían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => v_ + "en" ; - VP (Imp Sg P3) => v_ + "enga" ; - VP (Imp Pl P1) => v_ + "engamos" ; - VP (Imp Pl P2) => v_ + "enid" ; - VP (Imp Pl P3) => v_ + "engan" ; - VP (Pass Sg Masc) => v_ + "enido" ; - VP (Pass Sg Fem) => v_ + "enida" ; - VP (Pass Pl Masc) => v_ + "enidos" ; - VP (Pass Pl Fem) => v_ + "enidas" - } - } ; -oper ver_83 : Str -> Verbum = \ver -> - let v_ = Predef.tk 2 ver in - {s = table { - VI Infn => v_ + "er" ; - VI Ger => v_ + "iendo" ; - VI Part => v_ + "isto" ; - VP (Pres Ind Sg P1) => v_ + "eo" ; - VP (Pres Ind Sg P2) => v_ + "es" ; - VP (Pres Ind Sg P3) => v_ + "e" ; - VP (Pres Ind Pl P1) => v_ + "emos" ; - VP (Pres Ind Pl P2) => v_ + "eis" ; - VP (Pres Ind Pl P3) => v_ + "en" ; - VP (Pres Subj Sg P1) => v_ + "ea" ; - VP (Pres Subj Sg P2) => v_ + "eas" ; - VP (Pres Subj Sg P3) => v_ + "ea" ; - VP (Pres Subj Pl P1) => v_ + "eamos" ; - VP (Pres Subj Pl P2) => v_ + "eáis" ; - VP (Pres Subj Pl P3) => v_ + "ean" ; - VP (Impf Ind Sg P1) => v_ + "eía" ; --# notpresent - VP (Impf Ind Sg P2) => v_ + "eías" ; --# notpresent - VP (Impf Ind Sg P3) => v_ + "eía" ; --# notpresent - VP (Impf Ind Pl P1) => v_ + "eíamos" ; --# notpresent - VP (Impf Ind Pl P2) => v_ + "eíais" ; --# notpresent - VP (Impf Ind Pl P3) => v_ + "eían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {v_ + "iera" ; v_ + "iese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {v_ + "ieras" ; v_ + "ieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {v_ + "iera" ; v_ + "iese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {v_ + "iéramos" ; v_ + "iésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {v_ + "ierais" ; v_ + "ieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {v_ + "ieran" ; v_ + "iesen"} ; --# notpresent - VP (Pret Sg P1) => v_ + "i" ; --# notpresent - VP (Pret Sg P2) => v_ + "iste" ; --# notpresent - VP (Pret Sg P3) => v_ + "io" ; --# notpresent - VP (Pret Pl P1) => v_ + "imos" ; --# notpresent - VP (Pret Pl P2) => v_ + "isteis" ; --# notpresent - VP (Pret Pl P3) => v_ + "ieron" ; --# notpresent - VP (Fut Ind Sg P1) => v_ + "eré" ; --# notpresent - VP (Fut Ind Sg P2) => v_ + "erás" ; --# notpresent - VP (Fut Ind Sg P3) => v_ + "erá" ; --# notpresent - VP (Fut Ind Pl P1) => v_ + "eremos" ; --# notpresent - VP (Fut Ind Pl P2) => v_ + "eréis" ; --# notpresent - VP (Fut Ind Pl P3) => v_ + "erán" ; --# notpresent - VP (Fut Subj Sg P1) => v_ + "iere" ; --# notpresent - VP (Fut Subj Sg P2) => v_ + "ieres" ; --# notpresent - VP (Fut Subj Sg P3) => v_ + "iere" ; --# notpresent - VP (Fut Subj Pl P1) => v_ + "iéremos" ; --# notpresent - VP (Fut Subj Pl P2) => v_ + "iereis" ; --# notpresent - VP (Fut Subj Pl P3) => v_ + "ieren" ; --# notpresent - VP (Cond Sg P1) => v_ + "ería" ; --# notpresent - VP (Cond Sg P2) => v_ + "erías" ; --# notpresent - VP (Cond Sg P3) => v_ + "ería" ; --# notpresent - VP (Cond Pl P1) => v_ + "eríamos" ; --# notpresent - VP (Cond Pl P2) => v_ + "eríais" ; --# notpresent - VP (Cond Pl P3) => v_ + "erían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => v_ + "e" ; - VP (Imp Sg P3) => v_ + "ea" ; - VP (Imp Pl P1) => v_ + "eamos" ; - VP (Imp Pl P2) => v_ + "ed" ; - VP (Imp Pl P3) => v_ + "ean" ; - VP (Pass Sg Masc) => v_ + "isto" ; - VP (Pass Sg Fem) => v_ + "ista" ; - VP (Pass Pl Masc) => v_ + "istos" ; - VP (Pass Pl Fem) => v_ + "istas" - } - } ; -oper volver_84 : Str -> Verbum = \volver -> - let v_ = Predef.tk 5 volver in - {s = table { - VI Infn => v_ + "olver" ; - VI Ger => v_ + "olviendo" ; - VI Part => v_ + "uelto" ; - VP (Pres Ind Sg P1) => v_ + "uelvo" ; - VP (Pres Ind Sg P2) => v_ + "uelves" ; - VP (Pres Ind Sg P3) => v_ + "uelve" ; - VP (Pres Ind Pl P1) => v_ + "olvemos" ; - VP (Pres Ind Pl P2) => v_ + "olvéis" ; - VP (Pres Ind Pl P3) => v_ + "uelven" ; - VP (Pres Subj Sg P1) => v_ + "uelva" ; - VP (Pres Subj Sg P2) => v_ + "uelvas" ; - VP (Pres Subj Sg P3) => v_ + "uelva" ; - VP (Pres Subj Pl P1) => v_ + "olvamos" ; - VP (Pres Subj Pl P2) => v_ + "olváis" ; - VP (Pres Subj Pl P3) => v_ + "uelvan" ; - VP (Impf Ind Sg P1) => v_ + "olvía" ; --# notpresent - VP (Impf Ind Sg P2) => v_ + "olvías" ; --# notpresent - VP (Impf Ind Sg P3) => v_ + "olvía" ; --# notpresent - VP (Impf Ind Pl P1) => v_ + "olvíamos" ; --# notpresent - VP (Impf Ind Pl P2) => v_ + "olvíais" ; --# notpresent - VP (Impf Ind Pl P3) => v_ + "olvían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {v_ + "olviera" ; v_ + "olviese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {v_ + "olvieras" ; v_ + "olvieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {v_ + "olviera" ; v_ + "olviese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {v_ + "olviéramos" ; v_ + "olviésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {v_ + "olvierais" ; v_ + "olvieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {v_ + "olvieran" ; v_ + "olviesen"} ; --# notpresent - VP (Pret Sg P1) => v_ + "olví" ; --# notpresent - VP (Pret Sg P2) => v_ + "olviste" ; --# notpresent - VP (Pret Sg P3) => v_ + "olvió" ; --# notpresent - VP (Pret Pl P1) => v_ + "olvimos" ; --# notpresent - VP (Pret Pl P2) => v_ + "olvisteis" ; --# notpresent - VP (Pret Pl P3) => v_ + "olvieron" ; --# notpresent - VP (Fut Ind Sg P1) => v_ + "olveré" ; --# notpresent - VP (Fut Ind Sg P2) => v_ + "olverás" ; --# notpresent - VP (Fut Ind Sg P3) => v_ + "olverá" ; --# notpresent - VP (Fut Ind Pl P1) => v_ + "olveremos" ; --# notpresent - VP (Fut Ind Pl P2) => v_ + "olveréis" ; --# notpresent - VP (Fut Ind Pl P3) => v_ + "olverán" ; --# notpresent - VP (Fut Subj Sg P1) => v_ + "olviere" ; --# notpresent - VP (Fut Subj Sg P2) => v_ + "olvieres" ; --# notpresent - VP (Fut Subj Sg P3) => v_ + "olviere" ; --# notpresent - VP (Fut Subj Pl P1) => v_ + "olviéremos" ; --# notpresent - VP (Fut Subj Pl P2) => v_ + "olviereis" ; --# notpresent - VP (Fut Subj Pl P3) => v_ + "olvieren" ; --# notpresent - VP (Cond Sg P1) => v_ + "olvería" ; --# notpresent - VP (Cond Sg P2) => v_ + "olverías" ; --# notpresent - VP (Cond Sg P3) => v_ + "olvería" ; --# notpresent - VP (Cond Pl P1) => v_ + "olveríamos" ; --# notpresent - VP (Cond Pl P2) => v_ + "olveríais" ; --# notpresent - VP (Cond Pl P3) => v_ + "olverían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => v_ + "uelve" ; - VP (Imp Sg P3) => v_ + "uelva" ; - VP (Imp Pl P1) => v_ + "olvamos" ; - VP (Imp Pl P2) => v_ + "olved" ; - VP (Imp Pl P3) => v_ + "uelvan" ; - VP (Pass Sg Masc) => v_ + "uelto" ; - VP (Pass Sg Fem) => v_ + "uelta" ; - VP (Pass Pl Masc) => v_ + "ueltos" ; - VP (Pass Pl Fem) => v_ + "ueltas" - } - } ; -oper yacer_85 : Str -> Verbum = \yacer -> - let ya_ = Predef.tk 3 yacer in - {s = table { - VI Infn => ya_ + "cer" ; - VI Ger => ya_ + "ciendo" ; - VI Part => ya_ + "cido" ; - VP (Pres Ind Sg P1) => ya_ + "zgo" ; - VP (Pres Ind Sg P2) => ya_ + "ces" ; - VP (Pres Ind Sg P3) => ya_ + "ce" ; - VP (Pres Ind Pl P1) => ya_ + "cemos" ; - VP (Pres Ind Pl P2) => ya_ + "céis" ; - VP (Pres Ind Pl P3) => ya_ + "cen" ; - VP (Pres Subj Sg P1) => ya_ + "zga" ; - VP (Pres Subj Sg P2) => ya_ + "zgas" ; - VP (Pres Subj Sg P3) => ya_ + "zga" ; - VP (Pres Subj Pl P1) => ya_ + "zgamos" ; - VP (Pres Subj Pl P2) => ya_ + "zgáis" ; - VP (Pres Subj Pl P3) => ya_ + "zgan" ; - VP (Impf Ind Sg P1) => ya_ + "cía" ; --# notpresent - VP (Impf Ind Sg P2) => ya_ + "cías" ; --# notpresent - VP (Impf Ind Sg P3) => ya_ + "cía" ; --# notpresent - VP (Impf Ind Pl P1) => ya_ + "cíamos" ; --# notpresent - VP (Impf Ind Pl P2) => ya_ + "cíais" ; --# notpresent - VP (Impf Ind Pl P3) => ya_ + "cían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {ya_ + "ciera" ; ya_ + "ciese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {ya_ + "cieras" ; ya_ + "cieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {ya_ + "ciera" ; ya_ + "ciese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {ya_ + "ciéramos" ; ya_ + "ciésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {ya_ + "cierais" ; ya_ + "cieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {ya_ + "cieran" ; ya_ + "ciesen"} ; --# notpresent - VP (Pret Sg P1) => ya_ + "cí" ; --# notpresent - VP (Pret Sg P2) => ya_ + "ciste" ; --# notpresent - VP (Pret Sg P3) => ya_ + "ció" ; --# notpresent - VP (Pret Pl P1) => ya_ + "cimos" ; --# notpresent - VP (Pret Pl P2) => ya_ + "cisteis" ; --# notpresent - VP (Pret Pl P3) => ya_ + "cieron" ; --# notpresent - VP (Fut Ind Sg P1) => ya_ + "ceré" ; --# notpresent - VP (Fut Ind Sg P2) => ya_ + "cerás" ; --# notpresent - VP (Fut Ind Sg P3) => ya_ + "cerá" ; --# notpresent - VP (Fut Ind Pl P1) => ya_ + "ceremos" ; --# notpresent - VP (Fut Ind Pl P2) => ya_ + "ceréis" ; --# notpresent - VP (Fut Ind Pl P3) => ya_ + "cerán" ; --# notpresent - VP (Fut Subj Sg P1) => ya_ + "ciere" ; --# notpresent - VP (Fut Subj Sg P2) => ya_ + "cieres" ; --# notpresent - VP (Fut Subj Sg P3) => ya_ + "ciere" ; --# notpresent - VP (Fut Subj Pl P1) => ya_ + "ciéremos" ; --# notpresent - VP (Fut Subj Pl P2) => ya_ + "ciereis" ; --# notpresent - VP (Fut Subj Pl P3) => ya_ + "cieren" ; --# notpresent - VP (Cond Sg P1) => ya_ + "cería" ; --# notpresent - VP (Cond Sg P2) => ya_ + "cerías" ; --# notpresent - VP (Cond Sg P3) => ya_ + "cería" ; --# notpresent - VP (Cond Pl P1) => ya_ + "ceríamos" ; --# notpresent - VP (Cond Pl P2) => ya_ + "ceríais" ; --# notpresent - VP (Cond Pl P3) => ya_ + "cerían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => ya_ + "ce" ; - VP (Imp Sg P3) => ya_ + "zga" ; - VP (Imp Pl P1) => ya_ + "zgamos" ; - VP (Imp Pl P2) => ya_ + "ced" ; - VP (Imp Pl P3) => ya_ + "zgan" ; - VP (Pass Sg Masc) => ya_ + "cido" ; - VP (Pass Sg Fem) => ya_ + "cida" ; - VP (Pass Pl Masc) => ya_ + "cidos" ; - VP (Pass Pl Fem) => ya_ + "cidas" - } - } ; -oper zurcir_86 : Str -> Verbum = \zurcir -> - let zur_ = Predef.tk 3 zurcir in - {s = table { - VI Infn => zur_ + "cir" ; - VI Ger => zur_ + "ciendo" ; - VI Part => zur_ + "cido" ; - VP (Pres Ind Sg P1) => zur_ + "zo" ; - VP (Pres Ind Sg P2) => zur_ + "ces" ; - VP (Pres Ind Sg P3) => zur_ + "ce" ; - VP (Pres Ind Pl P1) => zur_ + "cimos" ; - VP (Pres Ind Pl P2) => zur_ + "cís" ; - VP (Pres Ind Pl P3) => zur_ + "cen" ; - VP (Pres Subj Sg P1) => zur_ + "za" ; - VP (Pres Subj Sg P2) => zur_ + "zas" ; - VP (Pres Subj Sg P3) => zur_ + "za" ; - VP (Pres Subj Pl P1) => zur_ + "zamos" ; - VP (Pres Subj Pl P2) => zur_ + "záis" ; - VP (Pres Subj Pl P3) => zur_ + "zan" ; - VP (Impf Ind Sg P1) => zur_ + "cía" ; --# notpresent - VP (Impf Ind Sg P2) => zur_ + "cías" ; --# notpresent - VP (Impf Ind Sg P3) => zur_ + "cía" ; --# notpresent - VP (Impf Ind Pl P1) => zur_ + "cíamos" ; --# notpresent - VP (Impf Ind Pl P2) => zur_ + "cíais" ; --# notpresent - VP (Impf Ind Pl P3) => zur_ + "cían" ; --# notpresent - VP (Impf Subj Sg P1) => variants {zur_ + "ciera" ; zur_ + "ciese"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {zur_ + "cieras" ; zur_ + "cieses"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {zur_ + "ciera" ; zur_ + "ciese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {zur_ + "ciéramos" ; zur_ + "ciésemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {zur_ + "cierais" ; zur_ + "cieseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {zur_ + "cieran" ; zur_ + "ciesen"} ; --# notpresent - VP (Pret Sg P1) => zur_ + "cí" ; --# notpresent - VP (Pret Sg P2) => zur_ + "ciste" ; --# notpresent - VP (Pret Sg P3) => zur_ + "ció" ; --# notpresent - VP (Pret Pl P1) => zur_ + "cimos" ; --# notpresent - VP (Pret Pl P2) => zur_ + "cisteis" ; --# notpresent - VP (Pret Pl P3) => zur_ + "cieron" ; --# notpresent - VP (Fut Ind Sg P1) => zur_ + "ciré" ; --# notpresent - VP (Fut Ind Sg P2) => zur_ + "cirás" ; --# notpresent - VP (Fut Ind Sg P3) => zur_ + "cirá" ; --# notpresent - VP (Fut Ind Pl P1) => zur_ + "ciremos" ; --# notpresent - VP (Fut Ind Pl P2) => zur_ + "ciréis" ; --# notpresent - VP (Fut Ind Pl P3) => zur_ + "cirán" ; --# notpresent - VP (Fut Subj Sg P1) => zur_ + "ciere" ; --# notpresent - VP (Fut Subj Sg P2) => zur_ + "cieres" ; --# notpresent - VP (Fut Subj Sg P3) => zur_ + "ciere" ; --# notpresent - VP (Fut Subj Pl P1) => zur_ + "ciéremos" ; --# notpresent - VP (Fut Subj Pl P2) => zur_ + "ciereis" ; --# notpresent - VP (Fut Subj Pl P3) => zur_ + "cieren" ; --# notpresent - VP (Cond Sg P1) => zur_ + "ciría" ; --# notpresent - VP (Cond Sg P2) => zur_ + "cirías" ; --# notpresent - VP (Cond Sg P3) => zur_ + "ciría" ; --# notpresent - VP (Cond Pl P1) => zur_ + "ciríamos" ; --# notpresent - VP (Cond Pl P2) => zur_ + "ciríais" ; --# notpresent - VP (Cond Pl P3) => zur_ + "cirían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => zur_ + "ce" ; - VP (Imp Sg P3) => zur_ + "za" ; - VP (Imp Pl P1) => zur_ + "zamos" ; - VP (Imp Pl P2) => zur_ + "cid" ; - VP (Imp Pl P3) => zur_ + "zan" ; - VP (Pass Sg Masc) => zur_ + "cido" ; - VP (Pass Sg Fem) => zur_ + "cida" ; - VP (Pass Pl Masc) => zur_ + "cidos" ; - VP (Pass Pl Fem) => zur_ + "cidas" - } - } ; -oper amar_87 : Str -> Verbum = \amar -> - let am_ = Predef.tk 2 amar in - {s = table { - VI Infn => am_ + "ar" ; - VI Ger => am_ + "ando" ; - VI Part => am_ + "ado" ; - VP (Pres Ind Sg P1) => am_ + "o" ; - VP (Pres Ind Sg P2) => am_ + "as" ; - VP (Pres Ind Sg P3) => am_ + "a" ; - VP (Pres Ind Pl P1) => am_ + "amos" ; - VP (Pres Ind Pl P2) => am_ + "áis" ; - VP (Pres Ind Pl P3) => am_ + "an" ; - VP (Pres Subj Sg P1) => am_ + "e" ; - VP (Pres Subj Sg P2) => am_ + "es" ; - VP (Pres Subj Sg P3) => am_ + "e" ; - VP (Pres Subj Pl P1) => am_ + "emos" ; - VP (Pres Subj Pl P2) => am_ + "éis" ; - VP (Pres Subj Pl P3) => am_ + "en" ; - VP (Impf Ind Sg P1) => am_ + "aba" ; --# notpresent - VP (Impf Ind Sg P2) => am_ + "abas" ; --# notpresent - VP (Impf Ind Sg P3) => am_ + "aba" ; --# notpresent - VP (Impf Ind Pl P1) => am_ + "ábamos" ; --# notpresent - VP (Impf Ind Pl P2) => am_ + "abais" ; --# notpresent - VP (Impf Ind Pl P3) => am_ + "aban" ; --# notpresent - VP (Impf Subj Sg P1) => variants {am_ + "ara" ; am_ + "ase"} ; --# notpresent - VP (Impf Subj Sg P2) => variants {am_ + "aras" ; am_ + "ases"} ; --# notpresent - VP (Impf Subj Sg P3) => variants {am_ + "ara" ; am_ + "ase"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {am_ + "áramos" ; am_ + "ásemos"} ; --# notpresent - VP (Impf Subj Pl P2) => variants {am_ + "arais" ; am_ + "aseis"} ; --# notpresent - VP (Impf Subj Pl P3) => variants {am_ + "aran" ; am_ + "asen"} ; --# notpresent - VP (Pret Sg P1) => am_ + "é" ; --# notpresent - VP (Pret Sg P2) => am_ + "aste" ; --# notpresent - VP (Pret Sg P3) => am_ + "ó" ; --# notpresent - VP (Pret Pl P1) => am_ + "amos" ; --# notpresent - VP (Pret Pl P2) => am_ + "asteis" ; --# notpresent - VP (Pret Pl P3) => am_ + "aron" ; --# notpresent - VP (Fut Ind Sg P1) => am_ + "aré" ; --# notpresent - VP (Fut Ind Sg P2) => am_ + "arás" ; --# notpresent - VP (Fut Ind Sg P3) => am_ + "ará" ; --# notpresent - VP (Fut Ind Pl P1) => am_ + "aremos" ; --# notpresent - VP (Fut Ind Pl P2) => am_ + "aréis" ; --# notpresent - VP (Fut Ind Pl P3) => am_ + "arán" ; --# notpresent - VP (Fut Subj Sg P1) => am_ + "are" ; --# notpresent - VP (Fut Subj Sg P2) => am_ + "ares" ; --# notpresent - VP (Fut Subj Sg P3) => am_ + "are" ; --# notpresent - VP (Fut Subj Pl P1) => am_ + "áremos" ; --# notpresent - VP (Fut Subj Pl P2) => am_ + "areis" ; --# notpresent - VP (Fut Subj Pl P3) => am_ + "aren" ; --# notpresent - VP (Cond Sg P1) => am_ + "aría" ; --# notpresent - VP (Cond Sg P2) => am_ + "arías" ; --# notpresent - VP (Cond Sg P3) => am_ + "aría" ; --# notpresent - VP (Cond Pl P1) => am_ + "aríamos" ; --# notpresent - VP (Cond Pl P2) => am_ + "aríais" ; --# notpresent - VP (Cond Pl P3) => am_ + "arían" ; --# notpresent - VP (Imp Sg P1) => variants {} ; - VP (Imp Sg P2) => am_ + "a" ; - VP (Imp Sg P3) => am_ + "e" ; - VP (Imp Pl P1) => am_ + "emos" ; - VP (Imp Pl P2) => am_ + "ad" ; - VP (Imp Pl P3) => am_ + "en" ; - VP (Pass Sg Masc) => am_ + "ado" ; - VP (Pass Sg Fem) => am_ + "ada" ; - VP (Pass Pl Masc) => am_ + "ados" ; - VP (Pass Pl Fem) => am_ + "adas" - } - } ; -oper llover_89 : Str -> Verbum = \llover -> - let ll_ = Predef.tk 4 llover in - {s = table { - VI Infn => ll_ + "over" ; - VI Ger => ll_ + "oviendo" ; - VI Part => ll_ + "ovido" ; - VP (Pres Ind Sg P1) => variants {} ; - VP (Pres Ind Sg P2) => variants {} ; - VP (Pres Ind Sg P3) => ll_ + "ueve" ; - VP (Pres Ind Pl P1) => variants {} ; - VP (Pres Ind Pl P2) => variants {} ; - VP (Pres Ind Pl P3) => variants {} ; - VP (Pres Subj Sg P1) => variants {} ; - VP (Pres Subj Sg P2) => variants {} ; - VP (Pres Subj Sg P3) => ll_ + "ueva" ; - VP (Pres Subj Pl P1) => variants {} ; - VP (Pres Subj Pl P2) => variants {} ; - VP (Pres Subj Pl P3) => variants {} ; - VP (Impf Ind Sg P1) => variants {} ; --# notpresent - VP (Impf Ind Sg P2) => variants {} ; --# notpresent - VP (Impf Ind Sg P3) => ll_ + "ovía" ; --# notpresent - VP (Impf Ind Pl P1) => variants {} ; --# notpresent - VP (Impf Ind Pl P2) => variants {} ; --# notpresent - VP (Impf Ind Pl P3) => variants {} ; --# notpresent - VP (Impf Subj Sg P1) => variants {} ; --# notpresent - VP (Impf Subj Sg P2) => variants {} ; --# notpresent - VP (Impf Subj Sg P3) => variants {ll_ + "oviera" ; ll_ + "oviese"} ; --# notpresent - VP (Impf Subj Pl P1) => variants {} ; --# notpresent - VP (Impf Subj Pl P2) => variants {} ; --# notpresent - VP (Impf Subj Pl P3) => variants {} ; --# notpresent - VP (Pret Sg P1) => variants {} ; --# notpresent - VP (Pret Sg P2) => variants {} ; --# notpresent - VP (Pret Sg P3) => ll_ + "ovió" ; --# notpresent - VP (Pret Pl P1) => variants {} ; --# notpresent - VP (Pret Pl P2) => variants {} ; --# notpresent - VP (Pret Pl P3) => variants {} ; --# notpresent - VP (Fut Ind Sg P1) => variants {} ; --# notpresent - VP (Fut Ind Sg P2) => variants {} ; --# notpresent - VP (Fut Ind Sg P3) => ll_ + "overá" ; --# notpresent - VP (Fut Ind Pl P1) => variants {} ; --# notpresent - VP (Fut Ind Pl P2) => variants {} ; --# notpresent - VP (Fut Ind Pl P3) => variants {} ; --# notpresent - VP (Fut Subj Sg P1) => variants {} ; --# notpresent - VP (Fut Subj Sg P2) => variants {} ; --# notpresent - VP (Fut Subj Sg P3) => ll_ + "oviere" ; --# notpresent - VP (Fut Subj Pl P1) => variants {} ; --# notpresent - VP (Fut Subj Pl P2) => variants {} ; --# notpresent - VP (Fut Subj Pl P3) => variants {} ; --# notpresent - VP (Cond Sg P1) => variants {} ; --# notpresent - VP (Cond Sg P2) => variants {} ; --# notpresent - VP (Cond Sg P3) => ll_ + "overía" ; --# notpresent - VP (Cond Pl P1) => variants {} ; --# notpresent - VP (Cond Pl P2) => variants {} ; --# notpresent - VP (Cond Pl P3) => variants {} ; --# 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) => variants {} ; - VP (Pass Sg Fem) => variants {} ; - VP (Pass Pl Masc) => variants {} ; - VP (Pass Pl Fem) => variants {} - } - } ; - --- Verbs: conversion from full verbs to present-tense verbs. - - verbBesch : {s : VFB => Str} -> {s : CommonRomance.VF => Str} = \amar -> - {- - -- even imperatives should be modified this way, so let's postpone this - -- AR 21/6/2006 - let - amare = amar.s ! VI Infn ; - a'r = case last (init amare) of { - "i" => "ír" ; - "e" => "ér" ; - _ => "ár" - } ; - ama'r = Predef.tk 2 amare ++ a'r - in - -} - {s = table { --- VInfin True => ama'r ; - VInfin _ => amar.s ! VI Infn ; - VFin (VPres Indic) n p => amar.s ! VP (Pres Ind n p) ; - VFin (VPres Conjunct) n p => amar.s ! VP (Pres Sub n p) ; - VFin (VImperf Indic) n p => amar.s ! VP (Impf Ind n p) ; --# notpresent --# notpresent - VFin (VImperf Conjunct) n p => amar.s ! VP (Impf Sub n p) ; --# notpresent --# notpresent - VFin VPasse n p => amar.s ! VP (Pret n p) ; --# notpresent --# notpresent - VFin VFut n p => amar.s ! VP (Fut Ind n p) ; --# notpresent --# notpresent - VFin VCondit n p => amar.s ! VP (Cond n p) ; --# notpresent --# notpresent - VImper SgP2 => amar.s ! VP (Imp Sg P2) ; - VImper PlP1 => amar.s ! VP (Imp Pl P1) ; - VImper PlP2 => amar.s ! VP (Imp Pl P2) ; - VPart g n => amar.s ! VP (Pass n g) ; - VGer => amar.s ! VI Ger - } - } ; - - --- The full conjunction is a table on $VForm$: - -param - VImpers = - Infn - | Ger - | Part - ; - - Mode = Ind | Sub ; - - VPers = - Pres Mode Number Person - | Impf Mode Number Person --# notpresent --# notpresent - | Pret Number Person --# notpresent --# notpresent - | Fut Mode Number Person --# notpresent --# notpresent - | Cond Number Person --# notpresent --# notpresent - | Imp Number Person - | Pass Number Gender - ; - - VFB = - VI VImpers - | VP VPers - ; - - -} diff --git a/lib/resource-1.0/spanish/LangSpa.gf b/lib/resource-1.0/spanish/LangSpa.gf deleted file mode 100644 index ca4248e27..000000000 --- a/lib/resource-1.0/spanish/LangSpa.gf +++ /dev/null @@ -1,10 +0,0 @@ ---# -path=.:../romance:../abstract:../common:prelude - -concrete LangSpa of Lang = - GrammarSpa, - LexiconSpa - ** { - -flags startcat = Phr ; unlexer = text ; lexer = text ; - -} ; diff --git a/lib/resource-1.0/spanish/MorphoSpa.gf b/lib/resource-1.0/spanish/MorphoSpa.gf deleted file mode 100644 index cb33777c9..000000000 --- a/lib/resource-1.0/spanish/MorphoSpa.gf +++ /dev/null @@ -1,121 +0,0 @@ ---# -path=.:../romance:../common:../../prelude - ---1 A Simple Spanish Resource Morphology --- --- Aarne Ranta 2002 -- 2005 --- --- This resource morphology contains definitions needed in the resource --- syntax. To build a lexicon, it is better to use $ParadigmsSpa$, which --- gives a higher-level access to this module. - -resource MorphoSpa = CommonRomance, ResSpa ** - open PhonoSpa, Prelude, Predef in { - - flags optimize=all ; - - ---2 Nouns --- --- The following macro is useful for creating the forms of number-dependent --- tables, such as common nouns. - -oper - numForms : (_,_ : Str) -> Number => Str = \vino, vini -> - table {Sg => vino ; Pl => vini} ; - --- For example: - - nomVino : Str -> Number => Str = \vino -> - numForms vino (vino + "s") ; - - nomPilar : Str -> Number => Str = \pilar -> - numForms pilar (pilar + "es") ; - - nomTram : Str -> Number => Str = \tram -> - numForms tram tram ; - --- Common nouns are inflected in number and have an inherent gender. - - mkNoun : (Number => Str) -> Gender -> Noun = \mecmecs,gen -> - {s = mecmecs ; g = gen} ; - - mkNounIrreg : Str -> Str -> Gender -> Noun = \mec,mecs -> - mkNoun (numForms mec mecs) ; - - mkNomReg : Str -> Noun = \mec -> - case last mec of { - "o" | "e" => mkNoun (nomVino mec) Masc ; - "a" => mkNoun (nomVino mec) Fem ; - "z" => mkNounIrreg mec (init mec + "ces") Fem ; - _ => mkNoun (nomPilar mec) Masc - } ; - ---2 Adjectives --- --- Adjectives are conveniently seen as gender-dependent nouns. --- Here are some patterns. First one that describes the worst case. - - mkAdj : (_,_,_,_,_ : Str) -> Adj = \solo,sola,soli,sole,solamente -> - {s = table { - AF Masc n => numForms solo soli ! n ; - AF Fem n => numForms sola sole ! n ; - AA => solamente - } - } ; - --- Then the regular and invariant patterns. - - adjSolo : Str -> Adj = \solo -> - let - sol = Predef.tk 1 solo - in - mkAdj solo (sol + "a") (sol + "os") (sol + "as") (sol + "amente") ; - - adjUtil : Str -> Str -> Adj = \util,utiles -> - mkAdj util util utiles utiles (util + "mente") ; - - adjBlu : Str -> Adj = \blu -> - mkAdj blu blu blu blu blu ; --- - - mkAdjReg : Str -> Adj = \solo -> - case last solo of { - "o" => adjSolo solo ; - "e" => adjUtil solo (solo + "s") ; - _ => adjUtil solo (solo + "es") ----- _ => adjBlu solo - } ; - ---2 Personal pronouns --- --- All the eight personal pronouns can be built by the following macro. --- The use of "ne" as atonic genitive is debatable. --- We follow the rule that the atonic nominative is empty. - - mkPronoun : (_,_,_,_,_,_,_,_ : Str) -> - Gender -> Number -> Person -> Pronoun = - \il,le,lui,Lui,son,sa,ses,see,g,n,p -> - {s = table { - Ton Nom => il ; - Ton x => prepCase x ++ Lui ; - Aton Nom => strOpt il ; ---- [] ; - Aton Acc => le ; - Aton (CPrep P_a) => lui ; - Aton q => prepCase q ++ Lui ; ---- GF bug with c or p! - Poss {n = Sg ; g = Masc} => son ; - Poss {n = Sg ; g = Fem} => sa ; - Poss {n = Pl ; g = Masc} => ses ; - Poss {n = Pl ; g = Fem} => see - } ; - a = {g = g ; n = n ; p = p} ; - hasClit = True - } ; - - ---2 Determiners --- --- Determiners, traditionally called indefinite pronouns, are inflected --- in gender and number, like adjectives. - - pronForms : Adj -> Gender -> Number -> Str = \tale,g,n -> tale.s ! AF g n ; - -} diff --git a/lib/resource-1.0/spanish/StructuralSpa.gf b/lib/resource-1.0/spanish/StructuralSpa.gf deleted file mode 100644 index cfa4f0141..000000000 --- a/lib/resource-1.0/spanish/StructuralSpa.gf +++ /dev/null @@ -1,159 +0,0 @@ -concrete StructuralSpa of Structural = CatSpa ** - open PhonoSpa, MorphoSpa, ParadigmsSpa, BeschSpa, Prelude in { - - flags optimize=all ; - -lin - - above_Prep = mkPrep "sobre" ; - after_Prep = {s = ["despues"] ; c = MorphoSpa.genitive ; isDir = False} ; - all_Predet = { - s = \\a,c => prepCase c ++ aagrForms "todo" "toda" "todos" "todas" ! a ; - c = Nom - } ; - almost_AdA, almost_AdN = ss "casi" ; - always_AdV = ss "siempre" ; - although_Subj = ss "benché" ** {m = Conjunct} ; - and_Conj = etConj ; - because_Subj = ss "porque" ** {m = Indic} ; - before_Prep = {s = "antes" ; c = MorphoSpa.genitive ; isDir = False} ; - behind_Prep = {s = "detrás" ; c = MorphoSpa.genitive ; isDir = False} ; - between_Prep = mkPrep "entre" ; - both7and_DConj = {s1,s2 = etConj.s ; n = Pl} ; - but_PConj = ss "pero" ; - by8agent_Prep = mkPrep "por" ; - by8means_Prep = mkPrep "por" ; - can8know_VV = mkVV (verboV (saber_71 "saber")) ; - can_VV = mkVV (verboV (poder_58 "poder")) ; - during_Prep = mkPrep "durante" ; ---- - either7or_DConj = {s1,s2 = "o" ; n = Sg} ; - everybody_NP = mkNP ["todos"] Masc Pl ; - every_Det = {s = \\_,_ => "cada" ; n = Sg} ; - everything_NP = pn2np (mkPN ["todo"] Masc) ; - everywhere_Adv = ss ["en todas partes"] ; - few_Det = {s = \\g,c => prepCase c ++ genForms "pocos" "pocas" ! g ; n = Pl} ; - first_Ord = {s = \\ag => (regA "primero").s ! Posit ! AF ag.g ag.n} ; - from_Prep = complGen ; --- - he_Pron = - mkPronoun - "el" "lo" "le" "él" - "su" "su" "sus" "sus" - Masc Sg P3 ; - here_Adv = mkAdv "aquí" ; -- acá - here7to_Adv = mkAdv ["para acá"] ; - here7from_Adv = mkAdv ["de acá"] ; - how_IAdv = ss "como" ; - how8many_IDet = - {s = \\g,c => prepCase c ++ genForms "cuantos" "cuantas" ! g ; n = Pl} ; - if_Subj = ss "si" ** {m = Indic} ; - in8front_Prep = {s = "delante" ; c = MorphoSpa.genitive ; isDir = False} ; - i_Pron = - mkPronoun - "yo" "me" "me" "mí" - "mi" "mi" "mis" "mis" - Masc Sg P1 ; - in_Prep = mkPrep "en" ; - it_Pron = - mkPronoun - "el" "lo" "le" "él" - "su" "su" "sus" "sus" - Masc Sg P3 ; - less_CAdv = ss "meno" ; ---- - many_Det = {s = \\g,c => prepCase c ++ genForms "muchos" "muchas" ! g ; n = Pl} ; - more_CAdv = ss "mas" ; - most_Predet = {s = \\_,c => prepCase c ++ ["la mayor parte"] ; c = CPrep P_de} ; - much_Det = {s = \\g,c => prepCase c ++ genForms "mucho" "mucha" ! g ; n = Sg} ; - must_VV = mkVV (verboV (deber_6 "deber")) ; - no_Phr = ss "no" ; - on_Prep = mkPrep "sobre" ; - one_Quant = {s = \\g,c => prepCase c ++ genForms "uno" "una" ! g} ; - only_Predet = {s = \\_,c => prepCase c ++ "solamente" ; c = Nom} ; - or_Conj = {s = "o" ; n = Sg} ; - otherwise_PConj = ss "otramente" ; - part_Prep = complGen ; - please_Voc = ss ["por favor"] ; - possess_Prep = complGen ; - quite_Adv = ss "bastante" ; - she_Pron = - mkPronoun - "ella" "la" "le" "ella" - "su" "su" "sus" "sus" - Fem Sg P3 ; - so_AdA = ss "tanto" ; - somebody_NP = pn2np (mkPN ["algún"] Masc) ; - somePl_Det = {s = \\g,c => prepCase c ++ genForms "algunos" "algunas" ! g ; n = Pl} ; - someSg_Det = {s = \\g,c => prepCase c ++ "algun" ; n = Sg} ; - something_NP = pn2np (mkPN ["algo"] Masc) ; - somewhere_Adv = ss ["en ninguna parte"] ; - that_Quant = { - s = \\_ => table { - Sg => \\g,c => prepCase c ++ genForms "ese" "esa" ! g ; - Pl => \\g,c => prepCase c ++ genForms "esos" "esas" ! g - } - } ; - that_NP = mkNP ["eso"] Masc Sg ; - there_Adv = mkAdv "allí" ; -- allá - there7to_Adv = mkAdv ["para allá"] ; - there7from_Adv = mkAdv ["de allá"] ; - therefore_PConj = ss ["por eso"] ; - these_NP = mkNP ["estos"] Masc Pl ; - they_Pron = mkPronoun - "ellos" "los" "les" "ellos" - "su" "su" "sus" "sus" - Masc Pl P3 ; - this_Quant = { - s = \\_ => table { - Sg => \\g,c => prepCase c ++ genForms "este" "esta" ! g ; - Pl => \\g,c => prepCase c ++ genForms "estos" "estas" ! g - } - } ; - this_NP = pn2np (mkPN ["esto"] Masc) ; - those_NP = mkNP ["esos"] Masc Pl ; - through_Prep = mkPrep "por" ; - too_AdA = ss "demasiado" ; - to_Prep = complDat ; - under_Prep = mkPrep "bajo" ; - very_AdA = ss "muy" ; - want_VV = mkVV (verboV (querer_64 "querer")) ; - we_Pron = - mkPronoun - "nosotros" "nos" "nos" "nosotros" - "nuestro" "nuestra" "nuestros" "nuestras" - Masc Pl P1 ; - whatSg_IP = {s = \\c => prepCase c ++ ["qué"] ; a = aagr Masc Sg} ; - whatPl_IP = {s = \\c => prepCase c ++ ["qué"] ; a = aagr Masc Pl} ; --- - when_IAdv = ss "cuando" ; - when_Subj = ss "cuando" ** {m = Indic} ; - where_IAdv = ss "donde" ; - whichSg_IDet = {s = \\g,c => prepCase c ++ "cuale" ; n = Sg} ; - whichPl_IDet = {s = \\g,c => prepCase c ++ "cuales" ; n = Pl} ; - whoPl_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Pl} ; - whoSg_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Sg} ; - why_IAdv = ss "porqué" ; - without_Prep = mkPrep "sin" ; - with_Prep = mkPrep "con" ; - yes_Phr = ss "sí" ; - youSg_Pron = mkPronoun - "tu" "te" "te" "tí" - "tu" "tu" "tus" "tus" - Masc Sg P2 ; - youPl_Pron = - mkPronoun - "vosotros" "vos" "vos" "vosotros" - "vuestro" "vuestra" "vuestros" "vuestras" - Masc Pl P2 ; - youPol_Pron = - mkPronoun - "usted" "la" "le" "usted" - "su" "su" "sus" "sus" - Masc Pl P2 ; - -oper - etConj : {s : Str ; n : Number} = {s = pre { - "y" ; - "y" / strs {"ya" ; "ye" ; "yo" ; "yu"} ; - "e" / strs {"i" ; "hi" ; "y"} - }} ** {n = Pl} ; - -} - diff --git a/lib/resource-1.0/swedish/LangSwe.gf b/lib/resource-1.0/swedish/LangSwe.gf deleted file mode 100644 index a321acd1f..000000000 --- a/lib/resource-1.0/swedish/LangSwe.gf +++ /dev/null @@ -1,10 +0,0 @@ ---# -path=.:../scandinavian:../abstract:../common:prelude - -concrete LangSwe of Lang = - GrammarSwe, - LexiconSwe - ** { - -flags startcat = Phr ; unlexer = text ; lexer = text ; - -} ; diff --git a/lib/resource-1.0/swedish/MorphoSwe.gf b/lib/resource-1.0/swedish/MorphoSwe.gf deleted file mode 100644 index 48180b781..000000000 --- a/lib/resource-1.0/swedish/MorphoSwe.gf +++ /dev/null @@ -1,73 +0,0 @@ ---# -path=.:../scandinavian:../common:../../prelude - ---1 A Simple Swedish Resource Morphology --- --- Aarne Ranta 2002 -- 2005 --- --- This resource morphology contains definitions needed in the resource --- syntax. To build a lexicon, it is better to use $ParadigmsSwe$, which --- gives a higher-level access to this module. - -resource MorphoSwe = CommonScand, ResSwe ** open Prelude, (Predef=Predef) in { - - --- Verbs - --- Heuristic to infer all participle forms from one. - -oper - ptPretAll : Str -> Str * Str = \funnen -> - case funnen of { - ko +"mmen" => ; - vun +"nen" => ; - bjud + "en" => ; - se + "dd" => ; - tal + "ad" => ; - kaen + "d" => ; - lekt => - } ; - - ptPretForms : Str -> AFormPos => Case => Str = \funnen -> \\a,c => - let - funfun = ptPretAll funnen - in - mkCase c (case a of { - (Strong (SgUtr)) => funnen ; - (Strong (SgNeutr)) => funfun.p1 ; - _ => funfun.p2 - } - ) ; - --- For $Numeral$. - -param DForm = ental | ton | tiotal ; - -oper - LinDigit = {s : DForm => CardOrd => Str} ; - - cardOrd : Str -> Str -> CardOrd => Str = \tre,tredje -> - table { - NCard _ => tre ; - NOrd a => tredje ---- a - } ; - - cardReg : Str -> CardOrd => Str = \tio -> - cardOrd tio (tio + "nde") ; - - mkTal : (x1,_,_,_,x5 : Str) -> LinDigit = - \två, tolv, tjugo, andra, tolfte -> - {s = table { - ental => cardOrd två andra ; - ton => cardOrd tolv tolfte ; - tiotal => cardReg tjugo - } - } ; - - numPl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \n -> - {s = n ; n = Pl} ; - - invNum : CardOrd = NCard Neutr ; - - -} ; - diff --git a/lib/resource-1.0/swedish/ParadigmsSwe.gf b/lib/resource-1.0/swedish/ParadigmsSwe.gf deleted file mode 100644 index 6d692754c..000000000 --- a/lib/resource-1.0/swedish/ParadigmsSwe.gf +++ /dev/null @@ -1,521 +0,0 @@ ---# -path=.:../scandinavian:../common:../abstract:../../prelude - ---1 Swedish Lexical Paradigms --- --- Aarne Ranta 2001 - 2006 --- --- This is an API for the user of the resource grammar --- for adding lexical items. It gives functions for forming --- expressions of open categories: nouns, adjectives, verbs. --- --- Closed categories (determiners, pronouns, conjunctions) are --- accessed through the resource syntax API, $Structural.gf$. --- --- The main difference with $MorphoSwe.gf$ is that the types --- referred to are compiled resource grammar types. We have moreover --- had the design principle of always having existing forms, rather --- than stems, as string arguments of the paradigms. --- --- The structure of functions for each word class $C$ is the following: --- first we give a handful of patterns that aim to cover all --- regular cases. Then we give a worst-case function $mkC$, which serves as an --- escape to construct the most irregular words of type $C$. --- However, this function should only seldom be needed: we have a --- separate module [``IrregSwe`` ../../swedish/IrregSwe], --- which covers many irregular verbs. - - -resource ParadigmsSwe = - open - (Predef=Predef), - Prelude, - CommonScand, - ResSwe, - MorphoSwe, - CatSwe in { - ---2 Parameters --- --- To abstract over gender names, we define the following identifiers. - -oper - Gender : Type ; - - utrum : Gender ; - neutrum : Gender ; - --- To abstract over number names, we define the following. - - Number : Type ; - - singular : Number ; - plural : Number ; - --- To abstract over case names, we define the following. - - Case : Type ; - - nominative : Case ; - genitive : Case ; - --- Prepositions used in many-argument functions are just strings. - - mkPrep : Str -> Prep ; - noPrep : Prep ; -- empty string - ---2 Nouns - --- Worst case: give all four forms. The gender is computed from the --- last letter of the second form (if "n", then $utrum$, otherwise $neutrum$). - - mkN : (apa,apan,apor,aporna : Str) -> N ; - --- The regular function takes the singular indefinite form and computes the other --- forms and the gender by a heuristic. The heuristic is currently --- to treat all words ending with "a" like "flicka", with "e" like "rike", --- and otherwise like "bil". --- If in doubt, use the $cc$ command to test! - - regN : Str -> N ; - --- Adding the gender manually greatly improves the correction of $regN$. - - regGenN : Str -> Gender -> N ; - --- In practice the worst case is often just: give singular and plural indefinite. - - mk2N : (nyckel,nycklar : Str) -> N ; - --- This heuristic takes just the plural definite form and infers the others. --- It does not work if there are changes in the stem. - - mk1N : (bilarna : Str) -> N ; - - ---3 Compound nouns --- --- All the functions above work quite as well to form compound nouns, --- such as "fotboll". - - ---3 Relational nouns --- --- Relational nouns ("dotter till x") need a preposition. - - mkN2 : N -> Prep -> N2 ; - --- The most common preposition is "av", and the following is a --- shortcut for regular, $nonhuman$ relational nouns with "av". - - regN2 : Str -> Gender -> N2 ; - --- Use the function $mkPreposition$ or see the section on prepositions below to --- form other prepositions. --- --- Three-place relational nouns ("förbindelse från x till y") --- need two prepositions. - - mkN3 : N -> Prep -> Prep -> N3 ; - - ---3 Relational common noun phrases --- --- In some cases, you may want to make a complex $CN$ into a --- relational noun (e.g. "den före detta maken till"). However, $N2$ and --- $N3$ are purely lexical categories. But you can use the $AdvCN$ --- and $PrepNP$ constructions to build phrases like this. - --- ---3 Proper names and noun phrases --- --- Proper names, with a regular genitive, are formed as follows - - regGenPN : Str -> Gender -> PN ; - regPN : Str -> PN ; -- utrum - --- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". - - nounPN : N -> PN ; - --- To form a noun phrase that can also be plural and have an irregular --- genitive, you can use the worst-case function. - - mkNP : Str -> Str -> Number -> Gender -> NP ; - ---2 Adjectives - --- Adjectives may need as many as seven forms. - - mkA : (liten, litet, lilla, sma, mindre, minst, minsta : Str) -> A ; - --- The regular pattern works for many adjectives, e.g. those ending --- with "ig". - - regA : Str -> A ; - --- Just the comparison forms can be irregular. - - irregA : (tung,tyngre,tyngst : Str) -> A ; - --- Sometimes just the positive forms are irregular. - - mk3A : (galen,galet,galna : Str) -> A ; - mk2A : (bred,brett : Str) -> A ; - --- Comparison forms may be compound ("mera svensk" - "mest svensk"). - - compoundA : A -> A ; - - ---3 Two-place adjectives --- --- Two-place adjectives need a preposition for their second argument. - - mkA2 : A -> Prep -> A2 ; - - ---2 Adverbs - --- Adverbs are not inflected. Most lexical ones have position --- after the verb. Some can be preverbal in subordinate position --- (e.g. "alltid"). - - mkAdv : Str -> Adv ; -- här - mkAdV : Str -> AdV ; -- alltid - --- Adverbs modifying adjectives and sentences can also be formed. - - mkAdA : Str -> AdA ; - ---2 Verbs --- --- The worst case needs five forms. - - mkV : (supa,super,sup,söp,supit,supen : Str) -> V ; - --- The 'regular verb' function is inspired by Lexin. It uses the --- present tense indicative form. The value is the first conjugation if the --- argument ends with "ar" ("tala" - "talar" - "talade" - "talat"), --- the second with "er" ("leka" - "leker" - "lekte" - "lekt", with the --- variations like "gräva", "vända", "tyda", "hyra"), and --- the third in other cases ("bo" - "bor" - "bodde" - "bott"). - - regV : (talar : Str) -> V ; - --- The almost regular verb function needs the infinitive and the preteritum. --- It is not really more powerful than the new implementation of --- $regV$ based on the indicative form. - - mk2V : (leka,lekte : Str) -> V ; - --- There is an extensive list of irregular verbs in the module $IrregSwe$. --- In practice, it is enough to give three forms, as in school books. - - irregV : (dricka, drack, druckit : Str) -> V ; - - ---3 Verbs with a particle. --- --- The particle, such as in "passa på", is given as a string. - - partV : V -> Str -> V ; - ---3 Deponent verbs. --- --- Some words are used in passive forms only, e.g. "hoppas", some as --- reflexive e.g. "ångra sig". - - depV : V -> V ; - reflV : V -> V ; - ---3 Two-place verbs --- --- Two-place verbs need a preposition, except the special case with direct object. --- (transitive verbs). Notice that a particle comes from the $V$. - - mkV2 : V -> Prep -> V2 ; - - dirV2 : V -> V2 ; - ---3 Three-place verbs --- --- Three-place (ditransitive) verbs need two prepositions, of which --- the first one or both can be absent. - - mkV3 : V -> Prep -> Prep -> V3 ; -- tala, med, om - dirV3 : V -> Prep -> V3 ; -- ge, (acc),till - dirdirV3 : V -> V3 ; -- ge, (dat), (acc) - ---3 Other complement patterns --- --- Verbs and adjectives can take complements such as sentences, --- questions, verb phrases, and adjectives. - - mkV0 : V -> V0 ; - mkVS : V -> VS ; - mkV2S : V -> Prep -> V2S ; - mkVV : V -> VV ; - mkV2V : V -> Prep -> Prep -> V2V ; - mkVA : V -> VA ; - mkV2A : V -> Prep -> V2A ; - mkVQ : V -> VQ ; - mkV2Q : V -> Prep -> V2Q ; - - mkAS : A -> AS ; - mkA2S : A -> Prep -> A2S ; - mkAV : A -> AV ; - mkA2V : A -> Prep -> A2V ; - --- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated --- just as synonyms of $V2$, and the second argument is given --- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. --- $V0$ is just $V$. - - V0, V2S, V2V, V2A, V2Q : Type ; - AS, A2S, AV, A2V : Type ; - ---. ---2 Definitions of the paradigms --- --- The definitions should not bother the user of the API. So they are --- hidden from the document. - - Gender = ResSwe.Gender ; - Number = CommonScand.Number ; - Case = CommonScand.Case ; - utrum = Utr ; - neutrum = Neutr ; - singular = Sg ; - plural = Pl ; - nominative = Nom ; - genitive = Gen ; - - mkPrep p = {s = p ; lock_Prep = <>} ; - noPrep = mkPrep [] ; - - mkN = \apa,apan,apor,aporna -> { - s = nounForms apa apan apor aporna ; - g = case last apan of { - "n" => Utr ; - _ => Neutr - } - } ** {lock_N = <>} ; - - regN bil = regGenN bil g where { - g = case of { - _ + "e" => Neutr ; - _ => Utr - } - } ; - - regGenN bil g = case g of { - Utr => case last bil of { - "a" => decl1Noun bil ; - _ => decl2Noun bil - } ; - Neutr => case last bil of { - "e" => decl4Noun bil ; - _ => decl5Noun bil - } - } ** {lock_N = <>} ; - - mk1N bilarna = case bilarna of { - ap + "orna" => decl1Noun (ap + "a") ; - bil + "arna" => decl2Noun bil ; - rad + "erna" => decl3Noun rad ; - rik + "ena" => decl4Noun (rik + "e") ; - husen => decl5Noun (Predef.tk 2 husen) - } ; - - mk2N bil bilar = - ifTok N bil bilar (decl5Noun bil) ( - case Predef.dp 2 bilar of { - "or" => case bil of { - _ + "a" => decl1Noun bil ; -- apa, apor - _ + "o" => mkN bil (bil + "n") bilar (bilar + "na") ; -- ko,kor - _ => mkN bil (bil + "en") bilar (bilar + "na") -- ros,rosor - } ; - "ar" => decl2Noun bil ; - "er" => decl3gNoun bil bilar ; -- fot, fötter - "en" => decl4Noun bil ; -- rike, riken - _ => mkN bil (bil + "et") bilar (bilar + "n") -- centrum, centra - }) ; - --- School declensions. - - decl1Noun : Str -> N = \apa -> - let ap = init apa in - mkN apa (apa + "n") (ap + "or") (ap + "orna") ; - - decl2Noun : Str -> N = \bil -> - let - bb : Str * Str = case bil of { - br + ("o" | "u" | "ö" | "å") => ; - pojk + "e" => ; - hi + "mme" + l@("l" | "r") => ; - nyck + "e" + l@("l" | "r") => ; - sock + "e" + "n" => ; - _ => - } ; - in mkN bil bb.p2 bb.p1 (bb.p1 + "na") ; - - decl3Noun : Str -> N = \sak -> - case last sak of { - "e" => mkN sak (sak + "n") (sak +"r") (sak + "rna") ; - "y" | "å" | "é" | "y" => mkN sak (sak + "n") (sak +"er") (sak + "erna") ; - _ => mkN sak (sak + "en") (sak + "er") (sak + "erna") - } ; - decl3gNoun : Str -> Str -> N = \sak,saker -> - case last sak of { - "e" => mkN sak (sak + "n") saker (saker + "na") ; - "y" | "å" | "é" | "y" => mkN sak (sak + "n") saker (saker + "na") ; - _ => mkN sak (sak + "en") saker (saker + "na") - } ; - - decl4Noun : Str -> N = \rike -> - mkN rike (rike + "t") (rike + "n") (rike + "na") ; - - decl5Noun : Str -> N = \lik -> - case Predef.dp 3 lik of { - "are" => mkN lik (lik + "n") lik (init lik + "na") ; -- kikare - _ => mkN lik (lik + "et") lik (lik + "en") - } ; - - - mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p.s} ; - regN2 n g = mkN2 (regGenN n g) (mkPrep "av") ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ; - - regPN n = regGenPN n utrum ; - regGenPN n g = {s = \\c => mkCase c n ; g = g} ** {lock_PN = <>} ; - nounPN n = {s = n.s ! singular ! Indef ; g = n.g ; lock_PN = <>} ; - mkNP x y n g = - {s = table {NPPoss _ => y ; _ => x} ; a = agrP3 g n ; p = P3 ; - lock_NP = <>} ; - - mkA a b c d e f g = mkAdjective a b c d e f g ** {isComp = False ; lock_A = <>} ; - regA fin = - let fint : Str = case fin of { - ru + "nd" => ru + "nt" ; - se + "dd" => se + "tt" ; - pla + "tt" => pla + "tt" ; - gla + "d" => gla + "tt" ; - _ => fin + "t" - } - in - mk3A fin fint (fin + "a") ; - irregA ung yngre yngst = - mkA ung (ung + "t") (ung + "a") (ung + "a") yngre yngst (yngst+"a") ; - - mk3A ljummen ljummet ljumma = - mkA - ljummen ljummet ljumma ljumma - (ljumma + "re") (ljumma + "st") (ljumma + "ste") ; - mk2A vid vitt = mk3A vid vitt (vid + "a") ; - - compoundA adj = {s = adj.s ; isComp = True ; lock_A = <>} ; - - mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ; - - mkAdv x = ss x ** {lock_Adv = <>} ; - mkAdV x = ss x ** {lock_AdV = <>} ; - mkAdA x = ss x ** {lock_AdA = <>} ; - - mkV = \finna,finner,finn,fann,funnit,funnen -> - let - funn = ptPretForms funnen ; - funnet = funn ! Strong SgNeutr ! Nom ; - funna = funn ! Strong Plg ! Nom - in - mkVerb finna finner finn fann funnit funnen funnet funna ** - {part = [] ; vtype=VAct ; lock_V = <>} ; - - regV leker = case leker of { - lek + "a" => conj1 leker ; --- bw compat - lek + "ar" => conj1 (lek + "a") ; - lek + "er" => conj2 (lek + "a") ; - bo + "r" => conj3 bo - } ; - - mk2V leka lekte = case of { - <_, _ + "ade"> => conj1 leka ; - <_ + "a", _> => conj2 leka ; - _ => conj3 leka - } ; - --- school conjugations - - conj1 : Str -> V = \tala -> - mkV tala (tala + "r") tala (tala +"de") (tala +"t") (tala +"d") ; - - conj2 : Str -> V = \leka -> - let lek = init leka in - case last lek of { - "l" | "m" | "n" | "v" | "g" => - let gom = case of { - _ + "mm" => init lek ; - _ => lek - } - in mkV leka (lek + "er") gom (gom +"de") (gom +"t") (gom +"d") ; - "r" => - mkV leka lek lek (lek +"de") (lek +"t") (lek +"d") ; - _ => case leka of { - _ + "nd" => - mkV leka (lek + "er") lek (lek +"e") (init lek +"t") lek ; - _ => - mkV leka (lek + "er") lek (lek +"te") (lek +"t") (lek +"t") - } - } ; - - conj3 : Str -> V = \bo -> - mkV bo (bo + "r") bo (bo +"dde") (bo +"tt") (bo +"dd") ; - - irregV = \sälja, sålde, sålt -> - let - säljer = case last sälja of { - "a" => conj2 sälja ; - _ => conj3 sälja - } ; - såld = case Predef.dp 2 sålt of { - "it" => Predef.tk 2 sålt + "en" ; - "tt" => Predef.tk 2 sålt + "dd" ; - _ => init sålt + "d" - } - in - mkV sälja (säljer.s ! VF (VPres Act)) (säljer.s ! (VF (VImper Act))) sålde sålt såld - ** {s1 = [] ; lock_V = <>} ; - - partV v p = {s = v.s ; part = p ; vtype = v.vtype ; lock_V = <>} ; - depV v = {s = v.s ; part = v.part ; vtype = VPass ; lock_V = <>} ; - reflV v = {s = v.s ; part = v.part ; vtype = VRefl ; lock_V = <>} ; - - mkV2 v p = v ** {c2 = p.s ; lock_V2 = <>} ; - dirV2 v = mkV2 v noPrep ; - - mkV3 v p q = v ** {c2 = p.s ; c3 = q.s ; lock_V3 = <>} ; - dirV3 v p = mkV3 v noPrep p ; - dirdirV3 v = dirV3 v noPrep ; - - mkV0 v = v ** {lock_V0 = <>} ; - mkVS v = v ** {lock_VS = <>} ; - mkVV v = v ** {c2 = "att" ; lock_VV = <>} ; - mkVQ v = v ** {lock_VQ = <>} ; - - mkVA v = v ** {lock_VA = <>} ; - mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; - - V0 : Type = V ; - V2S, V2V, V2Q, V2A : Type = V2 ; - AS, A2S, AV : Type = A ; - A2V : Type = A2 ; - - mkV2S v p = mkV2 v p ** {lock_V2 = <>} ; - mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2 = <>} ; - mkV2Q v p = mkV2 v p ** {lock_V2 = <>} ; - - mkAS v = v ** {lock_A = <>} ; - mkA2S v p = mkA2 v p ** {lock_A = <>} ; - mkAV v = v ** {lock_A = <>} ; - mkA2V v p = mkA2 v p ** {lock_A = <>} ; - -} ; diff --git a/lib/resource-1.0/swedish/StructuralSwe.gf b/lib/resource-1.0/swedish/StructuralSwe.gf deleted file mode 100644 index f7b03b131..000000000 --- a/lib/resource-1.0/swedish/StructuralSwe.gf +++ /dev/null @@ -1,124 +0,0 @@ -concrete StructuralSwe of Structural = CatSwe ** - open MorphoSwe, ParadigmsSwe, Prelude in { - - flags optimize=all ; - - lin - above_Prep = ss "ovanför" ; - after_Prep = ss "efter" ; - by8agent_Prep = ss "av" ; - all_Predet = {s = gennumForms "all" "allt" "alla"} ; - almost_AdA, almost_AdN = ss "nästan" ; - although_Subj = ss "fast" ; - always_AdV = ss "alltid" ; - and_Conj = ss "och" ** {n = Pl} ; - because_Subj = ss "eftersom" ; - before_Prep = ss "före" ; - behind_Prep = ss "bakom" ; - between_Prep = ss "mellan" ; - both7and_DConj = sd2 "både" "och" ** {n = Pl} ; - but_PConj = ss "men" ; - by8means_Prep = ss "med" ; - can8know_VV, can_VV = - mkV "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" ** - {c2 = [] ; lock_VV = <>} ; - during_Prep = ss "under" ; - either7or_DConj = sd2 "antingen" "eller" ** {n = Sg} ; - everybody_NP = regNP "alla" "allas" Plg ; - every_Det = {s = \\_,_ => "varje" ; n = Sg ; det = DDef Indef} ; - everything_NP = regNP "allting" "alltings" SgNeutr ; - everywhere_Adv = ss "överallt" ; - few_Det = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ; - first_Ord = {s = "första" ; isDet = True} ; - from_Prep = ss "från" ; - he_Pron = MorphoSwe.mkNP "han" "honom" "hans" "hans" "hans" SgUtr P3 ; - here_Adv = ss "här" ; - here7to_Adv = ss "hit" ; - here7from_Adv = ss "härifrån" ; - how_IAdv = ss "hur" ; - how8many_IDet = {s = \\_ => ["hur många"] ; n = Pl ; det = DDef Indef} ; - if_Subj = ss "om" ; - in8front_Prep = ss "framför" ; - i_Pron = MorphoSwe.mkNP "jag" "mig" "min" "mitt" "mina" SgUtr P1 ; - in_Prep = ss "i" ; - it_Pron = MorphoSwe.regNP "det" "dess" SgNeutr ; - less_CAdv = ss "mindre" ; - many_Det = {s = \\_,_ => "många" ; n = Pl ; det = DDef Indef} ; - more_CAdv = ss "mer" ; - most_Predet = {s = gennumForms ["den mesta"] ["det mesta"] ["de flesta"]} ; - much_Det = {s = \\_,_ => "mycket" ; n = Pl ; det = DDef Indef} ; - must_VV = - mkV "få" "måste" "få" "fick" "måst" "måst" ** {c2 = [] ; lock_VV = <>} ; - no_Phr = ss ["nej"] ; - on_Prep = ss "på" ; - one_Quant = {s = \\_ => genderForms ["en"] ["ett"] ; n = Sg ; det = DIndef} ; - only_Predet = {s = \\_ => "bara"} ; - or_Conj = ss "eller" ** {n = Sg} ; - otherwise_PConj = ss "annars" ; - part_Prep = ss "av" ; - please_Voc = ss "tack" ; --- - possess_Prep = ss "av" ; - quite_Adv = ss "ganska" ; - she_Pron = MorphoSwe.mkNP "hon" "henne" "hennes" "hennes" "hennes" SgUtr P3 ; - so_AdA = ss "så" ; - someSg_Det = {s = \\_ => genderForms "någon" "något" ; n = Sg ; det = DIndef} ; - somePl_Det = {s = \\_,_ => "några" ; n = Pl ; det = DIndef} ; - somebody_NP = regNP "någon" "någons" SgUtr ; - something_NP = regNP "något" "någots" SgNeutr ; - somewhere_Adv = ss "någonstans" ; - that_Quant = - {s = table { - Sg => \\_ => genderForms ["den där"] ["det där"] ; - Pl => \\_,_ => ["de där"] - } ; - det = DDef Def - } ; - that_NP = regNP ["det där"] ["det därs"] SgNeutr ; - there_Adv = ss "där" ; - there7to_Adv = ss "dit" ; - there7from_Adv = ss "därifrån" ; - therefore_PConj = ss "därför" ; - these_NP = regNP ["de här"] ["det härs"] Plg ; - they_Pron = MorphoSwe.mkNP "de" "dem" "deras" "deras" "deras" Plg P1 ; - this_Quant = - {s = table { - Sg => \\_ => genderForms ["den här"] ["det här"] ; - Pl => \\_,_ => ["de här"] - } ; - det = DDef Def - } ; - this_NP = regNP ["det här"] ["det härs"] SgNeutr ; - those_NP = regNP ["de där"] ["det därs"] Plg ; - through_Prep = ss "genom" ; - too_AdA = ss "för" ; - to_Prep = ss "till" ; - under_Prep = ss "under" ; - very_AdA = ss "mycket" ; - want_VV = - mkV "vilja" "vill" "vilj" "ville" "velat" "velad" ** - {c2 = [] ; lock_VV = <>} ; - we_Pron = MorphoSwe.mkNP "vi" "oss" "vår" "vårt" "våra" Plg P1 ; - whatSg_IP = {s = \\_ => "vad" ; gn = SgUtr} ; ---- infl - whatPl_IP = {s = \\_ => "vad" ; gn = Plg} ; ---- infl - when_IAdv = ss "när" ; - when_Subj = ss "när" ; - where_IAdv = ss "var" ; - whichPl_IDet = {s = \\_ => "vilka" ; n = Pl ; det = DIndef} ; - whichSg_IDet = {s = genderForms "vilken" "vilket" ; n = Sg ; det = DIndef} ; - whoSg_IP = {s = vem.s ; gn = SgUtr} ; - whoPl_IP = {s = \\_ => "vilka" ; gn = Plg} ; - why_IAdv = ss "varför" ; - without_Prep = ss "utan" ; - with_Prep = ss "med" ; - yes_Phr = ss ["ja"] ; - youSg_Pron = MorphoSwe.mkNP "du" "dig" "din" "ditt" "dina" SgUtr P2 ; - youPl_Pron = MorphoSwe.mkNP "ni" "er" "er" "ert" "era" Plg P2 ; - youPol_Pron = MorphoSwe.mkNP "ni" "er" "er" "ert" "era" SgUtr P2 ; --- wrong in refl - --- Auxiliaries that are used repeatedly. - - oper - vem = MorphoSwe.mkNP "vem" "vem" "vems" "vems" "vems" SgUtr P3 ; - -} - diff --git a/lib/resource/Makefile b/lib/resource/Makefile index 01bce8269..aa050f5ce 100644 --- a/lib/resource/Makefile +++ b/lib/resource/Makefile @@ -1,5 +1,89 @@ -all: - gf +RTS -K10M -M1012M p -cat=Phr -fcfg "I haven't seen her" | l -multi -VERSION NOTICE: this resource grammar library is at the moment of -writing the most complete one. It supersedes and includes -v 0.6 (../resource-0.6) in all other respects except that -it is not implemented for German. +To link to the library, use the precompiled packages -HOWEVER, this library is no longer developed, but the -development has been moved to v 1.0 (../resource-1.0). -V 1.0 will replace v 0.9 during Winter and Spring 2006. +- ``lib/alltenses`` the complete ground-API library with all forms +- ``lib/present`` a pruned ground-API library with present tense only +- ``lib/mathematical`` special-purpose API for mathematical applications +- ``lib/multimodal`` special-purpose API for multimodal dialogue applications +The main changes from 0.9 to 1.0 are + +1. Refactoring of module structure: there are many more modules now. + However, the full API is still available as LangX. + +2. Increased coverage. We have used the second CLE book ("Spoken + Language Translation", by M. Rayner, D. Carter, P. Bouillon + V. Digalakis, and M. Wirén, Cambridge UP, 2000) as guideline and + goal. + +3. Some constructions have been dropped out or modified. This concerns + in particular the determiner structure in the module Noun. Also the + number of verb subcategorization patterns is lower: predication can + be done by adding adverbs instead. Also the division between A and ADeg + is eliminated. + +4. The implementation is more direct; there is no "SyntaxX" variant of + each rule as in 0.9. The ease to find definitions and change them + weighs many times more than the abstraction attained by indirection, + in this case. Also compilation time and amount of generated code (gfr) + decreases quite a bit. + +5. The result is a lighter and more efficient resource library, just + because of lessons learned from earlier implementations. + Compared to 0.9, compilation times and gfc sizes have dropped by + 50% up to 70%. + +Version 0.9 is hereby "frozen" to its current state, which means that +extensions and bug fixes are not carried over to it. However, if +requested, we might provide a reimplementation of the old API using +the new. + +When will it be ready? Today (25 February 2006) the implementation +is complete for 8 languages (which excludes Danish and Russian). +A number of bugs wait to be fixes, and a SourceForge release will +be made some time in March. + +BUT WE ALREADY RECOMMEND USING 1.0 INSTEAD OF THE OLDER VERSIONS. +Notice that GF v. + +---------- later history and status: + +16/6 Close to complete, with 10 languages and a substantial part of + Arabic. + +25/2 Added directories for precompiled libraries directly under lib. + See doc/index.html for more information. + +21/2 Added modules Text and Idiom. Many bugs fixed, see TODO. + + 7/2 Finnish added. + + 3/2 Spanish added, except ordinal numerals. Much remains to do in Spa & Ita clitics. + + 1/2 Italian added. + +26/1 Norwegian added. + +24/1 French complete, as well as the Romance parametrized modules. + +20/1 Main difficulties of French and Romance implemented. Also +ParadigmsFre and fragments of LangFre. + +17/1 All of English, Swedish, and German implemented. Some known bugs +remain, also some ToDo API functions. + +13/1/2006 All of English, most of Scandinavian/Swedish, and TestGer +have now been implemented. Most abstract/ modules have been documented +using gfdoc. diff --git a/lib/resource-1.0/TODO b/lib/resource/TODO similarity index 100% rename from lib/resource-1.0/TODO rename to lib/resource/TODO diff --git a/lib/resource-1.0/abstract/Adjective.gf b/lib/resource/abstract/Adjective.gf similarity index 100% rename from lib/resource-1.0/abstract/Adjective.gf rename to lib/resource/abstract/Adjective.gf diff --git a/lib/resource-1.0/abstract/Adverb.gf b/lib/resource/abstract/Adverb.gf similarity index 100% rename from lib/resource-1.0/abstract/Adverb.gf rename to lib/resource/abstract/Adverb.gf diff --git a/lib/resource-1.0/abstract/Cat.gf b/lib/resource/abstract/Cat.gf similarity index 100% rename from lib/resource-1.0/abstract/Cat.gf rename to lib/resource/abstract/Cat.gf diff --git a/lib/resource-1.0/abstract/Common.gf b/lib/resource/abstract/Common.gf similarity index 100% rename from lib/resource-1.0/abstract/Common.gf rename to lib/resource/abstract/Common.gf diff --git a/lib/resource-1.0/abstract/Conjunction.gf b/lib/resource/abstract/Conjunction.gf similarity index 100% rename from lib/resource-1.0/abstract/Conjunction.gf rename to lib/resource/abstract/Conjunction.gf diff --git a/lib/resource-1.0/abstract/Extra.gf b/lib/resource/abstract/Extra.gf similarity index 100% rename from lib/resource-1.0/abstract/Extra.gf rename to lib/resource/abstract/Extra.gf diff --git a/lib/resource-1.0/abstract/Grammar.gf b/lib/resource/abstract/Grammar.gf similarity index 100% rename from lib/resource-1.0/abstract/Grammar.gf rename to lib/resource/abstract/Grammar.gf diff --git a/lib/resource-1.0/abstract/Idiom.gf b/lib/resource/abstract/Idiom.gf similarity index 100% rename from lib/resource-1.0/abstract/Idiom.gf rename to lib/resource/abstract/Idiom.gf diff --git a/lib/resource/abstract/Lang.gf b/lib/resource/abstract/Lang.gf index 69a176bfd..1c70f80a8 100644 --- a/lib/resource/abstract/Lang.gf +++ b/lib/resource/abstract/Lang.gf @@ -1,31 +1,11 @@ ---# -path=.:../../prelude +--1 Lang: a Test Module for the Resource Grammar + +-- This grammar is for testing the resource as included in the +-- language-independent API, consisting of a grammar and a lexicon. +-- The grammar without a lexicon is [``Grammar`` Grammar.html], +-- which may be more suitable to open in applications. abstract Lang = - Rules, - Clause, - Structural, - Basic, - Time, - Country, - Math - - ** { - - flags startcat=Phr ; - - fun - --- Mount $Time$. - - AdvDate : Date -> Adv ; - AdvTime : Time -> Adv ; - NWeekday : Weekday -> N ; - PNWeekday : Weekday -> PN ; - --- Mount $Country$. - - PNCountry : Country -> PN ; - ANationality : Nationality -> A ; - NLanguage : Language -> N ; - -} + Grammar, + Lexicon + ** {} ; diff --git a/lib/resource-1.0/abstract/Lexicon.gf b/lib/resource/abstract/Lexicon.gf similarity index 100% rename from lib/resource-1.0/abstract/Lexicon.gf rename to lib/resource/abstract/Lexicon.gf diff --git a/lib/resource-1.0/abstract/Noun.gf b/lib/resource/abstract/Noun.gf similarity index 100% rename from lib/resource-1.0/abstract/Noun.gf rename to lib/resource/abstract/Noun.gf diff --git a/lib/resource-1.0/abstract/Numeral.gf b/lib/resource/abstract/Numeral.gf similarity index 100% rename from lib/resource-1.0/abstract/Numeral.gf rename to lib/resource/abstract/Numeral.gf diff --git a/lib/resource-1.0/abstract/Phrase.gf b/lib/resource/abstract/Phrase.gf similarity index 100% rename from lib/resource-1.0/abstract/Phrase.gf rename to lib/resource/abstract/Phrase.gf diff --git a/lib/resource-1.0/abstract/Question.gf b/lib/resource/abstract/Question.gf similarity index 100% rename from lib/resource-1.0/abstract/Question.gf rename to lib/resource/abstract/Question.gf diff --git a/lib/resource-1.0/abstract/Relative.gf b/lib/resource/abstract/Relative.gf similarity index 100% rename from lib/resource-1.0/abstract/Relative.gf rename to lib/resource/abstract/Relative.gf diff --git a/lib/resource-1.0/abstract/Sentence.gf b/lib/resource/abstract/Sentence.gf similarity index 100% rename from lib/resource-1.0/abstract/Sentence.gf rename to lib/resource/abstract/Sentence.gf diff --git a/lib/resource/abstract/Structural.gf b/lib/resource/abstract/Structural.gf index 5655385d4..556cabc0a 100644 --- a/lib/resource/abstract/Structural.gf +++ b/lib/resource/abstract/Structural.gf @@ -1,103 +1,111 @@ ---1 GF Resource Grammar API for Structural Words +--1 Structural: Structural Words -- --- AR 21/11/2003 --- -- Here we have some words belonging to closed classes and appearing -- in all languages we have considered. --- Sometimes they are not really meaningful, e.g. $we_NP$ in Spanish --- should be replaced by masculine and feminine variants. +-- Sometimes more distinctions are needed, e.g. $we_Pron$ in Spanish +-- should be replaced by masculine and feminine variants, found in +-- [``ExtraSpa`` ../spanish/ExtraSpa.gf]. -abstract Structural = Categories, Numerals ** { +abstract Structural = Cat ** { fun --- First mount the numerals. - - UseNumeral : Numeral-> Num ; - --- Then an alphabetical list of structural words +-- This is an alphabetical list of structural words above_Prep : Prep ; after_Prep : Prep ; - all8mass_Det : Det ; - all_NDet : NDet ; - almost_Adv : AdA ; + all_Predet : Predet ; + almost_AdA : AdA ; + almost_AdN : AdN ; although_Subj : Subj ; + always_AdV : AdV ; and_Conj : Conj ; because_Subj : Subj ; before_Prep : Prep ; behind_Prep : Prep ; between_Prep : Prep ; - both_AndConjD : ConjD ; + both7and_DConj : DConj ; + but_PConj : PConj ; by8agent_Prep : Prep ; by8means_Prep : Prep ; can8know_VV : VV ; can_VV : VV ; during_Prep : Prep ; - either8or_ConjD : ConjD ; + either7or_DConj : DConj ; every_Det : Det ; everybody_NP : NP ; everything_NP : NP ; everywhere_Adv : Adv ; + first_Ord : Ord ; + few_Det : Det ; from_Prep : Prep ; - he_NP : NP ; + he_Pron : Pron ; + here_Adv : Adv ; + here7to_Adv : Adv ; + here7from_Adv : Adv ; how_IAdv : IAdv ; how8many_IDet : IDet ; - i_NP : NP ; + i_Pron : Pron ; if_Subj : Subj ; in8front_Prep : Prep ; in_Prep : Prep ; - it_NP : NP ; + it_Pron : Pron ; + less_CAdv : CAdv ; many_Det : Det ; - most_Det : Det ; - most8many_Det : Det ; + more_CAdv : CAdv ; + most_Predet : Predet ; much_Det : Det ; must_VV : VV ; no_Phr : Phr ; on_Prep : Prep ; + one_Quant : QuantSg ; + only_Predet : Predet ; or_Conj : Conj ; - otherwise_Adv : AdC ; + otherwise_PConj : PConj ; part_Prep : Prep ; + please_Voc : Voc ; possess_Prep : Prep ; quite_Adv : AdA ; - she_NP : NP ; - so_Adv : AdA ; - some_Det : Det ; - some_NDet : NDet ; + she_Pron : Pron ; + so_AdA : AdA ; + someSg_Det : Det ; + somePl_Det : Det ; somebody_NP : NP ; something_NP : NP ; somewhere_Adv : Adv ; - that_Det : Det ; + that_Quant : Quant ; that_NP : NP ; - therefore_Adv : AdC ; - these_NDet : NDet ; - they8fem_NP : NP ; - they_NP : NP ; - this_Det : Det ; + there_Adv : Adv ; + there7to_Adv : Adv ; + there7from_Adv : Adv ; + therefore_PConj : PConj ; + these_NP : NP ; + they_Pron : Pron ; + this_Quant : Quant ; this_NP : NP ; - those_NDet : NDet ; - thou_NP : NP ; + those_NP : NP ; through_Prep : Prep ; to_Prep : Prep ; - too_Adv : AdA ; + too_AdA : AdA ; under_Prep : Prep ; - very_Adv : AdA ; + very_AdA : AdA ; want_VV : VV ; - we_NP : NP ; - what8many_IP : IP ; - what8one_IP : IP ; + we_Pron : Pron ; + whatPl_IP : IP ; + whatSg_IP : IP ; when_IAdv : IAdv ; when_Subj : Subj ; where_IAdv : IAdv ; - which8many_IDet : IDet ; - which8one_IDet : IDet ; - who8many_IP : IP ; - who8one_IP : IP ; + whichPl_IDet : IDet ; + whichSg_IDet : IDet ; + whoPl_IP : IP ; + whoSg_IP : IP ; why_IAdv : IAdv ; with_Prep : Prep ; without_Prep : Prep ; - ye_NP : NP ; yes_Phr : Phr ; - you_NP : NP ; + youSg_Pron : Pron ; + youPl_Pron : Pron ; + youPol_Pron : Pron ; -} \ No newline at end of file +} diff --git a/lib/resource-1.0/abstract/Text.gf b/lib/resource/abstract/Text.gf similarity index 100% rename from lib/resource-1.0/abstract/Text.gf rename to lib/resource/abstract/Text.gf diff --git a/lib/resource-1.0/abstract/Verb.gf b/lib/resource/abstract/Verb.gf similarity index 100% rename from lib/resource-1.0/abstract/Verb.gf rename to lib/resource/abstract/Verb.gf diff --git a/lib/resource-1.0/arabic/AdjectiveAra.gf b/lib/resource/arabic/AdjectiveAra.gf similarity index 100% rename from lib/resource-1.0/arabic/AdjectiveAra.gf rename to lib/resource/arabic/AdjectiveAra.gf diff --git a/lib/resource-1.0/arabic/AdverbAra.gf b/lib/resource/arabic/AdverbAra.gf similarity index 100% rename from lib/resource-1.0/arabic/AdverbAra.gf rename to lib/resource/arabic/AdverbAra.gf diff --git a/lib/resource-1.0/arabic/CatAra.gf b/lib/resource/arabic/CatAra.gf similarity index 100% rename from lib/resource-1.0/arabic/CatAra.gf rename to lib/resource/arabic/CatAra.gf diff --git a/lib/resource-1.0/arabic/ConjunctionAra.gf b/lib/resource/arabic/ConjunctionAra.gf similarity index 100% rename from lib/resource-1.0/arabic/ConjunctionAra.gf rename to lib/resource/arabic/ConjunctionAra.gf diff --git a/lib/resource-1.0/arabic/ExtAra.gf b/lib/resource/arabic/ExtAra.gf similarity index 100% rename from lib/resource-1.0/arabic/ExtAra.gf rename to lib/resource/arabic/ExtAra.gf diff --git a/lib/resource-1.0/arabic/IdiomAra.gf b/lib/resource/arabic/IdiomAra.gf similarity index 100% rename from lib/resource-1.0/arabic/IdiomAra.gf rename to lib/resource/arabic/IdiomAra.gf diff --git a/lib/resource-1.0/arabic/IrregAra.gf b/lib/resource/arabic/IrregAra.gf similarity index 100% rename from lib/resource-1.0/arabic/IrregAra.gf rename to lib/resource/arabic/IrregAra.gf diff --git a/lib/resource-1.0/arabic/LangAra.gf b/lib/resource/arabic/LangAra.gf similarity index 100% rename from lib/resource-1.0/arabic/LangAra.gf rename to lib/resource/arabic/LangAra.gf diff --git a/lib/resource-1.0/arabic/LexiconAra.gf b/lib/resource/arabic/LexiconAra.gf similarity index 100% rename from lib/resource-1.0/arabic/LexiconAra.gf rename to lib/resource/arabic/LexiconAra.gf diff --git a/lib/resource-1.0/arabic/MorphoAra.gf b/lib/resource/arabic/MorphoAra.gf similarity index 100% rename from lib/resource-1.0/arabic/MorphoAra.gf rename to lib/resource/arabic/MorphoAra.gf diff --git a/lib/resource-1.0/arabic/NounAra.gf b/lib/resource/arabic/NounAra.gf similarity index 100% rename from lib/resource-1.0/arabic/NounAra.gf rename to lib/resource/arabic/NounAra.gf diff --git a/lib/resource-1.0/arabic/NumeralAra.gf b/lib/resource/arabic/NumeralAra.gf similarity index 100% rename from lib/resource-1.0/arabic/NumeralAra.gf rename to lib/resource/arabic/NumeralAra.gf diff --git a/lib/resource-1.0/arabic/OrthoAra.gf b/lib/resource/arabic/OrthoAra.gf similarity index 100% rename from lib/resource-1.0/arabic/OrthoAra.gf rename to lib/resource/arabic/OrthoAra.gf diff --git a/lib/resource-1.0/arabic/ParadigmsAra.gf b/lib/resource/arabic/ParadigmsAra.gf similarity index 100% rename from lib/resource-1.0/arabic/ParadigmsAra.gf rename to lib/resource/arabic/ParadigmsAra.gf diff --git a/lib/resource-1.0/arabic/PatternsAra.gf b/lib/resource/arabic/PatternsAra.gf similarity index 100% rename from lib/resource-1.0/arabic/PatternsAra.gf rename to lib/resource/arabic/PatternsAra.gf diff --git a/lib/resource-1.0/arabic/PhraseAra.gf b/lib/resource/arabic/PhraseAra.gf similarity index 100% rename from lib/resource-1.0/arabic/PhraseAra.gf rename to lib/resource/arabic/PhraseAra.gf diff --git a/lib/resource-1.0/arabic/QuestionAra.gf b/lib/resource/arabic/QuestionAra.gf similarity index 100% rename from lib/resource-1.0/arabic/QuestionAra.gf rename to lib/resource/arabic/QuestionAra.gf diff --git a/lib/resource-1.0/arabic/RelativeAra.gf b/lib/resource/arabic/RelativeAra.gf similarity index 100% rename from lib/resource-1.0/arabic/RelativeAra.gf rename to lib/resource/arabic/RelativeAra.gf diff --git a/lib/resource-1.0/arabic/ResAra.gf b/lib/resource/arabic/ResAra.gf similarity index 100% rename from lib/resource-1.0/arabic/ResAra.gf rename to lib/resource/arabic/ResAra.gf diff --git a/lib/resource-1.0/arabic/SentenceAra.gf b/lib/resource/arabic/SentenceAra.gf similarity index 100% rename from lib/resource-1.0/arabic/SentenceAra.gf rename to lib/resource/arabic/SentenceAra.gf diff --git a/lib/resource-1.0/arabic/StructuralAra.gf b/lib/resource/arabic/StructuralAra.gf similarity index 100% rename from lib/resource-1.0/arabic/StructuralAra.gf rename to lib/resource/arabic/StructuralAra.gf diff --git a/lib/resource-1.0/arabic/VerbAra.gf b/lib/resource/arabic/VerbAra.gf similarity index 100% rename from lib/resource-1.0/arabic/VerbAra.gf rename to lib/resource/arabic/VerbAra.gf diff --git a/lib/resource-1.0/common/CommonX.gf b/lib/resource/common/CommonX.gf similarity index 100% rename from lib/resource-1.0/common/CommonX.gf rename to lib/resource/common/CommonX.gf diff --git a/lib/resource-1.0/common/ConstructX.gf b/lib/resource/common/ConstructX.gf similarity index 100% rename from lib/resource-1.0/common/ConstructX.gf rename to lib/resource/common/ConstructX.gf diff --git a/lib/resource-1.0/common/ParamX.gf b/lib/resource/common/ParamX.gf similarity index 100% rename from lib/resource-1.0/common/ParamX.gf rename to lib/resource/common/ParamX.gf diff --git a/lib/resource-1.0/common/TenseX.gf b/lib/resource/common/TenseX.gf similarity index 100% rename from lib/resource-1.0/common/TenseX.gf rename to lib/resource/common/TenseX.gf diff --git a/lib/resource-1.0/common/TextX.gf b/lib/resource/common/TextX.gf similarity index 100% rename from lib/resource-1.0/common/TextX.gf rename to lib/resource/common/TextX.gf diff --git a/lib/resource-1.0/danish/AdjectiveDan.gf b/lib/resource/danish/AdjectiveDan.gf similarity index 100% rename from lib/resource-1.0/danish/AdjectiveDan.gf rename to lib/resource/danish/AdjectiveDan.gf diff --git a/lib/resource-1.0/danish/AdverbDan.gf b/lib/resource/danish/AdverbDan.gf similarity index 100% rename from lib/resource-1.0/danish/AdverbDan.gf rename to lib/resource/danish/AdverbDan.gf diff --git a/lib/resource-1.0/danish/CatDan.gf b/lib/resource/danish/CatDan.gf similarity index 100% rename from lib/resource-1.0/danish/CatDan.gf rename to lib/resource/danish/CatDan.gf diff --git a/lib/resource-1.0/danish/ConjunctionDan.gf b/lib/resource/danish/ConjunctionDan.gf similarity index 100% rename from lib/resource-1.0/danish/ConjunctionDan.gf rename to lib/resource/danish/ConjunctionDan.gf diff --git a/lib/resource-1.0/danish/Danish.gf b/lib/resource/danish/Danish.gf similarity index 100% rename from lib/resource-1.0/danish/Danish.gf rename to lib/resource/danish/Danish.gf diff --git a/lib/resource-1.0/danish/DanishAbs.gf b/lib/resource/danish/DanishAbs.gf similarity index 100% rename from lib/resource-1.0/danish/DanishAbs.gf rename to lib/resource/danish/DanishAbs.gf diff --git a/lib/resource-1.0/danish/DiffDan.gf b/lib/resource/danish/DiffDan.gf similarity index 100% rename from lib/resource-1.0/danish/DiffDan.gf rename to lib/resource/danish/DiffDan.gf diff --git a/lib/resource-1.0/danish/ExtraDan.gf b/lib/resource/danish/ExtraDan.gf similarity index 100% rename from lib/resource-1.0/danish/ExtraDan.gf rename to lib/resource/danish/ExtraDan.gf diff --git a/lib/resource-1.0/danish/ExtraDanAbs.gf b/lib/resource/danish/ExtraDanAbs.gf similarity index 100% rename from lib/resource-1.0/danish/ExtraDanAbs.gf rename to lib/resource/danish/ExtraDanAbs.gf diff --git a/lib/resource-1.0/danish/ExtraScandDan.gf b/lib/resource/danish/ExtraScandDan.gf similarity index 100% rename from lib/resource-1.0/danish/ExtraScandDan.gf rename to lib/resource/danish/ExtraScandDan.gf diff --git a/lib/resource-1.0/danish/GrammarDan.gf b/lib/resource/danish/GrammarDan.gf similarity index 100% rename from lib/resource-1.0/danish/GrammarDan.gf rename to lib/resource/danish/GrammarDan.gf diff --git a/lib/resource-1.0/danish/IdiomDan.gf b/lib/resource/danish/IdiomDan.gf similarity index 100% rename from lib/resource-1.0/danish/IdiomDan.gf rename to lib/resource/danish/IdiomDan.gf diff --git a/lib/resource-1.0/danish/IrregDan.gf b/lib/resource/danish/IrregDan.gf similarity index 100% rename from lib/resource-1.0/danish/IrregDan.gf rename to lib/resource/danish/IrregDan.gf diff --git a/lib/resource-1.0/danish/IrregDanAbs.gf b/lib/resource/danish/IrregDanAbs.gf similarity index 100% rename from lib/resource-1.0/danish/IrregDanAbs.gf rename to lib/resource/danish/IrregDanAbs.gf diff --git a/lib/resource/danish/LangDan.gf b/lib/resource/danish/LangDan.gf index a857196b8..7a80aded4 100644 --- a/lib/resource/danish/LangDan.gf +++ b/lib/resource/danish/LangDan.gf @@ -1,22 +1,10 @@ ---# -path=.:../scandinavian:../abstract:../../prelude +--# -path=.:../scandinavian:../abstract:../common:prelude concrete LangDan of Lang = - RulesDan, - ClauseDan, - StructuralDan, - BasicDan, - TimeDan, - CountryDan + GrammarDan, + LexiconDan + ** { - ** open Prelude, ParadigmsDan in { +flags startcat = Phr ; unlexer = text ; lexer = text ; -lin - AdvDate d = prefixSS "på" d ; - AdvTime t = prefixSS "klokken" t ; - NWeekday w = w ; - PNWeekday w = nounPN w ; - - PNCountry x = x ; - ANationality x = x ; - NLanguage x = x ; -} +} ; diff --git a/lib/resource-1.0/danish/LexiconDan.gf b/lib/resource/danish/LexiconDan.gf similarity index 100% rename from lib/resource-1.0/danish/LexiconDan.gf rename to lib/resource/danish/LexiconDan.gf diff --git a/lib/resource/danish/MathDan.gf b/lib/resource/danish/MathDan.gf index 809df1cb5..11d87f5d9 100644 --- a/lib/resource/danish/MathDan.gf +++ b/lib/resource/danish/MathDan.gf @@ -1,4 +1,2 @@ ---# -path=.:../scandinavian:../abstract:../../prelude - -concrete MathDan of Math = CategoriesDan ** - MathScand with (SyntaxScand=SyntaxDan) ; +concrete MathDan of Math = CatDan ** MathScand with + (ResScand = ResDan) ; diff --git a/lib/resource/danish/MorphoDan.gf b/lib/resource/danish/MorphoDan.gf index a057e022a..a5ee90a48 100644 --- a/lib/resource/danish/MorphoDan.gf +++ b/lib/resource/danish/MorphoDan.gf @@ -8,30 +8,24 @@ -- -- We use the parameter types and word classes defined for morphology. -resource MorphoDan = open Prelude, TypesDan in { +resource MorphoDan = CommonScand, ResDan ** open Prelude, Predef in { --- Danish grammar source: http://users.cybercity.dk/~nmb3879/danish.html +oper + +-- type synonyms + + Subst : Type = {s : Number => Species => Case => Str} ; + Adj = Adjective ; -- nouns -oper - mkSubstantive : (_,_,_,_ : Str) -> {s : SubstForm => Str} = - \dreng, drengen, drenge, drengene -> {s = table { - SF Sg Indef c => mkCase dreng ! c ; - SF Sg Def c => mkCase drengen ! c ; - SF Pl Indef c => mkCase drenge ! c ; - SF Pl Def c => mkCase drengene ! c - } - } ; + mkSubstantive : (_,_,_,_ : Str) -> Subst = + \dreng, drengen, drenger, drengene -> + {s = nounForms dreng drengen drenger drengene} ; - mkCase : Str -> Case => Str = \bil -> table { - Nom => bil ; - Gen => bil + "s" --- but: hus --> hus - } ; - - extNGen : Str -> NounGender = \s -> case last s of { - "n" => NUtr ; - _ => NNeutr + extNGen : Str -> Gender = \s -> case last s of { + "n" => Utr ; + _ => Neutr } ; nDreng : Str -> Subst = \dreng -> @@ -52,40 +46,41 @@ oper -- adjectives - mkAdjective : (_,_,_,_,_ : Str) -> Adj = + mkAdject : (_,_,_,_,_ : Str) -> Adj = \stor,stort,store,storre,storst -> {s = table { - AF (Posit (Strong (ASg Utr))) c => mkCase stor ! c ; - AF (Posit (Strong (ASg Neutr))) c => mkCase stort ! c ; - AF (Posit _) c => mkCase store ! c ; - AF Compar c => mkCase storre ! c ; - AF (Super SupStrong) c => mkCase storst ! c ; - AF (Super SupWeak) c => mkCase (storst + "e") ! c + AF (APosit (Strong SgUtr )) c => mkCase c stor ; + AF (APosit (Strong SgNeutr)) c => mkCase c stort ; + AF (APosit _) c => mkCase c store ; + AF ACompar c => mkCase c storre ; + AF (ASuperl SupStrong) c => mkCase c storst ; + AF (ASuperl SupWeak) c => mkCase c (storst + "e") } } ; aRod : Str -> Adj = \rod -> - mkAdjective rod (rod + "t") (rod + "e") (rod + "ere") (rod + "est") ; + mkAdject rod (rod + "t") (rod + "e") (rod + "ere") (rod + "est") ; aAbstrakt : Str -> Adj = \abstrakt -> - mkAdjective abstrakt abstrakt (abstrakt + "e") (abstrakt + "ere") (abstrakt + "est") ; + mkAdject abstrakt abstrakt (abstrakt + "e") (abstrakt + "ere") (abstrakt + "est") ; aRask : Str -> Adj = \rask -> - mkAdjective rask rask (rask + "e") (rask + "ere") (rask + "est") ; + mkAdject rask rask (rask + "e") (rask + "ere") (rask + "est") ; - extractPositive : Adj -> {s : AdjFormPos => Case => Str} = \adj -> - {s = \\a,c => adj.s ! (AF (Posit a) c)} ; -- verbs - mkVerb : (_,_,_,_,_,_ : Str) -> Verbum = + Verbum : Type = {s : VForm => Str} ; + + mkVerb6 : (_,_,_,_,_,_ : Str) -> Verbum = \spise,spiser,spises,spiste,spist,spis -> {s = table { - VI (Inf v) => mkVoice v spise ; - VF (Pres Act) => spiser ; - VF (Pres Pass) => spises ; - VF (Pret v) => mkVoice v spiste ; - VI (Supin v) => mkVoice v spist ; - VI (PtPret _ c) => mkCase spist ! c ; ---- GenNum - VF (Imper v) => mkVoice v spis + VI (VInfin v) => mkVoice v spise ; + VF (VPres Act) => spiser ; + VF (VPres Pass) => spises ; + VF (VPret v) => mkVoice v spiste ; --# notpresent + VI (VSupin v) => mkVoice v spist ; --# notpresent + VI (VPtPret (Strong (SgUtr | SgNeutr)) c) => mkCase c spist ; + VI (VPtPret _ c) => mkCase c (spist + "e") ; + VF (VImper v) => mkVoice v spis } } ; @@ -98,7 +93,7 @@ oper _ => drikke + "r" } in - mkVerb drikke drikker (drikke + "s") drakk drukket drikk ; + mkVerb6 drikke drikker (drikke + "s") drakk drukket (mkImper drikk) ; regVerb : Str -> Str -> Verbum = \spise, spiste -> let @@ -114,153 +109,56 @@ oper _ => vHusk spis } ; - mkVoice : Voice -> Str -> Str = \v,s -> case v of { - Act => s ; - Pass => s + case last s of { - "s" => "es" ; - _ => "s" - } - } ; - vHusk : Str -> Verbum = \husk -> - mkVerb (husk + "e") (husk + "er") (husk + "es") (husk + "ede") (husk + "et") husk ; + mkVerb6 (husk + "e") (husk + "er") (husk + "es") (husk + "ede") (husk + "et") + (mkImper husk) ; vSpis : Str -> Verbum = \spis -> - mkVerb (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t") spis ; + mkVerb6 (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t") + (mkImper spis) ; vBo : Str -> Verbum = \bo -> - mkVerb bo (bo + "r") (bo + "es") (bo + "ede") (bo + "et") bo ; + mkVerb6 bo (bo + "r") (bo + "es") (bo + "ede") (bo + "et") (mkImper bo) ; --- pronouns +-- Remove consonant duplication: "passe - pas" -oper jag_32 : ProPN = - {s = table { - PNom => "jeg" ; - PAcc => "mig" ; - PGen (ASg Utr) => "min" ; - PGen (ASg Neutr) => "mit" ; - PGen APl => "mine" - } ; - h1 = Utr ; - h2 = Sg ; - h3 = P1 - } ; + mkImper : Str -> Str = \s -> + if_then_Str (pbool2bool (Predef.eqStr (last s) (last (init s)))) (init s) s ; -oper du_33 : ProPN = - {s = table { - PNom => "du" ; - PAcc => "dig" ; - PGen (ASg Utr) => "din" ; - PGen (ASg Neutr) => "dit" ; - PGen APl => "dine" - } ; - h1 = Utr ; - h2 = Sg ; - h3 = P2 - } ; - -oper han_34 : ProPN = - {s = table { - PNom => "han" ; - PAcc => "ham" ; - PGen (ASg Utr) => "hans" ; - PGen (ASg Neutr) => "hans" ; - PGen APl => "hans" - } ; - h1 = Utr ; - h2 = Sg ; - h3 = P3 - } ; -oper hon_35 : ProPN = - {s = table { - PNom => "hun" ; - PAcc => "hende" ; - PGen (ASg Utr) => "hendes" ; - PGen (ASg Neutr) => "hendes" ; - PGen APl => "hendes" - } ; - h1 = Utr ; - h2 = Sg ; - h3 = P3 - } ; - -oper vi_36 : ProPN = - {s = table { - PNom => "vi" ; - PAcc => "os" ; - PGen _ => "vores" - } ; - h1 = Utr ; - h2 = Pl ; - h3 = P1 - } ; - -oper ni_37 : ProPN = - {s = table { - PNom => "i" ; - PAcc => "jer" ; - PGen _ => "jeres" - } ; - h1 = Utr ; - h2 = Pl ; - h3 = P2 - } ; - -oper de_38 : ProPN = - {s = table { - PNom => "de" ; - PAcc => "dem" ; - PGen _ => "deres" - } ; - h1 = Utr ; - h2 = Pl ; - h3 = P3 - } ; - -oper De_38 : ProPN = - {s = table { - PNom => "De" ; - PAcc => "Dem" ; - PGen _ => "Deres" - } ; - h1 = Utr ; - h2 = Sg ; - h3 = P2 - } ; - -oper den_39 : ProPN = - {s = table { - PNom => "den" ; - PAcc => "den" ; - PGen _ => "dens" - } ; - h1 = Utr ; - h2 = Sg ; - h3 = P3 - } ; - -oper det_40 : ProPN = - {s = table { - PNom => "det" ; - PAcc => "det" ; - PGen _ => "dets" - } ; - h1 = Neutr ; - h2 = Sg ; - h3 = P3 - } ; - - --- from Numerals +-- For $Numeral$. param DForm = ental | ton | tiotal ; -oper mkTal : Str -> Str -> Str -> {s : DForm => Str} = - \to, tolv, tyve -> - {s = table {ental => to ; ton => tolv ; tiotal => tyve}} ; -oper regTal : Str -> {s : DForm => Str} = \fem -> mkTal fem (fem + "ton") (fem + "tio") ; - numPl : Str -> {s : Gender => Str ; n : Number} = \n -> - {s = \\_ => n ; n = Pl} ; +oper + LinDigit = {s : DForm => CardOrd => Str} ; + + cardOrd : Str -> Str -> CardOrd => Str = \tre,tredje -> + table { + NCard _ => tre ; + NOrd a => tredje ---- a + } ; + + cardReg : Str -> CardOrd => Str = \syv -> + cardOrd syv (syv + case last syv of { + "n" => "de" ; + "e" => "nde" ; + _ => "ende" + }) ; + + + mkTal : (x1,_,_,_,x5 : Str) -> LinDigit = + \två, tolv, tjugo, andra, tyvende -> + {s = table { + ental => cardOrd två andra ; + ton => cardReg tolv ; + tiotal => cardOrd tjugo tyvende + } + } ; + + numPl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \n -> + {s = n ; n = Pl} ; + + invNum : CardOrd = NCard Neutr ; } diff --git a/lib/resource-1.0/danish/NounDan.gf b/lib/resource/danish/NounDan.gf similarity index 100% rename from lib/resource-1.0/danish/NounDan.gf rename to lib/resource/danish/NounDan.gf diff --git a/lib/resource-1.0/danish/NumeralDan.gf b/lib/resource/danish/NumeralDan.gf similarity index 100% rename from lib/resource-1.0/danish/NumeralDan.gf rename to lib/resource/danish/NumeralDan.gf diff --git a/lib/resource/danish/ParadigmsDan.gf b/lib/resource/danish/ParadigmsDan.gf index d7fc4e4e0..9aa3bb14b 100644 --- a/lib/resource/danish/ParadigmsDan.gf +++ b/lib/resource/danish/ParadigmsDan.gf @@ -1,10 +1,10 @@ ---# -path=.:../scandinavian:../abstract:../../prelude +--# -path=.:../scandinavian:../common:../abstract:../../prelude ---1 Sanish Lexical Paradigms +--1 Danish Lexical Paradigms -- --- Aarne Ranta 2003 +-- Aarne Ranta 2005 - 2006 -- --- This is an API to the user of the resource grammar +-- This is an API for the user of the resource grammar -- for adding lexical items. It gives functions for forming -- expressions of open categories: nouns, adjectives, verbs. -- @@ -21,13 +21,17 @@ -- regular cases. Then we give a worst-case function $mkC$, which serves as an -- escape to construct the most irregular words of type $C$. -- However, this function should only seldom be needed: we have a --- separate module $IrregularEng$, which covers all irregularly inflected --- words. --- --- The following modules are presupposed: +-- separate module [``IrregDan`` ../../danish/IrregDan.gf], +-- which haves a list of irregular verbs. resource ParadigmsDan = - open (Predef=Predef), Prelude, TypesDan, MorphoDan, SyntaxDan, CategoriesDan in { + open + (Predef=Predef), + Prelude, + CommonScand, + ResDan, + MorphoDan, + CatDan in { --2 Parameters -- @@ -55,56 +59,68 @@ oper -- Prepositions used in many-argument functions are just strings. - Preposition : Type = Str ; + mkPrep : Str -> Prep ; + noPrep : Prep ; -- empty string --2 Nouns -- Worst case: give all four forms. The gender is computed from the -- last letter of the second form (if "n", then $utrum$, otherwise $neutrum$). - mkN : (dreng,drengen,drenger,drengene : Str) -> N ; + mkN : (dreng,drengen,drenge,drengene : Str) -> N ; --- The regular function takes the singular indefinite form and the gender, --- and computes the other forms by a heuristic. --- If in doubt, use the $cc$ command to test! +-- The regular function takes the singular indefinite form +-- and computes the other forms and the gender by a heuristic. +-- The heuristic is that all nouns are $utrum$ with the +-- plural ending "er" or "r". - regN : Str -> Gender -> N ; + regN : Str -> N ; + +-- Giving gender manually makes the heuristic more reliable. + + regGenN : Str -> Gender -> N ; -- This function takes the singular indefinite and definite forms; the -- gender is computed from the definite form. mk2N : (bil,bilen : Str) -> N ; +-- This function takes the singular indefinite and definite and the plural +-- indefinite + + mk3N : (bil,bilen,biler : Str) -> N ; + --3 Compound nouns -- -- All the functions above work quite as well to form compound nouns, --- such as "fotboll". +-- such as "fodbold". --3 Relational nouns -- --- Relational nouns ("daughter of x") need a preposition. +-- Relational nouns ("datter til x") need a preposition. - mkN2 : N -> Preposition -> N2 ; + mkN2 : N -> Prep -> N2 ; --- The most common preposition is "av", and the following is a --- shortcut for regular, $nonhuman$ relational nouns with "av". +-- The most common preposition is "af", and the following is a +-- shortcut for regular relational nouns with "af". regN2 : Str -> Gender -> N2 ; --- Use the function $mkPreposition$ or see the section on prepositions below to +-- Use the function $mkPrep$ or see the section on prepositions below to -- form other prepositions. -- --- Three-place relational nouns ("the connection from x to y") need two prepositions. +-- Three-place relational nouns ("forbindelse fra x til y") +-- need two prepositions. - mkN3 : N -> Preposition -> Preposition -> N3 ; + mkN3 : N -> Prep -> Prep -> N3 ; --3 Relational common noun phrases -- -- In some cases, you may want to make a complex $CN$ into a --- relational noun (e.g. "the old town hall of"). However, $N2$ and +-- relational noun (e.g. "tidligere kone til"). However, $N2$ and -- $N3$ are purely lexical categories. But you can use the $AdvCN$ -- and $PrepNP$ constructions to build phrases like this. @@ -113,7 +129,8 @@ oper -- -- Proper names, with a regular genitive, are formed as follows - regPN : Str -> Gender -> PN ; -- John, John's + mkPN : Str -> Gender -> PN ; -- Paris neutrum + regPN : Str -> PN ; -- utrum gender -- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". @@ -142,40 +159,37 @@ oper -- -- Two-place adjectives need a preposition for their second argument. - mkA2 : A -> Preposition -> A2 ; + mkA2 : A -> Prep -> A2 ; -- Comparison adjectives may need as many as five forms. - mkADeg : (stor,stort,store,storre,storst : Str) -> ADeg ; + mkADeg : (stor,stort,store,storre,storst : Str) -> A ; -- The regular pattern works for many adjectives, e.g. those ending -- with "ig". - regADeg : Str -> ADeg ; + regADeg : Str -> A ; -- Just the comparison forms can be irregular. - irregADeg : (tung,tyngre,tyngst : Str) -> ADeg ; + irregADeg : (tung,tyngre,tyngst : Str) -> A ; -- Sometimes just the positive forms are irregular. - mk3ADeg : (galen,galet,galna : Str) -> ADeg ; - mk2ADeg : (bred,bredt : Str) -> ADeg ; + mk3ADeg : (galen,galet,galna : Str) -> A ; + mk2ADeg : (bred,bredt : Str) -> A ; --- If comparison is formed by "mer, "mest", as in general for +-- If comparison is formed by "mer", "mest", as in general for -- long adjective, the following pattern is used: - compoundADeg : A -> ADeg ; -- -/mer/mest norsk - --- From a given $ADeg$, it is possible to get back to $A$. - - adegA : ADeg -> A ; + compoundA : A -> A ; -- -/mer/mest norsk --2 Adverbs -- Adverbs are not inflected. Most lexical ones have position --- after the verb. Some can be preverbal (e.g. "always"). +-- after the verb. Some can be close to the verb like the negation +-- "ikke" (e.g. "altid"). mkAdv : Str -> Adv ; mkAdV : Str -> AdV ; @@ -184,11 +198,6 @@ oper mkAdA : Str -> AdA ; ---2 Prepositions --- --- A preposition is just a string. - - mkPreposition : Str -> Preposition ; --2 Verbs -- @@ -204,30 +213,42 @@ oper mk2V : (leve,levde : Str) -> V ; --- There is an extensive list of irregular verbs in the module $IrregularSwe$. +-- There is an extensive list of irregular verbs in the module $IrregDan$. -- In practice, it is enough to give three forms, as in school books. - irregV : (drikke, drakk, drukket : Str) -> V ; + irregV : (drikke, drak, drukket : Str) -> V ; ---3 Verbs with a particle. +--3 Verbs with 'være' as auxiliary -- --- The particle, such as in "switch on", is given as a string. +-- By default, the auxiliary is "have". This function changes it to "være". + + vaereV : V -> V ; + + + +--3 Verbs with a particle +-- +-- The particle, such as in "passe på", is given as a string. partV : V -> Str -> V ; ---3 Deponent verbs. + +--3 Deponent verbs -- --- Some words are used in passive forms only, e.g. "hoppas". +-- Some words are used in passive forms only, e.g. "undres", some as +-- reflexive e.g. "forestille sig". depV : V -> V ; + reflV : V -> V ; + --3 Two-place verbs -- -- Two-place verbs need a preposition, except the special case with direct object. -- (transitive verbs). Notice that a particle comes from the $V$. - mkV2 : V -> Preposition -> V2 ; + mkV2 : V -> Prep -> V2 ; dirV2 : V -> V2 ; @@ -236,8 +257,8 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Str -> Str -> V3 ; -- speak, with, about - dirV3 : V -> Str -> V3 ; -- give,_,to + mkV3 : V -> Prep -> Prep -> V3 ; -- snakke, med, om + dirV3 : V -> Prep -> V3 ; -- give,_,til dirdirV3 : V -> V3 ; -- give,_,_ --3 Other complement patterns @@ -247,124 +268,189 @@ oper mkV0 : V -> V0 ; mkVS : V -> VS ; - mkV2S : V -> Str -> V2S ; + mkV2S : V -> Prep -> V2S ; mkVV : V -> VV ; - mkV2V : V -> Str -> Str -> V2V ; + mkV2V : V -> Prep -> Prep -> V2V ; mkVA : V -> VA ; - mkV2A : V -> Str -> V2A ; + mkV2A : V -> Prep -> V2A ; mkVQ : V -> VQ ; - mkV2Q : V -> Str -> V2Q ; + mkV2Q : V -> Prep -> V2Q ; mkAS : A -> AS ; - mkA2S : A -> Str -> A2S ; + mkA2S : A -> Prep -> A2S ; mkAV : A -> AV ; - mkA2V : A -> Str -> A2V ; + mkA2V : A -> Prep -> A2V ; +-- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated +-- just as synonyms of $V2$, and the second argument is given +-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. +-- $V0$ is just $V$. + + V0, V2S, V2V, V2A, V2Q : Type ; + AS, A2S, AV, A2V : Type ; + +--. --2 Definitions of the paradigms -- -- The definitions should not bother the user of the API. So they are -- hidden from the document. ---. - Gender = SyntaxDan.NounGender ; - Number = TypesDan.Number ; - Case = TypesDan.Case ; - utrum = NUtr ; - neutrum = NNeutr ; + + Gender = MorphoDan.Gender ; + Number = MorphoDan.Number ; + Case = MorphoDan.Case ; + utrum = Utr ; + neutrum = Neutr ; singular = Sg ; plural = Pl ; nominative = Nom ; genitive = Gen ; - mkN x y z u = let sb = mkSubstantive x y z u - in {s = \\n,b,c => sb.s ! SF n b c ; g = extNGen y ; lock_N = <>} ; - regN x g = case last x of { + Preposition : Type = Str ; -- obsolete + + mkPreposition : Str -> Prep ; -- obsolete + mkPreposition = mkPrep ; + + mkPrep p = {s = p ; lock_Prep = <>} ; + noPrep = mkPrep [] ; + + mkN x y z u = mkSubstantive x y z u ** {g = extNGen y ; lock_N = <>} ; + + regN x = regGenN x Utr ; + + regGenN x g = case last x of { "e" => case g of { - NUtr => mkN x (x + "n") (x + "r") (x + "rne") ; - NNeutr => mkN x (x + "t") (x + "r") (init x + "ene") + Utr => mkN x (x + "n") (x + "r") (x + "rne") ; + Neutr => mkN x (x + "t") (x + "r") (init x + "ene") } ; _ => case g of { - NUtr => mkN x (x + "en") (x + "er") (x + "rene") ; - NNeutr => mkN x (x + "et") (x + "") (x + "ene") + Utr => mkN x (x + "en") (x + "er") (x + "erne") ; + Neutr => mkN x (x + "et") (x + "") (x + "ene") } } ; - mk2N x y = case last y of { - "n" => regN x utrum ; - _ => regN x neutrum - } ; + mk2N x y = case last y of { + "n" => mk3N x y (init y + "r") ; + _ => mk3N x y x + } ; - mkN2 = \n,p -> n ** {lock_N2 = <> ; s2 = p} ; - regN2 n g = mkN2 (regN n g) (mkPreposition "av") ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; s2 = p ; s3 = q} ; + mk3N x y z = let u = ifTok Str x z "ene" "ne" in mkN x y z (z + u) ; - regPN n g = {s = \\c => mkCase n ! c ; g = g} ** {lock_PN = <>} ; + mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p.s} ; + regN2 n g = mkN2 (regGenN n g) (mkPreposition "av") ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ; + + mkPN n g = {s = \\c => mkCase c n ; g = g} ** {lock_PN = <>} ; + regPN n = mkPN n utrum ; nounPN n = {s = n.s ! singular ! Indef ; g = n.g ; lock_PN = <>} ; mkNP x y n g = - {s = table {PGen _ => x ; _ => y} ; g = genNoun g ; n = n ; p = P3 ; + {s = table {NPPoss _ => x ; _ => y} ; a = agrP3 g n ; lock_NP = <>} ; - mkA a b c = extractPositive (mkAdjective a b c [] []) ** {lock_A = <>} ; + mkA = mk3ADeg ; mk2A a b = mkA a b (a + "e") ; - regA a = extractPositive (regADeg a) ** {lock_A = <>} ; + regA a = (regADeg a) ** {lock_A = <>} ; - mkA2 a p = a ** {s2 = p ; lock_A2 = <>} ; + mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ; + + mkADeg a b c d e = mkAdject a b c d e ** {isComp = False ; lock_A = <>} ; - mkADeg a b c d e = mkAdjective a b c d e ** {lock_ADeg = <>} ; regADeg a = case Predef.dp 2 a of { ----- "ig" => aBillig a ; "sk" => aRask a ; _ => case last a of { "t" => aAbstrakt a ; _ => aRod a - }} ** {lock_ADeg = <>} ; - irregADeg a b c = mkAdjective a (a + "t") (a + "e") b c ** {lock_ADeg = <>} ; - mk3ADeg a b c = mkAdjective a b c (a + "ere") (a + "est") ** {lock_ADeg = <>} ; - mk2ADeg a b = mkAdjective a b (a + "e") (a + "ere") (a + "est") ** {lock_ADeg = <>} ; + }} ** {isComp = False ; lock_A = <>} ; + + irregADeg a b c = mkAdject a (a + "t") (a + "e") b c ** + {isComp = False ; lock_A = <>} ; + mk3ADeg a b c = mkAdject a b c (c + "re") (c + "st") ** + {isComp = False ; lock_A = <>} ; + mk2ADeg a b = mkAdject a b (a + "e") (a + "ere") (a + "est") ** + {isComp = False ; lock_A = <>} ; + + compoundA adj = {s = adj.s ; isComp = True ; lock_A = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ; mkAdA x = ss x ** {lock_AdA = <>} ; - mkPreposition p = p ; - - mkV a b c d e f = mkVerb a b c d e f ** {s1 = [] ; lock_V = <>} ; + mkV a b c d e f = mkVerb6 a b c d e f ** + {part = [] ; vtype = VAct ; lock_V = <> ; isVaere = False} ; regV a = case last a of { "e" => vHusk (init a) ; _ => vBo a - } ** {s1 = [] ; lock_V = <>} ; + } ** {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ; - mk2V a b = regVerb a b ** {s1 = [] ; lock_V = <>} ; + mk2V a b = regVerb a b ** + {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ; - irregV x y z = irregVerb x y z - ** {s1 = [] ; lock_V = <>} ; + irregV = + \drikke,drakk,drukket -> + let + drikk = case last drikke of { + "e" => init drikke ; + _ => drikke + } ; + drikker = case last (init drikke) of { + "r" => init drikke ; + _ => drikke + "r" + } + in + mkV drikke drikker (drikke + "s") drakk drukket (mkImper drikk) ; - partV v p = {s = v.s ; s1 = p ; lock_V = <>} ; - depV v = deponentVerb v ** {lock_V = <>} ; + vaereV v = { + s = v.s ; + part = [] ; + vtype = v.vtype ; + isVaere = True ; + lock_V = <> + } ; - mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; lock_V2 = <>} ; - dirV2 v = mkV2 v [] ; + partV v p = { + s = v.s ; + part = p ; + vtype = v.vtype ; + isVaere = v.isVaere ; + lock_V = <> + } ; - mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; s3 = q ; lock_V3 = <>} ; - dirV3 v p = mkV3 v [] p ; - dirdirV3 v = dirV3 v [] ; + depV v = { + s = v.s ; part = v.part ; vtype = VPass ; isVaere = False ; lock_V = <> + } ; + reflV v = { + s = v.s ; part = v.part ; vtype = VRefl ; isVaere = False ; lock_V = <> + } ; + + mkV2 v p = v ** {c2 = p.s ; lock_V2 = <>} ; + dirV2 v = mkV2 v (mkPrep []) ; + + mkV3 v p q = v ** {c2 = p.s ; c3 = q.s ; lock_V3 = <>} ; + dirV3 v p = mkV3 v noPrep p ; + dirdirV3 v = dirV3 v noPrep ; mkV0 v = v ** {lock_V0 = <>} ; mkVS v = v ** {lock_VS = <>} ; mkV2S v p = mkV2 v p ** {lock_V2S = <>} ; - mkVV v = v ** {isAux = False ; lock_VV = <>} ; + mkVV v = v ** {c2 = "å" ; lock_VV = <>} ; mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2V = <>} ; mkVA v = v ** {lock_VA = <>} ; mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; mkVQ v = v ** {lock_VQ = <>} ; mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - mkAS v = v ** {lock_AS = <>} ; - mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; - mkAV v = v ** {lock_AV = <>} ; - mkA2V v p = mkA2 v p ** {lock_A2V = <>} ; + mkAS v = v ** {lock_A = <>} ; + mkA2S v p = mkA2 v p ** {lock_A = <>} ; + mkAV v = v ** {lock_A = <>} ; + mkA2V v p = mkA2 v p ** {lock_A = <>} ; + + V0 : Type = V ; + V2S, V2V, V2Q, V2A : Type = V2 ; + AS, A2S, AV : Type = A ; + A2V : Type = A2 ; + } ; diff --git a/lib/resource-1.0/danish/PhraseDan.gf b/lib/resource/danish/PhraseDan.gf similarity index 100% rename from lib/resource-1.0/danish/PhraseDan.gf rename to lib/resource/danish/PhraseDan.gf diff --git a/lib/resource-1.0/danish/QuestionDan.gf b/lib/resource/danish/QuestionDan.gf similarity index 100% rename from lib/resource-1.0/danish/QuestionDan.gf rename to lib/resource/danish/QuestionDan.gf diff --git a/lib/resource-1.0/danish/RelativeDan.gf b/lib/resource/danish/RelativeDan.gf similarity index 100% rename from lib/resource-1.0/danish/RelativeDan.gf rename to lib/resource/danish/RelativeDan.gf diff --git a/lib/resource-1.0/danish/ResDan.gf b/lib/resource/danish/ResDan.gf similarity index 100% rename from lib/resource-1.0/danish/ResDan.gf rename to lib/resource/danish/ResDan.gf diff --git a/lib/resource-1.0/danish/SentenceDan.gf b/lib/resource/danish/SentenceDan.gf similarity index 100% rename from lib/resource-1.0/danish/SentenceDan.gf rename to lib/resource/danish/SentenceDan.gf diff --git a/lib/resource/danish/StructuralDan.gf b/lib/resource/danish/StructuralDan.gf index c4c8e9ce2..9f3c7d04f 100644 --- a/lib/resource/danish/StructuralDan.gf +++ b/lib/resource/danish/StructuralDan.gf @@ -1,107 +1,126 @@ ---# -path=.:../scandinavian:../abstract:../../prelude +concrete StructuralDan of Structural = CatDan ** + open MorphoDan, ParadigmsDan, Prelude in { ---1 The Top-Level Swedish Resource Grammar: Structural Words --- --- Aarne Ranta 2002 -- 2004 --- -concrete StructuralDan of Structural = - CategoriesDan, NumeralsDan ** open Prelude, MorphoDan, SyntaxDan in { - - flags optimize=values ; + flags optimize=all ; lin - - UseNumeral i = { - s = \\g => table {Nom => i.s ! g ; Gen => i.s ! g ++ "s"} ; --- - n = i.n - } ; - above_Prep = ss "ovenfor" ; after_Prep = ss "efter" ; by8agent_Prep = ss "af" ; - all8mass_Det = mkDeterminerSgGender2 "all" "alt" IndefP ; - all_NDet = mkDeterminerPl "alle" IndefP ; - almost_Adv = ss "næsten" ; + all_Predet = {s = gennumForms "all" "alt" "alle"} ; + almost_AdA, almost_AdN = ss "næsten" ; although_Subj = ss ["selv om"] ; + always_AdV = ss "altid" ; and_Conj = ss "og" ** {n = Pl} ; - because_Subj = ss ["fordi"] ; + because_Subj = ss "fordi" ; before_Prep = ss "før" ; behind_Prep = ss "bag" ; between_Prep = ss "mellem" ; - both_AndConjD = sd2 "både" "og" ** {n = Pl} ; + both7and_DConj = sd2 "både" "og" ** {n = Pl} ; + but_PConj = ss "men" ; by8means_Prep = ss "med" ; - can8know_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** - {s1 = [] ; isAux = True} ; - can_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** - {s1 = [] ; isAux = True} ; + can8know_VV, can_VV = + mkV "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** + {c2 = [] ; lock_VV = <>} ; during_Prep = ss "under" ; - either8or_ConjD = sd2 "enten" "eller" ** {n = Sg} ; - everybody_NP = let alla = table {Nom => "alle" ; Gen => "alles"} in - {s = \\c => alla ! npCase c ; g = Utr ; n = Pl ; p = P3} ; - every_Det = varjeDet ; - everything_NP = nameNounPhrase (mkProperName "alt" NNeutr) ; - everywhere_Adv = advPost "overalt" ; + either7or_DConj = sd2 "enten" "eller" ** {n = Sg} ; + everybody_NP = regNP "alle" "alles" Plg ; + every_Det = {s = \\_,_ => "hver" ; n = Sg ; det = DDef Indef} ; + everything_NP = regNP "alt" "alts" SgNeutr ; + everywhere_Adv = ss "overalt" ; + few_Det = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ; + first_Ord = {s = "første" ; isDet = True} ; from_Prep = ss "fra" ; - he_NP = pronNounPhrase han_34 ; + he_Pron = MorphoDan.mkNP "han" "ham" "hans" "hans" "hans" SgUtr P3 ; + here_Adv = ss "her" ; + here7to_Adv = ss "hit" ; + here7from_Adv = ss "herfra" ; how_IAdv = ss "hvor" ; - how8many_IDet = mkDeterminerPl ["hvor mange"] IndefP ; + how8many_IDet = {s = \\_ => ["hur mange"] ; n = Pl ; det = DDef Indef} ; if_Subj = ss "hvis" ; - in8front_Prep = ss "fremfor" ; ---- ? - i_NP = pronNounPhrase jag_32 ; + in8front_Prep = ss "foran" ; + i_Pron = + MorphoDan.mkNP "jeg" "mig" "min" "mit" "mine" SgUtr P1 ; in_Prep = ss "i" ; - it_NP = pronNounPhrase det_40 ; ---- - many_Det = mkDeterminerPl "mange" IndefP ; - most_Det = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ; - most8many_Det = flestaDet ; - much_Det = mkDeterminerSg (detSgInvar "meget") IndefP ; - must_VV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "må" ** - {s1 = [] ; isAux = True} ; ---- ? + it_Pron = MorphoDan.regNP "det" "dets" SgNeutr ; + less_CAdv = ss "mindre" ; + many_Det = {s = \\_,_ => "mange" ; n = Pl ; det = DDef Indef} ; + more_CAdv = ss "mer" ; + most_Predet = {s = gennumForms ["den meste"] ["det meste"] ["de fleste"]} ; + much_Det = {s = \\_,_ => "meget" ; n = Pl ; det = DDef Indef} ; + must_VV = + mkV "måtte" "må" "må" "måtte" "måttet" "mått" ** {c2 = [] ; lock_VV = <>} ; + no_Phr = ss ["Nej"] ; on_Prep = ss "på" ; + one_Quant = {s = \\_ => genderForms ["en"] ["et"] ; n = Sg ; det = DIndef} ; --- ei + only_Predet = {s = \\_ => "kun"} ; or_Conj = ss "eller" ** {n = Sg} ; - otherwise_Adv = ss "anderledes" ; ---- ? + otherwise_PConj = ss "anderledes" ; part_Prep = ss "af" ; - no_Phr = ss ["Nej ."] ; - yes_Phr = ss ["Ja ."] ; + please_Voc = ss "tak" ; --- possess_Prep = ss "af" ; quite_Adv = ss "temmelig" ; - she_NP = pronNounPhrase hon_35 ; - so_Adv = ss "så" ; - somebody_NP = nameNounPhrase (mkProperName "nogen" NUtr) ; - some_Det = mkDeterminerSgGender2 "nogen" "noget" IndefP ; - some_NDet = mkDeterminerPlNum "nogle" IndefP ; - something_NP = nameNounPhrase (mkProperName "noget" NNeutr) ; - somewhere_Adv = advPost ["et eller andet sted"] ; ---- ? - that_Det = mkDeterminerSgGender2 ["den der"] ["det der"] (DefP Indef) ; - that_NP = regNameNounPhrase ["det der"] NNeutr ; - therefore_Adv = ss "derfor" ; - these_NDet = mkDeterminerPlNum ["de her"] (DefP Indef) ; - they8fem_NP = pronNounPhrase de_38 ; - they_NP = pronNounPhrase de_38 ; - this_Det = mkDeterminerSgGender2 ["den her"] ["det her"] (DefP Indef) ; - this_NP = regNameNounPhrase ["det her"] NNeutr ; - those_NDet = mkDeterminerPlNum ["de der"] (DefP Indef) ; - thou_NP = pronNounPhrase du_33 ; - through_Prep = ss "igennem" ; - too_Adv = ss "for" ; ---- ? + she_Pron = MorphoDan.mkNP "hun" "hende" "hendes" "hendes" "hendes" SgUtr P3 ; + so_AdA = ss "så" ; + someSg_Det = {s = \\_ => genderForms "nogen" "noget" ; n = Sg ; det = DIndef} ; + somePl_Det = {s = \\_,_ => "nogle" ; n = Pl ; det = DIndef} ; + somebody_NP = regNP "nogen" "nogens" SgUtr ; + something_NP = regNP "noget" "nogets" SgNeutr ; + somewhere_Adv = ss ["et eller annet sted"] ; ---- ? + that_Quant = + {s = table { + Sg => \\_ => genderForms ["den der"] ["det der"] ; + Pl => \\_,_ => ["de der"] + } ; + det = DDef Indef + } ; + that_NP = regNP ["det der"] ["det ders"] SgNeutr ; + there_Adv = ss "der" ; + there7to_Adv = ss "dit" ; + there7from_Adv = ss "derfra" ; + therefore_PConj = ss "derfor" ; + these_NP = regNP ["disse"] ["disses"] Plg ; + they_Pron = MorphoDan.mkNP "de" "dem" "deres" "deres" "deres" Plg P1 ; + this_Quant = + {s = table { + Sg => \\_ => genderForms ["denne"] ["dette"] ; + Pl => \\_,_ => ["disse"] + } ; + det = DDef Indef + } ; + this_NP = regNP ["dette"] ["dettes"] SgNeutr ; + those_NP = regNP ["de der"] ["de ders"] Plg ; + through_Prep = ss "gennem" ; + too_AdA = ss "for" ; to_Prep = ss "til" ; under_Prep = ss "under" ; - very_Adv = ss "meget" ; - want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" nonExist ** - {s1 = [] ; isAux = True} ; --- - we_NP = pronNounPhrase (vi_36) ; - what8many_IP = intPronWhat plural ; - what8one_IP = intPronWhat singular ; + very_AdA = ss "meget" ; + want_VV = + mkV "ville" "vil" nonExist "ville" "villet" "villed" ** + {c2 = [] ; lock_VV = <>} ; + we_Pron = MorphoDan.mkNP "vi" "os" "vores" "vores" "vores" Plg P1 ; + whatSg_IP = {s = \\_ => "hvad" ; gn = SgUtr} ; ---- infl + whatPl_IP = {s = \\_ => "hvilke" ; gn = Plg} ; ---- infl when_IAdv = ss "hvornår" ; when_Subj = ss "når" ; where_IAdv = ss "hver" ; - which8one_IDet = vilkenDet ; - which8many_IDet = mkDeterminerPl "hvilke" IndefP ; - who8many_IP = intPronWho plural ; - who8one_IP = intPronWho singular ; + whichPl_IDet = {s = \\_ => "hvilke" ; n = Pl ; det = DIndef} ; + whichSg_IDet = {s = genderForms "hvilken" "hvilket" ; n = Sg ; det = DIndef} ; + whoSg_IP = {s = vem.s ; gn = SgUtr} ; + whoPl_IP = {s = \\_ => "hvilke" ; gn = Plg} ; why_IAdv = ss "hvorfor" ; without_Prep = ss "uden" ; with_Prep = ss "med" ; - ye_NP = pronNounPhrase (ni_37) ; - you_NP = pronNounPhrase De_38 ; + yes_Phr = ss ["ja"] ; + youSg_Pron = + MorphoDan.mkNP "du" "dig" "din" "dit" "dine" SgUtr P2 ; ---- + youPl_Pron = MorphoDan.mkNP "i" "jer" "jeres" "jeres" "jeres" Plg P2 ; + youPol_Pron = MorphoDan.mkNP "Dere" "Dere" "Deres" "Deres" "Deres" SgUtr P2 ; --- wrong in refl + +-- Auxiliaries that are used repeatedly. + + oper + vem = MorphoDan.mkNP "hvem" "hvem" "hvis" "hvis" "hvis" SgUtr P3 ; } + diff --git a/lib/resource-1.0/danish/VerbDan.gf b/lib/resource/danish/VerbDan.gf similarity index 100% rename from lib/resource-1.0/danish/VerbDan.gf rename to lib/resource/danish/VerbDan.gf diff --git a/lib/resource-1.0/doc/German.dot b/lib/resource/doc/German.dot similarity index 100% rename from lib/resource-1.0/doc/German.dot rename to lib/resource/doc/German.dot diff --git a/lib/resource-1.0/doc/German.png b/lib/resource/doc/German.png similarity index 100% rename from lib/resource-1.0/doc/German.png rename to lib/resource/doc/German.png diff --git a/lib/resource-1.0/doc/Grammar.dot b/lib/resource/doc/Grammar.dot similarity index 100% rename from lib/resource-1.0/doc/Grammar.dot rename to lib/resource/doc/Grammar.dot diff --git a/lib/resource-1.0/doc/Grammar.png b/lib/resource/doc/Grammar.png similarity index 100% rename from lib/resource-1.0/doc/Grammar.png rename to lib/resource/doc/Grammar.png diff --git a/lib/resource-1.0/doc/Lang.dot b/lib/resource/doc/Lang.dot similarity index 100% rename from lib/resource-1.0/doc/Lang.dot rename to lib/resource/doc/Lang.dot diff --git a/lib/resource-1.0/doc/Lang.png b/lib/resource/doc/Lang.png similarity index 100% rename from lib/resource-1.0/doc/Lang.png rename to lib/resource/doc/Lang.png diff --git a/lib/resource/doc/Makefile b/lib/resource/doc/Makefile index 36c699f19..fe776c896 100644 --- a/lib/resource/doc/Makefile +++ b/lib/resource/doc/Makefile @@ -1,56 +1,7 @@ -all: gfdoc htmls gifs +clt: + txt2tags clt2006.txt + htmls clt2006.html +gslt: + txt2tags gslt-sem-2006.txt + htmls gslt-sem-2006.html -htmls: - htmls gf-resource.html - -gfdoc: - gfdoc ../abstract/Categories.gf ; mv ../abstract/Categories.html . - gfdoc ../abstract/Rules.gf ; mv ../abstract/Rules.html . - gfdoc ../abstract/Verbphrase.gf ; mv ../abstract/Verbphrase.html . - gfdoc ../abstract/Clause.gf ; mv ../abstract/Clause.html . - gfdoc ../abstract/Structural.gf ; mv ../abstract/Structural.html . - gfdoc ../abstract/Basic.gf ; mv ../abstract/Basic.html . - gfdoc ../abstract/Time.gf ; mv ../abstract/Time.html . - gfdoc ../abstract/Lang.gf ; mv ../abstract/Lang.html . - gfdoc ../swedish/ParadigmsSwe.gf ; mv ../swedish/ParadigmsSwe.html . - gfdoc ../swedish/VerbsSwe.gf ; mv ../swedish/VerbsSwe.html . - gfdoc ../swedish/BasicSwe.gf ; mv ../swedish/BasicSwe.html . - gfdoc ../english/ParadigmsEng.gf ; mv ../english/ParadigmsEng.html . - gfdoc ../english/VerbsEng.gf ; mv ../english/VerbsEng.html . - gfdoc ../english/BasicEng.gf ; mv ../english/BasicEng.html . - gfdoc ../french/ParadigmsFre.gf ; mv ../french/ParadigmsFre.html . - gfdoc ../french/VerbsFre.gf ; mv ../french/VerbsFre.html . - gfdoc ../french/BasicFre.gf ; mv ../french/BasicFre.html . - - gfdoc ../norwegian/ParadigmsNor.gf ; mv ../norwegian/ParadigmsNor.html . - gfdoc ../norwegian/VerbsNor.gf ; mv ../norwegian/VerbsNor.html . - gfdoc ../norwegian/BasicNor.gf ; mv ../norwegian/BasicNor.html . - - gfdoc ../finnish/ParadigmsFin.gf ; mv ../finnish/ParadigmsFin.html . - gfdoc ../finnish/BasicFin.gf ; mv ../finnish/BasicFin.html . - - gfdoc ../italian/ParadigmsIta.gf ; mv ../italian/ParadigmsIta.html . - gfdoc ../italian/BasicIta.gf ; mv ../italian/BasicIta.html . - gfdoc ../italian/BeschIta.gf ; mv ../italian/BeschIta.html . - - gfdoc ../spanish/ParadigmsSpa.gf ; mv ../spanish/ParadigmsSpa.html . - gfdoc ../spanish/BasicSpa.gf ; mv ../spanish/BasicSpa.html . - gfdoc ../spanish/BeschSpa.gf ; mv ../spanish/BeschSpa.html . - -gifs: api lang scand low - -api: -# echo "pm -printer=graph | wf Resource.dot" | gf ../abstract/Resource.gf - dot -Tgif ResourceVP.dot>Resource.gif - -lang: - echo "pm -printer=graph | wf Lang.dot" | gf ../abstract/Lang.gf - dot -Tgif Lang.dot>Lang.gif - -low: - echo "pm -printer=graph | wf Low.dot" | gf ../english/RulesEng.gf - dot -Tgif Low.dot >Low.gif - -scand: - echo "pm -printer=graph | wf Scand.dot" | gf ../swedish/RulesSwe.gf - dot -Tgif Scand.dot >Scand.gif diff --git a/lib/resource-1.0/doc/Resource-HOWTO.html b/lib/resource/doc/Resource-HOWTO.html similarity index 100% rename from lib/resource-1.0/doc/Resource-HOWTO.html rename to lib/resource/doc/Resource-HOWTO.html diff --git a/lib/resource-1.0/doc/Resource-HOWTO.txt b/lib/resource/doc/Resource-HOWTO.txt similarity index 100% rename from lib/resource-1.0/doc/Resource-HOWTO.txt rename to lib/resource/doc/Resource-HOWTO.txt diff --git a/lib/resource-1.0/doc/Test.png b/lib/resource/doc/Test.png similarity index 100% rename from lib/resource-1.0/doc/Test.png rename to lib/resource/doc/Test.png diff --git a/lib/resource-1.0/doc/clt2006.html b/lib/resource/doc/clt2006.html similarity index 100% rename from lib/resource-1.0/doc/clt2006.html rename to lib/resource/doc/clt2006.html diff --git a/lib/resource-1.0/doc/clt2006.txt b/lib/resource/doc/clt2006.txt similarity index 100% rename from lib/resource-1.0/doc/clt2006.txt rename to lib/resource/doc/clt2006.txt diff --git a/lib/resource-1.0/doc/editor.png b/lib/resource/doc/editor.png similarity index 100% rename from lib/resource-1.0/doc/editor.png rename to lib/resource/doc/editor.png diff --git a/lib/resource-1.0/doc/gf-resource.txt b/lib/resource/doc/gf-resource.txt similarity index 100% rename from lib/resource-1.0/doc/gf-resource.txt rename to lib/resource/doc/gf-resource.txt diff --git a/lib/resource-1.0/doc/gfdoc/Adjective.html b/lib/resource/doc/gfdoc/Adjective.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Adjective.html rename to lib/resource/doc/gfdoc/Adjective.html diff --git a/lib/resource-1.0/doc/gfdoc/Adverb.html b/lib/resource/doc/gfdoc/Adverb.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Adverb.html rename to lib/resource/doc/gfdoc/Adverb.html diff --git a/lib/resource-1.0/doc/gfdoc/Basic.html b/lib/resource/doc/gfdoc/Basic.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Basic.html rename to lib/resource/doc/gfdoc/Basic.html diff --git a/lib/resource-1.0/doc/gfdoc/Cat.html b/lib/resource/doc/gfdoc/Cat.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Cat.html rename to lib/resource/doc/gfdoc/Cat.html diff --git a/lib/resource-1.0/doc/gfdoc/Common.html b/lib/resource/doc/gfdoc/Common.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Common.html rename to lib/resource/doc/gfdoc/Common.html diff --git a/lib/resource-1.0/doc/gfdoc/Conjunction.html b/lib/resource/doc/gfdoc/Conjunction.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Conjunction.html rename to lib/resource/doc/gfdoc/Conjunction.html diff --git a/lib/resource-1.0/doc/gfdoc/Demonstrative.html b/lib/resource/doc/gfdoc/Demonstrative.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Demonstrative.html rename to lib/resource/doc/gfdoc/Demonstrative.html diff --git a/lib/resource-1.0/doc/gfdoc/Grammar.html b/lib/resource/doc/gfdoc/Grammar.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Grammar.html rename to lib/resource/doc/gfdoc/Grammar.html diff --git a/lib/resource-1.0/doc/gfdoc/Idiom.html b/lib/resource/doc/gfdoc/Idiom.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Idiom.html rename to lib/resource/doc/gfdoc/Idiom.html diff --git a/lib/resource-1.0/doc/gfdoc/IrregEng.gf b/lib/resource/doc/gfdoc/IrregEng.gf similarity index 100% rename from lib/resource-1.0/doc/gfdoc/IrregEng.gf rename to lib/resource/doc/gfdoc/IrregEng.gf diff --git a/lib/resource-1.0/doc/gfdoc/IrregFre.gf b/lib/resource/doc/gfdoc/IrregFre.gf similarity index 100% rename from lib/resource-1.0/doc/gfdoc/IrregFre.gf rename to lib/resource/doc/gfdoc/IrregFre.gf diff --git a/lib/resource-1.0/doc/gfdoc/IrregGer.gf b/lib/resource/doc/gfdoc/IrregGer.gf similarity index 100% rename from lib/resource-1.0/doc/gfdoc/IrregGer.gf rename to lib/resource/doc/gfdoc/IrregGer.gf diff --git a/lib/resource-1.0/doc/gfdoc/IrregNor.gf b/lib/resource/doc/gfdoc/IrregNor.gf similarity index 100% rename from lib/resource-1.0/doc/gfdoc/IrregNor.gf rename to lib/resource/doc/gfdoc/IrregNor.gf diff --git a/lib/resource-1.0/doc/gfdoc/IrregSwe.gf b/lib/resource/doc/gfdoc/IrregSwe.gf similarity index 100% rename from lib/resource-1.0/doc/gfdoc/IrregSwe.gf rename to lib/resource/doc/gfdoc/IrregSwe.gf diff --git a/lib/resource-1.0/doc/gfdoc/Lang.html b/lib/resource/doc/gfdoc/Lang.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Lang.html rename to lib/resource/doc/gfdoc/Lang.html diff --git a/lib/resource-1.0/doc/gfdoc/Lex.html b/lib/resource/doc/gfdoc/Lex.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Lex.html rename to lib/resource/doc/gfdoc/Lex.html diff --git a/lib/resource-1.0/doc/gfdoc/ListConjunction.html b/lib/resource/doc/gfdoc/ListConjunction.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ListConjunction.html rename to lib/resource/doc/gfdoc/ListConjunction.html diff --git a/lib/resource-1.0/doc/gfdoc/Mathematical.html b/lib/resource/doc/gfdoc/Mathematical.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Mathematical.html rename to lib/resource/doc/gfdoc/Mathematical.html diff --git a/lib/resource-1.0/doc/gfdoc/Multi.html b/lib/resource/doc/gfdoc/Multi.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Multi.html rename to lib/resource/doc/gfdoc/Multi.html diff --git a/lib/resource-1.0/doc/gfdoc/Multimodal.html b/lib/resource/doc/gfdoc/Multimodal.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Multimodal.html rename to lib/resource/doc/gfdoc/Multimodal.html diff --git a/lib/resource-1.0/doc/gfdoc/Noun.html b/lib/resource/doc/gfdoc/Noun.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Noun.html rename to lib/resource/doc/gfdoc/Noun.html diff --git a/lib/resource-1.0/doc/gfdoc/Numeral.html b/lib/resource/doc/gfdoc/Numeral.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Numeral.html rename to lib/resource/doc/gfdoc/Numeral.html diff --git a/lib/resource-1.0/doc/gfdoc/ParadigmsDan.html b/lib/resource/doc/gfdoc/ParadigmsDan.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ParadigmsDan.html rename to lib/resource/doc/gfdoc/ParadigmsDan.html diff --git a/lib/resource-1.0/doc/gfdoc/ParadigmsDut.html b/lib/resource/doc/gfdoc/ParadigmsDut.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ParadigmsDut.html rename to lib/resource/doc/gfdoc/ParadigmsDut.html diff --git a/lib/resource-1.0/doc/gfdoc/ParadigmsEng.html b/lib/resource/doc/gfdoc/ParadigmsEng.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ParadigmsEng.html rename to lib/resource/doc/gfdoc/ParadigmsEng.html diff --git a/lib/resource-1.0/doc/gfdoc/ParadigmsFin.html b/lib/resource/doc/gfdoc/ParadigmsFin.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ParadigmsFin.html rename to lib/resource/doc/gfdoc/ParadigmsFin.html diff --git a/lib/resource-1.0/doc/gfdoc/ParadigmsFre.html b/lib/resource/doc/gfdoc/ParadigmsFre.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ParadigmsFre.html rename to lib/resource/doc/gfdoc/ParadigmsFre.html diff --git a/lib/resource-1.0/doc/gfdoc/ParadigmsGer.html b/lib/resource/doc/gfdoc/ParadigmsGer.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ParadigmsGer.html rename to lib/resource/doc/gfdoc/ParadigmsGer.html diff --git a/lib/resource-1.0/doc/gfdoc/ParadigmsIta.html b/lib/resource/doc/gfdoc/ParadigmsIta.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ParadigmsIta.html rename to lib/resource/doc/gfdoc/ParadigmsIta.html diff --git a/lib/resource-1.0/doc/gfdoc/ParadigmsNor.html b/lib/resource/doc/gfdoc/ParadigmsNor.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ParadigmsNor.html rename to lib/resource/doc/gfdoc/ParadigmsNor.html diff --git a/lib/resource-1.0/doc/gfdoc/ParadigmsRus.html b/lib/resource/doc/gfdoc/ParadigmsRus.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ParadigmsRus.html rename to lib/resource/doc/gfdoc/ParadigmsRus.html diff --git a/lib/resource-1.0/doc/gfdoc/ParadigmsSpa.html b/lib/resource/doc/gfdoc/ParadigmsSpa.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ParadigmsSpa.html rename to lib/resource/doc/gfdoc/ParadigmsSpa.html diff --git a/lib/resource-1.0/doc/gfdoc/ParadigmsSwe.html b/lib/resource/doc/gfdoc/ParadigmsSwe.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/ParadigmsSwe.html rename to lib/resource/doc/gfdoc/ParadigmsSwe.html diff --git a/lib/resource-1.0/doc/gfdoc/Phrase.html b/lib/resource/doc/gfdoc/Phrase.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Phrase.html rename to lib/resource/doc/gfdoc/Phrase.html diff --git a/lib/resource-1.0/doc/gfdoc/Precedence.html b/lib/resource/doc/gfdoc/Precedence.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Precedence.html rename to lib/resource/doc/gfdoc/Precedence.html diff --git a/lib/resource-1.0/doc/gfdoc/Predef.html b/lib/resource/doc/gfdoc/Predef.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Predef.html rename to lib/resource/doc/gfdoc/Predef.html diff --git a/lib/resource-1.0/doc/gfdoc/PredefAbs.html b/lib/resource/doc/gfdoc/PredefAbs.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/PredefAbs.html rename to lib/resource/doc/gfdoc/PredefAbs.html diff --git a/lib/resource-1.0/doc/gfdoc/Predication.html b/lib/resource/doc/gfdoc/Predication.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Predication.html rename to lib/resource/doc/gfdoc/Predication.html diff --git a/lib/resource-1.0/doc/gfdoc/Prelude.html b/lib/resource/doc/gfdoc/Prelude.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Prelude.html rename to lib/resource/doc/gfdoc/Prelude.html diff --git a/lib/resource-1.0/doc/gfdoc/Question.html b/lib/resource/doc/gfdoc/Question.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Question.html rename to lib/resource/doc/gfdoc/Question.html diff --git a/lib/resource-1.0/doc/gfdoc/Relative.html b/lib/resource/doc/gfdoc/Relative.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Relative.html rename to lib/resource/doc/gfdoc/Relative.html diff --git a/lib/resource-1.0/doc/gfdoc/Sentence.html b/lib/resource/doc/gfdoc/Sentence.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Sentence.html rename to lib/resource/doc/gfdoc/Sentence.html diff --git a/lib/resource-1.0/doc/gfdoc/SeqConjunction.html b/lib/resource/doc/gfdoc/SeqConjunction.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/SeqConjunction.html rename to lib/resource/doc/gfdoc/SeqConjunction.html diff --git a/lib/resource-1.0/doc/gfdoc/Structural.html b/lib/resource/doc/gfdoc/Structural.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Structural.html rename to lib/resource/doc/gfdoc/Structural.html diff --git a/lib/resource-1.0/doc/gfdoc/Symbol.html b/lib/resource/doc/gfdoc/Symbol.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Symbol.html rename to lib/resource/doc/gfdoc/Symbol.html diff --git a/lib/resource-1.0/doc/gfdoc/Tense.html b/lib/resource/doc/gfdoc/Tense.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Tense.html rename to lib/resource/doc/gfdoc/Tense.html diff --git a/lib/resource-1.0/doc/gfdoc/Text.html b/lib/resource/doc/gfdoc/Text.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Text.html rename to lib/resource/doc/gfdoc/Text.html diff --git a/lib/resource-1.0/doc/gfdoc/Verb.html b/lib/resource/doc/gfdoc/Verb.html similarity index 100% rename from lib/resource-1.0/doc/gfdoc/Verb.html rename to lib/resource/doc/gfdoc/Verb.html diff --git a/lib/resource-1.0/doc/gslt-sem-2006.html b/lib/resource/doc/gslt-sem-2006.html similarity index 100% rename from lib/resource-1.0/doc/gslt-sem-2006.html rename to lib/resource/doc/gslt-sem-2006.html diff --git a/lib/resource-1.0/doc/gslt-sem-2006.txt b/lib/resource/doc/gslt-sem-2006.txt similarity index 100% rename from lib/resource-1.0/doc/gslt-sem-2006.txt rename to lib/resource/doc/gslt-sem-2006.txt diff --git a/lib/resource-1.0/doc/index.html b/lib/resource/doc/index.html similarity index 100% rename from lib/resource-1.0/doc/index.html rename to lib/resource/doc/index.html diff --git a/lib/resource-1.0/doc/index.txt b/lib/resource/doc/index.txt similarity index 100% rename from lib/resource-1.0/doc/index.txt rename to lib/resource/doc/index.txt diff --git a/lib/resource-1.0/doc/latin.gf b/lib/resource/doc/latin.gf similarity index 100% rename from lib/resource-1.0/doc/latin.gf rename to lib/resource/doc/latin.gf diff --git a/lib/resource-1.0/doc/official.txt b/lib/resource/doc/official.txt similarity index 100% rename from lib/resource-1.0/doc/official.txt rename to lib/resource/doc/official.txt diff --git a/lib/resource-1.0/english/AdjectiveEng.gf b/lib/resource/english/AdjectiveEng.gf similarity index 100% rename from lib/resource-1.0/english/AdjectiveEng.gf rename to lib/resource/english/AdjectiveEng.gf diff --git a/lib/resource-1.0/english/AdverbEng.gf b/lib/resource/english/AdverbEng.gf similarity index 100% rename from lib/resource-1.0/english/AdverbEng.gf rename to lib/resource/english/AdverbEng.gf diff --git a/lib/resource-1.0/english/CatEng.gf b/lib/resource/english/CatEng.gf similarity index 100% rename from lib/resource-1.0/english/CatEng.gf rename to lib/resource/english/CatEng.gf diff --git a/lib/resource-1.0/english/ConjunctionEng.gf b/lib/resource/english/ConjunctionEng.gf similarity index 100% rename from lib/resource-1.0/english/ConjunctionEng.gf rename to lib/resource/english/ConjunctionEng.gf diff --git a/lib/resource-1.0/english/English.gf b/lib/resource/english/English.gf similarity index 100% rename from lib/resource-1.0/english/English.gf rename to lib/resource/english/English.gf diff --git a/lib/resource-1.0/english/EnglishAbs.gf b/lib/resource/english/EnglishAbs.gf similarity index 100% rename from lib/resource-1.0/english/EnglishAbs.gf rename to lib/resource/english/EnglishAbs.gf diff --git a/lib/resource-1.0/english/ExtraEng.gf b/lib/resource/english/ExtraEng.gf similarity index 100% rename from lib/resource-1.0/english/ExtraEng.gf rename to lib/resource/english/ExtraEng.gf diff --git a/lib/resource-1.0/english/ExtraEngAbs.gf b/lib/resource/english/ExtraEngAbs.gf similarity index 100% rename from lib/resource-1.0/english/ExtraEngAbs.gf rename to lib/resource/english/ExtraEngAbs.gf diff --git a/lib/resource-1.0/english/GrammarEng.gf b/lib/resource/english/GrammarEng.gf similarity index 100% rename from lib/resource-1.0/english/GrammarEng.gf rename to lib/resource/english/GrammarEng.gf diff --git a/lib/resource-1.0/english/IdiomEng.gf b/lib/resource/english/IdiomEng.gf similarity index 100% rename from lib/resource-1.0/english/IdiomEng.gf rename to lib/resource/english/IdiomEng.gf diff --git a/lib/resource-1.0/english/IrregEng.gf b/lib/resource/english/IrregEng.gf similarity index 100% rename from lib/resource-1.0/english/IrregEng.gf rename to lib/resource/english/IrregEng.gf diff --git a/lib/resource-1.0/english/IrregEngAbs.gf b/lib/resource/english/IrregEngAbs.gf similarity index 100% rename from lib/resource-1.0/english/IrregEngAbs.gf rename to lib/resource/english/IrregEngAbs.gf diff --git a/lib/resource/english/LangEng.gf b/lib/resource/english/LangEng.gf index 9fcb86d92..966308a2b 100644 --- a/lib/resource/english/LangEng.gf +++ b/lib/resource/english/LangEng.gf @@ -1,26 +1,10 @@ ---# -path=.:../abstract:../../prelude - --- # -path=.:resource/english:resource/abstract:prelude +--# -path=.:../abstract:../common:prelude concrete LangEng of Lang = - RulesEng, - ClauseEng, - StructuralEng, - BasicEng, - TimeEng, - CountryEng, - MathEng + GrammarEng, + LexiconEng + ** { - ** open Prelude, ParadigmsEng in { +flags startcat = Phr ; unlexer = text ; lexer = text ; -lin - AdvDate d = prefixSS "on" d ; - AdvTime t = prefixSS "at" t ; - NWeekday w = w ; - PNWeekday w = nounPN w ; - - PNCountry x = x ; - ANationality x = x ; - NLanguage x = x ; - -} \ No newline at end of file +} ; diff --git a/lib/resource-1.0/english/LexiconEng.gf b/lib/resource/english/LexiconEng.gf similarity index 100% rename from lib/resource-1.0/english/LexiconEng.gf rename to lib/resource/english/LexiconEng.gf diff --git a/lib/resource/english/MorphoEng.gf b/lib/resource/english/MorphoEng.gf index c87558618..a45a2b82c 100644 --- a/lib/resource/english/MorphoEng.gf +++ b/lib/resource/english/MorphoEng.gf @@ -2,14 +2,15 @@ --1 A Simple English Resource Morphology -- --- Aarne Ranta 2002 +-- Aarne Ranta 2002 -- 2005 -- -- This resource morphology contains definitions needed in the resource --- syntax. It moreover contains the most usual inflectional patterns. --- --- We use the parameter types and word classes defined in $Types.gf$. +-- syntax. To build a lexicon, it is better to use $ParadigmsEng$, which +-- gives a higher-level access to this module. -resource MorphoEng = TypesEng ** open Prelude, (Predef=Predef) in { +resource MorphoEng = ResEng ** open Prelude, (Predef=Predef) in { + + flags optimize=all ; --2 Phonology -- @@ -27,7 +28,6 @@ oper } ; - --2 Nouns -- -- For conciseness and abstraction, we define a worst-case macro for @@ -35,20 +35,7 @@ oper -- only need one string as argument. oper - mkNoun : (_,_,_,_ : Str) -> CommonNoun = - \man,men, mans, mens -> {s = table { - Sg => table {Nom => man ; Gen => mans} ; - Pl => table {Nom => men ; Gen => mens} - }} ; - - nounReg : Str -> CommonNoun = \dog -> - mkNoun dog (dog + "s") (dog + "'s") (dog + "s'"); - - nounS : Str -> CommonNoun = \kiss -> - mkNoun kiss (kiss + "es") (kiss + "'s") (kiss + "es'") ; - - nounY : Str -> CommonNoun = \fl -> - mkNoun (fl + "y") (fl + "ies") (fl + "y's") (fl + "ies'") ; + CommonNoun : Type = {s : Number => Case => Str} ; nounGen : Str -> CommonNoun = \dog -> case last dog of { "y" => nounY "dog" ; @@ -56,27 +43,48 @@ oper _ => nounReg "dog" } ; +-- These are auxiliaries to $nounGen$. + + nounReg : Str -> CommonNoun = \dog -> + mkNoun dog (dog + "s") (dog + "'s") (dog + "s'"); + nounS : Str -> CommonNoun = \kiss -> + mkNoun kiss (kiss + "es") (kiss + "'s") (kiss + "es'") ; + nounY : Str -> CommonNoun = \fl -> + mkNoun (fl + "y") (fl + "ies") (fl + "y's") (fl + "ies'") ; + + --3 Proper names -- -- Regular proper names are inflected with "'s" in the genitive. - nameReg : Str -> Gender -> ProperName = \john,g -> - {s = table {Nom => john ; Gen => john + "'s"} ; g = g} ; + nameReg : Str -> Gender -> {s : Case => Str} = \john,g -> + {s = table {Gen => john + "'s" ; _ => john} ; g = g} ; +--2 Determiners + + mkDeterminer : Number -> Str -> {s : Str ; n : Number} = \n,s -> + {s = s ; n = n} ; --2 Pronouns -- --- Here we define personal and relative pronouns. +-- Here we define personal pronouns. +-- +-- We record the form "mine" and the gender for later use. + + Pronoun : Type = + {s : Case => Str ; a : Agr ; g : Gender} ; mkPronoun : (_,_,_,_ : Str) -> Number -> Person -> Gender -> Pronoun = \I,me,my,mine,n,p,g -> - {s = table {NomP => I ; AccP => me ; GenP => my ; GenSP => mine} ; - n = n ; p = p ; g = g} ; + {s = table {Nom => I ; Acc => me ; Gen => my} ; + a = {n = n ; p = p} ; + g = g + } ; human : Gender = Masc ; --- doesn't matter pronI = mkPronoun "I" "me" "my" "mine" Sg P1 human ; - pronYouSg = mkPronoun "you" "you" "your" "yours" Sg P2 human ; -- verb form still OK + pronYouSg = mkPronoun "you" "you" "your" "yours" Sg P2 human ; -- verb agr OK pronHe = mkPronoun "he" "him" "his" "his" Sg P3 Masc ; pronShe = mkPronoun "she" "her" "her" "hers" Sg P3 Fem ; pronIt = mkPronoun "it" "it" "its" "it" Sg P3 Neutr ; @@ -85,128 +93,68 @@ oper pronYouPl = mkPronoun "you" "you" "your" "yours" Pl P2 human ; pronThey = mkPronoun "they" "them" "their" "theirs" Pl P3 human ; --- --- Relative pronouns in the accusative have the 'no pronoun' variant. --- The simple pronouns do not really depend on number. - - relPron : RelPron = {s = table { - Neutr => \\_ => table { - NomP => variants {"that" ; "which"} ; - AccP => variants {"that" ; "which" ; []} ; - GenP => variants {"whose"} ; - GenSP => variants {"which"} - } ; - _ => \\_ => table { - NomP => variants {"that" ; "who"} ; - AccP => variants {"that" ; "who" ; "whom" ; []} ; - GenP => variants {"whose"} ; - GenSP => variants {"whom"} - } - } - } ; - - ---3 Determiners --- --- We have just a heuristic definition of the indefinite article. --- There are lots of exceptions: consonantic "e" ("euphemism"), consonantic --- "o" ("one-sided"), vocalic "u" ("umbrella"). - - artIndef = pre {"a" ; - "an" / strs {"a" ; "e" ; "i" ; "o" ; "A" ; "E" ; "I" ; "O" }} ; - - artDef = "the" ; --2 Adjectives -- -- To form the adjectival and the adverbial forms, two strings are needed --- in the worst case. +-- in the worst case. (First without degrees.) - mkAdjective : Str -> Str -> Adjective = \free,freely -> { - s = table { - AAdj => free ; - AAdv => freely - } - } ; - --- However, the ending "iy" is sufficient for most cases. This function --- automatically changes the word-final "y" to "i" ("happy" - "happily"). + Adjective = {s : AForm => Str} ; + +-- However, most adjectives can be inflected using the final character. -- N.B. this is not correct for "shy", but $mkAdjective$ has to be used. regAdjective : Str -> Adjective = \free -> let - y = Predef.dp 1 free - in mkAdjective - free - (ifTok Str y "y" (Predef.tk 1 free + ("ily")) (free + "ly")) ; - --- For the comparison of adjectives, six forms are needed to cover all cases. --- But there is no adjective that actually needs all these. - - mkAdjDegrWorst : (_,_,_,_,_,_ : Str) -> AdjDegr = - \good,well,better,betterly,best,bestly -> - {s = table { - Pos => (mkAdjective good well).s ; - Comp => (mkAdjective better betterly).s ; - Sup => (mkAdjective best bestly).s - } - } ; - --- What is usually needed for irregular comparisons are just three forms, --- since the adverbial form is the same (in comparative or superlative) --- or formed in the regular way (positive). - - adjDegrIrreg : (_,_,_ : Str) -> AdjDegr = \bad,worse,worst -> - let badly = (regAdjective bad).s ! AAdv - in mkAdjDegrWorst bad badly worse worse worst worst ; - --- Like above, the regular formation takes account of final "y". - - adjDegrReg : Str -> AdjDegr = \happy -> - let happi = ifTok Str (Predef.dp 1 happy) "y" (Predef.tk 1 happy + "i") happy - in adjDegrIrreg happy (happi + "er") (happi + "est") ; + e = last free ; + fre = init free ; + freely = case e of { + "y" => fre + "ily" ; + _ => free + "ly" + } ; + fre = case e of { + "e" => fre ; + "y" => fre + "i" ; + _ => free + } + in + mkAdjective free (fre + "er") (fre + "est") freely ; -- Many adjectives are 'inflected' by adding a comparison word. - adjDegrLong : Str -> AdjDegr = \ridiculous -> - adjDegrIrreg ridiculous ("more" ++ ridiculous) ("most" ++ ridiculous) ; + adjDegrLong : Str -> Adjective = \ridiculous -> + mkAdjective + ridiculous + ("more" ++ ridiculous) + ("most" ++ ridiculous) + ((regAdjective ridiculous).s ! AAdv) ; --3 Verbs -- --- Except for "be", the worst case needs four forms. +-- The worst case needs five forms. (The verb "be" is treated separately.) - mkVerbP3worst : (_,_,_,_,_: Str) -> VerbP3 = \go,goes,went,gone,going -> - {s = table { - InfImp => go ; - Indic Sg => goes ; - Indic _ => go ; - Pastt => went ; - PPart => gone ; - PresPart => going - } - } ; - - mkVerbP3 : (_,_,_,_: Str) -> VerbP3 = \go,goes,went,gone -> + mkVerb4 : (_,_,_,_: Str) -> Verb = \go,goes,went,gone -> let going = case last go of { "e" => init go + "ing" ; _ => go + "ing" } in - mkVerbP3worst go goes went gone going ; + mkVerb go goes went gone going ; -- This is what we use to derive the irregular forms in almost all cases - mkVerbIrreg : (_,_,_ : Str) -> VerbP3 = \bite,bit,bitten -> + mkVerbIrreg : (_,_,_ : Str) -> Verb = \bite,bit,bitten -> let bites = case last bite of { "y" => y2ie bite "s" ; "s" => init bite + "es" ; _ => bite + "s" } - in mkVerbP3 bite bites bit bitten ; + in mkVerb4 bite bites bit bitten ; -- This is used to derive regular forms. - mkVerbReg : Str -> VerbP3 = \soak -> + mkVerbReg : Str -> Verb = \soak -> let soaks = case last soak of { "y" => y2ie soak "s" ; @@ -218,124 +166,33 @@ oper _ => soak + "ed" } in - mkVerbP3 soak soaks soaked soaked ; + mkVerb4 soak soaks soaked soaked ; - mkVerb : (_,_,_ : Str) -> VerbP3 = \ring,rang,rung -> - mkVerbP3 ring (ring + "s") rang rung ; - - regVerbP3 : Str -> VerbP3 = \walk -> - mkVerb walk (walk + "ed") (walk + "ed") ; - - verbP3s : Str -> VerbP3 = \kiss -> - mkVerbP3 kiss (kiss + "es") (kiss + "ed") (kiss + "ed") ; - - verbP3e : Str -> VerbP3 = \love -> - mkVerbP3 love (love + "s") (love + "d") (love + "d") ; - - verbP3y : Str -> VerbP3 = \cr -> - mkVerbP3 (cr + "y") (cr + "ies") (cr + "ied") (cr + "ied") ; - - verbGen : Str -> VerbP3 = \kill -> case last kill of { + verbGen : Str -> Verb = \kill -> case last kill of { "y" => verbP3y (init kill) ; - "e" => verbP3y (init kill) ; + "e" => verbP3e (init kill) ; "s" => verbP3s (init kill) ; _ => regVerbP3 kill } ; - verbP3Have = mkVerbP3 "have" "has" "had" "had" ; +-- These are just auxiliary to $verbGen$. - verbP3Do = mkVerbP3 "do" "does" "did" "done" ; + regVerbP3 : Str -> Verb = \walk -> + mkVerbIrreg walk (walk + "ed") (walk + "ed") ; + verbP3s : Str -> Verb = \kiss -> + mkVerb4 kiss (kiss + "es") (kiss + "ed") (kiss + "ed") ; + verbP3e : Str -> Verb = \love -> + mkVerb4 love (love + "s") (love + "d") (love + "d") ; + verbP3y : Str -> Verb = \cr -> + mkVerb4 (cr + "y") (cr + "ies") (cr + "ied") (cr + "ied") ; - auxVerbBe : AuxVerb = {s = table { - AInfImp => "be" ; - AIndic P1 b => if_then_Str b "am" ["am not"] ; - AIndic P2 b => negAux b "are" ; - AIndic P3 b => negAux b "is" ; - APastt Sg b => negAux b "was" ; - APastt Pl b => negAux b "were" ; - APPart => "been" ; - APresPart => "being" - } - } ; +--- The particle always appears right after the verb. --- The negative forms are not used; ---- the particle $want.s1$ disappears - is it ever needed? + verbPart : Verb -> Str -> Verb = \v,p -> + {s = \\f => v.s ! f ++ p ; isRefl = v.isRefl} ; - verb2aux : Verb -> AuxVerb = \want -> {s = table { - AInfImp => want.s ! InfImp ; - AIndic P3 b => want.s ! Indic Sg ; - AIndic _ b => want.s ! Indic Pl ; - APastt _ b => want.s ! Pastt ; - APPart => want.s ! PPart ; - APresPart => want.s ! PresPart - } - } ; + verbNoPart : Verb -> Verb = \v -> verbPart v [] ; - aux2verb : AuxVerb -> Verb = \want -> {s = table { - InfImp => want.s ! AInfImp ; - Indic Sg => want.s ! AIndic P3 True ; - Indic _ => want.s ! AIndic P2 True ; - Pastt => want.s ! APastt Pl True ; - PPart => want.s ! APPart ; - PresPart => want.s ! APresPart - } ; - s1 = [] - } ; - --- The three most important example auxiliaries. - - mkVerbAux : (_,_,_,_: Str) -> AuxVerb = \beable, can, could, beenable -> - {s = table { - AInfImp => beable ; - AIndic _ b => negAux b can ; - APastt _ b => negAux b could ; - APPart => beenable ; - APrepPart => nonExist ---- fix! - } ; - } ; - - - verbPart : VerbP3 -> Particle -> Verb = \v,p -> - v ** {s1 = p} ; - - verbNoPart : VerbP3 -> Verb = \v -> verbPart v [] ; - - negAux : Bool -> Str -> Str = \b,is -> if_then_Str b is (is + "n't") ; - --- The optional negation contraction is a useful macro e.g. for "do". - - contractNot : Str -> Str = \is -> variants {is ++ "not" ; is + "n't"} ; - - dont = contractNot (verbP3Do.s ! InfImp) ; - --- From $numerals$. - -param - DForm = unit | teen | ten ; - CardOrd = NCard | NOrd ; - -oper - mkNum : Str -> Str -> Str -> Str -> {s : DForm => CardOrd => Str} = - \two -> \twelve -> \twenty -> \second -> - {s = table { - unit => table {NCard => two ; NOrd => second} ; - teen => \\c => mkCard c twelve ; - ten => \\c => mkCard c twenty - } - } ; - - regNum : Str -> {s : DForm => CardOrd => Str} = - \six -> mkNum six (six + "teen") (six + "ty") (regOrd six) ; - - regCardOrd : Str -> {s : CardOrd => Str} = \ten -> - {s = table {NCard => ten ; NOrd => regOrd ten}} ; - - mkCard : CardOrd -> Str -> Str = \c,ten -> (regCardOrd ten).s ! c ; - - regOrd : Str -> Str = \ten -> case last ten of { - "y" => init ten + "ieth" ; - _ => ten + "th" - } ; } ; diff --git a/lib/resource-1.0/english/NounEng.gf b/lib/resource/english/NounEng.gf similarity index 100% rename from lib/resource-1.0/english/NounEng.gf rename to lib/resource/english/NounEng.gf diff --git a/lib/resource-1.0/english/NumeralEng.gf b/lib/resource/english/NumeralEng.gf similarity index 100% rename from lib/resource-1.0/english/NumeralEng.gf rename to lib/resource/english/NumeralEng.gf diff --git a/lib/resource/english/ParadigmsEng.gf b/lib/resource/english/ParadigmsEng.gf index aff5b0a47..d03c3e2b9 100644 --- a/lib/resource/english/ParadigmsEng.gf +++ b/lib/resource/english/ParadigmsEng.gf @@ -1,10 +1,10 @@ ---# -path=.:../abstract:../../prelude +--# -path=.:../abstract:../../prelude:../common --1 English Lexical Paradigms -- --- Aarne Ranta 2003 +-- Aarne Ranta 2003--2005 -- --- This is an API to the user of the resource grammar +-- This is an API for the user of the resource grammar -- for adding lexical items. It gives functions for forming -- expressions of open categories: nouns, adjectives, verbs. -- @@ -21,13 +21,15 @@ -- regular cases. Then we give a worst-case function $mkC$, which serves as an -- escape to construct the most irregular words of type $C$. -- However, this function should only seldom be needed: we have a --- separate module $IrregularEng$, which covers all irregularly inflected --- words. --- --- The following modules are presupposed: +-- separate module [``IrregEng`` ../../english/IrregEng.gf], +-- which covers irregular verbss. -resource ParadigmsEng = open (Predef=Predef), Prelude, SyntaxEng, - CategoriesEng, RulesEng in { +resource ParadigmsEng = open + (Predef=Predef), + Prelude, + MorphoEng, + CatEng + in { --2 Parameters -- -- To abstract over gender names, we define the following identifiers. @@ -38,7 +40,6 @@ oper human : Gender ; nonhuman : Gender ; masculine : Gender ; - feminite : Gender ; -- To abstract over number names, we define the following. @@ -55,13 +56,13 @@ oper genitive : Case ; -- Prepositions are used in many-argument functions for rection. +-- The resource category $Prep$ is used. - Preposition : Type ; --2 Nouns --- Worst case: give all four forms and the semantic gender. +-- Worst case: give all four forms. mkN : (man,men,man's,men's : Str) -> N ; @@ -83,27 +84,29 @@ oper --3 Compound nouns -- --- All the functions above work quite as well to form compound nouns, --- such as "baby boom". +-- A compound noun ia an uninflected string attached to an inflected noun, +-- such as "baby boom", "chief executive officer". + + compoundN : Str -> N -> N ; --3 Relational nouns -- -- Relational nouns ("daughter of x") need a preposition. - mkN2 : N -> Preposition -> N2 ; + mkN2 : N -> Prep -> N2 ; -- The most common preposition is "of", and the following is a --- shortcut for regular, $nonhuman$ relational nouns with "of". +-- shortcut for regular relational nouns with "of". regN2 : Str -> N2 ; --- Use the function $mkPreposition$ or see the section on prepositions below to +-- Use the function $mkPrep$ or see the section on prepositions below to -- form other prepositions. -- -- Three-place relational nouns ("the connection from x to y") need two prepositions. - mkN3 : N -> Preposition -> Preposition -> N3 ; + mkN3 : N -> Prep -> Prep -> N3 ; --3 Relational common noun phrases @@ -111,15 +114,16 @@ oper -- In some cases, you may want to make a complex $CN$ into a -- relational noun (e.g. "the old town hall of"). - cnN2 : CN -> Preposition -> N2 ; - cnN3 : CN -> Preposition -> Preposition -> N3 ; + cnN2 : CN -> Prep -> N2 ; + cnN3 : CN -> Prep -> Prep -> N3 ; -- --3 Proper names and noun phrases -- -- Proper names, with a regular genitive, are formed as follows - regPN : Str -> Gender -> PN ; -- John, John's + regPN : Str -> PN ; + regGenPN : Str -> Gender -> PN ; -- John, John's -- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". @@ -146,10 +150,12 @@ oper -- -- Two-place adjectives need a preposition for their second argument. - mkA2 : A -> Preposition -> A2 ; + mkA2 : A -> Prep -> A2 ; -- Comparison adjectives may two more forms. + ADeg : Type ; + mkADeg : (good,better,best,well : Str) -> ADeg ; -- The regular pattern recognizes two common variations: @@ -163,7 +169,7 @@ oper duplADeg : Str -> ADeg ; -- fat, fatter, fattest --- If comparison is formed by "more, "most", as in general for +-- If comparison is formed by "more", "most", as in general for -- long adjective, the following pattern is used: compoundADeg : A -> ADeg ; -- -/more/most ridiculous @@ -190,8 +196,8 @@ oper -- A preposition as used for rection in the lexicon, as well as to -- build $PP$s in the resource API, just requires a string. - mkPreposition : Str -> Preposition ; - mkPrep : Str -> Prep ; + mkPrep : Str -> Prep ; + noPrep : Prep ; -- (These two functions are synonyms.) @@ -229,12 +235,18 @@ oper partV : V -> Str -> V ; +--3 Reflexive verbs +-- +-- By default, verbs are not reflexive; this function makes them that. + + reflV : V -> V ; + --3 Two-place verbs -- -- Two-place verbs need a preposition, except the special case with direct object. -- (transitive verbs). Notice that a particle comes from the $V$. - mkV2 : V -> Preposition -> V2 ; + mkV2 : V -> Prep -> V2 ; dirV2 : V -> V2 ; @@ -243,9 +255,9 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Str -> Str -> V3 ; -- speak, with, about - dirV3 : V -> Str -> V3 ; -- give,_,to - dirdirV3 : V -> V3 ; -- give,_,_ + mkV3 : V -> Prep -> Prep -> V3 ; -- speak, with, about + dirV3 : V -> Prep -> V3 ; -- give,_,to + dirdirV3 : V -> V3 ; -- give,_,_ --3 Other complement patterns -- @@ -254,29 +266,36 @@ oper mkV0 : V -> V0 ; mkVS : V -> VS ; - mkV2S : V -> Str -> V2S ; + mkV2S : V -> Prep -> V2S ; mkVV : V -> VV ; - mkV2V : V -> Str -> Str -> V2V ; + mkV2V : V -> Prep -> Prep -> V2V ; mkVA : V -> VA ; - mkV2A : V -> Str -> V2A ; + mkV2A : V -> Prep -> V2A ; mkVQ : V -> VQ ; - mkV2Q : V -> Str -> V2Q ; + mkV2Q : V -> Prep -> V2Q ; mkAS : A -> AS ; - mkA2S : A -> Str -> A2S ; + mkA2S : A -> Prep -> A2S ; mkAV : A -> AV ; - mkA2V : A -> Str -> A2V ; + mkA2V : A -> Prep -> A2V ; +-- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated +-- just as synonyms of $V2$, and the second argument is given +-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. +-- $V0$ is just $V$. + V0, V2S, V2V, V2A, V2Q : Type ; + AS, A2S, AV, A2V : Type ; + +--. --2 Definitions of paradigms -- -- The definitions should not bother the user of the API. So they are -- hidden from the document. ---. - Gender = SyntaxEng.Gender ; - Number = SyntaxEng.Number ; - Case = SyntaxEng.Case ; + Gender = MorphoEng.Gender ; + Number = MorphoEng.Number ; + Case = MorphoEng.Case ; human = Masc ; nonhuman = Neutr ; masculine = Masc ; @@ -286,7 +305,7 @@ oper nominative = Nom ; genitive = Gen ; - Preposition = Str ; + Preposition : Type = Str ; -- obsolete regN = \ray -> let @@ -318,27 +337,32 @@ oper mkN man men (man + "'s") mens ; mkN = \man,men,man's,men's -> - mkNoun man men man's men's ** {g = Neutr ; lock_N = <>} ; + mkNoun man man's men men's ** {g = Neutr ; lock_N = <>} ; genderN g man = {s = man.s ; g = g ; lock_N = <>} ; - mkN2 = \n,p -> UseN n ** {lock_N2 = <> ; s2 = p} ; - regN2 n = mkN2 (regN n) (mkPreposition "of") ; - mkN3 = \n,p,q -> UseN n ** {lock_N3 = <> ; s2 = p ; s3 = q} ; - cnN2 = \n,p -> n ** {lock_N2 = <> ; s2 = p} ; - cnN3 = \n,p,q -> n ** {lock_N3 = <> ; s2 = p ; s3 = q} ; + compoundN s n = {s = \\x,y => s ++ n.s ! x ! y ; g=n.g ; lock_N = <>} ; - regPN n g = nameReg n g ** {lock_PN = <>} ; + mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p.s} ; + regN2 n = mkN2 (regN n) (mkPrep "of") ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ; + cnN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p.s} ; + cnN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ; + + regPN n = regGenPN n human ; + regGenPN n g = nameReg n g ** {lock_PN = <>} ; nounPN n = {s = n.s ! singular ; g = n.g ; lock_PN = <>} ; - mkNP x y n g = {s = table {GenP => x ; _ => y} ; a = toAgr n P3 g ; + mkNP x y n g = {s = table {Gen => x ; _ => y} ; a = agrP3 n ; lock_NP = <>} ; - mkA a b = mkAdjective a b ** {lock_A = <>} ; + mkA a b = mkAdjective a a a b ** {lock_A = <>} ; regA a = regAdjective a ** {lock_A = <>} ; - mkA2 a p = a ** {s2 = p ; lock_A2 = <>} ; + mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ; - mkADeg a b c d = mkAdjDegrWorst a b c c d d ** {lock_ADeg = <>} ; + ADeg = A ; ---- + + mkADeg a b c d = mkAdjective a b c d ** {lock_A = <>} ; regADeg happy = let @@ -353,22 +377,26 @@ oper "y" => happ + "ily" ; _ => happy + "ly" } ; - in mkADeg happy happily (happie + "r") (happie + "st") ; + in mkADeg happy (happie + "r") (happie + "st") happily ; - duplADeg fat = mkADeg fat - (fat + "ly") (fat + last fat + "er") (fat + last fat + "est") ; - compoundADeg a = let ad = (a.s ! AAdj) in - mkADeg ad (a.s ! AAdv) ("more" ++ ad) ("most" ++ ad) ; - adegA a = {s = a.s ! Pos ; lock_A = <>} ; + duplADeg fat = + mkADeg fat + (fat + last fat + "er") (fat + last fat + "est") (fat + "ly") ; + + compoundADeg a = + let ad = (a.s ! AAdj Posit) + in mkADeg ad ("more" ++ ad) ("most" ++ ad) (a.s ! AAdv) ; + + adegA a = a ; mkAdv x = ss x ** {lock_Adv = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ; mkAdA x = ss x ** {lock_AdA = <>} ; - mkPreposition p = p ; mkPrep p = ss p ** {lock_Prep = <>} ; + noPrep = mkPrep [] ; - mkV a b c d e = mkVerbP3worst a b c d e ** {s1 = [] ; lock_V = <>} ; + mkV a b c d e = mkVerb a b c d e ** {s1 = [] ; lock_V = <>} ; regV cry = let @@ -394,36 +422,46 @@ oper mkV fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing") ; irregV x y z = let reg = (regV x).s in - mkV x (reg ! Indic Sg) y z (reg ! PresPart) ** {s1 = [] ; lock_V = <>} ; + mkV x (reg ! VPres) y z (reg ! VPresPart) ** {s1 = [] ; lock_V = <>} ; irregDuplV fit y z = let - fitting = (regDuplV fit).s ! PresPart + fitting = (regDuplV fit).s ! VPresPart in mkV fit (fit + "s") y z fitting ; - partV v p = {s = v.s ; s1 = p ; lock_V = <>} ; + partV v p = verbPart v p ** {lock_V = <>} ; + reflV v = {s = v.s ; part = v.part ; lock_V = v.lock_V ; isRefl = True} ; - mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; s3 = p ; lock_V2 = <>} ; - dirV2 v = mkV2 v [] ; + mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; c2 = p.s ; lock_V2 = <>} ; + dirV2 v = mkV2 v noPrep ; - mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; s3 = p ; s4 = q ; lock_V3 = <>} ; - dirV3 v p = mkV3 v [] p ; - dirdirV3 v = dirV3 v [] ; + mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; c2 = p.s ; c3 = q.s ; lock_V3 = <>} ; + dirV3 v p = mkV3 v noPrep p ; + dirdirV3 v = dirV3 v noPrep ; - mkV0 v = v ** {lock_V0 = <>} ; mkVS v = v ** {lock_VS = <>} ; - mkV2S v p = mkV2 v p ** {lock_V2S = <>} ; - mkVV v = verb2aux v ** {isAux = False ; lock_VV = <>} ; - mkV2V v p t = mkV2 v p ** {s4 = t ; lock_V2V = <>} ; + mkVV v = { + s = table {VVF vf => v.s ! vf ; _ => variants {}} ; + isAux = False ; lock_VV = <> + } ; + mkVQ v = v ** {lock_VQ = <>} ; + + V0 : Type = V ; + V2S, V2V, V2Q, V2A : Type = V2 ; + AS, A2S, AV : Type = A ; + A2V : Type = A2 ; + + mkV0 v = v ** {lock_V = <>} ; + mkV2S v p = mkV2 v p ** {lock_V2 = <>} ; + mkV2V v p t = mkV2 v p ** {s4 = t ; lock_V2 = <>} ; mkVA v = v ** {lock_VA = <>} ; mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; - mkVQ v = v ** {lock_VQ = <>} ; - mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; + mkV2Q v p = mkV2 v p ** {lock_V2 = <>} ; - mkAS v = v ** {lock_AS = <>} ; - mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; - mkAV v = v ** {lock_AV = <>} ; - mkA2V v p = mkA2 v p ** {lock_A2V = <>} ; + mkAS v = v ** {lock_A = <>} ; + mkA2S v p = mkA2 v p ** {lock_A = <>} ; + mkAV v = v ** {lock_A = <>} ; + mkA2V v p = mkA2 v p ** {lock_A2 = <>} ; } ; diff --git a/lib/resource-1.0/english/PhraseEng.gf b/lib/resource/english/PhraseEng.gf similarity index 100% rename from lib/resource-1.0/english/PhraseEng.gf rename to lib/resource/english/PhraseEng.gf diff --git a/lib/resource-1.0/english/QuestionEng.gf b/lib/resource/english/QuestionEng.gf similarity index 100% rename from lib/resource-1.0/english/QuestionEng.gf rename to lib/resource/english/QuestionEng.gf diff --git a/lib/resource-1.0/english/RelativeEng.gf b/lib/resource/english/RelativeEng.gf similarity index 100% rename from lib/resource-1.0/english/RelativeEng.gf rename to lib/resource/english/RelativeEng.gf diff --git a/lib/resource-1.0/english/ResEng.gf b/lib/resource/english/ResEng.gf similarity index 100% rename from lib/resource-1.0/english/ResEng.gf rename to lib/resource/english/ResEng.gf diff --git a/lib/resource-1.0/english/SentenceEng.gf b/lib/resource/english/SentenceEng.gf similarity index 100% rename from lib/resource-1.0/english/SentenceEng.gf rename to lib/resource/english/SentenceEng.gf diff --git a/lib/resource/english/StructuralEng.gf b/lib/resource/english/StructuralEng.gf index d6f318c03..86be7cd82 100644 --- a/lib/resource/english/StructuralEng.gf +++ b/lib/resource/english/StructuralEng.gf @@ -1,101 +1,116 @@ ---# -path=.:../abstract:../../prelude - ---1 The Top-Level English Resource Grammar: Structural Words --- --- Aarne Ranta 2002 -- 2003 --- -concrete StructuralEng of Structural = - CategoriesEng, NumeralsEng ** open Prelude, SyntaxEng in { +concrete StructuralEng of Structural = CatEng ** + open MorphoEng, (P = ParadigmsEng), Prelude in { flags optimize=all ; lin - UseNumeral i = { - s = table {Nom => i.s ! NCard ; Gen => i.s ! NCard ++ "'s"} ; n = i.n} ; --- - - above_Prep = ss "above" ; after_Prep = ss "after" ; - all8mass_Det = mkDeterminer Sg "all" ; --- all the missing - all_NDet = mkDeterminerNum "all" ; - almost_Adv = ss "almost" ; + all_Predet = ss "all" ; + almost_AdA, almost_AdN = ss "almost" ; although_Subj = ss "although" ; + always_AdV = ss "always" ; and_Conj = ss "and" ** {n = Pl} ; because_Subj = ss "because" ; before_Prep = ss "before" ; behind_Prep = ss "behind" ; between_Prep = ss "between" ; - both_AndConjD = sd2 "both" "and" ** {n = Pl} ; + both7and_DConj = sd2 "both" "and" ** {n = Pl} ; + but_PConj = ss "but" ; by8agent_Prep = ss "by" ; by8means_Prep = ss "by" ; - can8know_VV = vvCan ; - can_VV = vvCan ; + can8know_VV, can_VV = { + s = table VVForm [["be able to"] ; "can" ; ["been able to"] ; + ["being able to"] ; "could" ; "can't" ; "couldn't"] ; + isAux = True + } ; during_Prep = ss "during" ; - either8or_ConjD = sd2 "either" "or" ** {n = Sg} ; - everybody_NP = nameNounPhrase (nameReg "everybody" human) ; - every_Det = everyDet ; - everything_NP = nameNounPhrase (nameReg "everything" Neutr) ; + either7or_DConj = sd2 "either" "or" ** {n = Sg} ; + everybody_NP = regNP "everybody" Sg ; + every_Det = mkDeterminer Sg "every" ; + everything_NP = regNP "everything" Sg ; everywhere_Adv = ss "everywhere" ; + few_Det = mkDeterminer Pl "few" ; + first_Ord = ss "first" ; from_Prep = ss "from" ; - he_NP = pronNounPhrase pronHe ; + he_Pron = mkNP "he" "him" "his" Sg P3 ; + here_Adv = ss "here" ; + here7to_Adv = ss ["to here"] ; + here7from_Adv = ss ["from here"] ; how_IAdv = ss "how" ; how8many_IDet = mkDeterminer Pl ["how many"] ; if_Subj = ss "if" ; in8front_Prep = ss ["in front of"] ; - i_NP = pronNounPhrase pronI ; + i_Pron = mkNP "I" "me" "my" Sg P1 ; in_Prep = ss "in" ; - it_NP = pronNounPhrase pronIt ; + it_Pron = mkNP "it" "it" "its" Sg P3 ; + less_CAdv = ss "less" ; many_Det = mkDeterminer Pl "many" ; - most_Det = mkDeterminer Sg "most" ; - most8many_Det = mostDet ; - much_Det = mkDeterminer Sg ["a lot of"] ; --- - must_VV = vvMust ; - - no_Phr = ss "No." ; + more_CAdv = ss "more" ; + most_Predet = ss "most" ; + much_Det = mkDeterminer Sg "much" ; + must_VV = { + s = table VVForm [["have to"] ; "must" ; ["had to"] ; + ["having to"] ; ["had to"] ; "mustn't" ; ["hadn't to"]] ; ---- + isAux = True + } ; + no_Phr = ss "no" ; on_Prep = ss "on" ; + one_Quant = mkDeterminer Sg "one" ; + only_Predet = ss "only" ; or_Conj = ss "or" ** {n = Sg} ; - otherwise_Adv = ss "otherwise" ; + otherwise_PConj = ss "otherwise" ; part_Prep = ss "of" ; + please_Voc = ss "please" ; possess_Prep = ss "of" ; quite_Adv = ss "quite" ; - she_NP = pronNounPhrase pronShe ; - so_Adv = ss "so" ; - somebody_NP = nameNounPhrase (nameReg "somebody" human) ; - some_Det = mkDeterminer Sg "some" ; - some_NDet = mkDeterminerNum "some" ; - something_NP = nameNounPhrase (nameReg "something" Neutr) ; + she_Pron = mkNP "she" "her" "her" Sg P3 ; + so_AdA = ss "so" ; + somebody_NP = regNP "somebody" Sg ; + someSg_Det = mkDeterminer Sg "some" ; + somePl_Det = mkDeterminer Pl "some" ; + something_NP = regNP "something" Sg ; somewhere_Adv = ss "somewhere" ; - that_Det = mkDeterminer Sg "that" ; - that_NP = nameNounPhrase (nameReg "that" Neutr) ; - therefore_Adv = ss "therefore" ; - these_NDet = mkDeterminerNum "these" ; - they8fem_NP = pronNounPhrase pronThey ; - they_NP = pronNounPhrase pronThey ; - this_Det = mkDeterminer Sg "this" ; - this_NP = nameNounPhrase (nameReg "this" Neutr) ; - those_NDet = mkDeterminerNum "those" ; - thou_NP = pronNounPhrase pronYouSg ; + that_Quant = mkQuant "that" "those" ; + that_NP = regNP "that" Sg ; + there_Adv = ss "there" ; + there7to_Adv = ss "there" ; + there7from_Adv = ss ["from there"] ; + therefore_PConj = ss "therefore" ; + these_NP = regNP "these" Pl ; + they_Pron = mkNP "they" "them" "their" Pl P3 ; + this_Quant = mkQuant "this" "these" ; + this_NP = regNP "this" Sg ; + those_NP = regNP "those" Pl ; through_Prep = ss "through" ; - too_Adv = ss "too" ; + too_AdA = ss "too" ; to_Prep = ss "to" ; under_Prep = ss "under" ; - very_Adv = ss "very" ; - want_VV = verb2aux (verbNoPart (regVerbP3 "want")) ** {isAux = False} ; - we_NP = pronNounPhrase pronWe ; - what8many_IP = intPronWhat plural ; - what8one_IP = intPronWhat singular ; + very_AdA = ss "very" ; + want_VV = P.mkVV (P.regV "want") ; + we_Pron = mkNP "we" "us" "our" Pl P1 ; + whatPl_IP = mkIP "what" "what" "what's" Sg ; + whatSg_IP = mkIP "what" "what" "what's" Sg ; when_IAdv = ss "when" ; when_Subj = ss "when" ; where_IAdv = ss "where" ; - which8many_IDet = mkDeterminer Pl ["which"] ; - which8one_IDet = mkDeterminer Sg ["which"] ; - who8many_IP = intPronWho plural ; - who8one_IP = intPronWho singular ; + whichPl_IDet = mkDeterminer Pl ["which"] ; + whichSg_IDet = mkDeterminer Sg ["which"] ; + whoSg_IP = mkIP "who" "whom" "whose" Sg ; + whoPl_IP = mkIP "who" "whom" "whose" Pl ; why_IAdv = ss "why" ; without_Prep = ss "without" ; with_Prep = ss "with" ; - ye_NP = pronNounPhrase pronYouPl ; - you_NP = pronNounPhrase pronYouSg ; - yes_Phr = ss "Yes." ; + yes_Phr = ss "yes" ; + youSg_Pron = mkNP "you" "you" "your" Sg P2 ; + youPl_Pron = mkNP "you" "you" "your" Pl P2 ; + youPol_Pron = mkNP "you" "you" "your" Sg P2 ; + + +oper + mkQuant : Str -> Str -> {s : Number => Str} = \x,y -> { + s = table Number [x ; y] + } ; } + diff --git a/lib/resource-1.0/english/VerbEng.gf b/lib/resource/english/VerbEng.gf similarity index 100% rename from lib/resource-1.0/english/VerbEng.gf rename to lib/resource/english/VerbEng.gf diff --git a/lib/resource-1.0/exper/Adj.cf b/lib/resource/exper/Adj.cf similarity index 100% rename from lib/resource-1.0/exper/Adj.cf rename to lib/resource/exper/Adj.cf diff --git a/lib/resource-1.0/exper/Adjf.cf b/lib/resource/exper/Adjf.cf similarity index 100% rename from lib/resource-1.0/exper/Adjf.cf rename to lib/resource/exper/Adjf.cf diff --git a/lib/resource-1.0/exper/Adverb.cf b/lib/resource/exper/Adverb.cf similarity index 100% rename from lib/resource-1.0/exper/Adverb.cf rename to lib/resource/exper/Adverb.cf diff --git a/lib/resource-1.0/exper/Adverbf.cf b/lib/resource/exper/Adverbf.cf similarity index 100% rename from lib/resource-1.0/exper/Adverbf.cf rename to lib/resource/exper/Adverbf.cf diff --git a/lib/resource-1.0/exper/Biglex.cf b/lib/resource/exper/Biglex.cf similarity index 100% rename from lib/resource-1.0/exper/Biglex.cf rename to lib/resource/exper/Biglex.cf diff --git a/lib/resource-1.0/exper/Coord.cf b/lib/resource/exper/Coord.cf similarity index 100% rename from lib/resource-1.0/exper/Coord.cf rename to lib/resource/exper/Coord.cf diff --git a/lib/resource-1.0/exper/Irreg.cf b/lib/resource/exper/Irreg.cf similarity index 100% rename from lib/resource-1.0/exper/Irreg.cf rename to lib/resource/exper/Irreg.cf diff --git a/lib/resource-1.0/exper/Lex.cf b/lib/resource/exper/Lex.cf similarity index 100% rename from lib/resource-1.0/exper/Lex.cf rename to lib/resource/exper/Lex.cf diff --git a/lib/resource-1.0/exper/MkLex.hs b/lib/resource/exper/MkLex.hs similarity index 100% rename from lib/resource-1.0/exper/MkLex.hs rename to lib/resource/exper/MkLex.hs diff --git a/lib/resource-1.0/exper/Noun.cf b/lib/resource/exper/Noun.cf similarity index 100% rename from lib/resource-1.0/exper/Noun.cf rename to lib/resource/exper/Noun.cf diff --git a/lib/resource-1.0/exper/Numeral.cf b/lib/resource/exper/Numeral.cf similarity index 100% rename from lib/resource-1.0/exper/Numeral.cf rename to lib/resource/exper/Numeral.cf diff --git a/lib/resource-1.0/exper/Participle.cf b/lib/resource/exper/Participle.cf similarity index 100% rename from lib/resource-1.0/exper/Participle.cf rename to lib/resource/exper/Participle.cf diff --git a/lib/resource-1.0/exper/Phrase.cf b/lib/resource/exper/Phrase.cf similarity index 100% rename from lib/resource-1.0/exper/Phrase.cf rename to lib/resource/exper/Phrase.cf diff --git a/lib/resource-1.0/exper/Rules.cf b/lib/resource/exper/Rules.cf similarity index 100% rename from lib/resource-1.0/exper/Rules.cf rename to lib/resource/exper/Rules.cf diff --git a/lib/resource-1.0/exper/Rulesf.cf b/lib/resource/exper/Rulesf.cf similarity index 100% rename from lib/resource-1.0/exper/Rulesf.cf rename to lib/resource/exper/Rulesf.cf diff --git a/lib/resource-1.0/exper/Sent.cf b/lib/resource/exper/Sent.cf similarity index 100% rename from lib/resource-1.0/exper/Sent.cf rename to lib/resource/exper/Sent.cf diff --git a/lib/resource-1.0/exper/Sentf.cf b/lib/resource/exper/Sentf.cf similarity index 100% rename from lib/resource-1.0/exper/Sentf.cf rename to lib/resource/exper/Sentf.cf diff --git a/lib/resource-1.0/exper/Structural.cf b/lib/resource/exper/Structural.cf similarity index 100% rename from lib/resource-1.0/exper/Structural.cf rename to lib/resource/exper/Structural.cf diff --git a/lib/resource-1.0/exper/Tense.cf b/lib/resource/exper/Tense.cf similarity index 100% rename from lib/resource-1.0/exper/Tense.cf rename to lib/resource/exper/Tense.cf diff --git a/lib/resource-1.0/exper/Verb.cf b/lib/resource/exper/Verb.cf similarity index 100% rename from lib/resource-1.0/exper/Verb.cf rename to lib/resource/exper/Verb.cf diff --git a/lib/resource-1.0/exper/Verbf.cf b/lib/resource/exper/Verbf.cf similarity index 100% rename from lib/resource-1.0/exper/Verbf.cf rename to lib/resource/exper/Verbf.cf diff --git a/lib/resource-1.0/exper/cf/Adj.cf b/lib/resource/exper/cf/Adj.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Adj.cf rename to lib/resource/exper/cf/Adj.cf diff --git a/lib/resource-1.0/exper/cf/Adjf.cf b/lib/resource/exper/cf/Adjf.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Adjf.cf rename to lib/resource/exper/cf/Adjf.cf diff --git a/lib/resource-1.0/exper/cf/Adverb.cf b/lib/resource/exper/cf/Adverb.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Adverb.cf rename to lib/resource/exper/cf/Adverb.cf diff --git a/lib/resource-1.0/exper/cf/Adverbf.cf b/lib/resource/exper/cf/Adverbf.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Adverbf.cf rename to lib/resource/exper/cf/Adverbf.cf diff --git a/lib/resource-1.0/exper/cf/Biglex.cf b/lib/resource/exper/cf/Biglex.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Biglex.cf rename to lib/resource/exper/cf/Biglex.cf diff --git a/lib/resource-1.0/exper/cf/Coord.cf b/lib/resource/exper/cf/Coord.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Coord.cf rename to lib/resource/exper/cf/Coord.cf diff --git a/lib/resource-1.0/exper/cf/Irreg.cf b/lib/resource/exper/cf/Irreg.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Irreg.cf rename to lib/resource/exper/cf/Irreg.cf diff --git a/lib/resource-1.0/exper/cf/Lex.cf b/lib/resource/exper/cf/Lex.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Lex.cf rename to lib/resource/exper/cf/Lex.cf diff --git a/lib/resource-1.0/exper/cf/MkLex.hs b/lib/resource/exper/cf/MkLex.hs similarity index 100% rename from lib/resource-1.0/exper/cf/MkLex.hs rename to lib/resource/exper/cf/MkLex.hs diff --git a/lib/resource-1.0/exper/cf/Noun.cf b/lib/resource/exper/cf/Noun.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Noun.cf rename to lib/resource/exper/cf/Noun.cf diff --git a/lib/resource-1.0/exper/cf/Numeral.cf b/lib/resource/exper/cf/Numeral.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Numeral.cf rename to lib/resource/exper/cf/Numeral.cf diff --git a/lib/resource-1.0/exper/cf/Participle.cf b/lib/resource/exper/cf/Participle.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Participle.cf rename to lib/resource/exper/cf/Participle.cf diff --git a/lib/resource-1.0/exper/cf/Phrase.cf b/lib/resource/exper/cf/Phrase.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Phrase.cf rename to lib/resource/exper/cf/Phrase.cf diff --git a/lib/resource-1.0/exper/cf/Rules.cf b/lib/resource/exper/cf/Rules.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Rules.cf rename to lib/resource/exper/cf/Rules.cf diff --git a/lib/resource-1.0/exper/cf/Rulesf.cf b/lib/resource/exper/cf/Rulesf.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Rulesf.cf rename to lib/resource/exper/cf/Rulesf.cf diff --git a/lib/resource-1.0/exper/cf/Sent.cf b/lib/resource/exper/cf/Sent.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Sent.cf rename to lib/resource/exper/cf/Sent.cf diff --git a/lib/resource-1.0/exper/cf/Sentf.cf b/lib/resource/exper/cf/Sentf.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Sentf.cf rename to lib/resource/exper/cf/Sentf.cf diff --git a/lib/resource-1.0/exper/cf/Structural.cf b/lib/resource/exper/cf/Structural.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Structural.cf rename to lib/resource/exper/cf/Structural.cf diff --git a/lib/resource-1.0/exper/cf/Tense.cf b/lib/resource/exper/cf/Tense.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Tense.cf rename to lib/resource/exper/cf/Tense.cf diff --git a/lib/resource-1.0/exper/cf/Verb.cf b/lib/resource/exper/cf/Verb.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Verb.cf rename to lib/resource/exper/cf/Verb.cf diff --git a/lib/resource-1.0/exper/cf/Verbf.cf b/lib/resource/exper/cf/Verbf.cf similarity index 100% rename from lib/resource-1.0/exper/cf/Verbf.cf rename to lib/resource/exper/cf/Verbf.cf diff --git a/lib/resource-1.0/exper/gf/problems.txt b/lib/resource/exper/gf/problems.txt similarity index 100% rename from lib/resource-1.0/exper/gf/problems.txt rename to lib/resource/exper/gf/problems.txt diff --git a/lib/resource-1.0/finnish/AdjectiveFin.gf b/lib/resource/finnish/AdjectiveFin.gf similarity index 100% rename from lib/resource-1.0/finnish/AdjectiveFin.gf rename to lib/resource/finnish/AdjectiveFin.gf diff --git a/lib/resource-1.0/finnish/AdverbFin.gf b/lib/resource/finnish/AdverbFin.gf similarity index 100% rename from lib/resource-1.0/finnish/AdverbFin.gf rename to lib/resource/finnish/AdverbFin.gf diff --git a/lib/resource-1.0/finnish/CatFin.gf b/lib/resource/finnish/CatFin.gf similarity index 100% rename from lib/resource-1.0/finnish/CatFin.gf rename to lib/resource/finnish/CatFin.gf diff --git a/lib/resource-1.0/finnish/ConjunctionFin.gf b/lib/resource/finnish/ConjunctionFin.gf similarity index 100% rename from lib/resource-1.0/finnish/ConjunctionFin.gf rename to lib/resource/finnish/ConjunctionFin.gf diff --git a/lib/resource-1.0/finnish/ExtraFin.gf b/lib/resource/finnish/ExtraFin.gf similarity index 100% rename from lib/resource-1.0/finnish/ExtraFin.gf rename to lib/resource/finnish/ExtraFin.gf diff --git a/lib/resource-1.0/finnish/ExtraFinAbs.gf b/lib/resource/finnish/ExtraFinAbs.gf similarity index 100% rename from lib/resource-1.0/finnish/ExtraFinAbs.gf rename to lib/resource/finnish/ExtraFinAbs.gf diff --git a/lib/resource-1.0/finnish/Finnish.gf b/lib/resource/finnish/Finnish.gf similarity index 100% rename from lib/resource-1.0/finnish/Finnish.gf rename to lib/resource/finnish/Finnish.gf diff --git a/lib/resource-1.0/finnish/FinnishAbs.gf b/lib/resource/finnish/FinnishAbs.gf similarity index 100% rename from lib/resource-1.0/finnish/FinnishAbs.gf rename to lib/resource/finnish/FinnishAbs.gf diff --git a/lib/resource-1.0/finnish/GrammarFin.gf b/lib/resource/finnish/GrammarFin.gf similarity index 100% rename from lib/resource-1.0/finnish/GrammarFin.gf rename to lib/resource/finnish/GrammarFin.gf diff --git a/lib/resource-1.0/finnish/IdiomFin.gf b/lib/resource/finnish/IdiomFin.gf similarity index 100% rename from lib/resource-1.0/finnish/IdiomFin.gf rename to lib/resource/finnish/IdiomFin.gf diff --git a/lib/resource/finnish/LangFin.gf b/lib/resource/finnish/LangFin.gf index 48a035558..3cd551a18 100644 --- a/lib/resource/finnish/LangFin.gf +++ b/lib/resource/finnish/LangFin.gf @@ -1,27 +1,10 @@ ---# -path=.:../abstract:../../prelude +--# -path=.:../abstract:../common:prelude concrete LangFin of Lang = - RulesFin, - ClauseFin, - StructuralFin, - BasicFin, ----- TimeEng, ----- CountryEng - MathFin + GrammarFin, + LexiconFin + ** { - ** open Prelude, ParadigmsFin in { +flags startcat = Phr ; unlexer = text ; lexer = finnish ; -flags unlexer=finnish ; - -{- -lin - AdvDate d = prefixSS "on" d ; - AdvTime t = prefixSS "at" t ; - NWeekday w = w ; - PNWeekday w = nounPN w ; - - PNCountry x = x ; - ANationality x = x ; - NLanguage x = x ; --} -} \ No newline at end of file +} ; diff --git a/lib/resource-1.0/finnish/LexiconFin.gf b/lib/resource/finnish/LexiconFin.gf similarity index 100% rename from lib/resource-1.0/finnish/LexiconFin.gf rename to lib/resource/finnish/LexiconFin.gf diff --git a/lib/resource/finnish/MorphoFin.gf b/lib/resource/finnish/MorphoFin.gf index 935cbde32..08f8ab513 100644 --- a/lib/resource/finnish/MorphoFin.gf +++ b/lib/resource/finnish/MorphoFin.gf @@ -2,14 +2,15 @@ --1 A Simple Finnish Resource Morphology -- --- Aarne Ranta 2002 +-- Aarne Ranta 2002 -- 2005 -- -- This resource morphology contains definitions needed in the resource --- syntax. It moreover contains the most usual inflectional patterns. --- --- We use the parameter types and word classes defined in $TypesFin.gf$. +-- syntax. To build a lexicon, it is better to use $ParadigmsFin$, which +-- gives a higher-level access to this module. -resource MorphoFin = TypesFin ** open Prelude in { +resource MorphoFin = ResFin ** open Prelude in { + + flags optimize=all ; --- flags optimize=noexpand ; @@ -18,79 +19,6 @@ resource MorphoFin = TypesFin ** open Prelude in { oper - NounH : Type = { - a,vesi,vede,vete,vetta,veteen,vetii,vesii,vesien,vesia,vesiin : Str - } ; - --- worst-case macro - - mkSubst : Str -> (_,_,_,_,_,_,_,_,_,_ : Str) -> NounH = - \a,vesi,vede,vete,vetta,veteen,vetii,vesii,vesien,vesia,vesiin -> - {a = a ; - vesi = vesi ; - vede = vede ; - vete = vete ; - vetta = vetta ; - veteen = veteen ; - vetii = vetii ; - vesii = vesii ; - vesien = vesien ; - vesia = vesia ; - vesiin = vesiin - } ; - - nhn : NounH -> CommonNoun = \nh -> - let - a = nh.a ; - vesi = nh.vesi ; - vede = nh.vede ; - vete = nh.vete ; - vetta = nh.vetta ; - veteen = nh.veteen ; - vetii = nh.vetii ; - vesii = nh.vesii ; - vesien = nh.vesien ; - vesia = nh.vesia ; - vesiin = nh.vesiin - in - {s = table { - NCase Sg Nom => vesi ; - NCase Sg Gen => vede + "n" ; - NCase Sg Part => vetta ; - NCase Sg Transl => vede + "ksi" ; - NCase Sg Ess => vete + ("n" + a) ; - NCase Sg Iness => vede + ("ss" + a) ; - NCase Sg Elat => vede + ("st" + a) ; - NCase Sg Illat => veteen ; - NCase Sg Adess => vede + ("ll" + a) ; - NCase Sg Ablat => vede + ("lt" + a) ; - NCase Sg Allat => vede + "lle" ; - NCase Sg Abess => vede + ("tt" + a) ; - - NCase Pl Nom => vede + "t" ; - NCase Pl Gen => vesien ; - NCase Pl Part => vesia ; - NCase Pl Transl => vesii + "ksi" ; - NCase Pl Ess => vetii + ("n" + a) ; - NCase Pl Iness => vesii + ("ss" + a) ; - NCase Pl Elat => vesii + ("st" + a) ; - NCase Pl Illat => vesiin ; - NCase Pl Adess => vesii + ("ll" + a) ; - NCase Pl Ablat => vesii + ("lt" + a) ; - NCase Pl Allat => vesii + "lle" ; - NCase Pl Abess => vesii + ("tt" + a) ; - - NComit => vetii + "ne" ; - NInstruct => vesii + "n" ; - - NPossNom => vete ; - NPossGenPl => Predef.tk 1 vesien ; - NPossTransl Sg => vede + "kse" ; - NPossTransl Pl => vesii + "kse" ; - NPossIllat Sg => Predef.tk 1 veteen ; - NPossIllat Pl => Predef.tk 1 vesiin - } - } ; -- A user-friendly variant takes existing forms and infers the vowel harmony. @@ -100,97 +28,9 @@ oper talo (Predef.tk 1 talon) (Predef.tk 2 talona) taloa taloon (Predef.tk 2 taloina) (Predef.tk 3 taloissa) talojen taloja taloihin) ; --- Regular heuristics. -{- - regNounH : Str -> NounH = \vesi -> - let - esi = Predef.dp 3 vesi ; -- analysis: suffixes - si = Predef.dp 2 esi ; - i = last si ; - s = init si ; - a = if_then_Str (pbool2bool (Predef.occurs "aou" vesi)) "a" "ä" ; - ves = init vesi ; -- synthesis: prefixes - vet = strongGrade ves ; - ve = init ves ; - in - case esi of { - "uus" | "yys" => sRakkaus vesi ; - "nen" => sNainen (Predef.tk 3 vesi + ("st" + a)) ; - - _ => case si of { - "aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" => sPuu vesi ; - "ie" | "uo" | "yö" => sSuo vesi ; - "ea" | "eä" => - mkSubst - a - vesi (vesi) (vesi) (vesi + a) (vesi + a+"n") - (ves + "i") (ves + "i") (ves + "iden") (ves + "it"+a) - (ves + "isiin") ; - "is" => sNauris (vesi + ("t" + a)) ; - "ut" | "yt" => sRae vesi (ves + ("en" + a)) ; - "as" | "äs" => sRae vesi (vet + (a + "n" + a)) ; - "ar" | "är" => sRae vesi (vet + ("ren" + a)) ; - _ => case i of { - "n" => sLiitin vesi (vet + "men") ; - "s" => sTilaus vesi (ves + ("ksen" + a)) ; - "i" => sBaari (vesi + a) ; - "e" => sRae vesi (strongGrade vesi + "en" + a) ; - "a" | "o" | "u" | "y" | "ä" | "ö" => sLukko vesi ; - _ => sLinux (vesi + "i" + a) - } - } - } ; - - reg2NounH : (savi,savia : Str) -> NounH = \savi,savia -> - let - savit = regNounH savi ; - ia = Predef.dp 2 savia ; - i = init ia ; - a = last ia ; - o = last savi ; - savin = weakGrade savi + "n" ; - in - case of { - <"i","ia"> => sArpi savi ; - <"i","iä"> => sSylki savi ; - <"i","ta"> | <"i","tä"> => sTohtori (savi + a) ; - <"o","ta"> | <"ö","tä"> => sRadio savi ; - <"a","ta"> | <"ä","tä"> => sPeruna savi ; - <"a","ia"> | <"a","ja"> => sKukko savi savin savia ; - _ => savit - } ; --} - --- Here some useful special cases; more will be given in $paradigms.Fin.gf$. +-- Here some useful special cases; more are given in $ParadigmsFin.gf$. -- --- Nouns with partitive "a"/"ä" ; --- to account for grade and vowel alternation, three forms are usually enough --- Examples: "talo", "kukko", "huippu", "koira", "kukka", "syylä",... - - sKukko : (_,_,_ : Str) -> NounH = \kukko,kukon,kukkoja -> - let { - o = Predef.dp 1 kukko ; - a = Predef.dp 1 kukkoja ; - kukkoj = Predef.tk 1 kukkoja ; - i = Predef.dp 1 kukkoj ; - ifi = ifTok Str i "i" ; - kukkoi = ifi kukkoj (Predef.tk 1 kukkoj) ; - e = Predef.dp 1 kukkoi ; - kukoi = Predef.tk 2 kukon + Predef.dp 1 kukkoi - } - in - mkSubst a - kukko - (Predef.tk 1 kukon) - kukko - (kukko + a) - (kukko + o + "n") - (kukkoi + ifi "" "i") - (kukoi + ifi "" "i") - (ifTok Str e "e" (Predef.tk 1 kukkoi + "ien") (kukkoi + ifi "en" "jen")) - kukkoja - (kukkoi + ifi "in" "ihin") ; sLukko : Str -> NounH = \lukko -> let @@ -333,28 +173,6 @@ oper (radioi + "t" + a) (radioi + "hin") ; --- Surpraisingly, making the test for the partitive, this not only covers --- "rae", "perhe", "savuke", but also "rengas", "lyhyt" (except $Sg Illat$), etc. - - sRae : (_,_ : Str) -> NounH = \rae,rakeena -> - let { - a = Predef.dp 1 rakeena ; - rakee = Predef.tk 2 rakeena ; - rakei = Predef.tk 1 rakee + "i" ; - raet = rae + (ifTok Str (Predef.dp 1 rae) "e" "t" []) - } - in - mkSubst a - rae - rakee - rakee - (raet + ("t" + a)) - (rakee + "seen") - rakei - rakei - (rakei + "den") - (rakei + ("t" + a)) - (rakei + "siin") ; sSusi : (_,_,_ : Str) -> NounH = \susi,suden,sutena -> let @@ -671,6 +489,8 @@ vowelHarmony : Str -> Str = \liitin -> -- -- Proper names are similar to common nouns in the singular. + ProperName = {s : Case => Str} ; + mkProperName : CommonNoun -> ProperName = \jussi -> {s = \\c => jussi.s ! NCase Sg c} ; @@ -705,87 +525,78 @@ vowelHarmony : Str -> Str = \liitin -> -- -- Here we define personal and relative pronouns. - mkPronoun : (_,_,_,_,_ : Str) -> Number -> Person -> Pronoun = + mkPronoun : (_,_,_,_,_ : Str) -> Number -> Person -> + {s : NPForm => Str ; a : Agr} = \mina, minun, minua, minuna, minuun, n, p -> let { minu = Predef.tk 2 minuna ; a = Predef.dp 1 minuna } in {s = table { - PCase Nom => mina ; - PCase Gen => minun ; - PCase Part => minua ; - PCase Transl => minu + "ksi" ; - PCase Ess => minuna ; - PCase Iness => minu + ("ss" + a) ; - PCase Elat => minu + ("st" + a) ; - PCase Illat => minuun ; - PCase Adess => minu + ("ll" + a) ; - PCase Ablat => minu + ("lt" + a) ; - PCase Allat => minu + "lle" ; - PCase Abess => minu + ("tt" + a) ; - PAcc => Predef.tk 1 minun + "t" + NPCase Nom => mina ; + NPCase Gen => minun ; + NPCase Part => minua ; + NPCase Transl => minu + "ksi" ; + NPCase Ess => minuna ; + NPCase Iness => minu + ("ss" + a) ; + NPCase Elat => minu + ("st" + a) ; + NPCase Illat => minuun ; + NPCase Adess => minu + ("ll" + a) ; + NPCase Ablat => minu + ("lt" + a) ; + NPCase Allat => minu + "lle" ; + NPCase Abess => minu + ("tt" + a) ; + NPAcc => Predef.tk 1 minun + "t" } ; - n = n ; p = p} ; + a = {n = n ; p = p} + } ; - pronMina = mkPronoun "minä" "minun" "minua" "minuna" "minuun" Sg P1 ; - pronSina = mkPronoun "sinä" "sinun" "sinua" "sinuna" "sinuun" Sg P2 ; - pronHan = mkPronoun "hän" "hänen" "häntä" "hänenä" "häneen" Sg P3 ; - pronMe = mkPronoun "me" "meidän" "meitä" "meinä" "meihin" Pl P1 ; - pronTe = mkPronoun "te" "teidän" "teitä" "teinä" "teihin" Pl P2 ; - pronHe = mkPronoun "he" "heidän" "heitä" "heinä" "heihin" Pl P3 ; - pronNe = mkPronoun "ne" "niiden" "niitä" "niinä" "niihin" Pl P3 ; - - pronTama = mkPronoun "tämä" "tämän" "tätä" "tänä" "tähän" Sg P3 ; - pronNama = mkPronoun "nämä" "näiden" "näitä" "näinä" "näihin" Pl P3 ; - pronTuo = mkPronoun "tuo" "tuon" "tuota" "tuona" "tuohon" Sg P3 ; - pronNuo = mkPronoun "nuo" "noiden" "noita" "noina" "noihin" Pl P3 ; - --- The non-human pronoun "se" ('it') is even more irregular, --- Its accusative cases do not --- have a special form with "t", but have the normal genitive/nominative variation. --- We use the type $ProperName$ for "se", because of the accusative but also --- because the person and number are as for proper names. - - pronSe : ProperName = { - s = table { - Nom => "se" ; - Gen => "sen" ; - Part => "sitä" ; - Transl => "siksi" ; - Ess => "sinä" ; - Iness => "siinä" ; - Elat => "siitä" ; - Illat => "siihen" ; - Adess => "sillä" ; - Ablat => "siltä" ; - Allat => "sille" ; - Abess => "sittä" + mkDemPronoun : (_,_,_,_,_ : Str) -> Number -> + {s : NPForm => Str ; a : Agr} = + \tuo, tuon, tuota, tuona, tuohon, n -> + let pro = mkPronoun tuo tuon tuota tuona tuohon n P3 + in { + s = table { + NPAcc => tuo ; + c => pro.s ! c + } ; + a = pro.a } ; + +-- Determiners + + mkDet : Number -> CommonNoun -> { + s1 : Case => Str ; -- minun kolme + s2 : Str ; -- -ni + n : Number ; -- Pl (agreement feature for verb) + isNum : Bool ; -- True (a numeral is present) + isPoss : Bool ; -- True (a possessive suffix is present) + isDef : Bool -- True (verb agrees in Pl, Nom is not Part) + } = \n, noun -> { + s1 = \\c => noun.s ! NCase n c ; + s2 = [] ; + n = n ; + isNum, isPoss = False ; + isDef = True --- does this hold for all new dets? } ; --- The possessive suffixes will be needed in syntax. It will show up --- as a separate word ("auto &+ ni"), which needs unlexing. Unlexing also --- has to fix the vowel harmony in cases like "äiti &+ nsä". - - suff : Str -> Str = \ni -> ni ; - - possSuffix : Number => Person => Str = \\n,p => - suff (case of { - => "ni" ; - => "si" ; - => "nsa" ; - => "mme" ; - => "nne" ; - => "nsa" - } ) ; + mkQuant : CommonNoun -> { + s1 : Number => Case => Str ; + s2 : Str ; + isPoss, isDef : Bool + } = \noun -> { + s1 = \\n,c => noun.s ! NCase n c ; + s2 = [] ; + isPoss = False ; + isDef = True --- does this hold for all new dets? + } ; -- The relative pronoun, "joka", is inflected in case and number, -- like common nouns, but it does not take possessive suffixes. -- The inflextion shows a surprising similarity with "suo". - relPron : RelPron = - let {jo = nhn (sSuo "jo")} in {s = +oper + relPron : Number => Case => Str = + let {jo = nhn (sSuo "jo")} in table { Sg => table { Nom => "joka" ; @@ -796,258 +607,37 @@ vowelHarmony : Str -> Str = \liitin -> Nom => "jotka" ; c => "j" + (jo.s ! NCase Pl c) } - } - } ; + } ; - mikaInt : Number => Case => Str = - let { - mi = nhn (sSuo "mi") - } in - table { - Sg => table { - Nom => "mikä" ; - Gen => "minkä" ; - c => mi.s ! NCase Sg c - } ; - Pl => table { - Nom => "mitkä" ; - Gen => "mittenkä" ; - c => mi.s ! NCase Sg c - } - } ; - - kukaInt : Number => Case => Str = - let { - ku = nhn (sRae "kuka" "kenenä") ; - ket = nhn (sRae "kuka" "keinä")} in - table { - Sg => table { - Nom => "kuka" ; - Part => "ketä" ; - Illat => "keneen" ; - c => ku.s ! NCase Sg c - } ; - Pl => table { - Nom => "ketkä" ; - Illat => "keihin" ; - c => ket.s ! NCase Pl c - } - } ; - - mikaanPron : Number => Case => Str = \\n,c => - case of { - => "mikään" ; - <_,Part> => "mitään" ; - => "minkään" ; - => "mitkään" ; - => "mittenkään" ; - <_,Ess> => "minään" ; - <_,Iness> => "missään" ; - <_,Elat> => "mistään" ; - <_,Adess> => "millään" ; - <_,Ablat> => "miltään" ; - _ => mikaInt ! n ! c + "kään" - } ; - - kukaanPron : Number => Case => Str = - table { - Sg => table { - Nom => "kukaan" ; - Part => "ketään" ; - Ess => "kenään" ; - Iness => "kessään" ; - Elat => "kestään" ; - Illat => "kehenkään" ; - Adess => "kellään" ; - Ablat => "keltään" ; - c => kukaInt ! Sg ! c + "kään" - } ; - Pl => table { - Nom => "ketkään" ; - Part => "keitään" ; - Ess => "keinään" ; - Iness => "keissään" ; - Elat => "keistään" ; - Adess => "keillään" ; - Ablat => "keiltään" ; - c => kukaInt ! Pl ! c + "kään" - } - } ; - - jokuPron : Number => Case => Str = - let - ku = nhn (sPuu "ku") ; - kui = nhn (sPuu "kuu") - in - table { - Sg => table { - Nom => "joku" ; - Gen => "jonkun" ; - c => relPron.s ! Sg ! c + ku.s ! NCase Sg c - } ; - Pl => table { - Nom => "jotkut" ; - c => relPron.s ! Pl ! c + kui.s ! NCase Pl c - } - } ; - - jokinPron : Number => Case => Str = - table { - Sg => table { - Nom => "jokin" ; - Gen => "jonkin" ; - c => relPron.s ! Sg ! c + "kin" - } ; - Pl => table { - Nom => "jotkin" ; - c => relPron.s ! Pl ! c + "kin" - } - } ; - -moniPron : Case => Str = caseTable singular (nhn (sSusi "moni" "monen" "monena")) ; - caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> \\c => cn.s ! NCase n c ; --2 Adjectives -- --- To form an adjective, it is usually enough to give a noun declension: the --- adverbial form is regular. - noun2adj : CommonNoun -> Adjective = noun2adjComp True ; - - noun2adjComp : Bool -> CommonNoun -> Adjective = \isPos,tuore -> - let - tuoreesti = Predef.tk 1 (tuore.s ! NCase Sg Gen) + "sti" ; - tuoreemmin = Predef.tk 2 (tuore.s ! NCase Sg Gen) + "in" - in {s = table { - AN f => tuore.s ! f ; - AAdv => if_then_Str isPos tuoreesti tuoreemmin - } - } ; -- For the comparison of adjectives, three noun declensions -- are needed in the worst case. - mkAdjDegr : (_,_,_ : Adjective) -> AdjDegr = \hyva,parempi,paras -> + mkAdjective : (_,_,_ : Adj) -> Adjective = \hyva,parempi,paras -> {s = table { - Pos => hyva.s ; - Comp => parempi.s ; - Sup => paras.s + Posit => hyva.s ; + Compar => parempi.s ; + Superl => paras.s } } ; -- However, it is usually enough to give the positive declension and -- the characteristic forms of comparative and superlative. - regAdjDegr : CommonNoun -> Str -> Str -> AdjDegr = \kiva, kivempaa, kivinta -> - mkAdjDegr + regAdjective : CommonNoun -> Str -> Str -> Adjective = \kiva, kivempaa, kivinta -> + mkAdjective (noun2adj kiva) (noun2adjComp False (nhn (sSuurempi kivempaa))) (noun2adjComp False (nhn (sSuurin kivinta))) ; ---3 Verbs --- --- The present, past, conditional. and infinitive stems, acc. to Koskenniemi. --- Unfortunately not enough (without complicated processes). --- We moreover give grade alternation forms as arguments, since it does not --- happen automatically. ---- A problem remains with the verb "seistä", where the infinitive ---- stem has vowel harmony "ä" but the others "a", thus "seisoivat" but "seiskää". - - - mkVerb : (_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Verb = - \tulla,tulee,tulen,tulevat,tulkaa,tullaan,tuli,tulin,tulisi,tullut,tultu,tullun -> - v2v (mkVerbH - tulla tulee tulen tulevat tulkaa tullaan tuli tulin tulisi tullut tultu tullun - ) ; - - v2v : VerbH -> Verb = \vh -> - let - tulla = vh.tulla ; - tulee = vh.tulee ; - tulen = vh.tulen ; - tulevat = vh.tulevat ; - tulkaa = vh.tulkaa ; - tullaan = vh.tullaan ; - tuli = vh.tuli ; - tulin = vh.tulin ; - tulisi = vh.tulisi ; - tullut = vh.tullut ; - tultu = vh.tultu ; - tultu = vh.tultu ; - tullun = vh.tullun ; - tuje = init tulen ; - tuji = init tulin ; - a = Predef.dp 1 tulkaa ; - tulko = Predef.tk 2 tulkaa + (ifTok Str a "a" "o" "ö") ; - o = last tulko ; - tulleena = Predef.tk 2 tullut + ("een" + a) ; - tulleen = (noun2adj (nhn (sRae tullut tulleena))).s ; - tullun = (noun2adj (nhn (sKukko tultu tullun (tultu + ("j"+a))))).s ; - tulema = tuje + "m" + a ; - vat = "v" + a + "t" - in - {s = table { - Inf => tulla ; - Pres Sg P1 => tuje + "n" ; - Pres Sg P2 => tuje + "t" ; - Pres Sg P3 => tulee ; - Pres Pl P1 => tuje + "mme" ; - Pres Pl P2 => tuje + "tte" ; - Pres Pl P3 => tulevat ; - Impf Sg P1 => tuji + "n" ; - Impf Sg P2 => tuji + "t" ; - Impf Sg P3 => tuli ; - Impf Pl P1 => tuji + "mme" ; - Impf Pl P2 => tuji + "tte" ; - Impf Pl P3 => tuli + vat ; - Cond Sg P1 => tulisi + "n" ; - Cond Sg P2 => tulisi + "t" ; - Cond Sg P3 => tulisi ; - Cond Pl P1 => tulisi + "mme" ; - Cond Pl P2 => tulisi + "tte" ; - Cond Pl P3 => tulisi + vat ; - Imper Sg => tuje ; - Imper Pl => tulkaa ; - ImperP3 Sg => tulko + o + "n" ; - ImperP3 Pl => tulko + o + "t" ; - ImperP1Pl => tulkaa + "mme" ; - ImpNegPl => tulko ; - Pass True => tullaan ; - Pass False => Predef.tk 2 tullaan ; - PastPartAct n => tulleen ! n ; - PastPartPass n => tullun ! n ; - Inf3Iness => tulema + "ss" + a ; - Inf3Elat => tulema + "st" + a ; - Inf3Illat => tulema + a + "n" ; - Inf3Adess => tulema + "ll" + a ; - Inf3Abess => tulema + "tt" + a - } - } ; - - VerbH : Type = { - tulla,tulee,tulen,tulevat,tulkaa,tullaan,tuli,tulin,tulisi,tullut,tultu,tullun - : Str - } ; - - mkVerbH : (_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> VerbH = - \tulla,tulee,tulen,tulevat,tulkaa,tullaan,tuli,tulin,tulisi,tullut,tultu,tullun -> - {tulla = tulla ; - tulee = tulee ; - tulen = tulen ; - tulevat = tulevat ; - tulkaa = tulkaa ; - tullaan = tullaan ; - tuli = tuli ; - tulin = tulin ; - tulisi = tulisi ; - tullut = tullut ; - tultu = tultu ; - tullun = tullun - } ; regVerbH : Str -> VerbH = \soutaa -> let @@ -1062,7 +652,8 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> in case taa of { "it" + _ => vHarkita soutaa ; - ("st" | "nn" | "rr" | "ll") + _ => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ; + ("st" | "nn" | "rr" | "ll") + _ => + vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ; _ + ("aa" | "ää") => vOttaa soutaa (souda + "n") ; ("o" | "u" | "y" | "ö") + ("da" | "dä") => vJuoda soutaa joi ; ("ata" | "ätä") => vOsata soutaa ; @@ -1071,7 +662,6 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> reg2VerbH : (soutaa,souti : Str) -> VerbH = \soutaa,souti -> let - soudat = regVerbH soutaa ; soudan = weakGrade (init soutaa) + "n" ; soudin = weakGrade souti + "n" ; souden = init souti + "en" ; @@ -1083,8 +673,10 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> case taa of { "taa" | "tää" => vHuoltaa soutaa soudan souti soudin ; "ata" | "ätä" => vPalkata soutaa souti ; + "ota" | "ötä" => vPudota soutaa souti ; "sta" | "stä" => vJuosta soutaa souden (juo + o+u+"t") (juo + "t"+u) ; - _ => soudat + _ + ("da" | "dä") => vJuoda soutaa souti ; + _ => regVerbH soutaa } ; reg3VerbH : (_,_,_ : Str) -> VerbH = \soutaa,soudan,souti -> @@ -1095,14 +687,11 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> o = last juo ; a = last taa ; u = ifTok Str a "a" "u" "y" ; - soudin = weakGrade souti + "n" ; - soudat = reg2VerbH soutaa souti ; + soudin = weakGrade (init souti) + "in" ; in case taa of { "lla" | "llä" => vJuosta soutaa soudan (juo + o+u+"t") (juo + "t"+u) ; - "ota" | "ötä" => vPudota soutaa souti ; "taa" | "tää" => vHuoltaa soutaa soudan souti soudin ; - _ + ("da" | "dä") => vJuoda soutaa souti ; - _ => soudat + _ => reg2VerbH soutaa souti } ; -- For "harppoa", "hukkua", "löytyä", with grade alternation. @@ -1305,91 +894,7 @@ caseTable : Number -> CommonNoun -> Case => Str = \n,cn -> (juo + "t" + u) (juo + "d" + u + "n") ; - verbOlla : Verb = - mkVerb - "olla" "on" "olen" "ovat" "olkaa" "ollaan" - "oli" "olin" "olisi" "ollut" "oltu" "ollun" ; - --- The negating operator "ei" is actually a verb, which has present --- active indicative and imperative forms, but no infinitive. - - verbEi : Verb = - let ei = - mkVerb - "ei" "ei" "en" "eivät" "älkää" - "ei" "e" "en" "e" "ei" "ei" "ei" - in - {s = table { - Imper Sg => "älä" ; --- Impf n p | Cond n p => ei.s ! Pres n p ; - Impf n p => ei.s ! Pres n p ; - Cond n p => ei.s ! Pres n p ; - v => ei.s ! v - } - } ; - ---2 Some structural words - - kuinConj = "kuin" ; - - conjEtta = "että" ; - advSiten = "siten" ; - - mikakukaInt : Gender => Number => Case => Str = - table { - NonHuman => mikaInt ; - Human => kukaInt - } ; - - kaikkiPron : Number -> Case => Str = \n -> - let {kaiket = caseTable n (nhn (sKorpi "kaikki" "kaiken" "kaikkena"))} in - table { - Nom => "kaikki" ; - c => kaiket ! c - } ; - - stopPunct = "." ; - commaPunct = "," ; - questPunct = "?" ; - exclPunct = "!" ; - - koPart = suff "ko" ; - --- For $NumeralsFin$. - - param NumPlace = NumIndep | NumAttr ; - -oper - yksiN = nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi" - "yksien" "yksiä" "yksiin") ; - kymmenenN = nhn (mkSubst "ä" "kymmenen" "kymmene" "kymmene" "kymmentä" - "kymmeneen" "kymmeni" "kymmeni" "kymmenien" "kymmeniä" - "kymmeniin") ; - sataN = nhn (sLukko "sata") ; - - tuhatN = nhn (mkSubst "a" "tuhat" "tuhanne" "tuhante" "tuhatta" "tuhanteen" - "tuhansi" "tuhansi" "tuhansien" "tuhansia" "tuhansiin") ; - - kymmentaN = {s = table { - NCase Sg Nom => "kymmentä" ; - c => kymmenenN.s ! c - } - } ; - - sataaN = {s = table { - Sg => sataN.s ; - Pl => table { - NCase Sg Nom => "sataa" ; - c => sataN.s ! c - } - } - } ; - tuhattaN = {s = table { - Sg => tuhatN.s ; - Pl => table { - NCase Sg Nom => "tuhatta" ; - c => tuhatN.s ! c - } - } - } ; } ; + + + diff --git a/lib/resource-1.0/finnish/NounFin.gf b/lib/resource/finnish/NounFin.gf similarity index 100% rename from lib/resource-1.0/finnish/NounFin.gf rename to lib/resource/finnish/NounFin.gf diff --git a/lib/resource-1.0/finnish/NumeralFin.gf b/lib/resource/finnish/NumeralFin.gf similarity index 100% rename from lib/resource-1.0/finnish/NumeralFin.gf rename to lib/resource/finnish/NumeralFin.gf diff --git a/lib/resource/finnish/ParadigmsFin.gf b/lib/resource/finnish/ParadigmsFin.gf index 681061852..4d6ca939d 100644 --- a/lib/resource/finnish/ParadigmsFin.gf +++ b/lib/resource/finnish/ParadigmsFin.gf @@ -1,42 +1,44 @@ ---# -path=.:../abstract:../../prelude +--# -path=.:../abstract:../common:../../prelude --1 Finnish Lexical Paradigms -- --- Aarne Ranta 2003-2005 +-- Aarne Ranta 2003--2005 -- -- This is an API to the user of the resource grammar --- for adding lexical items. It give shortcuts for forming --- expressions of basic categories: nouns, adjectives, verbs. +-- for adding lexical items. It gives functions for forming +-- expressions of open categories: nouns, adjectives, verbs. -- -- Closed categories (determiners, pronouns, conjunctions) are --- accessed through the resource syntax API, $Structural$. +-- accessed through the resource syntax API, $Structural.gf$. -- --- The low-level definitions of inflectional patterns are in --- $MorphoFin$. The main difference with that module is that here the types +-- The main difference with $MorphoFin.gf$ is that the types -- referred to are compiled resource grammar types. We have moreover --- had the design principle of always having existing forms, not --- stems, as string arguments of the paradigms, not stems. +-- had the design principle of always having existing forms, rather +-- than stems, as string arguments of the paradigms. -- +-- The structure of functions for each word class $C$ is the following: +-- first we give a handful of patterns that aim to cover all +-- regular cases. Then we give a worst-case function $mkC$, which serves as an +-- escape to construct the most irregular words of type $C$. +-- However, this function should only seldom be needed. -resource ParadigmsFin = - open (Predef=Predef), Prelude, SyntaxFin, CategoriesFin in { +resource ParadigmsFin = open + (Predef=Predef), + Prelude, + MorphoFin, + CatFin + in { --- flags optimize=values ; flags optimize=noexpand ; --2 Parameters -- -- To abstract over gender, number, and (some) case names, -- we define the following identifiers. The application programmer --- should always use these constants instead of their definitions --- in $TypesInf$. +-- should always use these constants instead of the constructors +-- defined in $ResFin$. oper - Gender : Type; - - human : Gender ; - nonhuman : Gender ; - Number : Type ; singular : Number ; @@ -58,22 +60,20 @@ oper -- of many-place verbs and adjective. A complement can be defined by -- just a case, or a pre/postposition and a case. - PPosition : Type ; - - prepP : Case -> Str -> PPosition ; - postpP : Case -> Str -> PPosition ; - caseP : Case -> PPosition ; - accusative : PPosition ; + prePrep : Case -> Str -> Prep ; -- ilman, partitive + postPrep : Case -> Str -> Prep ; -- takana, genitive + postGenPrep : Str -> Prep ; -- takana + casePrep : Case -> Prep ; -- adessive --2 Nouns --- The worst case gives ten forms and the semantic gender. --- In practice just a couple of forms are needed, to define the different +-- The worst case gives ten forms. +-- In practice just a couple of forms are needed to define the different -- stems, vowel alternation, and vowel harmony. oper mkN : (talo, talon, talona, taloa, taloon, - taloina,taloissa,talojen,taloja,taloihin : Str) -> Gender -> N ; + taloina,taloissa,talojen,taloja,taloihin : Str) -> N ; -- The regular noun heuristic takes just one form (singular -- nominative) and analyses it to pick the correct paradigm. @@ -101,18 +101,13 @@ oper -- The rest of the noun paradigms are mostly covered by the three -- heuristics. -- --- Nouns with partitive "a"/"ä" are a large group. +-- Nouns with partitive "a","ä" are a large group. -- To determine for grade and vowel alternation, three forms are usually needed: -- singular nominative and genitive, and plural partitive. -- Examples: "talo", "kukko", "huippu", "koira", "kukka", "syylä", "särki"... nKukko : (kukko,kukon,kukkoja : Str) -> N ; --- For convenience, we define 1-argument paradigms as producing the --- nonhuman gender; the following function changes this: - - humanN : N -> N ; - -- A special case are nouns with no alternations: -- the vowel harmony is inferred from the last letter, -- which must be one of "o", "u", "ö", "y". @@ -132,11 +127,12 @@ oper nSylki : (sylki : Str) -> N ; -- Foreign words ending in consonants are actually similar to words like --- "malli"/"mallin"/"malleja", with the exception that the "i" is not attached +-- "malli"-"mallin"-"malleja", with the exception that the "i" is not attached -- to the singular nominative. Examples: "linux", "savett", "screen". --- The singular partitive form is used to get the vowel harmony. (N.B. more than --- 1-syllabic words ending in "n" would have variant plural genitive and --- partitive forms, like "sultanien"/"sultaneiden", which are not covered.) +-- The singular partitive form is used to get the vowel harmony. +-- (N.B. more than 1-syllabic words ending in "n" would have variant +-- plural genitive and partitive forms, like +-- "sultanien", "sultaneiden", which are not covered.) nLinux : (linuxia : Str) -> N ; @@ -151,7 +147,7 @@ oper nRae : (rae, rakeena : Str) -> N ; --- The following covers nouns with partitive "ta"/"tä", such as +-- The following covers nouns with partitive "ta","tä", such as -- "susi", "vesi", "pieni". To get all stems and the vowel harmony, it takes -- the singular nominative, genitive, and essive. @@ -190,21 +186,22 @@ oper -- Separately-written compound nouns, like "sambal oelek", "Urho Kekkonen", -- have only their last part inflected. - nComp : Str -> N -> N ; + compN : Str -> N -> N ; -- Nouns used as functions need a case, of which by far the commonest is -- the genitive. - mkN2 : N -> Case -> N2 ; - genN2 : N -> N2 ; + mkN2 : N -> Prep -> N2 ; + genN2 : N -> N2 ; - mkN3 : N -> Case -> Case -> N3 ; + mkN3 : N -> Prep -> Prep -> N3 ; -- Proper names can be formed by using declensions for nouns. -- The plural forms are filtered away by the compiler. + regPN : Str -> PN ; mkPN : N -> PN ; - + mkNP : N -> Number -> NP ; --2 Adjectives @@ -214,17 +211,17 @@ oper -- Two-place adjectives need a case for the second argument. - mkA2 : A -> PPosition -> A2 ; + mkA2 : A -> Prep -> A2 ; -- Comparison adjectives have three forms. The comparative and the superlative -- are always inflected in the same way, so the nominative of them is actually -- enough (except for the superlative "paras" of "hyvä"). - mkADeg : (kiva : N) -> (kivempaa,kivinta : Str) -> ADeg ; + mkADeg : (kiva : N) -> (kivempaa,kivinta : Str) -> A ; -- The regular adjectives are based on $regN$ in the positive. - regADeg : (punainen : Str) -> ADeg ; + regA : (punainen : Str) -> A ; --2 Verbs @@ -243,6 +240,10 @@ oper reg2V : (soutaa,souti : Str) -> V ; reg3V : (soutaa,soudan,souti : Str) -> V ; +-- The subject case of verbs is by default nominative. This dunction can change it. + + subjcaseV : V -> Case -> V ; + -- The rest of the paradigms are special cases mostly covered by the heuristics. -- A simple special case is the one with just one stem and without grade alternation. @@ -272,14 +273,15 @@ oper caseV : Case -> V -> V ; --- The verbs "be" and the negative auxiliary are special. +-- The verbs "be" is special. vOlla : V ; - vEi : V ; +--3 Two-place verbs +-- -- Two-place verbs need a case, and can have a pre- or postposition. - mkV2 : V -> PPosition -> V2 ; + mkV2 : V -> Prep -> V2 ; -- If the complement needs just a case, the following special function can be used. @@ -287,7 +289,7 @@ oper -- Verbs with a direct (accusative) object -- are special, since their complement case is finally decided in syntax. --- But this is taken care of by $ClauseFin$. +-- But this is taken care of in $VerbFin$. dirV2 : V -> V2 ; @@ -297,9 +299,9 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> PPosition -> PPosition -> V3 ; -- speak, with, about - dirV3 : V -> Case -> V3 ; -- give,_,to - dirdirV3 : V -> V3 ; -- acc, allat + mkV3 : V -> Prep -> Prep -> V3 ; -- puhua, allative, elative + dirV3 : V -> Case -> V3 ; -- siirtää, (accusative), illative + dirdirV3 : V -> V3 ; -- antaa, (accusative), (allative) --3 Other complement patterns @@ -307,34 +309,39 @@ oper -- Verbs and adjectives can take complements such as sentences, -- questions, verb phrases, and adjectives. - mkV0 : V -> V0 ; - mkVS : V -> VS ; - mkV2S : V2 -> V2S ; - mkVV : V -> VV ; - mkV2V : V2 -> V2V ; - mkVA : V -> Case -> VA ; - mkV2A : V2 -> Case -> V2A ; - mkVQ : V -> VQ ; - mkV2Q : V2 -> V2Q ; + mkV0 : V -> V0 ; + mkVS : V -> VS ; + mkV2S : V -> Prep -> V2S ; + mkVV : V -> VV ; + mkV2V : V -> Prep -> V2V ; + mkVA : V -> Prep -> VA ; + mkV2A : V -> Prep -> Prep -> V2A ; + mkVQ : V -> VQ ; + mkV2Q : V -> Prep -> V2Q ; - mkAS : A -> AS ; - mkA2S : A2 -> A2S ; - mkAV : A -> AV ; - mkA2V : A2 -> A2V ; + mkAS : A -> AS ; + mkA2S : A -> Prep -> A2S ; + mkAV : A -> AV ; + mkA2V : A -> Prep -> A2V ; +-- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated +-- just as synonyms of $V2$, and the second argument is given +-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. +-- $V0$ is just $V$. + + V0, V2S, V2V, V2Q : Type ; + AS, A2S, AV, A2V : Type ; + +--. -- The definitions should not bother the user of the API. So they are -- hidden from the document. ---. - Gender = SyntaxFin.Gender ; - Case = SyntaxFin.Case ; - Number = SyntaxFin.Number ; + + Case = MorphoFin.Case ; + Number = MorphoFin.Number ; singular = Sg ; plural = Pl ; - human = Human ; - nonhuman = NonHuman ; - nominative = Nom ; genitive = Gen ; partitive = Part ; @@ -346,25 +353,21 @@ oper ablative = Ablat ; allative = Allat ; - PPosition : Type = {c : ComplCase ; s3 : Str ; p : Bool} ; - prepP : Case -> Str -> PPosition = - \c,p -> {c = CCase c ; s3 = p ; p = True} ; - postpP : Case -> Str -> PPosition = - \c,p -> {c = CCase c ; s3 = p ; p = False} ; - caseP : Case -> PPosition = - \c -> {c = CCase c ; s3 = [] ; p = True} ; - accusative = {c = CAcc ; s3 = [] ; p = True} ; + prePrep : Case -> Str -> Prep = + \c,p -> {c = NPCase c ; s = p ; isPre = True ; lock_Prep = <>} ; + postPrep : Case -> Str -> Prep = + \c,p -> {c = NPCase c ; s = p ; isPre = False ; lock_Prep = <>} ; + postGenPrep p = {c = NPCase genitive ; s = p ; isPre = False ; lock_Prep = <>} ; + casePrep : Case -> Prep = + \c -> {c = NPCase c ; s = [] ; isPre = True ; lock_Prep = <>} ; + accPrep = {c = NPAcc ; s = [] ; isPre = True ; lock_Prep = <>} ; - mkN = \a,b,c,d,e,f,g,h,i,j,k -> - mkNoun a b c d e f g h i j ** {g = k ; lock_N = <>} ; + mkN = \a,b,c,d,e,f,g,h,i,j -> + mkNoun a b c d e f g h i j ** {lock_N = <>} ; regN = \vesi -> - ---- nhn (regNounH vesi) ** {g = NonHuman ; lock_N = <>} ; let esi = Predef.dp 3 vesi ; -- analysis: suffixes - si = Predef.dp 2 esi ; - i = last si ; - s = init si ; a = if_then_Str (pbool2bool (Predef.occurs "aou" vesi)) "a" "ä" ; ves = init vesi ; -- synthesis: prefixes vet = strongGrade ves ; @@ -372,35 +375,29 @@ oper in nhn ( case esi of { "uus" | "yys" => sRakkaus vesi ; - "nen" => sNainen (Predef.tk 3 vesi + ("st" + a)) ; - - _ => case si of { - "aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö" => sPuu vesi ; - "ie" | "uo" | "yö" => sSuo vesi ; - "ea" | "eä" => - mkSubst - a - vesi (vesi) (vesi) (vesi + a) (vesi + a+"n") - (ves + "i") (ves + "i") (ves + "iden") (ves + "it"+a) - (ves + "isiin") ; - "is" => sNauris (vesi + ("t" + a)) ; - "ut" | "yt" => sRae vesi (ves + ("en" + a)) ; - "as" | "äs" => sRae vesi (vet + (a + "n" + a)) ; - "ar" | "är" => sRae vesi (vet + ("ren" + a)) ; - _ => case i of { - "n" => sLiitin vesi (vet + "men") ; - "s" => sTilaus vesi (ves + ("ksen" + a)) ; - "i" => sBaari (vesi + a) ; - "e" => sRae vesi (strongGrade vesi + "en" + a) ; - "a" | "o" | "u" | "y" | "ä" | "ö" => sLukko vesi ; - _ => sLinux (vesi + "i" + a) + _ + "nen" => sNainen (Predef.tk 3 vesi + ("st" + a)) ; + _ + ("aa" | "ee" | "ii" | "oo" | "uu" | "yy" | "ää" | "öö") => sPuu vesi ; + _ + ("ie" | "uo" | "yö") => sSuo vesi ; + _ + ("ea" | "eä") => + mkSubst + a + vesi (vesi) (vesi) (vesi + a) (vesi + a+"n") + (ves + "i") (ves + "i") (ves + "iden") (ves + "it"+a) + (ves + "isiin") ; + _ + "is" => sNauris (vesi + ("t" + a)) ; + _ + ("ut" | "yt") => sRae vesi (ves + ("en" + a)) ; + _ + ("as" | "äs") => sRae vesi (vet + (a + "n" + a)) ; + _ + ("ar" | "är") => sRae vesi (vet + ("ren" + a)) ; + _ + "n" => sLiitin vesi (vet + "men") ; + _ + "s" => sTilaus vesi (ves + ("ksen" + a)) ; + _ + "i" => sBaari (vesi + a) ; + _ + "e" => sRae vesi (strongGrade vesi + "en" + a) ; + _ + ("a" | "o" | "u" | "y" | "ä" | "ö") => sLukko vesi ; + _ => sLinux (vesi + "i" + a) } - } - } - ) ** {g = NonHuman ; lock_N = <>} ; + ) ** {lock_N = <>} ; reg2N : (savi,savia : Str) -> N = \savi,savia -> - ---- nhn (reg2NounH savi savia) let savit = regN savi ; ia = Predef.dp 2 savia ; @@ -412,57 +409,51 @@ oper case of { <"i","ia"> => nhn (sArpi savi) ; <"i","iä"> => nhn (sSylki savi) ; - <"i","ta"> | <"i","tä"> => nhn (sTohtori (savi + a)) ; <"o","ta"> | <"ö","tä"> => nhn (sRadio savi) ; <"a","ta"> | <"ä","tä"> => nhn (sPeruna savi) ; - <"a","ia"> | <"a","ja"> => nhn (sKukko savi savin savia) ; + <"i","ta"> | <"i","tä"> => nhn (sTohtori (savi + a)) ; -- from 10 to 90 ms +-- <"a","ia"> | <"a","ja"> => nhn (sKukko savi savin savia) ; ---needless? _ => savit } - ** {g = NonHuman ; lock_N = <>} ; + ** {lock_N = <>} ; reg3N = \vesi,veden,vesiä -> let - vesit = reg2N vesi vesiä ; si = Predef.dp 2 vesi ; - i = last si ; - a = last vesiä ; - s = last (Predef.tk 2 vesiä) + a = last vesiä in case si of { "us" | "ys" => - ifTok CommonNoun (Predef.dp 3 veden) "den" - (nhn (sRakkaus vesi)) - (nhn (sTilaus vesi (veden + a))) ; + nhn (case Predef.dp 3 veden of { + "den" => sRakkaus vesi ; + _ => sTilaus vesi (veden + a) + }) ; "as" | "äs" => nhn (sRae vesi (veden + a)) ; - "li" | "ni" | "ri" => nhn (sSusi vesi veden (Predef.tk 1 vesi + ("en" + a))) ; - "si" => nhn (sSusi vesi veden (Predef.tk 2 vesi + ("ten" + a))) ; + "li" | "ni" | "ri" => nhn (sSusi vesi veden (init vesi + ("en" + a))) ; + "si" => nhn (sSusi vesi veden (Predef.tk 2 vesi + ("ten" + a))) ; "in" | "en" | "än" => nhn (sLiitin vesi veden) ; - _ => case i of { - "a" | "o" | "u" | "y" | "ä" | "ö" => nhn (sKukko vesi veden vesiä) ; - "i" => nhn (sKorpi vesi veden (init veden + "n" + a)) ; - _ => vesit - } - } ** {g = NonHuman ; lock_N = <>} ; + _ + ("a" | "o" | "u" | "y" | "ä" | "ö") => nhn (sKukko vesi veden vesiä) ; + _ {- + "i" -} => nhn (sKorpi vesi veden (init veden + "n" + a)) + } + ** {lock_N = <>} ; - nKukko = \a,b,c -> nhn (sKukko a b c) ** {g = nonhuman ; lock_N = <>} ; + nKukko = \a,b,c -> nhn (sKukko a b c) ** {lock_N = <>} ; - humanN = \n -> {s = n.s ; lock_N = n.lock_N ; g = human} ; - - nLukko = \a -> nhn (sLukko a) ** {g = nonhuman ; lock_N = <>} ; - nTalo = \a -> nhn (sTalo a) ** {g = nonhuman ; lock_N = <>} ; - nArpi = \a -> nhn (sArpi a) ** {g = nonhuman ; lock_N = <>} ; - nSylki = \a -> nhn (sSylki a) ** {g = nonhuman ; lock_N = <>} ; - nLinux = \a -> nhn (sLinux a) ** {g = nonhuman ; lock_N = <>} ; - nPeruna = \a -> nhn (sPeruna a) ** {g = nonhuman ; lock_N = <>} ; - nRae = \a,b -> nhn (sRae a b) ** {g = nonhuman ; lock_N = <>} ; - nSusi = \a,b,c -> nhn (sSusi a b c) ** {g = nonhuman ; lock_N = <>} ; - nPuu = \a -> nhn (sPuu a) ** {g = nonhuman ; lock_N = <>} ; - nSuo = \a -> nhn (sSuo a) ** {g = nonhuman ; lock_N = <>} ; - nNainen = \a -> nhn (sNainen a) ** {g = nonhuman ; lock_N = <>} ; - nTilaus = \a,b -> nhn (sTilaus a b) ** {g = nonhuman ; lock_N = <>} ; + nLukko = \a -> nhn (sLukko a) ** {lock_N = <>} ; + nTalo = \a -> nhn (sTalo a) ** {lock_N = <>} ; + nArpi = \a -> nhn (sArpi a) ** {lock_N = <>} ; + nSylki = \a -> nhn (sSylki a) ** {lock_N = <>} ; + nLinux = \a -> nhn (sLinux a) ** {lock_N = <>} ; + nPeruna = \a -> nhn (sPeruna a) ** {lock_N = <>} ; + nRae = \a,b -> nhn (sRae a b) ** {lock_N = <>} ; + nSusi = \a,b,c -> nhn (sSusi a b c) ** {lock_N = <>} ; + nPuu = \a -> nhn (sPuu a) ** {lock_N = <>} ; + nSuo = \a -> nhn (sSuo a) ** {lock_N = <>} ; + nNainen = \a -> nhn (sNainen a) ** {lock_N = <>} ; + nTilaus = \a,b -> nhn (sTilaus a b) ** {lock_N = <>} ; nKulaus = \a -> nTilaus a (init a + "ksen" + getHarmony (last (init a))) ; - nNauris = \a -> nhn (sNauris a) ** {g = nonhuman ; lock_N = <>} ; + nNauris = \a -> nhn (sNauris a) ** {lock_N = <>} ; sgpartN noun part = { s = table { NCase Sg Part => part ; @@ -475,89 +466,96 @@ reg3N = \vesi,veden,vesi let a = vowelHarmony meri in sgpartN (reg2N meri (meri + a)) (init meri + "ta") ; - nComp = \s,n -> {s = \\c => s ++ n.s ! c ; g = n.g ; lock_N = <>} ; - mkN2 = \n,c -> n2n n ** {c = NPCase c ; lock_N2 = <>} ; - mkN3 = \n,c,e -> n2n n ** {c = NPCase c ; c2 = NPCase e ; lock_N3 = <>} ; - genN2 = \n -> mkN2 n genitive ; - mkPN n = mkProperName n ** {lock_PN = <>} ; + compN = \s,n -> {s = \\c => s ++ n.s ! c ; g = n.g ; lock_N = <>} ; - mkA = \x -> noun2adj x ** {lock_A = <>} ; - mkA2 = \x,c -> x ** {s3 = c.s3 ; p = c.p ; c = c.c ; lock_A2 = <>} ; + mkN2 = \n,c -> n ** {c2 = c ; lock_N2 = <>} ; + mkN3 = \n,c,e -> n ** {c2 = c ; c3 = e ; lock_N3 = <>} ; + genN2 = \n -> mkN2 n (casePrep genitive) ; + regPN m = mkPN (regN m) ; + mkPN n = mkProperName n ** {lock_PN = <>} ; + mkNP noun num = { + s = \\c => noun.s ! NCase num (npform2case num c) ; + a = agrP3 num ; + isPron = False ; + lock_NP = <> + } ; + + mkA = \x -> {s = \\_ => (noun2adj x).s ; lock_A = <>} ; + mkA2 = \x,c -> x ** {c2 = c ; lock_A2 = <>} ; mkADeg x kivempi kivin = let a = last (x.s ! ((NCase Sg Part))) ; ---- gives "kivinta" kivempaa = init kivempi + a + a ; kivinta = kivin + "t" + a in - regAdjDegr x kivempaa kivinta ** {lock_ADeg = <>} ; + regAdjective x kivempaa kivinta ** {lock_A = <>} ; - regADeg suuri = + regA suuri = let suur = regN suuri in mkADeg suur (init (suur.s ! NCase Sg Gen) + "mpi") (init (suur.s ! NCase Pl Ess)) ; - mkV a b c d e f g h i j k l = mkVerb a b c d e f g h i j k l ** - {sc = Nom ; lock_V = <>} ; + regADeg = regA ; -- for bw compat - regV soutaa = v2v (regVerbH soutaa) ** {sc = Nom ; lock_V = <>} ; + mkV a b c d e f g h i j k l = mkVerb a b c d e f g h i j k l ** + {sc = NPCase Nom ; lock_V = <>} ; + + regV soutaa = v2v (regVerbH soutaa) ** {sc = NPCase Nom ; lock_V = <>} ; reg2V : (soutaa,souti : Str) -> V = \soutaa,souti -> - v2v (reg2VerbH soutaa souti) ** {sc = Nom ; lock_V = <>} ; + v2v (reg2VerbH soutaa souti) ** {sc = NPCase Nom ; lock_V = <>} ; reg3V soutaa soudan souti = - v2v (reg3VerbH soutaa soudan souti) ** {sc = Nom ; lock_V = <>} ; + v2v (reg3VerbH soutaa soudan souti) ** {sc = NPCase Nom ; lock_V = <>} ; - vValua v = v2v (vSanoa v) ** {sc = Nom ; lock_V = <>} ; - vKattaa v u = v2v (vOttaa v u) ** {sc = Nom ; lock_V = <>} ; - vOstaa v = v2v (vPoistaa v) ** {sc = Nom ; lock_V = <>} ; - vNousta v u = v2v (vJuosta v u [] []) ** {sc = Nom ; lock_V = <>} ; ----- - vTuoda v = v2v (vJuoda v []) ** {sc = Nom ; lock_V = <>} ; ----- - caseV c v = {s = v.s ; sc = c ; lock_V = <>} ; + subjcaseV v c = {s = v.s ; sc = NPCase c ; lock_V = v.lock_V} ; - vOlla = verbOlla ** {sc = Nom ; lock_V = <>} ; - vEi = verbEi ** {sc = Nom ; lock_V = <>} ; + vValua v = v2v (vSanoa v) ** {sc = NPCase Nom ; lock_V = <>} ; + vKattaa v u = v2v (vOttaa v u) ** {sc = NPCase Nom ; lock_V = <>} ; + vOstaa v = v2v (vPoistaa v) ** {sc = NPCase Nom ; lock_V = <>} ; + vNousta v u = v2v (vJuosta v u [] []) ** {sc = NPCase Nom ; lock_V = <>} ; ----- + vTuoda v = v2v (vJuoda v []) ** {sc = NPCase Nom ; lock_V = <>} ; ----- + caseV c v = {s = v.s ; sc = NPCase c ; lock_V = <>} ; + + vOlla = verbOlla ** {sc = NPCase Nom ; lock_V = <>} ; vHuoltaa : (_,_,_,_ : Str) -> Verb = \ottaa,otan,otti,otin -> - v2v (SyntaxFin.vHuoltaa ottaa otan otti otin) ** {sc = Nom ; lock_V = <>} ; - mkV2 = \v,c -> v ** {s3 = c.s3 ; p = c.p ; c = c.c ; lock_V2 = <>} ; - caseV2 = \v,c -> mkV2 v (caseP c) ; - dirV2 v = mkTransVerbDir v ** {lock_V2 = <>} ; + v2v (MorphoFin.vHuoltaa ottaa otan otti otin) ** {sc = NPCase Nom ; lock_V = <>} ; + + + mkV2 = \v,c -> v ** {c2 = c ; lock_V2 = <>} ; + caseV2 = \v,c -> mkV2 v (casePrep c) ; + dirV2 v = mkV2 v accPrep ; mkAdv : Str -> Adv = \s -> {s = s ; lock_Adv = <>} ; - mkV3 v p q = v ** - {s3 = p.s3 ; p = p.p ; c = p.c ; s5 = q.s3 ; p2 = q.p ; c2 = q.c ; - lock_V3 = <>} ; - dirV3 v p = mkV3 v accusative (caseP p) ; + mkV3 v p q = v ** {c2 = p ; c3 = q ; lock_V3 = <>} ; + dirV3 v p = mkV3 v accPrep (casePrep p) ; dirdirV3 v = dirV3 v allative ; - mkV0 v = v ** {lock_V0 = <>} ; mkVS v = v ** {lock_VS = <>} ; - mkV2S v = v ** {lock_V2S = <>} ; --- mkVV v = v ** {lock_VV = <>} ; - mkV2V v = v ** {lock_V2V = <>} ; - mkVA v c = v ** {c = c ; lock_VA = <>} ; - mkV2A v c = v ** {c2 = c ; lock_V2A = <>} ; + mkVV v = v ** {lock_VV = <>} ; mkVQ v = v ** {lock_VQ = <>} ; - mkV2Q v = v ** {lock_V2Q = <>} ; - mkAS v = v ** {lock_AS = <>} ; - mkA2S v = v ** {lock_A2S = <>} ; - mkAV v = v ** {lock_AV = <>} ; - mkA2V v = v ** {lock_A2V = <>} ; + V0 : Type = V ; + V2S, V2V, V2Q : Type = V2 ; + AS, A2S, AV : Type = A ; + A2V : Type = A2 ; --- inf_illative --- infinitive + mkV0 v = v ** {lock_V = <>} ; + mkV2S v p = mkV2 v p ** {lock_V2 = <>} ; + mkV2V v p = mkV2 v p ** {lock_V2 = <>} ; + mkVA v p = v ** {c2 = p ; lock_VA = <>} ; + mkV2A v p q = v ** {c2 = p ; c3 = q ; lock_V2A = <>} ; + mkV2Q v p = mkV2 v p ** {lock_V2 = <>} ; + mkAS v = v ** {lock_A = <>} ; + mkA2S v p = mkA2 v p ** {lock_A = <>} ; + mkAV v = v ** {lock_A = <>} ; + mkA2V v p = mkA2 v p ** {lock_A2 = <>} ; --- V3 = TransVerb ** {s5, s6 : Str ; c2 : ComplCase} ; --- Verb ** {s3, s4 : Str ; c : ComplCase} ; --- mkN3 n c1 c2 --- {c : NPForm} ; --- N3 = Function ** {c2 : NPForm} ; } ; - diff --git a/lib/resource-1.0/finnish/PhraseFin.gf b/lib/resource/finnish/PhraseFin.gf similarity index 100% rename from lib/resource-1.0/finnish/PhraseFin.gf rename to lib/resource/finnish/PhraseFin.gf diff --git a/lib/resource-1.0/finnish/QuestionFin.gf b/lib/resource/finnish/QuestionFin.gf similarity index 100% rename from lib/resource-1.0/finnish/QuestionFin.gf rename to lib/resource/finnish/QuestionFin.gf diff --git a/lib/resource-1.0/finnish/RelativeFin.gf b/lib/resource/finnish/RelativeFin.gf similarity index 100% rename from lib/resource-1.0/finnish/RelativeFin.gf rename to lib/resource/finnish/RelativeFin.gf diff --git a/lib/resource-1.0/finnish/ResFin.gf b/lib/resource/finnish/ResFin.gf similarity index 100% rename from lib/resource-1.0/finnish/ResFin.gf rename to lib/resource/finnish/ResFin.gf diff --git a/lib/resource-1.0/finnish/SentenceFin.gf b/lib/resource/finnish/SentenceFin.gf similarity index 100% rename from lib/resource-1.0/finnish/SentenceFin.gf rename to lib/resource/finnish/SentenceFin.gf diff --git a/lib/resource/finnish/StructuralFin.gf b/lib/resource/finnish/StructuralFin.gf index 79ff08979..af7a27b72 100644 --- a/lib/resource/finnish/StructuralFin.gf +++ b/lib/resource/finnish/StructuralFin.gf @@ -1,114 +1,306 @@ ---# -path=.:../abstract:../../prelude +concrete StructuralFin of Structural = CatFin ** + open MorphoFin, ParadigmsFin, Prelude in { ---1 The Top-Level Finnish Resource Grammar: Structural Words --- --- Aarne Ranta 2002 -- 2005 --- -concrete StructuralFin of Structural = - CategoriesFin, NumeralsFin ** open Prelude, SyntaxFin in { flags optimize=all ; lin + above_Prep = postGenPrep "yläpuolella" ; + after_Prep = postGenPrep "jälkeen" ; - UseNumeral i = {s = \\np => i.s ! NCase Sg (npForm2Case Sg np) ; n = i.n ; isNum = True} ; - - above_Prep = prepPostpGen "yläpuolella" ; - after_Prep = prepPostpGen "jälkeen" ; - all8mass_Det = mkDeterminer singular (kaikkiPron Sg) ; - all_NDet = mkDeterminerNum (kaikkiPron Pl) ; - almost_Adv = ss "melkein" ; - although_Subj = ss "vaikka" ; + all_Predet = {s = \\n,c => + let + kaiket = caseTable n (nhn (sKorpi "kaikki" "kaiken" "kaikkena")) + in + case npform2case n c of { + Nom => "kaikki" ; + k => kaiket ! k + } + } ; + almost_AdA, almost_AdN = ss "melkein" ; although_Subj = ss "vaikka" ; + always_AdV = ss "aina" ; and_Conj = ss "ja" ** {n = Pl} ; because_Subj = ss "koska" ; - before_Prep = prepPrep "ennen" Part ; - behind_Prep = prepPostpGen "takana" ; - between_Prep = prepPostpGen "välissä" ; - both_AndConjD = sd2 "sekä" "että" ** {n = Pl} ; - by8agent_Prep = prepPostpGen "toimesta" ; - by8means_Prep = prepPostpGen "avulla" ; ----- can8know_VV = nomVerbVerb (vOsata "osata") ; ----- can_VV = nomVerbVerb (vJuoda "voida" "voi") ; - during_Prep = prepPostpGen "aikana" ; - either8or_ConjD = sd2 "joko" "tai" ** {n = Sg} ; - everybody_NP = { - s = \\f => kaikkiPron Pl ! (npForm2Case Pl f) ; -- näin kaikki - n = Pl ; - p = NP3 - } ; - every_Det = jokainenDet ; - everything_NP = { - s = \\f => kaikkiPron Sg ! (npForm2Case Sg f) ; -- näin kaiken - n = Sg ; - p = NP3 - } ; + before_Prep = prePrep partitive "ennen" ; + behind_Prep = postGenPrep "takana" ; + between_Prep = postGenPrep "välissä" ; + both7and_DConj = sd2 "sekä" "että" ** {n = Pl} ; + but_PConj = ss "mutta" ; + by8agent_Prep = postGenPrep "toimesta" ; + by8means_Prep = casePrep adessive ; + can8know_VV = reg2V "osata" "osasi" ; + can_VV = reg2V "voida" "voi" ; + during_Prep = postGenPrep "aikana" ; + either7or_DConj = sd2 "joko" "tai" ** {n = Sg} ; + everybody_NP = mkNP (regN "jokainen") Sg ; + every_Det = mkDet Sg (regN "jokainen") ; + everything_NP = mkNP ((nhn (sKorpi "kaikki" "kaiken" "kaikkena")) ** + {lock_N = <>}) Sg ; everywhere_Adv = ss "kaikkialla" ; - from_Prep = prepCase Elat ; --- ablat - he_NP = pronNounPhrase pronHan ; - how_IAdv = ss "kuinka" ; + few_Det = mkDet Sg (regN "harva") ; + first_Ord = {s = \\n,c => (regN "ensimmäinen").s ! NCase n c} ; + from_Prep = casePrep elative ; + he_Pron = mkPronoun "hän" "hänen" "häntä" "hänenä" "häneen" Sg P3 ; + here_Adv = ss "täällä" ; + here7to_Adv = ss "tänne" ; + here7from_Adv = ss "täältä" ; + how_IAdv = ss "miten" ; + how8many_IDet = + {s = \\c => "kuinka" ++ (reg2N "moni" "monia").s ! NCase Sg c ; n = Sg} ; if_Subj = ss "jos" ; - in8front_Prep = prepPostpGen "edessä" ; - i_NP = pronNounPhrase pronMina ; - in_Prep = prepCase Iness ; - it_NP = nameNounPhrase pronSe ; - many_Det = mkDeterminer singular moniPron ; - most8many_Det = useimmatDet ; - most_Det = mkDeterminer singular (caseTable singular (nhn (sSuurin "enintä"))) ; - much_Det = mkDeterminer singular (caseTable singular (nhn (sNauris "runsasta"))) ; ----- must_VV = vHukkua "täytyä" "täydy" ** {c = CCase Gen} ; - no_Phr = ss ("Ei" ++ stopPunct) ; - on_Prep = prepCase Adess ; - or_Conj = ss "tai" ** {n = Sg} ; - otherwise_Adv = ss "muuten" ; - part_Prep = prepCase Part ; - possess_Prep = prepCase Gen ; - quite_Adv = ss "aika" ; - she_NP = pronNounPhrase pronHan ; - so_Adv = ss "niin" ; - somebody_NP = { - s = \\f => jokuPron ! Sg ! (npForm2Case Sg f) ; - n = Sg ; - p = NP3 + in8front_Prep = postGenPrep "edessä" ; + i_Pron = mkPronoun "minä" "minun" "minua" "minuna" "minuun" Sg P1 ; + in_Prep = casePrep inessive ; + it_Pron = { + s = \\c => pronSe.s ! npform2case Sg c ; + a = agrP3 Sg ; + isPron = False + } ; + less_CAdv = ss "vähemmän" ; + many_Det = mkDet Sg (reg2N "moni" "monia") ; + more_CAdv = ss "enemmän" ; + most_Predet = {s = \\n,c => (nhn (sSuurin "useinta")).s ! NCase n (npform2case n c)} ; + much_Det = mkDet Sg {s = \\_ => "paljon"} ; + must_VV = subjcaseV (regV "täytyä") genitive ; + no_Phr = ss "ei" ; + on_Prep = casePrep adessive ; + one_Quant = mkDet Sg + (nhn (mkSubst "ä" "yksi" "yhde" "yhte" "yhtä" "yhteen" "yksi" "yksi" + "yksien" "yksiä" "yksiin")) ; + only_Predet = {s = \\_,_ => "vain"} ; + or_Conj = ss "tai" ** {n = Sg} ; + otherwise_PConj = ss "muuten" ; + part_Prep = casePrep partitive ; + please_Voc = ss ["ole hyvä"] ; --- number + possess_Prep = casePrep genitive ; + quite_Adv = ss "melko" ; + she_Pron = mkPronoun "hän" "hänen" "häntä" "hänenä" "häneen" Sg P3 ; + so_AdA = ss "niin" ; + somebody_NP = { + s = \\c => jokuPron ! Sg ! npform2case Sg c ; + a = agrP3 Sg ; + isPron = False + } ; + someSg_Det = { + s1 = jokuPron ! Sg ; + s2 = [] ; + isNum,isPoss = False ; isDef = True ; n = Sg + } ; + somePl_Det = { + s1 = jokuPron ! Pl ; + s2 = [] ; isNum,isPoss = False ; isDef = True ; + n = Pl } ; - some_Det = mkDeterminerGen Sg (jokinPron ! Sg) (jokuPron ! Sg) ; - some_NDet = mkDeterminerGenNum (jokinPron ! Pl) (jokuPron ! Pl) ; something_NP = { - s = \\f => jokinPron ! Sg ! (npForm2Case Sg f) ; -- näin kaiken - n = Sg ; - p = NP3 + s = \\c => jokinPron ! Sg ! npform2case Sg c ; + a = agrP3 Sg ; + isPron = False } ; somewhere_Adv = ss "jossain" ; - that_Det = mkDeterminer Sg (\\c => pronTuo.s ! PCase c) ; - that_NP = pronNounPhraseNP pronTuo ; - therefore_Adv = ss "siksi" ; - these_NDet = mkDeterminerNum (\\c => pronNama.s ! PCase c) ; - they_NP = pronNounPhrase pronHe ; --- ne - this_Det = mkDeterminer Sg (\\c => pronTama.s ! PCase c) ; - this_NP = pronNounPhraseNP pronTama ; - those_NDet = mkDeterminerNum (\\c => pronNuo.s ! PCase c) ; - thou_NP = pronNounPhrase pronSina ; - through_Prep = prepPostpGen "kautta" ; - too_Adv = ss "liian" ; - to_Prep = prepCase Illat ; --- allat - under_Prep = prepPostpGen "alla" ; - very_Adv = ss "hyvin" ; ----- want_VV = nomVerbVerb (vOsata "haluta") ; - we_NP = pronNounPhrase pronMe ; - what8many_IP = intPronWhat Pl ; - what8one_IP = intPronWhat Sg ; - when_IAdv = ss "koska" ; + that_Quant = { + s1 = table Number [ + table Case { + c => (mkPronoun "tuo" "tuon" "tuota" "tuona" "tuohon" Sg P3).s ! NPCase c + } ; + table Case { + c => (mkPronoun "nuo" "noiden" "noita" "noina" "noihin" Sg P3).s ! NPCase c + } + ] ; + s2 = [] ; isNum,isPoss = False ; isDef = True ; + } ; + that_NP = + mkDemPronoun "tuo" "tuon" "tuota" "tuona" "tuohon" Sg ** + {isPron = False} ; + there_Adv = ss "siellä" ; --- tuolla + there7to_Adv = ss "sinne" ; + there7from_Adv = ss "sieltä" ; + therefore_PConj = ss "siksi" ; + these_NP = + mkDemPronoun "nämä" "näiden" "näitä" "näinä" "näihin" Pl ** + {isPron = False} ; + they_Pron = mkPronoun "he" "heidän" "heitä" "heinä" "heihin" Pl P3 ; --- ne + this_Quant = { + s1 = table Number [ + table Case { + c => (mkPronoun "tämä" "tämän" "tätä" "tänä" "tähän" Sg P3).s ! NPCase c + } ; + table Case { + c => (mkPronoun "nuo" "noiden" "noita" "noina" "noihin" Sg P3).s ! NPCase c + } + ] ; + s2 = [] ; isNum,isPoss = False ; isDef = True ; + } ; + this_NP = + mkDemPronoun "tämä" "tämän" "tätä" "tänä" "tähän" Sg ** + {isPron = False} ; + those_NP = + mkDemPronoun "nuo" "noiden" "noita" "noina" "noihin" Pl ** + {isPron = False} ; + through_Prep = postGenPrep "kautta" ; + too_AdA = ss "liian" ; + to_Prep = casePrep illative ; --- allative + under_Prep = postGenPrep "alla" ; + very_AdA = ss "erittäin" ; + want_VV = regV "tahtoa" ; + we_Pron = mkPronoun "me" "meidän" "meitä" "meinä" "meihin" Pl P1 ; + whatPl_IP = { + s = table {NPAcc => "mitkä" ; c => mikaInt ! Pl ! npform2case Pl c} ; + n = Pl + } ; + whatSg_IP = { + s = \\c => mikaInt ! Sg ! npform2case Sg c ; + n = Sg + } ; + when_IAdv = ss "milloin" ; when_Subj = ss "kun" ; where_IAdv = ss "missä" ; - which8one_IDet = mikaDet ; ----- which8many_IDet n = mkDeterminerGenNum n (mikaInt ! Pl) (kukaInt ! Pl) ; - who8many_IP = intPronWho Pl ; - who8one_IP = intPronWho Sg ; - + whichPl_IDet = { + s = mikaInt ! Pl ; + n = Pl + } ; + whichSg_IDet = { + s = mikaInt ! Sg ; + n = Sg + } ; + whoSg_IP = { + s = table {NPAcc => "kenet" ; c => kukaInt ! Sg ! npform2case Sg c} ; + n = Sg + } ; + whoPl_IP = { + s = table {NPAcc => "ketkä" ; c => kukaInt ! Pl ! npform2case Pl c} ; + n = Pl + } ; why_IAdv = ss "miksi" ; - without_Prep = prepPrep "ilman" Part ; - with_Prep = prepPostpGen "kanssa" ; - ye_NP = pronNounPhrase pronTe ; - yes_Phr = ss ("Kyllä" ++ stopPunct) ; - you_NP = pronNounPhrase pronTe ; + without_Prep = prePrep partitive "ilman" ; + with_Prep = postGenPrep "kanssa" ; + yes_Phr = ss "kyllä" ; + youSg_Pron = mkPronoun "sinä" "sinun" "sinua" "sinuna" "sinuun" Sg P2 ; + youPl_Pron = mkPronoun "te" "teidän" "teitä" "teinä" "teihin" Pl P2 ; + youPol_Pron = mkPronoun "te" "teidän" "teitä" "teinä" "teihin" Pl P2 ; --- Sg + + +oper + jokuPron : Number => Case => Str = + let + ku = nhn (sPuu "ku") ; + kui = nhn (sPuu "kuu") + in + table { + Sg => table { + Nom => "joku" ; + Gen => "jonkun" ; + c => relPron ! Sg ! c + ku.s ! NCase Sg c + } ; + Pl => table { + Nom => "jotkut" ; + c => relPron ! Pl ! c + kui.s ! NCase Pl c + } + } ; + + jokinPron : Number => Case => Str = + table { + Sg => table { + Nom => "jokin" ; + Gen => "jonkin" ; + c => relPron ! Sg ! c + "kin" + } ; + Pl => table { + Nom => "jotkin" ; + c => relPron ! Pl ! c + "kin" + } + } ; + + mikaInt : Number => Case => Str = + let { + mi = nhn (sSuo "mi") + } in + table { + Sg => table { + Nom => "mikä" ; + Gen => "minkä" ; + c => mi.s ! NCase Sg c + } ; + Pl => table { + Nom => "mitkä" ; + Gen => "mittenkä" ; + c => mi.s ! NCase Sg c + } + } ; + + kukaInt : Number => Case => Str = + let { + ku = nhn (sRae "kuka" "kenenä") ; + ket = nhn (sRae "kuka" "keinä")} in + table { + Sg => table { + Nom => "kuka" ; + Part => "ketä" ; + Illat => "keneen" ; + c => ku.s ! NCase Sg c + } ; + Pl => table { + Nom => "ketkä" ; + Illat => "keihin" ; + c => ket.s ! NCase Pl c + } + } ; + mikaanPron : Number => Case => Str = \\n,c => + case of { + => "mikään" ; + <_,Part> => "mitään" ; + => "minkään" ; + => "mitkään" ; + => "mittenkään" ; + <_,Ess> => "minään" ; + <_,Iness> => "missään" ; + <_,Elat> => "mistään" ; + <_,Adess> => "millään" ; + <_,Ablat> => "miltään" ; + _ => mikaInt ! n ! c + "kään" + } ; + + kukaanPron : Number => Case => Str = + table { + Sg => table { + Nom => "kukaan" ; + Part => "ketään" ; + Ess => "kenään" ; + Iness => "kessään" ; + Elat => "kestään" ; + Illat => "kehenkään" ; + Adess => "kellään" ; + Ablat => "keltään" ; + c => kukaInt ! Sg ! c + "kään" + } ; + Pl => table { + Nom => "ketkään" ; + Part => "keitään" ; + Ess => "keinään" ; + Iness => "keissään" ; + Elat => "keistään" ; + Adess => "keillään" ; + Ablat => "keiltään" ; + c => kukaInt ! Pl ! c + "kään" + } + } ; + + pronSe : ProperName = { + s = table { + Nom => "se" ; + Gen => "sen" ; + Part => "sitä" ; + Transl => "siksi" ; + Ess => "sinä" ; + Iness => "siinä" ; + Elat => "siitä" ; + Illat => "siihen" ; + Adess => "sillä" ; + Ablat => "siltä" ; + Allat => "sille" ; + Abess => "sittä" + } ; + } ; + } + diff --git a/lib/resource-1.0/finnish/VerbFin.gf b/lib/resource/finnish/VerbFin.gf similarity index 100% rename from lib/resource-1.0/finnish/VerbFin.gf rename to lib/resource/finnish/VerbFin.gf diff --git a/lib/resource-1.0/french/AdjectiveFre.gf b/lib/resource/french/AdjectiveFre.gf similarity index 100% rename from lib/resource-1.0/french/AdjectiveFre.gf rename to lib/resource/french/AdjectiveFre.gf diff --git a/lib/resource-1.0/french/AdverbFre.gf b/lib/resource/french/AdverbFre.gf similarity index 100% rename from lib/resource-1.0/french/AdverbFre.gf rename to lib/resource/french/AdverbFre.gf diff --git a/lib/resource/french/BeschFre.gf b/lib/resource/french/BeschFre.gf index 4f67c7ecc..9903e07ec 100644 --- a/lib/resource/french/BeschFre.gf +++ b/lib/resource/french/BeschFre.gf @@ -1,4 +1,6 @@ -resource BeschFre = open Prelude, TypesFre, MorphoFre in { +resource BeschFre = open Prelude, MorphoFre in { + +flags optimize=noexpand ; -- faster and smaller than =all oper VerbeN = {s : VF => Str} ; oper mkNV : Verbe -> VerbeN = \ve -> {s = vvf ve} ; @@ -6,7 +8,7 @@ oper mkNV : Verbe -> VerbeN = \ve -> {s = vvf ve} ; oper conj : Str -> Verbe = conj1aimer ; --- temp. default oper v_nancy100inf : Str -> VerbeN = \ve -> {s = table { - VInfin => ve ; + VInfin _ => ve ; _ => nonExist } } ; @@ -97,4 +99,4 @@ oper v_besch82 : Str -> VerbeN = \s -> mkNV (conj3cuire s) ; oper v_besch100 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do oper v_besch101 : Str -> VerbeN = \s -> mkNV (conj s) ; --- to do -} \ No newline at end of file +} diff --git a/lib/resource-1.0/french/CatFre.gf b/lib/resource/french/CatFre.gf similarity index 100% rename from lib/resource-1.0/french/CatFre.gf rename to lib/resource/french/CatFre.gf diff --git a/lib/resource-1.0/french/ConjunctionFre.gf b/lib/resource/french/ConjunctionFre.gf similarity index 100% rename from lib/resource-1.0/french/ConjunctionFre.gf rename to lib/resource/french/ConjunctionFre.gf diff --git a/lib/resource-1.0/french/DiffFre.gf b/lib/resource/french/DiffFre.gf similarity index 100% rename from lib/resource-1.0/french/DiffFre.gf rename to lib/resource/french/DiffFre.gf diff --git a/lib/resource-1.0/french/ExtraFre.gf b/lib/resource/french/ExtraFre.gf similarity index 100% rename from lib/resource-1.0/french/ExtraFre.gf rename to lib/resource/french/ExtraFre.gf diff --git a/lib/resource-1.0/french/ExtraFreAbs.gf b/lib/resource/french/ExtraFreAbs.gf similarity index 100% rename from lib/resource-1.0/french/ExtraFreAbs.gf rename to lib/resource/french/ExtraFreAbs.gf diff --git a/lib/resource-1.0/french/ExtraRomanceFre.gf b/lib/resource/french/ExtraRomanceFre.gf similarity index 100% rename from lib/resource-1.0/french/ExtraRomanceFre.gf rename to lib/resource/french/ExtraRomanceFre.gf diff --git a/lib/resource-1.0/french/French.gf b/lib/resource/french/French.gf similarity index 100% rename from lib/resource-1.0/french/French.gf rename to lib/resource/french/French.gf diff --git a/lib/resource-1.0/french/FrenchAbs.gf b/lib/resource/french/FrenchAbs.gf similarity index 100% rename from lib/resource-1.0/french/FrenchAbs.gf rename to lib/resource/french/FrenchAbs.gf diff --git a/lib/resource-1.0/french/GrammarFre.gf b/lib/resource/french/GrammarFre.gf similarity index 100% rename from lib/resource-1.0/french/GrammarFre.gf rename to lib/resource/french/GrammarFre.gf diff --git a/lib/resource-1.0/french/IdiomFre.gf b/lib/resource/french/IdiomFre.gf similarity index 100% rename from lib/resource-1.0/french/IdiomFre.gf rename to lib/resource/french/IdiomFre.gf diff --git a/lib/resource-1.0/french/IrregFre.gf b/lib/resource/french/IrregFre.gf similarity index 100% rename from lib/resource-1.0/french/IrregFre.gf rename to lib/resource/french/IrregFre.gf diff --git a/lib/resource-1.0/french/IrregFreAbs.gf b/lib/resource/french/IrregFreAbs.gf similarity index 100% rename from lib/resource-1.0/french/IrregFreAbs.gf rename to lib/resource/french/IrregFreAbs.gf diff --git a/lib/resource/french/LangFre.gf b/lib/resource/french/LangFre.gf index bc9935c10..6070e2634 100644 --- a/lib/resource/french/LangFre.gf +++ b/lib/resource/french/LangFre.gf @@ -1,23 +1,10 @@ ---# -path=.:../romance:../abstract:../../prelude +--# -path=.:../romance:../abstract:../common:prelude concrete LangFre of Lang = - RulesFre, - ClauseFre, - StructuralFre, - BasicFre, - TimeFre, - CountryFre, - MathFre + GrammarFre, + LexiconFre + ** { - ** open Prelude, ParadigmsFre in { +flags startcat = Phr ; unlexer = text ; lexer = text ; -lin - AdvDate d = prefixSS "le" d ; - AdvTime t = prefixSS "à" t ; - NWeekday w = w ; - PNWeekday w = mkPN (w.s ! singular) w.g ; - - PNCountry x = x ; - ANationality x = x ; - NLanguage x = x ; -} +} ; diff --git a/lib/resource-1.0/french/LexiconFre.gf b/lib/resource/french/LexiconFre.gf similarity index 100% rename from lib/resource-1.0/french/LexiconFre.gf rename to lib/resource/french/LexiconFre.gf diff --git a/lib/resource/french/MorphoFre.gf b/lib/resource/french/MorphoFre.gf index 29ae4d39e..2af5be809 100644 --- a/lib/resource/french/MorphoFre.gf +++ b/lib/resource/french/MorphoFre.gf @@ -1,21 +1,19 @@ ---# -path=.:../romance:../../prelude +--# -path=.:../romance:../common:../../prelude --1 A Simple French Resource Morphology -- --- Aarne Ranta 2002--2003 +-- Aarne Ranta 2002 -- 2005 -- -- This resource morphology contains definitions needed in the resource --- syntax. It moreover contains the most usual inflectional patterns. --- The patterns for verbs contain the complete "Bescherelle" conjugation --- tables. --- --- We use the parameter types and word classes defined in $types.Fra.gf$. +-- syntax. To build a lexicon, it is better to use $ParadigmsFre$, which +-- gives a higher-level access to this module. -resource MorphoFre = open Predef, Prelude, TypesFre in { +resource MorphoFre = CommonRomance, ResFre ** + open PhonoFre, Prelude, Predef in { flags optimize=all ; ---3 Front vowels +--2 Front vowels -- -- In verb conjugation, we will need the concept of frontal vowel. @@ -38,6 +36,8 @@ oper -- Common nouns are inflected in number and have an inherent gender. + CNom = {s : Number => Str ; g : Gender} ; + mkCNom : (Number => Str) -> Gender -> CNom = \mecmecs,gen -> {s = mecmecs ; g = gen} ; @@ -58,7 +58,7 @@ oper mkCNomIrreg cas cas ; mkNomReg : Str -> Gender -> CNom = \cas -> - let cass = case dp 2 cas of { + let cass = case Predef.dp 2 cas of { "al" => init cas + "ux" ; "au" => cas + "x" ; "eu" => cas + "x" ; @@ -73,23 +73,6 @@ oper in mkCNomIrreg cas cass ; --- The definite article has quite some variation: three parameters and --- elision. This is the simples definition we have been able to find. - - artDef : Gender -> Number -> Case -> Str = \g,n,c -> artDefTable ! g ! n ! c ; - - artDefTable : Gender => Number => Case => Str = \\g,n,c => case of { - => elisLe ; - => pre {"du" ; ["de l'"] / voyelle} ; - => pre {"au" ; ["à l'"] / voyelle} ; - => elisLe ; - => prepCase c ++ elisLa ; - <_, Pl, Gen> => "des" ; - <_, Pl, Dat> => "aux" ; - <_, Pl, _ > => "les" - } ; - - --2 Adjectives -- -- Adjectives are conveniently seen as gender-dependent nouns. @@ -178,151 +161,25 @@ oper -- The use of "en" as atonic genitive is debatable. mkPronoun : (_,_,_,_,_,_,_ : Str) -> - PronGen -> Number -> Person -> ClitType -> Pronoun = - \il,le,lui,Lui,son,sa,ses,g,n,p,c -> + Gender -> Number -> Person -> Pronoun = + \il,le,lui,Lui,son,sa,ses,g,n,p -> {s = table { Ton x => prepCase x ++ Lui ; Aton Nom => il ; Aton Acc => le ; - Aton Gen => "en" ; --- hmm - Aton Dat => lui ; - Poss Sg Masc => son ; - Poss Sg Fem => sa ; - Poss Pl _ => ses + Aton (CPrep P_de) => "en" ; --- hmm + Aton (CPrep P_a) => lui ; + Poss {n = Sg ; g = Masc} => son ; + Poss {n = Sg ; g = Fem} => sa ; + Poss {n = Pl} => ses } ; - g = g ; - n = n ; - p = p ; - c = c + a = {g = g ; n = n ; p = p} ; + hasClit = True } ; elisPoss : Str -> Str = \s -> pre {s + "a" ; s + "on" / voyelle} ; - pronJe = mkPronoun - (elision "j") - (elision "m") - (elision "m") - "moi" - "mon" (elisPoss "m") "mes" - PNoGen -- gender cannot be known from pronoun alone - Sg - P1 - Clit1 ; - - pronTu = mkPronoun - "tu" - (elision "t") - (elision "t") - "toi" - "ton" (elisPoss "t") "tes" - PNoGen - Sg - P2 - Clit1 ; - - pronIl = mkPronoun - "il" - (elision "l") - "lui" - "lui" - "son" (elisPoss "s") "ses" - (PGen Masc) - Sg - P3 - Clit2 ; - ----- A hack to get the dative form "y". - pronY = mkPronoun - "il" - (elision "l") - "y" - "lui" - "en" "en" "en" - (PGen Masc) - Sg - P3 - Clit2 ; - - pronElle = mkPronoun - "elle" - elisLa - "lui" - "elle" - "son" (elisPoss "s") "ses" - (PGen Fem) - Sg - P3 - Clit2 ; - - pronNous = mkPronoun - "nous" - "nous" - "nous" - "nous" - "notre" "notre" "nos" - PNoGen - Pl - P1 - Clit3 ; - - pronVous = mkPronoun - "vous" - "vous" - "vous" - "vous" - "votre" "votre" "vos" - PNoGen - Pl --- depends! - P2 - Clit3 ; - - pronIls = mkPronoun - "ils" - "les" - "leur" - "eux" - "leur" "leur" "leurs" - (PGen Masc) - Pl - P3 - Clit1 ; - - pronElles = mkPronoun - "elles" - "les" - "leur" - "elles" - "leur" "leur" "leurs" - (PGen Fem) - Pl - P3 - Clit1 ; - - personPron : Gender -> Number -> Person -> Pronoun = \g,n,p -> - case of { - => pronJe ; - => pronTu ; - => case g of { - Masc => pronIl ; - Fem => pronElle - } ; - => pronNous ; - => pronVous ; - => case g of { - Masc => pronIls ; - Fem => pronElles - } - } ; - --- Reflexive pronouns are defined in $SyntaxFre$. - --- The composable pronoun "lequel" is inflected by varying the definite --- article and the determiner "quel" in the expected way. - - lequelPron : Gender -> Number -> Case -> Str = \g,n,c -> - artDef g n c + quelPron g n ; - --2 Determiners -- @@ -335,15 +192,6 @@ oper Fem => nomReg telle ! n } ; - quelPron : Gender -> Number -> Str = pronForms "quel" "quelle" ; - - telPron : Gender -> Number -> Str = pronForms "tel" "telle" ; - - toutPron : Gender -> Number -> Str = \g,n -> case g of { - Masc => numForms "tout" "tous" ! n ; - Fem => nomReg "toutee" ! n - } ; - -- The following macro generates the phrases "est-ce que", "est-ce qu'", -- and "est-ce qui" (the last one used e.g. in "qu'est-ce qui"). @@ -356,22 +204,44 @@ oper --2 Verbs --- ---3 The present tense --- --- We first define some macros for the special case of present tense. --- --- The verb "être" is often used in syntax. - verbEtre = verbPres (conjÊtre "être") AHabere ; - verbAvoir = verbPres (conjAvoir "avoir") AHabere ; +--3 Parameters + +-- The full conjunction is a table on $VForm$, as in "Bescherelle". + +param + Temps = Presn | Imparf | Passe | Futur ; + TSubj = SPres | SImparf ; + TPart = PPres | PPasse Gender Number ; + VForm = Inf + | Indi Temps Number Person + | Condi Number Person + | Subjo TSubj Number Person + | Imper NumPersI + | Part TPart ; + +-- This is a conversion to the type in $CommonRomance$. + +oper + vvf : (VForm => Str) -> (VF => Str) = \aller -> table { + VInfin _ => aller ! Inf ; + VFin (VPres Indic) n p => aller ! Indi Presn n p ; + VFin (VPres Subjunct) n p => aller ! Subjo SPres n p ; + VFin (VImperf Indic) n p => aller ! Indi Imparf n p ; --# notpresent + VFin (VImperf Subjunct) n p => aller ! Subjo SImparf n p ; --# notpresent + VFin VPasse n p => aller ! Indi Passe n p ; --# notpresent + VFin VFut n p => aller ! Indi Futur n p ; --# notpresent + VFin VCondit n p => aller ! Condi n p ; --# notpresent + VImper np => aller ! Imper np ; + VPart g n => aller ! Part (PPasse g n) ; + VGer => aller ! Part PPres -- *en* allant + } ; -- We very often form the verb stem by dropping out the infinitive ending. troncVerb : Tok -> Tok = Predef.tk 2 ; - --3 Affixes -- -- It is convenient to have sets of affixes as data objects. @@ -493,13 +363,13 @@ oper \affpres, affpasse -> table { Inf => tenir ; - Indic Pres Sg p => tien + affpres ! p ; - Indic Pres Pl P3 => tienn + affixPlOns ! P3 ; - Indic Pres Pl p => ten + affixPlOns ! p ; - Indic Imparf n p => ten + affixImparf ! n ! p ; - Indic Passe n p => t + affpasse.ps ! n ! p ; - Indic Futur n p => tiendr + affixFutur ! n ! p ; - Cond n p => tiendr + affixImparf ! n ! p ; + Indi Presn Sg p => tien + affpres ! p ; + Indi Presn Pl P3 => tienn + affixPlOns ! P3 ; + Indi Presn Pl p => ten + affixPlOns ! p ; + Indi Imparf n p => ten + affixImparf ! n ! p ; + Indi Passe n p => t + affpasse.ps ! n ! p ; + Indi Futur n p => tiendr + affixFutur ! n ! p ; + Condi n p => tiendr + affixImparf ! n ! p ; Subjo SPres Sg p => soi + affixSPres ! Sg ! p ; Subjo SPres Pl P3 => soi + "ent" ; Subjo SPres Pl p => soy + affixSPres ! Pl ! p ; @@ -591,9 +461,9 @@ oper mkVerbReg : Str -> Verbe = \parler -> let - e = last (tk 4 parler) ; - c = last (tk 3 parler) ; - verb_é = pbool2bool (occur "é" (e + last (tk 5 parler))) ; + e = last (Predef.tk 4 parler) ; + c = last (Predef.tk 3 parler) ; + verb_é = pbool2bool (occur "é" (e + last (Predef.tk 5 parler))) ; verb_e = andB (pbool2bool (occur e "e")) (pbool2bool (occur c "cmnprsv")) in case Predef.dp 4 parler of { @@ -608,7 +478,7 @@ oper "cer" => conj1placer parler ; "ger" => conj1manger parler ; "yer" => conj1payer parler ; - _ => case dp 2 parler of { + _ => case Predef.dp 2 parler of { "ir" => conj2finir parler ; _ => conj1aimer parler } @@ -686,7 +556,7 @@ oper vet = auxConj3ir "vêt" "vêt" "u" } in table { - Indic Pres Sg P3 => s + "vêt" ; + Indi Presn Sg P3 => s + "vêt" ; p => s + vet ! p }; @@ -716,11 +586,11 @@ oper tfa = conj3assaillir faillir } in table { - Indic Pres Sg p => fa + "u" + affixSgX ! p ; + Indi Presn Sg p => fa + "u" + affixSgX ! p ; Subjo SPres n p => fa + variants {"illiss" ; "ill"} + affixSPres ! n ! p ; - Indic Futur n p => variants {tfa ! Indic Futur n p ; faudr + affixFutur ! n ! p} ; - Cond n p => variants {tfa ! Cond n p ; faudr + affixImparf ! n ! p} ; + Indi Futur n p => variants {tfa ! Indi Futur n p ; faudr + affixFutur ! n ! p} ; + Condi n p => variants {tfa ! Condi n p ; faudr + affixImparf ! n ! p} ; Imper _ => nonExist ; p => tfa ! p @@ -732,7 +602,7 @@ oper tbou = conj3assaillir bouillir } in table { - Indic Pres Sg p => bou + affixSgS ! p ; + Indi Presn Sg p => bou + affixSgS ! p ; Imper SgP2 => bou + "s" ; p => tbou ! p }; @@ -778,9 +648,9 @@ oper let {g = Predef.tk 4 gésir} in table { Inf => g + "ésir" ; - Indic Pres Sg p => g + lesAffixes "is" "is" "ît" ! p ; - Indic Pres Pl p => g + "is" + affixPlOns ! p ; - Indic Imparf n p => g + "is" + affixImparf ! n ! p ; + Indi Presn Sg p => g + lesAffixes "is" "is" "ît" ! p ; + Indi Presn Pl p => g + "is" + affixPlOns ! p ; + Indi Imparf n p => g + "is" + affixImparf ! n ! p ; Part PPres => g + "isant" ; _ => nonExist } ; @@ -850,7 +720,7 @@ oper tpouvoir = auxConj3usX "eu" "ouv" "euv" "" "ourr" "uiss" "uiss" "ouv" } in table { - Indic Pres Sg P1 => p + variants {"eux" ; "uis"} ; + Indi Presn Sg P1 => p + variants {"eux" ; "uis"} ; t => p + tpouvoir ! t } ; @@ -868,11 +738,11 @@ oper auxConj3seul3sg : (_,_,_,_,_ : Str) -> Verbe = \faut, fall, pl, faudr, faill -> table { Inf => fall + "oir" ; - Indic Pres Sg P3 => faut ; - Indic Imparf Sg P3 => fall + "ait" ; - Indic Passe Sg P3 => pl + "ut" ; - Indic Futur Sg P3 => faudr + "a" ; - Cond Sg P3 => faudr + "ait" ; + Indi Presn Sg P3 => faut ; + Indi Imparf Sg P3 => fall + "ait" ; + Indi Passe Sg P3 => pl + "ut" ; + Indi Futur Sg P3 => faudr + "a" ; + Condi Sg P3 => faudr + "ait" ; Subjo SPres Sg P3 => faill + "e" ; Subjo SImparf Sg P3 => pl + "ût" ; Part PPres => fall + "ant" ; @@ -922,7 +792,7 @@ oper } in table { Inf => ass + "eoir" ; - Indic Pres Sg P3 => ass + "ied" ; + Indi Presn Sg P3 => ass + "ied" ; t => ass + tasseoir ! t } ; @@ -942,12 +812,12 @@ oper tseoir = conj3asseoir seoir } in table { - Indic Pres Pl P3 => s + "iéent" ; - Indic _ _ P1 => nonExist ; - Indic _ _ P2 => nonExist ; - Indic Passe _ _ => nonExist ; - Cond _ P1 => nonExist ; - Cond _ P2 => nonExist ; + Indi Presn Pl P3 => s + "iéent" ; + Indi _ _ P1 => nonExist ; + Indi _ _ P2 => nonExist ; + Indi Passe _ _ => nonExist ; + Condi _ P1 => nonExist ; + Condi _ P2 => nonExist ; Subjo SPres Sg P3 => s + "iée" ; Subjo SPres Pl P3 => s + "iéent" ; Subjo _ _ _ => nonExist ; @@ -990,13 +860,13 @@ oper conj3échoir : Str -> Verbe = \échoir -> let {techoir = conj3choir échoir} in table { - Indic _ _ P1 => nonExist ; - Indic _ _ P2 => nonExist ; - Indic Pres Pl P3 => Predef.tk 3 échoir + variants {"oient" ; "éent"} ; + Indi _ _ P1 => nonExist ; + Indi _ _ P2 => nonExist ; + Indi Presn Pl P3 => Predef.tk 3 échoir + variants {"oient" ; "éent"} ; Subjo _ _ P1 => nonExist ; Subjo _ _ P2 => nonExist ; - Cond _ P1 => nonExist ; - Cond _ P2 => nonExist ; + Condi _ P1 => nonExist ; + Condi _ P2 => nonExist ; Imper _ => nonExist ; Part PPres => Predef.tk 3 échoir + "éant" ; t => techoir ! t @@ -1080,8 +950,8 @@ oper } in table { Inf => faire ; - Indic Pres Pl P2 => fai + "tes" ; - Indic Pres Pl P3 => f + "ont" ; + Indi Presn Pl P2 => fai + "tes" ; + Indi Presn Pl P3 => f + "ont" ; Subjo SPres Pl p => f + "ass" + affixSPres ! Pl ! p ; Imper PlP2 => fai + "tes" ; t => tfaire ! t @@ -1093,7 +963,7 @@ oper auxConj3ît : Verbe -> Str -> Verbe = \conj,plaît -> table { - Indic Pres Sg P3 => plaît ; + Indi Presn Sg P3 => plaît ; t => conj ! t } ; @@ -1133,7 +1003,7 @@ oper conj3paître : Str -> Verbe = \paître -> let {tpaitre = conj3connaître paître} in table { - Indic Passe _ _ => nonExist ; + Indi Passe _ _ => nonExist ; Subjo SImparf _ _ => nonExist ; Part (PPasse _ _) => Predef.tk 5 paître + "u" ; p => tpaitre ! p @@ -1169,10 +1039,10 @@ oper nonExist (clo + "r") clos clos } in table { - Indic Pres Sg P3 => Predef.tk 1 clo + "ôt" ; - Indic Pres Pl P1 => nonExist ; - Indic Pres Pl P2 => nonExist ; - Indic Imparf _ _ => nonExist ; + Indi Presn Sg P3 => Predef.tk 1 clo + "ôt" ; + Indi Presn Pl P1 => nonExist ; + Indi Presn Pl P2 => nonExist ; + Indi Imparf _ _ => nonExist ; Imper PlP1 => nonExist ; Imper PlP2 => nonExist ; t => tclore ! t @@ -1193,7 +1063,7 @@ oper tabsoudre = conj3résoudre absoudre } in table { - Indic Passe _ _ => nonExist ; + Indi Passe _ _ => nonExist ; Subjo SImparf _ _ => nonExist ; Part (PPasse Masc _) => abso + "us" ; Part (PPasse Fem n) => nomReg (abso + "ute") ! n ; @@ -1260,7 +1130,7 @@ oper affixSgS affixPasseI di dis dis d (di + "r") dit (dit+"s") } in table { - Indic Pres Pl P2 => di + "tes" ; + Indi Presn Pl P2 => di + "tes" ; Imper PlP2 => di + "tes" ; t => tdire ! t } ; @@ -1302,9 +1172,9 @@ oper affixSgS affixPasseA } in table { - Indic Pres Sg P1 => s + "vais" ; - Indic Pres n p => s + pres ! n ! p ; - Indic Imparf n p => s + "all" + affixImparf ! n ! p ; + Indi Presn Sg P1 => s + "vais" ; + Indi Presn n p => s + pres ! n ! p ; + Indi Imparf n p => s + "all" + affixImparf ! n ! p ; Imper SgP2 => s + "va" ; t => s + taller ! t } ; @@ -1318,9 +1188,9 @@ oper "soi" "soy" "soi" "f" "ser" "été" "être" affixSgS affixPasseU } in table { - Indic Pres Sg p => s + sg ! p ; - Indic Pres Pl p => s + pl ! p ; - Indic Imparf n p => s + "ét" + affixImparf ! n ! p ; + Indi Presn Sg p => s + sg ! p ; + Indi Presn Pl p => s + pl ! p ; + Indi Imparf n p => s + "ét" + affixImparf ! n ! p ; Subjo SPres Sg p => s + "soi" + affixSgS ! p ; Subjo SPres Pl P3 => s + "soient" ; Subjo SPres Pl p => s + "soy" + affixPlOns ! p ; @@ -1336,8 +1206,8 @@ oper "ai" "ay" "ai" "e" "aur" "eu" "avoir" affixSgS affixPasseU } in table { - Indic Pres n p => s + pres ! n ! p ; - Indic Imparf n p => s + "av" + affixImparf ! n ! p ; + Indi Presn n p => s + pres ! n ! p ; + Indi Imparf n p => s + "av" + affixImparf ! n ! p ; Subjo SPres Sg P3 => s + "ait" ; Subjo SPres Pl P3 => s + "aient" ; Subjo SPres Pl p => s + "ay" + affixPlOns ! p ; @@ -1345,15 +1215,9 @@ oper t => s + tavoir ! t } ; --- for NumeralsFre +--- for Numerals param DForm = unit | teen | jten | ten | tenplus ; param Place = indep | attr ; -oper - digitPl : - {inh : DForm ; inh1 : Number ; s : DForm => Str} -> - {inh : DForm ; inh1 : Number ; s : Gender => DForm => Str ; n : Number} = \d -> - {inh = d.inh ; inh1 = d.inh1 ; s = \\_ => d.s ; n = Pl} ; - } diff --git a/lib/resource-1.0/french/NounFre.gf b/lib/resource/french/NounFre.gf similarity index 100% rename from lib/resource-1.0/french/NounFre.gf rename to lib/resource/french/NounFre.gf diff --git a/lib/resource-1.0/french/NumeralFre.gf b/lib/resource/french/NumeralFre.gf similarity index 100% rename from lib/resource-1.0/french/NumeralFre.gf rename to lib/resource/french/NumeralFre.gf diff --git a/lib/resource/french/ParadigmsFre.gf b/lib/resource/french/ParadigmsFre.gf index ca2fd1133..8f0a05374 100644 --- a/lib/resource/french/ParadigmsFre.gf +++ b/lib/resource/french/ParadigmsFre.gf @@ -1,10 +1,10 @@ ---# -path=.:../romance:../abstract:../../prelude +--# -path=.:../romance:../common:../abstract:../../prelude --1 French Lexical Paradigms -- --- Aarne Ranta 2003 +-- Aarne Ranta 2001 - 2006 -- --- This is an API to the user of the resource grammar +-- This is an API for the user of the resource grammar -- for adding lexical items. It gives functions for forming -- expressions of open categories: nouns, adjectives, verbs. -- @@ -21,13 +21,19 @@ -- regular cases. Then we give a worst-case function $mkC$, which serves as an -- escape to construct the most irregular words of type $C$. -- However, this function should only seldom be needed: we have a --- separate module $IrregularEng$, which covers all irregularly inflected --- words. --- --- The following modules are presupposed: +-- separate module [``IrregFre`` ../../french/IrregFre.gf], +-- which covers all irregularly inflected verbs. resource ParadigmsFre = - open (Predef=Predef), Prelude, TypesFre, MorphoFre, SyntaxFre, RulesFre in { + open + (Predef=Predef), + Prelude, + CommonRomance, + ResFre, + MorphoFre, + CatFre in { + + flags optimize=all ; --2 Parameters -- @@ -51,13 +57,11 @@ oper -- amalgamate with the following word (the 'genitive' "de" and the -- 'dative' "à"). - Preposition : Type ; + accusative : Prep ; + genitive : Prep ; + dative : Prep ; - accusative : Preposition ; - genitive : Preposition ; - dative : Preposition ; - - mkPreposition : Str -> Preposition ; + mkPrep : Str -> Prep ; --2 Nouns @@ -66,13 +70,20 @@ oper mkN : (oeil,yeux : Str) -> Gender -> N ; --- The regular function takes the singular form and the gender, --- and computes the plural by a heuristic. The heuristic currently +-- The regular function takes the singular form, +-- and computes the plural and the gender by a heuristic. The plural +-- heuristic currently -- covers the cases "pas-pas", "prix-prix", "nez-nez", -- "bijou-bijoux", "cheveu-cheveux", "plateau-plateaux", "cheval-chevaux". +-- The gender heuristic is less reliable: it treats as feminine all +-- nouns ending with "e" and "ion", all others as masculine. -- If in doubt, use the $cc$ command to test! - regN : Str -> Gender -> N ; + regN : Str -> N ; + +-- Adding gender information widens the scope of the foregoing function. + + regGenN : Str -> Gender -> N ; --3 Compound nouns @@ -89,7 +100,7 @@ oper -- -- Relational nouns ("fille de x") need a case and a preposition. - mkN2 : N -> Preposition -> N2 ; + mkN2 : N -> Prep -> N2 ; -- The most common cases are the genitive "de" and the dative "à", -- with the empty preposition. @@ -99,13 +110,13 @@ oper -- Three-place relational nouns ("la connection de x à y") need two prepositions. - mkN3 : N -> Preposition -> Preposition -> N3 ; + mkN3 : N -> Prep -> Prep -> N3 ; --3 Relational common noun phrases -- -- In some cases, you may want to make a complex $CN$ into a --- relational noun (e.g. "the old town hall of"). However, $N2$ and +-- relational noun (e.g. "la vieille église de"). However, $N2$ and -- $N3$ are purely lexical categories. But you can use the $AdvCN$ -- and $PrepNP$ constructions to build phrases like this. @@ -114,7 +125,10 @@ oper -- -- Proper names need a string and a gender. - mkPN : Str -> Gender -> PN ; -- Jean + mkPN : Str -> Gender -> PN ; -- Jean + + regPN : Str -> PN ; -- feminine if "-e", masculine otherwise + -- To form a noun phrase that can also be plural, -- you can use the worst-case function. @@ -147,33 +161,24 @@ oper -- -- Two-place adjectives need a preposition for their second argument. - mkA2 : A -> Preposition -> A2 ; + mkA2 : A -> Prep -> A2 ; --3 Comparison adjectives -- Comparison adjectives are in the worst case put up from two -- adjectives: the positive ("bon"), and the comparative ("meilleure"). - mkADeg : A -> A -> ADeg ; + mkADeg : A -> A -> A ; -- If comparison is formed by "plus", as usual in French, -- the following pattern is used: - compADeg : A -> ADeg ; - --- The regular pattern is the same as $regA$ for plain adjectives, --- with comparison by "plus". - - regADeg : Str -> ADeg ; - --- From a given $ADeg$, it is possible to get back to $A$. - - adegA : ADeg -> A ; + compADeg : A -> A ; -- For prefixed adjectives, the following function is -- provided. - prefADeg : ADeg -> ADeg ; + prefA : A -> A ; --2 Adverbs @@ -213,16 +218,17 @@ oper reg3V : (jeter,jette,jettera : Str) -> V ; -- The function $regV$ gives all verbs the compound auxiliary "avoir". --- To change it to "être", use the following function. +-- To change it to "être", use the following function. Reflexive implies "être". etreV : V -> V ; + reflV : V -> V ; --3 Two-place verbs -- -- Two-place verbs need a preposition, except the special case with direct object. --- (transitive verbs). Notice that a particle comes from the $V$. +-- (transitive verbs). - mkV2 : V -> Preposition -> V2 ; + mkV2 : V -> Prep -> V2 ; dirV2 : V -> V2 ; @@ -235,9 +241,9 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Preposition -> Preposition -> V3 ; -- parler, à, de - dirV3 : V -> Preposition -> V3 ; -- donner,_,à - dirdirV3 : V -> V3 ; -- donner,_,_ + mkV3 : V -> Prep -> Prep -> V3 ; -- parler, à, de + dirV3 : V -> Prep -> V3 ; -- donner,_,à + dirdirV3 : V -> V3 ; -- donner,_,_ --3 Other complement patterns -- @@ -246,100 +252,129 @@ oper mkV0 : V -> V0 ; mkVS : V -> VS ; - mkV2S : V -> Preposition -> V2S ; + mkV2S : V -> Prep -> V2S ; mkVV : V -> VV ; -- plain infinitive: "je veux parler" deVV : V -> VV ; -- "j'essaie de parler" aVV : V -> VV ; -- "j'arrive à parler" - mkV2V : V -> Preposition -> Preposition -> V2V ; + mkV2V : V -> Prep -> Prep -> V2V ; mkVA : V -> VA ; - mkV2A : V -> Preposition -> V2A ; + mkV2A : V -> Prep -> Prep -> V2A ; mkVQ : V -> VQ ; - mkV2Q : V -> Preposition -> V2Q ; + mkV2Q : V -> Prep -> V2Q ; - mkAS : A -> AS ; - subjAS : A -> AS ; - mkA2S : A -> Preposition -> A2S ; - mkAV : A -> Preposition -> AV ; - mkA2V : A -> Preposition -> Preposition -> A2V ; + mkAS : A -> AS ; + mkA2S : A -> Prep -> A2S ; + mkAV : A -> Prep -> AV ; + mkA2V : A -> Prep -> Prep -> A2V ; +-- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated +-- just as synonyms of $V2$, and the second argument is given +-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. +-- $V0$ is just $V$. + V0, V2S, V2V, V2Q : Type ; + AS, A2S, AV, A2V : Type ; + +--. --2 Definitions of the paradigms -- -- The definitions should not bother the user of the API. So they are -- hidden from the document. ---. - Gender = SyntaxFre.Gender ; - Number = TypesFre.Number ; + + Gender = MorphoFre.Gender ; + Number = MorphoFre.Number ; masculine = Masc ; feminine = Fem ; singular = Sg ; plural = Pl ; - Preposition = Case * Str ; - accusative = ; - genitive = ; - dative = ; - mkPreposition p = ; + Preposition = Compl ; + accusative = complAcc ** {lock_Prep = <>} ; + genitive = complGen ** {lock_Prep = <>} ; + dative = complDat ** {lock_Prep = <>} ; + mkPrep p = {s = p ; c = Acc ; isDir = False ; lock_Prep = <>} ; + + --- obsolete + Preposition : Type ; + mkPreposition : Str -> Preposition ; + mkPreposition = mkPrep ; mkN x y g = mkCNomIrreg x y g ** {lock_N = <>} ; - regN x g = mkNomReg x g ** {lock_N = <>} ; + regN x = regGenN x g where { + g = case of { + _ + ("e" | "ion") => Fem ; + _ => Masc + } + } ; + regGenN x g = mkNomReg x g ** {lock_N = <>} ; compN x y = {s = \\n => x.s ! n ++ y ; g = x.g ; lock_N = <>} ; - mkN2 = \n,p -> n ** {lock_N2 = <> ; c = p.p1 ; s2 = p.p2} ; + mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; deN2 n = mkN2 n genitive ; aN2 n = mkN2 n dative ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c = p.p1 ; s2 = p.p2 ; c3 = q.p1 ; s3 = q.p2} ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ; + regPN x = mkPN x g where { + g = case last x of { + "e" => feminine ; + _ => masculine + } + } ; mkPN x g = {s = x ; g = g} ** {lock_PN = <>} ; - mkNP x g n = let np = mkNameNounPhrase x g in - {s = np.s ; g = np.g ; p = np.p ; c = np.c ; n = n ; lock_NP = <>} ; + mkNP x g n = {s = (pn2np (mkPN x g)).s; a = agrP3 g n ; hasClit = False} ** {lock_NP = <>} ; - mkA a b c d = mkAdj a c b d ** {p = False ; lock_A = <>} ; - regA a = mkAdjReg a ** {p = False ; lock_A = <>} ; - prefA a = {s = a.s ; p = True ; lock_A = <>} ; + mkA a b c d = compADeg {s = \\_ => (mkAdj a c b d).s ; isPre = False ; lock_A = <>} ; + regA a = compADeg {s = \\_ => (mkAdjReg a).s ; isPre = False ; lock_A = <>} ; + prefA a = {s = a.s ; isPre = True ; lock_A = <>} ; - mkA2 a p = a ** {c = p.p1 ; s2 = p.p2 ; lock_A2 = <>} ; + mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ; - mkADeg a b = {s = table {Pos => a.s ; _ => b.s} ; p = a.p ; lock_ADeg = <>} ; - compADeg a = {s = table {Pos => a.s ; _ => \\f => "plus" ++ a.s ! f} ; p = a.p ; - lock_ADeg = <>} ; - regADeg a = compADeg (regA a) ; - prefADeg a = {s = a.s ; p = True ; lock_ADeg = <>} ; + mkADeg a b = + {s = table {Posit => a.s ! Posit ; _ => b.s ! Posit} ; isPre = a.isPre ; lock_A = <>} ; + compADeg a = + {s = table {Posit => a.s ! Posit ; _ => \\f => "plus" ++ a.s ! Posit ! f} ; + isPre = a.isPre ; + lock_A = <>} ; + prefA a = {s = a.s ; isPre = True ; lock_A = <>} ; - adegA a = {s = a.s ! Pos ; p = a.p ; lock_A = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ; mkAdA x = ss x ** {lock_AdA = <>} ; - regV x = let v = (mkVerbReg x) in verbPres v AHabere ** {aux = AHabere ; lock_V = <>} ; - reg3V x y z = let v = (mkVerb3Reg x y z) in verbPres v AHabere ** {aux = AHabere ; lock_V = <>} ; - etreV v = {s = v.s ; aux = AEsse ; lock_V = <>} ; + regV x = let v = vvf (mkVerbReg x) in {s = v ; vtyp = VHabere ; lock_V = <>} ; + reg3V x y z = let v = vvf (mkVerb3Reg x y z) in {s = v ; vtyp = VHabere ; lock_V = <>} ; + etreV v = {s = v.s ; vtyp = VEsse ; lock_V = <>} ; + reflV v = {s = v.s ; vtyp = VRefl ; lock_V = <>} ; - mkV2 v p = {s = v.s ; aux = v.aux ; s2 = p.p2 ; c = p.p1 ; lock_V2 = <>} ; + mkV2 v p = v ** {c2 = p ; lock_V2 = <>} ; dirV2 v = mkV2 v accusative ; v2V v = v ** {lock_V = <>} ; - mkV3 v p q = {s = v.s ; aux = v.aux ; - s2 = p.p2 ; s3 = q.p2 ; c = p.p1 ; c3 = q.p1 ; lock_V3 = <>} ; + mkV3 v p q = v ** {c2 = p ; c3 = q ; lock_V3 = <>} ; dirV3 v p = mkV3 v accusative p ; dirdirV3 v = dirV3 v dative ; + V0 : Type = V ; + V2S, V2V, V2Q : Type = V2 ; + AS, AV : Type = A ; + A2S, A2V : Type = A2 ; + mkV0 v = v ** {lock_V0 = <>} ; - mkVS v = v ** {mn,mp = Ind ; lock_VS = <>} ; ---- more moods - mkV2S v p = mkV2 v p ** {mn,mp = Ind ; lock_V2S = <>} ; - mkVV v = v ** {c = accusative.p1 ; lock_VV = <>} ; - deVV v = v ** {c = genitive.p1 ; lock_VV = <>} ; - aVV v = v ** {c = dative.p1 ; lock_VV = <>} ; + mkVS v = v ** {m = \\_ => Indic ; lock_VS = <>} ; ---- more moods + mkV2S v p = mkV2 v p ** {mn,mp = Indic ; lock_V2S = <>} ; + mkVV v = v ** {c2 = complAcc ; lock_VV = <>} ; + deVV v = v ** {c2 = complGen ; lock_VV = <>} ; + aVV v = v ** {c2 = complDat ; lock_VV = <>} ; mkV2V v p t = mkV2 v p ** {c3 = t.p1 ; s3 = p.p2 ; lock_V2V = <>} ; mkVA v = v ** {lock_VA = <>} ; - mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; + mkV2A v p q = mkV3 v p q ** {lock_V2A = <>} ; mkVQ v = v ** {lock_VQ = <>} ; mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - mkAS v = v ** {mn,mp = Ind ; lock_AS = <>} ; ---- more moods - mkA2S v p = mkA2 v p ** {mn,mp = Ind ; lock_A2S = <>} ; + mkAS v = v ** {lock_AS = <>} ; ---- more moods + mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; mkAV v p = v ** {c = p.p1 ; s2 = p.p2 ; lock_AV = <>} ; mkA2V v p q = mkA2 v p ** {s3 = q.p2 ; c3 = q.p1 ; lock_A2V = <>} ; diff --git a/lib/resource-1.0/french/PhonoFre.gf b/lib/resource/french/PhonoFre.gf similarity index 100% rename from lib/resource-1.0/french/PhonoFre.gf rename to lib/resource/french/PhonoFre.gf diff --git a/lib/resource-1.0/french/PhraseFre.gf b/lib/resource/french/PhraseFre.gf similarity index 100% rename from lib/resource-1.0/french/PhraseFre.gf rename to lib/resource/french/PhraseFre.gf diff --git a/lib/resource-1.0/french/QuestionFre.gf b/lib/resource/french/QuestionFre.gf similarity index 100% rename from lib/resource-1.0/french/QuestionFre.gf rename to lib/resource/french/QuestionFre.gf diff --git a/lib/resource-1.0/french/RelativeFre.gf b/lib/resource/french/RelativeFre.gf similarity index 100% rename from lib/resource-1.0/french/RelativeFre.gf rename to lib/resource/french/RelativeFre.gf diff --git a/lib/resource-1.0/french/ResFre.gf b/lib/resource/french/ResFre.gf similarity index 100% rename from lib/resource-1.0/french/ResFre.gf rename to lib/resource/french/ResFre.gf diff --git a/lib/resource-1.0/french/SentenceFre.gf b/lib/resource/french/SentenceFre.gf similarity index 100% rename from lib/resource-1.0/french/SentenceFre.gf rename to lib/resource/french/SentenceFre.gf diff --git a/lib/resource/french/StructuralFre.gf b/lib/resource/french/StructuralFre.gf index 4016d7c03..9f9b331ac 100644 --- a/lib/resource/french/StructuralFre.gf +++ b/lib/resource/french/StructuralFre.gf @@ -1,95 +1,142 @@ ---# -path=.:../romance:../abstract:../../prelude +concrete StructuralFre of Structural = CatFre ** + open PhonoFre, MorphoFre, ParadigmsFre, IrregFre, Prelude in { -concrete StructuralFre of Structural = - CategoriesFre, NumeralsFre ** - open SyntaxFre, MorphoFre, Prelude in { + flags optimize=all ; lin - UseNumeral n = {s = \\g => n.s !g ; n = n.n ; isNo = False} ; - - above_Prep = {s = ["au dessus"] ; c = genitive} ; - after_Prep = justPrep "après" ; - all8mass_Det = toutDet ; - all_NDet = mkDeterminerNum ["tous les"] ["toutes les"] ; - almost_Adv = ss "presque" ; - although_Subj = ss ("bien" ++ elisQue) ** {m = Con} ; - and_Conj = etConj ; - because_Subj = ss ("parce" ++ elisQue) ** {m = Ind} ; - before_Prep = justPrep "avant" ; - behind_Prep = justPrep "derrière" ; - between_Prep = justPrep "entre" ; - both_AndConjD = etetConj ; - by8agent_Prep = justPrep "par" ; - by8means_Prep = justPrep "par" ; - can8know_VV = mkVerbVerbDir (verbPres (conj3savoir "savoir") AHabere) ; - can_VV = mkVerbVerbDir (verbPres (conj3pouvoir "pouvoir") AHabere) ; - during_Prep = justPrep "pendant" ; - either8or_ConjD = ououConj ; - everybody_NP = mkNameNounPhrase ["tout le monde"] Masc ; - every_Det = chaqueDet ; - everything_NP = mkNameNounPhrase ["tout"] Masc ; + above_Prep = {s = ["au dessus"] ; c = MorphoFre.genitive ; isDir = False} ; + after_Prep = mkPreposition "après" ; + all_Predet = { + s = \\a,c => prepCase c ++ aagrForms "tout" "toute" "tous" "toutes" ! a ; + c = Nom + } ; + almost_AdA, almost_AdN = ss "presque" ; + always_AdV = ss "toujours" ; + although_Subj = ss ("bien" ++ elisQue) ** {m = Conjunct} ; + and_Conj = ss "et" ** {n = Pl} ; + because_Subj = ss ("parce" ++ elisQue) ** {m = Indic} ; + before_Prep = mkPreposition "avant" ; + behind_Prep = mkPreposition "derrière" ; + between_Prep = mkPreposition "entre" ; + both7and_DConj = {s1,s2 = "et" ; n = Pl} ; + but_PConj = ss "mais" ; + by8agent_Prep = mkPreposition "par" ; + by8means_Prep = mkPreposition "par" ; + can8know_VV = mkVV (savoir_V2 ** {lock_V = <>}) ; + can_VV = mkVV pouvoir_V ; + during_Prep = mkPreposition "pendant" ; + either7or_DConj = {s1,s2 = "ou" ; n = Pl} ; + everybody_NP = pn2np (mkPN ["tout le monde"] Masc) ; + every_Det = {s = \\_,_ => "chaque" ; n = Sg} ; + everything_NP = pn2np (mkPN ["tout"] Masc) ; everywhere_Adv = ss "partout" ; - from_Prep = justCase genitive ; --- - he_NP = pronNounPhrase pronIl ; - how_IAdv = commentAdv ; - how8many_IDet = {s = \\_ => "combien" ++ elisDe ; n = Pl} ; - if_Subj = siSubj ; - in8front_Prep = justPrep "devant" ; - i_NP = pronNounPhrase pronJe ; - in_Prep = justPrep "dans" ; - it_NP = pronNounPhrase pronIl ; - many_Det = mkDeterminer1 plural "plusieurs" ; - most8many_Det = plupartDet ; - most_Det = mkDeterminer1 singular (["la plupart"] ++ elisDe) ; --- de - much_Det = mkDeterminer1 singular ("beaucoup" ++ elisDe) ; --- de - must_VV = mkVerbVerbDir (verbPres (conj3devoir "devoir") AHabere) ; - no_Phr = nonPhr ; --- and also Si! - on_Prep = justPrep "sur" ; - or_Conj = ouConj ; - otherwise_Adv = ss "autrement" ; - part_Prep = justCase genitive ; --- - possess_Prep = justCase genitive ; + few_Det = {s = \\g,c => prepCase c ++ "peu" ++ elisDe ; n = Pl} ; + first_Ord = {s = \\ag => (regA "premier").s ! Posit ! AF ag.g ag.n} ; + from_Prep = complGen ; --- + he_Pron = + mkPronoun + "il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses" + Masc Sg P3 ; + here7from_Adv = ss "d'ici" ; + here7to_Adv = ss "ici" ; + here_Adv = ss "ici" ; + how_IAdv = ss "comment" ; + how8many_IDet = {s = \\_,c => prepCase c ++ "combien" ++ elisDe ; n = Pl} ; + if_Subj = ss elisSi ** {m = Indic} ; + in8front_Prep = mkPreposition "devant" ; + i_Pron = + mkPronoun + (elision "j") (elision "m") (elision "m") "moi" "mon" (elisPoss "m") "mes" + Masc Sg P1 ; + in_Prep = mkPreposition "dans" ; + it_Pron = + mkPronoun + "il" (elision "l") "lui" "lui" "son" (elisPoss "s") "ses" + Masc Sg P3 ; + less_CAdv = ss "moins" ; + many_Det = {s = \\_,c => prepCase c ++ "plusieurs" ; n = Pl} ; + more_CAdv = ss "plus" ; + most_Predet = {s = \\_,c => prepCase c ++ ["la plupart"] ; c = CPrep P_de} ; + much_Det = {s = \\_,c => prepCase c ++ "beaucoup" ++ elisDe ; n = Pl} ; + must_VV = mkVV (devoir_V2 ** {lock_V = <>}) ; + no_Phr = ss "non" ; + on_Prep = mkPreposition "sur" ; + one_Quant = {s = \\g,c => prepCase c ++ genForms "un" "une" ! g} ; + only_Predet = {s = \\_,c => prepCase c ++ "seulement" ; c = Nom} ; --- seul(e)(s) + or_Conj = {s = "ou" ; n = Sg} ; + otherwise_PConj = ss "autrement" ; + part_Prep = complGen ; + please_Voc = ss ["s'il vous plaît"] ; + possess_Prep = complGen ; quite_Adv = ss "assez" ; - she_NP = pronNounPhrase pronElle ; - so_Adv = ss "si" ; - somebody_NP = mkNameNounPhrase ["quelqu'un"] Masc ; - some_Det = mkDeterminer1 singular "quelque" ; - some_NDet = mkDeterminerNum "quelques" "quelques" ; - something_NP = mkNameNounPhrase ["quelque chose"] Masc ; - somewhere_Adv = ss ["quelque part"] ; --- ne - pas - that_Det = mkDeterminer singular (pre {"ce" ; "cet" / voyelle}) "cette" ; --- là - that_NP = mkNameNounPhrase ["ça"] Masc ; - therefore_Adv = ss "donc" ; - these_NDet = mkDeterminerNum "ces" "ces" ; --- ci - they_NP = pronNounPhrase pronIls ; - they8fem_NP = pronNounPhrase pronElles ; - this_Det = mkDeterminer singular (pre {"ce" ; "cet" / voyelle}) "cette" ; --- ci - this_NP = mkNameNounPhrase ["ceci"] Masc ; - those_NDet = mkDeterminerNum "ces" "ces" ; --- là - thou_NP = pronNounPhrase pronTu ; - through_Prep = justPrep "par" ; - too_Adv = ss "trop" ; - to_Prep = justCase dative ; --- - under_Prep = justPrep "sous" ; - very_Adv = ss "très" ; - want_VV = mkVerbVerbDir (verbPres (conj3vouloir "vouloir") AHabere) ; - we_NP = pronNounPhrase pronNous ; - what8one_IP = intPronWhat singular ; - what8many_IP = intPronWhat plural ; - when_IAdv = quandAdv ; - when_Subj = quandSubj ; - where_IAdv = ouAdv ; - which8many_IDet = mkDeterminerNum "quels" "quelles" ** {n = Pl} ; - which8one_IDet = quelDet ; - who8one_IP = intPronWho singular ; - who8many_IP = intPronWho plural ; - why_IAdv = pourquoiAdv ; - without_Prep = justPrep "sans" ; - with_Prep = justPrep "avec" ; - ye_NP = pronNounPhrase pronVous ; - yes_Phr = ouiPhr ; - you_NP = pronNounPhrase pronVous ; + she_Pron = + mkPronoun + "elle" elisLa "lui" "elle" "son" (elisPoss "s") "ses" + Fem Sg P3 ; + so_AdA = ss "si" ; + somebody_NP = pn2np (mkPN ["quelqu'un"] Masc) ; + somePl_Det = {s = \\_,c => prepCase c ++ "quelques" ; n = Pl} ; + someSg_Det = {s = \\_,c => prepCase c ++ elision "quelqu" ; n = Sg} ; + something_NP = pn2np (mkPN ["quelque chose"] Masc) ; + somewhere_Adv = ss ["quelque part"] ; --- ne - pas + that_Quant = {s = \\_ => + table { + Sg => \\g,c => prepCase c ++ genForms "ce" "cette" ! g ; ---- cet ; là + Pl => \\_,_ => "ces" + } + } ; + that_NP = mkNP ["cela"] Masc Sg ; + there7from_Adv = ss ["de là"] ; + there7to_Adv = ss "là" ; --- y + there_Adv = ss "là" ; + therefore_PConj = ss "donc" ; + these_NP = mkNP ["ceux-ci"] Masc Pl ; + they_Pron = mkPronoun + "ils" "les" "leur" "eux" "leur" "leur" "leurs" + Masc Pl P3 ; + this_Quant = {s = \\_ => + table { + Sg => \\g,c => prepCase c ++ genForms "ce" "cette" ! g ; ---- cet ; ci + Pl => \\_,_ => "ces" + } + } ; + this_NP = pn2np (mkPN ["ceci"] Masc) ; + those_NP = mkNP ["ceux-là"] Masc Pl ; + through_Prep = mkPreposition "par" ; + too_AdA = ss "trop" ; + to_Prep = complDat ; + under_Prep = mkPreposition "sous" ; + very_AdA = ss "très" ; + want_VV = mkVV (vouloir_V2 ** {lock_V = <>}) ; + we_Pron = + mkPronoun "nous" "nous" "nous" "nous" "notre" "notre" "nos" + Masc Pl P1 ; + whatSg_IP = + {s = \\c => artDef a.g a.n c + quelPron ! a ; a = a} + where {a = aagr Masc Sg} ; + whatPl_IP = + {s = \\c => artDef a.g a.n c + quelPron ! a ; a = a} + where {a = aagr Masc Pl} ; + when_IAdv = ss "quand" ; + when_Subj = ss "quand" ** {m = Indic} ; + where_IAdv = ss "où" ; + whichSg_IDet = {s = \\g,c => prepCase c ++ genForms "quel" "quelle" ! g ; n = Sg} ; + whichPl_IDet = {s = \\g,c => prepCase c ++ genForms "quels" "quelles" ! g; n = Pl} ; + whoPl_IP = {s = \\c => prepCase c ++ "qui" ; a = aagr Masc Pl} ; + whoSg_IP = {s = \\c => prepCase c ++ "qui" ; a = aagr Masc Sg} ; + why_IAdv = ss "pourquoi" ; + without_Prep = mkPreposition "sans" ; + with_Prep = mkPreposition "avec" ; + yes_Phr = ss "oui" ; --- si + youSg_Pron = mkPronoun + "tu" (elision "t") (elision "t") "toi" "ton" (elisPoss "t") "tes" + Masc Sg P2 ; + youPl_Pron, youPol_Pron = + mkPronoun + "vous" "vous" "vous" "vous" "votre" "votre" "vos" + Masc Pl P2 ; } + diff --git a/lib/resource-1.0/french/VerbFre.gf b/lib/resource/french/VerbFre.gf similarity index 100% rename from lib/resource-1.0/french/VerbFre.gf rename to lib/resource/french/VerbFre.gf diff --git a/lib/resource-1.0/german/AdjectiveGer.gf b/lib/resource/german/AdjectiveGer.gf similarity index 100% rename from lib/resource-1.0/german/AdjectiveGer.gf rename to lib/resource/german/AdjectiveGer.gf diff --git a/lib/resource-1.0/german/AdverbGer.gf b/lib/resource/german/AdverbGer.gf similarity index 100% rename from lib/resource-1.0/german/AdverbGer.gf rename to lib/resource/german/AdverbGer.gf diff --git a/lib/resource-1.0/german/CatGer.gf b/lib/resource/german/CatGer.gf similarity index 100% rename from lib/resource-1.0/german/CatGer.gf rename to lib/resource/german/CatGer.gf diff --git a/lib/resource-1.0/german/ConjunctionGer.gf b/lib/resource/german/ConjunctionGer.gf similarity index 100% rename from lib/resource-1.0/german/ConjunctionGer.gf rename to lib/resource/german/ConjunctionGer.gf diff --git a/lib/resource-1.0/german/ExtGer.gf b/lib/resource/german/ExtGer.gf similarity index 100% rename from lib/resource-1.0/german/ExtGer.gf rename to lib/resource/german/ExtGer.gf diff --git a/lib/resource-1.0/german/ExtraGer.gf b/lib/resource/german/ExtraGer.gf similarity index 100% rename from lib/resource-1.0/german/ExtraGer.gf rename to lib/resource/german/ExtraGer.gf diff --git a/lib/resource-1.0/german/ExtraGerAbs.gf b/lib/resource/german/ExtraGerAbs.gf similarity index 100% rename from lib/resource-1.0/german/ExtraGerAbs.gf rename to lib/resource/german/ExtraGerAbs.gf diff --git a/lib/resource-1.0/german/German.gf b/lib/resource/german/German.gf similarity index 100% rename from lib/resource-1.0/german/German.gf rename to lib/resource/german/German.gf diff --git a/lib/resource-1.0/german/GermanAbs.gf b/lib/resource/german/GermanAbs.gf similarity index 100% rename from lib/resource-1.0/german/GermanAbs.gf rename to lib/resource/german/GermanAbs.gf diff --git a/lib/resource-1.0/german/GrammarGer.gf b/lib/resource/german/GrammarGer.gf similarity index 100% rename from lib/resource-1.0/german/GrammarGer.gf rename to lib/resource/german/GrammarGer.gf diff --git a/lib/resource-1.0/german/IdiomGer.gf b/lib/resource/german/IdiomGer.gf similarity index 100% rename from lib/resource-1.0/german/IdiomGer.gf rename to lib/resource/german/IdiomGer.gf diff --git a/lib/resource-1.0/german/IrregGer.gf b/lib/resource/german/IrregGer.gf similarity index 100% rename from lib/resource-1.0/german/IrregGer.gf rename to lib/resource/german/IrregGer.gf diff --git a/lib/resource-1.0/german/IrregGerAbs.gf b/lib/resource/german/IrregGerAbs.gf similarity index 100% rename from lib/resource-1.0/german/IrregGerAbs.gf rename to lib/resource/german/IrregGerAbs.gf diff --git a/lib/resource-1.0/german/LangGer.gf b/lib/resource/german/LangGer.gf similarity index 100% rename from lib/resource-1.0/german/LangGer.gf rename to lib/resource/german/LangGer.gf diff --git a/lib/resource-1.0/german/LexiconGer.gf b/lib/resource/german/LexiconGer.gf similarity index 100% rename from lib/resource-1.0/german/LexiconGer.gf rename to lib/resource/german/LexiconGer.gf diff --git a/lib/resource-1.0/german/MkV.hs b/lib/resource/german/MkV.hs similarity index 100% rename from lib/resource-1.0/german/MkV.hs rename to lib/resource/german/MkV.hs diff --git a/lib/resource-1.0/german/MorphoGer.gf b/lib/resource/german/MorphoGer.gf similarity index 100% rename from lib/resource-1.0/german/MorphoGer.gf rename to lib/resource/german/MorphoGer.gf diff --git a/lib/resource-1.0/german/NounGer.gf b/lib/resource/german/NounGer.gf similarity index 100% rename from lib/resource-1.0/german/NounGer.gf rename to lib/resource/german/NounGer.gf diff --git a/lib/resource-1.0/german/NumeralGer.gf b/lib/resource/german/NumeralGer.gf similarity index 100% rename from lib/resource-1.0/german/NumeralGer.gf rename to lib/resource/german/NumeralGer.gf diff --git a/lib/resource-1.0/german/ParadigmsGer.gf b/lib/resource/german/ParadigmsGer.gf similarity index 100% rename from lib/resource-1.0/german/ParadigmsGer.gf rename to lib/resource/german/ParadigmsGer.gf diff --git a/lib/resource-1.0/german/PhraseGer.gf b/lib/resource/german/PhraseGer.gf similarity index 100% rename from lib/resource-1.0/german/PhraseGer.gf rename to lib/resource/german/PhraseGer.gf diff --git a/lib/resource-1.0/german/QuestionGer.gf b/lib/resource/german/QuestionGer.gf similarity index 100% rename from lib/resource-1.0/german/QuestionGer.gf rename to lib/resource/german/QuestionGer.gf diff --git a/lib/resource-1.0/german/RelativeGer.gf b/lib/resource/german/RelativeGer.gf similarity index 100% rename from lib/resource-1.0/german/RelativeGer.gf rename to lib/resource/german/RelativeGer.gf diff --git a/lib/resource-1.0/german/ResGer.gf b/lib/resource/german/ResGer.gf similarity index 100% rename from lib/resource-1.0/german/ResGer.gf rename to lib/resource/german/ResGer.gf diff --git a/lib/resource-1.0/german/SentenceGer.gf b/lib/resource/german/SentenceGer.gf similarity index 100% rename from lib/resource-1.0/german/SentenceGer.gf rename to lib/resource/german/SentenceGer.gf diff --git a/lib/resource-1.0/german/StructuralGer.gf b/lib/resource/german/StructuralGer.gf similarity index 100% rename from lib/resource-1.0/german/StructuralGer.gf rename to lib/resource/german/StructuralGer.gf diff --git a/lib/resource-1.0/german/VerbGer.gf b/lib/resource/german/VerbGer.gf similarity index 100% rename from lib/resource-1.0/german/VerbGer.gf rename to lib/resource/german/VerbGer.gf diff --git a/lib/resource-1.0/german/log.txt b/lib/resource/german/log.txt similarity index 100% rename from lib/resource-1.0/german/log.txt rename to lib/resource/german/log.txt diff --git a/lib/resource-1.0/italian/AdjectiveIta.gf b/lib/resource/italian/AdjectiveIta.gf similarity index 100% rename from lib/resource-1.0/italian/AdjectiveIta.gf rename to lib/resource/italian/AdjectiveIta.gf diff --git a/lib/resource-1.0/italian/AdverbIta.gf b/lib/resource/italian/AdverbIta.gf similarity index 100% rename from lib/resource-1.0/italian/AdverbIta.gf rename to lib/resource/italian/AdverbIta.gf diff --git a/lib/resource/italian/BeschIta.gf b/lib/resource/italian/BeschIta.gf index 81ecb6d71..c9120731e 100644 --- a/lib/resource/italian/BeschIta.gf +++ b/lib/resource/italian/BeschIta.gf @@ -1,6 +1,8 @@ ---# -path=.:../romance:../abstract:../../prelude +--# -path=.:../romance:../common:../abstract:../../prelude -resource BeschIta = open TypesIta in { +resource BeschIta = open Prelude, CommonRomance in { + +flags optimize=values ; -- smaller than noexpand oper Verbo = {s : VForm => Str} ; @@ -17,42 +19,42 @@ oper essere_1 : Str -> Verbo = \essere -> Indi Pres Pl P1 => x_ + "siamo" ; Indi Pres Pl P2 => x_ + "siete" ; Indi Pres Pl P3 => x_ + "sono" ; - Indi Imperf Sg P1 => x_ + "ero" ; - Indi Imperf Sg P2 => x_ + "eri" ; - Indi Imperf Sg P3 => x_ + "era" ; - Indi Imperf Pl P1 => x_ + "eravamo" ; - Indi Imperf Pl P2 => x_ + "eravate" ; - Indi Imperf Pl P3 => x_ + "erano" ; - Pass Sg P1 => x_ + "fui" ; - Pass Sg P2 => x_ + "fosti" ; - Pass Sg P3 => x_ + "fu" ; - Pass Pl P1 => x_ + "fummo" ; - Pass Pl P2 => x_ + "foste" ; - Pass Pl P3 => x_ + "furono" ; - Fut Sg P1 => x_ + "sarò" ; - Fut Sg P2 => x_ + "sarai" ; - Fut Sg P3 => x_ + "sarà" ; - Fut Pl P1 => x_ + "saremo" ; - Fut Pl P2 => x_ + "sarete" ; - Fut Pl P3 => x_ + "saranno" ; + Indi Imperf Sg P1 => x_ + "ero" ; --# notpresent + Indi Imperf Sg P2 => x_ + "eri" ; --# notpresent + Indi Imperf Sg P3 => x_ + "era" ; --# notpresent + Indi Imperf Pl P1 => x_ + "eravamo" ; --# notpresent + Indi Imperf Pl P2 => x_ + "eravate" ; --# notpresent + Indi Imperf Pl P3 => x_ + "erano" ; --# notpresent + Pass Sg P1 => x_ + "fui" ; --# notpresent + Pass Sg P2 => x_ + "fosti" ; --# notpresent + Pass Sg P3 => x_ + "fu" ; --# notpresent + Pass Pl P1 => x_ + "fummo" ; --# notpresent + Pass Pl P2 => x_ + "foste" ; --# notpresent + Pass Pl P3 => x_ + "furono" ; --# notpresent + Fut Sg P1 => x_ + "sarò" ; --# notpresent + Fut Sg P2 => x_ + "sarai" ; --# notpresent + Fut Sg P3 => x_ + "sarà" ; --# notpresent + Fut Pl P1 => x_ + "saremo" ; --# notpresent + Fut Pl P2 => x_ + "sarete" ; --# notpresent + Fut Pl P3 => x_ + "saranno" ; --# notpresent Cong Pres Sg P1 => x_ + "sia" ; Cong Pres Sg P2 => x_ + "sia" ; Cong Pres Sg P3 => x_ + "sia" ; Cong Pres Pl P1 => x_ + "siamo" ; Cong Pres Pl P2 => x_ + "siate" ; Cong Pres Pl P3 => x_ + "siano" ; - Cong Imperf Sg P1 => x_ + "fossi" ; - Cong Imperf Sg P2 => x_ + "fossi" ; - Cong Imperf Sg P3 => x_ + "fosse" ; - Cong Imperf Pl P1 => x_ + "fossimo" ; - Cong Imperf Pl P2 => x_ + "foste" ; - Cong Imperf Pl P3 => x_ + "fossero" ; - Cond Sg P1 => x_ + "sarei" ; - Cond Sg P2 => x_ + "saresti" ; - Cond Sg P3 => x_ + "sarebbe" ; - Cond Pl P1 => x_ + "saremmo" ; - Cond Pl P2 => x_ + "sareste" ; - Cond Pl P3 => x_ + "sarebbero" ; + Cong Imperf Sg P1 => x_ + "fossi" ; --# notpresent + Cong Imperf Sg P2 => x_ + "fossi" ; --# notpresent + Cong Imperf Sg P3 => x_ + "fosse" ; --# notpresent + Cong Imperf Pl P1 => x_ + "fossimo" ; --# notpresent + Cong Imperf Pl P2 => x_ + "foste" ; --# notpresent + Cong Imperf Pl P3 => x_ + "fossero" ; --# notpresent + Cond Sg P1 => x_ + "sarei" ; --# notpresent + Cond Sg P2 => x_ + "saresti" ; --# notpresent + Cond Sg P3 => x_ + "sarebbe" ; --# notpresent + Cond Pl P1 => x_ + "saremmo" ; --# notpresent + Cond Pl P2 => x_ + "sareste" ; --# notpresent + Cond Pl P3 => x_ + "sarebbero" ; --# notpresent Imper SgP2 => x_ + "sii" ; Imper PlP1 => x_ + "siamo" ; Imper PlP2 => x_ + "siate" ; @@ -79,42 +81,42 @@ oper avere_2 : Str -> Verbo = \avere -> Indi Pres Pl P1 => x_ + "abbiamo" ; Indi Pres Pl P2 => x_ + "avete" ; Indi Pres Pl P3 => x_ + "hanno" ; - Indi Imperf Sg P1 => x_ + "avevo" ; - Indi Imperf Sg P2 => x_ + "avevi" ; - Indi Imperf Sg P3 => x_ + "aveva" ; - Indi Imperf Pl P1 => x_ + "avevamo" ; - Indi Imperf Pl P2 => x_ + "avevate" ; - Indi Imperf Pl P3 => x_ + "avevano" ; - Pass Sg P1 => x_ + "ebbi" ; - Pass Sg P2 => x_ + "avesti" ; - Pass Sg P3 => x_ + "ebbe" ; - Pass Pl P1 => x_ + "avemmo" ; - Pass Pl P2 => x_ + "aveste" ; - Pass Pl P3 => x_ + "ebbero" ; - Fut Sg P1 => x_ + "avrò" ; - Fut Sg P2 => x_ + "avrai" ; - Fut Sg P3 => x_ + "avrà" ; - Fut Pl P1 => x_ + "avremo" ; - Fut Pl P2 => x_ + "avrete" ; - Fut Pl P3 => x_ + "avranno" ; + Indi Imperf Sg P1 => x_ + "avevo" ; --# notpresent + Indi Imperf Sg P2 => x_ + "avevi" ; --# notpresent + Indi Imperf Sg P3 => x_ + "aveva" ; --# notpresent + Indi Imperf Pl P1 => x_ + "avevamo" ; --# notpresent + Indi Imperf Pl P2 => x_ + "avevate" ; --# notpresent + Indi Imperf Pl P3 => x_ + "avevano" ; --# notpresent + Pass Sg P1 => x_ + "ebbi" ; --# notpresent + Pass Sg P2 => x_ + "avesti" ; --# notpresent + Pass Sg P3 => x_ + "ebbe" ; --# notpresent + Pass Pl P1 => x_ + "avemmo" ; --# notpresent + Pass Pl P2 => x_ + "aveste" ; --# notpresent + Pass Pl P3 => x_ + "ebbero" ; --# notpresent + Fut Sg P1 => x_ + "avrò" ; --# notpresent + Fut Sg P2 => x_ + "avrai" ; --# notpresent + Fut Sg P3 => x_ + "avrà" ; --# notpresent + Fut Pl P1 => x_ + "avremo" ; --# notpresent + Fut Pl P2 => x_ + "avrete" ; --# notpresent + Fut Pl P3 => x_ + "avranno" ; --# notpresent Cong Pres Sg P1 => x_ + "abbia" ; Cong Pres Sg P2 => x_ + "abbia" ; Cong Pres Sg P3 => x_ + "abbia" ; Cong Pres Pl P1 => x_ + "abbiamo" ; Cong Pres Pl P2 => x_ + "abbiate" ; Cong Pres Pl P3 => x_ + "abbiano" ; - Cong Imperf Sg P1 => x_ + "avessi" ; - Cong Imperf Sg P2 => x_ + "avessi" ; - Cong Imperf Sg P3 => x_ + "avesse" ; - Cong Imperf Pl P1 => x_ + "avessimo" ; - Cong Imperf Pl P2 => x_ + "aveste" ; - Cong Imperf Pl P3 => x_ + "avessero" ; - Cond Sg P1 => x_ + "avrei" ; - Cond Sg P2 => x_ + "avresti" ; - Cond Sg P3 => x_ + "avrebbe" ; - Cond Pl P1 => x_ + "avremmo" ; - Cond Pl P2 => x_ + "avreste" ; - Cond Pl P3 => x_ + "avrebbero" ; + Cong Imperf Sg P1 => x_ + "avessi" ; --# notpresent + Cong Imperf Sg P2 => x_ + "avessi" ; --# notpresent + Cong Imperf Sg P3 => x_ + "avesse" ; --# notpresent + Cong Imperf Pl P1 => x_ + "avessimo" ; --# notpresent + Cong Imperf Pl P2 => x_ + "aveste" ; --# notpresent + Cong Imperf Pl P3 => x_ + "avessero" ; --# notpresent + Cond Sg P1 => x_ + "avrei" ; --# notpresent + Cond Sg P2 => x_ + "avresti" ; --# notpresent + Cond Sg P3 => x_ + "avrebbe" ; --# notpresent + Cond Pl P1 => x_ + "avremmo" ; --# notpresent + Cond Pl P2 => x_ + "avreste" ; --# notpresent + Cond Pl P3 => x_ + "avrebbero" ; --# notpresent Imper SgP2 => x_ + "abbi" ; Imper PlP1 => x_ + "abbiamo" ; Imper PlP2 => x_ + "abbiate" ; @@ -141,42 +143,42 @@ oper amare_6 : Str -> Verbo = \amare -> Indi Pres Pl P1 => am_ + "iamo" ; Indi Pres Pl P2 => am_ + "ate" ; Indi Pres Pl P3 => am_ + "ano" ; - Indi Imperf Sg P1 => am_ + "avo" ; - Indi Imperf Sg P2 => am_ + "avi" ; - Indi Imperf Sg P3 => am_ + "ava" ; - Indi Imperf Pl P1 => am_ + "avamo" ; - Indi Imperf Pl P2 => am_ + "avate" ; - Indi Imperf Pl P3 => am_ + "avano" ; - Pass Sg P1 => am_ + "ai" ; - Pass Sg P2 => am_ + "asti" ; - Pass Sg P3 => am_ + "ò" ; - Pass Pl P1 => am_ + "ammo" ; - Pass Pl P2 => am_ + "aste" ; - Pass Pl P3 => am_ + "arono" ; - Fut Sg P1 => am_ + "erò" ; - Fut Sg P2 => am_ + "erai" ; - Fut Sg P3 => am_ + "erà" ; - Fut Pl P1 => am_ + "eremo" ; - Fut Pl P2 => am_ + "erete" ; - Fut Pl P3 => am_ + "eranno" ; + Indi Imperf Sg P1 => am_ + "avo" ; --# notpresent + Indi Imperf Sg P2 => am_ + "avi" ; --# notpresent + Indi Imperf Sg P3 => am_ + "ava" ; --# notpresent + Indi Imperf Pl P1 => am_ + "avamo" ; --# notpresent + Indi Imperf Pl P2 => am_ + "avate" ; --# notpresent + Indi Imperf Pl P3 => am_ + "avano" ; --# notpresent + Pass Sg P1 => am_ + "ai" ; --# notpresent + Pass Sg P2 => am_ + "asti" ; --# notpresent + Pass Sg P3 => am_ + "ò" ; --# notpresent + Pass Pl P1 => am_ + "ammo" ; --# notpresent + Pass Pl P2 => am_ + "aste" ; --# notpresent + Pass Pl P3 => am_ + "arono" ; --# notpresent + Fut Sg P1 => am_ + "erò" ; --# notpresent + Fut Sg P2 => am_ + "erai" ; --# notpresent + Fut Sg P3 => am_ + "erà" ; --# notpresent + Fut Pl P1 => am_ + "eremo" ; --# notpresent + Fut Pl P2 => am_ + "erete" ; --# notpresent + Fut Pl P3 => am_ + "eranno" ; --# notpresent Cong Pres Sg P1 => am_ + "i" ; Cong Pres Sg P2 => am_ + "i" ; Cong Pres Sg P3 => am_ + "i" ; Cong Pres Pl P1 => am_ + "iamo" ; Cong Pres Pl P2 => am_ + "iate" ; Cong Pres Pl P3 => am_ + "ino" ; - Cong Imperf Sg P1 => am_ + "assi" ; - Cong Imperf Sg P2 => am_ + "assi" ; - Cong Imperf Sg P3 => am_ + "asse" ; - Cong Imperf Pl P1 => am_ + "assimo" ; - Cong Imperf Pl P2 => am_ + "aste" ; - Cong Imperf Pl P3 => am_ + "assero" ; - Cond Sg P1 => am_ + "erei" ; - Cond Sg P2 => am_ + "eresti" ; - Cond Sg P3 => am_ + "erebbe" ; - Cond Pl P1 => am_ + "eremmo" ; - Cond Pl P2 => am_ + "ereste" ; - Cond Pl P3 => am_ + "erebbero" ; + Cong Imperf Sg P1 => am_ + "assi" ; --# notpresent + Cong Imperf Sg P2 => am_ + "assi" ; --# notpresent + Cong Imperf Sg P3 => am_ + "asse" ; --# notpresent + Cong Imperf Pl P1 => am_ + "assimo" ; --# notpresent + Cong Imperf Pl P2 => am_ + "aste" ; --# notpresent + Cong Imperf Pl P3 => am_ + "assero" ; --# notpresent + Cond Sg P1 => am_ + "erei" ; --# notpresent + Cond Sg P2 => am_ + "eresti" ; --# notpresent + Cond Sg P3 => am_ + "erebbe" ; --# notpresent + Cond Pl P1 => am_ + "eremmo" ; --# notpresent + Cond Pl P2 => am_ + "ereste" ; --# notpresent + Cond Pl P3 => am_ + "erebbero" ; --# notpresent Imper SgP2 => am_ + "a" ; Imper PlP1 => am_ + "iamo" ; Imper PlP2 => am_ + "ate" ; @@ -203,42 +205,42 @@ oper cercare_7 : Str -> Verbo = \cercare -> Indi Pres Pl P1 => cerc_ + "hiamo" ; Indi Pres Pl P2 => cerc_ + "ate" ; Indi Pres Pl P3 => cerc_ + "ano" ; - Indi Imperf Sg P1 => cerc_ + "avo" ; - Indi Imperf Sg P2 => cerc_ + "avi" ; - Indi Imperf Sg P3 => cerc_ + "ava" ; - Indi Imperf Pl P1 => cerc_ + "avamo" ; - Indi Imperf Pl P2 => cerc_ + "avate" ; - Indi Imperf Pl P3 => cerc_ + "avano" ; - Pass Sg P1 => cerc_ + "ai" ; - Pass Sg P2 => cerc_ + "asti" ; - Pass Sg P3 => cerc_ + "ò" ; - Pass Pl P1 => cerc_ + "ammo" ; - Pass Pl P2 => cerc_ + "aste" ; - Pass Pl P3 => cerc_ + "arono" ; - Fut Sg P1 => cerc_ + "herò" ; - Fut Sg P2 => cerc_ + "herai" ; - Fut Sg P3 => cerc_ + "herà" ; - Fut Pl P1 => cerc_ + "heremo" ; - Fut Pl P2 => cerc_ + "herete" ; - Fut Pl P3 => cerc_ + "heranno" ; + Indi Imperf Sg P1 => cerc_ + "avo" ; --# notpresent + Indi Imperf Sg P2 => cerc_ + "avi" ; --# notpresent + Indi Imperf Sg P3 => cerc_ + "ava" ; --# notpresent + Indi Imperf Pl P1 => cerc_ + "avamo" ; --# notpresent + Indi Imperf Pl P2 => cerc_ + "avate" ; --# notpresent + Indi Imperf Pl P3 => cerc_ + "avano" ; --# notpresent + Pass Sg P1 => cerc_ + "ai" ; --# notpresent + Pass Sg P2 => cerc_ + "asti" ; --# notpresent + Pass Sg P3 => cerc_ + "ò" ; --# notpresent + Pass Pl P1 => cerc_ + "ammo" ; --# notpresent + Pass Pl P2 => cerc_ + "aste" ; --# notpresent + Pass Pl P3 => cerc_ + "arono" ; --# notpresent + Fut Sg P1 => cerc_ + "herò" ; --# notpresent + Fut Sg P2 => cerc_ + "herai" ; --# notpresent + Fut Sg P3 => cerc_ + "herà" ; --# notpresent + Fut Pl P1 => cerc_ + "heremo" ; --# notpresent + Fut Pl P2 => cerc_ + "herete" ; --# notpresent + Fut Pl P3 => cerc_ + "heranno" ; --# notpresent Cong Pres Sg P1 => cerc_ + "hi" ; Cong Pres Sg P2 => cerc_ + "hi" ; Cong Pres Sg P3 => cerc_ + "hi" ; Cong Pres Pl P1 => cerc_ + "hiamo" ; Cong Pres Pl P2 => cerc_ + "hiate" ; Cong Pres Pl P3 => cerc_ + "hino" ; - Cong Imperf Sg P1 => cerc_ + "assi" ; - Cong Imperf Sg P2 => cerc_ + "assi" ; - Cong Imperf Sg P3 => cerc_ + "asse" ; - Cong Imperf Pl P1 => cerc_ + "assimo" ; - Cong Imperf Pl P2 => cerc_ + "aste" ; - Cong Imperf Pl P3 => cerc_ + "assero" ; - Cond Sg P1 => cerc_ + "herei" ; - Cond Sg P2 => cerc_ + "heresti" ; - Cond Sg P3 => cerc_ + "herebbe" ; - Cond Pl P1 => cerc_ + "heremmo" ; - Cond Pl P2 => cerc_ + "hereste" ; - Cond Pl P3 => cerc_ + "herebbero" ; + Cong Imperf Sg P1 => cerc_ + "assi" ; --# notpresent + Cong Imperf Sg P2 => cerc_ + "assi" ; --# notpresent + Cong Imperf Sg P3 => cerc_ + "asse" ; --# notpresent + Cong Imperf Pl P1 => cerc_ + "assimo" ; --# notpresent + Cong Imperf Pl P2 => cerc_ + "aste" ; --# notpresent + Cong Imperf Pl P3 => cerc_ + "assero" ; --# notpresent + Cond Sg P1 => cerc_ + "herei" ; --# notpresent + Cond Sg P2 => cerc_ + "heresti" ; --# notpresent + Cond Sg P3 => cerc_ + "herebbe" ; --# notpresent + Cond Pl P1 => cerc_ + "heremmo" ; --# notpresent + Cond Pl P2 => cerc_ + "hereste" ; --# notpresent + Cond Pl P3 => cerc_ + "herebbero" ; --# notpresent Imper SgP2 => cerc_ + "a" ; Imper PlP1 => cerc_ + "hiamo" ; Imper PlP2 => cerc_ + "ate" ; @@ -265,42 +267,42 @@ oper legare_8 : Str -> Verbo = \legare -> Indi Pres Pl P1 => leg_ + "hiamo" ; Indi Pres Pl P2 => leg_ + "ate" ; Indi Pres Pl P3 => leg_ + "ano" ; - Indi Imperf Sg P1 => leg_ + "avo" ; - Indi Imperf Sg P2 => leg_ + "avi" ; - Indi Imperf Sg P3 => leg_ + "ava" ; - Indi Imperf Pl P1 => leg_ + "avamo" ; - Indi Imperf Pl P2 => leg_ + "avate" ; - Indi Imperf Pl P3 => leg_ + "avano" ; - Pass Sg P1 => leg_ + "ai" ; - Pass Sg P2 => leg_ + "asti" ; - Pass Sg P3 => leg_ + "ò" ; - Pass Pl P1 => leg_ + "ammo" ; - Pass Pl P2 => leg_ + "aste" ; - Pass Pl P3 => leg_ + "arono" ; - Fut Sg P1 => leg_ + "herò" ; - Fut Sg P2 => leg_ + "herai" ; - Fut Sg P3 => leg_ + "herà" ; - Fut Pl P1 => leg_ + "heremo" ; - Fut Pl P2 => leg_ + "herete" ; - Fut Pl P3 => leg_ + "heranno" ; + Indi Imperf Sg P1 => leg_ + "avo" ; --# notpresent + Indi Imperf Sg P2 => leg_ + "avi" ; --# notpresent + Indi Imperf Sg P3 => leg_ + "ava" ; --# notpresent + Indi Imperf Pl P1 => leg_ + "avamo" ; --# notpresent + Indi Imperf Pl P2 => leg_ + "avate" ; --# notpresent + Indi Imperf Pl P3 => leg_ + "avano" ; --# notpresent + Pass Sg P1 => leg_ + "ai" ; --# notpresent + Pass Sg P2 => leg_ + "asti" ; --# notpresent + Pass Sg P3 => leg_ + "ò" ; --# notpresent + Pass Pl P1 => leg_ + "ammo" ; --# notpresent + Pass Pl P2 => leg_ + "aste" ; --# notpresent + Pass Pl P3 => leg_ + "arono" ; --# notpresent + Fut Sg P1 => leg_ + "herò" ; --# notpresent + Fut Sg P2 => leg_ + "herai" ; --# notpresent + Fut Sg P3 => leg_ + "herà" ; --# notpresent + Fut Pl P1 => leg_ + "heremo" ; --# notpresent + Fut Pl P2 => leg_ + "herete" ; --# notpresent + Fut Pl P3 => leg_ + "heranno" ; --# notpresent Cong Pres Sg P1 => leg_ + "hi" ; Cong Pres Sg P2 => leg_ + "hi" ; Cong Pres Sg P3 => leg_ + "hi" ; Cong Pres Pl P1 => leg_ + "hiamo" ; Cong Pres Pl P2 => leg_ + "hiate" ; Cong Pres Pl P3 => leg_ + "hino" ; - Cong Imperf Sg P1 => leg_ + "assi" ; - Cong Imperf Sg P2 => leg_ + "assi" ; - Cong Imperf Sg P3 => leg_ + "asse" ; - Cong Imperf Pl P1 => leg_ + "assimo" ; - Cong Imperf Pl P2 => leg_ + "aste" ; - Cong Imperf Pl P3 => leg_ + "assero" ; - Cond Sg P1 => leg_ + "herei" ; - Cond Sg P2 => leg_ + "heresti" ; - Cond Sg P3 => leg_ + "herebbe" ; - Cond Pl P1 => leg_ + "heremmo" ; - Cond Pl P2 => leg_ + "hereste" ; - Cond Pl P3 => leg_ + "herebbero" ; + Cong Imperf Sg P1 => leg_ + "assi" ; --# notpresent + Cong Imperf Sg P2 => leg_ + "assi" ; --# notpresent + Cong Imperf Sg P3 => leg_ + "asse" ; --# notpresent + Cong Imperf Pl P1 => leg_ + "assimo" ; --# notpresent + Cong Imperf Pl P2 => leg_ + "aste" ; --# notpresent + Cong Imperf Pl P3 => leg_ + "assero" ; --# notpresent + Cond Sg P1 => leg_ + "herei" ; --# notpresent + Cond Sg P2 => leg_ + "heresti" ; --# notpresent + Cond Sg P3 => leg_ + "herebbe" ; --# notpresent + Cond Pl P1 => leg_ + "heremmo" ; --# notpresent + Cond Pl P2 => leg_ + "hereste" ; --# notpresent + Cond Pl P3 => leg_ + "herebbero" ; --# notpresent Imper SgP2 => leg_ + "a" ; Imper PlP1 => leg_ + "hiamo" ; Imper PlP2 => leg_ + "ate" ; @@ -327,42 +329,42 @@ oper cominciare_9 : Str -> Verbo = \cominciare -> Indi Pres Pl P1 => cominc_ + "iamo" ; Indi Pres Pl P2 => cominc_ + "iate" ; Indi Pres Pl P3 => cominc_ + "iano" ; - Indi Imperf Sg P1 => cominc_ + "iavo" ; - Indi Imperf Sg P2 => cominc_ + "iavi" ; - Indi Imperf Sg P3 => cominc_ + "iava" ; - Indi Imperf Pl P1 => cominc_ + "iavamo" ; - Indi Imperf Pl P2 => cominc_ + "iavate" ; - Indi Imperf Pl P3 => cominc_ + "iavano" ; - Pass Sg P1 => cominc_ + "iai" ; - Pass Sg P2 => cominc_ + "iasti" ; - Pass Sg P3 => cominc_ + "iò" ; - Pass Pl P1 => cominc_ + "iammo" ; - Pass Pl P2 => cominc_ + "iaste" ; - Pass Pl P3 => cominc_ + "iarono" ; - Fut Sg P1 => cominc_ + "erò" ; - Fut Sg P2 => cominc_ + "erai" ; - Fut Sg P3 => cominc_ + "erà" ; - Fut Pl P1 => cominc_ + "eremo" ; - Fut Pl P2 => cominc_ + "erete" ; - Fut Pl P3 => cominc_ + "eranno" ; + Indi Imperf Sg P1 => cominc_ + "iavo" ; --# notpresent + Indi Imperf Sg P2 => cominc_ + "iavi" ; --# notpresent + Indi Imperf Sg P3 => cominc_ + "iava" ; --# notpresent + Indi Imperf Pl P1 => cominc_ + "iavamo" ; --# notpresent + Indi Imperf Pl P2 => cominc_ + "iavate" ; --# notpresent + Indi Imperf Pl P3 => cominc_ + "iavano" ; --# notpresent + Pass Sg P1 => cominc_ + "iai" ; --# notpresent + Pass Sg P2 => cominc_ + "iasti" ; --# notpresent + Pass Sg P3 => cominc_ + "iò" ; --# notpresent + Pass Pl P1 => cominc_ + "iammo" ; --# notpresent + Pass Pl P2 => cominc_ + "iaste" ; --# notpresent + Pass Pl P3 => cominc_ + "iarono" ; --# notpresent + Fut Sg P1 => cominc_ + "erò" ; --# notpresent + Fut Sg P2 => cominc_ + "erai" ; --# notpresent + Fut Sg P3 => cominc_ + "erà" ; --# notpresent + Fut Pl P1 => cominc_ + "eremo" ; --# notpresent + Fut Pl P2 => cominc_ + "erete" ; --# notpresent + Fut Pl P3 => cominc_ + "eranno" ; --# notpresent Cong Pres Sg P1 => cominc_ + "i" ; Cong Pres Sg P2 => cominc_ + "i" ; Cong Pres Sg P3 => cominc_ + "i" ; Cong Pres Pl P1 => cominc_ + "iamo" ; Cong Pres Pl P2 => cominc_ + "iate" ; Cong Pres Pl P3 => cominc_ + "ino" ; - Cong Imperf Sg P1 => cominc_ + "iassi" ; - Cong Imperf Sg P2 => cominc_ + "iassi" ; - Cong Imperf Sg P3 => cominc_ + "iasse" ; - Cong Imperf Pl P1 => cominc_ + "iassimo" ; - Cong Imperf Pl P2 => cominc_ + "iaste" ; - Cong Imperf Pl P3 => cominc_ + "iassero" ; - Cond Sg P1 => cominc_ + "erei" ; - Cond Sg P2 => cominc_ + "eresti" ; - Cond Sg P3 => cominc_ + "erebbe" ; - Cond Pl P1 => cominc_ + "eremmo" ; - Cond Pl P2 => cominc_ + "ereste" ; - Cond Pl P3 => cominc_ + "erebbero" ; + Cong Imperf Sg P1 => cominc_ + "iassi" ; --# notpresent + Cong Imperf Sg P2 => cominc_ + "iassi" ; --# notpresent + Cong Imperf Sg P3 => cominc_ + "iasse" ; --# notpresent + Cong Imperf Pl P1 => cominc_ + "iassimo" ; --# notpresent + Cong Imperf Pl P2 => cominc_ + "iaste" ; --# notpresent + Cong Imperf Pl P3 => cominc_ + "iassero" ; --# notpresent + Cond Sg P1 => cominc_ + "erei" ; --# notpresent + Cond Sg P2 => cominc_ + "eresti" ; --# notpresent + Cond Sg P3 => cominc_ + "erebbe" ; --# notpresent + Cond Pl P1 => cominc_ + "eremmo" ; --# notpresent + Cond Pl P2 => cominc_ + "ereste" ; --# notpresent + Cond Pl P3 => cominc_ + "erebbero" ; --# notpresent Imper SgP2 => cominc_ + "ia" ; Imper PlP1 => cominc_ + "iamo" ; Imper PlP2 => cominc_ + "iate" ; @@ -389,42 +391,42 @@ oper mangiare_10 : Str -> Verbo = \mangiare -> Indi Pres Pl P1 => mang_ + "iamo" ; Indi Pres Pl P2 => mang_ + "iate" ; Indi Pres Pl P3 => mang_ + "iano" ; - Indi Imperf Sg P1 => mang_ + "iavo" ; - Indi Imperf Sg P2 => mang_ + "iavi" ; - Indi Imperf Sg P3 => mang_ + "iava" ; - Indi Imperf Pl P1 => mang_ + "iavamo" ; - Indi Imperf Pl P2 => mang_ + "iavate" ; - Indi Imperf Pl P3 => mang_ + "iavano" ; - Pass Sg P1 => mang_ + "iai" ; - Pass Sg P2 => mang_ + "iasti" ; - Pass Sg P3 => mang_ + "iò" ; - Pass Pl P1 => mang_ + "iammo" ; - Pass Pl P2 => mang_ + "iaste" ; - Pass Pl P3 => mang_ + "iarono" ; - Fut Sg P1 => mang_ + "erò" ; - Fut Sg P2 => mang_ + "erai" ; - Fut Sg P3 => mang_ + "erà" ; - Fut Pl P1 => mang_ + "eremo" ; - Fut Pl P2 => mang_ + "erete" ; - Fut Pl P3 => mang_ + "eranno" ; + Indi Imperf Sg P1 => mang_ + "iavo" ; --# notpresent + Indi Imperf Sg P2 => mang_ + "iavi" ; --# notpresent + Indi Imperf Sg P3 => mang_ + "iava" ; --# notpresent + Indi Imperf Pl P1 => mang_ + "iavamo" ; --# notpresent + Indi Imperf Pl P2 => mang_ + "iavate" ; --# notpresent + Indi Imperf Pl P3 => mang_ + "iavano" ; --# notpresent + Pass Sg P1 => mang_ + "iai" ; --# notpresent + Pass Sg P2 => mang_ + "iasti" ; --# notpresent + Pass Sg P3 => mang_ + "iò" ; --# notpresent + Pass Pl P1 => mang_ + "iammo" ; --# notpresent + Pass Pl P2 => mang_ + "iaste" ; --# notpresent + Pass Pl P3 => mang_ + "iarono" ; --# notpresent + Fut Sg P1 => mang_ + "erò" ; --# notpresent + Fut Sg P2 => mang_ + "erai" ; --# notpresent + Fut Sg P3 => mang_ + "erà" ; --# notpresent + Fut Pl P1 => mang_ + "eremo" ; --# notpresent + Fut Pl P2 => mang_ + "erete" ; --# notpresent + Fut Pl P3 => mang_ + "eranno" ; --# notpresent Cong Pres Sg P1 => mang_ + "i" ; Cong Pres Sg P2 => mang_ + "i" ; Cong Pres Sg P3 => mang_ + "i" ; Cong Pres Pl P1 => mang_ + "iamo" ; Cong Pres Pl P2 => mang_ + "iate" ; Cong Pres Pl P3 => mang_ + "ino" ; - Cong Imperf Sg P1 => mang_ + "iassi" ; - Cong Imperf Sg P2 => mang_ + "iassi" ; - Cong Imperf Sg P3 => mang_ + "iasse" ; - Cong Imperf Pl P1 => mang_ + "iassimo" ; - Cong Imperf Pl P2 => mang_ + "iaste" ; - Cong Imperf Pl P3 => mang_ + "iassero" ; - Cond Sg P1 => mang_ + "erei" ; - Cond Sg P2 => mang_ + "eresti" ; - Cond Sg P3 => mang_ + "erebbe" ; - Cond Pl P1 => mang_ + "eremmo" ; - Cond Pl P2 => mang_ + "ereste" ; - Cond Pl P3 => mang_ + "erebbero" ; + Cong Imperf Sg P1 => mang_ + "iassi" ; --# notpresent + Cong Imperf Sg P2 => mang_ + "iassi" ; --# notpresent + Cong Imperf Sg P3 => mang_ + "iasse" ; --# notpresent + Cong Imperf Pl P1 => mang_ + "iassimo" ; --# notpresent + Cong Imperf Pl P2 => mang_ + "iaste" ; --# notpresent + Cong Imperf Pl P3 => mang_ + "iassero" ; --# notpresent + Cond Sg P1 => mang_ + "erei" ; --# notpresent + Cond Sg P2 => mang_ + "eresti" ; --# notpresent + Cond Sg P3 => mang_ + "erebbe" ; --# notpresent + Cond Pl P1 => mang_ + "eremmo" ; --# notpresent + Cond Pl P2 => mang_ + "ereste" ; --# notpresent + Cond Pl P3 => mang_ + "erebbero" ; --# notpresent Imper SgP2 => mang_ + "ia" ; Imper PlP1 => mang_ + "iamo" ; Imper PlP2 => mang_ + "iate" ; @@ -451,42 +453,42 @@ oper inviare_11 : Str -> Verbo = \inviare -> Indi Pres Pl P1 => invi_ + "iamo" ; Indi Pres Pl P2 => invi_ + "ate" ; Indi Pres Pl P3 => invi_ + "ano" ; - Indi Imperf Sg P1 => invi_ + "avo" ; - Indi Imperf Sg P2 => invi_ + "avi" ; - Indi Imperf Sg P3 => invi_ + "ava" ; - Indi Imperf Pl P1 => invi_ + "avamo" ; - Indi Imperf Pl P2 => invi_ + "avate" ; - Indi Imperf Pl P3 => invi_ + "avano" ; - Pass Sg P1 => invi_ + "ai" ; - Pass Sg P2 => invi_ + "asti" ; - Pass Sg P3 => invi_ + "ò" ; - Pass Pl P1 => invi_ + "ammo" ; - Pass Pl P2 => invi_ + "aste" ; - Pass Pl P3 => invi_ + "arono" ; - Fut Sg P1 => invi_ + "erò" ; - Fut Sg P2 => invi_ + "erai" ; - Fut Sg P3 => invi_ + "erà" ; - Fut Pl P1 => invi_ + "eremo" ; - Fut Pl P2 => invi_ + "erete" ; - Fut Pl P3 => invi_ + "eranno" ; + Indi Imperf Sg P1 => invi_ + "avo" ; --# notpresent + Indi Imperf Sg P2 => invi_ + "avi" ; --# notpresent + Indi Imperf Sg P3 => invi_ + "ava" ; --# notpresent + Indi Imperf Pl P1 => invi_ + "avamo" ; --# notpresent + Indi Imperf Pl P2 => invi_ + "avate" ; --# notpresent + Indi Imperf Pl P3 => invi_ + "avano" ; --# notpresent + Pass Sg P1 => invi_ + "ai" ; --# notpresent + Pass Sg P2 => invi_ + "asti" ; --# notpresent + Pass Sg P3 => invi_ + "ò" ; --# notpresent + Pass Pl P1 => invi_ + "ammo" ; --# notpresent + Pass Pl P2 => invi_ + "aste" ; --# notpresent + Pass Pl P3 => invi_ + "arono" ; --# notpresent + Fut Sg P1 => invi_ + "erò" ; --# notpresent + Fut Sg P2 => invi_ + "erai" ; --# notpresent + Fut Sg P3 => invi_ + "erà" ; --# notpresent + Fut Pl P1 => invi_ + "eremo" ; --# notpresent + Fut Pl P2 => invi_ + "erete" ; --# notpresent + Fut Pl P3 => invi_ + "eranno" ; --# notpresent Cong Pres Sg P1 => invi_ + "i" ; Cong Pres Sg P2 => invi_ + "i" ; Cong Pres Sg P3 => invi_ + "i" ; Cong Pres Pl P1 => invi_ + "iamo" ; Cong Pres Pl P2 => invi_ + "iate" ; Cong Pres Pl P3 => invi_ + "ino" ; - Cong Imperf Sg P1 => invi_ + "assi" ; - Cong Imperf Sg P2 => invi_ + "assi" ; - Cong Imperf Sg P3 => invi_ + "asse" ; - Cong Imperf Pl P1 => invi_ + "assimo" ; - Cong Imperf Pl P2 => invi_ + "aste" ; - Cong Imperf Pl P3 => invi_ + "assero" ; - Cond Sg P1 => invi_ + "erei" ; - Cond Sg P2 => invi_ + "eresti" ; - Cond Sg P3 => invi_ + "erebbe" ; - Cond Pl P1 => invi_ + "eremmo" ; - Cond Pl P2 => invi_ + "ereste" ; - Cond Pl P3 => invi_ + "erebbero" ; + Cong Imperf Sg P1 => invi_ + "assi" ; --# notpresent + Cong Imperf Sg P2 => invi_ + "assi" ; --# notpresent + Cong Imperf Sg P3 => invi_ + "asse" ; --# notpresent + Cong Imperf Pl P1 => invi_ + "assimo" ; --# notpresent + Cong Imperf Pl P2 => invi_ + "aste" ; --# notpresent + Cong Imperf Pl P3 => invi_ + "assero" ; --# notpresent + Cond Sg P1 => invi_ + "erei" ; --# notpresent + Cond Sg P2 => invi_ + "eresti" ; --# notpresent + Cond Sg P3 => invi_ + "erebbe" ; --# notpresent + Cond Pl P1 => invi_ + "eremmo" ; --# notpresent + Cond Pl P2 => invi_ + "ereste" ; --# notpresent + Cond Pl P3 => invi_ + "erebbero" ; --# notpresent Imper SgP2 => invi_ + "a" ; Imper PlP1 => invi_ + "iamo" ; Imper PlP2 => invi_ + "ate" ; @@ -513,42 +515,42 @@ oper studiare_12 : Str -> Verbo = \studiare -> Indi Pres Pl P1 => studi_ + "amo" ; Indi Pres Pl P2 => studi_ + "ate" ; Indi Pres Pl P3 => studi_ + "ano" ; - Indi Imperf Sg P1 => studi_ + "avo" ; - Indi Imperf Sg P2 => studi_ + "avi" ; - Indi Imperf Sg P3 => studi_ + "ava" ; - Indi Imperf Pl P1 => studi_ + "avamo" ; - Indi Imperf Pl P2 => studi_ + "avate" ; - Indi Imperf Pl P3 => studi_ + "avano" ; - Pass Sg P1 => studi_ + "ai" ; - Pass Sg P2 => studi_ + "asti" ; - Pass Sg P3 => studi_ + "ò" ; - Pass Pl P1 => studi_ + "ammo" ; - Pass Pl P2 => studi_ + "aste" ; - Pass Pl P3 => studi_ + "arono" ; - Fut Sg P1 => studi_ + "erò" ; - Fut Sg P2 => studi_ + "erai" ; - Fut Sg P3 => studi_ + "erà" ; - Fut Pl P1 => studi_ + "eremo" ; - Fut Pl P2 => studi_ + "erete" ; - Fut Pl P3 => studi_ + "eranno" ; + Indi Imperf Sg P1 => studi_ + "avo" ; --# notpresent + Indi Imperf Sg P2 => studi_ + "avi" ; --# notpresent + Indi Imperf Sg P3 => studi_ + "ava" ; --# notpresent + Indi Imperf Pl P1 => studi_ + "avamo" ; --# notpresent + Indi Imperf Pl P2 => studi_ + "avate" ; --# notpresent + Indi Imperf Pl P3 => studi_ + "avano" ; --# notpresent + Pass Sg P1 => studi_ + "ai" ; --# notpresent + Pass Sg P2 => studi_ + "asti" ; --# notpresent + Pass Sg P3 => studi_ + "ò" ; --# notpresent + Pass Pl P1 => studi_ + "ammo" ; --# notpresent + Pass Pl P2 => studi_ + "aste" ; --# notpresent + Pass Pl P3 => studi_ + "arono" ; --# notpresent + Fut Sg P1 => studi_ + "erò" ; --# notpresent + Fut Sg P2 => studi_ + "erai" ; --# notpresent + Fut Sg P3 => studi_ + "erà" ; --# notpresent + Fut Pl P1 => studi_ + "eremo" ; --# notpresent + Fut Pl P2 => studi_ + "erete" ; --# notpresent + Fut Pl P3 => studi_ + "eranno" ; --# notpresent Cong Pres Sg P1 => studi_ + "" ; Cong Pres Sg P2 => studi_ + "" ; Cong Pres Sg P3 => studi_ + "" ; Cong Pres Pl P1 => studi_ + "amo" ; Cong Pres Pl P2 => studi_ + "ate" ; Cong Pres Pl P3 => studi_ + "no" ; - Cong Imperf Sg P1 => studi_ + "assi" ; - Cong Imperf Sg P2 => studi_ + "assi" ; - Cong Imperf Sg P3 => studi_ + "asse" ; - Cong Imperf Pl P1 => studi_ + "assimo" ; - Cong Imperf Pl P2 => studi_ + "aste" ; - Cong Imperf Pl P3 => studi_ + "assero" ; - Cond Sg P1 => studi_ + "erei" ; - Cond Sg P2 => studi_ + "eresti" ; - Cond Sg P3 => studi_ + "erebbe" ; - Cond Pl P1 => studi_ + "eremmo" ; - Cond Pl P2 => studi_ + "ereste" ; - Cond Pl P3 => studi_ + "erebbero" ; + Cong Imperf Sg P1 => studi_ + "assi" ; --# notpresent + Cong Imperf Sg P2 => studi_ + "assi" ; --# notpresent + Cong Imperf Sg P3 => studi_ + "asse" ; --# notpresent + Cong Imperf Pl P1 => studi_ + "assimo" ; --# notpresent + Cong Imperf Pl P2 => studi_ + "aste" ; --# notpresent + Cong Imperf Pl P3 => studi_ + "assero" ; --# notpresent + Cond Sg P1 => studi_ + "erei" ; --# notpresent + Cond Sg P2 => studi_ + "eresti" ; --# notpresent + Cond Sg P3 => studi_ + "erebbe" ; --# notpresent + Cond Pl P1 => studi_ + "eremmo" ; --# notpresent + Cond Pl P2 => studi_ + "ereste" ; --# notpresent + Cond Pl P3 => studi_ + "erebbero" ; --# notpresent Imper SgP2 => studi_ + "a" ; Imper PlP1 => studi_ + "amo" ; Imper PlP2 => studi_ + "ate" ; @@ -575,42 +577,42 @@ oper giocare_13 : Str -> Verbo = \giocare -> Indi Pres Pl P1 => gioc_ + "hiamo" ; Indi Pres Pl P2 => gioc_ + "ate" ; Indi Pres Pl P3 => gioc_ + "ano" ; - Indi Imperf Sg P1 => gioc_ + "avo" ; - Indi Imperf Sg P2 => gioc_ + "avi" ; - Indi Imperf Sg P3 => gioc_ + "ava" ; - Indi Imperf Pl P1 => gioc_ + "avamo" ; - Indi Imperf Pl P2 => gioc_ + "avate" ; - Indi Imperf Pl P3 => gioc_ + "avano" ; - Pass Sg P1 => gioc_ + "ai" ; - Pass Sg P2 => gioc_ + "asti" ; - Pass Sg P3 => gioc_ + "ò" ; - Pass Pl P1 => gioc_ + "ammo" ; - Pass Pl P2 => gioc_ + "aste" ; - Pass Pl P3 => gioc_ + "arono" ; - Fut Sg P1 => gioc_ + "herò" ; - Fut Sg P2 => gioc_ + "herai" ; - Fut Sg P3 => gioc_ + "herà" ; - Fut Pl P1 => gioc_ + "heremo" ; - Fut Pl P2 => gioc_ + "herete" ; - Fut Pl P3 => gioc_ + "heranno" ; + Indi Imperf Sg P1 => gioc_ + "avo" ; --# notpresent + Indi Imperf Sg P2 => gioc_ + "avi" ; --# notpresent + Indi Imperf Sg P3 => gioc_ + "ava" ; --# notpresent + Indi Imperf Pl P1 => gioc_ + "avamo" ; --# notpresent + Indi Imperf Pl P2 => gioc_ + "avate" ; --# notpresent + Indi Imperf Pl P3 => gioc_ + "avano" ; --# notpresent + Pass Sg P1 => gioc_ + "ai" ; --# notpresent + Pass Sg P2 => gioc_ + "asti" ; --# notpresent + Pass Sg P3 => gioc_ + "ò" ; --# notpresent + Pass Pl P1 => gioc_ + "ammo" ; --# notpresent + Pass Pl P2 => gioc_ + "aste" ; --# notpresent + Pass Pl P3 => gioc_ + "arono" ; --# notpresent + Fut Sg P1 => gioc_ + "herò" ; --# notpresent + Fut Sg P2 => gioc_ + "herai" ; --# notpresent + Fut Sg P3 => gioc_ + "herà" ; --# notpresent + Fut Pl P1 => gioc_ + "heremo" ; --# notpresent + Fut Pl P2 => gioc_ + "herete" ; --# notpresent + Fut Pl P3 => gioc_ + "heranno" ; --# notpresent Cong Pres Sg P1 => gioc_ + "hi" ; Cong Pres Sg P2 => gioc_ + "hi" ; Cong Pres Sg P3 => gioc_ + "hi" ; Cong Pres Pl P1 => gioc_ + "hiamo" ; Cong Pres Pl P2 => gioc_ + "hiate" ; Cong Pres Pl P3 => gioc_ + "hino" ; - Cong Imperf Sg P1 => gioc_ + "assi" ; - Cong Imperf Sg P2 => gioc_ + "assi" ; - Cong Imperf Sg P3 => gioc_ + "asse" ; - Cong Imperf Pl P1 => gioc_ + "assimo" ; - Cong Imperf Pl P2 => gioc_ + "aste" ; - Cong Imperf Pl P3 => gioc_ + "assero" ; - Cond Sg P1 => gioc_ + "herei" ; - Cond Sg P2 => gioc_ + "heresti" ; - Cond Sg P3 => gioc_ + "herebbe" ; - Cond Pl P1 => gioc_ + "heremmo" ; - Cond Pl P2 => gioc_ + "hereste" ; - Cond Pl P3 => gioc_ + "herebbero" ; + Cong Imperf Sg P1 => gioc_ + "assi" ; --# notpresent + Cong Imperf Sg P2 => gioc_ + "assi" ; --# notpresent + Cong Imperf Sg P3 => gioc_ + "asse" ; --# notpresent + Cong Imperf Pl P1 => gioc_ + "assimo" ; --# notpresent + Cong Imperf Pl P2 => gioc_ + "aste" ; --# notpresent + Cong Imperf Pl P3 => gioc_ + "assero" ; --# notpresent + Cond Sg P1 => gioc_ + "herei" ; --# notpresent + Cond Sg P2 => gioc_ + "heresti" ; --# notpresent + Cond Sg P3 => gioc_ + "herebbe" ; --# notpresent + Cond Pl P1 => gioc_ + "heremmo" ; --# notpresent + Cond Pl P2 => gioc_ + "hereste" ; --# notpresent + Cond Pl P3 => gioc_ + "herebbero" ; --# notpresent Imper SgP2 => gioc_ + "a" ; Imper PlP1 => gioc_ + "hiamo" ; Imper PlP2 => gioc_ + "ate" ; @@ -637,42 +639,42 @@ oper andare_14 : Str -> Verbo = \andare -> Indi Pres Pl P1 => x_ + "andiamo" ; Indi Pres Pl P2 => x_ + "andate" ; Indi Pres Pl P3 => x_ + "vanno" ; - Indi Imperf Sg P1 => x_ + "andavo" ; - Indi Imperf Sg P2 => x_ + "andavi" ; - Indi Imperf Sg P3 => x_ + "andava" ; - Indi Imperf Pl P1 => x_ + "andavamo" ; - Indi Imperf Pl P2 => x_ + "andavate" ; - Indi Imperf Pl P3 => x_ + "andavano" ; - Pass Sg P1 => x_ + "andai" ; - Pass Sg P2 => x_ + "andasti" ; - Pass Sg P3 => x_ + "andò" ; - Pass Pl P1 => x_ + "andammo" ; - Pass Pl P2 => x_ + "andaste" ; - Pass Pl P3 => x_ + "andarono" ; - Fut Sg P1 => x_ + "andrò" ; - Fut Sg P2 => x_ + "andrai" ; - Fut Sg P3 => x_ + "andrà" ; - Fut Pl P1 => x_ + "andremo" ; - Fut Pl P2 => x_ + "andrete" ; - Fut Pl P3 => x_ + "andranno" ; + Indi Imperf Sg P1 => x_ + "andavo" ; --# notpresent + Indi Imperf Sg P2 => x_ + "andavi" ; --# notpresent + Indi Imperf Sg P3 => x_ + "andava" ; --# notpresent + Indi Imperf Pl P1 => x_ + "andavamo" ; --# notpresent + Indi Imperf Pl P2 => x_ + "andavate" ; --# notpresent + Indi Imperf Pl P3 => x_ + "andavano" ; --# notpresent + Pass Sg P1 => x_ + "andai" ; --# notpresent + Pass Sg P2 => x_ + "andasti" ; --# notpresent + Pass Sg P3 => x_ + "andò" ; --# notpresent + Pass Pl P1 => x_ + "andammo" ; --# notpresent + Pass Pl P2 => x_ + "andaste" ; --# notpresent + Pass Pl P3 => x_ + "andarono" ; --# notpresent + Fut Sg P1 => x_ + "andrò" ; --# notpresent + Fut Sg P2 => x_ + "andrai" ; --# notpresent + Fut Sg P3 => x_ + "andrà" ; --# notpresent + Fut Pl P1 => x_ + "andremo" ; --# notpresent + Fut Pl P2 => x_ + "andrete" ; --# notpresent + Fut Pl P3 => x_ + "andranno" ; --# notpresent Cong Pres Sg P1 => x_ + "vada" ; Cong Pres Sg P2 => x_ + "vada" ; Cong Pres Sg P3 => x_ + "vada" ; Cong Pres Pl P1 => x_ + "andiamo" ; Cong Pres Pl P2 => x_ + "andiate" ; Cong Pres Pl P3 => x_ + "vadano" ; - Cong Imperf Sg P1 => x_ + "andassi" ; - Cong Imperf Sg P2 => x_ + "andassi" ; - Cong Imperf Sg P3 => x_ + "andasse" ; - Cong Imperf Pl P1 => x_ + "andassimo" ; - Cong Imperf Pl P2 => x_ + "andaste" ; - Cong Imperf Pl P3 => x_ + "andassero" ; - Cond Sg P1 => x_ + "andrei" ; - Cond Sg P2 => x_ + "andresti" ; - Cond Sg P3 => x_ + "andrebbe" ; - Cond Pl P1 => x_ + "andremmo" ; - Cond Pl P2 => x_ + "andreste" ; - Cond Pl P3 => x_ + "andrebbero" ; + Cong Imperf Sg P1 => x_ + "andassi" ; --# notpresent + Cong Imperf Sg P2 => x_ + "andassi" ; --# notpresent + Cong Imperf Sg P3 => x_ + "andasse" ; --# notpresent + Cong Imperf Pl P1 => x_ + "andassimo" ; --# notpresent + Cong Imperf Pl P2 => x_ + "andaste" ; --# notpresent + Cong Imperf Pl P3 => x_ + "andassero" ; --# notpresent + Cond Sg P1 => x_ + "andrei" ; --# notpresent + Cond Sg P2 => x_ + "andresti" ; --# notpresent + Cond Sg P3 => x_ + "andrebbe" ; --# notpresent + Cond Pl P1 => x_ + "andremmo" ; --# notpresent + Cond Pl P2 => x_ + "andreste" ; --# notpresent + Cond Pl P3 => x_ + "andrebbero" ; --# notpresent Imper SgP2 => x_ + "vai" ; Imper PlP1 => x_ + "andiamo" ; Imper PlP2 => x_ + "andate" ; @@ -699,42 +701,42 @@ oper riandare_14b : Str -> Verbo = \riandare -> Indi Pres Pl P1 => ri_ + "andiamo" ; Indi Pres Pl P2 => ri_ + "andate" ; Indi Pres Pl P3 => ri_ + "vanno" ; - Indi Imperf Sg P1 => ri_ + "andavo" ; - Indi Imperf Sg P2 => ri_ + "andavi" ; - Indi Imperf Sg P3 => ri_ + "andava" ; - Indi Imperf Pl P1 => ri_ + "andavamo" ; - Indi Imperf Pl P2 => ri_ + "andavate" ; - Indi Imperf Pl P3 => ri_ + "andavano" ; - Pass Sg P1 => ri_ + "andai" ; - Pass Sg P2 => ri_ + "andasti" ; - Pass Sg P3 => ri_ + "andò" ; - Pass Pl P1 => ri_ + "andammo" ; - Pass Pl P2 => ri_ + "andaste" ; - Pass Pl P3 => ri_ + "andarono" ; - Fut Sg P1 => ri_ + "andrò" ; - Fut Sg P2 => ri_ + "andrai" ; - Fut Sg P3 => ri_ + "andrà" ; - Fut Pl P1 => ri_ + "andremo" ; - Fut Pl P2 => ri_ + "andrete" ; - Fut Pl P3 => ri_ + "andranno" ; + Indi Imperf Sg P1 => ri_ + "andavo" ; --# notpresent + Indi Imperf Sg P2 => ri_ + "andavi" ; --# notpresent + Indi Imperf Sg P3 => ri_ + "andava" ; --# notpresent + Indi Imperf Pl P1 => ri_ + "andavamo" ; --# notpresent + Indi Imperf Pl P2 => ri_ + "andavate" ; --# notpresent + Indi Imperf Pl P3 => ri_ + "andavano" ; --# notpresent + Pass Sg P1 => ri_ + "andai" ; --# notpresent + Pass Sg P2 => ri_ + "andasti" ; --# notpresent + Pass Sg P3 => ri_ + "andò" ; --# notpresent + Pass Pl P1 => ri_ + "andammo" ; --# notpresent + Pass Pl P2 => ri_ + "andaste" ; --# notpresent + Pass Pl P3 => ri_ + "andarono" ; --# notpresent + Fut Sg P1 => ri_ + "andrò" ; --# notpresent + Fut Sg P2 => ri_ + "andrai" ; --# notpresent + Fut Sg P3 => ri_ + "andrà" ; --# notpresent + Fut Pl P1 => ri_ + "andremo" ; --# notpresent + Fut Pl P2 => ri_ + "andrete" ; --# notpresent + Fut Pl P3 => ri_ + "andranno" ; --# notpresent Cong Pres Sg P1 => ri_ + "vada" ; Cong Pres Sg P2 => ri_ + "vada" ; Cong Pres Sg P3 => ri_ + "vada" ; Cong Pres Pl P1 => ri_ + "andiamo" ; Cong Pres Pl P2 => ri_ + "andiate" ; Cong Pres Pl P3 => ri_ + "vadano" ; - Cong Imperf Sg P1 => ri_ + "andassi" ; - Cong Imperf Sg P2 => ri_ + "andassi" ; - Cong Imperf Sg P3 => ri_ + "andasse" ; - Cong Imperf Pl P1 => ri_ + "andassimo" ; - Cong Imperf Pl P2 => ri_ + "andaste" ; - Cong Imperf Pl P3 => ri_ + "andassero" ; - Cond Sg P1 => ri_ + "andrei" ; - Cond Sg P2 => ri_ + "andresti" ; - Cond Sg P3 => ri_ + "andrebbe" ; - Cond Pl P1 => ri_ + "andremmo" ; - Cond Pl P2 => ri_ + "andreste" ; - Cond Pl P3 => ri_ + "andrebbero" ; + Cong Imperf Sg P1 => ri_ + "andassi" ; --# notpresent + Cong Imperf Sg P2 => ri_ + "andassi" ; --# notpresent + Cong Imperf Sg P3 => ri_ + "andasse" ; --# notpresent + Cong Imperf Pl P1 => ri_ + "andassimo" ; --# notpresent + Cong Imperf Pl P2 => ri_ + "andaste" ; --# notpresent + Cong Imperf Pl P3 => ri_ + "andassero" ; --# notpresent + Cond Sg P1 => ri_ + "andrei" ; --# notpresent + Cond Sg P2 => ri_ + "andresti" ; --# notpresent + Cond Sg P3 => ri_ + "andrebbe" ; --# notpresent + Cond Pl P1 => ri_ + "andremmo" ; --# notpresent + Cond Pl P2 => ri_ + "andreste" ; --# notpresent + Cond Pl P3 => ri_ + "andrebbero" ; --# notpresent Imper SgP2 => ri_ + "vai" ; Imper PlP1 => ri_ + "andiamo" ; Imper PlP2 => ri_ + "andate" ; @@ -761,42 +763,42 @@ oper dare_15 : Str -> Verbo = \dare -> Indi Pres Pl P1 => d_ + "iamo" ; Indi Pres Pl P2 => d_ + "ate" ; Indi Pres Pl P3 => d_ + "anno" ; - Indi Imperf Sg P1 => d_ + "avo" ; - Indi Imperf Sg P2 => d_ + "avi" ; - Indi Imperf Sg P3 => d_ + "ava" ; - Indi Imperf Pl P1 => d_ + "avamo" ; - Indi Imperf Pl P2 => d_ + "avate" ; - Indi Imperf Pl P3 => d_ + "avano" ; - Pass Sg P1 => d_ + "iedi" ; - Pass Sg P2 => d_ + "esti" ; - Pass Sg P3 => d_ + "iede" ; - Pass Pl P1 => d_ + "emmo" ; - Pass Pl P2 => d_ + "este" ; - Pass Pl P3 => d_ + "iedero" ; - Fut Sg P1 => d_ + "arò" ; - Fut Sg P2 => d_ + "arai" ; - Fut Sg P3 => d_ + "arà" ; - Fut Pl P1 => d_ + "aremo" ; - Fut Pl P2 => d_ + "arete" ; - Fut Pl P3 => d_ + "aranno" ; + Indi Imperf Sg P1 => d_ + "avo" ; --# notpresent + Indi Imperf Sg P2 => d_ + "avi" ; --# notpresent + Indi Imperf Sg P3 => d_ + "ava" ; --# notpresent + Indi Imperf Pl P1 => d_ + "avamo" ; --# notpresent + Indi Imperf Pl P2 => d_ + "avate" ; --# notpresent + Indi Imperf Pl P3 => d_ + "avano" ; --# notpresent + Pass Sg P1 => d_ + "iedi" ; --# notpresent + Pass Sg P2 => d_ + "esti" ; --# notpresent + Pass Sg P3 => d_ + "iede" ; --# notpresent + Pass Pl P1 => d_ + "emmo" ; --# notpresent + Pass Pl P2 => d_ + "este" ; --# notpresent + Pass Pl P3 => d_ + "iedero" ; --# notpresent + Fut Sg P1 => d_ + "arò" ; --# notpresent + Fut Sg P2 => d_ + "arai" ; --# notpresent + Fut Sg P3 => d_ + "arà" ; --# notpresent + Fut Pl P1 => d_ + "aremo" ; --# notpresent + Fut Pl P2 => d_ + "arete" ; --# notpresent + Fut Pl P3 => d_ + "aranno" ; --# notpresent Cong Pres Sg P1 => d_ + "ia" ; Cong Pres Sg P2 => d_ + "ia" ; Cong Pres Sg P3 => d_ + "ia" ; Cong Pres Pl P1 => d_ + "iamo" ; Cong Pres Pl P2 => d_ + "iate" ; Cong Pres Pl P3 => d_ + "iano" ; - Cong Imperf Sg P1 => d_ + "essi" ; - Cong Imperf Sg P2 => d_ + "essi" ; - Cong Imperf Sg P3 => d_ + "esse" ; - Cong Imperf Pl P1 => d_ + "essimo" ; - Cong Imperf Pl P2 => d_ + "este" ; - Cong Imperf Pl P3 => d_ + "essero" ; - Cond Sg P1 => d_ + "arei" ; - Cond Sg P2 => d_ + "aresti" ; - Cond Sg P3 => d_ + "arebbe" ; - Cond Pl P1 => d_ + "aremmo" ; - Cond Pl P2 => d_ + "areste" ; - Cond Pl P3 => d_ + "arebbero" ; + Cong Imperf Sg P1 => d_ + "essi" ; --# notpresent + Cong Imperf Sg P2 => d_ + "essi" ; --# notpresent + Cong Imperf Sg P3 => d_ + "esse" ; --# notpresent + Cong Imperf Pl P1 => d_ + "essimo" ; --# notpresent + Cong Imperf Pl P2 => d_ + "este" ; --# notpresent + Cong Imperf Pl P3 => d_ + "essero" ; --# notpresent + Cond Sg P1 => d_ + "arei" ; --# notpresent + Cond Sg P2 => d_ + "aresti" ; --# notpresent + Cond Sg P3 => d_ + "arebbe" ; --# notpresent + Cond Pl P1 => d_ + "aremmo" ; --# notpresent + Cond Pl P2 => d_ + "areste" ; --# notpresent + Cond Pl P3 => d_ + "arebbero" ; --# notpresent Imper SgP2 => d_ + "ai" ; Imper PlP1 => d_ + "iamo" ; Imper PlP2 => d_ + "iate" ; @@ -823,42 +825,42 @@ oper stare_16 : Str -> Verbo = \stare -> Indi Pres Pl P1 => st_ + "iamo" ; Indi Pres Pl P2 => st_ + "ate" ; Indi Pres Pl P3 => st_ + "anno" ; - Indi Imperf Sg P1 => st_ + "avo" ; - Indi Imperf Sg P2 => st_ + "avi" ; - Indi Imperf Sg P3 => st_ + "ava" ; - Indi Imperf Pl P1 => st_ + "avamo" ; - Indi Imperf Pl P2 => st_ + "avate" ; - Indi Imperf Pl P3 => st_ + "avano" ; - Pass Sg P1 => st_ + "etti" ; - Pass Sg P2 => st_ + "esti" ; - Pass Sg P3 => st_ + "ette" ; - Pass Pl P1 => st_ + "emmo" ; - Pass Pl P2 => st_ + "este" ; - Pass Pl P3 => st_ + "ettero" ; - Fut Sg P1 => st_ + "arò" ; - Fut Sg P2 => st_ + "arai" ; - Fut Sg P3 => st_ + "arà" ; - Fut Pl P1 => st_ + "aremo" ; - Fut Pl P2 => st_ + "arete" ; - Fut Pl P3 => st_ + "aranno" ; + Indi Imperf Sg P1 => st_ + "avo" ; --# notpresent + Indi Imperf Sg P2 => st_ + "avi" ; --# notpresent + Indi Imperf Sg P3 => st_ + "ava" ; --# notpresent + Indi Imperf Pl P1 => st_ + "avamo" ; --# notpresent + Indi Imperf Pl P2 => st_ + "avate" ; --# notpresent + Indi Imperf Pl P3 => st_ + "avano" ; --# notpresent + Pass Sg P1 => st_ + "etti" ; --# notpresent + Pass Sg P2 => st_ + "esti" ; --# notpresent + Pass Sg P3 => st_ + "ette" ; --# notpresent + Pass Pl P1 => st_ + "emmo" ; --# notpresent + Pass Pl P2 => st_ + "este" ; --# notpresent + Pass Pl P3 => st_ + "ettero" ; --# notpresent + Fut Sg P1 => st_ + "arò" ; --# notpresent + Fut Sg P2 => st_ + "arai" ; --# notpresent + Fut Sg P3 => st_ + "arà" ; --# notpresent + Fut Pl P1 => st_ + "aremo" ; --# notpresent + Fut Pl P2 => st_ + "arete" ; --# notpresent + Fut Pl P3 => st_ + "aranno" ; --# notpresent Cong Pres Sg P1 => st_ + "ia" ; Cong Pres Sg P2 => st_ + "ia" ; Cong Pres Sg P3 => st_ + "ia" ; Cong Pres Pl P1 => st_ + "iamo" ; Cong Pres Pl P2 => st_ + "iate" ; Cong Pres Pl P3 => st_ + "iano" ; - Cong Imperf Sg P1 => st_ + "essi" ; - Cong Imperf Sg P2 => st_ + "essi" ; - Cong Imperf Sg P3 => st_ + "esse" ; - Cong Imperf Pl P1 => st_ + "essimo" ; - Cong Imperf Pl P2 => st_ + "este" ; - Cong Imperf Pl P3 => st_ + "essero" ; - Cond Sg P1 => st_ + "arei" ; - Cond Sg P2 => st_ + "aresti" ; - Cond Sg P3 => st_ + "arebbe" ; - Cond Pl P1 => st_ + "aremmo" ; - Cond Pl P2 => st_ + "areste" ; - Cond Pl P3 => st_ + "arebbero" ; + Cong Imperf Sg P1 => st_ + "essi" ; --# notpresent + Cong Imperf Sg P2 => st_ + "essi" ; --# notpresent + Cong Imperf Sg P3 => st_ + "esse" ; --# notpresent + Cong Imperf Pl P1 => st_ + "essimo" ; --# notpresent + Cong Imperf Pl P2 => st_ + "este" ; --# notpresent + Cong Imperf Pl P3 => st_ + "essero" ; --# notpresent + Cond Sg P1 => st_ + "arei" ; --# notpresent + Cond Sg P2 => st_ + "aresti" ; --# notpresent + Cond Sg P3 => st_ + "arebbe" ; --# notpresent + Cond Pl P1 => st_ + "aremmo" ; --# notpresent + Cond Pl P2 => st_ + "areste" ; --# notpresent + Cond Pl P3 => st_ + "arebbero" ; --# notpresent Imper SgP2 => variants {st_ + "a`" ; st_ + "ai"} ; Imper PlP1 => st_ + "iamo" ; Imper PlP2 => st_ + "iate" ; @@ -885,42 +887,42 @@ oper agitare_17 : Str -> Verbo = \agitare -> Indi Pres Pl P1 => agit_ + "iamo" ; Indi Pres Pl P2 => agit_ + "ate" ; Indi Pres Pl P3 => agit_ + "ano" ; - Indi Imperf Sg P1 => agit_ + "avo" ; - Indi Imperf Sg P2 => agit_ + "avi" ; - Indi Imperf Sg P3 => agit_ + "ava" ; - Indi Imperf Pl P1 => agit_ + "avamo" ; - Indi Imperf Pl P2 => agit_ + "avate" ; - Indi Imperf Pl P3 => agit_ + "avano" ; - Pass Sg P1 => agit_ + "ai" ; - Pass Sg P2 => agit_ + "asti" ; - Pass Sg P3 => agit_ + "ò" ; - Pass Pl P1 => agit_ + "ammo" ; - Pass Pl P2 => agit_ + "aste" ; - Pass Pl P3 => agit_ + "arono" ; - Fut Sg P1 => agit_ + "erò" ; - Fut Sg P2 => agit_ + "erai" ; - Fut Sg P3 => agit_ + "erà" ; - Fut Pl P1 => agit_ + "eremo" ; - Fut Pl P2 => agit_ + "erete" ; - Fut Pl P3 => agit_ + "eranno" ; + Indi Imperf Sg P1 => agit_ + "avo" ; --# notpresent + Indi Imperf Sg P2 => agit_ + "avi" ; --# notpresent + Indi Imperf Sg P3 => agit_ + "ava" ; --# notpresent + Indi Imperf Pl P1 => agit_ + "avamo" ; --# notpresent + Indi Imperf Pl P2 => agit_ + "avate" ; --# notpresent + Indi Imperf Pl P3 => agit_ + "avano" ; --# notpresent + Pass Sg P1 => agit_ + "ai" ; --# notpresent + Pass Sg P2 => agit_ + "asti" ; --# notpresent + Pass Sg P3 => agit_ + "ò" ; --# notpresent + Pass Pl P1 => agit_ + "ammo" ; --# notpresent + Pass Pl P2 => agit_ + "aste" ; --# notpresent + Pass Pl P3 => agit_ + "arono" ; --# notpresent + Fut Sg P1 => agit_ + "erò" ; --# notpresent + Fut Sg P2 => agit_ + "erai" ; --# notpresent + Fut Sg P3 => agit_ + "erà" ; --# notpresent + Fut Pl P1 => agit_ + "eremo" ; --# notpresent + Fut Pl P2 => agit_ + "erete" ; --# notpresent + Fut Pl P3 => agit_ + "eranno" ; --# notpresent Cong Pres Sg P1 => agit_ + "i" ; Cong Pres Sg P2 => agit_ + "i" ; Cong Pres Sg P3 => agit_ + "i" ; Cong Pres Pl P1 => agit_ + "iamo" ; Cong Pres Pl P2 => agit_ + "iate" ; Cong Pres Pl P3 => agit_ + "ino" ; - Cong Imperf Sg P1 => agit_ + "assi" ; - Cong Imperf Sg P2 => agit_ + "assi" ; - Cong Imperf Sg P3 => agit_ + "asse" ; - Cong Imperf Pl P1 => agit_ + "assimo" ; - Cong Imperf Pl P2 => agit_ + "aste" ; - Cong Imperf Pl P3 => agit_ + "assero" ; - Cond Sg P1 => agit_ + "erei" ; - Cond Sg P2 => agit_ + "eresti" ; - Cond Sg P3 => agit_ + "erebbe" ; - Cond Pl P1 => agit_ + "eremmo" ; - Cond Pl P2 => agit_ + "ereste" ; - Cond Pl P3 => agit_ + "erebbero" ; + Cong Imperf Sg P1 => agit_ + "assi" ; --# notpresent + Cong Imperf Sg P2 => agit_ + "assi" ; --# notpresent + Cong Imperf Sg P3 => agit_ + "asse" ; --# notpresent + Cong Imperf Pl P1 => agit_ + "assimo" ; --# notpresent + Cong Imperf Pl P2 => agit_ + "aste" ; --# notpresent + Cong Imperf Pl P3 => agit_ + "assero" ; --# notpresent + Cond Sg P1 => agit_ + "erei" ; --# notpresent + Cond Sg P2 => agit_ + "eresti" ; --# notpresent + Cond Sg P3 => agit_ + "erebbe" ; --# notpresent + Cond Pl P1 => agit_ + "eremmo" ; --# notpresent + Cond Pl P2 => agit_ + "ereste" ; --# notpresent + Cond Pl P3 => agit_ + "erebbero" ; --# notpresent Imper SgP2 => agit_ + "a" ; Imper PlP1 => agit_ + "iamo" ; Imper PlP2 => agit_ + "ate" ; @@ -947,42 +949,42 @@ oper immaginare_18 : Str -> Verbo = \immaginare -> Indi Pres Pl P1 => immagin_ + "iamo" ; Indi Pres Pl P2 => immagin_ + "ate" ; Indi Pres Pl P3 => immagin_ + "ano" ; - Indi Imperf Sg P1 => immagin_ + "avo" ; - Indi Imperf Sg P2 => immagin_ + "avi" ; - Indi Imperf Sg P3 => immagin_ + "ava" ; - Indi Imperf Pl P1 => immagin_ + "avamo" ; - Indi Imperf Pl P2 => immagin_ + "avate" ; - Indi Imperf Pl P3 => immagin_ + "avano" ; - Pass Sg P1 => immagin_ + "ai" ; - Pass Sg P2 => immagin_ + "asti" ; - Pass Sg P3 => immagin_ + "ò" ; - Pass Pl P1 => immagin_ + "ammo" ; - Pass Pl P2 => immagin_ + "aste" ; - Pass Pl P3 => immagin_ + "arono" ; - Fut Sg P1 => immagin_ + "erò" ; - Fut Sg P2 => immagin_ + "erai" ; - Fut Sg P3 => immagin_ + "erà" ; - Fut Pl P1 => immagin_ + "eremo" ; - Fut Pl P2 => immagin_ + "erete" ; - Fut Pl P3 => immagin_ + "eranno" ; + Indi Imperf Sg P1 => immagin_ + "avo" ; --# notpresent + Indi Imperf Sg P2 => immagin_ + "avi" ; --# notpresent + Indi Imperf Sg P3 => immagin_ + "ava" ; --# notpresent + Indi Imperf Pl P1 => immagin_ + "avamo" ; --# notpresent + Indi Imperf Pl P2 => immagin_ + "avate" ; --# notpresent + Indi Imperf Pl P3 => immagin_ + "avano" ; --# notpresent + Pass Sg P1 => immagin_ + "ai" ; --# notpresent + Pass Sg P2 => immagin_ + "asti" ; --# notpresent + Pass Sg P3 => immagin_ + "ò" ; --# notpresent + Pass Pl P1 => immagin_ + "ammo" ; --# notpresent + Pass Pl P2 => immagin_ + "aste" ; --# notpresent + Pass Pl P3 => immagin_ + "arono" ; --# notpresent + Fut Sg P1 => immagin_ + "erò" ; --# notpresent + Fut Sg P2 => immagin_ + "erai" ; --# notpresent + Fut Sg P3 => immagin_ + "erà" ; --# notpresent + Fut Pl P1 => immagin_ + "eremo" ; --# notpresent + Fut Pl P2 => immagin_ + "erete" ; --# notpresent + Fut Pl P3 => immagin_ + "eranno" ; --# notpresent Cong Pres Sg P1 => immagin_ + "i" ; Cong Pres Sg P2 => immagin_ + "i" ; Cong Pres Sg P3 => immagin_ + "i" ; Cong Pres Pl P1 => immagin_ + "iamo" ; Cong Pres Pl P2 => immagin_ + "iate" ; Cong Pres Pl P3 => immagin_ + "ino" ; - Cong Imperf Sg P1 => immagin_ + "assi" ; - Cong Imperf Sg P2 => immagin_ + "assi" ; - Cong Imperf Sg P3 => immagin_ + "asse" ; - Cong Imperf Pl P1 => immagin_ + "assimo" ; - Cong Imperf Pl P2 => immagin_ + "aste" ; - Cong Imperf Pl P3 => immagin_ + "assero" ; - Cond Sg P1 => immagin_ + "erei" ; - Cond Sg P2 => immagin_ + "eresti" ; - Cond Sg P3 => immagin_ + "erebbe" ; - Cond Pl P1 => immagin_ + "eremmo" ; - Cond Pl P2 => immagin_ + "ereste" ; - Cond Pl P3 => immagin_ + "erebbero" ; + Cong Imperf Sg P1 => immagin_ + "assi" ; --# notpresent + Cong Imperf Sg P2 => immagin_ + "assi" ; --# notpresent + Cong Imperf Sg P3 => immagin_ + "asse" ; --# notpresent + Cong Imperf Pl P1 => immagin_ + "assimo" ; --# notpresent + Cong Imperf Pl P2 => immagin_ + "aste" ; --# notpresent + Cong Imperf Pl P3 => immagin_ + "assero" ; --# notpresent + Cond Sg P1 => immagin_ + "erei" ; --# notpresent + Cond Sg P2 => immagin_ + "eresti" ; --# notpresent + Cond Sg P3 => immagin_ + "erebbe" ; --# notpresent + Cond Pl P1 => immagin_ + "eremmo" ; --# notpresent + Cond Pl P2 => immagin_ + "ereste" ; --# notpresent + Cond Pl P3 => immagin_ + "erebbero" ; --# notpresent Imper SgP2 => immagin_ + "a" ; Imper PlP1 => immagin_ + "iamo" ; Imper PlP2 => immagin_ + "ate" ; @@ -1009,42 +1011,42 @@ oper modificare_19 : Str -> Verbo = \modificare -> Indi Pres Pl P1 => modific_ + "hiamo" ; Indi Pres Pl P2 => modific_ + "ate" ; Indi Pres Pl P3 => modific_ + "ano" ; - Indi Imperf Sg P1 => modific_ + "avo" ; - Indi Imperf Sg P2 => modific_ + "avi" ; - Indi Imperf Sg P3 => modific_ + "ava" ; - Indi Imperf Pl P1 => modific_ + "avamo" ; - Indi Imperf Pl P2 => modific_ + "avate" ; - Indi Imperf Pl P3 => modific_ + "avano" ; - Pass Sg P1 => modific_ + "ai" ; - Pass Sg P2 => modific_ + "asti" ; - Pass Sg P3 => modific_ + "ò" ; - Pass Pl P1 => modific_ + "ammo" ; - Pass Pl P2 => modific_ + "aste" ; - Pass Pl P3 => modific_ + "arono" ; - Fut Sg P1 => modific_ + "herò" ; - Fut Sg P2 => modific_ + "herai" ; - Fut Sg P3 => modific_ + "herà" ; - Fut Pl P1 => modific_ + "heremo" ; - Fut Pl P2 => modific_ + "herete" ; - Fut Pl P3 => modific_ + "heranno" ; + Indi Imperf Sg P1 => modific_ + "avo" ; --# notpresent + Indi Imperf Sg P2 => modific_ + "avi" ; --# notpresent + Indi Imperf Sg P3 => modific_ + "ava" ; --# notpresent + Indi Imperf Pl P1 => modific_ + "avamo" ; --# notpresent + Indi Imperf Pl P2 => modific_ + "avate" ; --# notpresent + Indi Imperf Pl P3 => modific_ + "avano" ; --# notpresent + Pass Sg P1 => modific_ + "ai" ; --# notpresent + Pass Sg P2 => modific_ + "asti" ; --# notpresent + Pass Sg P3 => modific_ + "ò" ; --# notpresent + Pass Pl P1 => modific_ + "ammo" ; --# notpresent + Pass Pl P2 => modific_ + "aste" ; --# notpresent + Pass Pl P3 => modific_ + "arono" ; --# notpresent + Fut Sg P1 => modific_ + "herò" ; --# notpresent + Fut Sg P2 => modific_ + "herai" ; --# notpresent + Fut Sg P3 => modific_ + "herà" ; --# notpresent + Fut Pl P1 => modific_ + "heremo" ; --# notpresent + Fut Pl P2 => modific_ + "herete" ; --# notpresent + Fut Pl P3 => modific_ + "heranno" ; --# notpresent Cong Pres Sg P1 => modific_ + "hi" ; Cong Pres Sg P2 => modific_ + "hi" ; Cong Pres Sg P3 => modific_ + "hi" ; Cong Pres Pl P1 => modific_ + "hiamo" ; Cong Pres Pl P2 => modific_ + "hiate" ; Cong Pres Pl P3 => modific_ + "hino" ; - Cong Imperf Sg P1 => modific_ + "assi" ; - Cong Imperf Sg P2 => modific_ + "assi" ; - Cong Imperf Sg P3 => modific_ + "asse" ; - Cong Imperf Pl P1 => modific_ + "assimo" ; - Cong Imperf Pl P2 => modific_ + "aste" ; - Cong Imperf Pl P3 => modific_ + "assero" ; - Cond Sg P1 => modific_ + "herei" ; - Cond Sg P2 => modific_ + "heresti" ; - Cond Sg P3 => modific_ + "herebbe" ; - Cond Pl P1 => modific_ + "heremmo" ; - Cond Pl P2 => modific_ + "hereste" ; - Cond Pl P3 => modific_ + "herebbero" ; + Cong Imperf Sg P1 => modific_ + "assi" ; --# notpresent + Cong Imperf Sg P2 => modific_ + "assi" ; --# notpresent + Cong Imperf Sg P3 => modific_ + "asse" ; --# notpresent + Cong Imperf Pl P1 => modific_ + "assimo" ; --# notpresent + Cong Imperf Pl P2 => modific_ + "aste" ; --# notpresent + Cong Imperf Pl P3 => modific_ + "assero" ; --# notpresent + Cond Sg P1 => modific_ + "herei" ; --# notpresent + Cond Sg P2 => modific_ + "heresti" ; --# notpresent + Cond Sg P3 => modific_ + "herebbe" ; --# notpresent + Cond Pl P1 => modific_ + "heremmo" ; --# notpresent + Cond Pl P2 => modific_ + "hereste" ; --# notpresent + Cond Pl P3 => modific_ + "herebbero" ; --# notpresent Imper SgP2 => modific_ + "a" ; Imper PlP1 => modific_ + "hiamo" ; Imper PlP2 => modific_ + "ate" ; @@ -1071,42 +1073,42 @@ oper temere_20 : Str -> Verbo = \temere -> Indi Pres Pl P1 => tem_ + "iamo" ; Indi Pres Pl P2 => tem_ + "ete" ; Indi Pres Pl P3 => tem_ + "ono" ; - Indi Imperf Sg P1 => tem_ + "evo" ; - Indi Imperf Sg P2 => tem_ + "evi" ; - Indi Imperf Sg P3 => tem_ + "eva" ; - Indi Imperf Pl P1 => tem_ + "evamo" ; - Indi Imperf Pl P2 => tem_ + "evate" ; - Indi Imperf Pl P3 => tem_ + "evano" ; - Pass Sg P1 => tem_ + "etti" ; - Pass Sg P2 => tem_ + "esti" ; - Pass Sg P3 => tem_ + "ette" ; - Pass Pl P1 => tem_ + "emmo" ; - Pass Pl P2 => tem_ + "este" ; - Pass Pl P3 => tem_ + "ettero" ; - Fut Sg P1 => tem_ + "erò" ; - Fut Sg P2 => tem_ + "erai" ; - Fut Sg P3 => tem_ + "erà" ; - Fut Pl P1 => tem_ + "eremo" ; - Fut Pl P2 => tem_ + "erete" ; - Fut Pl P3 => tem_ + "eranno" ; + Indi Imperf Sg P1 => tem_ + "evo" ; --# notpresent + Indi Imperf Sg P2 => tem_ + "evi" ; --# notpresent + Indi Imperf Sg P3 => tem_ + "eva" ; --# notpresent + Indi Imperf Pl P1 => tem_ + "evamo" ; --# notpresent + Indi Imperf Pl P2 => tem_ + "evate" ; --# notpresent + Indi Imperf Pl P3 => tem_ + "evano" ; --# notpresent + Pass Sg P1 => tem_ + "etti" ; --# notpresent + Pass Sg P2 => tem_ + "esti" ; --# notpresent + Pass Sg P3 => tem_ + "ette" ; --# notpresent + Pass Pl P1 => tem_ + "emmo" ; --# notpresent + Pass Pl P2 => tem_ + "este" ; --# notpresent + Pass Pl P3 => tem_ + "ettero" ; --# notpresent + Fut Sg P1 => tem_ + "erò" ; --# notpresent + Fut Sg P2 => tem_ + "erai" ; --# notpresent + Fut Sg P3 => tem_ + "erà" ; --# notpresent + Fut Pl P1 => tem_ + "eremo" ; --# notpresent + Fut Pl P2 => tem_ + "erete" ; --# notpresent + Fut Pl P3 => tem_ + "eranno" ; --# notpresent Cong Pres Sg P1 => tem_ + "a" ; Cong Pres Sg P2 => tem_ + "a" ; Cong Pres Sg P3 => tem_ + "a" ; Cong Pres Pl P1 => tem_ + "iamo" ; Cong Pres Pl P2 => tem_ + "iate" ; Cong Pres Pl P3 => tem_ + "ano" ; - Cong Imperf Sg P1 => tem_ + "essi" ; - Cong Imperf Sg P2 => tem_ + "essi" ; - Cong Imperf Sg P3 => tem_ + "esse" ; - Cong Imperf Pl P1 => tem_ + "essimo" ; - Cong Imperf Pl P2 => tem_ + "este" ; - Cong Imperf Pl P3 => tem_ + "essero" ; - Cond Sg P1 => tem_ + "erei" ; - Cond Sg P2 => tem_ + "eresti" ; - Cond Sg P3 => tem_ + "erebbe" ; - Cond Pl P1 => tem_ + "eremmo" ; - Cond Pl P2 => tem_ + "ereste" ; - Cond Pl P3 => tem_ + "erebbero" ; + Cong Imperf Sg P1 => tem_ + "essi" ; --# notpresent + Cong Imperf Sg P2 => tem_ + "essi" ; --# notpresent + Cong Imperf Sg P3 => tem_ + "esse" ; --# notpresent + Cong Imperf Pl P1 => tem_ + "essimo" ; --# notpresent + Cong Imperf Pl P2 => tem_ + "este" ; --# notpresent + Cong Imperf Pl P3 => tem_ + "essero" ; --# notpresent + Cond Sg P1 => tem_ + "erei" ; --# notpresent + Cond Sg P2 => tem_ + "eresti" ; --# notpresent + Cond Sg P3 => tem_ + "erebbe" ; --# notpresent + Cond Pl P1 => tem_ + "eremmo" ; --# notpresent + Cond Pl P2 => tem_ + "ereste" ; --# notpresent + Cond Pl P3 => tem_ + "erebbero" ; --# notpresent Imper SgP2 => tem_ + "i" ; Imper PlP1 => tem_ + "iamo" ; Imper PlP2 => tem_ + "ete" ; @@ -1133,42 +1135,42 @@ oper accendere_21 : Str -> Verbo = \accendere -> Indi Pres Pl P1 => acce_ + "ndiamo" ; Indi Pres Pl P2 => acce_ + "ndete" ; Indi Pres Pl P3 => acce_ + "ndono" ; - Indi Imperf Sg P1 => acce_ + "ndevo" ; - Indi Imperf Sg P2 => acce_ + "ndevi" ; - Indi Imperf Sg P3 => acce_ + "ndeva" ; - Indi Imperf Pl P1 => acce_ + "ndevamo" ; - Indi Imperf Pl P2 => acce_ + "ndevate" ; - Indi Imperf Pl P3 => acce_ + "ndevano" ; - Pass Sg P1 => acce_ + "si" ; - Pass Sg P2 => acce_ + "ndesti" ; - Pass Sg P3 => acce_ + "se" ; - Pass Pl P1 => acce_ + "ndemmo" ; - Pass Pl P2 => acce_ + "ndeste" ; - Pass Pl P3 => acce_ + "sero" ; - Fut Sg P1 => acce_ + "nderò" ; - Fut Sg P2 => acce_ + "nderai" ; - Fut Sg P3 => acce_ + "nderà" ; - Fut Pl P1 => acce_ + "nderemo" ; - Fut Pl P2 => acce_ + "nderete" ; - Fut Pl P3 => acce_ + "nderanno" ; + Indi Imperf Sg P1 => acce_ + "ndevo" ; --# notpresent + Indi Imperf Sg P2 => acce_ + "ndevi" ; --# notpresent + Indi Imperf Sg P3 => acce_ + "ndeva" ; --# notpresent + Indi Imperf Pl P1 => acce_ + "ndevamo" ; --# notpresent + Indi Imperf Pl P2 => acce_ + "ndevate" ; --# notpresent + Indi Imperf Pl P3 => acce_ + "ndevano" ; --# notpresent + Pass Sg P1 => acce_ + "si" ; --# notpresent + Pass Sg P2 => acce_ + "ndesti" ; --# notpresent + Pass Sg P3 => acce_ + "se" ; --# notpresent + Pass Pl P1 => acce_ + "ndemmo" ; --# notpresent + Pass Pl P2 => acce_ + "ndeste" ; --# notpresent + Pass Pl P3 => acce_ + "sero" ; --# notpresent + Fut Sg P1 => acce_ + "nderò" ; --# notpresent + Fut Sg P2 => acce_ + "nderai" ; --# notpresent + Fut Sg P3 => acce_ + "nderà" ; --# notpresent + Fut Pl P1 => acce_ + "nderemo" ; --# notpresent + Fut Pl P2 => acce_ + "nderete" ; --# notpresent + Fut Pl P3 => acce_ + "nderanno" ; --# notpresent Cong Pres Sg P1 => acce_ + "nda" ; Cong Pres Sg P2 => acce_ + "nda" ; Cong Pres Sg P3 => acce_ + "nda" ; Cong Pres Pl P1 => acce_ + "ndiamo" ; Cong Pres Pl P2 => acce_ + "ndiate" ; Cong Pres Pl P3 => acce_ + "ndano" ; - Cong Imperf Sg P1 => acce_ + "ndessi" ; - Cong Imperf Sg P2 => acce_ + "ndessi" ; - Cong Imperf Sg P3 => acce_ + "ndesse" ; - Cong Imperf Pl P1 => acce_ + "ndessimo" ; - Cong Imperf Pl P2 => acce_ + "ndeste" ; - Cong Imperf Pl P3 => acce_ + "ndessero" ; - Cond Sg P1 => acce_ + "nderei" ; - Cond Sg P2 => acce_ + "nderesti" ; - Cond Sg P3 => acce_ + "nderebbe" ; - Cond Pl P1 => acce_ + "nderemmo" ; - Cond Pl P2 => acce_ + "ndereste" ; - Cond Pl P3 => acce_ + "nderebbero" ; + Cong Imperf Sg P1 => acce_ + "ndessi" ; --# notpresent + Cong Imperf Sg P2 => acce_ + "ndessi" ; --# notpresent + Cong Imperf Sg P3 => acce_ + "ndesse" ; --# notpresent + Cong Imperf Pl P1 => acce_ + "ndessimo" ; --# notpresent + Cong Imperf Pl P2 => acce_ + "ndeste" ; --# notpresent + Cong Imperf Pl P3 => acce_ + "ndessero" ; --# notpresent + Cond Sg P1 => acce_ + "nderei" ; --# notpresent + Cond Sg P2 => acce_ + "nderesti" ; --# notpresent + Cond Sg P3 => acce_ + "nderebbe" ; --# notpresent + Cond Pl P1 => acce_ + "nderemmo" ; --# notpresent + Cond Pl P2 => acce_ + "ndereste" ; --# notpresent + Cond Pl P3 => acce_ + "nderebbero" ; --# notpresent Imper SgP2 => acce_ + "ndi" ; Imper PlP1 => acce_ + "ndiamo" ; Imper PlP2 => acce_ + "ndete" ; @@ -1195,42 +1197,42 @@ oper affiggere_22 : Str -> Verbo = \affiggere -> Indi Pres Pl P1 => affi_ + "ggiamo" ; Indi Pres Pl P2 => affi_ + "ggete" ; Indi Pres Pl P3 => affi_ + "ggono" ; - Indi Imperf Sg P1 => affi_ + "ggevo" ; - Indi Imperf Sg P2 => affi_ + "ggevi" ; - Indi Imperf Sg P3 => affi_ + "ggeva" ; - Indi Imperf Pl P1 => affi_ + "ggevamo" ; - Indi Imperf Pl P2 => affi_ + "ggevate" ; - Indi Imperf Pl P3 => affi_ + "ggevano" ; - Pass Sg P1 => affi_ + "ssi" ; - Pass Sg P2 => affi_ + "ggesti" ; - Pass Sg P3 => affi_ + "sse" ; - Pass Pl P1 => affi_ + "ggemmo" ; - Pass Pl P2 => affi_ + "ggeste" ; - Pass Pl P3 => affi_ + "ssero" ; - Fut Sg P1 => affi_ + "ggerò" ; - Fut Sg P2 => affi_ + "ggerai" ; - Fut Sg P3 => affi_ + "ggerà" ; - Fut Pl P1 => affi_ + "ggeremo" ; - Fut Pl P2 => affi_ + "ggerete" ; - Fut Pl P3 => affi_ + "ggeranno" ; + Indi Imperf Sg P1 => affi_ + "ggevo" ; --# notpresent + Indi Imperf Sg P2 => affi_ + "ggevi" ; --# notpresent + Indi Imperf Sg P3 => affi_ + "ggeva" ; --# notpresent + Indi Imperf Pl P1 => affi_ + "ggevamo" ; --# notpresent + Indi Imperf Pl P2 => affi_ + "ggevate" ; --# notpresent + Indi Imperf Pl P3 => affi_ + "ggevano" ; --# notpresent + Pass Sg P1 => affi_ + "ssi" ; --# notpresent + Pass Sg P2 => affi_ + "ggesti" ; --# notpresent + Pass Sg P3 => affi_ + "sse" ; --# notpresent + Pass Pl P1 => affi_ + "ggemmo" ; --# notpresent + Pass Pl P2 => affi_ + "ggeste" ; --# notpresent + Pass Pl P3 => affi_ + "ssero" ; --# notpresent + Fut Sg P1 => affi_ + "ggerò" ; --# notpresent + Fut Sg P2 => affi_ + "ggerai" ; --# notpresent + Fut Sg P3 => affi_ + "ggerà" ; --# notpresent + Fut Pl P1 => affi_ + "ggeremo" ; --# notpresent + Fut Pl P2 => affi_ + "ggerete" ; --# notpresent + Fut Pl P3 => affi_ + "ggeranno" ; --# notpresent Cong Pres Sg P1 => affi_ + "gga" ; Cong Pres Sg P2 => affi_ + "gga" ; Cong Pres Sg P3 => affi_ + "gga" ; Cong Pres Pl P1 => affi_ + "ggiamo" ; Cong Pres Pl P2 => affi_ + "ggiate" ; Cong Pres Pl P3 => affi_ + "ggano" ; - Cong Imperf Sg P1 => affi_ + "ggessi" ; - Cong Imperf Sg P2 => affi_ + "ggessi" ; - Cong Imperf Sg P3 => affi_ + "ggesse" ; - Cong Imperf Pl P1 => affi_ + "ggessimo" ; - Cong Imperf Pl P2 => affi_ + "ggeste" ; - Cong Imperf Pl P3 => affi_ + "ggessero" ; - Cond Sg P1 => affi_ + "ggerei" ; - Cond Sg P2 => affi_ + "ggeresti" ; - Cond Sg P3 => affi_ + "ggerebbe" ; - Cond Pl P1 => affi_ + "ggeremmo" ; - Cond Pl P2 => affi_ + "ggereste" ; - Cond Pl P3 => affi_ + "ggerebbero" ; + Cong Imperf Sg P1 => affi_ + "ggessi" ; --# notpresent + Cong Imperf Sg P2 => affi_ + "ggessi" ; --# notpresent + Cong Imperf Sg P3 => affi_ + "ggesse" ; --# notpresent + Cong Imperf Pl P1 => affi_ + "ggessimo" ; --# notpresent + Cong Imperf Pl P2 => affi_ + "ggeste" ; --# notpresent + Cong Imperf Pl P3 => affi_ + "ggessero" ; --# notpresent + Cond Sg P1 => affi_ + "ggerei" ; --# notpresent + Cond Sg P2 => affi_ + "ggeresti" ; --# notpresent + Cond Sg P3 => affi_ + "ggerebbe" ; --# notpresent + Cond Pl P1 => affi_ + "ggeremmo" ; --# notpresent + Cond Pl P2 => affi_ + "ggereste" ; --# notpresent + Cond Pl P3 => affi_ + "ggerebbero" ; --# notpresent Imper SgP2 => affi_ + "ggi" ; Imper PlP1 => affi_ + "ggiamo" ; Imper PlP2 => affi_ + "ggete" ; @@ -1257,42 +1259,42 @@ oper ardere_23 : Str -> Verbo = \ardere -> Indi Pres Pl P1 => ar_ + "diamo" ; Indi Pres Pl P2 => ar_ + "dete" ; Indi Pres Pl P3 => ar_ + "dono" ; - Indi Imperf Sg P1 => ar_ + "devo" ; - Indi Imperf Sg P2 => ar_ + "devi" ; - Indi Imperf Sg P3 => ar_ + "deva" ; - Indi Imperf Pl P1 => ar_ + "devamo" ; - Indi Imperf Pl P2 => ar_ + "devate" ; - Indi Imperf Pl P3 => ar_ + "devano" ; - Pass Sg P1 => ar_ + "si" ; - Pass Sg P2 => ar_ + "desti" ; - Pass Sg P3 => ar_ + "se" ; - Pass Pl P1 => ar_ + "demmo" ; - Pass Pl P2 => ar_ + "deste" ; - Pass Pl P3 => ar_ + "sero" ; - Fut Sg P1 => ar_ + "derò" ; - Fut Sg P2 => ar_ + "derai" ; - Fut Sg P3 => ar_ + "derà" ; - Fut Pl P1 => ar_ + "deremo" ; - Fut Pl P2 => ar_ + "derete" ; - Fut Pl P3 => ar_ + "deranno" ; + Indi Imperf Sg P1 => ar_ + "devo" ; --# notpresent + Indi Imperf Sg P2 => ar_ + "devi" ; --# notpresent + Indi Imperf Sg P3 => ar_ + "deva" ; --# notpresent + Indi Imperf Pl P1 => ar_ + "devamo" ; --# notpresent + Indi Imperf Pl P2 => ar_ + "devate" ; --# notpresent + Indi Imperf Pl P3 => ar_ + "devano" ; --# notpresent + Pass Sg P1 => ar_ + "si" ; --# notpresent + Pass Sg P2 => ar_ + "desti" ; --# notpresent + Pass Sg P3 => ar_ + "se" ; --# notpresent + Pass Pl P1 => ar_ + "demmo" ; --# notpresent + Pass Pl P2 => ar_ + "deste" ; --# notpresent + Pass Pl P3 => ar_ + "sero" ; --# notpresent + Fut Sg P1 => ar_ + "derò" ; --# notpresent + Fut Sg P2 => ar_ + "derai" ; --# notpresent + Fut Sg P3 => ar_ + "derà" ; --# notpresent + Fut Pl P1 => ar_ + "deremo" ; --# notpresent + Fut Pl P2 => ar_ + "derete" ; --# notpresent + Fut Pl P3 => ar_ + "deranno" ; --# notpresent Cong Pres Sg P1 => ar_ + "da" ; Cong Pres Sg P2 => ar_ + "da" ; Cong Pres Sg P3 => ar_ + "da" ; Cong Pres Pl P1 => ar_ + "diamo" ; Cong Pres Pl P2 => ar_ + "diate" ; Cong Pres Pl P3 => ar_ + "dano" ; - Cong Imperf Sg P1 => ar_ + "dessi" ; - Cong Imperf Sg P2 => ar_ + "dessi" ; - Cong Imperf Sg P3 => ar_ + "desse" ; - Cong Imperf Pl P1 => ar_ + "dessimo" ; - Cong Imperf Pl P2 => ar_ + "deste" ; - Cong Imperf Pl P3 => ar_ + "dessero" ; - Cond Sg P1 => ar_ + "derei" ; - Cond Sg P2 => ar_ + "deresti" ; - Cond Sg P3 => ar_ + "derebbe" ; - Cond Pl P1 => ar_ + "deremmo" ; - Cond Pl P2 => ar_ + "dereste" ; - Cond Pl P3 => ar_ + "derebbero" ; + Cong Imperf Sg P1 => ar_ + "dessi" ; --# notpresent + Cong Imperf Sg P2 => ar_ + "dessi" ; --# notpresent + Cong Imperf Sg P3 => ar_ + "desse" ; --# notpresent + Cong Imperf Pl P1 => ar_ + "dessimo" ; --# notpresent + Cong Imperf Pl P2 => ar_ + "deste" ; --# notpresent + Cong Imperf Pl P3 => ar_ + "dessero" ; --# notpresent + Cond Sg P1 => ar_ + "derei" ; --# notpresent + Cond Sg P2 => ar_ + "deresti" ; --# notpresent + Cond Sg P3 => ar_ + "derebbe" ; --# notpresent + Cond Pl P1 => ar_ + "deremmo" ; --# notpresent + Cond Pl P2 => ar_ + "dereste" ; --# notpresent + Cond Pl P3 => ar_ + "derebbero" ; --# notpresent Imper SgP2 => ar_ + "di" ; Imper PlP1 => ar_ + "diamo" ; Imper PlP2 => ar_ + "dete" ; @@ -1319,42 +1321,42 @@ oper assistere_24 : Str -> Verbo = \assistere -> Indi Pres Pl P1 => assist_ + "iamo" ; Indi Pres Pl P2 => assist_ + "ete" ; Indi Pres Pl P3 => assist_ + "ono" ; - Indi Imperf Sg P1 => assist_ + "evo" ; - Indi Imperf Sg P2 => assist_ + "evi" ; - Indi Imperf Sg P3 => assist_ + "eva" ; - Indi Imperf Pl P1 => assist_ + "evamo" ; - Indi Imperf Pl P2 => assist_ + "evate" ; - Indi Imperf Pl P3 => assist_ + "evano" ; - Pass Sg P1 => assist_ + "ei" ; - Pass Sg P2 => assist_ + "esti" ; - Pass Sg P3 => assist_ + "é" ; - Pass Pl P1 => assist_ + "emmo" ; - Pass Pl P2 => assist_ + "este" ; - Pass Pl P3 => assist_ + "erono" ; - Fut Sg P1 => assist_ + "erò" ; - Fut Sg P2 => assist_ + "erai" ; - Fut Sg P3 => assist_ + "erà" ; - Fut Pl P1 => assist_ + "eremo" ; - Fut Pl P2 => assist_ + "erete" ; - Fut Pl P3 => assist_ + "eranno" ; + Indi Imperf Sg P1 => assist_ + "evo" ; --# notpresent + Indi Imperf Sg P2 => assist_ + "evi" ; --# notpresent + Indi Imperf Sg P3 => assist_ + "eva" ; --# notpresent + Indi Imperf Pl P1 => assist_ + "evamo" ; --# notpresent + Indi Imperf Pl P2 => assist_ + "evate" ; --# notpresent + Indi Imperf Pl P3 => assist_ + "evano" ; --# notpresent + Pass Sg P1 => assist_ + "ei" ; --# notpresent + Pass Sg P2 => assist_ + "esti" ; --# notpresent + Pass Sg P3 => assist_ + "é" ; --# notpresent + Pass Pl P1 => assist_ + "emmo" ; --# notpresent + Pass Pl P2 => assist_ + "este" ; --# notpresent + Pass Pl P3 => assist_ + "erono" ; --# notpresent + Fut Sg P1 => assist_ + "erò" ; --# notpresent + Fut Sg P2 => assist_ + "erai" ; --# notpresent + Fut Sg P3 => assist_ + "erà" ; --# notpresent + Fut Pl P1 => assist_ + "eremo" ; --# notpresent + Fut Pl P2 => assist_ + "erete" ; --# notpresent + Fut Pl P3 => assist_ + "eranno" ; --# notpresent Cong Pres Sg P1 => assist_ + "a" ; Cong Pres Sg P2 => assist_ + "a" ; Cong Pres Sg P3 => assist_ + "a" ; Cong Pres Pl P1 => assist_ + "iamo" ; Cong Pres Pl P2 => assist_ + "iate" ; Cong Pres Pl P3 => assist_ + "ano" ; - Cong Imperf Sg P1 => assist_ + "essi" ; - Cong Imperf Sg P2 => assist_ + "essi" ; - Cong Imperf Sg P3 => assist_ + "esse" ; - Cong Imperf Pl P1 => assist_ + "essimo" ; - Cong Imperf Pl P2 => assist_ + "este" ; - Cong Imperf Pl P3 => assist_ + "essero" ; - Cond Sg P1 => assist_ + "erei" ; - Cond Sg P2 => assist_ + "eresti" ; - Cond Sg P3 => assist_ + "erebbe" ; - Cond Pl P1 => assist_ + "eremmo" ; - Cond Pl P2 => assist_ + "ereste" ; - Cond Pl P3 => assist_ + "erebbero" ; + Cong Imperf Sg P1 => assist_ + "essi" ; --# notpresent + Cong Imperf Sg P2 => assist_ + "essi" ; --# notpresent + Cong Imperf Sg P3 => assist_ + "esse" ; --# notpresent + Cong Imperf Pl P1 => assist_ + "essimo" ; --# notpresent + Cong Imperf Pl P2 => assist_ + "este" ; --# notpresent + Cong Imperf Pl P3 => assist_ + "essero" ; --# notpresent + Cond Sg P1 => assist_ + "erei" ; --# notpresent + Cond Sg P2 => assist_ + "eresti" ; --# notpresent + Cond Sg P3 => assist_ + "erebbe" ; --# notpresent + Cond Pl P1 => assist_ + "eremmo" ; --# notpresent + Cond Pl P2 => assist_ + "ereste" ; --# notpresent + Cond Pl P3 => assist_ + "erebbero" ; --# notpresent Imper SgP2 => assist_ + "i" ; Imper PlP1 => assist_ + "iamo" ; Imper PlP2 => assist_ + "ete" ; @@ -1381,42 +1383,42 @@ oper assolvere_25 : Str -> Verbo = \assolvere -> Indi Pres Pl P1 => assol_ + "viamo" ; Indi Pres Pl P2 => assol_ + "vete" ; Indi Pres Pl P3 => assol_ + "vono" ; - Indi Imperf Sg P1 => assol_ + "vevo" ; - Indi Imperf Sg P2 => assol_ + "vevi" ; - Indi Imperf Sg P3 => assol_ + "veva" ; - Indi Imperf Pl P1 => assol_ + "vevamo" ; - Indi Imperf Pl P2 => assol_ + "vevate" ; - Indi Imperf Pl P3 => assol_ + "vevano" ; - Pass Sg P1 => assol_ + "si" ; - Pass Sg P2 => assol_ + "vesti" ; - Pass Sg P3 => assol_ + "se" ; - Pass Pl P1 => assol_ + "vemmo" ; - Pass Pl P2 => assol_ + "veste" ; - Pass Pl P3 => assol_ + "sero" ; - Fut Sg P1 => assol_ + "verò" ; - Fut Sg P2 => assol_ + "verai" ; - Fut Sg P3 => assol_ + "verà" ; - Fut Pl P1 => assol_ + "veremo" ; - Fut Pl P2 => assol_ + "verete" ; - Fut Pl P3 => assol_ + "veranno" ; + Indi Imperf Sg P1 => assol_ + "vevo" ; --# notpresent + Indi Imperf Sg P2 => assol_ + "vevi" ; --# notpresent + Indi Imperf Sg P3 => assol_ + "veva" ; --# notpresent + Indi Imperf Pl P1 => assol_ + "vevamo" ; --# notpresent + Indi Imperf Pl P2 => assol_ + "vevate" ; --# notpresent + Indi Imperf Pl P3 => assol_ + "vevano" ; --# notpresent + Pass Sg P1 => assol_ + "si" ; --# notpresent + Pass Sg P2 => assol_ + "vesti" ; --# notpresent + Pass Sg P3 => assol_ + "se" ; --# notpresent + Pass Pl P1 => assol_ + "vemmo" ; --# notpresent + Pass Pl P2 => assol_ + "veste" ; --# notpresent + Pass Pl P3 => assol_ + "sero" ; --# notpresent + Fut Sg P1 => assol_ + "verò" ; --# notpresent + Fut Sg P2 => assol_ + "verai" ; --# notpresent + Fut Sg P3 => assol_ + "verà" ; --# notpresent + Fut Pl P1 => assol_ + "veremo" ; --# notpresent + Fut Pl P2 => assol_ + "verete" ; --# notpresent + Fut Pl P3 => assol_ + "veranno" ; --# notpresent Cong Pres Sg P1 => assol_ + "va" ; Cong Pres Sg P2 => assol_ + "va" ; Cong Pres Sg P3 => assol_ + "va" ; Cong Pres Pl P1 => assol_ + "viamo" ; Cong Pres Pl P2 => assol_ + "viate" ; Cong Pres Pl P3 => assol_ + "vano" ; - Cong Imperf Sg P1 => assol_ + "vessi" ; - Cong Imperf Sg P2 => assol_ + "vessi" ; - Cong Imperf Sg P3 => assol_ + "vesse" ; - Cong Imperf Pl P1 => assol_ + "vessimo" ; - Cong Imperf Pl P2 => assol_ + "veste" ; - Cong Imperf Pl P3 => assol_ + "vessero" ; - Cond Sg P1 => assol_ + "verei" ; - Cond Sg P2 => assol_ + "veresti" ; - Cond Sg P3 => assol_ + "verebbe" ; - Cond Pl P1 => assol_ + "veremmo" ; - Cond Pl P2 => assol_ + "vereste" ; - Cond Pl P3 => assol_ + "verebbero" ; + Cong Imperf Sg P1 => assol_ + "vessi" ; --# notpresent + Cong Imperf Sg P2 => assol_ + "vessi" ; --# notpresent + Cong Imperf Sg P3 => assol_ + "vesse" ; --# notpresent + Cong Imperf Pl P1 => assol_ + "vessimo" ; --# notpresent + Cong Imperf Pl P2 => assol_ + "veste" ; --# notpresent + Cong Imperf Pl P3 => assol_ + "vessero" ; --# notpresent + Cond Sg P1 => assol_ + "verei" ; --# notpresent + Cond Sg P2 => assol_ + "veresti" ; --# notpresent + Cond Sg P3 => assol_ + "verebbe" ; --# notpresent + Cond Pl P1 => assol_ + "veremmo" ; --# notpresent + Cond Pl P2 => assol_ + "vereste" ; --# notpresent + Cond Pl P3 => assol_ + "verebbero" ; --# notpresent Imper SgP2 => assol_ + "vi" ; Imper PlP1 => assol_ + "viamo" ; Imper PlP2 => assol_ + "vete" ; @@ -1443,42 +1445,42 @@ oper assumere_26 : Str -> Verbo = \assumere -> Indi Pres Pl P1 => assu_ + "miamo" ; Indi Pres Pl P2 => assu_ + "mete" ; Indi Pres Pl P3 => assu_ + "mono" ; - Indi Imperf Sg P1 => assu_ + "mevo" ; - Indi Imperf Sg P2 => assu_ + "mevi" ; - Indi Imperf Sg P3 => assu_ + "meva" ; - Indi Imperf Pl P1 => assu_ + "mevamo" ; - Indi Imperf Pl P2 => assu_ + "mevate" ; - Indi Imperf Pl P3 => assu_ + "mevano" ; - Pass Sg P1 => assu_ + "nsi" ; - Pass Sg P2 => assu_ + "mesti" ; - Pass Sg P3 => assu_ + "nse" ; - Pass Pl P1 => assu_ + "memmo" ; - Pass Pl P2 => assu_ + "meste" ; - Pass Pl P3 => assu_ + "nsero" ; - Fut Sg P1 => assu_ + "merò" ; - Fut Sg P2 => assu_ + "merai" ; - Fut Sg P3 => assu_ + "merà" ; - Fut Pl P1 => assu_ + "meremo" ; - Fut Pl P2 => assu_ + "merete" ; - Fut Pl P3 => assu_ + "meranno" ; + Indi Imperf Sg P1 => assu_ + "mevo" ; --# notpresent + Indi Imperf Sg P2 => assu_ + "mevi" ; --# notpresent + Indi Imperf Sg P3 => assu_ + "meva" ; --# notpresent + Indi Imperf Pl P1 => assu_ + "mevamo" ; --# notpresent + Indi Imperf Pl P2 => assu_ + "mevate" ; --# notpresent + Indi Imperf Pl P3 => assu_ + "mevano" ; --# notpresent + Pass Sg P1 => assu_ + "nsi" ; --# notpresent + Pass Sg P2 => assu_ + "mesti" ; --# notpresent + Pass Sg P3 => assu_ + "nse" ; --# notpresent + Pass Pl P1 => assu_ + "memmo" ; --# notpresent + Pass Pl P2 => assu_ + "meste" ; --# notpresent + Pass Pl P3 => assu_ + "nsero" ; --# notpresent + Fut Sg P1 => assu_ + "merò" ; --# notpresent + Fut Sg P2 => assu_ + "merai" ; --# notpresent + Fut Sg P3 => assu_ + "merà" ; --# notpresent + Fut Pl P1 => assu_ + "meremo" ; --# notpresent + Fut Pl P2 => assu_ + "merete" ; --# notpresent + Fut Pl P3 => assu_ + "meranno" ; --# notpresent Cong Pres Sg P1 => assu_ + "ma" ; Cong Pres Sg P2 => assu_ + "ma" ; Cong Pres Sg P3 => assu_ + "ma" ; Cong Pres Pl P1 => assu_ + "miamo" ; Cong Pres Pl P2 => assu_ + "miate" ; Cong Pres Pl P3 => assu_ + "mano" ; - Cong Imperf Sg P1 => assu_ + "messi" ; - Cong Imperf Sg P2 => assu_ + "messi" ; - Cong Imperf Sg P3 => assu_ + "messe" ; - Cong Imperf Pl P1 => assu_ + "messimo" ; - Cong Imperf Pl P2 => assu_ + "meste" ; - Cong Imperf Pl P3 => assu_ + "messero" ; - Cond Sg P1 => assu_ + "merei" ; - Cond Sg P2 => assu_ + "meresti" ; - Cond Sg P3 => assu_ + "merebbe" ; - Cond Pl P1 => assu_ + "meremmo" ; - Cond Pl P2 => assu_ + "mereste" ; - Cond Pl P3 => assu_ + "merebbero" ; + Cong Imperf Sg P1 => assu_ + "messi" ; --# notpresent + Cong Imperf Sg P2 => assu_ + "messi" ; --# notpresent + Cong Imperf Sg P3 => assu_ + "messe" ; --# notpresent + Cong Imperf Pl P1 => assu_ + "messimo" ; --# notpresent + Cong Imperf Pl P2 => assu_ + "meste" ; --# notpresent + Cong Imperf Pl P3 => assu_ + "messero" ; --# notpresent + Cond Sg P1 => assu_ + "merei" ; --# notpresent + Cond Sg P2 => assu_ + "meresti" ; --# notpresent + Cond Sg P3 => assu_ + "merebbe" ; --# notpresent + Cond Pl P1 => assu_ + "meremmo" ; --# notpresent + Cond Pl P2 => assu_ + "mereste" ; --# notpresent + Cond Pl P3 => assu_ + "merebbero" ; --# notpresent Imper SgP2 => assu_ + "mi" ; Imper PlP1 => assu_ + "miamo" ; Imper PlP2 => assu_ + "mete" ; @@ -1505,42 +1507,42 @@ oper bere_27 : Str -> Verbo = \bere -> Indi Pres Pl P1 => be_ + "viamo" ; Indi Pres Pl P2 => be_ + "vete" ; Indi Pres Pl P3 => be_ + "vono" ; - Indi Imperf Sg P1 => be_ + "vevo" ; - Indi Imperf Sg P2 => be_ + "vevi" ; - Indi Imperf Sg P3 => be_ + "veva" ; - Indi Imperf Pl P1 => be_ + "vevamo" ; - Indi Imperf Pl P2 => be_ + "vevate" ; - Indi Imperf Pl P3 => be_ + "vevano" ; - Pass Sg P1 => be_ + "vvi" ; - Pass Sg P2 => be_ + "vesti" ; - Pass Sg P3 => be_ + "vve" ; - Pass Pl P1 => be_ + "vemmo" ; - Pass Pl P2 => be_ + "veste" ; - Pass Pl P3 => be_ + "vvero" ; - Fut Sg P1 => be_ + "rrò" ; - Fut Sg P2 => be_ + "rrai" ; - Fut Sg P3 => be_ + "rrà" ; - Fut Pl P1 => be_ + "rremo" ; - Fut Pl P2 => be_ + "rrete" ; - Fut Pl P3 => be_ + "rranno" ; + Indi Imperf Sg P1 => be_ + "vevo" ; --# notpresent + Indi Imperf Sg P2 => be_ + "vevi" ; --# notpresent + Indi Imperf Sg P3 => be_ + "veva" ; --# notpresent + Indi Imperf Pl P1 => be_ + "vevamo" ; --# notpresent + Indi Imperf Pl P2 => be_ + "vevate" ; --# notpresent + Indi Imperf Pl P3 => be_ + "vevano" ; --# notpresent + Pass Sg P1 => be_ + "vvi" ; --# notpresent + Pass Sg P2 => be_ + "vesti" ; --# notpresent + Pass Sg P3 => be_ + "vve" ; --# notpresent + Pass Pl P1 => be_ + "vemmo" ; --# notpresent + Pass Pl P2 => be_ + "veste" ; --# notpresent + Pass Pl P3 => be_ + "vvero" ; --# notpresent + Fut Sg P1 => be_ + "rrò" ; --# notpresent + Fut Sg P2 => be_ + "rrai" ; --# notpresent + Fut Sg P3 => be_ + "rrà" ; --# notpresent + Fut Pl P1 => be_ + "rremo" ; --# notpresent + Fut Pl P2 => be_ + "rrete" ; --# notpresent + Fut Pl P3 => be_ + "rranno" ; --# notpresent Cong Pres Sg P1 => be_ + "va" ; Cong Pres Sg P2 => be_ + "va" ; Cong Pres Sg P3 => be_ + "va" ; Cong Pres Pl P1 => be_ + "viamo" ; Cong Pres Pl P2 => be_ + "viate" ; Cong Pres Pl P3 => be_ + "vano" ; - Cong Imperf Sg P1 => be_ + "vessi" ; - Cong Imperf Sg P2 => be_ + "vessi" ; - Cong Imperf Sg P3 => be_ + "vesse" ; - Cong Imperf Pl P1 => be_ + "vessimo" ; - Cong Imperf Pl P2 => be_ + "veste" ; - Cong Imperf Pl P3 => be_ + "vessero" ; - Cond Sg P1 => be_ + "rrei" ; - Cond Sg P2 => be_ + "rresti" ; - Cond Sg P3 => be_ + "rrebbe" ; - Cond Pl P1 => be_ + "rremmo" ; - Cond Pl P2 => be_ + "rreste" ; - Cond Pl P3 => be_ + "rrebbero" ; + Cong Imperf Sg P1 => be_ + "vessi" ; --# notpresent + Cong Imperf Sg P2 => be_ + "vessi" ; --# notpresent + Cong Imperf Sg P3 => be_ + "vesse" ; --# notpresent + Cong Imperf Pl P1 => be_ + "vessimo" ; --# notpresent + Cong Imperf Pl P2 => be_ + "veste" ; --# notpresent + Cong Imperf Pl P3 => be_ + "vessero" ; --# notpresent + Cond Sg P1 => be_ + "rrei" ; --# notpresent + Cond Sg P2 => be_ + "rresti" ; --# notpresent + Cond Sg P3 => be_ + "rrebbe" ; --# notpresent + Cond Pl P1 => be_ + "rremmo" ; --# notpresent + Cond Pl P2 => be_ + "rreste" ; --# notpresent + Cond Pl P3 => be_ + "rrebbero" ; --# notpresent Imper SgP2 => be_ + "vi" ; Imper PlP1 => be_ + "viamo" ; Imper PlP2 => be_ + "vete" ; @@ -1567,42 +1569,42 @@ oper cadere_28 : Str -> Verbo = \caere -> Indi Pres Pl P1 => ca_ + "iamo" ; Indi Pres Pl P2 => ca_ + "ete" ; Indi Pres Pl P3 => ca_ + "ono" ; - Indi Imperf Sg P1 => ca_ + "evo" ; - Indi Imperf Sg P2 => ca_ + "evi" ; - Indi Imperf Sg P3 => ca_ + "eva" ; - Indi Imperf Pl P1 => ca_ + "evamo" ; - Indi Imperf Pl P2 => ca_ + "evate" ; - Indi Imperf Pl P3 => ca_ + "evano" ; - Pass Sg P1 => ca_ + "di" ; - Pass Sg P2 => ca_ + "esti" ; - Pass Sg P3 => ca_ + "de" ; - Pass Pl P1 => ca_ + "emmo" ; - Pass Pl P2 => ca_ + "este" ; - Pass Pl P3 => ca_ + "dero" ; - Fut Sg P1 => ca_ + "rò" ; - Fut Sg P2 => ca_ + "rai" ; - Fut Sg P3 => ca_ + "rà" ; - Fut Pl P1 => ca_ + "remo" ; - Fut Pl P2 => ca_ + "rete" ; - Fut Pl P3 => ca_ + "ranno" ; + Indi Imperf Sg P1 => ca_ + "evo" ; --# notpresent + Indi Imperf Sg P2 => ca_ + "evi" ; --# notpresent + Indi Imperf Sg P3 => ca_ + "eva" ; --# notpresent + Indi Imperf Pl P1 => ca_ + "evamo" ; --# notpresent + Indi Imperf Pl P2 => ca_ + "evate" ; --# notpresent + Indi Imperf Pl P3 => ca_ + "evano" ; --# notpresent + Pass Sg P1 => ca_ + "di" ; --# notpresent + Pass Sg P2 => ca_ + "esti" ; --# notpresent + Pass Sg P3 => ca_ + "de" ; --# notpresent + Pass Pl P1 => ca_ + "emmo" ; --# notpresent + Pass Pl P2 => ca_ + "este" ; --# notpresent + Pass Pl P3 => ca_ + "dero" ; --# notpresent + Fut Sg P1 => ca_ + "rò" ; --# notpresent + Fut Sg P2 => ca_ + "rai" ; --# notpresent + Fut Sg P3 => ca_ + "rà" ; --# notpresent + Fut Pl P1 => ca_ + "remo" ; --# notpresent + Fut Pl P2 => ca_ + "rete" ; --# notpresent + Fut Pl P3 => ca_ + "ranno" ; --# notpresent Cong Pres Sg P1 => ca_ + "a" ; Cong Pres Sg P2 => ca_ + "a" ; Cong Pres Sg P3 => ca_ + "a" ; Cong Pres Pl P1 => ca_ + "iamo" ; Cong Pres Pl P2 => ca_ + "iate" ; Cong Pres Pl P3 => ca_ + "ano" ; - Cong Imperf Sg P1 => ca_ + "essi" ; - Cong Imperf Sg P2 => ca_ + "essi" ; - Cong Imperf Sg P3 => ca_ + "esse" ; - Cong Imperf Pl P1 => ca_ + "essimo" ; - Cong Imperf Pl P2 => ca_ + "este" ; - Cong Imperf Pl P3 => ca_ + "essero" ; - Cond Sg P1 => ca_ + "rei" ; - Cond Sg P2 => ca_ + "resti" ; - Cond Sg P3 => ca_ + "rebbe" ; - Cond Pl P1 => ca_ + "remmo" ; - Cond Pl P2 => ca_ + "reste" ; - Cond Pl P3 => ca_ + "rebbero" ; + Cong Imperf Sg P1 => ca_ + "essi" ; --# notpresent + Cong Imperf Sg P2 => ca_ + "essi" ; --# notpresent + Cong Imperf Sg P3 => ca_ + "esse" ; --# notpresent + Cong Imperf Pl P1 => ca_ + "essimo" ; --# notpresent + Cong Imperf Pl P2 => ca_ + "este" ; --# notpresent + Cong Imperf Pl P3 => ca_ + "essero" ; --# notpresent + Cond Sg P1 => ca_ + "rei" ; --# notpresent + Cond Sg P2 => ca_ + "resti" ; --# notpresent + Cond Sg P3 => ca_ + "rebbe" ; --# notpresent + Cond Pl P1 => ca_ + "remmo" ; --# notpresent + Cond Pl P2 => ca_ + "reste" ; --# notpresent + Cond Pl P3 => ca_ + "rebbero" ; --# notpresent Imper SgP2 => ca_ + "i" ; Imper PlP1 => ca_ + "iamo" ; Imper PlP2 => ca_ + "ete" ; @@ -1629,42 +1631,42 @@ oper chiedere_29 : Str -> Verbo = \chiedere -> Indi Pres Pl P1 => chie_ + "diamo" ; Indi Pres Pl P2 => chie_ + "dete" ; Indi Pres Pl P3 => chie_ + "dono" ; - Indi Imperf Sg P1 => chie_ + "devo" ; - Indi Imperf Sg P2 => chie_ + "devi" ; - Indi Imperf Sg P3 => chie_ + "deva" ; - Indi Imperf Pl P1 => chie_ + "devamo" ; - Indi Imperf Pl P2 => chie_ + "devate" ; - Indi Imperf Pl P3 => chie_ + "devano" ; - Pass Sg P1 => chie_ + "si" ; - Pass Sg P2 => chie_ + "desti" ; - Pass Sg P3 => chie_ + "se" ; - Pass Pl P1 => chie_ + "demmo" ; - Pass Pl P2 => chie_ + "deste" ; - Pass Pl P3 => chie_ + "sero" ; - Fut Sg P1 => chie_ + "derò" ; - Fut Sg P2 => chie_ + "derai" ; - Fut Sg P3 => chie_ + "derà" ; - Fut Pl P1 => chie_ + "deremo" ; - Fut Pl P2 => chie_ + "derete" ; - Fut Pl P3 => chie_ + "deranno" ; + Indi Imperf Sg P1 => chie_ + "devo" ; --# notpresent + Indi Imperf Sg P2 => chie_ + "devi" ; --# notpresent + Indi Imperf Sg P3 => chie_ + "deva" ; --# notpresent + Indi Imperf Pl P1 => chie_ + "devamo" ; --# notpresent + Indi Imperf Pl P2 => chie_ + "devate" ; --# notpresent + Indi Imperf Pl P3 => chie_ + "devano" ; --# notpresent + Pass Sg P1 => chie_ + "si" ; --# notpresent + Pass Sg P2 => chie_ + "desti" ; --# notpresent + Pass Sg P3 => chie_ + "se" ; --# notpresent + Pass Pl P1 => chie_ + "demmo" ; --# notpresent + Pass Pl P2 => chie_ + "deste" ; --# notpresent + Pass Pl P3 => chie_ + "sero" ; --# notpresent + Fut Sg P1 => chie_ + "derò" ; --# notpresent + Fut Sg P2 => chie_ + "derai" ; --# notpresent + Fut Sg P3 => chie_ + "derà" ; --# notpresent + Fut Pl P1 => chie_ + "deremo" ; --# notpresent + Fut Pl P2 => chie_ + "derete" ; --# notpresent + Fut Pl P3 => chie_ + "deranno" ; --# notpresent Cong Pres Sg P1 => chie_ + "da" ; Cong Pres Sg P2 => chie_ + "da" ; Cong Pres Sg P3 => chie_ + "da" ; Cong Pres Pl P1 => chie_ + "diamo" ; Cong Pres Pl P2 => chie_ + "diate" ; Cong Pres Pl P3 => chie_ + "dano" ; - Cong Imperf Sg P1 => chie_ + "dessi" ; - Cong Imperf Sg P2 => chie_ + "dessi" ; - Cong Imperf Sg P3 => chie_ + "desse" ; - Cong Imperf Pl P1 => chie_ + "dessimo" ; - Cong Imperf Pl P2 => chie_ + "deste" ; - Cong Imperf Pl P3 => chie_ + "dessero" ; - Cond Sg P1 => chie_ + "derei" ; - Cond Sg P2 => chie_ + "deresti" ; - Cond Sg P3 => chie_ + "derebbe" ; - Cond Pl P1 => chie_ + "deremmo" ; - Cond Pl P2 => chie_ + "dereste" ; - Cond Pl P3 => chie_ + "derebbero" ; + Cong Imperf Sg P1 => chie_ + "dessi" ; --# notpresent + Cong Imperf Sg P2 => chie_ + "dessi" ; --# notpresent + Cong Imperf Sg P3 => chie_ + "desse" ; --# notpresent + Cong Imperf Pl P1 => chie_ + "dessimo" ; --# notpresent + Cong Imperf Pl P2 => chie_ + "deste" ; --# notpresent + Cong Imperf Pl P3 => chie_ + "dessero" ; --# notpresent + Cond Sg P1 => chie_ + "derei" ; --# notpresent + Cond Sg P2 => chie_ + "deresti" ; --# notpresent + Cond Sg P3 => chie_ + "derebbe" ; --# notpresent + Cond Pl P1 => chie_ + "deremmo" ; --# notpresent + Cond Pl P2 => chie_ + "dereste" ; --# notpresent + Cond Pl P3 => chie_ + "derebbero" ; --# notpresent Imper SgP2 => chie_ + "di" ; Imper PlP1 => chie_ + "diamo" ; Imper PlP2 => chie_ + "dete" ; @@ -1691,42 +1693,42 @@ oper chiudere_30 : Str -> Verbo = \chiudere -> Indi Pres Pl P1 => chiu_ + "diamo" ; Indi Pres Pl P2 => chiu_ + "dete" ; Indi Pres Pl P3 => chiu_ + "dono" ; - Indi Imperf Sg P1 => chiu_ + "devo" ; - Indi Imperf Sg P2 => chiu_ + "devi" ; - Indi Imperf Sg P3 => chiu_ + "deva" ; - Indi Imperf Pl P1 => chiu_ + "devamo" ; - Indi Imperf Pl P2 => chiu_ + "devate" ; - Indi Imperf Pl P3 => chiu_ + "devano" ; - Pass Sg P1 => chiu_ + "si" ; - Pass Sg P2 => chiu_ + "desti" ; - Pass Sg P3 => chiu_ + "se" ; - Pass Pl P1 => chiu_ + "demmo" ; - Pass Pl P2 => chiu_ + "deste" ; - Pass Pl P3 => chiu_ + "sero" ; - Fut Sg P1 => chiu_ + "derò" ; - Fut Sg P2 => chiu_ + "derai" ; - Fut Sg P3 => chiu_ + "derà" ; - Fut Pl P1 => chiu_ + "deremo" ; - Fut Pl P2 => chiu_ + "derete" ; - Fut Pl P3 => chiu_ + "deranno" ; + Indi Imperf Sg P1 => chiu_ + "devo" ; --# notpresent + Indi Imperf Sg P2 => chiu_ + "devi" ; --# notpresent + Indi Imperf Sg P3 => chiu_ + "deva" ; --# notpresent + Indi Imperf Pl P1 => chiu_ + "devamo" ; --# notpresent + Indi Imperf Pl P2 => chiu_ + "devate" ; --# notpresent + Indi Imperf Pl P3 => chiu_ + "devano" ; --# notpresent + Pass Sg P1 => chiu_ + "si" ; --# notpresent + Pass Sg P2 => chiu_ + "desti" ; --# notpresent + Pass Sg P3 => chiu_ + "se" ; --# notpresent + Pass Pl P1 => chiu_ + "demmo" ; --# notpresent + Pass Pl P2 => chiu_ + "deste" ; --# notpresent + Pass Pl P3 => chiu_ + "sero" ; --# notpresent + Fut Sg P1 => chiu_ + "derò" ; --# notpresent + Fut Sg P2 => chiu_ + "derai" ; --# notpresent + Fut Sg P3 => chiu_ + "derà" ; --# notpresent + Fut Pl P1 => chiu_ + "deremo" ; --# notpresent + Fut Pl P2 => chiu_ + "derete" ; --# notpresent + Fut Pl P3 => chiu_ + "deranno" ; --# notpresent Cong Pres Sg P1 => chiu_ + "da" ; Cong Pres Sg P2 => chiu_ + "da" ; Cong Pres Sg P3 => chiu_ + "da" ; Cong Pres Pl P1 => chiu_ + "diamo" ; Cong Pres Pl P2 => chiu_ + "diate" ; Cong Pres Pl P3 => chiu_ + "dano" ; - Cong Imperf Sg P1 => chiu_ + "dessi" ; - Cong Imperf Sg P2 => chiu_ + "dessi" ; - Cong Imperf Sg P3 => chiu_ + "desse" ; - Cong Imperf Pl P1 => chiu_ + "dessimo" ; - Cong Imperf Pl P2 => chiu_ + "deste" ; - Cong Imperf Pl P3 => chiu_ + "dessero" ; - Cond Sg P1 => chiu_ + "derei" ; - Cond Sg P2 => chiu_ + "deresti" ; - Cond Sg P3 => chiu_ + "derebbe" ; - Cond Pl P1 => chiu_ + "deremmo" ; - Cond Pl P2 => chiu_ + "dereste" ; - Cond Pl P3 => chiu_ + "derebbero" ; + Cong Imperf Sg P1 => chiu_ + "dessi" ; --# notpresent + Cong Imperf Sg P2 => chiu_ + "dessi" ; --# notpresent + Cong Imperf Sg P3 => chiu_ + "desse" ; --# notpresent + Cong Imperf Pl P1 => chiu_ + "dessimo" ; --# notpresent + Cong Imperf Pl P2 => chiu_ + "deste" ; --# notpresent + Cong Imperf Pl P3 => chiu_ + "dessero" ; --# notpresent + Cond Sg P1 => chiu_ + "derei" ; --# notpresent + Cond Sg P2 => chiu_ + "deresti" ; --# notpresent + Cond Sg P3 => chiu_ + "derebbe" ; --# notpresent + Cond Pl P1 => chiu_ + "deremmo" ; --# notpresent + Cond Pl P2 => chiu_ + "dereste" ; --# notpresent + Cond Pl P3 => chiu_ + "derebbero" ; --# notpresent Imper SgP2 => chiu_ + "di" ; Imper PlP1 => chiu_ + "diamo" ; Imper PlP2 => chiu_ + "dete" ; @@ -1753,42 +1755,42 @@ oper cingere_31 : Str -> Verbo = \cingere -> Indi Pres Pl P1 => cin_ + "giamo" ; Indi Pres Pl P2 => cin_ + "gete" ; Indi Pres Pl P3 => cin_ + "gono" ; - Indi Imperf Sg P1 => cin_ + "gevo" ; - Indi Imperf Sg P2 => cin_ + "gevi" ; - Indi Imperf Sg P3 => cin_ + "geva" ; - Indi Imperf Pl P1 => cin_ + "gevamo" ; - Indi Imperf Pl P2 => cin_ + "gevate" ; - Indi Imperf Pl P3 => cin_ + "gevano" ; - Pass Sg P1 => cin_ + "si" ; - Pass Sg P2 => cin_ + "gesti" ; - Pass Sg P3 => cin_ + "se" ; - Pass Pl P1 => cin_ + "gemmo" ; - Pass Pl P2 => cin_ + "geste" ; - Pass Pl P3 => cin_ + "sero" ; - Fut Sg P1 => cin_ + "gerò" ; - Fut Sg P2 => cin_ + "gerai" ; - Fut Sg P3 => cin_ + "gerà" ; - Fut Pl P1 => cin_ + "geremo" ; - Fut Pl P2 => cin_ + "gerete" ; - Fut Pl P3 => cin_ + "geranno" ; + Indi Imperf Sg P1 => cin_ + "gevo" ; --# notpresent + Indi Imperf Sg P2 => cin_ + "gevi" ; --# notpresent + Indi Imperf Sg P3 => cin_ + "geva" ; --# notpresent + Indi Imperf Pl P1 => cin_ + "gevamo" ; --# notpresent + Indi Imperf Pl P2 => cin_ + "gevate" ; --# notpresent + Indi Imperf Pl P3 => cin_ + "gevano" ; --# notpresent + Pass Sg P1 => cin_ + "si" ; --# notpresent + Pass Sg P2 => cin_ + "gesti" ; --# notpresent + Pass Sg P3 => cin_ + "se" ; --# notpresent + Pass Pl P1 => cin_ + "gemmo" ; --# notpresent + Pass Pl P2 => cin_ + "geste" ; --# notpresent + Pass Pl P3 => cin_ + "sero" ; --# notpresent + Fut Sg P1 => cin_ + "gerò" ; --# notpresent + Fut Sg P2 => cin_ + "gerai" ; --# notpresent + Fut Sg P3 => cin_ + "gerà" ; --# notpresent + Fut Pl P1 => cin_ + "geremo" ; --# notpresent + Fut Pl P2 => cin_ + "gerete" ; --# notpresent + Fut Pl P3 => cin_ + "geranno" ; --# notpresent Cong Pres Sg P1 => cin_ + "ga" ; Cong Pres Sg P2 => cin_ + "ga" ; Cong Pres Sg P3 => cin_ + "ga" ; Cong Pres Pl P1 => cin_ + "giamo" ; Cong Pres Pl P2 => cin_ + "giate" ; Cong Pres Pl P3 => cin_ + "gano" ; - Cong Imperf Sg P1 => cin_ + "gessi" ; - Cong Imperf Sg P2 => cin_ + "gessi" ; - Cong Imperf Sg P3 => cin_ + "gesse" ; - Cong Imperf Pl P1 => cin_ + "gessimo" ; - Cong Imperf Pl P2 => cin_ + "geste" ; - Cong Imperf Pl P3 => cin_ + "gessero" ; - Cond Sg P1 => cin_ + "gerei" ; - Cond Sg P2 => cin_ + "geresti" ; - Cond Sg P3 => cin_ + "gerebbe" ; - Cond Pl P1 => cin_ + "geremmo" ; - Cond Pl P2 => cin_ + "gereste" ; - Cond Pl P3 => cin_ + "gerebbero" ; + Cong Imperf Sg P1 => cin_ + "gessi" ; --# notpresent + Cong Imperf Sg P2 => cin_ + "gessi" ; --# notpresent + Cong Imperf Sg P3 => cin_ + "gesse" ; --# notpresent + Cong Imperf Pl P1 => cin_ + "gessimo" ; --# notpresent + Cong Imperf Pl P2 => cin_ + "geste" ; --# notpresent + Cong Imperf Pl P3 => cin_ + "gessero" ; --# notpresent + Cond Sg P1 => cin_ + "gerei" ; --# notpresent + Cond Sg P2 => cin_ + "geresti" ; --# notpresent + Cond Sg P3 => cin_ + "gerebbe" ; --# notpresent + Cond Pl P1 => cin_ + "geremmo" ; --# notpresent + Cond Pl P2 => cin_ + "gereste" ; --# notpresent + Cond Pl P3 => cin_ + "gerebbero" ; --# notpresent Imper SgP2 => cin_ + "gi" ; Imper PlP1 => cin_ + "giamo" ; Imper PlP2 => cin_ + "gete" ; @@ -1815,42 +1817,42 @@ oper cogliere_32 : Str -> Verbo = \cogliere -> Indi Pres Pl P1 => co_ + "gliamo" ; Indi Pres Pl P2 => co_ + "gliete" ; Indi Pres Pl P3 => co_ + "lgono" ; - Indi Imperf Sg P1 => co_ + "glievo" ; - Indi Imperf Sg P2 => co_ + "glievi" ; - Indi Imperf Sg P3 => co_ + "glieva" ; - Indi Imperf Pl P1 => co_ + "glievamo" ; - Indi Imperf Pl P2 => co_ + "glievate" ; - Indi Imperf Pl P3 => co_ + "glievano" ; - Pass Sg P1 => co_ + "lsi" ; - Pass Sg P2 => co_ + "gliesti" ; - Pass Sg P3 => co_ + "lse" ; - Pass Pl P1 => co_ + "gliemmo" ; - Pass Pl P2 => co_ + "glieste" ; - Pass Pl P3 => co_ + "lsero" ; - Fut Sg P1 => co_ + "glierò" ; - Fut Sg P2 => co_ + "glierai" ; - Fut Sg P3 => co_ + "glierà" ; - Fut Pl P1 => co_ + "glieremo" ; - Fut Pl P2 => co_ + "glierete" ; - Fut Pl P3 => co_ + "glieranno" ; + Indi Imperf Sg P1 => co_ + "glievo" ; --# notpresent + Indi Imperf Sg P2 => co_ + "glievi" ; --# notpresent + Indi Imperf Sg P3 => co_ + "glieva" ; --# notpresent + Indi Imperf Pl P1 => co_ + "glievamo" ; --# notpresent + Indi Imperf Pl P2 => co_ + "glievate" ; --# notpresent + Indi Imperf Pl P3 => co_ + "glievano" ; --# notpresent + Pass Sg P1 => co_ + "lsi" ; --# notpresent + Pass Sg P2 => co_ + "gliesti" ; --# notpresent + Pass Sg P3 => co_ + "lse" ; --# notpresent + Pass Pl P1 => co_ + "gliemmo" ; --# notpresent + Pass Pl P2 => co_ + "glieste" ; --# notpresent + Pass Pl P3 => co_ + "lsero" ; --# notpresent + Fut Sg P1 => co_ + "glierò" ; --# notpresent + Fut Sg P2 => co_ + "glierai" ; --# notpresent + Fut Sg P3 => co_ + "glierà" ; --# notpresent + Fut Pl P1 => co_ + "glieremo" ; --# notpresent + Fut Pl P2 => co_ + "glierete" ; --# notpresent + Fut Pl P3 => co_ + "glieranno" ; --# notpresent Cong Pres Sg P1 => co_ + "lga" ; Cong Pres Sg P2 => co_ + "lga" ; Cong Pres Sg P3 => co_ + "lga" ; Cong Pres Pl P1 => co_ + "gliamo" ; Cong Pres Pl P2 => co_ + "gliate" ; Cong Pres Pl P3 => co_ + "lgano" ; - Cong Imperf Sg P1 => co_ + "gliessi" ; - Cong Imperf Sg P2 => co_ + "gliessi" ; - Cong Imperf Sg P3 => co_ + "gliesse" ; - Cong Imperf Pl P1 => co_ + "gliessimo" ; - Cong Imperf Pl P2 => co_ + "glieste" ; - Cong Imperf Pl P3 => co_ + "gliessero" ; - Cond Sg P1 => co_ + "glierei" ; - Cond Sg P2 => co_ + "glieresti" ; - Cond Sg P3 => co_ + "glierebbe" ; - Cond Pl P1 => co_ + "glieremmo" ; - Cond Pl P2 => co_ + "gliereste" ; - Cond Pl P3 => co_ + "glierebbero" ; + Cong Imperf Sg P1 => co_ + "gliessi" ; --# notpresent + Cong Imperf Sg P2 => co_ + "gliessi" ; --# notpresent + Cong Imperf Sg P3 => co_ + "gliesse" ; --# notpresent + Cong Imperf Pl P1 => co_ + "gliessimo" ; --# notpresent + Cong Imperf Pl P2 => co_ + "glieste" ; --# notpresent + Cong Imperf Pl P3 => co_ + "gliessero" ; --# notpresent + Cond Sg P1 => co_ + "glierei" ; --# notpresent + Cond Sg P2 => co_ + "glieresti" ; --# notpresent + Cond Sg P3 => co_ + "glierebbe" ; --# notpresent + Cond Pl P1 => co_ + "glieremmo" ; --# notpresent + Cond Pl P2 => co_ + "gliereste" ; --# notpresent + Cond Pl P3 => co_ + "glierebbero" ; --# notpresent Imper SgP2 => co_ + "gli" ; Imper PlP1 => co_ + "gliamo" ; Imper PlP2 => co_ + "gliete" ; @@ -1877,42 +1879,42 @@ oper compiere_33 : Str -> Verbo = \compiere -> Indi Pres Pl P1 => compi_ + "amo" ; Indi Pres Pl P2 => compi_ + "te" ; Indi Pres Pl P3 => compi_ + "ono" ; - Indi Imperf Sg P1 => compi_ + "evo" ; - Indi Imperf Sg P2 => compi_ + "evi" ; - Indi Imperf Sg P3 => compi_ + "eva" ; - Indi Imperf Pl P1 => compi_ + "evamo" ; - Indi Imperf Pl P2 => compi_ + "evate" ; - Indi Imperf Pl P3 => compi_ + "evano" ; - Pass Sg P1 => compi_ + "ei" ; - Pass Sg P2 => compi_ + "esti" ; - Pass Sg P3 => compi_ + "é" ; - Pass Pl P1 => compi_ + "emmo" ; - Pass Pl P2 => compi_ + "este" ; - Pass Pl P3 => compi_ + "erono" ; - Fut Sg P1 => compi_ + "rò" ; - Fut Sg P2 => compi_ + "rai" ; - Fut Sg P3 => compi_ + "rà" ; - Fut Pl P1 => compi_ + "remo" ; - Fut Pl P2 => compi_ + "rete" ; - Fut Pl P3 => compi_ + "ranno" ; + Indi Imperf Sg P1 => compi_ + "evo" ; --# notpresent + Indi Imperf Sg P2 => compi_ + "evi" ; --# notpresent + Indi Imperf Sg P3 => compi_ + "eva" ; --# notpresent + Indi Imperf Pl P1 => compi_ + "evamo" ; --# notpresent + Indi Imperf Pl P2 => compi_ + "evate" ; --# notpresent + Indi Imperf Pl P3 => compi_ + "evano" ; --# notpresent + Pass Sg P1 => compi_ + "ei" ; --# notpresent + Pass Sg P2 => compi_ + "esti" ; --# notpresent + Pass Sg P3 => compi_ + "é" ; --# notpresent + Pass Pl P1 => compi_ + "emmo" ; --# notpresent + Pass Pl P2 => compi_ + "este" ; --# notpresent + Pass Pl P3 => compi_ + "erono" ; --# notpresent + Fut Sg P1 => compi_ + "rò" ; --# notpresent + Fut Sg P2 => compi_ + "rai" ; --# notpresent + Fut Sg P3 => compi_ + "rà" ; --# notpresent + Fut Pl P1 => compi_ + "remo" ; --# notpresent + Fut Pl P2 => compi_ + "rete" ; --# notpresent + Fut Pl P3 => compi_ + "ranno" ; --# notpresent Cong Pres Sg P1 => compi_ + "a" ; Cong Pres Sg P2 => compi_ + "a" ; Cong Pres Sg P3 => compi_ + "a" ; Cong Pres Pl P1 => compi_ + "amo" ; Cong Pres Pl P2 => compi_ + "ate" ; Cong Pres Pl P3 => compi_ + "ano" ; - Cong Imperf Sg P1 => compi_ + "essi" ; - Cong Imperf Sg P2 => compi_ + "essi" ; - Cong Imperf Sg P3 => compi_ + "esse" ; - Cong Imperf Pl P1 => compi_ + "essimo" ; - Cong Imperf Pl P2 => compi_ + "este" ; - Cong Imperf Pl P3 => compi_ + "essero" ; - Cond Sg P1 => compi_ + "rei" ; - Cond Sg P2 => compi_ + "resti" ; - Cond Sg P3 => compi_ + "rebbe" ; - Cond Pl P1 => compi_ + "remmo" ; - Cond Pl P2 => compi_ + "reste" ; - Cond Pl P3 => compi_ + "rebbero" ; + Cong Imperf Sg P1 => compi_ + "essi" ; --# notpresent + Cong Imperf Sg P2 => compi_ + "essi" ; --# notpresent + Cong Imperf Sg P3 => compi_ + "esse" ; --# notpresent + Cong Imperf Pl P1 => compi_ + "essimo" ; --# notpresent + Cong Imperf Pl P2 => compi_ + "este" ; --# notpresent + Cong Imperf Pl P3 => compi_ + "essero" ; --# notpresent + Cond Sg P1 => compi_ + "rei" ; --# notpresent + Cond Sg P2 => compi_ + "resti" ; --# notpresent + Cond Sg P3 => compi_ + "rebbe" ; --# notpresent + Cond Pl P1 => compi_ + "remmo" ; --# notpresent + Cond Pl P2 => compi_ + "reste" ; --# notpresent + Cond Pl P3 => compi_ + "rebbero" ; --# notpresent Imper SgP2 => compi_ + "" ; Imper PlP1 => compi_ + "amo" ; Imper PlP2 => compi_ + "ete" ; @@ -1939,42 +1941,42 @@ oper compire_33b : Str -> Verbo = \cire -> Indi Pres Pl P1 => c_ + "iamo" ; Indi Pres Pl P2 => c_ + "ite" ; Indi Pres Pl P3 => c_ + "iscono" ; - Indi Imperf Sg P1 => c_ + "ivo" ; - Indi Imperf Sg P2 => c_ + "ivi" ; - Indi Imperf Sg P3 => c_ + "iva" ; - Indi Imperf Pl P1 => c_ + "ivamo" ; - Indi Imperf Pl P2 => c_ + "ivate" ; - Indi Imperf Pl P3 => c_ + "ivano" ; - Pass Sg P1 => c_ + "ii" ; - Pass Sg P2 => c_ + "isti" ; - Pass Sg P3 => c_ + "ì" ; - Pass Pl P1 => c_ + "immo" ; - Pass Pl P2 => c_ + "iste" ; - Pass Pl P3 => c_ + "irono" ; - Fut Sg P1 => c_ + "irò" ; - Fut Sg P2 => c_ + "irai" ; - Fut Sg P3 => c_ + "irà" ; - Fut Pl P1 => c_ + "iremo" ; - Fut Pl P2 => c_ + "irete" ; - Fut Pl P3 => c_ + "iranno" ; + Indi Imperf Sg P1 => c_ + "ivo" ; --# notpresent + Indi Imperf Sg P2 => c_ + "ivi" ; --# notpresent + Indi Imperf Sg P3 => c_ + "iva" ; --# notpresent + Indi Imperf Pl P1 => c_ + "ivamo" ; --# notpresent + Indi Imperf Pl P2 => c_ + "ivate" ; --# notpresent + Indi Imperf Pl P3 => c_ + "ivano" ; --# notpresent + Pass Sg P1 => c_ + "ii" ; --# notpresent + Pass Sg P2 => c_ + "isti" ; --# notpresent + Pass Sg P3 => c_ + "ì" ; --# notpresent + Pass Pl P1 => c_ + "immo" ; --# notpresent + Pass Pl P2 => c_ + "iste" ; --# notpresent + Pass Pl P3 => c_ + "irono" ; --# notpresent + Fut Sg P1 => c_ + "irò" ; --# notpresent + Fut Sg P2 => c_ + "irai" ; --# notpresent + Fut Sg P3 => c_ + "irà" ; --# notpresent + Fut Pl P1 => c_ + "iremo" ; --# notpresent + Fut Pl P2 => c_ + "irete" ; --# notpresent + Fut Pl P3 => c_ + "iranno" ; --# notpresent Cong Pres Sg P1 => c_ + "isca" ; Cong Pres Sg P2 => c_ + "isca" ; Cong Pres Sg P3 => c_ + "isca" ; Cong Pres Pl P1 => c_ + "iamo" ; Cong Pres Pl P2 => c_ + "iate" ; Cong Pres Pl P3 => c_ + "iscano" ; - Cong Imperf Sg P1 => c_ + "issi" ; - Cong Imperf Sg P2 => c_ + "issi" ; - Cong Imperf Sg P3 => c_ + "isse" ; - Cong Imperf Pl P1 => c_ + "issimo" ; - Cong Imperf Pl P2 => c_ + "iste" ; - Cong Imperf Pl P3 => c_ + "issero" ; - Cond Sg P1 => c_ + "irei" ; - Cond Sg P2 => c_ + "iresti" ; - Cond Sg P3 => c_ + "irebbe" ; - Cond Pl P1 => c_ + "iremmo" ; - Cond Pl P2 => c_ + "ireste" ; - Cond Pl P3 => c_ + "irebbero" ; + Cong Imperf Sg P1 => c_ + "issi" ; --# notpresent + Cong Imperf Sg P2 => c_ + "issi" ; --# notpresent + Cong Imperf Sg P3 => c_ + "isse" ; --# notpresent + Cong Imperf Pl P1 => c_ + "issimo" ; --# notpresent + Cong Imperf Pl P2 => c_ + "iste" ; --# notpresent + Cong Imperf Pl P3 => c_ + "issero" ; --# notpresent + Cond Sg P1 => c_ + "irei" ; --# notpresent + Cond Sg P2 => c_ + "iresti" ; --# notpresent + Cond Sg P3 => c_ + "irebbe" ; --# notpresent + Cond Pl P1 => c_ + "iremmo" ; --# notpresent + Cond Pl P2 => c_ + "ireste" ; --# notpresent + Cond Pl P3 => c_ + "irebbero" ; --# notpresent Imper SgP2 => c_ + "isci" ; Imper PlP1 => c_ + "iamo" ; Imper PlP2 => c_ + "ite" ; @@ -2001,42 +2003,42 @@ oper comprimere_34 : Str -> Verbo = \comprimere -> Indi Pres Pl P1 => compr_ + "imiamo" ; Indi Pres Pl P2 => compr_ + "imete" ; Indi Pres Pl P3 => compr_ + "imono" ; - Indi Imperf Sg P1 => compr_ + "imevo" ; - Indi Imperf Sg P2 => compr_ + "imevi" ; - Indi Imperf Sg P3 => compr_ + "imeva" ; - Indi Imperf Pl P1 => compr_ + "imevamo" ; - Indi Imperf Pl P2 => compr_ + "imevate" ; - Indi Imperf Pl P3 => compr_ + "imevano" ; - Pass Sg P1 => compr_ + "essi" ; - Pass Sg P2 => compr_ + "imesti" ; - Pass Sg P3 => compr_ + "esse" ; - Pass Pl P1 => compr_ + "imemmo" ; - Pass Pl P2 => compr_ + "imeste" ; - Pass Pl P3 => compr_ + "essero" ; - Fut Sg P1 => compr_ + "imerò" ; - Fut Sg P2 => compr_ + "imerai" ; - Fut Sg P3 => compr_ + "imerà" ; - Fut Pl P1 => compr_ + "imeremo" ; - Fut Pl P2 => compr_ + "imerete" ; - Fut Pl P3 => compr_ + "imeranno" ; + Indi Imperf Sg P1 => compr_ + "imevo" ; --# notpresent + Indi Imperf Sg P2 => compr_ + "imevi" ; --# notpresent + Indi Imperf Sg P3 => compr_ + "imeva" ; --# notpresent + Indi Imperf Pl P1 => compr_ + "imevamo" ; --# notpresent + Indi Imperf Pl P2 => compr_ + "imevate" ; --# notpresent + Indi Imperf Pl P3 => compr_ + "imevano" ; --# notpresent + Pass Sg P1 => compr_ + "essi" ; --# notpresent + Pass Sg P2 => compr_ + "imesti" ; --# notpresent + Pass Sg P3 => compr_ + "esse" ; --# notpresent + Pass Pl P1 => compr_ + "imemmo" ; --# notpresent + Pass Pl P2 => compr_ + "imeste" ; --# notpresent + Pass Pl P3 => compr_ + "essero" ; --# notpresent + Fut Sg P1 => compr_ + "imerò" ; --# notpresent + Fut Sg P2 => compr_ + "imerai" ; --# notpresent + Fut Sg P3 => compr_ + "imerà" ; --# notpresent + Fut Pl P1 => compr_ + "imeremo" ; --# notpresent + Fut Pl P2 => compr_ + "imerete" ; --# notpresent + Fut Pl P3 => compr_ + "imeranno" ; --# notpresent Cong Pres Sg P1 => compr_ + "ima" ; Cong Pres Sg P2 => compr_ + "ima" ; Cong Pres Sg P3 => compr_ + "ima" ; Cong Pres Pl P1 => compr_ + "imiamo" ; Cong Pres Pl P2 => compr_ + "imiate" ; Cong Pres Pl P3 => compr_ + "imano" ; - Cong Imperf Sg P1 => compr_ + "imessi" ; - Cong Imperf Sg P2 => compr_ + "imessi" ; - Cong Imperf Sg P3 => compr_ + "imesse" ; - Cong Imperf Pl P1 => compr_ + "imessimo" ; - Cong Imperf Pl P2 => compr_ + "imeste" ; - Cong Imperf Pl P3 => compr_ + "imessero" ; - Cond Sg P1 => compr_ + "imerei" ; - Cond Sg P2 => compr_ + "imeresti" ; - Cond Sg P3 => compr_ + "imerebbe" ; - Cond Pl P1 => compr_ + "imeremmo" ; - Cond Pl P2 => compr_ + "imereste" ; - Cond Pl P3 => compr_ + "imerebbero" ; + Cong Imperf Sg P1 => compr_ + "imessi" ; --# notpresent + Cong Imperf Sg P2 => compr_ + "imessi" ; --# notpresent + Cong Imperf Sg P3 => compr_ + "imesse" ; --# notpresent + Cong Imperf Pl P1 => compr_ + "imessimo" ; --# notpresent + Cong Imperf Pl P2 => compr_ + "imeste" ; --# notpresent + Cong Imperf Pl P3 => compr_ + "imessero" ; --# notpresent + Cond Sg P1 => compr_ + "imerei" ; --# notpresent + Cond Sg P2 => compr_ + "imeresti" ; --# notpresent + Cond Sg P3 => compr_ + "imerebbe" ; --# notpresent + Cond Pl P1 => compr_ + "imeremmo" ; --# notpresent + Cond Pl P2 => compr_ + "imereste" ; --# notpresent + Cond Pl P3 => compr_ + "imerebbero" ; --# notpresent Imper SgP2 => compr_ + "imi" ; Imper PlP1 => compr_ + "imiamo" ; Imper PlP2 => compr_ + "imete" ; @@ -2063,42 +2065,42 @@ oper concedere_35 : Str -> Verbo = \concedere -> Indi Pres Pl P1 => conce_ + "diamo" ; Indi Pres Pl P2 => conce_ + "dete" ; Indi Pres Pl P3 => conce_ + "dono" ; - Indi Imperf Sg P1 => conce_ + "devo" ; - Indi Imperf Sg P2 => conce_ + "devi" ; - Indi Imperf Sg P3 => conce_ + "deva" ; - Indi Imperf Pl P1 => conce_ + "devamo" ; - Indi Imperf Pl P2 => conce_ + "devate" ; - Indi Imperf Pl P3 => conce_ + "devano" ; - Pass Sg P1 => conce_ + "ssi" ; - Pass Sg P2 => conce_ + "desti" ; - Pass Sg P3 => conce_ + "sse" ; - Pass Pl P1 => conce_ + "demmo" ; - Pass Pl P2 => conce_ + "deste" ; - Pass Pl P3 => conce_ + "ssero" ; - Fut Sg P1 => conce_ + "derò" ; - Fut Sg P2 => conce_ + "derai" ; - Fut Sg P3 => conce_ + "derà" ; - Fut Pl P1 => conce_ + "deremo" ; - Fut Pl P2 => conce_ + "derete" ; - Fut Pl P3 => conce_ + "deranno" ; + Indi Imperf Sg P1 => conce_ + "devo" ; --# notpresent + Indi Imperf Sg P2 => conce_ + "devi" ; --# notpresent + Indi Imperf Sg P3 => conce_ + "deva" ; --# notpresent + Indi Imperf Pl P1 => conce_ + "devamo" ; --# notpresent + Indi Imperf Pl P2 => conce_ + "devate" ; --# notpresent + Indi Imperf Pl P3 => conce_ + "devano" ; --# notpresent + Pass Sg P1 => conce_ + "ssi" ; --# notpresent + Pass Sg P2 => conce_ + "desti" ; --# notpresent + Pass Sg P3 => conce_ + "sse" ; --# notpresent + Pass Pl P1 => conce_ + "demmo" ; --# notpresent + Pass Pl P2 => conce_ + "deste" ; --# notpresent + Pass Pl P3 => conce_ + "ssero" ; --# notpresent + Fut Sg P1 => conce_ + "derò" ; --# notpresent + Fut Sg P2 => conce_ + "derai" ; --# notpresent + Fut Sg P3 => conce_ + "derà" ; --# notpresent + Fut Pl P1 => conce_ + "deremo" ; --# notpresent + Fut Pl P2 => conce_ + "derete" ; --# notpresent + Fut Pl P3 => conce_ + "deranno" ; --# notpresent Cong Pres Sg P1 => conce_ + "da" ; Cong Pres Sg P2 => conce_ + "da" ; Cong Pres Sg P3 => conce_ + "da" ; Cong Pres Pl P1 => conce_ + "diamo" ; Cong Pres Pl P2 => conce_ + "diate" ; Cong Pres Pl P3 => conce_ + "dano" ; - Cong Imperf Sg P1 => conce_ + "dessi" ; - Cong Imperf Sg P2 => conce_ + "dessi" ; - Cong Imperf Sg P3 => conce_ + "desse" ; - Cong Imperf Pl P1 => conce_ + "dessimo" ; - Cong Imperf Pl P2 => conce_ + "deste" ; - Cong Imperf Pl P3 => conce_ + "dessero" ; - Cond Sg P1 => conce_ + "derei" ; - Cond Sg P2 => conce_ + "deresti" ; - Cond Sg P3 => conce_ + "derebbe" ; - Cond Pl P1 => conce_ + "deremmo" ; - Cond Pl P2 => conce_ + "dereste" ; - Cond Pl P3 => conce_ + "derebbero" ; + Cong Imperf Sg P1 => conce_ + "dessi" ; --# notpresent + Cong Imperf Sg P2 => conce_ + "dessi" ; --# notpresent + Cong Imperf Sg P3 => conce_ + "desse" ; --# notpresent + Cong Imperf Pl P1 => conce_ + "dessimo" ; --# notpresent + Cong Imperf Pl P2 => conce_ + "deste" ; --# notpresent + Cong Imperf Pl P3 => conce_ + "dessero" ; --# notpresent + Cond Sg P1 => conce_ + "derei" ; --# notpresent + Cond Sg P2 => conce_ + "deresti" ; --# notpresent + Cond Sg P3 => conce_ + "derebbe" ; --# notpresent + Cond Pl P1 => conce_ + "deremmo" ; --# notpresent + Cond Pl P2 => conce_ + "dereste" ; --# notpresent + Cond Pl P3 => conce_ + "derebbero" ; --# notpresent Imper SgP2 => conce_ + "di" ; Imper PlP1 => conce_ + "diamo" ; Imper PlP2 => conce_ + "dete" ; @@ -2125,42 +2127,42 @@ oper condurre_36 : Str -> Verbo = \condurre -> Indi Pres Pl P1 => cond_ + "uciamo" ; Indi Pres Pl P2 => cond_ + "ucete" ; Indi Pres Pl P3 => cond_ + "ucono" ; - Indi Imperf Sg P1 => cond_ + "ucevo" ; - Indi Imperf Sg P2 => cond_ + "ucevi" ; - Indi Imperf Sg P3 => cond_ + "uceva" ; - Indi Imperf Pl P1 => cond_ + "ucevamo" ; - Indi Imperf Pl P2 => cond_ + "ucevate" ; - Indi Imperf Pl P3 => cond_ + "ucevano" ; - Pass Sg P1 => cond_ + "ussi" ; - Pass Sg P2 => cond_ + "ucesti" ; - Pass Sg P3 => cond_ + "usse" ; - Pass Pl P1 => cond_ + "ucemmo" ; - Pass Pl P2 => cond_ + "uceste" ; - Pass Pl P3 => cond_ + "ussero" ; - Fut Sg P1 => cond_ + "urrò" ; - Fut Sg P2 => cond_ + "urrai" ; - Fut Sg P3 => cond_ + "urrà" ; - Fut Pl P1 => cond_ + "urremo" ; - Fut Pl P2 => cond_ + "urrete" ; - Fut Pl P3 => cond_ + "urranno" ; + Indi Imperf Sg P1 => cond_ + "ucevo" ; --# notpresent + Indi Imperf Sg P2 => cond_ + "ucevi" ; --# notpresent + Indi Imperf Sg P3 => cond_ + "uceva" ; --# notpresent + Indi Imperf Pl P1 => cond_ + "ucevamo" ; --# notpresent + Indi Imperf Pl P2 => cond_ + "ucevate" ; --# notpresent + Indi Imperf Pl P3 => cond_ + "ucevano" ; --# notpresent + Pass Sg P1 => cond_ + "ussi" ; --# notpresent + Pass Sg P2 => cond_ + "ucesti" ; --# notpresent + Pass Sg P3 => cond_ + "usse" ; --# notpresent + Pass Pl P1 => cond_ + "ucemmo" ; --# notpresent + Pass Pl P2 => cond_ + "uceste" ; --# notpresent + Pass Pl P3 => cond_ + "ussero" ; --# notpresent + Fut Sg P1 => cond_ + "urrò" ; --# notpresent + Fut Sg P2 => cond_ + "urrai" ; --# notpresent + Fut Sg P3 => cond_ + "urrà" ; --# notpresent + Fut Pl P1 => cond_ + "urremo" ; --# notpresent + Fut Pl P2 => cond_ + "urrete" ; --# notpresent + Fut Pl P3 => cond_ + "urranno" ; --# notpresent Cong Pres Sg P1 => cond_ + "uca" ; Cong Pres Sg P2 => cond_ + "uca" ; Cong Pres Sg P3 => cond_ + "uca" ; Cong Pres Pl P1 => cond_ + "uciamo" ; Cong Pres Pl P2 => cond_ + "uciate" ; Cong Pres Pl P3 => cond_ + "ucano" ; - Cong Imperf Sg P1 => cond_ + "ucessi" ; - Cong Imperf Sg P2 => cond_ + "ucessi" ; - Cong Imperf Sg P3 => cond_ + "ucesse" ; - Cong Imperf Pl P1 => cond_ + "ucessimo" ; - Cong Imperf Pl P2 => cond_ + "uceste" ; - Cong Imperf Pl P3 => cond_ + "ucessero" ; - Cond Sg P1 => cond_ + "urrei" ; - Cond Sg P2 => cond_ + "urresti" ; - Cond Sg P3 => cond_ + "urrebbe" ; - Cond Pl P1 => cond_ + "urremmo" ; - Cond Pl P2 => cond_ + "urreste" ; - Cond Pl P3 => cond_ + "urrebbero" ; + Cong Imperf Sg P1 => cond_ + "ucessi" ; --# notpresent + Cong Imperf Sg P2 => cond_ + "ucessi" ; --# notpresent + Cong Imperf Sg P3 => cond_ + "ucesse" ; --# notpresent + Cong Imperf Pl P1 => cond_ + "ucessimo" ; --# notpresent + Cong Imperf Pl P2 => cond_ + "uceste" ; --# notpresent + Cong Imperf Pl P3 => cond_ + "ucessero" ; --# notpresent + Cond Sg P1 => cond_ + "urrei" ; --# notpresent + Cond Sg P2 => cond_ + "urresti" ; --# notpresent + Cond Sg P3 => cond_ + "urrebbe" ; --# notpresent + Cond Pl P1 => cond_ + "urremmo" ; --# notpresent + Cond Pl P2 => cond_ + "urreste" ; --# notpresent + Cond Pl P3 => cond_ + "urrebbero" ; --# notpresent Imper SgP2 => cond_ + "uci" ; Imper PlP1 => cond_ + "uciamo" ; Imper PlP2 => cond_ + "ucete" ; @@ -2187,42 +2189,42 @@ oper conoscere_37 : Str -> Verbo = \conoscere -> Indi Pres Pl P1 => cono_ + "sciamo" ; Indi Pres Pl P2 => cono_ + "scete" ; Indi Pres Pl P3 => cono_ + "scono" ; - Indi Imperf Sg P1 => cono_ + "scevo" ; - Indi Imperf Sg P2 => cono_ + "scevi" ; - Indi Imperf Sg P3 => cono_ + "sceva" ; - Indi Imperf Pl P1 => cono_ + "scevamo" ; - Indi Imperf Pl P2 => cono_ + "scevate" ; - Indi Imperf Pl P3 => cono_ + "scevano" ; - Pass Sg P1 => cono_ + "bbi" ; - Pass Sg P2 => cono_ + "scesti" ; - Pass Sg P3 => cono_ + "bbe" ; - Pass Pl P1 => cono_ + "scemmo" ; - Pass Pl P2 => cono_ + "sceste" ; - Pass Pl P3 => cono_ + "bbero" ; - Fut Sg P1 => cono_ + "scerò" ; - Fut Sg P2 => cono_ + "scerai" ; - Fut Sg P3 => cono_ + "scerà" ; - Fut Pl P1 => cono_ + "sceremo" ; - Fut Pl P2 => cono_ + "scerete" ; - Fut Pl P3 => cono_ + "sceranno" ; + Indi Imperf Sg P1 => cono_ + "scevo" ; --# notpresent + Indi Imperf Sg P2 => cono_ + "scevi" ; --# notpresent + Indi Imperf Sg P3 => cono_ + "sceva" ; --# notpresent + Indi Imperf Pl P1 => cono_ + "scevamo" ; --# notpresent + Indi Imperf Pl P2 => cono_ + "scevate" ; --# notpresent + Indi Imperf Pl P3 => cono_ + "scevano" ; --# notpresent + Pass Sg P1 => cono_ + "bbi" ; --# notpresent + Pass Sg P2 => cono_ + "scesti" ; --# notpresent + Pass Sg P3 => cono_ + "bbe" ; --# notpresent + Pass Pl P1 => cono_ + "scemmo" ; --# notpresent + Pass Pl P2 => cono_ + "sceste" ; --# notpresent + Pass Pl P3 => cono_ + "bbero" ; --# notpresent + Fut Sg P1 => cono_ + "scerò" ; --# notpresent + Fut Sg P2 => cono_ + "scerai" ; --# notpresent + Fut Sg P3 => cono_ + "scerà" ; --# notpresent + Fut Pl P1 => cono_ + "sceremo" ; --# notpresent + Fut Pl P2 => cono_ + "scerete" ; --# notpresent + Fut Pl P3 => cono_ + "sceranno" ; --# notpresent Cong Pres Sg P1 => cono_ + "sca" ; Cong Pres Sg P2 => cono_ + "sca" ; Cong Pres Sg P3 => cono_ + "sca" ; Cong Pres Pl P1 => cono_ + "sciamo" ; Cong Pres Pl P2 => cono_ + "sciate" ; Cong Pres Pl P3 => cono_ + "scano" ; - Cong Imperf Sg P1 => cono_ + "scessi" ; - Cong Imperf Sg P2 => cono_ + "scessi" ; - Cong Imperf Sg P3 => cono_ + "scesse" ; - Cong Imperf Pl P1 => cono_ + "scessimo" ; - Cong Imperf Pl P2 => cono_ + "sceste" ; - Cong Imperf Pl P3 => cono_ + "scessero" ; - Cond Sg P1 => cono_ + "scerei" ; - Cond Sg P2 => cono_ + "sceresti" ; - Cond Sg P3 => cono_ + "scerebbe" ; - Cond Pl P1 => cono_ + "sceremmo" ; - Cond Pl P2 => cono_ + "scereste" ; - Cond Pl P3 => cono_ + "scerebbero" ; + Cong Imperf Sg P1 => cono_ + "scessi" ; --# notpresent + Cong Imperf Sg P2 => cono_ + "scessi" ; --# notpresent + Cong Imperf Sg P3 => cono_ + "scesse" ; --# notpresent + Cong Imperf Pl P1 => cono_ + "scessimo" ; --# notpresent + Cong Imperf Pl P2 => cono_ + "sceste" ; --# notpresent + Cong Imperf Pl P3 => cono_ + "scessero" ; --# notpresent + Cond Sg P1 => cono_ + "scerei" ; --# notpresent + Cond Sg P2 => cono_ + "sceresti" ; --# notpresent + Cond Sg P3 => cono_ + "scerebbe" ; --# notpresent + Cond Pl P1 => cono_ + "sceremmo" ; --# notpresent + Cond Pl P2 => cono_ + "scereste" ; --# notpresent + Cond Pl P3 => cono_ + "scerebbero" ; --# notpresent Imper SgP2 => cono_ + "sci" ; Imper PlP1 => cono_ + "sciamo" ; Imper PlP2 => cono_ + "scete" ; @@ -2249,42 +2251,42 @@ oper correre_38 : Str -> Verbo = \correre -> Indi Pres Pl P1 => cor_ + "riamo" ; Indi Pres Pl P2 => cor_ + "rete" ; Indi Pres Pl P3 => cor_ + "rono" ; - Indi Imperf Sg P1 => cor_ + "revo" ; - Indi Imperf Sg P2 => cor_ + "revi" ; - Indi Imperf Sg P3 => cor_ + "reva" ; - Indi Imperf Pl P1 => cor_ + "revamo" ; - Indi Imperf Pl P2 => cor_ + "revate" ; - Indi Imperf Pl P3 => cor_ + "revano" ; - Pass Sg P1 => cor_ + "si" ; - Pass Sg P2 => cor_ + "resti" ; - Pass Sg P3 => cor_ + "se" ; - Pass Pl P1 => cor_ + "remmo" ; - Pass Pl P2 => cor_ + "reste" ; - Pass Pl P3 => cor_ + "sero" ; - Fut Sg P1 => cor_ + "rerò" ; - Fut Sg P2 => cor_ + "rerai" ; - Fut Sg P3 => cor_ + "rerà" ; - Fut Pl P1 => cor_ + "reremo" ; - Fut Pl P2 => cor_ + "rerete" ; - Fut Pl P3 => cor_ + "reranno" ; + Indi Imperf Sg P1 => cor_ + "revo" ; --# notpresent + Indi Imperf Sg P2 => cor_ + "revi" ; --# notpresent + Indi Imperf Sg P3 => cor_ + "reva" ; --# notpresent + Indi Imperf Pl P1 => cor_ + "revamo" ; --# notpresent + Indi Imperf Pl P2 => cor_ + "revate" ; --# notpresent + Indi Imperf Pl P3 => cor_ + "revano" ; --# notpresent + Pass Sg P1 => cor_ + "si" ; --# notpresent + Pass Sg P2 => cor_ + "resti" ; --# notpresent + Pass Sg P3 => cor_ + "se" ; --# notpresent + Pass Pl P1 => cor_ + "remmo" ; --# notpresent + Pass Pl P2 => cor_ + "reste" ; --# notpresent + Pass Pl P3 => cor_ + "sero" ; --# notpresent + Fut Sg P1 => cor_ + "rerò" ; --# notpresent + Fut Sg P2 => cor_ + "rerai" ; --# notpresent + Fut Sg P3 => cor_ + "rerà" ; --# notpresent + Fut Pl P1 => cor_ + "reremo" ; --# notpresent + Fut Pl P2 => cor_ + "rerete" ; --# notpresent + Fut Pl P3 => cor_ + "reranno" ; --# notpresent Cong Pres Sg P1 => cor_ + "ra" ; Cong Pres Sg P2 => cor_ + "ra" ; Cong Pres Sg P3 => cor_ + "ra" ; Cong Pres Pl P1 => cor_ + "riamo" ; Cong Pres Pl P2 => cor_ + "riate" ; Cong Pres Pl P3 => cor_ + "rano" ; - Cong Imperf Sg P1 => cor_ + "ressi" ; - Cong Imperf Sg P2 => cor_ + "ressi" ; - Cong Imperf Sg P3 => cor_ + "resse" ; - Cong Imperf Pl P1 => cor_ + "ressimo" ; - Cong Imperf Pl P2 => cor_ + "reste" ; - Cong Imperf Pl P3 => cor_ + "ressero" ; - Cond Sg P1 => cor_ + "rerei" ; - Cond Sg P2 => cor_ + "reresti" ; - Cond Sg P3 => cor_ + "rerebbe" ; - Cond Pl P1 => cor_ + "reremmo" ; - Cond Pl P2 => cor_ + "rereste" ; - Cond Pl P3 => cor_ + "rerebbero" ; + Cong Imperf Sg P1 => cor_ + "ressi" ; --# notpresent + Cong Imperf Sg P2 => cor_ + "ressi" ; --# notpresent + Cong Imperf Sg P3 => cor_ + "resse" ; --# notpresent + Cong Imperf Pl P1 => cor_ + "ressimo" ; --# notpresent + Cong Imperf Pl P2 => cor_ + "reste" ; --# notpresent + Cong Imperf Pl P3 => cor_ + "ressero" ; --# notpresent + Cond Sg P1 => cor_ + "rerei" ; --# notpresent + Cond Sg P2 => cor_ + "reresti" ; --# notpresent + Cond Sg P3 => cor_ + "rerebbe" ; --# notpresent + Cond Pl P1 => cor_ + "reremmo" ; --# notpresent + Cond Pl P2 => cor_ + "rereste" ; --# notpresent + Cond Pl P3 => cor_ + "rerebbero" ; --# notpresent Imper SgP2 => cor_ + "ri" ; Imper PlP1 => cor_ + "riamo" ; Imper PlP2 => cor_ + "rete" ; @@ -2311,42 +2313,42 @@ oper crescere_39 : Str -> Verbo = \crescere -> Indi Pres Pl P1 => cre_ + "sciamo" ; Indi Pres Pl P2 => cre_ + "scete" ; Indi Pres Pl P3 => cre_ + "scono" ; - Indi Imperf Sg P1 => cre_ + "scevo" ; - Indi Imperf Sg P2 => cre_ + "scevi" ; - Indi Imperf Sg P3 => cre_ + "sceva" ; - Indi Imperf Pl P1 => cre_ + "scevamo" ; - Indi Imperf Pl P2 => cre_ + "scevate" ; - Indi Imperf Pl P3 => cre_ + "scevano" ; - Pass Sg P1 => cre_ + "bbi" ; - Pass Sg P2 => cre_ + "scesti" ; - Pass Sg P3 => cre_ + "bbe" ; - Pass Pl P1 => cre_ + "scemmo" ; - Pass Pl P2 => cre_ + "sceste" ; - Pass Pl P3 => cre_ + "bbero" ; - Fut Sg P1 => cre_ + "scerò" ; - Fut Sg P2 => cre_ + "scerai" ; - Fut Sg P3 => cre_ + "scerà" ; - Fut Pl P1 => cre_ + "sceremo" ; - Fut Pl P2 => cre_ + "scerete" ; - Fut Pl P3 => cre_ + "sceranno" ; + Indi Imperf Sg P1 => cre_ + "scevo" ; --# notpresent + Indi Imperf Sg P2 => cre_ + "scevi" ; --# notpresent + Indi Imperf Sg P3 => cre_ + "sceva" ; --# notpresent + Indi Imperf Pl P1 => cre_ + "scevamo" ; --# notpresent + Indi Imperf Pl P2 => cre_ + "scevate" ; --# notpresent + Indi Imperf Pl P3 => cre_ + "scevano" ; --# notpresent + Pass Sg P1 => cre_ + "bbi" ; --# notpresent + Pass Sg P2 => cre_ + "scesti" ; --# notpresent + Pass Sg P3 => cre_ + "bbe" ; --# notpresent + Pass Pl P1 => cre_ + "scemmo" ; --# notpresent + Pass Pl P2 => cre_ + "sceste" ; --# notpresent + Pass Pl P3 => cre_ + "bbero" ; --# notpresent + Fut Sg P1 => cre_ + "scerò" ; --# notpresent + Fut Sg P2 => cre_ + "scerai" ; --# notpresent + Fut Sg P3 => cre_ + "scerà" ; --# notpresent + Fut Pl P1 => cre_ + "sceremo" ; --# notpresent + Fut Pl P2 => cre_ + "scerete" ; --# notpresent + Fut Pl P3 => cre_ + "sceranno" ; --# notpresent Cong Pres Sg P1 => cre_ + "sca" ; Cong Pres Sg P2 => cre_ + "sca" ; Cong Pres Sg P3 => cre_ + "sca" ; Cong Pres Pl P1 => cre_ + "sciamo" ; Cong Pres Pl P2 => cre_ + "sciate" ; Cong Pres Pl P3 => cre_ + "scano" ; - Cong Imperf Sg P1 => cre_ + "scessi" ; - Cong Imperf Sg P2 => cre_ + "scessi" ; - Cong Imperf Sg P3 => cre_ + "scesse" ; - Cong Imperf Pl P1 => cre_ + "scessimo" ; - Cong Imperf Pl P2 => cre_ + "sceste" ; - Cong Imperf Pl P3 => cre_ + "scessero" ; - Cond Sg P1 => cre_ + "scerei" ; - Cond Sg P2 => cre_ + "sceresti" ; - Cond Sg P3 => cre_ + "scerebbe" ; - Cond Pl P1 => cre_ + "sceremmo" ; - Cond Pl P2 => cre_ + "scereste" ; - Cond Pl P3 => cre_ + "scerebbero" ; + Cong Imperf Sg P1 => cre_ + "scessi" ; --# notpresent + Cong Imperf Sg P2 => cre_ + "scessi" ; --# notpresent + Cong Imperf Sg P3 => cre_ + "scesse" ; --# notpresent + Cong Imperf Pl P1 => cre_ + "scessimo" ; --# notpresent + Cong Imperf Pl P2 => cre_ + "sceste" ; --# notpresent + Cong Imperf Pl P3 => cre_ + "scessero" ; --# notpresent + Cond Sg P1 => cre_ + "scerei" ; --# notpresent + Cond Sg P2 => cre_ + "sceresti" ; --# notpresent + Cond Sg P3 => cre_ + "scerebbe" ; --# notpresent + Cond Pl P1 => cre_ + "sceremmo" ; --# notpresent + Cond Pl P2 => cre_ + "scereste" ; --# notpresent + Cond Pl P3 => cre_ + "scerebbero" ; --# notpresent Imper SgP2 => cre_ + "sci" ; Imper PlP1 => cre_ + "sciamo" ; Imper PlP2 => cre_ + "scete" ; @@ -2373,42 +2375,42 @@ oper cuocere_40 : Str -> Verbo = \cuocere -> Indi Pres Pl P1 => c_ + "uociamo" ; Indi Pres Pl P2 => c_ + "uocete" ; Indi Pres Pl P3 => c_ + "uociono" ; - Indi Imperf Sg P1 => c_ + "uocevo" ; - Indi Imperf Sg P2 => c_ + "uocevi" ; - Indi Imperf Sg P3 => c_ + "uoceva" ; - Indi Imperf Pl P1 => c_ + "uocevamo" ; - Indi Imperf Pl P2 => c_ + "uocevate" ; - Indi Imperf Pl P3 => c_ + "uocevano" ; - Pass Sg P1 => c_ + "ossi" ; - Pass Sg P2 => c_ + "uocesti" ; - Pass Sg P3 => c_ + "osse" ; - Pass Pl P1 => c_ + "uocemmo" ; - Pass Pl P2 => c_ + "uoceste" ; - Pass Pl P3 => c_ + "ossero" ; - Fut Sg P1 => c_ + "uocerò" ; - Fut Sg P2 => c_ + "uocerai" ; - Fut Sg P3 => c_ + "uocerà" ; - Fut Pl P1 => c_ + "uoceremo" ; - Fut Pl P2 => c_ + "uocerete" ; - Fut Pl P3 => c_ + "uoceranno" ; + Indi Imperf Sg P1 => c_ + "uocevo" ; --# notpresent + Indi Imperf Sg P2 => c_ + "uocevi" ; --# notpresent + Indi Imperf Sg P3 => c_ + "uoceva" ; --# notpresent + Indi Imperf Pl P1 => c_ + "uocevamo" ; --# notpresent + Indi Imperf Pl P2 => c_ + "uocevate" ; --# notpresent + Indi Imperf Pl P3 => c_ + "uocevano" ; --# notpresent + Pass Sg P1 => c_ + "ossi" ; --# notpresent + Pass Sg P2 => c_ + "uocesti" ; --# notpresent + Pass Sg P3 => c_ + "osse" ; --# notpresent + Pass Pl P1 => c_ + "uocemmo" ; --# notpresent + Pass Pl P2 => c_ + "uoceste" ; --# notpresent + Pass Pl P3 => c_ + "ossero" ; --# notpresent + Fut Sg P1 => c_ + "uocerò" ; --# notpresent + Fut Sg P2 => c_ + "uocerai" ; --# notpresent + Fut Sg P3 => c_ + "uocerà" ; --# notpresent + Fut Pl P1 => c_ + "uoceremo" ; --# notpresent + Fut Pl P2 => c_ + "uocerete" ; --# notpresent + Fut Pl P3 => c_ + "uoceranno" ; --# notpresent Cong Pres Sg P1 => c_ + "uocia" ; Cong Pres Sg P2 => c_ + "uocia" ; Cong Pres Sg P3 => c_ + "uocia" ; Cong Pres Pl P1 => c_ + "uociamo" ; Cong Pres Pl P2 => c_ + "uociate" ; Cong Pres Pl P3 => c_ + "uociano" ; - Cong Imperf Sg P1 => c_ + "uocessi" ; - Cong Imperf Sg P2 => c_ + "uocessi" ; - Cong Imperf Sg P3 => c_ + "uocesse" ; - Cong Imperf Pl P1 => c_ + "uocessimo" ; - Cong Imperf Pl P2 => c_ + "uoceste" ; - Cong Imperf Pl P3 => c_ + "uocessero" ; - Cond Sg P1 => c_ + "uocerei" ; - Cond Sg P2 => c_ + "uoceresti" ; - Cond Sg P3 => c_ + "uocerebbe" ; - Cond Pl P1 => c_ + "uoceremmo" ; - Cond Pl P2 => c_ + "uocereste" ; - Cond Pl P3 => c_ + "uocerebbero" ; + Cong Imperf Sg P1 => c_ + "uocessi" ; --# notpresent + Cong Imperf Sg P2 => c_ + "uocessi" ; --# notpresent + Cong Imperf Sg P3 => c_ + "uocesse" ; --# notpresent + Cong Imperf Pl P1 => c_ + "uocessimo" ; --# notpresent + Cong Imperf Pl P2 => c_ + "uoceste" ; --# notpresent + Cong Imperf Pl P3 => c_ + "uocessero" ; --# notpresent + Cond Sg P1 => c_ + "uocerei" ; --# notpresent + Cond Sg P2 => c_ + "uoceresti" ; --# notpresent + Cond Sg P3 => c_ + "uocerebbe" ; --# notpresent + Cond Pl P1 => c_ + "uoceremmo" ; --# notpresent + Cond Pl P2 => c_ + "uocereste" ; --# notpresent + Cond Pl P3 => c_ + "uocerebbero" ; --# notpresent Imper SgP2 => c_ + "uoci" ; Imper PlP1 => c_ + "uociamo" ; Imper PlP2 => c_ + "uocete" ; @@ -2435,42 +2437,42 @@ oper dire_41 : Str -> Verbo = \dire -> Indi Pres Pl P1 => d_ + "iciamo" ; Indi Pres Pl P2 => d_ + "ite" ; Indi Pres Pl P3 => d_ + "icono" ; - Indi Imperf Sg P1 => d_ + "icevo" ; - Indi Imperf Sg P2 => d_ + "icevi" ; - Indi Imperf Sg P3 => d_ + "iceva" ; - Indi Imperf Pl P1 => d_ + "icevamo" ; - Indi Imperf Pl P2 => d_ + "icevate" ; - Indi Imperf Pl P3 => d_ + "icevano" ; - Pass Sg P1 => d_ + "issi" ; - Pass Sg P2 => d_ + "icesti" ; - Pass Sg P3 => d_ + "isse" ; - Pass Pl P1 => d_ + "icemmo" ; - Pass Pl P2 => d_ + "iceste" ; - Pass Pl P3 => d_ + "issero" ; - Fut Sg P1 => d_ + "irò" ; - Fut Sg P2 => d_ + "irai" ; - Fut Sg P3 => d_ + "irà" ; - Fut Pl P1 => d_ + "iremo" ; - Fut Pl P2 => d_ + "irete" ; - Fut Pl P3 => d_ + "iranno" ; + Indi Imperf Sg P1 => d_ + "icevo" ; --# notpresent + Indi Imperf Sg P2 => d_ + "icevi" ; --# notpresent + Indi Imperf Sg P3 => d_ + "iceva" ; --# notpresent + Indi Imperf Pl P1 => d_ + "icevamo" ; --# notpresent + Indi Imperf Pl P2 => d_ + "icevate" ; --# notpresent + Indi Imperf Pl P3 => d_ + "icevano" ; --# notpresent + Pass Sg P1 => d_ + "issi" ; --# notpresent + Pass Sg P2 => d_ + "icesti" ; --# notpresent + Pass Sg P3 => d_ + "isse" ; --# notpresent + Pass Pl P1 => d_ + "icemmo" ; --# notpresent + Pass Pl P2 => d_ + "iceste" ; --# notpresent + Pass Pl P3 => d_ + "issero" ; --# notpresent + Fut Sg P1 => d_ + "irò" ; --# notpresent + Fut Sg P2 => d_ + "irai" ; --# notpresent + Fut Sg P3 => d_ + "irà" ; --# notpresent + Fut Pl P1 => d_ + "iremo" ; --# notpresent + Fut Pl P2 => d_ + "irete" ; --# notpresent + Fut Pl P3 => d_ + "iranno" ; --# notpresent Cong Pres Sg P1 => d_ + "ica" ; Cong Pres Sg P2 => d_ + "ica" ; Cong Pres Sg P3 => d_ + "ica" ; Cong Pres Pl P1 => d_ + "iciamo" ; Cong Pres Pl P2 => d_ + "iciate" ; Cong Pres Pl P3 => d_ + "icano" ; - Cong Imperf Sg P1 => d_ + "icessi" ; - Cong Imperf Sg P2 => d_ + "icessi" ; - Cong Imperf Sg P3 => d_ + "icesse" ; - Cong Imperf Pl P1 => d_ + "icessimo" ; - Cong Imperf Pl P2 => d_ + "iceste" ; - Cong Imperf Pl P3 => d_ + "icessero" ; - Cond Sg P1 => d_ + "irei" ; - Cond Sg P2 => d_ + "iresti" ; - Cond Sg P3 => d_ + "irebbe" ; - Cond Pl P1 => d_ + "iremmo" ; - Cond Pl P2 => d_ + "ireste" ; - Cond Pl P3 => d_ + "irebbero" ; + Cong Imperf Sg P1 => d_ + "icessi" ; --# notpresent + Cong Imperf Sg P2 => d_ + "icessi" ; --# notpresent + Cong Imperf Sg P3 => d_ + "icesse" ; --# notpresent + Cong Imperf Pl P1 => d_ + "icessimo" ; --# notpresent + Cong Imperf Pl P2 => d_ + "iceste" ; --# notpresent + Cong Imperf Pl P3 => d_ + "icessero" ; --# notpresent + Cond Sg P1 => d_ + "irei" ; --# notpresent + Cond Sg P2 => d_ + "iresti" ; --# notpresent + Cond Sg P3 => d_ + "irebbe" ; --# notpresent + Cond Pl P1 => d_ + "iremmo" ; --# notpresent + Cond Pl P2 => d_ + "ireste" ; --# notpresent + Cond Pl P3 => d_ + "irebbero" ; --# notpresent Imper SgP2 => variants {d_ + "i`" ; d_ + "i"} ; Imper PlP1 => d_ + "iciamo" ; Imper PlP2 => d_ + "ite" ; @@ -2497,42 +2499,42 @@ oper dirigere_42 : Str -> Verbo = \dirigere -> Indi Pres Pl P1 => dir_ + "igiamo" ; Indi Pres Pl P2 => dir_ + "igete" ; Indi Pres Pl P3 => dir_ + "igono" ; - Indi Imperf Sg P1 => dir_ + "igevo" ; - Indi Imperf Sg P2 => dir_ + "igevi" ; - Indi Imperf Sg P3 => dir_ + "igeva" ; - Indi Imperf Pl P1 => dir_ + "igevamo" ; - Indi Imperf Pl P2 => dir_ + "igevate" ; - Indi Imperf Pl P3 => dir_ + "igevano" ; - Pass Sg P1 => dir_ + "essi" ; - Pass Sg P2 => dir_ + "igesti" ; - Pass Sg P3 => dir_ + "esse" ; - Pass Pl P1 => dir_ + "igemmo" ; - Pass Pl P2 => dir_ + "igeste" ; - Pass Pl P3 => dir_ + "essero" ; - Fut Sg P1 => dir_ + "igerò" ; - Fut Sg P2 => dir_ + "igerai" ; - Fut Sg P3 => dir_ + "igerà" ; - Fut Pl P1 => dir_ + "igeremo" ; - Fut Pl P2 => dir_ + "igerete" ; - Fut Pl P3 => dir_ + "igeranno" ; + Indi Imperf Sg P1 => dir_ + "igevo" ; --# notpresent + Indi Imperf Sg P2 => dir_ + "igevi" ; --# notpresent + Indi Imperf Sg P3 => dir_ + "igeva" ; --# notpresent + Indi Imperf Pl P1 => dir_ + "igevamo" ; --# notpresent + Indi Imperf Pl P2 => dir_ + "igevate" ; --# notpresent + Indi Imperf Pl P3 => dir_ + "igevano" ; --# notpresent + Pass Sg P1 => dir_ + "essi" ; --# notpresent + Pass Sg P2 => dir_ + "igesti" ; --# notpresent + Pass Sg P3 => dir_ + "esse" ; --# notpresent + Pass Pl P1 => dir_ + "igemmo" ; --# notpresent + Pass Pl P2 => dir_ + "igeste" ; --# notpresent + Pass Pl P3 => dir_ + "essero" ; --# notpresent + Fut Sg P1 => dir_ + "igerò" ; --# notpresent + Fut Sg P2 => dir_ + "igerai" ; --# notpresent + Fut Sg P3 => dir_ + "igerà" ; --# notpresent + Fut Pl P1 => dir_ + "igeremo" ; --# notpresent + Fut Pl P2 => dir_ + "igerete" ; --# notpresent + Fut Pl P3 => dir_ + "igeranno" ; --# notpresent Cong Pres Sg P1 => dir_ + "iga" ; Cong Pres Sg P2 => dir_ + "iga" ; Cong Pres Sg P3 => dir_ + "iga" ; Cong Pres Pl P1 => dir_ + "igiamo" ; Cong Pres Pl P2 => dir_ + "igiate" ; Cong Pres Pl P3 => dir_ + "igano" ; - Cong Imperf Sg P1 => dir_ + "igessi" ; - Cong Imperf Sg P2 => dir_ + "igessi" ; - Cong Imperf Sg P3 => dir_ + "igesse" ; - Cong Imperf Pl P1 => dir_ + "igessimo" ; - Cong Imperf Pl P2 => dir_ + "igeste" ; - Cong Imperf Pl P3 => dir_ + "igessero" ; - Cond Sg P1 => dir_ + "igerei" ; - Cond Sg P2 => dir_ + "igeresti" ; - Cond Sg P3 => dir_ + "igerebbe" ; - Cond Pl P1 => dir_ + "igeremmo" ; - Cond Pl P2 => dir_ + "igereste" ; - Cond Pl P3 => dir_ + "igerebbero" ; + Cong Imperf Sg P1 => dir_ + "igessi" ; --# notpresent + Cong Imperf Sg P2 => dir_ + "igessi" ; --# notpresent + Cong Imperf Sg P3 => dir_ + "igesse" ; --# notpresent + Cong Imperf Pl P1 => dir_ + "igessimo" ; --# notpresent + Cong Imperf Pl P2 => dir_ + "igeste" ; --# notpresent + Cong Imperf Pl P3 => dir_ + "igessero" ; --# notpresent + Cond Sg P1 => dir_ + "igerei" ; --# notpresent + Cond Sg P2 => dir_ + "igeresti" ; --# notpresent + Cond Sg P3 => dir_ + "igerebbe" ; --# notpresent + Cond Pl P1 => dir_ + "igeremmo" ; --# notpresent + Cond Pl P2 => dir_ + "igereste" ; --# notpresent + Cond Pl P3 => dir_ + "igerebbero" ; --# notpresent Imper SgP2 => dir_ + "igi" ; Imper PlP1 => dir_ + "igiamo" ; Imper PlP2 => dir_ + "igete" ; @@ -2559,42 +2561,42 @@ oper discutere_43 : Str -> Verbo = \discutere -> Indi Pres Pl P1 => discu_ + "tiamo" ; Indi Pres Pl P2 => discu_ + "tete" ; Indi Pres Pl P3 => discu_ + "tono" ; - Indi Imperf Sg P1 => discu_ + "tevo" ; - Indi Imperf Sg P2 => discu_ + "tevi" ; - Indi Imperf Sg P3 => discu_ + "teva" ; - Indi Imperf Pl P1 => discu_ + "tevamo" ; - Indi Imperf Pl P2 => discu_ + "tevate" ; - Indi Imperf Pl P3 => discu_ + "tevano" ; - Pass Sg P1 => discu_ + "ssi" ; - Pass Sg P2 => discu_ + "testi" ; - Pass Sg P3 => discu_ + "sse" ; - Pass Pl P1 => discu_ + "temmo" ; - Pass Pl P2 => discu_ + "teste" ; - Pass Pl P3 => discu_ + "ssero" ; - Fut Sg P1 => discu_ + "terò" ; - Fut Sg P2 => discu_ + "terai" ; - Fut Sg P3 => discu_ + "terà" ; - Fut Pl P1 => discu_ + "teremo" ; - Fut Pl P2 => discu_ + "terete" ; - Fut Pl P3 => discu_ + "teranno" ; + Indi Imperf Sg P1 => discu_ + "tevo" ; --# notpresent + Indi Imperf Sg P2 => discu_ + "tevi" ; --# notpresent + Indi Imperf Sg P3 => discu_ + "teva" ; --# notpresent + Indi Imperf Pl P1 => discu_ + "tevamo" ; --# notpresent + Indi Imperf Pl P2 => discu_ + "tevate" ; --# notpresent + Indi Imperf Pl P3 => discu_ + "tevano" ; --# notpresent + Pass Sg P1 => discu_ + "ssi" ; --# notpresent + Pass Sg P2 => discu_ + "testi" ; --# notpresent + Pass Sg P3 => discu_ + "sse" ; --# notpresent + Pass Pl P1 => discu_ + "temmo" ; --# notpresent + Pass Pl P2 => discu_ + "teste" ; --# notpresent + Pass Pl P3 => discu_ + "ssero" ; --# notpresent + Fut Sg P1 => discu_ + "terò" ; --# notpresent + Fut Sg P2 => discu_ + "terai" ; --# notpresent + Fut Sg P3 => discu_ + "terà" ; --# notpresent + Fut Pl P1 => discu_ + "teremo" ; --# notpresent + Fut Pl P2 => discu_ + "terete" ; --# notpresent + Fut Pl P3 => discu_ + "teranno" ; --# notpresent Cong Pres Sg P1 => discu_ + "ta" ; Cong Pres Sg P2 => discu_ + "ta" ; Cong Pres Sg P3 => discu_ + "ta" ; Cong Pres Pl P1 => discu_ + "tiamo" ; Cong Pres Pl P2 => discu_ + "tiate" ; Cong Pres Pl P3 => discu_ + "tano" ; - Cong Imperf Sg P1 => discu_ + "tessi" ; - Cong Imperf Sg P2 => discu_ + "tessi" ; - Cong Imperf Sg P3 => discu_ + "tesse" ; - Cong Imperf Pl P1 => discu_ + "tessimo" ; - Cong Imperf Pl P2 => discu_ + "teste" ; - Cong Imperf Pl P3 => discu_ + "tessero" ; - Cond Sg P1 => discu_ + "terei" ; - Cond Sg P2 => discu_ + "teresti" ; - Cond Sg P3 => discu_ + "terebbe" ; - Cond Pl P1 => discu_ + "teremmo" ; - Cond Pl P2 => discu_ + "tereste" ; - Cond Pl P3 => discu_ + "terebbero" ; + Cong Imperf Sg P1 => discu_ + "tessi" ; --# notpresent + Cong Imperf Sg P2 => discu_ + "tessi" ; --# notpresent + Cong Imperf Sg P3 => discu_ + "tesse" ; --# notpresent + Cong Imperf Pl P1 => discu_ + "tessimo" ; --# notpresent + Cong Imperf Pl P2 => discu_ + "teste" ; --# notpresent + Cong Imperf Pl P3 => discu_ + "tessero" ; --# notpresent + Cond Sg P1 => discu_ + "terei" ; --# notpresent + Cond Sg P2 => discu_ + "teresti" ; --# notpresent + Cond Sg P3 => discu_ + "terebbe" ; --# notpresent + Cond Pl P1 => discu_ + "teremmo" ; --# notpresent + Cond Pl P2 => discu_ + "tereste" ; --# notpresent + Cond Pl P3 => discu_ + "terebbero" ; --# notpresent Imper SgP2 => discu_ + "ti" ; Imper PlP1 => discu_ + "tiamo" ; Imper PlP2 => discu_ + "tete" ; @@ -2621,42 +2623,42 @@ oper distinguere_44 : Str -> Verbo = \distinguere -> Indi Pres Pl P1 => distin_ + "guiamo" ; Indi Pres Pl P2 => distin_ + "guete" ; Indi Pres Pl P3 => distin_ + "guono" ; - Indi Imperf Sg P1 => distin_ + "guevo" ; - Indi Imperf Sg P2 => distin_ + "guevi" ; - Indi Imperf Sg P3 => distin_ + "gueva" ; - Indi Imperf Pl P1 => distin_ + "guevamo" ; - Indi Imperf Pl P2 => distin_ + "guevate" ; - Indi Imperf Pl P3 => distin_ + "guevano" ; - Pass Sg P1 => distin_ + "si" ; - Pass Sg P2 => distin_ + "guesti" ; - Pass Sg P3 => distin_ + "se" ; - Pass Pl P1 => distin_ + "guemmo" ; - Pass Pl P2 => distin_ + "gueste" ; - Pass Pl P3 => distin_ + "sero" ; - Fut Sg P1 => distin_ + "guerò" ; - Fut Sg P2 => distin_ + "guerai" ; - Fut Sg P3 => distin_ + "guerà" ; - Fut Pl P1 => distin_ + "gueremo" ; - Fut Pl P2 => distin_ + "guerete" ; - Fut Pl P3 => distin_ + "gueranno" ; + Indi Imperf Sg P1 => distin_ + "guevo" ; --# notpresent + Indi Imperf Sg P2 => distin_ + "guevi" ; --# notpresent + Indi Imperf Sg P3 => distin_ + "gueva" ; --# notpresent + Indi Imperf Pl P1 => distin_ + "guevamo" ; --# notpresent + Indi Imperf Pl P2 => distin_ + "guevate" ; --# notpresent + Indi Imperf Pl P3 => distin_ + "guevano" ; --# notpresent + Pass Sg P1 => distin_ + "si" ; --# notpresent + Pass Sg P2 => distin_ + "guesti" ; --# notpresent + Pass Sg P3 => distin_ + "se" ; --# notpresent + Pass Pl P1 => distin_ + "guemmo" ; --# notpresent + Pass Pl P2 => distin_ + "gueste" ; --# notpresent + Pass Pl P3 => distin_ + "sero" ; --# notpresent + Fut Sg P1 => distin_ + "guerò" ; --# notpresent + Fut Sg P2 => distin_ + "guerai" ; --# notpresent + Fut Sg P3 => distin_ + "guerà" ; --# notpresent + Fut Pl P1 => distin_ + "gueremo" ; --# notpresent + Fut Pl P2 => distin_ + "guerete" ; --# notpresent + Fut Pl P3 => distin_ + "gueranno" ; --# notpresent Cong Pres Sg P1 => distin_ + "gua" ; Cong Pres Sg P2 => distin_ + "gua" ; Cong Pres Sg P3 => distin_ + "gua" ; Cong Pres Pl P1 => distin_ + "guiamo" ; Cong Pres Pl P2 => distin_ + "guiate" ; Cong Pres Pl P3 => distin_ + "guano" ; - Cong Imperf Sg P1 => distin_ + "guessi" ; - Cong Imperf Sg P2 => distin_ + "guessi" ; - Cong Imperf Sg P3 => distin_ + "guesse" ; - Cong Imperf Pl P1 => distin_ + "guessimo" ; - Cong Imperf Pl P2 => distin_ + "gueste" ; - Cong Imperf Pl P3 => distin_ + "guessero" ; - Cond Sg P1 => distin_ + "guerei" ; - Cond Sg P2 => distin_ + "gueresti" ; - Cond Sg P3 => distin_ + "guerebbe" ; - Cond Pl P1 => distin_ + "gueremmo" ; - Cond Pl P2 => distin_ + "guereste" ; - Cond Pl P3 => distin_ + "guerebbero" ; + Cong Imperf Sg P1 => distin_ + "guessi" ; --# notpresent + Cong Imperf Sg P2 => distin_ + "guessi" ; --# notpresent + Cong Imperf Sg P3 => distin_ + "guesse" ; --# notpresent + Cong Imperf Pl P1 => distin_ + "guessimo" ; --# notpresent + Cong Imperf Pl P2 => distin_ + "gueste" ; --# notpresent + Cong Imperf Pl P3 => distin_ + "guessero" ; --# notpresent + Cond Sg P1 => distin_ + "guerei" ; --# notpresent + Cond Sg P2 => distin_ + "gueresti" ; --# notpresent + Cond Sg P3 => distin_ + "guerebbe" ; --# notpresent + Cond Pl P1 => distin_ + "gueremmo" ; --# notpresent + Cond Pl P2 => distin_ + "guereste" ; --# notpresent + Cond Pl P3 => distin_ + "guerebbero" ; --# notpresent Imper SgP2 => distin_ + "gui" ; Imper PlP1 => distin_ + "guiamo" ; Imper PlP2 => distin_ + "guete" ; @@ -2683,42 +2685,42 @@ oper distruggere_45 : Str -> Verbo = \distruggere -> Indi Pres Pl P1 => distru_ + "ggiamo" ; Indi Pres Pl P2 => distru_ + "ggete" ; Indi Pres Pl P3 => distru_ + "ggono" ; - Indi Imperf Sg P1 => distru_ + "ggevo" ; - Indi Imperf Sg P2 => distru_ + "ggevi" ; - Indi Imperf Sg P3 => distru_ + "ggeva" ; - Indi Imperf Pl P1 => distru_ + "ggevamo" ; - Indi Imperf Pl P2 => distru_ + "ggevate" ; - Indi Imperf Pl P3 => distru_ + "ggevano" ; - Pass Sg P1 => distru_ + "ssi" ; - Pass Sg P2 => distru_ + "ggesti" ; - Pass Sg P3 => distru_ + "sse" ; - Pass Pl P1 => distru_ + "ggemmo" ; - Pass Pl P2 => distru_ + "ggeste" ; - Pass Pl P3 => distru_ + "ssero" ; - Fut Sg P1 => distru_ + "ggerò" ; - Fut Sg P2 => distru_ + "ggerai" ; - Fut Sg P3 => distru_ + "ggerà" ; - Fut Pl P1 => distru_ + "ggeremo" ; - Fut Pl P2 => distru_ + "ggerete" ; - Fut Pl P3 => distru_ + "ggeranno" ; + Indi Imperf Sg P1 => distru_ + "ggevo" ; --# notpresent + Indi Imperf Sg P2 => distru_ + "ggevi" ; --# notpresent + Indi Imperf Sg P3 => distru_ + "ggeva" ; --# notpresent + Indi Imperf Pl P1 => distru_ + "ggevamo" ; --# notpresent + Indi Imperf Pl P2 => distru_ + "ggevate" ; --# notpresent + Indi Imperf Pl P3 => distru_ + "ggevano" ; --# notpresent + Pass Sg P1 => distru_ + "ssi" ; --# notpresent + Pass Sg P2 => distru_ + "ggesti" ; --# notpresent + Pass Sg P3 => distru_ + "sse" ; --# notpresent + Pass Pl P1 => distru_ + "ggemmo" ; --# notpresent + Pass Pl P2 => distru_ + "ggeste" ; --# notpresent + Pass Pl P3 => distru_ + "ssero" ; --# notpresent + Fut Sg P1 => distru_ + "ggerò" ; --# notpresent + Fut Sg P2 => distru_ + "ggerai" ; --# notpresent + Fut Sg P3 => distru_ + "ggerà" ; --# notpresent + Fut Pl P1 => distru_ + "ggeremo" ; --# notpresent + Fut Pl P2 => distru_ + "ggerete" ; --# notpresent + Fut Pl P3 => distru_ + "ggeranno" ; --# notpresent Cong Pres Sg P1 => distru_ + "gga" ; Cong Pres Sg P2 => distru_ + "gga" ; Cong Pres Sg P3 => distru_ + "gga" ; Cong Pres Pl P1 => distru_ + "ggiamo" ; Cong Pres Pl P2 => distru_ + "ggiate" ; Cong Pres Pl P3 => distru_ + "ggano" ; - Cong Imperf Sg P1 => distru_ + "ggessi" ; - Cong Imperf Sg P2 => distru_ + "ggessi" ; - Cong Imperf Sg P3 => distru_ + "ggesse" ; - Cong Imperf Pl P1 => distru_ + "ggessimo" ; - Cong Imperf Pl P2 => distru_ + "ggeste" ; - Cong Imperf Pl P3 => distru_ + "ggessero" ; - Cond Sg P1 => distru_ + "ggerei" ; - Cond Sg P2 => distru_ + "ggeresti" ; - Cond Sg P3 => distru_ + "ggerebbe" ; - Cond Pl P1 => distru_ + "ggeremmo" ; - Cond Pl P2 => distru_ + "ggereste" ; - Cond Pl P3 => distru_ + "ggerebbero" ; + Cong Imperf Sg P1 => distru_ + "ggessi" ; --# notpresent + Cong Imperf Sg P2 => distru_ + "ggessi" ; --# notpresent + Cong Imperf Sg P3 => distru_ + "ggesse" ; --# notpresent + Cong Imperf Pl P1 => distru_ + "ggessimo" ; --# notpresent + Cong Imperf Pl P2 => distru_ + "ggeste" ; --# notpresent + Cong Imperf Pl P3 => distru_ + "ggessero" ; --# notpresent + Cond Sg P1 => distru_ + "ggerei" ; --# notpresent + Cond Sg P2 => distru_ + "ggeresti" ; --# notpresent + Cond Sg P3 => distru_ + "ggerebbe" ; --# notpresent + Cond Pl P1 => distru_ + "ggeremmo" ; --# notpresent + Cond Pl P2 => distru_ + "ggereste" ; --# notpresent + Cond Pl P3 => distru_ + "ggerebbero" ; --# notpresent Imper SgP2 => distru_ + "ggi" ; Imper PlP1 => distru_ + "ggiamo" ; Imper PlP2 => distru_ + "ggete" ; @@ -2745,42 +2747,42 @@ oper dolere_46 : Str -> Verbo = \dolere -> Indi Pres Pl P1 => d_ + "oliamo" ; Indi Pres Pl P2 => d_ + "olete" ; Indi Pres Pl P3 => d_ + "olgono" ; - Indi Imperf Sg P1 => d_ + "olevo" ; - Indi Imperf Sg P2 => d_ + "olevi" ; - Indi Imperf Sg P3 => d_ + "oleva" ; - Indi Imperf Pl P1 => d_ + "olevamo" ; - Indi Imperf Pl P2 => d_ + "olevate" ; - Indi Imperf Pl P3 => d_ + "olevano" ; - Pass Sg P1 => d_ + "olsi" ; - Pass Sg P2 => d_ + "olesti" ; - Pass Sg P3 => d_ + "olse" ; - Pass Pl P1 => d_ + "olemmo" ; - Pass Pl P2 => d_ + "oleste" ; - Pass Pl P3 => d_ + "olsero" ; - Fut Sg P1 => d_ + "orrò" ; - Fut Sg P2 => d_ + "orrai" ; - Fut Sg P3 => d_ + "orrà" ; - Fut Pl P1 => d_ + "orremo" ; - Fut Pl P2 => d_ + "orrete" ; - Fut Pl P3 => d_ + "orranno" ; + Indi Imperf Sg P1 => d_ + "olevo" ; --# notpresent + Indi Imperf Sg P2 => d_ + "olevi" ; --# notpresent + Indi Imperf Sg P3 => d_ + "oleva" ; --# notpresent + Indi Imperf Pl P1 => d_ + "olevamo" ; --# notpresent + Indi Imperf Pl P2 => d_ + "olevate" ; --# notpresent + Indi Imperf Pl P3 => d_ + "olevano" ; --# notpresent + Pass Sg P1 => d_ + "olsi" ; --# notpresent + Pass Sg P2 => d_ + "olesti" ; --# notpresent + Pass Sg P3 => d_ + "olse" ; --# notpresent + Pass Pl P1 => d_ + "olemmo" ; --# notpresent + Pass Pl P2 => d_ + "oleste" ; --# notpresent + Pass Pl P3 => d_ + "olsero" ; --# notpresent + Fut Sg P1 => d_ + "orrò" ; --# notpresent + Fut Sg P2 => d_ + "orrai" ; --# notpresent + Fut Sg P3 => d_ + "orrà" ; --# notpresent + Fut Pl P1 => d_ + "orremo" ; --# notpresent + Fut Pl P2 => d_ + "orrete" ; --# notpresent + Fut Pl P3 => d_ + "orranno" ; --# notpresent Cong Pres Sg P1 => d_ + "olga" ; Cong Pres Sg P2 => d_ + "olga" ; Cong Pres Sg P3 => d_ + "olga" ; Cong Pres Pl P1 => d_ + "oliamo" ; Cong Pres Pl P2 => d_ + "oliate" ; Cong Pres Pl P3 => d_ + "olgano" ; - Cong Imperf Sg P1 => d_ + "olessi" ; - Cong Imperf Sg P2 => d_ + "olessi" ; - Cong Imperf Sg P3 => d_ + "olesse" ; - Cong Imperf Pl P1 => d_ + "olessimo" ; - Cong Imperf Pl P2 => d_ + "oleste" ; - Cong Imperf Pl P3 => d_ + "olessero" ; - Cond Sg P1 => d_ + "orrei" ; - Cond Sg P2 => d_ + "orresti" ; - Cond Sg P3 => d_ + "orrebbe" ; - Cond Pl P1 => d_ + "orremmo" ; - Cond Pl P2 => d_ + "orreste" ; - Cond Pl P3 => d_ + "orrebbero" ; + Cong Imperf Sg P1 => d_ + "olessi" ; --# notpresent + Cong Imperf Sg P2 => d_ + "olessi" ; --# notpresent + Cong Imperf Sg P3 => d_ + "olesse" ; --# notpresent + Cong Imperf Pl P1 => d_ + "olessimo" ; --# notpresent + Cong Imperf Pl P2 => d_ + "oleste" ; --# notpresent + Cong Imperf Pl P3 => d_ + "olessero" ; --# notpresent + Cond Sg P1 => d_ + "orrei" ; --# notpresent + Cond Sg P2 => d_ + "orresti" ; --# notpresent + Cond Sg P3 => d_ + "orrebbe" ; --# notpresent + Cond Pl P1 => d_ + "orremmo" ; --# notpresent + Cond Pl P2 => d_ + "orreste" ; --# notpresent + Cond Pl P3 => d_ + "orrebbero" ; --# notpresent Imper SgP2 => d_ + "uoli" ; Imper PlP1 => d_ + "oliamo" ; Imper PlP2 => d_ + "olete" ; @@ -2807,42 +2809,42 @@ oper dovere_47 : Str -> Verbo = \dovere -> Indi Pres Pl P1 => d_ + "obbiamo" ; Indi Pres Pl P2 => d_ + "ovete" ; Indi Pres Pl P3 => variants {d_ + "ebbono" ; d_ + "evono"} ; - Indi Imperf Sg P1 => d_ + "ovevo" ; - Indi Imperf Sg P2 => d_ + "ovevi" ; - Indi Imperf Sg P3 => d_ + "oveva" ; - Indi Imperf Pl P1 => d_ + "ovevamo" ; - Indi Imperf Pl P2 => d_ + "ovevate" ; - Indi Imperf Pl P3 => d_ + "ovevano" ; - Pass Sg P1 => d_ + "ovetti" ; - Pass Sg P2 => d_ + "ovesti" ; - Pass Sg P3 => d_ + "ovette" ; - Pass Pl P1 => d_ + "ovemmo" ; - Pass Pl P2 => d_ + "oveste" ; - Pass Pl P3 => d_ + "ovettero" ; - Fut Sg P1 => d_ + "ovrò" ; - Fut Sg P2 => d_ + "ovrai" ; - Fut Sg P3 => d_ + "ovrà" ; - Fut Pl P1 => d_ + "ovremo" ; - Fut Pl P2 => d_ + "ovrete" ; - Fut Pl P3 => d_ + "ovranno" ; + Indi Imperf Sg P1 => d_ + "ovevo" ; --# notpresent + Indi Imperf Sg P2 => d_ + "ovevi" ; --# notpresent + Indi Imperf Sg P3 => d_ + "oveva" ; --# notpresent + Indi Imperf Pl P1 => d_ + "ovevamo" ; --# notpresent + Indi Imperf Pl P2 => d_ + "ovevate" ; --# notpresent + Indi Imperf Pl P3 => d_ + "ovevano" ; --# notpresent + Pass Sg P1 => d_ + "ovetti" ; --# notpresent + Pass Sg P2 => d_ + "ovesti" ; --# notpresent + Pass Sg P3 => d_ + "ovette" ; --# notpresent + Pass Pl P1 => d_ + "ovemmo" ; --# notpresent + Pass Pl P2 => d_ + "oveste" ; --# notpresent + Pass Pl P3 => d_ + "ovettero" ; --# notpresent + Fut Sg P1 => d_ + "ovrò" ; --# notpresent + Fut Sg P2 => d_ + "ovrai" ; --# notpresent + Fut Sg P3 => d_ + "ovrà" ; --# notpresent + Fut Pl P1 => d_ + "ovremo" ; --# notpresent + Fut Pl P2 => d_ + "ovrete" ; --# notpresent + Fut Pl P3 => d_ + "ovranno" ; --# notpresent Cong Pres Sg P1 => variants {d_ + "ebba" ; d_ + "eva"} ; Cong Pres Sg P2 => variants {d_ + "ebba" ; d_ + "eva"} ; Cong Pres Sg P3 => variants {d_ + "ebba" ; d_ + "eva"} ; Cong Pres Pl P1 => d_ + "obbiamo" ; Cong Pres Pl P2 => d_ + "obbiate" ; Cong Pres Pl P3 => variants {d_ + "ebbano" ; d_ + "evano"} ; - Cong Imperf Sg P1 => d_ + "ovessi" ; - Cong Imperf Sg P2 => d_ + "ovessi" ; - Cong Imperf Sg P3 => d_ + "ovesse" ; - Cong Imperf Pl P1 => d_ + "ovessimo" ; - Cong Imperf Pl P2 => d_ + "oveste" ; - Cong Imperf Pl P3 => d_ + "ovessero" ; - Cond Sg P1 => d_ + "ovrei" ; - Cond Sg P2 => d_ + "ovresti" ; - Cond Sg P3 => d_ + "ovrebbe" ; - Cond Pl P1 => d_ + "ovremmo" ; - Cond Pl P2 => d_ + "ovreste" ; - Cond Pl P3 => d_ + "ovrebbero" ; + Cong Imperf Sg P1 => d_ + "ovessi" ; --# notpresent + Cong Imperf Sg P2 => d_ + "ovessi" ; --# notpresent + Cong Imperf Sg P3 => d_ + "ovesse" ; --# notpresent + Cong Imperf Pl P1 => d_ + "ovessimo" ; --# notpresent + Cong Imperf Pl P2 => d_ + "oveste" ; --# notpresent + Cong Imperf Pl P3 => d_ + "ovessero" ; --# notpresent + Cond Sg P1 => d_ + "ovrei" ; --# notpresent + Cond Sg P2 => d_ + "ovresti" ; --# notpresent + Cond Sg P3 => d_ + "ovrebbe" ; --# notpresent + Cond Pl P1 => d_ + "ovremmo" ; --# notpresent + Cond Pl P2 => d_ + "ovreste" ; --# notpresent + Cond Pl P3 => d_ + "ovrebbero" ; --# notpresent Imper SgP2 => variants {} ; Imper PlP1 => variants {} ; Imper PlP2 => variants {} ; @@ -2869,42 +2871,42 @@ oper emergere_28 : Str -> Verbo = \emergere -> Indi Pres Pl P1 => emer_ + "giamo" ; Indi Pres Pl P2 => emer_ + "gete" ; Indi Pres Pl P3 => emer_ + "gono" ; - Indi Imperf Sg P1 => emer_ + "gevo" ; - Indi Imperf Sg P2 => emer_ + "gevi" ; - Indi Imperf Sg P3 => emer_ + "geva" ; - Indi Imperf Pl P1 => emer_ + "gevamo" ; - Indi Imperf Pl P2 => emer_ + "gevate" ; - Indi Imperf Pl P3 => emer_ + "gevano" ; - Pass Sg P1 => emer_ + "si" ; - Pass Sg P2 => emer_ + "gesti" ; - Pass Sg P3 => emer_ + "se" ; - Pass Pl P1 => emer_ + "gemmo" ; - Pass Pl P2 => emer_ + "geste" ; - Pass Pl P3 => emer_ + "sero" ; - Fut Sg P1 => emer_ + "gerò" ; - Fut Sg P2 => emer_ + "gerai" ; - Fut Sg P3 => emer_ + "gerà" ; - Fut Pl P1 => emer_ + "geremo" ; - Fut Pl P2 => emer_ + "gerete" ; - Fut Pl P3 => emer_ + "geranno" ; + Indi Imperf Sg P1 => emer_ + "gevo" ; --# notpresent + Indi Imperf Sg P2 => emer_ + "gevi" ; --# notpresent + Indi Imperf Sg P3 => emer_ + "geva" ; --# notpresent + Indi Imperf Pl P1 => emer_ + "gevamo" ; --# notpresent + Indi Imperf Pl P2 => emer_ + "gevate" ; --# notpresent + Indi Imperf Pl P3 => emer_ + "gevano" ; --# notpresent + Pass Sg P1 => emer_ + "si" ; --# notpresent + Pass Sg P2 => emer_ + "gesti" ; --# notpresent + Pass Sg P3 => emer_ + "se" ; --# notpresent + Pass Pl P1 => emer_ + "gemmo" ; --# notpresent + Pass Pl P2 => emer_ + "geste" ; --# notpresent + Pass Pl P3 => emer_ + "sero" ; --# notpresent + Fut Sg P1 => emer_ + "gerò" ; --# notpresent + Fut Sg P2 => emer_ + "gerai" ; --# notpresent + Fut Sg P3 => emer_ + "gerà" ; --# notpresent + Fut Pl P1 => emer_ + "geremo" ; --# notpresent + Fut Pl P2 => emer_ + "gerete" ; --# notpresent + Fut Pl P3 => emer_ + "geranno" ; --# notpresent Cong Pres Sg P1 => emer_ + "ga" ; Cong Pres Sg P2 => emer_ + "ga" ; Cong Pres Sg P3 => emer_ + "ga" ; Cong Pres Pl P1 => emer_ + "giamo" ; Cong Pres Pl P2 => emer_ + "giate" ; Cong Pres Pl P3 => emer_ + "gano" ; - Cong Imperf Sg P1 => emer_ + "gessi" ; - Cong Imperf Sg P2 => emer_ + "gessi" ; - Cong Imperf Sg P3 => emer_ + "gesse" ; - Cong Imperf Pl P1 => emer_ + "gessimo" ; - Cong Imperf Pl P2 => emer_ + "geste" ; - Cong Imperf Pl P3 => emer_ + "gessero" ; - Cond Sg P1 => emer_ + "gerei" ; - Cond Sg P2 => emer_ + "geresti" ; - Cond Sg P3 => emer_ + "gerebbe" ; - Cond Pl P1 => emer_ + "geremmo" ; - Cond Pl P2 => emer_ + "gereste" ; - Cond Pl P3 => emer_ + "gerebbero" ; + Cong Imperf Sg P1 => emer_ + "gessi" ; --# notpresent + Cong Imperf Sg P2 => emer_ + "gessi" ; --# notpresent + Cong Imperf Sg P3 => emer_ + "gesse" ; --# notpresent + Cong Imperf Pl P1 => emer_ + "gessimo" ; --# notpresent + Cong Imperf Pl P2 => emer_ + "geste" ; --# notpresent + Cong Imperf Pl P3 => emer_ + "gessero" ; --# notpresent + Cond Sg P1 => emer_ + "gerei" ; --# notpresent + Cond Sg P2 => emer_ + "geresti" ; --# notpresent + Cond Sg P3 => emer_ + "gerebbe" ; --# notpresent + Cond Pl P1 => emer_ + "geremmo" ; --# notpresent + Cond Pl P2 => emer_ + "gereste" ; --# notpresent + Cond Pl P3 => emer_ + "gerebbero" ; --# notpresent Imper SgP2 => emer_ + "gi" ; Imper PlP1 => emer_ + "giamo" ; Imper PlP2 => emer_ + "gete" ; @@ -2931,42 +2933,42 @@ oper espandere_49 : Str -> Verbo = \espandere -> Indi Pres Pl P1 => espan_ + "diamo" ; Indi Pres Pl P2 => espan_ + "dete" ; Indi Pres Pl P3 => espan_ + "dono" ; - Indi Imperf Sg P1 => espan_ + "devo" ; - Indi Imperf Sg P2 => espan_ + "devi" ; - Indi Imperf Sg P3 => espan_ + "deva" ; - Indi Imperf Pl P1 => espan_ + "devamo" ; - Indi Imperf Pl P2 => espan_ + "devate" ; - Indi Imperf Pl P3 => espan_ + "devano" ; - Pass Sg P1 => espan_ + "si" ; - Pass Sg P2 => espan_ + "desti" ; - Pass Sg P3 => espan_ + "se" ; - Pass Pl P1 => espan_ + "demmo" ; - Pass Pl P2 => espan_ + "deste" ; - Pass Pl P3 => espan_ + "sero" ; - Fut Sg P1 => espan_ + "derò" ; - Fut Sg P2 => espan_ + "derai" ; - Fut Sg P3 => espan_ + "derà" ; - Fut Pl P1 => espan_ + "deremo" ; - Fut Pl P2 => espan_ + "derete" ; - Fut Pl P3 => espan_ + "deranno" ; + Indi Imperf Sg P1 => espan_ + "devo" ; --# notpresent + Indi Imperf Sg P2 => espan_ + "devi" ; --# notpresent + Indi Imperf Sg P3 => espan_ + "deva" ; --# notpresent + Indi Imperf Pl P1 => espan_ + "devamo" ; --# notpresent + Indi Imperf Pl P2 => espan_ + "devate" ; --# notpresent + Indi Imperf Pl P3 => espan_ + "devano" ; --# notpresent + Pass Sg P1 => espan_ + "si" ; --# notpresent + Pass Sg P2 => espan_ + "desti" ; --# notpresent + Pass Sg P3 => espan_ + "se" ; --# notpresent + Pass Pl P1 => espan_ + "demmo" ; --# notpresent + Pass Pl P2 => espan_ + "deste" ; --# notpresent + Pass Pl P3 => espan_ + "sero" ; --# notpresent + Fut Sg P1 => espan_ + "derò" ; --# notpresent + Fut Sg P2 => espan_ + "derai" ; --# notpresent + Fut Sg P3 => espan_ + "derà" ; --# notpresent + Fut Pl P1 => espan_ + "deremo" ; --# notpresent + Fut Pl P2 => espan_ + "derete" ; --# notpresent + Fut Pl P3 => espan_ + "deranno" ; --# notpresent Cong Pres Sg P1 => espan_ + "da" ; Cong Pres Sg P2 => espan_ + "da" ; Cong Pres Sg P3 => espan_ + "da" ; Cong Pres Pl P1 => espan_ + "diamo" ; Cong Pres Pl P2 => espan_ + "diate" ; Cong Pres Pl P3 => espan_ + "dano" ; - Cong Imperf Sg P1 => espan_ + "dessi" ; - Cong Imperf Sg P2 => espan_ + "dessi" ; - Cong Imperf Sg P3 => espan_ + "desse" ; - Cong Imperf Pl P1 => espan_ + "dessimo" ; - Cong Imperf Pl P2 => espan_ + "deste" ; - Cong Imperf Pl P3 => espan_ + "dessero" ; - Cond Sg P1 => espan_ + "derei" ; - Cond Sg P2 => espan_ + "deresti" ; - Cond Sg P3 => espan_ + "derebbe" ; - Cond Pl P1 => espan_ + "deremmo" ; - Cond Pl P2 => espan_ + "dereste" ; - Cond Pl P3 => espan_ + "derebbero" ; + Cong Imperf Sg P1 => espan_ + "dessi" ; --# notpresent + Cong Imperf Sg P2 => espan_ + "dessi" ; --# notpresent + Cong Imperf Sg P3 => espan_ + "desse" ; --# notpresent + Cong Imperf Pl P1 => espan_ + "dessimo" ; --# notpresent + Cong Imperf Pl P2 => espan_ + "deste" ; --# notpresent + Cong Imperf Pl P3 => espan_ + "dessero" ; --# notpresent + Cond Sg P1 => espan_ + "derei" ; --# notpresent + Cond Sg P2 => espan_ + "deresti" ; --# notpresent + Cond Sg P3 => espan_ + "derebbe" ; --# notpresent + Cond Pl P1 => espan_ + "deremmo" ; --# notpresent + Cond Pl P2 => espan_ + "dereste" ; --# notpresent + Cond Pl P3 => espan_ + "derebbero" ; --# notpresent Imper SgP2 => espan_ + "di" ; Imper PlP1 => espan_ + "diamo" ; Imper PlP2 => espan_ + "dete" ; @@ -2993,42 +2995,42 @@ oper espellere_50 : Str -> Verbo = \espellere -> Indi Pres Pl P1 => esp_ + "elliamo" ; Indi Pres Pl P2 => esp_ + "ellete" ; Indi Pres Pl P3 => esp_ + "ellono" ; - Indi Imperf Sg P1 => esp_ + "ellevo" ; - Indi Imperf Sg P2 => esp_ + "ellevi" ; - Indi Imperf Sg P3 => esp_ + "elleva" ; - Indi Imperf Pl P1 => esp_ + "ellevamo" ; - Indi Imperf Pl P2 => esp_ + "ellevate" ; - Indi Imperf Pl P3 => esp_ + "ellevano" ; - Pass Sg P1 => esp_ + "ulsi" ; - Pass Sg P2 => esp_ + "ellesti" ; - Pass Sg P3 => esp_ + "ulse" ; - Pass Pl P1 => esp_ + "ellemmo" ; - Pass Pl P2 => esp_ + "elleste" ; - Pass Pl P3 => esp_ + "ulsero" ; - Fut Sg P1 => esp_ + "ellerò" ; - Fut Sg P2 => esp_ + "ellerai" ; - Fut Sg P3 => esp_ + "ellerà" ; - Fut Pl P1 => esp_ + "elleremo" ; - Fut Pl P2 => esp_ + "ellerete" ; - Fut Pl P3 => esp_ + "elleranno" ; + Indi Imperf Sg P1 => esp_ + "ellevo" ; --# notpresent + Indi Imperf Sg P2 => esp_ + "ellevi" ; --# notpresent + Indi Imperf Sg P3 => esp_ + "elleva" ; --# notpresent + Indi Imperf Pl P1 => esp_ + "ellevamo" ; --# notpresent + Indi Imperf Pl P2 => esp_ + "ellevate" ; --# notpresent + Indi Imperf Pl P3 => esp_ + "ellevano" ; --# notpresent + Pass Sg P1 => esp_ + "ulsi" ; --# notpresent + Pass Sg P2 => esp_ + "ellesti" ; --# notpresent + Pass Sg P3 => esp_ + "ulse" ; --# notpresent + Pass Pl P1 => esp_ + "ellemmo" ; --# notpresent + Pass Pl P2 => esp_ + "elleste" ; --# notpresent + Pass Pl P3 => esp_ + "ulsero" ; --# notpresent + Fut Sg P1 => esp_ + "ellerò" ; --# notpresent + Fut Sg P2 => esp_ + "ellerai" ; --# notpresent + Fut Sg P3 => esp_ + "ellerà" ; --# notpresent + Fut Pl P1 => esp_ + "elleremo" ; --# notpresent + Fut Pl P2 => esp_ + "ellerete" ; --# notpresent + Fut Pl P3 => esp_ + "elleranno" ; --# notpresent Cong Pres Sg P1 => esp_ + "ella" ; Cong Pres Sg P2 => esp_ + "ella" ; Cong Pres Sg P3 => esp_ + "ella" ; Cong Pres Pl P1 => esp_ + "elliamo" ; Cong Pres Pl P2 => esp_ + "elliate" ; Cong Pres Pl P3 => esp_ + "ellano" ; - Cong Imperf Sg P1 => esp_ + "ellessi" ; - Cong Imperf Sg P2 => esp_ + "ellessi" ; - Cong Imperf Sg P3 => esp_ + "ellesse" ; - Cong Imperf Pl P1 => esp_ + "ellessimo" ; - Cong Imperf Pl P2 => esp_ + "elleste" ; - Cong Imperf Pl P3 => esp_ + "ellessero" ; - Cond Sg P1 => esp_ + "ellerei" ; - Cond Sg P2 => esp_ + "elleresti" ; - Cond Sg P3 => esp_ + "ellerebbe" ; - Cond Pl P1 => esp_ + "elleremmo" ; - Cond Pl P2 => esp_ + "ellereste" ; - Cond Pl P3 => esp_ + "ellerebbero" ; + Cong Imperf Sg P1 => esp_ + "ellessi" ; --# notpresent + Cong Imperf Sg P2 => esp_ + "ellessi" ; --# notpresent + Cong Imperf Sg P3 => esp_ + "ellesse" ; --# notpresent + Cong Imperf Pl P1 => esp_ + "ellessimo" ; --# notpresent + Cong Imperf Pl P2 => esp_ + "elleste" ; --# notpresent + Cong Imperf Pl P3 => esp_ + "ellessero" ; --# notpresent + Cond Sg P1 => esp_ + "ellerei" ; --# notpresent + Cond Sg P2 => esp_ + "elleresti" ; --# notpresent + Cond Sg P3 => esp_ + "ellerebbe" ; --# notpresent + Cond Pl P1 => esp_ + "elleremmo" ; --# notpresent + Cond Pl P2 => esp_ + "ellereste" ; --# notpresent + Cond Pl P3 => esp_ + "ellerebbero" ; --# notpresent Imper SgP2 => esp_ + "elli" ; Imper PlP1 => esp_ + "elliamo" ; Imper PlP2 => esp_ + "ellete" ; @@ -3055,42 +3057,42 @@ oper esplodere_51 : Str -> Verbo = \esplodere -> Indi Pres Pl P1 => esplo_ + "diamo" ; Indi Pres Pl P2 => esplo_ + "dete" ; Indi Pres Pl P3 => esplo_ + "dono" ; - Indi Imperf Sg P1 => esplo_ + "devo" ; - Indi Imperf Sg P2 => esplo_ + "devi" ; - Indi Imperf Sg P3 => esplo_ + "deva" ; - Indi Imperf Pl P1 => esplo_ + "devamo" ; - Indi Imperf Pl P2 => esplo_ + "devate" ; - Indi Imperf Pl P3 => esplo_ + "devano" ; - Pass Sg P1 => esplo_ + "si" ; - Pass Sg P2 => esplo_ + "desti" ; - Pass Sg P3 => esplo_ + "se" ; - Pass Pl P1 => esplo_ + "demmo" ; - Pass Pl P2 => esplo_ + "deste" ; - Pass Pl P3 => esplo_ + "sero" ; - Fut Sg P1 => esplo_ + "derò" ; - Fut Sg P2 => esplo_ + "derai" ; - Fut Sg P3 => esplo_ + "derà" ; - Fut Pl P1 => esplo_ + "deremo" ; - Fut Pl P2 => esplo_ + "derete" ; - Fut Pl P3 => esplo_ + "deranno" ; + Indi Imperf Sg P1 => esplo_ + "devo" ; --# notpresent + Indi Imperf Sg P2 => esplo_ + "devi" ; --# notpresent + Indi Imperf Sg P3 => esplo_ + "deva" ; --# notpresent + Indi Imperf Pl P1 => esplo_ + "devamo" ; --# notpresent + Indi Imperf Pl P2 => esplo_ + "devate" ; --# notpresent + Indi Imperf Pl P3 => esplo_ + "devano" ; --# notpresent + Pass Sg P1 => esplo_ + "si" ; --# notpresent + Pass Sg P2 => esplo_ + "desti" ; --# notpresent + Pass Sg P3 => esplo_ + "se" ; --# notpresent + Pass Pl P1 => esplo_ + "demmo" ; --# notpresent + Pass Pl P2 => esplo_ + "deste" ; --# notpresent + Pass Pl P3 => esplo_ + "sero" ; --# notpresent + Fut Sg P1 => esplo_ + "derò" ; --# notpresent + Fut Sg P2 => esplo_ + "derai" ; --# notpresent + Fut Sg P3 => esplo_ + "derà" ; --# notpresent + Fut Pl P1 => esplo_ + "deremo" ; --# notpresent + Fut Pl P2 => esplo_ + "derete" ; --# notpresent + Fut Pl P3 => esplo_ + "deranno" ; --# notpresent Cong Pres Sg P1 => esplo_ + "da" ; Cong Pres Sg P2 => esplo_ + "da" ; Cong Pres Sg P3 => esplo_ + "da" ; Cong Pres Pl P1 => esplo_ + "diamo" ; Cong Pres Pl P2 => esplo_ + "diate" ; Cong Pres Pl P3 => esplo_ + "dano" ; - Cong Imperf Sg P1 => esplo_ + "dessi" ; - Cong Imperf Sg P2 => esplo_ + "dessi" ; - Cong Imperf Sg P3 => esplo_ + "desse" ; - Cong Imperf Pl P1 => esplo_ + "dessimo" ; - Cong Imperf Pl P2 => esplo_ + "deste" ; - Cong Imperf Pl P3 => esplo_ + "dessero" ; - Cond Sg P1 => esplo_ + "derei" ; - Cond Sg P2 => esplo_ + "deresti" ; - Cond Sg P3 => esplo_ + "derebbe" ; - Cond Pl P1 => esplo_ + "deremmo" ; - Cond Pl P2 => esplo_ + "dereste" ; - Cond Pl P3 => esplo_ + "derebbero" ; + Cong Imperf Sg P1 => esplo_ + "dessi" ; --# notpresent + Cong Imperf Sg P2 => esplo_ + "dessi" ; --# notpresent + Cong Imperf Sg P3 => esplo_ + "desse" ; --# notpresent + Cong Imperf Pl P1 => esplo_ + "dessimo" ; --# notpresent + Cong Imperf Pl P2 => esplo_ + "deste" ; --# notpresent + Cong Imperf Pl P3 => esplo_ + "dessero" ; --# notpresent + Cond Sg P1 => esplo_ + "derei" ; --# notpresent + Cond Sg P2 => esplo_ + "deresti" ; --# notpresent + Cond Sg P3 => esplo_ + "derebbe" ; --# notpresent + Cond Pl P1 => esplo_ + "deremmo" ; --# notpresent + Cond Pl P2 => esplo_ + "dereste" ; --# notpresent + Cond Pl P3 => esplo_ + "derebbero" ; --# notpresent Imper SgP2 => esplo_ + "di" ; Imper PlP1 => esplo_ + "diamo" ; Imper PlP2 => esplo_ + "dete" ; @@ -3117,42 +3119,42 @@ oper fare_52 : Str -> Verbo = \fare -> Indi Pres Pl P1 => f_ + "acciamo" ; Indi Pres Pl P2 => f_ + "ate" ; Indi Pres Pl P3 => f_ + "anno" ; - Indi Imperf Sg P1 => f_ + "acevo" ; - Indi Imperf Sg P2 => f_ + "acevi" ; - Indi Imperf Sg P3 => f_ + "aceva" ; - Indi Imperf Pl P1 => f_ + "acevamo" ; - Indi Imperf Pl P2 => f_ + "acevate" ; - Indi Imperf Pl P3 => f_ + "acevano" ; - Pass Sg P1 => f_ + "eci" ; - Pass Sg P2 => f_ + "acesti" ; - Pass Sg P3 => f_ + "ece" ; - Pass Pl P1 => f_ + "acemmo" ; - Pass Pl P2 => f_ + "aceste" ; - Pass Pl P3 => f_ + "ecero" ; - Fut Sg P1 => f_ + "arò" ; - Fut Sg P2 => f_ + "arai" ; - Fut Sg P3 => f_ + "arà" ; - Fut Pl P1 => f_ + "aremo" ; - Fut Pl P2 => f_ + "arete" ; - Fut Pl P3 => f_ + "aranno" ; + Indi Imperf Sg P1 => f_ + "acevo" ; --# notpresent + Indi Imperf Sg P2 => f_ + "acevi" ; --# notpresent + Indi Imperf Sg P3 => f_ + "aceva" ; --# notpresent + Indi Imperf Pl P1 => f_ + "acevamo" ; --# notpresent + Indi Imperf Pl P2 => f_ + "acevate" ; --# notpresent + Indi Imperf Pl P3 => f_ + "acevano" ; --# notpresent + Pass Sg P1 => f_ + "eci" ; --# notpresent + Pass Sg P2 => f_ + "acesti" ; --# notpresent + Pass Sg P3 => f_ + "ece" ; --# notpresent + Pass Pl P1 => f_ + "acemmo" ; --# notpresent + Pass Pl P2 => f_ + "aceste" ; --# notpresent + Pass Pl P3 => f_ + "ecero" ; --# notpresent + Fut Sg P1 => f_ + "arò" ; --# notpresent + Fut Sg P2 => f_ + "arai" ; --# notpresent + Fut Sg P3 => f_ + "arà" ; --# notpresent + Fut Pl P1 => f_ + "aremo" ; --# notpresent + Fut Pl P2 => f_ + "arete" ; --# notpresent + Fut Pl P3 => f_ + "aranno" ; --# notpresent Cong Pres Sg P1 => f_ + "accia" ; Cong Pres Sg P2 => f_ + "accia" ; Cong Pres Sg P3 => f_ + "accia" ; Cong Pres Pl P1 => f_ + "acciamo" ; Cong Pres Pl P2 => f_ + "acciate" ; Cong Pres Pl P3 => f_ + "acciano" ; - Cong Imperf Sg P1 => f_ + "acessi" ; - Cong Imperf Sg P2 => f_ + "acessi" ; - Cong Imperf Sg P3 => f_ + "acesse" ; - Cong Imperf Pl P1 => f_ + "acessimo" ; - Cong Imperf Pl P2 => f_ + "aceste" ; - Cong Imperf Pl P3 => f_ + "acessero" ; - Cond Sg P1 => f_ + "arei" ; - Cond Sg P2 => f_ + "aresti" ; - Cond Sg P3 => f_ + "arebbe" ; - Cond Pl P1 => f_ + "aremmo" ; - Cond Pl P2 => f_ + "areste" ; - Cond Pl P3 => f_ + "arebbero" ; + Cong Imperf Sg P1 => f_ + "acessi" ; --# notpresent + Cong Imperf Sg P2 => f_ + "acessi" ; --# notpresent + Cong Imperf Sg P3 => f_ + "acesse" ; --# notpresent + Cong Imperf Pl P1 => f_ + "acessimo" ; --# notpresent + Cong Imperf Pl P2 => f_ + "aceste" ; --# notpresent + Cong Imperf Pl P3 => f_ + "acessero" ; --# notpresent + Cond Sg P1 => f_ + "arei" ; --# notpresent + Cond Sg P2 => f_ + "aresti" ; --# notpresent + Cond Sg P3 => f_ + "arebbe" ; --# notpresent + Cond Pl P1 => f_ + "aremmo" ; --# notpresent + Cond Pl P2 => f_ + "areste" ; --# notpresent + Cond Pl P3 => f_ + "arebbero" ; --# notpresent Imper SgP2 => f_ + "ai" ; Imper PlP1 => f_ + "acciamo" ; Imper PlP2 => f_ + "ate" ; @@ -3179,42 +3181,42 @@ oper flettere_53 : Str -> Verbo = \flettere -> Indi Pres Pl P1 => fle_ + "ttiamo" ; Indi Pres Pl P2 => fle_ + "ttete" ; Indi Pres Pl P3 => fle_ + "ttono" ; - Indi Imperf Sg P1 => fle_ + "ttevo" ; - Indi Imperf Sg P2 => fle_ + "ttevi" ; - Indi Imperf Sg P3 => fle_ + "tteva" ; - Indi Imperf Pl P1 => fle_ + "ttevamo" ; - Indi Imperf Pl P2 => fle_ + "ttevate" ; - Indi Imperf Pl P3 => fle_ + "ttevano" ; - Pass Sg P1 => fle_ + "ssi" ; - Pass Sg P2 => fle_ + "ttesti" ; - Pass Sg P3 => fle_ + "sse" ; - Pass Pl P1 => fle_ + "ttemmo" ; - Pass Pl P2 => fle_ + "tteste" ; - Pass Pl P3 => fle_ + "ssero" ; - Fut Sg P1 => fle_ + "tterò" ; - Fut Sg P2 => fle_ + "tterai" ; - Fut Sg P3 => fle_ + "tterà" ; - Fut Pl P1 => fle_ + "tteremo" ; - Fut Pl P2 => fle_ + "tterete" ; - Fut Pl P3 => fle_ + "tteranno" ; + Indi Imperf Sg P1 => fle_ + "ttevo" ; --# notpresent + Indi Imperf Sg P2 => fle_ + "ttevi" ; --# notpresent + Indi Imperf Sg P3 => fle_ + "tteva" ; --# notpresent + Indi Imperf Pl P1 => fle_ + "ttevamo" ; --# notpresent + Indi Imperf Pl P2 => fle_ + "ttevate" ; --# notpresent + Indi Imperf Pl P3 => fle_ + "ttevano" ; --# notpresent + Pass Sg P1 => fle_ + "ssi" ; --# notpresent + Pass Sg P2 => fle_ + "ttesti" ; --# notpresent + Pass Sg P3 => fle_ + "sse" ; --# notpresent + Pass Pl P1 => fle_ + "ttemmo" ; --# notpresent + Pass Pl P2 => fle_ + "tteste" ; --# notpresent + Pass Pl P3 => fle_ + "ssero" ; --# notpresent + Fut Sg P1 => fle_ + "tterò" ; --# notpresent + Fut Sg P2 => fle_ + "tterai" ; --# notpresent + Fut Sg P3 => fle_ + "tterà" ; --# notpresent + Fut Pl P1 => fle_ + "tteremo" ; --# notpresent + Fut Pl P2 => fle_ + "tterete" ; --# notpresent + Fut Pl P3 => fle_ + "tteranno" ; --# notpresent Cong Pres Sg P1 => fle_ + "tta" ; Cong Pres Sg P2 => fle_ + "tta" ; Cong Pres Sg P3 => fle_ + "tta" ; Cong Pres Pl P1 => fle_ + "ttiamo" ; Cong Pres Pl P2 => fle_ + "ttiate" ; Cong Pres Pl P3 => fle_ + "ttano" ; - Cong Imperf Sg P1 => fle_ + "ttessi" ; - Cong Imperf Sg P2 => fle_ + "ttessi" ; - Cong Imperf Sg P3 => fle_ + "ttesse" ; - Cong Imperf Pl P1 => fle_ + "ttessimo" ; - Cong Imperf Pl P2 => fle_ + "tteste" ; - Cong Imperf Pl P3 => fle_ + "ttessero" ; - Cond Sg P1 => fle_ + "tterei" ; - Cond Sg P2 => fle_ + "tteresti" ; - Cond Sg P3 => fle_ + "tterebbe" ; - Cond Pl P1 => fle_ + "tteremmo" ; - Cond Pl P2 => fle_ + "ttereste" ; - Cond Pl P3 => fle_ + "tterebbero" ; + Cong Imperf Sg P1 => fle_ + "ttessi" ; --# notpresent + Cong Imperf Sg P2 => fle_ + "ttessi" ; --# notpresent + Cong Imperf Sg P3 => fle_ + "ttesse" ; --# notpresent + Cong Imperf Pl P1 => fle_ + "ttessimo" ; --# notpresent + Cong Imperf Pl P2 => fle_ + "tteste" ; --# notpresent + Cong Imperf Pl P3 => fle_ + "ttessero" ; --# notpresent + Cond Sg P1 => fle_ + "tterei" ; --# notpresent + Cond Sg P2 => fle_ + "tteresti" ; --# notpresent + Cond Sg P3 => fle_ + "tterebbe" ; --# notpresent + Cond Pl P1 => fle_ + "tteremmo" ; --# notpresent + Cond Pl P2 => fle_ + "ttereste" ; --# notpresent + Cond Pl P3 => fle_ + "tterebbero" ; --# notpresent Imper SgP2 => fle_ + "tti" ; Imper PlP1 => fle_ + "ttiamo" ; Imper PlP2 => fle_ + "ttete" ; @@ -3241,42 +3243,42 @@ oper fondere_54 : Str -> Verbo = \fondere -> Indi Pres Pl P1 => f_ + "ondiamo" ; Indi Pres Pl P2 => f_ + "ondete" ; Indi Pres Pl P3 => f_ + "ondono" ; - Indi Imperf Sg P1 => f_ + "ondevo" ; - Indi Imperf Sg P2 => f_ + "ondevi" ; - Indi Imperf Sg P3 => f_ + "ondeva" ; - Indi Imperf Pl P1 => f_ + "ondevamo" ; - Indi Imperf Pl P2 => f_ + "ondevate" ; - Indi Imperf Pl P3 => f_ + "ondevano" ; - Pass Sg P1 => f_ + "usi" ; - Pass Sg P2 => f_ + "ondesti" ; - Pass Sg P3 => f_ + "use" ; - Pass Pl P1 => f_ + "ondemmo" ; - Pass Pl P2 => f_ + "ondeste" ; - Pass Pl P3 => f_ + "usero" ; - Fut Sg P1 => f_ + "onderò" ; - Fut Sg P2 => f_ + "onderai" ; - Fut Sg P3 => f_ + "onderà" ; - Fut Pl P1 => f_ + "onderemo" ; - Fut Pl P2 => f_ + "onderete" ; - Fut Pl P3 => f_ + "onderanno" ; + Indi Imperf Sg P1 => f_ + "ondevo" ; --# notpresent + Indi Imperf Sg P2 => f_ + "ondevi" ; --# notpresent + Indi Imperf Sg P3 => f_ + "ondeva" ; --# notpresent + Indi Imperf Pl P1 => f_ + "ondevamo" ; --# notpresent + Indi Imperf Pl P2 => f_ + "ondevate" ; --# notpresent + Indi Imperf Pl P3 => f_ + "ondevano" ; --# notpresent + Pass Sg P1 => f_ + "usi" ; --# notpresent + Pass Sg P2 => f_ + "ondesti" ; --# notpresent + Pass Sg P3 => f_ + "use" ; --# notpresent + Pass Pl P1 => f_ + "ondemmo" ; --# notpresent + Pass Pl P2 => f_ + "ondeste" ; --# notpresent + Pass Pl P3 => f_ + "usero" ; --# notpresent + Fut Sg P1 => f_ + "onderò" ; --# notpresent + Fut Sg P2 => f_ + "onderai" ; --# notpresent + Fut Sg P3 => f_ + "onderà" ; --# notpresent + Fut Pl P1 => f_ + "onderemo" ; --# notpresent + Fut Pl P2 => f_ + "onderete" ; --# notpresent + Fut Pl P3 => f_ + "onderanno" ; --# notpresent Cong Pres Sg P1 => f_ + "onda" ; Cong Pres Sg P2 => f_ + "onda" ; Cong Pres Sg P3 => f_ + "onda" ; Cong Pres Pl P1 => f_ + "ondiamo" ; Cong Pres Pl P2 => f_ + "ondiate" ; Cong Pres Pl P3 => f_ + "ondano" ; - Cong Imperf Sg P1 => f_ + "ondessi" ; - Cong Imperf Sg P2 => f_ + "ondessi" ; - Cong Imperf Sg P3 => f_ + "ondesse" ; - Cong Imperf Pl P1 => f_ + "ondessimo" ; - Cong Imperf Pl P2 => f_ + "ondeste" ; - Cong Imperf Pl P3 => f_ + "ondessero" ; - Cond Sg P1 => f_ + "onderei" ; - Cond Sg P2 => f_ + "onderesti" ; - Cond Sg P3 => f_ + "onderebbe" ; - Cond Pl P1 => f_ + "onderemmo" ; - Cond Pl P2 => f_ + "ondereste" ; - Cond Pl P3 => f_ + "onderebbero" ; + Cong Imperf Sg P1 => f_ + "ondessi" ; --# notpresent + Cong Imperf Sg P2 => f_ + "ondessi" ; --# notpresent + Cong Imperf Sg P3 => f_ + "ondesse" ; --# notpresent + Cong Imperf Pl P1 => f_ + "ondessimo" ; --# notpresent + Cong Imperf Pl P2 => f_ + "ondeste" ; --# notpresent + Cong Imperf Pl P3 => f_ + "ondessero" ; --# notpresent + Cond Sg P1 => f_ + "onderei" ; --# notpresent + Cond Sg P2 => f_ + "onderesti" ; --# notpresent + Cond Sg P3 => f_ + "onderebbe" ; --# notpresent + Cond Pl P1 => f_ + "onderemmo" ; --# notpresent + Cond Pl P2 => f_ + "ondereste" ; --# notpresent + Cond Pl P3 => f_ + "onderebbero" ; --# notpresent Imper SgP2 => f_ + "ondi" ; Imper PlP1 => f_ + "ondiamo" ; Imper PlP2 => f_ + "ondete" ; @@ -3303,42 +3305,42 @@ oper giungere_55 : Str -> Verbo = \giungere -> Indi Pres Pl P1 => giun_ + "giamo" ; Indi Pres Pl P2 => giun_ + "gete" ; Indi Pres Pl P3 => giun_ + "gono" ; - Indi Imperf Sg P1 => giun_ + "gevo" ; - Indi Imperf Sg P2 => giun_ + "gevi" ; - Indi Imperf Sg P3 => giun_ + "geva" ; - Indi Imperf Pl P1 => giun_ + "gevamo" ; - Indi Imperf Pl P2 => giun_ + "gevate" ; - Indi Imperf Pl P3 => giun_ + "gevano" ; - Pass Sg P1 => giun_ + "si" ; - Pass Sg P2 => giun_ + "gesti" ; - Pass Sg P3 => giun_ + "se" ; - Pass Pl P1 => giun_ + "gemmo" ; - Pass Pl P2 => giun_ + "geste" ; - Pass Pl P3 => giun_ + "sero" ; - Fut Sg P1 => giun_ + "gerò" ; - Fut Sg P2 => giun_ + "gerai" ; - Fut Sg P3 => giun_ + "gerà" ; - Fut Pl P1 => giun_ + "geremo" ; - Fut Pl P2 => giun_ + "gerete" ; - Fut Pl P3 => giun_ + "geranno" ; + Indi Imperf Sg P1 => giun_ + "gevo" ; --# notpresent + Indi Imperf Sg P2 => giun_ + "gevi" ; --# notpresent + Indi Imperf Sg P3 => giun_ + "geva" ; --# notpresent + Indi Imperf Pl P1 => giun_ + "gevamo" ; --# notpresent + Indi Imperf Pl P2 => giun_ + "gevate" ; --# notpresent + Indi Imperf Pl P3 => giun_ + "gevano" ; --# notpresent + Pass Sg P1 => giun_ + "si" ; --# notpresent + Pass Sg P2 => giun_ + "gesti" ; --# notpresent + Pass Sg P3 => giun_ + "se" ; --# notpresent + Pass Pl P1 => giun_ + "gemmo" ; --# notpresent + Pass Pl P2 => giun_ + "geste" ; --# notpresent + Pass Pl P3 => giun_ + "sero" ; --# notpresent + Fut Sg P1 => giun_ + "gerò" ; --# notpresent + Fut Sg P2 => giun_ + "gerai" ; --# notpresent + Fut Sg P3 => giun_ + "gerà" ; --# notpresent + Fut Pl P1 => giun_ + "geremo" ; --# notpresent + Fut Pl P2 => giun_ + "gerete" ; --# notpresent + Fut Pl P3 => giun_ + "geranno" ; --# notpresent Cong Pres Sg P1 => giun_ + "ga" ; Cong Pres Sg P2 => giun_ + "ga" ; Cong Pres Sg P3 => giun_ + "ga" ; Cong Pres Pl P1 => giun_ + "giamo" ; Cong Pres Pl P2 => giun_ + "giate" ; Cong Pres Pl P3 => giun_ + "gano" ; - Cong Imperf Sg P1 => giun_ + "gessi" ; - Cong Imperf Sg P2 => giun_ + "gessi" ; - Cong Imperf Sg P3 => giun_ + "gesse" ; - Cong Imperf Pl P1 => giun_ + "gessimo" ; - Cong Imperf Pl P2 => giun_ + "geste" ; - Cong Imperf Pl P3 => giun_ + "gessero" ; - Cond Sg P1 => giun_ + "gerei" ; - Cond Sg P2 => giun_ + "geresti" ; - Cond Sg P3 => giun_ + "gerebbe" ; - Cond Pl P1 => giun_ + "geremmo" ; - Cond Pl P2 => giun_ + "gereste" ; - Cond Pl P3 => giun_ + "gerebbero" ; + Cong Imperf Sg P1 => giun_ + "gessi" ; --# notpresent + Cong Imperf Sg P2 => giun_ + "gessi" ; --# notpresent + Cong Imperf Sg P3 => giun_ + "gesse" ; --# notpresent + Cong Imperf Pl P1 => giun_ + "gessimo" ; --# notpresent + Cong Imperf Pl P2 => giun_ + "geste" ; --# notpresent + Cong Imperf Pl P3 => giun_ + "gessero" ; --# notpresent + Cond Sg P1 => giun_ + "gerei" ; --# notpresent + Cond Sg P2 => giun_ + "geresti" ; --# notpresent + Cond Sg P3 => giun_ + "gerebbe" ; --# notpresent + Cond Pl P1 => giun_ + "geremmo" ; --# notpresent + Cond Pl P2 => giun_ + "gereste" ; --# notpresent + Cond Pl P3 => giun_ + "gerebbero" ; --# notpresent Imper SgP2 => giun_ + "gi" ; Imper PlP1 => giun_ + "giamo" ; Imper PlP2 => giun_ + "gete" ; @@ -3365,42 +3367,42 @@ oper leggere_56 : Str -> Verbo = \leggere -> Indi Pres Pl P1 => le_ + "ggiamo" ; Indi Pres Pl P2 => le_ + "ggete" ; Indi Pres Pl P3 => le_ + "ggono" ; - Indi Imperf Sg P1 => le_ + "ggevo" ; - Indi Imperf Sg P2 => le_ + "ggevi" ; - Indi Imperf Sg P3 => le_ + "ggeva" ; - Indi Imperf Pl P1 => le_ + "ggevamo" ; - Indi Imperf Pl P2 => le_ + "ggevate" ; - Indi Imperf Pl P3 => le_ + "ggevano" ; - Pass Sg P1 => le_ + "ssi" ; - Pass Sg P2 => le_ + "ggesti" ; - Pass Sg P3 => le_ + "sse" ; - Pass Pl P1 => le_ + "ggemmo" ; - Pass Pl P2 => le_ + "ggeste" ; - Pass Pl P3 => le_ + "ssero" ; - Fut Sg P1 => le_ + "ggerò" ; - Fut Sg P2 => le_ + "ggerai" ; - Fut Sg P3 => le_ + "ggerà" ; - Fut Pl P1 => le_ + "ggeremo" ; - Fut Pl P2 => le_ + "ggerete" ; - Fut Pl P3 => le_ + "ggeranno" ; + Indi Imperf Sg P1 => le_ + "ggevo" ; --# notpresent + Indi Imperf Sg P2 => le_ + "ggevi" ; --# notpresent + Indi Imperf Sg P3 => le_ + "ggeva" ; --# notpresent + Indi Imperf Pl P1 => le_ + "ggevamo" ; --# notpresent + Indi Imperf Pl P2 => le_ + "ggevate" ; --# notpresent + Indi Imperf Pl P3 => le_ + "ggevano" ; --# notpresent + Pass Sg P1 => le_ + "ssi" ; --# notpresent + Pass Sg P2 => le_ + "ggesti" ; --# notpresent + Pass Sg P3 => le_ + "sse" ; --# notpresent + Pass Pl P1 => le_ + "ggemmo" ; --# notpresent + Pass Pl P2 => le_ + "ggeste" ; --# notpresent + Pass Pl P3 => le_ + "ssero" ; --# notpresent + Fut Sg P1 => le_ + "ggerò" ; --# notpresent + Fut Sg P2 => le_ + "ggerai" ; --# notpresent + Fut Sg P3 => le_ + "ggerà" ; --# notpresent + Fut Pl P1 => le_ + "ggeremo" ; --# notpresent + Fut Pl P2 => le_ + "ggerete" ; --# notpresent + Fut Pl P3 => le_ + "ggeranno" ; --# notpresent Cong Pres Sg P1 => le_ + "gga" ; Cong Pres Sg P2 => le_ + "gga" ; Cong Pres Sg P3 => le_ + "gga" ; Cong Pres Pl P1 => le_ + "ggiamo" ; Cong Pres Pl P2 => le_ + "ggiate" ; Cong Pres Pl P3 => le_ + "ggano" ; - Cong Imperf Sg P1 => le_ + "ggessi" ; - Cong Imperf Sg P2 => le_ + "ggessi" ; - Cong Imperf Sg P3 => le_ + "ggesse" ; - Cong Imperf Pl P1 => le_ + "ggessimo" ; - Cong Imperf Pl P2 => le_ + "ggeste" ; - Cong Imperf Pl P3 => le_ + "ggessero" ; - Cond Sg P1 => le_ + "ggerei" ; - Cond Sg P2 => le_ + "ggeresti" ; - Cond Sg P3 => le_ + "ggerebbe" ; - Cond Pl P1 => le_ + "ggeremmo" ; - Cond Pl P2 => le_ + "ggereste" ; - Cond Pl P3 => le_ + "ggerebbero" ; + Cong Imperf Sg P1 => le_ + "ggessi" ; --# notpresent + Cong Imperf Sg P2 => le_ + "ggessi" ; --# notpresent + Cong Imperf Sg P3 => le_ + "ggesse" ; --# notpresent + Cong Imperf Pl P1 => le_ + "ggessimo" ; --# notpresent + Cong Imperf Pl P2 => le_ + "ggeste" ; --# notpresent + Cong Imperf Pl P3 => le_ + "ggessero" ; --# notpresent + Cond Sg P1 => le_ + "ggerei" ; --# notpresent + Cond Sg P2 => le_ + "ggeresti" ; --# notpresent + Cond Sg P3 => le_ + "ggerebbe" ; --# notpresent + Cond Pl P1 => le_ + "ggeremmo" ; --# notpresent + Cond Pl P2 => le_ + "ggereste" ; --# notpresent + Cond Pl P3 => le_ + "ggerebbero" ; --# notpresent Imper SgP2 => le_ + "ggi" ; Imper PlP1 => le_ + "ggiamo" ; Imper PlP2 => le_ + "ggete" ; @@ -3427,42 +3429,42 @@ oper mettere_57 : Str -> Verbo = \mettere -> Indi Pres Pl P1 => m_ + "ettiamo" ; Indi Pres Pl P2 => m_ + "ettete" ; Indi Pres Pl P3 => m_ + "ettono" ; - Indi Imperf Sg P1 => m_ + "ettevo" ; - Indi Imperf Sg P2 => m_ + "ettevi" ; - Indi Imperf Sg P3 => m_ + "etteva" ; - Indi Imperf Pl P1 => m_ + "ettevamo" ; - Indi Imperf Pl P2 => m_ + "ettevate" ; - Indi Imperf Pl P3 => m_ + "ettevano" ; - Pass Sg P1 => m_ + "isi" ; - Pass Sg P2 => m_ + "ettesti" ; - Pass Sg P3 => m_ + "ise" ; - Pass Pl P1 => m_ + "ettemmo" ; - Pass Pl P2 => m_ + "etteste" ; - Pass Pl P3 => m_ + "isero" ; - Fut Sg P1 => m_ + "etterò" ; - Fut Sg P2 => m_ + "etterai" ; - Fut Sg P3 => m_ + "etterà" ; - Fut Pl P1 => m_ + "etteremo" ; - Fut Pl P2 => m_ + "etterete" ; - Fut Pl P3 => m_ + "etteranno" ; + Indi Imperf Sg P1 => m_ + "ettevo" ; --# notpresent + Indi Imperf Sg P2 => m_ + "ettevi" ; --# notpresent + Indi Imperf Sg P3 => m_ + "etteva" ; --# notpresent + Indi Imperf Pl P1 => m_ + "ettevamo" ; --# notpresent + Indi Imperf Pl P2 => m_ + "ettevate" ; --# notpresent + Indi Imperf Pl P3 => m_ + "ettevano" ; --# notpresent + Pass Sg P1 => m_ + "isi" ; --# notpresent + Pass Sg P2 => m_ + "ettesti" ; --# notpresent + Pass Sg P3 => m_ + "ise" ; --# notpresent + Pass Pl P1 => m_ + "ettemmo" ; --# notpresent + Pass Pl P2 => m_ + "etteste" ; --# notpresent + Pass Pl P3 => m_ + "isero" ; --# notpresent + Fut Sg P1 => m_ + "etterò" ; --# notpresent + Fut Sg P2 => m_ + "etterai" ; --# notpresent + Fut Sg P3 => m_ + "etterà" ; --# notpresent + Fut Pl P1 => m_ + "etteremo" ; --# notpresent + Fut Pl P2 => m_ + "etterete" ; --# notpresent + Fut Pl P3 => m_ + "etteranno" ; --# notpresent Cong Pres Sg P1 => m_ + "etta" ; Cong Pres Sg P2 => m_ + "etta" ; Cong Pres Sg P3 => m_ + "etta" ; Cong Pres Pl P1 => m_ + "ettiamo" ; Cong Pres Pl P2 => m_ + "ettiate" ; Cong Pres Pl P3 => m_ + "ettano" ; - Cong Imperf Sg P1 => m_ + "ettessi" ; - Cong Imperf Sg P2 => m_ + "ettessi" ; - Cong Imperf Sg P3 => m_ + "ettesse" ; - Cong Imperf Pl P1 => m_ + "ettessimo" ; - Cong Imperf Pl P2 => m_ + "etteste" ; - Cong Imperf Pl P3 => m_ + "ettessero" ; - Cond Sg P1 => m_ + "etterei" ; - Cond Sg P2 => m_ + "etteresti" ; - Cond Sg P3 => m_ + "etterebbe" ; - Cond Pl P1 => m_ + "etteremmo" ; - Cond Pl P2 => m_ + "ettereste" ; - Cond Pl P3 => m_ + "etterebbero" ; + Cong Imperf Sg P1 => m_ + "ettessi" ; --# notpresent + Cong Imperf Sg P2 => m_ + "ettessi" ; --# notpresent + Cong Imperf Sg P3 => m_ + "ettesse" ; --# notpresent + Cong Imperf Pl P1 => m_ + "ettessimo" ; --# notpresent + Cong Imperf Pl P2 => m_ + "etteste" ; --# notpresent + Cong Imperf Pl P3 => m_ + "ettessero" ; --# notpresent + Cond Sg P1 => m_ + "etterei" ; --# notpresent + Cond Sg P2 => m_ + "etteresti" ; --# notpresent + Cond Sg P3 => m_ + "etterebbe" ; --# notpresent + Cond Pl P1 => m_ + "etteremmo" ; --# notpresent + Cond Pl P2 => m_ + "ettereste" ; --# notpresent + Cond Pl P3 => m_ + "etterebbero" ; --# notpresent Imper SgP2 => m_ + "etti" ; Imper PlP1 => m_ + "ettiamo" ; Imper PlP2 => m_ + "ettete" ; @@ -3489,42 +3491,42 @@ oper muovere_58 : Str -> Verbo = \muovere -> Indi Pres Pl P1 => m_ + "uoviamo" ; Indi Pres Pl P2 => m_ + "uovete" ; Indi Pres Pl P3 => m_ + "uovono" ; - Indi Imperf Sg P1 => m_ + "uovevo" ; - Indi Imperf Sg P2 => m_ + "uovevi" ; - Indi Imperf Sg P3 => m_ + "uoveva" ; - Indi Imperf Pl P1 => m_ + "uovevamo" ; - Indi Imperf Pl P2 => m_ + "uovevate" ; - Indi Imperf Pl P3 => m_ + "uovevano" ; - Pass Sg P1 => m_ + "ossi" ; - Pass Sg P2 => m_ + "uovesti" ; - Pass Sg P3 => m_ + "osse" ; - Pass Pl P1 => m_ + "uovemmo" ; - Pass Pl P2 => m_ + "uoveste" ; - Pass Pl P3 => m_ + "ossero" ; - Fut Sg P1 => m_ + "uoverò" ; - Fut Sg P2 => m_ + "uoverai" ; - Fut Sg P3 => m_ + "uoverà" ; - Fut Pl P1 => m_ + "uoveremo" ; - Fut Pl P2 => m_ + "uoverete" ; - Fut Pl P3 => m_ + "uoveranno" ; + Indi Imperf Sg P1 => m_ + "uovevo" ; --# notpresent + Indi Imperf Sg P2 => m_ + "uovevi" ; --# notpresent + Indi Imperf Sg P3 => m_ + "uoveva" ; --# notpresent + Indi Imperf Pl P1 => m_ + "uovevamo" ; --# notpresent + Indi Imperf Pl P2 => m_ + "uovevate" ; --# notpresent + Indi Imperf Pl P3 => m_ + "uovevano" ; --# notpresent + Pass Sg P1 => m_ + "ossi" ; --# notpresent + Pass Sg P2 => m_ + "uovesti" ; --# notpresent + Pass Sg P3 => m_ + "osse" ; --# notpresent + Pass Pl P1 => m_ + "uovemmo" ; --# notpresent + Pass Pl P2 => m_ + "uoveste" ; --# notpresent + Pass Pl P3 => m_ + "ossero" ; --# notpresent + Fut Sg P1 => m_ + "uoverò" ; --# notpresent + Fut Sg P2 => m_ + "uoverai" ; --# notpresent + Fut Sg P3 => m_ + "uoverà" ; --# notpresent + Fut Pl P1 => m_ + "uoveremo" ; --# notpresent + Fut Pl P2 => m_ + "uoverete" ; --# notpresent + Fut Pl P3 => m_ + "uoveranno" ; --# notpresent Cong Pres Sg P1 => m_ + "uova" ; Cong Pres Sg P2 => m_ + "uova" ; Cong Pres Sg P3 => m_ + "uova" ; Cong Pres Pl P1 => m_ + "uoviamo" ; Cong Pres Pl P2 => m_ + "uoviate" ; Cong Pres Pl P3 => m_ + "uovano" ; - Cong Imperf Sg P1 => m_ + "uovessi" ; - Cong Imperf Sg P2 => m_ + "uovessi" ; - Cong Imperf Sg P3 => m_ + "uovesse" ; - Cong Imperf Pl P1 => m_ + "uovessimo" ; - Cong Imperf Pl P2 => m_ + "uoveste" ; - Cong Imperf Pl P3 => m_ + "uovessero" ; - Cond Sg P1 => m_ + "uoverei" ; - Cond Sg P2 => m_ + "uoveresti" ; - Cond Sg P3 => m_ + "uoverebbe" ; - Cond Pl P1 => m_ + "uoveremmo" ; - Cond Pl P2 => m_ + "uovereste" ; - Cond Pl P3 => m_ + "uoverebbero" ; + Cong Imperf Sg P1 => m_ + "uovessi" ; --# notpresent + Cong Imperf Sg P2 => m_ + "uovessi" ; --# notpresent + Cong Imperf Sg P3 => m_ + "uovesse" ; --# notpresent + Cong Imperf Pl P1 => m_ + "uovessimo" ; --# notpresent + Cong Imperf Pl P2 => m_ + "uoveste" ; --# notpresent + Cong Imperf Pl P3 => m_ + "uovessero" ; --# notpresent + Cond Sg P1 => m_ + "uoverei" ; --# notpresent + Cond Sg P2 => m_ + "uoveresti" ; --# notpresent + Cond Sg P3 => m_ + "uoverebbe" ; --# notpresent + Cond Pl P1 => m_ + "uoveremmo" ; --# notpresent + Cond Pl P2 => m_ + "uovereste" ; --# notpresent + Cond Pl P3 => m_ + "uoverebbero" ; --# notpresent Imper SgP2 => m_ + "uovi" ; Imper PlP1 => m_ + "uoviamo" ; Imper PlP2 => m_ + "uovete" ; @@ -3551,42 +3553,42 @@ oper nascere_59 : Str -> Verbo = \nascere -> Indi Pres Pl P1 => na_ + "sciamo" ; Indi Pres Pl P2 => na_ + "scete" ; Indi Pres Pl P3 => na_ + "scono" ; - Indi Imperf Sg P1 => na_ + "scevo" ; - Indi Imperf Sg P2 => na_ + "scevi" ; - Indi Imperf Sg P3 => na_ + "sceva" ; - Indi Imperf Pl P1 => na_ + "scevamo" ; - Indi Imperf Pl P2 => na_ + "scevate" ; - Indi Imperf Pl P3 => na_ + "scevano" ; - Pass Sg P1 => na_ + "cqui" ; - Pass Sg P2 => na_ + "scesti" ; - Pass Sg P3 => na_ + "cque" ; - Pass Pl P1 => na_ + "scemmo" ; - Pass Pl P2 => na_ + "sceste" ; - Pass Pl P3 => na_ + "cquero" ; - Fut Sg P1 => na_ + "scerò" ; - Fut Sg P2 => na_ + "scerai" ; - Fut Sg P3 => na_ + "scerà" ; - Fut Pl P1 => na_ + "sceremo" ; - Fut Pl P2 => na_ + "scerete" ; - Fut Pl P3 => na_ + "sceranno" ; + Indi Imperf Sg P1 => na_ + "scevo" ; --# notpresent + Indi Imperf Sg P2 => na_ + "scevi" ; --# notpresent + Indi Imperf Sg P3 => na_ + "sceva" ; --# notpresent + Indi Imperf Pl P1 => na_ + "scevamo" ; --# notpresent + Indi Imperf Pl P2 => na_ + "scevate" ; --# notpresent + Indi Imperf Pl P3 => na_ + "scevano" ; --# notpresent + Pass Sg P1 => na_ + "cqui" ; --# notpresent + Pass Sg P2 => na_ + "scesti" ; --# notpresent + Pass Sg P3 => na_ + "cque" ; --# notpresent + Pass Pl P1 => na_ + "scemmo" ; --# notpresent + Pass Pl P2 => na_ + "sceste" ; --# notpresent + Pass Pl P3 => na_ + "cquero" ; --# notpresent + Fut Sg P1 => na_ + "scerò" ; --# notpresent + Fut Sg P2 => na_ + "scerai" ; --# notpresent + Fut Sg P3 => na_ + "scerà" ; --# notpresent + Fut Pl P1 => na_ + "sceremo" ; --# notpresent + Fut Pl P2 => na_ + "scerete" ; --# notpresent + Fut Pl P3 => na_ + "sceranno" ; --# notpresent Cong Pres Sg P1 => na_ + "sca" ; Cong Pres Sg P2 => na_ + "sca" ; Cong Pres Sg P3 => na_ + "sca" ; Cong Pres Pl P1 => na_ + "sciamo" ; Cong Pres Pl P2 => na_ + "sciate" ; Cong Pres Pl P3 => na_ + "scano" ; - Cong Imperf Sg P1 => na_ + "scessi" ; - Cong Imperf Sg P2 => na_ + "scessi" ; - Cong Imperf Sg P3 => na_ + "scesse" ; - Cong Imperf Pl P1 => na_ + "scessimo" ; - Cong Imperf Pl P2 => na_ + "sceste" ; - Cong Imperf Pl P3 => na_ + "scessero" ; - Cond Sg P1 => na_ + "scerei" ; - Cond Sg P2 => na_ + "sceresti" ; - Cond Sg P3 => na_ + "scerebbe" ; - Cond Pl P1 => na_ + "sceremmo" ; - Cond Pl P2 => na_ + "scereste" ; - Cond Pl P3 => na_ + "scerebbero" ; + Cong Imperf Sg P1 => na_ + "scessi" ; --# notpresent + Cong Imperf Sg P2 => na_ + "scessi" ; --# notpresent + Cong Imperf Sg P3 => na_ + "scesse" ; --# notpresent + Cong Imperf Pl P1 => na_ + "scessimo" ; --# notpresent + Cong Imperf Pl P2 => na_ + "sceste" ; --# notpresent + Cong Imperf Pl P3 => na_ + "scessero" ; --# notpresent + Cond Sg P1 => na_ + "scerei" ; --# notpresent + Cond Sg P2 => na_ + "sceresti" ; --# notpresent + Cond Sg P3 => na_ + "scerebbe" ; --# notpresent + Cond Pl P1 => na_ + "sceremmo" ; --# notpresent + Cond Pl P2 => na_ + "scereste" ; --# notpresent + Cond Pl P3 => na_ + "scerebbero" ; --# notpresent Imper SgP2 => na_ + "sci" ; Imper PlP1 => na_ + "sciamo" ; Imper PlP2 => na_ + "scete" ; @@ -3613,42 +3615,42 @@ oper nuocere_60 : Str -> Verbo = \nuocere -> Indi Pres Pl P1 => n_ + "uociamo" ; Indi Pres Pl P2 => n_ + "uocete" ; Indi Pres Pl P3 => n_ + "uocciono" ; - Indi Imperf Sg P1 => n_ + "uocevo" ; - Indi Imperf Sg P2 => n_ + "uocevi" ; - Indi Imperf Sg P3 => n_ + "uoceva" ; - Indi Imperf Pl P1 => n_ + "uocevamo" ; - Indi Imperf Pl P2 => n_ + "uocevate" ; - Indi Imperf Pl P3 => n_ + "uocevano" ; - Pass Sg P1 => n_ + "ocqui" ; - Pass Sg P2 => n_ + "uocesti" ; - Pass Sg P3 => n_ + "ocque" ; - Pass Pl P1 => n_ + "uocemmo" ; - Pass Pl P2 => n_ + "uoceste" ; - Pass Pl P3 => n_ + "ocquero" ; - Fut Sg P1 => n_ + "uocerò" ; - Fut Sg P2 => n_ + "uocerai" ; - Fut Sg P3 => n_ + "uocerà" ; - Fut Pl P1 => n_ + "uoceremo" ; - Fut Pl P2 => n_ + "uocerete" ; - Fut Pl P3 => n_ + "uoceranno" ; + Indi Imperf Sg P1 => n_ + "uocevo" ; --# notpresent + Indi Imperf Sg P2 => n_ + "uocevi" ; --# notpresent + Indi Imperf Sg P3 => n_ + "uoceva" ; --# notpresent + Indi Imperf Pl P1 => n_ + "uocevamo" ; --# notpresent + Indi Imperf Pl P2 => n_ + "uocevate" ; --# notpresent + Indi Imperf Pl P3 => n_ + "uocevano" ; --# notpresent + Pass Sg P1 => n_ + "ocqui" ; --# notpresent + Pass Sg P2 => n_ + "uocesti" ; --# notpresent + Pass Sg P3 => n_ + "ocque" ; --# notpresent + Pass Pl P1 => n_ + "uocemmo" ; --# notpresent + Pass Pl P2 => n_ + "uoceste" ; --# notpresent + Pass Pl P3 => n_ + "ocquero" ; --# notpresent + Fut Sg P1 => n_ + "uocerò" ; --# notpresent + Fut Sg P2 => n_ + "uocerai" ; --# notpresent + Fut Sg P3 => n_ + "uocerà" ; --# notpresent + Fut Pl P1 => n_ + "uoceremo" ; --# notpresent + Fut Pl P2 => n_ + "uocerete" ; --# notpresent + Fut Pl P3 => n_ + "uoceranno" ; --# notpresent Cong Pres Sg P1 => n_ + "uoccia" ; Cong Pres Sg P2 => n_ + "uoccia" ; Cong Pres Sg P3 => n_ + "uoccia" ; Cong Pres Pl P1 => n_ + "uociamo" ; Cong Pres Pl P2 => n_ + "uociate" ; Cong Pres Pl P3 => n_ + "uocciano" ; - Cong Imperf Sg P1 => n_ + "uocessi" ; - Cong Imperf Sg P2 => n_ + "uocessi" ; - Cong Imperf Sg P3 => n_ + "uocesse" ; - Cong Imperf Pl P1 => n_ + "uocessimo" ; - Cong Imperf Pl P2 => n_ + "uoceste" ; - Cong Imperf Pl P3 => n_ + "uocessero" ; - Cond Sg P1 => n_ + "uocerei" ; - Cond Sg P2 => n_ + "uoceresti" ; - Cond Sg P3 => n_ + "uocerebbe" ; - Cond Pl P1 => n_ + "uoceremmo" ; - Cond Pl P2 => n_ + "uocereste" ; - Cond Pl P3 => n_ + "uocerebbero" ; + Cong Imperf Sg P1 => n_ + "uocessi" ; --# notpresent + Cong Imperf Sg P2 => n_ + "uocessi" ; --# notpresent + Cong Imperf Sg P3 => n_ + "uocesse" ; --# notpresent + Cong Imperf Pl P1 => n_ + "uocessimo" ; --# notpresent + Cong Imperf Pl P2 => n_ + "uoceste" ; --# notpresent + Cong Imperf Pl P3 => n_ + "uocessero" ; --# notpresent + Cond Sg P1 => n_ + "uocerei" ; --# notpresent + Cond Sg P2 => n_ + "uoceresti" ; --# notpresent + Cond Sg P3 => n_ + "uocerebbe" ; --# notpresent + Cond Pl P1 => n_ + "uoceremmo" ; --# notpresent + Cond Pl P2 => n_ + "uocereste" ; --# notpresent + Cond Pl P3 => n_ + "uocerebbero" ; --# notpresent Imper SgP2 => n_ + "uoci" ; Imper PlP1 => n_ + "uociamo" ; Imper PlP2 => n_ + "uocete" ; @@ -3675,42 +3677,42 @@ oper parere_61 : Str -> Verbo = \parere -> Indi Pres Pl P1 => pa_ + "riamo" ; Indi Pres Pl P2 => pa_ + "rete" ; Indi Pres Pl P3 => pa_ + "iono" ; - Indi Imperf Sg P1 => pa_ + "revo" ; - Indi Imperf Sg P2 => pa_ + "revi" ; - Indi Imperf Sg P3 => pa_ + "reva" ; - Indi Imperf Pl P1 => pa_ + "revamo" ; - Indi Imperf Pl P2 => pa_ + "revate" ; - Indi Imperf Pl P3 => pa_ + "revano" ; - Pass Sg P1 => pa_ + "rvi" ; - Pass Sg P2 => pa_ + "resti" ; - Pass Sg P3 => pa_ + "rve" ; - Pass Pl P1 => pa_ + "remmo" ; - Pass Pl P2 => pa_ + "reste" ; - Pass Pl P3 => pa_ + "rvero" ; - Fut Sg P1 => pa_ + "rrò" ; - Fut Sg P2 => pa_ + "rrai" ; - Fut Sg P3 => pa_ + "rrà" ; - Fut Pl P1 => pa_ + "rremo" ; - Fut Pl P2 => pa_ + "rrete" ; - Fut Pl P3 => pa_ + "rranno" ; + Indi Imperf Sg P1 => pa_ + "revo" ; --# notpresent + Indi Imperf Sg P2 => pa_ + "revi" ; --# notpresent + Indi Imperf Sg P3 => pa_ + "reva" ; --# notpresent + Indi Imperf Pl P1 => pa_ + "revamo" ; --# notpresent + Indi Imperf Pl P2 => pa_ + "revate" ; --# notpresent + Indi Imperf Pl P3 => pa_ + "revano" ; --# notpresent + Pass Sg P1 => pa_ + "rvi" ; --# notpresent + Pass Sg P2 => pa_ + "resti" ; --# notpresent + Pass Sg P3 => pa_ + "rve" ; --# notpresent + Pass Pl P1 => pa_ + "remmo" ; --# notpresent + Pass Pl P2 => pa_ + "reste" ; --# notpresent + Pass Pl P3 => pa_ + "rvero" ; --# notpresent + Fut Sg P1 => pa_ + "rrò" ; --# notpresent + Fut Sg P2 => pa_ + "rrai" ; --# notpresent + Fut Sg P3 => pa_ + "rrà" ; --# notpresent + Fut Pl P1 => pa_ + "rremo" ; --# notpresent + Fut Pl P2 => pa_ + "rrete" ; --# notpresent + Fut Pl P3 => pa_ + "rranno" ; --# notpresent Cong Pres Sg P1 => pa_ + "ia" ; Cong Pres Sg P2 => pa_ + "ia" ; Cong Pres Sg P3 => pa_ + "ia" ; Cong Pres Pl P1 => pa_ + "riamo" ; Cong Pres Pl P2 => pa_ + "riate" ; Cong Pres Pl P3 => pa_ + "iano" ; - Cong Imperf Sg P1 => pa_ + "ressi" ; - Cong Imperf Sg P2 => pa_ + "ressi" ; - Cong Imperf Sg P3 => pa_ + "resse" ; - Cong Imperf Pl P1 => pa_ + "ressimo" ; - Cong Imperf Pl P2 => pa_ + "reste" ; - Cong Imperf Pl P3 => pa_ + "ressero" ; - Cond Sg P1 => pa_ + "rrei" ; - Cond Sg P2 => pa_ + "rresti" ; - Cond Sg P3 => pa_ + "rrebbe" ; - Cond Pl P1 => pa_ + "rremmo" ; - Cond Pl P2 => pa_ + "rreste" ; - Cond Pl P3 => pa_ + "rrebbero" ; + Cong Imperf Sg P1 => pa_ + "ressi" ; --# notpresent + Cong Imperf Sg P2 => pa_ + "ressi" ; --# notpresent + Cong Imperf Sg P3 => pa_ + "resse" ; --# notpresent + Cong Imperf Pl P1 => pa_ + "ressimo" ; --# notpresent + Cong Imperf Pl P2 => pa_ + "reste" ; --# notpresent + Cong Imperf Pl P3 => pa_ + "ressero" ; --# notpresent + Cond Sg P1 => pa_ + "rrei" ; --# notpresent + Cond Sg P2 => pa_ + "rresti" ; --# notpresent + Cond Sg P3 => pa_ + "rrebbe" ; --# notpresent + Cond Pl P1 => pa_ + "rremmo" ; --# notpresent + Cond Pl P2 => pa_ + "rreste" ; --# notpresent + Cond Pl P3 => pa_ + "rrebbero" ; --# notpresent Imper SgP2 => variants {} ; Imper PlP1 => variants {} ; Imper PlP2 => variants {} ; @@ -3737,42 +3739,42 @@ oper perdere_62 : Str -> Verbo = \perdere -> Indi Pres Pl P1 => per_ + "diamo" ; Indi Pres Pl P2 => per_ + "dete" ; Indi Pres Pl P3 => per_ + "dono" ; - Indi Imperf Sg P1 => per_ + "devo" ; - Indi Imperf Sg P2 => per_ + "devi" ; - Indi Imperf Sg P3 => per_ + "deva" ; - Indi Imperf Pl P1 => per_ + "devamo" ; - Indi Imperf Pl P2 => per_ + "devate" ; - Indi Imperf Pl P3 => per_ + "devano" ; - Pass Sg P1 => per_ + "si" ; - Pass Sg P2 => per_ + "desti" ; - Pass Sg P3 => per_ + "se" ; - Pass Pl P1 => per_ + "demmo" ; - Pass Pl P2 => per_ + "deste" ; - Pass Pl P3 => per_ + "sero" ; - Fut Sg P1 => per_ + "derò" ; - Fut Sg P2 => per_ + "derai" ; - Fut Sg P3 => per_ + "derà" ; - Fut Pl P1 => per_ + "deremo" ; - Fut Pl P2 => per_ + "derete" ; - Fut Pl P3 => per_ + "deranno" ; + Indi Imperf Sg P1 => per_ + "devo" ; --# notpresent + Indi Imperf Sg P2 => per_ + "devi" ; --# notpresent + Indi Imperf Sg P3 => per_ + "deva" ; --# notpresent + Indi Imperf Pl P1 => per_ + "devamo" ; --# notpresent + Indi Imperf Pl P2 => per_ + "devate" ; --# notpresent + Indi Imperf Pl P3 => per_ + "devano" ; --# notpresent + Pass Sg P1 => per_ + "si" ; --# notpresent + Pass Sg P2 => per_ + "desti" ; --# notpresent + Pass Sg P3 => per_ + "se" ; --# notpresent + Pass Pl P1 => per_ + "demmo" ; --# notpresent + Pass Pl P2 => per_ + "deste" ; --# notpresent + Pass Pl P3 => per_ + "sero" ; --# notpresent + Fut Sg P1 => per_ + "derò" ; --# notpresent + Fut Sg P2 => per_ + "derai" ; --# notpresent + Fut Sg P3 => per_ + "derà" ; --# notpresent + Fut Pl P1 => per_ + "deremo" ; --# notpresent + Fut Pl P2 => per_ + "derete" ; --# notpresent + Fut Pl P3 => per_ + "deranno" ; --# notpresent Cong Pres Sg P1 => per_ + "da" ; Cong Pres Sg P2 => per_ + "da" ; Cong Pres Sg P3 => per_ + "da" ; Cong Pres Pl P1 => per_ + "diamo" ; Cong Pres Pl P2 => per_ + "diate" ; Cong Pres Pl P3 => per_ + "dano" ; - Cong Imperf Sg P1 => per_ + "dessi" ; - Cong Imperf Sg P2 => per_ + "dessi" ; - Cong Imperf Sg P3 => per_ + "desse" ; - Cong Imperf Pl P1 => per_ + "dessimo" ; - Cong Imperf Pl P2 => per_ + "deste" ; - Cong Imperf Pl P3 => per_ + "dessero" ; - Cond Sg P1 => per_ + "derei" ; - Cond Sg P2 => per_ + "deresti" ; - Cond Sg P3 => per_ + "derebbe" ; - Cond Pl P1 => per_ + "deremmo" ; - Cond Pl P2 => per_ + "dereste" ; - Cond Pl P3 => per_ + "derebbero" ; + Cong Imperf Sg P1 => per_ + "dessi" ; --# notpresent + Cong Imperf Sg P2 => per_ + "dessi" ; --# notpresent + Cong Imperf Sg P3 => per_ + "desse" ; --# notpresent + Cong Imperf Pl P1 => per_ + "dessimo" ; --# notpresent + Cong Imperf Pl P2 => per_ + "deste" ; --# notpresent + Cong Imperf Pl P3 => per_ + "dessero" ; --# notpresent + Cond Sg P1 => per_ + "derei" ; --# notpresent + Cond Sg P2 => per_ + "deresti" ; --# notpresent + Cond Sg P3 => per_ + "derebbe" ; --# notpresent + Cond Pl P1 => per_ + "deremmo" ; --# notpresent + Cond Pl P2 => per_ + "dereste" ; --# notpresent + Cond Pl P3 => per_ + "derebbero" ; --# notpresent Imper SgP2 => per_ + "di" ; Imper PlP1 => per_ + "diamo" ; Imper PlP2 => per_ + "dete" ; @@ -3799,42 +3801,42 @@ oper persuadere_63 : Str -> Verbo = \persuadere -> Indi Pres Pl P1 => persua_ + "diamo" ; Indi Pres Pl P2 => persua_ + "dete" ; Indi Pres Pl P3 => persua_ + "dono" ; - Indi Imperf Sg P1 => persua_ + "devo" ; - Indi Imperf Sg P2 => persua_ + "devi" ; - Indi Imperf Sg P3 => persua_ + "deva" ; - Indi Imperf Pl P1 => persua_ + "devamo" ; - Indi Imperf Pl P2 => persua_ + "devate" ; - Indi Imperf Pl P3 => persua_ + "devano" ; - Pass Sg P1 => persua_ + "si" ; - Pass Sg P2 => persua_ + "desti" ; - Pass Sg P3 => persua_ + "se" ; - Pass Pl P1 => persua_ + "demmo" ; - Pass Pl P2 => persua_ + "deste" ; - Pass Pl P3 => persua_ + "sero" ; - Fut Sg P1 => persua_ + "derò" ; - Fut Sg P2 => persua_ + "derai" ; - Fut Sg P3 => persua_ + "derà" ; - Fut Pl P1 => persua_ + "deremo" ; - Fut Pl P2 => persua_ + "derete" ; - Fut Pl P3 => persua_ + "deranno" ; + Indi Imperf Sg P1 => persua_ + "devo" ; --# notpresent + Indi Imperf Sg P2 => persua_ + "devi" ; --# notpresent + Indi Imperf Sg P3 => persua_ + "deva" ; --# notpresent + Indi Imperf Pl P1 => persua_ + "devamo" ; --# notpresent + Indi Imperf Pl P2 => persua_ + "devate" ; --# notpresent + Indi Imperf Pl P3 => persua_ + "devano" ; --# notpresent + Pass Sg P1 => persua_ + "si" ; --# notpresent + Pass Sg P2 => persua_ + "desti" ; --# notpresent + Pass Sg P3 => persua_ + "se" ; --# notpresent + Pass Pl P1 => persua_ + "demmo" ; --# notpresent + Pass Pl P2 => persua_ + "deste" ; --# notpresent + Pass Pl P3 => persua_ + "sero" ; --# notpresent + Fut Sg P1 => persua_ + "derò" ; --# notpresent + Fut Sg P2 => persua_ + "derai" ; --# notpresent + Fut Sg P3 => persua_ + "derà" ; --# notpresent + Fut Pl P1 => persua_ + "deremo" ; --# notpresent + Fut Pl P2 => persua_ + "derete" ; --# notpresent + Fut Pl P3 => persua_ + "deranno" ; --# notpresent Cong Pres Sg P1 => persua_ + "da" ; Cong Pres Sg P2 => persua_ + "da" ; Cong Pres Sg P3 => persua_ + "da" ; Cong Pres Pl P1 => persua_ + "diamo" ; Cong Pres Pl P2 => persua_ + "diate" ; Cong Pres Pl P3 => persua_ + "dano" ; - Cong Imperf Sg P1 => persua_ + "dessi" ; - Cong Imperf Sg P2 => persua_ + "dessi" ; - Cong Imperf Sg P3 => persua_ + "desse" ; - Cong Imperf Pl P1 => persua_ + "dessimo" ; - Cong Imperf Pl P2 => persua_ + "deste" ; - Cong Imperf Pl P3 => persua_ + "dessero" ; - Cond Sg P1 => persua_ + "derei" ; - Cond Sg P2 => persua_ + "deresti" ; - Cond Sg P3 => persua_ + "derebbe" ; - Cond Pl P1 => persua_ + "deremmo" ; - Cond Pl P2 => persua_ + "dereste" ; - Cond Pl P3 => persua_ + "derebbero" ; + Cong Imperf Sg P1 => persua_ + "dessi" ; --# notpresent + Cong Imperf Sg P2 => persua_ + "dessi" ; --# notpresent + Cong Imperf Sg P3 => persua_ + "desse" ; --# notpresent + Cong Imperf Pl P1 => persua_ + "dessimo" ; --# notpresent + Cong Imperf Pl P2 => persua_ + "deste" ; --# notpresent + Cong Imperf Pl P3 => persua_ + "dessero" ; --# notpresent + Cond Sg P1 => persua_ + "derei" ; --# notpresent + Cond Sg P2 => persua_ + "deresti" ; --# notpresent + Cond Sg P3 => persua_ + "derebbe" ; --# notpresent + Cond Pl P1 => persua_ + "deremmo" ; --# notpresent + Cond Pl P2 => persua_ + "dereste" ; --# notpresent + Cond Pl P3 => persua_ + "derebbero" ; --# notpresent Imper SgP2 => persua_ + "di" ; Imper PlP1 => persua_ + "diamo" ; Imper PlP2 => persua_ + "dete" ; @@ -3861,42 +3863,42 @@ oper piacere_64 : Str -> Verbo = \piacerecere -> Indi Pres Pl P1 => piacerec_ + "iamo" ; Indi Pres Pl P2 => piacerec_ + "ete" ; Indi Pres Pl P3 => piacerec_ + "ciono" ; - Indi Imperf Sg P1 => piacerec_ + "evo" ; - Indi Imperf Sg P2 => piacerec_ + "evi" ; - Indi Imperf Sg P3 => piacerec_ + "eva" ; - Indi Imperf Pl P1 => piacerec_ + "evamo" ; - Indi Imperf Pl P2 => piacerec_ + "evate" ; - Indi Imperf Pl P3 => piacerec_ + "evano" ; - Pass Sg P1 => piacerec_ + "qui" ; - Pass Sg P2 => piacerec_ + "esti" ; - Pass Sg P3 => piacerec_ + "que" ; - Pass Pl P1 => piacerec_ + "emmo" ; - Pass Pl P2 => piacerec_ + "este" ; - Pass Pl P3 => piacerec_ + "quero" ; - Fut Sg P1 => piacerec_ + "erò" ; - Fut Sg P2 => piacerec_ + "erai" ; - Fut Sg P3 => piacerec_ + "erà" ; - Fut Pl P1 => piacerec_ + "eremo" ; - Fut Pl P2 => piacerec_ + "erete" ; - Fut Pl P3 => piacerec_ + "eranno" ; + Indi Imperf Sg P1 => piacerec_ + "evo" ; --# notpresent + Indi Imperf Sg P2 => piacerec_ + "evi" ; --# notpresent + Indi Imperf Sg P3 => piacerec_ + "eva" ; --# notpresent + Indi Imperf Pl P1 => piacerec_ + "evamo" ; --# notpresent + Indi Imperf Pl P2 => piacerec_ + "evate" ; --# notpresent + Indi Imperf Pl P3 => piacerec_ + "evano" ; --# notpresent + Pass Sg P1 => piacerec_ + "qui" ; --# notpresent + Pass Sg P2 => piacerec_ + "esti" ; --# notpresent + Pass Sg P3 => piacerec_ + "que" ; --# notpresent + Pass Pl P1 => piacerec_ + "emmo" ; --# notpresent + Pass Pl P2 => piacerec_ + "este" ; --# notpresent + Pass Pl P3 => piacerec_ + "quero" ; --# notpresent + Fut Sg P1 => piacerec_ + "erò" ; --# notpresent + Fut Sg P2 => piacerec_ + "erai" ; --# notpresent + Fut Sg P3 => piacerec_ + "erà" ; --# notpresent + Fut Pl P1 => piacerec_ + "eremo" ; --# notpresent + Fut Pl P2 => piacerec_ + "erete" ; --# notpresent + Fut Pl P3 => piacerec_ + "eranno" ; --# notpresent Cong Pres Sg P1 => piacerec_ + "cia" ; Cong Pres Sg P2 => piacerec_ + "cia" ; Cong Pres Sg P3 => piacerec_ + "cia" ; Cong Pres Pl P1 => piacerec_ + "iamo" ; Cong Pres Pl P2 => piacerec_ + "iate" ; Cong Pres Pl P3 => piacerec_ + "ciano" ; - Cong Imperf Sg P1 => piacerec_ + "essi" ; - Cong Imperf Sg P2 => piacerec_ + "essi" ; - Cong Imperf Sg P3 => piacerec_ + "esse" ; - Cong Imperf Pl P1 => piacerec_ + "essimo" ; - Cong Imperf Pl P2 => piacerec_ + "este" ; - Cong Imperf Pl P3 => piacerec_ + "essero" ; - Cond Sg P1 => piacerec_ + "erei" ; - Cond Sg P2 => piacerec_ + "eresti" ; - Cond Sg P3 => piacerec_ + "erebbe" ; - Cond Pl P1 => piacerec_ + "eremmo" ; - Cond Pl P2 => piacerec_ + "ereste" ; - Cond Pl P3 => piacerec_ + "erebbero" ; + Cong Imperf Sg P1 => piacerec_ + "essi" ; --# notpresent + Cong Imperf Sg P2 => piacerec_ + "essi" ; --# notpresent + Cong Imperf Sg P3 => piacerec_ + "esse" ; --# notpresent + Cong Imperf Pl P1 => piacerec_ + "essimo" ; --# notpresent + Cong Imperf Pl P2 => piacerec_ + "este" ; --# notpresent + Cong Imperf Pl P3 => piacerec_ + "essero" ; --# notpresent + Cond Sg P1 => piacerec_ + "erei" ; --# notpresent + Cond Sg P2 => piacerec_ + "eresti" ; --# notpresent + Cond Sg P3 => piacerec_ + "erebbe" ; --# notpresent + Cond Pl P1 => piacerec_ + "eremmo" ; --# notpresent + Cond Pl P2 => piacerec_ + "ereste" ; --# notpresent + Cond Pl P3 => piacerec_ + "erebbero" ; --# notpresent Imper SgP2 => piacerec_ + "i" ; Imper PlP1 => piacerec_ + "iamo" ; Imper PlP2 => piacerec_ + "ete" ; @@ -3923,42 +3925,42 @@ oper piangere_65 : Str -> Verbo = \piangere -> Indi Pres Pl P1 => pian_ + "giamo" ; Indi Pres Pl P2 => pian_ + "gete" ; Indi Pres Pl P3 => pian_ + "gono" ; - Indi Imperf Sg P1 => pian_ + "gevo" ; - Indi Imperf Sg P2 => pian_ + "gevi" ; - Indi Imperf Sg P3 => pian_ + "geva" ; - Indi Imperf Pl P1 => pian_ + "gevamo" ; - Indi Imperf Pl P2 => pian_ + "gevate" ; - Indi Imperf Pl P3 => pian_ + "gevano" ; - Pass Sg P1 => pian_ + "si" ; - Pass Sg P2 => pian_ + "gesti" ; - Pass Sg P3 => pian_ + "se" ; - Pass Pl P1 => pian_ + "gemmo" ; - Pass Pl P2 => pian_ + "geste" ; - Pass Pl P3 => pian_ + "sero" ; - Fut Sg P1 => pian_ + "gerò" ; - Fut Sg P2 => pian_ + "gerai" ; - Fut Sg P3 => pian_ + "gerà" ; - Fut Pl P1 => pian_ + "geremo" ; - Fut Pl P2 => pian_ + "gerete" ; - Fut Pl P3 => pian_ + "geranno" ; + Indi Imperf Sg P1 => pian_ + "gevo" ; --# notpresent + Indi Imperf Sg P2 => pian_ + "gevi" ; --# notpresent + Indi Imperf Sg P3 => pian_ + "geva" ; --# notpresent + Indi Imperf Pl P1 => pian_ + "gevamo" ; --# notpresent + Indi Imperf Pl P2 => pian_ + "gevate" ; --# notpresent + Indi Imperf Pl P3 => pian_ + "gevano" ; --# notpresent + Pass Sg P1 => pian_ + "si" ; --# notpresent + Pass Sg P2 => pian_ + "gesti" ; --# notpresent + Pass Sg P3 => pian_ + "se" ; --# notpresent + Pass Pl P1 => pian_ + "gemmo" ; --# notpresent + Pass Pl P2 => pian_ + "geste" ; --# notpresent + Pass Pl P3 => pian_ + "sero" ; --# notpresent + Fut Sg P1 => pian_ + "gerò" ; --# notpresent + Fut Sg P2 => pian_ + "gerai" ; --# notpresent + Fut Sg P3 => pian_ + "gerà" ; --# notpresent + Fut Pl P1 => pian_ + "geremo" ; --# notpresent + Fut Pl P2 => pian_ + "gerete" ; --# notpresent + Fut Pl P3 => pian_ + "geranno" ; --# notpresent Cong Pres Sg P1 => pian_ + "ga" ; Cong Pres Sg P2 => pian_ + "ga" ; Cong Pres Sg P3 => pian_ + "ga" ; Cong Pres Pl P1 => pian_ + "giamo" ; Cong Pres Pl P2 => pian_ + "giate" ; Cong Pres Pl P3 => pian_ + "gano" ; - Cong Imperf Sg P1 => pian_ + "gessi" ; - Cong Imperf Sg P2 => pian_ + "gessi" ; - Cong Imperf Sg P3 => pian_ + "gesse" ; - Cong Imperf Pl P1 => pian_ + "gessimo" ; - Cong Imperf Pl P2 => pian_ + "geste" ; - Cong Imperf Pl P3 => pian_ + "gessero" ; - Cond Sg P1 => pian_ + "gerei" ; - Cond Sg P2 => pian_ + "geresti" ; - Cond Sg P3 => pian_ + "gerebbe" ; - Cond Pl P1 => pian_ + "geremmo" ; - Cond Pl P2 => pian_ + "gereste" ; - Cond Pl P3 => pian_ + "gerebbero" ; + Cong Imperf Sg P1 => pian_ + "gessi" ; --# notpresent + Cong Imperf Sg P2 => pian_ + "gessi" ; --# notpresent + Cong Imperf Sg P3 => pian_ + "gesse" ; --# notpresent + Cong Imperf Pl P1 => pian_ + "gessimo" ; --# notpresent + Cong Imperf Pl P2 => pian_ + "geste" ; --# notpresent + Cong Imperf Pl P3 => pian_ + "gessero" ; --# notpresent + Cond Sg P1 => pian_ + "gerei" ; --# notpresent + Cond Sg P2 => pian_ + "geresti" ; --# notpresent + Cond Sg P3 => pian_ + "gerebbe" ; --# notpresent + Cond Pl P1 => pian_ + "geremmo" ; --# notpresent + Cond Pl P2 => pian_ + "gereste" ; --# notpresent + Cond Pl P3 => pian_ + "gerebbero" ; --# notpresent Imper SgP2 => pian_ + "gi" ; Imper PlP1 => pian_ + "giamo" ; Imper PlP2 => pian_ + "gete" ; @@ -3985,42 +3987,42 @@ oper piovere_66 : Str -> Verbo = \piovere -> Indi Pres Pl P1 => piov_ + "iamo" ; Indi Pres Pl P2 => piov_ + "ete" ; Indi Pres Pl P3 => piov_ + "ono" ; - Indi Imperf Sg P1 => piov_ + "evo" ; - Indi Imperf Sg P2 => piov_ + "evi" ; - Indi Imperf Sg P3 => piov_ + "eva" ; - Indi Imperf Pl P1 => piov_ + "evamo" ; - Indi Imperf Pl P2 => piov_ + "evate" ; - Indi Imperf Pl P3 => piov_ + "evano" ; - Pass Sg P1 => piov_ + "vi" ; - Pass Sg P2 => piov_ + "esti" ; - Pass Sg P3 => piov_ + "ve" ; - Pass Pl P1 => piov_ + "emmo" ; - Pass Pl P2 => piov_ + "este" ; - Pass Pl P3 => piov_ + "vero" ; - Fut Sg P1 => piov_ + "erò" ; - Fut Sg P2 => piov_ + "erai" ; - Fut Sg P3 => piov_ + "erà" ; - Fut Pl P1 => piov_ + "eremo" ; - Fut Pl P2 => piov_ + "erete" ; - Fut Pl P3 => piov_ + "eranno" ; + Indi Imperf Sg P1 => piov_ + "evo" ; --# notpresent + Indi Imperf Sg P2 => piov_ + "evi" ; --# notpresent + Indi Imperf Sg P3 => piov_ + "eva" ; --# notpresent + Indi Imperf Pl P1 => piov_ + "evamo" ; --# notpresent + Indi Imperf Pl P2 => piov_ + "evate" ; --# notpresent + Indi Imperf Pl P3 => piov_ + "evano" ; --# notpresent + Pass Sg P1 => piov_ + "vi" ; --# notpresent + Pass Sg P2 => piov_ + "esti" ; --# notpresent + Pass Sg P3 => piov_ + "ve" ; --# notpresent + Pass Pl P1 => piov_ + "emmo" ; --# notpresent + Pass Pl P2 => piov_ + "este" ; --# notpresent + Pass Pl P3 => piov_ + "vero" ; --# notpresent + Fut Sg P1 => piov_ + "erò" ; --# notpresent + Fut Sg P2 => piov_ + "erai" ; --# notpresent + Fut Sg P3 => piov_ + "erà" ; --# notpresent + Fut Pl P1 => piov_ + "eremo" ; --# notpresent + Fut Pl P2 => piov_ + "erete" ; --# notpresent + Fut Pl P3 => piov_ + "eranno" ; --# notpresent Cong Pres Sg P1 => piov_ + "a" ; Cong Pres Sg P2 => piov_ + "a" ; Cong Pres Sg P3 => piov_ + "a" ; Cong Pres Pl P1 => piov_ + "iamo" ; Cong Pres Pl P2 => piov_ + "iate" ; Cong Pres Pl P3 => piov_ + "ano" ; - Cong Imperf Sg P1 => piov_ + "essi" ; - Cong Imperf Sg P2 => piov_ + "essi" ; - Cong Imperf Sg P3 => piov_ + "esse" ; - Cong Imperf Pl P1 => piov_ + "essimo" ; - Cong Imperf Pl P2 => piov_ + "este" ; - Cong Imperf Pl P3 => piov_ + "essero" ; - Cond Sg P1 => piov_ + "erei" ; - Cond Sg P2 => piov_ + "eresti" ; - Cond Sg P3 => piov_ + "erebbe" ; - Cond Pl P1 => piov_ + "eremmo" ; - Cond Pl P2 => piov_ + "ereste" ; - Cond Pl P3 => piov_ + "erebbero" ; + Cong Imperf Sg P1 => piov_ + "essi" ; --# notpresent + Cong Imperf Sg P2 => piov_ + "essi" ; --# notpresent + Cong Imperf Sg P3 => piov_ + "esse" ; --# notpresent + Cong Imperf Pl P1 => piov_ + "essimo" ; --# notpresent + Cong Imperf Pl P2 => piov_ + "este" ; --# notpresent + Cong Imperf Pl P3 => piov_ + "essero" ; --# notpresent + Cond Sg P1 => piov_ + "erei" ; --# notpresent + Cond Sg P2 => piov_ + "eresti" ; --# notpresent + Cond Sg P3 => piov_ + "erebbe" ; --# notpresent + Cond Pl P1 => piov_ + "eremmo" ; --# notpresent + Cond Pl P2 => piov_ + "ereste" ; --# notpresent + Cond Pl P3 => piov_ + "erebbero" ; --# notpresent Imper SgP2 => piov_ + "i" ; Imper PlP1 => piov_ + "iamo" ; Imper PlP2 => piov_ + "ete" ; @@ -4047,42 +4049,42 @@ oper porgere_67 : Str -> Verbo = \porgere -> Indi Pres Pl P1 => por_ + "giamo" ; Indi Pres Pl P2 => por_ + "gete" ; Indi Pres Pl P3 => por_ + "gono" ; - Indi Imperf Sg P1 => por_ + "gevo" ; - Indi Imperf Sg P2 => por_ + "gevi" ; - Indi Imperf Sg P3 => por_ + "geva" ; - Indi Imperf Pl P1 => por_ + "gevamo" ; - Indi Imperf Pl P2 => por_ + "gevate" ; - Indi Imperf Pl P3 => por_ + "gevano" ; - Pass Sg P1 => por_ + "si" ; - Pass Sg P2 => por_ + "gesti" ; - Pass Sg P3 => por_ + "se" ; - Pass Pl P1 => por_ + "gemmo" ; - Pass Pl P2 => por_ + "geste" ; - Pass Pl P3 => por_ + "sero" ; - Fut Sg P1 => por_ + "gerò" ; - Fut Sg P2 => por_ + "gerai" ; - Fut Sg P3 => por_ + "gerà" ; - Fut Pl P1 => por_ + "geremo" ; - Fut Pl P2 => por_ + "gerete" ; - Fut Pl P3 => por_ + "geranno" ; + Indi Imperf Sg P1 => por_ + "gevo" ; --# notpresent + Indi Imperf Sg P2 => por_ + "gevi" ; --# notpresent + Indi Imperf Sg P3 => por_ + "geva" ; --# notpresent + Indi Imperf Pl P1 => por_ + "gevamo" ; --# notpresent + Indi Imperf Pl P2 => por_ + "gevate" ; --# notpresent + Indi Imperf Pl P3 => por_ + "gevano" ; --# notpresent + Pass Sg P1 => por_ + "si" ; --# notpresent + Pass Sg P2 => por_ + "gesti" ; --# notpresent + Pass Sg P3 => por_ + "se" ; --# notpresent + Pass Pl P1 => por_ + "gemmo" ; --# notpresent + Pass Pl P2 => por_ + "geste" ; --# notpresent + Pass Pl P3 => por_ + "sero" ; --# notpresent + Fut Sg P1 => por_ + "gerò" ; --# notpresent + Fut Sg P2 => por_ + "gerai" ; --# notpresent + Fut Sg P3 => por_ + "gerà" ; --# notpresent + Fut Pl P1 => por_ + "geremo" ; --# notpresent + Fut Pl P2 => por_ + "gerete" ; --# notpresent + Fut Pl P3 => por_ + "geranno" ; --# notpresent Cong Pres Sg P1 => por_ + "ga" ; Cong Pres Sg P2 => por_ + "ga" ; Cong Pres Sg P3 => por_ + "ga" ; Cong Pres Pl P1 => por_ + "giamo" ; Cong Pres Pl P2 => por_ + "giate" ; Cong Pres Pl P3 => por_ + "gano" ; - Cong Imperf Sg P1 => por_ + "gessi" ; - Cong Imperf Sg P2 => por_ + "gessi" ; - Cong Imperf Sg P3 => por_ + "gesse" ; - Cong Imperf Pl P1 => por_ + "gessimo" ; - Cong Imperf Pl P2 => por_ + "geste" ; - Cong Imperf Pl P3 => por_ + "gessero" ; - Cond Sg P1 => por_ + "gerei" ; - Cond Sg P2 => por_ + "geresti" ; - Cond Sg P3 => por_ + "gerebbe" ; - Cond Pl P1 => por_ + "geremmo" ; - Cond Pl P2 => por_ + "gereste" ; - Cond Pl P3 => por_ + "gerebbero" ; + Cong Imperf Sg P1 => por_ + "gessi" ; --# notpresent + Cong Imperf Sg P2 => por_ + "gessi" ; --# notpresent + Cong Imperf Sg P3 => por_ + "gesse" ; --# notpresent + Cong Imperf Pl P1 => por_ + "gessimo" ; --# notpresent + Cong Imperf Pl P2 => por_ + "geste" ; --# notpresent + Cong Imperf Pl P3 => por_ + "gessero" ; --# notpresent + Cond Sg P1 => por_ + "gerei" ; --# notpresent + Cond Sg P2 => por_ + "geresti" ; --# notpresent + Cond Sg P3 => por_ + "gerebbe" ; --# notpresent + Cond Pl P1 => por_ + "geremmo" ; --# notpresent + Cond Pl P2 => por_ + "gereste" ; --# notpresent + Cond Pl P3 => por_ + "gerebbero" ; --# notpresent Imper SgP2 => por_ + "gi" ; Imper PlP1 => por_ + "giamo" ; Imper PlP2 => por_ + "gete" ; @@ -4109,42 +4111,42 @@ oper porre_68 : Str -> Verbo = \porre -> Indi Pres Pl P1 => po_ + "niamo" ; Indi Pres Pl P2 => po_ + "nete" ; Indi Pres Pl P3 => po_ + "ngono" ; - Indi Imperf Sg P1 => po_ + "nevo" ; - Indi Imperf Sg P2 => po_ + "nevi" ; - Indi Imperf Sg P3 => po_ + "neva" ; - Indi Imperf Pl P1 => po_ + "nevamo" ; - Indi Imperf Pl P2 => po_ + "nevate" ; - Indi Imperf Pl P3 => po_ + "nevano" ; - Pass Sg P1 => po_ + "si" ; - Pass Sg P2 => po_ + "nesti" ; - Pass Sg P3 => po_ + "se" ; - Pass Pl P1 => po_ + "nemmo" ; - Pass Pl P2 => po_ + "neste" ; - Pass Pl P3 => po_ + "sero" ; - Fut Sg P1 => po_ + "rrò" ; - Fut Sg P2 => po_ + "rrai" ; - Fut Sg P3 => po_ + "rrà" ; - Fut Pl P1 => po_ + "rremo" ; - Fut Pl P2 => po_ + "rrete" ; - Fut Pl P3 => po_ + "rranno" ; + Indi Imperf Sg P1 => po_ + "nevo" ; --# notpresent + Indi Imperf Sg P2 => po_ + "nevi" ; --# notpresent + Indi Imperf Sg P3 => po_ + "neva" ; --# notpresent + Indi Imperf Pl P1 => po_ + "nevamo" ; --# notpresent + Indi Imperf Pl P2 => po_ + "nevate" ; --# notpresent + Indi Imperf Pl P3 => po_ + "nevano" ; --# notpresent + Pass Sg P1 => po_ + "si" ; --# notpresent + Pass Sg P2 => po_ + "nesti" ; --# notpresent + Pass Sg P3 => po_ + "se" ; --# notpresent + Pass Pl P1 => po_ + "nemmo" ; --# notpresent + Pass Pl P2 => po_ + "neste" ; --# notpresent + Pass Pl P3 => po_ + "sero" ; --# notpresent + Fut Sg P1 => po_ + "rrò" ; --# notpresent + Fut Sg P2 => po_ + "rrai" ; --# notpresent + Fut Sg P3 => po_ + "rrà" ; --# notpresent + Fut Pl P1 => po_ + "rremo" ; --# notpresent + Fut Pl P2 => po_ + "rrete" ; --# notpresent + Fut Pl P3 => po_ + "rranno" ; --# notpresent Cong Pres Sg P1 => po_ + "nga" ; Cong Pres Sg P2 => po_ + "nga" ; Cong Pres Sg P3 => po_ + "nga" ; Cong Pres Pl P1 => po_ + "niamo" ; Cong Pres Pl P2 => po_ + "niate" ; Cong Pres Pl P3 => po_ + "ngano" ; - Cong Imperf Sg P1 => po_ + "nessi" ; - Cong Imperf Sg P2 => po_ + "nessi" ; - Cong Imperf Sg P3 => po_ + "nesse" ; - Cong Imperf Pl P1 => po_ + "nessimo" ; - Cong Imperf Pl P2 => po_ + "neste" ; - Cong Imperf Pl P3 => po_ + "nessero" ; - Cond Sg P1 => po_ + "rrei" ; - Cond Sg P2 => po_ + "rresti" ; - Cond Sg P3 => po_ + "rrebbe" ; - Cond Pl P1 => po_ + "rremmo" ; - Cond Pl P2 => po_ + "rreste" ; - Cond Pl P3 => po_ + "rrebbero" ; + Cong Imperf Sg P1 => po_ + "nessi" ; --# notpresent + Cong Imperf Sg P2 => po_ + "nessi" ; --# notpresent + Cong Imperf Sg P3 => po_ + "nesse" ; --# notpresent + Cong Imperf Pl P1 => po_ + "nessimo" ; --# notpresent + Cong Imperf Pl P2 => po_ + "neste" ; --# notpresent + Cong Imperf Pl P3 => po_ + "nessero" ; --# notpresent + Cond Sg P1 => po_ + "rrei" ; --# notpresent + Cond Sg P2 => po_ + "rresti" ; --# notpresent + Cond Sg P3 => po_ + "rrebbe" ; --# notpresent + Cond Pl P1 => po_ + "rremmo" ; --# notpresent + Cond Pl P2 => po_ + "rreste" ; --# notpresent + Cond Pl P3 => po_ + "rrebbero" ; --# notpresent Imper SgP2 => po_ + "ni" ; Imper PlP1 => po_ + "niamo" ; Imper PlP2 => po_ + "nete" ; @@ -4171,42 +4173,42 @@ oper potere_69 : Str -> Verbo = \potere -> Indi Pres Pl P1 => p_ + "otiamo" ; Indi Pres Pl P2 => p_ + "otete" ; Indi Pres Pl P3 => p_ + "ossono" ; - Indi Imperf Sg P1 => p_ + "otevo" ; - Indi Imperf Sg P2 => p_ + "otevi" ; - Indi Imperf Sg P3 => p_ + "oteva" ; - Indi Imperf Pl P1 => p_ + "otevamo" ; - Indi Imperf Pl P2 => p_ + "otevate" ; - Indi Imperf Pl P3 => p_ + "otevano" ; - Pass Sg P1 => p_ + "otetti" ; - Pass Sg P2 => p_ + "otesti" ; - Pass Sg P3 => p_ + "otette" ; - Pass Pl P1 => p_ + "otemmo" ; - Pass Pl P2 => p_ + "oteste" ; - Pass Pl P3 => p_ + "otettero" ; - Fut Sg P1 => p_ + "otrò" ; - Fut Sg P2 => p_ + "otrai" ; - Fut Sg P3 => p_ + "otrà" ; - Fut Pl P1 => p_ + "otremo" ; - Fut Pl P2 => p_ + "otrete" ; - Fut Pl P3 => p_ + "otranno" ; + Indi Imperf Sg P1 => p_ + "otevo" ; --# notpresent + Indi Imperf Sg P2 => p_ + "otevi" ; --# notpresent + Indi Imperf Sg P3 => p_ + "oteva" ; --# notpresent + Indi Imperf Pl P1 => p_ + "otevamo" ; --# notpresent + Indi Imperf Pl P2 => p_ + "otevate" ; --# notpresent + Indi Imperf Pl P3 => p_ + "otevano" ; --# notpresent + Pass Sg P1 => p_ + "otetti" ; --# notpresent + Pass Sg P2 => p_ + "otesti" ; --# notpresent + Pass Sg P3 => p_ + "otette" ; --# notpresent + Pass Pl P1 => p_ + "otemmo" ; --# notpresent + Pass Pl P2 => p_ + "oteste" ; --# notpresent + Pass Pl P3 => p_ + "otettero" ; --# notpresent + Fut Sg P1 => p_ + "otrò" ; --# notpresent + Fut Sg P2 => p_ + "otrai" ; --# notpresent + Fut Sg P3 => p_ + "otrà" ; --# notpresent + Fut Pl P1 => p_ + "otremo" ; --# notpresent + Fut Pl P2 => p_ + "otrete" ; --# notpresent + Fut Pl P3 => p_ + "otranno" ; --# notpresent Cong Pres Sg P1 => p_ + "ossa" ; Cong Pres Sg P2 => p_ + "ossa" ; Cong Pres Sg P3 => p_ + "ossa" ; Cong Pres Pl P1 => p_ + "otiamo" ; Cong Pres Pl P2 => p_ + "otiate" ; Cong Pres Pl P3 => p_ + "ossano" ; - Cong Imperf Sg P1 => p_ + "otessi" ; - Cong Imperf Sg P2 => p_ + "otessi" ; - Cong Imperf Sg P3 => p_ + "otesse" ; - Cong Imperf Pl P1 => p_ + "otessimo" ; - Cong Imperf Pl P2 => p_ + "oteste" ; - Cong Imperf Pl P3 => p_ + "otessero" ; - Cond Sg P1 => p_ + "otrei" ; - Cond Sg P2 => p_ + "otresti" ; - Cond Sg P3 => p_ + "otrebbe" ; - Cond Pl P1 => p_ + "otremmo" ; - Cond Pl P2 => p_ + "otreste" ; - Cond Pl P3 => p_ + "otrebbero" ; + Cong Imperf Sg P1 => p_ + "otessi" ; --# notpresent + Cong Imperf Sg P2 => p_ + "otessi" ; --# notpresent + Cong Imperf Sg P3 => p_ + "otesse" ; --# notpresent + Cong Imperf Pl P1 => p_ + "otessimo" ; --# notpresent + Cong Imperf Pl P2 => p_ + "oteste" ; --# notpresent + Cong Imperf Pl P3 => p_ + "otessero" ; --# notpresent + Cond Sg P1 => p_ + "otrei" ; --# notpresent + Cond Sg P2 => p_ + "otresti" ; --# notpresent + Cond Sg P3 => p_ + "otrebbe" ; --# notpresent + Cond Pl P1 => p_ + "otremmo" ; --# notpresent + Cond Pl P2 => p_ + "otreste" ; --# notpresent + Cond Pl P3 => p_ + "otrebbero" ; --# notpresent Imper SgP2 => variants {} ; Imper PlP1 => variants {} ; Imper PlP2 => variants {} ; @@ -4233,42 +4235,42 @@ oper prendere_70 : Str -> Verbo = \prendere -> Indi Pres Pl P1 => pre_ + "ndiamo" ; Indi Pres Pl P2 => pre_ + "ndete" ; Indi Pres Pl P3 => pre_ + "ndono" ; - Indi Imperf Sg P1 => pre_ + "ndevo" ; - Indi Imperf Sg P2 => pre_ + "ndevi" ; - Indi Imperf Sg P3 => pre_ + "ndeva" ; - Indi Imperf Pl P1 => pre_ + "ndevamo" ; - Indi Imperf Pl P2 => pre_ + "ndevate" ; - Indi Imperf Pl P3 => pre_ + "ndevano" ; - Pass Sg P1 => pre_ + "si" ; - Pass Sg P2 => pre_ + "ndesti" ; - Pass Sg P3 => pre_ + "se" ; - Pass Pl P1 => pre_ + "ndemmo" ; - Pass Pl P2 => pre_ + "ndeste" ; - Pass Pl P3 => pre_ + "sero" ; - Fut Sg P1 => pre_ + "nderò" ; - Fut Sg P2 => pre_ + "nderai" ; - Fut Sg P3 => pre_ + "nderà" ; - Fut Pl P1 => pre_ + "nderemo" ; - Fut Pl P2 => pre_ + "nderete" ; - Fut Pl P3 => pre_ + "nderanno" ; + Indi Imperf Sg P1 => pre_ + "ndevo" ; --# notpresent + Indi Imperf Sg P2 => pre_ + "ndevi" ; --# notpresent + Indi Imperf Sg P3 => pre_ + "ndeva" ; --# notpresent + Indi Imperf Pl P1 => pre_ + "ndevamo" ; --# notpresent + Indi Imperf Pl P2 => pre_ + "ndevate" ; --# notpresent + Indi Imperf Pl P3 => pre_ + "ndevano" ; --# notpresent + Pass Sg P1 => pre_ + "si" ; --# notpresent + Pass Sg P2 => pre_ + "ndesti" ; --# notpresent + Pass Sg P3 => pre_ + "se" ; --# notpresent + Pass Pl P1 => pre_ + "ndemmo" ; --# notpresent + Pass Pl P2 => pre_ + "ndeste" ; --# notpresent + Pass Pl P3 => pre_ + "sero" ; --# notpresent + Fut Sg P1 => pre_ + "nderò" ; --# notpresent + Fut Sg P2 => pre_ + "nderai" ; --# notpresent + Fut Sg P3 => pre_ + "nderà" ; --# notpresent + Fut Pl P1 => pre_ + "nderemo" ; --# notpresent + Fut Pl P2 => pre_ + "nderete" ; --# notpresent + Fut Pl P3 => pre_ + "nderanno" ; --# notpresent Cong Pres Sg P1 => pre_ + "nda" ; Cong Pres Sg P2 => pre_ + "nda" ; Cong Pres Sg P3 => pre_ + "nda" ; Cong Pres Pl P1 => pre_ + "ndiamo" ; Cong Pres Pl P2 => pre_ + "ndiate" ; Cong Pres Pl P3 => pre_ + "ndano" ; - Cong Imperf Sg P1 => pre_ + "ndessi" ; - Cong Imperf Sg P2 => pre_ + "ndessi" ; - Cong Imperf Sg P3 => pre_ + "ndesse" ; - Cong Imperf Pl P1 => pre_ + "ndessimo" ; - Cong Imperf Pl P2 => pre_ + "ndeste" ; - Cong Imperf Pl P3 => pre_ + "ndessero" ; - Cond Sg P1 => pre_ + "nderei" ; - Cond Sg P2 => pre_ + "nderesti" ; - Cond Sg P3 => pre_ + "nderebbe" ; - Cond Pl P1 => pre_ + "nderemmo" ; - Cond Pl P2 => pre_ + "ndereste" ; - Cond Pl P3 => pre_ + "nderebbero" ; + Cong Imperf Sg P1 => pre_ + "ndessi" ; --# notpresent + Cong Imperf Sg P2 => pre_ + "ndessi" ; --# notpresent + Cong Imperf Sg P3 => pre_ + "ndesse" ; --# notpresent + Cong Imperf Pl P1 => pre_ + "ndessimo" ; --# notpresent + Cong Imperf Pl P2 => pre_ + "ndeste" ; --# notpresent + Cong Imperf Pl P3 => pre_ + "ndessero" ; --# notpresent + Cond Sg P1 => pre_ + "nderei" ; --# notpresent + Cond Sg P2 => pre_ + "nderesti" ; --# notpresent + Cond Sg P3 => pre_ + "nderebbe" ; --# notpresent + Cond Pl P1 => pre_ + "nderemmo" ; --# notpresent + Cond Pl P2 => pre_ + "ndereste" ; --# notpresent + Cond Pl P3 => pre_ + "nderebbero" ; --# notpresent Imper SgP2 => pre_ + "ndi" ; Imper PlP1 => pre_ + "ndiamo" ; Imper PlP2 => pre_ + "ndete" ; @@ -4295,42 +4297,42 @@ oper radere_71 : Str -> Verbo = \radere -> Indi Pres Pl P1 => ra_ + "diamo" ; Indi Pres Pl P2 => ra_ + "dete" ; Indi Pres Pl P3 => ra_ + "dono" ; - Indi Imperf Sg P1 => ra_ + "devo" ; - Indi Imperf Sg P2 => ra_ + "devi" ; - Indi Imperf Sg P3 => ra_ + "deva" ; - Indi Imperf Pl P1 => ra_ + "devamo" ; - Indi Imperf Pl P2 => ra_ + "devate" ; - Indi Imperf Pl P3 => ra_ + "devano" ; - Pass Sg P1 => ra_ + "si" ; - Pass Sg P2 => ra_ + "desti" ; - Pass Sg P3 => ra_ + "se" ; - Pass Pl P1 => ra_ + "demmo" ; - Pass Pl P2 => ra_ + "deste" ; - Pass Pl P3 => ra_ + "sero" ; - Fut Sg P1 => ra_ + "derò" ; - Fut Sg P2 => ra_ + "derai" ; - Fut Sg P3 => ra_ + "derà" ; - Fut Pl P1 => ra_ + "deremo" ; - Fut Pl P2 => ra_ + "derete" ; - Fut Pl P3 => ra_ + "deranno" ; + Indi Imperf Sg P1 => ra_ + "devo" ; --# notpresent + Indi Imperf Sg P2 => ra_ + "devi" ; --# notpresent + Indi Imperf Sg P3 => ra_ + "deva" ; --# notpresent + Indi Imperf Pl P1 => ra_ + "devamo" ; --# notpresent + Indi Imperf Pl P2 => ra_ + "devate" ; --# notpresent + Indi Imperf Pl P3 => ra_ + "devano" ; --# notpresent + Pass Sg P1 => ra_ + "si" ; --# notpresent + Pass Sg P2 => ra_ + "desti" ; --# notpresent + Pass Sg P3 => ra_ + "se" ; --# notpresent + Pass Pl P1 => ra_ + "demmo" ; --# notpresent + Pass Pl P2 => ra_ + "deste" ; --# notpresent + Pass Pl P3 => ra_ + "sero" ; --# notpresent + Fut Sg P1 => ra_ + "derò" ; --# notpresent + Fut Sg P2 => ra_ + "derai" ; --# notpresent + Fut Sg P3 => ra_ + "derà" ; --# notpresent + Fut Pl P1 => ra_ + "deremo" ; --# notpresent + Fut Pl P2 => ra_ + "derete" ; --# notpresent + Fut Pl P3 => ra_ + "deranno" ; --# notpresent Cong Pres Sg P1 => ra_ + "da" ; Cong Pres Sg P2 => ra_ + "da" ; Cong Pres Sg P3 => ra_ + "da" ; Cong Pres Pl P1 => ra_ + "diamo" ; Cong Pres Pl P2 => ra_ + "diate" ; Cong Pres Pl P3 => ra_ + "dano" ; - Cong Imperf Sg P1 => ra_ + "dessi" ; - Cong Imperf Sg P2 => ra_ + "dessi" ; - Cong Imperf Sg P3 => ra_ + "desse" ; - Cong Imperf Pl P1 => ra_ + "dessimo" ; - Cong Imperf Pl P2 => ra_ + "deste" ; - Cong Imperf Pl P3 => ra_ + "dessero" ; - Cond Sg P1 => ra_ + "derei" ; - Cond Sg P2 => ra_ + "deresti" ; - Cond Sg P3 => ra_ + "derebbe" ; - Cond Pl P1 => ra_ + "deremmo" ; - Cond Pl P2 => ra_ + "dereste" ; - Cond Pl P3 => ra_ + "derebbero" ; + Cong Imperf Sg P1 => ra_ + "dessi" ; --# notpresent + Cong Imperf Sg P2 => ra_ + "dessi" ; --# notpresent + Cong Imperf Sg P3 => ra_ + "desse" ; --# notpresent + Cong Imperf Pl P1 => ra_ + "dessimo" ; --# notpresent + Cong Imperf Pl P2 => ra_ + "deste" ; --# notpresent + Cong Imperf Pl P3 => ra_ + "dessero" ; --# notpresent + Cond Sg P1 => ra_ + "derei" ; --# notpresent + Cond Sg P2 => ra_ + "deresti" ; --# notpresent + Cond Sg P3 => ra_ + "derebbe" ; --# notpresent + Cond Pl P1 => ra_ + "deremmo" ; --# notpresent + Cond Pl P2 => ra_ + "dereste" ; --# notpresent + Cond Pl P3 => ra_ + "derebbero" ; --# notpresent Imper SgP2 => ra_ + "di" ; Imper PlP1 => ra_ + "diamo" ; Imper PlP2 => ra_ + "dete" ; @@ -4357,42 +4359,42 @@ oper redigere_72 : Str -> Verbo = \redigere -> Indi Pres Pl P1 => red_ + "igiamo" ; Indi Pres Pl P2 => red_ + "igete" ; Indi Pres Pl P3 => red_ + "igono" ; - Indi Imperf Sg P1 => red_ + "igevo" ; - Indi Imperf Sg P2 => red_ + "igevi" ; - Indi Imperf Sg P3 => red_ + "igeva" ; - Indi Imperf Pl P1 => red_ + "igevamo" ; - Indi Imperf Pl P2 => red_ + "igevate" ; - Indi Imperf Pl P3 => red_ + "igevano" ; - Pass Sg P1 => red_ + "assi" ; - Pass Sg P2 => red_ + "igesti" ; - Pass Sg P3 => red_ + "asse" ; - Pass Pl P1 => red_ + "igemmo" ; - Pass Pl P2 => red_ + "igeste" ; - Pass Pl P3 => red_ + "assero" ; - Fut Sg P1 => red_ + "igerò" ; - Fut Sg P2 => red_ + "igerai" ; - Fut Sg P3 => red_ + "igerà" ; - Fut Pl P1 => red_ + "igeremo" ; - Fut Pl P2 => red_ + "igerete" ; - Fut Pl P3 => red_ + "igeranno" ; + Indi Imperf Sg P1 => red_ + "igevo" ; --# notpresent + Indi Imperf Sg P2 => red_ + "igevi" ; --# notpresent + Indi Imperf Sg P3 => red_ + "igeva" ; --# notpresent + Indi Imperf Pl P1 => red_ + "igevamo" ; --# notpresent + Indi Imperf Pl P2 => red_ + "igevate" ; --# notpresent + Indi Imperf Pl P3 => red_ + "igevano" ; --# notpresent + Pass Sg P1 => red_ + "assi" ; --# notpresent + Pass Sg P2 => red_ + "igesti" ; --# notpresent + Pass Sg P3 => red_ + "asse" ; --# notpresent + Pass Pl P1 => red_ + "igemmo" ; --# notpresent + Pass Pl P2 => red_ + "igeste" ; --# notpresent + Pass Pl P3 => red_ + "assero" ; --# notpresent + Fut Sg P1 => red_ + "igerò" ; --# notpresent + Fut Sg P2 => red_ + "igerai" ; --# notpresent + Fut Sg P3 => red_ + "igerà" ; --# notpresent + Fut Pl P1 => red_ + "igeremo" ; --# notpresent + Fut Pl P2 => red_ + "igerete" ; --# notpresent + Fut Pl P3 => red_ + "igeranno" ; --# notpresent Cong Pres Sg P1 => red_ + "iga" ; Cong Pres Sg P2 => red_ + "iga" ; Cong Pres Sg P3 => red_ + "iga" ; Cong Pres Pl P1 => red_ + "igiamo" ; Cong Pres Pl P2 => red_ + "igiate" ; Cong Pres Pl P3 => red_ + "igano" ; - Cong Imperf Sg P1 => red_ + "igessi" ; - Cong Imperf Sg P2 => red_ + "igessi" ; - Cong Imperf Sg P3 => red_ + "igesse" ; - Cong Imperf Pl P1 => red_ + "igessimo" ; - Cong Imperf Pl P2 => red_ + "igeste" ; - Cong Imperf Pl P3 => red_ + "igessero" ; - Cond Sg P1 => red_ + "igerei" ; - Cond Sg P2 => red_ + "igeresti" ; - Cond Sg P3 => red_ + "igerebbe" ; - Cond Pl P1 => red_ + "igeremmo" ; - Cond Pl P2 => red_ + "igereste" ; - Cond Pl P3 => red_ + "igerebbero" ; + Cong Imperf Sg P1 => red_ + "igessi" ; --# notpresent + Cong Imperf Sg P2 => red_ + "igessi" ; --# notpresent + Cong Imperf Sg P3 => red_ + "igesse" ; --# notpresent + Cong Imperf Pl P1 => red_ + "igessimo" ; --# notpresent + Cong Imperf Pl P2 => red_ + "igeste" ; --# notpresent + Cong Imperf Pl P3 => red_ + "igessero" ; --# notpresent + Cond Sg P1 => red_ + "igerei" ; --# notpresent + Cond Sg P2 => red_ + "igeresti" ; --# notpresent + Cond Sg P3 => red_ + "igerebbe" ; --# notpresent + Cond Pl P1 => red_ + "igeremmo" ; --# notpresent + Cond Pl P2 => red_ + "igereste" ; --# notpresent + Cond Pl P3 => red_ + "igerebbero" ; --# notpresent Imper SgP2 => red_ + "igi" ; Imper PlP1 => red_ + "igiamo" ; Imper PlP2 => red_ + "igete" ; @@ -4419,42 +4421,42 @@ oper redimere_73 : Str -> Verbo = \redimere -> Indi Pres Pl P1 => red_ + "imiamo" ; Indi Pres Pl P2 => red_ + "imete" ; Indi Pres Pl P3 => red_ + "imono" ; - Indi Imperf Sg P1 => red_ + "imevo" ; - Indi Imperf Sg P2 => red_ + "imevi" ; - Indi Imperf Sg P3 => red_ + "imeva" ; - Indi Imperf Pl P1 => red_ + "imevamo" ; - Indi Imperf Pl P2 => red_ + "imevate" ; - Indi Imperf Pl P3 => red_ + "imevano" ; - Pass Sg P1 => red_ + "ensi" ; - Pass Sg P2 => red_ + "imesti" ; - Pass Sg P3 => red_ + "ense" ; - Pass Pl P1 => red_ + "imemmo" ; - Pass Pl P2 => red_ + "imeste" ; - Pass Pl P3 => red_ + "ensero" ; - Fut Sg P1 => red_ + "imerò" ; - Fut Sg P2 => red_ + "imerai" ; - Fut Sg P3 => red_ + "imerà" ; - Fut Pl P1 => red_ + "imeremo" ; - Fut Pl P2 => red_ + "imerete" ; - Fut Pl P3 => red_ + "imeranno" ; + Indi Imperf Sg P1 => red_ + "imevo" ; --# notpresent + Indi Imperf Sg P2 => red_ + "imevi" ; --# notpresent + Indi Imperf Sg P3 => red_ + "imeva" ; --# notpresent + Indi Imperf Pl P1 => red_ + "imevamo" ; --# notpresent + Indi Imperf Pl P2 => red_ + "imevate" ; --# notpresent + Indi Imperf Pl P3 => red_ + "imevano" ; --# notpresent + Pass Sg P1 => red_ + "ensi" ; --# notpresent + Pass Sg P2 => red_ + "imesti" ; --# notpresent + Pass Sg P3 => red_ + "ense" ; --# notpresent + Pass Pl P1 => red_ + "imemmo" ; --# notpresent + Pass Pl P2 => red_ + "imeste" ; --# notpresent + Pass Pl P3 => red_ + "ensero" ; --# notpresent + Fut Sg P1 => red_ + "imerò" ; --# notpresent + Fut Sg P2 => red_ + "imerai" ; --# notpresent + Fut Sg P3 => red_ + "imerà" ; --# notpresent + Fut Pl P1 => red_ + "imeremo" ; --# notpresent + Fut Pl P2 => red_ + "imerete" ; --# notpresent + Fut Pl P3 => red_ + "imeranno" ; --# notpresent Cong Pres Sg P1 => red_ + "ima" ; Cong Pres Sg P2 => red_ + "ima" ; Cong Pres Sg P3 => red_ + "ima" ; Cong Pres Pl P1 => red_ + "imiamo" ; Cong Pres Pl P2 => red_ + "imiate" ; Cong Pres Pl P3 => red_ + "imano" ; - Cong Imperf Sg P1 => red_ + "imessi" ; - Cong Imperf Sg P2 => red_ + "imessi" ; - Cong Imperf Sg P3 => red_ + "imesse" ; - Cong Imperf Pl P1 => red_ + "imessimo" ; - Cong Imperf Pl P2 => red_ + "imeste" ; - Cong Imperf Pl P3 => red_ + "imessero" ; - Cond Sg P1 => red_ + "imerei" ; - Cond Sg P2 => red_ + "imeresti" ; - Cond Sg P3 => red_ + "imerebbe" ; - Cond Pl P1 => red_ + "imeremmo" ; - Cond Pl P2 => red_ + "imereste" ; - Cond Pl P3 => red_ + "imerebbero" ; + Cong Imperf Sg P1 => red_ + "imessi" ; --# notpresent + Cong Imperf Sg P2 => red_ + "imessi" ; --# notpresent + Cong Imperf Sg P3 => red_ + "imesse" ; --# notpresent + Cong Imperf Pl P1 => red_ + "imessimo" ; --# notpresent + Cong Imperf Pl P2 => red_ + "imeste" ; --# notpresent + Cong Imperf Pl P3 => red_ + "imessero" ; --# notpresent + Cond Sg P1 => red_ + "imerei" ; --# notpresent + Cond Sg P2 => red_ + "imeresti" ; --# notpresent + Cond Sg P3 => red_ + "imerebbe" ; --# notpresent + Cond Pl P1 => red_ + "imeremmo" ; --# notpresent + Cond Pl P2 => red_ + "imereste" ; --# notpresent + Cond Pl P3 => red_ + "imerebbero" ; --# notpresent Imper SgP2 => red_ + "imi" ; Imper PlP1 => red_ + "imiamo" ; Imper PlP2 => red_ + "imete" ; @@ -4481,42 +4483,42 @@ oper ridere_74 : Str -> Verbo = \ridere -> Indi Pres Pl P1 => ri_ + "diamo" ; Indi Pres Pl P2 => ri_ + "dete" ; Indi Pres Pl P3 => ri_ + "dono" ; - Indi Imperf Sg P1 => ri_ + "devo" ; - Indi Imperf Sg P2 => ri_ + "devi" ; - Indi Imperf Sg P3 => ri_ + "deva" ; - Indi Imperf Pl P1 => ri_ + "devamo" ; - Indi Imperf Pl P2 => ri_ + "devate" ; - Indi Imperf Pl P3 => ri_ + "devano" ; - Pass Sg P1 => ri_ + "si" ; - Pass Sg P2 => ri_ + "desti" ; - Pass Sg P3 => ri_ + "se" ; - Pass Pl P1 => ri_ + "demmo" ; - Pass Pl P2 => ri_ + "deste" ; - Pass Pl P3 => ri_ + "sero" ; - Fut Sg P1 => ri_ + "derò" ; - Fut Sg P2 => ri_ + "derai" ; - Fut Sg P3 => ri_ + "derà" ; - Fut Pl P1 => ri_ + "deremo" ; - Fut Pl P2 => ri_ + "derete" ; - Fut Pl P3 => ri_ + "deranno" ; + Indi Imperf Sg P1 => ri_ + "devo" ; --# notpresent + Indi Imperf Sg P2 => ri_ + "devi" ; --# notpresent + Indi Imperf Sg P3 => ri_ + "deva" ; --# notpresent + Indi Imperf Pl P1 => ri_ + "devamo" ; --# notpresent + Indi Imperf Pl P2 => ri_ + "devate" ; --# notpresent + Indi Imperf Pl P3 => ri_ + "devano" ; --# notpresent + Pass Sg P1 => ri_ + "si" ; --# notpresent + Pass Sg P2 => ri_ + "desti" ; --# notpresent + Pass Sg P3 => ri_ + "se" ; --# notpresent + Pass Pl P1 => ri_ + "demmo" ; --# notpresent + Pass Pl P2 => ri_ + "deste" ; --# notpresent + Pass Pl P3 => ri_ + "sero" ; --# notpresent + Fut Sg P1 => ri_ + "derò" ; --# notpresent + Fut Sg P2 => ri_ + "derai" ; --# notpresent + Fut Sg P3 => ri_ + "derà" ; --# notpresent + Fut Pl P1 => ri_ + "deremo" ; --# notpresent + Fut Pl P2 => ri_ + "derete" ; --# notpresent + Fut Pl P3 => ri_ + "deranno" ; --# notpresent Cong Pres Sg P1 => ri_ + "da" ; Cong Pres Sg P2 => ri_ + "da" ; Cong Pres Sg P3 => ri_ + "da" ; Cong Pres Pl P1 => ri_ + "diamo" ; Cong Pres Pl P2 => ri_ + "diate" ; Cong Pres Pl P3 => ri_ + "dano" ; - Cong Imperf Sg P1 => ri_ + "dessi" ; - Cong Imperf Sg P2 => ri_ + "dessi" ; - Cong Imperf Sg P3 => ri_ + "desse" ; - Cong Imperf Pl P1 => ri_ + "dessimo" ; - Cong Imperf Pl P2 => ri_ + "deste" ; - Cong Imperf Pl P3 => ri_ + "dessero" ; - Cond Sg P1 => ri_ + "derei" ; - Cond Sg P2 => ri_ + "deresti" ; - Cond Sg P3 => ri_ + "derebbe" ; - Cond Pl P1 => ri_ + "deremmo" ; - Cond Pl P2 => ri_ + "dereste" ; - Cond Pl P3 => ri_ + "derebbero" ; + Cong Imperf Sg P1 => ri_ + "dessi" ; --# notpresent + Cong Imperf Sg P2 => ri_ + "dessi" ; --# notpresent + Cong Imperf Sg P3 => ri_ + "desse" ; --# notpresent + Cong Imperf Pl P1 => ri_ + "dessimo" ; --# notpresent + Cong Imperf Pl P2 => ri_ + "deste" ; --# notpresent + Cong Imperf Pl P3 => ri_ + "dessero" ; --# notpresent + Cond Sg P1 => ri_ + "derei" ; --# notpresent + Cond Sg P2 => ri_ + "deresti" ; --# notpresent + Cond Sg P3 => ri_ + "derebbe" ; --# notpresent + Cond Pl P1 => ri_ + "deremmo" ; --# notpresent + Cond Pl P2 => ri_ + "dereste" ; --# notpresent + Cond Pl P3 => ri_ + "derebbero" ; --# notpresent Imper SgP2 => ri_ + "di" ; Imper PlP1 => ri_ + "diamo" ; Imper PlP2 => ri_ + "dete" ; @@ -4543,42 +4545,42 @@ oper rimanere_75 : Str -> Verbo = \rimanere -> Indi Pres Pl P1 => rima_ + "niamo" ; Indi Pres Pl P2 => rima_ + "nete" ; Indi Pres Pl P3 => rima_ + "ngono" ; - Indi Imperf Sg P1 => rima_ + "nevo" ; - Indi Imperf Sg P2 => rima_ + "nevi" ; - Indi Imperf Sg P3 => rima_ + "neva" ; - Indi Imperf Pl P1 => rima_ + "nevamo" ; - Indi Imperf Pl P2 => rima_ + "nevate" ; - Indi Imperf Pl P3 => rima_ + "nevano" ; - Pass Sg P1 => rima_ + "si" ; - Pass Sg P2 => rima_ + "nesti" ; - Pass Sg P3 => rima_ + "se" ; - Pass Pl P1 => rima_ + "nemmo" ; - Pass Pl P2 => rima_ + "neste" ; - Pass Pl P3 => rima_ + "sero" ; - Fut Sg P1 => rima_ + "rrò" ; - Fut Sg P2 => rima_ + "rrai" ; - Fut Sg P3 => rima_ + "rrà" ; - Fut Pl P1 => rima_ + "rremo" ; - Fut Pl P2 => rima_ + "rrete" ; - Fut Pl P3 => rima_ + "rranno" ; + Indi Imperf Sg P1 => rima_ + "nevo" ; --# notpresent + Indi Imperf Sg P2 => rima_ + "nevi" ; --# notpresent + Indi Imperf Sg P3 => rima_ + "neva" ; --# notpresent + Indi Imperf Pl P1 => rima_ + "nevamo" ; --# notpresent + Indi Imperf Pl P2 => rima_ + "nevate" ; --# notpresent + Indi Imperf Pl P3 => rima_ + "nevano" ; --# notpresent + Pass Sg P1 => rima_ + "si" ; --# notpresent + Pass Sg P2 => rima_ + "nesti" ; --# notpresent + Pass Sg P3 => rima_ + "se" ; --# notpresent + Pass Pl P1 => rima_ + "nemmo" ; --# notpresent + Pass Pl P2 => rima_ + "neste" ; --# notpresent + Pass Pl P3 => rima_ + "sero" ; --# notpresent + Fut Sg P1 => rima_ + "rrò" ; --# notpresent + Fut Sg P2 => rima_ + "rrai" ; --# notpresent + Fut Sg P3 => rima_ + "rrà" ; --# notpresent + Fut Pl P1 => rima_ + "rremo" ; --# notpresent + Fut Pl P2 => rima_ + "rrete" ; --# notpresent + Fut Pl P3 => rima_ + "rranno" ; --# notpresent Cong Pres Sg P1 => rima_ + "nga" ; Cong Pres Sg P2 => rima_ + "nga" ; Cong Pres Sg P3 => rima_ + "nga" ; Cong Pres Pl P1 => rima_ + "niamo" ; Cong Pres Pl P2 => rima_ + "niate" ; Cong Pres Pl P3 => rima_ + "ngano" ; - Cong Imperf Sg P1 => rima_ + "nessi" ; - Cong Imperf Sg P2 => rima_ + "nessi" ; - Cong Imperf Sg P3 => rima_ + "nesse" ; - Cong Imperf Pl P1 => rima_ + "nessimo" ; - Cong Imperf Pl P2 => rima_ + "neste" ; - Cong Imperf Pl P3 => rima_ + "nessero" ; - Cond Sg P1 => rima_ + "rrei" ; - Cond Sg P2 => rima_ + "rresti" ; - Cond Sg P3 => rima_ + "rrebbe" ; - Cond Pl P1 => rima_ + "rremmo" ; - Cond Pl P2 => rima_ + "rreste" ; - Cond Pl P3 => rima_ + "rrebbero" ; + Cong Imperf Sg P1 => rima_ + "nessi" ; --# notpresent + Cong Imperf Sg P2 => rima_ + "nessi" ; --# notpresent + Cong Imperf Sg P3 => rima_ + "nesse" ; --# notpresent + Cong Imperf Pl P1 => rima_ + "nessimo" ; --# notpresent + Cong Imperf Pl P2 => rima_ + "neste" ; --# notpresent + Cong Imperf Pl P3 => rima_ + "nessero" ; --# notpresent + Cond Sg P1 => rima_ + "rrei" ; --# notpresent + Cond Sg P2 => rima_ + "rresti" ; --# notpresent + Cond Sg P3 => rima_ + "rrebbe" ; --# notpresent + Cond Pl P1 => rima_ + "rremmo" ; --# notpresent + Cond Pl P2 => rima_ + "rreste" ; --# notpresent + Cond Pl P3 => rima_ + "rrebbero" ; --# notpresent Imper SgP2 => rima_ + "ni" ; Imper PlP1 => rima_ + "niamo" ; Imper PlP2 => rima_ + "nete" ; @@ -4605,42 +4607,42 @@ oper rispondere_76 : Str -> Verbo = \rispondere -> Indi Pres Pl P1 => rispo_ + "ndiamo" ; Indi Pres Pl P2 => rispo_ + "ndete" ; Indi Pres Pl P3 => rispo_ + "ndono" ; - Indi Imperf Sg P1 => rispo_ + "ndevo" ; - Indi Imperf Sg P2 => rispo_ + "ndevi" ; - Indi Imperf Sg P3 => rispo_ + "ndeva" ; - Indi Imperf Pl P1 => rispo_ + "ndevamo" ; - Indi Imperf Pl P2 => rispo_ + "ndevate" ; - Indi Imperf Pl P3 => rispo_ + "ndevano" ; - Pass Sg P1 => rispo_ + "si" ; - Pass Sg P2 => rispo_ + "ndesti" ; - Pass Sg P3 => rispo_ + "se" ; - Pass Pl P1 => rispo_ + "ndemmo" ; - Pass Pl P2 => rispo_ + "ndeste" ; - Pass Pl P3 => rispo_ + "sero" ; - Fut Sg P1 => rispo_ + "nderò" ; - Fut Sg P2 => rispo_ + "nderai" ; - Fut Sg P3 => rispo_ + "nderà" ; - Fut Pl P1 => rispo_ + "nderemo" ; - Fut Pl P2 => rispo_ + "nderete" ; - Fut Pl P3 => rispo_ + "nderanno" ; + Indi Imperf Sg P1 => rispo_ + "ndevo" ; --# notpresent + Indi Imperf Sg P2 => rispo_ + "ndevi" ; --# notpresent + Indi Imperf Sg P3 => rispo_ + "ndeva" ; --# notpresent + Indi Imperf Pl P1 => rispo_ + "ndevamo" ; --# notpresent + Indi Imperf Pl P2 => rispo_ + "ndevate" ; --# notpresent + Indi Imperf Pl P3 => rispo_ + "ndevano" ; --# notpresent + Pass Sg P1 => rispo_ + "si" ; --# notpresent + Pass Sg P2 => rispo_ + "ndesti" ; --# notpresent + Pass Sg P3 => rispo_ + "se" ; --# notpresent + Pass Pl P1 => rispo_ + "ndemmo" ; --# notpresent + Pass Pl P2 => rispo_ + "ndeste" ; --# notpresent + Pass Pl P3 => rispo_ + "sero" ; --# notpresent + Fut Sg P1 => rispo_ + "nderò" ; --# notpresent + Fut Sg P2 => rispo_ + "nderai" ; --# notpresent + Fut Sg P3 => rispo_ + "nderà" ; --# notpresent + Fut Pl P1 => rispo_ + "nderemo" ; --# notpresent + Fut Pl P2 => rispo_ + "nderete" ; --# notpresent + Fut Pl P3 => rispo_ + "nderanno" ; --# notpresent Cong Pres Sg P1 => rispo_ + "nda" ; Cong Pres Sg P2 => rispo_ + "nda" ; Cong Pres Sg P3 => rispo_ + "nda" ; Cong Pres Pl P1 => rispo_ + "ndiamo" ; Cong Pres Pl P2 => rispo_ + "ndiate" ; Cong Pres Pl P3 => rispo_ + "ndano" ; - Cong Imperf Sg P1 => rispo_ + "ndessi" ; - Cong Imperf Sg P2 => rispo_ + "ndessi" ; - Cong Imperf Sg P3 => rispo_ + "ndesse" ; - Cong Imperf Pl P1 => rispo_ + "ndessimo" ; - Cong Imperf Pl P2 => rispo_ + "ndeste" ; - Cong Imperf Pl P3 => rispo_ + "ndessero" ; - Cond Sg P1 => rispo_ + "nderei" ; - Cond Sg P2 => rispo_ + "nderesti" ; - Cond Sg P3 => rispo_ + "nderebbe" ; - Cond Pl P1 => rispo_ + "nderemmo" ; - Cond Pl P2 => rispo_ + "ndereste" ; - Cond Pl P3 => rispo_ + "nderebbero" ; + Cong Imperf Sg P1 => rispo_ + "ndessi" ; --# notpresent + Cong Imperf Sg P2 => rispo_ + "ndessi" ; --# notpresent + Cong Imperf Sg P3 => rispo_ + "ndesse" ; --# notpresent + Cong Imperf Pl P1 => rispo_ + "ndessimo" ; --# notpresent + Cong Imperf Pl P2 => rispo_ + "ndeste" ; --# notpresent + Cong Imperf Pl P3 => rispo_ + "ndessero" ; --# notpresent + Cond Sg P1 => rispo_ + "nderei" ; --# notpresent + Cond Sg P2 => rispo_ + "nderesti" ; --# notpresent + Cond Sg P3 => rispo_ + "nderebbe" ; --# notpresent + Cond Pl P1 => rispo_ + "nderemmo" ; --# notpresent + Cond Pl P2 => rispo_ + "ndereste" ; --# notpresent + Cond Pl P3 => rispo_ + "nderebbero" ; --# notpresent Imper SgP2 => rispo_ + "ndi" ; Imper PlP1 => rispo_ + "ndiamo" ; Imper PlP2 => rispo_ + "ndete" ; @@ -4667,42 +4669,42 @@ oper rompere_77 : Str -> Verbo = \roompere -> Indi Pres Pl P1 => ro_ + "ompiamo" ; Indi Pres Pl P2 => ro_ + "ompete" ; Indi Pres Pl P3 => ro_ + "ompono" ; - Indi Imperf Sg P1 => ro_ + "ompevo" ; - Indi Imperf Sg P2 => ro_ + "ompevi" ; - Indi Imperf Sg P3 => ro_ + "ompeva" ; - Indi Imperf Pl P1 => ro_ + "ompevamo" ; - Indi Imperf Pl P2 => ro_ + "ompevate" ; - Indi Imperf Pl P3 => ro_ + "ompevano" ; - Pass Sg P1 => ro_ + "uppi" ; - Pass Sg P2 => ro_ + "ompesti" ; - Pass Sg P3 => ro_ + "uppe" ; - Pass Pl P1 => ro_ + "ompemmo" ; - Pass Pl P2 => ro_ + "ompeste" ; - Pass Pl P3 => ro_ + "uppero" ; - Fut Sg P1 => ro_ + "omperò" ; - Fut Sg P2 => ro_ + "omperai" ; - Fut Sg P3 => ro_ + "omperà" ; - Fut Pl P1 => ro_ + "omperemo" ; - Fut Pl P2 => ro_ + "omperete" ; - Fut Pl P3 => ro_ + "omperanno" ; + Indi Imperf Sg P1 => ro_ + "ompevo" ; --# notpresent + Indi Imperf Sg P2 => ro_ + "ompevi" ; --# notpresent + Indi Imperf Sg P3 => ro_ + "ompeva" ; --# notpresent + Indi Imperf Pl P1 => ro_ + "ompevamo" ; --# notpresent + Indi Imperf Pl P2 => ro_ + "ompevate" ; --# notpresent + Indi Imperf Pl P3 => ro_ + "ompevano" ; --# notpresent + Pass Sg P1 => ro_ + "uppi" ; --# notpresent + Pass Sg P2 => ro_ + "ompesti" ; --# notpresent + Pass Sg P3 => ro_ + "uppe" ; --# notpresent + Pass Pl P1 => ro_ + "ompemmo" ; --# notpresent + Pass Pl P2 => ro_ + "ompeste" ; --# notpresent + Pass Pl P3 => ro_ + "uppero" ; --# notpresent + Fut Sg P1 => ro_ + "omperò" ; --# notpresent + Fut Sg P2 => ro_ + "omperai" ; --# notpresent + Fut Sg P3 => ro_ + "omperà" ; --# notpresent + Fut Pl P1 => ro_ + "omperemo" ; --# notpresent + Fut Pl P2 => ro_ + "omperete" ; --# notpresent + Fut Pl P3 => ro_ + "omperanno" ; --# notpresent Cong Pres Sg P1 => ro_ + "ompa" ; Cong Pres Sg P2 => ro_ + "ompa" ; Cong Pres Sg P3 => ro_ + "ompa" ; Cong Pres Pl P1 => ro_ + "ompiamo" ; Cong Pres Pl P2 => ro_ + "ompiate" ; Cong Pres Pl P3 => ro_ + "ompano" ; - Cong Imperf Sg P1 => ro_ + "ompessi" ; - Cong Imperf Sg P2 => ro_ + "ompessi" ; - Cong Imperf Sg P3 => ro_ + "ompesse" ; - Cong Imperf Pl P1 => ro_ + "ompessimo" ; - Cong Imperf Pl P2 => ro_ + "ompeste" ; - Cong Imperf Pl P3 => ro_ + "ompessero" ; - Cond Sg P1 => ro_ + "omperei" ; - Cond Sg P2 => ro_ + "omperesti" ; - Cond Sg P3 => ro_ + "omperebbe" ; - Cond Pl P1 => ro_ + "omperemmo" ; - Cond Pl P2 => ro_ + "ompereste" ; - Cond Pl P3 => ro_ + "omperebbero" ; + Cong Imperf Sg P1 => ro_ + "ompessi" ; --# notpresent + Cong Imperf Sg P2 => ro_ + "ompessi" ; --# notpresent + Cong Imperf Sg P3 => ro_ + "ompesse" ; --# notpresent + Cong Imperf Pl P1 => ro_ + "ompessimo" ; --# notpresent + Cong Imperf Pl P2 => ro_ + "ompeste" ; --# notpresent + Cong Imperf Pl P3 => ro_ + "ompessero" ; --# notpresent + Cond Sg P1 => ro_ + "omperei" ; --# notpresent + Cond Sg P2 => ro_ + "omperesti" ; --# notpresent + Cond Sg P3 => ro_ + "omperebbe" ; --# notpresent + Cond Pl P1 => ro_ + "omperemmo" ; --# notpresent + Cond Pl P2 => ro_ + "ompereste" ; --# notpresent + Cond Pl P3 => ro_ + "omperebbero" ; --# notpresent Imper SgP2 => ro_ + "ompi" ; Imper PlP1 => ro_ + "ompiamo" ; Imper PlP2 => ro_ + "ompete" ; @@ -4729,42 +4731,42 @@ oper sapere_78 : Str -> Verbo = \sapere -> Indi Pres Pl P1 => s_ + "appiamo" ; Indi Pres Pl P2 => s_ + "apete" ; Indi Pres Pl P3 => s_ + "anno" ; - Indi Imperf Sg P1 => s_ + "apevo" ; - Indi Imperf Sg P2 => s_ + "apevi" ; - Indi Imperf Sg P3 => s_ + "apeva" ; - Indi Imperf Pl P1 => s_ + "apevamo" ; - Indi Imperf Pl P2 => s_ + "apevate" ; - Indi Imperf Pl P3 => s_ + "apevano" ; - Pass Sg P1 => s_ + "eppi" ; - Pass Sg P2 => s_ + "apesti" ; - Pass Sg P3 => s_ + "eppe" ; - Pass Pl P1 => s_ + "apemmo" ; - Pass Pl P2 => s_ + "apeste" ; - Pass Pl P3 => s_ + "eppero" ; - Fut Sg P1 => s_ + "aprò" ; - Fut Sg P2 => s_ + "aprai" ; - Fut Sg P3 => s_ + "aprà" ; - Fut Pl P1 => s_ + "apremo" ; - Fut Pl P2 => s_ + "aprete" ; - Fut Pl P3 => s_ + "apranno" ; + Indi Imperf Sg P1 => s_ + "apevo" ; --# notpresent + Indi Imperf Sg P2 => s_ + "apevi" ; --# notpresent + Indi Imperf Sg P3 => s_ + "apeva" ; --# notpresent + Indi Imperf Pl P1 => s_ + "apevamo" ; --# notpresent + Indi Imperf Pl P2 => s_ + "apevate" ; --# notpresent + Indi Imperf Pl P3 => s_ + "apevano" ; --# notpresent + Pass Sg P1 => s_ + "eppi" ; --# notpresent + Pass Sg P2 => s_ + "apesti" ; --# notpresent + Pass Sg P3 => s_ + "eppe" ; --# notpresent + Pass Pl P1 => s_ + "apemmo" ; --# notpresent + Pass Pl P2 => s_ + "apeste" ; --# notpresent + Pass Pl P3 => s_ + "eppero" ; --# notpresent + Fut Sg P1 => s_ + "aprò" ; --# notpresent + Fut Sg P2 => s_ + "aprai" ; --# notpresent + Fut Sg P3 => s_ + "aprà" ; --# notpresent + Fut Pl P1 => s_ + "apremo" ; --# notpresent + Fut Pl P2 => s_ + "aprete" ; --# notpresent + Fut Pl P3 => s_ + "apranno" ; --# notpresent Cong Pres Sg P1 => s_ + "appia" ; Cong Pres Sg P2 => s_ + "appia" ; Cong Pres Sg P3 => s_ + "appia" ; Cong Pres Pl P1 => s_ + "appiamo" ; Cong Pres Pl P2 => s_ + "appiate" ; Cong Pres Pl P3 => s_ + "appiano" ; - Cong Imperf Sg P1 => s_ + "apessi" ; - Cong Imperf Sg P2 => s_ + "apessi" ; - Cong Imperf Sg P3 => s_ + "apesse" ; - Cong Imperf Pl P1 => s_ + "apessimo" ; - Cong Imperf Pl P2 => s_ + "apeste" ; - Cong Imperf Pl P3 => s_ + "apessero" ; - Cond Sg P1 => s_ + "aprei" ; - Cond Sg P2 => s_ + "apresti" ; - Cond Sg P3 => s_ + "aprebbe" ; - Cond Pl P1 => s_ + "apremmo" ; - Cond Pl P2 => s_ + "apreste" ; - Cond Pl P3 => s_ + "aprebbero" ; + Cong Imperf Sg P1 => s_ + "apessi" ; --# notpresent + Cong Imperf Sg P2 => s_ + "apessi" ; --# notpresent + Cong Imperf Sg P3 => s_ + "apesse" ; --# notpresent + Cong Imperf Pl P1 => s_ + "apessimo" ; --# notpresent + Cong Imperf Pl P2 => s_ + "apeste" ; --# notpresent + Cong Imperf Pl P3 => s_ + "apessero" ; --# notpresent + Cond Sg P1 => s_ + "aprei" ; --# notpresent + Cond Sg P2 => s_ + "apresti" ; --# notpresent + Cond Sg P3 => s_ + "aprebbe" ; --# notpresent + Cond Pl P1 => s_ + "apremmo" ; --# notpresent + Cond Pl P2 => s_ + "apreste" ; --# notpresent + Cond Pl P3 => s_ + "aprebbero" ; --# notpresent Imper SgP2 => s_ + "appi" ; Imper PlP1 => s_ + "appiamo" ; Imper PlP2 => s_ + "appiate" ; @@ -4791,42 +4793,42 @@ oper scegliere_79 : Str -> Verbo = \scegliere -> Indi Pres Pl P1 => sce_ + "gliamo" ; Indi Pres Pl P2 => sce_ + "gliete" ; Indi Pres Pl P3 => sce_ + "lgono" ; - Indi Imperf Sg P1 => sce_ + "glievo" ; - Indi Imperf Sg P2 => sce_ + "glievi" ; - Indi Imperf Sg P3 => sce_ + "glieva" ; - Indi Imperf Pl P1 => sce_ + "glievamo" ; - Indi Imperf Pl P2 => sce_ + "glievate" ; - Indi Imperf Pl P3 => sce_ + "glievano" ; - Pass Sg P1 => sce_ + "lsi" ; - Pass Sg P2 => sce_ + "gliesti" ; - Pass Sg P3 => sce_ + "lse" ; - Pass Pl P1 => sce_ + "gliemmo" ; - Pass Pl P2 => sce_ + "glieste" ; - Pass Pl P3 => sce_ + "lsero" ; - Fut Sg P1 => sce_ + "glierò" ; - Fut Sg P2 => sce_ + "glierai" ; - Fut Sg P3 => sce_ + "glierà" ; - Fut Pl P1 => sce_ + "glieremo" ; - Fut Pl P2 => sce_ + "glierete" ; - Fut Pl P3 => sce_ + "glieranno" ; + Indi Imperf Sg P1 => sce_ + "glievo" ; --# notpresent + Indi Imperf Sg P2 => sce_ + "glievi" ; --# notpresent + Indi Imperf Sg P3 => sce_ + "glieva" ; --# notpresent + Indi Imperf Pl P1 => sce_ + "glievamo" ; --# notpresent + Indi Imperf Pl P2 => sce_ + "glievate" ; --# notpresent + Indi Imperf Pl P3 => sce_ + "glievano" ; --# notpresent + Pass Sg P1 => sce_ + "lsi" ; --# notpresent + Pass Sg P2 => sce_ + "gliesti" ; --# notpresent + Pass Sg P3 => sce_ + "lse" ; --# notpresent + Pass Pl P1 => sce_ + "gliemmo" ; --# notpresent + Pass Pl P2 => sce_ + "glieste" ; --# notpresent + Pass Pl P3 => sce_ + "lsero" ; --# notpresent + Fut Sg P1 => sce_ + "glierò" ; --# notpresent + Fut Sg P2 => sce_ + "glierai" ; --# notpresent + Fut Sg P3 => sce_ + "glierà" ; --# notpresent + Fut Pl P1 => sce_ + "glieremo" ; --# notpresent + Fut Pl P2 => sce_ + "glierete" ; --# notpresent + Fut Pl P3 => sce_ + "glieranno" ; --# notpresent Cong Pres Sg P1 => sce_ + "lga" ; Cong Pres Sg P2 => sce_ + "lga" ; Cong Pres Sg P3 => sce_ + "lga" ; Cong Pres Pl P1 => sce_ + "gliamo" ; Cong Pres Pl P2 => sce_ + "gliate" ; Cong Pres Pl P3 => sce_ + "lgano" ; - Cong Imperf Sg P1 => sce_ + "gliessi" ; - Cong Imperf Sg P2 => sce_ + "gliessi" ; - Cong Imperf Sg P3 => sce_ + "gliesse" ; - Cong Imperf Pl P1 => sce_ + "gliessimo" ; - Cong Imperf Pl P2 => sce_ + "glieste" ; - Cong Imperf Pl P3 => sce_ + "gliessero" ; - Cond Sg P1 => sce_ + "glierei" ; - Cond Sg P2 => sce_ + "glieresti" ; - Cond Sg P3 => sce_ + "glierebbe" ; - Cond Pl P1 => sce_ + "glieremmo" ; - Cond Pl P2 => sce_ + "gliereste" ; - Cond Pl P3 => sce_ + "glierebbero" ; + Cong Imperf Sg P1 => sce_ + "gliessi" ; --# notpresent + Cong Imperf Sg P2 => sce_ + "gliessi" ; --# notpresent + Cong Imperf Sg P3 => sce_ + "gliesse" ; --# notpresent + Cong Imperf Pl P1 => sce_ + "gliessimo" ; --# notpresent + Cong Imperf Pl P2 => sce_ + "glieste" ; --# notpresent + Cong Imperf Pl P3 => sce_ + "gliessero" ; --# notpresent + Cond Sg P1 => sce_ + "glierei" ; --# notpresent + Cond Sg P2 => sce_ + "glieresti" ; --# notpresent + Cond Sg P3 => sce_ + "glierebbe" ; --# notpresent + Cond Pl P1 => sce_ + "glieremmo" ; --# notpresent + Cond Pl P2 => sce_ + "gliereste" ; --# notpresent + Cond Pl P3 => sce_ + "glierebbero" ; --# notpresent Imper SgP2 => sce_ + "gli" ; Imper PlP1 => sce_ + "gliamo" ; Imper PlP2 => sce_ + "gliete" ; @@ -4853,42 +4855,42 @@ oper scendere_80 : Str -> Verbo = \scendere -> Indi Pres Pl P1 => sce_ + "ndiamo" ; Indi Pres Pl P2 => sce_ + "ndete" ; Indi Pres Pl P3 => sce_ + "ndono" ; - Indi Imperf Sg P1 => sce_ + "ndevo" ; - Indi Imperf Sg P2 => sce_ + "ndevi" ; - Indi Imperf Sg P3 => sce_ + "ndeva" ; - Indi Imperf Pl P1 => sce_ + "ndevamo" ; - Indi Imperf Pl P2 => sce_ + "ndevate" ; - Indi Imperf Pl P3 => sce_ + "ndevano" ; - Pass Sg P1 => sce_ + "si" ; - Pass Sg P2 => sce_ + "ndesti" ; - Pass Sg P3 => sce_ + "se" ; - Pass Pl P1 => sce_ + "ndemmo" ; - Pass Pl P2 => sce_ + "ndeste" ; - Pass Pl P3 => sce_ + "sero" ; - Fut Sg P1 => sce_ + "nderò" ; - Fut Sg P2 => sce_ + "nderai" ; - Fut Sg P3 => sce_ + "nderà" ; - Fut Pl P1 => sce_ + "nderemo" ; - Fut Pl P2 => sce_ + "nderete" ; - Fut Pl P3 => sce_ + "nderanno" ; + Indi Imperf Sg P1 => sce_ + "ndevo" ; --# notpresent + Indi Imperf Sg P2 => sce_ + "ndevi" ; --# notpresent + Indi Imperf Sg P3 => sce_ + "ndeva" ; --# notpresent + Indi Imperf Pl P1 => sce_ + "ndevamo" ; --# notpresent + Indi Imperf Pl P2 => sce_ + "ndevate" ; --# notpresent + Indi Imperf Pl P3 => sce_ + "ndevano" ; --# notpresent + Pass Sg P1 => sce_ + "si" ; --# notpresent + Pass Sg P2 => sce_ + "ndesti" ; --# notpresent + Pass Sg P3 => sce_ + "se" ; --# notpresent + Pass Pl P1 => sce_ + "ndemmo" ; --# notpresent + Pass Pl P2 => sce_ + "ndeste" ; --# notpresent + Pass Pl P3 => sce_ + "sero" ; --# notpresent + Fut Sg P1 => sce_ + "nderò" ; --# notpresent + Fut Sg P2 => sce_ + "nderai" ; --# notpresent + Fut Sg P3 => sce_ + "nderà" ; --# notpresent + Fut Pl P1 => sce_ + "nderemo" ; --# notpresent + Fut Pl P2 => sce_ + "nderete" ; --# notpresent + Fut Pl P3 => sce_ + "nderanno" ; --# notpresent Cong Pres Sg P1 => sce_ + "nda" ; Cong Pres Sg P2 => sce_ + "nda" ; Cong Pres Sg P3 => sce_ + "nda" ; Cong Pres Pl P1 => sce_ + "ndiamo" ; Cong Pres Pl P2 => sce_ + "ndiate" ; Cong Pres Pl P3 => sce_ + "ndano" ; - Cong Imperf Sg P1 => sce_ + "ndessi" ; - Cong Imperf Sg P2 => sce_ + "ndessi" ; - Cong Imperf Sg P3 => sce_ + "ndesse" ; - Cong Imperf Pl P1 => sce_ + "ndessimo" ; - Cong Imperf Pl P2 => sce_ + "ndeste" ; - Cong Imperf Pl P3 => sce_ + "ndessero" ; - Cond Sg P1 => sce_ + "nderei" ; - Cond Sg P2 => sce_ + "nderesti" ; - Cond Sg P3 => sce_ + "nderebbe" ; - Cond Pl P1 => sce_ + "nderemmo" ; - Cond Pl P2 => sce_ + "ndereste" ; - Cond Pl P3 => sce_ + "nderebbero" ; + Cong Imperf Sg P1 => sce_ + "ndessi" ; --# notpresent + Cong Imperf Sg P2 => sce_ + "ndessi" ; --# notpresent + Cong Imperf Sg P3 => sce_ + "ndesse" ; --# notpresent + Cong Imperf Pl P1 => sce_ + "ndessimo" ; --# notpresent + Cong Imperf Pl P2 => sce_ + "ndeste" ; --# notpresent + Cong Imperf Pl P3 => sce_ + "ndessero" ; --# notpresent + Cond Sg P1 => sce_ + "nderei" ; --# notpresent + Cond Sg P2 => sce_ + "nderesti" ; --# notpresent + Cond Sg P3 => sce_ + "nderebbe" ; --# notpresent + Cond Pl P1 => sce_ + "nderemmo" ; --# notpresent + Cond Pl P2 => sce_ + "ndereste" ; --# notpresent + Cond Pl P3 => sce_ + "nderebbero" ; --# notpresent Imper SgP2 => sce_ + "ndi" ; Imper PlP1 => sce_ + "ndiamo" ; Imper PlP2 => sce_ + "ndete" ; @@ -4915,42 +4917,42 @@ oper scindere_81 : Str -> Verbo = \scindere -> Indi Pres Pl P1 => sci_ + "ndiamo" ; Indi Pres Pl P2 => sci_ + "ndete" ; Indi Pres Pl P3 => sci_ + "ndono" ; - Indi Imperf Sg P1 => sci_ + "ndevo" ; - Indi Imperf Sg P2 => sci_ + "ndevi" ; - Indi Imperf Sg P3 => sci_ + "ndeva" ; - Indi Imperf Pl P1 => sci_ + "ndevamo" ; - Indi Imperf Pl P2 => sci_ + "ndevate" ; - Indi Imperf Pl P3 => sci_ + "ndevano" ; - Pass Sg P1 => sci_ + "ssi" ; - Pass Sg P2 => sci_ + "ndesti" ; - Pass Sg P3 => sci_ + "sse" ; - Pass Pl P1 => sci_ + "ndemmo" ; - Pass Pl P2 => sci_ + "ndeste" ; - Pass Pl P3 => sci_ + "ssero" ; - Fut Sg P1 => sci_ + "nderò" ; - Fut Sg P2 => sci_ + "nderai" ; - Fut Sg P3 => sci_ + "nderà" ; - Fut Pl P1 => sci_ + "nderemo" ; - Fut Pl P2 => sci_ + "nderete" ; - Fut Pl P3 => sci_ + "nderanno" ; + Indi Imperf Sg P1 => sci_ + "ndevo" ; --# notpresent + Indi Imperf Sg P2 => sci_ + "ndevi" ; --# notpresent + Indi Imperf Sg P3 => sci_ + "ndeva" ; --# notpresent + Indi Imperf Pl P1 => sci_ + "ndevamo" ; --# notpresent + Indi Imperf Pl P2 => sci_ + "ndevate" ; --# notpresent + Indi Imperf Pl P3 => sci_ + "ndevano" ; --# notpresent + Pass Sg P1 => sci_ + "ssi" ; --# notpresent + Pass Sg P2 => sci_ + "ndesti" ; --# notpresent + Pass Sg P3 => sci_ + "sse" ; --# notpresent + Pass Pl P1 => sci_ + "ndemmo" ; --# notpresent + Pass Pl P2 => sci_ + "ndeste" ; --# notpresent + Pass Pl P3 => sci_ + "ssero" ; --# notpresent + Fut Sg P1 => sci_ + "nderò" ; --# notpresent + Fut Sg P2 => sci_ + "nderai" ; --# notpresent + Fut Sg P3 => sci_ + "nderà" ; --# notpresent + Fut Pl P1 => sci_ + "nderemo" ; --# notpresent + Fut Pl P2 => sci_ + "nderete" ; --# notpresent + Fut Pl P3 => sci_ + "nderanno" ; --# notpresent Cong Pres Sg P1 => sci_ + "nda" ; Cong Pres Sg P2 => sci_ + "nda" ; Cong Pres Sg P3 => sci_ + "nda" ; Cong Pres Pl P1 => sci_ + "ndiamo" ; Cong Pres Pl P2 => sci_ + "ndiate" ; Cong Pres Pl P3 => sci_ + "ndano" ; - Cong Imperf Sg P1 => sci_ + "ndessi" ; - Cong Imperf Sg P2 => sci_ + "ndessi" ; - Cong Imperf Sg P3 => sci_ + "ndesse" ; - Cong Imperf Pl P1 => sci_ + "ndessimo" ; - Cong Imperf Pl P2 => sci_ + "ndeste" ; - Cong Imperf Pl P3 => sci_ + "ndessero" ; - Cond Sg P1 => sci_ + "nderei" ; - Cond Sg P2 => sci_ + "nderesti" ; - Cond Sg P3 => sci_ + "nderebbe" ; - Cond Pl P1 => sci_ + "nderemmo" ; - Cond Pl P2 => sci_ + "ndereste" ; - Cond Pl P3 => sci_ + "nderebbero" ; + Cong Imperf Sg P1 => sci_ + "ndessi" ; --# notpresent + Cong Imperf Sg P2 => sci_ + "ndessi" ; --# notpresent + Cong Imperf Sg P3 => sci_ + "ndesse" ; --# notpresent + Cong Imperf Pl P1 => sci_ + "ndessimo" ; --# notpresent + Cong Imperf Pl P2 => sci_ + "ndeste" ; --# notpresent + Cong Imperf Pl P3 => sci_ + "ndessero" ; --# notpresent + Cond Sg P1 => sci_ + "nderei" ; --# notpresent + Cond Sg P2 => sci_ + "nderesti" ; --# notpresent + Cond Sg P3 => sci_ + "nderebbe" ; --# notpresent + Cond Pl P1 => sci_ + "nderemmo" ; --# notpresent + Cond Pl P2 => sci_ + "ndereste" ; --# notpresent + Cond Pl P3 => sci_ + "nderebbero" ; --# notpresent Imper SgP2 => sci_ + "ndi" ; Imper PlP1 => sci_ + "ndiamo" ; Imper PlP2 => sci_ + "ndete" ; @@ -4977,42 +4979,42 @@ oper scrivere_82 : Str -> Verbo = \scrivere -> Indi Pres Pl P1 => scri_ + "viamo" ; Indi Pres Pl P2 => scri_ + "vete" ; Indi Pres Pl P3 => scri_ + "vono" ; - Indi Imperf Sg P1 => scri_ + "vevo" ; - Indi Imperf Sg P2 => scri_ + "vevi" ; - Indi Imperf Sg P3 => scri_ + "veva" ; - Indi Imperf Pl P1 => scri_ + "vevamo" ; - Indi Imperf Pl P2 => scri_ + "vevate" ; - Indi Imperf Pl P3 => scri_ + "vevano" ; - Pass Sg P1 => scri_ + "ssi" ; - Pass Sg P2 => scri_ + "vesti" ; - Pass Sg P3 => scri_ + "sse" ; - Pass Pl P1 => scri_ + "vemmo" ; - Pass Pl P2 => scri_ + "veste" ; - Pass Pl P3 => scri_ + "ssero" ; - Fut Sg P1 => scri_ + "verò" ; - Fut Sg P2 => scri_ + "verai" ; - Fut Sg P3 => scri_ + "verà" ; - Fut Pl P1 => scri_ + "veremo" ; - Fut Pl P2 => scri_ + "verete" ; - Fut Pl P3 => scri_ + "veranno" ; + Indi Imperf Sg P1 => scri_ + "vevo" ; --# notpresent + Indi Imperf Sg P2 => scri_ + "vevi" ; --# notpresent + Indi Imperf Sg P3 => scri_ + "veva" ; --# notpresent + Indi Imperf Pl P1 => scri_ + "vevamo" ; --# notpresent + Indi Imperf Pl P2 => scri_ + "vevate" ; --# notpresent + Indi Imperf Pl P3 => scri_ + "vevano" ; --# notpresent + Pass Sg P1 => scri_ + "ssi" ; --# notpresent + Pass Sg P2 => scri_ + "vesti" ; --# notpresent + Pass Sg P3 => scri_ + "sse" ; --# notpresent + Pass Pl P1 => scri_ + "vemmo" ; --# notpresent + Pass Pl P2 => scri_ + "veste" ; --# notpresent + Pass Pl P3 => scri_ + "ssero" ; --# notpresent + Fut Sg P1 => scri_ + "verò" ; --# notpresent + Fut Sg P2 => scri_ + "verai" ; --# notpresent + Fut Sg P3 => scri_ + "verà" ; --# notpresent + Fut Pl P1 => scri_ + "veremo" ; --# notpresent + Fut Pl P2 => scri_ + "verete" ; --# notpresent + Fut Pl P3 => scri_ + "veranno" ; --# notpresent Cong Pres Sg P1 => scri_ + "va" ; Cong Pres Sg P2 => scri_ + "va" ; Cong Pres Sg P3 => scri_ + "va" ; Cong Pres Pl P1 => scri_ + "viamo" ; Cong Pres Pl P2 => scri_ + "viate" ; Cong Pres Pl P3 => scri_ + "vano" ; - Cong Imperf Sg P1 => scri_ + "vessi" ; - Cong Imperf Sg P2 => scri_ + "vessi" ; - Cong Imperf Sg P3 => scri_ + "vesse" ; - Cong Imperf Pl P1 => scri_ + "vessimo" ; - Cong Imperf Pl P2 => scri_ + "veste" ; - Cong Imperf Pl P3 => scri_ + "vessero" ; - Cond Sg P1 => scri_ + "verei" ; - Cond Sg P2 => scri_ + "veresti" ; - Cond Sg P3 => scri_ + "verebbe" ; - Cond Pl P1 => scri_ + "veremmo" ; - Cond Pl P2 => scri_ + "vereste" ; - Cond Pl P3 => scri_ + "verebbero" ; + Cong Imperf Sg P1 => scri_ + "vessi" ; --# notpresent + Cong Imperf Sg P2 => scri_ + "vessi" ; --# notpresent + Cong Imperf Sg P3 => scri_ + "vesse" ; --# notpresent + Cong Imperf Pl P1 => scri_ + "vessimo" ; --# notpresent + Cong Imperf Pl P2 => scri_ + "veste" ; --# notpresent + Cong Imperf Pl P3 => scri_ + "vessero" ; --# notpresent + Cond Sg P1 => scri_ + "verei" ; --# notpresent + Cond Sg P2 => scri_ + "veresti" ; --# notpresent + Cond Sg P3 => scri_ + "verebbe" ; --# notpresent + Cond Pl P1 => scri_ + "veremmo" ; --# notpresent + Cond Pl P2 => scri_ + "vereste" ; --# notpresent + Cond Pl P3 => scri_ + "verebbero" ; --# notpresent Imper SgP2 => scri_ + "vi" ; Imper PlP1 => scri_ + "viamo" ; Imper PlP2 => scri_ + "vete" ; @@ -5039,42 +5041,42 @@ oper scuotere_83 : Str -> Verbo = \scuotere -> Indi Pres Pl P1 => sc_ + "uotiamo" ; Indi Pres Pl P2 => sc_ + "uotete" ; Indi Pres Pl P3 => sc_ + "uotono" ; - Indi Imperf Sg P1 => sc_ + "uotevo" ; - Indi Imperf Sg P2 => sc_ + "uotevi" ; - Indi Imperf Sg P3 => sc_ + "uoteva" ; - Indi Imperf Pl P1 => sc_ + "uotevamo" ; - Indi Imperf Pl P2 => sc_ + "uotevate" ; - Indi Imperf Pl P3 => sc_ + "uotevano" ; - Pass Sg P1 => sc_ + "ossi" ; - Pass Sg P2 => sc_ + "uotesti" ; - Pass Sg P3 => sc_ + "osse" ; - Pass Pl P1 => sc_ + "uotemmo" ; - Pass Pl P2 => sc_ + "uoteste" ; - Pass Pl P3 => sc_ + "ossero" ; - Fut Sg P1 => sc_ + "uoterò" ; - Fut Sg P2 => sc_ + "uoterai" ; - Fut Sg P3 => sc_ + "uoterà" ; - Fut Pl P1 => sc_ + "uoteremo" ; - Fut Pl P2 => sc_ + "uoterete" ; - Fut Pl P3 => sc_ + "uoteranno" ; + Indi Imperf Sg P1 => sc_ + "uotevo" ; --# notpresent + Indi Imperf Sg P2 => sc_ + "uotevi" ; --# notpresent + Indi Imperf Sg P3 => sc_ + "uoteva" ; --# notpresent + Indi Imperf Pl P1 => sc_ + "uotevamo" ; --# notpresent + Indi Imperf Pl P2 => sc_ + "uotevate" ; --# notpresent + Indi Imperf Pl P3 => sc_ + "uotevano" ; --# notpresent + Pass Sg P1 => sc_ + "ossi" ; --# notpresent + Pass Sg P2 => sc_ + "uotesti" ; --# notpresent + Pass Sg P3 => sc_ + "osse" ; --# notpresent + Pass Pl P1 => sc_ + "uotemmo" ; --# notpresent + Pass Pl P2 => sc_ + "uoteste" ; --# notpresent + Pass Pl P3 => sc_ + "ossero" ; --# notpresent + Fut Sg P1 => sc_ + "uoterò" ; --# notpresent + Fut Sg P2 => sc_ + "uoterai" ; --# notpresent + Fut Sg P3 => sc_ + "uoterà" ; --# notpresent + Fut Pl P1 => sc_ + "uoteremo" ; --# notpresent + Fut Pl P2 => sc_ + "uoterete" ; --# notpresent + Fut Pl P3 => sc_ + "uoteranno" ; --# notpresent Cong Pres Sg P1 => sc_ + "uota" ; Cong Pres Sg P2 => sc_ + "uota" ; Cong Pres Sg P3 => sc_ + "uota" ; Cong Pres Pl P1 => sc_ + "uotiamo" ; Cong Pres Pl P2 => sc_ + "uotiate" ; Cong Pres Pl P3 => sc_ + "uotano" ; - Cong Imperf Sg P1 => sc_ + "uotessi" ; - Cong Imperf Sg P2 => sc_ + "uotessi" ; - Cong Imperf Sg P3 => sc_ + "uotesse" ; - Cong Imperf Pl P1 => sc_ + "uotessimo" ; - Cong Imperf Pl P2 => sc_ + "uoteste" ; - Cong Imperf Pl P3 => sc_ + "uotessero" ; - Cond Sg P1 => sc_ + "uoterei" ; - Cond Sg P2 => sc_ + "uoteresti" ; - Cond Sg P3 => sc_ + "uoterebbe" ; - Cond Pl P1 => sc_ + "uoteremmo" ; - Cond Pl P2 => sc_ + "uotereste" ; - Cond Pl P3 => sc_ + "uoterebbero" ; + Cong Imperf Sg P1 => sc_ + "uotessi" ; --# notpresent + Cong Imperf Sg P2 => sc_ + "uotessi" ; --# notpresent + Cong Imperf Sg P3 => sc_ + "uotesse" ; --# notpresent + Cong Imperf Pl P1 => sc_ + "uotessimo" ; --# notpresent + Cong Imperf Pl P2 => sc_ + "uoteste" ; --# notpresent + Cong Imperf Pl P3 => sc_ + "uotessero" ; --# notpresent + Cond Sg P1 => sc_ + "uoterei" ; --# notpresent + Cond Sg P2 => sc_ + "uoteresti" ; --# notpresent + Cond Sg P3 => sc_ + "uoterebbe" ; --# notpresent + Cond Pl P1 => sc_ + "uoteremmo" ; --# notpresent + Cond Pl P2 => sc_ + "uotereste" ; --# notpresent + Cond Pl P3 => sc_ + "uoterebbero" ; --# notpresent Imper SgP2 => sc_ + "uoti" ; Imper PlP1 => sc_ + "uotiamo" ; Imper PlP2 => sc_ + "uotete" ; @@ -5101,42 +5103,42 @@ oper sedere_84 : Str -> Verbo = \sedere -> Indi Pres Pl P1 => s_ + "ediamo" ; Indi Pres Pl P2 => s_ + "edete" ; Indi Pres Pl P3 => s_ + "iedono" ; - Indi Imperf Sg P1 => s_ + "edevo" ; - Indi Imperf Sg P2 => s_ + "edevi" ; - Indi Imperf Sg P3 => s_ + "edeva" ; - Indi Imperf Pl P1 => s_ + "edevamo" ; - Indi Imperf Pl P2 => s_ + "edevate" ; - Indi Imperf Pl P3 => s_ + "edevano" ; - Pass Sg P1 => s_ + "edetti" ; - Pass Sg P2 => s_ + "edesti" ; - Pass Sg P3 => s_ + "edette" ; - Pass Pl P1 => s_ + "edemmo" ; - Pass Pl P2 => s_ + "edeste" ; - Pass Pl P3 => s_ + "edettero" ; - Fut Sg P1 => s_ + "ederò" ; - Fut Sg P2 => s_ + "ederai" ; - Fut Sg P3 => s_ + "ederà" ; - Fut Pl P1 => s_ + "ederemo" ; - Fut Pl P2 => s_ + "ederete" ; - Fut Pl P3 => s_ + "ederanno" ; + Indi Imperf Sg P1 => s_ + "edevo" ; --# notpresent + Indi Imperf Sg P2 => s_ + "edevi" ; --# notpresent + Indi Imperf Sg P3 => s_ + "edeva" ; --# notpresent + Indi Imperf Pl P1 => s_ + "edevamo" ; --# notpresent + Indi Imperf Pl P2 => s_ + "edevate" ; --# notpresent + Indi Imperf Pl P3 => s_ + "edevano" ; --# notpresent + Pass Sg P1 => s_ + "edetti" ; --# notpresent + Pass Sg P2 => s_ + "edesti" ; --# notpresent + Pass Sg P3 => s_ + "edette" ; --# notpresent + Pass Pl P1 => s_ + "edemmo" ; --# notpresent + Pass Pl P2 => s_ + "edeste" ; --# notpresent + Pass Pl P3 => s_ + "edettero" ; --# notpresent + Fut Sg P1 => s_ + "ederò" ; --# notpresent + Fut Sg P2 => s_ + "ederai" ; --# notpresent + Fut Sg P3 => s_ + "ederà" ; --# notpresent + Fut Pl P1 => s_ + "ederemo" ; --# notpresent + Fut Pl P2 => s_ + "ederete" ; --# notpresent + Fut Pl P3 => s_ + "ederanno" ; --# notpresent Cong Pres Sg P1 => s_ + "ieda" ; Cong Pres Sg P2 => s_ + "ieda" ; Cong Pres Sg P3 => s_ + "ieda" ; Cong Pres Pl P1 => s_ + "ediamo" ; Cong Pres Pl P2 => s_ + "ediate" ; Cong Pres Pl P3 => s_ + "iedano" ; - Cong Imperf Sg P1 => s_ + "edessi" ; - Cong Imperf Sg P2 => s_ + "edessi" ; - Cong Imperf Sg P3 => s_ + "edesse" ; - Cong Imperf Pl P1 => s_ + "edessimo" ; - Cong Imperf Pl P2 => s_ + "edeste" ; - Cong Imperf Pl P3 => s_ + "edessero" ; - Cond Sg P1 => s_ + "ederei" ; - Cond Sg P2 => s_ + "ederesti" ; - Cond Sg P3 => s_ + "ederebbe" ; - Cond Pl P1 => s_ + "ederemmo" ; - Cond Pl P2 => s_ + "edereste" ; - Cond Pl P3 => s_ + "ederebbero" ; + Cong Imperf Sg P1 => s_ + "edessi" ; --# notpresent + Cong Imperf Sg P2 => s_ + "edessi" ; --# notpresent + Cong Imperf Sg P3 => s_ + "edesse" ; --# notpresent + Cong Imperf Pl P1 => s_ + "edessimo" ; --# notpresent + Cong Imperf Pl P2 => s_ + "edeste" ; --# notpresent + Cong Imperf Pl P3 => s_ + "edessero" ; --# notpresent + Cond Sg P1 => s_ + "ederei" ; --# notpresent + Cond Sg P2 => s_ + "ederesti" ; --# notpresent + Cond Sg P3 => s_ + "ederebbe" ; --# notpresent + Cond Pl P1 => s_ + "ederemmo" ; --# notpresent + Cond Pl P2 => s_ + "edereste" ; --# notpresent + Cond Pl P3 => s_ + "ederebbero" ; --# notpresent Imper SgP2 => s_ + "iedi" ; Imper PlP1 => s_ + "ediamo" ; Imper PlP2 => s_ + "edete" ; @@ -5163,42 +5165,42 @@ oper spargere_85 : Str -> Verbo = \spargere -> Indi Pres Pl P1 => spar_ + "giamo" ; Indi Pres Pl P2 => spar_ + "gete" ; Indi Pres Pl P3 => spar_ + "gono" ; - Indi Imperf Sg P1 => spar_ + "gevo" ; - Indi Imperf Sg P2 => spar_ + "gevi" ; - Indi Imperf Sg P3 => spar_ + "geva" ; - Indi Imperf Pl P1 => spar_ + "gevamo" ; - Indi Imperf Pl P2 => spar_ + "gevate" ; - Indi Imperf Pl P3 => spar_ + "gevano" ; - Pass Sg P1 => spar_ + "si" ; - Pass Sg P2 => spar_ + "gesti" ; - Pass Sg P3 => spar_ + "se" ; - Pass Pl P1 => spar_ + "gemmo" ; - Pass Pl P2 => spar_ + "geste" ; - Pass Pl P3 => spar_ + "sero" ; - Fut Sg P1 => spar_ + "gerò" ; - Fut Sg P2 => spar_ + "gerai" ; - Fut Sg P3 => spar_ + "gerà" ; - Fut Pl P1 => spar_ + "geremo" ; - Fut Pl P2 => spar_ + "gerete" ; - Fut Pl P3 => spar_ + "geranno" ; + Indi Imperf Sg P1 => spar_ + "gevo" ; --# notpresent + Indi Imperf Sg P2 => spar_ + "gevi" ; --# notpresent + Indi Imperf Sg P3 => spar_ + "geva" ; --# notpresent + Indi Imperf Pl P1 => spar_ + "gevamo" ; --# notpresent + Indi Imperf Pl P2 => spar_ + "gevate" ; --# notpresent + Indi Imperf Pl P3 => spar_ + "gevano" ; --# notpresent + Pass Sg P1 => spar_ + "si" ; --# notpresent + Pass Sg P2 => spar_ + "gesti" ; --# notpresent + Pass Sg P3 => spar_ + "se" ; --# notpresent + Pass Pl P1 => spar_ + "gemmo" ; --# notpresent + Pass Pl P2 => spar_ + "geste" ; --# notpresent + Pass Pl P3 => spar_ + "sero" ; --# notpresent + Fut Sg P1 => spar_ + "gerò" ; --# notpresent + Fut Sg P2 => spar_ + "gerai" ; --# notpresent + Fut Sg P3 => spar_ + "gerà" ; --# notpresent + Fut Pl P1 => spar_ + "geremo" ; --# notpresent + Fut Pl P2 => spar_ + "gerete" ; --# notpresent + Fut Pl P3 => spar_ + "geranno" ; --# notpresent Cong Pres Sg P1 => spar_ + "ga" ; Cong Pres Sg P2 => spar_ + "ga" ; Cong Pres Sg P3 => spar_ + "ga" ; Cong Pres Pl P1 => spar_ + "giamo" ; Cong Pres Pl P2 => spar_ + "giate" ; Cong Pres Pl P3 => spar_ + "gano" ; - Cong Imperf Sg P1 => spar_ + "gessi" ; - Cong Imperf Sg P2 => spar_ + "gessi" ; - Cong Imperf Sg P3 => spar_ + "gesse" ; - Cong Imperf Pl P1 => spar_ + "gessimo" ; - Cong Imperf Pl P2 => spar_ + "geste" ; - Cong Imperf Pl P3 => spar_ + "gessero" ; - Cond Sg P1 => spar_ + "gerei" ; - Cond Sg P2 => spar_ + "geresti" ; - Cond Sg P3 => spar_ + "gerebbe" ; - Cond Pl P1 => spar_ + "geremmo" ; - Cond Pl P2 => spar_ + "gereste" ; - Cond Pl P3 => spar_ + "gerebbero" ; + Cong Imperf Sg P1 => spar_ + "gessi" ; --# notpresent + Cong Imperf Sg P2 => spar_ + "gessi" ; --# notpresent + Cong Imperf Sg P3 => spar_ + "gesse" ; --# notpresent + Cong Imperf Pl P1 => spar_ + "gessimo" ; --# notpresent + Cong Imperf Pl P2 => spar_ + "geste" ; --# notpresent + Cong Imperf Pl P3 => spar_ + "gessero" ; --# notpresent + Cond Sg P1 => spar_ + "gerei" ; --# notpresent + Cond Sg P2 => spar_ + "geresti" ; --# notpresent + Cond Sg P3 => spar_ + "gerebbe" ; --# notpresent + Cond Pl P1 => spar_ + "geremmo" ; --# notpresent + Cond Pl P2 => spar_ + "gereste" ; --# notpresent + Cond Pl P3 => spar_ + "gerebbero" ; --# notpresent Imper SgP2 => spar_ + "gi" ; Imper PlP1 => spar_ + "giamo" ; Imper PlP2 => spar_ + "gete" ; @@ -5225,42 +5227,42 @@ oper spegnere_86 : Str -> Verbo = \spegnere -> Indi Pres Pl P1 => spe_ + "gniamo" ; Indi Pres Pl P2 => spe_ + "gnete" ; Indi Pres Pl P3 => spe_ + "ngono" ; - Indi Imperf Sg P1 => spe_ + "gnevo" ; - Indi Imperf Sg P2 => spe_ + "gnevi" ; - Indi Imperf Sg P3 => spe_ + "gneva" ; - Indi Imperf Pl P1 => spe_ + "gnevamo" ; - Indi Imperf Pl P2 => spe_ + "gnevate" ; - Indi Imperf Pl P3 => spe_ + "gnevano" ; - Pass Sg P1 => spe_ + "nsi" ; - Pass Sg P2 => spe_ + "gnesti" ; - Pass Sg P3 => spe_ + "nse" ; - Pass Pl P1 => spe_ + "gnemmo" ; - Pass Pl P2 => spe_ + "gneste" ; - Pass Pl P3 => spe_ + "nsero" ; - Fut Sg P1 => spe_ + "gnerò" ; - Fut Sg P2 => spe_ + "gnerai" ; - Fut Sg P3 => spe_ + "gnerà" ; - Fut Pl P1 => spe_ + "gneremo" ; - Fut Pl P2 => spe_ + "gnerete" ; - Fut Pl P3 => spe_ + "gneranno" ; + Indi Imperf Sg P1 => spe_ + "gnevo" ; --# notpresent + Indi Imperf Sg P2 => spe_ + "gnevi" ; --# notpresent + Indi Imperf Sg P3 => spe_ + "gneva" ; --# notpresent + Indi Imperf Pl P1 => spe_ + "gnevamo" ; --# notpresent + Indi Imperf Pl P2 => spe_ + "gnevate" ; --# notpresent + Indi Imperf Pl P3 => spe_ + "gnevano" ; --# notpresent + Pass Sg P1 => spe_ + "nsi" ; --# notpresent + Pass Sg P2 => spe_ + "gnesti" ; --# notpresent + Pass Sg P3 => spe_ + "nse" ; --# notpresent + Pass Pl P1 => spe_ + "gnemmo" ; --# notpresent + Pass Pl P2 => spe_ + "gneste" ; --# notpresent + Pass Pl P3 => spe_ + "nsero" ; --# notpresent + Fut Sg P1 => spe_ + "gnerò" ; --# notpresent + Fut Sg P2 => spe_ + "gnerai" ; --# notpresent + Fut Sg P3 => spe_ + "gnerà" ; --# notpresent + Fut Pl P1 => spe_ + "gneremo" ; --# notpresent + Fut Pl P2 => spe_ + "gnerete" ; --# notpresent + Fut Pl P3 => spe_ + "gneranno" ; --# notpresent Cong Pres Sg P1 => spe_ + "nga" ; Cong Pres Sg P2 => spe_ + "nga" ; Cong Pres Sg P3 => spe_ + "nga" ; Cong Pres Pl P1 => spe_ + "gniamo" ; Cong Pres Pl P2 => spe_ + "gniate" ; Cong Pres Pl P3 => spe_ + "ngano" ; - Cong Imperf Sg P1 => spe_ + "gnessi" ; - Cong Imperf Sg P2 => spe_ + "gnessi" ; - Cong Imperf Sg P3 => spe_ + "gnesse" ; - Cong Imperf Pl P1 => spe_ + "gnessimo" ; - Cong Imperf Pl P2 => spe_ + "gneste" ; - Cong Imperf Pl P3 => spe_ + "gnessero" ; - Cond Sg P1 => spe_ + "gnerei" ; - Cond Sg P2 => spe_ + "gneresti" ; - Cond Sg P3 => spe_ + "gnerebbe" ; - Cond Pl P1 => spe_ + "gneremmo" ; - Cond Pl P2 => spe_ + "gnereste" ; - Cond Pl P3 => spe_ + "gnerebbero" ; + Cong Imperf Sg P1 => spe_ + "gnessi" ; --# notpresent + Cong Imperf Sg P2 => spe_ + "gnessi" ; --# notpresent + Cong Imperf Sg P3 => spe_ + "gnesse" ; --# notpresent + Cong Imperf Pl P1 => spe_ + "gnessimo" ; --# notpresent + Cong Imperf Pl P2 => spe_ + "gneste" ; --# notpresent + Cong Imperf Pl P3 => spe_ + "gnessero" ; --# notpresent + Cond Sg P1 => spe_ + "gnerei" ; --# notpresent + Cond Sg P2 => spe_ + "gneresti" ; --# notpresent + Cond Sg P3 => spe_ + "gnerebbe" ; --# notpresent + Cond Pl P1 => spe_ + "gneremmo" ; --# notpresent + Cond Pl P2 => spe_ + "gnereste" ; --# notpresent + Cond Pl P3 => spe_ + "gnerebbero" ; --# notpresent Imper SgP2 => spe_ + "gni" ; Imper PlP1 => spe_ + "gniamo" ; Imper PlP2 => spe_ + "gnete" ; @@ -5287,42 +5289,42 @@ oper stringere_87 : Str -> Verbo = \striingere -> Indi Pres Pl P1 => stri_ + "ingiamo" ; Indi Pres Pl P2 => stri_ + "ingete" ; Indi Pres Pl P3 => stri_ + "ingono" ; - Indi Imperf Sg P1 => stri_ + "ingevo" ; - Indi Imperf Sg P2 => stri_ + "ingevi" ; - Indi Imperf Sg P3 => stri_ + "ingeva" ; - Indi Imperf Pl P1 => stri_ + "ingevamo" ; - Indi Imperf Pl P2 => stri_ + "ingevate" ; - Indi Imperf Pl P3 => stri_ + "ingevano" ; - Pass Sg P1 => stri_ + "insi" ; - Pass Sg P2 => stri_ + "ingesti" ; - Pass Sg P3 => stri_ + "inse" ; - Pass Pl P1 => stri_ + "ingemmo" ; - Pass Pl P2 => stri_ + "ingeste" ; - Pass Pl P3 => stri_ + "insero" ; - Fut Sg P1 => stri_ + "ingerò" ; - Fut Sg P2 => stri_ + "ingerai" ; - Fut Sg P3 => stri_ + "ingerà" ; - Fut Pl P1 => stri_ + "ingeremo" ; - Fut Pl P2 => stri_ + "ingerete" ; - Fut Pl P3 => stri_ + "ingeranno" ; + Indi Imperf Sg P1 => stri_ + "ingevo" ; --# notpresent + Indi Imperf Sg P2 => stri_ + "ingevi" ; --# notpresent + Indi Imperf Sg P3 => stri_ + "ingeva" ; --# notpresent + Indi Imperf Pl P1 => stri_ + "ingevamo" ; --# notpresent + Indi Imperf Pl P2 => stri_ + "ingevate" ; --# notpresent + Indi Imperf Pl P3 => stri_ + "ingevano" ; --# notpresent + Pass Sg P1 => stri_ + "insi" ; --# notpresent + Pass Sg P2 => stri_ + "ingesti" ; --# notpresent + Pass Sg P3 => stri_ + "inse" ; --# notpresent + Pass Pl P1 => stri_ + "ingemmo" ; --# notpresent + Pass Pl P2 => stri_ + "ingeste" ; --# notpresent + Pass Pl P3 => stri_ + "insero" ; --# notpresent + Fut Sg P1 => stri_ + "ingerò" ; --# notpresent + Fut Sg P2 => stri_ + "ingerai" ; --# notpresent + Fut Sg P3 => stri_ + "ingerà" ; --# notpresent + Fut Pl P1 => stri_ + "ingeremo" ; --# notpresent + Fut Pl P2 => stri_ + "ingerete" ; --# notpresent + Fut Pl P3 => stri_ + "ingeranno" ; --# notpresent Cong Pres Sg P1 => stri_ + "inga" ; Cong Pres Sg P2 => stri_ + "inga" ; Cong Pres Sg P3 => stri_ + "inga" ; Cong Pres Pl P1 => stri_ + "ingiamo" ; Cong Pres Pl P2 => stri_ + "ingiate" ; Cong Pres Pl P3 => stri_ + "ingano" ; - Cong Imperf Sg P1 => stri_ + "ingessi" ; - Cong Imperf Sg P2 => stri_ + "ingessi" ; - Cong Imperf Sg P3 => stri_ + "ingesse" ; - Cong Imperf Pl P1 => stri_ + "ingessimo" ; - Cong Imperf Pl P2 => stri_ + "ingeste" ; - Cong Imperf Pl P3 => stri_ + "ingessero" ; - Cond Sg P1 => stri_ + "ingerei" ; - Cond Sg P2 => stri_ + "ingeresti" ; - Cond Sg P3 => stri_ + "ingerebbe" ; - Cond Pl P1 => stri_ + "ingeremmo" ; - Cond Pl P2 => stri_ + "ingereste" ; - Cond Pl P3 => stri_ + "ingerebbero" ; + Cong Imperf Sg P1 => stri_ + "ingessi" ; --# notpresent + Cong Imperf Sg P2 => stri_ + "ingessi" ; --# notpresent + Cong Imperf Sg P3 => stri_ + "ingesse" ; --# notpresent + Cong Imperf Pl P1 => stri_ + "ingessimo" ; --# notpresent + Cong Imperf Pl P2 => stri_ + "ingeste" ; --# notpresent + Cong Imperf Pl P3 => stri_ + "ingessero" ; --# notpresent + Cond Sg P1 => stri_ + "ingerei" ; --# notpresent + Cond Sg P2 => stri_ + "ingeresti" ; --# notpresent + Cond Sg P3 => stri_ + "ingerebbe" ; --# notpresent + Cond Pl P1 => stri_ + "ingeremmo" ; --# notpresent + Cond Pl P2 => stri_ + "ingereste" ; --# notpresent + Cond Pl P3 => stri_ + "ingerebbero" ; --# notpresent Imper SgP2 => stri_ + "ingi" ; Imper PlP1 => stri_ + "ingiamo" ; Imper PlP2 => stri_ + "ingete" ; @@ -5349,42 +5351,42 @@ oper svellere_88 : Str -> Verbo = \svellere -> Indi Pres Pl P1 => svel_ + "liamo" ; Indi Pres Pl P2 => svel_ + "lete" ; Indi Pres Pl P3 => svel_ + "lono" ; - Indi Imperf Sg P1 => svel_ + "levo" ; - Indi Imperf Sg P2 => svel_ + "levi" ; - Indi Imperf Sg P3 => svel_ + "leva" ; - Indi Imperf Pl P1 => svel_ + "levamo" ; - Indi Imperf Pl P2 => svel_ + "levate" ; - Indi Imperf Pl P3 => svel_ + "levano" ; - Pass Sg P1 => svel_ + "si" ; - Pass Sg P2 => svel_ + "lesti" ; - Pass Sg P3 => svel_ + "se" ; - Pass Pl P1 => svel_ + "lemmo" ; - Pass Pl P2 => svel_ + "leste" ; - Pass Pl P3 => svel_ + "sero" ; - Fut Sg P1 => svel_ + "lerò" ; - Fut Sg P2 => svel_ + "lerai" ; - Fut Sg P3 => svel_ + "lerà" ; - Fut Pl P1 => svel_ + "leremo" ; - Fut Pl P2 => svel_ + "lerete" ; - Fut Pl P3 => svel_ + "leranno" ; + Indi Imperf Sg P1 => svel_ + "levo" ; --# notpresent + Indi Imperf Sg P2 => svel_ + "levi" ; --# notpresent + Indi Imperf Sg P3 => svel_ + "leva" ; --# notpresent + Indi Imperf Pl P1 => svel_ + "levamo" ; --# notpresent + Indi Imperf Pl P2 => svel_ + "levate" ; --# notpresent + Indi Imperf Pl P3 => svel_ + "levano" ; --# notpresent + Pass Sg P1 => svel_ + "si" ; --# notpresent + Pass Sg P2 => svel_ + "lesti" ; --# notpresent + Pass Sg P3 => svel_ + "se" ; --# notpresent + Pass Pl P1 => svel_ + "lemmo" ; --# notpresent + Pass Pl P2 => svel_ + "leste" ; --# notpresent + Pass Pl P3 => svel_ + "sero" ; --# notpresent + Fut Sg P1 => svel_ + "lerò" ; --# notpresent + Fut Sg P2 => svel_ + "lerai" ; --# notpresent + Fut Sg P3 => svel_ + "lerà" ; --# notpresent + Fut Pl P1 => svel_ + "leremo" ; --# notpresent + Fut Pl P2 => svel_ + "lerete" ; --# notpresent + Fut Pl P3 => svel_ + "leranno" ; --# notpresent Cong Pres Sg P1 => svel_ + "la" ; Cong Pres Sg P2 => svel_ + "la" ; Cong Pres Sg P3 => svel_ + "la" ; Cong Pres Pl P1 => svel_ + "liamo" ; Cong Pres Pl P2 => svel_ + "liate" ; Cong Pres Pl P3 => svel_ + "lano" ; - Cong Imperf Sg P1 => svel_ + "lessi" ; - Cong Imperf Sg P2 => svel_ + "lessi" ; - Cong Imperf Sg P3 => svel_ + "lesse" ; - Cong Imperf Pl P1 => svel_ + "lessimo" ; - Cong Imperf Pl P2 => svel_ + "leste" ; - Cong Imperf Pl P3 => svel_ + "lessero" ; - Cond Sg P1 => svel_ + "lerei" ; - Cond Sg P2 => svel_ + "leresti" ; - Cond Sg P3 => svel_ + "lerebbe" ; - Cond Pl P1 => svel_ + "leremmo" ; - Cond Pl P2 => svel_ + "lereste" ; - Cond Pl P3 => svel_ + "lerebbero" ; + Cong Imperf Sg P1 => svel_ + "lessi" ; --# notpresent + Cong Imperf Sg P2 => svel_ + "lessi" ; --# notpresent + Cong Imperf Sg P3 => svel_ + "lesse" ; --# notpresent + Cong Imperf Pl P1 => svel_ + "lessimo" ; --# notpresent + Cong Imperf Pl P2 => svel_ + "leste" ; --# notpresent + Cong Imperf Pl P3 => svel_ + "lessero" ; --# notpresent + Cond Sg P1 => svel_ + "lerei" ; --# notpresent + Cond Sg P2 => svel_ + "leresti" ; --# notpresent + Cond Sg P3 => svel_ + "lerebbe" ; --# notpresent + Cond Pl P1 => svel_ + "leremmo" ; --# notpresent + Cond Pl P2 => svel_ + "lereste" ; --# notpresent + Cond Pl P3 => svel_ + "lerebbero" ; --# notpresent Imper SgP2 => svel_ + "li" ; Imper PlP1 => svel_ + "liamo" ; Imper PlP2 => svel_ + "lete" ; @@ -5411,42 +5413,42 @@ oper tenere_89 : Str -> Verbo = \tenere -> Indi Pres Pl P1 => t_ + "eniamo" ; Indi Pres Pl P2 => t_ + "enete" ; Indi Pres Pl P3 => t_ + "engono" ; - Indi Imperf Sg P1 => t_ + "enevo" ; - Indi Imperf Sg P2 => t_ + "enevi" ; - Indi Imperf Sg P3 => t_ + "eneva" ; - Indi Imperf Pl P1 => t_ + "enevamo" ; - Indi Imperf Pl P2 => t_ + "enevate" ; - Indi Imperf Pl P3 => t_ + "enevano" ; - Pass Sg P1 => t_ + "enni" ; - Pass Sg P2 => t_ + "enesti" ; - Pass Sg P3 => t_ + "enne" ; - Pass Pl P1 => t_ + "enemmo" ; - Pass Pl P2 => t_ + "eneste" ; - Pass Pl P3 => t_ + "ennero" ; - Fut Sg P1 => t_ + "errò" ; - Fut Sg P2 => t_ + "errai" ; - Fut Sg P3 => t_ + "errà" ; - Fut Pl P1 => t_ + "erremo" ; - Fut Pl P2 => t_ + "errete" ; - Fut Pl P3 => t_ + "erranno" ; + Indi Imperf Sg P1 => t_ + "enevo" ; --# notpresent + Indi Imperf Sg P2 => t_ + "enevi" ; --# notpresent + Indi Imperf Sg P3 => t_ + "eneva" ; --# notpresent + Indi Imperf Pl P1 => t_ + "enevamo" ; --# notpresent + Indi Imperf Pl P2 => t_ + "enevate" ; --# notpresent + Indi Imperf Pl P3 => t_ + "enevano" ; --# notpresent + Pass Sg P1 => t_ + "enni" ; --# notpresent + Pass Sg P2 => t_ + "enesti" ; --# notpresent + Pass Sg P3 => t_ + "enne" ; --# notpresent + Pass Pl P1 => t_ + "enemmo" ; --# notpresent + Pass Pl P2 => t_ + "eneste" ; --# notpresent + Pass Pl P3 => t_ + "ennero" ; --# notpresent + Fut Sg P1 => t_ + "errò" ; --# notpresent + Fut Sg P2 => t_ + "errai" ; --# notpresent + Fut Sg P3 => t_ + "errà" ; --# notpresent + Fut Pl P1 => t_ + "erremo" ; --# notpresent + Fut Pl P2 => t_ + "errete" ; --# notpresent + Fut Pl P3 => t_ + "erranno" ; --# notpresent Cong Pres Sg P1 => t_ + "enga" ; Cong Pres Sg P2 => t_ + "enga" ; Cong Pres Sg P3 => t_ + "enga" ; Cong Pres Pl P1 => t_ + "eniamo" ; Cong Pres Pl P2 => t_ + "eniate" ; Cong Pres Pl P3 => t_ + "engano" ; - Cong Imperf Sg P1 => t_ + "enessi" ; - Cong Imperf Sg P2 => t_ + "enessi" ; - Cong Imperf Sg P3 => t_ + "enesse" ; - Cong Imperf Pl P1 => t_ + "enessimo" ; - Cong Imperf Pl P2 => t_ + "eneste" ; - Cong Imperf Pl P3 => t_ + "enessero" ; - Cond Sg P1 => t_ + "errei" ; - Cond Sg P2 => t_ + "erresti" ; - Cond Sg P3 => t_ + "errebbe" ; - Cond Pl P1 => t_ + "erremmo" ; - Cond Pl P2 => t_ + "erreste" ; - Cond Pl P3 => t_ + "errebbero" ; + Cong Imperf Sg P1 => t_ + "enessi" ; --# notpresent + Cong Imperf Sg P2 => t_ + "enessi" ; --# notpresent + Cong Imperf Sg P3 => t_ + "enesse" ; --# notpresent + Cong Imperf Pl P1 => t_ + "enessimo" ; --# notpresent + Cong Imperf Pl P2 => t_ + "eneste" ; --# notpresent + Cong Imperf Pl P3 => t_ + "enessero" ; --# notpresent + Cond Sg P1 => t_ + "errei" ; --# notpresent + Cond Sg P2 => t_ + "erresti" ; --# notpresent + Cond Sg P3 => t_ + "errebbe" ; --# notpresent + Cond Pl P1 => t_ + "erremmo" ; --# notpresent + Cond Pl P2 => t_ + "erreste" ; --# notpresent + Cond Pl P3 => t_ + "errebbero" ; --# notpresent Imper SgP2 => t_ + "ieni" ; Imper PlP1 => t_ + "eniamo" ; Imper PlP2 => t_ + "enete" ; @@ -5473,42 +5475,42 @@ oper torcere_90 : Str -> Verbo = \torcere -> Indi Pres Pl P1 => tor_ + "ciamo" ; Indi Pres Pl P2 => tor_ + "cete" ; Indi Pres Pl P3 => tor_ + "cono" ; - Indi Imperf Sg P1 => tor_ + "cevo" ; - Indi Imperf Sg P2 => tor_ + "cevi" ; - Indi Imperf Sg P3 => tor_ + "ceva" ; - Indi Imperf Pl P1 => tor_ + "cevamo" ; - Indi Imperf Pl P2 => tor_ + "cevate" ; - Indi Imperf Pl P3 => tor_ + "cevano" ; - Pass Sg P1 => tor_ + "si" ; - Pass Sg P2 => tor_ + "cesti" ; - Pass Sg P3 => tor_ + "se" ; - Pass Pl P1 => tor_ + "cemmo" ; - Pass Pl P2 => tor_ + "ceste" ; - Pass Pl P3 => tor_ + "sero" ; - Fut Sg P1 => tor_ + "cerò" ; - Fut Sg P2 => tor_ + "cerai" ; - Fut Sg P3 => tor_ + "cerà" ; - Fut Pl P1 => tor_ + "ceremo" ; - Fut Pl P2 => tor_ + "cerete" ; - Fut Pl P3 => tor_ + "ceranno" ; + Indi Imperf Sg P1 => tor_ + "cevo" ; --# notpresent + Indi Imperf Sg P2 => tor_ + "cevi" ; --# notpresent + Indi Imperf Sg P3 => tor_ + "ceva" ; --# notpresent + Indi Imperf Pl P1 => tor_ + "cevamo" ; --# notpresent + Indi Imperf Pl P2 => tor_ + "cevate" ; --# notpresent + Indi Imperf Pl P3 => tor_ + "cevano" ; --# notpresent + Pass Sg P1 => tor_ + "si" ; --# notpresent + Pass Sg P2 => tor_ + "cesti" ; --# notpresent + Pass Sg P3 => tor_ + "se" ; --# notpresent + Pass Pl P1 => tor_ + "cemmo" ; --# notpresent + Pass Pl P2 => tor_ + "ceste" ; --# notpresent + Pass Pl P3 => tor_ + "sero" ; --# notpresent + Fut Sg P1 => tor_ + "cerò" ; --# notpresent + Fut Sg P2 => tor_ + "cerai" ; --# notpresent + Fut Sg P3 => tor_ + "cerà" ; --# notpresent + Fut Pl P1 => tor_ + "ceremo" ; --# notpresent + Fut Pl P2 => tor_ + "cerete" ; --# notpresent + Fut Pl P3 => tor_ + "ceranno" ; --# notpresent Cong Pres Sg P1 => tor_ + "ca" ; Cong Pres Sg P2 => tor_ + "ca" ; Cong Pres Sg P3 => tor_ + "ca" ; Cong Pres Pl P1 => tor_ + "ciamo" ; Cong Pres Pl P2 => tor_ + "ciate" ; Cong Pres Pl P3 => tor_ + "cano" ; - Cong Imperf Sg P1 => tor_ + "cessi" ; - Cong Imperf Sg P2 => tor_ + "cessi" ; - Cong Imperf Sg P3 => tor_ + "cesse" ; - Cong Imperf Pl P1 => tor_ + "cessimo" ; - Cong Imperf Pl P2 => tor_ + "ceste" ; - Cong Imperf Pl P3 => tor_ + "cessero" ; - Cond Sg P1 => tor_ + "cerei" ; - Cond Sg P2 => tor_ + "ceresti" ; - Cond Sg P3 => tor_ + "cerebbe" ; - Cond Pl P1 => tor_ + "ceremmo" ; - Cond Pl P2 => tor_ + "cereste" ; - Cond Pl P3 => tor_ + "cerebbero" ; + Cong Imperf Sg P1 => tor_ + "cessi" ; --# notpresent + Cong Imperf Sg P2 => tor_ + "cessi" ; --# notpresent + Cong Imperf Sg P3 => tor_ + "cesse" ; --# notpresent + Cong Imperf Pl P1 => tor_ + "cessimo" ; --# notpresent + Cong Imperf Pl P2 => tor_ + "ceste" ; --# notpresent + Cong Imperf Pl P3 => tor_ + "cessero" ; --# notpresent + Cond Sg P1 => tor_ + "cerei" ; --# notpresent + Cond Sg P2 => tor_ + "ceresti" ; --# notpresent + Cond Sg P3 => tor_ + "cerebbe" ; --# notpresent + Cond Pl P1 => tor_ + "ceremmo" ; --# notpresent + Cond Pl P2 => tor_ + "cereste" ; --# notpresent + Cond Pl P3 => tor_ + "cerebbero" ; --# notpresent Imper SgP2 => tor_ + "ci" ; Imper PlP1 => tor_ + "ciamo" ; Imper PlP2 => tor_ + "cete" ; @@ -5535,42 +5537,42 @@ oper trarre_91 : Str -> Verbo = \trarre -> Indi Pres Pl P1 => tra_ + "iamo" ; Indi Pres Pl P2 => tra_ + "ete" ; Indi Pres Pl P3 => tra_ + "ggono" ; - Indi Imperf Sg P1 => tra_ + "evo" ; - Indi Imperf Sg P2 => tra_ + "evi" ; - Indi Imperf Sg P3 => tra_ + "eva" ; - Indi Imperf Pl P1 => tra_ + "evamo" ; - Indi Imperf Pl P2 => tra_ + "evate" ; - Indi Imperf Pl P3 => tra_ + "evano" ; - Pass Sg P1 => tra_ + "ssi" ; - Pass Sg P2 => tra_ + "esti" ; - Pass Sg P3 => tra_ + "sse" ; - Pass Pl P1 => tra_ + "emmo" ; - Pass Pl P2 => tra_ + "este" ; - Pass Pl P3 => tra_ + "ssero" ; - Fut Sg P1 => tra_ + "rrò" ; - Fut Sg P2 => tra_ + "rrai" ; - Fut Sg P3 => tra_ + "rrà" ; - Fut Pl P1 => tra_ + "rremo" ; - Fut Pl P2 => tra_ + "rrete" ; - Fut Pl P3 => tra_ + "rranno" ; + Indi Imperf Sg P1 => tra_ + "evo" ; --# notpresent + Indi Imperf Sg P2 => tra_ + "evi" ; --# notpresent + Indi Imperf Sg P3 => tra_ + "eva" ; --# notpresent + Indi Imperf Pl P1 => tra_ + "evamo" ; --# notpresent + Indi Imperf Pl P2 => tra_ + "evate" ; --# notpresent + Indi Imperf Pl P3 => tra_ + "evano" ; --# notpresent + Pass Sg P1 => tra_ + "ssi" ; --# notpresent + Pass Sg P2 => tra_ + "esti" ; --# notpresent + Pass Sg P3 => tra_ + "sse" ; --# notpresent + Pass Pl P1 => tra_ + "emmo" ; --# notpresent + Pass Pl P2 => tra_ + "este" ; --# notpresent + Pass Pl P3 => tra_ + "ssero" ; --# notpresent + Fut Sg P1 => tra_ + "rrò" ; --# notpresent + Fut Sg P2 => tra_ + "rrai" ; --# notpresent + Fut Sg P3 => tra_ + "rrà" ; --# notpresent + Fut Pl P1 => tra_ + "rremo" ; --# notpresent + Fut Pl P2 => tra_ + "rrete" ; --# notpresent + Fut Pl P3 => tra_ + "rranno" ; --# notpresent Cong Pres Sg P1 => tra_ + "gga" ; Cong Pres Sg P2 => tra_ + "gga" ; Cong Pres Sg P3 => tra_ + "gga" ; Cong Pres Pl P1 => tra_ + "iamo" ; Cong Pres Pl P2 => tra_ + "iate" ; Cong Pres Pl P3 => tra_ + "ggano" ; - Cong Imperf Sg P1 => tra_ + "essi" ; - Cong Imperf Sg P2 => tra_ + "essi" ; - Cong Imperf Sg P3 => tra_ + "esse" ; - Cong Imperf Pl P1 => tra_ + "essimo" ; - Cong Imperf Pl P2 => tra_ + "este" ; - Cong Imperf Pl P3 => tra_ + "essero" ; - Cond Sg P1 => tra_ + "rrei" ; - Cond Sg P2 => tra_ + "rresti" ; - Cond Sg P3 => tra_ + "rrebbe" ; - Cond Pl P1 => tra_ + "rremmo" ; - Cond Pl P2 => tra_ + "rreste" ; - Cond Pl P3 => tra_ + "rrebbero" ; + Cong Imperf Sg P1 => tra_ + "essi" ; --# notpresent + Cong Imperf Sg P2 => tra_ + "essi" ; --# notpresent + Cong Imperf Sg P3 => tra_ + "esse" ; --# notpresent + Cong Imperf Pl P1 => tra_ + "essimo" ; --# notpresent + Cong Imperf Pl P2 => tra_ + "este" ; --# notpresent + Cong Imperf Pl P3 => tra_ + "essero" ; --# notpresent + Cond Sg P1 => tra_ + "rrei" ; --# notpresent + Cond Sg P2 => tra_ + "rresti" ; --# notpresent + Cond Sg P3 => tra_ + "rrebbe" ; --# notpresent + Cond Pl P1 => tra_ + "rremmo" ; --# notpresent + Cond Pl P2 => tra_ + "rreste" ; --# notpresent + Cond Pl P3 => tra_ + "rrebbero" ; --# notpresent Imper SgP2 => tra_ + "i" ; Imper PlP1 => tra_ + "iamo" ; Imper PlP2 => tra_ + "ete" ; @@ -5597,42 +5599,42 @@ oper valere_92 : Str -> Verbo = \valere -> Indi Pres Pl P1 => va_ + "liamo" ; Indi Pres Pl P2 => va_ + "lete" ; Indi Pres Pl P3 => va_ + "lgono" ; - Indi Imperf Sg P1 => va_ + "levo" ; - Indi Imperf Sg P2 => va_ + "levi" ; - Indi Imperf Sg P3 => va_ + "leva" ; - Indi Imperf Pl P1 => va_ + "levamo" ; - Indi Imperf Pl P2 => va_ + "levate" ; - Indi Imperf Pl P3 => va_ + "levano" ; - Pass Sg P1 => va_ + "lsi" ; - Pass Sg P2 => va_ + "lesti" ; - Pass Sg P3 => va_ + "lse" ; - Pass Pl P1 => va_ + "lemmo" ; - Pass Pl P2 => va_ + "leste" ; - Pass Pl P3 => va_ + "lsero" ; - Fut Sg P1 => va_ + "rrò" ; - Fut Sg P2 => va_ + "rrai" ; - Fut Sg P3 => va_ + "rrà" ; - Fut Pl P1 => va_ + "rremo" ; - Fut Pl P2 => va_ + "rrete" ; - Fut Pl P3 => va_ + "rranno" ; + Indi Imperf Sg P1 => va_ + "levo" ; --# notpresent + Indi Imperf Sg P2 => va_ + "levi" ; --# notpresent + Indi Imperf Sg P3 => va_ + "leva" ; --# notpresent + Indi Imperf Pl P1 => va_ + "levamo" ; --# notpresent + Indi Imperf Pl P2 => va_ + "levate" ; --# notpresent + Indi Imperf Pl P3 => va_ + "levano" ; --# notpresent + Pass Sg P1 => va_ + "lsi" ; --# notpresent + Pass Sg P2 => va_ + "lesti" ; --# notpresent + Pass Sg P3 => va_ + "lse" ; --# notpresent + Pass Pl P1 => va_ + "lemmo" ; --# notpresent + Pass Pl P2 => va_ + "leste" ; --# notpresent + Pass Pl P3 => va_ + "lsero" ; --# notpresent + Fut Sg P1 => va_ + "rrò" ; --# notpresent + Fut Sg P2 => va_ + "rrai" ; --# notpresent + Fut Sg P3 => va_ + "rrà" ; --# notpresent + Fut Pl P1 => va_ + "rremo" ; --# notpresent + Fut Pl P2 => va_ + "rrete" ; --# notpresent + Fut Pl P3 => va_ + "rranno" ; --# notpresent Cong Pres Sg P1 => va_ + "lga" ; Cong Pres Sg P2 => va_ + "lga" ; Cong Pres Sg P3 => va_ + "lga" ; Cong Pres Pl P1 => va_ + "liamo" ; Cong Pres Pl P2 => va_ + "liate" ; Cong Pres Pl P3 => va_ + "lgano" ; - Cong Imperf Sg P1 => va_ + "lessi" ; - Cong Imperf Sg P2 => va_ + "lessi" ; - Cong Imperf Sg P3 => va_ + "lesse" ; - Cong Imperf Pl P1 => va_ + "lessimo" ; - Cong Imperf Pl P2 => va_ + "leste" ; - Cong Imperf Pl P3 => va_ + "lessero" ; - Cond Sg P1 => va_ + "rrei" ; - Cond Sg P2 => va_ + "rresti" ; - Cond Sg P3 => va_ + "rrebbe" ; - Cond Pl P1 => va_ + "rremmo" ; - Cond Pl P2 => va_ + "rreste" ; - Cond Pl P3 => va_ + "rrebbero" ; + Cong Imperf Sg P1 => va_ + "lessi" ; --# notpresent + Cong Imperf Sg P2 => va_ + "lessi" ; --# notpresent + Cong Imperf Sg P3 => va_ + "lesse" ; --# notpresent + Cong Imperf Pl P1 => va_ + "lessimo" ; --# notpresent + Cong Imperf Pl P2 => va_ + "leste" ; --# notpresent + Cong Imperf Pl P3 => va_ + "lessero" ; --# notpresent + Cond Sg P1 => va_ + "rrei" ; --# notpresent + Cond Sg P2 => va_ + "rresti" ; --# notpresent + Cond Sg P3 => va_ + "rrebbe" ; --# notpresent + Cond Pl P1 => va_ + "rremmo" ; --# notpresent + Cond Pl P2 => va_ + "rreste" ; --# notpresent + Cond Pl P3 => va_ + "rrebbero" ; --# notpresent Imper SgP2 => va_ + "li" ; Imper PlP1 => va_ + "liamo" ; Imper PlP2 => va_ + "lete" ; @@ -5659,42 +5661,42 @@ oper vedere_93 : Str -> Verbo = \vedereedere -> Indi Pres Pl P1 => vedere_ + "ediamo" ; Indi Pres Pl P2 => vedere_ + "edete" ; Indi Pres Pl P3 => vedere_ + "edono" ; - Indi Imperf Sg P1 => vedere_ + "edevo" ; - Indi Imperf Sg P2 => vedere_ + "edevi" ; - Indi Imperf Sg P3 => vedere_ + "edeva" ; - Indi Imperf Pl P1 => vedere_ + "edevamo" ; - Indi Imperf Pl P2 => vedere_ + "edevate" ; - Indi Imperf Pl P3 => vedere_ + "edevano" ; - Pass Sg P1 => vedere_ + "idi" ; - Pass Sg P2 => vedere_ + "edesti" ; - Pass Sg P3 => vedere_ + "ide" ; - Pass Pl P1 => vedere_ + "edemmo" ; - Pass Pl P2 => vedere_ + "edeste" ; - Pass Pl P3 => vedere_ + "idero" ; - Fut Sg P1 => vedere_ + "edrò" ; - Fut Sg P2 => vedere_ + "edrai" ; - Fut Sg P3 => vedere_ + "edrà" ; - Fut Pl P1 => vedere_ + "edremo" ; - Fut Pl P2 => vedere_ + "edrete" ; - Fut Pl P3 => vedere_ + "edranno" ; + Indi Imperf Sg P1 => vedere_ + "edevo" ; --# notpresent + Indi Imperf Sg P2 => vedere_ + "edevi" ; --# notpresent + Indi Imperf Sg P3 => vedere_ + "edeva" ; --# notpresent + Indi Imperf Pl P1 => vedere_ + "edevamo" ; --# notpresent + Indi Imperf Pl P2 => vedere_ + "edevate" ; --# notpresent + Indi Imperf Pl P3 => vedere_ + "edevano" ; --# notpresent + Pass Sg P1 => vedere_ + "idi" ; --# notpresent + Pass Sg P2 => vedere_ + "edesti" ; --# notpresent + Pass Sg P3 => vedere_ + "ide" ; --# notpresent + Pass Pl P1 => vedere_ + "edemmo" ; --# notpresent + Pass Pl P2 => vedere_ + "edeste" ; --# notpresent + Pass Pl P3 => vedere_ + "idero" ; --# notpresent + Fut Sg P1 => vedere_ + "edrò" ; --# notpresent + Fut Sg P2 => vedere_ + "edrai" ; --# notpresent + Fut Sg P3 => vedere_ + "edrà" ; --# notpresent + Fut Pl P1 => vedere_ + "edremo" ; --# notpresent + Fut Pl P2 => vedere_ + "edrete" ; --# notpresent + Fut Pl P3 => vedere_ + "edranno" ; --# notpresent Cong Pres Sg P1 => vedere_ + "eda" ; Cong Pres Sg P2 => vedere_ + "eda" ; Cong Pres Sg P3 => vedere_ + "eda" ; Cong Pres Pl P1 => vedere_ + "ediamo" ; Cong Pres Pl P2 => vedere_ + "ediate" ; Cong Pres Pl P3 => vedere_ + "edano" ; - Cong Imperf Sg P1 => vedere_ + "edessi" ; - Cong Imperf Sg P2 => vedere_ + "edessi" ; - Cong Imperf Sg P3 => vedere_ + "edesse" ; - Cong Imperf Pl P1 => vedere_ + "edessimo" ; - Cong Imperf Pl P2 => vedere_ + "edeste" ; - Cong Imperf Pl P3 => vedere_ + "edessero" ; - Cond Sg P1 => vedere_ + "edrei" ; - Cond Sg P2 => vedere_ + "edresti" ; - Cond Sg P3 => vedere_ + "edrebbe" ; - Cond Pl P1 => vedere_ + "edremmo" ; - Cond Pl P2 => vedere_ + "edreste" ; - Cond Pl P3 => vedere_ + "edrebbero" ; + Cong Imperf Sg P1 => vedere_ + "edessi" ; --# notpresent + Cong Imperf Sg P2 => vedere_ + "edessi" ; --# notpresent + Cong Imperf Sg P3 => vedere_ + "edesse" ; --# notpresent + Cong Imperf Pl P1 => vedere_ + "edessimo" ; --# notpresent + Cong Imperf Pl P2 => vedere_ + "edeste" ; --# notpresent + Cong Imperf Pl P3 => vedere_ + "edessero" ; --# notpresent + Cond Sg P1 => vedere_ + "edrei" ; --# notpresent + Cond Sg P2 => vedere_ + "edresti" ; --# notpresent + Cond Sg P3 => vedere_ + "edrebbe" ; --# notpresent + Cond Pl P1 => vedere_ + "edremmo" ; --# notpresent + Cond Pl P2 => vedere_ + "edreste" ; --# notpresent + Cond Pl P3 => vedere_ + "edrebbero" ; --# notpresent Imper SgP2 => vedere_ + "edi" ; Imper PlP1 => vedere_ + "ediamo" ; Imper PlP2 => vedere_ + "edete" ; @@ -5721,42 +5723,42 @@ oper vincere_94 : Str -> Verbo = \vincere -> Indi Pres Pl P1 => vin_ + "ciamo" ; Indi Pres Pl P2 => vin_ + "cete" ; Indi Pres Pl P3 => vin_ + "cono" ; - Indi Imperf Sg P1 => vin_ + "cevo" ; - Indi Imperf Sg P2 => vin_ + "cevi" ; - Indi Imperf Sg P3 => vin_ + "ceva" ; - Indi Imperf Pl P1 => vin_ + "cevamo" ; - Indi Imperf Pl P2 => vin_ + "cevate" ; - Indi Imperf Pl P3 => vin_ + "cevano" ; - Pass Sg P1 => vin_ + "si" ; - Pass Sg P2 => vin_ + "cesti" ; - Pass Sg P3 => vin_ + "se" ; - Pass Pl P1 => vin_ + "cemmo" ; - Pass Pl P2 => vin_ + "ceste" ; - Pass Pl P3 => vin_ + "sero" ; - Fut Sg P1 => vin_ + "cerò" ; - Fut Sg P2 => vin_ + "cerai" ; - Fut Sg P3 => vin_ + "cerà" ; - Fut Pl P1 => vin_ + "ceremo" ; - Fut Pl P2 => vin_ + "cerete" ; - Fut Pl P3 => vin_ + "ceranno" ; + Indi Imperf Sg P1 => vin_ + "cevo" ; --# notpresent + Indi Imperf Sg P2 => vin_ + "cevi" ; --# notpresent + Indi Imperf Sg P3 => vin_ + "ceva" ; --# notpresent + Indi Imperf Pl P1 => vin_ + "cevamo" ; --# notpresent + Indi Imperf Pl P2 => vin_ + "cevate" ; --# notpresent + Indi Imperf Pl P3 => vin_ + "cevano" ; --# notpresent + Pass Sg P1 => vin_ + "si" ; --# notpresent + Pass Sg P2 => vin_ + "cesti" ; --# notpresent + Pass Sg P3 => vin_ + "se" ; --# notpresent + Pass Pl P1 => vin_ + "cemmo" ; --# notpresent + Pass Pl P2 => vin_ + "ceste" ; --# notpresent + Pass Pl P3 => vin_ + "sero" ; --# notpresent + Fut Sg P1 => vin_ + "cerò" ; --# notpresent + Fut Sg P2 => vin_ + "cerai" ; --# notpresent + Fut Sg P3 => vin_ + "cerà" ; --# notpresent + Fut Pl P1 => vin_ + "ceremo" ; --# notpresent + Fut Pl P2 => vin_ + "cerete" ; --# notpresent + Fut Pl P3 => vin_ + "ceranno" ; --# notpresent Cong Pres Sg P1 => vin_ + "ca" ; Cong Pres Sg P2 => vin_ + "ca" ; Cong Pres Sg P3 => vin_ + "ca" ; Cong Pres Pl P1 => vin_ + "ciamo" ; Cong Pres Pl P2 => vin_ + "ciate" ; Cong Pres Pl P3 => vin_ + "cano" ; - Cong Imperf Sg P1 => vin_ + "cessi" ; - Cong Imperf Sg P2 => vin_ + "cessi" ; - Cong Imperf Sg P3 => vin_ + "cesse" ; - Cong Imperf Pl P1 => vin_ + "cessimo" ; - Cong Imperf Pl P2 => vin_ + "ceste" ; - Cong Imperf Pl P3 => vin_ + "cessero" ; - Cond Sg P1 => vin_ + "cerei" ; - Cond Sg P2 => vin_ + "ceresti" ; - Cond Sg P3 => vin_ + "cerebbe" ; - Cond Pl P1 => vin_ + "ceremmo" ; - Cond Pl P2 => vin_ + "cereste" ; - Cond Pl P3 => vin_ + "cerebbero" ; + Cong Imperf Sg P1 => vin_ + "cessi" ; --# notpresent + Cong Imperf Sg P2 => vin_ + "cessi" ; --# notpresent + Cong Imperf Sg P3 => vin_ + "cesse" ; --# notpresent + Cong Imperf Pl P1 => vin_ + "cessimo" ; --# notpresent + Cong Imperf Pl P2 => vin_ + "ceste" ; --# notpresent + Cong Imperf Pl P3 => vin_ + "cessero" ; --# notpresent + Cond Sg P1 => vin_ + "cerei" ; --# notpresent + Cond Sg P2 => vin_ + "ceresti" ; --# notpresent + Cond Sg P3 => vin_ + "cerebbe" ; --# notpresent + Cond Pl P1 => vin_ + "ceremmo" ; --# notpresent + Cond Pl P2 => vin_ + "cereste" ; --# notpresent + Cond Pl P3 => vin_ + "cerebbero" ; --# notpresent Imper SgP2 => vin_ + "ci" ; Imper PlP1 => vin_ + "ciamo" ; Imper PlP2 => vin_ + "cete" ; @@ -5783,42 +5785,42 @@ oper vivere_95 : Str -> Verbo = \viverevere -> Indi Pres Pl P1 => vivere_ + "viamo" ; Indi Pres Pl P2 => vivere_ + "vete" ; Indi Pres Pl P3 => vivere_ + "vono" ; - Indi Imperf Sg P1 => vivere_ + "vevo" ; - Indi Imperf Sg P2 => vivere_ + "vevi" ; - Indi Imperf Sg P3 => vivere_ + "veva" ; - Indi Imperf Pl P1 => vivere_ + "vevamo" ; - Indi Imperf Pl P2 => vivere_ + "vevate" ; - Indi Imperf Pl P3 => vivere_ + "vevano" ; - Pass Sg P1 => vivere_ + "ssi" ; - Pass Sg P2 => vivere_ + "vesti" ; - Pass Sg P3 => vivere_ + "sse" ; - Pass Pl P1 => vivere_ + "vemmo" ; - Pass Pl P2 => vivere_ + "veste" ; - Pass Pl P3 => vivere_ + "ssero" ; - Fut Sg P1 => vivere_ + "vrò" ; - Fut Sg P2 => vivere_ + "vrai" ; - Fut Sg P3 => vivere_ + "vrà" ; - Fut Pl P1 => vivere_ + "vremo" ; - Fut Pl P2 => vivere_ + "vrete" ; - Fut Pl P3 => vivere_ + "vranno" ; + Indi Imperf Sg P1 => vivere_ + "vevo" ; --# notpresent + Indi Imperf Sg P2 => vivere_ + "vevi" ; --# notpresent + Indi Imperf Sg P3 => vivere_ + "veva" ; --# notpresent + Indi Imperf Pl P1 => vivere_ + "vevamo" ; --# notpresent + Indi Imperf Pl P2 => vivere_ + "vevate" ; --# notpresent + Indi Imperf Pl P3 => vivere_ + "vevano" ; --# notpresent + Pass Sg P1 => vivere_ + "ssi" ; --# notpresent + Pass Sg P2 => vivere_ + "vesti" ; --# notpresent + Pass Sg P3 => vivere_ + "sse" ; --# notpresent + Pass Pl P1 => vivere_ + "vemmo" ; --# notpresent + Pass Pl P2 => vivere_ + "veste" ; --# notpresent + Pass Pl P3 => vivere_ + "ssero" ; --# notpresent + Fut Sg P1 => vivere_ + "vrò" ; --# notpresent + Fut Sg P2 => vivere_ + "vrai" ; --# notpresent + Fut Sg P3 => vivere_ + "vrà" ; --# notpresent + Fut Pl P1 => vivere_ + "vremo" ; --# notpresent + Fut Pl P2 => vivere_ + "vrete" ; --# notpresent + Fut Pl P3 => vivere_ + "vranno" ; --# notpresent Cong Pres Sg P1 => vivere_ + "va" ; Cong Pres Sg P2 => vivere_ + "va" ; Cong Pres Sg P3 => vivere_ + "va" ; Cong Pres Pl P1 => vivere_ + "viamo" ; Cong Pres Pl P2 => vivere_ + "viate" ; Cong Pres Pl P3 => vivere_ + "vano" ; - Cong Imperf Sg P1 => vivere_ + "vessi" ; - Cong Imperf Sg P2 => vivere_ + "vessi" ; - Cong Imperf Sg P3 => vivere_ + "vesse" ; - Cong Imperf Pl P1 => vivere_ + "vessimo" ; - Cong Imperf Pl P2 => vivere_ + "veste" ; - Cong Imperf Pl P3 => vivere_ + "vessero" ; - Cond Sg P1 => vivere_ + "vrei" ; - Cond Sg P2 => vivere_ + "vresti" ; - Cond Sg P3 => vivere_ + "vrebbe" ; - Cond Pl P1 => vivere_ + "vremmo" ; - Cond Pl P2 => vivere_ + "vreste" ; - Cond Pl P3 => vivere_ + "vrebbero" ; + Cong Imperf Sg P1 => vivere_ + "vessi" ; --# notpresent + Cong Imperf Sg P2 => vivere_ + "vessi" ; --# notpresent + Cong Imperf Sg P3 => vivere_ + "vesse" ; --# notpresent + Cong Imperf Pl P1 => vivere_ + "vessimo" ; --# notpresent + Cong Imperf Pl P2 => vivere_ + "veste" ; --# notpresent + Cong Imperf Pl P3 => vivere_ + "vessero" ; --# notpresent + Cond Sg P1 => vivere_ + "vrei" ; --# notpresent + Cond Sg P2 => vivere_ + "vresti" ; --# notpresent + Cond Sg P3 => vivere_ + "vrebbe" ; --# notpresent + Cond Pl P1 => vivere_ + "vremmo" ; --# notpresent + Cond Pl P2 => vivere_ + "vreste" ; --# notpresent + Cond Pl P3 => vivere_ + "vrebbero" ; --# notpresent Imper SgP2 => vivere_ + "vi" ; Imper PlP1 => vivere_ + "viamo" ; Imper PlP2 => vivere_ + "vete" ; @@ -5845,42 +5847,42 @@ oper volere_96 : Str -> Verbo = \volere -> Indi Pres Pl P1 => v_ + "ogliamo" ; Indi Pres Pl P2 => v_ + "olete" ; Indi Pres Pl P3 => v_ + "ogliono" ; - Indi Imperf Sg P1 => v_ + "olevo" ; - Indi Imperf Sg P2 => v_ + "olevi" ; - Indi Imperf Sg P3 => v_ + "oleva" ; - Indi Imperf Pl P1 => v_ + "olevamo" ; - Indi Imperf Pl P2 => v_ + "olevate" ; - Indi Imperf Pl P3 => v_ + "olevano" ; - Pass Sg P1 => v_ + "olli" ; - Pass Sg P2 => v_ + "olesti" ; - Pass Sg P3 => v_ + "olle" ; - Pass Pl P1 => v_ + "olemmo" ; - Pass Pl P2 => v_ + "oleste" ; - Pass Pl P3 => v_ + "ollero" ; - Fut Sg P1 => v_ + "orrò" ; - Fut Sg P2 => v_ + "orrai" ; - Fut Sg P3 => v_ + "orrà" ; - Fut Pl P1 => v_ + "orremo" ; - Fut Pl P2 => v_ + "orrete" ; - Fut Pl P3 => v_ + "orranno" ; + Indi Imperf Sg P1 => v_ + "olevo" ; --# notpresent + Indi Imperf Sg P2 => v_ + "olevi" ; --# notpresent + Indi Imperf Sg P3 => v_ + "oleva" ; --# notpresent + Indi Imperf Pl P1 => v_ + "olevamo" ; --# notpresent + Indi Imperf Pl P2 => v_ + "olevate" ; --# notpresent + Indi Imperf Pl P3 => v_ + "olevano" ; --# notpresent + Pass Sg P1 => v_ + "olli" ; --# notpresent + Pass Sg P2 => v_ + "olesti" ; --# notpresent + Pass Sg P3 => v_ + "olle" ; --# notpresent + Pass Pl P1 => v_ + "olemmo" ; --# notpresent + Pass Pl P2 => v_ + "oleste" ; --# notpresent + Pass Pl P3 => v_ + "ollero" ; --# notpresent + Fut Sg P1 => v_ + "orrò" ; --# notpresent + Fut Sg P2 => v_ + "orrai" ; --# notpresent + Fut Sg P3 => v_ + "orrà" ; --# notpresent + Fut Pl P1 => v_ + "orremo" ; --# notpresent + Fut Pl P2 => v_ + "orrete" ; --# notpresent + Fut Pl P3 => v_ + "orranno" ; --# notpresent Cong Pres Sg P1 => v_ + "oglia" ; Cong Pres Sg P2 => v_ + "oglia" ; Cong Pres Sg P3 => v_ + "oglia" ; Cong Pres Pl P1 => v_ + "ogliamo" ; Cong Pres Pl P2 => v_ + "ogliate" ; Cong Pres Pl P3 => v_ + "ogliano" ; - Cong Imperf Sg P1 => v_ + "olessi" ; - Cong Imperf Sg P2 => v_ + "olessi" ; - Cong Imperf Sg P3 => v_ + "olesse" ; - Cong Imperf Pl P1 => v_ + "olessimo" ; - Cong Imperf Pl P2 => v_ + "oleste" ; - Cong Imperf Pl P3 => v_ + "olessero" ; - Cond Sg P1 => v_ + "orrei" ; - Cond Sg P2 => v_ + "orresti" ; - Cond Sg P3 => v_ + "orrebbe" ; - Cond Pl P1 => v_ + "orremmo" ; - Cond Pl P2 => v_ + "orreste" ; - Cond Pl P3 => v_ + "orrebbero" ; + Cong Imperf Sg P1 => v_ + "olessi" ; --# notpresent + Cong Imperf Sg P2 => v_ + "olessi" ; --# notpresent + Cong Imperf Sg P3 => v_ + "olesse" ; --# notpresent + Cong Imperf Pl P1 => v_ + "olessimo" ; --# notpresent + Cong Imperf Pl P2 => v_ + "oleste" ; --# notpresent + Cong Imperf Pl P3 => v_ + "olessero" ; --# notpresent + Cond Sg P1 => v_ + "orrei" ; --# notpresent + Cond Sg P2 => v_ + "orresti" ; --# notpresent + Cond Sg P3 => v_ + "orrebbe" ; --# notpresent + Cond Pl P1 => v_ + "orremmo" ; --# notpresent + Cond Pl P2 => v_ + "orreste" ; --# notpresent + Cond Pl P3 => v_ + "orrebbero" ; --# notpresent Imper SgP2 => v_ + "uoi" ; Imper PlP1 => v_ + "ogliamo" ; Imper PlP2 => v_ + "olete" ; @@ -5907,42 +5909,42 @@ oper volgere_97 : Str -> Verbo = \volgere -> Indi Pres Pl P1 => vol_ + "giamo" ; Indi Pres Pl P2 => vol_ + "gete" ; Indi Pres Pl P3 => vol_ + "gono" ; - Indi Imperf Sg P1 => vol_ + "gevo" ; - Indi Imperf Sg P2 => vol_ + "gevi" ; - Indi Imperf Sg P3 => vol_ + "geva" ; - Indi Imperf Pl P1 => vol_ + "gevamo" ; - Indi Imperf Pl P2 => vol_ + "gevate" ; - Indi Imperf Pl P3 => vol_ + "gevano" ; - Pass Sg P1 => vol_ + "si" ; - Pass Sg P2 => vol_ + "gesti" ; - Pass Sg P3 => vol_ + "se" ; - Pass Pl P1 => vol_ + "gemmo" ; - Pass Pl P2 => vol_ + "geste" ; - Pass Pl P3 => vol_ + "sero" ; - Fut Sg P1 => vol_ + "gerò" ; - Fut Sg P2 => vol_ + "gerai" ; - Fut Sg P3 => vol_ + "gerà" ; - Fut Pl P1 => vol_ + "geremo" ; - Fut Pl P2 => vol_ + "gerete" ; - Fut Pl P3 => vol_ + "geranno" ; + Indi Imperf Sg P1 => vol_ + "gevo" ; --# notpresent + Indi Imperf Sg P2 => vol_ + "gevi" ; --# notpresent + Indi Imperf Sg P3 => vol_ + "geva" ; --# notpresent + Indi Imperf Pl P1 => vol_ + "gevamo" ; --# notpresent + Indi Imperf Pl P2 => vol_ + "gevate" ; --# notpresent + Indi Imperf Pl P3 => vol_ + "gevano" ; --# notpresent + Pass Sg P1 => vol_ + "si" ; --# notpresent + Pass Sg P2 => vol_ + "gesti" ; --# notpresent + Pass Sg P3 => vol_ + "se" ; --# notpresent + Pass Pl P1 => vol_ + "gemmo" ; --# notpresent + Pass Pl P2 => vol_ + "geste" ; --# notpresent + Pass Pl P3 => vol_ + "sero" ; --# notpresent + Fut Sg P1 => vol_ + "gerò" ; --# notpresent + Fut Sg P2 => vol_ + "gerai" ; --# notpresent + Fut Sg P3 => vol_ + "gerà" ; --# notpresent + Fut Pl P1 => vol_ + "geremo" ; --# notpresent + Fut Pl P2 => vol_ + "gerete" ; --# notpresent + Fut Pl P3 => vol_ + "geranno" ; --# notpresent Cong Pres Sg P1 => vol_ + "ga" ; Cong Pres Sg P2 => vol_ + "ga" ; Cong Pres Sg P3 => vol_ + "ga" ; Cong Pres Pl P1 => vol_ + "giamo" ; Cong Pres Pl P2 => vol_ + "giate" ; Cong Pres Pl P3 => vol_ + "gano" ; - Cong Imperf Sg P1 => vol_ + "gessi" ; - Cong Imperf Sg P2 => vol_ + "gessi" ; - Cong Imperf Sg P3 => vol_ + "gesse" ; - Cong Imperf Pl P1 => vol_ + "gessimo" ; - Cong Imperf Pl P2 => vol_ + "geste" ; - Cong Imperf Pl P3 => vol_ + "gessero" ; - Cond Sg P1 => vol_ + "gerei" ; - Cond Sg P2 => vol_ + "geresti" ; - Cond Sg P3 => vol_ + "gerebbe" ; - Cond Pl P1 => vol_ + "geremmo" ; - Cond Pl P2 => vol_ + "gereste" ; - Cond Pl P3 => vol_ + "gerebbero" ; + Cong Imperf Sg P1 => vol_ + "gessi" ; --# notpresent + Cong Imperf Sg P2 => vol_ + "gessi" ; --# notpresent + Cong Imperf Sg P3 => vol_ + "gesse" ; --# notpresent + Cong Imperf Pl P1 => vol_ + "gessimo" ; --# notpresent + Cong Imperf Pl P2 => vol_ + "geste" ; --# notpresent + Cong Imperf Pl P3 => vol_ + "gessero" ; --# notpresent + Cond Sg P1 => vol_ + "gerei" ; --# notpresent + Cond Sg P2 => vol_ + "geresti" ; --# notpresent + Cond Sg P3 => vol_ + "gerebbe" ; --# notpresent + Cond Pl P1 => vol_ + "geremmo" ; --# notpresent + Cond Pl P2 => vol_ + "gereste" ; --# notpresent + Cond Pl P3 => vol_ + "gerebbero" ; --# notpresent Imper SgP2 => vol_ + "gi" ; Imper PlP1 => vol_ + "giamo" ; Imper PlP2 => vol_ + "gete" ; @@ -5972,42 +5974,42 @@ oper sentire_99 : Str -> Verbo = \sentire -> Indi Pres Pl P1 => sen_ + "tiamo" ; Indi Pres Pl P2 => sen_ + "tite" ; Indi Pres Pl P3 => sen_ + "tono" ; - Indi Imperf Sg P1 => sen_ + "tivo" ; - Indi Imperf Sg P2 => sen_ + "tivi" ; - Indi Imperf Sg P3 => sen_ + "tiva" ; - Indi Imperf Pl P1 => sen_ + "tivamo" ; - Indi Imperf Pl P2 => sen_ + "tivate" ; - Indi Imperf Pl P3 => sen_ + "tivano" ; - Pass Sg P1 => sen_ + "tii" ; - Pass Sg P2 => sen_ + "tisti" ; - Pass Sg P3 => sen_ + "tì" ; - Pass Pl P1 => sen_ + "timmo" ; - Pass Pl P2 => sen_ + "tiste" ; - Pass Pl P3 => sen_ + "tirono" ; - Fut Sg P1 => sen_ + "tirò" ; - Fut Sg P2 => sen_ + "tirai" ; - Fut Sg P3 => sen_ + "tirà" ; - Fut Pl P1 => sen_ + "tiremo" ; - Fut Pl P2 => sen_ + "tirete" ; - Fut Pl P3 => sen_ + "tiranno" ; + Indi Imperf Sg P1 => sen_ + "tivo" ; --# notpresent + Indi Imperf Sg P2 => sen_ + "tivi" ; --# notpresent + Indi Imperf Sg P3 => sen_ + "tiva" ; --# notpresent + Indi Imperf Pl P1 => sen_ + "tivamo" ; --# notpresent + Indi Imperf Pl P2 => sen_ + "tivate" ; --# notpresent + Indi Imperf Pl P3 => sen_ + "tivano" ; --# notpresent + Pass Sg P1 => sen_ + "tii" ; --# notpresent + Pass Sg P2 => sen_ + "tisti" ; --# notpresent + Pass Sg P3 => sen_ + "tì" ; --# notpresent + Pass Pl P1 => sen_ + "timmo" ; --# notpresent + Pass Pl P2 => sen_ + "tiste" ; --# notpresent + Pass Pl P3 => sen_ + "tirono" ; --# notpresent + Fut Sg P1 => sen_ + "tirò" ; --# notpresent + Fut Sg P2 => sen_ + "tirai" ; --# notpresent + Fut Sg P3 => sen_ + "tirà" ; --# notpresent + Fut Pl P1 => sen_ + "tiremo" ; --# notpresent + Fut Pl P2 => sen_ + "tirete" ; --# notpresent + Fut Pl P3 => sen_ + "tiranno" ; --# notpresent Cong Pres Sg P1 => sen_ + "ta" ; Cong Pres Sg P2 => sen_ + "ta" ; Cong Pres Sg P3 => sen_ + "ta" ; Cong Pres Pl P1 => sen_ + "tiamo" ; Cong Pres Pl P2 => sen_ + "tiate" ; Cong Pres Pl P3 => sen_ + "tano" ; - Cong Imperf Sg P1 => sen_ + "tissi" ; - Cong Imperf Sg P2 => sen_ + "tissi" ; - Cong Imperf Sg P3 => sen_ + "tisse" ; - Cong Imperf Pl P1 => sen_ + "tissimo" ; - Cong Imperf Pl P2 => sen_ + "tiste" ; - Cong Imperf Pl P3 => sen_ + "tissero" ; - Cond Sg P1 => sen_ + "tirei" ; - Cond Sg P2 => sen_ + "tiresti" ; - Cond Sg P3 => sen_ + "tirebbe" ; - Cond Pl P1 => sen_ + "tiremmo" ; - Cond Pl P2 => sen_ + "tireste" ; - Cond Pl P3 => sen_ + "tirebbero" ; + Cong Imperf Sg P1 => sen_ + "tissi" ; --# notpresent + Cong Imperf Sg P2 => sen_ + "tissi" ; --# notpresent + Cong Imperf Sg P3 => sen_ + "tisse" ; --# notpresent + Cong Imperf Pl P1 => sen_ + "tissimo" ; --# notpresent + Cong Imperf Pl P2 => sen_ + "tiste" ; --# notpresent + Cong Imperf Pl P3 => sen_ + "tissero" ; --# notpresent + Cond Sg P1 => sen_ + "tirei" ; --# notpresent + Cond Sg P2 => sen_ + "tiresti" ; --# notpresent + Cond Sg P3 => sen_ + "tirebbe" ; --# notpresent + Cond Pl P1 => sen_ + "tiremmo" ; --# notpresent + Cond Pl P2 => sen_ + "tireste" ; --# notpresent + Cond Pl P3 => sen_ + "tirebbero" ; --# notpresent Imper SgP2 => sen_ + "ti" ; Imper PlP1 => sen_ + "tiamo" ; Imper PlP2 => sen_ + "tite" ; @@ -6034,42 +6036,42 @@ oper dormire_99b : Str -> Verbo = \dormire -> Indi Pres Pl P1 => dorm_ + "iamo" ; Indi Pres Pl P2 => dorm_ + "ite" ; Indi Pres Pl P3 => dorm_ + "ono" ; - Indi Imperf Sg P1 => dorm_ + "ivo" ; - Indi Imperf Sg P2 => dorm_ + "ivi" ; - Indi Imperf Sg P3 => dorm_ + "iva" ; - Indi Imperf Pl P1 => dorm_ + "ivamo" ; - Indi Imperf Pl P2 => dorm_ + "ivate" ; - Indi Imperf Pl P3 => dorm_ + "ivano" ; - Pass Sg P1 => dorm_ + "ii" ; - Pass Sg P2 => dorm_ + "isti" ; - Pass Sg P3 => dorm_ + "ì" ; - Pass Pl P1 => dorm_ + "immo" ; - Pass Pl P2 => dorm_ + "iste" ; - Pass Pl P3 => dorm_ + "irono" ; - Fut Sg P1 => dorm_ + "irò" ; - Fut Sg P2 => dorm_ + "irai" ; - Fut Sg P3 => dorm_ + "irà" ; - Fut Pl P1 => dorm_ + "iremo" ; - Fut Pl P2 => dorm_ + "irete" ; - Fut Pl P3 => dorm_ + "iranno" ; + Indi Imperf Sg P1 => dorm_ + "ivo" ; --# notpresent + Indi Imperf Sg P2 => dorm_ + "ivi" ; --# notpresent + Indi Imperf Sg P3 => dorm_ + "iva" ; --# notpresent + Indi Imperf Pl P1 => dorm_ + "ivamo" ; --# notpresent + Indi Imperf Pl P2 => dorm_ + "ivate" ; --# notpresent + Indi Imperf Pl P3 => dorm_ + "ivano" ; --# notpresent + Pass Sg P1 => dorm_ + "ii" ; --# notpresent + Pass Sg P2 => dorm_ + "isti" ; --# notpresent + Pass Sg P3 => dorm_ + "ì" ; --# notpresent + Pass Pl P1 => dorm_ + "immo" ; --# notpresent + Pass Pl P2 => dorm_ + "iste" ; --# notpresent + Pass Pl P3 => dorm_ + "irono" ; --# notpresent + Fut Sg P1 => dorm_ + "irò" ; --# notpresent + Fut Sg P2 => dorm_ + "irai" ; --# notpresent + Fut Sg P3 => dorm_ + "irà" ; --# notpresent + Fut Pl P1 => dorm_ + "iremo" ; --# notpresent + Fut Pl P2 => dorm_ + "irete" ; --# notpresent + Fut Pl P3 => dorm_ + "iranno" ; --# notpresent Cong Pres Sg P1 => dorm_ + "a" ; Cong Pres Sg P2 => dorm_ + "a" ; Cong Pres Sg P3 => dorm_ + "a" ; Cong Pres Pl P1 => dorm_ + "iamo" ; Cong Pres Pl P2 => dorm_ + "iate" ; Cong Pres Pl P3 => dorm_ + "ano" ; - Cong Imperf Sg P1 => dorm_ + "issi" ; - Cong Imperf Sg P2 => dorm_ + "issi" ; - Cong Imperf Sg P3 => dorm_ + "isse" ; - Cong Imperf Pl P1 => dorm_ + "issimo" ; - Cong Imperf Pl P2 => dorm_ + "iste" ; - Cong Imperf Pl P3 => dorm_ + "issero" ; - Cond Sg P1 => dorm_ + "irei" ; - Cond Sg P2 => dorm_ + "iresti" ; - Cond Sg P3 => dorm_ + "irebbe" ; - Cond Pl P1 => dorm_ + "iremmo" ; - Cond Pl P2 => dorm_ + "ireste" ; - Cond Pl P3 => dorm_ + "irebbero" ; + Cong Imperf Sg P1 => dorm_ + "issi" ; --# notpresent + Cong Imperf Sg P2 => dorm_ + "issi" ; --# notpresent + Cong Imperf Sg P3 => dorm_ + "isse" ; --# notpresent + Cong Imperf Pl P1 => dorm_ + "issimo" ; --# notpresent + Cong Imperf Pl P2 => dorm_ + "iste" ; --# notpresent + Cong Imperf Pl P3 => dorm_ + "issero" ; --# notpresent + Cond Sg P1 => dorm_ + "irei" ; --# notpresent + Cond Sg P2 => dorm_ + "iresti" ; --# notpresent + Cond Sg P3 => dorm_ + "irebbe" ; --# notpresent + Cond Pl P1 => dorm_ + "iremmo" ; --# notpresent + Cond Pl P2 => dorm_ + "ireste" ; --# notpresent + Cond Pl P3 => dorm_ + "irebbero" ; --# notpresent Imper SgP2 => dorm_ + "i" ; Imper PlP1 => dorm_ + "iamo" ; Imper PlP2 => dorm_ + "ite" ; @@ -6096,42 +6098,42 @@ oper finire_100 : Str -> Verbo = \finire -> Indi Pres Pl P1 => fin_ + "iamo" ; Indi Pres Pl P2 => fin_ + "ite" ; Indi Pres Pl P3 => fin_ + "iscono" ; - Indi Imperf Sg P1 => fin_ + "ivo" ; - Indi Imperf Sg P2 => fin_ + "ivi" ; - Indi Imperf Sg P3 => fin_ + "iva" ; - Indi Imperf Pl P1 => fin_ + "ivamo" ; - Indi Imperf Pl P2 => fin_ + "ivate" ; - Indi Imperf Pl P3 => fin_ + "ivano" ; - Pass Sg P1 => fin_ + "ii" ; - Pass Sg P2 => fin_ + "isti" ; - Pass Sg P3 => fin_ + "ì" ; - Pass Pl P1 => fin_ + "immo" ; - Pass Pl P2 => fin_ + "iste" ; - Pass Pl P3 => fin_ + "irono" ; - Fut Sg P1 => fin_ + "irò" ; - Fut Sg P2 => fin_ + "irai" ; - Fut Sg P3 => fin_ + "irà" ; - Fut Pl P1 => fin_ + "iremo" ; - Fut Pl P2 => fin_ + "irete" ; - Fut Pl P3 => fin_ + "iranno" ; + Indi Imperf Sg P1 => fin_ + "ivo" ; --# notpresent + Indi Imperf Sg P2 => fin_ + "ivi" ; --# notpresent + Indi Imperf Sg P3 => fin_ + "iva" ; --# notpresent + Indi Imperf Pl P1 => fin_ + "ivamo" ; --# notpresent + Indi Imperf Pl P2 => fin_ + "ivate" ; --# notpresent + Indi Imperf Pl P3 => fin_ + "ivano" ; --# notpresent + Pass Sg P1 => fin_ + "ii" ; --# notpresent + Pass Sg P2 => fin_ + "isti" ; --# notpresent + Pass Sg P3 => fin_ + "ì" ; --# notpresent + Pass Pl P1 => fin_ + "immo" ; --# notpresent + Pass Pl P2 => fin_ + "iste" ; --# notpresent + Pass Pl P3 => fin_ + "irono" ; --# notpresent + Fut Sg P1 => fin_ + "irò" ; --# notpresent + Fut Sg P2 => fin_ + "irai" ; --# notpresent + Fut Sg P3 => fin_ + "irà" ; --# notpresent + Fut Pl P1 => fin_ + "iremo" ; --# notpresent + Fut Pl P2 => fin_ + "irete" ; --# notpresent + Fut Pl P3 => fin_ + "iranno" ; --# notpresent Cong Pres Sg P1 => fin_ + "isca" ; Cong Pres Sg P2 => fin_ + "isca" ; Cong Pres Sg P3 => fin_ + "isca" ; Cong Pres Pl P1 => fin_ + "iamo" ; Cong Pres Pl P2 => fin_ + "iate" ; Cong Pres Pl P3 => fin_ + "iscano" ; - Cong Imperf Sg P1 => fin_ + "issi" ; - Cong Imperf Sg P2 => fin_ + "issi" ; - Cong Imperf Sg P3 => fin_ + "isse" ; - Cong Imperf Pl P1 => fin_ + "issimo" ; - Cong Imperf Pl P2 => fin_ + "iste" ; - Cong Imperf Pl P3 => fin_ + "issero" ; - Cond Sg P1 => fin_ + "irei" ; - Cond Sg P2 => fin_ + "iresti" ; - Cond Sg P3 => fin_ + "irebbe" ; - Cond Pl P1 => fin_ + "iremmo" ; - Cond Pl P2 => fin_ + "ireste" ; - Cond Pl P3 => fin_ + "irebbero" ; + Cong Imperf Sg P1 => fin_ + "issi" ; --# notpresent + Cong Imperf Sg P2 => fin_ + "issi" ; --# notpresent + Cong Imperf Sg P3 => fin_ + "isse" ; --# notpresent + Cong Imperf Pl P1 => fin_ + "issimo" ; --# notpresent + Cong Imperf Pl P2 => fin_ + "iste" ; --# notpresent + Cong Imperf Pl P3 => fin_ + "issero" ; --# notpresent + Cond Sg P1 => fin_ + "irei" ; --# notpresent + Cond Sg P2 => fin_ + "iresti" ; --# notpresent + Cond Sg P3 => fin_ + "irebbe" ; --# notpresent + Cond Pl P1 => fin_ + "iremmo" ; --# notpresent + Cond Pl P2 => fin_ + "ireste" ; --# notpresent + Cond Pl P3 => fin_ + "irebbero" ; --# notpresent Imper SgP2 => fin_ + "isci" ; Imper PlP1 => fin_ + "iamo" ; Imper PlP2 => fin_ + "ite" ; @@ -6160,42 +6162,42 @@ oper aprire_102 : Str -> Verbo = \aprire -> Indi Pres Pl P1 => ap_ + "riamo" ; Indi Pres Pl P2 => ap_ + "rite" ; Indi Pres Pl P3 => ap_ + "rono" ; - Indi Imperf Sg P1 => ap_ + "rivo" ; - Indi Imperf Sg P2 => ap_ + "rivi" ; - Indi Imperf Sg P3 => ap_ + "riva" ; - Indi Imperf Pl P1 => ap_ + "rivamo" ; - Indi Imperf Pl P2 => ap_ + "rivate" ; - Indi Imperf Pl P3 => ap_ + "rivano" ; - Pass Sg P1 => variants {ap_ + "rii" ; ap_ + "ersi"} ; - Pass Sg P2 => ap_ + "risti" ; - Pass Sg P3 => variants {ap_ + "rì" ; ap_ + "erse"} ; - Pass Pl P1 => ap_ + "rimmo" ; - Pass Pl P2 => ap_ + "riste" ; - Pass Pl P3 => variants {ap_ + "rirono" ; ap_ + "ersero"} ; - Fut Sg P1 => ap_ + "rirò" ; - Fut Sg P2 => ap_ + "rirai" ; - Fut Sg P3 => ap_ + "rirà" ; - Fut Pl P1 => ap_ + "riremo" ; - Fut Pl P2 => ap_ + "rirete" ; - Fut Pl P3 => ap_ + "riranno" ; + Indi Imperf Sg P1 => ap_ + "rivo" ; --# notpresent + Indi Imperf Sg P2 => ap_ + "rivi" ; --# notpresent + Indi Imperf Sg P3 => ap_ + "riva" ; --# notpresent + Indi Imperf Pl P1 => ap_ + "rivamo" ; --# notpresent + Indi Imperf Pl P2 => ap_ + "rivate" ; --# notpresent + Indi Imperf Pl P3 => ap_ + "rivano" ; --# notpresent + Pass Sg P1 => variants {ap_ + "rii" ; ap_ + "ersi"} ; --# notpresent + Pass Sg P2 => ap_ + "risti" ; --# notpresent + Pass Sg P3 => variants {ap_ + "rì" ; ap_ + "erse"} ; --# notpresent + Pass Pl P1 => ap_ + "rimmo" ; --# notpresent + Pass Pl P2 => ap_ + "riste" ; --# notpresent + Pass Pl P3 => variants {ap_ + "rirono" ; ap_ + "ersero"} ; --# notpresent + Fut Sg P1 => ap_ + "rirò" ; --# notpresent + Fut Sg P2 => ap_ + "rirai" ; --# notpresent + Fut Sg P3 => ap_ + "rirà" ; --# notpresent + Fut Pl P1 => ap_ + "riremo" ; --# notpresent + Fut Pl P2 => ap_ + "rirete" ; --# notpresent + Fut Pl P3 => ap_ + "riranno" ; --# notpresent Cong Pres Sg P1 => ap_ + "ra" ; Cong Pres Sg P2 => ap_ + "ra" ; Cong Pres Sg P3 => ap_ + "ra" ; Cong Pres Pl P1 => ap_ + "riamo" ; Cong Pres Pl P2 => ap_ + "riate" ; Cong Pres Pl P3 => ap_ + "rano" ; - Cong Imperf Sg P1 => ap_ + "rissi" ; - Cong Imperf Sg P2 => ap_ + "rissi" ; - Cong Imperf Sg P3 => ap_ + "risse" ; - Cong Imperf Pl P1 => ap_ + "rissimo" ; - Cong Imperf Pl P2 => ap_ + "riste" ; - Cong Imperf Pl P3 => ap_ + "rissero" ; - Cond Sg P1 => ap_ + "rirei" ; - Cond Sg P2 => ap_ + "riresti" ; - Cond Sg P3 => ap_ + "rirebbe" ; - Cond Pl P1 => ap_ + "riremmo" ; - Cond Pl P2 => ap_ + "rireste" ; - Cond Pl P3 => ap_ + "rirebbero" ; + Cong Imperf Sg P1 => ap_ + "rissi" ; --# notpresent + Cong Imperf Sg P2 => ap_ + "rissi" ; --# notpresent + Cong Imperf Sg P3 => ap_ + "risse" ; --# notpresent + Cong Imperf Pl P1 => ap_ + "rissimo" ; --# notpresent + Cong Imperf Pl P2 => ap_ + "riste" ; --# notpresent + Cong Imperf Pl P3 => ap_ + "rissero" ; --# notpresent + Cond Sg P1 => ap_ + "rirei" ; --# notpresent + Cond Sg P2 => ap_ + "riresti" ; --# notpresent + Cond Sg P3 => ap_ + "rirebbe" ; --# notpresent + Cond Pl P1 => ap_ + "riremmo" ; --# notpresent + Cond Pl P2 => ap_ + "rireste" ; --# notpresent + Cond Pl P3 => ap_ + "rirebbero" ; --# notpresent Imper SgP2 => ap_ + "ri" ; Imper PlP1 => ap_ + "riamo" ; Imper PlP2 => ap_ + "rite" ; @@ -6223,42 +6225,42 @@ oper cucire_103 : Str -> Verbo = \cucire -> Indi Pres Pl P1 => cuc_ + "iamo" ; Indi Pres Pl P2 => cuc_ + "ite" ; Indi Pres Pl P3 => cuc_ + "iono" ; - Indi Imperf Sg P1 => cuc_ + "ivo" ; - Indi Imperf Sg P2 => cuc_ + "ivi" ; - Indi Imperf Sg P3 => cuc_ + "iva" ; - Indi Imperf Pl P1 => cuc_ + "ivamo" ; - Indi Imperf Pl P2 => cuc_ + "ivate" ; - Indi Imperf Pl P3 => cuc_ + "ivano" ; - Pass Sg P1 => cuc_ + "ii" ; - Pass Sg P2 => cuc_ + "isti" ; - Pass Sg P3 => cuc_ + "ì" ; - Pass Pl P1 => cuc_ + "immo" ; - Pass Pl P2 => cuc_ + "iste" ; - Pass Pl P3 => cuc_ + "irono" ; - Fut Sg P1 => cuc_ + "irò" ; - Fut Sg P2 => cuc_ + "irai" ; - Fut Sg P3 => cuc_ + "irà" ; - Fut Pl P1 => cuc_ + "iremo" ; - Fut Pl P2 => cuc_ + "irete" ; - Fut Pl P3 => cuc_ + "iranno" ; + Indi Imperf Sg P1 => cuc_ + "ivo" ; --# notpresent + Indi Imperf Sg P2 => cuc_ + "ivi" ; --# notpresent + Indi Imperf Sg P3 => cuc_ + "iva" ; --# notpresent + Indi Imperf Pl P1 => cuc_ + "ivamo" ; --# notpresent + Indi Imperf Pl P2 => cuc_ + "ivate" ; --# notpresent + Indi Imperf Pl P3 => cuc_ + "ivano" ; --# notpresent + Pass Sg P1 => cuc_ + "ii" ; --# notpresent + Pass Sg P2 => cuc_ + "isti" ; --# notpresent + Pass Sg P3 => cuc_ + "ì" ; --# notpresent + Pass Pl P1 => cuc_ + "immo" ; --# notpresent + Pass Pl P2 => cuc_ + "iste" ; --# notpresent + Pass Pl P3 => cuc_ + "irono" ; --# notpresent + Fut Sg P1 => cuc_ + "irò" ; --# notpresent + Fut Sg P2 => cuc_ + "irai" ; --# notpresent + Fut Sg P3 => cuc_ + "irà" ; --# notpresent + Fut Pl P1 => cuc_ + "iremo" ; --# notpresent + Fut Pl P2 => cuc_ + "irete" ; --# notpresent + Fut Pl P3 => cuc_ + "iranno" ; --# notpresent Cong Pres Sg P1 => cuc_ + "ia" ; Cong Pres Sg P2 => cuc_ + "ia" ; Cong Pres Sg P3 => cuc_ + "ia" ; Cong Pres Pl P1 => cuc_ + "iamo" ; Cong Pres Pl P2 => cuc_ + "iate" ; Cong Pres Pl P3 => cuc_ + "iano" ; - Cong Imperf Sg P1 => cuc_ + "issi" ; - Cong Imperf Sg P2 => cuc_ + "issi" ; - Cong Imperf Sg P3 => cuc_ + "isse" ; - Cong Imperf Pl P1 => cuc_ + "issimo" ; - Cong Imperf Pl P2 => cuc_ + "iste" ; - Cong Imperf Pl P3 => cuc_ + "issero" ; - Cond Sg P1 => cuc_ + "irei" ; - Cond Sg P2 => cuc_ + "iresti" ; - Cond Sg P3 => cuc_ + "irebbe" ; - Cond Pl P1 => cuc_ + "iremmo" ; - Cond Pl P2 => cuc_ + "ireste" ; - Cond Pl P3 => cuc_ + "irebbero" ; + Cong Imperf Sg P1 => cuc_ + "issi" ; --# notpresent + Cong Imperf Sg P2 => cuc_ + "issi" ; --# notpresent + Cong Imperf Sg P3 => cuc_ + "isse" ; --# notpresent + Cong Imperf Pl P1 => cuc_ + "issimo" ; --# notpresent + Cong Imperf Pl P2 => cuc_ + "iste" ; --# notpresent + Cong Imperf Pl P3 => cuc_ + "issero" ; --# notpresent + Cond Sg P1 => cuc_ + "irei" ; --# notpresent + Cond Sg P2 => cuc_ + "iresti" ; --# notpresent + Cond Sg P3 => cuc_ + "irebbe" ; --# notpresent + Cond Pl P1 => cuc_ + "iremmo" ; --# notpresent + Cond Pl P2 => cuc_ + "ireste" ; --# notpresent + Cond Pl P3 => cuc_ + "irebbero" ; --# notpresent Imper SgP2 => cuc_ + "i" ; Imper PlP1 => cuc_ + "iamo" ; Imper PlP2 => cuc_ + "ite" ; @@ -6285,42 +6287,42 @@ oper fuggire_104 : Str -> Verbo = \fuggire -> Indi Pres Pl P1 => fugg_ + "iamo" ; Indi Pres Pl P2 => fugg_ + "ite" ; Indi Pres Pl P3 => fugg_ + "ono" ; - Indi Imperf Sg P1 => fugg_ + "ivo" ; - Indi Imperf Sg P2 => fugg_ + "ivi" ; - Indi Imperf Sg P3 => fugg_ + "iva" ; - Indi Imperf Pl P1 => fugg_ + "ivamo" ; - Indi Imperf Pl P2 => fugg_ + "ivate" ; - Indi Imperf Pl P3 => fugg_ + "ivano" ; - Pass Sg P1 => fugg_ + "ii" ; - Pass Sg P2 => fugg_ + "isti" ; - Pass Sg P3 => fugg_ + "ì" ; - Pass Pl P1 => fugg_ + "immo" ; - Pass Pl P2 => fugg_ + "iste" ; - Pass Pl P3 => fugg_ + "irono" ; - Fut Sg P1 => fugg_ + "irò" ; - Fut Sg P2 => fugg_ + "irai" ; - Fut Sg P3 => fugg_ + "irà" ; - Fut Pl P1 => fugg_ + "iremo" ; - Fut Pl P2 => fugg_ + "irete" ; - Fut Pl P3 => fugg_ + "iranno" ; + Indi Imperf Sg P1 => fugg_ + "ivo" ; --# notpresent + Indi Imperf Sg P2 => fugg_ + "ivi" ; --# notpresent + Indi Imperf Sg P3 => fugg_ + "iva" ; --# notpresent + Indi Imperf Pl P1 => fugg_ + "ivamo" ; --# notpresent + Indi Imperf Pl P2 => fugg_ + "ivate" ; --# notpresent + Indi Imperf Pl P3 => fugg_ + "ivano" ; --# notpresent + Pass Sg P1 => fugg_ + "ii" ; --# notpresent + Pass Sg P2 => fugg_ + "isti" ; --# notpresent + Pass Sg P3 => fugg_ + "ì" ; --# notpresent + Pass Pl P1 => fugg_ + "immo" ; --# notpresent + Pass Pl P2 => fugg_ + "iste" ; --# notpresent + Pass Pl P3 => fugg_ + "irono" ; --# notpresent + Fut Sg P1 => fugg_ + "irò" ; --# notpresent + Fut Sg P2 => fugg_ + "irai" ; --# notpresent + Fut Sg P3 => fugg_ + "irà" ; --# notpresent + Fut Pl P1 => fugg_ + "iremo" ; --# notpresent + Fut Pl P2 => fugg_ + "irete" ; --# notpresent + Fut Pl P3 => fugg_ + "iranno" ; --# notpresent Cong Pres Sg P1 => fugg_ + "a" ; Cong Pres Sg P2 => fugg_ + "a" ; Cong Pres Sg P3 => fugg_ + "a" ; Cong Pres Pl P1 => fugg_ + "iamo" ; Cong Pres Pl P2 => fugg_ + "iate" ; Cong Pres Pl P3 => fugg_ + "ano" ; - Cong Imperf Sg P1 => fugg_ + "issi" ; - Cong Imperf Sg P2 => fugg_ + "issi" ; - Cong Imperf Sg P3 => fugg_ + "isse" ; - Cong Imperf Pl P1 => fugg_ + "issimo" ; - Cong Imperf Pl P2 => fugg_ + "iste" ; - Cong Imperf Pl P3 => fugg_ + "issero" ; - Cond Sg P1 => fugg_ + "irei" ; - Cond Sg P2 => fugg_ + "iresti" ; - Cond Sg P3 => fugg_ + "irebbe" ; - Cond Pl P1 => fugg_ + "iremmo" ; - Cond Pl P2 => fugg_ + "ireste" ; - Cond Pl P3 => fugg_ + "irebbero" ; + Cong Imperf Sg P1 => fugg_ + "issi" ; --# notpresent + Cong Imperf Sg P2 => fugg_ + "issi" ; --# notpresent + Cong Imperf Sg P3 => fugg_ + "isse" ; --# notpresent + Cong Imperf Pl P1 => fugg_ + "issimo" ; --# notpresent + Cong Imperf Pl P2 => fugg_ + "iste" ; --# notpresent + Cong Imperf Pl P3 => fugg_ + "issero" ; --# notpresent + Cond Sg P1 => fugg_ + "irei" ; --# notpresent + Cond Sg P2 => fugg_ + "iresti" ; --# notpresent + Cond Sg P3 => fugg_ + "irebbe" ; --# notpresent + Cond Pl P1 => fugg_ + "iremmo" ; --# notpresent + Cond Pl P2 => fugg_ + "ireste" ; --# notpresent + Cond Pl P3 => fugg_ + "irebbero" ; --# notpresent Imper SgP2 => fugg_ + "i" ; Imper PlP1 => fugg_ + "iamo" ; Imper PlP2 => fugg_ + "ite" ; @@ -6349,42 +6351,42 @@ oper morire_105 : Str -> Verbo = \morire -> Indi Pres Pl P1 => mor_ + "iamo" ; Indi Pres Pl P2 => mor_ + "ite" ; Indi Pres Pl P3 => m_ + "uoiono" ; - Indi Imperf Sg P1 => mor_ + "ivo" ; - Indi Imperf Sg P2 => mor_ + "ivi" ; - Indi Imperf Sg P3 => mor_ + "iva" ; - Indi Imperf Pl P1 => mor_ + "ivamo" ; - Indi Imperf Pl P2 => mor_ + "ivate" ; - Indi Imperf Pl P3 => mor_ + "ivano" ; - Pass Sg P1 => mor_ + "ii" ; - Pass Sg P2 => mor_ + "isti" ; - Pass Sg P3 => mor_ + "ì" ; - Pass Pl P1 => mor_ + "immo" ; - Pass Pl P2 => mor_ + "iste" ; - Pass Pl P3 => mor_ + "irono" ; - Fut Sg P1 => mor_ + "irò" ; ---- also morrò etc - Fut Sg P2 => mor_ + "irai" ; - Fut Sg P3 => mor_ + "irà" ; - Fut Pl P1 => mor_ + "iremo" ; - Fut Pl P2 => mor_ + "irete" ; - Fut Pl P3 => mor_ + "iranno" ; + Indi Imperf Sg P1 => mor_ + "ivo" ; --# notpresent + Indi Imperf Sg P2 => mor_ + "ivi" ; --# notpresent + Indi Imperf Sg P3 => mor_ + "iva" ; --# notpresent + Indi Imperf Pl P1 => mor_ + "ivamo" ; --# notpresent + Indi Imperf Pl P2 => mor_ + "ivate" ; --# notpresent + Indi Imperf Pl P3 => mor_ + "ivano" ; --# notpresent + Pass Sg P1 => mor_ + "ii" ; --# notpresent + Pass Sg P2 => mor_ + "isti" ; --# notpresent + Pass Sg P3 => mor_ + "ì" ; --# notpresent + Pass Pl P1 => mor_ + "immo" ; --# notpresent + Pass Pl P2 => mor_ + "iste" ; --# notpresent + Pass Pl P3 => mor_ + "irono" ; --# notpresent + Fut Sg P1 => mor_ + "irò" ; ---- also morrò etc --# notpresent + Fut Sg P2 => mor_ + "irai" ; --# notpresent + Fut Sg P3 => mor_ + "irà" ; --# notpresent + Fut Pl P1 => mor_ + "iremo" ; --# notpresent + Fut Pl P2 => mor_ + "irete" ; --# notpresent + Fut Pl P3 => mor_ + "iranno" ; --# notpresent Cong Pres Sg P1 => m_ + "uoia" ; Cong Pres Sg P2 => m_ + "uoia" ; Cong Pres Sg P3 => m_ + "uoia" ; Cong Pres Pl P1 => mor_ + "iamo" ; Cong Pres Pl P2 => mor_ + "iate" ; Cong Pres Pl P3 => m_ + "uoiano" ; - Cong Imperf Sg P1 => mor_ + "issi" ; - Cong Imperf Sg P2 => mor_ + "issi" ; - Cong Imperf Sg P3 => mor_ + "isse" ; - Cong Imperf Pl P1 => mor_ + "issimo" ; - Cong Imperf Pl P2 => mor_ + "iste" ; - Cong Imperf Pl P3 => mor_ + "issero" ; - Cond Sg P1 => mor_ + "irei" ; - Cond Sg P2 => mor_ + "iresti" ; - Cond Sg P3 => mor_ + "irebbe" ; - Cond Pl P1 => mor_ + "iremmo" ; - Cond Pl P2 => mor_ + "ireste" ; - Cond Pl P3 => mor_ + "irebbero" ; + Cong Imperf Sg P1 => mor_ + "issi" ; --# notpresent + Cong Imperf Sg P2 => mor_ + "issi" ; --# notpresent + Cong Imperf Sg P3 => mor_ + "isse" ; --# notpresent + Cong Imperf Pl P1 => mor_ + "issimo" ; --# notpresent + Cong Imperf Pl P2 => mor_ + "iste" ; --# notpresent + Cong Imperf Pl P3 => mor_ + "issero" ; --# notpresent + Cond Sg P1 => mor_ + "irei" ; --# notpresent + Cond Sg P2 => mor_ + "iresti" ; --# notpresent + Cond Sg P3 => mor_ + "irebbe" ; --# notpresent + Cond Pl P1 => mor_ + "iremmo" ; --# notpresent + Cond Pl P2 => mor_ + "ireste" ; --# notpresent + Cond Pl P3 => mor_ + "irebbero" ; --# notpresent Imper SgP2 => m_ + "uori" ; Imper PlP1 => mor_ + "iamo" ; Imper PlP2 => mor_ + "ite" ; @@ -6400,12 +6402,31 @@ oper morire_105 : Str -> Verbo = \morire -> } } ; ----- morire_105 +oper salire_106 : Str -> Verbo = \salire -> + let x_ = Predef.tk 6 salire in + mkVerbo + (x_ + "salire") (x_ + "salgo") (x_ + "sale") (x_ + "saliamo") + (x_ + "salirò") (x_ + "salii") (x_ + "salisti") (x_ + "salì") + (x_ + "salirono") (x_ + "sali") (x_ + "salito") ; ----- salire_106 ----- seguire_107 ----- udire_108 ----- uscire_109 +oper seguire_107 : Str -> Verbo = \seguire -> + let x_ = Predef.tk 7 seguire in + mkVerbo + (x_ + "seguire") (x_ + "seguo") (x_ + "segue") (x_ + "seguiamo") + (x_ + "seguirò") (x_ + "seguii") (x_ + "seguisti") (x_ + "seguì") + (x_ + "seguirono") (x_ + "segui") (x_ + "seguito") ; + +oper udire_108 : Str -> Verbo = \udire -> + let x_ = Predef.tk 5 udire in + mkVerbo (x_ + "udire") (x_ + "odo") (x_ + "ode") (x_ + "udiamo") + (x_ + "udirò") (x_ + "udii") (x_ + "udisti") (x_ + "udì") + (x_ + "udirono") (x_ + "odi") (x_ + "udito") ; + +oper uscire_109 : Str -> Verbo = \uscire -> + let x_ = Predef.tk 6 uscire in + mkVerbo (x_ + "uscire") (x_ + "esco") (x_ + "esce") + (x_ + "usciamo") (x_ + "uscirò") (x_ + "uscii") (x_ + "uscisti") + (x_ + "uscì") (x_ + "uscirono") (x_ + "esci") (x_ + "uscito") ; oper venire_110 : Str -> Verbo = \venire -> let v_ = Predef.tk 5 venire in @@ -6418,42 +6439,42 @@ oper venire_110 : Str -> Verbo = \venire -> Indi Pres Pl P1 => v_ + "eniamo" ; Indi Pres Pl P2 => v_ + "enite" ; Indi Pres Pl P3 => v_ + "engono" ; - Indi Imperf Sg P1 => v_ + "enivo" ; - Indi Imperf Sg P2 => v_ + "enivi" ; - Indi Imperf Sg P3 => v_ + "eniva" ; - Indi Imperf Pl P1 => v_ + "enivamo" ; - Indi Imperf Pl P2 => v_ + "enivate" ; - Indi Imperf Pl P3 => v_ + "enivano" ; - Pass Sg P1 => v_ + "enni" ; - Pass Sg P2 => v_ + "enisti" ; - Pass Sg P3 => v_ + "enne" ; - Pass Pl P1 => v_ + "enimmo" ; - Pass Pl P2 => v_ + "eniste" ; - Pass Pl P3 => v_ + "ennero" ; - Fut Sg P1 => v_ + "errò" ; - Fut Sg P2 => v_ + "errai" ; - Fut Sg P3 => v_ + "errà" ; - Fut Pl P1 => v_ + "erremo" ; - Fut Pl P2 => v_ + "errete" ; - Fut Pl P3 => v_ + "erranno" ; + Indi Imperf Sg P1 => v_ + "enivo" ; --# notpresent + Indi Imperf Sg P2 => v_ + "enivi" ; --# notpresent + Indi Imperf Sg P3 => v_ + "eniva" ; --# notpresent + Indi Imperf Pl P1 => v_ + "enivamo" ; --# notpresent + Indi Imperf Pl P2 => v_ + "enivate" ; --# notpresent + Indi Imperf Pl P3 => v_ + "enivano" ; --# notpresent + Pass Sg P1 => v_ + "enni" ; --# notpresent + Pass Sg P2 => v_ + "enisti" ; --# notpresent + Pass Sg P3 => v_ + "enne" ; --# notpresent + Pass Pl P1 => v_ + "enimmo" ; --# notpresent + Pass Pl P2 => v_ + "eniste" ; --# notpresent + Pass Pl P3 => v_ + "ennero" ; --# notpresent + Fut Sg P1 => v_ + "errò" ; --# notpresent + Fut Sg P2 => v_ + "errai" ; --# notpresent + Fut Sg P3 => v_ + "errà" ; --# notpresent + Fut Pl P1 => v_ + "erremo" ; --# notpresent + Fut Pl P2 => v_ + "errete" ; --# notpresent + Fut Pl P3 => v_ + "erranno" ; --# notpresent Cong Pres Sg P1 => v_ + "enga" ; Cong Pres Sg P2 => v_ + "enga" ; Cong Pres Sg P3 => v_ + "enga" ; Cong Pres Pl P1 => v_ + "eniamo" ; Cong Pres Pl P2 => v_ + "eniate" ; Cong Pres Pl P3 => v_ + "engano" ; - Cong Imperf Sg P1 => v_ + "enissi" ; - Cong Imperf Sg P2 => v_ + "enissi" ; - Cong Imperf Sg P3 => v_ + "enisse" ; - Cong Imperf Pl P1 => v_ + "enissimo" ; - Cong Imperf Pl P2 => v_ + "eniste" ; - Cong Imperf Pl P3 => v_ + "enissero" ; - Cond Sg P1 => v_ + "errei" ; - Cond Sg P2 => v_ + "erresti" ; - Cond Sg P3 => v_ + "errebbe" ; - Cond Pl P1 => v_ + "erremmo" ; - Cond Pl P2 => v_ + "erreste" ; - Cond Pl P3 => v_ + "errebbero" ; + Cong Imperf Sg P1 => v_ + "enissi" ; --# notpresent + Cong Imperf Sg P2 => v_ + "enissi" ; --# notpresent + Cong Imperf Sg P3 => v_ + "enisse" ; --# notpresent + Cong Imperf Pl P1 => v_ + "enissimo" ; --# notpresent + Cong Imperf Pl P2 => v_ + "eniste" ; --# notpresent + Cong Imperf Pl P3 => v_ + "enissero" ; --# notpresent + Cond Sg P1 => v_ + "errei" ; --# notpresent + Cond Sg P2 => v_ + "erresti" ; --# notpresent + Cond Sg P3 => v_ + "errebbe" ; --# notpresent + Cond Pl P1 => v_ + "erremmo" ; --# notpresent + Cond Pl P2 => v_ + "erreste" ; --# notpresent + Cond Pl P3 => v_ + "errebbero" ; --# notpresent Imper SgP2 => v_ + "ieni" ; Imper PlP1 => v_ + "eniamo" ; Imper PlP2 => v_ + "enite" ; @@ -6469,4 +6490,113 @@ oper venire_110 : Str -> Verbo = \venire -> } } ; + verbBesch : {s : VForm => Str} -> {s : VF => Str} = \amare -> {s = table { + VInfin False => amare.s ! Inf ; + VInfin True => amare.s ! InfClit ; + VFin (VPres Indic) n p => amare.s ! Indi Pres n p ; + VFin (VPres Conjunct) n p => amare.s ! Cong Pres n p ; + VFin (VImperf Indic) n p => amare.s ! Indi Imperf n p ; --# notpresent + VFin (VImperf Conjunct) n p => amare.s ! Cong Imperf n p ; --# notpresent + VFin VPasse n p => amare.s ! Pass n p ; --# notpresent + VFin VFut n p => amare.s ! Fut n p ; --# notpresent + VFin VCondit n p => amare.s ! Cond n p ; --# notpresent + VImper np => amare.s ! Imper np ; + VPart g n => amare.s ! Part PassP g n ; + VGer => amare.s ! Ger + } + } ; + +param + Tempo = + Pres + | Imperf --# notpresent + ; + TempoP = + PresP + | PassP + ; + VForm = + Inf + | InfClit + | Indi Tempo Number Person + | Pass Number Person --# notpresent + | Fut Number Person --# notpresent + | Cong Tempo Number Person + | Cond Number Person --# notpresent + | Imper NumPersI + | Ger + | Part TempoP Gender Number + ; + + oper + mkVerbo : (x1,_,_,_,_,_,_,_,_,_,x11 : Str) -> Verbo ; + mkVerbo + dovere devo deve dobbiamo dovro + dovetti dovesti dovette dovettero dovi dovuto = + let + dove = Predef.tk 2 dovere ; + dov = init dove ; + dev = init devo ; + dovr = init dovro ; + dovei = Predef.tk 3 dovesti ; + dovut = init dovuto + in ( + {s = table { + Inf => dovere ; + InfClit => init dovere ; + Indi Pres Sg P1 => devo ; + Indi Pres Sg P2 => init deve + "i" ; + Indi Pres Sg P3 => deve ; + Indi Pres Pl P1 => dobbiamo ; + Indi Pres Pl P2 => dove + "te" ; + Indi Pres Pl P3 => init deve + "ono" ; + Indi Imperf Sg P1 => dove + "vo" ; --# notpresent + Indi Imperf Sg P2 => dove + "vi" ; --# notpresent + Indi Imperf Sg P3 => dove + "va" ; --# notpresent + Indi Imperf Pl P1 => dove + "vamo" ; --# notpresent + Indi Imperf Pl P2 => dove + "vate" ; --# notpresent + Indi Imperf Pl P3 => dove + "vano" ; --# notpresent + Pass Sg P1 => dovetti ; --# notpresent + Pass Sg P2 => dovesti ; --# notpresent + Pass Sg P3 => dovette ; --# notpresent + Pass Pl P1 => dovei + "mmo" ; --# notpresent + Pass Pl P2 => dovei + "ste" ; --# notpresent + Pass Pl P3 => dovettero ; --# notpresent + Fut Sg P1 => dovro ; --# notpresent + Fut Sg P2 => dovr + "ai" ; --# notpresent + Fut Sg P3 => dovr + "à" ; --# notpresent + Fut Pl P1 => dovr + "emo" ; --# notpresent + Fut Pl P2 => dovr + "ete" ; --# notpresent + Fut Pl P3 => dovr + "anno" ; --# notpresent + Cong Pres Sg P1 => dev + "a" ; + Cong Pres Sg P2 => dev + "a" ; + Cong Pres Sg P3 => dev + "a" ; + Cong Pres Pl P1 => dobbiamo ; + Cong Pres Pl P2 => Predef.tk 2 dobbiamo + "te" ; + Cong Pres Pl P3 => dev + "ano" ; + Cong Imperf Sg P1 => dovei + "ssi" ; --# notpresent + Cong Imperf Sg P2 => dovei + "ssi" ; --# notpresent + Cong Imperf Sg P3 => dovei + "sse" ; --# notpresent + Cong Imperf Pl P1 => dovei + "ssimo" ; --# notpresent + Cong Imperf Pl P2 => dovei + "ste" ; --# notpresent + Cong Imperf Pl P3 => dovei + "ssero" ; --# notpresent + Cond Sg P1 => dovr + "ei" ; --# notpresent + Cond Sg P2 => dovr + "esti" ; --# notpresent + Cond Sg P3 => dovr + "ebbe" ; --# notpresent + Cond Pl P1 => dovr + "emmo" ; --# notpresent + Cond Pl P2 => dovr + "este" ; --# notpresent + Cond Pl P3 => dovr + "ebbero" ; --# notpresent + Imper SgP2 => dovi ; + Imper PlP1 => dobbiamo ; + Imper PlP2 => dove + "te" ; + Ger => dov + "endo" ; + Part PresP _ Sg => dov + "ente" ; + Part PresP _ Pl => dov + "enti" ; + Part PassP Masc Sg => dovuto ; + Part PassP Masc Pl => dovut + "i" ; + Part PassP Fem Sg => dovut + "a" ; + Part PassP Fem Pl => dovut + "e" + } + }) ; + } diff --git a/lib/resource-1.0/italian/CatIta.gf b/lib/resource/italian/CatIta.gf similarity index 100% rename from lib/resource-1.0/italian/CatIta.gf rename to lib/resource/italian/CatIta.gf diff --git a/lib/resource-1.0/italian/ConjunctionIta.gf b/lib/resource/italian/ConjunctionIta.gf similarity index 100% rename from lib/resource-1.0/italian/ConjunctionIta.gf rename to lib/resource/italian/ConjunctionIta.gf diff --git a/lib/resource-1.0/italian/DiffIta.gf b/lib/resource/italian/DiffIta.gf similarity index 100% rename from lib/resource-1.0/italian/DiffIta.gf rename to lib/resource/italian/DiffIta.gf diff --git a/lib/resource-1.0/italian/ExtraIta.gf b/lib/resource/italian/ExtraIta.gf similarity index 100% rename from lib/resource-1.0/italian/ExtraIta.gf rename to lib/resource/italian/ExtraIta.gf diff --git a/lib/resource-1.0/italian/ExtraItaAbs.gf b/lib/resource/italian/ExtraItaAbs.gf similarity index 100% rename from lib/resource-1.0/italian/ExtraItaAbs.gf rename to lib/resource/italian/ExtraItaAbs.gf diff --git a/lib/resource-1.0/italian/ExtraRomanceIta.gf b/lib/resource/italian/ExtraRomanceIta.gf similarity index 100% rename from lib/resource-1.0/italian/ExtraRomanceIta.gf rename to lib/resource/italian/ExtraRomanceIta.gf diff --git a/lib/resource-1.0/italian/GrammarIta.gf b/lib/resource/italian/GrammarIta.gf similarity index 100% rename from lib/resource-1.0/italian/GrammarIta.gf rename to lib/resource/italian/GrammarIta.gf diff --git a/lib/resource-1.0/italian/IdiomIta.gf b/lib/resource/italian/IdiomIta.gf similarity index 100% rename from lib/resource-1.0/italian/IdiomIta.gf rename to lib/resource/italian/IdiomIta.gf diff --git a/lib/resource-1.0/italian/Italian.gf b/lib/resource/italian/Italian.gf similarity index 100% rename from lib/resource-1.0/italian/Italian.gf rename to lib/resource/italian/Italian.gf diff --git a/lib/resource-1.0/italian/ItalianAbs.gf b/lib/resource/italian/ItalianAbs.gf similarity index 100% rename from lib/resource-1.0/italian/ItalianAbs.gf rename to lib/resource/italian/ItalianAbs.gf diff --git a/lib/resource/italian/LangIta.gf b/lib/resource/italian/LangIta.gf index 35c921769..d5e4670c7 100644 --- a/lib/resource/italian/LangIta.gf +++ b/lib/resource/italian/LangIta.gf @@ -1,23 +1,10 @@ ---# -path=.:../romance:../abstract:../../prelude +--# -path=.:../romance:../abstract:../common:prelude concrete LangIta of Lang = - RulesIta, - ClauseIta, - StructuralIta, - BasicIta, - TimeIta, - CountryIta, - MathIta + GrammarIta, + LexiconIta + ** { - ** open Prelude, ParadigmsIta in { +flags startcat = Phr ; unlexer = text ; lexer = text ; -lin - AdvDate d = prefixSS "il" d ; - AdvTime t = prefixSS "alle" t ; - NWeekday w = w ; - PNWeekday w = mkPN (w.s ! singular) w.g ; - - PNCountry x = x ; - ANationality x = x ; - NLanguage x = x ; -} +} ; diff --git a/lib/resource-1.0/italian/LexiconIta.gf b/lib/resource/italian/LexiconIta.gf similarity index 100% rename from lib/resource-1.0/italian/LexiconIta.gf rename to lib/resource/italian/LexiconIta.gf diff --git a/lib/resource/italian/MorphoIta.gf b/lib/resource/italian/MorphoIta.gf index 8473582e4..669e1300b 100644 --- a/lib/resource/italian/MorphoIta.gf +++ b/lib/resource/italian/MorphoIta.gf @@ -1,45 +1,26 @@ ---# -path=.:../romance:../../prelude +--# -path=.:../romance:../common:../../prelude --1 A Simple Italian Resource Morphology -- --- Aarne Ranta 2002--2003 +-- Aarne Ranta 2002 -- 2005 -- -- This resource morphology contains definitions needed in the resource --- syntax. It moreover contains the most usual inflectional patterns. --- The patterns for verbs contain the complete "Bescherelle" conjugation --- tables. --- --- We use the parameter types and word classes defined in $TypesIta.gf$. +-- syntax. To build a lexicon, it is better to use $ParadigmsIta$, which +-- gives a higher-level access to this module. -resource MorphoIta = open (Predef=Predef), Prelude, TypesIta in { +resource MorphoIta = CommonRomance, ResIta ** + open PhonoIta, Prelude, Predef in { ---2 Some phonology --- ---3 Elision --- --- The phonological rule of *elision* can be defined as follows in GF. --- In Italian it includes both vowels and the *impure 's'*. + flags optimize=all ; -oper - vocale : Strs = strs { - "a" ; "e" ; "h" ; "i" ; "o" ; "u" - } ; - sImpuro : Strs = strs { - "z" ; "sb" ; "sc" ; "sd" ; "sf" ; "sm" ; "sp" ; "sq" ; "sr" ; "st" ; "sv" - } ; - - elision : (_,_,_ : Str) -> Str = \il, l', lo -> - pre {il ; l' / vocale ; lo / sImpuro} ; - - elisQue = "che" ; --- no elision in Italian - elisDe = "de" ; --2 Nouns -- -- The following macro is useful for creating the forms of number-dependent -- tables, such as common nouns. +oper numForms : (_,_ : Str) -> Number => Str = \vino, vini -> table {Sg => vino ; Pl => vini} ; @@ -59,13 +40,13 @@ oper -- Common nouns are inflected in number and have an inherent gender. - mkCNom : (Number => Str) -> Gender -> CNom = \mecmecs,gen -> + mkNoun : (Number => Str) -> Gender -> Noun = \mecmecs,gen -> {s = mecmecs ; g = gen} ; - mkCNomIrreg : Str -> Str -> Gender -> CNom = \mec,mecs -> - mkCNom (numForms mec mecs) ; + mkNounIrreg : Str -> Str -> Gender -> Noun = \mec,mecs -> + mkNoun (numForms mec mecs) ; - mkNomReg : Str -> {s : Number => Str ; g : Gender} = \vino -> + mkNomReg : Str -> Noun = \vino -> let o = last vino ; vin = init vino ; @@ -150,147 +131,30 @@ oper -- All the eight personal pronouns can be built by the following macro. -- The use of "ne" as atonic genitive is debatable. -- We follow the rule that the atonic nominative is empty. +-- (The form $glie$ is no longer used, and also the other clitics are +-- given in $DiffIta.argPron$ and therefore wouldn't be needed in the +-- pronoun itself.) - mkPronoun : (_,_,_,_,_,_,_,_ : Str) -> - PronGen -> Number -> Person -> ClitType -> Pronoun = - \il,le,lui,Lui,son,sa,ses,see,g,n,p,c -> + mkPronoun : (_,_,_,_,_,_,_,_,_ : Str) -> + Gender -> Number -> Person -> Pronoun = + \il,le,lui,glie,Lui,son,sa,ses,see,g,n,p -> {s = table { Ton Nom => il ; Ton x => prepCase x ++ Lui ; - Aton Nom => il ; ---- [] ; + Aton Nom => strOpt il ; -- [] or il Aton Acc => le ; Aton (CPrep P_di) => "ne" ; --- hmm Aton (CPrep P_a) => lui ; - Aton (CPrep q) => strPrep q ++ Lui ; ---- GF bug with c or p! - Poss Sg Masc => son ; - Poss Sg Fem => sa ; - Poss Pl Masc => ses ; - Poss Pl Fem => see + Aton q => prepCase q ++ Lui ; ---- GF bug with c or p! + Poss {n = Sg ; g = Masc} => son ; + Poss {n = Sg ; g = Fem} => sa ; + Poss {n = Pl ; g = Masc} => ses ; + Poss {n = Pl ; g = Fem} => see } ; - g = g ; - n = n ; - p = p ; - c = c + a = {g = g ; n = n ; p = p} ; + hasClit = True } ; - ---2 Reflexive pronouns --- --- It is simply a function depending on number and person. - - pronRefl : Number -> Person -> Str = \n,p -> case of { - => "mi" ; - => "ti" ; - <_, P3> => "si" ; - => "ci" ; - => "vi" - } ; - pronJe = mkPronoun - "io" --- (variants {"io" ; []}) etc - "mi" - "mi" - "me" - "mio" "mia" "miei" "mie" - PNoGen -- gender cannot be known from pronoun alone - Sg - P1 - Clit1 ; - - pronTu = mkPronoun - "tu" - "ti" - "ti" - "te" - "tuo" "tua" "tuoi" "tue" - PNoGen - Sg - P2 - Clit1 ; - - pronIl = mkPronoun - "lui" - "lo" - "gli" - "lui" - "suo" "sua" "suoi" "sue" - (PGen Masc) - Sg - P3 - Clit2 ; - - pronElle = mkPronoun - "lei" - "la" - "le" - "lei" - "suo" "sua" "suoi" "sue" - (PGen Fem) - Sg - P3 - Clit2 ; - - pronNous = mkPronoun - "noi" - "ci" - "ci" - "noi" - "nostro" "nostra" "nostri" "nostre" - PNoGen - Pl - P1 - Clit3 ; - - pronVous = mkPronoun - "voi" - "vi" - "vi" - "voi" - "vostro" "vostra" "vostri" "vostre" - PNoGen - Pl --- depends! - P2 - Clit3 ; - - pronIls = mkPronoun - "loro" - "loro" - "li" --- le ! - "loro" - "loro" "loro" "loro" "loro" - PNoGen - Pl - P3 - Clit1 ; - - personPron : Gender -> Number -> Person -> Pronoun = \g,n,p -> - case of { - => pronJe ; - => pronTu ; - => case g of { - Masc => pronIl ; - Fem => pronElle - } ; - => pronNous ; - => pronVous ; - => case g of { - Masc => pronIls ; - Fem => pronIls - } - } ; - - -- used in constructions like "(non) ci sono ..." - - pronEmpty : Number -> Pronoun = \n -> mkPronoun - [] - [] - [] - [] - [] [] [] [] - (PGen Masc) - n - P3 - Clit2 ; - --2 Determiners -- -- Determiners, traditionally called indefinite pronouns, are inflected @@ -298,193 +162,4 @@ oper pronForms : Adj -> Gender -> Number -> Str = \tale,g,n -> tale.s ! AF g n ; - qualPron : Gender -> Number -> Str = pronForms (adjTale "quale") ; - - talPron : Gender -> Number -> Str = pronForms (adjTale "tale") ; - - tuttoPron : Gender -> Number -> Str = pronForms (adjSolo "tutto") ; - ---2 Articles --- --- The definite article has quite some variation: three parameters and --- elision. This is the simples definition we have been able to find. - - artDefTable : Gender => Number => Case => Str = \\g,n,c => case of { - <_, _, CPrep P_di> => prepArt g n "de" ; - <_, _, CPrep P_da> => prepArt g n "da" ; - <_, _, CPrep P_a> => prepArt g n "a" ; - <_, _, CPrep P_in> => prepArt g n "ne" ; - <_, _, CPrep P_su> => prepArt g n "su" ; - <_, _, CPrep P_con> => prepArt g n "co" ; - => elision "il" "l'" "lo" ; - => elision "il" "l'" "lo" ; - - => elision "la" "l'" "la" ; - => elision "i" "gli" "gli" ; - => "le" - } ; - --- This auxiliary expresses the uniform rule. - - prepArt : Gender -> Number -> Tok -> Tok = \g,n,de -> case of { - => elision (de + "l") (de + "ll'") (de + "llo") ; - => elision (de + "i") (de + "gli") (de + "gli") ; - => elision (de + "lla") (de + "ll'") (de + "lla") ; - => de + "lle" - } ; - ---2 Verbs --- ---3 The Bescherelle conjugations. --- --- The following conjugations tables were generated using FM software --- from a Haskell source. --- --- The verb "essere" is often used in syntax. - - verbEssere = verbPres (essere_5 "essere") AEsse ; - verbAvere = verbPres (avere_6 "avere") AHabere ; - --- machine-generated GF code - -oper essere_5 : Str -> Verbum = \essere -> - let x_ = Predef.tk 6 essere in - {s = table { - Inf => x_ + "essere" ; - InfClit => x_ + "r" ; - Indi Pres Sg P1 => x_ + "sono" ; - Indi Pres Sg P2 => x_ + "sei" ; - Indi Pres Sg P3 => x_ + "è" ; - Indi Pres Pl P1 => x_ + "siamo" ; - Indi Pres Pl P2 => x_ + "siete" ; - Indi Pres Pl P3 => x_ + "sono" ; - Indi Imperf Sg P1 => x_ + "ero" ; - Indi Imperf Sg P2 => x_ + "eri" ; - Indi Imperf Sg P3 => x_ + "era" ; - Indi Imperf Pl P1 => x_ + "eravamo" ; - Indi Imperf Pl P2 => x_ + "eravate" ; - Indi Imperf Pl P3 => x_ + "erano" ; - Pass Sg P1 => x_ + "fui" ; - Pass Sg P2 => x_ + "fosti" ; - Pass Sg P3 => x_ + "fu" ; - Pass Pl P1 => x_ + "fummo" ; - Pass Pl P2 => x_ + "foste" ; - Pass Pl P3 => x_ + "furono" ; - Fut Sg P1 => x_ + "sarò" ; - Fut Sg P2 => x_ + "sarai" ; - Fut Sg P3 => x_ + "sarà" ; - Fut Pl P1 => x_ + "saremo" ; - Fut Pl P2 => x_ + "sarete" ; - Fut Pl P3 => x_ + "saranno" ; - Cong Pres Sg P1 => x_ + "sia" ; - Cong Pres Sg P2 => x_ + "sia" ; - Cong Pres Sg P3 => x_ + "sia" ; - Cong Pres Pl P1 => x_ + "siamo" ; - Cong Pres Pl P2 => x_ + "siate" ; - Cong Pres Pl P3 => x_ + "siano" ; - Cong Imperf Sg P1 => x_ + "fossi" ; - Cong Imperf Sg P2 => x_ + "fossi" ; - Cong Imperf Sg P3 => x_ + "fosse" ; - Cong Imperf Pl P1 => x_ + "fossimo" ; - Cong Imperf Pl P2 => x_ + "foste" ; - Cong Imperf Pl P3 => x_ + "fossero" ; - Cond Sg P1 => x_ + "sarei" ; - Cond Sg P2 => x_ + "saresti" ; - Cond Sg P3 => x_ + "sarebbe" ; - Cond Pl P1 => x_ + "saremmo" ; - Cond Pl P2 => x_ + "sareste" ; - Cond Pl P3 => x_ + "sarebbero" ; - Imper SgP2 => x_ + "sii" ; - --Imper IPs3 => x_ + "sia" ; - Imper PlP1 => x_ + "siamo" ; - Imper PlP2 => x_ + "siate" ; - --Imper IPp3 => x_ + "siano" ; - Ger => x_ + "essendo" ; - Part PresP Masc Sg => variants {} ; - Part PresP Masc Pl => variants {} ; - Part PresP Fem Sg => variants {} ; - Part PresP Fem Pl => variants {} ; - Part PassP Masc Sg => x_ + "stato" ; - Part PassP Masc Pl => x_ + "stati" ; - Part PassP Fem Sg => x_ + "stata" ; - Part PassP Fem Pl => x_ + "state" - } - } ; - -oper avere_6 : Str -> Verbum = \avere -> - let x_ = Predef.tk 5 avere in - {s = table { - Inf => x_ + "avere" ; - InfClit => x_ + "aver" ; - Indi Pres Sg P1 => x_ + "ho" ; - Indi Pres Sg P2 => x_ + "hai" ; - Indi Pres Sg P3 => x_ + "ha" ; - Indi Pres Pl P1 => x_ + "abbiamo" ; - Indi Pres Pl P2 => x_ + "avete" ; - Indi Pres Pl P3 => x_ + "hanno" ; - Indi Imperf Sg P1 => x_ + "avevo" ; - Indi Imperf Sg P2 => x_ + "avevi" ; - Indi Imperf Sg P3 => x_ + "aveva" ; - Indi Imperf Pl P1 => x_ + "avevamo" ; - Indi Imperf Pl P2 => x_ + "avevate" ; - Indi Imperf Pl P3 => x_ + "avevano" ; - Pass Sg P1 => x_ + "ebbi" ; - Pass Sg P2 => x_ + "avesti" ; - Pass Sg P3 => x_ + "ebbe" ; - Pass Pl P1 => x_ + "avemmo" ; - Pass Pl P2 => x_ + "aveste" ; - Pass Pl P3 => x_ + "ebbero" ; - Fut Sg P1 => x_ + "avrò" ; - Fut Sg P2 => x_ + "avrai" ; - Fut Sg P3 => x_ + "avrà" ; - Fut Pl P1 => x_ + "avremo" ; - Fut Pl P2 => x_ + "avrete" ; - Fut Pl P3 => x_ + "avranno" ; - Cong Pres Sg P1 => x_ + "abbia" ; - Cong Pres Sg P2 => x_ + "abbia" ; - Cong Pres Sg P3 => x_ + "abbia" ; - Cong Pres Pl P1 => x_ + "abbiamo" ; - Cong Pres Pl P2 => x_ + "abbiate" ; - Cong Pres Pl P3 => x_ + "abbiano" ; - Cong Imperf Sg P1 => x_ + "avessi" ; - Cong Imperf Sg P2 => x_ + "avessi" ; - Cong Imperf Sg P3 => x_ + "avesse" ; - Cong Imperf Pl P1 => x_ + "avessimo" ; - Cong Imperf Pl P2 => x_ + "aveste" ; - Cong Imperf Pl P3 => x_ + "avessero" ; - Cond Sg P1 => x_ + "avrei" ; - Cond Sg P2 => x_ + "avresti" ; - Cond Sg P3 => x_ + "avrebbe" ; - Cond Pl P1 => x_ + "avremmo" ; - Cond Pl P2 => x_ + "avreste" ; - Cond Pl P3 => x_ + "avrebbero" ; - Imper SgP2 => x_ + "abbi" ; - --Imper IPs3 => x_ + "abbia" ; - Imper PlP1 => x_ + "abbiamo" ; - Imper PlP2 => x_ + "abbiate" ; - --Imper IPp3 => x_ + "abbiano" ; - Ger => x_ + "avendo" ; - Part PresP Masc Sg => x_ + "avente" ; - Part PresP Masc Pl => x_ + "aventi" ; - Part PresP Fem Sg => x_ + "avente" ; - Part PresP Fem Pl => x_ + "aventi" ; - Part PassP Masc Sg => x_ + "avuto" ; - Part PassP Masc Pl => x_ + "avuti" ; - Part PassP Fem Sg => x_ + "avuta" ; - Part PassP Fem Pl => x_ + "avute" - } - } ; - - --- for Numerals - -param DForm = ental Pred | ton | tiotal ; -param Pred = pred | indip ; - -oper mkTal : Str -> Str -> Str -> {s : DForm => Str} = - \två -> \tolv -> \tjugo -> - {s = table {ental _ => två ; ton => tolv ; tiotal => tjugo}} ; -oper spl : Str -> {s : Gender => Str ; n : Number} = \s -> {s = \\_ => - s ; n = Pl} ; -oper mille : Number => Str = table {Sg => "mille" ; Pl => "mila"} ; } diff --git a/lib/resource-1.0/italian/NounIta.gf b/lib/resource/italian/NounIta.gf similarity index 100% rename from lib/resource-1.0/italian/NounIta.gf rename to lib/resource/italian/NounIta.gf diff --git a/lib/resource-1.0/italian/NumeralIta.gf b/lib/resource/italian/NumeralIta.gf similarity index 100% rename from lib/resource-1.0/italian/NumeralIta.gf rename to lib/resource/italian/NumeralIta.gf diff --git a/lib/resource/italian/ParadigmsIta.gf b/lib/resource/italian/ParadigmsIta.gf index 3bd58fa78..3a98856ca 100644 --- a/lib/resource/italian/ParadigmsIta.gf +++ b/lib/resource/italian/ParadigmsIta.gf @@ -1,17 +1,17 @@ ---# -path=.:../romance:../abstract:../../prelude +--# -path=.:../romance:../common:../abstract:../../prelude --1 Italian Lexical Paradigms -- -- Aarne Ranta 2003 -- --- This is an API to the user of the resource grammar +-- This is an API for the user of the resource grammar -- for adding lexical items. It gives functions for forming -- expressions of open categories: nouns, adjectives, verbs. -- -- Closed categories (determiners, pronouns, conjunctions) are -- accessed through the resource syntax API, $Structural.gf$. -- --- The main difference with $MorphoFre.gf$ is that the types +-- The main difference with $MorphoIta.gf$ is that the types -- referred to are compiled resource grammar types. We have moreover -- had the design principle of always having existing forms, rather -- than stems, as string arguments of the paradigms. @@ -20,15 +20,21 @@ -- first we give a handful of patterns that aim to cover all -- regular cases. Then we give a worst-case function $mkC$, which serves as an -- escape to construct the most irregular words of type $C$. --- However, this function should only seldom be needed: we have a --- separate module $IrregularEng$, which covers all irregularly inflected --- words. --- --- The following modules are presupposed: +-- However, this function should only seldom be needed. For verbs, we have a +-- separate module [``BeschIta`` ../../italian/BeschIta.gf], +-- which covers the "Bescherelle" verb conjugations. resource ParadigmsIta = - open (Predef=Predef), Prelude, TypesIta, MorphoIta, SyntaxIta, - RulesIta, BeschIta in { + open + (Predef=Predef), + Prelude, + CommonRomance, + ResIta, + MorphoIta, + BeschIta, + CatIta in { + + flags optimize=all ; --2 Parameters -- @@ -49,23 +55,22 @@ oper -- Prepositions used in many-argument functions are either strings -- (including the 'accusative' empty string) or strings that --- amalgamate with the following word (the 'genitive' "de" and the --- 'dative' "à"). +-- amalgamate with the following word (the 'genitive' "di" and the +-- 'dative' "a"). - Preposition : Type ; + Prep : Type ; - accusative : Preposition ; - genitive : Preposition ; - dative : Preposition ; - - mkPreposition : Str -> Preposition ; + accusative : Prep ; + genitive : Prep ; + dative : Prep ; + mkPrep : Str -> Prep ; --2 Nouns -- Worst case: give both two forms and the gender. - mkN : (uomi,uomini : Str) -> Gender -> N ; + mkN : (uomo,uomini : Str) -> Gender -> N ; -- The regular function takes the singular form and the gender, -- and computes the plural and the gender by a heuristic. @@ -82,7 +87,7 @@ oper --3 Compound nouns -- -- Some nouns are ones where the first part is inflected as a noun but --- the second part is not inflected. e.g. "numéro de téléphone". +-- the second part is not inflected. e.g. "numero di telefono". -- They could be formed in syntax, but we give a shortcut here since -- they are frequent in lexica. @@ -91,9 +96,9 @@ oper --3 Relational nouns -- --- Relational nouns ("fille de x") need a case and a preposition. +-- Relational nouns ("figlio di x") need a case and a preposition. - mkN2 : N -> Preposition -> N2 ; + mkN2 : N -> Prep -> N2 ; -- The most common cases are the genitive "di" and the dative "a", -- with the empty preposition. @@ -103,13 +108,13 @@ oper -- Three-place relational nouns ("la connessione di x a y") need two prepositions. - mkN3 : N -> Preposition -> Preposition -> N3 ; + mkN3 : N -> Prep -> Prep -> N3 ; --3 Relational common noun phrases -- -- In some cases, you may want to make a complex $CN$ into a --- relational noun (e.g. "the old town hall of"). However, $N2$ and +-- relational noun (e.g. "la vecchia chiesa di"). However, $N2$ and -- $N3$ are purely lexical categories. But you can use the $AdvCN$ -- and $PrepNP$ constructions to build phrases like this. @@ -118,7 +123,8 @@ oper -- -- Proper names need a string and a gender. - mkPN : Str -> Gender -> PN ; -- Jean + mkPN : Str -> Gender -> PN ; + regPN : Str -> PN ; -- feminine if "-a", otherwise masculine -- To form a noun phrase that can also be plural, -- you can use the worst-case function. @@ -139,7 +145,7 @@ oper -- These functions create postfix adjectives. To switch -- them to prefix ones (i.e. ones placed before the noun in --- modification, as in "petite maison"), the following function is +-- modification, as in "vecchia chiesa"), the following function is -- provided. prefA : A -> A ; @@ -148,33 +154,25 @@ oper -- -- Two-place adjectives need a preposition for their second argument. - mkA2 : A -> Preposition -> A2 ; + mkA2 : A -> Prep -> A2 ; --3 Comparison adjectives -- Comparison adjectives are in the worst case put up from two -- adjectives: the positive ("buono"), and the comparative ("migliore"). - mkADeg : A -> A -> ADeg ; + mkADeg : A -> A -> A ; -- If comparison is formed by "più", as usual in Italian, -- the following pattern is used: - compADeg : A -> ADeg ; + compADeg : A -> A ; -- The regular pattern is the same as $regA$ for plain adjectives, --- with comparison by "plus". +-- with comparison by "più". - regADeg : Str -> ADeg ; + regADeg : Str -> A ; --- From a given $ADeg$, it is possible to get back to $A$. - - adegA : ADeg -> A ; - --- For prefixed adjectives, the following function is --- provided. - - prefADeg : ADeg -> ADeg ; --2 Adverbs @@ -194,31 +192,39 @@ oper --2 Verbs -- --- Regular verbs are ones with the infinitive "er" or "ir", the --- latter with plural present indicative forms as "finissons". +-- Regular verbs are ones with the infinitive "are" or "ire", the +-- latter with singular present indicative forms as "finisco". -- The regular verb function is the first conjugation recognizes -- these endings, as well as the variations among --- "aimer, céder, placer, peser, jeter, placer, manger, assiéger, payer". +-- "amare, cominciare, mangiare, legare, cercare". regV : Str -> V ; - --- The module $BeschIta$ gives all the patterns of the "Bescherelle" + +-- The module $BeschIta$ gives (almost) all the patterns of the "Bescherelle" -- book. To use them in the category $V$, wrap them with the function verboV : Verbo -> V ; --- The function $regV$ gives all verbs the compound auxiliary "avoir". --- To change it to "être", use the following function. +-- The function $regV$ gives all verbs the compound auxiliary "avere". +-- To change it to "essere", use the following function. +-- Reflexive implies "essere". essereV : V -> V ; + reflV : V -> V ; +-- If $BeschIta$ does not give the desired result or feels difficult +-- to consult, here is a worst-case function for "-ire" and "-ere" verbs, +-- taking 11 arguments. + + mkV : + (udire,odo,ode,udiamo,udiro,udii,udisti,udi,udirono,odi,udito : Str) -> V ; --3 Two-place verbs -- -- Two-place verbs need a preposition, except the special case with direct object. -- (transitive verbs). Notice that a particle comes from the $V$. - mkV2 : V -> Preposition -> V2 ; + mkV2 : V -> Prep -> V2 ; dirV2 : V -> V2 ; @@ -231,9 +237,10 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Preposition -> Preposition -> V3 ; -- parler, à, de - dirV3 : V -> Preposition -> V3 ; -- donner,_,à - dirdirV3 : V -> V3 ; -- donner,_,_ + mkV3 : V -> Prep -> Prep -> V3 ; -- parlare, a, di + dirV3 : V -> Prep -> V3 ; -- dare,_,a + dirdirV3 : V -> V3 ; -- dare,_,_ + --3 Other complement patterns -- @@ -242,71 +249,87 @@ oper mkV0 : V -> V0 ; mkVS : V -> VS ; - mkV2S : V -> Preposition -> V2S ; - mkVV : V -> VV ; -- plain infinitive: "je veux parler" - deVV : V -> VV ; -- "j'essaie de parler" - aVV : V -> VV ; -- "j'arrive à parler" - mkV2V : V -> Preposition -> Preposition -> V2V ; + mkV2S : V -> Prep -> V2S ; + mkVV : V -> VV ; -- plain infinitive: "voglio parlare" + deVV : V -> VV ; -- "cerco di parlare" + aVV : V -> VV ; -- "arrivo a parlare" + mkV2V : V -> Prep -> Prep -> V2V ; mkVA : V -> VA ; - mkV2A : V -> Preposition -> V2A ; + mkV2A : V -> Prep -> Prep -> V2A ; mkVQ : V -> VQ ; - mkV2Q : V -> Preposition -> V2Q ; + mkV2Q : V -> Prep -> V2Q ; - mkAS : A -> AS ; - subjAS : A -> AS ; - mkA2S : A -> Preposition -> A2S ; - mkAV : A -> Preposition -> AV ; - mkA2V : A -> Preposition -> Preposition -> A2V ; + mkAS : A -> AS ; + mkA2S : A -> Prep -> A2S ; + mkAV : A -> Prep -> AV ; + mkA2V : A -> Prep -> Prep -> A2V ; + +-- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated +-- just as synonyms of $V2$, and the second argument is given +-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. +-- $V0$ is just $V$. + + V0, V2S, V2V, V2Q : Type ; + AS, A2S, AV, A2V : Type ; ---2 Definitions of the paradigms +--. +--2 The definitions of the paradigms -- -- The definitions should not bother the user of the API. So they are -- hidden from the document. ---. - Gender = SyntaxIta.Gender ; - Number = TypesIta.Number ; + + Gender = MorphoIta.Gender ; + Number = MorphoIta.Number ; masculine = Masc ; feminine = Fem ; singular = Sg ; plural = Pl ; - Preposition = Case * Str ; - accusative = ; - genitive = ; - dative = ; - mkPreposition p = ; + Prep = Compl ; + accusative = complAcc ; + genitive = complGen ; + dative = complDat ; + mkPrep p = {s = p ; c = Acc ; isDir = False} ; - mkN x y g = mkCNomIrreg x y g ** {lock_N = <>} ; + mkN x y g = mkNounIrreg x y g ** {lock_N = <>} ; regN x = mkNomReg x ** {lock_N = <>} ; compN x y = {s = \\n => x.s ! n ++ y ; g = x.g ; lock_N = <>} ; femN x = {s = x.s ; g = feminine ; lock_N = <>} ; mascN x = {s = x.s ; g = masculine ; lock_N = <>} ; - mkN2 = \n,p -> n ** {lock_N2 = <> ; c = p.p1 ; s2 = p.p2} ; + mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; diN2 n = mkN2 n genitive ; aN2 n = mkN2 n dative ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c = p.p1 ; s2 = p.p2 ; c3 = q.p1 ; s3 = q.p2} ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ; mkPN x g = {s = x ; g = g} ** {lock_PN = <>} ; - mkNP x g n = let np = mkNameNounPhrase x g in - {s = np.s ; g = np.g ; p = np.p ; c = np.c ; n = n ; lock_NP = <>} ; + regPN x = mkPN x g where { + g = case last x of { + "a" => feminine ; + _ => masculine + } + } ; - mkA a b c d e = mkAdj a b c d e ** {p = False ; lock_A = <>} ; - regA a = mkAdjReg a ** {p = False ; lock_A = <>} ; - prefA a = {s = a.s ; p = True ; lock_A = <>} ; + mkNP x g n = {s = (pn2np (mkPN x g)).s; a = agrP3 g n ; hasClit = False} ** {lock_NP = <>} ; - mkA2 a p = a ** {c = p.p1 ; s2 = p.p2 ; lock_A2 = <>} ; + mkA a b c d e = + compADeg {s = \\_ => (mkAdj a b c d e).s ; isPre = False ; lock_A = <>} ; + regA a = compADeg {s = \\_ => (mkAdjReg a).s ; isPre = False ; lock_A = <>} ; + prefA a = {s = a.s ; isPre = True ; lock_A = <>} ; - mkADeg a b = {s = table {Pos => a.s ; _ => b.s} ; p = a.p ; lock_ADeg = <>} ; - compADeg a = {s = table {Pos => a.s ; _ => \\f => "più" ++ a.s ! f} ; p = a.p ; - lock_ADeg = <>} ; + mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ; + + mkADeg a b = + {s = table {Posit => a.s ! Posit ; _ => b.s ! Posit} ; + isPre = a.isPre ; lock_A = <>} ; + compADeg a = + {s = table {Posit => a.s ! Posit ; _ => \\f => "più" ++ a.s ! Posit ! f} ; + isPre = a.isPre ; + lock_A = <>} ; regADeg a = compADeg (regA a) ; - prefADeg a = {s = a.s ; p = True ; lock_ADeg = <>} ; - - adegA a = {s = a.s ! Pos ; p = a.p ; lock_A = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ; @@ -329,35 +352,48 @@ oper } } } - in verbPres verb AHabere ** {aux = AHabere ; lock_V = <>} ; + in verbBesch verb ** {vtyp = VHabere ; lock_V = <>} ; - verboV ve = verbPres ve AHabere ** {lock_V = <>} ; + verboV ve = verbBesch ve ** {vtyp = VHabere ; lock_V = <>} ; - essereV v = {s = v.s ; aux = AEsse ; lock_V = <>} ; + mkV + dovere devo deve dobbiamo dovro + dovetti dovesti dovette dovettero dovi dovuto = verboV (mkVerbo + dovere devo deve dobbiamo dovro + dovetti dovesti dovette dovettero dovi dovuto + ) ; - mkV2 v p = {s = v.s ; aux = v.aux ; s2 = p.p2 ; c = p.p1 ; lock_V2 = <>} ; + essereV v = {s = v.s ; vtyp = VEsse ; lock_V = <>} ; + reflV v = {s = v.s ; vtyp = VRefl ; lock_V = <>} ; + + mkV2 v p = {s = v.s ; vtyp = v.vtyp ; c2 = p ; lock_V2 = <>} ; dirV2 v = mkV2 v accusative ; v2V v = v ** {lock_V = <>} ; - mkV3 v p q = {s = v.s ; aux = v.aux ; - s2 = p.p2 ; s3 = q.p2 ; c = p.p1 ; c3 = q.p1 ; lock_V3 = <>} ; + mkV3 v p q = {s = v.s ; vtyp = v.vtyp ; + c2 = p ; c3 = q ; lock_V3 = <>} ; dirV3 v p = mkV3 v accusative p ; dirdirV3 v = dirV3 v dative ; + V0 : Type = V ; + V2S, V2V, V2Q : Type = V2 ; + AS, AV : Type = A ; + A2S, A2V : Type = A2 ; + mkV0 v = v ** {lock_V0 = <>} ; - mkVS v = v ** {mn,mp = Ind ; lock_VS = <>} ; ---- more moods - mkV2S v p = mkV2 v p ** {mn,mp = Ind ; lock_V2S = <>} ; - mkVV v = v ** {c = accusative.p1 ; lock_VV = <>} ; - deVV v = v ** {c = genitive.p1 ; lock_VV = <>} ; - aVV v = v ** {c = dative.p1 ; lock_VV = <>} ; + mkVS v = v ** {m = \\_ => Indic ; lock_VS = <>} ; ---- more moods + mkV2S v p = mkV2 v p ** {mn,mp = Indic ; lock_V2S = <>} ; + mkVV v = v ** {c2 = complAcc ; lock_VV = <>} ; + deVV v = v ** {c2 = complGen ; lock_VV = <>} ; + aVV v = v ** {c2 = complDat ; lock_VV = <>} ; mkV2V v p t = mkV2 v p ** {c3 = t.p1 ; s3 = p.p2 ; lock_V2V = <>} ; mkVA v = v ** {lock_VA = <>} ; - mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; + mkV2A v p q = mkV3 v p q ** {lock_V2A = <>} ; mkVQ v = v ** {lock_VQ = <>} ; mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - mkAS v = v ** {mn,mp = Ind ; lock_AS = <>} ; ---- more moods - mkA2S v p = mkA2 v p ** {mn,mp = Ind ; lock_A2S = <>} ; + mkAS v = v ** {lock_AS = <>} ; ---- more moods + mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; mkAV v p = v ** {c = p.p1 ; s2 = p.p2 ; lock_AV = <>} ; mkA2V v p q = mkA2 v p ** {s3 = q.p2 ; c3 = q.p1 ; lock_A2V = <>} ; diff --git a/lib/resource-1.0/italian/PhonoIta.gf b/lib/resource/italian/PhonoIta.gf similarity index 100% rename from lib/resource-1.0/italian/PhonoIta.gf rename to lib/resource/italian/PhonoIta.gf diff --git a/lib/resource-1.0/italian/PhraseIta.gf b/lib/resource/italian/PhraseIta.gf similarity index 100% rename from lib/resource-1.0/italian/PhraseIta.gf rename to lib/resource/italian/PhraseIta.gf diff --git a/lib/resource-1.0/italian/QuestionIta.gf b/lib/resource/italian/QuestionIta.gf similarity index 100% rename from lib/resource-1.0/italian/QuestionIta.gf rename to lib/resource/italian/QuestionIta.gf diff --git a/lib/resource-1.0/italian/RelativeIta.gf b/lib/resource/italian/RelativeIta.gf similarity index 100% rename from lib/resource-1.0/italian/RelativeIta.gf rename to lib/resource/italian/RelativeIta.gf diff --git a/lib/resource-1.0/italian/ResIta.gf b/lib/resource/italian/ResIta.gf similarity index 100% rename from lib/resource-1.0/italian/ResIta.gf rename to lib/resource/italian/ResIta.gf diff --git a/lib/resource-1.0/italian/SentenceIta.gf b/lib/resource/italian/SentenceIta.gf similarity index 100% rename from lib/resource-1.0/italian/SentenceIta.gf rename to lib/resource/italian/SentenceIta.gf diff --git a/lib/resource/italian/StructuralIta.gf b/lib/resource/italian/StructuralIta.gf index 1eec02262..de1f301b7 100644 --- a/lib/resource/italian/StructuralIta.gf +++ b/lib/resource/italian/StructuralIta.gf @@ -1,92 +1,141 @@ ---# -path=.:../romance:../abstract:../../prelude +concrete StructuralIta of Structural = CatIta ** + open PhonoIta, MorphoIta, ParadigmsIta, BeschIta, Prelude in { -concrete StructuralIta of Structural = CategoriesIta, NumeralsIta ** - open SyntaxIta, MorphoIta, BeschIta, Prelude in { + flags optimize=all ; lin - UseNumeral n = {s = \\g => n.s !g ; n = n.n ; isNo = False} ; - - above_Prep = justPrep "sopra" ; - after_Prep = justPrep "dopo" ; - all8mass_Det = mkDeterminer singular "tutto" "tutta" ; - all_NDet = mkDeterminerNum ["tutti i"] ["tutte le"] ; --- gli - almost_Adv = ss "quasi" ; - although_Subj = ss "benché" ** {m = Con} ; - and_Conj = etConj ; - because_Subj = ss "perché" ** {m = Ind} ; - before_Prep = justPrep "prima" ; - behind_Prep = justPrep "dietro" ; - between_Prep = justPrep "tra" ; - both_AndConjD = etetConj ; - by8agent_Prep = justCase (CPrep P_da) ; - by8means_Prep = justPrep "per" ; - can8know_VV = mkVerbVerbDir (verbPres (sapere_78 "sapere") AHabere) ; - can_VV = mkVerbVerbDir (verbPres (potere_69 "potere") AHabere) ; - during_Prep = justPrep "durante" ; - either8or_ConjD = ououConj ; - everybody_NP = normalNounPhrase (\\c => prepCase c ++ "tutti") Masc Pl ; - every_Det = chaqueDet ; - everything_NP = mkNameNounPhrase ["tutto"] Masc ; + above_Prep = {s = ["sopra"] ; c = MorphoIta.genitive ; isDir = False} ; + after_Prep = mkPrep "dopo" ; + all_Predet = { + s = \\a,c => prepCase c ++ aagrForms "tutto" "tutta" "tutti" "tutte" ! a ; + c = Nom + } ; + almost_AdA, almost_AdN = ss "quasi" ; + always_AdV = ss "sempre" ; + although_Subj = ss "benché" ** {m = Conjunct} ; + and_Conj = ss "e" ** {n = Pl} ; + because_Subj = ss "perché" ** {m = Indic} ; + before_Prep = mkPrep "prima" ; + behind_Prep = mkPrep "dietro" ; + between_Prep = mkPrep "fra" ; + both7and_DConj = {s1,s2 = "e" ; n = Pl} ; + but_PConj = ss "ma" ; + by8agent_Prep = {s = [] ; c = CPrep P_da ; isDir = False} ; + by8means_Prep = mkPrep "per" ; + can8know_VV = mkVV (verboV (sapere_78 "sapere")) ; + can_VV = mkVV (verboV (potere_69 "potere")) ; + during_Prep = mkPrep "durante" ; + either7or_DConj = {s1,s2 = "o" ; n = Sg} ; + everybody_NP = mkNP ["tutti"] Masc Pl ; + every_Det = {s = \\_,_ => "ogni" ; n = Sg} ; + everything_NP = pn2np (mkPN ["tutto"] Masc) ; everywhere_Adv = ss "dappertutto" ; - from_Prep = justCase (CPrep P_da) ; - he_NP = pronNounPhrase pronIl ; - how_IAdv = commentAdv ; - how8many_IDet = {s = genForms "quanti" "quante" ; n = Pl} ; - if_Subj = siSubj ; - in8front_Prep = justPrep "davanti" ; - i_NP = pronNounPhrase pronJe ; - in_Prep = justCase (CPrep P_in) ; - it_NP = pronNounPhrase pronIl ; - many_Det = mkDeterminer plural "molti" "molte" ; - most8many_Det = plupartDet ; - most_Det = mkDeterminer1 singular (["la maggior parte"] ++ elisDe) ; --- de - much_Det = mkDeterminer1 singular "molto" ; - must_VV = mkVerbVerbDir (verbPres (dovere_47 "dovere") AHabere) ; - no_Phr = nonPhr ; --- and also Si! - on_Prep = justCase (CPrep P_su) ; - or_Conj = ouConj ; - otherwise_Adv = ss "altramente" ; - part_Prep = justCase genitive ; --- - possess_Prep = justCase genitive ; + few_Det = {s = \\g,c => prepCase c ++ genForms "pochi" "poche" ! g ; n = Pl} ; + first_Ord = {s = \\ag => (regA "primo").s ! Posit ! AF ag.g ag.n} ; + from_Prep = complGen ; --- + he_Pron = + mkPronoun + "lui" "lo" "gli" "glie" "lui" "suo" "sua" "suoi" "sue" + Masc Sg P3 ; + here7from_Adv = ss ["da quì"] ; + here7to_Adv = ss "quì" ; + here_Adv = ss "quì" ; + how_IAdv = ss "come" ; + how8many_IDet = {s = \\g,c => prepCase c ++ genForms "quanti" "quante" ! g ; n = Pl} ; + if_Subj = ss "se" ** {m = Indic} ; + in8front_Prep = mkPrep "davanti" ; + i_Pron = + mkPronoun + "io" "mi" "mi" "me" "me" "mio" "mia" "miei" "mie" + Masc Sg P1 ; + in_Prep = {s = [] ; c = CPrep P_in ; isDir = False} ; + it_Pron = + mkPronoun + "lui" "lo" "gli" "glie" "lui" "suo" "sua" "suoi" "sue" + Masc Sg P3 ; + less_CAdv = ss "meno" ; + many_Det = {s = \\g,c => prepCase c ++ genForms "molti" "molte" ! g ; n = Pl} ; + more_CAdv = ss "più" ; + most_Predet = {s = \\_,c => prepCase c ++ ["la maggior parte"] ; c = CPrep P_di} ; + much_Det = {s = \\g,c => prepCase c ++ genForms "molto" "molta" ! g ; n = Sg} ; + must_VV = mkVV (verboV (dovere_47 "dovere")) ; + no_Phr = ss "no" ; + on_Prep = {s = [] ; c = CPrep P_su ; isDir = False} ; + one_Quant = {s = \\g,c => prepCase c ++ genForms "uno" "una" ! g} ; + only_Predet = {s = \\_,c => prepCase c ++ "soltanto" ; c = Nom} ; --- solo|a|i|e + or_Conj = {s = "o" ; n = Sg} ; + otherwise_PConj = ss "altramente" ; + part_Prep = complGen ; + please_Voc = ss ["per favore"] ; + possess_Prep = complGen ; quite_Adv = ss "assai" ; - she_NP = pronNounPhrase pronElle ; - so_Adv = ss "così" ; - somebody_NP = mkNameNounPhrase ["qualcuno"] Masc ; - some_Det = mkDeterminer1 singular "qualche" ; - some_NDet = mkDeterminerNum "alcuni" "alcune" ; - something_NP = mkNameNounPhrase ["qualche cosa"] Masc ; - somewhere_Adv = ss ["qualche parte"] ; --- ne - pas - that_Det = mkDeterminer singular "quello" "quella" ; - that_NP = mkNameNounPhrase ["quello"] Masc ; - therefore_Adv = ss "quindi" ; - these_NDet = mkDeterminerNum "questi" "queste" ; --- ci - they_NP = pronNounPhrase pronIls ; - they8fem_NP = pronNounPhrase pronIls ; - this_Det = mkDeterminer singular "questo" "questa" ; - this_NP = mkNameNounPhrase ["questo"] Masc ; - those_NDet = mkDeterminerNum "quelli" "quelle" ; --- quegli - thou_NP = pronNounPhrase pronTu ; - through_Prep = justPrep "per" ; - too_Adv = ss "troppo" ; - to_Prep = justCase dative ; --- - under_Prep = justPrep "sotto" ; - very_Adv = ss "molto" ; - want_VV = mkVerbVerbDir (verbPres (volere_96 "volere") AHabere) ; - we_NP = pronNounPhrase pronNous ; - what8one_IP = intPronWhat singular ; - what8many_IP = intPronWhat plural ; - when_IAdv = quandAdv ; - when_Subj = quandSubj ; - where_IAdv = ouAdv ; - which8many_IDet = mkDeterminerNum "quali" "quali" ** {n = Pl} ; - which8one_IDet = quelDet ; - who8one_IP = intPronWho singular ; - who8many_IP = intPronWho plural ; - why_IAdv = pourquoiAdv ; - without_Prep = justPrep "senza" ; - with_Prep = justCase (CPrep P_con) ; - ye_NP = pronNounPhrase pronVous ; - yes_Phr = ouiPhr ; - you_NP = pronNounPhrase pronVous ; + she_Pron = + mkPronoun + "lei" "la" "le" "glie" "lei" "suo" "sua" "suoi" "sue" + Fem Sg P3 ; + so_AdA = ss "così" ; + somebody_NP = pn2np (mkPN ["qualcuno"] Masc) ; + somePl_Det = {s = \\_,c => prepCase c ++ "qualche" ; n = Pl} ; + someSg_Det = {s = \\_,c => prepCase c ++ "qualche" ; n = Sg} ; + something_NP = pn2np (mkPN ["qualche cosa"] Masc) ; + somewhere_Adv = ss ["qualche parte"] ; + that_Quant = { + s = \\_ => table { + Sg => \\g,c => prepCase c ++ genForms "quello" "quella" ! g ; + Pl => \\g,c => prepCase c ++ genForms "quelli" "quelle" ! g ---- quegli + } + } ; + that_NP = mkNP ["quello"] Masc Sg ; + there7from_Adv = ss ["di là"] ; + there7to_Adv = ss "là" ; --- ci + there_Adv = ss "là" ; + therefore_PConj = ss "quindi" ; + these_NP = mkNP ["questi"] Masc Pl ; + they_Pron = mkPronoun + "loro" "loro" "li" "glie" "loro" "loro" "loro" "loro" "loro" + Masc Pl P3 ; + this_Quant = { + s = \\_ => table { + Sg => \\g,c => prepCase c ++ genForms "questo" "questa" ! g ; + Pl => \\g,c => prepCase c ++ genForms "questi" "queste" ! g + } + } ; + this_NP = pn2np (mkPN ["questo"] Masc) ; + those_NP = mkNP ["quelli"] Masc Pl ; + through_Prep = mkPrep "per" ; + too_AdA = ss "troppo" ; + to_Prep = complDat ; + under_Prep = mkPrep "sotto" ; + very_AdA = ss "molto" ; + want_VV = mkVV (verboV (volere_96 "volere")) ; + we_Pron = + mkPronoun "noi" "ci" "ci" "ce" "noi" "nostro" "nostra" "nostri" "nostre" + Masc Pl P1 ; + whatSg_IP = {s = \\c => prepCase c ++ ["che cosa"] ; a = aagr Fem Sg} ; + whatPl_IP = {s = \\c => prepCase c ++ ["che cose"] ; a = aagr Fem Pl} ; --- + when_IAdv = ss "quando" ; + when_Subj = ss "quando" ** {m = Indic} ; + where_IAdv = ss "dove" ; + whichSg_IDet = {s = \\g,c => prepCase c ++ genForms "quale" "quale" ! g ; n = Sg} ; + whichPl_IDet = {s = \\g,c => prepCase c ++ genForms "quali" "quali" ! g; n = Pl} ; + whoPl_IP = {s = \\c => prepCase c ++ "chi" ; a = aagr Masc Pl} ; + whoSg_IP = {s = \\c => prepCase c ++ "chi" ; a = aagr Masc Sg} ; + why_IAdv = ss "perché" ; + without_Prep = mkPrep "senza" ; + with_Prep = {s = [] ; c = CPrep P_con ; isDir = False} ; + yes_Phr = ss "sì" ; + youSg_Pron = mkPronoun + "tu" "ti" "ti" "te" "te" "tuo" "tua" "tuoi" "tue" + Masc Sg P2 ; + youPl_Pron = + mkPronoun + "voi" "vi" "vi" "ve" "voi" "vostro" "vostra" "vostri" "vostre" + Masc Pl P2 ; + youPol_Pron = + mkPronoun + "Lei" "La" "Le" "Glie" "Lei" "Suo" "Sua" "Suoi" "Sue" + Masc Sg P3 ; + } + diff --git a/lib/resource-1.0/italian/VerbIta.gf b/lib/resource/italian/VerbIta.gf similarity index 100% rename from lib/resource-1.0/italian/VerbIta.gf rename to lib/resource/italian/VerbIta.gf diff --git a/lib/resource-1.0/italian/log.txt b/lib/resource/italian/log.txt similarity index 100% rename from lib/resource-1.0/italian/log.txt rename to lib/resource/italian/log.txt diff --git a/lib/resource-1.0/lang.gfprob b/lib/resource/lang.gfprob similarity index 100% rename from lib/resource-1.0/lang.gfprob rename to lib/resource/lang.gfprob diff --git a/lib/resource-1.0/log.txt b/lib/resource/log.txt similarity index 100% rename from lib/resource-1.0/log.txt rename to lib/resource/log.txt diff --git a/lib/resource-1.0/mathematical/Mathematical.gf b/lib/resource/mathematical/Mathematical.gf similarity index 100% rename from lib/resource-1.0/mathematical/Mathematical.gf rename to lib/resource/mathematical/Mathematical.gf diff --git a/lib/resource-1.0/mathematical/MathematicalEng.gf b/lib/resource/mathematical/MathematicalEng.gf similarity index 100% rename from lib/resource-1.0/mathematical/MathematicalEng.gf rename to lib/resource/mathematical/MathematicalEng.gf diff --git a/lib/resource-1.0/mathematical/MathematicalFin.gf b/lib/resource/mathematical/MathematicalFin.gf similarity index 100% rename from lib/resource-1.0/mathematical/MathematicalFin.gf rename to lib/resource/mathematical/MathematicalFin.gf diff --git a/lib/resource-1.0/mathematical/MathematicalFre.gf b/lib/resource/mathematical/MathematicalFre.gf similarity index 100% rename from lib/resource-1.0/mathematical/MathematicalFre.gf rename to lib/resource/mathematical/MathematicalFre.gf diff --git a/lib/resource-1.0/mathematical/MathematicalGer.gf b/lib/resource/mathematical/MathematicalGer.gf similarity index 100% rename from lib/resource-1.0/mathematical/MathematicalGer.gf rename to lib/resource/mathematical/MathematicalGer.gf diff --git a/lib/resource-1.0/mathematical/MathematicalIta.gf b/lib/resource/mathematical/MathematicalIta.gf similarity index 100% rename from lib/resource-1.0/mathematical/MathematicalIta.gf rename to lib/resource/mathematical/MathematicalIta.gf diff --git a/lib/resource-1.0/mathematical/MathematicalNor.gf b/lib/resource/mathematical/MathematicalNor.gf similarity index 100% rename from lib/resource-1.0/mathematical/MathematicalNor.gf rename to lib/resource/mathematical/MathematicalNor.gf diff --git a/lib/resource-1.0/mathematical/MathematicalSpa.gf b/lib/resource/mathematical/MathematicalSpa.gf similarity index 100% rename from lib/resource-1.0/mathematical/MathematicalSpa.gf rename to lib/resource/mathematical/MathematicalSpa.gf diff --git a/lib/resource-1.0/mathematical/MathematicalSwe.gf b/lib/resource/mathematical/MathematicalSwe.gf similarity index 100% rename from lib/resource-1.0/mathematical/MathematicalSwe.gf rename to lib/resource/mathematical/MathematicalSwe.gf diff --git a/lib/resource-1.0/mathematical/Predication.gf b/lib/resource/mathematical/Predication.gf similarity index 100% rename from lib/resource-1.0/mathematical/Predication.gf rename to lib/resource/mathematical/Predication.gf diff --git a/lib/resource-1.0/mathematical/PredicationEng.gf b/lib/resource/mathematical/PredicationEng.gf similarity index 100% rename from lib/resource-1.0/mathematical/PredicationEng.gf rename to lib/resource/mathematical/PredicationEng.gf diff --git a/lib/resource-1.0/mathematical/PredicationFin.gf b/lib/resource/mathematical/PredicationFin.gf similarity index 100% rename from lib/resource-1.0/mathematical/PredicationFin.gf rename to lib/resource/mathematical/PredicationFin.gf diff --git a/lib/resource-1.0/mathematical/PredicationFre.gf b/lib/resource/mathematical/PredicationFre.gf similarity index 100% rename from lib/resource-1.0/mathematical/PredicationFre.gf rename to lib/resource/mathematical/PredicationFre.gf diff --git a/lib/resource-1.0/mathematical/PredicationGer.gf b/lib/resource/mathematical/PredicationGer.gf similarity index 100% rename from lib/resource-1.0/mathematical/PredicationGer.gf rename to lib/resource/mathematical/PredicationGer.gf diff --git a/lib/resource-1.0/mathematical/PredicationI.gf b/lib/resource/mathematical/PredicationI.gf similarity index 100% rename from lib/resource-1.0/mathematical/PredicationI.gf rename to lib/resource/mathematical/PredicationI.gf diff --git a/lib/resource-1.0/mathematical/PredicationIta.gf b/lib/resource/mathematical/PredicationIta.gf similarity index 100% rename from lib/resource-1.0/mathematical/PredicationIta.gf rename to lib/resource/mathematical/PredicationIta.gf diff --git a/lib/resource-1.0/mathematical/PredicationNor.gf b/lib/resource/mathematical/PredicationNor.gf similarity index 100% rename from lib/resource-1.0/mathematical/PredicationNor.gf rename to lib/resource/mathematical/PredicationNor.gf diff --git a/lib/resource-1.0/mathematical/PredicationSpa.gf b/lib/resource/mathematical/PredicationSpa.gf similarity index 100% rename from lib/resource-1.0/mathematical/PredicationSpa.gf rename to lib/resource/mathematical/PredicationSpa.gf diff --git a/lib/resource-1.0/mathematical/PredicationSwe.gf b/lib/resource/mathematical/PredicationSwe.gf similarity index 100% rename from lib/resource-1.0/mathematical/PredicationSwe.gf rename to lib/resource/mathematical/PredicationSwe.gf diff --git a/lib/resource-1.0/mathematical/Symbol.gf b/lib/resource/mathematical/Symbol.gf similarity index 100% rename from lib/resource-1.0/mathematical/Symbol.gf rename to lib/resource/mathematical/Symbol.gf diff --git a/lib/resource-1.0/mathematical/SymbolEng.gf b/lib/resource/mathematical/SymbolEng.gf similarity index 100% rename from lib/resource-1.0/mathematical/SymbolEng.gf rename to lib/resource/mathematical/SymbolEng.gf diff --git a/lib/resource-1.0/mathematical/SymbolFin.gf b/lib/resource/mathematical/SymbolFin.gf similarity index 100% rename from lib/resource-1.0/mathematical/SymbolFin.gf rename to lib/resource/mathematical/SymbolFin.gf diff --git a/lib/resource-1.0/mathematical/SymbolFre.gf b/lib/resource/mathematical/SymbolFre.gf similarity index 100% rename from lib/resource-1.0/mathematical/SymbolFre.gf rename to lib/resource/mathematical/SymbolFre.gf diff --git a/lib/resource-1.0/mathematical/SymbolGer.gf b/lib/resource/mathematical/SymbolGer.gf similarity index 100% rename from lib/resource-1.0/mathematical/SymbolGer.gf rename to lib/resource/mathematical/SymbolGer.gf diff --git a/lib/resource-1.0/mathematical/SymbolIta.gf b/lib/resource/mathematical/SymbolIta.gf similarity index 100% rename from lib/resource-1.0/mathematical/SymbolIta.gf rename to lib/resource/mathematical/SymbolIta.gf diff --git a/lib/resource-1.0/mathematical/SymbolNor.gf b/lib/resource/mathematical/SymbolNor.gf similarity index 100% rename from lib/resource-1.0/mathematical/SymbolNor.gf rename to lib/resource/mathematical/SymbolNor.gf diff --git a/lib/resource-1.0/mathematical/SymbolRomance.gf b/lib/resource/mathematical/SymbolRomance.gf similarity index 100% rename from lib/resource-1.0/mathematical/SymbolRomance.gf rename to lib/resource/mathematical/SymbolRomance.gf diff --git a/lib/resource-1.0/mathematical/SymbolScand.gf b/lib/resource/mathematical/SymbolScand.gf similarity index 100% rename from lib/resource-1.0/mathematical/SymbolScand.gf rename to lib/resource/mathematical/SymbolScand.gf diff --git a/lib/resource-1.0/mathematical/SymbolSpa.gf b/lib/resource/mathematical/SymbolSpa.gf similarity index 100% rename from lib/resource-1.0/mathematical/SymbolSpa.gf rename to lib/resource/mathematical/SymbolSpa.gf diff --git a/lib/resource-1.0/mathematical/SymbolSwe.gf b/lib/resource/mathematical/SymbolSwe.gf similarity index 100% rename from lib/resource-1.0/mathematical/SymbolSwe.gf rename to lib/resource/mathematical/SymbolSwe.gf diff --git a/lib/resource-1.0/minimal/MinLexicon.gf b/lib/resource/minimal/MinLexicon.gf similarity index 100% rename from lib/resource-1.0/minimal/MinLexicon.gf rename to lib/resource/minimal/MinLexicon.gf diff --git a/lib/resource-1.0/minimal/MinLexiconEng.gf b/lib/resource/minimal/MinLexiconEng.gf similarity index 100% rename from lib/resource-1.0/minimal/MinLexiconEng.gf rename to lib/resource/minimal/MinLexiconEng.gf diff --git a/lib/resource-1.0/minimal/MinLexiconFre.gf b/lib/resource/minimal/MinLexiconFre.gf similarity index 100% rename from lib/resource-1.0/minimal/MinLexiconFre.gf rename to lib/resource/minimal/MinLexiconFre.gf diff --git a/lib/resource-1.0/minimal/MinLexiconI.gf b/lib/resource/minimal/MinLexiconI.gf similarity index 100% rename from lib/resource-1.0/minimal/MinLexiconI.gf rename to lib/resource/minimal/MinLexiconI.gf diff --git a/lib/resource-1.0/minimal/MinStructural.gf b/lib/resource/minimal/MinStructural.gf similarity index 100% rename from lib/resource-1.0/minimal/MinStructural.gf rename to lib/resource/minimal/MinStructural.gf diff --git a/lib/resource-1.0/minimal/MinStructuralEng.gf b/lib/resource/minimal/MinStructuralEng.gf similarity index 100% rename from lib/resource-1.0/minimal/MinStructuralEng.gf rename to lib/resource/minimal/MinStructuralEng.gf diff --git a/lib/resource-1.0/minimal/MinStructuralFre.gf b/lib/resource/minimal/MinStructuralFre.gf similarity index 100% rename from lib/resource-1.0/minimal/MinStructuralFre.gf rename to lib/resource/minimal/MinStructuralFre.gf diff --git a/lib/resource-1.0/minimal/MinStructuralI.gf b/lib/resource/minimal/MinStructuralI.gf similarity index 100% rename from lib/resource-1.0/minimal/MinStructuralI.gf rename to lib/resource/minimal/MinStructuralI.gf diff --git a/lib/resource-1.0/minimal/Minimal.gf b/lib/resource/minimal/Minimal.gf similarity index 100% rename from lib/resource-1.0/minimal/Minimal.gf rename to lib/resource/minimal/Minimal.gf diff --git a/lib/resource-1.0/minimal/MinimalEng.gf b/lib/resource/minimal/MinimalEng.gf similarity index 100% rename from lib/resource-1.0/minimal/MinimalEng.gf rename to lib/resource/minimal/MinimalEng.gf diff --git a/lib/resource-1.0/minimal/MinimalFre.gf b/lib/resource/minimal/MinimalFre.gf similarity index 100% rename from lib/resource-1.0/minimal/MinimalFre.gf rename to lib/resource/minimal/MinimalFre.gf diff --git a/lib/resource-1.0/minimal/MkLex.hs b/lib/resource/minimal/MkLex.hs similarity index 100% rename from lib/resource-1.0/minimal/MkLex.hs rename to lib/resource/minimal/MkLex.hs diff --git a/lib/resource-1.0/minimal/Tab.hs b/lib/resource/minimal/Tab.hs similarity index 100% rename from lib/resource-1.0/minimal/Tab.hs rename to lib/resource/minimal/Tab.hs diff --git a/lib/resource-1.0/minimal/trees.tmp b/lib/resource/minimal/trees.tmp similarity index 100% rename from lib/resource-1.0/minimal/trees.tmp rename to lib/resource/minimal/trees.tmp diff --git a/lib/resource-1.0/mkPresent b/lib/resource/mkPresent similarity index 100% rename from lib/resource-1.0/mkPresent rename to lib/resource/mkPresent diff --git a/lib/resource-1.0/mkTreebank.gfs b/lib/resource/mkTreebank.gfs similarity index 100% rename from lib/resource-1.0/mkTreebank.gfs rename to lib/resource/mkTreebank.gfs diff --git a/lib/resource-1.0/multimodal/Multi.gf b/lib/resource/multimodal/Multi.gf similarity index 100% rename from lib/resource-1.0/multimodal/Multi.gf rename to lib/resource/multimodal/Multi.gf diff --git a/lib/resource-1.0/multimodal/MultiEng.gf b/lib/resource/multimodal/MultiEng.gf similarity index 100% rename from lib/resource-1.0/multimodal/MultiEng.gf rename to lib/resource/multimodal/MultiEng.gf diff --git a/lib/resource-1.0/multimodal/MultiFin.gf b/lib/resource/multimodal/MultiFin.gf similarity index 100% rename from lib/resource-1.0/multimodal/MultiFin.gf rename to lib/resource/multimodal/MultiFin.gf diff --git a/lib/resource-1.0/multimodal/MultiFre.gf b/lib/resource/multimodal/MultiFre.gf similarity index 100% rename from lib/resource-1.0/multimodal/MultiFre.gf rename to lib/resource/multimodal/MultiFre.gf diff --git a/lib/resource-1.0/multimodal/MultiI.gf b/lib/resource/multimodal/MultiI.gf similarity index 100% rename from lib/resource-1.0/multimodal/MultiI.gf rename to lib/resource/multimodal/MultiI.gf diff --git a/lib/resource-1.0/multimodal/MultiSwe.gf b/lib/resource/multimodal/MultiSwe.gf similarity index 100% rename from lib/resource-1.0/multimodal/MultiSwe.gf rename to lib/resource/multimodal/MultiSwe.gf diff --git a/lib/resource-1.0/multimodal/old/DemRes.gf b/lib/resource/multimodal/old/DemRes.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/DemRes.gf rename to lib/resource/multimodal/old/DemRes.gf diff --git a/lib/resource-1.0/multimodal/old/Demonstrative.gf b/lib/resource/multimodal/old/Demonstrative.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/Demonstrative.gf rename to lib/resource/multimodal/old/Demonstrative.gf diff --git a/lib/resource-1.0/multimodal/old/DemonstrativeEng.gf b/lib/resource/multimodal/old/DemonstrativeEng.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/DemonstrativeEng.gf rename to lib/resource/multimodal/old/DemonstrativeEng.gf diff --git a/lib/resource-1.0/multimodal/old/DemonstrativeFin.gf b/lib/resource/multimodal/old/DemonstrativeFin.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/DemonstrativeFin.gf rename to lib/resource/multimodal/old/DemonstrativeFin.gf diff --git a/lib/resource-1.0/multimodal/old/DemonstrativeFre.gf b/lib/resource/multimodal/old/DemonstrativeFre.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/DemonstrativeFre.gf rename to lib/resource/multimodal/old/DemonstrativeFre.gf diff --git a/lib/resource-1.0/multimodal/old/DemonstrativeGer.gf b/lib/resource/multimodal/old/DemonstrativeGer.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/DemonstrativeGer.gf rename to lib/resource/multimodal/old/DemonstrativeGer.gf diff --git a/lib/resource-1.0/multimodal/old/DemonstrativeI.gf b/lib/resource/multimodal/old/DemonstrativeI.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/DemonstrativeI.gf rename to lib/resource/multimodal/old/DemonstrativeI.gf diff --git a/lib/resource-1.0/multimodal/old/DemonstrativeIta.gf b/lib/resource/multimodal/old/DemonstrativeIta.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/DemonstrativeIta.gf rename to lib/resource/multimodal/old/DemonstrativeIta.gf diff --git a/lib/resource-1.0/multimodal/old/DemonstrativeNor.gf b/lib/resource/multimodal/old/DemonstrativeNor.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/DemonstrativeNor.gf rename to lib/resource/multimodal/old/DemonstrativeNor.gf diff --git a/lib/resource-1.0/multimodal/old/DemonstrativeSpa.gf b/lib/resource/multimodal/old/DemonstrativeSpa.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/DemonstrativeSpa.gf rename to lib/resource/multimodal/old/DemonstrativeSpa.gf diff --git a/lib/resource-1.0/multimodal/old/DemonstrativeSwe.gf b/lib/resource/multimodal/old/DemonstrativeSwe.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/DemonstrativeSwe.gf rename to lib/resource/multimodal/old/DemonstrativeSwe.gf diff --git a/lib/resource-1.0/multimodal/old/Multimodal.gf b/lib/resource/multimodal/old/Multimodal.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/Multimodal.gf rename to lib/resource/multimodal/old/Multimodal.gf diff --git a/lib/resource-1.0/multimodal/old/MultimodalEng.gf b/lib/resource/multimodal/old/MultimodalEng.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/MultimodalEng.gf rename to lib/resource/multimodal/old/MultimodalEng.gf diff --git a/lib/resource-1.0/multimodal/old/MultimodalFin.gf b/lib/resource/multimodal/old/MultimodalFin.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/MultimodalFin.gf rename to lib/resource/multimodal/old/MultimodalFin.gf diff --git a/lib/resource-1.0/multimodal/old/MultimodalFre.gf b/lib/resource/multimodal/old/MultimodalFre.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/MultimodalFre.gf rename to lib/resource/multimodal/old/MultimodalFre.gf diff --git a/lib/resource-1.0/multimodal/old/MultimodalGer.gf b/lib/resource/multimodal/old/MultimodalGer.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/MultimodalGer.gf rename to lib/resource/multimodal/old/MultimodalGer.gf diff --git a/lib/resource-1.0/multimodal/old/MultimodalIta.gf b/lib/resource/multimodal/old/MultimodalIta.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/MultimodalIta.gf rename to lib/resource/multimodal/old/MultimodalIta.gf diff --git a/lib/resource-1.0/multimodal/old/MultimodalNor.gf b/lib/resource/multimodal/old/MultimodalNor.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/MultimodalNor.gf rename to lib/resource/multimodal/old/MultimodalNor.gf diff --git a/lib/resource-1.0/multimodal/old/MultimodalSpa.gf b/lib/resource/multimodal/old/MultimodalSpa.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/MultimodalSpa.gf rename to lib/resource/multimodal/old/MultimodalSpa.gf diff --git a/lib/resource-1.0/multimodal/old/MultimodalSwe.gf b/lib/resource/multimodal/old/MultimodalSwe.gf similarity index 100% rename from lib/resource-1.0/multimodal/old/MultimodalSwe.gf rename to lib/resource/multimodal/old/MultimodalSwe.gf diff --git a/lib/resource-1.0/norwegian/AdjectiveNor.gf b/lib/resource/norwegian/AdjectiveNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/AdjectiveNor.gf rename to lib/resource/norwegian/AdjectiveNor.gf diff --git a/lib/resource-1.0/norwegian/AdverbNor.gf b/lib/resource/norwegian/AdverbNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/AdverbNor.gf rename to lib/resource/norwegian/AdverbNor.gf diff --git a/lib/resource-1.0/norwegian/CatNor.gf b/lib/resource/norwegian/CatNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/CatNor.gf rename to lib/resource/norwegian/CatNor.gf diff --git a/lib/resource-1.0/norwegian/ConjunctionNor.gf b/lib/resource/norwegian/ConjunctionNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/ConjunctionNor.gf rename to lib/resource/norwegian/ConjunctionNor.gf diff --git a/lib/resource-1.0/norwegian/DiffNor.gf b/lib/resource/norwegian/DiffNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/DiffNor.gf rename to lib/resource/norwegian/DiffNor.gf diff --git a/lib/resource-1.0/norwegian/ExtraNor.gf b/lib/resource/norwegian/ExtraNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/ExtraNor.gf rename to lib/resource/norwegian/ExtraNor.gf diff --git a/lib/resource-1.0/norwegian/ExtraNorAbs.gf b/lib/resource/norwegian/ExtraNorAbs.gf similarity index 100% rename from lib/resource-1.0/norwegian/ExtraNorAbs.gf rename to lib/resource/norwegian/ExtraNorAbs.gf diff --git a/lib/resource-1.0/norwegian/ExtraScandNor.gf b/lib/resource/norwegian/ExtraScandNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/ExtraScandNor.gf rename to lib/resource/norwegian/ExtraScandNor.gf diff --git a/lib/resource-1.0/norwegian/GrammarNor.gf b/lib/resource/norwegian/GrammarNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/GrammarNor.gf rename to lib/resource/norwegian/GrammarNor.gf diff --git a/lib/resource-1.0/norwegian/IdiomNor.gf b/lib/resource/norwegian/IdiomNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/IdiomNor.gf rename to lib/resource/norwegian/IdiomNor.gf diff --git a/lib/resource-1.0/norwegian/IrregNor.gf b/lib/resource/norwegian/IrregNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/IrregNor.gf rename to lib/resource/norwegian/IrregNor.gf diff --git a/lib/resource-1.0/norwegian/IrregNorAbs.gf b/lib/resource/norwegian/IrregNorAbs.gf similarity index 100% rename from lib/resource-1.0/norwegian/IrregNorAbs.gf rename to lib/resource/norwegian/IrregNorAbs.gf diff --git a/lib/resource/norwegian/LangNor.gf b/lib/resource/norwegian/LangNor.gf index 8a321fda3..41d51c2a9 100644 --- a/lib/resource/norwegian/LangNor.gf +++ b/lib/resource/norwegian/LangNor.gf @@ -1,23 +1,10 @@ ---# -path=.:../scandinavian:../abstract:../../prelude +--# -path=.:../scandinavian:../abstract:../common:prelude concrete LangNor of Lang = - RulesNor, - ClauseNor, - StructuralNor, - BasicNor, - TimeNor, - CountryNor, - MathNor + GrammarNor, + LexiconNor + ** { - ** open Prelude, ParadigmsNor in { +flags startcat = Phr ; unlexer = text ; lexer = text ; -lin - AdvDate d = prefixSS "på" d ; - AdvTime t = prefixSS "klokken" t ; - NWeekday w = w ; - PNWeekday w = nounPN w ; - - PNCountry x = x ; - ANationality x = x ; - NLanguage x = x ; -} +} ; diff --git a/lib/resource-1.0/norwegian/LexiconNor.gf b/lib/resource/norwegian/LexiconNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/LexiconNor.gf rename to lib/resource/norwegian/LexiconNor.gf diff --git a/lib/resource/norwegian/MathNor.gf b/lib/resource/norwegian/MathNor.gf index ddcea878b..53e9ffd99 100644 --- a/lib/resource/norwegian/MathNor.gf +++ b/lib/resource/norwegian/MathNor.gf @@ -1,4 +1,2 @@ ---# -path=.:../scandinavian:../abstract:../../prelude - -concrete MathNor of Math = CategoriesNor ** - MathScand with (SyntaxScand=SyntaxNor) ; +concrete MathNor of Math = CatNor ** MathScand with + (ResScand = ResNor) ; diff --git a/lib/resource/norwegian/MorphoNor.gf b/lib/resource/norwegian/MorphoNor.gf index 68f5fb68c..13a87125a 100644 --- a/lib/resource/norwegian/MorphoNor.gf +++ b/lib/resource/norwegian/MorphoNor.gf @@ -8,38 +8,30 @@ -- -- We use the parameter types and word classes defined for morphology. -resource MorphoNor = open Predef, Prelude, TypesNor in { - --- Danish grammar source: http://users.cybercity.dk/~nmb3879/danish.html +resource MorphoNor = CommonScand, ResNor ** open Prelude, Predef in { -- genders oper masc = Utr Masc ; - fem = Utr NoMasc ; + fem = Utr Fem ; neutr = Neutr ; +-- type synonyms + + Subst : Type = {s : Number => Species => Case => Str} ; + Adj = Adjective ; + -- nouns -oper - mkSubstantive : (_,_,_,_ : Str) -> {s : SubstForm => Str} = - \dreng, drengen, drenger, drengene -> {s = table { - SF Sg Indef c => mkCase dreng ! c ; - SF Sg Def c => mkCase drengen ! c ; - SF Pl Indef c => mkCase drenger ! c ; - SF Pl Def c => mkCase drengene ! c - } - } ; + mkSubstantive : (_,_,_,_ : Str) -> Subst = + \dreng, drengen, drenger, drengene -> + {s = nounForms dreng drengen drenger drengene} ; - mkCase : Str -> Case => Str = \bil -> table { - Nom => bil ; - Gen => bil + "s" --- but: hus --> hus - } ; - - extNGen : Str -> NounGender = \s -> case last s of { - "n" => NUtr Masc ; - "a" => NUtr NoMasc ; - _ => NNeutr + extNGen : Str -> Gender = \s -> case last s of { + "n" => Utr Masc ; + "a" => Utr Fem ; + _ => Neutr } ; nBil : Str -> Subst = \bil -> @@ -58,67 +50,61 @@ oper mkSubstantive hotell (hotell + "et") (hotell + "er") (hotell + "ene") ** {h1 = neutr} ; + + + -- adjectives - mkAdjective : (_,_,_,_,_ : Str) -> Adj = + mkAdject : (_,_,_,_,_ : Str) -> Adj = \stor,stort,store,storre,storst -> {s = table { - AF (Posit (Strong (ASg (Utr _)))) c => mkCase stor ! c ; - AF (Posit (Strong (ASg Neutr))) c => mkCase stort ! c ; - AF (Posit _) c => mkCase store ! c ; - AF Compar c => mkCase storre ! c ; - AF (Super SupStrong) c => mkCase storst ! c ; - AF (Super SupWeak) c => mkCase (storst + "e") ! c + AF (APosit (Strong SgUtr )) c => mkCase c stor ; + AF (APosit (Strong SgNeutr)) c => mkCase c stort ; + AF (APosit _) c => mkCase c store ; + AF ACompar c => mkCase c storre ; + AF (ASuperl SupStrong) c => mkCase c storst ; + AF (ASuperl SupWeak) c => mkCase c (storst + "e") } } ; aRod : Str -> Adj = \rod -> - mkAdjective rod (rod + "t") (rod + "e") (rod + "ere") (rod + "est") ; + mkAdject rod (rod + "t") (rod + "e") (rod + "ere") (rod + "est") ; aAbstrakt : Str -> Adj = \abstrakt -> - mkAdjective abstrakt abstrakt (abstrakt + "e") (abstrakt + "ere") (abstrakt + "est") ; + mkAdject abstrakt abstrakt (abstrakt + "e") (abstrakt + "ere") (abstrakt + "est") ; aRask : Str -> Adj = \rask -> - mkAdjective rask rask (rask + "e") (rask + "ere") (rask + "est") ; + mkAdject rask rask (rask + "e") (rask + "ere") (rask + "est") ; aBillig : Str -> Adj = \billig -> - mkAdjective billig billig (billig + "e") (billig + "ere") (billig + "st") ; - -extractPositive : Adj -> {s : AdjFormPos => Case => Str} = \adj -> - {s = \\a,c => adj.s ! (AF (Posit a) c)} ; + mkAdject billig billig (billig + "e") (billig + "ere") (billig + "st") ; -- verbs - mkVerb : (_,_,_,_,_,_ : Str) -> Verbum = + Verbum : Type = {s : VForm => Str} ; + + mkVerb6 : (_,_,_,_,_,_ : Str) -> Verbum = \spise,spiser,spises,spiste,spist,spis -> {s = table { - VI (Inf v) => mkVoice v spise ; - VF (Pres Act) => spiser ; - VF (Pres Pass) => spises ; - VF (Pret v) => mkVoice v spiste ; - VI (Supin v) => mkVoice v spist ; - VI (PtPret (Strong (ASg _)) c) => mkCase spist ! c ; - VI (PtPret _ c) => case last spist of { - "a" => mkCase spist ! c ; - _ => mkCase (spist + "e") ! c + VI (VInfin v) => mkVoice v spise ; + VF (VPres Act) => spiser ; + VF (VPres Pass) => spises ; + VF (VPret v) => mkVoice v spiste ; --# notpresent + VI (VSupin v) => mkVoice v spist ; --# notpresent + VI (VPtPret (Strong (SgUtr | SgNeutr)) c) => mkCase c spist ; + VI (VPtPret _ c) => case last spist of { + "a" => mkCase c spist ; + _ => mkCase c (spist + "e") } ; - VF (Imper v) => mkVoice v spis + VF (VImper v) => mkVoice v spis } } ; - mkVoice : Voice -> Str -> Str = \v,s -> case v of { - Act => s ; - Pass => s + case last s of { - "s" => "es" ; - _ => "s" - } - } ; - vHusk : Str -> Verbum = \husk -> let huska : Str = husk + "a" ---- variants {husk + "a" ; husk + "et"} in - mkVerb (husk + "e") (husk + "er") (husk + "es") huska huska husk ; + mkVerb6 (husk + "e") (husk + "er") (husk + "es") huska huska husk ; vSpis : Str -> Verbum = \spis -> - mkVerb (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t") spis ; + mkVerb6 (spis + "e") (spis + "er") (spis + "es") (spis + "te") (spis + "t") spis ; vLev : Str -> Verbum = \lev -> let lever = case last lev of { @@ -126,10 +112,10 @@ extractPositive : Adj -> {s : AdjFormPos => Case => Str} = \adj -> _ => lev + "er" } in - mkVerb (lev + "e") lever (lev + "es") (lev + "de") (lev + "d") lev ; + mkVerb6 (lev + "e") lever (lev + "es") (lev + "de") (lev + "d") lev ; vBo : Str -> Verbum = \bo -> - mkVerb bo (bo + "r") (bo + "es") (bo + "dde") (bo + "dd") bo ; + mkVerb6 bo (bo + "r") (bo + "es") (bo + "dde") (bo + "dd") bo ; regVerb : Str -> Str -> Verbum = \spise, spiste -> let @@ -145,150 +131,41 @@ extractPositive : Adj -> {s : AdjFormPos => Case => Str} = \adj -> _ => vHusk spis } ; - irregVerb : (drikke,drakk,drukket : Str) -> Verbum = - \drikke,drakk,drukket -> - let - drikk = init drikke ; - drikker = case last (init drikke) of { - "r" => drikk ; - _ => drikke + "r" - } - in - mkVerb drikke drikker (drikke + "s") drakk drukket drikk ; --- pronouns - -oper jag_32 : ProPN = - {s = table { - PNom => "jeg" ; - PAcc => "meg" ; - PGen (ASg (Utr Masc)) => "min" ; - PGen (ASg (Utr NoMasc)) => "mi" ; - PGen (ASg Neutr) => "mitt" ; - PGen APl => "mine" - } ; - h1 = Utr Masc ; -- Masc doesn't matter - h2 = Sg ; - h3 = P1 - } ; - -oper du_33 : ProPN = - {s = table { - PNom => "du" ; - PAcc => "deg" ; - PGen (ASg (Utr Masc)) => "din" ; - PGen (ASg (Utr NoMasc)) => "di" ; - PGen (ASg Neutr) => "ditt" ; - PGen APl => "dine" - } ; - h1 = Utr Masc ; - h2 = Sg ; - h3 = P2 - } ; - -oper han_34 : ProPN = - {s = table { - PNom => "han" ; - PAcc => "ham" ; - PGen (ASg (Utr _)) => "hans" ; - PGen (ASg Neutr) => "hans" ; - PGen APl => "hans" - } ; - h1 = masc ; - h2 = Sg ; - h3 = P3 - } ; -oper hon_35 : ProPN = - {s = table { - PNom => "hun" ; - PAcc => "henne" ; - PGen (ASg (Utr _)) => "hennes" ; - PGen (ASg Neutr) => "hennes" ; - PGen APl => "hennes" - } ; - h1 = fem ; - h2 = Sg ; - h3 = P3 - } ; - -oper vi_36 : ProPN = - {s = table { - PNom => "vi" ; - PAcc => "oss" ; - PGen (ASg (Utr _)) => "vår" ; - PGen (ASg Neutr) => "vårt" ; - PGen APl => "våre" - } ; - h1 = Utr Masc ; - h2 = Pl ; - h3 = P1 - } ; - -oper ni_37 : ProPN = - {s = table { - PNom => "dere" ; - PAcc => "dere" ; - PGen _ => "deres" - } ; - h1 = Utr Masc ; - h2 = Pl ; - h3 = P2 - } ; - -oper de_38 : ProPN = - {s = table { - PNom => "de" ; - PAcc => "dem" ; - PGen _ => "deres" - } ; - h1 = Utr Masc ; - h2 = Pl ; - h3 = P3 - } ; - -oper De_38 : ProPN = - {s = table { - PNom => "Dere" ; - PAcc => "Dere" ; - PGen _ => "Deres" - } ; - h1 = Utr Masc ; - h2 = Sg ; - h3 = P2 - } ; - -oper den_39 : ProPN = - {s = table { - PNom => "de" ; - PAcc => "den" ; - PGen _ => "dens" - } ; - h1 = Utr Masc ; - h2 = Sg ; - h3 = P3 - } ; - -oper det_40 : ProPN = - {s = table { - PNom => "det" ; - PAcc => "det" ; - PGen _ => "dets" - } ; - h1 = Neutr ; - h2 = Sg ; - h3 = P3 - } ; - - --- from Numerals +-- For $Numeral$. param DForm = ental | ton | tiotal ; -oper mkTal : Str -> Str -> Str -> {s : DForm => Str} = - \två -> \tolv -> \tjugo -> - {s = table {ental => två ; ton => tolv ; tiotal => tjugo}} ; -oper regTal : Str -> {s : DForm => Str} = \fem -> mkTal fem (fem + "ten") (fem + "ti") ; +oper + LinDigit = {s : DForm => CardOrd => Str} ; + + cardOrd : Str -> Str -> CardOrd => Str = \tre,tredje -> + table { + NCard _ => tre ; + NOrd a => tredje ---- a + } ; + + cardReg : Str -> CardOrd => Str = \syv -> + cardOrd syv (syv + case last syv of { + "n" => "de" ; + "e" => "nde" ; + _ => "ende" + }) ; + + + mkTal : (x1,_,_,_,x5 : Str) -> LinDigit = + \två, tolv, tjugo, andra, tolfte -> + {s = table { + ental => cardOrd två andra ; + ton => cardOrd tolv tolfte ; + tiotal => cardReg tjugo + } + } ; + + numPl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \n -> + {s = n ; n = Pl} ; + + invNum : CardOrd = NCard Neutr ; + - numPl : Str -> {s : Gender => Str ; n : Number} = \n -> - {s = \\_ => n ; n = Pl} ; } diff --git a/lib/resource-1.0/norwegian/Norwegian.gf b/lib/resource/norwegian/Norwegian.gf similarity index 100% rename from lib/resource-1.0/norwegian/Norwegian.gf rename to lib/resource/norwegian/Norwegian.gf diff --git a/lib/resource-1.0/norwegian/NorwegianAbs.gf b/lib/resource/norwegian/NorwegianAbs.gf similarity index 100% rename from lib/resource-1.0/norwegian/NorwegianAbs.gf rename to lib/resource/norwegian/NorwegianAbs.gf diff --git a/lib/resource-1.0/norwegian/NounNor.gf b/lib/resource/norwegian/NounNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/NounNor.gf rename to lib/resource/norwegian/NounNor.gf diff --git a/lib/resource-1.0/norwegian/NumeralNor.gf b/lib/resource/norwegian/NumeralNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/NumeralNor.gf rename to lib/resource/norwegian/NumeralNor.gf diff --git a/lib/resource/norwegian/ParadigmsNor.gf b/lib/resource/norwegian/ParadigmsNor.gf index a3193639c..2e1ca5e70 100644 --- a/lib/resource/norwegian/ParadigmsNor.gf +++ b/lib/resource/norwegian/ParadigmsNor.gf @@ -1,15 +1,16 @@ ---# -path=.:../scandinavian:../abstract:../../prelude +--# -path=.:../scandinavian:../common:../abstract:../../prelude --1 Norwegian Lexical Paradigms -- -- Aarne Ranta 2003 -- --- This is an API to the user of the resource grammar +-- This is an API for the user of the resource grammar -- for adding lexical items. It gives functions for forming -- expressions of open categories: nouns, adjectives, verbs. --- +-- It covers the "bokmål" variant of Norwegian. +-- -- Closed categories (determiners, pronouns, conjunctions) are --- accessed through the resource syntax API, $Structural.gf$. +-- accessed through the resource syntax API, $Structural$. -- -- The main difference with $MorphoNor.gf$ is that the types -- referred to are compiled resource grammar types. We have moreover @@ -21,13 +22,17 @@ -- regular cases. Then we give a worst-case function $mkC$, which serves as an -- escape to construct the most irregular words of type $C$. -- However, this function should only seldom be needed: we have a --- separate module $IrregularEng$, which covers all irregularly inflected --- words. --- --- The following modules are presupposed: +-- separate module [``IrregNor`` ../../norwegian/IrregNor], +-- which covers irregularly inflected verbs. resource ParadigmsNor = - open (Predef=Predef), Prelude, TypesNor, MorphoNor, SyntaxNor, CategoriesNor in { + open + (Predef=Predef), + Prelude, + CommonScand, + ResNor, + MorphoNor, + CatNor in { --2 Parameters -- @@ -56,7 +61,8 @@ oper -- Prepositions used in many-argument functions are just strings. - Preposition : Type = Str ; + mkPrep : Str -> Prep ; + noPrep : Prep ; -- empty string --2 Nouns @@ -65,11 +71,17 @@ oper mkN : (dreng,drengen,drenger,drengene : Str) -> N ; --- The regular function takes the singular indefinite form and the gender, --- and computes the other forms by a heuristic. +-- The regular function takes the singular indefinite form +-- and computes the other forms and the gender by a heuristic. +-- The heuristic is that nouns ending "e" are feminine like "kvinne", +-- all others are masculine like "bil". -- If in doubt, use the $cc$ command to test! - regN : Str -> Gender -> N ; + regN : Str -> N ; + +-- Giving gender manually makes the heuristic more reliable. + + regGenN : Str -> Gender -> N ; -- This function takes the singular indefinite and definite forms; the -- gender is computed from the definite form. @@ -85,27 +97,28 @@ oper --3 Relational nouns -- --- Relational nouns ("daughter of x") need a preposition. +-- Relational nouns ("datter til x") need a preposition. - mkN2 : N -> Preposition -> N2 ; + mkN2 : N -> Prep -> N2 ; -- The most common preposition is "av", and the following is a -- shortcut for regular, $nonhuman$ relational nouns with "av". regN2 : Str -> Gender -> N2 ; --- Use the function $mkPreposition$ or see the section on prepositions below to +-- Use the function $mkPrep$ or see the section on prepositions below to -- form other prepositions. -- --- Three-place relational nouns ("the connection from x to y") need two prepositions. +-- Three-place relational nouns ("forbindelse fra x til y") +-- need two prepositions. - mkN3 : N -> Preposition -> Preposition -> N3 ; + mkN3 : N -> Prep -> Prep -> N3 ; --3 Relational common noun phrases -- -- In some cases, you may want to make a complex $CN$ into a --- relational noun (e.g. "the old town hall of"). However, $N2$ and +-- relational noun (e.g. "den gamle kongen av"). However, $N2$ and -- $N3$ are purely lexical categories. But you can use the $AdvCN$ -- and $PrepNP$ constructions to build phrases like this. @@ -114,7 +127,8 @@ oper -- -- Proper names, with a regular genitive, are formed as follows - regPN : Str -> Gender -> PN ; -- John, John's + regPN : Str -> PN ; -- utrum + regGenPN : Str -> Gender -> PN ; -- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". @@ -143,53 +157,44 @@ oper -- -- Two-place adjectives need a preposition for their second argument. - mkA2 : A -> Preposition -> A2 ; + mkA2 : A -> Prep -> A2 ; -- Comparison adjectives may need as many as five forms. - mkADeg : (stor,stort,store,storre,storst : Str) -> ADeg ; + mkADeg : (stor,stort,store,storre,storst : Str) -> A ; -- The regular pattern works for many adjectives, e.g. those ending -- with "ig". - regADeg : Str -> ADeg ; + regADeg : Str -> A ; -- Just the comparison forms can be irregular. - irregADeg : (tung,tyngre,tyngst : Str) -> ADeg ; + irregADeg : (tung,tyngre,tyngst : Str) -> A ; -- Sometimes just the positive forms are irregular. - mk3ADeg : (galen,galet,galna : Str) -> ADeg ; - mk2ADeg : (bred,bredt : Str) -> ADeg ; + mk3ADeg : (galen,galet,galne : Str) -> A ; + mk2ADeg : (bred,bredt : Str) -> A ; --- If comparison is formed by "mer, "mest", as in general for +-- If comparison is formed by "mer", "mest", as in general for -- long adjective, the following pattern is used: - compoundADeg : A -> ADeg ; -- -/mer/mest norsk - --- From a given $ADeg$, it is possible to get back to $A$. - - adegA : ADeg -> A ; + compoundA : A -> A ; -- -/mer/mest norsk --2 Adverbs -- Adverbs are not inflected. Most lexical ones have position --- after the verb. Some can be preverbal (e.g. "always"). +-- after the verb. Some follow the verb (e.g. "altid"). - mkAdv : Str -> Adv ; - mkAdV : Str -> AdV ; + mkAdv : Str -> Adv ; -- e.g. her + mkAdV : Str -> AdV ; -- e.g. altid -- Adverbs modifying adjectives and sentences can also be formed. mkAdA : Str -> AdA ; ---2 Prepositions --- --- A preposition is just a string. - - mkPreposition : Str -> Preposition ; --2 Verbs -- @@ -205,30 +210,39 @@ oper mk2V : (leve,levde : Str) -> V ; --- There is an extensive list of irregular verbs in the module $IrregularSwe$. +-- There is an extensive list of irregular verbs in the module $IrregNor$. -- In practice, it is enough to give three forms, as in school books. irregV : (drikke, drakk, drukket : Str) -> V ; +--3 Verbs with 'være' as auxiliary +-- +-- By default, the auxiliary is "have". This function changes it to "være". + + vaereV : V -> V ; + + --3 Verbs with a particle. -- --- The particle, such as in "switch on", is given as a string. +-- The particle, such as in "lukke opp", is given as a string. partV : V -> Str -> V ; --3 Deponent verbs. -- --- Some words are used in passive forms only, e.g. "hoppas". +-- Some words are used in passive forms only, e.g. "trives", some as +-- reflexive e.g. "forestille seg". depV : V -> V ; + reflV : V -> V ; --3 Two-place verbs -- -- Two-place verbs need a preposition, except the special case with direct object. -- (transitive verbs). Notice that a particle comes from the $V$. - mkV2 : V -> Preposition -> V2 ; + mkV2 : V -> Prep -> V2 ; dirV2 : V -> V2 ; @@ -237,9 +251,9 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Str -> Str -> V3 ; -- speak, with, about - dirV3 : V -> Str -> V3 ; -- give,_,to - dirdirV3 : V -> V3 ; -- give,_,_ + mkV3 : V -> Prep -> Prep -> V3 ; -- snakke, med, om + dirV3 : V -> Prep -> V3 ; -- gi,_,til + dirdirV3 : V -> V3 ; -- gi,_,_ --3 Other complement patterns -- @@ -248,126 +262,175 @@ oper mkV0 : V -> V0 ; mkVS : V -> VS ; - mkV2S : V -> Str -> V2S ; + mkV2S : V -> Prep -> V2S ; mkVV : V -> VV ; - mkV2V : V -> Str -> Str -> V2V ; + mkV2V : V -> Prep -> Prep -> V2V ; mkVA : V -> VA ; - mkV2A : V -> Str -> V2A ; + mkV2A : V -> Prep -> V2A ; mkVQ : V -> VQ ; - mkV2Q : V -> Str -> V2Q ; + mkV2Q : V -> Prep -> V2Q ; mkAS : A -> AS ; - mkA2S : A -> Str -> A2S ; + mkA2S : A -> Prep -> A2S ; mkAV : A -> AV ; - mkA2V : A -> Str -> A2V ; + mkA2V : A -> Prep -> A2V ; + +-- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated +-- just as synonyms of $V2$, and the second argument is given +-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. +-- $V0$ is just $V$. + + V0, V2S, V2V, V2A, V2Q : Type ; + AS, A2S, AV, A2V : Type ; +--. --2 Definitions of the paradigms -- -- The definitions should not bother the user of the API. So they are -- hidden from the document. ---. - Gender = SyntaxNor.NounGender ; - Number = TypesNor.Number ; - Case = TypesNor.Case ; - masculine = NUtr Masc ; - feminine = NUtr NoMasc ; - neutrum = NNeutr ; + Gender = MorphoNor.Gender ; + Number = MorphoNor.Number ; + Case = MorphoNor.Case ; + masculine = Utr Masc ; + feminine = Utr Fem ; + neutrum = Neutr ; singular = Sg ; plural = Pl ; nominative = Nom ; genitive = Gen ; - mkN x y z u = let sb = mkSubstantive x y z u - in {s = \\n,b,c => sb.s ! SF n b c ; g = extNGen y ; lock_N = <>} ; - regN x g = case last x of { + mkN x y z u = mkSubstantive x y z u ** {g = extNGen y ; lock_N = <>} ; + + regN x = regGenN x g where { + g = case of { + _ + "e" => Utr Fem ; + _ => Utr Masc + } + } ; + + regGenN x g = case last x of { "e" => case g of { - NUtr Masc => mkN x (x + "n") (x + "r") (x + "ne") ; - NUtr NoMasc => mkN x (init x + "a") (x + "r") (x + "ne") ; - NNeutr => mkN x (x + "t") (x + "r") (init x + "a") + Utr Masc => mkN x (x + "n") (x + "r") (x + "ne") ; + Utr Fem => mkN x (init x + "a") (x + "r") (x + "ne") ; + Neutr => mkN x (x + "t") (x + "r") (init x + "a") } ; _ => case g of { - NUtr Masc => mkN x (x + "en") (x + "er") (x + "ene") ; - NUtr NoMasc => mkN x (x + "a") (x + "er") (x + "ene") ; - NNeutr => mkN x (x + "et") (x + "") (x + "a") + Utr Masc => mkN x (x + "en") (x + "er") (x + "ene") ; + Utr Fem => mkN x (x + "a") (x + "er") (x + "ene") ; + Neutr => mkN x (x + "et") (x + "") (x + "a") } } ; mk2N x y = case last y of { - "n" => regN x masculine ; - "a" => regN x feminine ; - _ => regN x neutrum + "n" => regGenN x masculine ; + "a" => regGenN x feminine ; + _ => regGenN x neutrum } ; - mkN2 = \n,p -> n ** {lock_N2 = <> ; s2 = p} ; - regN2 n g = mkN2 (regN n g) (mkPreposition "av") ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; s2 = p ; s3 = q} ; + mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p.s} ; + regN2 n g = mkN2 (regGenN n g) (mkPrep "av") ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ; - regPN n g = {s = \\c => mkCase n ! c ; g = g} ** {lock_PN = <>} ; + regGenPN n g = {s = \\c => mkCase c n ; g = g} ** {lock_PN = <>} ; + regPN n = regGenPN n utrum ; nounPN n = {s = n.s ! singular ! Indef ; g = n.g ; lock_PN = <>} ; mkNP x y n g = - {s = table {PGen _ => x ; _ => y} ; g = genNoun g ; n = n ; p = P3 ; + {s = table {NPPoss _ => x ; _ => y} ; a = agrP3 g n ; lock_NP = <>} ; - mkA a b c = extractPositive (mkAdjective a b c [] []) ** {lock_A = <>} ; + mkA a b c = (mkAdject a b c [] []) ** {isComp = False ; lock_A = <>} ; mk2A a b = mkA a b (a + "e") ; - regA a = extractPositive (regADeg a) ** {lock_A = <>} ; + regA a = (regADeg a) ** {isComp = False ; lock_A = <>} ; - mkA2 a p = a ** {s2 = p ; lock_A2 = <>} ; + mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ; - mkADeg a b c d e = mkAdjective a b c d e ** {lock_ADeg = <>} ; + mkADeg a b c d e = mkAdject a b c d e ** {isComp = False ; lock_A = <>} ; regADeg a = case Predef.dp 2 a of { "ig" => aBillig a ; "sk" => aRask a ; _ => aRod a - } ** {lock_ADeg = <>} ; - irregADeg a b c = mkAdjective a (a + "t") (a + "e") b c ** {lock_ADeg = <>} ; - mk3ADeg a b c = mkAdjective a b c (a + "ere") (a + "est") ** {lock_ADeg = <>} ; - mk2ADeg a b = mkAdjective a b (a + "e") (a + "ere") (a + "est") ** {lock_ADeg = <>} ; + } ** {isComp = False ; lock_A = <>} ; + irregADeg a b c = mkAdject a (a + "t") (a + "e") b c ** + {isComp = False ; lock_A = <>} ; + mk3ADeg a b c = mkAdject a b c (a + "ere") (a + "est") ** + {isComp = False ; lock_A = <>} ; + mk2ADeg a b = mkAdject a b (a + "e") (a + "ere") (a + "est") ** + {isComp = False ; lock_A = <>} ; + + compoundA adj = {s = adj.s ; isComp = True ; lock_A = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ; mkAdA x = ss x ** {lock_AdA = <>} ; - mkPreposition p = p ; + mkPrep p = {s = p ; lock_Prep = <>} ; + noPrep = mkPrep [] ; - mkV a b c d e f = mkVerb a b c d e f ** {s1 = [] ; lock_V = <>} ; + mkV a b c d e f = mkVerb6 a b c d e f ** + {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ; regV a = case last a of { "e" => vHusk (init a) ; _ => vBo a - } ** {s1 = [] ; lock_V = <>} ; + } ** {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ; - mk2V a b = regVerb a b ** {s1 = [] ; lock_V = <>} ; + mk2V a b = regVerb a b ** {part = [] ; vtype = VAct ; isVaere = False ; lock_V = <>} ; - irregV x y z = irregVerb x y z - ** {s1 = [] ; lock_V = <>} ; + irregV = + \drikke,drakk,drukket -> + let + drikk = case last drikke of { + "e" => init drikke ; + _ => drikke + } ; + drikker = case last (init drikke) of { + "r" => init drikke ; + _ => drikke + "r" + } + in + mkV drikke drikker (drikke + "s") drakk drukket drikk ; - partV v p = {s = v.s ; s1 = p ; lock_V = <>} ; - depV v = deponentVerb v ** {lock_V = <>} ; + vaereV v = { + s = v.s ; + part = [] ; + vtype = v.vtype ; + isVaere = True ; + lock_V = <> + } ; - mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; lock_V2 = <>} ; - dirV2 v = mkV2 v [] ; + partV v p = {s = v.s ; part = p ; vtype = v.vtype ; isVaere = v.isVaere ; lock_V = <>} ; + depV v = {s = v.s ; part = v.part ; vtype = VPass ; isVaere = False ; lock_V = <>} ; + reflV v = {s = v.s ; part = v.part ; vtype = VRefl ; isVaere = False ; lock_V = <>} ; - mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; s3 = q ; lock_V3 = <>} ; - dirV3 v p = mkV3 v [] p ; - dirdirV3 v = dirV3 v [] ; + mkV2 v p = v ** {c2 = p.s ; lock_V2 = <>} ; + dirV2 v = mkV2 v noPrep ; + + mkV3 v p q = v ** {c2 = p.s ; c3 = q.s ; lock_V3 = <>} ; + dirV3 v p = mkV3 v noPrep p ; + dirdirV3 v = dirV3 v noPrep ; mkV0 v = v ** {lock_V0 = <>} ; mkVS v = v ** {lock_VS = <>} ; mkV2S v p = mkV2 v p ** {lock_V2S = <>} ; - mkVV v = v ** {isAux = False ; lock_VV = <>} ; + mkVV v = v ** {c2 = "å" ; lock_VV = <>} ; mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2V = <>} ; mkVA v = v ** {lock_VA = <>} ; mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; mkVQ v = v ** {lock_VQ = <>} ; mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - mkAS v = v ** {lock_AS = <>} ; - mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; - mkAV v = v ** {lock_AV = <>} ; - mkA2V v p = mkA2 v p ** {lock_A2V = <>} ; + mkAS v = v ** {lock_A = <>} ; + mkA2S v p = mkA2 v p ** {lock_A = <>} ; + mkAV v = v ** {lock_A = <>} ; + mkA2V v p = mkA2 v p ** {lock_A = <>} ; + + V0 : Type = V ; + V2S, V2V, V2Q, V2A : Type = V2 ; + AS, A2S, AV : Type = A ; + A2V : Type = A2 ; + } ; diff --git a/lib/resource-1.0/norwegian/PhraseNor.gf b/lib/resource/norwegian/PhraseNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/PhraseNor.gf rename to lib/resource/norwegian/PhraseNor.gf diff --git a/lib/resource-1.0/norwegian/QuestionNor.gf b/lib/resource/norwegian/QuestionNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/QuestionNor.gf rename to lib/resource/norwegian/QuestionNor.gf diff --git a/lib/resource-1.0/norwegian/RelativeNor.gf b/lib/resource/norwegian/RelativeNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/RelativeNor.gf rename to lib/resource/norwegian/RelativeNor.gf diff --git a/lib/resource-1.0/norwegian/ResNor.gf b/lib/resource/norwegian/ResNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/ResNor.gf rename to lib/resource/norwegian/ResNor.gf diff --git a/lib/resource-1.0/norwegian/SentenceNor.gf b/lib/resource/norwegian/SentenceNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/SentenceNor.gf rename to lib/resource/norwegian/SentenceNor.gf diff --git a/lib/resource/norwegian/StructuralNor.gf b/lib/resource/norwegian/StructuralNor.gf index 56a3092e0..5079154c6 100644 --- a/lib/resource/norwegian/StructuralNor.gf +++ b/lib/resource/norwegian/StructuralNor.gf @@ -1,100 +1,126 @@ ---# -path=.:../scandinavian:../abstract:../../prelude +concrete StructuralNor of Structural = CatNor ** + open MorphoNor, ParadigmsNor, Prelude in { ---1 The Top-Level Norwegian Resource Grammar: Structural Words --- --- Aarne Ranta 2002 -- 2004 --- -concrete StructuralNor of Structural = - CategoriesNor, NumeralsNor ** open Prelude, MorphoNor, SyntaxNor in { + flags optimize=all ; lin - UseNumeral i = {s = \\g => table {Nom => i.s ! g ; Gen => i.s ! g ++ "s"} ; n = i.n} ; - above_Prep = ss "ovenfor" ; after_Prep = ss "etter" ; by8agent_Prep = ss "av" ; - all8mass_Det = mkDeterminerSgGender2 "all" "alt" IndefP ; - all_NDet = mkDeterminerPlNum "alle" IndefP ; - almost_Adv = ss "nesten" ; + all_Predet = {s = gennumForms "all" "alt" "alle"} ; + almost_AdA, almost_AdN = ss "nesten" ; although_Subj = ss ["selv om"] ; + always_AdV = ss "altid" ; and_Conj = ss "og" ** {n = Pl} ; - because_Subj = ss ["fordi"] ; + because_Subj = ss "fordi" ; before_Prep = ss "før" ; behind_Prep = ss "bakom" ; between_Prep = ss "mellom" ; - both_AndConjD = sd2 "både" "og" ** {n = Pl} ; + both7and_DConj = sd2 "både" "og" ** {n = Pl} ; + but_PConj = ss "men" ; by8means_Prep = ss "med" ; - can8know_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** - {s1 = [] ; isAux = True} ; - can_VV = mkVerb "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** - {s1 = [] ; isAux = True} ; + can8know_VV, can_VV = + mkV "kunne" "kan" nonExist "kunne" "kunnet" nonExist ** + {c2 = [] ; lock_VV = <>} ; during_Prep = ss "under" ; - either8or_ConjD = sd2 "enten" "eller" ** {n = Sg} ; - everybody_NP = let alla = table {Nom => "alle" ; Gen => "alles"} in - {s = \\c => alla ! npCase c ; g = Utr Masc ; n = Pl ; p = P3} ; - every_Det = varjeDet ; - everything_NP = nameNounPhrase (mkProperName "alt" NNeutr) ; - everywhere_Adv = advPost "overalt" ; + either7or_DConj = sd2 "enten" "eller" ** {n = Sg} ; + everybody_NP = regNP "alle" "alles" Plg ; + every_Det = {s = \\_,_ => "hver" ; n = Sg ; det = DDef Indef} ; + everything_NP = regNP "alt" "alts" SgNeutr ; + everywhere_Adv = ss "overalt" ; + few_Det = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ; + first_Ord = {s = "første" ; isDet = True} ; from_Prep = ss "fra" ; - he_NP = pronNounPhrase han_34 ; + he_Pron = MorphoNor.mkNP "han" "ham" "hans" "hans" "hans" SgUtr P3 ; + here_Adv = ss "her" ; + here7to_Adv = ss "hit" ; + here7from_Adv = ss "herfra" ; how_IAdv = ss "hvor" ; - how8many_IDet = mkDeterminerPl ["hvor mange"] IndefP ; + how8many_IDet = {s = \\_ => ["hur mange"] ; n = Pl ; det = DDef Indef} ; if_Subj = ss "hvis" ; in8front_Prep = ss "foran" ; - i_NP = pronNounPhrase jag_32 ; + i_Pron = + MorphoNor.mkNP "jeg" "meg" (variants {"min" ; "mi"}) "mit" "mine" SgUtr P1 ; --- mi in_Prep = ss "i" ; - it_NP = pronNounPhrase det_40 ; ---- - many_Det = mkDeterminerPl "mange" IndefP ; - most_Det = mkDeterminerSgGender2 ["den meste"] ["det meste"] (DefP Def) ; - most8many_Det = flestaDet ; - much_Det = mkDeterminerSg (detSgInvar "mye") IndefP ; - must_VV = mkVerb "måtte" "må" "mås" "måtte" "måttet" "mått" ** - {s1 = [] ; isAux = True} ; + it_Pron = MorphoNor.regNP "det" "dets" SgNeutr ; + less_CAdv = ss "mindre" ; + many_Det = {s = \\_,_ => "mange" ; n = Pl ; det = DDef Indef} ; + more_CAdv = ss "mer" ; + most_Predet = {s = gennumForms ["den meste"] ["det meste"] ["de fleste"]} ; + much_Det = {s = \\_,_ => "mye" ; n = Pl ; det = DDef Indef} ; + must_VV = + mkV "måtte" "må" "få" "måtte" "måttet" "mått" ** {c2 = [] ; lock_VV = <>} ; + no_Phr = ss ["Nei"] ; on_Prep = ss "på" ; + one_Quant = {s = \\_ => genderForms ["en"] ["et"] ; n = Sg ; det = DIndef} ; --- ei + only_Predet = {s = \\_ => "kun"} ; or_Conj = ss "eller" ** {n = Sg} ; - otherwise_Adv = ss "annerledes" ; ---- ? + otherwise_PConj = ss "annarledes" ; part_Prep = ss "av" ; - no_Phr = ss ["Nei ."] ; - yes_Phr = ss ["Ja ."] ; + please_Voc = ss "takk" ; --- possess_Prep = ss "av" ; quite_Adv = ss "temmelig" ; - she_NP = pronNounPhrase hon_35 ; - so_Adv = ss "så" ; - somebody_NP = nameNounPhrase (mkProperName "noen" (NUtr Masc)) ; - some_Det = mkDeterminerSgGender2 "noen" "noe" IndefP ; - some_NDet = mkDeterminerPlNum "noen" IndefP ; - something_NP = nameNounPhrase (mkProperName "noe" NNeutr) ; - somewhere_Adv = advPost ["et eller annet sted"] ; ---- ? - that_Det = mkDeterminerSgGender2 ["den der"] ["det der"] (DefP Def) ; - that_NP = regNameNounPhrase ["det"] NNeutr ; - therefore_Adv = ss "derfor" ; - these_NDet = mkDeterminerPlNum ["disse"] (DefP Def) ; - they8fem_NP = pronNounPhrase de_38 ; - they_NP = pronNounPhrase de_38 ; - this_Det = mkDeterminerSgGender2 ["denne"] ["dette"] (DefP Def) ; - this_NP = regNameNounPhrase ["dette"] NNeutr ; - those_NDet = mkDeterminerPlNum ["de der"] (DefP Def) ; - thou_NP = pronNounPhrase du_33 ; + she_Pron = MorphoNor.mkNP "hun" "henne" "hennes" "hennes" "hennes" SgUtr P3 ; + so_AdA = ss "så" ; + someSg_Det = {s = \\_ => genderForms "noen" "noe" ; n = Sg ; det = DIndef} ; + somePl_Det = {s = \\_,_ => "noen" ; n = Pl ; det = DIndef} ; + somebody_NP = regNP "noen" "noens" SgUtr ; + something_NP = regNP "noe" "noes" SgNeutr ; + somewhere_Adv = ss ["et eller annet sted"] ; ---- ? + that_Quant = + {s = table { + Sg => \\_ => genderForms ["den der"] ["det der"] ; + Pl => \\_,_ => ["de der"] + } ; + det = DDef Indef + } ; + that_NP = regNP ["det der"] ["det ders"] SgNeutr ; + there_Adv = ss "der" ; + there7to_Adv = ss "dit" ; + there7from_Adv = ss "derfra" ; + therefore_PConj = ss "derfor" ; + these_NP = regNP ["disse"] ["disses"] Plg ; + they_Pron = MorphoNor.mkNP "de" "dem" "deres" "deres" "deres" Plg P1 ; + this_Quant = + {s = table { + Sg => \\_ => genderForms ["denne"] ["dette"] ; + Pl => \\_,_ => ["disse"] + } ; + det = DDef Def + } ; + this_NP = regNP ["dette"] ["dettes"] SgNeutr ; + those_NP = regNP ["de der"] ["de ders"] Plg ; through_Prep = ss "gjennom" ; - too_Adv = ss "for" ; + too_AdA = ss "for" ; to_Prep = ss "til" ; under_Prep = ss "under" ; - very_Adv = ss "meget" ; - want_VV = mkVerb "ville" "vil" nonExist "ville" "villet" "vill" ** - {s1 = [] ; isAux = True} ; - we_NP = pronNounPhrase (vi_36) ; - what8many_IP = intPronWhat plural ; - what8one_IP = intPronWhat singular ; + very_AdA = ss "mye" ; + want_VV = + mkV "ville" "vil" nonExist "ville" "villet" "villed" ** + {c2 = [] ; lock_VV = <>} ; + we_Pron = MorphoNor.mkNP "vi" "oss" "vår" "vårt" "våre" Plg P1 ; + whatSg_IP = {s = \\_ => "hva" ; gn = SgUtr} ; ---- infl + whatPl_IP = {s = \\_ => "hva" ; gn = Plg} ; ---- infl when_IAdv = ss "når" ; when_Subj = ss "når" ; where_IAdv = ss "hver" ; - which8one_IDet = vilkenDet ; - which8many_IDet = mkDeterminerPl "hvilke" IndefP ; - who8many_IP = intPronWho plural ; - who8one_IP = intPronWho singular ; + whichPl_IDet = {s = \\_ => "hvilke" ; n = Pl ; det = DIndef} ; + whichSg_IDet = {s = genderForms "hvilken" "hvilket" ; n = Sg ; det = DIndef} ; + whoSg_IP = {s = vem.s ; gn = SgUtr} ; + whoPl_IP = {s = \\_ => "hvilke" ; gn = Plg} ; why_IAdv = ss "hvorfor" ; without_Prep = ss "uten" ; with_Prep = ss "med" ; - ye_NP = pronNounPhrase (ni_37) ; - you_NP = pronNounPhrase De_38 ; + yes_Phr = ss ["ja"] ; + youSg_Pron = + MorphoNor.mkNP "du" "deg" (variants {"din" ; "di"}) "dit" "dine" SgUtr P2 ; ---- + youPl_Pron = MorphoNor.mkNP "dere" "dere" "deres" "deres" "deres" Plg P2 ; + youPol_Pron = MorphoNor.mkNP "Dere" "Dere" "Deres" "Deres" "Deres" SgUtr P2 ; --- wrong in refl + +-- Auxiliaries that are used repeatedly. + + oper + vem = MorphoNor.mkNP "hvem" "hvem" "hvis" "hvis" "hvis" SgUtr P3 ; + } + diff --git a/lib/resource-1.0/norwegian/VerbNor.gf b/lib/resource/norwegian/VerbNor.gf similarity index 100% rename from lib/resource-1.0/norwegian/VerbNor.gf rename to lib/resource/norwegian/VerbNor.gf diff --git a/lib/resource-1.0/old/Lex.gf b/lib/resource/old/Lex.gf similarity index 100% rename from lib/resource-1.0/old/Lex.gf rename to lib/resource/old/Lex.gf diff --git a/lib/resource-1.0/old/LexEng.gf b/lib/resource/old/LexEng.gf similarity index 100% rename from lib/resource-1.0/old/LexEng.gf rename to lib/resource/old/LexEng.gf diff --git a/lib/resource-1.0/old/LexFre.gf b/lib/resource/old/LexFre.gf similarity index 100% rename from lib/resource-1.0/old/LexFre.gf rename to lib/resource/old/LexFre.gf diff --git a/lib/resource-1.0/old/LexGer.gf b/lib/resource/old/LexGer.gf similarity index 100% rename from lib/resource-1.0/old/LexGer.gf rename to lib/resource/old/LexGer.gf diff --git a/lib/resource-1.0/old/LexSwe.gf b/lib/resource/old/LexSwe.gf similarity index 100% rename from lib/resource-1.0/old/LexSwe.gf rename to lib/resource/old/LexSwe.gf diff --git a/lib/resource-1.0/old/SeqConjunction.gf b/lib/resource/old/SeqConjunction.gf similarity index 100% rename from lib/resource-1.0/old/SeqConjunction.gf rename to lib/resource/old/SeqConjunction.gf diff --git a/lib/resource-1.0/old/SeqConjunctionEng.gf b/lib/resource/old/SeqConjunctionEng.gf similarity index 100% rename from lib/resource-1.0/old/SeqConjunctionEng.gf rename to lib/resource/old/SeqConjunctionEng.gf diff --git a/lib/resource-1.0/old/SeqConjunctionGer.gf b/lib/resource/old/SeqConjunctionGer.gf similarity index 100% rename from lib/resource-1.0/old/SeqConjunctionGer.gf rename to lib/resource/old/SeqConjunctionGer.gf diff --git a/lib/resource-1.0/old/SeqConjunctionRomance.gf b/lib/resource/old/SeqConjunctionRomance.gf similarity index 100% rename from lib/resource-1.0/old/SeqConjunctionRomance.gf rename to lib/resource/old/SeqConjunctionRomance.gf diff --git a/lib/resource-1.0/old/SeqConjunctionScand.gf b/lib/resource/old/SeqConjunctionScand.gf similarity index 100% rename from lib/resource-1.0/old/SeqConjunctionScand.gf rename to lib/resource/old/SeqConjunctionScand.gf diff --git a/lib/resource-1.0/old/Tense.gf b/lib/resource/old/Tense.gf similarity index 100% rename from lib/resource-1.0/old/Tense.gf rename to lib/resource/old/Tense.gf diff --git a/lib/resource-1.0/old/Tensed.gf b/lib/resource/old/Tensed.gf similarity index 100% rename from lib/resource-1.0/old/Tensed.gf rename to lib/resource/old/Tensed.gf diff --git a/lib/resource-1.0/old/TensedEng.gf b/lib/resource/old/TensedEng.gf similarity index 100% rename from lib/resource-1.0/old/TensedEng.gf rename to lib/resource/old/TensedEng.gf diff --git a/lib/resource-1.0/old/TensedFre.gf b/lib/resource/old/TensedFre.gf similarity index 100% rename from lib/resource-1.0/old/TensedFre.gf rename to lib/resource/old/TensedFre.gf diff --git a/lib/resource-1.0/old/TensedGer.gf b/lib/resource/old/TensedGer.gf similarity index 100% rename from lib/resource-1.0/old/TensedGer.gf rename to lib/resource/old/TensedGer.gf diff --git a/lib/resource-1.0/old/TensedRomance.gf b/lib/resource/old/TensedRomance.gf similarity index 100% rename from lib/resource-1.0/old/TensedRomance.gf rename to lib/resource/old/TensedRomance.gf diff --git a/lib/resource-1.0/old/TensedScand.gf b/lib/resource/old/TensedScand.gf similarity index 100% rename from lib/resource-1.0/old/TensedScand.gf rename to lib/resource/old/TensedScand.gf diff --git a/lib/resource-1.0/old/TensedSwe.gf b/lib/resource/old/TensedSwe.gf similarity index 100% rename from lib/resource-1.0/old/TensedSwe.gf rename to lib/resource/old/TensedSwe.gf diff --git a/lib/resource-1.0/old/Test.gf b/lib/resource/old/Test.gf similarity index 100% rename from lib/resource-1.0/old/Test.gf rename to lib/resource/old/Test.gf diff --git a/lib/resource-1.0/old/TestEng.gf b/lib/resource/old/TestEng.gf similarity index 100% rename from lib/resource-1.0/old/TestEng.gf rename to lib/resource/old/TestEng.gf diff --git a/lib/resource-1.0/old/TestFre.gf b/lib/resource/old/TestFre.gf similarity index 100% rename from lib/resource-1.0/old/TestFre.gf rename to lib/resource/old/TestFre.gf diff --git a/lib/resource-1.0/old/TestGer.gf b/lib/resource/old/TestGer.gf similarity index 100% rename from lib/resource-1.0/old/TestGer.gf rename to lib/resource/old/TestGer.gf diff --git a/lib/resource-1.0/old/TestSwe.gf b/lib/resource/old/TestSwe.gf similarity index 100% rename from lib/resource-1.0/old/TestSwe.gf rename to lib/resource/old/TestSwe.gf diff --git a/lib/resource-1.0/old/Untensed.gf b/lib/resource/old/Untensed.gf similarity index 100% rename from lib/resource-1.0/old/Untensed.gf rename to lib/resource/old/Untensed.gf diff --git a/lib/resource-1.0/old/UntensedEng.gf b/lib/resource/old/UntensedEng.gf similarity index 100% rename from lib/resource-1.0/old/UntensedEng.gf rename to lib/resource/old/UntensedEng.gf diff --git a/lib/resource-1.0/old/UntensedFre.gf b/lib/resource/old/UntensedFre.gf similarity index 100% rename from lib/resource-1.0/old/UntensedFre.gf rename to lib/resource/old/UntensedFre.gf diff --git a/lib/resource-1.0/old/UntensedGer.gf b/lib/resource/old/UntensedGer.gf similarity index 100% rename from lib/resource-1.0/old/UntensedGer.gf rename to lib/resource/old/UntensedGer.gf diff --git a/lib/resource-1.0/old/UntensedRomance.gf b/lib/resource/old/UntensedRomance.gf similarity index 100% rename from lib/resource-1.0/old/UntensedRomance.gf rename to lib/resource/old/UntensedRomance.gf diff --git a/lib/resource-1.0/old/UntensedScand.gf b/lib/resource/old/UntensedScand.gf similarity index 100% rename from lib/resource-1.0/old/UntensedScand.gf rename to lib/resource/old/UntensedScand.gf diff --git a/lib/resource-1.0/old/UntensedSwe.gf b/lib/resource/old/UntensedSwe.gf similarity index 100% rename from lib/resource-1.0/old/UntensedSwe.gf rename to lib/resource/old/UntensedSwe.gf diff --git a/lib/resource-1.0/romance/AdjectiveRomance.gf b/lib/resource/romance/AdjectiveRomance.gf similarity index 100% rename from lib/resource-1.0/romance/AdjectiveRomance.gf rename to lib/resource/romance/AdjectiveRomance.gf diff --git a/lib/resource-1.0/romance/AdverbRomance.gf b/lib/resource/romance/AdverbRomance.gf similarity index 100% rename from lib/resource-1.0/romance/AdverbRomance.gf rename to lib/resource/romance/AdverbRomance.gf diff --git a/lib/resource-1.0/romance/CatRomance.gf b/lib/resource/romance/CatRomance.gf similarity index 100% rename from lib/resource-1.0/romance/CatRomance.gf rename to lib/resource/romance/CatRomance.gf diff --git a/lib/resource-1.0/romance/CommonRomance.gf b/lib/resource/romance/CommonRomance.gf similarity index 100% rename from lib/resource-1.0/romance/CommonRomance.gf rename to lib/resource/romance/CommonRomance.gf diff --git a/lib/resource-1.0/romance/ConjunctionRomance.gf b/lib/resource/romance/ConjunctionRomance.gf similarity index 100% rename from lib/resource-1.0/romance/ConjunctionRomance.gf rename to lib/resource/romance/ConjunctionRomance.gf diff --git a/lib/resource-1.0/romance/DiffRomance.gf b/lib/resource/romance/DiffRomance.gf similarity index 100% rename from lib/resource-1.0/romance/DiffRomance.gf rename to lib/resource/romance/DiffRomance.gf diff --git a/lib/resource-1.0/romance/ExtRomance.gf b/lib/resource/romance/ExtRomance.gf similarity index 100% rename from lib/resource-1.0/romance/ExtRomance.gf rename to lib/resource/romance/ExtRomance.gf diff --git a/lib/resource-1.0/romance/ExtraRomance.gf b/lib/resource/romance/ExtraRomance.gf similarity index 100% rename from lib/resource-1.0/romance/ExtraRomance.gf rename to lib/resource/romance/ExtraRomance.gf diff --git a/lib/resource-1.0/romance/ExtraRomanceAbs.gf b/lib/resource/romance/ExtraRomanceAbs.gf similarity index 100% rename from lib/resource-1.0/romance/ExtraRomanceAbs.gf rename to lib/resource/romance/ExtraRomanceAbs.gf diff --git a/lib/resource-1.0/romance/NounRomance.gf b/lib/resource/romance/NounRomance.gf similarity index 100% rename from lib/resource-1.0/romance/NounRomance.gf rename to lib/resource/romance/NounRomance.gf diff --git a/lib/resource-1.0/romance/PhraseRomance.gf b/lib/resource/romance/PhraseRomance.gf similarity index 100% rename from lib/resource-1.0/romance/PhraseRomance.gf rename to lib/resource/romance/PhraseRomance.gf diff --git a/lib/resource-1.0/romance/QuestionRomance.gf b/lib/resource/romance/QuestionRomance.gf similarity index 100% rename from lib/resource-1.0/romance/QuestionRomance.gf rename to lib/resource/romance/QuestionRomance.gf diff --git a/lib/resource-1.0/romance/RelativeRomance.gf b/lib/resource/romance/RelativeRomance.gf similarity index 100% rename from lib/resource-1.0/romance/RelativeRomance.gf rename to lib/resource/romance/RelativeRomance.gf diff --git a/lib/resource-1.0/romance/ResRomance.gf b/lib/resource/romance/ResRomance.gf similarity index 100% rename from lib/resource-1.0/romance/ResRomance.gf rename to lib/resource/romance/ResRomance.gf diff --git a/lib/resource-1.0/romance/SentenceRomance.gf b/lib/resource/romance/SentenceRomance.gf similarity index 100% rename from lib/resource-1.0/romance/SentenceRomance.gf rename to lib/resource/romance/SentenceRomance.gf diff --git a/lib/resource-1.0/romance/VerbRomance.gf b/lib/resource/romance/VerbRomance.gf similarity index 100% rename from lib/resource-1.0/romance/VerbRomance.gf rename to lib/resource/romance/VerbRomance.gf diff --git a/lib/resource-1.0/russian/AdjectiveRus.gf b/lib/resource/russian/AdjectiveRus.gf similarity index 100% rename from lib/resource-1.0/russian/AdjectiveRus.gf rename to lib/resource/russian/AdjectiveRus.gf diff --git a/lib/resource-1.0/russian/AdverbRus.gf b/lib/resource/russian/AdverbRus.gf similarity index 100% rename from lib/resource-1.0/russian/AdverbRus.gf rename to lib/resource/russian/AdverbRus.gf diff --git a/lib/resource-1.0/russian/CatRus.gf b/lib/resource/russian/CatRus.gf similarity index 100% rename from lib/resource-1.0/russian/CatRus.gf rename to lib/resource/russian/CatRus.gf diff --git a/lib/resource-1.0/russian/ConjunctionRus.gf b/lib/resource/russian/ConjunctionRus.gf similarity index 100% rename from lib/resource-1.0/russian/ConjunctionRus.gf rename to lib/resource/russian/ConjunctionRus.gf diff --git a/lib/resource-1.0/russian/ExtraRus.gf b/lib/resource/russian/ExtraRus.gf similarity index 100% rename from lib/resource-1.0/russian/ExtraRus.gf rename to lib/resource/russian/ExtraRus.gf diff --git a/lib/resource-1.0/russian/ExtraRusAbs.gf b/lib/resource/russian/ExtraRusAbs.gf similarity index 100% rename from lib/resource-1.0/russian/ExtraRusAbs.gf rename to lib/resource/russian/ExtraRusAbs.gf diff --git a/lib/resource-1.0/russian/GrammarRus.gf b/lib/resource/russian/GrammarRus.gf similarity index 100% rename from lib/resource-1.0/russian/GrammarRus.gf rename to lib/resource/russian/GrammarRus.gf diff --git a/lib/resource-1.0/russian/IdiomRus.gf b/lib/resource/russian/IdiomRus.gf similarity index 100% rename from lib/resource-1.0/russian/IdiomRus.gf rename to lib/resource/russian/IdiomRus.gf diff --git a/lib/resource-1.0/russian/IrregRus.gf b/lib/resource/russian/IrregRus.gf similarity index 100% rename from lib/resource-1.0/russian/IrregRus.gf rename to lib/resource/russian/IrregRus.gf diff --git a/lib/resource/russian/LangRus.gf b/lib/resource/russian/LangRus.gf index 7f928ac05..a91740233 100644 --- a/lib/resource/russian/LangRus.gf +++ b/lib/resource/russian/LangRus.gf @@ -1,25 +1,17 @@ ---# -path=.:../abstract:../../prelude - -concrete LangRus of Lang = - RulesRus, - ClauseRus, - StructuralRus, --- BasicRus, - TimeRus, - CountryRus, --- MathRus - - ** open Prelude, ParadigmsRus, TypesRus -in { -flags coding=utf8 ; -lin - AdvDate d = {s=d.s ! (SF Sg Acc) }; - AdvTime t = prefixSS "в" t ; - NWeekday w = w ; - PNWeekday w = nounPN w ; - - PNCountry x = x ; - ANationality x = x ; - NLanguage x = x ; - -} +--# -path=.:../abstract:../common:../../prelude + +concrete LangRus of Lang = + NounRus, + VerbRus, + AdjectiveRus, + AdverbRus, + NumeralRus, + SentenceRus, + QuestionRus, + RelativeRus, + ConjunctionRus, + PhraseRus, + TextX, + StructuralRus, + IdiomRus, + LexiconRus ** { flags startcat = Phr ; unlexer = text ; lexer = text ;} ; diff --git a/lib/resource-1.0/russian/LexiconRus.gf b/lib/resource/russian/LexiconRus.gf similarity index 100% rename from lib/resource-1.0/russian/LexiconRus.gf rename to lib/resource/russian/LexiconRus.gf diff --git a/lib/resource/russian/MorphoRus.gf b/lib/resource/russian/MorphoRus.gf index 66834004e..cc858fed7 100644 --- a/lib/resource/russian/MorphoRus.gf +++ b/lib/resource/russian/MorphoRus.gf @@ -1,20 +1,23 @@ +--# -path=.:../../prelude:../common + --1 A Simple Russian Resource Morphology --- --- Aarne Ranta, Janna Khegai 2003 --- + +-- Aarne Ranta, Janna Khegai 2006 + -- This resource morphology contains definitions of the lexical entries -- needed in the resource syntax. -- It moreover contains copies of the most usual inflectional patterns. --- + -- We use the parameter types and word classes defined for morphology. --- + -- Note: mkPassive operation is at the moment incorrect. Low-level ending-analysis -- is needed to fix the operation. -resource MorphoRus = TypesRus ** open (Predef=Predef), Prelude in { -flags coding=utf8 ; +resource MorphoRus = ResRus ** open Prelude, (Predef=Predef) in { ---2 Personal (together with possesive) pronouns. +flags coding=utf8 ; + +----2 Personal (together with possesive) pronouns. oper pronYa: Pronoun = { s = table { PF Nom _ NonPoss => "Ñ" ; @@ -78,7 +81,7 @@ oper pronTu: Pronoun = PF Gen _ (Poss (ASg Neut)) => "твоего" ; PF Dat _ (Poss (ASg Neut)) => "твоему" ; PF Acc _ (Poss (ASg Neut)) => "твоё" ; - PF Inst _ (Poss (ASg Neut)) => "твоим" ; + PF Inst _ (Poss (ASg Neut)) => "твоим" ; PF Prepos _ (Poss (ASg Neut)) => "твоём" ; PF Nom _ (Poss APl) => "твои" ; PF Gen _ (Poss APl)=> "твоих" ; @@ -149,6 +152,7 @@ oper pronOno: Pronoun = g = PGen Neut ; n = Sg ; p = P3 ; + pron = True } ; @@ -306,43 +310,76 @@ oper pronChtoTo: Pronoun = p = P3 ; pron = False } ; -oper pronNikto: Pronoun = +oper pronEti: Pronoun = { s = table { - PF Nom _ _ => "никто" ; - PF Gen _ _ => "никого" ; - PF Dat _ _ => "никому" ; - PF Acc _ _ => "никого" ; - PF Inst _ _ => "никем" ; - PF Prepos _ _ => ["ни о ком"] -- only together with a preposition + PF Nom _ _ => "Ñти" ; + PF Gen _ _ => "Ñтих" ; + PF Dat _ _ => "Ñтим" ; + PF Acc _ _ => "Ñтих" ; + PF Inst _ _ => "Ñтими" ; + PF Prepos _ _ => "Ñтих" } ; - g = PGen Masc; - n = Sg ; - p = P3 ; - pron = False + n = Pl; + p = P3; + g= PGen Fem ; + anim = Animate ; + pron = False } ; -oper pronNichto: Pronoun = +oper pronTe: Pronoun = { s = table { - PF Nom _ _ => "ничто" ; - PF Gen _ _ => "ничего" ; - PF Dat _ _ => "ничему" ; - PF Acc _ _ => "ничего" ; - PF Inst _ _ => "ничем" ; - PF Prepos _ _ => ["ни о чём"] -- only together with preposition + PF Nom _ _ => "те" ; + PF Gen _ _ => "тех" ; + PF Dat _ _ => "тем" ; + PF Acc _ _ => "тех" ; + PF Inst _ _ => "теми" ; + PF Prepos _ _ => "тех" } ; - g = PGen Masc; - n = Sg ; - p = P3 ; - pron = False + n = Pl; + p = P3; + g=PGen Fem ; + anim = Animate ; + pron = False } ; + +--oper pronNikto: Pronoun = +-- { s = table { +-- PF Nom _ _ => "никто" ; +-- PF Gen _ _ => "никого" ; +-- PF Dat _ _ => "никому" ; +-- PF Acc _ _ => "никого" ; +-- PF Inst _ _ => "никем" ; +-- PF Prepos _ _ => ["ни о ком"] -- only together with a preposition +-- } ; +-- g = PGen Masc; +-- n = Sg ; +-- p = P3 ; +-- pron = False +-- } ; +-- +--oper pronNichto: Pronoun = +-- { s = table { +-- PF Nom _ _ => "ничто" ; +-- PF Gen _ _ => "ничего" ; +-- PF Dat _ _ => "ничему" ; +-- PF Acc _ _ => "ничего" ; +-- PF Inst _ _ => "ничем" ; +-- PF Prepos _ _ => ["ни о чём"] -- only together with preposition +-- } ; +-- g = PGen Masc; +-- n = Sg ; +-- p = P3 ; +-- pron = False +-- } ; +-- oper pronVseInanimate: Pronoun = { s = table { PF Nom _ _ => "вÑÑ‘" ; PF Gen _ _ => "вÑего" ; PF Dat _ _ => "вÑему" ; PF Acc _ _ => "вÑÑ‘" ; - PF Inst _ _ => "вÑем" ; + PF Inst _ _ => "вÑем" ; PF Prepos _ _ => "вÑём" } ; g = PGen Neut; @@ -351,68 +388,70 @@ oper pronVseInanimate: Pronoun = pron = False } ; ---2 Nouns - --- Help type SubstFormDecl is introduced to reduce repetition in --- the declination definitions. It allows us to define a declination type, --- namely, the String component "s" of the CommNoun type --- without any reference to the Gender parameter "g". - -oper SubstFormDecl = SS1 SubstForm ; - -oper gorlo : CommNoun = l_oEndInAnimateDecl "горл" ; -oper koleno : CommNoun = oEndInAnimateDecl "колен" ; -oper plecho : CommNoun = oEndInAnimateDecl "плеч" ; -oper ukho : CommNoun = oEnd_KH_InAnimateDecl "у" ; -oper zhivot : CommNoun = nullEndInAnimateDecl1 "живот" ; -oper grud : CommNoun = softSignEndDeclFem "груд" ; -oper ruka : CommNoun = aEndG_K_KH_Decl "рук" ; -oper spina : CommNoun = aEndInAnimateDecl "Ñпин" ; -oper stopa : CommNoun = aEndInAnimateDecl "Ñтоп" ; -oper sreda : CommNoun = aEndInAnimateDecl "Ñред" ; -oper pyatnica : CommNoun = aEndInAnimateDecl "пÑтниц" ; -oper subbota : CommNoun = aEndInAnimateDecl "Ñуббот" ; -oper astma : CommNoun = aEndInAnimateDecl "аÑтм" ; -oper angina : CommNoun = aEndInAnimateDecl "ангин" ; -oper revmatizm : CommNoun = nullEndInAnimateDecl1 "ревматизм" ; -oper zapor : CommNoun = nullEndInAnimateDecl1 "запор" ; -oper ponos : CommNoun = nullEndInAnimateDecl1 "поноÑ" ; -oper artrit : CommNoun = nullEndInAnimateDecl1 "артрит" ; -oper diabet : CommNoun = nullEndInAnimateDecl1 "диабет" ; -oper tsistit : CommNoun = nullEndInAnimateDecl1 "циÑтит" ; -oper izzhoga : CommNoun = aEndG_K_KH_Decl "изжог" ; -oper allergiya : CommNoun = i_yaEndDecl "аллерги" ; - -oper viagra : CommNoun = aEndInAnimateDecl "виагр" ; -oper antidepressant : CommNoun = nullEndInAnimateDecl1 "антидепреÑÑант" ; -oper insulin : CommNoun = nullEndInAnimateDecl1 "инÑулин" ; -oper vitamin : CommNoun = nullEndInAnimateDecl1 "витамин" ; -oper antibiotik : CommNoun = nullEndInAnimateDecl3 "антибиотик" ; -oper ponedelnik : CommNoun = nullEndInAnimateDecl3 "понедельник" ; -oper vtornik : CommNoun = nullEndInAnimateDecl3 "вторник" ; -oper chetverg : CommNoun = nullEndInAnimateDecl3 "четверг" ; - - -oper kaplya : CommNoun = (l_yaEndInAnimateDecl "кап") ** {g = Fem; anim = Inanimate} ; -oper snotvornoe : CommNoun = oeEndInAnimateDecl "Ñнотворн" ; -oper uspokoitelnoe : CommNoun = oeEndInAnimateDecl "уÑпокоительн" ; -oper slabitelnoe : CommNoun = oeEndInAnimateDecl "Ñлабительн" ; - -oper urolog : CommNoun = nullEndAnimateDecl "уролог" ; -oper ginekolog : CommNoun = nullEndAnimateDecl "гинеколог" ; -oper nevropatolog : CommNoun = nullEndAnimateDecl "невропатолог" ; -oper dermatolog : CommNoun = nullEndAnimateDecl "дерматолог" ; -oper kardiolog : CommNoun = nullEndAnimateDecl "кардиолог" ; -oper terapevt : CommNoun = nullEndAnimateDecl2 "терапевт" ; -oper okulist : CommNoun = nullEndAnimateDecl2 "окулиÑÑ‚" ; -oper pediatr : CommNoun = nullEndAnimateDecl2 "педиатр" ; -oper khirurg : CommNoun = nullEndAnimateDecl2 "хирург" ; - -oper muzhchina : CommNoun = (aEndAnimateDecl "мужчин") ** { g = Masc ; anim = Animate } ; -oper zhenchina : CommNoun = (aEndAnimateDecl "женщин") ** { g = Fem ; anim = Animate } ; -oper mama : CommNoun = (aEndAnimateDecl "мам")**{ g = Fem ; anim = Animate } ; -oper cena : CommNoun = (aEndAnimateDecl "цен") ** { g = Fem ; anim = Inanimate } ; - +----2 Nouns +-- +---- Help type SubstFormDecl is introduced to reduce repetition in +---- the declination definitions. It allows us to define a declination type, +---- namely, the String component "s" of the CommNoun type +---- without any reference to the Gender parameter "g". +-- +oper + CommNoun = {s : SubstForm => Str ; g : Gender ; anim : Animacy } ; + SubstFormDecl = SS1 SubstForm ; +-- +--oper gorlo : CommNoun = l_oEndInAnimateDecl "горл" ; +--oper koleno : CommNoun = oEndInAnimateDecl "колен" ; +--oper plecho : CommNoun = oEndInAnimateDecl "плеч" ; +--oper ukho : CommNoun = oEnd_KH_InAnimateDecl "у" ; +--oper zhivot : CommNoun = nullEndInAnimateDecl1 "живот" ; +--oper grud : CommNoun = softSignEndDeclFem "груд" ; +--oper ruka : CommNoun = aEndG_K_KH_Decl "рук" ; +--oper spina : CommNoun = aEndInAnimateDecl "Ñпин" ; +--oper stopa : CommNoun = aEndInAnimateDecl "Ñтоп" ; +--oper sreda : CommNoun = aEndInAnimateDecl "Ñред" ; +--oper pyatnica : CommNoun = aEndInAnimateDecl "пÑтниц" ; +--oper subbota : CommNoun = aEndInAnimateDecl "Ñуббот" ; +--oper astma : CommNoun = aEndInAnimateDecl "аÑтм" ; +--oper angina : CommNoun = aEndInAnimateDecl "ангин" ; +--oper revmatizm : CommNoun = nullEndInAnimateDecl1 "ревматизм" ; +--oper zapor : CommNoun = nullEndInAnimateDecl1 "запор" ; +--oper ponos : CommNoun = nullEndInAnimateDecl1 "поноÑ" ; +--oper artrit : CommNoun = nullEndInAnimateDecl1 "артрит" ; +--oper diabet : CommNoun = nullEndInAnimateDecl1 "диабет" ; +--oper tsistit : CommNoun = nullEndInAnimateDecl1 "циÑтит" ; +--oper izzhoga : CommNoun = aEndG_K_KH_Decl "изжог" ; +--oper allergiya : CommNoun = i_yaEndDecl "аллерги" ; +-- +--oper viagra : CommNoun = aEndInAnimateDecl "виагр" ; +--oper antidepressant : CommNoun = nullEndInAnimateDecl1 "антидепреÑÑант" ; +--oper insulin : CommNoun = nullEndInAnimateDecl1 "инÑулин" ; +--oper vitamin : CommNoun = nullEndInAnimateDecl1 "витамин" ; +--oper antibiotik : CommNoun = nullEndInAnimateDecl3 "антибиотик" ; +--oper ponedelnik : CommNoun = nullEndInAnimateDecl3 "понедельник" ; +--oper vtornik : CommNoun = nullEndInAnimateDecl3 "вторник" ; +--oper chetverg : CommNoun = nullEndInAnimateDecl3 "четверг" ; +-- +-- +--oper kaplya : CommNoun = (l_yaEndInAnimateDecl "кап") ** {g = Fem; anim = Inanimate} ; +--oper snotvornoe : CommNoun = oeEndInAnimateDecl "Ñнотворн" ; +--oper uspokoitelnoe : CommNoun = oeEndInAnimateDecl "уÑпокоительн" ; +--oper slabitelnoe : CommNoun = oeEndInAnimateDecl "Ñлабительн" ; +-- +--oper urolog : CommNoun = nullEndAnimateDecl "уролог" ; +--oper ginekolog : CommNoun = nullEndAnimateDecl "гинеколог" ; +--oper nevropatolog : CommNoun = nullEndAnimateDecl "невропатолог" ; +--oper dermatolog : CommNoun = nullEndAnimateDecl "дерматолог" ; +--oper kardiolog : CommNoun = nullEndAnimateDecl "кардиолог" ; +--oper terapevt : CommNoun = nullEndAnimateDecl2 "терапевт" ; +--oper okulist : CommNoun = nullEndAnimateDecl2 "окулиÑÑ‚" ; +--oper pediatr : CommNoun = nullEndAnimateDecl2 "педиатр" ; +--oper khirurg : CommNoun = nullEndAnimateDecl2 "хирург" ; +-- +--oper muzhchina : CommNoun = (aEndAnimateDecl "мужчин") ** { g = Masc ; anim = Animate } ; +--oper zhenchina : CommNoun = (aEndAnimateDecl "женщин") ** { g = Fem ; anim = Animate } ; +--oper mama : CommNoun = (aEndAnimateDecl "мам")**{ g = Fem ; anim = Animate } ; +--oper cena : CommNoun = (aEndAnimateDecl "цен") ** { g = Fem ; anim = Inanimate } ; +-- oper aEndAnimateDecl: Str -> SubstFormDecl = \muzhchin -> {s = table { SF Sg Nom => muzhchin+"а" ; @@ -422,14 +461,13 @@ oper aEndAnimateDecl: Str -> SubstFormDecl = \muzhchin -> SF Sg Inst => muzhchin+"ой" ; SF Sg Prepos => muzhchin +"е" ; SF Pl Nom => muzhchin +"Ñ‹" ; - SF Pl Gen => muzhchin ; - SF Pl Dat => muzhchin+"ам" ; + SF Pl Gen => muzhchin ; SF Pl Dat => muzhchin+"ам" ; SF Pl Acc => muzhchin ; SF Pl Inst => muzhchin+"ами" ; SF Pl Prepos => muzhchin+"ах" } } ; -oper stomatolog : CommNoun = nullEndAnimateDecl "Ñтоматолог" ; +--oper stomatolog : CommNoun = nullEndAnimateDecl "Ñтоматолог" ; oper nullEndInAnimateDecl: Str -> CommNoun = \stomatolog -> {s = table { SF Sg Nom => stomatolog ; @@ -440,7 +478,7 @@ oper nullEndInAnimateDecl: Str -> CommNoun = \stomatolog -> SF Sg Prepos => stomatolog+"е" ; SF Pl Nom => stomatolog+"и" ; SF Pl Gen => stomatolog+"ов" ; - SF Pl Dat => stomatolog+"ам" ; + SF Pl Dat => stomatolog+"ам" ; SF Pl Acc => stomatolog+"ов" ; SF Pl Inst => stomatolog+"ами" ; SF Pl Prepos => stomatolog+"ах" } ; @@ -457,7 +495,7 @@ oper nullEndAnimateDecl: Str -> CommNoun = \stomatolog -> SF Sg Prepos => stomatolog+"е" ; SF Pl Nom => stomatolog+"и" ; SF Pl Gen => stomatolog+"ов" ; - SF Pl Dat => stomatolog+"ам" ; + SF Pl Dat => stomatolog+"ам" ; SF Pl Acc => stomatolog+"ов" ; SF Pl Inst => stomatolog+"ами" ; SF Pl Prepos => stomatolog+"ах" } ; @@ -473,21 +511,21 @@ oper nullEndAnimateDecl2: Str -> CommNoun = \stomatolog -> SF Sg Prepos => stomatolog+"е" ; SF Pl Nom => stomatolog+"Ñ‹" ; SF Pl Gen => stomatolog+"ов" ; - SF Pl Dat => stomatolog+"ам" ; + SF Pl Dat => stomatolog+"ам" ; SF Pl Acc => stomatolog+"ов" ; SF Pl Inst => stomatolog+"ами" ; SF Pl Prepos => stomatolog+"ах" } ; g = Masc ; anim = Animate } ; -oper gripp : CommNoun = nullEndInAnimateDecl1 "грипп" ; -oper bar : CommNoun = nullEndInAnimateDecl1 "бар" ; -oper telefon: CommNoun = nullEndInAnimateDecl1 "телефон" ; -oper restoran : CommNoun = nullEndInAnimateDecl1 "реÑторан" ; - --- Note: Plural form of the "грипп" (influenza) is a bit doubious --- However, according to http://starling.rinet.ru/morph.htm it exists. --- so we also keep it. +--oper gripp : CommNoun = nullEndInAnimateDecl1 "грипп" ; +--oper bar : CommNoun = nullEndInAnimateDecl1 "бар" ; +--oper telefon: CommNoun = nullEndInAnimateDecl1 "телефон" ; +--oper restoran : CommNoun = nullEndInAnimateDecl1 "реÑторан" ; +-- +---- Note: Plural form of the "грипп" (influenza) is a bit doubious +---- However, according to http://starling.rinet.ru/morph.htm it exists. +---- so we also keep it. oper nullEndInAnimateDeclPepel: Str -> CommNoun = \gripp -> {s = table { SF Sg Nom => gripp +"ел"; @@ -502,7 +540,7 @@ oper nullEndInAnimateDeclPepel: Str -> CommNoun = \gripp -> SF Pl Acc => gripp +"лы"; SF Pl Inst => gripp+"лами" ; SF Pl Prepos => gripp+"лах" - } ; + } ; g = Masc ; anim = Inanimate } ; @@ -520,7 +558,7 @@ oper nullEndInAnimateDecl1: Str -> CommNoun = \gripp -> SF Pl Acc => gripp +"Ñ‹"; SF Pl Inst => gripp+"ами" ; SF Pl Prepos => gripp+"ах" - } ; + } ; g = Masc ; anim = Inanimate } ; @@ -538,9 +576,8 @@ oper nullEndInAnimateDeclStul: Str -> CommNoun = \brat -> SF Pl Acc => brat +"ьев"; SF Pl Inst => brat+"ÑŒÑми" ; SF Pl Prepos => brat+"ÑŒÑах" - } ; + } ; g = Masc ; anim = Inanimate - } ; oper nullEndAnimateDeclBrat: Str -> CommNoun = \brat -> {s = table @@ -549,60 +586,58 @@ oper nullEndAnimateDeclBrat: Str -> CommNoun = \brat -> SF Sg Dat => brat+"у" ; SF Sg Acc => brat +"а"; SF Sg Inst => brat+"ом" ; - SF Sg Prepos => brat+"е" ; + SF Sg Prepos => brat+"е" ; SF Pl Nom => brat+"ÑŒÑ" ; SF Pl Gen => brat+"ьев" ; SF Pl Dat => brat+"ÑŒÑм" ; SF Pl Acc => brat +"ьев"; SF Pl Inst => brat+"ÑŒÑми" ; SF Pl Prepos => brat+"ÑŒÑах" - } ; + } ; g = Masc ; anim = Animate } ; - -oper adres: CommNoun = nullEndInAnimateDecl2 "адреÑ" ; -oper dom : CommNoun = nullEndInAnimateDecl2 "дом" ; -oper svet : CommNoun = nullEndInAnimateDecl2 "Ñвет" ; +--oper adres: CommNoun = nullEndInAnimateDecl2 "адреÑ" ; +--oper dom : CommNoun = nullEndInAnimateDecl2 "дом" ; +--oper svet : CommNoun = nullEndInAnimateDecl2 "Ñвет" ; oper nullEndInAnimateDecl2: Str -> CommNoun = \gripp -> {s = table - { SF Sg Nom => gripp ; + { SF Sg Nom => gripp ; SF Sg Gen => gripp+"а" ; SF Sg Dat => gripp+"у" ; SF Sg Acc => gripp ; SF Sg Inst => gripp+"ом" ; SF Sg Prepos => gripp+"е" ; SF Pl Nom => gripp+"а" ; - SF Pl Gen => gripp+"ов" ; - + SF Pl Gen => gripp+"ов" ; SF Pl Dat => gripp+"ам" ; SF Pl Acc => gripp +"а"; SF Pl Inst => gripp+"ами" ; - SF Pl Prepos => gripp+"ах" + SF Pl Prepos => gripp+"ах" } ; g = Masc ; anim = Inanimate } ; -oper nullEndInAnimateDecl3: Str -> CommNoun = \antibiotik -> - {s = table - { SF Sg Nom => antibiotik ; - SF Sg Gen => antibiotik+"а" ; - SF Sg Dat => antibiotik+"у" ; - SF Sg Acc => antibiotik ; - SF Sg Inst => antibiotik+"ом" ; - SF Sg Prepos => antibiotik+"е" ; - SF Pl Nom => antibiotik+"и" ; - SF Pl Gen => antibiotik+"ов" ; - - SF Pl Dat => antibiotik+"ам" ; - SF Pl Acc => antibiotik +"и"; - SF Pl Inst => antibiotik+"ами" ; - SF Pl Prepos => antibiotik+"ах" - } ; - g = Masc ; anim = Inanimate - } ; - -oper obezbolivauchee : CommNoun = eeEndInAnimateDecl "обезболивающ" ; +--oper nullEndInAnimateDecl3: Str -> CommNoun = \antibiotik -> +-- {s = table +-- { SF Sg Nom => antibiotik ; +-- SF Sg Gen => antibiotik+"а" ; +-- SF Sg Dat => antibiotik+"у" ; +-- SF Sg Acc => antibiotik ; +-- SF Sg Inst => antibiotik+"ом" ; +-- SF Sg Prepos => antibiotik+"е" ; +-- SF Pl Nom => antibiotik+"и" ; +-- SF Pl Gen => antibiotik+"ов" ; +-- +-- SF Pl Dat => antibiotik+"ам" ; +-- SF Pl Acc => antibiotik +"и"; +-- SF Pl Inst => antibiotik+"ами" ; +-- SF Pl Prepos => antibiotik+"ах" +-- } ; +-- g = Masc ; anim = Inanimate +-- } ; +-- +--oper obezbolivauchee : CommNoun = eeEndInAnimateDecl "обезболивающ" ; oper eeEndInAnimateDecl: Str -> CommNoun = \obezbolivauch -> { s = table { SF Sg Nom => obezbolivauch +"ее"; @@ -656,25 +691,25 @@ oper oeEndAnimateDecl: Str -> CommNoun = \snotvorn -> g = Neut ; anim = Animate } ; -oper voskresenje : CommNoun = soft_eEndInAnimateDecl "воÑкреÑен" ; -oper soft_eEndInAnimateDecl: Str -> CommNoun = \proizvedeni -> - { s = table - { SF Sg Nom => proizvedeni +"ье"; - SF Sg Gen => proizvedeni+"ÑŒÑ" ; - SF Sg Dat => proizvedeni+"ью" ; - SF Sg Acc => proizvedeni +"ье"; - SF Sg Inst => proizvedeni+"ьем" ; - SF Sg Prepos => proizvedeni+"ье" ; - SF Pl Nom => proizvedeni+"ÑŒÑ" ; - SF Pl Gen => proizvedeni+"ий" ; - SF Pl Dat => proizvedeni+"ÑŒÑм" ; - SF Pl Acc => proizvedeni+"ÑŒÑ" ; - SF Pl Inst => proizvedeni+"ÑŒÑми" ; - SF Pl Prepos => proizvedeni+"ÑŒÑÑ…" - } ; - g = Neut ; anim = Inanimate - } ; -oper proizvedenie : CommNoun = eEndInAnimateDecl "произведени" ; +--oper voskresenje : CommNoun = soft_eEndInAnimateDecl "воÑкреÑен" ; +--oper soft_eEndInAnimateDecl: Str -> CommNoun = \proizvedeni -> +-- { s = table +-- { SF Sg Nom => proizvedeni +"ье"; +-- SF Sg Gen => proizvedeni+"ÑŒÑ" ; +-- SF Sg Dat => proizvedeni+"ью" ; +-- SF Sg Acc => proizvedeni +"ье"; +-- SF Sg Inst => proizvedeni+"ьем" ; +-- SF Sg Prepos => proizvedeni+"ье" ; +-- SF Pl Nom => proizvedeni+"ÑŒÑ" ; +-- SF Pl Gen => proizvedeni+"ий" ; +-- SF Pl Dat => proizvedeni+"ÑŒÑм" ; +-- SF Pl Acc => proizvedeni+"ÑŒÑ" ; +-- SF Pl Inst => proizvedeni+"ÑŒÑми" ; +-- SF Pl Prepos => proizvedeni+"ÑŒÑÑ…" +-- } ; +-- g = Neut ; anim = Inanimate +-- } ; +--oper proizvedenie : CommNoun = eEndInAnimateDecl "произведени" ; oper eEndInAnimateDecl: Str -> CommNoun = \proizvedeni -> { s = table { SF Sg Nom => proizvedeni +"е"; @@ -692,11 +727,11 @@ oper eEndInAnimateDecl: Str -> CommNoun = \proizvedeni -> } ; g = Neut ; anim = Inanimate } ; -oper chislo : CommNoun = l_oEndInAnimateDecl "чиÑл" ; -oper vino : CommNoun = l_oEndInAnimateDecl "вин" ; -oper l_oEndInAnimateDecl: Str -> CommNoun = \chisl -> - let { chis = Predef.tk 1 chisl ; ending = Predef.dp 3 chisl } in - oEndInAnimateDecl3 chisl (chis+"e"+ending) ; +--oper chislo : CommNoun = l_oEndInAnimateDecl "чиÑл" ; +--oper vino : CommNoun = l_oEndInAnimateDecl "вин" ; +--oper l_oEndInAnimateDecl: Str -> CommNoun = \chisl -> +-- let { chis = Predef.tk 1 chisl ; ending = Predef.dp 3 chisl } in +-- oEndInAnimateDecl3 chisl (chis+"e"+ending) ; oper oEndInAnimateDecl3: Str -> Str -> CommNoun = \chisl, chisel -> { s = table { SF Sg Nom => chisl +"о"; @@ -721,76 +756,72 @@ oper oEndInAnimateDecl: Str -> CommNoun = \plech -> SF Sg Gen => plech+"а" ; SF Sg Dat => plech+"у" ; SF Sg Acc => plech+"о" ; - SF Sg Inst => plech+"ом" ; - SF Sg Prepos => plech+"е" ; + SF Sg Inst => plech+"ом" ; SF Sg Prepos => plech+"е" ; SF Pl Nom => plech+"и" ; SF Pl Gen => plech; SF Pl Dat => plech+"ам" ; SF Pl Acc => plech+"и" ; SF Pl Inst => plech+"ами" ; - SF Pl Prepos => plech+"ÑÑ…" + SF Pl Prepos => plech+"ÑÑ…" } ; g = Neut ; anim = Inanimate } ; -oper oEnd_KH_InAnimateDecl: Str -> CommNoun = \u -> - { s = table - { SF Sg Nom => u+"хо" ; - SF Sg Gen => u+"ха" ; - SF Sg Dat => u+"ху" ; - SF Sg Acc => u+"хо" ; - SF Sg Inst => u+"хом" ; - SF Sg Prepos => u+"хе" ; - SF Pl Nom => u+"ши" ; - SF Pl Gen => u +"шей"; - SF Pl Dat => u+"шам" ; - SF Pl Acc => u+"ши" ; - SF Pl Inst => u+"шами" ; - SF Pl Prepos => u+"шах" - } ; - g = Neut ; anim = Inanimate - } ; - -oper malaria : CommNoun = i_yaEndDecl "малÑри" ; - -oper daniya : ProperName = mkCNProperName(i_yaEndDecl "Дани" ); -oper angliya : ProperName = mkCNProperName(i_yaEndDecl "Ðнгли") ; -oper finlyandiya : ProperName = mkCNProperName(i_yaEndDecl "ФинлÑнди") ; -oper franciya : ProperName = mkCNProperName(i_yaEndDecl "Франци" ); -oper germaniya : ProperName = mkCNProperName(i_yaEndDecl "Германи") ; -oper italiya : ProperName = mkCNProperName(i_yaEndDecl "Итали" ); -oper norvegiya : ProperName = mkCNProperName(i_yaEndDecl "Ðорвеги") ; -oper rossiya : ProperName = mkCNProperName(i_yaEndDecl "РоÑÑи") ; -oper ispaniya : ProperName = mkCNProperName(i_yaEndDecl "ИÑпани") ; -oper shveciya : ProperName = mkCNProperName(i_yaEndDecl "Швеци") ; - +--oper oEnd_KH_InAnimateDecl: Str -> CommNoun = \u -> +-- { s = table +-- { SF Sg Nom => u+"хо" ; +-- SF Sg Gen => u+"ха" ; +-- SF Sg Dat => u+"ху" ; +-- SF Sg Acc => u+"хо" ; +-- SF Sg Inst => u+"хом" ; -- SF Sg Prepos => u+"хе" ; +-- SF Pl Nom => u+"ши" ; +-- SF Pl Gen => u +"шей"; +-- SF Pl Dat => u+"шам" ; +-- SF Pl Acc => u+"ши" ; +-- SF Pl Inst => u+"шами" ; +-- SF Pl Prepos => u+"шах" +-- } ; +-- g = Neut ; anim = Inanimate +-- } ; +-- +--oper malaria : CommNoun = i_yaEndDecl "малÑри" ; +-- +--oper daniya : ProperName = mkCNProperName(i_yaEndDecl "Дани" ); +--oper angliya : ProperName = mkCNProperName(i_yaEndDecl "Ðнгли") ; +--oper finlyandiya : ProperName = mkCNProperName(i_yaEndDecl "ФинлÑнди") ; +--oper franciya : ProperName = mkCNProperName(i_yaEndDecl "Франци" ); +--oper germaniya : ProperName = mkCNProperName(i_yaEndDecl "Германи") ; +--oper italiya : ProperName = mkCNProperName(i_yaEndDecl "Итали" ); +--oper norvegiya : ProperName = mkCNProperName(i_yaEndDecl "Ðорвеги") ; +--oper rossiya : ProperName = mkCNProperName(i_yaEndDecl "РоÑÑи") ; +--oper ispaniya : ProperName = mkCNProperName(i_yaEndDecl "ИÑпани") ; +--oper shveciya : ProperName = mkCNProperName(i_yaEndDecl "Швеци") ; +-- oper i_yaEndDecl: Str -> CommNoun = \malar -> { s = table { SF Sg Nom => malar+"Ñ" ; SF Sg Gen => malar+"и" ; SF Sg Dat => malar+"и" ; SF Sg Acc => malar+"ÑŽ" ; - SF Sg Inst => malar+"ей" ; - SF Sg Prepos => malar+"и" ; + SF Sg Inst => malar+"ей" ; SF Sg Prepos => malar+"и" ; SF Pl Nom => malar+"и" ; SF Pl Gen => malar+"й" ; SF Pl Dat => malar+"Ñм" ; SF Pl Acc => malar+"и" ; SF Pl Inst => malar+"Ñми" ; - SF Pl Prepos => malar+"ÑÑ…" + SF Pl Prepos => malar+"ÑÑ…" } ; g = Fem ; anim = Inanimate } ; -oper bol : CommNoun = softSignEndDeclFem "бол" ; -oper nol : CommNoun = softSignEndDeclMasc "нол" ; -oper uroven : CommNoun = EN_softSignEndDeclMasc "уровен" ; +--oper bol : CommNoun = softSignEndDeclFem "бол" ; +--oper nol : CommNoun = softSignEndDeclMasc "нол" ; +--oper uroven : CommNoun = EN_softSignEndDeclMasc "уровен" ; oper softSignEndDeclFem: Str -> CommNoun = \bol -> {s = table { SF Sg Nom => bol+"ÑŒ" ; SF Sg Gen => bol+"и" ; SF Sg Dat => bol+"и" ; SF Sg Acc => bol+"ÑŒ" ; - SF Sg Inst => bol+"ью" ; SF Sg Prepos => bol+"и" ; SF Pl Nom => bol+"и" ; @@ -798,8 +829,7 @@ oper softSignEndDeclFem: Str -> CommNoun = \bol -> SF Pl Dat => bol+"Ñм" ; SF Pl Acc => bol+"и" ; SF Pl Inst => bol+"Ñми" ; - SF Pl Prepos => bol+"ÑÑ…" - } ; + SF Pl Prepos => bol+"ÑÑ…" } ; g = Fem ; anim = Inanimate } ; oper softSignEndDeclMasc: Str -> CommNoun = \nol -> @@ -862,7 +892,7 @@ oper EN_softSignEndDeclMasc: Str -> CommNoun = \rem -> SF Sg Gen => rem+"нÑ" ; SF Sg Dat => rem+"ню" ; SF Sg Acc => rem+"ень" ; - SF Sg Inst => rem+"нем" ; + SF Sg Inst => rem+"нем" ; SF Sg Prepos => rem+"не" ; SF Pl Nom => rem+"ни" ; SF Pl Gen => rem+"ней" ; @@ -874,10 +904,10 @@ oper EN_softSignEndDeclMasc: Str -> CommNoun = \rem -> g = Masc ; anim = Inanimate } ; -oper noga : CommNoun = aEndG_K_KH_Decl "ног" ; -oper doroga : CommNoun = aEndG_K_KH_Decl "дорог" ; -oper dvojka : CommNoun = aEndG_K_KH_Decl "двойк" ; -oper butyulka : CommNoun = aEndG_K_KH_Decl "бутылк" ; +--oper noga : CommNoun = aEndG_K_KH_Decl "ног" ; +--oper doroga : CommNoun = aEndG_K_KH_Decl "дорог" ; +--oper dvojka : CommNoun = aEndG_K_KH_Decl "двойк" ; +--oper butyulka : CommNoun = aEndG_K_KH_Decl "бутылк" ; oper aEndG_K_KH_Decl: Str -> CommNoun = \nog -> { s = table { SF Sg Nom => nog+"а" ; @@ -887,27 +917,27 @@ oper aEndG_K_KH_Decl: Str -> CommNoun = \nog -> SF Sg Inst => nog+"ой" ; SF Sg Prepos => nog+"е" ; SF Pl Nom => nog+"и" ; - SF Pl Gen => nog ; + SF Pl Gen => nog ; SF Pl Dat => nog+"ам" ; SF Pl Acc => nog+ "и" ; - SF Pl Inst => nog+"ами" ; + SF Pl Inst => nog+"ами" ; SF Pl Prepos => nog+"ах" } ; g = Fem ; anim = Inanimate } ; -oper golova : CommNoun = aEndInAnimateDecl "голов" ; -oper mashina : CommNoun = aEndInAnimateDecl "машин" ; -oper temperatura : CommNoun = aEndInAnimateDecl "температур" ; -oper edinica : CommNoun = ej_aEndInAnimateDecl "единиц" ; - +--oper golova : CommNoun = aEndInAnimateDecl "голов" ; +--oper mashina : CommNoun = aEndInAnimateDecl "машин" ; +--oper temperatura : CommNoun = aEndInAnimateDecl "температур" ; +--oper edinica : CommNoun = ej_aEndInAnimateDecl "единиц" ; +-- oper aEndInAnimateDecl: Str -> CommNoun = \golov -> { s = table { SF Sg Nom => golov+"а" ; SF Sg Gen => golov+"Ñ‹" ; SF Sg Dat => golov+"е" ; SF Sg Acc => golov+"у" ; - SF Sg Inst => golov+"ой" ; + SF Sg Inst => golov+"ой" ; SF Sg Prepos => golov+"е" ; SF Pl Nom => golov+"Ñ‹" ; SF Pl Gen => golov ; @@ -923,8 +953,8 @@ oper ej_aEndInAnimateDecl: Str -> CommNoun = \ediniz -> { SF Sg Nom => ediniz+"а" ; SF Sg Gen => ediniz+"Ñ‹" ; SF Sg Dat => ediniz+"е" ; - SF Sg Acc => ediniz+"у" ; - SF Sg Inst => ediniz+"ей" ; + SF Sg Acc => ediniz+"у" ; + SF Sg Inst => ediniz+"ей" ; SF Sg Prepos => ediniz+"е" ; SF Pl Nom => ediniz+"Ñ‹" ; SF Pl Gen => ediniz ; @@ -937,11 +967,10 @@ oper ej_aEndInAnimateDecl: Str -> CommNoun = \ediniz -> } ; -oper dyadya : CommNoun = (yaEndAnimateDecl "дÑд") ** {g = Masc; anim = Animate} ; +--oper dyadya : CommNoun = (yaEndAnimateDecl "дÑд") ** {g = Masc; anim = Animate} ; oper yaEndAnimateDecl: Str -> SubstFormDecl = \nyan -> -{s = table { - SF Sg Nom => nyan + "Ñ" ; - SF Sg Gen => nyan + "и" ; + {s = table { + SF Sg Nom => nyan + "Ñ" ; SF Sg Gen => nyan + "и" ; SF Sg Dat => nyan + "е" ; SF Sg Acc => nyan + "ÑŽ" ; SF Sg Inst => nyan + "ей" ; @@ -950,58 +979,56 @@ oper yaEndAnimateDecl: Str -> SubstFormDecl = \nyan -> SF Pl Gen => nyan + "ей" ; SF Pl Inst => nyan + "Ñми" ; SF Pl Prepos => nyan + "ÑÑ…" ; - SF Pl Dat => nyan + "Ñм" ; - SF Pl Acc => nyan + "ей" + SF Pl Dat => nyan + "Ñм" ; SF Pl Acc => nyan + "ей" } } ; -oper l_yaEndInAnimateDecl: Str -> SubstFormDecl = \kap -> -{s = table { - SF Sg Nom => kap + "лÑ" ; - SF Sg Gen => kap + "ли" ; - SF Sg Dat => kap + "ле" ; - SF Sg Acc => kap + "лю" ; - SF Sg Inst => kap + "лей" ; - SF Sg Prepos => kap + "ле" ; - SF Pl Nom => kap + "ли" ; - SF Pl Gen => kap + "ель" ; - SF Pl Inst => kap + "лÑми" ; - SF Pl Prepos => kap + "лÑÑ…" ; - SF Pl Dat => kap + "лÑм" ; - SF Pl Acc => kap + "ли" - } - } ; - -oper oEnd_Decl: Str -> CommNoun = \bolshinstv -> -{ s = table { - SF Sg Nom => bolshinstv+"о" ; - SF Sg Gen => bolshinstv+"а" ; - SF Sg Dat => bolshinstv+"у" ; - SF Sg Acc => bolshinstv+"о" ; - SF Sg Inst => bolshinstv+"ом" ; - SF Sg Prepos => bolshinstv+"е" ; - SF Pl Nom => bolshinstv+"а" ; - SF Pl Gen => bolshinstv ; - SF Pl Dat => bolshinstv+"ам" ; - SF Pl Acc => bolshinstv+ "а" ; - SF Pl Inst => bolshinstv+"ами" ; - SF Pl Prepos => bolshinstv+"ах" - } ; - g = Neut ; anim = Inanimate -} ; +--oper l_yaEndInAnimateDecl: Str -> SubstFormDecl = \kap -> +--{s = table { +-- SF Sg Nom => kap + "лÑ" ; -- SF Sg Gen => kap + "ли" ; +-- SF Sg Dat => kap + "ле" ; +-- SF Sg Acc => kap + "лю" ; +-- SF Sg Inst => kap + "лей" ; +-- SF Sg Prepos => kap + "ле" ; +-- SF Pl Nom => kap + "ли" ; +-- SF Pl Gen => kap + "ель" ; +-- SF Pl Inst => kap + "лÑми" ; +-- SF Pl Prepos => kap + "лÑÑ…" ; +-- SF Pl Dat => kap + "лÑм" ; -- SF Pl Acc => kap + "ли" +-- } +-- } ; +-- +--oper oEnd_Decl: Str -> CommNoun = \bolshinstv -> +--{ s = table { +-- SF Sg Nom => bolshinstv+"о" ; +-- SF Sg Gen => bolshinstv+"а" ; +-- SF Sg Dat => bolshinstv+"у" ; +-- SF Sg Acc => bolshinstv+"о" ; +-- SF Sg Inst => bolshinstv+"ом" ; +-- SF Sg Prepos => bolshinstv+"е" ; +-- SF Pl Nom => bolshinstv+"а" ; +-- SF Pl Gen => bolshinstv ; +-- SF Pl Dat => bolshinstv+"ам" ; +-- SF Pl Acc => bolshinstv+ "а" ; +-- SF Pl Inst => bolshinstv+"ами" ; +-- SF Pl Prepos => bolshinstv+"ах" +-- } ; +-- g = Neut ; anim = Inanimate +--} ; oper kg_oEnd_SgDecl: Str -> CommNoun = \mnog -> { s = table { SF _ Nom => mnog+"о" ; SF _ Gen => mnog +"их"; - SF _ Dat => mnog+"им" ; + SF _ Dat => mnog+"им" ; SF _ Acc => mnog+"о" ; SF _ Inst => mnog+"ими" ; SF _ Prepos => mnog+"их" } ; g = Neut ; anim = Inanimate } ; + oper oEnd_PlDecl: Str -> CommNoun = \menshinstv -> -{ s = table { + { s = table { SF _ Nom => menshinstv+"а" ; SF _ Gen => menshinstv; SF _ Dat => menshinstv+"ам" ; @@ -1010,9 +1037,10 @@ oper oEnd_PlDecl: Str -> CommNoun = \menshinstv -> SF _ Prepos => menshinstv+"вах" } ; g = Neut ; anim = Inanimate -} ; +} ; + oper oEnd_SgDecl: Str -> CommNoun = \bolshinstv -> -{ s = table { + {s = table { SF _ Nom => bolshinstv+"о" ; SF _ Gen => bolshinstv+"а" ; SF _ Dat => bolshinstv+"у" ; @@ -1030,84 +1058,88 @@ oper oEnd_SgDecl: Str -> CommNoun = \bolshinstv -> oper eEnd_Decl: Str -> CommNoun = \vs -> { s = table { - SF Sg Nom => vs+"е" ; + SF Sg Nom => vs+"е" ; SF Sg Gen => vs+"ех" ; SF Sg Dat => vs+"ем" ; SF Sg Acc => vs+"ех" ; SF Sg Inst => vs+"еми" ; SF Sg Prepos => vs+"ех" ; SF Pl Nom => vs+"е" ; - SF Pl Gen => vs +"ех"; + SF Pl Gen => vs +"ех"; SF Pl Dat => vs+"ем" ; SF Pl Acc => vs+ "ех" ; - SF Pl Inst => vs+"еми" ; + SF Pl Inst => vs+"еми" ; SF Pl Prepos => vs+"ех" } ; g = Neut ; anim = Inanimate } ; -mkAdjCommNounMascInanim: Adjective -> CommNoun = -\a -> -{ s = table { - SF Sg Nom => a.s ! AF Nom Inanimate (ASg Masc) ; - SF Sg Gen => a.s ! AF Gen Inanimate (ASg Masc) ; - SF Sg Dat => a.s ! AF Dat Inanimate (ASg Masc) ; - SF Sg Acc => a.s ! AF Acc Inanimate (ASg Masc) ; - SF Sg Inst => a.s ! AF Inst Inanimate (ASg Masc) ; - SF Sg Prepos => a.s ! AF Prepos Inanimate (ASg Masc) ; - SF Pl Nom => a.s ! AF Nom Inanimate APl ; - SF Pl Gen => a.s ! AF Gen Inanimate APl; - SF Pl Dat => a.s ! AF Dat Inanimate APl ; - SF Pl Acc => a.s ! AF Acc Inanimate APl ; - SF Pl Inst => a.s ! AF Inst Inanimate APl ; - SF Pl Prepos => a.s ! AF Prepos Inanimate APl - }; - g = Masc ; - anim = Inanimate -}; ---2 Adjectives - --- Type Adjective only has positive degree while AdjDegr type --- includes also comparative and superlative forms. --- The later entries can be converted into the former using --- "extAdjective" operation defined in the syntax module --- and vice verca using "mkAdjDeg" operation. - -oper - adjInvar: Str -> Adjective = \s -> { s = \\af => s }; - +--mkAdjCommNounMascInanim: Adjective -> CommNoun = +--\a -> +--{ s = table { +-- SF Sg Nom => a.s ! AF Nom Inanimate (ASg Masc) ; +-- SF Sg Gen => a.s ! AF Gen Inanimate (ASg Masc) ; +-- SF Sg Dat => a.s ! AF Dat Inanimate (ASg Masc) ; +-- SF Sg Acc => a.s ! AF Acc Inanimate (ASg Masc) ; +-- SF Sg Inst => a.s ! AF Inst Inanimate (ASg Masc) ; +-- SF Sg Prepos => a.s ! AF Prepos Inanimate (ASg Masc) ; +-- SF Pl Nom => a.s ! AF Nom Inanimate APl ; +-- SF Pl Gen => a.s ! AF Gen Inanimate APl; +-- SF Pl Dat => a.s ! AF Dat Inanimate APl ; +-- SF Pl Acc => a.s ! AF Acc Inanimate APl ; +-- SF Pl Inst => a.s ! AF Inst Inanimate APl ; +-- SF Pl Prepos => a.s ! AF Prepos Inanimate APl +-- }; +-- g = Masc ; +-- anim = Inanimate +--}; +----2 Adjectives +-- +---- Type Adjective only has positive degree while AdjDegr type +---- includes also comparative and superlative forms. +---- The later entries can be converted into the former using +---- "extAdjective" operation defined in the syntax module +---- and vice verca using "mkAdjDeg" operation. +-- +--oper +-- adjInvar: Str -> Adjective = \s -> { s = \\af => s }; +-- kazhdujDet: Adjective = uy_j_EndDecl "кажд" ; samuj: Adjective = uy_j_EndDecl "Ñам" ; - lubojDet: Adjective = uy_oj_EndDecl "люб" ; - drugojDet: Adjective = uy_oj_EndDecl "друг" ; - glaznoj: Adjective = uy_oj_EndDecl "глазн" ; +-- lubojDet: Adjective = uy_oj_EndDecl "люб" ; +-- drugojDet: Adjective = uy_oj_EndDecl "друг" ; +-- glaznoj: Adjective = uy_oj_EndDecl "глазн" ; kotorujDet: Adjective = uy_j_EndDecl "котор"; nekotorujDet: Adjective = uy_j_EndDecl "некотор"; takoj: Adjective = i_oj_EndDecl "так" []; - kakojNibudDet: Adjective = i_oj_EndDecl "как" "-нибудь"; - kakojDet: Adjective = i_oj_EndDecl "как" []; - nikakojDet: Adjective = i_oj_EndDecl "никак" []; +-- kakojNibudDet: Adjective = i_oj_EndDecl "как" "-нибудь"; +-- kakojDet: Adjective = i_oj_EndDecl "как" []; +-- nikakojDet: Adjective = i_oj_EndDecl "никак" []; bolshinstvoSgDet: Adjective = extAdjFromSubst (oEnd_SgDecl "большинÑтв"); mnogoSgDet: Adjective = extAdjFromSubst (kg_oEnd_SgDecl "мног"); skolkoSgDet: Adjective = extAdjFromSubst (kg_oEnd_SgDecl "Ñкольк"); - bolshinstvoPlDet: Adjective = extAdjFromSubst (oEnd_PlDecl "большинÑтв"); + bolshinstvoPlDet: Adjective = extAdjFromSubst (oEnd_PlDecl "большинÑтв"); + vseDetPl: Adjective = extAdjFromSubst (eEnd_Decl "вÑ") ; extAdjFromSubst: CommNoun -> Adjective = \ vse -> {s = \\af => vse.s ! SF (numAF af) (caseAF af) } ; - + +oper + AdjDegr : Type = {s : Degree => AdjForm => Str} ; + oper mkAdjDeg: Adjective -> Str -> AdjDegr = \adj, s -> { s = table { - Pos => adj.s ; - Comp => \\af => s ; - Super => \\af => samuj.s !af ++ adj.s ! af + Posit => adj.s ; + Compar => \\af => s ; + Superl => \\af => samuj.s !af ++ adj.s ! af } }; -oper uzhasnuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "ужаÑн") "ужаÑнее"; -oper schastlivyuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "ÑчаÑтлив") "ÑчаÑтливее"; -oper deshevuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "дешев") "дешевле"; -oper staruj: AdjDegr = mkAdjDeg (uy_j_EndDecl "Ñтар") "Ñтарше"; +--oper uzhasnuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "ужаÑн") "ужаÑнее"; +--oper schastlivyuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "ÑчаÑтлив") "ÑчаÑтливее"; +--oper deshevuj: AdjDegr = mkAdjDeg (uy_j_EndDecl "дешев") "дешевле"; +--oper staruj: AdjDegr = mkAdjDeg (uy_j_EndDecl "Ñтар") "Ñтарше"; oper totDet: Adjective = {s = table { AF Nom _ (ASg Masc) => "тот"; AF Nom _ (ASg Fem) => "та"; @@ -1127,7 +1159,7 @@ oper totDet: Adjective = {s = table { AF Inst _ (ASg Fem) => "той"; AF Inst _ (ASg Neut) => "тем"; AF Inst _ APl => "теми"; - AF Dat _ (ASg Masc) => "тому"; + AF Dat _ (ASg Masc) => "тому"; AF Dat _ (ASg Fem) => "той"; AF Dat _ (ASg Neut) => "тому"; AF Dat _ APl => "тем"; @@ -1138,6 +1170,36 @@ oper totDet: Adjective = {s = table { AdvF => "то" } } ; +oper odinDet: Adjective = {s = table { + AF Nom _ (ASg Masc) => "один"; + AF Nom _ (ASg Fem) => "одна"; + AF Nom _ (ASg Neut) => "одно"; + AF Nom _ APl => "одни"; + AF Acc Inanimate (ASg Masc) => "один"; + AF Acc Animate (ASg Masc) => "одного"; + AF Acc _ (ASg Fem) => "одну"; + AF Acc _ (ASg Neut) => "одно"; + AF Acc Inanimate APl => "одни"; + AF Acc Animate APl => "одних"; + AF Gen _ (ASg Masc) => "одного"; + AF Gen _ (ASg Fem) => "одной"; + AF Gen _ (ASg Neut) => "одного"; + AF Gen _ APl => "одних"; + AF Inst _ (ASg Masc) => "одним"; + AF Inst _ (ASg Fem) => "одной"; + AF Inst _ (ASg Neut) => "одним"; + AF Inst _ APl => "одними"; + AF Dat _ (ASg Masc) => "одному"; + AF Dat _ (ASg Fem) => "одной"; + AF Dat _ (ASg Neut) => "одному"; + AF Dat _ APl => "одним"; + AF Prepos _ (ASg Masc) => "одном"; + AF Prepos _ (ASg Fem) => "одной"; + AF Prepos _ (ASg Neut) => "одном"; + AF Prepos _ APl => "одних"; + AdvF => "одно" + } + } ; oper etotDet: Adjective = {s = table { AF Nom _ (ASg Masc) => "Ñтот"; AF Nom _ (ASg Fem) => "Ñта"; @@ -1153,7 +1215,7 @@ oper etotDet: Adjective = {s = table { AF Gen _ (ASg Fem) => "Ñтой"; AF Gen _ (ASg Neut) => "Ñтого"; AF Gen _ APl => "Ñтих"; - AF Inst _ (ASg Masc) => "Ñтим"; + AF Inst _ (ASg Masc) => "Ñтим"; AF Inst _ (ASg Fem) => "Ñтой"; AF Inst _ (ASg Neut) => "Ñтим"; AF Inst _ APl => "Ñтими"; @@ -1165,7 +1227,7 @@ oper etotDet: Adjective = {s = table { AF Prepos _ (ASg Fem) => "Ñтой"; AF Prepos _ (ASg Neut) => "Ñтом"; AF Prepos _ APl => "Ñтих"; - AdvF => "Ñто" + AdvF => "Ñто" } } ; oper vesDet: Adjective = {s = table { @@ -1195,82 +1257,113 @@ oper vesDet: Adjective = {s = table { AF Prepos _ (ASg Fem) => "вÑей"; AF Prepos _ (ASg Neut) => "вÑём"; AF Prepos _ APl => "вÑех" ; - AdvF => "полноÑтью" + AdvF => "полноÑтью" } } ; oper uy_j_EndDecl : Str -> Adjective = \s ->{s = table { - AF Nom _ (ASg Masc) => s+"ый"; - AF Nom _ (ASg Fem) => s+"аÑ"; - AF Nom _ (ASg Neut) => s+"ое"; - AF Nom _ APl => s+"ые"; - AF Acc Inanimate (ASg Masc) => s+"ый"; - AF Acc Animate (ASg Masc) => s+"ого"; - AF Acc _ (ASg Fem) => s+"ую"; - AF Acc _ (ASg Neut) => s+"ое"; - AF Acc Inanimate APl => s+"ые"; - AF Acc Animate APl => s+"Ñ‹Ñ…"; - AF Gen _ (ASg Masc) => s+"ого"; - AF Gen _ (ASg Fem) => s+"ой"; - AF Gen _ (ASg Neut) => s+"ого"; - AF Gen _ APl => s+"Ñ‹Ñ…"; - AF Inst _ (ASg Masc) => s+"ым"; - AF Inst _ (ASg Fem) => s+"ой"; - AF Inst _ (ASg Neut) => s+"ым"; - AF Inst _ APl => s+"ыми"; - AF Dat _ (ASg Masc) => s+"ому"; - AF Dat _ (ASg Fem) => s+"ой"; - AF Dat _ (ASg Neut) => s+"ому"; - AF Dat _ APl => s+"ым"; - AF Prepos _ (ASg Masc) => s+"ом"; - AF Prepos _ (ASg Fem) => s+"ой"; - AF Prepos _ (ASg Neut) => s+"ом"; - AF Prepos _ APl => s+"Ñ‹Ñ…"; - AdvF => "о" + AF Nom _ (ASg Masc) => s+ "ый"; + AF Nom _ (ASg Fem) => s + "аÑ"; + AF Nom _ (ASg Neut) => s + "ое"; + AF Nom _ APl => s + "ые"; + AF Acc Inanimate (ASg Masc) => s + "ый"; + AF Acc Animate (ASg Masc) => s + "ого"; + AF Acc _ (ASg Fem) => s + "ую"; + AF Acc _ (ASg Neut) => s + "ое"; + AF Acc Inanimate APl => s + "ые"; + AF Acc Animate APl => s + "Ñ‹Ñ…"; + AF Gen _ (ASg Masc) => s + "ого"; + AF Gen _ (ASg Fem) => s + "ой"; + AF Gen _ (ASg Neut) => s + "ого"; + AF Gen _ APl => s + "Ñ‹Ñ…"; + AF Inst _ (ASg Masc) => s + "ым"; + AF Inst _ (ASg Fem) => s + "ой"; + AF Inst _ (ASg Neut) => s + "ым"; + AF Inst _ APl => s + "ыми"; + AF Dat _ (ASg Masc) => s + "ому"; + AF Dat _ (ASg Fem) => s + "ой"; + AF Dat _ (ASg Neut) => s + "ому"; + AF Dat _ APl => s + "ым"; + AF Prepos _ (ASg Masc) => s + "ом"; + AF Prepos _ (ASg Fem) => s + "ой"; + AF Prepos _ (ASg Neut) => s + "ом"; + AF Prepos _ APl => s + "Ñ‹Ñ…"; + AdvF => s +"о" } } ; -oper shi_j_EndDecl : Str -> Adjective = \s ->{s = table { +oper ti_j_EndDecl : Str -> Adjective = \s ->{s = table { AF Nom _ (ASg Masc) => s+"ий"; - AF Nom _ (ASg Fem) => s+"аÑ"; - AF Nom _ (ASg Neut) => s+"ое"; - AF Nom _ APl => s+"ие"; + AF Nom _ (ASg Fem) => s+"ÑŒÑ"; + AF Nom _ (ASg Neut) => s+"ье"; + AF Nom _ APl => s+"ьи"; AF Acc Inanimate (ASg Masc) => s+"ий"; - AF Acc Animate (ASg Masc) => s+"его"; - AF Acc _ (ASg Fem) => s+"ую"; - AF Acc _ (ASg Neut) => s+"ое"; - AF Acc Inanimate APl => s+"ие"; - AF Acc Animate APl => s+"их"; - AF Gen _ (ASg Masc) => s+"его"; - AF Gen _ (ASg Fem) => s+"ей"; - AF Gen _ (ASg Neut) => s+"его"; - AF Gen _ APl => s+"их"; - AF Inst _ (ASg Masc) => s+"им"; - AF Inst _ (ASg Fem) => s+"ей"; - AF Inst _ (ASg Neut) => s+"им"; - AF Inst _ APl => s+"ими"; - AF Dat _ (ASg Masc) => s+"ему"; - AF Dat _ (ASg Fem) => s+"ей"; - AF Dat _ (ASg Neut) => s+"ему"; - AF Dat _ APl => s+"им"; - AF Prepos _ (ASg Masc) => s+"ем"; - AF Prepos _ (ASg Fem) => s+"ей"; - AF Prepos _ (ASg Neut) => s+"ем"; - AF Prepos _ APl => s+"их"; - AdvF => "о" + AF Acc Animate (ASg Masc) => s+"ьего"; + AF Acc _ (ASg Fem) => s+"ью"; + AF Acc _ (ASg Neut) => s+"ье"; + AF Acc Inanimate APl => s+"ьи"; + AF Acc Animate APl => s+"ьих"; + AF Gen _ (ASg Masc) => s+"ьего"; + AF Gen _ (ASg Fem) => s+"ьей"; + AF Gen _ (ASg Neut) => s+"ьего"; + AF Gen _ APl => s+"ьих"; + AF Inst _ (ASg Masc) => s+"ьим"; + AF Inst _ (ASg Fem) => s+"ьей"; + AF Inst _ (ASg Neut) => s+"ьим"; + AF Inst _ APl => s+"ьими"; + AF Dat _ (ASg Masc) => s+"ьему"; + AF Dat _ (ASg Fem) => s+"ьей"; + AF Dat _ (ASg Neut) => s+"ьему"; + AF Dat _ APl => s+"ьим"; + AF Prepos _ (ASg Masc) => s+"ьем"; + AF Prepos _ (ASg Fem) => s+"ьей"; + AF Prepos _ (ASg Neut) => s+"ьем"; + AF Prepos _ APl => s+"ьих"; + AdvF => s + "ье" } } ; -oper indijskij: Adjective = ij_EndK_G_KH_Decl "индийÑк" ; -oper francuzskij: Adjective = ij_EndK_G_KH_Decl "французÑк" ; -oper anglijskij: Adjective = ij_EndK_G_KH_Decl "английÑк" ; -oper datskij: Adjective = ij_EndK_G_KH_Decl "датÑк" ; -oper russkij: Adjective = ij_EndK_G_KH_Decl "руÑÑк" ; -oper italyanskij: Adjective = ij_EndK_G_KH_Decl "итальÑнÑк" ; -oper yaponskij: Adjective = ij_EndK_G_KH_Decl "ÑпонÑк" ; -oper malenkij: AdjDegr = mkAdjDeg (ij_EndK_G_KH_Decl "маленьк") "меньше" ; -oper vusokij: AdjDegr = mkAdjDeg (ij_EndK_G_KH_Decl "выÑок") "выше"; +--oper shi_j_EndDecl : Str -> Adjective = \s ->{s = table { +-- AF Nom _ (ASg Masc) => s+"ий"; +-- AF Nom _ (ASg Fem) => s+"аÑ"; +-- AF Nom _ (ASg Neut) => s+"ое"; +-- AF Nom _ APl => s+"ие"; +-- AF Acc Inanimate (ASg Masc) => s+"ий"; +-- AF Acc Animate (ASg Masc) => s+"его"; +-- AF Acc _ (ASg Fem) => s+"ую"; +-- AF Acc _ (ASg Neut) => s+"ое"; +-- AF Acc Inanimate APl => s+"ие"; +-- AF Acc Animate APl => s+"их"; +-- AF Gen _ (ASg Masc) => s+"его"; +-- AF Gen _ (ASg Fem) => s+"ей"; +-- AF Gen _ (ASg Neut) => s+"его"; +-- AF Gen _ APl => s+"их"; +-- AF Inst _ (ASg Masc) => s+"им"; +-- AF Inst _ (ASg Fem) => s+"ей"; +-- AF Inst _ (ASg Neut) => s+"им"; +-- AF Inst _ APl => s+"ими"; +-- AF Dat _ (ASg Masc) => s+"ему"; +-- AF Dat _ (ASg Fem) => s+"ей"; +-- AF Dat _ (ASg Neut) => s+"ему"; +-- AF Dat _ APl => s+"им"; +-- AF Prepos _ (ASg Masc) => s+"ем"; +-- AF Prepos _ (ASg Fem) => s+"ей"; +-- AF Prepos _ (ASg Neut) => s+"ем"; +-- AF Prepos _ APl => s+"их"; +-- AdvF => s + "о" +-- } +-- } ; +-- +--oper indijskij: Adjective = ij_EndK_G_KH_Decl "индийÑк" ; +--oper francuzskij: Adjective = ij_EndK_G_KH_Decl "французÑк" ; +--oper anglijskij: Adjective = ij_EndK_G_KH_Decl "английÑк" ; +--oper datskij: Adjective = ij_EndK_G_KH_Decl "датÑк" ; +--oper russkij: Adjective = ij_EndK_G_KH_Decl "руÑÑк" ; +--oper italyanskij: Adjective = ij_EndK_G_KH_Decl "итальÑнÑк" ; +--oper yaponskij: Adjective = ij_EndK_G_KH_Decl "ÑпонÑк" ; +--oper malenkij: AdjDegr = mkAdjDeg (ij_EndK_G_KH_Decl "маленьк") "меньше" ; +--oper vusokij: AdjDegr = mkAdjDeg (ij_EndK_G_KH_Decl "выÑок") "выше"; oper ij_EndK_G_KH_Decl : Str -> Adjective = \s ->{s = table { AF Nom _ (ASg Masc) => s+"ий"; - AF Nom _ (ASg Fem) => s+"аÑ"; + AF Nom _ (ASg Fem) => s+"аÑ"; AF Nom _ (ASg Neut) => s+"ое"; AF Nom _ APl => s+"ие"; AF Acc Animate (ASg Masc) => s+"ого"; @@ -1295,12 +1388,12 @@ oper ij_EndK_G_KH_Decl : Str -> Adjective = \s ->{s = table { AF Prepos _ (ASg Fem) => s+"ой"; AF Prepos _ (ASg Neut) => s+"ом"; AF Prepos _ APl => s+"их"; - AdvF => "о" + AdvF => s + "о" } } ; oper shij_End_Decl : Str -> Adjective = \s ->{s = table { AF Nom _ (ASg Masc) => s+"ий"; - AF Nom _ (ASg Fem) => s+"аÑ"; + AF Nom _ (ASg Fem) => s+"аÑ"; AF Nom _ (ASg Neut) => s+"ое"; AF Nom _ APl => s+"ие"; AF Acc Animate (ASg Masc) => s+"его"; @@ -1325,19 +1418,19 @@ oper shij_End_Decl : Str -> Adjective = \s ->{s = table { AF Prepos _ (ASg Fem) => s+"ей"; AF Prepos _ (ASg Neut) => s+"ем"; AF Prepos _ APl => s+"их"; - AdvF => "о" + AdvF => s + "о" } } ; -oper bolshoj: AdjDegr = mkAdjDeg (i_oj_EndDecl "больш" []) "больше"; -oper dorogoj: AdjDegr = mkAdjDeg (i_oj_EndDecl "дорог" []) "дороже"; +--oper bolshoj: AdjDegr = mkAdjDeg (i_oj_EndDecl "больш" []) "больше"; +--oper dorogoj: AdjDegr = mkAdjDeg (i_oj_EndDecl "дорог" []) "дороже"; oper i_oj_EndDecl : Str -> Str -> Adjective = \s, chastica ->{s = table { AF Nom _ (ASg Masc) => s+"ой" + chastica ; AF Nom _ (ASg Fem) => s+"аÑ"+ chastica ; AF Nom _ (ASg Neut) => s+"ое"+ chastica ; AF Nom _ APl => s+"ие"+ chastica ; AF Acc Animate (ASg Masc) => s+"ого"+ chastica ; - AF Acc Inanimate (ASg Masc) => s+"ое"+ chastica ; + AF Acc Inanimate (ASg Masc) => s+"ой"+ chastica ; AF Acc _ (ASg Fem) => s+"ую"+ chastica ; AF Acc _ (ASg Neut) => s+"ое"+ chastica ; AF Acc Animate APl => s+"их"+ chastica ; @@ -1346,11 +1439,11 @@ oper i_oj_EndDecl : Str -> Str -> Adjective = \s, chastica ->{s = table { AF Gen _ (ASg Fem) => s+"ой"+ chastica ; AF Gen _ (ASg Neut) => s+"ого"+ chastica ; AF Gen _ APl => s+"их"+ chastica ; - AF Inst _ (ASg Masc) => s+"им"+ chastica ; - AF Inst _ (ASg Fem) => s+"ой"+ chastica ; + AF Inst _ (ASg Masc) => s+"им"+ chastica ; + AF Inst _ (ASg Fem) => s+"ой"+ chastica ; AF Inst _ (ASg Neut) => s+"им"+ chastica ; AF Inst _ APl => s+"ими"+ chastica ; - AF Dat _ (ASg Masc) => s+"ому"+ chastica ; + AF Dat _ (ASg Masc) => s+"ому"+ chastica ; AF Dat _ (ASg Fem) => s+"ой"+ chastica ; AF Dat _ (ASg Neut) => s+"ому"+ chastica ; AF Dat _ APl => s+"им"+ chastica ; @@ -1358,10 +1451,11 @@ oper i_oj_EndDecl : Str -> Str -> Adjective = \s, chastica ->{s = table { AF Prepos _ (ASg Fem) => s+"ой"+ chastica ; AF Prepos _ (ASg Neut) => s+"ом"+ chastica ; AF Prepos _ APl => s+"их" + chastica; - AdvF => "о" + AdvF => s + "о" } } ; -oper molodoj: AdjDegr = mkAdjDeg (uy_oj_EndDecl "молод") "моложе"; +--oper molodoj: AdjDegr = mkAdjDeg (uy_oj_EndDecl "молод") "моложе"; + oper uy_oj_EndDecl : Str -> Adjective = \s ->{s = table { AF Nom _ (ASg Masc) => s+"ой"; AF Nom _ (ASg Fem) => s+"аÑ"; @@ -1369,7 +1463,7 @@ oper uy_oj_EndDecl : Str -> Adjective = \s ->{s = table { AF Nom _ APl => s+"ые"; AF Acc Animate (ASg Masc) => s+"ого"; AF Acc Inanimate (ASg Masc) => s+"ой"; - AF Acc _ (ASg Fem) => s+"ую"; + AF Acc _ (ASg Fem) => s+"ую"; AF Acc _ (ASg Neut) => s+"ое"; AF Acc Animate APl => s+"Ñ‹Ñ…"; AF Acc Inanimate APl => s+"ые"; @@ -1389,79 +1483,89 @@ oper uy_oj_EndDecl : Str -> Adjective = \s ->{s = table { AF Prepos _ (ASg Fem) => s+"ой"; AF Prepos _ (ASg Neut) => s+"ом"; AF Prepos _ APl => s+"Ñ‹Ñ…"; - AdvF => "о" + AdvF => s + "о" } } ; -oper prostuzhen: Adjective = shortDecl1 "проÑтужен" ; -oper beremenen: Adjective = shortDecl "беремен" ; -oper need: Adjective = shortDecl "нуж" ; -oper shortDecl1 : Str -> Adjective = \s ->{s = table { - AF _ _ (ASg Masc) => s; - AF _ _ (ASg Fem) => s+"а"; - AF _ _ (ASg Neut) => s+"о"; - AF _ _ APl => s+"Ñ‹" ; - AdvF => "о" - } - } ; -oper shortDecl : Str -> Adjective = \s ->{s = table { - AF _ _ (ASg Masc) => s +"ен"; - AF _ _ (ASg Fem) => s+"на"; - AF _ _ (ASg Neut) => s+"но"; - AF _ _ APl => s+"ны" ; - AdvF => "о" - } } ; - --- 2 Adverbs - -oper vsegda: Adverb = { s = "вÑегда" } ; -oper chorosho: Adverb = { s = "хорошо" } ; - --- 2 Verbs - --- Dummy verbum "have" that corresponds to the phrases like --- "I have a headache" in English. The corresponding sentence --- in Russian doesn't contain a verb: - -oper have: Verbum = {s=\\ vf => "-" ; asp = Imperfective} ; - --- There are two common conjugations --- (according to the number and the person of the subject) --- patterns in the present tense in the indicative mood. - +--oper prostuzhen: Adjective = shortDecl1 "проÑтужен" ; +--oper beremenen: Adjective = shortDecl "беремен" ; +--oper need: Adjective = shortDecl "нуж" ; +--oper shortDecl1 : Str -> Adjective = \s ->{s = table { +-- AF _ _ (ASg Masc) => s; +-- AF _ _ (ASg Fem) => s+"а"; +-- AF _ _ (ASg Neut) => s+"о"; +-- AF _ _ APl => s+"Ñ‹" ; +-- AdvF => s + "о" +-- } +-- } ; +--oper shortDecl : Str -> Adjective = \s ->{s = table { +-- AF _ _ (ASg Masc) => s +"ен"; +-- AF _ _ (ASg Fem) => s+"на"; +-- AF _ _ (ASg Neut) => s+"но"; +-- AF _ _ APl => s+"ны" ; +-- AdvF => s + "о" +-- } -- } ; +-- +---- 2 Adverbs +-- +--oper vsegda: Adverb = { s = "вÑегда" } ; +--oper chorosho: Adverb = { s = "хорошо" } ; +-- +---- 2 Verbs +-- +---- Dummy verbum "have" that corresponds to the phrases like +---- "I have a headache" in English. The corresponding sentence +---- in Russian doesn't contain a verb: +-- +--oper have: Verbum = {s=\\ vf => "-" ; asp = Imperfective} ; +-- +---- There are two common conjugations +---- (according to the number and the person of the subject) +---- patterns in the present tense in the indicative mood. +-- param Conjugation = First | FirstE | Second | Mixed | Dolzhen; +-- --3 First conjugation (in Present) verbs : +oper verbIdti : Verbum = verbDecl Imperfective First "ид" "у" "шел" "иди" "идти"; -oper verbGulyat : Verbum = verbDecl Imperfective First "гулÑ" "ÑŽ" "гулÑл" "гулÑй" "гулÑÑ‚ÑŒ"; -oper verbVkluchat : Verbum = verbDecl Imperfective First "включа" "ÑŽ" "включал" "включай" "включать"; +--oper verbGulyat : Verbum = verbDecl Imperfective First "гулÑ" "ÑŽ" "гулÑл" "гулÑй" "гулÑÑ‚ÑŒ"; +--oper verbVkluchat : Verbum = verbDecl Imperfective First "включа" "ÑŽ" "включал" "включай" "включать"; oper verbSuchestvovat : Verbum = verbDecl Imperfective First "ÑущеÑтву" "ÑŽ" "ÑущеÑтвовал" "ÑущеÑтвуй" "ÑущеÑтвовать"; -oper verbVukluchat : Verbum = verbDecl Imperfective First "выключа" "ÑŽ" "выключал" "выключай" "выключать"; -oper verbZhdat : Verbum = verbDecl Imperfective First "жд" "у" "ждал" "жди" "ждать" ; -oper verbBegat : Verbum = verbDecl Imperfective First "бега" "ÑŽ" "бегал" "бегай" "бегать"; -oper verbPrinimat : Verbum = verbDecl Imperfective First "принима" "ÑŽ" "принимал" "принимай" "принимать"; -oper verbDokazuvat : Verbum = verbDecl Imperfective First "доказыва" "ÑŽ" "доказывал" "доказывай" "доказывать"; -oper verbPredpochitat : Verbum = verbDecl Imperfective First "предпочита" "ÑŽ" "предпочитал" "предпочитай" "предпочитать"; -oper verbOtpravlyat : Verbum = verbDecl Imperfective First "отправлÑ" "ÑŽ" "отправлÑл" "отправлÑй" "отправлÑÑ‚ÑŒ"; -oper verbSlomat : Verbum = verbDecl Perfective First "Ñлома" "ÑŽ" "Ñломал" "Ñломай" "Ñломать"; +--oper verbVukluchat : Verbum = verbDecl Imperfective First "выключа" "ÑŽ" "выключал" "выключай" "выключать"; +--oper verbZhdat : Verbum = verbDecl Imperfective First "жд" "у" "ждал" "жди" "ждать" ; +--oper verbBegat : Verbum = verbDecl Imperfective First "бега" "ÑŽ" "бегал" "бегай" "бегать"; +--oper verbPrinimat : Verbum = verbDecl Imperfective First "принима" "ÑŽ" "принимал" "принимай" "принимать"; +--oper verbDokazuvat : Verbum = verbDecl Imperfective First "доказыва" "ÑŽ" "доказывал" "доказывай" "доказывать"; +--oper verbPredpochitat : Verbum = verbDecl Imperfective First "предпочита" "ÑŽ" "предпочитал" "предпочитай" "предпочитать"; +--oper verbOtpravlyat : Verbum = verbDecl Imperfective First "отправлÑ" "ÑŽ" "отправлÑл" "отправлÑй" "отправлÑÑ‚ÑŒ"; +--oper verbSlomat : Verbum = verbDecl Perfective First "Ñлома" "ÑŽ" "Ñломал" "Ñломай" "Ñломать"; + + +---- Verbs with vowel "Ñ‘": "даёшь" (give), "пьёшь" (drink) : +--oper verbDavat : Verbum = verbDecl Imperfective FirstE "да" "ÑŽ" "давал" "давай" "давать"; +--oper verbPit : Verbum = verbDecl Imperfective FirstE "пь" "ÑŽ" "пил" "пей" "пить"; +-- + + oper verbByut : Verbum = verbDecl Perfective First "буд" "у" "был" "будь" "быть"; + oper verbMoch : Verbum = verbDeclMoch Imperfective First "мог" "у" "мог" "моги" "мочь" "мож"; --- Verbs with vowel "Ñ‘": "даёшь" (give), "пьёшь" (drink) : -oper verbDavat : Verbum = verbDecl Imperfective FirstE "да" "ÑŽ" "давал" "давай" "давать"; -oper verbPit : Verbum = verbDecl Imperfective FirstE "пь" "ÑŽ" "пил" "пей" "пить"; - ---3 Second conjugation (in Present) verbs : - -oper verbLubit : Verbum = verbDecl Imperfective Second "люб" "лю" "любил" "люби" "любить"; -oper verbGovorit : Verbum = verbDecl Imperfective Second "говор" "ÑŽ" "говорил" "говори" "говорить"; - oper verbBolet_2 : Verbum = verbDecl Imperfective Second "бол" "ÑŽ" "болел" "боли" "болеть"; -oper verbPoranit : Verbum = verbDecl Perfective Second "поран" "ÑŽ" "поранил" "порань" "поранить"; - -- Irregular Mixed: +----3 Second conjugation (in Present) verbs : +-- +--oper verbLubit : Verbum = verbDecl Imperfective Second "люб" "лю" "любил" "люби" "любить"; +--oper verbGovorit : Verbum = verbDecl Imperfective Second "говор" "ÑŽ" "говорил" "говори" "говорить"; +-- +--oper verbBolet_2 : Verbum = verbDecl Imperfective Second "бол" "ÑŽ" "болел" "боли" "болеть"; +--oper verbPoranit : Verbum = verbDecl Perfective Second "поран" "ÑŽ" "поранил" "порань" "поранить"; +-- +-- Irregular Mixed: oper verbKhotet : Verbum = verbDecl Imperfective Mixed "хоч" "у" "хотел" "хоти" "хотеть"; -- Irregular oper verbDolzhen : Verbum = verbDecl Imperfective Dolzhen "долж" "ен" "долж" ["будь должен"] ["быть должным"] ; + -- To reduces the redundancies in the definitions -- we introduce some intermediate types, -- so that the full type can be described as a combination @@ -1471,6 +1575,8 @@ oper verbDolzhen : Verbum = verbDecl Imperfective Dolzhen "долж" "ен" "д oper AspectVoice: Type = { s : VerbConj => Str ; asp: Aspect } ; +idetDozhd: Verbum -> Verbum = \idet -> {s = \\vf=>idet.s!vf ++ "дождь"; asp = Imperfective}; + -- "PresentVerb" takes care of the present tense conjugation. param PresentVF = PRF GenNum Person; @@ -1498,7 +1604,7 @@ oper presentConjMixed: Str -> Str -> PresentVerb = \del, sgP1End -> PRF APl P3 => del+ "ÑÑ‚" }; oper presentConj2: Str -> Str -> PresentVerb = \del, sgP1End -> - table { +table { PRF (ASg _) P1 => del+ sgP1End ; PRF (ASg _) P2 => del+ "ишь" ; PRF (ASg _) P3 => del+ "ит" ; @@ -1512,7 +1618,7 @@ oper presentConj1E: Str -> Str -> PresentVerb = \del, sgP1End -> PRF (ASg _) P1 => del+ sgP1End ; PRF (ASg _) P2 => del+ "ёшь" ; PRF (ASg _) P3 => del+ "Ñ‘Ñ‚" ; - PRF APl P1 => del+ "ём" ; + PRF APl P1 => del+ "ём" ; PRF APl P2 => del+ "ёте" ; PRF APl P3 => del+ sgP1End + "Ñ‚" }; @@ -1521,17 +1627,16 @@ oper presentConj1: Str -> Str -> PresentVerb = \del, sgP1End -> PRF (ASg _) P1 => del+ sgP1End ; PRF (ASg _) P2 => del+ "ешь" ; PRF (ASg _) P3 => del+ "ет" ; - PRF APl P1 => del+ "ем" ; + PRF APl P1 => del+ "ем" ; PRF APl P2 => del+ "ете" ; PRF APl P3 => del+ sgP1End + "Ñ‚" }; - oper presentConj1Moch: Str -> Str -> Str -> PresentVerb = \del, sgP1End, altRoot -> - table { + table { PRF (ASg _) P1 => del + sgP1End ; PRF (ASg _) P2 => altRoot + "ешь" ; PRF (ASg _) P3 => altRoot + "ет" ; - PRF APl P1 => altRoot + "ем" ; + PRF APl P1 => altRoot + "ем" ; PRF APl P2 => altRoot + "ете" ; PRF APl P3 => del+ sgP1End + "Ñ‚" }; @@ -1550,7 +1655,7 @@ oper pastConj: Str -> PastVerb = \del -> oper pastConjDolzhen: Str -> PastVerb = \del -> table { - PSF (ASg Masc) => ["был "] + del + "ен" ; + PSF (ASg Masc) => ["был "] + del + "ен" ; PSF (ASg Fem) => ["была "] + del + "на" ; PSF (ASg Neut) => ["было "] + del + "но" ; PSF APl => ["были "] + del + "ны" @@ -1558,7 +1663,7 @@ oper pastConjDolzhen: Str -> PastVerb = \del -> -- "verbDecl" sorts out verbs according to the aspect and voice parameters. -- It produces the full conjugation table for a verb entry - + oper verbDecl: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> Verbum = \a, c, del, sgP1End, sgMascPast, imperSgP2, inf -> case a of { Perfective => case c of { @@ -1581,7 +1686,7 @@ oper verbDecl: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> Verbum -- "могу - можешь" oper verbDeclMoch: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> Str -> Verbum = \a, c, del, sgP1End, sgMascPast, imperSgP2, inf, altRoot -> case a of -{ Perfective => mkVerb (perfectiveActivePattern inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConj sgMascPast)) (pastConj sgMascPast); + { Perfective => mkVerb (perfectiveActivePattern inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConj sgMascPast)) (pastConj sgMascPast); Imperfective => mkVerb (imperfectiveActivePattern inf imperSgP2 (presentConj1Moch del sgP1End altRoot) (pastConj sgMascPast)) (pastConj sgMascPast) }; @@ -1591,38 +1696,37 @@ oper verbDeclMoch: Aspect -> Conjugation -> Str -> Str -> Str -> Str ->Str -> St -- Passive is expressed in Russian by so called reflexive verbs, -- which are formed from the active form by suffixation. - oper mkVerb : AspectVoice -> PastVerb -> Verbum = \av1, pv -> - { s = table { +oper mkVerb : AspectVoice -> PastVerb -> Verbum = \av1, pv -> { s = table { VFORM Act vf => av1.s !vf; VFORM Pass vf => (mkPassive av1 pv ).s ! vf } ; asp = av1.asp }; - vowels : Strs = strs { - "а" ; "е" ; "Ñ‘" ; "и" ; "о" ; "у" ; - "Ñ‹" ; "Ñ" ; "ÑŽ" ; "Ñ" - } ; - +-- vowels : Strs = strs { +-- "а" ; "е" ; "Ñ‘" ; "и" ; "о" ; "у" ; +-- "Ñ‹" ; "Ñ" ; "ÑŽ" ; "Ñ" +-- } ; +-- oper mkPassive: AspectVoice -> PastVerb -> AspectVoice = \av, pv -> { s = table { VINF => av.s ! VINF + "ÑÑ"; VIMP Sg P1 => av.s ! (VIMP Sg P1) +"ÑÑŒ" ; - VIMP Pl P1 => av.s ! (VIMP Pl P1) +"ÑÑ"; + VIMP Pl P1 => av.s ! (VIMP Pl P1) +"ÑÑ"; VIMP Sg P2 => av.s ! (VIMP Sg P2 ) +"ÑÑŒ"; VIMP Pl P2 => av.s! (VIMP Pl P2) +"ÑÑŒ"; - VIMP Sg P3 => av.s ! (VIMP Sg P3) +"ÑÑ"; - VIMP Pl P3 => av.s ! (VIMP Pl P3) +"ÑÑ"; - VSUB (ASg Masc) => pv ! (PSF (ASg Masc)) + "ÑÑ"+[" бы"]; - VSUB (ASg Fem) => pv ! (PSF (ASg Fem)) + "ÑÑŒ"+[" бы"]; - VSUB (ASg Neut) => pv ! (PSF (ASg Neut)) + "ÑÑŒ"+[" бы"]; - VSUB APl => pv ! (PSF APl) + "ÑÑŒ"+[" бы"] ; + VIMP Sg P3 => av.s ! (VIMP Sg P3) +"ÑÑ"; + VIMP Pl P3 => av.s ! (VIMP Pl P3) +"ÑÑ"; + VSUB (ASg Masc) => pv ! (PSF (ASg Masc)) + "ÑÑ"++"бы"; + VSUB (ASg Fem) => pv ! (PSF (ASg Fem)) + "ÑÑŒ"++"бы"; + VSUB (ASg Neut) => pv ! (PSF (ASg Neut)) + "ÑÑŒ"++"бы"; + VSUB APl => pv ! (PSF APl) + "ÑÑŒ"+"бы" ; VIND (ASg _) (VPresent P1) => -- case av.asp of { Imperfective => av.s ! (VIND (ASg Masc) (VPresent P1)) + "ÑÑŒ" ; -- Perfective = > nonExist -- } ; - VIND (ASg _) (VPresent P2) => av.s ! (VIND (ASg Masc) (VPresent P2))+ "ÑÑ" ; + VIND (ASg _) (VPresent P2) => av.s ! (VIND (ASg Masc) (VPresent P2))+ "ÑÑ" ; VIND (ASg _) (VPresent P3) => av.s ! (VIND (ASg Masc) (VPresent P3))+ "ÑÑ" ; VIND APl (VPresent P1) => av.s !( VIND APl (VPresent P1)) + "ÑÑ" ; VIND APl (VPresent P2) => av.s !( VIND APl (VPresent P2)) + "ÑÑŒ" ; @@ -1630,7 +1734,7 @@ oper mkPassive: AspectVoice -> PastVerb -> AspectVoice = \av, pv -> VIND (ASg _) (VFuture P1) => av.s ! (VIND (ASg Masc) (VFuture P1)) + "ÑÑŒ"; VIND (ASg _) (VFuture P2) => av.s! (VIND (ASg Masc) (VFuture P2) )+ "ÑÑ"; VIND (ASg _) (VFuture P3) => av.s! (VIND (ASg Masc) (VFuture P3)) + "ÑÑ"; - VIND APl (VFuture P1) => av.s! (VIND APl (VFuture P1) )+ "ÑÑ"; + VIND APl (VFuture P1) => av.s! (VIND APl (VFuture P1) )+ "ÑÑ"; VIND APl (VFuture P2) => av.s! (VIND APl (VFuture P2) )+ "ÑÑŒ"; VIND APl (VFuture P3) => av.s! (VIND APl (VFuture P3)) + "ÑÑ"; VIND (ASg Masc) VPast => av.s ! (VIND (ASg Masc) VPast ) + "ÑÑ"; @@ -1638,42 +1742,40 @@ oper mkPassive: AspectVoice -> PastVerb -> AspectVoice = \av, pv -> VIND (ASg Neut) VPast => av.s ! (VIND (ASg Neut) VPast) + "ÑÑŒ"; VIND APl VPast => av.s ! (VIND APl VPast ) + "ÑÑŒ" } ; - asp = av.asp + asp = av.asp }; -- Generation the imperfective active pattern given -- a number of basic conjugation forms. oper - imperfectiveActivePattern : Str -> Str -> PresentVerb -> PastVerb -> AspectVoice = + imperfectiveActivePattern : Str -> Str -> PresentVerb -> PastVerb -> AspectVoice = \inf, imper, presentFuture, past -> { s= table { VINF => inf ; - VIMP Sg P1 => ["давайте "]+ inf ; - VIMP Pl P1 => ["давайте "] + inf ; + VIMP Sg P1 => "давайте" ++ inf ; + VIMP Pl P1 => "давайте" ++ inf ; VIMP Sg P2 => imper ; VIMP Pl P2 => imper+"те" ; - VIMP Sg P3 => ["пуÑкай "] + presentFuture ! (PRF (ASg Masc) P3) ; - VIMP Pl P3 => ["пуÑкай "] + presentFuture ! (PRF APl P3) ; - VSUB (ASg Masc) => past ! (PSF (ASg Masc)) +[" бы"]; - VSUB (ASg Fem) => past ! (PSF (ASg Fem)) +[" бы"]; - - VSUB (ASg Neut) => past ! (PSF (ASg Neut) )+[" бы"]; - VSUB APl => past ! (PSF APl) +[" бы"]; + VIMP Sg P3 => "пуÑÑ‚ÑŒ" ++ presentFuture ! (PRF (ASg Masc) P3) ; + VIMP Pl P3 => "пуÑÑ‚ÑŒ" ++ presentFuture ! (PRF APl P3) ; + VSUB (ASg Masc) => past ! (PSF (ASg Masc)) ++"бы"; + VSUB (ASg Fem) => past ! (PSF (ASg Fem)) ++"бы"; + VSUB (ASg Neut) => past ! (PSF (ASg Neut) )++"бы"; + VSUB APl => past ! (PSF APl) ++"бы"; VIND (ASg _) (VPresent P1) => presentFuture ! ( PRF (ASg Masc) P1); VIND (ASg _) (VPresent P2) => presentFuture! (PRF (ASg Masc) P2) ; VIND (ASg _) (VPresent P3) => presentFuture ! (PRF (ASg Masc) P3) ; - VIND APl (VPresent P1) => presentFuture ! (PRF APl P1); + VIND APl (VPresent P1) => presentFuture ! (PRF APl P1); VIND APl (VPresent P2) => presentFuture ! (PRF APl P2); VIND APl (VPresent P3) => presentFuture ! (PRF APl P3); - VIND (ASg _) (VFuture P1) => ["буду "] + presentFuture ! (PRF (ASg Masc) P1) ; - VIND (ASg _) (VFuture P2) => ["будешь"] + presentFuture ! (PRF (ASg Masc) P2) ; - VIND (ASg _) (VFuture P3) => ["будет "] + presentFuture ! (PRF (ASg Masc) P3) ; - VIND APl (VFuture P1) => ["будем "] + presentFuture ! (PRF APl P1) ; - VIND APl (VFuture P2) => ["будете "] + presentFuture ! (PRF APl P2) ; - VIND APl (VFuture P3) => ["будут "] + presentFuture ! (PRF APl P3) ; - + VIND (ASg _) (VFuture P1) => "буду" ++ inf ; + VIND (ASg _) (VFuture P2) => "будешь" ++ inf ; + VIND (ASg _) (VFuture P3) => "будет" ++ inf ; + VIND APl (VFuture P1) => "будем" ++ inf ; + VIND APl (VFuture P2) => "будете" ++ inf ; + VIND APl (VFuture P3) => "будут" ++ inf ; VIND (ASg Masc) VPast => past ! (PSF (ASg Masc)) ; - VIND (ASg Fem) VPast => past ! (PSF (ASg Fem) ) ; + VIND (ASg Fem) VPast => past ! (PSF (ASg Fem) ) ; VIND (ASg Neut) VPast => past ! (PSF (ASg Neut)) ; VIND APl VPast => past ! (PSF APl) } ; @@ -1683,17 +1785,17 @@ oper oper perfectiveActivePattern: Str -> Str -> PresentVerb -> PastVerb -> AspectVoice = \inf, imper, presentFuture, past -> { s= table { VINF => inf ; - VIMP Sg P1 => ["давайте "]+ presentFuture ! (PRF (ASg Masc) P1); - VIMP Pl P1 => ["давайте "] + presentFuture ! (PRF APl P1); + VIMP Sg P1 => "давайте"++ presentFuture ! (PRF (ASg Masc) P1); + VIMP Pl P1 => "давайте" ++ presentFuture ! (PRF APl P1); VIMP Sg P2 => imper ; VIMP Pl P2 => imper+"те" ; - VIMP Sg P3 => ["пуÑкай "] + presentFuture ! (PRF (ASg Masc) P3) ; - VIMP Pl P3 => ["пуÑкай "] + presentFuture ! (PRF APl P3) ; - VSUB (ASg Masc) => past ! (PSF (ASg Masc)) +[" бы"]; - VSUB (ASg Fem) => past ! (PSF (ASg Fem)) +[" бы"]; + VIMP Sg P3 => "пуÑÑ‚ÑŒ" ++ presentFuture ! (PRF (ASg Masc) P3) ; + VIMP Pl P3 => "пуÑÑ‚ÑŒ" ++ presentFuture ! (PRF APl P3) ; + VSUB (ASg Masc) => past ! (PSF (ASg Masc)) ++"бы"; + VSUB (ASg Fem) => past ! (PSF (ASg Fem)) ++"бы"; - VSUB (ASg Neut) => past ! (PSF (ASg Neut) )+[" бы"]; - VSUB APl => past ! (PSF APl) +[" бы"]; + VSUB (ASg Neut) => past ! (PSF (ASg Neut) )++"бы"; + VSUB APl => past ! (PSF APl) ++"бы"; VIND (ASg _) (VPresent _) => [] ; VIND APl (VPresent P1) => nonExist ; VIND APl (VPresent P2) => nonExist ; @@ -1701,7 +1803,7 @@ oper VIND (ASg _) (VFuture P1) => presentFuture ! (PRF (ASg Masc) P1) ; VIND (ASg _) (VFuture P2) => presentFuture ! (PRF (ASg Masc) P2) ; VIND (ASg _) (VFuture P3) => presentFuture ! (PRF (ASg Masc) P3) ; - VIND APl (VFuture P1) => presentFuture ! (PRF APl P1) ; + VIND APl (VFuture P1) => presentFuture ! (PRF APl P1) ; VIND APl (VFuture P2) => presentFuture ! (PRF APl P2) ; VIND APl (VFuture P3) => presentFuture ! (PRF APl P3) ; VIND (ASg Masc) VPast => past ! (PSF (ASg Masc)) ; @@ -1712,13 +1814,14 @@ oper asp = Perfective } ; ---2 Proper names are a simple kind of noun phrases. - - ProperName : Type = {s : Case => Str ; g : Gender ; anim : Animacy} ; - - mkCNProperName : CommNoun -> ProperName = \cn -> -{s = \\c => cn.s! (SF Sg c); g=cn.g; anim = cn.anim }; - +----2 Proper names are a simple kind of noun phrases. +-- +oper + ProperName : Type = {s : Case => Str ; g : Gender ; anim : Animacy} ; +-- +-- mkCNProperName : CommNoun -> ProperName = \cn -> +--{s = \\c => cn.s! (SF Sg c); g=cn.g; anim = cn.anim }; +-- mkProperNameMasc : Str -> Animacy -> ProperName = \ivan, anim -> { s = table { Nom => ivan ; Gen => ivan + "а"; @@ -1740,25 +1843,6 @@ oper Prepos => masha + "е" } ; g = Fem ; anim = anim }; --- For Numerals: -param DForm = unit | teen | ten | hund ; -param Place = attr | indep ; -param Size = nom | sgg | plg ; ---param Gend = masc | fem | neut ; -oper mille : Size => Str = table { - {nom} => "Ñ‚Ñ‹ÑÑча" ; - {sgg} => "Ñ‚Ñ‹ÑÑчи" ; - _ => "Ñ‚Ñ‹ÑÑч"} ; +}; -oper gg : Str -> Gender => Str = \s -> table {_ => s} ; - -oper sebya : Case => Str =table { -Nom => ""; -Gen => "ÑебÑ"; -Dat=> "Ñебе"; -Acc => "ÑебÑ"; -Instr => "Ñобой"; -Prep =>"Ñебе"}; - - }; diff --git a/lib/resource-1.0/russian/NounRus.gf b/lib/resource/russian/NounRus.gf similarity index 100% rename from lib/resource-1.0/russian/NounRus.gf rename to lib/resource/russian/NounRus.gf diff --git a/lib/resource-1.0/russian/NumeralRus.gf b/lib/resource/russian/NumeralRus.gf similarity index 100% rename from lib/resource-1.0/russian/NumeralRus.gf rename to lib/resource/russian/NumeralRus.gf diff --git a/lib/resource/russian/ParadigmsRus.gf b/lib/resource/russian/ParadigmsRus.gf index 31835e8af..1ef1e971e 100644 --- a/lib/resource/russian/ParadigmsRus.gf +++ b/lib/resource/russian/ParadigmsRus.gf @@ -1,22 +1,36 @@ ---# -path=.:../abstract:../../prelude +--# -path=.:../abstract:../../prelude:../common --1 Russian Lexical Paradigms -- --- Aarne Ranta, Janna Khegai 2003 +-- Janna Khegai 2003--2006 -- --- This is an API to the user of the resource grammar --- for adding lexical items. It give shortcuts for forming --- expressions of basic categories: nouns, adjectives, verbs. +-- This is an API for the user of the resource grammar +-- for adding lexical items. It gives functions for forming +-- expressions of open categories: nouns, adjectives, verbs. -- -- Closed categories (determiners, pronouns, conjunctions) are --- accessed through the resource syntax API, $resource.Abs.gf$. +-- accessed through the resource syntax API, $Structural.gf$. -- +-- The main difference with $MorphoRus.gf$ is that the types +-- referred to are compiled resource grammar types. We have moreover +-- had the design principle of always having existing forms, rather +-- than stems, as string arguments of the paradigms. -- --- The following files are presupposed: +-- The structure of functions for each word class $C$ is the following: +-- first we give a handful of patterns that aim to cover all +-- regular cases. Then we give a worst-case function $mkC$, which serves as an +-- escape to construct the most irregular words of type $C$. +-- +-- The following modules are presupposed: + +resource ParadigmsRus = open + (Predef=Predef), + Prelude, + MorphoRus, + CatRus, + NounRus + in { -resource ParadigmsRus = open (Predef=Predef), Prelude, MorphoRus, SyntaxRus, -CategoriesRus, RulesRus in { - flags coding=utf8 ; --2 Parameters @@ -57,7 +71,7 @@ oper animate: Animacy; inanimate: Animacy; - mkIndeclinableNoun: Str -> Gender -> Animacy -> N ; + mkIndeclinableNoun: Str -> Gender -> Animacy -> N ; -- Worst case - give six singular forms: -- Nominative, Genetive, Dative, Accusative, Instructive and Prepositional; @@ -68,11 +82,17 @@ oper -- to the Nominative or the Genetive one) is actually of no help, -- since there are a lot of exceptions and the gain is just one form less. - mkN : (_,_,_,_,_,_,_,_,_,_,_,_ : Str) -> Gender -> Animacy -> N ; + mkN : (nomSg, genSg, datSg, accSg, instSg, preposSg, + nomPl, genPl, datPl, accPl, instPl, preposPl: Str) -> Gender -> Animacy -> N ; -- мужчина, мужчины, мужчине, мужчину, мужчиной, мужчине -- мужчины, мужчин, мужчинам, мужчин, мужчинами, мужчинах +-- The regular function captures the variants for some popular nouns +-- endings below: + + regN : Str -> N ; + -- Here are some common patterns. The list is far from complete. @@ -82,7 +102,7 @@ oper nEdinica : Str -> N ; -- feminine, inanimate, ending with "-а", Inst -"единиц-ей" nZhenchina : Str -> N ; -- feminine, animate, ending with "-a" nNoga : Str -> N ; -- feminine, inanimate, ending with "г_к_Ñ…-a" - nMalyariya : Str -> N ; -- feminine, inanimate, ending with "-иÑ" + nMalyariya : Str -> N ; -- feminine, inanimate, ending with "-иÑ" nTetya : Str -> N ; -- feminine, animate, ending with "-Ñ" nBol : Str -> N ; -- feminine, inanimate, ending with "-ÑŒ"(soft sign) @@ -95,8 +115,8 @@ oper -- Masculine patterns. ---Ending with consonant: -nPepel : Str -> N ; -- masculine, inanimate, ending with "-ел"- "пеп-ла" +-- Ending with consonant: + nPepel : Str -> N ; -- masculine, inanimate, ending with "-ел"- "пеп-ла" nBrat: Str -> N ; -- animate, брат-ÑŒÑ nStul: Str -> N ; -- same as above, but inanimate @@ -114,9 +134,9 @@ nPepel : Str -> N ; -- masculine, inanimate, ending with "-ел"- "пеп-л -- Nouns used as functions need a preposition. The most common is with Genitive. - mkFun : N -> Preposition -> Case -> N2 ; + mkFun : N -> Prep -> N2 ; mkN2 : N -> N2 ; - mkN3 : N -> Preposition -> Preposition -> N3 ; + mkN3 : N -> Prep -> Prep -> N3 ; -- Proper names. @@ -136,14 +156,10 @@ nPepel : Str -> N ; -- masculine, inanimate, ending with "-ел"- "пеп-л -- forms in the worst case: --- Masculine | Feminine | Neutral | Plural --- Nominative --- Genitive --- Dative --- Accusative Inanimate --- Accusative Animate --- Instructive --- Prepositional +-- (Masculine | Feminine | Neutral | Plural) * + +-- (Nominative | Genitive | Dative | Accusative Inanimate | Accusative Animate | +-- Instructive | Prepositional) -- Notice that 4 short forms, which exist for some adjectives are not included @@ -152,18 +168,25 @@ nPepel : Str -> N ; -- masculine, inanimate, ending with "-ел"- "пеп-л -- mkA : ( : Str) -> A ; +-- The regular function captures the variants for some popular adjective +-- endings below. The first string agrument is the masculine singular form, +-- the second is comparative: + + regA : Str -> Str -> A ; + + -- Invariable adjective is a special case. adjInvar : Str -> A ; -- khaki, mini, hindi, netto -- Some regular patterns depending on the ending. - AStaruyj : Str -> A ; -- ending with "-ый" - AMalenkij : Str -> A ; -- ending with "-ий", Gen - "маленьк-ого" - AKhoroshij : Str -> A ; -- ending with "-ий", Gen - "хорош-его" - AMolodoj : Str -> A ; -- ending with "-ой", + AStaruyj : Str -> Str -> A ; -- ending with "-ый" + AMalenkij : Str -> Str -> A ; -- ending with "-ий", Gen - "маленьк-ого" + AKhoroshij : Str -> Str -> A ; -- ending with "-ий", Gen - "хорош-его" + AMolodoj : Str -> Str -> A ; -- ending with "-ой", -- plural - молод-ые" - AKakoj_Nibud : Str -> Str -> A ; -- ending with "-ой", + AKakoj_Nibud : Str -> Str -> Str -> A ; -- ending with "-ой", -- plural - "как-ие" -- Two-place adjectives need a preposition and a case as extra arguments. @@ -172,24 +195,22 @@ nPepel : Str -> N ; -- masculine, inanimate, ending with "-ел"- "пеп-л -- Comparison adjectives need a positive adjective -- (28 forms without short forms). --- Taking only one comparative form (non-syntaxic) and --- only one superlative form (syntaxic) we can produce the +-- Taking only one comparative form (non-syntactic) and +-- only one superlative form (syntactic) we can produce the -- comparison adjective with only one extra argument - --- non-syntaxic comparative form. --- Syntaxic forms are based on the positive forms. +-- non-syntactic comparative form. +-- Syntactic forms are based on the positive forms. - mkADeg : A -> Str -> ADeg ; +-- mkADeg : A -> Str -> ADeg ; -- On top level, there are adjectival phrases. The most common case is -- just to use a one-place adjective. - - ap : A -> IsPostfixAdj -> AP ; +-- ap : A -> IsPostfixAdj -> AP ; --2 Adverbs --- Adverbs are not inflected. Most lexical ones have position --- after the verb. Some can be preverbal (e.g. "always"). +-- Adverbs are not inflected. mkAdv : Str -> Adv ; @@ -201,30 +222,27 @@ nPepel : Str -> N ; -- masculine, inanimate, ending with "-ел"- "пеп-л -- 4(GenNum)(past) ](indicative)+ 4 (GenNum) (subjunctive) } -- Participles (Present and Past) and Gerund forms are not included, -- since they fuction more like Adjectives and Adverbs correspondingly --- rather than verbs. Aspect regarded as an inherent parameter of a verb. --- Notice, that some forms are never used for some verbs. Actually, --- the majority of verbs do not have many of the forms. +-- rather than verbs. Aspect is regarded as an inherent parameter of a verb. +-- Notice, that some forms are never used for some verbs. + Voice: Type; Aspect: Type; -Tense : Type; Bool: Type; Conjugation: Type ; -first: Conjugation; -- "гулÑ-Ешь, гулÑ-Ем" -firstE: Conjugation; -- Verbs with vowel "Ñ‘": "даёшь" (give), "пьёшь" (drink) -second: Conjugation; -- "вид-Ишь, вид-Им" -mixed: Conjugation; -- "хоч-Ешь - хот-Им" +first: Conjugation; -- "гулÑ-Ешь, гулÑ-Ем" +firstE: Conjugation; -- Verbs with vowel "Ñ‘": "даёшь" (give), "пьёшь" (drink) +second: Conjugation; -- "вид-Ишь, вид-Им" +mixed: Conjugation; -- "хоч-Ешь - хот-Им" dolzhen: Conjugation; -- irregular -true: Bool; +true: Bool; false: Bool; active: Voice ; passive: Voice ; imperfective: Aspect; perfective: Aspect ; -present : Tense ; -past : Tense ; -- The worst case need 6 forms of the present tense in indicative mood @@ -233,7 +251,9 @@ past : Tense ; -- (singular, second person: "беги"), an infinitive ("бежать"). -- Inherent aspect should also be specified. - mkVerbum : Aspect -> (_,_,_,_,_,_,_,_,_ : Str) -> V ; + mkVerbum : Aspect -> (presentSgP1,presentSgP2,presentSgP3, + presentPlP1,presentPlP2,presentPlP3, + pastSgMasculine,imperative,infinitive: Str) -> V ; -- Common conjugation patterns are two conjugations: -- first - verbs ending with "-ать/-ÑÑ‚ÑŒ" and second - "-ить/-еть". @@ -244,9 +264,10 @@ past : Tense ; -- first person from with second person form: -- "Ñ Ð»ÑŽÐ±-лю", "Ñ‚Ñ‹ люб-ишь". Stems shoud be the same. -- So the definition for verb "любить" looks like: --- mkRegVerb Imperfective Second "люб" "лю" "любил" "люби" "любить"; +-- regV Imperfective Second "люб" "лю" "любил" "люби" "любить"; - mkRegVerb :Aspect -> Conjugation -> (_,_,_,_,_ : Str) -> V ; + regV :Aspect -> Conjugation -> (stemPresentSgP1,endingPresentSgP1, + pastSgP1,imperative,infinitive : Str) -> V ; -- For writing an application grammar one usualy doesn't need -- the whole inflection table, since each verb is used in @@ -262,21 +283,21 @@ past : Tense ; -- Two-place verbs, and the special case with direct object. Notice that -- a particle can be included in a $V$. - mkTV : V -> Str -> Case -> V2 ; -- "войти в дом"; "в", accusative + mkV2 : V -> Str -> Case -> V2 ; -- "войти в дом"; "в", accusative mkV3 : V -> Str -> Str -> Case -> Case -> V3 ; -- "Ñложить пиÑьмо в конверт" - tvDir : V -> V2 ; -- "видеть", "любить" + dirV2 : V -> V2 ; -- "видеть", "любить" tvDirDir : V -> V3 ; -- The definitions should not bother the user of the API. So they are -- hidden from the document. --. - Gender = SyntaxRus.Gender ; - Case = SyntaxRus.Case ; - Number = SyntaxRus.Number ; - Animacy = SyntaxRus.Animacy; - Aspect = SyntaxRus.Aspect; - Voice = SyntaxRus.Voice ; - Tense = SyntaxRus.RusTense ; + Gender = MorphoRus.Gender ; + Case = MorphoRus.Case ; + Number = MorphoRus.Number ; + Animacy = MorphoRus.Animacy; + Aspect = MorphoRus.Aspect; + Voice = MorphoRus.Voice ; + --Tense = Tense ; Bool = Prelude.Bool ; Conjugation = MorphoRus.Conjugation; first = First ; @@ -304,8 +325,8 @@ dolzhen = Dolzhen; passive = Pass ; imperfective = Imperfective ; perfective = Perfective ; - present = Present ; - past = Past ; + -- present = Present ; + --past = Past ; -- Degree = Pos | Comp | Super ; -- Person = P1 | P2 | P3 ; -- AfterPrep = Yes | No ; @@ -342,6 +363,32 @@ dolzhen = Dolzhen; anim = anim } ** {lock_N = <>} ; + +regN = \ray -> + let + ra = Predef.tk 1 ray ; + y = Predef.dp 1 ray ; + r = Predef.tk 2 ray ; + ay = Predef.dp 2 ray ; + rays = + case y of { + "а" => nMashina ray ; + "ÑŒ" => nBol ray ; + "Ñ" => case ay of { + "иÑ" => nMalyariya ray; + _ => nTetya ray }; + "е" => case ay of { + "ее" => nObezbolivauchee ray ; + "ое" => nZhivotnoe ray ; + _ => nProizvedenie ray }; + "о" => nChislo ray; + _=> nStomatolog ray + } + in + rays ; + + + nMashina = \s -> aEndInAnimateDecl s ** {lock_N = <>}; nEdinica = \s -> ej_aEndInAnimateDecl s ** {lock_N = <>}; nZhenchina = \s -> (aEndAnimateDecl s) ** { g = Fem ; anim = Animate } ** {lock_N = <>}; @@ -374,35 +421,62 @@ dolzhen = Dolzhen; nNol = \s -> softSignEndDeclMasc s ** {lock_N = <>}; nUroven = \s -> EN_softSignEndDeclMasc s ** {lock_N = <>}; --- mkFun defined in syntax.RusU - mkN2 n = funGen n ** {lock_N2 = <>} ; -- defined in syntax.RusU -mkN3 n p r = mkCommNoun3 n p r ** {lock_N3 = <>} ; -- defined in syntax.RusU +-- An individual-valued function is a common noun together with the +-- preposition prefixed to its argument ("клZ+ о' дома"). +-- The situation is analogous to two-place adjectives and transitive verbs. +-- +-- We allow the genitive construction to be used as a variant of +-- all function applications. It would definitely be too restrictive only +-- to allow it when the required case is genitive. We don't know if there +-- are counterexamples to the liberal choice we've made. + + mkFun f p = (UseN f) ** {s2 = p.s ; c = p.c}** {lock_N2 = <>} ; + +-- The commonest cases are functions with Genitive. + mkN2 n = mkFun n nullPrep ; + nullPrep : Prep = {s = []; c= Gen; lock_Prep=<>} ; + + mkN3 f p r = (UseN f) ** {s2 = p.s ; c=p.c; s3=r.s ; c2=r.c; lock_N3 = <>} ; + mkPN = \ivan, g, anim -> case g of { Masc => mkProperNameMasc ivan anim ; _ => mkProperNameFem ivan anim } ** {lock_PN =<>}; - nounPN n = (mkCNProperName n)**{lock_PN=<>}; + nounPN n = {s=\\c => n.s! SF Sg c; anim=n.anim; g=n.g; lock_PN=<>}; + + mkCN = UseN; - mkCN = UseN ; mkNP = \x,y,z -> UsePN (mkPN x y z) ; -- Adjective definitions + regA = \ray, comp -> + let + ay = Predef.dp 2 ray ; + rays = + case ay of { + "ый" => AStaruyj ray comp; + "ой" => AMolodoj ray comp; + "ий" => AMalenkij ray comp; + _=> AKhoroshij ray comp + } + in + rays ; - adjInvar = \s -> { s = \\af => s } ** {lock_A= <>}; + adjInvar = \s -> { s = \\_,_ => s } ** {lock_A= <>}; - AStaruyj s = uy_j_EndDecl s ** {lock_A = <>} ; - AKhoroshij s = shij_End_Decl s ** {lock_A= <>}; -AMalenkij s = ij_EndK_G_KH_Decl s ** {lock_A= <>}; - AMolodoj s = uy_oj_EndDecl s ** {lock_A= <>}; - AKakoj_Nibud s t = i_oj_EndDecl s t ** {lock_A= <>}; + AStaruyj s comp = mkAdjDeg (uy_j_EndDecl s) comp ** {lock_A = <>} ; + AKhoroshij s comp = mkAdjDeg (shij_End_Decl s) comp ** {lock_A= <>}; + AMalenkij s comp = mkAdjDeg (ij_EndK_G_KH_Decl s) comp ** {lock_A= <>}; + AMolodoj s comp = mkAdjDeg (uy_oj_EndDecl s) comp ** {lock_A= <>}; + AKakoj_Nibud s t comp = mkAdjDeg (i_oj_EndDecl s t) comp ** {lock_A= <>}; - mkA2 a p c= mkAdjective2 a p c ** {lock_A2 = <>}; - mkADeg a s = mkAdjDeg a s ** {lock_ADeg = <>}; -- defined in morpho.RusU + mkA2 a p c= a ** {s2 = p ; c = c; lock_A2 = <>}; +-- mkADeg a s = mkAdjDeg a s ** {lock_ADeg = <>}; -- defined in morpho.RusU - ap a p = mkAdjPhrase a p ** {lock_AP = <>}; -- defined in syntax module +-- ap a p = mkAdjPhrase a p ** {lock_AP = <>}; -- defined in syntax module mkAdv x = ss x ** {lock_Adv = <>} ; @@ -431,7 +505,7 @@ AMalenkij s = ij_EndK_G_KH_Decl s ** {lock_A= <>}; PRF APl P3 => plP3 }; - mkRegVerb a b c d e f g = verbDecl a b c d e f g ** {lock_V = <>} ; + regV a b c d e f g = verbDecl a b c d e f g ** {lock_V = <>} ; -- defined in morpho.RusU.gf {- mkV a b = extVerb a b ** {lock_V = <>}; -- defined in types.RusU.gf @@ -444,9 +518,451 @@ AMalenkij s = ij_EndK_G_KH_Decl s ** {lock_A= <>}; VSubj gn => aller.s ! VFORM vox (VSUB gn) }; t = Present ; a = aller.asp ; w = vox ; lock_V = <>} ; -} - mkTV a b c = mkTransVerb a b c ** {lock_V2 = <>}; -- defined in syntax.RusU.gf - tvDir v = mkDirectVerb v ** {lock_V2 = <>}; -- defined in syntax.RusU.gf - tvDirDir v = mkDirDirectVerb v ** {lock_V3 = <>}; -- defined in syntax.RusU.gf -mkV3 v s w c d = mkDitransVerb v s w c d ** {lock_V3 = <>}; -- defined in syntax.RusU.gf + mkV2 v p cas = v ** {s2 = p ; c = cas; lock_V2 = <>}; + dirV2 v = mkV2 v [] Acc; + + tvDirDir v = mkV3 v "" "" Acc Dat; + +-- *Ditransitive verbs* are verbs with three argument places. +-- We treat so far only the rule in which the ditransitive +-- verb takes both complements to form a verb phrase. + + mkV3 v s1 s2 c1 c2 = v ** {s2 = s1; c = c1; s4 = s2; c2=c2; lock_V3 = <>}; + + +----2 Parameters +---- +---- To abstract over gender names, we define the following identifiers. +-- +--oper +-- Gender : Type ; +-- +-- human : Gender ; +-- nonhuman : Gender ; +-- masculine : Gender ; +-- +---- To abstract over number names, we define the following. +-- +-- Number : Type ; +-- +-- singular : Number ; +-- plural : Number ; +-- +---- To abstract over case names, we define the following. +-- +-- Case : Type ; +-- +-- nominative : Case ; +-- genitive : Case ; +-- +---- Prepositions are used in many-argument functions for rection. +-- +-- Preposition : Type ; +-- +-- +----2 Nouns +-- +---- Worst case: give all four forms and the semantic gender. +-- +-- mkN : (man,men,man's,men's : Str) -> N ; +-- +---- The regular function captures the variants for nouns ending with +---- "s","sh","x","z" or "y": "kiss - kisses", "flash - flashes"; +---- "fly - flies" (but "toy - toys"), +-- +-- regN : Str -> N ; +-- +---- In practice the worst case is just: give singular and plural nominative. +-- +-- mk2N : (man,men : Str) -> N ; +-- +---- All nouns created by the previous functions are marked as +---- $nonhuman$. If you want a $human$ noun, wrap it with the following +---- function: +-- +-- genderN : Gender -> N -> N ; +-- +----3 Compound nouns +---- +---- A compound noun ia an uninflected string attached to an inflected noun, +---- such as "baby boom", "chief executive officer". +-- +-- compoundN : Str -> N -> N ; +-- +-- +----3 Relational nouns +---- +---- Relational nouns ("daughter of x") need a preposition. +-- +-- mkN2 : N -> Preposition -> N2 ; +-- +---- The most common preposition is "of", and the following is a +---- shortcut for regular relational nouns with "of". +-- +-- regN2 : Str -> N2 ; +-- +---- Use the function $mkPreposition$ or see the section on prepositions below to +---- form other prepositions. +---- +---- Three-place relational nouns ("the connection from x to y") need two prepositions. +-- +-- mkN3 : N -> Preposition -> Preposition -> N3 ; +-- +-- +----3 Relational common noun phrases +---- +---- In some cases, you may want to make a complex $CN$ into a +---- relational noun (e.g. "the old town hall of"). +-- +-- cnN2 : CN -> Preposition -> N2 ; +-- cnN3 : CN -> Preposition -> Preposition -> N3 ; +-- +---- +----3 Proper names and noun phrases +---- +---- Proper names, with a regular genitive, are formed as follows +-- +-- regPN : Str -> Gender -> PN ; -- John, John's +-- +---- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". +-- +-- nounPN : N -> PN ; +-- +---- To form a noun phrase that can also be plural and have an irregular +---- genitive, you can use the worst-case function. +-- +-- mkNP : Str -> Str -> Number -> Gender -> NP ; +-- +----2 Adjectives +-- +---- Non-comparison one-place adjectives need two forms: one for +---- the adjectival and one for the adverbial form ("free - freely") +-- +-- mkA : (free,freely : Str) -> A ; +-- +---- For regular adjectives, the adverbial form is derived. This holds +---- even for cases with the variation "happy - happily". +-- +-- regA : Str -> A ; +-- +----3 Two-place adjectives +---- +---- Two-place adjectives need a preposition for their second argument. +-- +-- mkA2 : A -> Preposition -> A2 ; +-- +---- Comparison adjectives may two more forms. +-- +-- ADeg : Type ; +-- +-- mkADeg : (good,better,best,well : Str) -> ADeg ; +-- +---- The regular pattern recognizes two common variations: +---- "-e" ("rude" - "ruder" - "rudest") and +---- "-y" ("happy - happier - happiest - happily") +-- +-- regADeg : Str -> ADeg ; -- long, longer, longest +-- +---- However, the duplication of the final consonant is nor predicted, +---- but a separate pattern is used: +-- +-- duplADeg : Str -> ADeg ; -- fat, fatter, fattest +-- +---- If comparison is formed by "more, "most", as in general for +---- long adjective, the following pattern is used: +-- +-- compoundADeg : A -> ADeg ; -- -/more/most ridiculous +-- +---- From a given $ADeg$, it is possible to get back to $A$. +-- +-- adegA : ADeg -> A ; +-- +-- +----2 Adverbs +-- +---- Adverbs are not inflected. Most lexical ones have position +---- after the verb. Some can be preverbal (e.g. "always"). +-- +-- mkAdv : Str -> Adv ; +-- mkAdV : Str -> AdV ; +-- +---- Adverbs modifying adjectives and sentences can also be formed. +-- +-- mkAdA : Str -> AdA ; +-- +----2 Prepositions +---- +---- A preposition as used for rection in the lexicon, as well as to +---- build $PP$s in the resource API, just requires a string. +-- +-- mkPreposition : Str -> Preposition ; +-- mkPrep : Str -> Prep ; +-- +---- (These two functions are synonyms.) +-- +----2 Verbs +---- +---- Except for "be", the worst case needs five forms: the infinitive and +---- the third person singular present, the past indicative, and the +---- past and present participles. +-- +-- mkV : (go, goes, went, gone, going : Str) -> V ; +-- +---- The regular verb function recognizes the special cases where the last +---- character is "y" ("cry - cries" but "buy - buys") or "s", "sh", "x", "z" +---- ("fix - fixes", etc). +-- +-- regV : Str -> V ; +-- +---- The following variant duplicates the last letter in the forms like +---- "rip - ripped - ripping". +-- +-- regDuplV : Str -> V ; +-- +---- There is an extensive list of irregular verbs in the module $IrregularEng$. +---- In practice, it is enough to give three forms, +---- e.g. "drink - drank - drunk", with a variant indicating consonant +---- duplication in the present participle. +-- +-- irregV : (drink, drank, drunk : Str) -> V ; +-- irregDuplV : (get, got, gotten : Str) -> V ; +-- +-- +----3 Verbs with a particle. +---- +---- The particle, such as in "switch on", is given as a string. +-- +-- partV : V -> Str -> V ; +-- +----3 Reflexive verbs +---- +---- By default, verbs are not reflexive; this function makes them that. +-- +-- reflV : V -> V ; +-- +----3 Two-place verbs +---- +---- Two-place verbs need a preposition, except the special case with direct object. +---- (transitive verbs). Notice that a particle comes from the $V$. +-- +-- mkV2 : V -> Preposition -> V2 ; +-- +-- dirV2 : V -> V2 ; +-- +----3 Three-place verbs +---- +---- Three-place (ditransitive) verbs need two prepositions, of which +---- the first one or both can be absent. +-- +-- mkV3 : V -> Preposition -> Preposition -> V3 ; -- speak, with, about +-- dirV3 : V -> Preposition -> V3 ; -- give,_,to +-- dirdirV3 : V -> V3 ; -- give,_,_ +-- +----3 Other complement patterns +---- +---- Verbs and adjectives can take complements such as sentences, +---- questions, verb phrases, and adjectives. +-- +-- mkV0 : V -> V0 ; +-- mkVS : V -> VS ; +-- mkV2S : V -> Str -> V2S ; +-- mkVV : V -> VV ; +-- mkV2V : V -> Str -> Str -> V2V ; +-- mkVA : V -> VA ; +-- mkV2A : V -> Str -> V2A ; +-- mkVQ : V -> VQ ; +-- mkV2Q : V -> Str -> V2Q ; +-- +-- mkAS : A -> AS ; +-- mkA2S : A -> Str -> A2S ; +-- mkAV : A -> AV ; +-- mkA2V : A -> Str -> A2V ; +-- +---- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated +---- just as synonyms of $V2$, and the second argument is given +---- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. +---- $V0$ is just $V$. +-- +-- V0, V2S, V2V, V2A, V2Q : Type ; +-- AS, A2S, AV, A2V : Type ; +-- +-- +----2 Definitions of paradigms +---- +---- The definitions should not bother the user of the API. So they are +---- hidden from the document. +----. +-- +-- Gender = MorphoEng.Gender ; +-- Number = MorphoEng.Number ; +-- Case = MorphoEng.Case ; +-- human = Masc ; +-- nonhuman = Neutr ; +-- masculine = Masc ; +-- feminine = Fem ; +-- singular = Sg ; +-- plural = Pl ; +-- nominative = Nom ; +-- genitive = Gen ; +-- +-- Preposition = Str ; +-- +-- regN = \ray -> +-- let +-- ra = Predef.tk 1 ray ; +-- y = Predef.dp 1 ray ; +-- r = Predef.tk 2 ray ; +-- ay = Predef.dp 2 ray ; +-- rays = +-- case y of { +-- "y" => y2ie ray "s" ; +-- "s" => ray + "es" ; +-- "z" => ray + "es" ; +-- "x" => ray + "es" ; +-- _ => case ay of { +-- "sh" => ray + "es" ; +-- "ch" => ray + "es" ; +-- _ => ray + "s" +-- } +-- } +-- in +-- mk2N ray rays ; +-- +-- mk2N = \man,men -> +-- let mens = case last men of { +-- "s" => men + "'" ; +-- _ => men + "'s" +-- } +-- in +-- mkN man men (man + "'s") mens ; +-- +-- mkN = \man,men,man's,men's -> +-- mkNoun man man's men men's ** {g = Neutr ; lock_N = <>} ; +-- +-- genderN g man = {s = man.s ; g = g ; lock_N = <>} ; +-- +-- compoundN s n = {s = \\x,y => s ++ n.s ! x ! y ; g=n.g ; lock_N = <>} ; +-- +-- mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; +-- regN2 n = mkN2 (regN n) (mkPreposition "of") ; +-- mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ; +-- cnN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; +-- cnN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ; +-- +-- regPN n g = nameReg n g ** {lock_PN = <>} ; +-- nounPN n = {s = n.s ! singular ; g = n.g ; lock_PN = <>} ; +-- mkNP x y n g = {s = table {Gen => x ; _ => y} ; a = agrP3 n ; +-- lock_NP = <>} ; +-- +-- mkA a b = mkAdjective a a a b ** {lock_A = <>} ; +-- regA a = regAdjective a ** {lock_A = <>} ; +-- +-- mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ; +-- +-- ADeg = A ; ---- +-- +-- mkADeg a b c d = mkAdjective a b c d ** {lock_A = <>} ; +-- +-- regADeg happy = +-- let +-- happ = init happy ; +-- y = last happy ; +-- happie = case y of { +-- "y" => happ + "ie" ; +-- "e" => happy ; +-- _ => happy + "e" +-- } ; +-- happily = case y of { +-- "y" => happ + "ily" ; +-- _ => happy + "ly" +-- } ; +-- in mkADeg happy (happie + "r") (happie + "st") happily ; +-- +-- duplADeg fat = +-- mkADeg fat +-- (fat + last fat + "er") (fat + last fat + "est") (fat + "ly") ; +-- +-- compoundADeg a = +-- let ad = (a.s ! AAdj Posit) +-- in mkADeg ad ("more" ++ ad) ("most" ++ ad) (a.s ! AAdv) ; +-- +-- adegA a = a ; +-- +-- mkAdv x = ss x ** {lock_Adv = <>} ; +-- mkAdV x = ss x ** {lock_AdV = <>} ; +-- mkAdA x = ss x ** {lock_AdA = <>} ; +-- +-- mkPreposition p = p ; +-- mkPrep p = ss p ** {lock_Prep = <>} ; +-- +-- mkV a b c d e = mkVerb a b c d e ** {s1 = [] ; lock_V = <>} ; +-- +-- regV cry = +-- let +-- cr = init cry ; +-- y = last cry ; +-- cries = (regN cry).s ! Pl ! Nom ; -- ! +-- crie = init cries ; +-- cried = case last crie of { +-- "e" => crie + "d" ; +-- _ => crie + "ed" +-- } ; +-- crying = case y of { +-- "e" => case last cr of { +-- "e" => cry + "ing" ; +-- _ => cr + "ing" +-- } ; +-- _ => cry + "ing" +-- } +-- in mkV cry cries cried cried crying ; +-- +-- regDuplV fit = +-- let fitt = fit + last fit in +-- mkV fit (fit + "s") (fitt + "ed") (fitt + "ed") (fitt + "ing") ; +-- +-- irregV x y z = let reg = (regV x).s in +-- mkV x (reg ! VPres) y z (reg ! VPresPart) ** {s1 = [] ; lock_V = <>} ; +-- +-- irregDuplV fit y z = +-- let +-- fitting = (regDuplV fit).s ! VPresPart +-- in +-- mkV fit (fit + "s") y z fitting ; +-- +-- partV v p = verbPart v p ** {lock_V = <>} ; +-- reflV v = {s = v.s ; part = v.part ; lock_V = v.lock_V ; isRefl = True} ; +-- +-- mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; c2 = p ; lock_V2 = <>} ; +-- dirV2 v = mkV2 v [] ; +-- +-- mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; c2 = p ; c3 = q ; lock_V3 = <>} ; +-- dirV3 v p = mkV3 v [] p ; +-- dirdirV3 v = dirV3 v [] ; +-- +-- mkVS v = v ** {lock_VS = <>} ; +-- mkVV v = { +-- s = table {VVF vf => v.s ! vf ; _ => variants {}} ; +-- isAux = False ; lock_VV = <> +-- } ; +-- mkVQ v = v ** {lock_VQ = <>} ; +-- +-- V0 : Type = V ; +-- V2S, V2V, V2Q, V2A : Type = V2 ; +-- AS, A2S, AV : Type = A ; +-- A2V : Type = A2 ; +-- +-- mkV0 v = v ** {lock_V = <>} ; +-- mkV2S v p = mkV2 v p ** {lock_V2 = <>} ; +-- mkV2V v p t = mkV2 v p ** {s4 = t ; lock_V2 = <>} ; +-- mkVA v = v ** {lock_VA = <>} ; +-- mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; +-- mkV2Q v p = mkV2 v p ** {lock_V2 = <>} ; +-- +-- mkAS v = v ** {lock_A = <>} ; +-- mkA2S v p = mkA2 v p ** {lock_A = <>} ; +-- mkAV v = v ** {lock_A = <>} ; +-- mkA2V v p = mkA2 v p ** {lock_A2 = <>} ; +-- } ; + diff --git a/lib/resource-1.0/russian/PhraseRus.gf b/lib/resource/russian/PhraseRus.gf similarity index 100% rename from lib/resource-1.0/russian/PhraseRus.gf rename to lib/resource/russian/PhraseRus.gf diff --git a/lib/resource-1.0/russian/QuestionRus.gf b/lib/resource/russian/QuestionRus.gf similarity index 100% rename from lib/resource-1.0/russian/QuestionRus.gf rename to lib/resource/russian/QuestionRus.gf diff --git a/lib/resource-1.0/russian/RelativeRus.gf b/lib/resource/russian/RelativeRus.gf similarity index 100% rename from lib/resource-1.0/russian/RelativeRus.gf rename to lib/resource/russian/RelativeRus.gf diff --git a/lib/resource-1.0/russian/ResRus.gf b/lib/resource/russian/ResRus.gf similarity index 100% rename from lib/resource-1.0/russian/ResRus.gf rename to lib/resource/russian/ResRus.gf diff --git a/lib/resource-1.0/russian/Russian.gf b/lib/resource/russian/Russian.gf similarity index 100% rename from lib/resource-1.0/russian/Russian.gf rename to lib/resource/russian/Russian.gf diff --git a/lib/resource-1.0/russian/RussianAbs.gf b/lib/resource/russian/RussianAbs.gf similarity index 100% rename from lib/resource-1.0/russian/RussianAbs.gf rename to lib/resource/russian/RussianAbs.gf diff --git a/lib/resource-1.0/russian/SentenceRus.gf b/lib/resource/russian/SentenceRus.gf similarity index 100% rename from lib/resource-1.0/russian/SentenceRus.gf rename to lib/resource/russian/SentenceRus.gf diff --git a/lib/resource/russian/StructuralRus.gf b/lib/resource/russian/StructuralRus.gf index 5741ff09e..5ae9c6941 100644 --- a/lib/resource/russian/StructuralRus.gf +++ b/lib/resource/russian/StructuralRus.gf @@ -1,138 +1,134 @@ ---# -path=.:../abstract:../../prelude ---1 The Top-Level Russian Resource Grammar --- --- Janna Khegai 2003 --- on the basis of code for other languages by Aarne Ranta --- --- This is the Russian concrete syntax of the multilingual resource --- grammar. Most of the work is done in the file $syntax.RusU.gf$. --- However, for the purpose of documentation, we make here explicit the --- linearization types of each category, so that their structures and --- dependencies can be seen. --- Another substantial part is the linearization rules of some --- structural words. --- --- The users of the resource grammar should not look at this file for the --- linearization rules, which are in fact hidden in the document version. --- They should use $resource.Abs.gf$ to access the syntactic rules. --- This file can be consulted in those, hopefully rare, occasions in which --- one has to know how the syntactic categories are --- implemented. The parameter types are defined in $types.RusU.gf$. +--# -path=.:../abstract:../common:../../prelude -concrete StructuralRus of Structural = CategoriesRus, NumeralsRus ** open Prelude, SyntaxRus in { -flags - coding=utf8 ; +concrete StructuralRus of Structural = CatRus ** + open ResRus, MorphoRus, (P = ParadigmsRus), Prelude, NounRus, in { + + flags optimize=all ; coding=utf8 ; lin - -- First mount the numerals. - - UseNumeral i = i ; - +-- UseNumeral i = i ; -- Then an alphabetical list of structural words - above_Prep = { s2 = "над" ; c = Inst} ; - after_Prep = { s2 = "поÑле" ; c = Gen }; - all8mass_Det = vesDet ** {n = Sg; g = PNoGen; c = Nom} ; - all_NDet = vseDetPl ** { g = PNoGen; c = Nom} ; - almost_Adv = ss "почти" ; + above_Prep = { s = "над" ; c = Inst} ; + after_Prep = { s = "поÑле" ; c = Gen }; +-- all8mass_Det = vesDet ** {n = Sg; g = PNoGen; c = Nom} ; + all_Predet = vseDetPl ** { g = PNoGen; c = Nom} ; + almost_AdA = {s= "почти"} ; + almost_AdN = {s= "почти"} ; although_Subj = ss "хотÑ" ; + always_AdV = ss "вÑегда" ; and_Conj = ss "и" ** {n = Pl} ; because_Subj = ss ["потому что"] ; - before_Prep ={ s2 = "перед" ; c = Inst}; - behind_Prep = { s2 = "за" ; c = Inst }; - between_Prep = { s2 = "между" ; c = Inst}; - both_AndConjD = sd2 "как" [", так и"] ** {n = Pl} ; - by8agent_Prep = { s2 = ["Ñ Ð¿Ð¾Ð¼Ð¾Ñ‰ÑŒÑŽ"] ; c = Gen}; - by8means_Prep = { s2 = ["Ñ Ð¿Ð¾Ð¼Ð¾Ñ‰ÑŒÑŽ"] ; c = Gen}; + before_Prep ={ s = "перед" ; c = Inst}; + behind_Prep = { s = "за" ; c = Inst }; + between_Prep = { s = "между" ; c = Inst}; + both7and_DConj = sd2 "как" [", так и"] ** {n = Pl} ; + but_PConj = ss "но" ; + by8agent_Prep = { s = ["Ñ Ð¿Ð¾Ð¼Ð¾Ñ‰ÑŒÑŽ"] ; c = Gen}; + by8means_Prep = { s = ["Ñ Ð¿Ð¾Ð¼Ð¾Ñ‰ÑŒÑŽ"] ; c = Gen}; can8know_VV = verbMoch ; can_VV = verbMoch ; - during_Prep = { s2 = ["в течение"] ; c = Gen}; - either8or_ConjD = sd2 "либо" [", либо"] ** {n = Sg} ; + during_Prep = { s = ["в течение"] ; c = Gen}; + either7or_DConj = sd2 "либо" [", либо"] ** {n = Sg} ; -- comma is not visible in GUI! every_Det = kazhdujDet ** {n = Sg ; g = PNoGen; c= Nom} ; - everybody_NP = mkNounPhrase Pl (noun2CommNounPhrase (eEnd_Decl "вÑ")) ; - everything_NP = pron2NounPhrase pronVseInanimate Inanimate; + everybody_NP = mkNP Pl (UseN ((eEnd_Decl "вÑ")**{lock_N=<>})) ; + everything_NP = UsePron (pronVseInanimate ** {lock_Pron=<>}) ; everywhere_Adv = ss "везде" ; - from_Prep = { s2 = "от" ; c = Gen }; - he_NP = pron2NounPhrase pronOn Animate; + few_Det = (ij_EndK_G_KH_Decl "немног") **{lock_Det= <>; n= Sg; g = PNoGen; c = Nom}; -- AMalenkij + first_Ord = (uy_j_EndDecl "перв" ) ** {lock_A = <>}; --AStaruyj + from_Prep = { s = "от" ; c = Gen }; + he_Pron = pronOn ; + here_Adv = ss "здеÑÑŒ" ; + here7to_Adv = ss "Ñюда" ; + here7from_Adv = ss "отÑюда" ; how_IAdv = ss "как" ; - how8many_IDet = skolkoSgDet ** {n = Sg; g = (PGen Neut); c= Gen}; - i_NP = pron2NounPhrase pronYa Animate; + how8many_IDet = skolkoSgDet ** {n = Pl; g = (PGen Neut); c= Gen}; + i_Pron = pronYa ; if_Subj = ss "еÑли" ; - in8front_Prep = { s2 = "перед" ; c = Inst}; - in_Prep = { s2 = "в" ; c = Prepos }; - it_NP = pron2NounPhrase pronOno Inanimate; + in8front_Prep = { s = "перед" ; c = Inst}; + in_Prep = { s = "в" ; c = Prepos }; + it_Pron = pronOno ; + less_CAdv = ss "менее" ; many_Det = mnogoSgDet ** {n = Sg; g = (PGen Neut); c= Gen} ; - - most_Det = bolshinstvoSgDet ** {n = Sg; g = (PGen Neut); c= Gen} ; + more_CAdv = ss "более" ; + most_Predet = bolshinstvoSgDet ** {n = Sg; g = (PGen Neut); c= Gen} ; -- inanimate, Sg: "большинÑтво телефонов безмолÑтву-ет" - most8many_Det = bolshinstvoPlDet ** {n = Pl; g = (PGen Neut); c= Gen} ; +-- most8many_Det = bolshinstvoPlDet ** {n = Pl; g = (PGen Neut); c= Gen} ; -- animate, Pl: "большинÑтво учащихÑÑ Ñ…Ð¾Ñ€Ð¾ÑˆÐ¾ подготовлен-Ñ‹" much_Det = mnogoSgDet ** {n = Sg; g = (PGen Neut); c= Gen} ; -- same as previous must_VV = verbDolzhen ; no_Phr = ss ["Ðет ."] ; - on_Prep = { s2 = "на" ; c = Prepos }; + on_Prep = { s = "на" ; c = Prepos }; + one_Quant = odinDet ** {lock_QuantSg = <>; n= Sg; g = PNoGen; c = Nom }; +--AStaruyj : + only_Predet = (uy_j_EndDecl "единÑтвенн" ) ** {lock_Predet = <>; n= Sg; g = PNoGen; c = Nom }; or_Conj = ss "или" ** {n = Sg} ; - otherwise_Adv = ss "иначе" ; - part_Prep = { s2 = "" ; c = Nom}; -- missing in Russian - possess_Prep = { s2 = "" ; c = Gen}; --- ?? AR 19/2/2004 + otherwise_PConj = ss "иначе" ; + part_Prep = { s = "" ; c = Nom}; -- missing in Russian + please_Voc = ss "пожалуйÑта" ; + possess_Prep = { s = "" ; c = Gen}; --- ?? AR 19/2/2004 quite_Adv = ss "довольно" ; - she_NP = pron2NounPhrase pronOna Animate; - so_Adv = ss "так"; - somebody_NP = pron2NounPhrase pronKtoTo Animate; - some_Det = nekotorujDet ** {n = Sg; g = PNoGen; c= Nom} ; - some_NDet = nekotorujDet ** { g = PNoGen; c= Nom} ; - something_NP = pron2NounPhrase pronChtoTo Inanimate ; + she_Pron = pronOna ; + so_AdA = ss "так"; + somebody_NP = UsePron (pronKtoTo** {lock_Pron = <>}); + someSg_Det = nekotorujDet ** {n = Sg; g = PNoGen; c= Nom} ; + somePl_Det = nekotorujDet ** {n = Pl; g = PNoGen; c= Nom} ; + something_NP = UsePron (pronChtoTo** {lock_Pron=<> }) ; somewhere_Adv = ss "где-нибудь" ; ---- TheseNumNP n = { s =\\_ => [] ; n = Pl; p = P3; g= PGen Fem ; ---- anim = Animate ; pron = True} ; -- missing in Russian - --- ThoseNumNP n = { s =\\_ => [] ; n = Pl; p = P3; g=PGen Fem ; ---- anim = Animate ; pron = True} ; -- missing in Russian - that_Det = totDet ** {n = Sg; g = PNoGen; c= Nom} ; + these_NP = UsePron (pronEti** {lock_Pron = <>}); -- missing in Russian + those_NP = UsePron (pronTe** {lock_Pron = <>}); -- missing in Russian + that_Quant = totDet ** {n = Sg; g = PNoGen; c= Nom} ; that_NP = det2NounPhrase totDet ; -- inanimate form only - therefore_Adv = ss "Ñледовательно" ; - these_NDet = etotDet ** { g = PNoGen; c= Nom} ; - they8fem_NP = pron2NounPhrase pronOni Animate; - they_NP = pron2NounPhrase pronOni Animate; - this_Det = etotDet ** {n = Sg; g = PNoGen; c= Nom} ; + there_Adv = ss "там" ; + there7to_Adv = ss "туда" ; + there7from_Adv = ss "оттуда" ; + therefore_PConj = ss "Ñледовательно" ; +-- these_NDet = etotDet ** { g = PNoGen; c= Nom} ; +-- they8fem_NP = UsePron pronOni Animate; + they_Pron = pronOni; + this_Quant = etotDet ** {n = Sg; g = PNoGen; c= Nom} ; this_NP = det2NounPhrase etotDet ; -- inanimate form only - those_NDet = totDet ** {g = PNoGen; c= Nom} ; - thou_NP = pron2NounPhrase pronTu Animate; - through_Prep = { s2 = "через" ; c = Acc }; - to_Prep = { s2 = "к" ; c = Dat }; - too_Adv = ss "Ñлишком" ; - under_Prep = { s2 = "под" ; c = Inst }; - very_Adv = ss "очень" ; +-- those_NDet = totDet ** {g = PNoGen; c= Nom} ; +-- thou_NP = UsePron pronTu Animate; + through_Prep = { s = "через" ; c = Acc }; + to_Prep = { s = "к" ; c = Dat }; + too_AdA = ss "Ñлишком" ; + under_Prep = { s = "под" ; c = Inst }; + very_AdA = ss "очень" ; want_VV = verbKhotet ; - we_NP = pron2NounPhrase pronMu Animate ; - what8many_IP = pron2NounPhraseNum pronChto Inanimate Pl; - what8one_IP = pron2NounPhraseNum pronChto Inanimate Sg; + we_Pron = pronMu ; + whatPl_IP = pron2NounPhraseNum pronChto Inanimate Pl; + whatSg_IP = pron2NounPhraseNum pronChto Inanimate Sg; when_IAdv = ss "когда" ; when_Subj = ss "когда" ; where_IAdv = ss "где" ; - which8many_IDet = kotorujDet ** {n = Pl; g = PNoGen; c= Nom} ; - which8one_IDet = kotorujDet ** {n = Sg; g = PNoGen; c= Nom} ; - who8many_IP = pron2NounPhraseNum pronKto Animate Pl; - who8one_IP = pron2NounPhraseNum pronKto Animate Sg; + whichPl_IDet = kotorujDet ** {n = Pl; g = PNoGen; c= Nom} ; + whichSg_IDet = kotorujDet ** {n = Sg; g = PNoGen; c= Nom} ; + whoPl_IP = pron2NounPhraseNum pronKto Animate Pl; + whoSg_IP = pron2NounPhraseNum pronKto Animate Sg; why_IAdv = ss "почему" ; - with_Prep = { s2 = "Ñ" ; c = Inst}; - without_Prep = { s2 = "без" ; c = Gen}; - ye_NP = pron2NounPhrase pronVu Animate; + with_Prep = { s = "Ñ" ; c = Inst}; + without_Prep = { s = "без" ; c = Gen}; + youPl_Pron = pronVu; yes_Phr = ss ["Да ."] ; - you_NP = pron2NounPhrase pronVu Animate; + youSg_Pron = pronVu; + youPol_Pron = pronVu; + --- NoDet = nikakojDet ** {n = Sg; g = PNoGen; c= Nom} ; --- AnyDet = lubojDet ** {n = Sg; g = PNoGen; c= Nom} ; --- AnyNumDet = mkDeterminerNum (lubojDet ** {n = Pl; g = PNoGen; c= Nom} ); --- NoNumDet = mkDeterminerNum (nikakojDet ** {n = Pl; g = PNoGen; c= Nom} ); ----NobodyNP = pron2NounPhrase pronNikto Animate; ----NothingNP = pron2NounPhrase pronNichto Inanimate; +---NobodyNP = UsePron pronNikto Animate; +---NothingNP = UsePron pronNichto Inanimate; -- In case of "neither.. no" expression double negation is not -- only possible, but also required in Russian. -- There is no means of control for this however in the resource grammar. --- NeitherNor = sd2 "ни" [", ни"] ** {n = Sg} ; --- NowhereNP = ss "нигде" ; ---- AgentPrep = { s2 = "" ; c = Nom}; -- missing in Russian -} ; +--- AgentPrep = { s = "" ; c = Nom}; -- missing in Russian +} + diff --git a/lib/resource-1.0/russian/VerbRus.gf b/lib/resource/russian/VerbRus.gf similarity index 100% rename from lib/resource-1.0/russian/VerbRus.gf rename to lib/resource/russian/VerbRus.gf diff --git a/lib/resource-1.0/scandinavian/AdjectiveScand.gf b/lib/resource/scandinavian/AdjectiveScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/AdjectiveScand.gf rename to lib/resource/scandinavian/AdjectiveScand.gf diff --git a/lib/resource-1.0/scandinavian/AdverbScand.gf b/lib/resource/scandinavian/AdverbScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/AdverbScand.gf rename to lib/resource/scandinavian/AdverbScand.gf diff --git a/lib/resource-1.0/scandinavian/CatScand.gf b/lib/resource/scandinavian/CatScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/CatScand.gf rename to lib/resource/scandinavian/CatScand.gf diff --git a/lib/resource-1.0/scandinavian/CommonScand.gf b/lib/resource/scandinavian/CommonScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/CommonScand.gf rename to lib/resource/scandinavian/CommonScand.gf diff --git a/lib/resource-1.0/scandinavian/ConjunctionScand.gf b/lib/resource/scandinavian/ConjunctionScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/ConjunctionScand.gf rename to lib/resource/scandinavian/ConjunctionScand.gf diff --git a/lib/resource-1.0/scandinavian/DiffScand.gf b/lib/resource/scandinavian/DiffScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/DiffScand.gf rename to lib/resource/scandinavian/DiffScand.gf diff --git a/lib/resource-1.0/scandinavian/ExtEngAbs.gf b/lib/resource/scandinavian/ExtEngAbs.gf similarity index 100% rename from lib/resource-1.0/scandinavian/ExtEngAbs.gf rename to lib/resource/scandinavian/ExtEngAbs.gf diff --git a/lib/resource-1.0/scandinavian/ExtraScand.gf b/lib/resource/scandinavian/ExtraScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/ExtraScand.gf rename to lib/resource/scandinavian/ExtraScand.gf diff --git a/lib/resource-1.0/scandinavian/ExtraScandAbs.gf b/lib/resource/scandinavian/ExtraScandAbs.gf similarity index 100% rename from lib/resource-1.0/scandinavian/ExtraScandAbs.gf rename to lib/resource/scandinavian/ExtraScandAbs.gf diff --git a/lib/resource-1.0/scandinavian/NounScand.gf b/lib/resource/scandinavian/NounScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/NounScand.gf rename to lib/resource/scandinavian/NounScand.gf diff --git a/lib/resource-1.0/scandinavian/PhraseScand.gf b/lib/resource/scandinavian/PhraseScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/PhraseScand.gf rename to lib/resource/scandinavian/PhraseScand.gf diff --git a/lib/resource-1.0/scandinavian/QuestionScand.gf b/lib/resource/scandinavian/QuestionScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/QuestionScand.gf rename to lib/resource/scandinavian/QuestionScand.gf diff --git a/lib/resource-1.0/scandinavian/RelativeScand.gf b/lib/resource/scandinavian/RelativeScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/RelativeScand.gf rename to lib/resource/scandinavian/RelativeScand.gf diff --git a/lib/resource-1.0/scandinavian/ResScand.gf b/lib/resource/scandinavian/ResScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/ResScand.gf rename to lib/resource/scandinavian/ResScand.gf diff --git a/lib/resource-1.0/scandinavian/SentenceScand.gf b/lib/resource/scandinavian/SentenceScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/SentenceScand.gf rename to lib/resource/scandinavian/SentenceScand.gf diff --git a/lib/resource-1.0/scandinavian/VerbScand.gf b/lib/resource/scandinavian/VerbScand.gf similarity index 100% rename from lib/resource-1.0/scandinavian/VerbScand.gf rename to lib/resource/scandinavian/VerbScand.gf diff --git a/lib/resource-1.0/spanish/AdjectiveSpa.gf b/lib/resource/spanish/AdjectiveSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/AdjectiveSpa.gf rename to lib/resource/spanish/AdjectiveSpa.gf diff --git a/lib/resource-1.0/spanish/AdverbSpa.gf b/lib/resource/spanish/AdverbSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/AdverbSpa.gf rename to lib/resource/spanish/AdverbSpa.gf diff --git a/lib/resource/spanish/BeschSpa.gf b/lib/resource/spanish/BeschSpa.gf index 60d5c8c72..adc1e5cef 100644 --- a/lib/resource/spanish/BeschSpa.gf +++ b/lib/resource/spanish/BeschSpa.gf @@ -1,8 +1,10 @@ ---# -path=.:../romance:../abstract:../../prelude +--# -path=.:../romance:../common:../abstract:../../prelude -resource BeschSpa = open TypesSpa in { +resource BeschSpa = open Prelude, CommonRomance in { -oper Verbum = {s : VForm => Str} ; +flags optimize=noexpand ; -- faster than values + +oper Verbum = {s : VFB => Str} ; -- machine-generated GF file from FM source by Inger Andersson and Therese Söderberg @@ -24,42 +26,42 @@ oper ser_1 : Str -> Verbum = \ser -> VP (Pres Subj Pl P1) => x_ + "seamos" ; VP (Pres Subj Pl P2) => x_ + "seáis" ; VP (Pres Subj Pl P3) => x_ + "sean" ; - VP (Impf Ind Sg P1) => x_ + "era" ; - VP (Impf Ind Sg P2) => x_ + "eras" ; - VP (Impf Ind Sg P3) => x_ + "era" ; - VP (Impf Ind Pl P1) => x_ + "éramos" ; - VP (Impf Ind Pl P2) => x_ + "erais" ; - VP (Impf Ind Pl P3) => x_ + "eran" ; - VP (Impf Subj Sg P1) => variants {x_ + "fuera" ; x_ + "fuese"} ; - VP (Impf Subj Sg P2) => variants {x_ + "fueras" ; x_ + "fueses"} ; - VP (Impf Subj Sg P3) => variants {x_ + "fuera" ; x_ + "fuese"} ; - VP (Impf Subj Pl P1) => variants {x_ + "fuéramos" ; x_ + "fuésemos"} ; - VP (Impf Subj Pl P2) => variants {x_ + "fuerais" ; x_ + "fueseis"} ; - VP (Impf Subj Pl P3) => variants {x_ + "fueran" ; x_ + "fuesen"} ; - VP (Pret Sg P1) => x_ + "fui" ; - VP (Pret Sg P2) => x_ + "fuiste" ; - VP (Pret Sg P3) => x_ + "fue" ; - VP (Pret Pl P1) => x_ + "fuimos" ; - VP (Pret Pl P2) => x_ + "fuisteis" ; - VP (Pret Pl P3) => x_ + "fueron" ; - VP (Fut Ind Sg P1) => x_ + "seré" ; - VP (Fut Ind Sg P2) => x_ + "serás" ; - VP (Fut Ind Sg P3) => x_ + "será" ; - VP (Fut Ind Pl P1) => x_ + "seremos" ; - VP (Fut Ind Pl P2) => x_ + "seréis" ; - VP (Fut Ind Pl P3) => x_ + "serán" ; - VP (Fut Subj Sg P1) => x_ + "fuere" ; - VP (Fut Subj Sg P2) => x_ + "fueres" ; - VP (Fut Subj Sg P3) => x_ + "fuere" ; - VP (Fut Subj Pl P1) => x_ + "fuéremos" ; - VP (Fut Subj Pl P2) => x_ + "fuereis" ; - VP (Fut Subj Pl P3) => x_ + "fueren" ; - VP (Cond Sg P1) => x_ + "sería" ; - VP (Cond Sg P2) => x_ + "serías" ; - VP (Cond Sg P3) => x_ + "sería" ; - VP (Cond Pl P1) => x_ + "seríamos" ; - VP (Cond Pl P2) => x_ + "seríais" ; - VP (Cond Pl P3) => x_ + "serían" ; + VP (Impf Ind Sg P1) => x_ + "era" ; --# notpresent + VP (Impf Ind Sg P2) => x_ + "eras" ; --# notpresent + VP (Impf Ind Sg P3) => x_ + "era" ; --# notpresent + VP (Impf Ind Pl P1) => x_ + "éramos" ; --# notpresent + VP (Impf Ind Pl P2) => x_ + "erais" ; --# notpresent + VP (Impf Ind Pl P3) => x_ + "eran" ; --# notpresent + VP (Impf Subj Sg P1) => variants {x_ + "fuera" ; x_ + "fuese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {x_ + "fueras" ; x_ + "fueses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {x_ + "fuera" ; x_ + "fuese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {x_ + "fuéramos" ; x_ + "fuésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {x_ + "fuerais" ; x_ + "fueseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {x_ + "fueran" ; x_ + "fuesen"} ; --# notpresent + VP (Pret Sg P1) => x_ + "fui" ; --# notpresent + VP (Pret Sg P2) => x_ + "fuiste" ; --# notpresent + VP (Pret Sg P3) => x_ + "fue" ; --# notpresent + VP (Pret Pl P1) => x_ + "fuimos" ; --# notpresent + VP (Pret Pl P2) => x_ + "fuisteis" ; --# notpresent + VP (Pret Pl P3) => x_ + "fueron" ; --# notpresent + VP (Fut Ind Sg P1) => x_ + "seré" ; --# notpresent + VP (Fut Ind Sg P2) => x_ + "serás" ; --# notpresent + VP (Fut Ind Sg P3) => x_ + "será" ; --# notpresent + VP (Fut Ind Pl P1) => x_ + "seremos" ; --# notpresent + VP (Fut Ind Pl P2) => x_ + "seréis" ; --# notpresent + VP (Fut Ind Pl P3) => x_ + "serán" ; --# notpresent + VP (Fut Subj Sg P1) => x_ + "fuere" ; --# notpresent + VP (Fut Subj Sg P2) => x_ + "fueres" ; --# notpresent + VP (Fut Subj Sg P3) => x_ + "fuere" ; --# notpresent + VP (Fut Subj Pl P1) => x_ + "fuéremos" ; --# notpresent + VP (Fut Subj Pl P2) => x_ + "fuereis" ; --# notpresent + VP (Fut Subj Pl P3) => x_ + "fueren" ; --# notpresent + VP (Cond Sg P1) => x_ + "sería" ; --# notpresent + VP (Cond Sg P2) => x_ + "serías" ; --# notpresent + VP (Cond Sg P3) => x_ + "sería" ; --# notpresent + VP (Cond Pl P1) => x_ + "seríamos" ; --# notpresent + VP (Cond Pl P2) => x_ + "seríais" ; --# notpresent + VP (Cond Pl P3) => x_ + "serían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => x_ + "sé" ; VP (Imp Sg P3) => x_ + "sea" ; @@ -91,42 +93,42 @@ oper estar_2 : Str -> Verbum = \estar -> VP (Pres Subj Pl P1) => est_ + "emos" ; VP (Pres Subj Pl P2) => est_ + "éis" ; VP (Pres Subj Pl P3) => est_ + "én" ; - VP (Impf Ind Sg P1) => est_ + "aba" ; - VP (Impf Ind Sg P2) => est_ + "abas" ; - VP (Impf Ind Sg P3) => est_ + "aba" ; - VP (Impf Ind Pl P1) => est_ + "ábamos" ; - VP (Impf Ind Pl P2) => est_ + "abais" ; - VP (Impf Ind Pl P3) => est_ + "aban" ; - VP (Impf Subj Sg P1) => variants {est_ + "uviera" ; est_ + "uviese"} ; - VP (Impf Subj Sg P2) => variants {est_ + "uvieras" ; est_ + "uvieses"} ; - VP (Impf Subj Sg P3) => variants {est_ + "uviera" ; est_ + "uviese"} ; - VP (Impf Subj Pl P1) => variants {est_ + "uviéramos" ; est_ + "uviésemos"} ; - VP (Impf Subj Pl P2) => variants {est_ + "uvierais" ; est_ + "uvieseis"} ; - VP (Impf Subj Pl P3) => variants {est_ + "uvieran" ; est_ + "uviesen"} ; - VP (Pret Sg P1) => est_ + "uve" ; - VP (Pret Sg P2) => est_ + "uviste" ; - VP (Pret Sg P3) => est_ + "uvo" ; - VP (Pret Pl P1) => est_ + "uvimos" ; - VP (Pret Pl P2) => est_ + "uvisteis" ; - VP (Pret Pl P3) => est_ + "uvieron" ; - VP (Fut Ind Sg P1) => est_ + "aré" ; - VP (Fut Ind Sg P2) => est_ + "arás" ; - VP (Fut Ind Sg P3) => est_ + "ará" ; - VP (Fut Ind Pl P1) => est_ + "aremos" ; - VP (Fut Ind Pl P2) => est_ + "aréis" ; - VP (Fut Ind Pl P3) => est_ + "arán" ; - VP (Fut Subj Sg P1) => est_ + "uviere" ; - VP (Fut Subj Sg P2) => est_ + "uvieres" ; - VP (Fut Subj Sg P3) => est_ + "uviere" ; - VP (Fut Subj Pl P1) => est_ + "uviéremos" ; - VP (Fut Subj Pl P2) => est_ + "uviereis" ; - VP (Fut Subj Pl P3) => est_ + "uvieren" ; - VP (Cond Sg P1) => est_ + "aría" ; - VP (Cond Sg P2) => est_ + "arías" ; - VP (Cond Sg P3) => est_ + "aría" ; - VP (Cond Pl P1) => est_ + "aríamos" ; - VP (Cond Pl P2) => est_ + "aríais" ; - VP (Cond Pl P3) => est_ + "arían" ; + VP (Impf Ind Sg P1) => est_ + "aba" ; --# notpresent + VP (Impf Ind Sg P2) => est_ + "abas" ; --# notpresent + VP (Impf Ind Sg P3) => est_ + "aba" ; --# notpresent + VP (Impf Ind Pl P1) => est_ + "ábamos" ; --# notpresent + VP (Impf Ind Pl P2) => est_ + "abais" ; --# notpresent + VP (Impf Ind Pl P3) => est_ + "aban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {est_ + "uviera" ; est_ + "uviese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {est_ + "uvieras" ; est_ + "uvieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {est_ + "uviera" ; est_ + "uviese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {est_ + "uviéramos" ; est_ + "uviésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {est_ + "uvierais" ; est_ + "uvieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {est_ + "uvieran" ; est_ + "uviesen"} ; --# notpresent + VP (Pret Sg P1) => est_ + "uve" ; --# notpresent + VP (Pret Sg P2) => est_ + "uviste" ; --# notpresent + VP (Pret Sg P3) => est_ + "uvo" ; --# notpresent + VP (Pret Pl P1) => est_ + "uvimos" ; --# notpresent + VP (Pret Pl P2) => est_ + "uvisteis" ; --# notpresent + VP (Pret Pl P3) => est_ + "uvieron" ; --# notpresent + VP (Fut Ind Sg P1) => est_ + "aré" ; --# notpresent + VP (Fut Ind Sg P2) => est_ + "arás" ; --# notpresent + VP (Fut Ind Sg P3) => est_ + "ará" ; --# notpresent + VP (Fut Ind Pl P1) => est_ + "aremos" ; --# notpresent + VP (Fut Ind Pl P2) => est_ + "aréis" ; --# notpresent + VP (Fut Ind Pl P3) => est_ + "arán" ; --# notpresent + VP (Fut Subj Sg P1) => est_ + "uviere" ; --# notpresent + VP (Fut Subj Sg P2) => est_ + "uvieres" ; --# notpresent + VP (Fut Subj Sg P3) => est_ + "uviere" ; --# notpresent + VP (Fut Subj Pl P1) => est_ + "uviéremos" ; --# notpresent + VP (Fut Subj Pl P2) => est_ + "uviereis" ; --# notpresent + VP (Fut Subj Pl P3) => est_ + "uvieren" ; --# notpresent + VP (Cond Sg P1) => est_ + "aría" ; --# notpresent + VP (Cond Sg P2) => est_ + "arías" ; --# notpresent + VP (Cond Sg P3) => est_ + "aría" ; --# notpresent + VP (Cond Pl P1) => est_ + "aríamos" ; --# notpresent + VP (Cond Pl P2) => est_ + "aríais" ; --# notpresent + VP (Cond Pl P3) => est_ + "arían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => est_ + "á" ; VP (Imp Sg P3) => est_ + "é" ; @@ -158,42 +160,109 @@ oper haber_3 : Str -> Verbum = \haber -> VP (Pres Subj Pl P1) => h_ + "ayamos" ; VP (Pres Subj Pl P2) => h_ + "ayáis" ; VP (Pres Subj Pl P3) => h_ + "ayan" ; - VP (Impf Ind Sg P1) => h_ + "abía" ; - VP (Impf Ind Sg P2) => h_ + "abías" ; - VP (Impf Ind Sg P3) => h_ + "abía" ; - VP (Impf Ind Pl P1) => h_ + "abíamos" ; - VP (Impf Ind Pl P2) => h_ + "abíais" ; - VP (Impf Ind Pl P3) => h_ + "abían" ; - VP (Impf Subj Sg P1) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; - VP (Impf Subj Sg P2) => variants {h_ + "ubieras" ; h_ + "ubieses"} ; - VP (Impf Subj Sg P3) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; - VP (Impf Subj Pl P1) => variants {h_ + "ubiéramos" ; h_ + "ubiésemos"} ; - VP (Impf Subj Pl P2) => variants {h_ + "ubierais" ; h_ + "ubieseis"} ; - VP (Impf Subj Pl P3) => variants {h_ + "ubieran" ; h_ + "ubiesen"} ; - VP (Pret Sg P1) => h_ + "ube" ; - VP (Pret Sg P2) => h_ + "ubiste" ; - VP (Pret Sg P3) => h_ + "ubo" ; - VP (Pret Pl P1) => h_ + "ubimos" ; - VP (Pret Pl P2) => h_ + "ubisteis" ; - VP (Pret Pl P3) => h_ + "ubieron" ; - VP (Fut Ind Sg P1) => h_ + "abré" ; - VP (Fut Ind Sg P2) => h_ + "abrás" ; - VP (Fut Ind Sg P3) => h_ + "abrá" ; - VP (Fut Ind Pl P1) => h_ + "abremos" ; - VP (Fut Ind Pl P2) => h_ + "abréis" ; - VP (Fut Ind Pl P3) => h_ + "abrán" ; - VP (Fut Subj Sg P1) => h_ + "ubiere" ; - VP (Fut Subj Sg P2) => h_ + "ubieres" ; - VP (Fut Subj Sg P3) => h_ + "ubiere" ; - VP (Fut Subj Pl P1) => h_ + "ubiéremos" ; - VP (Fut Subj Pl P2) => h_ + "ubiereis" ; - VP (Fut Subj Pl P3) => h_ + "ubieren" ; - VP (Cond Sg P1) => h_ + "abría" ; - VP (Cond Sg P2) => h_ + "abrías" ; - VP (Cond Sg P3) => h_ + "abría" ; - VP (Cond Pl P1) => h_ + "abríamos" ; - VP (Cond Pl P2) => h_ + "abríais" ; - VP (Cond Pl P3) => h_ + "abrían" ; + VP (Impf Ind Sg P1) => h_ + "abía" ; --# notpresent + VP (Impf Ind Sg P2) => h_ + "abías" ; --# notpresent + VP (Impf Ind Sg P3) => h_ + "abía" ; --# notpresent + VP (Impf Ind Pl P1) => h_ + "abíamos" ; --# notpresent + VP (Impf Ind Pl P2) => h_ + "abíais" ; --# notpresent + VP (Impf Ind Pl P3) => h_ + "abían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {h_ + "ubieras" ; h_ + "ubieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {h_ + "ubiéramos" ; h_ + "ubiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {h_ + "ubierais" ; h_ + "ubieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {h_ + "ubieran" ; h_ + "ubiesen"} ; --# notpresent + VP (Pret Sg P1) => h_ + "ube" ; --# notpresent + VP (Pret Sg P2) => h_ + "ubiste" ; --# notpresent + VP (Pret Sg P3) => h_ + "ubo" ; --# notpresent + VP (Pret Pl P1) => h_ + "ubimos" ; --# notpresent + VP (Pret Pl P2) => h_ + "ubisteis" ; --# notpresent + VP (Pret Pl P3) => h_ + "ubieron" ; --# notpresent + VP (Fut Ind Sg P1) => h_ + "abré" ; --# notpresent + VP (Fut Ind Sg P2) => h_ + "abrás" ; --# notpresent + VP (Fut Ind Sg P3) => h_ + "abrá" ; --# notpresent + VP (Fut Ind Pl P1) => h_ + "abremos" ; --# notpresent + VP (Fut Ind Pl P2) => h_ + "abréis" ; --# notpresent + VP (Fut Ind Pl P3) => h_ + "abrán" ; --# notpresent + VP (Fut Subj Sg P1) => h_ + "ubiere" ; --# notpresent + VP (Fut Subj Sg P2) => h_ + "ubieres" ; --# notpresent + VP (Fut Subj Sg P3) => h_ + "ubiere" ; --# notpresent + VP (Fut Subj Pl P1) => h_ + "ubiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => h_ + "ubiereis" ; --# notpresent + VP (Fut Subj Pl P3) => h_ + "ubieren" ; --# notpresent + VP (Cond Sg P1) => h_ + "abría" ; --# notpresent + VP (Cond Sg P2) => h_ + "abrías" ; --# notpresent + VP (Cond Sg P3) => h_ + "abría" ; --# notpresent + VP (Cond Pl P1) => h_ + "abríamos" ; --# notpresent + VP (Cond Pl P2) => h_ + "abríais" ; --# notpresent + VP (Cond Pl P3) => h_ + "abrían" ; --# 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) => h_ + "abido" ; + VP (Pass Sg Fem) => h_ + "abida" ; + VP (Pass Pl Masc) => h_ + "abidos" ; + VP (Pass Pl Fem) => h_ + "abidas" + } + } ; + +oper hay_3 : Str -> Verbum = \haber -> + let h_ = Predef.tk 4 haber in + {s = table { + VI Infn=> h_ + "aber" ; + VI Ger => h_ + "abiendo" ; + VI Part => h_ + "abido" ; + VP (Pres Ind Sg P1) => h_ + "e" ; + VP (Pres Ind Sg P2) => h_ + "as" ; + VP (Pres Ind Sg P3) => h_ + "ay" ; + VP (Pres Ind Pl P1) => h_ + "emos" ; + VP (Pres Ind Pl P2) => h_ + "abéis" ; + VP (Pres Ind Pl P3) => h_ + "an" ; + VP (Pres Subj Sg P1) => h_ + "aya" ; + VP (Pres Subj Sg P2) => h_ + "ayas" ; + VP (Pres Subj Sg P3) => h_ + "aya" ; + VP (Pres Subj Pl P1) => h_ + "ayamos" ; + VP (Pres Subj Pl P2) => h_ + "ayáis" ; + VP (Pres Subj Pl P3) => h_ + "ayan" ; + VP (Impf Ind Sg P1) => h_ + "abía" ; --# notpresent + VP (Impf Ind Sg P2) => h_ + "abías" ; --# notpresent + VP (Impf Ind Sg P3) => h_ + "abía" ; --# notpresent + VP (Impf Ind Pl P1) => h_ + "abíamos" ; --# notpresent + VP (Impf Ind Pl P2) => h_ + "abíais" ; --# notpresent + VP (Impf Ind Pl P3) => h_ + "abían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {h_ + "ubieras" ; h_ + "ubieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {h_ + "ubiera" ; h_ + "ubiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {h_ + "ubiéramos" ; h_ + "ubiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {h_ + "ubierais" ; h_ + "ubieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {h_ + "ubieran" ; h_ + "ubiesen"} ; --# notpresent + VP (Pret Sg P1) => h_ + "ube" ; --# notpresent + VP (Pret Sg P2) => h_ + "ubiste" ; --# notpresent + VP (Pret Sg P3) => h_ + "ubo" ; --# notpresent + VP (Pret Pl P1) => h_ + "ubimos" ; --# notpresent + VP (Pret Pl P2) => h_ + "ubisteis" ; --# notpresent + VP (Pret Pl P3) => h_ + "ubieron" ; --# notpresent + VP (Fut Ind Sg P1) => h_ + "abré" ; --# notpresent + VP (Fut Ind Sg P2) => h_ + "abrás" ; --# notpresent + VP (Fut Ind Sg P3) => h_ + "abrá" ; --# notpresent + VP (Fut Ind Pl P1) => h_ + "abremos" ; --# notpresent + VP (Fut Ind Pl P2) => h_ + "abréis" ; --# notpresent + VP (Fut Ind Pl P3) => h_ + "abrán" ; --# notpresent + VP (Fut Subj Sg P1) => h_ + "ubiere" ; --# notpresent + VP (Fut Subj Sg P2) => h_ + "ubieres" ; --# notpresent + VP (Fut Subj Sg P3) => h_ + "ubiere" ; --# notpresent + VP (Fut Subj Pl P1) => h_ + "ubiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => h_ + "ubiereis" ; --# notpresent + VP (Fut Subj Pl P3) => h_ + "ubieren" ; --# notpresent + VP (Cond Sg P1) => h_ + "abría" ; --# notpresent + VP (Cond Sg P2) => h_ + "abrías" ; --# notpresent + VP (Cond Sg P3) => h_ + "abría" ; --# notpresent + VP (Cond Pl P1) => h_ + "abríamos" ; --# notpresent + VP (Cond Pl P2) => h_ + "abríais" ; --# notpresent + VP (Cond Pl P3) => h_ + "abrían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => variants {} ; VP (Imp Sg P3) => variants {} ; @@ -225,42 +294,42 @@ oper tener_4 : Str -> Verbum = \tener -> VP (Pres Subj Pl P1) => t_ + "engamos" ; VP (Pres Subj Pl P2) => t_ + "engáis" ; VP (Pres Subj Pl P3) => t_ + "engan" ; - VP (Impf Ind Sg P1) => t_ + "enía" ; - VP (Impf Ind Sg P2) => t_ + "enías" ; - VP (Impf Ind Sg P3) => t_ + "enía" ; - VP (Impf Ind Pl P1) => t_ + "eníamos" ; - VP (Impf Ind Pl P2) => t_ + "eníais" ; - VP (Impf Ind Pl P3) => t_ + "enían" ; - VP (Impf Subj Sg P1) => variants {t_ + "uviera" ; t_ + "uviese"} ; - VP (Impf Subj Sg P2) => variants {t_ + "uvieras" ; t_ + "uvieses"} ; - VP (Impf Subj Sg P3) => variants {t_ + "uviera" ; t_ + "uviese"} ; - VP (Impf Subj Pl P1) => variants {t_ + "uviéramos" ; t_ + "uviésemos"} ; - VP (Impf Subj Pl P2) => variants {t_ + "uvierais" ; t_ + "uvieseis"} ; - VP (Impf Subj Pl P3) => variants {t_ + "uvieran" ; t_ + "uviesen"} ; - VP (Pret Sg P1) => t_ + "uve" ; - VP (Pret Sg P2) => t_ + "uviste" ; - VP (Pret Sg P3) => t_ + "uvo" ; - VP (Pret Pl P1) => t_ + "uvimos" ; - VP (Pret Pl P2) => t_ + "uvisteis" ; - VP (Pret Pl P3) => t_ + "uvieron" ; - VP (Fut Ind Sg P1) => t_ + "endré" ; - VP (Fut Ind Sg P2) => t_ + "endrás" ; - VP (Fut Ind Sg P3) => t_ + "endrá" ; - VP (Fut Ind Pl P1) => t_ + "endremos" ; - VP (Fut Ind Pl P2) => t_ + "endréis" ; - VP (Fut Ind Pl P3) => t_ + "endrán" ; - VP (Fut Subj Sg P1) => t_ + "uviere" ; - VP (Fut Subj Sg P2) => t_ + "uvieres" ; - VP (Fut Subj Sg P3) => t_ + "uviere" ; - VP (Fut Subj Pl P1) => t_ + "uviéremos" ; - VP (Fut Subj Pl P2) => t_ + "uviereis" ; - VP (Fut Subj Pl P3) => t_ + "uvieren" ; - VP (Cond Sg P1) => t_ + "endría" ; - VP (Cond Sg P2) => t_ + "endrías" ; - VP (Cond Sg P3) => t_ + "endría" ; - VP (Cond Pl P1) => t_ + "endríamos" ; - VP (Cond Pl P2) => t_ + "endríais" ; - VP (Cond Pl P3) => t_ + "endrían" ; + VP (Impf Ind Sg P1) => t_ + "enía" ; --# notpresent + VP (Impf Ind Sg P2) => t_ + "enías" ; --# notpresent + VP (Impf Ind Sg P3) => t_ + "enía" ; --# notpresent + VP (Impf Ind Pl P1) => t_ + "eníamos" ; --# notpresent + VP (Impf Ind Pl P2) => t_ + "eníais" ; --# notpresent + VP (Impf Ind Pl P3) => t_ + "enían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {t_ + "uviera" ; t_ + "uviese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {t_ + "uvieras" ; t_ + "uvieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {t_ + "uviera" ; t_ + "uviese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {t_ + "uviéramos" ; t_ + "uviésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {t_ + "uvierais" ; t_ + "uvieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {t_ + "uvieran" ; t_ + "uviesen"} ; --# notpresent + VP (Pret Sg P1) => t_ + "uve" ; --# notpresent + VP (Pret Sg P2) => t_ + "uviste" ; --# notpresent + VP (Pret Sg P3) => t_ + "uvo" ; --# notpresent + VP (Pret Pl P1) => t_ + "uvimos" ; --# notpresent + VP (Pret Pl P2) => t_ + "uvisteis" ; --# notpresent + VP (Pret Pl P3) => t_ + "uvieron" ; --# notpresent + VP (Fut Ind Sg P1) => t_ + "endré" ; --# notpresent + VP (Fut Ind Sg P2) => t_ + "endrás" ; --# notpresent + VP (Fut Ind Sg P3) => t_ + "endrá" ; --# notpresent + VP (Fut Ind Pl P1) => t_ + "endremos" ; --# notpresent + VP (Fut Ind Pl P2) => t_ + "endréis" ; --# notpresent + VP (Fut Ind Pl P3) => t_ + "endrán" ; --# notpresent + VP (Fut Subj Sg P1) => t_ + "uviere" ; --# notpresent + VP (Fut Subj Sg P2) => t_ + "uvieres" ; --# notpresent + VP (Fut Subj Sg P3) => t_ + "uviere" ; --# notpresent + VP (Fut Subj Pl P1) => t_ + "uviéremos" ; --# notpresent + VP (Fut Subj Pl P2) => t_ + "uviereis" ; --# notpresent + VP (Fut Subj Pl P3) => t_ + "uvieren" ; --# notpresent + VP (Cond Sg P1) => t_ + "endría" ; --# notpresent + VP (Cond Sg P2) => t_ + "endrías" ; --# notpresent + VP (Cond Sg P3) => t_ + "endría" ; --# notpresent + VP (Cond Pl P1) => t_ + "endríamos" ; --# notpresent + VP (Cond Pl P2) => t_ + "endríais" ; --# notpresent + VP (Cond Pl P3) => t_ + "endrían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => t_ + "en" ; VP (Imp Sg P3) => t_ + "enga" ; @@ -292,42 +361,42 @@ oper cortar_5 : Str -> Verbum = \cortar -> VP (Pres Subj Pl P1) => cort_ + "emos" ; VP (Pres Subj Pl P2) => cort_ + "éis" ; VP (Pres Subj Pl P3) => cort_ + "en" ; - VP (Impf Ind Sg P1) => cort_ + "aba" ; - VP (Impf Ind Sg P2) => cort_ + "abas" ; - VP (Impf Ind Sg P3) => cort_ + "aba" ; - VP (Impf Ind Pl P1) => cort_ + "ábamos" ; - VP (Impf Ind Pl P2) => cort_ + "abais" ; - VP (Impf Ind Pl P3) => cort_ + "aban" ; - VP (Impf Subj Sg P1) => variants {cort_ + "ara" ; cort_ + "ase"} ; - VP (Impf Subj Sg P2) => variants {cort_ + "aras" ; cort_ + "ases"} ; - VP (Impf Subj Sg P3) => variants {cort_ + "ara" ; cort_ + "ase"} ; - VP (Impf Subj Pl P1) => variants {cort_ + "áramos" ; cort_ + "ásemos"} ; - VP (Impf Subj Pl P2) => variants {cort_ + "arais" ; cort_ + "aseis"} ; - VP (Impf Subj Pl P3) => variants {cort_ + "aran" ; cort_ + "asen"} ; - VP (Pret Sg P1) => cort_ + "é" ; - VP (Pret Sg P2) => cort_ + "aste" ; - VP (Pret Sg P3) => cort_ + "ó" ; - VP (Pret Pl P1) => cort_ + "amos" ; - VP (Pret Pl P2) => cort_ + "asteis" ; - VP (Pret Pl P3) => cort_ + "aron" ; - VP (Fut Ind Sg P1) => cort_ + "aré" ; - VP (Fut Ind Sg P2) => cort_ + "arás" ; - VP (Fut Ind Sg P3) => cort_ + "ará" ; - VP (Fut Ind Pl P1) => cort_ + "aremos" ; - VP (Fut Ind Pl P2) => cort_ + "aréis" ; - VP (Fut Ind Pl P3) => cort_ + "arán" ; - VP (Fut Subj Sg P1) => cort_ + "are" ; - VP (Fut Subj Sg P2) => cort_ + "ares" ; - VP (Fut Subj Sg P3) => cort_ + "are" ; - VP (Fut Subj Pl P1) => cort_ + "áremos" ; - VP (Fut Subj Pl P2) => cort_ + "areis" ; - VP (Fut Subj Pl P3) => cort_ + "aren" ; - VP (Cond Sg P1) => cort_ + "aría" ; - VP (Cond Sg P2) => cort_ + "arías" ; - VP (Cond Sg P3) => cort_ + "aría" ; - VP (Cond Pl P1) => cort_ + "aríamos" ; - VP (Cond Pl P2) => cort_ + "aríais" ; - VP (Cond Pl P3) => cort_ + "arían" ; + VP (Impf Ind Sg P1) => cort_ + "aba" ; --# notpresent + VP (Impf Ind Sg P2) => cort_ + "abas" ; --# notpresent + VP (Impf Ind Sg P3) => cort_ + "aba" ; --# notpresent + VP (Impf Ind Pl P1) => cort_ + "ábamos" ; --# notpresent + VP (Impf Ind Pl P2) => cort_ + "abais" ; --# notpresent + VP (Impf Ind Pl P3) => cort_ + "aban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {cort_ + "ara" ; cort_ + "ase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {cort_ + "aras" ; cort_ + "ases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {cort_ + "ara" ; cort_ + "ase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {cort_ + "áramos" ; cort_ + "ásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {cort_ + "arais" ; cort_ + "aseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {cort_ + "aran" ; cort_ + "asen"} ; --# notpresent + VP (Pret Sg P1) => cort_ + "é" ; --# notpresent + VP (Pret Sg P2) => cort_ + "aste" ; --# notpresent + VP (Pret Sg P3) => cort_ + "ó" ; --# notpresent + VP (Pret Pl P1) => cort_ + "amos" ; --# notpresent + VP (Pret Pl P2) => cort_ + "asteis" ; --# notpresent + VP (Pret Pl P3) => cort_ + "aron" ; --# notpresent + VP (Fut Ind Sg P1) => cort_ + "aré" ; --# notpresent + VP (Fut Ind Sg P2) => cort_ + "arás" ; --# notpresent + VP (Fut Ind Sg P3) => cort_ + "ará" ; --# notpresent + VP (Fut Ind Pl P1) => cort_ + "aremos" ; --# notpresent + VP (Fut Ind Pl P2) => cort_ + "aréis" ; --# notpresent + VP (Fut Ind Pl P3) => cort_ + "arán" ; --# notpresent + VP (Fut Subj Sg P1) => cort_ + "are" ; --# notpresent + VP (Fut Subj Sg P2) => cort_ + "ares" ; --# notpresent + VP (Fut Subj Sg P3) => cort_ + "are" ; --# notpresent + VP (Fut Subj Pl P1) => cort_ + "áremos" ; --# notpresent + VP (Fut Subj Pl P2) => cort_ + "areis" ; --# notpresent + VP (Fut Subj Pl P3) => cort_ + "aren" ; --# notpresent + VP (Cond Sg P1) => cort_ + "aría" ; --# notpresent + VP (Cond Sg P2) => cort_ + "arías" ; --# notpresent + VP (Cond Sg P3) => cort_ + "aría" ; --# notpresent + VP (Cond Pl P1) => cort_ + "aríamos" ; --# notpresent + VP (Cond Pl P2) => cort_ + "aríais" ; --# notpresent + VP (Cond Pl P3) => cort_ + "arían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => cort_ + "a" ; VP (Imp Sg P3) => cort_ + "e" ; @@ -360,42 +429,42 @@ oper deber_6 : Str -> Verbum = \deber -> VP (Pres Subj Pl P1) => deb_ + "amos" ; VP (Pres Subj Pl P2) => deb_ + "áis" ; VP (Pres Subj Pl P3) => deb_ + "an" ; - VP (Impf Ind Sg P1) => deb_ + "ía" ; - VP (Impf Ind Sg P2) => deb_ + "ías" ; - VP (Impf Ind Sg P3) => deb_ + "ía" ; - VP (Impf Ind Pl P1) => deb_ + "íamos" ; - VP (Impf Ind Pl P2) => deb_ + "íais" ; - VP (Impf Ind Pl P3) => deb_ + "ían" ; - VP (Impf Subj Sg P1) => variants {deb_ + "iera" ; deb_ + "iese"} ; - VP (Impf Subj Sg P2) => variants {deb_ + "ieras" ; deb_ + "ieses"} ; - VP (Impf Subj Sg P3) => variants {deb_ + "iera" ; deb_ + "iese"} ; - VP (Impf Subj Pl P1) => variants {deb_ + "iéramos" ; deb_ + "iésemos"} ; - VP (Impf Subj Pl P2) => variants {deb_ + "ierais" ; deb_ + "ieseis"} ; - VP (Impf Subj Pl P3) => variants {deb_ + "ieran" ; deb_ + "iesen"} ; - VP (Pret Sg P1) => deb_ + "í" ; - VP (Pret Sg P2) => deb_ + "iste" ; - VP (Pret Sg P3) => deb_ + "ió" ; - VP (Pret Pl P1) => deb_ + "imos" ; - VP (Pret Pl P2) => deb_ + "isteis" ; - VP (Pret Pl P3) => deb_ + "ieron" ; - VP (Fut Ind Sg P1) => deb_ + "eré" ; - VP (Fut Ind Sg P2) => deb_ + "erás" ; - VP (Fut Ind Sg P3) => deb_ + "erá" ; - VP (Fut Ind Pl P1) => deb_ + "eremos" ; - VP (Fut Ind Pl P2) => deb_ + "eréis" ; - VP (Fut Ind Pl P3) => deb_ + "erán" ; - VP (Fut Subj Sg P1) => deb_ + "iere" ; - VP (Fut Subj Sg P2) => deb_ + "ieres" ; - VP (Fut Subj Sg P3) => deb_ + "iere" ; - VP (Fut Subj Pl P1) => deb_ + "iéremos" ; - VP (Fut Subj Pl P2) => deb_ + "iereis" ; - VP (Fut Subj Pl P3) => deb_ + "ieren" ; - VP (Cond Sg P1) => deb_ + "ería" ; - VP (Cond Sg P2) => deb_ + "erías" ; - VP (Cond Sg P3) => deb_ + "ería" ; - VP (Cond Pl P1) => deb_ + "eríamos" ; - VP (Cond Pl P2) => deb_ + "eríais" ; - VP (Cond Pl P3) => deb_ + "erían" ; + VP (Impf Ind Sg P1) => deb_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => deb_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => deb_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => deb_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => deb_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => deb_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {deb_ + "iera" ; deb_ + "iese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {deb_ + "ieras" ; deb_ + "ieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {deb_ + "iera" ; deb_ + "iese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {deb_ + "iéramos" ; deb_ + "iésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {deb_ + "ierais" ; deb_ + "ieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {deb_ + "ieran" ; deb_ + "iesen"} ; --# notpresent + VP (Pret Sg P1) => deb_ + "í" ; --# notpresent + VP (Pret Sg P2) => deb_ + "iste" ; --# notpresent + VP (Pret Sg P3) => deb_ + "ió" ; --# notpresent + VP (Pret Pl P1) => deb_ + "imos" ; --# notpresent + VP (Pret Pl P2) => deb_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => deb_ + "ieron" ; --# notpresent + VP (Fut Ind Sg P1) => deb_ + "eré" ; --# notpresent + VP (Fut Ind Sg P2) => deb_ + "erás" ; --# notpresent + VP (Fut Ind Sg P3) => deb_ + "erá" ; --# notpresent + VP (Fut Ind Pl P1) => deb_ + "eremos" ; --# notpresent + VP (Fut Ind Pl P2) => deb_ + "eréis" ; --# notpresent + VP (Fut Ind Pl P3) => deb_ + "erán" ; --# notpresent + VP (Fut Subj Sg P1) => deb_ + "iere" ; --# notpresent + VP (Fut Subj Sg P2) => deb_ + "ieres" ; --# notpresent + VP (Fut Subj Sg P3) => deb_ + "iere" ; --# notpresent + VP (Fut Subj Pl P1) => deb_ + "iéremos" ; --# notpresent + VP (Fut Subj Pl P2) => deb_ + "iereis" ; --# notpresent + VP (Fut Subj Pl P3) => deb_ + "ieren" ; --# notpresent + VP (Cond Sg P1) => deb_ + "ería" ; --# notpresent + VP (Cond Sg P2) => deb_ + "erías" ; --# notpresent + VP (Cond Sg P3) => deb_ + "ería" ; --# notpresent + VP (Cond Pl P1) => deb_ + "eríamos" ; --# notpresent + VP (Cond Pl P2) => deb_ + "eríais" ; --# notpresent + VP (Cond Pl P3) => deb_ + "erían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => deb_ + "e" ; VP (Imp Sg P3) => deb_ + "a" ; @@ -426,42 +495,42 @@ oper vivir_7 : Str -> Verbum = \vivir -> VP (Pres Subj Pl P1) => viv_ + "amos" ; VP (Pres Subj Pl P2) => viv_ + "áis" ; VP (Pres Subj Pl P3) => viv_ + "an" ; - VP (Impf Ind Sg P1) => viv_ + "ía" ; - VP (Impf Ind Sg P2) => viv_ + "ías" ; - VP (Impf Ind Sg P3) => viv_ + "ía" ; - VP (Impf Ind Pl P1) => viv_ + "íamos" ; - VP (Impf Ind Pl P2) => viv_ + "íais" ; - VP (Impf Ind Pl P3) => viv_ + "ían" ; - VP (Impf Subj Sg P1) => variants {viv_ + "iera" ; viv_ + "iese"} ; - VP (Impf Subj Sg P2) => variants {viv_ + "ieras" ; viv_ + "ieses"} ; - VP (Impf Subj Sg P3) => variants {viv_ + "iera" ; viv_ + "iese"} ; - VP (Impf Subj Pl P1) => variants {viv_ + "iéramos" ; viv_ + "iésemos"} ; - VP (Impf Subj Pl P2) => variants {viv_ + "ierais" ; viv_ + "ieseis"} ; - VP (Impf Subj Pl P3) => variants {viv_ + "ieran" ; viv_ + "iesen"} ; - VP (Pret Sg P1) => viv_ + "í" ; - VP (Pret Sg P2) => viv_ + "iste" ; - VP (Pret Sg P3) => viv_ + "ió" ; - VP (Pret Pl P1) => viv_ + "imos" ; - VP (Pret Pl P2) => viv_ + "isteis" ; - VP (Pret Pl P3) => viv_ + "ieron" ; - VP (Fut Ind Sg P1) => viv_ + "iré" ; - VP (Fut Ind Sg P2) => viv_ + "irás" ; - VP (Fut Ind Sg P3) => viv_ + "irá" ; - VP (Fut Ind Pl P1) => viv_ + "iremos" ; - VP (Fut Ind Pl P2) => viv_ + "iréis" ; - VP (Fut Ind Pl P3) => viv_ + "irán" ; - VP (Fut Subj Sg P1) => viv_ + "iere" ; - VP (Fut Subj Sg P2) => viv_ + "ieres" ; - VP (Fut Subj Sg P3) => viv_ + "iere" ; - VP (Fut Subj Pl P1) => viv_ + "iéremos" ; - VP (Fut Subj Pl P2) => viv_ + "iereis" ; - VP (Fut Subj Pl P3) => viv_ + "ieren" ; - VP (Cond Sg P1) => viv_ + "iría" ; - VP (Cond Sg P2) => viv_ + "irías" ; - VP (Cond Sg P3) => viv_ + "iría" ; - VP (Cond Pl P1) => viv_ + "iríamos" ; - VP (Cond Pl P2) => viv_ + "iríais" ; - VP (Cond Pl P3) => viv_ + "irían" ; + VP (Impf Ind Sg P1) => viv_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => viv_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => viv_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => viv_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => viv_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => viv_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {viv_ + "iera" ; viv_ + "iese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {viv_ + "ieras" ; viv_ + "ieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {viv_ + "iera" ; viv_ + "iese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {viv_ + "iéramos" ; viv_ + "iésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {viv_ + "ierais" ; viv_ + "ieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {viv_ + "ieran" ; viv_ + "iesen"} ; --# notpresent + VP (Pret Sg P1) => viv_ + "í" ; --# notpresent + VP (Pret Sg P2) => viv_ + "iste" ; --# notpresent + VP (Pret Sg P3) => viv_ + "ió" ; --# notpresent + VP (Pret Pl P1) => viv_ + "imos" ; --# notpresent + VP (Pret Pl P2) => viv_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => viv_ + "ieron" ; --# notpresent + VP (Fut Ind Sg P1) => viv_ + "iré" ; --# notpresent + VP (Fut Ind Sg P2) => viv_ + "irás" ; --# notpresent + VP (Fut Ind Sg P3) => viv_ + "irá" ; --# notpresent + VP (Fut Ind Pl P1) => viv_ + "iremos" ; --# notpresent + VP (Fut Ind Pl P2) => viv_ + "iréis" ; --# notpresent + VP (Fut Ind Pl P3) => viv_ + "irán" ; --# notpresent + VP (Fut Subj Sg P1) => viv_ + "iere" ; --# notpresent + VP (Fut Subj Sg P2) => viv_ + "ieres" ; --# notpresent + VP (Fut Subj Sg P3) => viv_ + "iere" ; --# notpresent + VP (Fut Subj Pl P1) => viv_ + "iéremos" ; --# notpresent + VP (Fut Subj Pl P2) => viv_ + "iereis" ; --# notpresent + VP (Fut Subj Pl P3) => viv_ + "ieren" ; --# notpresent + VP (Cond Sg P1) => viv_ + "iría" ; --# notpresent + VP (Cond Sg P2) => viv_ + "irías" ; --# notpresent + VP (Cond Sg P3) => viv_ + "iría" ; --# notpresent + VP (Cond Pl P1) => viv_ + "iríamos" ; --# notpresent + VP (Cond Pl P2) => viv_ + "iríais" ; --# notpresent + VP (Cond Pl P3) => viv_ + "irían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => viv_ + "e" ; VP (Imp Sg P3) => viv_ + "a" ; @@ -492,42 +561,42 @@ oper abolir_8 : Str -> Verbum = \abolir -> VP (Pres Subj Pl P1) => variants {} ; VP (Pres Subj Pl P2) => variants {} ; VP (Pres Subj Pl P3) => variants {} ; - VP (Impf Ind Sg P1) => abol_ + "ía" ; - VP (Impf Ind Sg P2) => abol_ + "ías" ; - VP (Impf Ind Sg P3) => abol_ + "ía" ; - VP (Impf Ind Pl P1) => abol_ + "íamos" ; - VP (Impf Ind Pl P2) => abol_ + "íais" ; - VP (Impf Ind Pl P3) => abol_ + "ían" ; - VP (Impf Subj Sg P1) => variants {abol_ + "iera" ; abol_ + "iese"} ; - VP (Impf Subj Sg P2) => variants {abol_ + "ieras" ; abol_ + "ieses"} ; - VP (Impf Subj Sg P3) => variants {abol_ + "iera" ; abol_ + "iese"} ; - VP (Impf Subj Pl P1) => variants {abol_ + "iéramos" ; abol_ + "iésemos"} ; - VP (Impf Subj Pl P2) => variants {abol_ + "ierais" ; abol_ + "ieseis"} ; - VP (Impf Subj Pl P3) => variants {abol_ + "ieran" ; abol_ + "iesen"} ; - VP (Pret Sg P1) => abol_ + "í" ; - VP (Pret Sg P2) => abol_ + "iste" ; - VP (Pret Sg P3) => abol_ + "ió" ; - VP (Pret Pl P1) => abol_ + "imos" ; - VP (Pret Pl P2) => abol_ + "isteis" ; - VP (Pret Pl P3) => abol_ + "ieron" ; - VP (Fut Ind Sg P1) => abol_ + "iré" ; - VP (Fut Ind Sg P2) => abol_ + "irás" ; - VP (Fut Ind Sg P3) => abol_ + "irá" ; - VP (Fut Ind Pl P1) => abol_ + "iremos" ; - VP (Fut Ind Pl P2) => abol_ + "iréis" ; - VP (Fut Ind Pl P3) => abol_ + "irán" ; - VP (Fut Subj Sg P1) => abol_ + "iere" ; - VP (Fut Subj Sg P2) => abol_ + "ieres" ; - VP (Fut Subj Sg P3) => abol_ + "iere" ; - VP (Fut Subj Pl P1) => abol_ + "iéremos" ; - VP (Fut Subj Pl P2) => abol_ + "iereis" ; - VP (Fut Subj Pl P3) => abol_ + "ieren" ; - VP (Cond Sg P1) => abol_ + "iría" ; - VP (Cond Sg P2) => abol_ + "irías" ; - VP (Cond Sg P3) => abol_ + "iría" ; - VP (Cond Pl P1) => abol_ + "iríamos" ; - VP (Cond Pl P2) => abol_ + "iríais" ; - VP (Cond Pl P3) => abol_ + "irían" ; + VP (Impf Ind Sg P1) => abol_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => abol_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => abol_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => abol_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => abol_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => abol_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {abol_ + "iera" ; abol_ + "iese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {abol_ + "ieras" ; abol_ + "ieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {abol_ + "iera" ; abol_ + "iese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {abol_ + "iéramos" ; abol_ + "iésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {abol_ + "ierais" ; abol_ + "ieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {abol_ + "ieran" ; abol_ + "iesen"} ; --# notpresent + VP (Pret Sg P1) => abol_ + "í" ; --# notpresent + VP (Pret Sg P2) => abol_ + "iste" ; --# notpresent + VP (Pret Sg P3) => abol_ + "ió" ; --# notpresent + VP (Pret Pl P1) => abol_ + "imos" ; --# notpresent + VP (Pret Pl P2) => abol_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => abol_ + "ieron" ; --# notpresent + VP (Fut Ind Sg P1) => abol_ + "iré" ; --# notpresent + VP (Fut Ind Sg P2) => abol_ + "irás" ; --# notpresent + VP (Fut Ind Sg P3) => abol_ + "irá" ; --# notpresent + VP (Fut Ind Pl P1) => abol_ + "iremos" ; --# notpresent + VP (Fut Ind Pl P2) => abol_ + "iréis" ; --# notpresent + VP (Fut Ind Pl P3) => abol_ + "irán" ; --# notpresent + VP (Fut Subj Sg P1) => abol_ + "iere" ; --# notpresent + VP (Fut Subj Sg P2) => abol_ + "ieres" ; --# notpresent + VP (Fut Subj Sg P3) => abol_ + "iere" ; --# notpresent + VP (Fut Subj Pl P1) => abol_ + "iéremos" ; --# notpresent + VP (Fut Subj Pl P2) => abol_ + "iereis" ; --# notpresent + VP (Fut Subj Pl P3) => abol_ + "ieren" ; --# notpresent + VP (Cond Sg P1) => abol_ + "iría" ; --# notpresent + VP (Cond Sg P2) => abol_ + "irías" ; --# notpresent + VP (Cond Sg P3) => abol_ + "iría" ; --# notpresent + VP (Cond Pl P1) => abol_ + "iríamos" ; --# notpresent + VP (Cond Pl P2) => abol_ + "iríais" ; --# notpresent + VP (Cond Pl P3) => abol_ + "irían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => variants {} ; VP (Imp Sg P3) => variants {} ; @@ -558,42 +627,42 @@ oper actuar_9 : Str -> Verbum = \actuar -> VP (Pres Subj Pl P1) => act_ + "uemos" ; VP (Pres Subj Pl P2) => act_ + "uéis" ; VP (Pres Subj Pl P3) => act_ + "úen" ; - VP (Impf Ind Sg P1) => act_ + "uaba" ; - VP (Impf Ind Sg P2) => act_ + "uabas" ; - VP (Impf Ind Sg P3) => act_ + "uaba" ; - VP (Impf Ind Pl P1) => act_ + "uábamos" ; - VP (Impf Ind Pl P2) => act_ + "uabais" ; - VP (Impf Ind Pl P3) => act_ + "uaban" ; - VP (Impf Subj Sg P1) => variants {act_ + "uara" ; act_ + "uase"} ; - VP (Impf Subj Sg P2) => variants {act_ + "uaras" ; act_ + "uases"} ; - VP (Impf Subj Sg P3) => variants {act_ + "uara" ; act_ + "uase"} ; - VP (Impf Subj Pl P1) => variants {act_ + "uáramos" ; act_ + "uásemos"} ; - VP (Impf Subj Pl P2) => variants {act_ + "uarais" ; act_ + "uaseis"} ; - VP (Impf Subj Pl P3) => variants {act_ + "uaran" ; act_ + "uasen"} ; - VP (Pret Sg P1) => act_ + "ué" ; - VP (Pret Sg P2) => act_ + "uaste" ; - VP (Pret Sg P3) => act_ + "uó" ; - VP (Pret Pl P1) => act_ + "uamos" ; - VP (Pret Pl P2) => act_ + "uasteis" ; - VP (Pret Pl P3) => act_ + "uaron" ; - VP (Fut Ind Sg P1) => act_ + "uaré" ; - VP (Fut Ind Sg P2) => act_ + "uarás" ; - VP (Fut Ind Sg P3) => act_ + "uará" ; - VP (Fut Ind Pl P1) => act_ + "uaremos" ; - VP (Fut Ind Pl P2) => act_ + "uaréis" ; - VP (Fut Ind Pl P3) => act_ + "uarán" ; - VP (Fut Subj Sg P1) => act_ + "uare" ; - VP (Fut Subj Sg P2) => act_ + "uares" ; - VP (Fut Subj Sg P3) => act_ + "uare" ; - VP (Fut Subj Pl P1) => act_ + "uáremos" ; - VP (Fut Subj Pl P2) => act_ + "uareis" ; - VP (Fut Subj Pl P3) => act_ + "uaren" ; - VP (Cond Sg P1) => act_ + "uaría" ; - VP (Cond Sg P2) => act_ + "uarías" ; - VP (Cond Sg P3) => act_ + "uaría" ; - VP (Cond Pl P1) => act_ + "uaríamos" ; - VP (Cond Pl P2) => act_ + "uaríais" ; - VP (Cond Pl P3) => act_ + "uarían" ; + VP (Impf Ind Sg P1) => act_ + "uaba" ; --# notpresent + VP (Impf Ind Sg P2) => act_ + "uabas" ; --# notpresent + VP (Impf Ind Sg P3) => act_ + "uaba" ; --# notpresent + VP (Impf Ind Pl P1) => act_ + "uábamos" ; --# notpresent + VP (Impf Ind Pl P2) => act_ + "uabais" ; --# notpresent + VP (Impf Ind Pl P3) => act_ + "uaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {act_ + "uara" ; act_ + "uase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {act_ + "uaras" ; act_ + "uases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {act_ + "uara" ; act_ + "uase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {act_ + "uáramos" ; act_ + "uásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {act_ + "uarais" ; act_ + "uaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {act_ + "uaran" ; act_ + "uasen"} ; --# notpresent + VP (Pret Sg P1) => act_ + "ué" ; --# notpresent + VP (Pret Sg P2) => act_ + "uaste" ; --# notpresent + VP (Pret Sg P3) => act_ + "uó" ; --# notpresent + VP (Pret Pl P1) => act_ + "uamos" ; --# notpresent + VP (Pret Pl P2) => act_ + "uasteis" ; --# notpresent + VP (Pret Pl P3) => act_ + "uaron" ; --# notpresent + VP (Fut Ind Sg P1) => act_ + "uaré" ; --# notpresent + VP (Fut Ind Sg P2) => act_ + "uarás" ; --# notpresent + VP (Fut Ind Sg P3) => act_ + "uará" ; --# notpresent + VP (Fut Ind Pl P1) => act_ + "uaremos" ; --# notpresent + VP (Fut Ind Pl P2) => act_ + "uaréis" ; --# notpresent + VP (Fut Ind Pl P3) => act_ + "uarán" ; --# notpresent + VP (Fut Subj Sg P1) => act_ + "uare" ; --# notpresent + VP (Fut Subj Sg P2) => act_ + "uares" ; --# notpresent + VP (Fut Subj Sg P3) => act_ + "uare" ; --# notpresent + VP (Fut Subj Pl P1) => act_ + "uáremos" ; --# notpresent + VP (Fut Subj Pl P2) => act_ + "uareis" ; --# notpresent + VP (Fut Subj Pl P3) => act_ + "uaren" ; --# notpresent + VP (Cond Sg P1) => act_ + "uaría" ; --# notpresent + VP (Cond Sg P2) => act_ + "uarías" ; --# notpresent + VP (Cond Sg P3) => act_ + "uaría" ; --# notpresent + VP (Cond Pl P1) => act_ + "uaríamos" ; --# notpresent + VP (Cond Pl P2) => act_ + "uaríais" ; --# notpresent + VP (Cond Pl P3) => act_ + "uarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => act_ + "úa" ; VP (Imp Sg P3) => act_ + "úe" ; @@ -624,42 +693,42 @@ oper adquirir_10 : Str -> Verbum = \adquirir -> VP (Pres Subj Pl P1) => adqui_ + "ramos" ; VP (Pres Subj Pl P2) => adqui_ + "ráis" ; VP (Pres Subj Pl P3) => adqui_ + "eran" ; - VP (Impf Ind Sg P1) => adqui_ + "ría" ; - VP (Impf Ind Sg P2) => adqui_ + "rías" ; - VP (Impf Ind Sg P3) => adqui_ + "ría" ; - VP (Impf Ind Pl P1) => adqui_ + "ríamos" ; - VP (Impf Ind Pl P2) => adqui_ + "ríais" ; - VP (Impf Ind Pl P3) => adqui_ + "rían" ; - VP (Impf Subj Sg P1) => variants {adqui_ + "riera" ; adqui_ + "riese"} ; - VP (Impf Subj Sg P2) => variants {adqui_ + "rieras" ; adqui_ + "rieses"} ; - VP (Impf Subj Sg P3) => variants {adqui_ + "riera" ; adqui_ + "riese"} ; - VP (Impf Subj Pl P1) => variants {adqui_ + "riéramos" ; adqui_ + "riésemos"} ; - VP (Impf Subj Pl P2) => variants {adqui_ + "rierais" ; adqui_ + "rieseis"} ; - VP (Impf Subj Pl P3) => variants {adqui_ + "rieran" ; adqui_ + "riesen"} ; - VP (Pret Sg P1) => adqui_ + "rí" ; - VP (Pret Sg P2) => adqui_ + "riste" ; - VP (Pret Sg P3) => adqui_ + "rió" ; - VP (Pret Pl P1) => adqui_ + "rimos" ; - VP (Pret Pl P2) => adqui_ + "risteis" ; - VP (Pret Pl P3) => adqui_ + "rieron" ; - VP (Fut Ind Sg P1) => adqui_ + "riré" ; - VP (Fut Ind Sg P2) => adqui_ + "rirás" ; - VP (Fut Ind Sg P3) => adqui_ + "rirá" ; - VP (Fut Ind Pl P1) => adqui_ + "riremos" ; - VP (Fut Ind Pl P2) => adqui_ + "riréis" ; - VP (Fut Ind Pl P3) => adqui_ + "rirán" ; - VP (Fut Subj Sg P1) => adqui_ + "riere" ; - VP (Fut Subj Sg P2) => adqui_ + "rieres" ; - VP (Fut Subj Sg P3) => adqui_ + "riere" ; - VP (Fut Subj Pl P1) => adqui_ + "riéremos" ; - VP (Fut Subj Pl P2) => adqui_ + "riereis" ; - VP (Fut Subj Pl P3) => adqui_ + "rieren" ; - VP (Cond Sg P1) => adqui_ + "riría" ; - VP (Cond Sg P2) => adqui_ + "rirías" ; - VP (Cond Sg P3) => adqui_ + "riría" ; - VP (Cond Pl P1) => adqui_ + "riríamos" ; - VP (Cond Pl P2) => adqui_ + "riríais" ; - VP (Cond Pl P3) => adqui_ + "rirían" ; + VP (Impf Ind Sg P1) => adqui_ + "ría" ; --# notpresent + VP (Impf Ind Sg P2) => adqui_ + "rías" ; --# notpresent + VP (Impf Ind Sg P3) => adqui_ + "ría" ; --# notpresent + VP (Impf Ind Pl P1) => adqui_ + "ríamos" ; --# notpresent + VP (Impf Ind Pl P2) => adqui_ + "ríais" ; --# notpresent + VP (Impf Ind Pl P3) => adqui_ + "rían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {adqui_ + "riera" ; adqui_ + "riese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {adqui_ + "rieras" ; adqui_ + "rieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {adqui_ + "riera" ; adqui_ + "riese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {adqui_ + "riéramos" ; adqui_ + "riésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {adqui_ + "rierais" ; adqui_ + "rieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {adqui_ + "rieran" ; adqui_ + "riesen"} ; --# notpresent + VP (Pret Sg P1) => adqui_ + "rí" ; --# notpresent + VP (Pret Sg P2) => adqui_ + "riste" ; --# notpresent + VP (Pret Sg P3) => adqui_ + "rió" ; --# notpresent + VP (Pret Pl P1) => adqui_ + "rimos" ; --# notpresent + VP (Pret Pl P2) => adqui_ + "risteis" ; --# notpresent + VP (Pret Pl P3) => adqui_ + "rieron" ; --# notpresent + VP (Fut Ind Sg P1) => adqui_ + "riré" ; --# notpresent + VP (Fut Ind Sg P2) => adqui_ + "rirás" ; --# notpresent + VP (Fut Ind Sg P3) => adqui_ + "rirá" ; --# notpresent + VP (Fut Ind Pl P1) => adqui_ + "riremos" ; --# notpresent + VP (Fut Ind Pl P2) => adqui_ + "riréis" ; --# notpresent + VP (Fut Ind Pl P3) => adqui_ + "rirán" ; --# notpresent + VP (Fut Subj Sg P1) => adqui_ + "riere" ; --# notpresent + VP (Fut Subj Sg P2) => adqui_ + "rieres" ; --# notpresent + VP (Fut Subj Sg P3) => adqui_ + "riere" ; --# notpresent + VP (Fut Subj Pl P1) => adqui_ + "riéremos" ; --# notpresent + VP (Fut Subj Pl P2) => adqui_ + "riereis" ; --# notpresent + VP (Fut Subj Pl P3) => adqui_ + "rieren" ; --# notpresent + VP (Cond Sg P1) => adqui_ + "riría" ; --# notpresent + VP (Cond Sg P2) => adqui_ + "rirías" ; --# notpresent + VP (Cond Sg P3) => adqui_ + "riría" ; --# notpresent + VP (Cond Pl P1) => adqui_ + "riríamos" ; --# notpresent + VP (Cond Pl P2) => adqui_ + "riríais" ; --# notpresent + VP (Cond Pl P3) => adqui_ + "rirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => adqui_ + "ere" ; VP (Imp Sg P3) => adqui_ + "era" ; @@ -690,42 +759,42 @@ oper ahincar_11 : Str -> Verbum = \ahincar -> VP (Pres Subj Pl P1) => ah_ + "inquemos" ; VP (Pres Subj Pl P2) => ah_ + "inquéis" ; VP (Pres Subj Pl P3) => ah_ + "ínquen" ; - VP (Impf Ind Sg P1) => ah_ + "incaba" ; - VP (Impf Ind Sg P2) => ah_ + "incabas" ; - VP (Impf Ind Sg P3) => ah_ + "incaba" ; - VP (Impf Ind Pl P1) => ah_ + "incábamos" ; - VP (Impf Ind Pl P2) => ah_ + "incabais" ; - VP (Impf Ind Pl P3) => ah_ + "incaban" ; - VP (Impf Subj Sg P1) => variants {ah_ + "incara" ; ah_ + "incase"} ; - VP (Impf Subj Sg P2) => variants {ah_ + "incaras" ; ah_ + "incases"} ; - VP (Impf Subj Sg P3) => variants {ah_ + "incara" ; ah_ + "incase"} ; - VP (Impf Subj Pl P1) => variants {ah_ + "incáramos" ; ah_ + "incásemos"} ; - VP (Impf Subj Pl P2) => variants {ah_ + "incarais" ; ah_ + "incaseis"} ; - VP (Impf Subj Pl P3) => variants {ah_ + "incaran" ; ah_ + "incasen"} ; - VP (Pret Sg P1) => ah_ + "inqué" ; - VP (Pret Sg P2) => ah_ + "incaste" ; - VP (Pret Sg P3) => ah_ + "incó" ; - VP (Pret Pl P1) => ah_ + "incamos" ; - VP (Pret Pl P2) => ah_ + "incasteis" ; - VP (Pret Pl P3) => ah_ + "incaron" ; - VP (Fut Ind Sg P1) => ah_ + "incaré" ; - VP (Fut Ind Sg P2) => ah_ + "incarás" ; - VP (Fut Ind Sg P3) => ah_ + "incará" ; - VP (Fut Ind Pl P1) => ah_ + "incaremos" ; - VP (Fut Ind Pl P2) => ah_ + "incaréis" ; - VP (Fut Ind Pl P3) => ah_ + "incarán" ; - VP (Fut Subj Sg P1) => ah_ + "incare" ; - VP (Fut Subj Sg P2) => ah_ + "incares" ; - VP (Fut Subj Sg P3) => ah_ + "incare" ; - VP (Fut Subj Pl P1) => ah_ + "incáremos" ; - VP (Fut Subj Pl P2) => ah_ + "incareis" ; - VP (Fut Subj Pl P3) => ah_ + "incaren" ; - VP (Cond Sg P1) => ah_ + "incaría" ; - VP (Cond Sg P2) => ah_ + "incarías" ; - VP (Cond Sg P3) => ah_ + "incaría" ; - VP (Cond Pl P1) => ah_ + "incaríamos" ; - VP (Cond Pl P2) => ah_ + "incaríais" ; - VP (Cond Pl P3) => ah_ + "incarían" ; + VP (Impf Ind Sg P1) => ah_ + "incaba" ; --# notpresent + VP (Impf Ind Sg P2) => ah_ + "incabas" ; --# notpresent + VP (Impf Ind Sg P3) => ah_ + "incaba" ; --# notpresent + VP (Impf Ind Pl P1) => ah_ + "incábamos" ; --# notpresent + VP (Impf Ind Pl P2) => ah_ + "incabais" ; --# notpresent + VP (Impf Ind Pl P3) => ah_ + "incaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {ah_ + "incara" ; ah_ + "incase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {ah_ + "incaras" ; ah_ + "incases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {ah_ + "incara" ; ah_ + "incase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {ah_ + "incáramos" ; ah_ + "incásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {ah_ + "incarais" ; ah_ + "incaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {ah_ + "incaran" ; ah_ + "incasen"} ; --# notpresent + VP (Pret Sg P1) => ah_ + "inqué" ; --# notpresent + VP (Pret Sg P2) => ah_ + "incaste" ; --# notpresent + VP (Pret Sg P3) => ah_ + "incó" ; --# notpresent + VP (Pret Pl P1) => ah_ + "incamos" ; --# notpresent + VP (Pret Pl P2) => ah_ + "incasteis" ; --# notpresent + VP (Pret Pl P3) => ah_ + "incaron" ; --# notpresent + VP (Fut Ind Sg P1) => ah_ + "incaré" ; --# notpresent + VP (Fut Ind Sg P2) => ah_ + "incarás" ; --# notpresent + VP (Fut Ind Sg P3) => ah_ + "incará" ; --# notpresent + VP (Fut Ind Pl P1) => ah_ + "incaremos" ; --# notpresent + VP (Fut Ind Pl P2) => ah_ + "incaréis" ; --# notpresent + VP (Fut Ind Pl P3) => ah_ + "incarán" ; --# notpresent + VP (Fut Subj Sg P1) => ah_ + "incare" ; --# notpresent + VP (Fut Subj Sg P2) => ah_ + "incares" ; --# notpresent + VP (Fut Subj Sg P3) => ah_ + "incare" ; --# notpresent + VP (Fut Subj Pl P1) => ah_ + "incáremos" ; --# notpresent + VP (Fut Subj Pl P2) => ah_ + "incareis" ; --# notpresent + VP (Fut Subj Pl P3) => ah_ + "incaren" ; --# notpresent + VP (Cond Sg P1) => ah_ + "incaría" ; --# notpresent + VP (Cond Sg P2) => ah_ + "incarías" ; --# notpresent + VP (Cond Sg P3) => ah_ + "incaría" ; --# notpresent + VP (Cond Pl P1) => ah_ + "incaríamos" ; --# notpresent + VP (Cond Pl P2) => ah_ + "incaríais" ; --# notpresent + VP (Cond Pl P3) => ah_ + "incarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => ah_ + "ínca" ; VP (Imp Sg P3) => ah_ + "ínque" ; @@ -756,42 +825,42 @@ oper airar_12 : Str -> Verbum = \airar -> VP (Pres Subj Pl P1) => a_ + "iremos" ; VP (Pres Subj Pl P2) => a_ + "iréis" ; VP (Pres Subj Pl P3) => a_ + "íren" ; - VP (Impf Ind Sg P1) => a_ + "iraba" ; - VP (Impf Ind Sg P2) => a_ + "irabas" ; - VP (Impf Ind Sg P3) => a_ + "iraba" ; - VP (Impf Ind Pl P1) => a_ + "irábamos" ; - VP (Impf Ind Pl P2) => a_ + "irabais" ; - VP (Impf Ind Pl P3) => a_ + "iraban" ; - VP (Impf Subj Sg P1) => variants {a_ + "irara" ; a_ + "irase"} ; - VP (Impf Subj Sg P2) => variants {a_ + "iraras" ; a_ + "irases"} ; - VP (Impf Subj Sg P3) => variants {a_ + "irara" ; a_ + "irase"} ; - VP (Impf Subj Pl P1) => variants {a_ + "iráramos" ; a_ + "irásemos"} ; - VP (Impf Subj Pl P2) => variants {a_ + "irarais" ; a_ + "iraseis"} ; - VP (Impf Subj Pl P3) => variants {a_ + "iraran" ; a_ + "irasen"} ; - VP (Pret Sg P1) => a_ + "iré" ; - VP (Pret Sg P2) => a_ + "iraste" ; - VP (Pret Sg P3) => a_ + "iró" ; - VP (Pret Pl P1) => a_ + "iramos" ; - VP (Pret Pl P2) => a_ + "irasteis" ; - VP (Pret Pl P3) => a_ + "iraron" ; - VP (Fut Ind Sg P1) => a_ + "iraré" ; - VP (Fut Ind Sg P2) => a_ + "irarás" ; - VP (Fut Ind Sg P3) => a_ + "irará" ; - VP (Fut Ind Pl P1) => a_ + "iraremos" ; - VP (Fut Ind Pl P2) => a_ + "iraréis" ; - VP (Fut Ind Pl P3) => a_ + "irarán" ; - VP (Fut Subj Sg P1) => a_ + "irare" ; - VP (Fut Subj Sg P2) => a_ + "irares" ; - VP (Fut Subj Sg P3) => a_ + "irare" ; - VP (Fut Subj Pl P1) => a_ + "iráremos" ; - VP (Fut Subj Pl P2) => a_ + "irareis" ; - VP (Fut Subj Pl P3) => a_ + "iraren" ; - VP (Cond Sg P1) => a_ + "iraría" ; - VP (Cond Sg P2) => a_ + "irarías" ; - VP (Cond Sg P3) => a_ + "iraría" ; - VP (Cond Pl P1) => a_ + "iraríamos" ; - VP (Cond Pl P2) => a_ + "iraríais" ; - VP (Cond Pl P3) => a_ + "irarían" ; + VP (Impf Ind Sg P1) => a_ + "iraba" ; --# notpresent + VP (Impf Ind Sg P2) => a_ + "irabas" ; --# notpresent + VP (Impf Ind Sg P3) => a_ + "iraba" ; --# notpresent + VP (Impf Ind Pl P1) => a_ + "irábamos" ; --# notpresent + VP (Impf Ind Pl P2) => a_ + "irabais" ; --# notpresent + VP (Impf Ind Pl P3) => a_ + "iraban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {a_ + "irara" ; a_ + "irase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {a_ + "iraras" ; a_ + "irases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {a_ + "irara" ; a_ + "irase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {a_ + "iráramos" ; a_ + "irásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {a_ + "irarais" ; a_ + "iraseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {a_ + "iraran" ; a_ + "irasen"} ; --# notpresent + VP (Pret Sg P1) => a_ + "iré" ; --# notpresent + VP (Pret Sg P2) => a_ + "iraste" ; --# notpresent + VP (Pret Sg P3) => a_ + "iró" ; --# notpresent + VP (Pret Pl P1) => a_ + "iramos" ; --# notpresent + VP (Pret Pl P2) => a_ + "irasteis" ; --# notpresent + VP (Pret Pl P3) => a_ + "iraron" ; --# notpresent + VP (Fut Ind Sg P1) => a_ + "iraré" ; --# notpresent + VP (Fut Ind Sg P2) => a_ + "irarás" ; --# notpresent + VP (Fut Ind Sg P3) => a_ + "irará" ; --# notpresent + VP (Fut Ind Pl P1) => a_ + "iraremos" ; --# notpresent + VP (Fut Ind Pl P2) => a_ + "iraréis" ; --# notpresent + VP (Fut Ind Pl P3) => a_ + "irarán" ; --# notpresent + VP (Fut Subj Sg P1) => a_ + "irare" ; --# notpresent + VP (Fut Subj Sg P2) => a_ + "irares" ; --# notpresent + VP (Fut Subj Sg P3) => a_ + "irare" ; --# notpresent + VP (Fut Subj Pl P1) => a_ + "iráremos" ; --# notpresent + VP (Fut Subj Pl P2) => a_ + "irareis" ; --# notpresent + VP (Fut Subj Pl P3) => a_ + "iraren" ; --# notpresent + VP (Cond Sg P1) => a_ + "iraría" ; --# notpresent + VP (Cond Sg P2) => a_ + "irarías" ; --# notpresent + VP (Cond Sg P3) => a_ + "iraría" ; --# notpresent + VP (Cond Pl P1) => a_ + "iraríamos" ; --# notpresent + VP (Cond Pl P2) => a_ + "iraríais" ; --# notpresent + VP (Cond Pl P3) => a_ + "irarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => a_ + "íra" ; VP (Imp Sg P3) => a_ + "íre" ; @@ -822,42 +891,42 @@ oper andar_13 : Str -> Verbum = \andar -> VP (Pres Subj Pl P1) => and_ + "emos" ; VP (Pres Subj Pl P2) => and_ + "éis" ; VP (Pres Subj Pl P3) => and_ + "en" ; - VP (Impf Ind Sg P1) => and_ + "aba" ; - VP (Impf Ind Sg P2) => and_ + "abas" ; - VP (Impf Ind Sg P3) => and_ + "aba" ; - VP (Impf Ind Pl P1) => and_ + "ábamos" ; - VP (Impf Ind Pl P2) => and_ + "abais" ; - VP (Impf Ind Pl P3) => and_ + "aban" ; - VP (Impf Subj Sg P1) => variants {and_ + "uviera" ; and_ + "uviese"} ; - VP (Impf Subj Sg P2) => variants {and_ + "uvieras" ; and_ + "uvieses"} ; - VP (Impf Subj Sg P3) => variants {and_ + "uviera" ; and_ + "uviese"} ; - VP (Impf Subj Pl P1) => variants {and_ + "uviéramos" ; and_ + "uviésemos"} ; - VP (Impf Subj Pl P2) => variants {and_ + "uvierais" ; and_ + "uvieseis"} ; - VP (Impf Subj Pl P3) => variants {and_ + "uvieran" ; and_ + "uviesen"} ; - VP (Pret Sg P1) => and_ + "uve" ; - VP (Pret Sg P2) => and_ + "uviste" ; - VP (Pret Sg P3) => and_ + "uvo" ; - VP (Pret Pl P1) => and_ + "uvimos" ; - VP (Pret Pl P2) => and_ + "uvisteis" ; - VP (Pret Pl P3) => and_ + "uvieron" ; - VP (Fut Ind Sg P1) => and_ + "aré" ; - VP (Fut Ind Sg P2) => and_ + "arás" ; - VP (Fut Ind Sg P3) => and_ + "ará" ; - VP (Fut Ind Pl P1) => and_ + "aremos" ; - VP (Fut Ind Pl P2) => and_ + "aréis" ; - VP (Fut Ind Pl P3) => and_ + "arán" ; - VP (Fut Subj Sg P1) => and_ + "uviere" ; - VP (Fut Subj Sg P2) => and_ + "uvieres" ; - VP (Fut Subj Sg P3) => and_ + "uviere" ; - VP (Fut Subj Pl P1) => and_ + "uviéremos" ; - VP (Fut Subj Pl P2) => and_ + "uviereis" ; - VP (Fut Subj Pl P3) => and_ + "uvieren" ; - VP (Cond Sg P1) => and_ + "aría" ; - VP (Cond Sg P2) => and_ + "arías" ; - VP (Cond Sg P3) => and_ + "aría" ; - VP (Cond Pl P1) => and_ + "aríamos" ; - VP (Cond Pl P2) => and_ + "aríais" ; - VP (Cond Pl P3) => and_ + "arían" ; + VP (Impf Ind Sg P1) => and_ + "aba" ; --# notpresent + VP (Impf Ind Sg P2) => and_ + "abas" ; --# notpresent + VP (Impf Ind Sg P3) => and_ + "aba" ; --# notpresent + VP (Impf Ind Pl P1) => and_ + "ábamos" ; --# notpresent + VP (Impf Ind Pl P2) => and_ + "abais" ; --# notpresent + VP (Impf Ind Pl P3) => and_ + "aban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {and_ + "uviera" ; and_ + "uviese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {and_ + "uvieras" ; and_ + "uvieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {and_ + "uviera" ; and_ + "uviese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {and_ + "uviéramos" ; and_ + "uviésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {and_ + "uvierais" ; and_ + "uvieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {and_ + "uvieran" ; and_ + "uviesen"} ; --# notpresent + VP (Pret Sg P1) => and_ + "uve" ; --# notpresent + VP (Pret Sg P2) => and_ + "uviste" ; --# notpresent + VP (Pret Sg P3) => and_ + "uvo" ; --# notpresent + VP (Pret Pl P1) => and_ + "uvimos" ; --# notpresent + VP (Pret Pl P2) => and_ + "uvisteis" ; --# notpresent + VP (Pret Pl P3) => and_ + "uvieron" ; --# notpresent + VP (Fut Ind Sg P1) => and_ + "aré" ; --# notpresent + VP (Fut Ind Sg P2) => and_ + "arás" ; --# notpresent + VP (Fut Ind Sg P3) => and_ + "ará" ; --# notpresent + VP (Fut Ind Pl P1) => and_ + "aremos" ; --# notpresent + VP (Fut Ind Pl P2) => and_ + "aréis" ; --# notpresent + VP (Fut Ind Pl P3) => and_ + "arán" ; --# notpresent + VP (Fut Subj Sg P1) => and_ + "uviere" ; --# notpresent + VP (Fut Subj Sg P2) => and_ + "uvieres" ; --# notpresent + VP (Fut Subj Sg P3) => and_ + "uviere" ; --# notpresent + VP (Fut Subj Pl P1) => and_ + "uviéremos" ; --# notpresent + VP (Fut Subj Pl P2) => and_ + "uviereis" ; --# notpresent + VP (Fut Subj Pl P3) => and_ + "uvieren" ; --# notpresent + VP (Cond Sg P1) => and_ + "aría" ; --# notpresent + VP (Cond Sg P2) => and_ + "arías" ; --# notpresent + VP (Cond Sg P3) => and_ + "aría" ; --# notpresent + VP (Cond Pl P1) => and_ + "aríamos" ; --# notpresent + VP (Cond Pl P2) => and_ + "aríais" ; --# notpresent + VP (Cond Pl P3) => and_ + "arían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => and_ + "a" ; VP (Imp Sg P3) => and_ + "e" ; @@ -888,42 +957,42 @@ oper asir_14 : Str -> Verbum = \asir -> VP (Pres Subj Pl P1) => as_ + "gamos" ; VP (Pres Subj Pl P2) => as_ + "gáis" ; VP (Pres Subj Pl P3) => as_ + "gan" ; - VP (Impf Ind Sg P1) => as_ + "ía" ; - VP (Impf Ind Sg P2) => as_ + "ías" ; - VP (Impf Ind Sg P3) => as_ + "ía" ; - VP (Impf Ind Pl P1) => as_ + "íamos" ; - VP (Impf Ind Pl P2) => as_ + "íais" ; - VP (Impf Ind Pl P3) => as_ + "ían" ; - VP (Impf Subj Sg P1) => variants {as_ + "iera" ; as_ + "iese"} ; - VP (Impf Subj Sg P2) => variants {as_ + "ieras" ; as_ + "ieses"} ; - VP (Impf Subj Sg P3) => variants {as_ + "iera" ; as_ + "iese"} ; - VP (Impf Subj Pl P1) => variants {as_ + "iéramos" ; as_ + "iésemos"} ; - VP (Impf Subj Pl P2) => variants {as_ + "ierais" ; as_ + "ieseis"} ; - VP (Impf Subj Pl P3) => variants {as_ + "ieran" ; as_ + "iesen"} ; - VP (Pret Sg P1) => as_ + "í" ; - VP (Pret Sg P2) => as_ + "iste" ; - VP (Pret Sg P3) => as_ + "ió" ; - VP (Pret Pl P1) => as_ + "imos" ; - VP (Pret Pl P2) => as_ + "isteis" ; - VP (Pret Pl P3) => as_ + "ieron" ; - VP (Fut Ind Sg P1) => as_ + "iré" ; - VP (Fut Ind Sg P2) => as_ + "irás" ; - VP (Fut Ind Sg P3) => as_ + "irá" ; - VP (Fut Ind Pl P1) => as_ + "iremos" ; - VP (Fut Ind Pl P2) => as_ + "iréis" ; - VP (Fut Ind Pl P3) => as_ + "irán" ; - VP (Fut Subj Sg P1) => as_ + "iere" ; - VP (Fut Subj Sg P2) => as_ + "ieres" ; - VP (Fut Subj Sg P3) => as_ + "iere" ; - VP (Fut Subj Pl P1) => as_ + "iéremos" ; - VP (Fut Subj Pl P2) => as_ + "iereis" ; - VP (Fut Subj Pl P3) => as_ + "ieren" ; - VP (Cond Sg P1) => as_ + "iría" ; - VP (Cond Sg P2) => as_ + "irías" ; - VP (Cond Sg P3) => as_ + "iría" ; - VP (Cond Pl P1) => as_ + "iríamos" ; - VP (Cond Pl P2) => as_ + "iríais" ; - VP (Cond Pl P3) => as_ + "irían" ; + VP (Impf Ind Sg P1) => as_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => as_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => as_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => as_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => as_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => as_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {as_ + "iera" ; as_ + "iese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {as_ + "ieras" ; as_ + "ieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {as_ + "iera" ; as_ + "iese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {as_ + "iéramos" ; as_ + "iésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {as_ + "ierais" ; as_ + "ieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {as_ + "ieran" ; as_ + "iesen"} ; --# notpresent + VP (Pret Sg P1) => as_ + "í" ; --# notpresent + VP (Pret Sg P2) => as_ + "iste" ; --# notpresent + VP (Pret Sg P3) => as_ + "ió" ; --# notpresent + VP (Pret Pl P1) => as_ + "imos" ; --# notpresent + VP (Pret Pl P2) => as_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => as_ + "ieron" ; --# notpresent + VP (Fut Ind Sg P1) => as_ + "iré" ; --# notpresent + VP (Fut Ind Sg P2) => as_ + "irás" ; --# notpresent + VP (Fut Ind Sg P3) => as_ + "irá" ; --# notpresent + VP (Fut Ind Pl P1) => as_ + "iremos" ; --# notpresent + VP (Fut Ind Pl P2) => as_ + "iréis" ; --# notpresent + VP (Fut Ind Pl P3) => as_ + "irán" ; --# notpresent + VP (Fut Subj Sg P1) => as_ + "iere" ; --# notpresent + VP (Fut Subj Sg P2) => as_ + "ieres" ; --# notpresent + VP (Fut Subj Sg P3) => as_ + "iere" ; --# notpresent + VP (Fut Subj Pl P1) => as_ + "iéremos" ; --# notpresent + VP (Fut Subj Pl P2) => as_ + "iereis" ; --# notpresent + VP (Fut Subj Pl P3) => as_ + "ieren" ; --# notpresent + VP (Cond Sg P1) => as_ + "iría" ; --# notpresent + VP (Cond Sg P2) => as_ + "irías" ; --# notpresent + VP (Cond Sg P3) => as_ + "iría" ; --# notpresent + VP (Cond Pl P1) => as_ + "iríamos" ; --# notpresent + VP (Cond Pl P2) => as_ + "iríais" ; --# notpresent + VP (Cond Pl P3) => as_ + "irían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => as_ + "e" ; VP (Imp Sg P3) => as_ + "ga" ; @@ -954,42 +1023,42 @@ oper aullar_15 : Str -> Verbum = \aullar -> VP (Pres Subj Pl P1) => a_ + "ullemos" ; VP (Pres Subj Pl P2) => a_ + "ulléis" ; VP (Pres Subj Pl P3) => a_ + "úllen" ; - VP (Impf Ind Sg P1) => a_ + "ullaba" ; - VP (Impf Ind Sg P2) => a_ + "ullabas" ; - VP (Impf Ind Sg P3) => a_ + "ullaba" ; - VP (Impf Ind Pl P1) => a_ + "ullábamos" ; - VP (Impf Ind Pl P2) => a_ + "ullabais" ; - VP (Impf Ind Pl P3) => a_ + "ullaban" ; - VP (Impf Subj Sg P1) => variants {a_ + "ullara" ; a_ + "ullase"} ; - VP (Impf Subj Sg P2) => variants {a_ + "ullaras" ; a_ + "ullases"} ; - VP (Impf Subj Sg P3) => variants {a_ + "ullara" ; a_ + "ullase"} ; - VP (Impf Subj Pl P1) => variants {a_ + "ulláramos" ; a_ + "ullásemos"} ; - VP (Impf Subj Pl P2) => variants {a_ + "ullarais" ; a_ + "ullaseis"} ; - VP (Impf Subj Pl P3) => variants {a_ + "ullaran" ; a_ + "ullasen"} ; - VP (Pret Sg P1) => a_ + "ullé" ; - VP (Pret Sg P2) => a_ + "ullaste" ; - VP (Pret Sg P3) => a_ + "ulló" ; - VP (Pret Pl P1) => a_ + "ullamos" ; - VP (Pret Pl P2) => a_ + "ullasteis" ; - VP (Pret Pl P3) => a_ + "ullaron" ; - VP (Fut Ind Sg P1) => a_ + "ullaré" ; - VP (Fut Ind Sg P2) => a_ + "ullarás" ; - VP (Fut Ind Sg P3) => a_ + "ullará" ; - VP (Fut Ind Pl P1) => a_ + "ullaremos" ; - VP (Fut Ind Pl P2) => a_ + "ullaréis" ; - VP (Fut Ind Pl P3) => a_ + "ullarán" ; - VP (Fut Subj Sg P1) => a_ + "ullare" ; - VP (Fut Subj Sg P2) => a_ + "ullares" ; - VP (Fut Subj Sg P3) => a_ + "ullare" ; - VP (Fut Subj Pl P1) => a_ + "ulláremos" ; - VP (Fut Subj Pl P2) => a_ + "ullareis" ; - VP (Fut Subj Pl P3) => a_ + "ullaren" ; - VP (Cond Sg P1) => a_ + "ullaría" ; - VP (Cond Sg P2) => a_ + "ullarías" ; - VP (Cond Sg P3) => a_ + "ullaría" ; - VP (Cond Pl P1) => a_ + "ullaríamos" ; - VP (Cond Pl P2) => a_ + "ullaríais" ; - VP (Cond Pl P3) => a_ + "ullarían" ; + VP (Impf Ind Sg P1) => a_ + "ullaba" ; --# notpresent + VP (Impf Ind Sg P2) => a_ + "ullabas" ; --# notpresent + VP (Impf Ind Sg P3) => a_ + "ullaba" ; --# notpresent + VP (Impf Ind Pl P1) => a_ + "ullábamos" ; --# notpresent + VP (Impf Ind Pl P2) => a_ + "ullabais" ; --# notpresent + VP (Impf Ind Pl P3) => a_ + "ullaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {a_ + "ullara" ; a_ + "ullase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {a_ + "ullaras" ; a_ + "ullases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {a_ + "ullara" ; a_ + "ullase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {a_ + "ulláramos" ; a_ + "ullásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {a_ + "ullarais" ; a_ + "ullaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {a_ + "ullaran" ; a_ + "ullasen"} ; --# notpresent + VP (Pret Sg P1) => a_ + "ullé" ; --# notpresent + VP (Pret Sg P2) => a_ + "ullaste" ; --# notpresent + VP (Pret Sg P3) => a_ + "ulló" ; --# notpresent + VP (Pret Pl P1) => a_ + "ullamos" ; --# notpresent + VP (Pret Pl P2) => a_ + "ullasteis" ; --# notpresent + VP (Pret Pl P3) => a_ + "ullaron" ; --# notpresent + VP (Fut Ind Sg P1) => a_ + "ullaré" ; --# notpresent + VP (Fut Ind Sg P2) => a_ + "ullarás" ; --# notpresent + VP (Fut Ind Sg P3) => a_ + "ullará" ; --# notpresent + VP (Fut Ind Pl P1) => a_ + "ullaremos" ; --# notpresent + VP (Fut Ind Pl P2) => a_ + "ullaréis" ; --# notpresent + VP (Fut Ind Pl P3) => a_ + "ullarán" ; --# notpresent + VP (Fut Subj Sg P1) => a_ + "ullare" ; --# notpresent + VP (Fut Subj Sg P2) => a_ + "ullares" ; --# notpresent + VP (Fut Subj Sg P3) => a_ + "ullare" ; --# notpresent + VP (Fut Subj Pl P1) => a_ + "ulláremos" ; --# notpresent + VP (Fut Subj Pl P2) => a_ + "ullareis" ; --# notpresent + VP (Fut Subj Pl P3) => a_ + "ullaren" ; --# notpresent + VP (Cond Sg P1) => a_ + "ullaría" ; --# notpresent + VP (Cond Sg P2) => a_ + "ullarías" ; --# notpresent + VP (Cond Sg P3) => a_ + "ullaría" ; --# notpresent + VP (Cond Pl P1) => a_ + "ullaríamos" ; --# notpresent + VP (Cond Pl P2) => a_ + "ullaríais" ; --# notpresent + VP (Cond Pl P3) => a_ + "ullarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => a_ + "úlla" ; VP (Imp Sg P3) => a_ + "úlle" ; @@ -1020,42 +1089,42 @@ oper avergonzar_16 : Str -> Verbum = \avergonzar -> VP (Pres Subj Pl P1) => averg_ + "oncemos" ; VP (Pres Subj Pl P2) => averg_ + "oncéis" ; VP (Pres Subj Pl P3) => averg_ + "üencen" ; - VP (Impf Ind Sg P1) => averg_ + "onzaba" ; - VP (Impf Ind Sg P2) => averg_ + "onzabas" ; - VP (Impf Ind Sg P3) => averg_ + "onzaba" ; - VP (Impf Ind Pl P1) => averg_ + "onzábamos" ; - VP (Impf Ind Pl P2) => averg_ + "onzabais" ; - VP (Impf Ind Pl P3) => averg_ + "onzaban" ; - VP (Impf Subj Sg P1) => variants {averg_ + "onzara" ; averg_ + "onzase"} ; - VP (Impf Subj Sg P2) => variants {averg_ + "onzaras" ; averg_ + "onzases"} ; - VP (Impf Subj Sg P3) => variants {averg_ + "onzara" ; averg_ + "onzase"} ; - VP (Impf Subj Pl P1) => variants {averg_ + "onzáramos" ; averg_ + "onzásemos"} ; - VP (Impf Subj Pl P2) => variants {averg_ + "onzarais" ; averg_ + "onzaseis"} ; - VP (Impf Subj Pl P3) => variants {averg_ + "onzaran" ; averg_ + "onzasen"} ; - VP (Pret Sg P1) => averg_ + "oncé" ; - VP (Pret Sg P2) => averg_ + "onzaste" ; - VP (Pret Sg P3) => averg_ + "onzó" ; - VP (Pret Pl P1) => averg_ + "onzamos" ; - VP (Pret Pl P2) => averg_ + "onzasteis" ; - VP (Pret Pl P3) => averg_ + "onzaron" ; - VP (Fut Ind Sg P1) => averg_ + "onzaré" ; - VP (Fut Ind Sg P2) => averg_ + "onzarás" ; - VP (Fut Ind Sg P3) => averg_ + "onzará" ; - VP (Fut Ind Pl P1) => averg_ + "onzaremos" ; - VP (Fut Ind Pl P2) => averg_ + "onzaréis" ; - VP (Fut Ind Pl P3) => averg_ + "onzarán" ; - VP (Fut Subj Sg P1) => averg_ + "onzare" ; - VP (Fut Subj Sg P2) => averg_ + "onzares" ; - VP (Fut Subj Sg P3) => averg_ + "onzare" ; - VP (Fut Subj Pl P1) => averg_ + "onzáremos" ; - VP (Fut Subj Pl P2) => averg_ + "onzareis" ; - VP (Fut Subj Pl P3) => averg_ + "onzaren" ; - VP (Cond Sg P1) => averg_ + "onzaría" ; - VP (Cond Sg P2) => averg_ + "onzarías" ; - VP (Cond Sg P3) => averg_ + "onzaría" ; - VP (Cond Pl P1) => averg_ + "onzaríamos" ; - VP (Cond Pl P2) => averg_ + "onzaríais" ; - VP (Cond Pl P3) => averg_ + "onzarían" ; + VP (Impf Ind Sg P1) => averg_ + "onzaba" ; --# notpresent + VP (Impf Ind Sg P2) => averg_ + "onzabas" ; --# notpresent + VP (Impf Ind Sg P3) => averg_ + "onzaba" ; --# notpresent + VP (Impf Ind Pl P1) => averg_ + "onzábamos" ; --# notpresent + VP (Impf Ind Pl P2) => averg_ + "onzabais" ; --# notpresent + VP (Impf Ind Pl P3) => averg_ + "onzaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {averg_ + "onzara" ; averg_ + "onzase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {averg_ + "onzaras" ; averg_ + "onzases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {averg_ + "onzara" ; averg_ + "onzase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {averg_ + "onzáramos" ; averg_ + "onzásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {averg_ + "onzarais" ; averg_ + "onzaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {averg_ + "onzaran" ; averg_ + "onzasen"} ; --# notpresent + VP (Pret Sg P1) => averg_ + "oncé" ; --# notpresent + VP (Pret Sg P2) => averg_ + "onzaste" ; --# notpresent + VP (Pret Sg P3) => averg_ + "onzó" ; --# notpresent + VP (Pret Pl P1) => averg_ + "onzamos" ; --# notpresent + VP (Pret Pl P2) => averg_ + "onzasteis" ; --# notpresent + VP (Pret Pl P3) => averg_ + "onzaron" ; --# notpresent + VP (Fut Ind Sg P1) => averg_ + "onzaré" ; --# notpresent + VP (Fut Ind Sg P2) => averg_ + "onzarás" ; --# notpresent + VP (Fut Ind Sg P3) => averg_ + "onzará" ; --# notpresent + VP (Fut Ind Pl P1) => averg_ + "onzaremos" ; --# notpresent + VP (Fut Ind Pl P2) => averg_ + "onzaréis" ; --# notpresent + VP (Fut Ind Pl P3) => averg_ + "onzarán" ; --# notpresent + VP (Fut Subj Sg P1) => averg_ + "onzare" ; --# notpresent + VP (Fut Subj Sg P2) => averg_ + "onzares" ; --# notpresent + VP (Fut Subj Sg P3) => averg_ + "onzare" ; --# notpresent + VP (Fut Subj Pl P1) => averg_ + "onzáremos" ; --# notpresent + VP (Fut Subj Pl P2) => averg_ + "onzareis" ; --# notpresent + VP (Fut Subj Pl P3) => averg_ + "onzaren" ; --# notpresent + VP (Cond Sg P1) => averg_ + "onzaría" ; --# notpresent + VP (Cond Sg P2) => averg_ + "onzarías" ; --# notpresent + VP (Cond Sg P3) => averg_ + "onzaría" ; --# notpresent + VP (Cond Pl P1) => averg_ + "onzaríamos" ; --# notpresent + VP (Cond Pl P2) => averg_ + "onzaríais" ; --# notpresent + VP (Cond Pl P3) => averg_ + "onzarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => averg_ + "üenza" ; VP (Imp Sg P3) => averg_ + "üence" ; @@ -1086,42 +1155,42 @@ oper averiguar_17 : Str -> Verbum = \averiguar -> VP (Pres Subj Pl P1) => averig_ + "üemos" ; VP (Pres Subj Pl P2) => averig_ + "üéis" ; VP (Pres Subj Pl P3) => averig_ + "üen" ; - VP (Impf Ind Sg P1) => averig_ + "uaba" ; - VP (Impf Ind Sg P2) => averig_ + "uabas" ; - VP (Impf Ind Sg P3) => averig_ + "uaba" ; - VP (Impf Ind Pl P1) => averig_ + "uábamos" ; - VP (Impf Ind Pl P2) => averig_ + "uabais" ; - VP (Impf Ind Pl P3) => averig_ + "uaban" ; - VP (Impf Subj Sg P1) => variants {averig_ + "uara" ; averig_ + "uase"} ; - VP (Impf Subj Sg P2) => variants {averig_ + "uaras" ; averig_ + "uases"} ; - VP (Impf Subj Sg P3) => variants {averig_ + "uara" ; averig_ + "uase"} ; - VP (Impf Subj Pl P1) => variants {averig_ + "uáramos" ; averig_ + "uásemos"} ; - VP (Impf Subj Pl P2) => variants {averig_ + "uarais" ; averig_ + "uaseis"} ; - VP (Impf Subj Pl P3) => variants {averig_ + "uaran" ; averig_ + "uasen"} ; - VP (Pret Sg P1) => averig_ + "üé" ; - VP (Pret Sg P2) => averig_ + "uaste" ; - VP (Pret Sg P3) => averig_ + "uó" ; - VP (Pret Pl P1) => averig_ + "uamos" ; - VP (Pret Pl P2) => averig_ + "uasteis" ; - VP (Pret Pl P3) => averig_ + "uaron" ; - VP (Fut Ind Sg P1) => averig_ + "uaré" ; - VP (Fut Ind Sg P2) => averig_ + "uarás" ; - VP (Fut Ind Sg P3) => averig_ + "uará" ; - VP (Fut Ind Pl P1) => averig_ + "uaremos" ; - VP (Fut Ind Pl P2) => averig_ + "uaréis" ; - VP (Fut Ind Pl P3) => averig_ + "uarán" ; - VP (Fut Subj Sg P1) => averig_ + "uare" ; - VP (Fut Subj Sg P2) => averig_ + "uares" ; - VP (Fut Subj Sg P3) => averig_ + "uare" ; - VP (Fut Subj Pl P1) => averig_ + "uáremos" ; - VP (Fut Subj Pl P2) => averig_ + "uareis" ; - VP (Fut Subj Pl P3) => averig_ + "uaren" ; - VP (Cond Sg P1) => averig_ + "uaría" ; - VP (Cond Sg P2) => averig_ + "uarías" ; - VP (Cond Sg P3) => averig_ + "uaría" ; - VP (Cond Pl P1) => averig_ + "uaríamos" ; - VP (Cond Pl P2) => averig_ + "uaríais" ; - VP (Cond Pl P3) => averig_ + "uarían" ; + VP (Impf Ind Sg P1) => averig_ + "uaba" ; --# notpresent + VP (Impf Ind Sg P2) => averig_ + "uabas" ; --# notpresent + VP (Impf Ind Sg P3) => averig_ + "uaba" ; --# notpresent + VP (Impf Ind Pl P1) => averig_ + "uábamos" ; --# notpresent + VP (Impf Ind Pl P2) => averig_ + "uabais" ; --# notpresent + VP (Impf Ind Pl P3) => averig_ + "uaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {averig_ + "uara" ; averig_ + "uase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {averig_ + "uaras" ; averig_ + "uases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {averig_ + "uara" ; averig_ + "uase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {averig_ + "uáramos" ; averig_ + "uásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {averig_ + "uarais" ; averig_ + "uaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {averig_ + "uaran" ; averig_ + "uasen"} ; --# notpresent + VP (Pret Sg P1) => averig_ + "üé" ; --# notpresent + VP (Pret Sg P2) => averig_ + "uaste" ; --# notpresent + VP (Pret Sg P3) => averig_ + "uó" ; --# notpresent + VP (Pret Pl P1) => averig_ + "uamos" ; --# notpresent + VP (Pret Pl P2) => averig_ + "uasteis" ; --# notpresent + VP (Pret Pl P3) => averig_ + "uaron" ; --# notpresent + VP (Fut Ind Sg P1) => averig_ + "uaré" ; --# notpresent + VP (Fut Ind Sg P2) => averig_ + "uarás" ; --# notpresent + VP (Fut Ind Sg P3) => averig_ + "uará" ; --# notpresent + VP (Fut Ind Pl P1) => averig_ + "uaremos" ; --# notpresent + VP (Fut Ind Pl P2) => averig_ + "uaréis" ; --# notpresent + VP (Fut Ind Pl P3) => averig_ + "uarán" ; --# notpresent + VP (Fut Subj Sg P1) => averig_ + "uare" ; --# notpresent + VP (Fut Subj Sg P2) => averig_ + "uares" ; --# notpresent + VP (Fut Subj Sg P3) => averig_ + "uare" ; --# notpresent + VP (Fut Subj Pl P1) => averig_ + "uáremos" ; --# notpresent + VP (Fut Subj Pl P2) => averig_ + "uareis" ; --# notpresent + VP (Fut Subj Pl P3) => averig_ + "uaren" ; --# notpresent + VP (Cond Sg P1) => averig_ + "uaría" ; --# notpresent + VP (Cond Sg P2) => averig_ + "uarías" ; --# notpresent + VP (Cond Sg P3) => averig_ + "uaría" ; --# notpresent + VP (Cond Pl P1) => averig_ + "uaríamos" ; --# notpresent + VP (Cond Pl P2) => averig_ + "uaríais" ; --# notpresent + VP (Cond Pl P3) => averig_ + "uarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => averig_ + "ua" ; VP (Imp Sg P3) => averig_ + "üe" ; @@ -1152,42 +1221,42 @@ oper bru VP (Pres Subj Pl P1) => bruñ_ + "amos" ; VP (Pres Subj Pl P2) => bruñ_ + "áis" ; VP (Pres Subj Pl P3) => bruñ_ + "an" ; - VP (Impf Ind Sg P1) => bruñ_ + "ía" ; - VP (Impf Ind Sg P2) => bruñ_ + "ías" ; - VP (Impf Ind Sg P3) => bruñ_ + "ía" ; - VP (Impf Ind Pl P1) => bruñ_ + "íamos" ; - VP (Impf Ind Pl P2) => bruñ_ + "íais" ; - VP (Impf Ind Pl P3) => bruñ_ + "ían" ; - VP (Impf Subj Sg P1) => variants {bruñ_ + "era" ; bruñ_ + "ese"} ; - VP (Impf Subj Sg P2) => variants {bruñ_ + "eras" ; bruñ_ + "eses"} ; - VP (Impf Subj Sg P3) => variants {bruñ_ + "era" ; bruñ_ + "ese"} ; - VP (Impf Subj Pl P1) => variants {bruñ_ + "éramos" ; bruñ_ + "ésemos"} ; - VP (Impf Subj Pl P2) => variants {bruñ_ + "erais" ; bruñ_ + "eseis"} ; - VP (Impf Subj Pl P3) => variants {bruñ_ + "eran" ; bruñ_ + "esen"} ; - VP (Pret Sg P1) => bruñ_ + "í" ; - VP (Pret Sg P2) => bruñ_ + "iste" ; - VP (Pret Sg P3) => bruñ_ + "ó" ; - VP (Pret Pl P1) => bruñ_ + "imos" ; - VP (Pret Pl P2) => bruñ_ + "isteis" ; - VP (Pret Pl P3) => bruñ_ + "eron" ; - VP (Fut Ind Sg P1) => bruñ_ + "iré" ; - VP (Fut Ind Sg P2) => bruñ_ + "irás" ; - VP (Fut Ind Sg P3) => bruñ_ + "irá" ; - VP (Fut Ind Pl P1) => bruñ_ + "iremos" ; - VP (Fut Ind Pl P2) => bruñ_ + "iréis" ; - VP (Fut Ind Pl P3) => bruñ_ + "irán" ; - VP (Fut Subj Sg P1) => bruñ_ + "ere" ; - VP (Fut Subj Sg P2) => bruñ_ + "eres" ; - VP (Fut Subj Sg P3) => bruñ_ + "ere" ; - VP (Fut Subj Pl P1) => bruñ_ + "éremos" ; - VP (Fut Subj Pl P2) => bruñ_ + "ereis" ; - VP (Fut Subj Pl P3) => bruñ_ + "eren" ; - VP (Cond Sg P1) => bruñ_ + "iría" ; - VP (Cond Sg P2) => bruñ_ + "irías" ; - VP (Cond Sg P3) => bruñ_ + "iría" ; - VP (Cond Pl P1) => bruñ_ + "iríamos" ; - VP (Cond Pl P2) => bruñ_ + "iríais" ; - VP (Cond Pl P3) => bruñ_ + "irían" ; + VP (Impf Ind Sg P1) => bruñ_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => bruñ_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => bruñ_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => bruñ_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => bruñ_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => bruñ_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {bruñ_ + "era" ; bruñ_ + "ese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {bruñ_ + "eras" ; bruñ_ + "eses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {bruñ_ + "era" ; bruñ_ + "ese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {bruñ_ + "éramos" ; bruñ_ + "ésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {bruñ_ + "erais" ; bruñ_ + "eseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {bruñ_ + "eran" ; bruñ_ + "esen"} ; --# notpresent + VP (Pret Sg P1) => bruñ_ + "í" ; --# notpresent + VP (Pret Sg P2) => bruñ_ + "iste" ; --# notpresent + VP (Pret Sg P3) => bruñ_ + "ó" ; --# notpresent + VP (Pret Pl P1) => bruñ_ + "imos" ; --# notpresent + VP (Pret Pl P2) => bruñ_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => bruñ_ + "eron" ; --# notpresent + VP (Fut Ind Sg P1) => bruñ_ + "iré" ; --# notpresent + VP (Fut Ind Sg P2) => bruñ_ + "irás" ; --# notpresent + VP (Fut Ind Sg P3) => bruñ_ + "irá" ; --# notpresent + VP (Fut Ind Pl P1) => bruñ_ + "iremos" ; --# notpresent + VP (Fut Ind Pl P2) => bruñ_ + "iréis" ; --# notpresent + VP (Fut Ind Pl P3) => bruñ_ + "irán" ; --# notpresent + VP (Fut Subj Sg P1) => bruñ_ + "ere" ; --# notpresent + VP (Fut Subj Sg P2) => bruñ_ + "eres" ; --# notpresent + VP (Fut Subj Sg P3) => bruñ_ + "ere" ; --# notpresent + VP (Fut Subj Pl P1) => bruñ_ + "éremos" ; --# notpresent + VP (Fut Subj Pl P2) => bruñ_ + "ereis" ; --# notpresent + VP (Fut Subj Pl P3) => bruñ_ + "eren" ; --# notpresent + VP (Cond Sg P1) => bruñ_ + "iría" ; --# notpresent + VP (Cond Sg P2) => bruñ_ + "irías" ; --# notpresent + VP (Cond Sg P3) => bruñ_ + "iría" ; --# notpresent + VP (Cond Pl P1) => bruñ_ + "iríamos" ; --# notpresent + VP (Cond Pl P2) => bruñ_ + "iríais" ; --# notpresent + VP (Cond Pl P3) => bruñ_ + "irían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => bruñ_ + "e" ; VP (Imp Sg P3) => bruñ_ + "a" ; @@ -1218,42 +1287,42 @@ oper caber_19 : Str -> Verbum = \caber -> VP (Pres Subj Pl P1) => x_ + "quepamos" ; VP (Pres Subj Pl P2) => x_ + "quepáis" ; VP (Pres Subj Pl P3) => x_ + "quepan" ; - VP (Impf Ind Sg P1) => x_ + "cabía" ; - VP (Impf Ind Sg P2) => x_ + "cabías" ; - VP (Impf Ind Sg P3) => x_ + "cabía" ; - VP (Impf Ind Pl P1) => x_ + "cabíamos" ; - VP (Impf Ind Pl P2) => x_ + "cabíais" ; - VP (Impf Ind Pl P3) => x_ + "cabían" ; - VP (Impf Subj Sg P1) => variants {x_ + "cupiera" ; x_ + "cupiese"} ; - VP (Impf Subj Sg P2) => variants {x_ + "cupieras" ; x_ + "cupieses"} ; - VP (Impf Subj Sg P3) => variants {x_ + "cupiera" ; x_ + "cupiese"} ; - VP (Impf Subj Pl P1) => variants {x_ + "cupiéramos" ; x_ + "cupiésemos"} ; - VP (Impf Subj Pl P2) => variants {x_ + "cupierais" ; x_ + "cupieseis"} ; - VP (Impf Subj Pl P3) => variants {x_ + "cupieran" ; x_ + "cupiesen"} ; - VP (Pret Sg P1) => x_ + "cupe" ; - VP (Pret Sg P2) => x_ + "cupiste" ; - VP (Pret Sg P3) => x_ + "cupo" ; - VP (Pret Pl P1) => x_ + "cupimos" ; - VP (Pret Pl P2) => x_ + "cupisteis" ; - VP (Pret Pl P3) => x_ + "cupieron" ; - VP (Fut Ind Sg P1) => x_ + "cabré" ; - VP (Fut Ind Sg P2) => x_ + "cabrás" ; - VP (Fut Ind Sg P3) => x_ + "cabrá" ; - VP (Fut Ind Pl P1) => x_ + "cabremos" ; - VP (Fut Ind Pl P2) => x_ + "cabréis" ; - VP (Fut Ind Pl P3) => x_ + "cabrán" ; - VP (Fut Subj Sg P1) => x_ + "cupiere" ; - VP (Fut Subj Sg P2) => x_ + "cupieres" ; - VP (Fut Subj Sg P3) => x_ + "cupiere" ; - VP (Fut Subj Pl P1) => x_ + "cupiéremos" ; - VP (Fut Subj Pl P2) => x_ + "cupiereis" ; - VP (Fut Subj Pl P3) => x_ + "cupieren" ; - VP (Cond Sg P1) => x_ + "cabría" ; - VP (Cond Sg P2) => x_ + "cabrías" ; - VP (Cond Sg P3) => x_ + "cabría" ; - VP (Cond Pl P1) => x_ + "cabríamos" ; - VP (Cond Pl P2) => x_ + "cabríais" ; - VP (Cond Pl P3) => x_ + "cabrían" ; + VP (Impf Ind Sg P1) => x_ + "cabía" ; --# notpresent + VP (Impf Ind Sg P2) => x_ + "cabías" ; --# notpresent + VP (Impf Ind Sg P3) => x_ + "cabía" ; --# notpresent + VP (Impf Ind Pl P1) => x_ + "cabíamos" ; --# notpresent + VP (Impf Ind Pl P2) => x_ + "cabíais" ; --# notpresent + VP (Impf Ind Pl P3) => x_ + "cabían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {x_ + "cupiera" ; x_ + "cupiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {x_ + "cupieras" ; x_ + "cupieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {x_ + "cupiera" ; x_ + "cupiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {x_ + "cupiéramos" ; x_ + "cupiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {x_ + "cupierais" ; x_ + "cupieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {x_ + "cupieran" ; x_ + "cupiesen"} ; --# notpresent + VP (Pret Sg P1) => x_ + "cupe" ; --# notpresent + VP (Pret Sg P2) => x_ + "cupiste" ; --# notpresent + VP (Pret Sg P3) => x_ + "cupo" ; --# notpresent + VP (Pret Pl P1) => x_ + "cupimos" ; --# notpresent + VP (Pret Pl P2) => x_ + "cupisteis" ; --# notpresent + VP (Pret Pl P3) => x_ + "cupieron" ; --# notpresent + VP (Fut Ind Sg P1) => x_ + "cabré" ; --# notpresent + VP (Fut Ind Sg P2) => x_ + "cabrás" ; --# notpresent + VP (Fut Ind Sg P3) => x_ + "cabrá" ; --# notpresent + VP (Fut Ind Pl P1) => x_ + "cabremos" ; --# notpresent + VP (Fut Ind Pl P2) => x_ + "cabréis" ; --# notpresent + VP (Fut Ind Pl P3) => x_ + "cabrán" ; --# notpresent + VP (Fut Subj Sg P1) => x_ + "cupiere" ; --# notpresent + VP (Fut Subj Sg P2) => x_ + "cupieres" ; --# notpresent + VP (Fut Subj Sg P3) => x_ + "cupiere" ; --# notpresent + VP (Fut Subj Pl P1) => x_ + "cupiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => x_ + "cupiereis" ; --# notpresent + VP (Fut Subj Pl P3) => x_ + "cupieren" ; --# notpresent + VP (Cond Sg P1) => x_ + "cabría" ; --# notpresent + VP (Cond Sg P2) => x_ + "cabrías" ; --# notpresent + VP (Cond Sg P3) => x_ + "cabría" ; --# notpresent + VP (Cond Pl P1) => x_ + "cabríamos" ; --# notpresent + VP (Cond Pl P2) => x_ + "cabríais" ; --# notpresent + VP (Cond Pl P3) => x_ + "cabrían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => x_ + "cabe" ; VP (Imp Sg P3) => x_ + "quepa" ; @@ -1284,42 +1353,42 @@ oper caer_20 : Str -> Verbum = \caer -> VP (Pres Subj Pl P1) => ca_ + "igamos" ; VP (Pres Subj Pl P2) => ca_ + "igáis" ; VP (Pres Subj Pl P3) => ca_ + "igan" ; - VP (Impf Ind Sg P1) => ca_ + "ía" ; - VP (Impf Ind Sg P2) => ca_ + "ías" ; - VP (Impf Ind Sg P3) => ca_ + "ía" ; - VP (Impf Ind Pl P1) => ca_ + "íamos" ; - VP (Impf Ind Pl P2) => ca_ + "íais" ; - VP (Impf Ind Pl P3) => ca_ + "ían" ; - VP (Impf Subj Sg P1) => variants {ca_ + "yera" ; ca_ + "yese"} ; - VP (Impf Subj Sg P2) => variants {ca_ + "yeras" ; ca_ + "yeses"} ; - VP (Impf Subj Sg P3) => variants {ca_ + "yera" ; ca_ + "yese"} ; - VP (Impf Subj Pl P1) => variants {ca_ + "yéramos" ; ca_ + "yésemos"} ; - VP (Impf Subj Pl P2) => variants {ca_ + "yerais" ; ca_ + "yeseis"} ; - VP (Impf Subj Pl P3) => variants {ca_ + "yeran" ; ca_ + "yesen"} ; - VP (Pret Sg P1) => ca_ + "í" ; - VP (Pret Sg P2) => ca_ + "íste" ; - VP (Pret Sg P3) => ca_ + "yó" ; - VP (Pret Pl P1) => ca_ + "ímos" ; - VP (Pret Pl P2) => ca_ + "ísteis" ; - VP (Pret Pl P3) => ca_ + "yeron" ; - VP (Fut Ind Sg P1) => ca_ + "eré" ; - VP (Fut Ind Sg P2) => ca_ + "erás" ; - VP (Fut Ind Sg P3) => ca_ + "erá" ; - VP (Fut Ind Pl P1) => ca_ + "eremos" ; - VP (Fut Ind Pl P2) => ca_ + "eréis" ; - VP (Fut Ind Pl P3) => ca_ + "erán" ; - VP (Fut Subj Sg P1) => ca_ + "yere" ; - VP (Fut Subj Sg P2) => ca_ + "yeres" ; - VP (Fut Subj Sg P3) => ca_ + "yere" ; - VP (Fut Subj Pl P1) => ca_ + "yéremos" ; - VP (Fut Subj Pl P2) => ca_ + "yereis" ; - VP (Fut Subj Pl P3) => ca_ + "yeren" ; - VP (Cond Sg P1) => ca_ + "ería" ; - VP (Cond Sg P2) => ca_ + "erías" ; - VP (Cond Sg P3) => ca_ + "ería" ; - VP (Cond Pl P1) => ca_ + "eríamos" ; - VP (Cond Pl P2) => ca_ + "eríais" ; - VP (Cond Pl P3) => ca_ + "erían" ; + VP (Impf Ind Sg P1) => ca_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => ca_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => ca_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => ca_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => ca_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => ca_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {ca_ + "yera" ; ca_ + "yese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {ca_ + "yeras" ; ca_ + "yeses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {ca_ + "yera" ; ca_ + "yese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {ca_ + "yéramos" ; ca_ + "yésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {ca_ + "yerais" ; ca_ + "yeseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {ca_ + "yeran" ; ca_ + "yesen"} ; --# notpresent + VP (Pret Sg P1) => ca_ + "í" ; --# notpresent + VP (Pret Sg P2) => ca_ + "íste" ; --# notpresent + VP (Pret Sg P3) => ca_ + "yó" ; --# notpresent + VP (Pret Pl P1) => ca_ + "ímos" ; --# notpresent + VP (Pret Pl P2) => ca_ + "ísteis" ; --# notpresent + VP (Pret Pl P3) => ca_ + "yeron" ; --# notpresent + VP (Fut Ind Sg P1) => ca_ + "eré" ; --# notpresent + VP (Fut Ind Sg P2) => ca_ + "erás" ; --# notpresent + VP (Fut Ind Sg P3) => ca_ + "erá" ; --# notpresent + VP (Fut Ind Pl P1) => ca_ + "eremos" ; --# notpresent + VP (Fut Ind Pl P2) => ca_ + "eréis" ; --# notpresent + VP (Fut Ind Pl P3) => ca_ + "erán" ; --# notpresent + VP (Fut Subj Sg P1) => ca_ + "yere" ; --# notpresent + VP (Fut Subj Sg P2) => ca_ + "yeres" ; --# notpresent + VP (Fut Subj Sg P3) => ca_ + "yere" ; --# notpresent + VP (Fut Subj Pl P1) => ca_ + "yéremos" ; --# notpresent + VP (Fut Subj Pl P2) => ca_ + "yereis" ; --# notpresent + VP (Fut Subj Pl P3) => ca_ + "yeren" ; --# notpresent + VP (Cond Sg P1) => ca_ + "ería" ; --# notpresent + VP (Cond Sg P2) => ca_ + "erías" ; --# notpresent + VP (Cond Sg P3) => ca_ + "ería" ; --# notpresent + VP (Cond Pl P1) => ca_ + "eríamos" ; --# notpresent + VP (Cond Pl P2) => ca_ + "eríais" ; --# notpresent + VP (Cond Pl P3) => ca_ + "erían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => ca_ + "e" ; VP (Imp Sg P3) => ca_ + "iga" ; @@ -1350,42 +1419,42 @@ oper cazar_21 : Str -> Verbum = \cazar -> VP (Pres Subj Pl P1) => ca_ + "cemos" ; VP (Pres Subj Pl P2) => ca_ + "céis" ; VP (Pres Subj Pl P3) => ca_ + "cen" ; - VP (Impf Ind Sg P1) => ca_ + "zaba" ; - VP (Impf Ind Sg P2) => ca_ + "zabas" ; - VP (Impf Ind Sg P3) => ca_ + "zaba" ; - VP (Impf Ind Pl P1) => ca_ + "zábamos" ; - VP (Impf Ind Pl P2) => ca_ + "zabais" ; - VP (Impf Ind Pl P3) => ca_ + "zaban" ; - VP (Impf Subj Sg P1) => variants {ca_ + "zara" ; ca_ + "zase"} ; - VP (Impf Subj Sg P2) => variants {ca_ + "zaras" ; ca_ + "zases"} ; - VP (Impf Subj Sg P3) => variants {ca_ + "zara" ; ca_ + "zase"} ; - VP (Impf Subj Pl P1) => variants {ca_ + "záramos" ; ca_ + "zásemos"} ; - VP (Impf Subj Pl P2) => variants {ca_ + "zarais" ; ca_ + "zaseis"} ; - VP (Impf Subj Pl P3) => variants {ca_ + "zaran" ; ca_ + "zasen"} ; - VP (Pret Sg P1) => ca_ + "cé" ; - VP (Pret Sg P2) => ca_ + "zaste" ; - VP (Pret Sg P3) => ca_ + "zó" ; - VP (Pret Pl P1) => ca_ + "zamos" ; - VP (Pret Pl P2) => ca_ + "zasteis" ; - VP (Pret Pl P3) => ca_ + "zaron" ; - VP (Fut Ind Sg P1) => ca_ + "zaré" ; - VP (Fut Ind Sg P2) => ca_ + "zarás" ; - VP (Fut Ind Sg P3) => ca_ + "zará" ; - VP (Fut Ind Pl P1) => ca_ + "zaremos" ; - VP (Fut Ind Pl P2) => ca_ + "zaréis" ; - VP (Fut Ind Pl P3) => ca_ + "zarán" ; - VP (Fut Subj Sg P1) => ca_ + "zare" ; - VP (Fut Subj Sg P2) => ca_ + "zares" ; - VP (Fut Subj Sg P3) => ca_ + "zare" ; - VP (Fut Subj Pl P1) => ca_ + "záremos" ; - VP (Fut Subj Pl P2) => ca_ + "zareis" ; - VP (Fut Subj Pl P3) => ca_ + "zaren" ; - VP (Cond Sg P1) => ca_ + "zaría" ; - VP (Cond Sg P2) => ca_ + "zarías" ; - VP (Cond Sg P3) => ca_ + "zaría" ; - VP (Cond Pl P1) => ca_ + "zaríamos" ; - VP (Cond Pl P2) => ca_ + "zaríais" ; - VP (Cond Pl P3) => ca_ + "zarían" ; + VP (Impf Ind Sg P1) => ca_ + "zaba" ; --# notpresent + VP (Impf Ind Sg P2) => ca_ + "zabas" ; --# notpresent + VP (Impf Ind Sg P3) => ca_ + "zaba" ; --# notpresent + VP (Impf Ind Pl P1) => ca_ + "zábamos" ; --# notpresent + VP (Impf Ind Pl P2) => ca_ + "zabais" ; --# notpresent + VP (Impf Ind Pl P3) => ca_ + "zaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {ca_ + "zara" ; ca_ + "zase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {ca_ + "zaras" ; ca_ + "zases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {ca_ + "zara" ; ca_ + "zase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {ca_ + "záramos" ; ca_ + "zásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {ca_ + "zarais" ; ca_ + "zaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {ca_ + "zaran" ; ca_ + "zasen"} ; --# notpresent + VP (Pret Sg P1) => ca_ + "cé" ; --# notpresent + VP (Pret Sg P2) => ca_ + "zaste" ; --# notpresent + VP (Pret Sg P3) => ca_ + "zó" ; --# notpresent + VP (Pret Pl P1) => ca_ + "zamos" ; --# notpresent + VP (Pret Pl P2) => ca_ + "zasteis" ; --# notpresent + VP (Pret Pl P3) => ca_ + "zaron" ; --# notpresent + VP (Fut Ind Sg P1) => ca_ + "zaré" ; --# notpresent + VP (Fut Ind Sg P2) => ca_ + "zarás" ; --# notpresent + VP (Fut Ind Sg P3) => ca_ + "zará" ; --# notpresent + VP (Fut Ind Pl P1) => ca_ + "zaremos" ; --# notpresent + VP (Fut Ind Pl P2) => ca_ + "zaréis" ; --# notpresent + VP (Fut Ind Pl P3) => ca_ + "zarán" ; --# notpresent + VP (Fut Subj Sg P1) => ca_ + "zare" ; --# notpresent + VP (Fut Subj Sg P2) => ca_ + "zares" ; --# notpresent + VP (Fut Subj Sg P3) => ca_ + "zare" ; --# notpresent + VP (Fut Subj Pl P1) => ca_ + "záremos" ; --# notpresent + VP (Fut Subj Pl P2) => ca_ + "zareis" ; --# notpresent + VP (Fut Subj Pl P3) => ca_ + "zaren" ; --# notpresent + VP (Cond Sg P1) => ca_ + "zaría" ; --# notpresent + VP (Cond Sg P2) => ca_ + "zarías" ; --# notpresent + VP (Cond Sg P3) => ca_ + "zaría" ; --# notpresent + VP (Cond Pl P1) => ca_ + "zaríamos" ; --# notpresent + VP (Cond Pl P2) => ca_ + "zaríais" ; --# notpresent + VP (Cond Pl P3) => ca_ + "zarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => ca_ + "za" ; VP (Imp Sg P3) => ca_ + "ce" ; @@ -1416,42 +1485,42 @@ oper cocer_22 : Str -> Verbum = \cocer -> VP (Pres Subj Pl P1) => c_ + "ozamos" ; VP (Pres Subj Pl P2) => c_ + "ozáis" ; VP (Pres Subj Pl P3) => c_ + "uezan" ; - VP (Impf Ind Sg P1) => c_ + "ocía" ; - VP (Impf Ind Sg P2) => c_ + "ocías" ; - VP (Impf Ind Sg P3) => c_ + "ocía" ; - VP (Impf Ind Pl P1) => c_ + "ocíamos" ; - VP (Impf Ind Pl P2) => c_ + "ocíais" ; - VP (Impf Ind Pl P3) => c_ + "ocían" ; - VP (Impf Subj Sg P1) => variants {c_ + "ociera" ; c_ + "ociese"} ; - VP (Impf Subj Sg P2) => variants {c_ + "ocieras" ; c_ + "ocieses"} ; - VP (Impf Subj Sg P3) => variants {c_ + "ociera" ; c_ + "ociese"} ; - VP (Impf Subj Pl P1) => variants {c_ + "ociéramos" ; c_ + "ociésemos"} ; - VP (Impf Subj Pl P2) => variants {c_ + "ocierais" ; c_ + "ocieseis"} ; - VP (Impf Subj Pl P3) => variants {c_ + "ocieran" ; c_ + "ociesen"} ; - VP (Pret Sg P1) => c_ + "ocí" ; - VP (Pret Sg P2) => c_ + "ociste" ; - VP (Pret Sg P3) => c_ + "oció" ; - VP (Pret Pl P1) => c_ + "ocimos" ; - VP (Pret Pl P2) => c_ + "ocisteis" ; - VP (Pret Pl P3) => c_ + "ocieron" ; - VP (Fut Ind Sg P1) => c_ + "oceré" ; - VP (Fut Ind Sg P2) => c_ + "ocerás" ; - VP (Fut Ind Sg P3) => c_ + "ocerá" ; - VP (Fut Ind Pl P1) => c_ + "oceremos" ; - VP (Fut Ind Pl P2) => c_ + "oceréis" ; - VP (Fut Ind Pl P3) => c_ + "ocerán" ; - VP (Fut Subj Sg P1) => c_ + "ociere" ; - VP (Fut Subj Sg P2) => c_ + "ocieres" ; - VP (Fut Subj Sg P3) => c_ + "ociere" ; - VP (Fut Subj Pl P1) => c_ + "ociéremos" ; - VP (Fut Subj Pl P2) => c_ + "ociereis" ; - VP (Fut Subj Pl P3) => c_ + "ocieren" ; - VP (Cond Sg P1) => c_ + "ocería" ; - VP (Cond Sg P2) => c_ + "ocerías" ; - VP (Cond Sg P3) => c_ + "ocería" ; - VP (Cond Pl P1) => c_ + "oceríamos" ; - VP (Cond Pl P2) => c_ + "oceríais" ; - VP (Cond Pl P3) => c_ + "ocerían" ; + VP (Impf Ind Sg P1) => c_ + "ocía" ; --# notpresent + VP (Impf Ind Sg P2) => c_ + "ocías" ; --# notpresent + VP (Impf Ind Sg P3) => c_ + "ocía" ; --# notpresent + VP (Impf Ind Pl P1) => c_ + "ocíamos" ; --# notpresent + VP (Impf Ind Pl P2) => c_ + "ocíais" ; --# notpresent + VP (Impf Ind Pl P3) => c_ + "ocían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {c_ + "ociera" ; c_ + "ociese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {c_ + "ocieras" ; c_ + "ocieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {c_ + "ociera" ; c_ + "ociese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {c_ + "ociéramos" ; c_ + "ociésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {c_ + "ocierais" ; c_ + "ocieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {c_ + "ocieran" ; c_ + "ociesen"} ; --# notpresent + VP (Pret Sg P1) => c_ + "ocí" ; --# notpresent + VP (Pret Sg P2) => c_ + "ociste" ; --# notpresent + VP (Pret Sg P3) => c_ + "oció" ; --# notpresent + VP (Pret Pl P1) => c_ + "ocimos" ; --# notpresent + VP (Pret Pl P2) => c_ + "ocisteis" ; --# notpresent + VP (Pret Pl P3) => c_ + "ocieron" ; --# notpresent + VP (Fut Ind Sg P1) => c_ + "oceré" ; --# notpresent + VP (Fut Ind Sg P2) => c_ + "ocerás" ; --# notpresent + VP (Fut Ind Sg P3) => c_ + "ocerá" ; --# notpresent + VP (Fut Ind Pl P1) => c_ + "oceremos" ; --# notpresent + VP (Fut Ind Pl P2) => c_ + "oceréis" ; --# notpresent + VP (Fut Ind Pl P3) => c_ + "ocerán" ; --# notpresent + VP (Fut Subj Sg P1) => c_ + "ociere" ; --# notpresent + VP (Fut Subj Sg P2) => c_ + "ocieres" ; --# notpresent + VP (Fut Subj Sg P3) => c_ + "ociere" ; --# notpresent + VP (Fut Subj Pl P1) => c_ + "ociéremos" ; --# notpresent + VP (Fut Subj Pl P2) => c_ + "ociereis" ; --# notpresent + VP (Fut Subj Pl P3) => c_ + "ocieren" ; --# notpresent + VP (Cond Sg P1) => c_ + "ocería" ; --# notpresent + VP (Cond Sg P2) => c_ + "ocerías" ; --# notpresent + VP (Cond Sg P3) => c_ + "ocería" ; --# notpresent + VP (Cond Pl P1) => c_ + "oceríamos" ; --# notpresent + VP (Cond Pl P2) => c_ + "oceríais" ; --# notpresent + VP (Cond Pl P3) => c_ + "ocerían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => c_ + "uece" ; VP (Imp Sg P3) => c_ + "ueza" ; @@ -1482,42 +1551,42 @@ oper coger_23 : Str -> Verbum = \coger -> VP (Pres Subj Pl P1) => co_ + "jamos" ; VP (Pres Subj Pl P2) => co_ + "jáis" ; VP (Pres Subj Pl P3) => co_ + "jan" ; - VP (Impf Ind Sg P1) => co_ + "gía" ; - VP (Impf Ind Sg P2) => co_ + "gías" ; - VP (Impf Ind Sg P3) => co_ + "gía" ; - VP (Impf Ind Pl P1) => co_ + "gíamos" ; - VP (Impf Ind Pl P2) => co_ + "gíais" ; - VP (Impf Ind Pl P3) => co_ + "gían" ; - VP (Impf Subj Sg P1) => variants {co_ + "giera" ; co_ + "giese"} ; - VP (Impf Subj Sg P2) => variants {co_ + "gieras" ; co_ + "gieses"} ; - VP (Impf Subj Sg P3) => variants {co_ + "giera" ; co_ + "giese"} ; - VP (Impf Subj Pl P1) => variants {co_ + "giéramos" ; co_ + "giésemos"} ; - VP (Impf Subj Pl P2) => variants {co_ + "gierais" ; co_ + "gieseis"} ; - VP (Impf Subj Pl P3) => variants {co_ + "gieran" ; co_ + "giesen"} ; - VP (Pret Sg P1) => co_ + "gí" ; - VP (Pret Sg P2) => co_ + "giste" ; - VP (Pret Sg P3) => co_ + "gió" ; - VP (Pret Pl P1) => co_ + "gimos" ; - VP (Pret Pl P2) => co_ + "gisteis" ; - VP (Pret Pl P3) => co_ + "gieron" ; - VP (Fut Ind Sg P1) => co_ + "geré" ; - VP (Fut Ind Sg P2) => co_ + "gerás" ; - VP (Fut Ind Sg P3) => co_ + "gerá" ; - VP (Fut Ind Pl P1) => co_ + "geremos" ; - VP (Fut Ind Pl P2) => co_ + "geréis" ; - VP (Fut Ind Pl P3) => co_ + "gerán" ; - VP (Fut Subj Sg P1) => co_ + "giere" ; - VP (Fut Subj Sg P2) => co_ + "gieres" ; - VP (Fut Subj Sg P3) => co_ + "giere" ; - VP (Fut Subj Pl P1) => co_ + "giéremos" ; - VP (Fut Subj Pl P2) => co_ + "giereis" ; - VP (Fut Subj Pl P3) => co_ + "gieren" ; - VP (Cond Sg P1) => co_ + "gería" ; - VP (Cond Sg P2) => co_ + "gerías" ; - VP (Cond Sg P3) => co_ + "gería" ; - VP (Cond Pl P1) => co_ + "geríamos" ; - VP (Cond Pl P2) => co_ + "geríais" ; - VP (Cond Pl P3) => co_ + "gerían" ; + VP (Impf Ind Sg P1) => co_ + "gía" ; --# notpresent + VP (Impf Ind Sg P2) => co_ + "gías" ; --# notpresent + VP (Impf Ind Sg P3) => co_ + "gía" ; --# notpresent + VP (Impf Ind Pl P1) => co_ + "gíamos" ; --# notpresent + VP (Impf Ind Pl P2) => co_ + "gíais" ; --# notpresent + VP (Impf Ind Pl P3) => co_ + "gían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {co_ + "giera" ; co_ + "giese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {co_ + "gieras" ; co_ + "gieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {co_ + "giera" ; co_ + "giese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {co_ + "giéramos" ; co_ + "giésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {co_ + "gierais" ; co_ + "gieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {co_ + "gieran" ; co_ + "giesen"} ; --# notpresent + VP (Pret Sg P1) => co_ + "gí" ; --# notpresent + VP (Pret Sg P2) => co_ + "giste" ; --# notpresent + VP (Pret Sg P3) => co_ + "gió" ; --# notpresent + VP (Pret Pl P1) => co_ + "gimos" ; --# notpresent + VP (Pret Pl P2) => co_ + "gisteis" ; --# notpresent + VP (Pret Pl P3) => co_ + "gieron" ; --# notpresent + VP (Fut Ind Sg P1) => co_ + "geré" ; --# notpresent + VP (Fut Ind Sg P2) => co_ + "gerás" ; --# notpresent + VP (Fut Ind Sg P3) => co_ + "gerá" ; --# notpresent + VP (Fut Ind Pl P1) => co_ + "geremos" ; --# notpresent + VP (Fut Ind Pl P2) => co_ + "geréis" ; --# notpresent + VP (Fut Ind Pl P3) => co_ + "gerán" ; --# notpresent + VP (Fut Subj Sg P1) => co_ + "giere" ; --# notpresent + VP (Fut Subj Sg P2) => co_ + "gieres" ; --# notpresent + VP (Fut Subj Sg P3) => co_ + "giere" ; --# notpresent + VP (Fut Subj Pl P1) => co_ + "giéremos" ; --# notpresent + VP (Fut Subj Pl P2) => co_ + "giereis" ; --# notpresent + VP (Fut Subj Pl P3) => co_ + "gieren" ; --# notpresent + VP (Cond Sg P1) => co_ + "gería" ; --# notpresent + VP (Cond Sg P2) => co_ + "gerías" ; --# notpresent + VP (Cond Sg P3) => co_ + "gería" ; --# notpresent + VP (Cond Pl P1) => co_ + "geríamos" ; --# notpresent + VP (Cond Pl P2) => co_ + "geríais" ; --# notpresent + VP (Cond Pl P3) => co_ + "gerían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => co_ + "ge" ; VP (Imp Sg P3) => co_ + "ja" ; @@ -1548,42 +1617,42 @@ oper colgar_24 : Str -> Verbum = \colgar -> VP (Pres Subj Pl P1) => c_ + "olguemos" ; VP (Pres Subj Pl P2) => c_ + "olguéis" ; VP (Pres Subj Pl P3) => c_ + "uelguen" ; - VP (Impf Ind Sg P1) => c_ + "olgaba" ; - VP (Impf Ind Sg P2) => c_ + "olgabas" ; - VP (Impf Ind Sg P3) => c_ + "olgaba" ; - VP (Impf Ind Pl P1) => c_ + "olgábamos" ; - VP (Impf Ind Pl P2) => c_ + "olgabais" ; - VP (Impf Ind Pl P3) => c_ + "olgaban" ; - VP (Impf Subj Sg P1) => variants {c_ + "olgara" ; c_ + "olgase"} ; - VP (Impf Subj Sg P2) => variants {c_ + "olgaras" ; c_ + "olgases"} ; - VP (Impf Subj Sg P3) => variants {c_ + "olgara" ; c_ + "olgase"} ; - VP (Impf Subj Pl P1) => variants {c_ + "olgáramos" ; c_ + "olgásemos"} ; - VP (Impf Subj Pl P2) => variants {c_ + "olgarais" ; c_ + "olgaseis"} ; - VP (Impf Subj Pl P3) => variants {c_ + "olgaran" ; c_ + "olgasen"} ; - VP (Pret Sg P1) => c_ + "olgué" ; - VP (Pret Sg P2) => c_ + "olgaste" ; - VP (Pret Sg P3) => c_ + "olgó" ; - VP (Pret Pl P1) => c_ + "olgamos" ; - VP (Pret Pl P2) => c_ + "olgasteis" ; - VP (Pret Pl P3) => c_ + "olgaron" ; - VP (Fut Ind Sg P1) => c_ + "olgaré" ; - VP (Fut Ind Sg P2) => c_ + "olgarás" ; - VP (Fut Ind Sg P3) => c_ + "olgará" ; - VP (Fut Ind Pl P1) => c_ + "olgaremos" ; - VP (Fut Ind Pl P2) => c_ + "olgaréis" ; - VP (Fut Ind Pl P3) => c_ + "olgarán" ; - VP (Fut Subj Sg P1) => c_ + "olgare" ; - VP (Fut Subj Sg P2) => c_ + "olgares" ; - VP (Fut Subj Sg P3) => c_ + "olgare" ; - VP (Fut Subj Pl P1) => c_ + "olgáremos" ; - VP (Fut Subj Pl P2) => c_ + "olgareis" ; - VP (Fut Subj Pl P3) => c_ + "olgaren" ; - VP (Cond Sg P1) => c_ + "olgaría" ; - VP (Cond Sg P2) => c_ + "olgarías" ; - VP (Cond Sg P3) => c_ + "olgaría" ; - VP (Cond Pl P1) => c_ + "olgaríamos" ; - VP (Cond Pl P2) => c_ + "olgaríais" ; - VP (Cond Pl P3) => c_ + "olgarían" ; + VP (Impf Ind Sg P1) => c_ + "olgaba" ; --# notpresent + VP (Impf Ind Sg P2) => c_ + "olgabas" ; --# notpresent + VP (Impf Ind Sg P3) => c_ + "olgaba" ; --# notpresent + VP (Impf Ind Pl P1) => c_ + "olgábamos" ; --# notpresent + VP (Impf Ind Pl P2) => c_ + "olgabais" ; --# notpresent + VP (Impf Ind Pl P3) => c_ + "olgaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {c_ + "olgara" ; c_ + "olgase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {c_ + "olgaras" ; c_ + "olgases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {c_ + "olgara" ; c_ + "olgase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {c_ + "olgáramos" ; c_ + "olgásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {c_ + "olgarais" ; c_ + "olgaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {c_ + "olgaran" ; c_ + "olgasen"} ; --# notpresent + VP (Pret Sg P1) => c_ + "olgué" ; --# notpresent + VP (Pret Sg P2) => c_ + "olgaste" ; --# notpresent + VP (Pret Sg P3) => c_ + "olgó" ; --# notpresent + VP (Pret Pl P1) => c_ + "olgamos" ; --# notpresent + VP (Pret Pl P2) => c_ + "olgasteis" ; --# notpresent + VP (Pret Pl P3) => c_ + "olgaron" ; --# notpresent + VP (Fut Ind Sg P1) => c_ + "olgaré" ; --# notpresent + VP (Fut Ind Sg P2) => c_ + "olgarás" ; --# notpresent + VP (Fut Ind Sg P3) => c_ + "olgará" ; --# notpresent + VP (Fut Ind Pl P1) => c_ + "olgaremos" ; --# notpresent + VP (Fut Ind Pl P2) => c_ + "olgaréis" ; --# notpresent + VP (Fut Ind Pl P3) => c_ + "olgarán" ; --# notpresent + VP (Fut Subj Sg P1) => c_ + "olgare" ; --# notpresent + VP (Fut Subj Sg P2) => c_ + "olgares" ; --# notpresent + VP (Fut Subj Sg P3) => c_ + "olgare" ; --# notpresent + VP (Fut Subj Pl P1) => c_ + "olgáremos" ; --# notpresent + VP (Fut Subj Pl P2) => c_ + "olgareis" ; --# notpresent + VP (Fut Subj Pl P3) => c_ + "olgaren" ; --# notpresent + VP (Cond Sg P1) => c_ + "olgaría" ; --# notpresent + VP (Cond Sg P2) => c_ + "olgarías" ; --# notpresent + VP (Cond Sg P3) => c_ + "olgaría" ; --# notpresent + VP (Cond Pl P1) => c_ + "olgaríamos" ; --# notpresent + VP (Cond Pl P2) => c_ + "olgaríais" ; --# notpresent + VP (Cond Pl P3) => c_ + "olgarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => c_ + "uelga" ; VP (Imp Sg P3) => c_ + "uelgue" ; @@ -1614,42 +1683,42 @@ oper conocer_25 : Str -> Verbum = \conocer -> VP (Pres Subj Pl P1) => cono_ + "zcamos" ; VP (Pres Subj Pl P2) => cono_ + "zcáis" ; VP (Pres Subj Pl P3) => cono_ + "zcan" ; - VP (Impf Ind Sg P1) => cono_ + "cía" ; - VP (Impf Ind Sg P2) => cono_ + "cías" ; - VP (Impf Ind Sg P3) => cono_ + "cía" ; - VP (Impf Ind Pl P1) => cono_ + "cíamos" ; - VP (Impf Ind Pl P2) => cono_ + "cíais" ; - VP (Impf Ind Pl P3) => cono_ + "cían" ; - VP (Impf Subj Sg P1) => variants {cono_ + "ciera" ; cono_ + "ciese"} ; - VP (Impf Subj Sg P2) => variants {cono_ + "cieras" ; cono_ + "cieses"} ; - VP (Impf Subj Sg P3) => variants {cono_ + "ciera" ; cono_ + "ciese"} ; - VP (Impf Subj Pl P1) => variants {cono_ + "ciéramos" ; cono_ + "ciésemos"} ; - VP (Impf Subj Pl P2) => variants {cono_ + "cierais" ; cono_ + "cieseis"} ; - VP (Impf Subj Pl P3) => variants {cono_ + "cieran" ; cono_ + "ciesen"} ; - VP (Pret Sg P1) => cono_ + "cí" ; - VP (Pret Sg P2) => cono_ + "ciste" ; - VP (Pret Sg P3) => cono_ + "ció" ; - VP (Pret Pl P1) => cono_ + "cimos" ; - VP (Pret Pl P2) => cono_ + "cisteis" ; - VP (Pret Pl P3) => cono_ + "cieron" ; - VP (Fut Ind Sg P1) => cono_ + "ceré" ; - VP (Fut Ind Sg P2) => cono_ + "cerás" ; - VP (Fut Ind Sg P3) => cono_ + "cerá" ; - VP (Fut Ind Pl P1) => cono_ + "ceremos" ; - VP (Fut Ind Pl P2) => cono_ + "ceréis" ; - VP (Fut Ind Pl P3) => cono_ + "cerán" ; - VP (Fut Subj Sg P1) => cono_ + "ciere" ; - VP (Fut Subj Sg P2) => cono_ + "cieres" ; - VP (Fut Subj Sg P3) => cono_ + "ciere" ; - VP (Fut Subj Pl P1) => cono_ + "ciéremos" ; - VP (Fut Subj Pl P2) => cono_ + "ciereis" ; - VP (Fut Subj Pl P3) => cono_ + "cieren" ; - VP (Cond Sg P1) => cono_ + "cería" ; - VP (Cond Sg P2) => cono_ + "cerías" ; - VP (Cond Sg P3) => cono_ + "cería" ; - VP (Cond Pl P1) => cono_ + "ceríamos" ; - VP (Cond Pl P2) => cono_ + "ceríais" ; - VP (Cond Pl P3) => cono_ + "cerían" ; + VP (Impf Ind Sg P1) => cono_ + "cía" ; --# notpresent + VP (Impf Ind Sg P2) => cono_ + "cías" ; --# notpresent + VP (Impf Ind Sg P3) => cono_ + "cía" ; --# notpresent + VP (Impf Ind Pl P1) => cono_ + "cíamos" ; --# notpresent + VP (Impf Ind Pl P2) => cono_ + "cíais" ; --# notpresent + VP (Impf Ind Pl P3) => cono_ + "cían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {cono_ + "ciera" ; cono_ + "ciese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {cono_ + "cieras" ; cono_ + "cieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {cono_ + "ciera" ; cono_ + "ciese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {cono_ + "ciéramos" ; cono_ + "ciésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {cono_ + "cierais" ; cono_ + "cieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {cono_ + "cieran" ; cono_ + "ciesen"} ; --# notpresent + VP (Pret Sg P1) => cono_ + "cí" ; --# notpresent + VP (Pret Sg P2) => cono_ + "ciste" ; --# notpresent + VP (Pret Sg P3) => cono_ + "ció" ; --# notpresent + VP (Pret Pl P1) => cono_ + "cimos" ; --# notpresent + VP (Pret Pl P2) => cono_ + "cisteis" ; --# notpresent + VP (Pret Pl P3) => cono_ + "cieron" ; --# notpresent + VP (Fut Ind Sg P1) => cono_ + "ceré" ; --# notpresent + VP (Fut Ind Sg P2) => cono_ + "cerás" ; --# notpresent + VP (Fut Ind Sg P3) => cono_ + "cerá" ; --# notpresent + VP (Fut Ind Pl P1) => cono_ + "ceremos" ; --# notpresent + VP (Fut Ind Pl P2) => cono_ + "ceréis" ; --# notpresent + VP (Fut Ind Pl P3) => cono_ + "cerán" ; --# notpresent + VP (Fut Subj Sg P1) => cono_ + "ciere" ; --# notpresent + VP (Fut Subj Sg P2) => cono_ + "cieres" ; --# notpresent + VP (Fut Subj Sg P3) => cono_ + "ciere" ; --# notpresent + VP (Fut Subj Pl P1) => cono_ + "ciéremos" ; --# notpresent + VP (Fut Subj Pl P2) => cono_ + "ciereis" ; --# notpresent + VP (Fut Subj Pl P3) => cono_ + "cieren" ; --# notpresent + VP (Cond Sg P1) => cono_ + "cería" ; --# notpresent + VP (Cond Sg P2) => cono_ + "cerías" ; --# notpresent + VP (Cond Sg P3) => cono_ + "cería" ; --# notpresent + VP (Cond Pl P1) => cono_ + "ceríamos" ; --# notpresent + VP (Cond Pl P2) => cono_ + "ceríais" ; --# notpresent + VP (Cond Pl P3) => cono_ + "cerían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => cono_ + "ce" ; VP (Imp Sg P3) => cono_ + "zca" ; @@ -1680,42 +1749,42 @@ oper creer_26 : Str -> Verbum = \creer -> VP (Pres Subj Pl P1) => cre_ + "amos" ; VP (Pres Subj Pl P2) => cre_ + "áis" ; VP (Pres Subj Pl P3) => cre_ + "an" ; - VP (Impf Ind Sg P1) => cre_ + "ía" ; - VP (Impf Ind Sg P2) => cre_ + "ías" ; - VP (Impf Ind Sg P3) => cre_ + "ía" ; - VP (Impf Ind Pl P1) => cre_ + "íamos" ; - VP (Impf Ind Pl P2) => cre_ + "íais" ; - VP (Impf Ind Pl P3) => cre_ + "ían" ; - VP (Impf Subj Sg P1) => variants {cre_ + "yera" ; cre_ + "yese"} ; - VP (Impf Subj Sg P2) => variants {cre_ + "yeras" ; cre_ + "yeses"} ; - VP (Impf Subj Sg P3) => variants {cre_ + "yera" ; cre_ + "yese"} ; - VP (Impf Subj Pl P1) => variants {cre_ + "yéramos" ; cre_ + "yésemos"} ; - VP (Impf Subj Pl P2) => variants {cre_ + "yerais" ; cre_ + "yeseis"} ; - VP (Impf Subj Pl P3) => variants {cre_ + "yeran" ; cre_ + "yesen"} ; - VP (Pret Sg P1) => cre_ + "í" ; - VP (Pret Sg P2) => cre_ + "íste" ; - VP (Pret Sg P3) => cre_ + "yó" ; - VP (Pret Pl P1) => cre_ + "ímos" ; - VP (Pret Pl P2) => cre_ + "ísteis" ; - VP (Pret Pl P3) => cre_ + "yeron" ; - VP (Fut Ind Sg P1) => cre_ + "eré" ; - VP (Fut Ind Sg P2) => cre_ + "erás" ; - VP (Fut Ind Sg P3) => cre_ + "erá" ; - VP (Fut Ind Pl P1) => cre_ + "eremos" ; - VP (Fut Ind Pl P2) => cre_ + "eréis" ; - VP (Fut Ind Pl P3) => cre_ + "erán" ; - VP (Fut Subj Sg P1) => cre_ + "yere" ; - VP (Fut Subj Sg P2) => cre_ + "yeres" ; - VP (Fut Subj Sg P3) => cre_ + "yere" ; - VP (Fut Subj Pl P1) => cre_ + "yéremos" ; - VP (Fut Subj Pl P2) => cre_ + "yereis" ; - VP (Fut Subj Pl P3) => cre_ + "yeren" ; - VP (Cond Sg P1) => cre_ + "ería" ; - VP (Cond Sg P2) => cre_ + "erías" ; - VP (Cond Sg P3) => cre_ + "ería" ; - VP (Cond Pl P1) => cre_ + "eríamos" ; - VP (Cond Pl P2) => cre_ + "eríais" ; - VP (Cond Pl P3) => cre_ + "erían" ; + VP (Impf Ind Sg P1) => cre_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => cre_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => cre_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => cre_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => cre_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => cre_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {cre_ + "yera" ; cre_ + "yese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {cre_ + "yeras" ; cre_ + "yeses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {cre_ + "yera" ; cre_ + "yese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {cre_ + "yéramos" ; cre_ + "yésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {cre_ + "yerais" ; cre_ + "yeseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {cre_ + "yeran" ; cre_ + "yesen"} ; --# notpresent + VP (Pret Sg P1) => cre_ + "í" ; --# notpresent + VP (Pret Sg P2) => cre_ + "íste" ; --# notpresent + VP (Pret Sg P3) => cre_ + "yó" ; --# notpresent + VP (Pret Pl P1) => cre_ + "ímos" ; --# notpresent + VP (Pret Pl P2) => cre_ + "ísteis" ; --# notpresent + VP (Pret Pl P3) => cre_ + "yeron" ; --# notpresent + VP (Fut Ind Sg P1) => cre_ + "eré" ; --# notpresent + VP (Fut Ind Sg P2) => cre_ + "erás" ; --# notpresent + VP (Fut Ind Sg P3) => cre_ + "erá" ; --# notpresent + VP (Fut Ind Pl P1) => cre_ + "eremos" ; --# notpresent + VP (Fut Ind Pl P2) => cre_ + "eréis" ; --# notpresent + VP (Fut Ind Pl P3) => cre_ + "erán" ; --# notpresent + VP (Fut Subj Sg P1) => cre_ + "yere" ; --# notpresent + VP (Fut Subj Sg P2) => cre_ + "yeres" ; --# notpresent + VP (Fut Subj Sg P3) => cre_ + "yere" ; --# notpresent + VP (Fut Subj Pl P1) => cre_ + "yéremos" ; --# notpresent + VP (Fut Subj Pl P2) => cre_ + "yereis" ; --# notpresent + VP (Fut Subj Pl P3) => cre_ + "yeren" ; --# notpresent + VP (Cond Sg P1) => cre_ + "ería" ; --# notpresent + VP (Cond Sg P2) => cre_ + "erías" ; --# notpresent + VP (Cond Sg P3) => cre_ + "ería" ; --# notpresent + VP (Cond Pl P1) => cre_ + "eríamos" ; --# notpresent + VP (Cond Pl P2) => cre_ + "eríais" ; --# notpresent + VP (Cond Pl P3) => cre_ + "erían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => cre_ + "e" ; VP (Imp Sg P3) => cre_ + "a" ; @@ -1746,42 +1815,42 @@ oper dar_27 : Str -> Verbum = \dar -> VP (Pres Subj Pl P1) => d_ + "emos" ; VP (Pres Subj Pl P2) => d_ + "eis" ; VP (Pres Subj Pl P3) => d_ + "en" ; - VP (Impf Ind Sg P1) => d_ + "aba" ; - VP (Impf Ind Sg P2) => d_ + "abas" ; - VP (Impf Ind Sg P3) => d_ + "aba" ; - VP (Impf Ind Pl P1) => d_ + "ábamos" ; - VP (Impf Ind Pl P2) => d_ + "abais" ; - VP (Impf Ind Pl P3) => d_ + "aban" ; - VP (Impf Subj Sg P1) => variants {d_ + "iera" ; d_ + "iese"} ; - VP (Impf Subj Sg P2) => variants {d_ + "ieras" ; d_ + "ieses"} ; - VP (Impf Subj Sg P3) => variants {d_ + "iera" ; d_ + "iese"} ; - VP (Impf Subj Pl P1) => variants {d_ + "iéramos" ; d_ + "iésemos"} ; - VP (Impf Subj Pl P2) => variants {d_ + "ierais" ; d_ + "ieseis"} ; - VP (Impf Subj Pl P3) => variants {d_ + "ieran" ; d_ + "iesen"} ; - VP (Pret Sg P1) => d_ + "i" ; - VP (Pret Sg P2) => d_ + "iste" ; - VP (Pret Sg P3) => d_ + "io" ; - VP (Pret Pl P1) => d_ + "imos" ; - VP (Pret Pl P2) => d_ + "isteis" ; - VP (Pret Pl P3) => d_ + "ieron" ; - VP (Fut Ind Sg P1) => d_ + "aré" ; - VP (Fut Ind Sg P2) => d_ + "arás" ; - VP (Fut Ind Sg P3) => d_ + "ará" ; - VP (Fut Ind Pl P1) => d_ + "aremos" ; - VP (Fut Ind Pl P2) => d_ + "aréis" ; - VP (Fut Ind Pl P3) => d_ + "arán" ; - VP (Fut Subj Sg P1) => d_ + "iere" ; - VP (Fut Subj Sg P2) => d_ + "ieres" ; - VP (Fut Subj Sg P3) => d_ + "iere" ; - VP (Fut Subj Pl P1) => d_ + "iéremos" ; - VP (Fut Subj Pl P2) => d_ + "iereis" ; - VP (Fut Subj Pl P3) => d_ + "ieren" ; - VP (Cond Sg P1) => d_ + "aría" ; - VP (Cond Sg P2) => d_ + "arías" ; - VP (Cond Sg P3) => d_ + "aría" ; - VP (Cond Pl P1) => d_ + "aríamos" ; - VP (Cond Pl P2) => d_ + "aríais" ; - VP (Cond Pl P3) => d_ + "arían" ; + VP (Impf Ind Sg P1) => d_ + "aba" ; --# notpresent + VP (Impf Ind Sg P2) => d_ + "abas" ; --# notpresent + VP (Impf Ind Sg P3) => d_ + "aba" ; --# notpresent + VP (Impf Ind Pl P1) => d_ + "ábamos" ; --# notpresent + VP (Impf Ind Pl P2) => d_ + "abais" ; --# notpresent + VP (Impf Ind Pl P3) => d_ + "aban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {d_ + "iera" ; d_ + "iese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {d_ + "ieras" ; d_ + "ieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {d_ + "iera" ; d_ + "iese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {d_ + "iéramos" ; d_ + "iésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {d_ + "ierais" ; d_ + "ieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {d_ + "ieran" ; d_ + "iesen"} ; --# notpresent + VP (Pret Sg P1) => d_ + "i" ; --# notpresent + VP (Pret Sg P2) => d_ + "iste" ; --# notpresent + VP (Pret Sg P3) => d_ + "io" ; --# notpresent + VP (Pret Pl P1) => d_ + "imos" ; --# notpresent + VP (Pret Pl P2) => d_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => d_ + "ieron" ; --# notpresent + VP (Fut Ind Sg P1) => d_ + "aré" ; --# notpresent + VP (Fut Ind Sg P2) => d_ + "arás" ; --# notpresent + VP (Fut Ind Sg P3) => d_ + "ará" ; --# notpresent + VP (Fut Ind Pl P1) => d_ + "aremos" ; --# notpresent + VP (Fut Ind Pl P2) => d_ + "aréis" ; --# notpresent + VP (Fut Ind Pl P3) => d_ + "arán" ; --# notpresent + VP (Fut Subj Sg P1) => d_ + "iere" ; --# notpresent + VP (Fut Subj Sg P2) => d_ + "ieres" ; --# notpresent + VP (Fut Subj Sg P3) => d_ + "iere" ; --# notpresent + VP (Fut Subj Pl P1) => d_ + "iéremos" ; --# notpresent + VP (Fut Subj Pl P2) => d_ + "iereis" ; --# notpresent + VP (Fut Subj Pl P3) => d_ + "ieren" ; --# notpresent + VP (Cond Sg P1) => d_ + "aría" ; --# notpresent + VP (Cond Sg P2) => d_ + "arías" ; --# notpresent + VP (Cond Sg P3) => d_ + "aría" ; --# notpresent + VP (Cond Pl P1) => d_ + "aríamos" ; --# notpresent + VP (Cond Pl P2) => d_ + "aríais" ; --# notpresent + VP (Cond Pl P3) => d_ + "arían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => d_ + "a" ; VP (Imp Sg P3) => d_ + "é" ; @@ -1812,42 +1881,42 @@ oper decir_28 : Str -> Verbum = \decir -> VP (Pres Subj Pl P1) => d_ + "igamos" ; VP (Pres Subj Pl P2) => d_ + "igáis" ; VP (Pres Subj Pl P3) => d_ + "igan" ; - VP (Impf Ind Sg P1) => d_ + "ecía" ; - VP (Impf Ind Sg P2) => d_ + "ecías" ; - VP (Impf Ind Sg P3) => d_ + "ecía" ; - VP (Impf Ind Pl P1) => d_ + "ecíamos" ; - VP (Impf Ind Pl P2) => d_ + "ecíais" ; - VP (Impf Ind Pl P3) => d_ + "ecían" ; - VP (Impf Subj Sg P1) => variants {d_ + "ijera" ; d_ + "ijese"} ; - VP (Impf Subj Sg P2) => variants {d_ + "ijeras" ; d_ + "ijeses"} ; - VP (Impf Subj Sg P3) => variants {d_ + "ijera" ; d_ + "ijese"} ; - VP (Impf Subj Pl P1) => variants {d_ + "ijéramos" ; d_ + "ijésemos"} ; - VP (Impf Subj Pl P2) => variants {d_ + "ijerais" ; d_ + "ijeseis"} ; - VP (Impf Subj Pl P3) => variants {d_ + "ijeran" ; d_ + "ijesen"} ; - VP (Pret Sg P1) => d_ + "ije" ; - VP (Pret Sg P2) => d_ + "ijiste" ; - VP (Pret Sg P3) => d_ + "ijo" ; - VP (Pret Pl P1) => d_ + "ijimos" ; - VP (Pret Pl P2) => d_ + "ijisteis" ; - VP (Pret Pl P3) => d_ + "ijeron" ; - VP (Fut Ind Sg P1) => d_ + "iré" ; - VP (Fut Ind Sg P2) => d_ + "irás" ; - VP (Fut Ind Sg P3) => d_ + "irá" ; - VP (Fut Ind Pl P1) => d_ + "iremos" ; - VP (Fut Ind Pl P2) => d_ + "iréis" ; - VP (Fut Ind Pl P3) => d_ + "irán" ; - VP (Fut Subj Sg P1) => d_ + "ijere" ; - VP (Fut Subj Sg P2) => d_ + "ijeres" ; - VP (Fut Subj Sg P3) => d_ + "ijere" ; - VP (Fut Subj Pl P1) => d_ + "ijéremos" ; - VP (Fut Subj Pl P2) => d_ + "ijereis" ; - VP (Fut Subj Pl P3) => d_ + "ijeren" ; - VP (Cond Sg P1) => d_ + "iría" ; - VP (Cond Sg P2) => d_ + "irías" ; - VP (Cond Sg P3) => d_ + "iría" ; - VP (Cond Pl P1) => d_ + "iríamos" ; - VP (Cond Pl P2) => d_ + "iríais" ; - VP (Cond Pl P3) => d_ + "irían" ; + VP (Impf Ind Sg P1) => d_ + "ecía" ; --# notpresent + VP (Impf Ind Sg P2) => d_ + "ecías" ; --# notpresent + VP (Impf Ind Sg P3) => d_ + "ecía" ; --# notpresent + VP (Impf Ind Pl P1) => d_ + "ecíamos" ; --# notpresent + VP (Impf Ind Pl P2) => d_ + "ecíais" ; --# notpresent + VP (Impf Ind Pl P3) => d_ + "ecían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {d_ + "ijera" ; d_ + "ijese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {d_ + "ijeras" ; d_ + "ijeses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {d_ + "ijera" ; d_ + "ijese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {d_ + "ijéramos" ; d_ + "ijésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {d_ + "ijerais" ; d_ + "ijeseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {d_ + "ijeran" ; d_ + "ijesen"} ; --# notpresent + VP (Pret Sg P1) => d_ + "ije" ; --# notpresent + VP (Pret Sg P2) => d_ + "ijiste" ; --# notpresent + VP (Pret Sg P3) => d_ + "ijo" ; --# notpresent + VP (Pret Pl P1) => d_ + "ijimos" ; --# notpresent + VP (Pret Pl P2) => d_ + "ijisteis" ; --# notpresent + VP (Pret Pl P3) => d_ + "ijeron" ; --# notpresent + VP (Fut Ind Sg P1) => d_ + "iré" ; --# notpresent + VP (Fut Ind Sg P2) => d_ + "irás" ; --# notpresent + VP (Fut Ind Sg P3) => d_ + "irá" ; --# notpresent + VP (Fut Ind Pl P1) => d_ + "iremos" ; --# notpresent + VP (Fut Ind Pl P2) => d_ + "iréis" ; --# notpresent + VP (Fut Ind Pl P3) => d_ + "irán" ; --# notpresent + VP (Fut Subj Sg P1) => d_ + "ijere" ; --# notpresent + VP (Fut Subj Sg P2) => d_ + "ijeres" ; --# notpresent + VP (Fut Subj Sg P3) => d_ + "ijere" ; --# notpresent + VP (Fut Subj Pl P1) => d_ + "ijéremos" ; --# notpresent + VP (Fut Subj Pl P2) => d_ + "ijereis" ; --# notpresent + VP (Fut Subj Pl P3) => d_ + "ijeren" ; --# notpresent + VP (Cond Sg P1) => d_ + "iría" ; --# notpresent + VP (Cond Sg P2) => d_ + "irías" ; --# notpresent + VP (Cond Sg P3) => d_ + "iría" ; --# notpresent + VP (Cond Pl P1) => d_ + "iríamos" ; --# notpresent + VP (Cond Pl P2) => d_ + "iríais" ; --# notpresent + VP (Cond Pl P3) => d_ + "irían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => d_ + "i" ; VP (Imp Sg P3) => d_ + "iga" ; @@ -1881,42 +1950,42 @@ oper defender_29 : Str -> Verbum = \defender -> VP (Pres Subj Pl P1) => def_ + "e" + nd_ + "amos" ; VP (Pres Subj Pl P2) => def_ + "e" + nd_ + "áis" ; VP (Pres Subj Pl P3) => def_ + "ie" + nd_ + "an" ; - VP (Impf Ind Sg P1) => def_ + "e" + nd_ + "ía" ; - VP (Impf Ind Sg P2) => def_ + "e" + nd_ + "ías" ; - VP (Impf Ind Sg P3) => def_ + "e" + nd_ + "ía" ; - VP (Impf Ind Pl P1) => def_ + "e" + nd_ + "íamos" ; - VP (Impf Ind Pl P2) => def_ + "e" + nd_ + "íais" ; - VP (Impf Ind Pl P3) => def_ + "e" + nd_ + "ían" ; - VP (Impf Subj Sg P1) => variants {def_ + "e" + nd_ + "iera" ; def_ + "e" + nd_ + "iese"} ; - VP (Impf Subj Sg P2) => variants {def_ + "e" + nd_ + "ieras" ; def_ + "e" + nd_ + "ieses"} ; - VP (Impf Subj Sg P3) => variants {def_ + "e" + nd_ + "iera" ; def_ + "e" + nd_ + "iese"} ; - VP (Impf Subj Pl P1) => variants {def_ + "e" + nd_ + "iéramos" ; def_ + "e" + nd_ + "iésemos"} ; - VP (Impf Subj Pl P2) => variants {def_ + "e" + nd_ + "ierais" ; def_ + "e" + nd_ + "ieseis"} ; - VP (Impf Subj Pl P3) => variants {def_ + "e" + nd_ + "ieran" ; def_ + "e" + nd_ + "iesen"} ; - VP (Pret Sg P1) => def_ + "e" + nd_ + "í" ; - VP (Pret Sg P2) => def_ + "e" + nd_ + "iste" ; - VP (Pret Sg P3) => def_ + "e" + nd_ + "ió" ; - VP (Pret Pl P1) => def_ + "e" + nd_ + "imos" ; - VP (Pret Pl P2) => def_ + "e" + nd_ + "isteis" ; - VP (Pret Pl P3) => def_ + "e" + nd_ + "ieron" ; - VP (Fut Ind Sg P1) => def_ + "e" + nd_ + "eré" ; - VP (Fut Ind Sg P2) => def_ + "e" + nd_ + "erás" ; - VP (Fut Ind Sg P3) => def_ + "e" + nd_ + "erá" ; - VP (Fut Ind Pl P1) => def_ + "e" + nd_ + "eremos" ; - VP (Fut Ind Pl P2) => def_ + "e" + nd_ + "eréis" ; - VP (Fut Ind Pl P3) => def_ + "e" + nd_ + "erán" ; - VP (Fut Subj Sg P1) => def_ + "e" + nd_ + "iere" ; - VP (Fut Subj Sg P2) => def_ + "e" + nd_ + "ieres" ; - VP (Fut Subj Sg P3) => def_ + "e" + nd_ + "iere" ; - VP (Fut Subj Pl P1) => def_ + "e" + nd_ + "iéremos" ; - VP (Fut Subj Pl P2) => def_ + "e" + nd_ + "iereis" ; - VP (Fut Subj Pl P3) => def_ + "e" + nd_ + "ieren" ; - VP (Cond Sg P1) => def_ + "e" + nd_ + "ería" ; - VP (Cond Sg P2) => def_ + "e" + nd_ + "erías" ; - VP (Cond Sg P3) => def_ + "e" + nd_ + "ería" ; - VP (Cond Pl P1) => def_ + "e" + nd_ + "eríamos" ; - VP (Cond Pl P2) => def_ + "e" + nd_ + "eríais" ; - VP (Cond Pl P3) => def_ + "e" + nd_ + "erían" ; + VP (Impf Ind Sg P1) => def_ + "e" + nd_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => def_ + "e" + nd_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => def_ + "e" + nd_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => def_ + "e" + nd_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => def_ + "e" + nd_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => def_ + "e" + nd_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {def_ + "e" + nd_ + "iera" ; def_ + "e" + nd_ + "iese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {def_ + "e" + nd_ + "ieras" ; def_ + "e" + nd_ + "ieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {def_ + "e" + nd_ + "iera" ; def_ + "e" + nd_ + "iese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {def_ + "e" + nd_ + "iéramos" ; def_ + "e" + nd_ + "iésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {def_ + "e" + nd_ + "ierais" ; def_ + "e" + nd_ + "ieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {def_ + "e" + nd_ + "ieran" ; def_ + "e" + nd_ + "iesen"} ; --# notpresent + VP (Pret Sg P1) => def_ + "e" + nd_ + "í" ; --# notpresent + VP (Pret Sg P2) => def_ + "e" + nd_ + "iste" ; --# notpresent + VP (Pret Sg P3) => def_ + "e" + nd_ + "ió" ; --# notpresent + VP (Pret Pl P1) => def_ + "e" + nd_ + "imos" ; --# notpresent + VP (Pret Pl P2) => def_ + "e" + nd_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => def_ + "e" + nd_ + "ieron" ; --# notpresent + VP (Fut Ind Sg P1) => def_ + "e" + nd_ + "eré" ; --# notpresent + VP (Fut Ind Sg P2) => def_ + "e" + nd_ + "erás" ; --# notpresent + VP (Fut Ind Sg P3) => def_ + "e" + nd_ + "erá" ; --# notpresent + VP (Fut Ind Pl P1) => def_ + "e" + nd_ + "eremos" ; --# notpresent + VP (Fut Ind Pl P2) => def_ + "e" + nd_ + "eréis" ; --# notpresent + VP (Fut Ind Pl P3) => def_ + "e" + nd_ + "erán" ; --# notpresent + VP (Fut Subj Sg P1) => def_ + "e" + nd_ + "iere" ; --# notpresent + VP (Fut Subj Sg P2) => def_ + "e" + nd_ + "ieres" ; --# notpresent + VP (Fut Subj Sg P3) => def_ + "e" + nd_ + "iere" ; --# notpresent + VP (Fut Subj Pl P1) => def_ + "e" + nd_ + "iéremos" ; --# notpresent + VP (Fut Subj Pl P2) => def_ + "e" + nd_ + "iereis" ; --# notpresent + VP (Fut Subj Pl P3) => def_ + "e" + nd_ + "ieren" ; --# notpresent + VP (Cond Sg P1) => def_ + "e" + nd_ + "ería" ; --# notpresent + VP (Cond Sg P2) => def_ + "e" + nd_ + "erías" ; --# notpresent + VP (Cond Sg P3) => def_ + "e" + nd_ + "ería" ; --# notpresent + VP (Cond Pl P1) => def_ + "e" + nd_ + "eríamos" ; --# notpresent + VP (Cond Pl P2) => def_ + "e" + nd_ + "eríais" ; --# notpresent + VP (Cond Pl P3) => def_ + "e" + nd_ + "erían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => def_ + "ie" + nd_ + "e" ; VP (Imp Sg P3) => def_ + "ie" + nd_ + "a" ; @@ -1947,42 +2016,42 @@ oper delinquir_30 : Str -> Verbum = \delinquir -> VP (Pres Subj Pl P1) => delin_ + "camos" ; VP (Pres Subj Pl P2) => delin_ + "cáis" ; VP (Pres Subj Pl P3) => delin_ + "can" ; - VP (Impf Ind Sg P1) => delin_ + "quía" ; - VP (Impf Ind Sg P2) => delin_ + "quías" ; - VP (Impf Ind Sg P3) => delin_ + "quía" ; - VP (Impf Ind Pl P1) => delin_ + "quíamos" ; - VP (Impf Ind Pl P2) => delin_ + "quíais" ; - VP (Impf Ind Pl P3) => delin_ + "quían" ; - VP (Impf Subj Sg P1) => variants {delin_ + "quiera" ; delin_ + "quiese"} ; - VP (Impf Subj Sg P2) => variants {delin_ + "quieras" ; delin_ + "quieses"} ; - VP (Impf Subj Sg P3) => variants {delin_ + "quiera" ; delin_ + "quiese"} ; - VP (Impf Subj Pl P1) => variants {delin_ + "quiéramos" ; delin_ + "quiésemos"} ; - VP (Impf Subj Pl P2) => variants {delin_ + "quierais" ; delin_ + "quieseis"} ; - VP (Impf Subj Pl P3) => variants {delin_ + "quieran" ; delin_ + "quiesen"} ; - VP (Pret Sg P1) => delin_ + "quí" ; - VP (Pret Sg P2) => delin_ + "quiste" ; - VP (Pret Sg P3) => delin_ + "quió" ; - VP (Pret Pl P1) => delin_ + "quimos" ; - VP (Pret Pl P2) => delin_ + "quisteis" ; - VP (Pret Pl P3) => delin_ + "quieron" ; - VP (Fut Ind Sg P1) => delin_ + "quiré" ; - VP (Fut Ind Sg P2) => delin_ + "quirás" ; - VP (Fut Ind Sg P3) => delin_ + "quirá" ; - VP (Fut Ind Pl P1) => delin_ + "quiremos" ; - VP (Fut Ind Pl P2) => delin_ + "quiréis" ; - VP (Fut Ind Pl P3) => delin_ + "quirán" ; - VP (Fut Subj Sg P1) => delin_ + "quiere" ; - VP (Fut Subj Sg P2) => delin_ + "quieres" ; - VP (Fut Subj Sg P3) => delin_ + "quiere" ; - VP (Fut Subj Pl P1) => delin_ + "quiéremos" ; - VP (Fut Subj Pl P2) => delin_ + "quiereis" ; - VP (Fut Subj Pl P3) => delin_ + "quieren" ; - VP (Cond Sg P1) => delin_ + "quiría" ; - VP (Cond Sg P2) => delin_ + "quirías" ; - VP (Cond Sg P3) => delin_ + "quiría" ; - VP (Cond Pl P1) => delin_ + "quiríamos" ; - VP (Cond Pl P2) => delin_ + "quiríais" ; - VP (Cond Pl P3) => delin_ + "quirían" ; + VP (Impf Ind Sg P1) => delin_ + "quía" ; --# notpresent + VP (Impf Ind Sg P2) => delin_ + "quías" ; --# notpresent + VP (Impf Ind Sg P3) => delin_ + "quía" ; --# notpresent + VP (Impf Ind Pl P1) => delin_ + "quíamos" ; --# notpresent + VP (Impf Ind Pl P2) => delin_ + "quíais" ; --# notpresent + VP (Impf Ind Pl P3) => delin_ + "quían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {delin_ + "quiera" ; delin_ + "quiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {delin_ + "quieras" ; delin_ + "quieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {delin_ + "quiera" ; delin_ + "quiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {delin_ + "quiéramos" ; delin_ + "quiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {delin_ + "quierais" ; delin_ + "quieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {delin_ + "quieran" ; delin_ + "quiesen"} ; --# notpresent + VP (Pret Sg P1) => delin_ + "quí" ; --# notpresent + VP (Pret Sg P2) => delin_ + "quiste" ; --# notpresent + VP (Pret Sg P3) => delin_ + "quió" ; --# notpresent + VP (Pret Pl P1) => delin_ + "quimos" ; --# notpresent + VP (Pret Pl P2) => delin_ + "quisteis" ; --# notpresent + VP (Pret Pl P3) => delin_ + "quieron" ; --# notpresent + VP (Fut Ind Sg P1) => delin_ + "quiré" ; --# notpresent + VP (Fut Ind Sg P2) => delin_ + "quirás" ; --# notpresent + VP (Fut Ind Sg P3) => delin_ + "quirá" ; --# notpresent + VP (Fut Ind Pl P1) => delin_ + "quiremos" ; --# notpresent + VP (Fut Ind Pl P2) => delin_ + "quiréis" ; --# notpresent + VP (Fut Ind Pl P3) => delin_ + "quirán" ; --# notpresent + VP (Fut Subj Sg P1) => delin_ + "quiere" ; --# notpresent + VP (Fut Subj Sg P2) => delin_ + "quieres" ; --# notpresent + VP (Fut Subj Sg P3) => delin_ + "quiere" ; --# notpresent + VP (Fut Subj Pl P1) => delin_ + "quiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => delin_ + "quiereis" ; --# notpresent + VP (Fut Subj Pl P3) => delin_ + "quieren" ; --# notpresent + VP (Cond Sg P1) => delin_ + "quiría" ; --# notpresent + VP (Cond Sg P2) => delin_ + "quirías" ; --# notpresent + VP (Cond Sg P3) => delin_ + "quiría" ; --# notpresent + VP (Cond Pl P1) => delin_ + "quiríamos" ; --# notpresent + VP (Cond Pl P2) => delin_ + "quiríais" ; --# notpresent + VP (Cond Pl P3) => delin_ + "quirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => delin_ + "que" ; VP (Imp Sg P3) => delin_ + "ca" ; @@ -2013,42 +2082,42 @@ oper desosar_31 : Str -> Verbum = \desosar -> VP (Pres Subj Pl P1) => des_ + "osemos" ; VP (Pres Subj Pl P2) => des_ + "oséis" ; VP (Pres Subj Pl P3) => des_ + "huesen" ; - VP (Impf Ind Sg P1) => des_ + "osaba" ; - VP (Impf Ind Sg P2) => des_ + "osabas" ; - VP (Impf Ind Sg P3) => des_ + "osaba" ; - VP (Impf Ind Pl P1) => des_ + "osábamos" ; - VP (Impf Ind Pl P2) => des_ + "osabais" ; - VP (Impf Ind Pl P3) => des_ + "osaban" ; - VP (Impf Subj Sg P1) => variants {des_ + "osara" ; des_ + "osase"} ; - VP (Impf Subj Sg P2) => variants {des_ + "osaras" ; des_ + "osases"} ; - VP (Impf Subj Sg P3) => variants {des_ + "osara" ; des_ + "osase"} ; - VP (Impf Subj Pl P1) => variants {des_ + "osáramos" ; des_ + "osásemos"} ; - VP (Impf Subj Pl P2) => variants {des_ + "osarais" ; des_ + "osaseis"} ; - VP (Impf Subj Pl P3) => variants {des_ + "osaran" ; des_ + "osasen"} ; - VP (Pret Sg P1) => des_ + "osé" ; - VP (Pret Sg P2) => des_ + "osaste" ; - VP (Pret Sg P3) => des_ + "osó" ; - VP (Pret Pl P1) => des_ + "osamos" ; - VP (Pret Pl P2) => des_ + "osasteis" ; - VP (Pret Pl P3) => des_ + "osaron" ; - VP (Fut Ind Sg P1) => des_ + "osaré" ; - VP (Fut Ind Sg P2) => des_ + "osarás" ; - VP (Fut Ind Sg P3) => des_ + "osará" ; - VP (Fut Ind Pl P1) => des_ + "osaremos" ; - VP (Fut Ind Pl P2) => des_ + "osaréis" ; - VP (Fut Ind Pl P3) => des_ + "osarán" ; - VP (Fut Subj Sg P1) => des_ + "osare" ; - VP (Fut Subj Sg P2) => des_ + "osares" ; - VP (Fut Subj Sg P3) => des_ + "osare" ; - VP (Fut Subj Pl P1) => des_ + "osáremos" ; - VP (Fut Subj Pl P2) => des_ + "osareis" ; - VP (Fut Subj Pl P3) => des_ + "osaren" ; - VP (Cond Sg P1) => des_ + "osaría" ; - VP (Cond Sg P2) => des_ + "osarías" ; - VP (Cond Sg P3) => des_ + "osaría" ; - VP (Cond Pl P1) => des_ + "osaríamos" ; - VP (Cond Pl P2) => des_ + "osaríais" ; - VP (Cond Pl P3) => des_ + "osarían" ; + VP (Impf Ind Sg P1) => des_ + "osaba" ; --# notpresent + VP (Impf Ind Sg P2) => des_ + "osabas" ; --# notpresent + VP (Impf Ind Sg P3) => des_ + "osaba" ; --# notpresent + VP (Impf Ind Pl P1) => des_ + "osábamos" ; --# notpresent + VP (Impf Ind Pl P2) => des_ + "osabais" ; --# notpresent + VP (Impf Ind Pl P3) => des_ + "osaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {des_ + "osara" ; des_ + "osase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {des_ + "osaras" ; des_ + "osases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {des_ + "osara" ; des_ + "osase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {des_ + "osáramos" ; des_ + "osásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {des_ + "osarais" ; des_ + "osaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {des_ + "osaran" ; des_ + "osasen"} ; --# notpresent + VP (Pret Sg P1) => des_ + "osé" ; --# notpresent + VP (Pret Sg P2) => des_ + "osaste" ; --# notpresent + VP (Pret Sg P3) => des_ + "osó" ; --# notpresent + VP (Pret Pl P1) => des_ + "osamos" ; --# notpresent + VP (Pret Pl P2) => des_ + "osasteis" ; --# notpresent + VP (Pret Pl P3) => des_ + "osaron" ; --# notpresent + VP (Fut Ind Sg P1) => des_ + "osaré" ; --# notpresent + VP (Fut Ind Sg P2) => des_ + "osarás" ; --# notpresent + VP (Fut Ind Sg P3) => des_ + "osará" ; --# notpresent + VP (Fut Ind Pl P1) => des_ + "osaremos" ; --# notpresent + VP (Fut Ind Pl P2) => des_ + "osaréis" ; --# notpresent + VP (Fut Ind Pl P3) => des_ + "osarán" ; --# notpresent + VP (Fut Subj Sg P1) => des_ + "osare" ; --# notpresent + VP (Fut Subj Sg P2) => des_ + "osares" ; --# notpresent + VP (Fut Subj Sg P3) => des_ + "osare" ; --# notpresent + VP (Fut Subj Pl P1) => des_ + "osáremos" ; --# notpresent + VP (Fut Subj Pl P2) => des_ + "osareis" ; --# notpresent + VP (Fut Subj Pl P3) => des_ + "osaren" ; --# notpresent + VP (Cond Sg P1) => des_ + "osaría" ; --# notpresent + VP (Cond Sg P2) => des_ + "osarías" ; --# notpresent + VP (Cond Sg P3) => des_ + "osaría" ; --# notpresent + VP (Cond Pl P1) => des_ + "osaríamos" ; --# notpresent + VP (Cond Pl P2) => des_ + "osaríais" ; --# notpresent + VP (Cond Pl P3) => des_ + "osarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => des_ + "huesa" ; VP (Imp Sg P3) => des_ + "huese" ; @@ -2079,42 +2148,42 @@ oper dirigir_32 : Str -> Verbum = \dirigir -> VP (Pres Subj Pl P1) => diri_ + "jamos" ; VP (Pres Subj Pl P2) => diri_ + "jáis" ; VP (Pres Subj Pl P3) => diri_ + "jan" ; - VP (Impf Ind Sg P1) => diri_ + "gía" ; - VP (Impf Ind Sg P2) => diri_ + "gías" ; - VP (Impf Ind Sg P3) => diri_ + "gía" ; - VP (Impf Ind Pl P1) => diri_ + "gíamos" ; - VP (Impf Ind Pl P2) => diri_ + "gíais" ; - VP (Impf Ind Pl P3) => diri_ + "gían" ; - VP (Impf Subj Sg P1) => variants {diri_ + "giera" ; diri_ + "giese"} ; - VP (Impf Subj Sg P2) => variants {diri_ + "gieras" ; diri_ + "gieses"} ; - VP (Impf Subj Sg P3) => variants {diri_ + "giera" ; diri_ + "giese"} ; - VP (Impf Subj Pl P1) => variants {diri_ + "giéramos" ; diri_ + "giésemos"} ; - VP (Impf Subj Pl P2) => variants {diri_ + "gierais" ; diri_ + "gieseis"} ; - VP (Impf Subj Pl P3) => variants {diri_ + "gieran" ; diri_ + "giesen"} ; - VP (Pret Sg P1) => diri_ + "gí" ; - VP (Pret Sg P2) => diri_ + "giste" ; - VP (Pret Sg P3) => diri_ + "gió" ; - VP (Pret Pl P1) => diri_ + "gimos" ; - VP (Pret Pl P2) => diri_ + "gisteis" ; - VP (Pret Pl P3) => diri_ + "gieron" ; - VP (Fut Ind Sg P1) => diri_ + "giré" ; - VP (Fut Ind Sg P2) => diri_ + "girás" ; - VP (Fut Ind Sg P3) => diri_ + "girá" ; - VP (Fut Ind Pl P1) => diri_ + "giremos" ; - VP (Fut Ind Pl P2) => diri_ + "giréis" ; - VP (Fut Ind Pl P3) => diri_ + "girán" ; - VP (Fut Subj Sg P1) => diri_ + "giere" ; - VP (Fut Subj Sg P2) => diri_ + "gieres" ; - VP (Fut Subj Sg P3) => diri_ + "giere" ; - VP (Fut Subj Pl P1) => diri_ + "giéremos" ; - VP (Fut Subj Pl P2) => diri_ + "giereis" ; - VP (Fut Subj Pl P3) => diri_ + "gieren" ; - VP (Cond Sg P1) => diri_ + "giría" ; - VP (Cond Sg P2) => diri_ + "girías" ; - VP (Cond Sg P3) => diri_ + "giría" ; - VP (Cond Pl P1) => diri_ + "giríamos" ; - VP (Cond Pl P2) => diri_ + "giríais" ; - VP (Cond Pl P3) => diri_ + "girían" ; + VP (Impf Ind Sg P1) => diri_ + "gía" ; --# notpresent + VP (Impf Ind Sg P2) => diri_ + "gías" ; --# notpresent + VP (Impf Ind Sg P3) => diri_ + "gía" ; --# notpresent + VP (Impf Ind Pl P1) => diri_ + "gíamos" ; --# notpresent + VP (Impf Ind Pl P2) => diri_ + "gíais" ; --# notpresent + VP (Impf Ind Pl P3) => diri_ + "gían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {diri_ + "giera" ; diri_ + "giese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {diri_ + "gieras" ; diri_ + "gieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {diri_ + "giera" ; diri_ + "giese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {diri_ + "giéramos" ; diri_ + "giésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {diri_ + "gierais" ; diri_ + "gieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {diri_ + "gieran" ; diri_ + "giesen"} ; --# notpresent + VP (Pret Sg P1) => diri_ + "gí" ; --# notpresent + VP (Pret Sg P2) => diri_ + "giste" ; --# notpresent + VP (Pret Sg P3) => diri_ + "gió" ; --# notpresent + VP (Pret Pl P1) => diri_ + "gimos" ; --# notpresent + VP (Pret Pl P2) => diri_ + "gisteis" ; --# notpresent + VP (Pret Pl P3) => diri_ + "gieron" ; --# notpresent + VP (Fut Ind Sg P1) => diri_ + "giré" ; --# notpresent + VP (Fut Ind Sg P2) => diri_ + "girás" ; --# notpresent + VP (Fut Ind Sg P3) => diri_ + "girá" ; --# notpresent + VP (Fut Ind Pl P1) => diri_ + "giremos" ; --# notpresent + VP (Fut Ind Pl P2) => diri_ + "giréis" ; --# notpresent + VP (Fut Ind Pl P3) => diri_ + "girán" ; --# notpresent + VP (Fut Subj Sg P1) => diri_ + "giere" ; --# notpresent + VP (Fut Subj Sg P2) => diri_ + "gieres" ; --# notpresent + VP (Fut Subj Sg P3) => diri_ + "giere" ; --# notpresent + VP (Fut Subj Pl P1) => diri_ + "giéremos" ; --# notpresent + VP (Fut Subj Pl P2) => diri_ + "giereis" ; --# notpresent + VP (Fut Subj Pl P3) => diri_ + "gieren" ; --# notpresent + VP (Cond Sg P1) => diri_ + "giría" ; --# notpresent + VP (Cond Sg P2) => diri_ + "girías" ; --# notpresent + VP (Cond Sg P3) => diri_ + "giría" ; --# notpresent + VP (Cond Pl P1) => diri_ + "giríamos" ; --# notpresent + VP (Cond Pl P2) => diri_ + "giríais" ; --# notpresent + VP (Cond Pl P3) => diri_ + "girían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => diri_ + "ge" ; VP (Imp Sg P3) => diri_ + "ja" ; @@ -2145,42 +2214,42 @@ oper discernir_33 : Str -> Verbum = \discernir -> VP (Pres Subj Pl P1) => disc_ + "ernamos" ; VP (Pres Subj Pl P2) => disc_ + "ernáis" ; VP (Pres Subj Pl P3) => disc_ + "iernan" ; - VP (Impf Ind Sg P1) => disc_ + "ernía" ; - VP (Impf Ind Sg P2) => disc_ + "ernías" ; - VP (Impf Ind Sg P3) => disc_ + "ernía" ; - VP (Impf Ind Pl P1) => disc_ + "erníamos" ; - VP (Impf Ind Pl P2) => disc_ + "erníais" ; - VP (Impf Ind Pl P3) => disc_ + "ernían" ; - VP (Impf Subj Sg P1) => variants {disc_ + "erniera" ; disc_ + "erniese"} ; - VP (Impf Subj Sg P2) => variants {disc_ + "ernieras" ; disc_ + "ernieses"} ; - VP (Impf Subj Sg P3) => variants {disc_ + "erniera" ; disc_ + "erniese"} ; - VP (Impf Subj Pl P1) => variants {disc_ + "erniéramos" ; disc_ + "erniésemos"} ; - VP (Impf Subj Pl P2) => variants {disc_ + "ernierais" ; disc_ + "ernieseis"} ; - VP (Impf Subj Pl P3) => variants {disc_ + "ernieran" ; disc_ + "erniesen"} ; - VP (Pret Sg P1) => disc_ + "erní" ; - VP (Pret Sg P2) => disc_ + "erniste" ; - VP (Pret Sg P3) => disc_ + "ernió" ; - VP (Pret Pl P1) => disc_ + "ernimos" ; - VP (Pret Pl P2) => disc_ + "ernisteis" ; - VP (Pret Pl P3) => disc_ + "ernieron" ; - VP (Fut Ind Sg P1) => disc_ + "erniré" ; - VP (Fut Ind Sg P2) => disc_ + "ernirás" ; - VP (Fut Ind Sg P3) => disc_ + "ernirá" ; - VP (Fut Ind Pl P1) => disc_ + "erniremos" ; - VP (Fut Ind Pl P2) => disc_ + "erniréis" ; - VP (Fut Ind Pl P3) => disc_ + "ernirán" ; - VP (Fut Subj Sg P1) => disc_ + "erniere" ; - VP (Fut Subj Sg P2) => disc_ + "ernieres" ; - VP (Fut Subj Sg P3) => disc_ + "erniere" ; - VP (Fut Subj Pl P1) => disc_ + "erniéremos" ; - VP (Fut Subj Pl P2) => disc_ + "erniereis" ; - VP (Fut Subj Pl P3) => disc_ + "ernieren" ; - VP (Cond Sg P1) => disc_ + "erniría" ; - VP (Cond Sg P2) => disc_ + "ernirías" ; - VP (Cond Sg P3) => disc_ + "erniría" ; - VP (Cond Pl P1) => disc_ + "erniríamos" ; - VP (Cond Pl P2) => disc_ + "erniríais" ; - VP (Cond Pl P3) => disc_ + "ernirían" ; + VP (Impf Ind Sg P1) => disc_ + "ernía" ; --# notpresent + VP (Impf Ind Sg P2) => disc_ + "ernías" ; --# notpresent + VP (Impf Ind Sg P3) => disc_ + "ernía" ; --# notpresent + VP (Impf Ind Pl P1) => disc_ + "erníamos" ; --# notpresent + VP (Impf Ind Pl P2) => disc_ + "erníais" ; --# notpresent + VP (Impf Ind Pl P3) => disc_ + "ernían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {disc_ + "erniera" ; disc_ + "erniese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {disc_ + "ernieras" ; disc_ + "ernieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {disc_ + "erniera" ; disc_ + "erniese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {disc_ + "erniéramos" ; disc_ + "erniésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {disc_ + "ernierais" ; disc_ + "ernieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {disc_ + "ernieran" ; disc_ + "erniesen"} ; --# notpresent + VP (Pret Sg P1) => disc_ + "erní" ; --# notpresent + VP (Pret Sg P2) => disc_ + "erniste" ; --# notpresent + VP (Pret Sg P3) => disc_ + "ernió" ; --# notpresent + VP (Pret Pl P1) => disc_ + "ernimos" ; --# notpresent + VP (Pret Pl P2) => disc_ + "ernisteis" ; --# notpresent + VP (Pret Pl P3) => disc_ + "ernieron" ; --# notpresent + VP (Fut Ind Sg P1) => disc_ + "erniré" ; --# notpresent + VP (Fut Ind Sg P2) => disc_ + "ernirás" ; --# notpresent + VP (Fut Ind Sg P3) => disc_ + "ernirá" ; --# notpresent + VP (Fut Ind Pl P1) => disc_ + "erniremos" ; --# notpresent + VP (Fut Ind Pl P2) => disc_ + "erniréis" ; --# notpresent + VP (Fut Ind Pl P3) => disc_ + "ernirán" ; --# notpresent + VP (Fut Subj Sg P1) => disc_ + "erniere" ; --# notpresent + VP (Fut Subj Sg P2) => disc_ + "ernieres" ; --# notpresent + VP (Fut Subj Sg P3) => disc_ + "erniere" ; --# notpresent + VP (Fut Subj Pl P1) => disc_ + "erniéremos" ; --# notpresent + VP (Fut Subj Pl P2) => disc_ + "erniereis" ; --# notpresent + VP (Fut Subj Pl P3) => disc_ + "ernieren" ; --# notpresent + VP (Cond Sg P1) => disc_ + "erniría" ; --# notpresent + VP (Cond Sg P2) => disc_ + "ernirías" ; --# notpresent + VP (Cond Sg P3) => disc_ + "erniría" ; --# notpresent + VP (Cond Pl P1) => disc_ + "erniríamos" ; --# notpresent + VP (Cond Pl P2) => disc_ + "erniríais" ; --# notpresent + VP (Cond Pl P3) => disc_ + "ernirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => disc_ + "ierne" ; VP (Imp Sg P3) => disc_ + "ierna" ; @@ -2211,42 +2280,42 @@ oper distinguir_34 : Str -> Verbum = \distinguir -> VP (Pres Subj Pl P1) => disting_ + "amos" ; VP (Pres Subj Pl P2) => disting_ + "áis" ; VP (Pres Subj Pl P3) => disting_ + "an" ; - VP (Impf Ind Sg P1) => disting_ + "uía" ; - VP (Impf Ind Sg P2) => disting_ + "uías" ; - VP (Impf Ind Sg P3) => disting_ + "uía" ; - VP (Impf Ind Pl P1) => disting_ + "uíamos" ; - VP (Impf Ind Pl P2) => disting_ + "uíais" ; - VP (Impf Ind Pl P3) => disting_ + "uían" ; - VP (Impf Subj Sg P1) => variants {disting_ + "uiera" ; disting_ + "uiese"} ; - VP (Impf Subj Sg P2) => variants {disting_ + "uieras" ; disting_ + "uieses"} ; - VP (Impf Subj Sg P3) => variants {disting_ + "uiera" ; disting_ + "uiese"} ; - VP (Impf Subj Pl P1) => variants {disting_ + "uiéramos" ; disting_ + "uiésemos"} ; - VP (Impf Subj Pl P2) => variants {disting_ + "uierais" ; disting_ + "uieseis"} ; - VP (Impf Subj Pl P3) => variants {disting_ + "uieran" ; disting_ + "uiesen"} ; - VP (Pret Sg P1) => disting_ + "uí" ; - VP (Pret Sg P2) => disting_ + "uiste" ; - VP (Pret Sg P3) => disting_ + "uió" ; - VP (Pret Pl P1) => disting_ + "uimos" ; - VP (Pret Pl P2) => disting_ + "uisteis" ; - VP (Pret Pl P3) => disting_ + "uieron" ; - VP (Fut Ind Sg P1) => disting_ + "uiré" ; - VP (Fut Ind Sg P2) => disting_ + "uirás" ; - VP (Fut Ind Sg P3) => disting_ + "uirá" ; - VP (Fut Ind Pl P1) => disting_ + "uiremos" ; - VP (Fut Ind Pl P2) => disting_ + "uiréis" ; - VP (Fut Ind Pl P3) => disting_ + "uirán" ; - VP (Fut Subj Sg P1) => disting_ + "uiere" ; - VP (Fut Subj Sg P2) => disting_ + "uieres" ; - VP (Fut Subj Sg P3) => disting_ + "uiere" ; - VP (Fut Subj Pl P1) => disting_ + "uiéremos" ; - VP (Fut Subj Pl P2) => disting_ + "uiereis" ; - VP (Fut Subj Pl P3) => disting_ + "uieren" ; - VP (Cond Sg P1) => disting_ + "uiría" ; - VP (Cond Sg P2) => disting_ + "uirías" ; - VP (Cond Sg P3) => disting_ + "uiría" ; - VP (Cond Pl P1) => disting_ + "uiríamos" ; - VP (Cond Pl P2) => disting_ + "uiríais" ; - VP (Cond Pl P3) => disting_ + "uirían" ; + VP (Impf Ind Sg P1) => disting_ + "uía" ; --# notpresent + VP (Impf Ind Sg P2) => disting_ + "uías" ; --# notpresent + VP (Impf Ind Sg P3) => disting_ + "uía" ; --# notpresent + VP (Impf Ind Pl P1) => disting_ + "uíamos" ; --# notpresent + VP (Impf Ind Pl P2) => disting_ + "uíais" ; --# notpresent + VP (Impf Ind Pl P3) => disting_ + "uían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {disting_ + "uiera" ; disting_ + "uiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {disting_ + "uieras" ; disting_ + "uieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {disting_ + "uiera" ; disting_ + "uiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {disting_ + "uiéramos" ; disting_ + "uiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {disting_ + "uierais" ; disting_ + "uieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {disting_ + "uieran" ; disting_ + "uiesen"} ; --# notpresent + VP (Pret Sg P1) => disting_ + "uí" ; --# notpresent + VP (Pret Sg P2) => disting_ + "uiste" ; --# notpresent + VP (Pret Sg P3) => disting_ + "uió" ; --# notpresent + VP (Pret Pl P1) => disting_ + "uimos" ; --# notpresent + VP (Pret Pl P2) => disting_ + "uisteis" ; --# notpresent + VP (Pret Pl P3) => disting_ + "uieron" ; --# notpresent + VP (Fut Ind Sg P1) => disting_ + "uiré" ; --# notpresent + VP (Fut Ind Sg P2) => disting_ + "uirás" ; --# notpresent + VP (Fut Ind Sg P3) => disting_ + "uirá" ; --# notpresent + VP (Fut Ind Pl P1) => disting_ + "uiremos" ; --# notpresent + VP (Fut Ind Pl P2) => disting_ + "uiréis" ; --# notpresent + VP (Fut Ind Pl P3) => disting_ + "uirán" ; --# notpresent + VP (Fut Subj Sg P1) => disting_ + "uiere" ; --# notpresent + VP (Fut Subj Sg P2) => disting_ + "uieres" ; --# notpresent + VP (Fut Subj Sg P3) => disting_ + "uiere" ; --# notpresent + VP (Fut Subj Pl P1) => disting_ + "uiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => disting_ + "uiereis" ; --# notpresent + VP (Fut Subj Pl P3) => disting_ + "uieren" ; --# notpresent + VP (Cond Sg P1) => disting_ + "uiría" ; --# notpresent + VP (Cond Sg P2) => disting_ + "uirías" ; --# notpresent + VP (Cond Sg P3) => disting_ + "uiría" ; --# notpresent + VP (Cond Pl P1) => disting_ + "uiríamos" ; --# notpresent + VP (Cond Pl P2) => disting_ + "uiríais" ; --# notpresent + VP (Cond Pl P3) => disting_ + "uirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => disting_ + "ue" ; VP (Imp Sg P3) => disting_ + "a" ; @@ -2277,42 +2346,42 @@ oper dormir_35 : Str -> Verbum = \dormir -> VP (Pres Subj Pl P1) => d_ + "urmamos" ; VP (Pres Subj Pl P2) => d_ + "urmáis" ; VP (Pres Subj Pl P3) => d_ + "uerman" ; - VP (Impf Ind Sg P1) => d_ + "ormía" ; - VP (Impf Ind Sg P2) => d_ + "ormías" ; - VP (Impf Ind Sg P3) => d_ + "ormía" ; - VP (Impf Ind Pl P1) => d_ + "ormíamos" ; - VP (Impf Ind Pl P2) => d_ + "ormíais" ; - VP (Impf Ind Pl P3) => d_ + "ormían" ; - VP (Impf Subj Sg P1) => variants {d_ + "urmiera" ; d_ + "urmiese"} ; - VP (Impf Subj Sg P2) => variants {d_ + "urmieras" ; d_ + "urmieses"} ; - VP (Impf Subj Sg P3) => variants {d_ + "urmiera" ; d_ + "urmiese"} ; - VP (Impf Subj Pl P1) => variants {d_ + "urmiéramos" ; d_ + "urmiésemos"} ; - VP (Impf Subj Pl P2) => variants {d_ + "urmierais" ; d_ + "urmieseis"} ; - VP (Impf Subj Pl P3) => variants {d_ + "urmieran" ; d_ + "urmiesen"} ; - VP (Pret Sg P1) => d_ + "ormí" ; - VP (Pret Sg P2) => d_ + "ormiste" ; - VP (Pret Sg P3) => d_ + "urmió" ; - VP (Pret Pl P1) => d_ + "ormimos" ; - VP (Pret Pl P2) => d_ + "ormisteis" ; - VP (Pret Pl P3) => d_ + "urmieron" ; - VP (Fut Ind Sg P1) => d_ + "ormiré" ; - VP (Fut Ind Sg P2) => d_ + "ormirás" ; - VP (Fut Ind Sg P3) => d_ + "ormirá" ; - VP (Fut Ind Pl P1) => d_ + "ormiremos" ; - VP (Fut Ind Pl P2) => d_ + "ormiréis" ; - VP (Fut Ind Pl P3) => d_ + "ormirán" ; - VP (Fut Subj Sg P1) => d_ + "urmiere" ; - VP (Fut Subj Sg P2) => d_ + "urmieres" ; - VP (Fut Subj Sg P3) => d_ + "urmiere" ; - VP (Fut Subj Pl P1) => d_ + "urmiéremos" ; - VP (Fut Subj Pl P2) => d_ + "urmiereis" ; - VP (Fut Subj Pl P3) => d_ + "urmieren" ; - VP (Cond Sg P1) => d_ + "ormiría" ; - VP (Cond Sg P2) => d_ + "ormirías" ; - VP (Cond Sg P3) => d_ + "ormiría" ; - VP (Cond Pl P1) => d_ + "ormiríamos" ; - VP (Cond Pl P2) => d_ + "ormiríais" ; - VP (Cond Pl P3) => d_ + "ormirían" ; + VP (Impf Ind Sg P1) => d_ + "ormía" ; --# notpresent + VP (Impf Ind Sg P2) => d_ + "ormías" ; --# notpresent + VP (Impf Ind Sg P3) => d_ + "ormía" ; --# notpresent + VP (Impf Ind Pl P1) => d_ + "ormíamos" ; --# notpresent + VP (Impf Ind Pl P2) => d_ + "ormíais" ; --# notpresent + VP (Impf Ind Pl P3) => d_ + "ormían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {d_ + "urmiera" ; d_ + "urmiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {d_ + "urmieras" ; d_ + "urmieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {d_ + "urmiera" ; d_ + "urmiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {d_ + "urmiéramos" ; d_ + "urmiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {d_ + "urmierais" ; d_ + "urmieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {d_ + "urmieran" ; d_ + "urmiesen"} ; --# notpresent + VP (Pret Sg P1) => d_ + "ormí" ; --# notpresent + VP (Pret Sg P2) => d_ + "ormiste" ; --# notpresent + VP (Pret Sg P3) => d_ + "urmió" ; --# notpresent + VP (Pret Pl P1) => d_ + "ormimos" ; --# notpresent + VP (Pret Pl P2) => d_ + "ormisteis" ; --# notpresent + VP (Pret Pl P3) => d_ + "urmieron" ; --# notpresent + VP (Fut Ind Sg P1) => d_ + "ormiré" ; --# notpresent + VP (Fut Ind Sg P2) => d_ + "ormirás" ; --# notpresent + VP (Fut Ind Sg P3) => d_ + "ormirá" ; --# notpresent + VP (Fut Ind Pl P1) => d_ + "ormiremos" ; --# notpresent + VP (Fut Ind Pl P2) => d_ + "ormiréis" ; --# notpresent + VP (Fut Ind Pl P3) => d_ + "ormirán" ; --# notpresent + VP (Fut Subj Sg P1) => d_ + "urmiere" ; --# notpresent + VP (Fut Subj Sg P2) => d_ + "urmieres" ; --# notpresent + VP (Fut Subj Sg P3) => d_ + "urmiere" ; --# notpresent + VP (Fut Subj Pl P1) => d_ + "urmiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => d_ + "urmiereis" ; --# notpresent + VP (Fut Subj Pl P3) => d_ + "urmieren" ; --# notpresent + VP (Cond Sg P1) => d_ + "ormiría" ; --# notpresent + VP (Cond Sg P2) => d_ + "ormirías" ; --# notpresent + VP (Cond Sg P3) => d_ + "ormiría" ; --# notpresent + VP (Cond Pl P1) => d_ + "ormiríamos" ; --# notpresent + VP (Cond Pl P2) => d_ + "ormiríais" ; --# notpresent + VP (Cond Pl P3) => d_ + "ormirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => d_ + "uerme" ; VP (Imp Sg P3) => d_ + "uerma" ; @@ -2343,42 +2412,42 @@ oper morir_35b : Str -> Verbum = \morir -> VP (Pres Subj Pl P1) => d_ + "uramos" ; VP (Pres Subj Pl P2) => d_ + "uráis" ; VP (Pres Subj Pl P3) => d_ + "ueran" ; - VP (Impf Ind Sg P1) => d_ + "oría" ; - VP (Impf Ind Sg P2) => d_ + "orías" ; - VP (Impf Ind Sg P3) => d_ + "oría" ; - VP (Impf Ind Pl P1) => d_ + "oríamos" ; - VP (Impf Ind Pl P2) => d_ + "oríais" ; - VP (Impf Ind Pl P3) => d_ + "orían" ; - VP (Impf Subj Sg P1) => variants {d_ + "uriera" ; d_ + "uriese"} ; - VP (Impf Subj Sg P2) => variants {d_ + "urieras" ; d_ + "urieses"} ; - VP (Impf Subj Sg P3) => variants {d_ + "uriera" ; d_ + "uriese"} ; - VP (Impf Subj Pl P1) => variants {d_ + "uriéramos" ; d_ + "uriésemos"} ; - VP (Impf Subj Pl P2) => variants {d_ + "urierais" ; d_ + "urieseis"} ; - VP (Impf Subj Pl P3) => variants {d_ + "urieran" ; d_ + "uriesen"} ; - VP (Pret Sg P1) => d_ + "orí" ; - VP (Pret Sg P2) => d_ + "oriste" ; - VP (Pret Sg P3) => d_ + "urió" ; - VP (Pret Pl P1) => d_ + "orimos" ; - VP (Pret Pl P2) => d_ + "oristeis" ; - VP (Pret Pl P3) => d_ + "urieron" ; - VP (Fut Ind Sg P1) => d_ + "oriré" ; - VP (Fut Ind Sg P2) => d_ + "orirás" ; - VP (Fut Ind Sg P3) => d_ + "orirá" ; - VP (Fut Ind Pl P1) => d_ + "oriremos" ; - VP (Fut Ind Pl P2) => d_ + "oriréis" ; - VP (Fut Ind Pl P3) => d_ + "orirán" ; - VP (Fut Subj Sg P1) => d_ + "uriere" ; - VP (Fut Subj Sg P2) => d_ + "urieres" ; - VP (Fut Subj Sg P3) => d_ + "uriere" ; - VP (Fut Subj Pl P1) => d_ + "uriéremos" ; - VP (Fut Subj Pl P2) => d_ + "uriereis" ; - VP (Fut Subj Pl P3) => d_ + "urieren" ; - VP (Cond Sg P1) => d_ + "oriría" ; - VP (Cond Sg P2) => d_ + "orirías" ; - VP (Cond Sg P3) => d_ + "oriría" ; - VP (Cond Pl P1) => d_ + "oriríamos" ; - VP (Cond Pl P2) => d_ + "oriríais" ; - VP (Cond Pl P3) => d_ + "orirían" ; + VP (Impf Ind Sg P1) => d_ + "oría" ; --# notpresent + VP (Impf Ind Sg P2) => d_ + "orías" ; --# notpresent + VP (Impf Ind Sg P3) => d_ + "oría" ; --# notpresent + VP (Impf Ind Pl P1) => d_ + "oríamos" ; --# notpresent + VP (Impf Ind Pl P2) => d_ + "oríais" ; --# notpresent + VP (Impf Ind Pl P3) => d_ + "orían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {d_ + "uriera" ; d_ + "uriese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {d_ + "urieras" ; d_ + "urieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {d_ + "uriera" ; d_ + "uriese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {d_ + "uriéramos" ; d_ + "uriésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {d_ + "urierais" ; d_ + "urieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {d_ + "urieran" ; d_ + "uriesen"} ; --# notpresent + VP (Pret Sg P1) => d_ + "orí" ; --# notpresent + VP (Pret Sg P2) => d_ + "oriste" ; --# notpresent + VP (Pret Sg P3) => d_ + "urió" ; --# notpresent + VP (Pret Pl P1) => d_ + "orimos" ; --# notpresent + VP (Pret Pl P2) => d_ + "oristeis" ; --# notpresent + VP (Pret Pl P3) => d_ + "urieron" ; --# notpresent + VP (Fut Ind Sg P1) => d_ + "oriré" ; --# notpresent + VP (Fut Ind Sg P2) => d_ + "orirás" ; --# notpresent + VP (Fut Ind Sg P3) => d_ + "orirá" ; --# notpresent + VP (Fut Ind Pl P1) => d_ + "oriremos" ; --# notpresent + VP (Fut Ind Pl P2) => d_ + "oriréis" ; --# notpresent + VP (Fut Ind Pl P3) => d_ + "orirán" ; --# notpresent + VP (Fut Subj Sg P1) => d_ + "uriere" ; --# notpresent + VP (Fut Subj Sg P2) => d_ + "urieres" ; --# notpresent + VP (Fut Subj Sg P3) => d_ + "uriere" ; --# notpresent + VP (Fut Subj Pl P1) => d_ + "uriéremos" ; --# notpresent + VP (Fut Subj Pl P2) => d_ + "uriereis" ; --# notpresent + VP (Fut Subj Pl P3) => d_ + "urieren" ; --# notpresent + VP (Cond Sg P1) => d_ + "oriría" ; --# notpresent + VP (Cond Sg P2) => d_ + "orirías" ; --# notpresent + VP (Cond Sg P3) => d_ + "oriría" ; --# notpresent + VP (Cond Pl P1) => d_ + "oriríamos" ; --# notpresent + VP (Cond Pl P2) => d_ + "oriríais" ; --# notpresent + VP (Cond Pl P3) => d_ + "orirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => d_ + "uere" ; VP (Imp Sg P3) => d_ + "uera" ; @@ -2409,42 +2478,42 @@ oper elegir_36 : Str -> Verbum = \elegir -> VP (Pres Subj Pl P1) => el_ + "ijamos" ; VP (Pres Subj Pl P2) => el_ + "ijáis" ; VP (Pres Subj Pl P3) => el_ + "ijan" ; - VP (Impf Ind Sg P1) => el_ + "egía" ; - VP (Impf Ind Sg P2) => el_ + "egías" ; - VP (Impf Ind Sg P3) => el_ + "egía" ; - VP (Impf Ind Pl P1) => el_ + "egíamos" ; - VP (Impf Ind Pl P2) => el_ + "egíais" ; - VP (Impf Ind Pl P3) => el_ + "egían" ; - VP (Impf Subj Sg P1) => variants {el_ + "igiera" ; el_ + "igiese"} ; - VP (Impf Subj Sg P2) => variants {el_ + "igieras" ; el_ + "igieses"} ; - VP (Impf Subj Sg P3) => variants {el_ + "igiera" ; el_ + "igiese"} ; - VP (Impf Subj Pl P1) => variants {el_ + "igiéramos" ; el_ + "igiésemos"} ; - VP (Impf Subj Pl P2) => variants {el_ + "igierais" ; el_ + "igieseis"} ; - VP (Impf Subj Pl P3) => variants {el_ + "igieran" ; el_ + "igiesen"} ; - VP (Pret Sg P1) => el_ + "egí" ; - VP (Pret Sg P2) => el_ + "egiste" ; - VP (Pret Sg P3) => el_ + "igió" ; - VP (Pret Pl P1) => el_ + "egimos" ; - VP (Pret Pl P2) => el_ + "egisteis" ; - VP (Pret Pl P3) => el_ + "igieron" ; - VP (Fut Ind Sg P1) => el_ + "egiré" ; - VP (Fut Ind Sg P2) => el_ + "egirás" ; - VP (Fut Ind Sg P3) => el_ + "egirá" ; - VP (Fut Ind Pl P1) => el_ + "egiremos" ; - VP (Fut Ind Pl P2) => el_ + "egiréis" ; - VP (Fut Ind Pl P3) => el_ + "egirán" ; - VP (Fut Subj Sg P1) => el_ + "igiere" ; - VP (Fut Subj Sg P2) => el_ + "igieres" ; - VP (Fut Subj Sg P3) => el_ + "igiere" ; - VP (Fut Subj Pl P1) => el_ + "igiéremos" ; - VP (Fut Subj Pl P2) => el_ + "igiereis" ; - VP (Fut Subj Pl P3) => el_ + "igieren" ; - VP (Cond Sg P1) => el_ + "egiría" ; - VP (Cond Sg P2) => el_ + "egirías" ; - VP (Cond Sg P3) => el_ + "egiría" ; - VP (Cond Pl P1) => el_ + "egiríamos" ; - VP (Cond Pl P2) => el_ + "egiríais" ; - VP (Cond Pl P3) => el_ + "egirían" ; + VP (Impf Ind Sg P1) => el_ + "egía" ; --# notpresent + VP (Impf Ind Sg P2) => el_ + "egías" ; --# notpresent + VP (Impf Ind Sg P3) => el_ + "egía" ; --# notpresent + VP (Impf Ind Pl P1) => el_ + "egíamos" ; --# notpresent + VP (Impf Ind Pl P2) => el_ + "egíais" ; --# notpresent + VP (Impf Ind Pl P3) => el_ + "egían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {el_ + "igiera" ; el_ + "igiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {el_ + "igieras" ; el_ + "igieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {el_ + "igiera" ; el_ + "igiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {el_ + "igiéramos" ; el_ + "igiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {el_ + "igierais" ; el_ + "igieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {el_ + "igieran" ; el_ + "igiesen"} ; --# notpresent + VP (Pret Sg P1) => el_ + "egí" ; --# notpresent + VP (Pret Sg P2) => el_ + "egiste" ; --# notpresent + VP (Pret Sg P3) => el_ + "igió" ; --# notpresent + VP (Pret Pl P1) => el_ + "egimos" ; --# notpresent + VP (Pret Pl P2) => el_ + "egisteis" ; --# notpresent + VP (Pret Pl P3) => el_ + "igieron" ; --# notpresent + VP (Fut Ind Sg P1) => el_ + "egiré" ; --# notpresent + VP (Fut Ind Sg P2) => el_ + "egirás" ; --# notpresent + VP (Fut Ind Sg P3) => el_ + "egirá" ; --# notpresent + VP (Fut Ind Pl P1) => el_ + "egiremos" ; --# notpresent + VP (Fut Ind Pl P2) => el_ + "egiréis" ; --# notpresent + VP (Fut Ind Pl P3) => el_ + "egirán" ; --# notpresent + VP (Fut Subj Sg P1) => el_ + "igiere" ; --# notpresent + VP (Fut Subj Sg P2) => el_ + "igieres" ; --# notpresent + VP (Fut Subj Sg P3) => el_ + "igiere" ; --# notpresent + VP (Fut Subj Pl P1) => el_ + "igiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => el_ + "igiereis" ; --# notpresent + VP (Fut Subj Pl P3) => el_ + "igieren" ; --# notpresent + VP (Cond Sg P1) => el_ + "egiría" ; --# notpresent + VP (Cond Sg P2) => el_ + "egirías" ; --# notpresent + VP (Cond Sg P3) => el_ + "egiría" ; --# notpresent + VP (Cond Pl P1) => el_ + "egiríamos" ; --# notpresent + VP (Cond Pl P2) => el_ + "egiríais" ; --# notpresent + VP (Cond Pl P3) => el_ + "egirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => el_ + "ige" ; VP (Imp Sg P3) => el_ + "ija" ; @@ -2475,42 +2544,42 @@ oper empezar_37 : Str -> Verbum = \empezar -> VP (Pres Subj Pl P1) => emp_ + "ecemos" ; VP (Pres Subj Pl P2) => emp_ + "ecéis" ; VP (Pres Subj Pl P3) => emp_ + "iecen" ; - VP (Impf Ind Sg P1) => emp_ + "ezaba" ; - VP (Impf Ind Sg P2) => emp_ + "ezabas" ; - VP (Impf Ind Sg P3) => emp_ + "ezaba" ; - VP (Impf Ind Pl P1) => emp_ + "ezábamos" ; - VP (Impf Ind Pl P2) => emp_ + "ezabais" ; - VP (Impf Ind Pl P3) => emp_ + "ezaban" ; - VP (Impf Subj Sg P1) => variants {emp_ + "ezara" ; emp_ + "ezase"} ; - VP (Impf Subj Sg P2) => variants {emp_ + "ezaras" ; emp_ + "ezases"} ; - VP (Impf Subj Sg P3) => variants {emp_ + "ezara" ; emp_ + "ezase"} ; - VP (Impf Subj Pl P1) => variants {emp_ + "ezáramos" ; emp_ + "ezásemos"} ; - VP (Impf Subj Pl P2) => variants {emp_ + "ezarais" ; emp_ + "ezaseis"} ; - VP (Impf Subj Pl P3) => variants {emp_ + "ezaran" ; emp_ + "ezasen"} ; - VP (Pret Sg P1) => emp_ + "ecé" ; - VP (Pret Sg P2) => emp_ + "ezaste" ; - VP (Pret Sg P3) => emp_ + "ezó" ; - VP (Pret Pl P1) => emp_ + "ezamos" ; - VP (Pret Pl P2) => emp_ + "ezasteis" ; - VP (Pret Pl P3) => emp_ + "ezaron" ; - VP (Fut Ind Sg P1) => emp_ + "ezaré" ; - VP (Fut Ind Sg P2) => emp_ + "ezarás" ; - VP (Fut Ind Sg P3) => emp_ + "ezará" ; - VP (Fut Ind Pl P1) => emp_ + "ezaremos" ; - VP (Fut Ind Pl P2) => emp_ + "ezaréis" ; - VP (Fut Ind Pl P3) => emp_ + "ezarán" ; - VP (Fut Subj Sg P1) => emp_ + "ezare" ; - VP (Fut Subj Sg P2) => emp_ + "ezares" ; - VP (Fut Subj Sg P3) => emp_ + "ezare" ; - VP (Fut Subj Pl P1) => emp_ + "ezáremos" ; - VP (Fut Subj Pl P2) => emp_ + "ezareis" ; - VP (Fut Subj Pl P3) => emp_ + "ezaren" ; - VP (Cond Sg P1) => emp_ + "ezaría" ; - VP (Cond Sg P2) => emp_ + "ezarías" ; - VP (Cond Sg P3) => emp_ + "ezaría" ; - VP (Cond Pl P1) => emp_ + "ezaríamos" ; - VP (Cond Pl P2) => emp_ + "ezaríais" ; - VP (Cond Pl P3) => emp_ + "ezarían" ; + VP (Impf Ind Sg P1) => emp_ + "ezaba" ; --# notpresent + VP (Impf Ind Sg P2) => emp_ + "ezabas" ; --# notpresent + VP (Impf Ind Sg P3) => emp_ + "ezaba" ; --# notpresent + VP (Impf Ind Pl P1) => emp_ + "ezábamos" ; --# notpresent + VP (Impf Ind Pl P2) => emp_ + "ezabais" ; --# notpresent + VP (Impf Ind Pl P3) => emp_ + "ezaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {emp_ + "ezara" ; emp_ + "ezase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {emp_ + "ezaras" ; emp_ + "ezases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {emp_ + "ezara" ; emp_ + "ezase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {emp_ + "ezáramos" ; emp_ + "ezásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {emp_ + "ezarais" ; emp_ + "ezaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {emp_ + "ezaran" ; emp_ + "ezasen"} ; --# notpresent + VP (Pret Sg P1) => emp_ + "ecé" ; --# notpresent + VP (Pret Sg P2) => emp_ + "ezaste" ; --# notpresent + VP (Pret Sg P3) => emp_ + "ezó" ; --# notpresent + VP (Pret Pl P1) => emp_ + "ezamos" ; --# notpresent + VP (Pret Pl P2) => emp_ + "ezasteis" ; --# notpresent + VP (Pret Pl P3) => emp_ + "ezaron" ; --# notpresent + VP (Fut Ind Sg P1) => emp_ + "ezaré" ; --# notpresent + VP (Fut Ind Sg P2) => emp_ + "ezarás" ; --# notpresent + VP (Fut Ind Sg P3) => emp_ + "ezará" ; --# notpresent + VP (Fut Ind Pl P1) => emp_ + "ezaremos" ; --# notpresent + VP (Fut Ind Pl P2) => emp_ + "ezaréis" ; --# notpresent + VP (Fut Ind Pl P3) => emp_ + "ezarán" ; --# notpresent + VP (Fut Subj Sg P1) => emp_ + "ezare" ; --# notpresent + VP (Fut Subj Sg P2) => emp_ + "ezares" ; --# notpresent + VP (Fut Subj Sg P3) => emp_ + "ezare" ; --# notpresent + VP (Fut Subj Pl P1) => emp_ + "ezáremos" ; --# notpresent + VP (Fut Subj Pl P2) => emp_ + "ezareis" ; --# notpresent + VP (Fut Subj Pl P3) => emp_ + "ezaren" ; --# notpresent + VP (Cond Sg P1) => emp_ + "ezaría" ; --# notpresent + VP (Cond Sg P2) => emp_ + "ezarías" ; --# notpresent + VP (Cond Sg P3) => emp_ + "ezaría" ; --# notpresent + VP (Cond Pl P1) => emp_ + "ezaríamos" ; --# notpresent + VP (Cond Pl P2) => emp_ + "ezaríais" ; --# notpresent + VP (Cond Pl P3) => emp_ + "ezarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => emp_ + "ieza" ; VP (Imp Sg P3) => emp_ + "iece" ; @@ -2541,42 +2610,42 @@ oper encontrar_38 : Str -> Verbum = \encontrar -> VP (Pres Subj Pl P1) => enc_ + "ontremos" ; VP (Pres Subj Pl P2) => enc_ + "ontréis" ; VP (Pres Subj Pl P3) => enc_ + "uentren" ; - VP (Impf Ind Sg P1) => enc_ + "ontraba" ; - VP (Impf Ind Sg P2) => enc_ + "ontrabas" ; - VP (Impf Ind Sg P3) => enc_ + "ontraba" ; - VP (Impf Ind Pl P1) => enc_ + "ontrábamos" ; - VP (Impf Ind Pl P2) => enc_ + "ontrabais" ; - VP (Impf Ind Pl P3) => enc_ + "ontraban" ; - VP (Impf Subj Sg P1) => variants {enc_ + "ontrara" ; enc_ + "ontrase"} ; - VP (Impf Subj Sg P2) => variants {enc_ + "ontraras" ; enc_ + "ontrases"} ; - VP (Impf Subj Sg P3) => variants {enc_ + "ontrara" ; enc_ + "ontrase"} ; - VP (Impf Subj Pl P1) => variants {enc_ + "ontráramos" ; enc_ + "ontrásemos"} ; - VP (Impf Subj Pl P2) => variants {enc_ + "ontrarais" ; enc_ + "ontraseis"} ; - VP (Impf Subj Pl P3) => variants {enc_ + "ontraran" ; enc_ + "ontrasen"} ; - VP (Pret Sg P1) => enc_ + "ontré" ; - VP (Pret Sg P2) => enc_ + "ontraste" ; - VP (Pret Sg P3) => enc_ + "ontró" ; - VP (Pret Pl P1) => enc_ + "ontramos" ; - VP (Pret Pl P2) => enc_ + "ontrasteis" ; - VP (Pret Pl P3) => enc_ + "ontraron" ; - VP (Fut Ind Sg P1) => enc_ + "ontraré" ; - VP (Fut Ind Sg P2) => enc_ + "ontrarás" ; - VP (Fut Ind Sg P3) => enc_ + "ontrará" ; - VP (Fut Ind Pl P1) => enc_ + "ontraremos" ; - VP (Fut Ind Pl P2) => enc_ + "ontraréis" ; - VP (Fut Ind Pl P3) => enc_ + "ontrarán" ; - VP (Fut Subj Sg P1) => enc_ + "ontrare" ; - VP (Fut Subj Sg P2) => enc_ + "ontrares" ; - VP (Fut Subj Sg P3) => enc_ + "ontrare" ; - VP (Fut Subj Pl P1) => enc_ + "ontráremos" ; - VP (Fut Subj Pl P2) => enc_ + "ontrareis" ; - VP (Fut Subj Pl P3) => enc_ + "ontraren" ; - VP (Cond Sg P1) => enc_ + "ontraría" ; - VP (Cond Sg P2) => enc_ + "ontrarías" ; - VP (Cond Sg P3) => enc_ + "ontraría" ; - VP (Cond Pl P1) => enc_ + "ontraríamos" ; - VP (Cond Pl P2) => enc_ + "ontraríais" ; - VP (Cond Pl P3) => enc_ + "ontrarían" ; + VP (Impf Ind Sg P1) => enc_ + "ontraba" ; --# notpresent + VP (Impf Ind Sg P2) => enc_ + "ontrabas" ; --# notpresent + VP (Impf Ind Sg P3) => enc_ + "ontraba" ; --# notpresent + VP (Impf Ind Pl P1) => enc_ + "ontrábamos" ; --# notpresent + VP (Impf Ind Pl P2) => enc_ + "ontrabais" ; --# notpresent + VP (Impf Ind Pl P3) => enc_ + "ontraban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {enc_ + "ontrara" ; enc_ + "ontrase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {enc_ + "ontraras" ; enc_ + "ontrases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {enc_ + "ontrara" ; enc_ + "ontrase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {enc_ + "ontráramos" ; enc_ + "ontrásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {enc_ + "ontrarais" ; enc_ + "ontraseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {enc_ + "ontraran" ; enc_ + "ontrasen"} ; --# notpresent + VP (Pret Sg P1) => enc_ + "ontré" ; --# notpresent + VP (Pret Sg P2) => enc_ + "ontraste" ; --# notpresent + VP (Pret Sg P3) => enc_ + "ontró" ; --# notpresent + VP (Pret Pl P1) => enc_ + "ontramos" ; --# notpresent + VP (Pret Pl P2) => enc_ + "ontrasteis" ; --# notpresent + VP (Pret Pl P3) => enc_ + "ontraron" ; --# notpresent + VP (Fut Ind Sg P1) => enc_ + "ontraré" ; --# notpresent + VP (Fut Ind Sg P2) => enc_ + "ontrarás" ; --# notpresent + VP (Fut Ind Sg P3) => enc_ + "ontrará" ; --# notpresent + VP (Fut Ind Pl P1) => enc_ + "ontraremos" ; --# notpresent + VP (Fut Ind Pl P2) => enc_ + "ontraréis" ; --# notpresent + VP (Fut Ind Pl P3) => enc_ + "ontrarán" ; --# notpresent + VP (Fut Subj Sg P1) => enc_ + "ontrare" ; --# notpresent + VP (Fut Subj Sg P2) => enc_ + "ontrares" ; --# notpresent + VP (Fut Subj Sg P3) => enc_ + "ontrare" ; --# notpresent + VP (Fut Subj Pl P1) => enc_ + "ontráremos" ; --# notpresent + VP (Fut Subj Pl P2) => enc_ + "ontrareis" ; --# notpresent + VP (Fut Subj Pl P3) => enc_ + "ontraren" ; --# notpresent + VP (Cond Sg P1) => enc_ + "ontraría" ; --# notpresent + VP (Cond Sg P2) => enc_ + "ontrarías" ; --# notpresent + VP (Cond Sg P3) => enc_ + "ontraría" ; --# notpresent + VP (Cond Pl P1) => enc_ + "ontraríamos" ; --# notpresent + VP (Cond Pl P2) => enc_ + "ontraríais" ; --# notpresent + VP (Cond Pl P3) => enc_ + "ontrarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => enc_ + "uentra" ; VP (Imp Sg P3) => enc_ + "uentre" ; @@ -2607,42 +2676,42 @@ oper contar_38b : Str -> Verbum = \contar -> VP (Pres Subj Pl P1) => c_ + "ontemos" ; VP (Pres Subj Pl P2) => c_ + "ontéis" ; VP (Pres Subj Pl P3) => c_ + "uenten" ; - VP (Impf Ind Sg P1) => c_ + "ontaba" ; - VP (Impf Ind Sg P2) => c_ + "ontabas" ; - VP (Impf Ind Sg P3) => c_ + "ontaba" ; - VP (Impf Ind Pl P1) => c_ + "ontábamos" ; - VP (Impf Ind Pl P2) => c_ + "ontabais" ; - VP (Impf Ind Pl P3) => c_ + "ontaban" ; - VP (Impf Subj Sg P1) => variants {c_ + "ontara" ; c_ + "ontase"} ; - VP (Impf Subj Sg P2) => variants {c_ + "ontaras" ; c_ + "ontases"} ; - VP (Impf Subj Sg P3) => variants {c_ + "ontara" ; c_ + "ontase"} ; - VP (Impf Subj Pl P1) => variants {c_ + "ontáramos" ; c_ + "ontásemos"} ; - VP (Impf Subj Pl P2) => variants {c_ + "ontarais" ; c_ + "ontaseis"} ; - VP (Impf Subj Pl P3) => variants {c_ + "ontaran" ; c_ + "ontasen"} ; - VP (Pret Sg P1) => c_ + "onté" ; - VP (Pret Sg P2) => c_ + "ontaste" ; - VP (Pret Sg P3) => c_ + "ontó" ; - VP (Pret Pl P1) => c_ + "ontamos" ; - VP (Pret Pl P2) => c_ + "ontasteis" ; - VP (Pret Pl P3) => c_ + "ontaron" ; - VP (Fut Ind Sg P1) => c_ + "ontaré" ; - VP (Fut Ind Sg P2) => c_ + "ontarás" ; - VP (Fut Ind Sg P3) => c_ + "ontará" ; - VP (Fut Ind Pl P1) => c_ + "ontaremos" ; - VP (Fut Ind Pl P2) => c_ + "ontaréis" ; - VP (Fut Ind Pl P3) => c_ + "ontarán" ; - VP (Fut Subj Sg P1) => c_ + "ontare" ; - VP (Fut Subj Sg P2) => c_ + "ontares" ; - VP (Fut Subj Sg P3) => c_ + "ontare" ; - VP (Fut Subj Pl P1) => c_ + "ontáremos" ; - VP (Fut Subj Pl P2) => c_ + "ontareis" ; - VP (Fut Subj Pl P3) => c_ + "ontaren" ; - VP (Cond Sg P1) => c_ + "ontaría" ; - VP (Cond Sg P2) => c_ + "ontarías" ; - VP (Cond Sg P3) => c_ + "ontaría" ; - VP (Cond Pl P1) => c_ + "ontaríamos" ; - VP (Cond Pl P2) => c_ + "ontaríais" ; - VP (Cond Pl P3) => c_ + "ontarían" ; + VP (Impf Ind Sg P1) => c_ + "ontaba" ; --# notpresent + VP (Impf Ind Sg P2) => c_ + "ontabas" ; --# notpresent + VP (Impf Ind Sg P3) => c_ + "ontaba" ; --# notpresent + VP (Impf Ind Pl P1) => c_ + "ontábamos" ; --# notpresent + VP (Impf Ind Pl P2) => c_ + "ontabais" ; --# notpresent + VP (Impf Ind Pl P3) => c_ + "ontaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {c_ + "ontara" ; c_ + "ontase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {c_ + "ontaras" ; c_ + "ontases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {c_ + "ontara" ; c_ + "ontase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {c_ + "ontáramos" ; c_ + "ontásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {c_ + "ontarais" ; c_ + "ontaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {c_ + "ontaran" ; c_ + "ontasen"} ; --# notpresent + VP (Pret Sg P1) => c_ + "onté" ; --# notpresent + VP (Pret Sg P2) => c_ + "ontaste" ; --# notpresent + VP (Pret Sg P3) => c_ + "ontó" ; --# notpresent + VP (Pret Pl P1) => c_ + "ontamos" ; --# notpresent + VP (Pret Pl P2) => c_ + "ontasteis" ; --# notpresent + VP (Pret Pl P3) => c_ + "ontaron" ; --# notpresent + VP (Fut Ind Sg P1) => c_ + "ontaré" ; --# notpresent + VP (Fut Ind Sg P2) => c_ + "ontarás" ; --# notpresent + VP (Fut Ind Sg P3) => c_ + "ontará" ; --# notpresent + VP (Fut Ind Pl P1) => c_ + "ontaremos" ; --# notpresent + VP (Fut Ind Pl P2) => c_ + "ontaréis" ; --# notpresent + VP (Fut Ind Pl P3) => c_ + "ontarán" ; --# notpresent + VP (Fut Subj Sg P1) => c_ + "ontare" ; --# notpresent + VP (Fut Subj Sg P2) => c_ + "ontares" ; --# notpresent + VP (Fut Subj Sg P3) => c_ + "ontare" ; --# notpresent + VP (Fut Subj Pl P1) => c_ + "ontáremos" ; --# notpresent + VP (Fut Subj Pl P2) => c_ + "ontareis" ; --# notpresent + VP (Fut Subj Pl P3) => c_ + "ontaren" ; --# notpresent + VP (Cond Sg P1) => c_ + "ontaría" ; --# notpresent + VP (Cond Sg P2) => c_ + "ontarías" ; --# notpresent + VP (Cond Sg P3) => c_ + "ontaría" ; --# notpresent + VP (Cond Pl P1) => c_ + "ontaríamos" ; --# notpresent + VP (Cond Pl P2) => c_ + "ontaríais" ; --# notpresent + VP (Cond Pl P3) => c_ + "ontarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => c_ + "uenta" ; VP (Imp Sg P3) => c_ + "uente" ; @@ -2673,42 +2742,42 @@ oper enraizar_39 : Str -> Verbum = \enraizar -> VP (Pres Subj Pl P1) => enra_ + "icemos" ; VP (Pres Subj Pl P2) => enra_ + "icéis" ; VP (Pres Subj Pl P3) => enra_ + "ícen" ; - VP (Impf Ind Sg P1) => enra_ + "izaba" ; - VP (Impf Ind Sg P2) => enra_ + "izabas" ; - VP (Impf Ind Sg P3) => enra_ + "izaba" ; - VP (Impf Ind Pl P1) => enra_ + "izábamos" ; - VP (Impf Ind Pl P2) => enra_ + "izabais" ; - VP (Impf Ind Pl P3) => enra_ + "izaban" ; - VP (Impf Subj Sg P1) => variants {enra_ + "izara" ; enra_ + "izase"} ; - VP (Impf Subj Sg P2) => variants {enra_ + "izaras" ; enra_ + "izases"} ; - VP (Impf Subj Sg P3) => variants {enra_ + "izara" ; enra_ + "izase"} ; - VP (Impf Subj Pl P1) => variants {enra_ + "izáramos" ; enra_ + "izásemos"} ; - VP (Impf Subj Pl P2) => variants {enra_ + "izarais" ; enra_ + "izaseis"} ; - VP (Impf Subj Pl P3) => variants {enra_ + "izaran" ; enra_ + "izasen"} ; - VP (Pret Sg P1) => enra_ + "icé" ; - VP (Pret Sg P2) => enra_ + "izaste" ; - VP (Pret Sg P3) => enra_ + "izó" ; - VP (Pret Pl P1) => enra_ + "izamos" ; - VP (Pret Pl P2) => enra_ + "izasteis" ; - VP (Pret Pl P3) => enra_ + "izaron" ; - VP (Fut Ind Sg P1) => enra_ + "izaré" ; - VP (Fut Ind Sg P2) => enra_ + "izarás" ; - VP (Fut Ind Sg P3) => enra_ + "izará" ; - VP (Fut Ind Pl P1) => enra_ + "izaremos" ; - VP (Fut Ind Pl P2) => enra_ + "izaréis" ; - VP (Fut Ind Pl P3) => enra_ + "izarán" ; - VP (Fut Subj Sg P1) => enra_ + "izare" ; - VP (Fut Subj Sg P2) => enra_ + "izares" ; - VP (Fut Subj Sg P3) => enra_ + "izare" ; - VP (Fut Subj Pl P1) => enra_ + "izáremos" ; - VP (Fut Subj Pl P2) => enra_ + "izareis" ; - VP (Fut Subj Pl P3) => enra_ + "izaren" ; - VP (Cond Sg P1) => enra_ + "izaría" ; - VP (Cond Sg P2) => enra_ + "izarías" ; - VP (Cond Sg P3) => enra_ + "izaría" ; - VP (Cond Pl P1) => enra_ + "izaríamos" ; - VP (Cond Pl P2) => enra_ + "izaríais" ; - VP (Cond Pl P3) => enra_ + "izarían" ; + VP (Impf Ind Sg P1) => enra_ + "izaba" ; --# notpresent + VP (Impf Ind Sg P2) => enra_ + "izabas" ; --# notpresent + VP (Impf Ind Sg P3) => enra_ + "izaba" ; --# notpresent + VP (Impf Ind Pl P1) => enra_ + "izábamos" ; --# notpresent + VP (Impf Ind Pl P2) => enra_ + "izabais" ; --# notpresent + VP (Impf Ind Pl P3) => enra_ + "izaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {enra_ + "izara" ; enra_ + "izase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {enra_ + "izaras" ; enra_ + "izases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {enra_ + "izara" ; enra_ + "izase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {enra_ + "izáramos" ; enra_ + "izásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {enra_ + "izarais" ; enra_ + "izaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {enra_ + "izaran" ; enra_ + "izasen"} ; --# notpresent + VP (Pret Sg P1) => enra_ + "icé" ; --# notpresent + VP (Pret Sg P2) => enra_ + "izaste" ; --# notpresent + VP (Pret Sg P3) => enra_ + "izó" ; --# notpresent + VP (Pret Pl P1) => enra_ + "izamos" ; --# notpresent + VP (Pret Pl P2) => enra_ + "izasteis" ; --# notpresent + VP (Pret Pl P3) => enra_ + "izaron" ; --# notpresent + VP (Fut Ind Sg P1) => enra_ + "izaré" ; --# notpresent + VP (Fut Ind Sg P2) => enra_ + "izarás" ; --# notpresent + VP (Fut Ind Sg P3) => enra_ + "izará" ; --# notpresent + VP (Fut Ind Pl P1) => enra_ + "izaremos" ; --# notpresent + VP (Fut Ind Pl P2) => enra_ + "izaréis" ; --# notpresent + VP (Fut Ind Pl P3) => enra_ + "izarán" ; --# notpresent + VP (Fut Subj Sg P1) => enra_ + "izare" ; --# notpresent + VP (Fut Subj Sg P2) => enra_ + "izares" ; --# notpresent + VP (Fut Subj Sg P3) => enra_ + "izare" ; --# notpresent + VP (Fut Subj Pl P1) => enra_ + "izáremos" ; --# notpresent + VP (Fut Subj Pl P2) => enra_ + "izareis" ; --# notpresent + VP (Fut Subj Pl P3) => enra_ + "izaren" ; --# notpresent + VP (Cond Sg P1) => enra_ + "izaría" ; --# notpresent + VP (Cond Sg P2) => enra_ + "izarías" ; --# notpresent + VP (Cond Sg P3) => enra_ + "izaría" ; --# notpresent + VP (Cond Pl P1) => enra_ + "izaríamos" ; --# notpresent + VP (Cond Pl P2) => enra_ + "izaríais" ; --# notpresent + VP (Cond Pl P3) => enra_ + "izarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => enra_ + "íza" ; VP (Imp Sg P3) => enra_ + "íce" ; @@ -2739,42 +2808,42 @@ oper erguir_40 : Str -> Verbum = \erguir -> VP (Pres Subj Pl P1) => x_ + "irgamos" ; VP (Pres Subj Pl P2) => x_ + "irgáis" ; VP (Pres Subj Pl P3) => x_ + "yergan" ; - VP (Impf Ind Sg P1) => x_ + "erguía" ; - VP (Impf Ind Sg P2) => x_ + "erguías" ; - VP (Impf Ind Sg P3) => x_ + "erguía" ; - VP (Impf Ind Pl P1) => x_ + "erguíamos" ; - VP (Impf Ind Pl P2) => x_ + "erguíais" ; - VP (Impf Ind Pl P3) => x_ + "erguían" ; - VP (Impf Subj Sg P1) => variants {x_ + "irguiera" ; x_ + "irguiese"} ; - VP (Impf Subj Sg P2) => variants {x_ + "irguieras" ; x_ + "irguieses"} ; - VP (Impf Subj Sg P3) => variants {x_ + "irguiera" ; x_ + "irguiese"} ; - VP (Impf Subj Pl P1) => variants {x_ + "irguiéramos" ; x_ + "irguiésemos"} ; - VP (Impf Subj Pl P2) => variants {x_ + "irguierais" ; x_ + "irguieseis"} ; - VP (Impf Subj Pl P3) => variants {x_ + "irguieran" ; x_ + "irguiesen"} ; - VP (Pret Sg P1) => x_ + "erguí" ; - VP (Pret Sg P2) => x_ + "erguiste" ; - VP (Pret Sg P3) => x_ + "irguió" ; - VP (Pret Pl P1) => x_ + "erguimos" ; - VP (Pret Pl P2) => x_ + "erguisteis" ; - VP (Pret Pl P3) => x_ + "irguieron" ; - VP (Fut Ind Sg P1) => x_ + "erguiré" ; - VP (Fut Ind Sg P2) => x_ + "erguirás" ; - VP (Fut Ind Sg P3) => x_ + "erguirá" ; - VP (Fut Ind Pl P1) => x_ + "erguiremos" ; - VP (Fut Ind Pl P2) => x_ + "erguiréis" ; - VP (Fut Ind Pl P3) => x_ + "erguirán" ; - VP (Fut Subj Sg P1) => x_ + "irguiere" ; - VP (Fut Subj Sg P2) => x_ + "irguieres" ; - VP (Fut Subj Sg P3) => x_ + "irguiere" ; - VP (Fut Subj Pl P1) => x_ + "irguiéremos" ; - VP (Fut Subj Pl P2) => x_ + "irguiereis" ; - VP (Fut Subj Pl P3) => x_ + "irguieren" ; - VP (Cond Sg P1) => x_ + "erguiría" ; - VP (Cond Sg P2) => x_ + "erguirías" ; - VP (Cond Sg P3) => x_ + "erguiría" ; - VP (Cond Pl P1) => x_ + "erguiríamos" ; - VP (Cond Pl P2) => x_ + "erguiríais" ; - VP (Cond Pl P3) => x_ + "erguirían" ; + VP (Impf Ind Sg P1) => x_ + "erguía" ; --# notpresent + VP (Impf Ind Sg P2) => x_ + "erguías" ; --# notpresent + VP (Impf Ind Sg P3) => x_ + "erguía" ; --# notpresent + VP (Impf Ind Pl P1) => x_ + "erguíamos" ; --# notpresent + VP (Impf Ind Pl P2) => x_ + "erguíais" ; --# notpresent + VP (Impf Ind Pl P3) => x_ + "erguían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {x_ + "irguiera" ; x_ + "irguiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {x_ + "irguieras" ; x_ + "irguieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {x_ + "irguiera" ; x_ + "irguiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {x_ + "irguiéramos" ; x_ + "irguiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {x_ + "irguierais" ; x_ + "irguieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {x_ + "irguieran" ; x_ + "irguiesen"} ; --# notpresent + VP (Pret Sg P1) => x_ + "erguí" ; --# notpresent + VP (Pret Sg P2) => x_ + "erguiste" ; --# notpresent + VP (Pret Sg P3) => x_ + "irguió" ; --# notpresent + VP (Pret Pl P1) => x_ + "erguimos" ; --# notpresent + VP (Pret Pl P2) => x_ + "erguisteis" ; --# notpresent + VP (Pret Pl P3) => x_ + "irguieron" ; --# notpresent + VP (Fut Ind Sg P1) => x_ + "erguiré" ; --# notpresent + VP (Fut Ind Sg P2) => x_ + "erguirás" ; --# notpresent + VP (Fut Ind Sg P3) => x_ + "erguirá" ; --# notpresent + VP (Fut Ind Pl P1) => x_ + "erguiremos" ; --# notpresent + VP (Fut Ind Pl P2) => x_ + "erguiréis" ; --# notpresent + VP (Fut Ind Pl P3) => x_ + "erguirán" ; --# notpresent + VP (Fut Subj Sg P1) => x_ + "irguiere" ; --# notpresent + VP (Fut Subj Sg P2) => x_ + "irguieres" ; --# notpresent + VP (Fut Subj Sg P3) => x_ + "irguiere" ; --# notpresent + VP (Fut Subj Pl P1) => x_ + "irguiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => x_ + "irguiereis" ; --# notpresent + VP (Fut Subj Pl P3) => x_ + "irguieren" ; --# notpresent + VP (Cond Sg P1) => x_ + "erguiría" ; --# notpresent + VP (Cond Sg P2) => x_ + "erguirías" ; --# notpresent + VP (Cond Sg P3) => x_ + "erguiría" ; --# notpresent + VP (Cond Pl P1) => x_ + "erguiríamos" ; --# notpresent + VP (Cond Pl P2) => x_ + "erguiríais" ; --# notpresent + VP (Cond Pl P3) => x_ + "erguirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => x_ + "yergue" ; VP (Imp Sg P3) => x_ + "yerga" ; @@ -2805,42 +2874,42 @@ oper errar_41 : Str -> Verbum = \errar -> VP (Pres Subj Pl P1) => x_ + "erremos" ; VP (Pres Subj Pl P2) => x_ + "erréis" ; VP (Pres Subj Pl P3) => x_ + "yerren" ; - VP (Impf Ind Sg P1) => x_ + "erraba" ; - VP (Impf Ind Sg P2) => x_ + "errabas" ; - VP (Impf Ind Sg P3) => x_ + "erraba" ; - VP (Impf Ind Pl P1) => x_ + "errábamos" ; - VP (Impf Ind Pl P2) => x_ + "errabais" ; - VP (Impf Ind Pl P3) => x_ + "erraban" ; - VP (Impf Subj Sg P1) => variants {x_ + "errara" ; x_ + "errase"} ; - VP (Impf Subj Sg P2) => variants {x_ + "erraras" ; x_ + "errases"} ; - VP (Impf Subj Sg P3) => variants {x_ + "errara" ; x_ + "errase"} ; - VP (Impf Subj Pl P1) => variants {x_ + "erráramos" ; x_ + "errásemos"} ; - VP (Impf Subj Pl P2) => variants {x_ + "errarais" ; x_ + "erraseis"} ; - VP (Impf Subj Pl P3) => variants {x_ + "erraran" ; x_ + "errasen"} ; - VP (Pret Sg P1) => x_ + "erré" ; - VP (Pret Sg P2) => x_ + "erraste" ; - VP (Pret Sg P3) => x_ + "erró" ; - VP (Pret Pl P1) => x_ + "erramos" ; - VP (Pret Pl P2) => x_ + "errasteis" ; - VP (Pret Pl P3) => x_ + "erraron" ; - VP (Fut Ind Sg P1) => x_ + "erraré" ; - VP (Fut Ind Sg P2) => x_ + "errarás" ; - VP (Fut Ind Sg P3) => x_ + "errará" ; - VP (Fut Ind Pl P1) => x_ + "erraremos" ; - VP (Fut Ind Pl P2) => x_ + "erraréis" ; - VP (Fut Ind Pl P3) => x_ + "errarán" ; - VP (Fut Subj Sg P1) => x_ + "errare" ; - VP (Fut Subj Sg P2) => x_ + "errares" ; - VP (Fut Subj Sg P3) => x_ + "errare" ; - VP (Fut Subj Pl P1) => x_ + "erráremos" ; - VP (Fut Subj Pl P2) => x_ + "errareis" ; - VP (Fut Subj Pl P3) => x_ + "erraren" ; - VP (Cond Sg P1) => x_ + "erraría" ; - VP (Cond Sg P2) => x_ + "errarías" ; - VP (Cond Sg P3) => x_ + "erraría" ; - VP (Cond Pl P1) => x_ + "erraríamos" ; - VP (Cond Pl P2) => x_ + "erraríais" ; - VP (Cond Pl P3) => x_ + "errarían" ; + VP (Impf Ind Sg P1) => x_ + "erraba" ; --# notpresent + VP (Impf Ind Sg P2) => x_ + "errabas" ; --# notpresent + VP (Impf Ind Sg P3) => x_ + "erraba" ; --# notpresent + VP (Impf Ind Pl P1) => x_ + "errábamos" ; --# notpresent + VP (Impf Ind Pl P2) => x_ + "errabais" ; --# notpresent + VP (Impf Ind Pl P3) => x_ + "erraban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {x_ + "errara" ; x_ + "errase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {x_ + "erraras" ; x_ + "errases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {x_ + "errara" ; x_ + "errase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {x_ + "erráramos" ; x_ + "errásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {x_ + "errarais" ; x_ + "erraseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {x_ + "erraran" ; x_ + "errasen"} ; --# notpresent + VP (Pret Sg P1) => x_ + "erré" ; --# notpresent + VP (Pret Sg P2) => x_ + "erraste" ; --# notpresent + VP (Pret Sg P3) => x_ + "erró" ; --# notpresent + VP (Pret Pl P1) => x_ + "erramos" ; --# notpresent + VP (Pret Pl P2) => x_ + "errasteis" ; --# notpresent + VP (Pret Pl P3) => x_ + "erraron" ; --# notpresent + VP (Fut Ind Sg P1) => x_ + "erraré" ; --# notpresent + VP (Fut Ind Sg P2) => x_ + "errarás" ; --# notpresent + VP (Fut Ind Sg P3) => x_ + "errará" ; --# notpresent + VP (Fut Ind Pl P1) => x_ + "erraremos" ; --# notpresent + VP (Fut Ind Pl P2) => x_ + "erraréis" ; --# notpresent + VP (Fut Ind Pl P3) => x_ + "errarán" ; --# notpresent + VP (Fut Subj Sg P1) => x_ + "errare" ; --# notpresent + VP (Fut Subj Sg P2) => x_ + "errares" ; --# notpresent + VP (Fut Subj Sg P3) => x_ + "errare" ; --# notpresent + VP (Fut Subj Pl P1) => x_ + "erráremos" ; --# notpresent + VP (Fut Subj Pl P2) => x_ + "errareis" ; --# notpresent + VP (Fut Subj Pl P3) => x_ + "erraren" ; --# notpresent + VP (Cond Sg P1) => x_ + "erraría" ; --# notpresent + VP (Cond Sg P2) => x_ + "errarías" ; --# notpresent + VP (Cond Sg P3) => x_ + "erraría" ; --# notpresent + VP (Cond Pl P1) => x_ + "erraríamos" ; --# notpresent + VP (Cond Pl P2) => x_ + "erraríais" ; --# notpresent + VP (Cond Pl P3) => x_ + "errarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => x_ + "yerra" ; VP (Imp Sg P3) => x_ + "yerre" ; @@ -2871,42 +2940,42 @@ oper forzar_42 : Str -> Verbum = \forzar -> VP (Pres Subj Pl P1) => f_ + "orcemos" ; VP (Pres Subj Pl P2) => f_ + "orcéis" ; VP (Pres Subj Pl P3) => f_ + "uercen" ; - VP (Impf Ind Sg P1) => f_ + "orzaba" ; - VP (Impf Ind Sg P2) => f_ + "orzabas" ; - VP (Impf Ind Sg P3) => f_ + "orzaba" ; - VP (Impf Ind Pl P1) => f_ + "orzábamos" ; - VP (Impf Ind Pl P2) => f_ + "orzabais" ; - VP (Impf Ind Pl P3) => f_ + "orzaban" ; - VP (Impf Subj Sg P1) => variants {f_ + "orzara" ; f_ + "orzase"} ; - VP (Impf Subj Sg P2) => variants {f_ + "orzaras" ; f_ + "orzases"} ; - VP (Impf Subj Sg P3) => variants {f_ + "orzara" ; f_ + "orzase"} ; - VP (Impf Subj Pl P1) => variants {f_ + "orzáramos" ; f_ + "orzásemos"} ; - VP (Impf Subj Pl P2) => variants {f_ + "orzarais" ; f_ + "orzaseis"} ; - VP (Impf Subj Pl P3) => variants {f_ + "orzaran" ; f_ + "orzasen"} ; - VP (Pret Sg P1) => f_ + "orcé" ; - VP (Pret Sg P2) => f_ + "orzaste" ; - VP (Pret Sg P3) => f_ + "orzó" ; - VP (Pret Pl P1) => f_ + "orzamos" ; - VP (Pret Pl P2) => f_ + "orzasteis" ; - VP (Pret Pl P3) => f_ + "orzaron" ; - VP (Fut Ind Sg P1) => f_ + "orzaré" ; - VP (Fut Ind Sg P2) => f_ + "orzarás" ; - VP (Fut Ind Sg P3) => f_ + "orzará" ; - VP (Fut Ind Pl P1) => f_ + "orzaremos" ; - VP (Fut Ind Pl P2) => f_ + "orzaréis" ; - VP (Fut Ind Pl P3) => f_ + "orzarán" ; - VP (Fut Subj Sg P1) => f_ + "orzare" ; - VP (Fut Subj Sg P2) => f_ + "orzares" ; - VP (Fut Subj Sg P3) => f_ + "orzare" ; - VP (Fut Subj Pl P1) => f_ + "orzáremos" ; - VP (Fut Subj Pl P2) => f_ + "orzareis" ; - VP (Fut Subj Pl P3) => f_ + "orzaren" ; - VP (Cond Sg P1) => f_ + "orzaría" ; - VP (Cond Sg P2) => f_ + "orzarías" ; - VP (Cond Sg P3) => f_ + "orzaría" ; - VP (Cond Pl P1) => f_ + "orzaríamos" ; - VP (Cond Pl P2) => f_ + "orzaríais" ; - VP (Cond Pl P3) => f_ + "orzarían" ; + VP (Impf Ind Sg P1) => f_ + "orzaba" ; --# notpresent + VP (Impf Ind Sg P2) => f_ + "orzabas" ; --# notpresent + VP (Impf Ind Sg P3) => f_ + "orzaba" ; --# notpresent + VP (Impf Ind Pl P1) => f_ + "orzábamos" ; --# notpresent + VP (Impf Ind Pl P2) => f_ + "orzabais" ; --# notpresent + VP (Impf Ind Pl P3) => f_ + "orzaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {f_ + "orzara" ; f_ + "orzase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {f_ + "orzaras" ; f_ + "orzases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {f_ + "orzara" ; f_ + "orzase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {f_ + "orzáramos" ; f_ + "orzásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {f_ + "orzarais" ; f_ + "orzaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {f_ + "orzaran" ; f_ + "orzasen"} ; --# notpresent + VP (Pret Sg P1) => f_ + "orcé" ; --# notpresent + VP (Pret Sg P2) => f_ + "orzaste" ; --# notpresent + VP (Pret Sg P3) => f_ + "orzó" ; --# notpresent + VP (Pret Pl P1) => f_ + "orzamos" ; --# notpresent + VP (Pret Pl P2) => f_ + "orzasteis" ; --# notpresent + VP (Pret Pl P3) => f_ + "orzaron" ; --# notpresent + VP (Fut Ind Sg P1) => f_ + "orzaré" ; --# notpresent + VP (Fut Ind Sg P2) => f_ + "orzarás" ; --# notpresent + VP (Fut Ind Sg P3) => f_ + "orzará" ; --# notpresent + VP (Fut Ind Pl P1) => f_ + "orzaremos" ; --# notpresent + VP (Fut Ind Pl P2) => f_ + "orzaréis" ; --# notpresent + VP (Fut Ind Pl P3) => f_ + "orzarán" ; --# notpresent + VP (Fut Subj Sg P1) => f_ + "orzare" ; --# notpresent + VP (Fut Subj Sg P2) => f_ + "orzares" ; --# notpresent + VP (Fut Subj Sg P3) => f_ + "orzare" ; --# notpresent + VP (Fut Subj Pl P1) => f_ + "orzáremos" ; --# notpresent + VP (Fut Subj Pl P2) => f_ + "orzareis" ; --# notpresent + VP (Fut Subj Pl P3) => f_ + "orzaren" ; --# notpresent + VP (Cond Sg P1) => f_ + "orzaría" ; --# notpresent + VP (Cond Sg P2) => f_ + "orzarías" ; --# notpresent + VP (Cond Sg P3) => f_ + "orzaría" ; --# notpresent + VP (Cond Pl P1) => f_ + "orzaríamos" ; --# notpresent + VP (Cond Pl P2) => f_ + "orzaríais" ; --# notpresent + VP (Cond Pl P3) => f_ + "orzarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => f_ + "uerza" ; VP (Imp Sg P3) => f_ + "uerce" ; @@ -2937,42 +3006,42 @@ oper guiar_43 : Str -> Verbum = \guiar -> VP (Pres Subj Pl P1) => gu_ + "iemos" ; VP (Pres Subj Pl P2) => gu_ + "iéis" ; VP (Pres Subj Pl P3) => gu_ + "íen" ; - VP (Impf Ind Sg P1) => gu_ + "iaba" ; - VP (Impf Ind Sg P2) => gu_ + "iabas" ; - VP (Impf Ind Sg P3) => gu_ + "iaba" ; - VP (Impf Ind Pl P1) => gu_ + "iábamos" ; - VP (Impf Ind Pl P2) => gu_ + "iabais" ; - VP (Impf Ind Pl P3) => gu_ + "iaban" ; - VP (Impf Subj Sg P1) => variants {gu_ + "iara" ; gu_ + "iase"} ; - VP (Impf Subj Sg P2) => variants {gu_ + "iaras" ; gu_ + "iases"} ; - VP (Impf Subj Sg P3) => variants {gu_ + "iara" ; gu_ + "iase"} ; - VP (Impf Subj Pl P1) => variants {gu_ + "iáramos" ; gu_ + "iásemos"} ; - VP (Impf Subj Pl P2) => variants {gu_ + "iarais" ; gu_ + "iaseis"} ; - VP (Impf Subj Pl P3) => variants {gu_ + "iaran" ; gu_ + "iasen"} ; - VP (Pret Sg P1) => gu_ + "ié" ; - VP (Pret Sg P2) => gu_ + "iaste" ; - VP (Pret Sg P3) => gu_ + "ió" ; - VP (Pret Pl P1) => gu_ + "iamos" ; - VP (Pret Pl P2) => gu_ + "iasteis" ; - VP (Pret Pl P3) => gu_ + "iaron" ; - VP (Fut Ind Sg P1) => gu_ + "iaré" ; - VP (Fut Ind Sg P2) => gu_ + "iarás" ; - VP (Fut Ind Sg P3) => gu_ + "iará" ; - VP (Fut Ind Pl P1) => gu_ + "iaremos" ; - VP (Fut Ind Pl P2) => gu_ + "iaréis" ; - VP (Fut Ind Pl P3) => gu_ + "iarán" ; - VP (Fut Subj Sg P1) => gu_ + "iare" ; - VP (Fut Subj Sg P2) => gu_ + "iares" ; - VP (Fut Subj Sg P3) => gu_ + "iare" ; - VP (Fut Subj Pl P1) => gu_ + "iáremos" ; - VP (Fut Subj Pl P2) => gu_ + "iareis" ; - VP (Fut Subj Pl P3) => gu_ + "iaren" ; - VP (Cond Sg P1) => gu_ + "iaría" ; - VP (Cond Sg P2) => gu_ + "iarías" ; - VP (Cond Sg P3) => gu_ + "iaría" ; - VP (Cond Pl P1) => gu_ + "iaríamos" ; - VP (Cond Pl P2) => gu_ + "iaríais" ; - VP (Cond Pl P3) => gu_ + "iarían" ; + VP (Impf Ind Sg P1) => gu_ + "iaba" ; --# notpresent + VP (Impf Ind Sg P2) => gu_ + "iabas" ; --# notpresent + VP (Impf Ind Sg P3) => gu_ + "iaba" ; --# notpresent + VP (Impf Ind Pl P1) => gu_ + "iábamos" ; --# notpresent + VP (Impf Ind Pl P2) => gu_ + "iabais" ; --# notpresent + VP (Impf Ind Pl P3) => gu_ + "iaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {gu_ + "iara" ; gu_ + "iase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {gu_ + "iaras" ; gu_ + "iases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {gu_ + "iara" ; gu_ + "iase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {gu_ + "iáramos" ; gu_ + "iásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {gu_ + "iarais" ; gu_ + "iaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {gu_ + "iaran" ; gu_ + "iasen"} ; --# notpresent + VP (Pret Sg P1) => gu_ + "ié" ; --# notpresent + VP (Pret Sg P2) => gu_ + "iaste" ; --# notpresent + VP (Pret Sg P3) => gu_ + "ió" ; --# notpresent + VP (Pret Pl P1) => gu_ + "iamos" ; --# notpresent + VP (Pret Pl P2) => gu_ + "iasteis" ; --# notpresent + VP (Pret Pl P3) => gu_ + "iaron" ; --# notpresent + VP (Fut Ind Sg P1) => gu_ + "iaré" ; --# notpresent + VP (Fut Ind Sg P2) => gu_ + "iarás" ; --# notpresent + VP (Fut Ind Sg P3) => gu_ + "iará" ; --# notpresent + VP (Fut Ind Pl P1) => gu_ + "iaremos" ; --# notpresent + VP (Fut Ind Pl P2) => gu_ + "iaréis" ; --# notpresent + VP (Fut Ind Pl P3) => gu_ + "iarán" ; --# notpresent + VP (Fut Subj Sg P1) => gu_ + "iare" ; --# notpresent + VP (Fut Subj Sg P2) => gu_ + "iares" ; --# notpresent + VP (Fut Subj Sg P3) => gu_ + "iare" ; --# notpresent + VP (Fut Subj Pl P1) => gu_ + "iáremos" ; --# notpresent + VP (Fut Subj Pl P2) => gu_ + "iareis" ; --# notpresent + VP (Fut Subj Pl P3) => gu_ + "iaren" ; --# notpresent + VP (Cond Sg P1) => gu_ + "iaría" ; --# notpresent + VP (Cond Sg P2) => gu_ + "iarías" ; --# notpresent + VP (Cond Sg P3) => gu_ + "iaría" ; --# notpresent + VP (Cond Pl P1) => gu_ + "iaríamos" ; --# notpresent + VP (Cond Pl P2) => gu_ + "iaríais" ; --# notpresent + VP (Cond Pl P3) => gu_ + "iarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => gu_ + "ía" ; VP (Imp Sg P3) => gu_ + "íe" ; @@ -3003,42 +3072,42 @@ oper hacer_44 : Str -> Verbum = \hacer -> VP (Pres Subj Pl P1) => h_ + "agamos" ; VP (Pres Subj Pl P2) => h_ + "agáis" ; VP (Pres Subj Pl P3) => h_ + "agan" ; - VP (Impf Ind Sg P1) => h_ + "acía" ; - VP (Impf Ind Sg P2) => h_ + "acías" ; - VP (Impf Ind Sg P3) => h_ + "acía" ; - VP (Impf Ind Pl P1) => h_ + "acíamos" ; - VP (Impf Ind Pl P2) => h_ + "acíais" ; - VP (Impf Ind Pl P3) => h_ + "acían" ; - VP (Impf Subj Sg P1) => variants {h_ + "iciera" ; h_ + "iciese"} ; - VP (Impf Subj Sg P2) => variants {h_ + "icieras" ; h_ + "icieses"} ; - VP (Impf Subj Sg P3) => variants {h_ + "iciera" ; h_ + "iciese"} ; - VP (Impf Subj Pl P1) => variants {h_ + "iciéramos" ; h_ + "iciésemos"} ; - VP (Impf Subj Pl P2) => variants {h_ + "icierais" ; h_ + "icieseis"} ; - VP (Impf Subj Pl P3) => variants {h_ + "icieran" ; h_ + "iciesen"} ; - VP (Pret Sg P1) => h_ + "ice" ; - VP (Pret Sg P2) => h_ + "iciste" ; - VP (Pret Sg P3) => h_ + "izo" ; - VP (Pret Pl P1) => h_ + "icimos" ; - VP (Pret Pl P2) => h_ + "icisteis" ; - VP (Pret Pl P3) => h_ + "icieron" ; - VP (Fut Ind Sg P1) => h_ + "aré" ; - VP (Fut Ind Sg P2) => h_ + "arás" ; - VP (Fut Ind Sg P3) => h_ + "ará" ; - VP (Fut Ind Pl P1) => h_ + "aremos" ; - VP (Fut Ind Pl P2) => h_ + "aréis" ; - VP (Fut Ind Pl P3) => h_ + "arán" ; - VP (Fut Subj Sg P1) => h_ + "iciere" ; - VP (Fut Subj Sg P2) => h_ + "icieres" ; - VP (Fut Subj Sg P3) => h_ + "iciere" ; - VP (Fut Subj Pl P1) => h_ + "iciéremos" ; - VP (Fut Subj Pl P2) => h_ + "iciereis" ; - VP (Fut Subj Pl P3) => h_ + "icieren" ; - VP (Cond Sg P1) => h_ + "aría" ; - VP (Cond Sg P2) => h_ + "arías" ; - VP (Cond Sg P3) => h_ + "aría" ; - VP (Cond Pl P1) => h_ + "aríamos" ; - VP (Cond Pl P2) => h_ + "aríais" ; - VP (Cond Pl P3) => h_ + "arían" ; + VP (Impf Ind Sg P1) => h_ + "acía" ; --# notpresent + VP (Impf Ind Sg P2) => h_ + "acías" ; --# notpresent + VP (Impf Ind Sg P3) => h_ + "acía" ; --# notpresent + VP (Impf Ind Pl P1) => h_ + "acíamos" ; --# notpresent + VP (Impf Ind Pl P2) => h_ + "acíais" ; --# notpresent + VP (Impf Ind Pl P3) => h_ + "acían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {h_ + "iciera" ; h_ + "iciese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {h_ + "icieras" ; h_ + "icieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {h_ + "iciera" ; h_ + "iciese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {h_ + "iciéramos" ; h_ + "iciésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {h_ + "icierais" ; h_ + "icieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {h_ + "icieran" ; h_ + "iciesen"} ; --# notpresent + VP (Pret Sg P1) => h_ + "ice" ; --# notpresent + VP (Pret Sg P2) => h_ + "iciste" ; --# notpresent + VP (Pret Sg P3) => h_ + "izo" ; --# notpresent + VP (Pret Pl P1) => h_ + "icimos" ; --# notpresent + VP (Pret Pl P2) => h_ + "icisteis" ; --# notpresent + VP (Pret Pl P3) => h_ + "icieron" ; --# notpresent + VP (Fut Ind Sg P1) => h_ + "aré" ; --# notpresent + VP (Fut Ind Sg P2) => h_ + "arás" ; --# notpresent + VP (Fut Ind Sg P3) => h_ + "ará" ; --# notpresent + VP (Fut Ind Pl P1) => h_ + "aremos" ; --# notpresent + VP (Fut Ind Pl P2) => h_ + "aréis" ; --# notpresent + VP (Fut Ind Pl P3) => h_ + "arán" ; --# notpresent + VP (Fut Subj Sg P1) => h_ + "iciere" ; --# notpresent + VP (Fut Subj Sg P2) => h_ + "icieres" ; --# notpresent + VP (Fut Subj Sg P3) => h_ + "iciere" ; --# notpresent + VP (Fut Subj Pl P1) => h_ + "iciéremos" ; --# notpresent + VP (Fut Subj Pl P2) => h_ + "iciereis" ; --# notpresent + VP (Fut Subj Pl P3) => h_ + "icieren" ; --# notpresent + VP (Cond Sg P1) => h_ + "aría" ; --# notpresent + VP (Cond Sg P2) => h_ + "arías" ; --# notpresent + VP (Cond Sg P3) => h_ + "aría" ; --# notpresent + VP (Cond Pl P1) => h_ + "aríamos" ; --# notpresent + VP (Cond Pl P2) => h_ + "aríais" ; --# notpresent + VP (Cond Pl P3) => h_ + "arían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => h_ + "az" ; VP (Imp Sg P3) => h_ + "aga" ; @@ -3069,42 +3138,42 @@ oper influir_45 : Str -> Verbum = \influir -> VP (Pres Subj Pl P1) => influ_ + "yamos" ; VP (Pres Subj Pl P2) => influ_ + "yáis" ; VP (Pres Subj Pl P3) => influ_ + "yan" ; - VP (Impf Ind Sg P1) => influ_ + "ía" ; - VP (Impf Ind Sg P2) => influ_ + "ías" ; - VP (Impf Ind Sg P3) => influ_ + "ía" ; - VP (Impf Ind Pl P1) => influ_ + "íamos" ; - VP (Impf Ind Pl P2) => influ_ + "íais" ; - VP (Impf Ind Pl P3) => influ_ + "ían" ; - VP (Impf Subj Sg P1) => variants {influ_ + "yera" ; influ_ + "yese"} ; - VP (Impf Subj Sg P2) => variants {influ_ + "yeras" ; influ_ + "yeses"} ; - VP (Impf Subj Sg P3) => variants {influ_ + "yera" ; influ_ + "yese"} ; - VP (Impf Subj Pl P1) => variants {influ_ + "yéramos" ; influ_ + "yésemos"} ; - VP (Impf Subj Pl P2) => variants {influ_ + "yerais" ; influ_ + "yeseis"} ; - VP (Impf Subj Pl P3) => variants {influ_ + "yeran" ; influ_ + "yesen"} ; - VP (Pret Sg P1) => influ_ + "í" ; - VP (Pret Sg P2) => influ_ + "iste" ; - VP (Pret Sg P3) => influ_ + "yó" ; - VP (Pret Pl P1) => influ_ + "imos" ; - VP (Pret Pl P2) => influ_ + "isteis" ; - VP (Pret Pl P3) => influ_ + "yeron" ; - VP (Fut Ind Sg P1) => influ_ + "iré" ; - VP (Fut Ind Sg P2) => influ_ + "irás" ; - VP (Fut Ind Sg P3) => influ_ + "irá" ; - VP (Fut Ind Pl P1) => influ_ + "iremos" ; - VP (Fut Ind Pl P2) => influ_ + "iréis" ; - VP (Fut Ind Pl P3) => influ_ + "irán" ; - VP (Fut Subj Sg P1) => influ_ + "yere" ; - VP (Fut Subj Sg P2) => influ_ + "yeres" ; - VP (Fut Subj Sg P3) => influ_ + "yere" ; - VP (Fut Subj Pl P1) => influ_ + "yéremos" ; - VP (Fut Subj Pl P2) => influ_ + "yereis" ; - VP (Fut Subj Pl P3) => influ_ + "yeren" ; - VP (Cond Sg P1) => influ_ + "iría" ; - VP (Cond Sg P2) => influ_ + "irías" ; - VP (Cond Sg P3) => influ_ + "iría" ; - VP (Cond Pl P1) => influ_ + "iríamos" ; - VP (Cond Pl P2) => influ_ + "iríais" ; - VP (Cond Pl P3) => influ_ + "irían" ; + VP (Impf Ind Sg P1) => influ_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => influ_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => influ_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => influ_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => influ_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => influ_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {influ_ + "yera" ; influ_ + "yese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {influ_ + "yeras" ; influ_ + "yeses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {influ_ + "yera" ; influ_ + "yese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {influ_ + "yéramos" ; influ_ + "yésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {influ_ + "yerais" ; influ_ + "yeseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {influ_ + "yeran" ; influ_ + "yesen"} ; --# notpresent + VP (Pret Sg P1) => influ_ + "í" ; --# notpresent + VP (Pret Sg P2) => influ_ + "iste" ; --# notpresent + VP (Pret Sg P3) => influ_ + "yó" ; --# notpresent + VP (Pret Pl P1) => influ_ + "imos" ; --# notpresent + VP (Pret Pl P2) => influ_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => influ_ + "yeron" ; --# notpresent + VP (Fut Ind Sg P1) => influ_ + "iré" ; --# notpresent + VP (Fut Ind Sg P2) => influ_ + "irás" ; --# notpresent + VP (Fut Ind Sg P3) => influ_ + "irá" ; --# notpresent + VP (Fut Ind Pl P1) => influ_ + "iremos" ; --# notpresent + VP (Fut Ind Pl P2) => influ_ + "iréis" ; --# notpresent + VP (Fut Ind Pl P3) => influ_ + "irán" ; --# notpresent + VP (Fut Subj Sg P1) => influ_ + "yere" ; --# notpresent + VP (Fut Subj Sg P2) => influ_ + "yeres" ; --# notpresent + VP (Fut Subj Sg P3) => influ_ + "yere" ; --# notpresent + VP (Fut Subj Pl P1) => influ_ + "yéremos" ; --# notpresent + VP (Fut Subj Pl P2) => influ_ + "yereis" ; --# notpresent + VP (Fut Subj Pl P3) => influ_ + "yeren" ; --# notpresent + VP (Cond Sg P1) => influ_ + "iría" ; --# notpresent + VP (Cond Sg P2) => influ_ + "irías" ; --# notpresent + VP (Cond Sg P3) => influ_ + "iría" ; --# notpresent + VP (Cond Pl P1) => influ_ + "iríamos" ; --# notpresent + VP (Cond Pl P2) => influ_ + "iríais" ; --# notpresent + VP (Cond Pl P3) => influ_ + "irían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => influ_ + "ye" ; VP (Imp Sg P3) => influ_ + "ya" ; @@ -3135,42 +3204,42 @@ oper ir_46 : Str -> Verbum = \ir -> VP (Pres Subj Pl P1) => x_ + "vayamos" ; VP (Pres Subj Pl P2) => x_ + "vayáis" ; VP (Pres Subj Pl P3) => x_ + "vayan" ; - VP (Impf Ind Sg P1) => x_ + "iba" ; - VP (Impf Ind Sg P2) => x_ + "ibas" ; - VP (Impf Ind Sg P3) => x_ + "iba" ; - VP (Impf Ind Pl P1) => x_ + "íbamos" ; - VP (Impf Ind Pl P2) => x_ + "ibais" ; - VP (Impf Ind Pl P3) => x_ + "iban" ; - VP (Impf Subj Sg P1) => variants {x_ + "fuera" ; x_ + "fuese"} ; - VP (Impf Subj Sg P2) => variants {x_ + "fueras" ; x_ + "fueses"} ; - VP (Impf Subj Sg P3) => variants {x_ + "fuera" ; x_ + "fuese"} ; - VP (Impf Subj Pl P1) => variants {x_ + "fuéramos" ; x_ + "fuésemos"} ; - VP (Impf Subj Pl P2) => variants {x_ + "fuerais" ; x_ + "fueseis"} ; - VP (Impf Subj Pl P3) => variants {x_ + "fueran" ; x_ + "fuesen"} ; - VP (Pret Sg P1) => x_ + "fui" ; - VP (Pret Sg P2) => x_ + "fuiste" ; - VP (Pret Sg P3) => x_ + "fue" ; - VP (Pret Pl P1) => x_ + "fuimos" ; - VP (Pret Pl P2) => x_ + "fuisteis" ; - VP (Pret Pl P3) => x_ + "fueron" ; - VP (Fut Ind Sg P1) => x_ + "iré" ; - VP (Fut Ind Sg P2) => x_ + "irás" ; - VP (Fut Ind Sg P3) => x_ + "irá" ; - VP (Fut Ind Pl P1) => x_ + "iremos" ; - VP (Fut Ind Pl P2) => x_ + "iréis" ; - VP (Fut Ind Pl P3) => x_ + "irán" ; - VP (Fut Subj Sg P1) => x_ + "fuere" ; - VP (Fut Subj Sg P2) => x_ + "fueres" ; - VP (Fut Subj Sg P3) => x_ + "fuere" ; - VP (Fut Subj Pl P1) => x_ + "fuéremos" ; - VP (Fut Subj Pl P2) => x_ + "fuereis" ; - VP (Fut Subj Pl P3) => x_ + "fueren" ; - VP (Cond Sg P1) => x_ + "iría" ; - VP (Cond Sg P2) => x_ + "irías" ; - VP (Cond Sg P3) => x_ + "iría" ; - VP (Cond Pl P1) => x_ + "iríamos" ; - VP (Cond Pl P2) => x_ + "iríais" ; - VP (Cond Pl P3) => x_ + "irían" ; + VP (Impf Ind Sg P1) => x_ + "iba" ; --# notpresent + VP (Impf Ind Sg P2) => x_ + "ibas" ; --# notpresent + VP (Impf Ind Sg P3) => x_ + "iba" ; --# notpresent + VP (Impf Ind Pl P1) => x_ + "íbamos" ; --# notpresent + VP (Impf Ind Pl P2) => x_ + "ibais" ; --# notpresent + VP (Impf Ind Pl P3) => x_ + "iban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {x_ + "fuera" ; x_ + "fuese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {x_ + "fueras" ; x_ + "fueses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {x_ + "fuera" ; x_ + "fuese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {x_ + "fuéramos" ; x_ + "fuésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {x_ + "fuerais" ; x_ + "fueseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {x_ + "fueran" ; x_ + "fuesen"} ; --# notpresent + VP (Pret Sg P1) => x_ + "fui" ; --# notpresent + VP (Pret Sg P2) => x_ + "fuiste" ; --# notpresent + VP (Pret Sg P3) => x_ + "fue" ; --# notpresent + VP (Pret Pl P1) => x_ + "fuimos" ; --# notpresent + VP (Pret Pl P2) => x_ + "fuisteis" ; --# notpresent + VP (Pret Pl P3) => x_ + "fueron" ; --# notpresent + VP (Fut Ind Sg P1) => x_ + "iré" ; --# notpresent + VP (Fut Ind Sg P2) => x_ + "irás" ; --# notpresent + VP (Fut Ind Sg P3) => x_ + "irá" ; --# notpresent + VP (Fut Ind Pl P1) => x_ + "iremos" ; --# notpresent + VP (Fut Ind Pl P2) => x_ + "iréis" ; --# notpresent + VP (Fut Ind Pl P3) => x_ + "irán" ; --# notpresent + VP (Fut Subj Sg P1) => x_ + "fuere" ; --# notpresent + VP (Fut Subj Sg P2) => x_ + "fueres" ; --# notpresent + VP (Fut Subj Sg P3) => x_ + "fuere" ; --# notpresent + VP (Fut Subj Pl P1) => x_ + "fuéremos" ; --# notpresent + VP (Fut Subj Pl P2) => x_ + "fuereis" ; --# notpresent + VP (Fut Subj Pl P3) => x_ + "fueren" ; --# notpresent + VP (Cond Sg P1) => x_ + "iría" ; --# notpresent + VP (Cond Sg P2) => x_ + "irías" ; --# notpresent + VP (Cond Sg P3) => x_ + "iría" ; --# notpresent + VP (Cond Pl P1) => x_ + "iríamos" ; --# notpresent + VP (Cond Pl P2) => x_ + "iríais" ; --# notpresent + VP (Cond Pl P3) => x_ + "irían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => x_ + "ve" ; VP (Imp Sg P3) => x_ + "vaya" ; @@ -3201,42 +3270,42 @@ oper jugar_47 : Str -> Verbum = \jugar -> VP (Pres Subj Pl P1) => ju_ + "guemos" ; VP (Pres Subj Pl P2) => ju_ + "guéis" ; VP (Pres Subj Pl P3) => ju_ + "eguen" ; - VP (Impf Ind Sg P1) => ju_ + "gaba" ; - VP (Impf Ind Sg P2) => ju_ + "gabas" ; - VP (Impf Ind Sg P3) => ju_ + "gaba" ; - VP (Impf Ind Pl P1) => ju_ + "gábamos" ; - VP (Impf Ind Pl P2) => ju_ + "gabais" ; - VP (Impf Ind Pl P3) => ju_ + "gaban" ; - VP (Impf Subj Sg P1) => variants {ju_ + "gara" ; ju_ + "gase"} ; - VP (Impf Subj Sg P2) => variants {ju_ + "garas" ; ju_ + "gases"} ; - VP (Impf Subj Sg P3) => variants {ju_ + "gara" ; ju_ + "gase"} ; - VP (Impf Subj Pl P1) => variants {ju_ + "gáramos" ; ju_ + "gásemos"} ; - VP (Impf Subj Pl P2) => variants {ju_ + "garais" ; ju_ + "gaseis"} ; - VP (Impf Subj Pl P3) => variants {ju_ + "garan" ; ju_ + "gasen"} ; - VP (Pret Sg P1) => ju_ + "gué" ; - VP (Pret Sg P2) => ju_ + "gaste" ; - VP (Pret Sg P3) => ju_ + "gó" ; - VP (Pret Pl P1) => ju_ + "gamos" ; - VP (Pret Pl P2) => ju_ + "gasteis" ; - VP (Pret Pl P3) => ju_ + "garon" ; - VP (Fut Ind Sg P1) => ju_ + "garé" ; - VP (Fut Ind Sg P2) => ju_ + "garás" ; - VP (Fut Ind Sg P3) => ju_ + "gará" ; - VP (Fut Ind Pl P1) => ju_ + "garemos" ; - VP (Fut Ind Pl P2) => ju_ + "garéis" ; - VP (Fut Ind Pl P3) => ju_ + "garán" ; - VP (Fut Subj Sg P1) => ju_ + "gare" ; - VP (Fut Subj Sg P2) => ju_ + "gares" ; - VP (Fut Subj Sg P3) => ju_ + "gare" ; - VP (Fut Subj Pl P1) => ju_ + "gáremos" ; - VP (Fut Subj Pl P2) => ju_ + "gareis" ; - VP (Fut Subj Pl P3) => ju_ + "garen" ; - VP (Cond Sg P1) => ju_ + "garía" ; - VP (Cond Sg P2) => ju_ + "garías" ; - VP (Cond Sg P3) => ju_ + "garía" ; - VP (Cond Pl P1) => ju_ + "garíamos" ; - VP (Cond Pl P2) => ju_ + "garíais" ; - VP (Cond Pl P3) => ju_ + "garían" ; + VP (Impf Ind Sg P1) => ju_ + "gaba" ; --# notpresent + VP (Impf Ind Sg P2) => ju_ + "gabas" ; --# notpresent + VP (Impf Ind Sg P3) => ju_ + "gaba" ; --# notpresent + VP (Impf Ind Pl P1) => ju_ + "gábamos" ; --# notpresent + VP (Impf Ind Pl P2) => ju_ + "gabais" ; --# notpresent + VP (Impf Ind Pl P3) => ju_ + "gaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {ju_ + "gara" ; ju_ + "gase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {ju_ + "garas" ; ju_ + "gases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {ju_ + "gara" ; ju_ + "gase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {ju_ + "gáramos" ; ju_ + "gásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {ju_ + "garais" ; ju_ + "gaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {ju_ + "garan" ; ju_ + "gasen"} ; --# notpresent + VP (Pret Sg P1) => ju_ + "gué" ; --# notpresent + VP (Pret Sg P2) => ju_ + "gaste" ; --# notpresent + VP (Pret Sg P3) => ju_ + "gó" ; --# notpresent + VP (Pret Pl P1) => ju_ + "gamos" ; --# notpresent + VP (Pret Pl P2) => ju_ + "gasteis" ; --# notpresent + VP (Pret Pl P3) => ju_ + "garon" ; --# notpresent + VP (Fut Ind Sg P1) => ju_ + "garé" ; --# notpresent + VP (Fut Ind Sg P2) => ju_ + "garás" ; --# notpresent + VP (Fut Ind Sg P3) => ju_ + "gará" ; --# notpresent + VP (Fut Ind Pl P1) => ju_ + "garemos" ; --# notpresent + VP (Fut Ind Pl P2) => ju_ + "garéis" ; --# notpresent + VP (Fut Ind Pl P3) => ju_ + "garán" ; --# notpresent + VP (Fut Subj Sg P1) => ju_ + "gare" ; --# notpresent + VP (Fut Subj Sg P2) => ju_ + "gares" ; --# notpresent + VP (Fut Subj Sg P3) => ju_ + "gare" ; --# notpresent + VP (Fut Subj Pl P1) => ju_ + "gáremos" ; --# notpresent + VP (Fut Subj Pl P2) => ju_ + "gareis" ; --# notpresent + VP (Fut Subj Pl P3) => ju_ + "garen" ; --# notpresent + VP (Cond Sg P1) => ju_ + "garía" ; --# notpresent + VP (Cond Sg P2) => ju_ + "garías" ; --# notpresent + VP (Cond Sg P3) => ju_ + "garía" ; --# notpresent + VP (Cond Pl P1) => ju_ + "garíamos" ; --# notpresent + VP (Cond Pl P2) => ju_ + "garíais" ; --# notpresent + VP (Cond Pl P3) => ju_ + "garían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => ju_ + "ega" ; VP (Imp Sg P3) => ju_ + "egue" ; @@ -3267,42 +3336,42 @@ oper lucir_48 : Str -> Verbum = \lucir -> VP (Pres Subj Pl P1) => lu_ + "zcamos" ; VP (Pres Subj Pl P2) => lu_ + "zcáis" ; VP (Pres Subj Pl P3) => lu_ + "zcan" ; - VP (Impf Ind Sg P1) => lu_ + "cía" ; - VP (Impf Ind Sg P2) => lu_ + "cías" ; - VP (Impf Ind Sg P3) => lu_ + "cía" ; - VP (Impf Ind Pl P1) => lu_ + "cíamos" ; - VP (Impf Ind Pl P2) => lu_ + "cíais" ; - VP (Impf Ind Pl P3) => lu_ + "cían" ; - VP (Impf Subj Sg P1) => variants {lu_ + "ciera" ; lu_ + "ciese"} ; - VP (Impf Subj Sg P2) => variants {lu_ + "cieras" ; lu_ + "cieses"} ; - VP (Impf Subj Sg P3) => variants {lu_ + "ciera" ; lu_ + "ciese"} ; - VP (Impf Subj Pl P1) => variants {lu_ + "ciéramos" ; lu_ + "ciésemos"} ; - VP (Impf Subj Pl P2) => variants {lu_ + "cierais" ; lu_ + "cieseis"} ; - VP (Impf Subj Pl P3) => variants {lu_ + "cieran" ; lu_ + "ciesen"} ; - VP (Pret Sg P1) => lu_ + "cí" ; - VP (Pret Sg P2) => lu_ + "ciste" ; - VP (Pret Sg P3) => lu_ + "ció" ; - VP (Pret Pl P1) => lu_ + "cimos" ; - VP (Pret Pl P2) => lu_ + "cisteis" ; - VP (Pret Pl P3) => lu_ + "cieron" ; - VP (Fut Ind Sg P1) => lu_ + "ciré" ; - VP (Fut Ind Sg P2) => lu_ + "cirás" ; - VP (Fut Ind Sg P3) => lu_ + "cirá" ; - VP (Fut Ind Pl P1) => lu_ + "ciremos" ; - VP (Fut Ind Pl P2) => lu_ + "ciréis" ; - VP (Fut Ind Pl P3) => lu_ + "cirán" ; - VP (Fut Subj Sg P1) => lu_ + "ciere" ; - VP (Fut Subj Sg P2) => lu_ + "cieres" ; - VP (Fut Subj Sg P3) => lu_ + "ciere" ; - VP (Fut Subj Pl P1) => lu_ + "ciéremos" ; - VP (Fut Subj Pl P2) => lu_ + "ciereis" ; - VP (Fut Subj Pl P3) => lu_ + "cieren" ; - VP (Cond Sg P1) => lu_ + "ciría" ; - VP (Cond Sg P2) => lu_ + "cirías" ; - VP (Cond Sg P3) => lu_ + "ciría" ; - VP (Cond Pl P1) => lu_ + "ciríamos" ; - VP (Cond Pl P2) => lu_ + "ciríais" ; - VP (Cond Pl P3) => lu_ + "cirían" ; + VP (Impf Ind Sg P1) => lu_ + "cía" ; --# notpresent + VP (Impf Ind Sg P2) => lu_ + "cías" ; --# notpresent + VP (Impf Ind Sg P3) => lu_ + "cía" ; --# notpresent + VP (Impf Ind Pl P1) => lu_ + "cíamos" ; --# notpresent + VP (Impf Ind Pl P2) => lu_ + "cíais" ; --# notpresent + VP (Impf Ind Pl P3) => lu_ + "cían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {lu_ + "ciera" ; lu_ + "ciese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {lu_ + "cieras" ; lu_ + "cieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {lu_ + "ciera" ; lu_ + "ciese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {lu_ + "ciéramos" ; lu_ + "ciésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {lu_ + "cierais" ; lu_ + "cieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {lu_ + "cieran" ; lu_ + "ciesen"} ; --# notpresent + VP (Pret Sg P1) => lu_ + "cí" ; --# notpresent + VP (Pret Sg P2) => lu_ + "ciste" ; --# notpresent + VP (Pret Sg P3) => lu_ + "ció" ; --# notpresent + VP (Pret Pl P1) => lu_ + "cimos" ; --# notpresent + VP (Pret Pl P2) => lu_ + "cisteis" ; --# notpresent + VP (Pret Pl P3) => lu_ + "cieron" ; --# notpresent + VP (Fut Ind Sg P1) => lu_ + "ciré" ; --# notpresent + VP (Fut Ind Sg P2) => lu_ + "cirás" ; --# notpresent + VP (Fut Ind Sg P3) => lu_ + "cirá" ; --# notpresent + VP (Fut Ind Pl P1) => lu_ + "ciremos" ; --# notpresent + VP (Fut Ind Pl P2) => lu_ + "ciréis" ; --# notpresent + VP (Fut Ind Pl P3) => lu_ + "cirán" ; --# notpresent + VP (Fut Subj Sg P1) => lu_ + "ciere" ; --# notpresent + VP (Fut Subj Sg P2) => lu_ + "cieres" ; --# notpresent + VP (Fut Subj Sg P3) => lu_ + "ciere" ; --# notpresent + VP (Fut Subj Pl P1) => lu_ + "ciéremos" ; --# notpresent + VP (Fut Subj Pl P2) => lu_ + "ciereis" ; --# notpresent + VP (Fut Subj Pl P3) => lu_ + "cieren" ; --# notpresent + VP (Cond Sg P1) => lu_ + "ciría" ; --# notpresent + VP (Cond Sg P2) => lu_ + "cirías" ; --# notpresent + VP (Cond Sg P3) => lu_ + "ciría" ; --# notpresent + VP (Cond Pl P1) => lu_ + "ciríamos" ; --# notpresent + VP (Cond Pl P2) => lu_ + "ciríais" ; --# notpresent + VP (Cond Pl P3) => lu_ + "cirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => lu_ + "ce" ; VP (Imp Sg P3) => lu_ + "zca" ; @@ -3333,42 +3402,42 @@ oper mecer_49 : Str -> Verbum = \mecer -> VP (Pres Subj Pl P1) => me_ + "zamos" ; VP (Pres Subj Pl P2) => me_ + "záis" ; VP (Pres Subj Pl P3) => me_ + "zan" ; - VP (Impf Ind Sg P1) => me_ + "cía" ; - VP (Impf Ind Sg P2) => me_ + "cías" ; - VP (Impf Ind Sg P3) => me_ + "cía" ; - VP (Impf Ind Pl P1) => me_ + "cíamos" ; - VP (Impf Ind Pl P2) => me_ + "cíais" ; - VP (Impf Ind Pl P3) => me_ + "cían" ; - VP (Impf Subj Sg P1) => variants {me_ + "ciera" ; me_ + "ciese"} ; - VP (Impf Subj Sg P2) => variants {me_ + "cieras" ; me_ + "cieses"} ; - VP (Impf Subj Sg P3) => variants {me_ + "ciera" ; me_ + "ciese"} ; - VP (Impf Subj Pl P1) => variants {me_ + "ciéramos" ; me_ + "ciésemos"} ; - VP (Impf Subj Pl P2) => variants {me_ + "cierais" ; me_ + "cieseis"} ; - VP (Impf Subj Pl P3) => variants {me_ + "cieran" ; me_ + "ciesen"} ; - VP (Pret Sg P1) => me_ + "cí" ; - VP (Pret Sg P2) => me_ + "ciste" ; - VP (Pret Sg P3) => me_ + "ció" ; - VP (Pret Pl P1) => me_ + "cimos" ; - VP (Pret Pl P2) => me_ + "cisteis" ; - VP (Pret Pl P3) => me_ + "cieron" ; - VP (Fut Ind Sg P1) => me_ + "ceré" ; - VP (Fut Ind Sg P2) => me_ + "cerás" ; - VP (Fut Ind Sg P3) => me_ + "cerá" ; - VP (Fut Ind Pl P1) => me_ + "ceremos" ; - VP (Fut Ind Pl P2) => me_ + "ceréis" ; - VP (Fut Ind Pl P3) => me_ + "cerán" ; - VP (Fut Subj Sg P1) => me_ + "ciere" ; - VP (Fut Subj Sg P2) => me_ + "cieres" ; - VP (Fut Subj Sg P3) => me_ + "ciere" ; - VP (Fut Subj Pl P1) => me_ + "ciéremos" ; - VP (Fut Subj Pl P2) => me_ + "ciereis" ; - VP (Fut Subj Pl P3) => me_ + "cieren" ; - VP (Cond Sg P1) => me_ + "cería" ; - VP (Cond Sg P2) => me_ + "cerías" ; - VP (Cond Sg P3) => me_ + "cería" ; - VP (Cond Pl P1) => me_ + "ceríamos" ; - VP (Cond Pl P2) => me_ + "ceríais" ; - VP (Cond Pl P3) => me_ + "cerían" ; + VP (Impf Ind Sg P1) => me_ + "cía" ; --# notpresent + VP (Impf Ind Sg P2) => me_ + "cías" ; --# notpresent + VP (Impf Ind Sg P3) => me_ + "cía" ; --# notpresent + VP (Impf Ind Pl P1) => me_ + "cíamos" ; --# notpresent + VP (Impf Ind Pl P2) => me_ + "cíais" ; --# notpresent + VP (Impf Ind Pl P3) => me_ + "cían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {me_ + "ciera" ; me_ + "ciese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {me_ + "cieras" ; me_ + "cieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {me_ + "ciera" ; me_ + "ciese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {me_ + "ciéramos" ; me_ + "ciésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {me_ + "cierais" ; me_ + "cieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {me_ + "cieran" ; me_ + "ciesen"} ; --# notpresent + VP (Pret Sg P1) => me_ + "cí" ; --# notpresent + VP (Pret Sg P2) => me_ + "ciste" ; --# notpresent + VP (Pret Sg P3) => me_ + "ció" ; --# notpresent + VP (Pret Pl P1) => me_ + "cimos" ; --# notpresent + VP (Pret Pl P2) => me_ + "cisteis" ; --# notpresent + VP (Pret Pl P3) => me_ + "cieron" ; --# notpresent + VP (Fut Ind Sg P1) => me_ + "ceré" ; --# notpresent + VP (Fut Ind Sg P2) => me_ + "cerás" ; --# notpresent + VP (Fut Ind Sg P3) => me_ + "cerá" ; --# notpresent + VP (Fut Ind Pl P1) => me_ + "ceremos" ; --# notpresent + VP (Fut Ind Pl P2) => me_ + "ceréis" ; --# notpresent + VP (Fut Ind Pl P3) => me_ + "cerán" ; --# notpresent + VP (Fut Subj Sg P1) => me_ + "ciere" ; --# notpresent + VP (Fut Subj Sg P2) => me_ + "cieres" ; --# notpresent + VP (Fut Subj Sg P3) => me_ + "ciere" ; --# notpresent + VP (Fut Subj Pl P1) => me_ + "ciéremos" ; --# notpresent + VP (Fut Subj Pl P2) => me_ + "ciereis" ; --# notpresent + VP (Fut Subj Pl P3) => me_ + "cieren" ; --# notpresent + VP (Cond Sg P1) => me_ + "cería" ; --# notpresent + VP (Cond Sg P2) => me_ + "cerías" ; --# notpresent + VP (Cond Sg P3) => me_ + "cería" ; --# notpresent + VP (Cond Pl P1) => me_ + "ceríamos" ; --# notpresent + VP (Cond Pl P2) => me_ + "ceríais" ; --# notpresent + VP (Cond Pl P3) => me_ + "cerían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => me_ + "ce" ; VP (Imp Sg P3) => me_ + "za" ; @@ -3399,42 +3468,42 @@ oper mover_50 : Str -> Verbum = \mover -> VP (Pres Subj Pl P1) => m_ + "ovamos" ; VP (Pres Subj Pl P2) => m_ + "ováis" ; VP (Pres Subj Pl P3) => m_ + "uevan" ; - VP (Impf Ind Sg P1) => m_ + "ovía" ; - VP (Impf Ind Sg P2) => m_ + "ovías" ; - VP (Impf Ind Sg P3) => m_ + "ovía" ; - VP (Impf Ind Pl P1) => m_ + "ovíamos" ; - VP (Impf Ind Pl P2) => m_ + "ovíais" ; - VP (Impf Ind Pl P3) => m_ + "ovían" ; - VP (Impf Subj Sg P1) => variants {m_ + "oviera" ; m_ + "oviese"} ; - VP (Impf Subj Sg P2) => variants {m_ + "ovieras" ; m_ + "ovieses"} ; - VP (Impf Subj Sg P3) => variants {m_ + "oviera" ; m_ + "oviese"} ; - VP (Impf Subj Pl P1) => variants {m_ + "oviéramos" ; m_ + "oviésemos"} ; - VP (Impf Subj Pl P2) => variants {m_ + "ovierais" ; m_ + "ovieseis"} ; - VP (Impf Subj Pl P3) => variants {m_ + "ovieran" ; m_ + "oviesen"} ; - VP (Pret Sg P1) => m_ + "oví" ; - VP (Pret Sg P2) => m_ + "oviste" ; - VP (Pret Sg P3) => m_ + "ovió" ; - VP (Pret Pl P1) => m_ + "ovimos" ; - VP (Pret Pl P2) => m_ + "ovisteis" ; - VP (Pret Pl P3) => m_ + "ovieron" ; - VP (Fut Ind Sg P1) => m_ + "overé" ; - VP (Fut Ind Sg P2) => m_ + "overás" ; - VP (Fut Ind Sg P3) => m_ + "overá" ; - VP (Fut Ind Pl P1) => m_ + "overemos" ; - VP (Fut Ind Pl P2) => m_ + "overéis" ; - VP (Fut Ind Pl P3) => m_ + "overán" ; - VP (Fut Subj Sg P1) => m_ + "oviere" ; - VP (Fut Subj Sg P2) => m_ + "ovieres" ; - VP (Fut Subj Sg P3) => m_ + "oviere" ; - VP (Fut Subj Pl P1) => m_ + "oviéremos" ; - VP (Fut Subj Pl P2) => m_ + "oviereis" ; - VP (Fut Subj Pl P3) => m_ + "ovieren" ; - VP (Cond Sg P1) => m_ + "overía" ; - VP (Cond Sg P2) => m_ + "overías" ; - VP (Cond Sg P3) => m_ + "overía" ; - VP (Cond Pl P1) => m_ + "overíamos" ; - VP (Cond Pl P2) => m_ + "overíais" ; - VP (Cond Pl P3) => m_ + "overían" ; + VP (Impf Ind Sg P1) => m_ + "ovía" ; --# notpresent + VP (Impf Ind Sg P2) => m_ + "ovías" ; --# notpresent + VP (Impf Ind Sg P3) => m_ + "ovía" ; --# notpresent + VP (Impf Ind Pl P1) => m_ + "ovíamos" ; --# notpresent + VP (Impf Ind Pl P2) => m_ + "ovíais" ; --# notpresent + VP (Impf Ind Pl P3) => m_ + "ovían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {m_ + "oviera" ; m_ + "oviese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {m_ + "ovieras" ; m_ + "ovieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {m_ + "oviera" ; m_ + "oviese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {m_ + "oviéramos" ; m_ + "oviésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {m_ + "ovierais" ; m_ + "ovieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {m_ + "ovieran" ; m_ + "oviesen"} ; --# notpresent + VP (Pret Sg P1) => m_ + "oví" ; --# notpresent + VP (Pret Sg P2) => m_ + "oviste" ; --# notpresent + VP (Pret Sg P3) => m_ + "ovió" ; --# notpresent + VP (Pret Pl P1) => m_ + "ovimos" ; --# notpresent + VP (Pret Pl P2) => m_ + "ovisteis" ; --# notpresent + VP (Pret Pl P3) => m_ + "ovieron" ; --# notpresent + VP (Fut Ind Sg P1) => m_ + "overé" ; --# notpresent + VP (Fut Ind Sg P2) => m_ + "overás" ; --# notpresent + VP (Fut Ind Sg P3) => m_ + "overá" ; --# notpresent + VP (Fut Ind Pl P1) => m_ + "overemos" ; --# notpresent + VP (Fut Ind Pl P2) => m_ + "overéis" ; --# notpresent + VP (Fut Ind Pl P3) => m_ + "overán" ; --# notpresent + VP (Fut Subj Sg P1) => m_ + "oviere" ; --# notpresent + VP (Fut Subj Sg P2) => m_ + "ovieres" ; --# notpresent + VP (Fut Subj Sg P3) => m_ + "oviere" ; --# notpresent + VP (Fut Subj Pl P1) => m_ + "oviéremos" ; --# notpresent + VP (Fut Subj Pl P2) => m_ + "oviereis" ; --# notpresent + VP (Fut Subj Pl P3) => m_ + "ovieren" ; --# notpresent + VP (Cond Sg P1) => m_ + "overía" ; --# notpresent + VP (Cond Sg P2) => m_ + "overías" ; --# notpresent + VP (Cond Sg P3) => m_ + "overía" ; --# notpresent + VP (Cond Pl P1) => m_ + "overíamos" ; --# notpresent + VP (Cond Pl P2) => m_ + "overíais" ; --# notpresent + VP (Cond Pl P3) => m_ + "overían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => m_ + "ueve" ; VP (Imp Sg P3) => m_ + "ueva" ; @@ -3465,42 +3534,42 @@ oper morder_50b : Str -> Verbum = \morder -> VP (Pres Subj Pl P1) => m_ + "ordamos" ; VP (Pres Subj Pl P2) => m_ + "ordáis" ; VP (Pres Subj Pl P3) => m_ + "uerdan" ; - VP (Impf Ind Sg P1) => m_ + "ordía" ; - VP (Impf Ind Sg P2) => m_ + "ordías" ; - VP (Impf Ind Sg P3) => m_ + "ordía" ; - VP (Impf Ind Pl P1) => m_ + "ordíamos" ; - VP (Impf Ind Pl P2) => m_ + "ordíais" ; - VP (Impf Ind Pl P3) => m_ + "ordían" ; - VP (Impf Subj Sg P1) => variants {m_ + "ordiera" ; m_ + "ordiese"} ; - VP (Impf Subj Sg P2) => variants {m_ + "ordieras" ; m_ + "ordieses"} ; - VP (Impf Subj Sg P3) => variants {m_ + "ordiera" ; m_ + "ordiese"} ; - VP (Impf Subj Pl P1) => variants {m_ + "ordiéramos" ; m_ + "ordiésemos"} ; - VP (Impf Subj Pl P2) => variants {m_ + "ordierais" ; m_ + "ordieseis"} ; - VP (Impf Subj Pl P3) => variants {m_ + "ordieran" ; m_ + "ordiesen"} ; - VP (Pret Sg P1) => m_ + "ordí" ; - VP (Pret Sg P2) => m_ + "ordiste" ; - VP (Pret Sg P3) => m_ + "ordió" ; - VP (Pret Pl P1) => m_ + "ordimos" ; - VP (Pret Pl P2) => m_ + "ordisteis" ; - VP (Pret Pl P3) => m_ + "ordieron" ; - VP (Fut Ind Sg P1) => m_ + "orderé" ; - VP (Fut Ind Sg P2) => m_ + "orderás" ; - VP (Fut Ind Sg P3) => m_ + "orderá" ; - VP (Fut Ind Pl P1) => m_ + "orderemos" ; - VP (Fut Ind Pl P2) => m_ + "orderéis" ; - VP (Fut Ind Pl P3) => m_ + "orderán" ; - VP (Fut Subj Sg P1) => m_ + "ordiere" ; - VP (Fut Subj Sg P2) => m_ + "ordieres" ; - VP (Fut Subj Sg P3) => m_ + "ordiere" ; - VP (Fut Subj Pl P1) => m_ + "ordiéremos" ; - VP (Fut Subj Pl P2) => m_ + "ordiereis" ; - VP (Fut Subj Pl P3) => m_ + "ordieren" ; - VP (Cond Sg P1) => m_ + "ordería" ; - VP (Cond Sg P2) => m_ + "orderías" ; - VP (Cond Sg P3) => m_ + "ordería" ; - VP (Cond Pl P1) => m_ + "orderíamos" ; - VP (Cond Pl P2) => m_ + "orderíais" ; - VP (Cond Pl P3) => m_ + "orderían" ; + VP (Impf Ind Sg P1) => m_ + "ordía" ; --# notpresent + VP (Impf Ind Sg P2) => m_ + "ordías" ; --# notpresent + VP (Impf Ind Sg P3) => m_ + "ordía" ; --# notpresent + VP (Impf Ind Pl P1) => m_ + "ordíamos" ; --# notpresent + VP (Impf Ind Pl P2) => m_ + "ordíais" ; --# notpresent + VP (Impf Ind Pl P3) => m_ + "ordían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {m_ + "ordiera" ; m_ + "ordiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {m_ + "ordieras" ; m_ + "ordieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {m_ + "ordiera" ; m_ + "ordiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {m_ + "ordiéramos" ; m_ + "ordiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {m_ + "ordierais" ; m_ + "ordieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {m_ + "ordieran" ; m_ + "ordiesen"} ; --# notpresent + VP (Pret Sg P1) => m_ + "ordí" ; --# notpresent + VP (Pret Sg P2) => m_ + "ordiste" ; --# notpresent + VP (Pret Sg P3) => m_ + "ordió" ; --# notpresent + VP (Pret Pl P1) => m_ + "ordimos" ; --# notpresent + VP (Pret Pl P2) => m_ + "ordisteis" ; --# notpresent + VP (Pret Pl P3) => m_ + "ordieron" ; --# notpresent + VP (Fut Ind Sg P1) => m_ + "orderé" ; --# notpresent + VP (Fut Ind Sg P2) => m_ + "orderás" ; --# notpresent + VP (Fut Ind Sg P3) => m_ + "orderá" ; --# notpresent + VP (Fut Ind Pl P1) => m_ + "orderemos" ; --# notpresent + VP (Fut Ind Pl P2) => m_ + "orderéis" ; --# notpresent + VP (Fut Ind Pl P3) => m_ + "orderán" ; --# notpresent + VP (Fut Subj Sg P1) => m_ + "ordiere" ; --# notpresent + VP (Fut Subj Sg P2) => m_ + "ordieres" ; --# notpresent + VP (Fut Subj Sg P3) => m_ + "ordiere" ; --# notpresent + VP (Fut Subj Pl P1) => m_ + "ordiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => m_ + "ordiereis" ; --# notpresent + VP (Fut Subj Pl P3) => m_ + "ordieren" ; --# notpresent + VP (Cond Sg P1) => m_ + "ordería" ; --# notpresent + VP (Cond Sg P2) => m_ + "orderías" ; --# notpresent + VP (Cond Sg P3) => m_ + "ordería" ; --# notpresent + VP (Cond Pl P1) => m_ + "orderíamos" ; --# notpresent + VP (Cond Pl P2) => m_ + "orderíais" ; --# notpresent + VP (Cond Pl P3) => m_ + "orderían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => m_ + "uerde" ; VP (Imp Sg P3) => m_ + "uerda" ; @@ -3531,42 +3600,42 @@ oper oler_52 : Str -> Verbum = \oler -> VP (Pres Subj Pl P1) => x_ + "olamos" ; VP (Pres Subj Pl P2) => x_ + "oláis" ; VP (Pres Subj Pl P3) => x_ + "huelan" ; - VP (Impf Ind Sg P1) => x_ + "olía" ; - VP (Impf Ind Sg P2) => x_ + "olías" ; - VP (Impf Ind Sg P3) => x_ + "olía" ; - VP (Impf Ind Pl P1) => x_ + "olíamos" ; - VP (Impf Ind Pl P2) => x_ + "olíais" ; - VP (Impf Ind Pl P3) => x_ + "olían" ; - VP (Impf Subj Sg P1) => variants {x_ + "oliera" ; x_ + "oliese"} ; - VP (Impf Subj Sg P2) => variants {x_ + "olieras" ; x_ + "olieses"} ; - VP (Impf Subj Sg P3) => variants {x_ + "oliera" ; x_ + "oliese"} ; - VP (Impf Subj Pl P1) => variants {x_ + "oliéramos" ; x_ + "oliésemos"} ; - VP (Impf Subj Pl P2) => variants {x_ + "olierais" ; x_ + "olieseis"} ; - VP (Impf Subj Pl P3) => variants {x_ + "olieran" ; x_ + "oliesen"} ; - VP (Pret Sg P1) => x_ + "olí" ; - VP (Pret Sg P2) => x_ + "oliste" ; - VP (Pret Sg P3) => x_ + "olió" ; - VP (Pret Pl P1) => x_ + "olimos" ; - VP (Pret Pl P2) => x_ + "olisteis" ; - VP (Pret Pl P3) => x_ + "olieron" ; - VP (Fut Ind Sg P1) => x_ + "oleré" ; - VP (Fut Ind Sg P2) => x_ + "olerás" ; - VP (Fut Ind Sg P3) => x_ + "olerá" ; - VP (Fut Ind Pl P1) => x_ + "oleremos" ; - VP (Fut Ind Pl P2) => x_ + "oleréis" ; - VP (Fut Ind Pl P3) => x_ + "olerán" ; - VP (Fut Subj Sg P1) => x_ + "oliere" ; - VP (Fut Subj Sg P2) => x_ + "olieres" ; - VP (Fut Subj Sg P3) => x_ + "oliere" ; - VP (Fut Subj Pl P1) => x_ + "oliéremos" ; - VP (Fut Subj Pl P2) => x_ + "oliereis" ; - VP (Fut Subj Pl P3) => x_ + "olieren" ; - VP (Cond Sg P1) => x_ + "olería" ; - VP (Cond Sg P2) => x_ + "olerías" ; - VP (Cond Sg P3) => x_ + "olería" ; - VP (Cond Pl P1) => x_ + "oleríamos" ; - VP (Cond Pl P2) => x_ + "oleríais" ; - VP (Cond Pl P3) => x_ + "olerían" ; + VP (Impf Ind Sg P1) => x_ + "olía" ; --# notpresent + VP (Impf Ind Sg P2) => x_ + "olías" ; --# notpresent + VP (Impf Ind Sg P3) => x_ + "olía" ; --# notpresent + VP (Impf Ind Pl P1) => x_ + "olíamos" ; --# notpresent + VP (Impf Ind Pl P2) => x_ + "olíais" ; --# notpresent + VP (Impf Ind Pl P3) => x_ + "olían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {x_ + "oliera" ; x_ + "oliese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {x_ + "olieras" ; x_ + "olieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {x_ + "oliera" ; x_ + "oliese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {x_ + "oliéramos" ; x_ + "oliésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {x_ + "olierais" ; x_ + "olieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {x_ + "olieran" ; x_ + "oliesen"} ; --# notpresent + VP (Pret Sg P1) => x_ + "olí" ; --# notpresent + VP (Pret Sg P2) => x_ + "oliste" ; --# notpresent + VP (Pret Sg P3) => x_ + "olió" ; --# notpresent + VP (Pret Pl P1) => x_ + "olimos" ; --# notpresent + VP (Pret Pl P2) => x_ + "olisteis" ; --# notpresent + VP (Pret Pl P3) => x_ + "olieron" ; --# notpresent + VP (Fut Ind Sg P1) => x_ + "oleré" ; --# notpresent + VP (Fut Ind Sg P2) => x_ + "olerás" ; --# notpresent + VP (Fut Ind Sg P3) => x_ + "olerá" ; --# notpresent + VP (Fut Ind Pl P1) => x_ + "oleremos" ; --# notpresent + VP (Fut Ind Pl P2) => x_ + "oleréis" ; --# notpresent + VP (Fut Ind Pl P3) => x_ + "olerán" ; --# notpresent + VP (Fut Subj Sg P1) => x_ + "oliere" ; --# notpresent + VP (Fut Subj Sg P2) => x_ + "olieres" ; --# notpresent + VP (Fut Subj Sg P3) => x_ + "oliere" ; --# notpresent + VP (Fut Subj Pl P1) => x_ + "oliéremos" ; --# notpresent + VP (Fut Subj Pl P2) => x_ + "oliereis" ; --# notpresent + VP (Fut Subj Pl P3) => x_ + "olieren" ; --# notpresent + VP (Cond Sg P1) => x_ + "olería" ; --# notpresent + VP (Cond Sg P2) => x_ + "olerías" ; --# notpresent + VP (Cond Sg P3) => x_ + "olería" ; --# notpresent + VP (Cond Pl P1) => x_ + "oleríamos" ; --# notpresent + VP (Cond Pl P2) => x_ + "oleríais" ; --# notpresent + VP (Cond Pl P3) => x_ + "olerían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => x_ + "huele" ; VP (Imp Sg P3) => x_ + "huela" ; @@ -3597,42 +3666,42 @@ oper pagar_53 : Str -> Verbum = \pagar -> VP (Pres Subj Pl P1) => pag_ + "uemos" ; VP (Pres Subj Pl P2) => pag_ + "uéis" ; VP (Pres Subj Pl P3) => pag_ + "uen" ; - VP (Impf Ind Sg P1) => pag_ + "aba" ; - VP (Impf Ind Sg P2) => pag_ + "abas" ; - VP (Impf Ind Sg P3) => pag_ + "aba" ; - VP (Impf Ind Pl P1) => pag_ + "ábamos" ; - VP (Impf Ind Pl P2) => pag_ + "abais" ; - VP (Impf Ind Pl P3) => pag_ + "aban" ; - VP (Impf Subj Sg P1) => variants {pag_ + "ara" ; pag_ + "ase"} ; - VP (Impf Subj Sg P2) => variants {pag_ + "aras" ; pag_ + "ases"} ; - VP (Impf Subj Sg P3) => variants {pag_ + "ara" ; pag_ + "ase"} ; - VP (Impf Subj Pl P1) => variants {pag_ + "áramos" ; pag_ + "ásemos"} ; - VP (Impf Subj Pl P2) => variants {pag_ + "arais" ; pag_ + "aseis"} ; - VP (Impf Subj Pl P3) => variants {pag_ + "aran" ; pag_ + "asen"} ; - VP (Pret Sg P1) => pag_ + "ué" ; - VP (Pret Sg P2) => pag_ + "aste" ; - VP (Pret Sg P3) => pag_ + "ó" ; - VP (Pret Pl P1) => pag_ + "amos" ; - VP (Pret Pl P2) => pag_ + "asteis" ; - VP (Pret Pl P3) => pag_ + "aron" ; - VP (Fut Ind Sg P1) => pag_ + "aré" ; - VP (Fut Ind Sg P2) => pag_ + "arás" ; - VP (Fut Ind Sg P3) => pag_ + "ará" ; - VP (Fut Ind Pl P1) => pag_ + "aremos" ; - VP (Fut Ind Pl P2) => pag_ + "aréis" ; - VP (Fut Ind Pl P3) => pag_ + "arán" ; - VP (Fut Subj Sg P1) => pag_ + "are" ; - VP (Fut Subj Sg P2) => pag_ + "ares" ; - VP (Fut Subj Sg P3) => pag_ + "are" ; - VP (Fut Subj Pl P1) => pag_ + "áremos" ; - VP (Fut Subj Pl P2) => pag_ + "areis" ; - VP (Fut Subj Pl P3) => pag_ + "aren" ; - VP (Cond Sg P1) => pag_ + "aría" ; - VP (Cond Sg P2) => pag_ + "arías" ; - VP (Cond Sg P3) => pag_ + "aría" ; - VP (Cond Pl P1) => pag_ + "aríamos" ; - VP (Cond Pl P2) => pag_ + "aríais" ; - VP (Cond Pl P3) => pag_ + "arían" ; + VP (Impf Ind Sg P1) => pag_ + "aba" ; --# notpresent + VP (Impf Ind Sg P2) => pag_ + "abas" ; --# notpresent + VP (Impf Ind Sg P3) => pag_ + "aba" ; --# notpresent + VP (Impf Ind Pl P1) => pag_ + "ábamos" ; --# notpresent + VP (Impf Ind Pl P2) => pag_ + "abais" ; --# notpresent + VP (Impf Ind Pl P3) => pag_ + "aban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {pag_ + "ara" ; pag_ + "ase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {pag_ + "aras" ; pag_ + "ases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {pag_ + "ara" ; pag_ + "ase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {pag_ + "áramos" ; pag_ + "ásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {pag_ + "arais" ; pag_ + "aseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {pag_ + "aran" ; pag_ + "asen"} ; --# notpresent + VP (Pret Sg P1) => pag_ + "ué" ; --# notpresent + VP (Pret Sg P2) => pag_ + "aste" ; --# notpresent + VP (Pret Sg P3) => pag_ + "ó" ; --# notpresent + VP (Pret Pl P1) => pag_ + "amos" ; --# notpresent + VP (Pret Pl P2) => pag_ + "asteis" ; --# notpresent + VP (Pret Pl P3) => pag_ + "aron" ; --# notpresent + VP (Fut Ind Sg P1) => pag_ + "aré" ; --# notpresent + VP (Fut Ind Sg P2) => pag_ + "arás" ; --# notpresent + VP (Fut Ind Sg P3) => pag_ + "ará" ; --# notpresent + VP (Fut Ind Pl P1) => pag_ + "aremos" ; --# notpresent + VP (Fut Ind Pl P2) => pag_ + "aréis" ; --# notpresent + VP (Fut Ind Pl P3) => pag_ + "arán" ; --# notpresent + VP (Fut Subj Sg P1) => pag_ + "are" ; --# notpresent + VP (Fut Subj Sg P2) => pag_ + "ares" ; --# notpresent + VP (Fut Subj Sg P3) => pag_ + "are" ; --# notpresent + VP (Fut Subj Pl P1) => pag_ + "áremos" ; --# notpresent + VP (Fut Subj Pl P2) => pag_ + "areis" ; --# notpresent + VP (Fut Subj Pl P3) => pag_ + "aren" ; --# notpresent + VP (Cond Sg P1) => pag_ + "aría" ; --# notpresent + VP (Cond Sg P2) => pag_ + "arías" ; --# notpresent + VP (Cond Sg P3) => pag_ + "aría" ; --# notpresent + VP (Cond Pl P1) => pag_ + "aríamos" ; --# notpresent + VP (Cond Pl P2) => pag_ + "aríais" ; --# notpresent + VP (Cond Pl P3) => pag_ + "arían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => pag_ + "a" ; VP (Imp Sg P3) => pag_ + "ue" ; @@ -3663,42 +3732,42 @@ oper parecer_54 : Str -> Verbum = \parecer -> VP (Pres Subj Pl P1) => pare_ + "zcamos" ; VP (Pres Subj Pl P2) => pare_ + "zcáis" ; VP (Pres Subj Pl P3) => pare_ + "zcan" ; - VP (Impf Ind Sg P1) => pare_ + "cía" ; - VP (Impf Ind Sg P2) => pare_ + "cías" ; - VP (Impf Ind Sg P3) => pare_ + "cía" ; - VP (Impf Ind Pl P1) => pare_ + "cíamos" ; - VP (Impf Ind Pl P2) => pare_ + "cíais" ; - VP (Impf Ind Pl P3) => pare_ + "cían" ; - VP (Impf Subj Sg P1) => variants {pare_ + "ciera" ; pare_ + "ciese"} ; - VP (Impf Subj Sg P2) => variants {pare_ + "cieras" ; pare_ + "cieses"} ; - VP (Impf Subj Sg P3) => variants {pare_ + "ciera" ; pare_ + "ciese"} ; - VP (Impf Subj Pl P1) => variants {pare_ + "ciéramos" ; pare_ + "ciésemos"} ; - VP (Impf Subj Pl P2) => variants {pare_ + "cierais" ; pare_ + "cieseis"} ; - VP (Impf Subj Pl P3) => variants {pare_ + "cieran" ; pare_ + "ciesen"} ; - VP (Pret Sg P1) => pare_ + "cí" ; - VP (Pret Sg P2) => pare_ + "ciste" ; - VP (Pret Sg P3) => pare_ + "ció" ; - VP (Pret Pl P1) => pare_ + "cimos" ; - VP (Pret Pl P2) => pare_ + "cisteis" ; - VP (Pret Pl P3) => pare_ + "cieron" ; - VP (Fut Ind Sg P1) => pare_ + "ceré" ; - VP (Fut Ind Sg P2) => pare_ + "cerás" ; - VP (Fut Ind Sg P3) => pare_ + "cerá" ; - VP (Fut Ind Pl P1) => pare_ + "ceremos" ; - VP (Fut Ind Pl P2) => pare_ + "ceréis" ; - VP (Fut Ind Pl P3) => pare_ + "cerán" ; - VP (Fut Subj Sg P1) => pare_ + "ciere" ; - VP (Fut Subj Sg P2) => pare_ + "cieres" ; - VP (Fut Subj Sg P3) => pare_ + "ciere" ; - VP (Fut Subj Pl P1) => pare_ + "ciéremos" ; - VP (Fut Subj Pl P2) => pare_ + "ciereis" ; - VP (Fut Subj Pl P3) => pare_ + "cieren" ; - VP (Cond Sg P1) => pare_ + "cería" ; - VP (Cond Sg P2) => pare_ + "cerías" ; - VP (Cond Sg P3) => pare_ + "cería" ; - VP (Cond Pl P1) => pare_ + "ceríamos" ; - VP (Cond Pl P2) => pare_ + "ceríais" ; - VP (Cond Pl P3) => pare_ + "cerían" ; + VP (Impf Ind Sg P1) => pare_ + "cía" ; --# notpresent + VP (Impf Ind Sg P2) => pare_ + "cías" ; --# notpresent + VP (Impf Ind Sg P3) => pare_ + "cía" ; --# notpresent + VP (Impf Ind Pl P1) => pare_ + "cíamos" ; --# notpresent + VP (Impf Ind Pl P2) => pare_ + "cíais" ; --# notpresent + VP (Impf Ind Pl P3) => pare_ + "cían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {pare_ + "ciera" ; pare_ + "ciese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {pare_ + "cieras" ; pare_ + "cieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {pare_ + "ciera" ; pare_ + "ciese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {pare_ + "ciéramos" ; pare_ + "ciésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {pare_ + "cierais" ; pare_ + "cieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {pare_ + "cieran" ; pare_ + "ciesen"} ; --# notpresent + VP (Pret Sg P1) => pare_ + "cí" ; --# notpresent + VP (Pret Sg P2) => pare_ + "ciste" ; --# notpresent + VP (Pret Sg P3) => pare_ + "ció" ; --# notpresent + VP (Pret Pl P1) => pare_ + "cimos" ; --# notpresent + VP (Pret Pl P2) => pare_ + "cisteis" ; --# notpresent + VP (Pret Pl P3) => pare_ + "cieron" ; --# notpresent + VP (Fut Ind Sg P1) => pare_ + "ceré" ; --# notpresent + VP (Fut Ind Sg P2) => pare_ + "cerás" ; --# notpresent + VP (Fut Ind Sg P3) => pare_ + "cerá" ; --# notpresent + VP (Fut Ind Pl P1) => pare_ + "ceremos" ; --# notpresent + VP (Fut Ind Pl P2) => pare_ + "ceréis" ; --# notpresent + VP (Fut Ind Pl P3) => pare_ + "cerán" ; --# notpresent + VP (Fut Subj Sg P1) => pare_ + "ciere" ; --# notpresent + VP (Fut Subj Sg P2) => pare_ + "cieres" ; --# notpresent + VP (Fut Subj Sg P3) => pare_ + "ciere" ; --# notpresent + VP (Fut Subj Pl P1) => pare_ + "ciéremos" ; --# notpresent + VP (Fut Subj Pl P2) => pare_ + "ciereis" ; --# notpresent + VP (Fut Subj Pl P3) => pare_ + "cieren" ; --# notpresent + VP (Cond Sg P1) => pare_ + "cería" ; --# notpresent + VP (Cond Sg P2) => pare_ + "cerías" ; --# notpresent + VP (Cond Sg P3) => pare_ + "cería" ; --# notpresent + VP (Cond Pl P1) => pare_ + "ceríamos" ; --# notpresent + VP (Cond Pl P2) => pare_ + "ceríais" ; --# notpresent + VP (Cond Pl P3) => pare_ + "cerían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => pare_ + "ce" ; VP (Imp Sg P3) => pare_ + "zca" ; @@ -3729,42 +3798,42 @@ oper pedir_55 : Str -> Verbum = \pedir -> VP (Pres Subj Pl P1) => p_ + "idamos" ; VP (Pres Subj Pl P2) => p_ + "idáis" ; VP (Pres Subj Pl P3) => p_ + "idan" ; - VP (Impf Ind Sg P1) => p_ + "edía" ; - VP (Impf Ind Sg P2) => p_ + "edías" ; - VP (Impf Ind Sg P3) => p_ + "edía" ; - VP (Impf Ind Pl P1) => p_ + "edíamos" ; - VP (Impf Ind Pl P2) => p_ + "edíais" ; - VP (Impf Ind Pl P3) => p_ + "edían" ; - VP (Impf Subj Sg P1) => variants {p_ + "idiera" ; p_ + "idiese"} ; - VP (Impf Subj Sg P2) => variants {p_ + "idieras" ; p_ + "idieses"} ; - VP (Impf Subj Sg P3) => variants {p_ + "idiera" ; p_ + "idiese"} ; - VP (Impf Subj Pl P1) => variants {p_ + "idiéramos" ; p_ + "idiésemos"} ; - VP (Impf Subj Pl P2) => variants {p_ + "idierais" ; p_ + "idieseis"} ; - VP (Impf Subj Pl P3) => variants {p_ + "idieran" ; p_ + "idiesen"} ; - VP (Pret Sg P1) => p_ + "edí" ; - VP (Pret Sg P2) => p_ + "ediste" ; - VP (Pret Sg P3) => p_ + "idió" ; - VP (Pret Pl P1) => p_ + "edimos" ; - VP (Pret Pl P2) => p_ + "edisteis" ; - VP (Pret Pl P3) => p_ + "idieron" ; - VP (Fut Ind Sg P1) => p_ + "ediré" ; - VP (Fut Ind Sg P2) => p_ + "edirás" ; - VP (Fut Ind Sg P3) => p_ + "edirá" ; - VP (Fut Ind Pl P1) => p_ + "ediremos" ; - VP (Fut Ind Pl P2) => p_ + "ediréis" ; - VP (Fut Ind Pl P3) => p_ + "edirán" ; - VP (Fut Subj Sg P1) => p_ + "idiere" ; - VP (Fut Subj Sg P2) => p_ + "idieres" ; - VP (Fut Subj Sg P3) => p_ + "idiere" ; - VP (Fut Subj Pl P1) => p_ + "idiéremos" ; - VP (Fut Subj Pl P2) => p_ + "idiereis" ; - VP (Fut Subj Pl P3) => p_ + "idieren" ; - VP (Cond Sg P1) => p_ + "ediría" ; - VP (Cond Sg P2) => p_ + "edirías" ; - VP (Cond Sg P3) => p_ + "ediría" ; - VP (Cond Pl P1) => p_ + "ediríamos" ; - VP (Cond Pl P2) => p_ + "ediríais" ; - VP (Cond Pl P3) => p_ + "edirían" ; + VP (Impf Ind Sg P1) => p_ + "edía" ; --# notpresent + VP (Impf Ind Sg P2) => p_ + "edías" ; --# notpresent + VP (Impf Ind Sg P3) => p_ + "edía" ; --# notpresent + VP (Impf Ind Pl P1) => p_ + "edíamos" ; --# notpresent + VP (Impf Ind Pl P2) => p_ + "edíais" ; --# notpresent + VP (Impf Ind Pl P3) => p_ + "edían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {p_ + "idiera" ; p_ + "idiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {p_ + "idieras" ; p_ + "idieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {p_ + "idiera" ; p_ + "idiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {p_ + "idiéramos" ; p_ + "idiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {p_ + "idierais" ; p_ + "idieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {p_ + "idieran" ; p_ + "idiesen"} ; --# notpresent + VP (Pret Sg P1) => p_ + "edí" ; --# notpresent + VP (Pret Sg P2) => p_ + "ediste" ; --# notpresent + VP (Pret Sg P3) => p_ + "idió" ; --# notpresent + VP (Pret Pl P1) => p_ + "edimos" ; --# notpresent + VP (Pret Pl P2) => p_ + "edisteis" ; --# notpresent + VP (Pret Pl P3) => p_ + "idieron" ; --# notpresent + VP (Fut Ind Sg P1) => p_ + "ediré" ; --# notpresent + VP (Fut Ind Sg P2) => p_ + "edirás" ; --# notpresent + VP (Fut Ind Sg P3) => p_ + "edirá" ; --# notpresent + VP (Fut Ind Pl P1) => p_ + "ediremos" ; --# notpresent + VP (Fut Ind Pl P2) => p_ + "ediréis" ; --# notpresent + VP (Fut Ind Pl P3) => p_ + "edirán" ; --# notpresent + VP (Fut Subj Sg P1) => p_ + "idiere" ; --# notpresent + VP (Fut Subj Sg P2) => p_ + "idieres" ; --# notpresent + VP (Fut Subj Sg P3) => p_ + "idiere" ; --# notpresent + VP (Fut Subj Pl P1) => p_ + "idiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => p_ + "idiereis" ; --# notpresent + VP (Fut Subj Pl P3) => p_ + "idieren" ; --# notpresent + VP (Cond Sg P1) => p_ + "ediría" ; --# notpresent + VP (Cond Sg P2) => p_ + "edirías" ; --# notpresent + VP (Cond Sg P3) => p_ + "ediría" ; --# notpresent + VP (Cond Pl P1) => p_ + "ediríamos" ; --# notpresent + VP (Cond Pl P2) => p_ + "ediríais" ; --# notpresent + VP (Cond Pl P3) => p_ + "edirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => p_ + "ide" ; VP (Imp Sg P3) => p_ + "ida" ; @@ -3795,42 +3864,42 @@ oper pensar_56 : Str -> Verbum = \pensar -> VP (Pres Subj Pl P1) => p_ + "ensemos" ; VP (Pres Subj Pl P2) => p_ + "enséis" ; VP (Pres Subj Pl P3) => p_ + "iensen" ; - VP (Impf Ind Sg P1) => p_ + "ensaba" ; - VP (Impf Ind Sg P2) => p_ + "ensabas" ; - VP (Impf Ind Sg P3) => p_ + "ensaba" ; - VP (Impf Ind Pl P1) => p_ + "ensábamos" ; - VP (Impf Ind Pl P2) => p_ + "ensabais" ; - VP (Impf Ind Pl P3) => p_ + "ensaban" ; - VP (Impf Subj Sg P1) => variants {p_ + "ensara" ; p_ + "ensase"} ; - VP (Impf Subj Sg P2) => variants {p_ + "ensaras" ; p_ + "ensases"} ; - VP (Impf Subj Sg P3) => variants {p_ + "ensara" ; p_ + "ensase"} ; - VP (Impf Subj Pl P1) => variants {p_ + "ensáramos" ; p_ + "ensásemos"} ; - VP (Impf Subj Pl P2) => variants {p_ + "ensarais" ; p_ + "ensaseis"} ; - VP (Impf Subj Pl P3) => variants {p_ + "ensaran" ; p_ + "ensasen"} ; - VP (Pret Sg P1) => p_ + "ensé" ; - VP (Pret Sg P2) => p_ + "ensaste" ; - VP (Pret Sg P3) => p_ + "ensó" ; - VP (Pret Pl P1) => p_ + "ensamos" ; - VP (Pret Pl P2) => p_ + "ensasteis" ; - VP (Pret Pl P3) => p_ + "ensaron" ; - VP (Fut Ind Sg P1) => p_ + "ensaré" ; - VP (Fut Ind Sg P2) => p_ + "ensarás" ; - VP (Fut Ind Sg P3) => p_ + "ensará" ; - VP (Fut Ind Pl P1) => p_ + "ensaremos" ; - VP (Fut Ind Pl P2) => p_ + "ensaréis" ; - VP (Fut Ind Pl P3) => p_ + "ensarán" ; - VP (Fut Subj Sg P1) => p_ + "ensare" ; - VP (Fut Subj Sg P2) => p_ + "ensares" ; - VP (Fut Subj Sg P3) => p_ + "ensare" ; - VP (Fut Subj Pl P1) => p_ + "ensáremos" ; - VP (Fut Subj Pl P2) => p_ + "ensareis" ; - VP (Fut Subj Pl P3) => p_ + "ensaren" ; - VP (Cond Sg P1) => p_ + "ensaría" ; - VP (Cond Sg P2) => p_ + "ensarías" ; - VP (Cond Sg P3) => p_ + "ensaría" ; - VP (Cond Pl P1) => p_ + "ensaríamos" ; - VP (Cond Pl P2) => p_ + "ensaríais" ; - VP (Cond Pl P3) => p_ + "ensarían" ; + VP (Impf Ind Sg P1) => p_ + "ensaba" ; --# notpresent + VP (Impf Ind Sg P2) => p_ + "ensabas" ; --# notpresent + VP (Impf Ind Sg P3) => p_ + "ensaba" ; --# notpresent + VP (Impf Ind Pl P1) => p_ + "ensábamos" ; --# notpresent + VP (Impf Ind Pl P2) => p_ + "ensabais" ; --# notpresent + VP (Impf Ind Pl P3) => p_ + "ensaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {p_ + "ensara" ; p_ + "ensase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {p_ + "ensaras" ; p_ + "ensases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {p_ + "ensara" ; p_ + "ensase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {p_ + "ensáramos" ; p_ + "ensásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {p_ + "ensarais" ; p_ + "ensaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {p_ + "ensaran" ; p_ + "ensasen"} ; --# notpresent + VP (Pret Sg P1) => p_ + "ensé" ; --# notpresent + VP (Pret Sg P2) => p_ + "ensaste" ; --# notpresent + VP (Pret Sg P3) => p_ + "ensó" ; --# notpresent + VP (Pret Pl P1) => p_ + "ensamos" ; --# notpresent + VP (Pret Pl P2) => p_ + "ensasteis" ; --# notpresent + VP (Pret Pl P3) => p_ + "ensaron" ; --# notpresent + VP (Fut Ind Sg P1) => p_ + "ensaré" ; --# notpresent + VP (Fut Ind Sg P2) => p_ + "ensarás" ; --# notpresent + VP (Fut Ind Sg P3) => p_ + "ensará" ; --# notpresent + VP (Fut Ind Pl P1) => p_ + "ensaremos" ; --# notpresent + VP (Fut Ind Pl P2) => p_ + "ensaréis" ; --# notpresent + VP (Fut Ind Pl P3) => p_ + "ensarán" ; --# notpresent + VP (Fut Subj Sg P1) => p_ + "ensare" ; --# notpresent + VP (Fut Subj Sg P2) => p_ + "ensares" ; --# notpresent + VP (Fut Subj Sg P3) => p_ + "ensare" ; --# notpresent + VP (Fut Subj Pl P1) => p_ + "ensáremos" ; --# notpresent + VP (Fut Subj Pl P2) => p_ + "ensareis" ; --# notpresent + VP (Fut Subj Pl P3) => p_ + "ensaren" ; --# notpresent + VP (Cond Sg P1) => p_ + "ensaría" ; --# notpresent + VP (Cond Sg P2) => p_ + "ensarías" ; --# notpresent + VP (Cond Sg P3) => p_ + "ensaría" ; --# notpresent + VP (Cond Pl P1) => p_ + "ensaríamos" ; --# notpresent + VP (Cond Pl P2) => p_ + "ensaríais" ; --# notpresent + VP (Cond Pl P3) => p_ + "ensarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => p_ + "iensa" ; VP (Imp Sg P3) => p_ + "iense" ; @@ -3861,42 +3930,42 @@ oper placer_57 : Str -> Verbum = \placer -> VP (Pres Subj Pl P1) => pl_ + "azcamos" ; VP (Pres Subj Pl P2) => pl_ + "azcáis" ; VP (Pres Subj Pl P3) => pl_ + "azcan" ; - VP (Impf Ind Sg P1) => pl_ + "acía" ; - VP (Impf Ind Sg P2) => pl_ + "acías" ; - VP (Impf Ind Sg P3) => pl_ + "acía" ; - VP (Impf Ind Pl P1) => pl_ + "acíamos" ; - VP (Impf Ind Pl P2) => pl_ + "acíais" ; - VP (Impf Ind Pl P3) => pl_ + "acían" ; - VP (Impf Subj Sg P1) => variants {pl_ + "aciera" ; pl_ + "aciese"} ; - VP (Impf Subj Sg P2) => variants {pl_ + "acieras" ; pl_ + "acieses"} ; - VP (Impf Subj Sg P3) => variants {pl_ + "aciera" ; pl_ + "aciese" ; pl_ + "uguiera" ; pl_ + "uguiese"} ; - VP (Impf Subj Pl P1) => variants {pl_ + "aciéramos" ; pl_ + "aciésemos"} ; - VP (Impf Subj Pl P2) => variants {pl_ + "acierais" ; pl_ + "acieseis"} ; - VP (Impf Subj Pl P3) => variants {pl_ + "acieran" ; pl_ + "aciesen"} ; - VP (Pret Sg P1) => pl_ + "ací" ; - VP (Pret Sg P2) => pl_ + "aciste" ; - VP (Pret Sg P3) => variants {pl_ + "ació" ; pl_ + "ugo"} ; - VP (Pret Pl P1) => pl_ + "acimos" ; - VP (Pret Pl P2) => pl_ + "acisteis" ; - VP (Pret Pl P3) => variants {pl_ + "acieron" ; pl_ + "uguieron"} ; - VP (Fut Ind Sg P1) => pl_ + "aceré" ; - VP (Fut Ind Sg P2) => pl_ + "acerás" ; - VP (Fut Ind Sg P3) => pl_ + "acerá" ; - VP (Fut Ind Pl P1) => pl_ + "aceremos" ; - VP (Fut Ind Pl P2) => pl_ + "aceréis" ; - VP (Fut Ind Pl P3) => pl_ + "acerán" ; - VP (Fut Subj Sg P1) => pl_ + "aciere" ; - VP (Fut Subj Sg P2) => pl_ + "acieres" ; - VP (Fut Subj Sg P3) => variants {pl_ + "aciere" ; pl_ + "uguiere"} ; - VP (Fut Subj Pl P1) => pl_ + "aciéremos" ; - VP (Fut Subj Pl P2) => pl_ + "aciereis" ; - VP (Fut Subj Pl P3) => pl_ + "acieren" ; - VP (Cond Sg P1) => pl_ + "acería" ; - VP (Cond Sg P2) => pl_ + "acerías" ; - VP (Cond Sg P3) => pl_ + "acería" ; - VP (Cond Pl P1) => pl_ + "aceríamos" ; - VP (Cond Pl P2) => pl_ + "aceríais" ; - VP (Cond Pl P3) => pl_ + "acerían" ; + VP (Impf Ind Sg P1) => pl_ + "acía" ; --# notpresent + VP (Impf Ind Sg P2) => pl_ + "acías" ; --# notpresent + VP (Impf Ind Sg P3) => pl_ + "acía" ; --# notpresent + VP (Impf Ind Pl P1) => pl_ + "acíamos" ; --# notpresent + VP (Impf Ind Pl P2) => pl_ + "acíais" ; --# notpresent + VP (Impf Ind Pl P3) => pl_ + "acían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {pl_ + "aciera" ; pl_ + "aciese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {pl_ + "acieras" ; pl_ + "acieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {pl_ + "aciera" ; pl_ + "aciese" ; pl_ + "uguiera" ; pl_ + "uguiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {pl_ + "aciéramos" ; pl_ + "aciésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {pl_ + "acierais" ; pl_ + "acieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {pl_ + "acieran" ; pl_ + "aciesen"} ; --# notpresent + VP (Pret Sg P1) => pl_ + "ací" ; --# notpresent + VP (Pret Sg P2) => pl_ + "aciste" ; --# notpresent + VP (Pret Sg P3) => variants {pl_ + "ació" ; pl_ + "ugo"} ; --# notpresent + VP (Pret Pl P1) => pl_ + "acimos" ; --# notpresent + VP (Pret Pl P2) => pl_ + "acisteis" ; --# notpresent + VP (Pret Pl P3) => variants {pl_ + "acieron" ; pl_ + "uguieron"} ; --# notpresent + VP (Fut Ind Sg P1) => pl_ + "aceré" ; --# notpresent + VP (Fut Ind Sg P2) => pl_ + "acerás" ; --# notpresent + VP (Fut Ind Sg P3) => pl_ + "acerá" ; --# notpresent + VP (Fut Ind Pl P1) => pl_ + "aceremos" ; --# notpresent + VP (Fut Ind Pl P2) => pl_ + "aceréis" ; --# notpresent + VP (Fut Ind Pl P3) => pl_ + "acerán" ; --# notpresent + VP (Fut Subj Sg P1) => pl_ + "aciere" ; --# notpresent + VP (Fut Subj Sg P2) => pl_ + "acieres" ; --# notpresent + VP (Fut Subj Sg P3) => variants {pl_ + "aciere" ; pl_ + "uguiere"} ; --# notpresent + VP (Fut Subj Pl P1) => pl_ + "aciéremos" ; --# notpresent + VP (Fut Subj Pl P2) => pl_ + "aciereis" ; --# notpresent + VP (Fut Subj Pl P3) => pl_ + "acieren" ; --# notpresent + VP (Cond Sg P1) => pl_ + "acería" ; --# notpresent + VP (Cond Sg P2) => pl_ + "acerías" ; --# notpresent + VP (Cond Sg P3) => pl_ + "acería" ; --# notpresent + VP (Cond Pl P1) => pl_ + "aceríamos" ; --# notpresent + VP (Cond Pl P2) => pl_ + "aceríais" ; --# notpresent + VP (Cond Pl P3) => pl_ + "acerían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => pl_ + "ace" ; VP (Imp Sg P3) => pl_ + "azca" ; @@ -3927,42 +3996,42 @@ oper poder_58 : Str -> Verbum = \poder -> VP (Pres Subj Pl P1) => p_ + "odamos" ; VP (Pres Subj Pl P2) => p_ + "odáis" ; VP (Pres Subj Pl P3) => p_ + "uedan" ; - VP (Impf Ind Sg P1) => p_ + "odía" ; - VP (Impf Ind Sg P2) => p_ + "odías" ; - VP (Impf Ind Sg P3) => p_ + "odía" ; - VP (Impf Ind Pl P1) => p_ + "odíamos" ; - VP (Impf Ind Pl P2) => p_ + "odíais" ; - VP (Impf Ind Pl P3) => p_ + "odían" ; - VP (Impf Subj Sg P1) => variants {p_ + "udiera" ; p_ + "udiese"} ; - VP (Impf Subj Sg P2) => variants {p_ + "udieras" ; p_ + "udieses"} ; - VP (Impf Subj Sg P3) => variants {p_ + "udiera" ; p_ + "udiese"} ; - VP (Impf Subj Pl P1) => variants {p_ + "udiéramos" ; p_ + "udiésemos"} ; - VP (Impf Subj Pl P2) => variants {p_ + "udierais" ; p_ + "udieseis"} ; - VP (Impf Subj Pl P3) => variants {p_ + "udieran" ; p_ + "udiesen"} ; - VP (Pret Sg P1) => p_ + "ude" ; - VP (Pret Sg P2) => p_ + "udiste" ; - VP (Pret Sg P3) => p_ + "udo" ; - VP (Pret Pl P1) => p_ + "udimos" ; - VP (Pret Pl P2) => p_ + "udisteis" ; - VP (Pret Pl P3) => p_ + "udieron" ; - VP (Fut Ind Sg P1) => p_ + "odré" ; - VP (Fut Ind Sg P2) => p_ + "odrás" ; - VP (Fut Ind Sg P3) => p_ + "odrá" ; - VP (Fut Ind Pl P1) => p_ + "odremos" ; - VP (Fut Ind Pl P2) => p_ + "odréis" ; - VP (Fut Ind Pl P3) => p_ + "odrán" ; - VP (Fut Subj Sg P1) => p_ + "udiere" ; - VP (Fut Subj Sg P2) => p_ + "udieres" ; - VP (Fut Subj Sg P3) => p_ + "udiere" ; - VP (Fut Subj Pl P1) => p_ + "udiéremos" ; - VP (Fut Subj Pl P2) => p_ + "udiereis" ; - VP (Fut Subj Pl P3) => p_ + "udieren" ; - VP (Cond Sg P1) => p_ + "odría" ; - VP (Cond Sg P2) => p_ + "odrías" ; - VP (Cond Sg P3) => p_ + "odría" ; - VP (Cond Pl P1) => p_ + "odríamos" ; - VP (Cond Pl P2) => p_ + "odríais" ; - VP (Cond Pl P3) => p_ + "odrían" ; + VP (Impf Ind Sg P1) => p_ + "odía" ; --# notpresent + VP (Impf Ind Sg P2) => p_ + "odías" ; --# notpresent + VP (Impf Ind Sg P3) => p_ + "odía" ; --# notpresent + VP (Impf Ind Pl P1) => p_ + "odíamos" ; --# notpresent + VP (Impf Ind Pl P2) => p_ + "odíais" ; --# notpresent + VP (Impf Ind Pl P3) => p_ + "odían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {p_ + "udiera" ; p_ + "udiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {p_ + "udieras" ; p_ + "udieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {p_ + "udiera" ; p_ + "udiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {p_ + "udiéramos" ; p_ + "udiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {p_ + "udierais" ; p_ + "udieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {p_ + "udieran" ; p_ + "udiesen"} ; --# notpresent + VP (Pret Sg P1) => p_ + "ude" ; --# notpresent + VP (Pret Sg P2) => p_ + "udiste" ; --# notpresent + VP (Pret Sg P3) => p_ + "udo" ; --# notpresent + VP (Pret Pl P1) => p_ + "udimos" ; --# notpresent + VP (Pret Pl P2) => p_ + "udisteis" ; --# notpresent + VP (Pret Pl P3) => p_ + "udieron" ; --# notpresent + VP (Fut Ind Sg P1) => p_ + "odré" ; --# notpresent + VP (Fut Ind Sg P2) => p_ + "odrás" ; --# notpresent + VP (Fut Ind Sg P3) => p_ + "odrá" ; --# notpresent + VP (Fut Ind Pl P1) => p_ + "odremos" ; --# notpresent + VP (Fut Ind Pl P2) => p_ + "odréis" ; --# notpresent + VP (Fut Ind Pl P3) => p_ + "odrán" ; --# notpresent + VP (Fut Subj Sg P1) => p_ + "udiere" ; --# notpresent + VP (Fut Subj Sg P2) => p_ + "udieres" ; --# notpresent + VP (Fut Subj Sg P3) => p_ + "udiere" ; --# notpresent + VP (Fut Subj Pl P1) => p_ + "udiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => p_ + "udiereis" ; --# notpresent + VP (Fut Subj Pl P3) => p_ + "udieren" ; --# notpresent + VP (Cond Sg P1) => p_ + "odría" ; --# notpresent + VP (Cond Sg P2) => p_ + "odrías" ; --# notpresent + VP (Cond Sg P3) => p_ + "odría" ; --# notpresent + VP (Cond Pl P1) => p_ + "odríamos" ; --# notpresent + VP (Cond Pl P2) => p_ + "odríais" ; --# notpresent + VP (Cond Pl P3) => p_ + "odrían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => p_ + "uede" ; VP (Imp Sg P3) => p_ + "ueda" ; @@ -3993,42 +4062,42 @@ oper poner_60 : Str -> Verbum = \poner -> VP (Pres Subj Pl P1) => p_ + "ongamos" ; VP (Pres Subj Pl P2) => p_ + "ongáis" ; VP (Pres Subj Pl P3) => p_ + "ongan" ; - VP (Impf Ind Sg P1) => p_ + "onía" ; - VP (Impf Ind Sg P2) => p_ + "onías" ; - VP (Impf Ind Sg P3) => p_ + "onía" ; - VP (Impf Ind Pl P1) => p_ + "oníamos" ; - VP (Impf Ind Pl P2) => p_ + "oníais" ; - VP (Impf Ind Pl P3) => p_ + "onían" ; - VP (Impf Subj Sg P1) => variants {p_ + "usiera" ; p_ + "usiese"} ; - VP (Impf Subj Sg P2) => variants {p_ + "usieras" ; p_ + "usieses"} ; - VP (Impf Subj Sg P3) => variants {p_ + "usiera" ; p_ + "usiese"} ; - VP (Impf Subj Pl P1) => variants {p_ + "usiéramos" ; p_ + "usiésemos"} ; - VP (Impf Subj Pl P2) => variants {p_ + "usierais" ; p_ + "usieseis"} ; - VP (Impf Subj Pl P3) => variants {p_ + "usieran" ; p_ + "usiesen"} ; - VP (Pret Sg P1) => p_ + "use" ; - VP (Pret Sg P2) => p_ + "usiste" ; - VP (Pret Sg P3) => p_ + "uso" ; - VP (Pret Pl P1) => p_ + "usimos" ; - VP (Pret Pl P2) => p_ + "usisteis" ; - VP (Pret Pl P3) => p_ + "usieron" ; - VP (Fut Ind Sg P1) => p_ + "ondré" ; - VP (Fut Ind Sg P2) => p_ + "ondrás" ; - VP (Fut Ind Sg P3) => p_ + "ondrá" ; - VP (Fut Ind Pl P1) => p_ + "ondremos" ; - VP (Fut Ind Pl P2) => p_ + "ondréis" ; - VP (Fut Ind Pl P3) => p_ + "ondrán" ; - VP (Fut Subj Sg P1) => p_ + "usiere" ; - VP (Fut Subj Sg P2) => p_ + "usieres" ; - VP (Fut Subj Sg P3) => p_ + "usiere" ; - VP (Fut Subj Pl P1) => p_ + "usiéremos" ; - VP (Fut Subj Pl P2) => p_ + "usiereis" ; - VP (Fut Subj Pl P3) => p_ + "usieren" ; - VP (Cond Sg P1) => p_ + "ondría" ; - VP (Cond Sg P2) => p_ + "ondrías" ; - VP (Cond Sg P3) => p_ + "ondría" ; - VP (Cond Pl P1) => p_ + "ondríamos" ; - VP (Cond Pl P2) => p_ + "ondríais" ; - VP (Cond Pl P3) => p_ + "ondrían" ; + VP (Impf Ind Sg P1) => p_ + "onía" ; --# notpresent + VP (Impf Ind Sg P2) => p_ + "onías" ; --# notpresent + VP (Impf Ind Sg P3) => p_ + "onía" ; --# notpresent + VP (Impf Ind Pl P1) => p_ + "oníamos" ; --# notpresent + VP (Impf Ind Pl P2) => p_ + "oníais" ; --# notpresent + VP (Impf Ind Pl P3) => p_ + "onían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {p_ + "usiera" ; p_ + "usiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {p_ + "usieras" ; p_ + "usieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {p_ + "usiera" ; p_ + "usiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {p_ + "usiéramos" ; p_ + "usiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {p_ + "usierais" ; p_ + "usieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {p_ + "usieran" ; p_ + "usiesen"} ; --# notpresent + VP (Pret Sg P1) => p_ + "use" ; --# notpresent + VP (Pret Sg P2) => p_ + "usiste" ; --# notpresent + VP (Pret Sg P3) => p_ + "uso" ; --# notpresent + VP (Pret Pl P1) => p_ + "usimos" ; --# notpresent + VP (Pret Pl P2) => p_ + "usisteis" ; --# notpresent + VP (Pret Pl P3) => p_ + "usieron" ; --# notpresent + VP (Fut Ind Sg P1) => p_ + "ondré" ; --# notpresent + VP (Fut Ind Sg P2) => p_ + "ondrás" ; --# notpresent + VP (Fut Ind Sg P3) => p_ + "ondrá" ; --# notpresent + VP (Fut Ind Pl P1) => p_ + "ondremos" ; --# notpresent + VP (Fut Ind Pl P2) => p_ + "ondréis" ; --# notpresent + VP (Fut Ind Pl P3) => p_ + "ondrán" ; --# notpresent + VP (Fut Subj Sg P1) => p_ + "usiere" ; --# notpresent + VP (Fut Subj Sg P2) => p_ + "usieres" ; --# notpresent + VP (Fut Subj Sg P3) => p_ + "usiere" ; --# notpresent + VP (Fut Subj Pl P1) => p_ + "usiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => p_ + "usiereis" ; --# notpresent + VP (Fut Subj Pl P3) => p_ + "usieren" ; --# notpresent + VP (Cond Sg P1) => p_ + "ondría" ; --# notpresent + VP (Cond Sg P2) => p_ + "ondrías" ; --# notpresent + VP (Cond Sg P3) => p_ + "ondría" ; --# notpresent + VP (Cond Pl P1) => p_ + "ondríamos" ; --# notpresent + VP (Cond Pl P2) => p_ + "ondríais" ; --# notpresent + VP (Cond Pl P3) => p_ + "ondrían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => p_ + "on" ; VP (Imp Sg P3) => p_ + "onga" ; @@ -4059,42 +4128,42 @@ oper predecir_61 : Str -> Verbum = \predecir -> VP (Pres Subj Pl P1) => pred_ + "igamos" ; VP (Pres Subj Pl P2) => pred_ + "igáis" ; VP (Pres Subj Pl P3) => pred_ + "igan" ; - VP (Impf Ind Sg P1) => pred_ + "ecía" ; - VP (Impf Ind Sg P2) => pred_ + "ecías" ; - VP (Impf Ind Sg P3) => pred_ + "ecía" ; - VP (Impf Ind Pl P1) => pred_ + "ecíamos" ; - VP (Impf Ind Pl P2) => pred_ + "ecíais" ; - VP (Impf Ind Pl P3) => pred_ + "ecían" ; - VP (Impf Subj Sg P1) => variants {pred_ + "ijera" ; pred_ + "ijese"} ; - VP (Impf Subj Sg P2) => variants {pred_ + "ijeras" ; pred_ + "ijeses"} ; - VP (Impf Subj Sg P3) => variants {pred_ + "ijera" ; pred_ + "ijese"} ; - VP (Impf Subj Pl P1) => variants {pred_ + "ijéramos" ; pred_ + "ijésemos"} ; - VP (Impf Subj Pl P2) => variants {pred_ + "ijerais" ; pred_ + "ijeseis"} ; - VP (Impf Subj Pl P3) => variants {pred_ + "ijeran" ; pred_ + "ijesen"} ; - VP (Pret Sg P1) => pred_ + "ije" ; - VP (Pret Sg P2) => pred_ + "ijiste" ; - VP (Pret Sg P3) => pred_ + "ijo" ; - VP (Pret Pl P1) => pred_ + "ijimos" ; - VP (Pret Pl P2) => pred_ + "ijisteis" ; - VP (Pret Pl P3) => pred_ + "ijeron" ; - VP (Fut Ind Sg P1) => pred_ + "eciré" ; - VP (Fut Ind Sg P2) => pred_ + "ecirás" ; - VP (Fut Ind Sg P3) => pred_ + "ecirá" ; - VP (Fut Ind Pl P1) => pred_ + "eciremos" ; - VP (Fut Ind Pl P2) => pred_ + "eciréis" ; - VP (Fut Ind Pl P3) => pred_ + "ecirán" ; - VP (Fut Subj Sg P1) => pred_ + "ijere" ; - VP (Fut Subj Sg P2) => pred_ + "ijeres" ; - VP (Fut Subj Sg P3) => pred_ + "ijere" ; - VP (Fut Subj Pl P1) => pred_ + "ijéremos" ; - VP (Fut Subj Pl P2) => pred_ + "ijereis" ; - VP (Fut Subj Pl P3) => pred_ + "ijeren" ; - VP (Cond Sg P1) => pred_ + "eciría" ; - VP (Cond Sg P2) => pred_ + "ecirías" ; - VP (Cond Sg P3) => pred_ + "eciría" ; - VP (Cond Pl P1) => pred_ + "eciríamos" ; - VP (Cond Pl P2) => pred_ + "eciríais" ; - VP (Cond Pl P3) => pred_ + "ecirían" ; + VP (Impf Ind Sg P1) => pred_ + "ecía" ; --# notpresent + VP (Impf Ind Sg P2) => pred_ + "ecías" ; --# notpresent + VP (Impf Ind Sg P3) => pred_ + "ecía" ; --# notpresent + VP (Impf Ind Pl P1) => pred_ + "ecíamos" ; --# notpresent + VP (Impf Ind Pl P2) => pred_ + "ecíais" ; --# notpresent + VP (Impf Ind Pl P3) => pred_ + "ecían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {pred_ + "ijera" ; pred_ + "ijese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {pred_ + "ijeras" ; pred_ + "ijeses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {pred_ + "ijera" ; pred_ + "ijese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {pred_ + "ijéramos" ; pred_ + "ijésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {pred_ + "ijerais" ; pred_ + "ijeseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {pred_ + "ijeran" ; pred_ + "ijesen"} ; --# notpresent + VP (Pret Sg P1) => pred_ + "ije" ; --# notpresent + VP (Pret Sg P2) => pred_ + "ijiste" ; --# notpresent + VP (Pret Sg P3) => pred_ + "ijo" ; --# notpresent + VP (Pret Pl P1) => pred_ + "ijimos" ; --# notpresent + VP (Pret Pl P2) => pred_ + "ijisteis" ; --# notpresent + VP (Pret Pl P3) => pred_ + "ijeron" ; --# notpresent + VP (Fut Ind Sg P1) => pred_ + "eciré" ; --# notpresent + VP (Fut Ind Sg P2) => pred_ + "ecirás" ; --# notpresent + VP (Fut Ind Sg P3) => pred_ + "ecirá" ; --# notpresent + VP (Fut Ind Pl P1) => pred_ + "eciremos" ; --# notpresent + VP (Fut Ind Pl P2) => pred_ + "eciréis" ; --# notpresent + VP (Fut Ind Pl P3) => pred_ + "ecirán" ; --# notpresent + VP (Fut Subj Sg P1) => pred_ + "ijere" ; --# notpresent + VP (Fut Subj Sg P2) => pred_ + "ijeres" ; --# notpresent + VP (Fut Subj Sg P3) => pred_ + "ijere" ; --# notpresent + VP (Fut Subj Pl P1) => pred_ + "ijéremos" ; --# notpresent + VP (Fut Subj Pl P2) => pred_ + "ijereis" ; --# notpresent + VP (Fut Subj Pl P3) => pred_ + "ijeren" ; --# notpresent + VP (Cond Sg P1) => pred_ + "eciría" ; --# notpresent + VP (Cond Sg P2) => pred_ + "ecirías" ; --# notpresent + VP (Cond Sg P3) => pred_ + "eciría" ; --# notpresent + VP (Cond Pl P1) => pred_ + "eciríamos" ; --# notpresent + VP (Cond Pl P2) => pred_ + "eciríais" ; --# notpresent + VP (Cond Pl P3) => pred_ + "ecirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => pred_ + "ice" ; VP (Imp Sg P3) => pred_ + "iga" ; @@ -4125,42 +4194,42 @@ oper producir_62 : Str -> Verbum = \producir -> VP (Pres Subj Pl P1) => produ_ + "zcamos" ; VP (Pres Subj Pl P2) => produ_ + "zcáis" ; VP (Pres Subj Pl P3) => produ_ + "zcan" ; - VP (Impf Ind Sg P1) => produ_ + "cía" ; - VP (Impf Ind Sg P2) => produ_ + "cías" ; - VP (Impf Ind Sg P3) => produ_ + "cía" ; - VP (Impf Ind Pl P1) => produ_ + "cíamos" ; - VP (Impf Ind Pl P2) => produ_ + "cíais" ; - VP (Impf Ind Pl P3) => produ_ + "cían" ; - VP (Impf Subj Sg P1) => variants {produ_ + "jera" ; produ_ + "jese"} ; - VP (Impf Subj Sg P2) => variants {produ_ + "jeras" ; produ_ + "jeses"} ; - VP (Impf Subj Sg P3) => variants {produ_ + "jera" ; produ_ + "jese"} ; - VP (Impf Subj Pl P1) => variants {produ_ + "jéramos" ; produ_ + "jésemos"} ; - VP (Impf Subj Pl P2) => variants {produ_ + "jerais" ; produ_ + "jeseis"} ; - VP (Impf Subj Pl P3) => variants {produ_ + "jeran" ; produ_ + "jesen"} ; - VP (Pret Sg P1) => produ_ + "je" ; - VP (Pret Sg P2) => produ_ + "jiste" ; - VP (Pret Sg P3) => produ_ + "jo" ; - VP (Pret Pl P1) => produ_ + "jimos" ; - VP (Pret Pl P2) => produ_ + "jisteis" ; - VP (Pret Pl P3) => produ_ + "jeron" ; - VP (Fut Ind Sg P1) => produ_ + "ciré" ; - VP (Fut Ind Sg P2) => produ_ + "cirás" ; - VP (Fut Ind Sg P3) => produ_ + "cirá" ; - VP (Fut Ind Pl P1) => produ_ + "ciremos" ; - VP (Fut Ind Pl P2) => produ_ + "ciréis" ; - VP (Fut Ind Pl P3) => produ_ + "cirán" ; - VP (Fut Subj Sg P1) => produ_ + "jere" ; - VP (Fut Subj Sg P2) => produ_ + "jeres" ; - VP (Fut Subj Sg P3) => produ_ + "jere" ; - VP (Fut Subj Pl P1) => produ_ + "jéremos" ; - VP (Fut Subj Pl P2) => produ_ + "jereis" ; - VP (Fut Subj Pl P3) => produ_ + "jeren" ; - VP (Cond Sg P1) => produ_ + "ciría" ; - VP (Cond Sg P2) => produ_ + "cirías" ; - VP (Cond Sg P3) => produ_ + "ciría" ; - VP (Cond Pl P1) => produ_ + "ciríamos" ; - VP (Cond Pl P2) => produ_ + "ciríais" ; - VP (Cond Pl P3) => produ_ + "cirían" ; + VP (Impf Ind Sg P1) => produ_ + "cía" ; --# notpresent + VP (Impf Ind Sg P2) => produ_ + "cías" ; --# notpresent + VP (Impf Ind Sg P3) => produ_ + "cía" ; --# notpresent + VP (Impf Ind Pl P1) => produ_ + "cíamos" ; --# notpresent + VP (Impf Ind Pl P2) => produ_ + "cíais" ; --# notpresent + VP (Impf Ind Pl P3) => produ_ + "cían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {produ_ + "jera" ; produ_ + "jese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {produ_ + "jeras" ; produ_ + "jeses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {produ_ + "jera" ; produ_ + "jese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {produ_ + "jéramos" ; produ_ + "jésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {produ_ + "jerais" ; produ_ + "jeseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {produ_ + "jeran" ; produ_ + "jesen"} ; --# notpresent + VP (Pret Sg P1) => produ_ + "je" ; --# notpresent + VP (Pret Sg P2) => produ_ + "jiste" ; --# notpresent + VP (Pret Sg P3) => produ_ + "jo" ; --# notpresent + VP (Pret Pl P1) => produ_ + "jimos" ; --# notpresent + VP (Pret Pl P2) => produ_ + "jisteis" ; --# notpresent + VP (Pret Pl P3) => produ_ + "jeron" ; --# notpresent + VP (Fut Ind Sg P1) => produ_ + "ciré" ; --# notpresent + VP (Fut Ind Sg P2) => produ_ + "cirás" ; --# notpresent + VP (Fut Ind Sg P3) => produ_ + "cirá" ; --# notpresent + VP (Fut Ind Pl P1) => produ_ + "ciremos" ; --# notpresent + VP (Fut Ind Pl P2) => produ_ + "ciréis" ; --# notpresent + VP (Fut Ind Pl P3) => produ_ + "cirán" ; --# notpresent + VP (Fut Subj Sg P1) => produ_ + "jere" ; --# notpresent + VP (Fut Subj Sg P2) => produ_ + "jeres" ; --# notpresent + VP (Fut Subj Sg P3) => produ_ + "jere" ; --# notpresent + VP (Fut Subj Pl P1) => produ_ + "jéremos" ; --# notpresent + VP (Fut Subj Pl P2) => produ_ + "jereis" ; --# notpresent + VP (Fut Subj Pl P3) => produ_ + "jeren" ; --# notpresent + VP (Cond Sg P1) => produ_ + "ciría" ; --# notpresent + VP (Cond Sg P2) => produ_ + "cirías" ; --# notpresent + VP (Cond Sg P3) => produ_ + "ciría" ; --# notpresent + VP (Cond Pl P1) => produ_ + "ciríamos" ; --# notpresent + VP (Cond Pl P2) => produ_ + "ciríais" ; --# notpresent + VP (Cond Pl P3) => produ_ + "cirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => produ_ + "ce" ; VP (Imp Sg P3) => produ_ + "zca" ; @@ -4191,42 +4260,42 @@ oper prohibir_63 : Str -> Verbum = \prohibir -> VP (Pres Subj Pl P1) => proh_ + "ibamos" ; VP (Pres Subj Pl P2) => proh_ + "ibáis" ; VP (Pres Subj Pl P3) => proh_ + "íban" ; - VP (Impf Ind Sg P1) => proh_ + "ibía" ; - VP (Impf Ind Sg P2) => proh_ + "ibías" ; - VP (Impf Ind Sg P3) => proh_ + "ibía" ; - VP (Impf Ind Pl P1) => proh_ + "ibíamos" ; - VP (Impf Ind Pl P2) => proh_ + "ibíais" ; - VP (Impf Ind Pl P3) => proh_ + "ibían" ; - VP (Impf Subj Sg P1) => variants {proh_ + "ibiera" ; proh_ + "ibiese"} ; - VP (Impf Subj Sg P2) => variants {proh_ + "ibieras" ; proh_ + "ibieses"} ; - VP (Impf Subj Sg P3) => variants {proh_ + "ibiera" ; proh_ + "ibiese"} ; - VP (Impf Subj Pl P1) => variants {proh_ + "ibiéramos" ; proh_ + "ibiésemos"} ; - VP (Impf Subj Pl P2) => variants {proh_ + "ibierais" ; proh_ + "ibieseis"} ; - VP (Impf Subj Pl P3) => variants {proh_ + "ibieran" ; proh_ + "ibiesen"} ; - VP (Pret Sg P1) => proh_ + "ibí" ; - VP (Pret Sg P2) => proh_ + "ibiste" ; - VP (Pret Sg P3) => proh_ + "ibió" ; - VP (Pret Pl P1) => proh_ + "ibimos" ; - VP (Pret Pl P2) => proh_ + "ibisteis" ; - VP (Pret Pl P3) => proh_ + "ibieron" ; - VP (Fut Ind Sg P1) => proh_ + "ibiré" ; - VP (Fut Ind Sg P2) => proh_ + "ibirás" ; - VP (Fut Ind Sg P3) => proh_ + "ibirá" ; - VP (Fut Ind Pl P1) => proh_ + "ibiremos" ; - VP (Fut Ind Pl P2) => proh_ + "ibiréis" ; - VP (Fut Ind Pl P3) => proh_ + "ibirán" ; - VP (Fut Subj Sg P1) => proh_ + "ibiere" ; - VP (Fut Subj Sg P2) => proh_ + "ibieres" ; - VP (Fut Subj Sg P3) => proh_ + "ibiere" ; - VP (Fut Subj Pl P1) => proh_ + "ibiéremos" ; - VP (Fut Subj Pl P2) => proh_ + "ibiereis" ; - VP (Fut Subj Pl P3) => proh_ + "ibieren" ; - VP (Cond Sg P1) => proh_ + "ibiría" ; - VP (Cond Sg P2) => proh_ + "ibirías" ; - VP (Cond Sg P3) => proh_ + "ibiría" ; - VP (Cond Pl P1) => proh_ + "ibiríamos" ; - VP (Cond Pl P2) => proh_ + "ibiríais" ; - VP (Cond Pl P3) => proh_ + "ibirían" ; + VP (Impf Ind Sg P1) => proh_ + "ibía" ; --# notpresent + VP (Impf Ind Sg P2) => proh_ + "ibías" ; --# notpresent + VP (Impf Ind Sg P3) => proh_ + "ibía" ; --# notpresent + VP (Impf Ind Pl P1) => proh_ + "ibíamos" ; --# notpresent + VP (Impf Ind Pl P2) => proh_ + "ibíais" ; --# notpresent + VP (Impf Ind Pl P3) => proh_ + "ibían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {proh_ + "ibiera" ; proh_ + "ibiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {proh_ + "ibieras" ; proh_ + "ibieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {proh_ + "ibiera" ; proh_ + "ibiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {proh_ + "ibiéramos" ; proh_ + "ibiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {proh_ + "ibierais" ; proh_ + "ibieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {proh_ + "ibieran" ; proh_ + "ibiesen"} ; --# notpresent + VP (Pret Sg P1) => proh_ + "ibí" ; --# notpresent + VP (Pret Sg P2) => proh_ + "ibiste" ; --# notpresent + VP (Pret Sg P3) => proh_ + "ibió" ; --# notpresent + VP (Pret Pl P1) => proh_ + "ibimos" ; --# notpresent + VP (Pret Pl P2) => proh_ + "ibisteis" ; --# notpresent + VP (Pret Pl P3) => proh_ + "ibieron" ; --# notpresent + VP (Fut Ind Sg P1) => proh_ + "ibiré" ; --# notpresent + VP (Fut Ind Sg P2) => proh_ + "ibirás" ; --# notpresent + VP (Fut Ind Sg P3) => proh_ + "ibirá" ; --# notpresent + VP (Fut Ind Pl P1) => proh_ + "ibiremos" ; --# notpresent + VP (Fut Ind Pl P2) => proh_ + "ibiréis" ; --# notpresent + VP (Fut Ind Pl P3) => proh_ + "ibirán" ; --# notpresent + VP (Fut Subj Sg P1) => proh_ + "ibiere" ; --# notpresent + VP (Fut Subj Sg P2) => proh_ + "ibieres" ; --# notpresent + VP (Fut Subj Sg P3) => proh_ + "ibiere" ; --# notpresent + VP (Fut Subj Pl P1) => proh_ + "ibiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => proh_ + "ibiereis" ; --# notpresent + VP (Fut Subj Pl P3) => proh_ + "ibieren" ; --# notpresent + VP (Cond Sg P1) => proh_ + "ibiría" ; --# notpresent + VP (Cond Sg P2) => proh_ + "ibirías" ; --# notpresent + VP (Cond Sg P3) => proh_ + "ibiría" ; --# notpresent + VP (Cond Pl P1) => proh_ + "ibiríamos" ; --# notpresent + VP (Cond Pl P2) => proh_ + "ibiríais" ; --# notpresent + VP (Cond Pl P3) => proh_ + "ibirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => proh_ + "íbe" ; VP (Imp Sg P3) => proh_ + "íba" ; @@ -4257,42 +4326,42 @@ oper querer_64 : Str -> Verbum = \querer -> VP (Pres Subj Pl P1) => qu_ + "eramos" ; VP (Pres Subj Pl P2) => qu_ + "eráis" ; VP (Pres Subj Pl P3) => qu_ + "ieran" ; - VP (Impf Ind Sg P1) => qu_ + "ería" ; - VP (Impf Ind Sg P2) => qu_ + "erías" ; - VP (Impf Ind Sg P3) => qu_ + "ería" ; - VP (Impf Ind Pl P1) => qu_ + "eríamos" ; - VP (Impf Ind Pl P2) => qu_ + "eríais" ; - VP (Impf Ind Pl P3) => qu_ + "erían" ; - VP (Impf Subj Sg P1) => variants {qu_ + "isiera" ; qu_ + "isiese"} ; - VP (Impf Subj Sg P2) => variants {qu_ + "isieras" ; qu_ + "isieses"} ; - VP (Impf Subj Sg P3) => variants {qu_ + "isiera" ; qu_ + "isiese"} ; - VP (Impf Subj Pl P1) => variants {qu_ + "isiéramos" ; qu_ + "isiésemos"} ; - VP (Impf Subj Pl P2) => variants {qu_ + "isierais" ; qu_ + "isieseis"} ; - VP (Impf Subj Pl P3) => variants {qu_ + "isieran" ; qu_ + "isiesen"} ; - VP (Pret Sg P1) => qu_ + "ise" ; - VP (Pret Sg P2) => qu_ + "isiste" ; - VP (Pret Sg P3) => qu_ + "iso" ; - VP (Pret Pl P1) => qu_ + "isimos" ; - VP (Pret Pl P2) => qu_ + "isisteis" ; - VP (Pret Pl P3) => qu_ + "isieron" ; - VP (Fut Ind Sg P1) => qu_ + "erré" ; - VP (Fut Ind Sg P2) => qu_ + "errás" ; - VP (Fut Ind Sg P3) => qu_ + "errá" ; - VP (Fut Ind Pl P1) => qu_ + "erremos" ; - VP (Fut Ind Pl P2) => qu_ + "erréis" ; - VP (Fut Ind Pl P3) => qu_ + "errán" ; - VP (Fut Subj Sg P1) => qu_ + "isiere" ; - VP (Fut Subj Sg P2) => qu_ + "isieres" ; - VP (Fut Subj Sg P3) => qu_ + "isiere" ; - VP (Fut Subj Pl P1) => qu_ + "isiéremos" ; - VP (Fut Subj Pl P2) => qu_ + "isiereis" ; - VP (Fut Subj Pl P3) => qu_ + "isieren" ; - VP (Cond Sg P1) => qu_ + "erría" ; - VP (Cond Sg P2) => qu_ + "errías" ; - VP (Cond Sg P3) => qu_ + "erría" ; - VP (Cond Pl P1) => qu_ + "erríamos" ; - VP (Cond Pl P2) => qu_ + "erríais" ; - VP (Cond Pl P3) => qu_ + "errían" ; + VP (Impf Ind Sg P1) => qu_ + "ería" ; --# notpresent + VP (Impf Ind Sg P2) => qu_ + "erías" ; --# notpresent + VP (Impf Ind Sg P3) => qu_ + "ería" ; --# notpresent + VP (Impf Ind Pl P1) => qu_ + "eríamos" ; --# notpresent + VP (Impf Ind Pl P2) => qu_ + "eríais" ; --# notpresent + VP (Impf Ind Pl P3) => qu_ + "erían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {qu_ + "isiera" ; qu_ + "isiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {qu_ + "isieras" ; qu_ + "isieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {qu_ + "isiera" ; qu_ + "isiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {qu_ + "isiéramos" ; qu_ + "isiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {qu_ + "isierais" ; qu_ + "isieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {qu_ + "isieran" ; qu_ + "isiesen"} ; --# notpresent + VP (Pret Sg P1) => qu_ + "ise" ; --# notpresent + VP (Pret Sg P2) => qu_ + "isiste" ; --# notpresent + VP (Pret Sg P3) => qu_ + "iso" ; --# notpresent + VP (Pret Pl P1) => qu_ + "isimos" ; --# notpresent + VP (Pret Pl P2) => qu_ + "isisteis" ; --# notpresent + VP (Pret Pl P3) => qu_ + "isieron" ; --# notpresent + VP (Fut Ind Sg P1) => qu_ + "erré" ; --# notpresent + VP (Fut Ind Sg P2) => qu_ + "errás" ; --# notpresent + VP (Fut Ind Sg P3) => qu_ + "errá" ; --# notpresent + VP (Fut Ind Pl P1) => qu_ + "erremos" ; --# notpresent + VP (Fut Ind Pl P2) => qu_ + "erréis" ; --# notpresent + VP (Fut Ind Pl P3) => qu_ + "errán" ; --# notpresent + VP (Fut Subj Sg P1) => qu_ + "isiere" ; --# notpresent + VP (Fut Subj Sg P2) => qu_ + "isieres" ; --# notpresent + VP (Fut Subj Sg P3) => qu_ + "isiere" ; --# notpresent + VP (Fut Subj Pl P1) => qu_ + "isiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => qu_ + "isiereis" ; --# notpresent + VP (Fut Subj Pl P3) => qu_ + "isieren" ; --# notpresent + VP (Cond Sg P1) => qu_ + "erría" ; --# notpresent + VP (Cond Sg P2) => qu_ + "errías" ; --# notpresent + VP (Cond Sg P3) => qu_ + "erría" ; --# notpresent + VP (Cond Pl P1) => qu_ + "erríamos" ; --# notpresent + VP (Cond Pl P2) => qu_ + "erríais" ; --# notpresent + VP (Cond Pl P3) => qu_ + "errían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => qu_ + "iere" ; VP (Imp Sg P3) => qu_ + "iera" ; @@ -4323,42 +4392,42 @@ oper raer_65 : Str -> Verbum = \raer -> VP (Pres Subj Pl P1) => ra_ + "igamos" ; VP (Pres Subj Pl P2) => ra_ + "igáis" ; VP (Pres Subj Pl P3) => ra_ + "igan" ; - VP (Impf Ind Sg P1) => ra_ + "ía" ; - VP (Impf Ind Sg P2) => ra_ + "ías" ; - VP (Impf Ind Sg P3) => ra_ + "ía" ; - VP (Impf Ind Pl P1) => ra_ + "íamos" ; - VP (Impf Ind Pl P2) => ra_ + "íais" ; - VP (Impf Ind Pl P3) => ra_ + "ían" ; - VP (Impf Subj Sg P1) => variants {ra_ + "yera" ; ra_ + "yese"} ; - VP (Impf Subj Sg P2) => variants {ra_ + "yeras" ; ra_ + "yeses"} ; - VP (Impf Subj Sg P3) => variants {ra_ + "yera" ; ra_ + "yese"} ; - VP (Impf Subj Pl P1) => variants {ra_ + "yéramos" ; ra_ + "yésemos"} ; - VP (Impf Subj Pl P2) => variants {ra_ + "yerais" ; ra_ + "yeseis"} ; - VP (Impf Subj Pl P3) => variants {ra_ + "yeran" ; ra_ + "yesen"} ; - VP (Pret Sg P1) => ra_ + "í" ; - VP (Pret Sg P2) => ra_ + "íste" ; - VP (Pret Sg P3) => ra_ + "yó" ; - VP (Pret Pl P1) => ra_ + "ímos" ; - VP (Pret Pl P2) => ra_ + "ísteis" ; - VP (Pret Pl P3) => ra_ + "yeron" ; - VP (Fut Ind Sg P1) => ra_ + "eré" ; - VP (Fut Ind Sg P2) => ra_ + "erás" ; - VP (Fut Ind Sg P3) => ra_ + "erá" ; - VP (Fut Ind Pl P1) => ra_ + "eremos" ; - VP (Fut Ind Pl P2) => ra_ + "eréis" ; - VP (Fut Ind Pl P3) => ra_ + "erán" ; - VP (Fut Subj Sg P1) => ra_ + "yere" ; - VP (Fut Subj Sg P2) => ra_ + "yeres" ; - VP (Fut Subj Sg P3) => ra_ + "yere" ; - VP (Fut Subj Pl P1) => ra_ + "yéremos" ; - VP (Fut Subj Pl P2) => ra_ + "yereis" ; - VP (Fut Subj Pl P3) => ra_ + "yeren" ; - VP (Cond Sg P1) => ra_ + "ería" ; - VP (Cond Sg P2) => ra_ + "erías" ; - VP (Cond Sg P3) => ra_ + "ería" ; - VP (Cond Pl P1) => ra_ + "eríamos" ; - VP (Cond Pl P2) => ra_ + "eríais" ; - VP (Cond Pl P3) => ra_ + "erían" ; + VP (Impf Ind Sg P1) => ra_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => ra_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => ra_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => ra_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => ra_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => ra_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {ra_ + "yera" ; ra_ + "yese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {ra_ + "yeras" ; ra_ + "yeses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {ra_ + "yera" ; ra_ + "yese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {ra_ + "yéramos" ; ra_ + "yésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {ra_ + "yerais" ; ra_ + "yeseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {ra_ + "yeran" ; ra_ + "yesen"} ; --# notpresent + VP (Pret Sg P1) => ra_ + "í" ; --# notpresent + VP (Pret Sg P2) => ra_ + "íste" ; --# notpresent + VP (Pret Sg P3) => ra_ + "yó" ; --# notpresent + VP (Pret Pl P1) => ra_ + "ímos" ; --# notpresent + VP (Pret Pl P2) => ra_ + "ísteis" ; --# notpresent + VP (Pret Pl P3) => ra_ + "yeron" ; --# notpresent + VP (Fut Ind Sg P1) => ra_ + "eré" ; --# notpresent + VP (Fut Ind Sg P2) => ra_ + "erás" ; --# notpresent + VP (Fut Ind Sg P3) => ra_ + "erá" ; --# notpresent + VP (Fut Ind Pl P1) => ra_ + "eremos" ; --# notpresent + VP (Fut Ind Pl P2) => ra_ + "eréis" ; --# notpresent + VP (Fut Ind Pl P3) => ra_ + "erán" ; --# notpresent + VP (Fut Subj Sg P1) => ra_ + "yere" ; --# notpresent + VP (Fut Subj Sg P2) => ra_ + "yeres" ; --# notpresent + VP (Fut Subj Sg P3) => ra_ + "yere" ; --# notpresent + VP (Fut Subj Pl P1) => ra_ + "yéremos" ; --# notpresent + VP (Fut Subj Pl P2) => ra_ + "yereis" ; --# notpresent + VP (Fut Subj Pl P3) => ra_ + "yeren" ; --# notpresent + VP (Cond Sg P1) => ra_ + "ería" ; --# notpresent + VP (Cond Sg P2) => ra_ + "erías" ; --# notpresent + VP (Cond Sg P3) => ra_ + "ería" ; --# notpresent + VP (Cond Pl P1) => ra_ + "eríamos" ; --# notpresent + VP (Cond Pl P2) => ra_ + "eríais" ; --# notpresent + VP (Cond Pl P3) => ra_ + "erían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => ra_ + "e" ; VP (Imp Sg P3) => ra_ + "iga" ; @@ -4389,42 +4458,42 @@ oper regar_66 : Str -> Verbum = \regar -> VP (Pres Subj Pl P1) => r_ + "eguemos" ; VP (Pres Subj Pl P2) => r_ + "eguéis" ; VP (Pres Subj Pl P3) => r_ + "ieguen" ; - VP (Impf Ind Sg P1) => r_ + "egaba" ; - VP (Impf Ind Sg P2) => r_ + "egabas" ; - VP (Impf Ind Sg P3) => r_ + "egaba" ; - VP (Impf Ind Pl P1) => r_ + "egábamos" ; - VP (Impf Ind Pl P2) => r_ + "egabais" ; - VP (Impf Ind Pl P3) => r_ + "egaban" ; - VP (Impf Subj Sg P1) => variants {r_ + "egara" ; r_ + "egase"} ; - VP (Impf Subj Sg P2) => variants {r_ + "egaras" ; r_ + "egases"} ; - VP (Impf Subj Sg P3) => variants {r_ + "egara" ; r_ + "egase"} ; - VP (Impf Subj Pl P1) => variants {r_ + "egáramos" ; r_ + "egásemos"} ; - VP (Impf Subj Pl P2) => variants {r_ + "egarais" ; r_ + "egaseis"} ; - VP (Impf Subj Pl P3) => variants {r_ + "egaran" ; r_ + "egasen"} ; - VP (Pret Sg P1) => r_ + "egué" ; - VP (Pret Sg P2) => r_ + "egaste" ; - VP (Pret Sg P3) => r_ + "egó" ; - VP (Pret Pl P1) => r_ + "egamos" ; - VP (Pret Pl P2) => r_ + "egasteis" ; - VP (Pret Pl P3) => r_ + "egaron" ; - VP (Fut Ind Sg P1) => r_ + "egaré" ; - VP (Fut Ind Sg P2) => r_ + "egarás" ; - VP (Fut Ind Sg P3) => r_ + "egará" ; - VP (Fut Ind Pl P1) => r_ + "egaremos" ; - VP (Fut Ind Pl P2) => r_ + "egaréis" ; - VP (Fut Ind Pl P3) => r_ + "egarán" ; - VP (Fut Subj Sg P1) => r_ + "egare" ; - VP (Fut Subj Sg P2) => r_ + "egares" ; - VP (Fut Subj Sg P3) => r_ + "egare" ; - VP (Fut Subj Pl P1) => r_ + "egáremos" ; - VP (Fut Subj Pl P2) => r_ + "egareis" ; - VP (Fut Subj Pl P3) => r_ + "egaren" ; - VP (Cond Sg P1) => r_ + "egaría" ; - VP (Cond Sg P2) => r_ + "egarías" ; - VP (Cond Sg P3) => r_ + "egaría" ; - VP (Cond Pl P1) => r_ + "egaríamos" ; - VP (Cond Pl P2) => r_ + "egaríais" ; - VP (Cond Pl P3) => r_ + "egarían" ; + VP (Impf Ind Sg P1) => r_ + "egaba" ; --# notpresent + VP (Impf Ind Sg P2) => r_ + "egabas" ; --# notpresent + VP (Impf Ind Sg P3) => r_ + "egaba" ; --# notpresent + VP (Impf Ind Pl P1) => r_ + "egábamos" ; --# notpresent + VP (Impf Ind Pl P2) => r_ + "egabais" ; --# notpresent + VP (Impf Ind Pl P3) => r_ + "egaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {r_ + "egara" ; r_ + "egase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {r_ + "egaras" ; r_ + "egases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {r_ + "egara" ; r_ + "egase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {r_ + "egáramos" ; r_ + "egásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {r_ + "egarais" ; r_ + "egaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {r_ + "egaran" ; r_ + "egasen"} ; --# notpresent + VP (Pret Sg P1) => r_ + "egué" ; --# notpresent + VP (Pret Sg P2) => r_ + "egaste" ; --# notpresent + VP (Pret Sg P3) => r_ + "egó" ; --# notpresent + VP (Pret Pl P1) => r_ + "egamos" ; --# notpresent + VP (Pret Pl P2) => r_ + "egasteis" ; --# notpresent + VP (Pret Pl P3) => r_ + "egaron" ; --# notpresent + VP (Fut Ind Sg P1) => r_ + "egaré" ; --# notpresent + VP (Fut Ind Sg P2) => r_ + "egarás" ; --# notpresent + VP (Fut Ind Sg P3) => r_ + "egará" ; --# notpresent + VP (Fut Ind Pl P1) => r_ + "egaremos" ; --# notpresent + VP (Fut Ind Pl P2) => r_ + "egaréis" ; --# notpresent + VP (Fut Ind Pl P3) => r_ + "egarán" ; --# notpresent + VP (Fut Subj Sg P1) => r_ + "egare" ; --# notpresent + VP (Fut Subj Sg P2) => r_ + "egares" ; --# notpresent + VP (Fut Subj Sg P3) => r_ + "egare" ; --# notpresent + VP (Fut Subj Pl P1) => r_ + "egáremos" ; --# notpresent + VP (Fut Subj Pl P2) => r_ + "egareis" ; --# notpresent + VP (Fut Subj Pl P3) => r_ + "egaren" ; --# notpresent + VP (Cond Sg P1) => r_ + "egaría" ; --# notpresent + VP (Cond Sg P2) => r_ + "egarías" ; --# notpresent + VP (Cond Sg P3) => r_ + "egaría" ; --# notpresent + VP (Cond Pl P1) => r_ + "egaríamos" ; --# notpresent + VP (Cond Pl P2) => r_ + "egaríais" ; --# notpresent + VP (Cond Pl P3) => r_ + "egarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => r_ + "iega" ; VP (Imp Sg P3) => r_ + "iegue" ; @@ -4455,42 +4524,42 @@ oper re VP (Pres Subj Pl P1) => r_ + "iñamos" ; VP (Pres Subj Pl P2) => r_ + "iñáis" ; VP (Pres Subj Pl P3) => r_ + "iñan" ; - VP (Impf Ind Sg P1) => r_ + "eñía" ; - VP (Impf Ind Sg P2) => r_ + "eñías" ; - VP (Impf Ind Sg P3) => r_ + "eñía" ; - VP (Impf Ind Pl P1) => r_ + "eñíamos" ; - VP (Impf Ind Pl P2) => r_ + "eñíais" ; - VP (Impf Ind Pl P3) => r_ + "eñían" ; - VP (Impf Subj Sg P1) => variants {r_ + "iñera" ; r_ + "iñese"} ; - VP (Impf Subj Sg P2) => variants {r_ + "iñeras" ; r_ + "iñeses"} ; - VP (Impf Subj Sg P3) => variants {r_ + "iñera" ; r_ + "iñese"} ; - VP (Impf Subj Pl P1) => variants {r_ + "iñéramos" ; r_ + "iñésemos"} ; - VP (Impf Subj Pl P2) => variants {r_ + "iñerais" ; r_ + "iñeseis"} ; - VP (Impf Subj Pl P3) => variants {r_ + "iñeran" ; r_ + "iñesen"} ; - VP (Pret Sg P1) => r_ + "eñí" ; - VP (Pret Sg P2) => r_ + "eñiste" ; - VP (Pret Sg P3) => r_ + "iñó" ; - VP (Pret Pl P1) => r_ + "eñimos" ; - VP (Pret Pl P2) => r_ + "eñisteis" ; - VP (Pret Pl P3) => r_ + "iñeron" ; - VP (Fut Ind Sg P1) => r_ + "eñiré" ; - VP (Fut Ind Sg P2) => r_ + "eñirás" ; - VP (Fut Ind Sg P3) => r_ + "eñirá" ; - VP (Fut Ind Pl P1) => r_ + "eñiremos" ; - VP (Fut Ind Pl P2) => r_ + "eñiréis" ; - VP (Fut Ind Pl P3) => r_ + "eñirán" ; - VP (Fut Subj Sg P1) => r_ + "iñere" ; - VP (Fut Subj Sg P2) => r_ + "iñeres" ; - VP (Fut Subj Sg P3) => r_ + "iñere" ; - VP (Fut Subj Pl P1) => r_ + "iñéremos" ; - VP (Fut Subj Pl P2) => r_ + "iñereis" ; - VP (Fut Subj Pl P3) => r_ + "iñeren" ; - VP (Cond Sg P1) => r_ + "eñiría" ; - VP (Cond Sg P2) => r_ + "eñirías" ; - VP (Cond Sg P3) => r_ + "eñiría" ; - VP (Cond Pl P1) => r_ + "eñiríamos" ; - VP (Cond Pl P2) => r_ + "eñiríais" ; - VP (Cond Pl P3) => r_ + "eñirían" ; + VP (Impf Ind Sg P1) => r_ + "eñía" ; --# notpresent + VP (Impf Ind Sg P2) => r_ + "eñías" ; --# notpresent + VP (Impf Ind Sg P3) => r_ + "eñía" ; --# notpresent + VP (Impf Ind Pl P1) => r_ + "eñíamos" ; --# notpresent + VP (Impf Ind Pl P2) => r_ + "eñíais" ; --# notpresent + VP (Impf Ind Pl P3) => r_ + "eñían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {r_ + "iñera" ; r_ + "iñese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {r_ + "iñeras" ; r_ + "iñeses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {r_ + "iñera" ; r_ + "iñese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {r_ + "iñéramos" ; r_ + "iñésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {r_ + "iñerais" ; r_ + "iñeseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {r_ + "iñeran" ; r_ + "iñesen"} ; --# notpresent + VP (Pret Sg P1) => r_ + "eñí" ; --# notpresent + VP (Pret Sg P2) => r_ + "eñiste" ; --# notpresent + VP (Pret Sg P3) => r_ + "iñó" ; --# notpresent + VP (Pret Pl P1) => r_ + "eñimos" ; --# notpresent + VP (Pret Pl P2) => r_ + "eñisteis" ; --# notpresent + VP (Pret Pl P3) => r_ + "iñeron" ; --# notpresent + VP (Fut Ind Sg P1) => r_ + "eñiré" ; --# notpresent + VP (Fut Ind Sg P2) => r_ + "eñirás" ; --# notpresent + VP (Fut Ind Sg P3) => r_ + "eñirá" ; --# notpresent + VP (Fut Ind Pl P1) => r_ + "eñiremos" ; --# notpresent + VP (Fut Ind Pl P2) => r_ + "eñiréis" ; --# notpresent + VP (Fut Ind Pl P3) => r_ + "eñirán" ; --# notpresent + VP (Fut Subj Sg P1) => r_ + "iñere" ; --# notpresent + VP (Fut Subj Sg P2) => r_ + "iñeres" ; --# notpresent + VP (Fut Subj Sg P3) => r_ + "iñere" ; --# notpresent + VP (Fut Subj Pl P1) => r_ + "iñéremos" ; --# notpresent + VP (Fut Subj Pl P2) => r_ + "iñereis" ; --# notpresent + VP (Fut Subj Pl P3) => r_ + "iñeren" ; --# notpresent + VP (Cond Sg P1) => r_ + "eñiría" ; --# notpresent + VP (Cond Sg P2) => r_ + "eñirías" ; --# notpresent + VP (Cond Sg P3) => r_ + "eñiría" ; --# notpresent + VP (Cond Pl P1) => r_ + "eñiríamos" ; --# notpresent + VP (Cond Pl P2) => r_ + "eñiríais" ; --# notpresent + VP (Cond Pl P3) => r_ + "eñirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => r_ + "iñe" ; VP (Imp Sg P3) => r_ + "iña" ; @@ -4521,42 +4590,42 @@ oper reunir_69 : Str -> Verbum = \reunir -> VP (Pres Subj Pl P1) => re_ + "unamos" ; VP (Pres Subj Pl P2) => re_ + "unáis" ; VP (Pres Subj Pl P3) => re_ + "únan" ; - VP (Impf Ind Sg P1) => re_ + "unía" ; - VP (Impf Ind Sg P2) => re_ + "unías" ; - VP (Impf Ind Sg P3) => re_ + "unía" ; - VP (Impf Ind Pl P1) => re_ + "uníamos" ; - VP (Impf Ind Pl P2) => re_ + "uníais" ; - VP (Impf Ind Pl P3) => re_ + "unían" ; - VP (Impf Subj Sg P1) => variants {re_ + "uniera" ; re_ + "uniese"} ; - VP (Impf Subj Sg P2) => variants {re_ + "unieras" ; re_ + "unieses"} ; - VP (Impf Subj Sg P3) => variants {re_ + "uniera" ; re_ + "uniese"} ; - VP (Impf Subj Pl P1) => variants {re_ + "uniéramos" ; re_ + "uniésemos"} ; - VP (Impf Subj Pl P2) => variants {re_ + "unierais" ; re_ + "unieseis"} ; - VP (Impf Subj Pl P3) => variants {re_ + "unieran" ; re_ + "uniesen"} ; - VP (Pret Sg P1) => re_ + "uní" ; - VP (Pret Sg P2) => re_ + "uniste" ; - VP (Pret Sg P3) => re_ + "unió" ; - VP (Pret Pl P1) => re_ + "unimos" ; - VP (Pret Pl P2) => re_ + "unisteis" ; - VP (Pret Pl P3) => re_ + "unieron" ; - VP (Fut Ind Sg P1) => re_ + "uniré" ; - VP (Fut Ind Sg P2) => re_ + "unirás" ; - VP (Fut Ind Sg P3) => re_ + "unirá" ; - VP (Fut Ind Pl P1) => re_ + "uniremos" ; - VP (Fut Ind Pl P2) => re_ + "uniréis" ; - VP (Fut Ind Pl P3) => re_ + "unirán" ; - VP (Fut Subj Sg P1) => re_ + "uniere" ; - VP (Fut Subj Sg P2) => re_ + "unieres" ; - VP (Fut Subj Sg P3) => re_ + "uniere" ; - VP (Fut Subj Pl P1) => re_ + "uniéremos" ; - VP (Fut Subj Pl P2) => re_ + "uniereis" ; - VP (Fut Subj Pl P3) => re_ + "unieren" ; - VP (Cond Sg P1) => re_ + "uniría" ; - VP (Cond Sg P2) => re_ + "unirías" ; - VP (Cond Sg P3) => re_ + "uniría" ; - VP (Cond Pl P1) => re_ + "uniríamos" ; - VP (Cond Pl P2) => re_ + "uniríais" ; - VP (Cond Pl P3) => re_ + "unirían" ; + VP (Impf Ind Sg P1) => re_ + "unía" ; --# notpresent + VP (Impf Ind Sg P2) => re_ + "unías" ; --# notpresent + VP (Impf Ind Sg P3) => re_ + "unía" ; --# notpresent + VP (Impf Ind Pl P1) => re_ + "uníamos" ; --# notpresent + VP (Impf Ind Pl P2) => re_ + "uníais" ; --# notpresent + VP (Impf Ind Pl P3) => re_ + "unían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {re_ + "uniera" ; re_ + "uniese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {re_ + "unieras" ; re_ + "unieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {re_ + "uniera" ; re_ + "uniese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {re_ + "uniéramos" ; re_ + "uniésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {re_ + "unierais" ; re_ + "unieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {re_ + "unieran" ; re_ + "uniesen"} ; --# notpresent + VP (Pret Sg P1) => re_ + "uní" ; --# notpresent + VP (Pret Sg P2) => re_ + "uniste" ; --# notpresent + VP (Pret Sg P3) => re_ + "unió" ; --# notpresent + VP (Pret Pl P1) => re_ + "unimos" ; --# notpresent + VP (Pret Pl P2) => re_ + "unisteis" ; --# notpresent + VP (Pret Pl P3) => re_ + "unieron" ; --# notpresent + VP (Fut Ind Sg P1) => re_ + "uniré" ; --# notpresent + VP (Fut Ind Sg P2) => re_ + "unirás" ; --# notpresent + VP (Fut Ind Sg P3) => re_ + "unirá" ; --# notpresent + VP (Fut Ind Pl P1) => re_ + "uniremos" ; --# notpresent + VP (Fut Ind Pl P2) => re_ + "uniréis" ; --# notpresent + VP (Fut Ind Pl P3) => re_ + "unirán" ; --# notpresent + VP (Fut Subj Sg P1) => re_ + "uniere" ; --# notpresent + VP (Fut Subj Sg P2) => re_ + "unieres" ; --# notpresent + VP (Fut Subj Sg P3) => re_ + "uniere" ; --# notpresent + VP (Fut Subj Pl P1) => re_ + "uniéremos" ; --# notpresent + VP (Fut Subj Pl P2) => re_ + "uniereis" ; --# notpresent + VP (Fut Subj Pl P3) => re_ + "unieren" ; --# notpresent + VP (Cond Sg P1) => re_ + "uniría" ; --# notpresent + VP (Cond Sg P2) => re_ + "unirías" ; --# notpresent + VP (Cond Sg P3) => re_ + "uniría" ; --# notpresent + VP (Cond Pl P1) => re_ + "uniríamos" ; --# notpresent + VP (Cond Pl P2) => re_ + "uniríais" ; --# notpresent + VP (Cond Pl P3) => re_ + "unirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => re_ + "úne" ; VP (Imp Sg P3) => re_ + "úna" ; @@ -4587,42 +4656,42 @@ oper roer_70 : Str -> Verbum = \roer -> VP (Pres Subj Pl P1) => ro_ + "amos" ; VP (Pres Subj Pl P2) => ro_ + "áis" ; VP (Pres Subj Pl P3) => ro_ + "an" ; - VP (Impf Ind Sg P1) => ro_ + "ía" ; - VP (Impf Ind Sg P2) => ro_ + "ías" ; - VP (Impf Ind Sg P3) => ro_ + "ía" ; - VP (Impf Ind Pl P1) => ro_ + "íamos" ; - VP (Impf Ind Pl P2) => ro_ + "íais" ; - VP (Impf Ind Pl P3) => ro_ + "ían" ; - VP (Impf Subj Sg P1) => variants {ro_ + "yera" ; ro_ + "yese"} ; - VP (Impf Subj Sg P2) => variants {ro_ + "yeras" ; ro_ + "yeses"} ; - VP (Impf Subj Sg P3) => variants {ro_ + "yera" ; ro_ + "yese"} ; - VP (Impf Subj Pl P1) => variants {ro_ + "yéramos" ; ro_ + "yésemos"} ; - VP (Impf Subj Pl P2) => variants {ro_ + "yerais" ; ro_ + "yeseis"} ; - VP (Impf Subj Pl P3) => variants {ro_ + "yeran" ; ro_ + "yesen"} ; - VP (Pret Sg P1) => ro_ + "í" ; - VP (Pret Sg P2) => ro_ + "íste" ; - VP (Pret Sg P3) => ro_ + "yó" ; - VP (Pret Pl P1) => ro_ + "ímos" ; - VP (Pret Pl P2) => ro_ + "ísteis" ; - VP (Pret Pl P3) => ro_ + "yeron" ; - VP (Fut Ind Sg P1) => ro_ + "eré" ; - VP (Fut Ind Sg P2) => ro_ + "erás" ; - VP (Fut Ind Sg P3) => ro_ + "erá" ; - VP (Fut Ind Pl P1) => ro_ + "eremos" ; - VP (Fut Ind Pl P2) => ro_ + "eréis" ; - VP (Fut Ind Pl P3) => ro_ + "erán" ; - VP (Fut Subj Sg P1) => ro_ + "yere" ; - VP (Fut Subj Sg P2) => ro_ + "yeres" ; - VP (Fut Subj Sg P3) => ro_ + "yere" ; - VP (Fut Subj Pl P1) => ro_ + "yéremos" ; - VP (Fut Subj Pl P2) => ro_ + "yereis" ; - VP (Fut Subj Pl P3) => ro_ + "yeren" ; - VP (Cond Sg P1) => ro_ + "ería" ; - VP (Cond Sg P2) => ro_ + "erías" ; - VP (Cond Sg P3) => ro_ + "ería" ; - VP (Cond Pl P1) => ro_ + "eríamos" ; - VP (Cond Pl P2) => ro_ + "eríais" ; - VP (Cond Pl P3) => ro_ + "erían" ; + VP (Impf Ind Sg P1) => ro_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => ro_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => ro_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => ro_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => ro_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => ro_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {ro_ + "yera" ; ro_ + "yese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {ro_ + "yeras" ; ro_ + "yeses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {ro_ + "yera" ; ro_ + "yese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {ro_ + "yéramos" ; ro_ + "yésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {ro_ + "yerais" ; ro_ + "yeseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {ro_ + "yeran" ; ro_ + "yesen"} ; --# notpresent + VP (Pret Sg P1) => ro_ + "í" ; --# notpresent + VP (Pret Sg P2) => ro_ + "íste" ; --# notpresent + VP (Pret Sg P3) => ro_ + "yó" ; --# notpresent + VP (Pret Pl P1) => ro_ + "ímos" ; --# notpresent + VP (Pret Pl P2) => ro_ + "ísteis" ; --# notpresent + VP (Pret Pl P3) => ro_ + "yeron" ; --# notpresent + VP (Fut Ind Sg P1) => ro_ + "eré" ; --# notpresent + VP (Fut Ind Sg P2) => ro_ + "erás" ; --# notpresent + VP (Fut Ind Sg P3) => ro_ + "erá" ; --# notpresent + VP (Fut Ind Pl P1) => ro_ + "eremos" ; --# notpresent + VP (Fut Ind Pl P2) => ro_ + "eréis" ; --# notpresent + VP (Fut Ind Pl P3) => ro_ + "erán" ; --# notpresent + VP (Fut Subj Sg P1) => ro_ + "yere" ; --# notpresent + VP (Fut Subj Sg P2) => ro_ + "yeres" ; --# notpresent + VP (Fut Subj Sg P3) => ro_ + "yere" ; --# notpresent + VP (Fut Subj Pl P1) => ro_ + "yéremos" ; --# notpresent + VP (Fut Subj Pl P2) => ro_ + "yereis" ; --# notpresent + VP (Fut Subj Pl P3) => ro_ + "yeren" ; --# notpresent + VP (Cond Sg P1) => ro_ + "ería" ; --# notpresent + VP (Cond Sg P2) => ro_ + "erías" ; --# notpresent + VP (Cond Sg P3) => ro_ + "ería" ; --# notpresent + VP (Cond Pl P1) => ro_ + "eríamos" ; --# notpresent + VP (Cond Pl P2) => ro_ + "eríais" ; --# notpresent + VP (Cond Pl P3) => ro_ + "erían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => ro_ + "e" ; VP (Imp Sg P3) => ro_ + "a" ; @@ -4653,42 +4722,42 @@ oper saber_71 : Str -> Verbum = \saber -> VP (Pres Subj Pl P1) => s_ + "epamos" ; VP (Pres Subj Pl P2) => s_ + "epáis" ; VP (Pres Subj Pl P3) => s_ + "epan" ; - VP (Impf Ind Sg P1) => s_ + "abía" ; - VP (Impf Ind Sg P2) => s_ + "abías" ; - VP (Impf Ind Sg P3) => s_ + "abía" ; - VP (Impf Ind Pl P1) => s_ + "abíamos" ; - VP (Impf Ind Pl P2) => s_ + "abíais" ; - VP (Impf Ind Pl P3) => s_ + "abían" ; - VP (Impf Subj Sg P1) => variants {s_ + "upiera" ; s_ + "upiese"} ; - VP (Impf Subj Sg P2) => variants {s_ + "upieras" ; s_ + "upieses"} ; - VP (Impf Subj Sg P3) => variants {s_ + "upiera" ; s_ + "upiese"} ; - VP (Impf Subj Pl P1) => variants {s_ + "upiéramos" ; s_ + "upiésemos"} ; - VP (Impf Subj Pl P2) => variants {s_ + "upierais" ; s_ + "upieseis"} ; - VP (Impf Subj Pl P3) => variants {s_ + "upieran" ; s_ + "upiesen"} ; - VP (Pret Sg P1) => s_ + "upe" ; - VP (Pret Sg P2) => s_ + "upiste" ; - VP (Pret Sg P3) => s_ + "upo" ; - VP (Pret Pl P1) => s_ + "upimos" ; - VP (Pret Pl P2) => s_ + "upisteis" ; - VP (Pret Pl P3) => s_ + "upieron" ; - VP (Fut Ind Sg P1) => s_ + "abré" ; - VP (Fut Ind Sg P2) => s_ + "abrás" ; - VP (Fut Ind Sg P3) => s_ + "abrá" ; - VP (Fut Ind Pl P1) => s_ + "abremos" ; - VP (Fut Ind Pl P2) => s_ + "abréis" ; - VP (Fut Ind Pl P3) => s_ + "abrán" ; - VP (Fut Subj Sg P1) => s_ + "upiere" ; - VP (Fut Subj Sg P2) => s_ + "upieres" ; - VP (Fut Subj Sg P3) => s_ + "upiere" ; - VP (Fut Subj Pl P1) => s_ + "upiéremos" ; - VP (Fut Subj Pl P2) => s_ + "upiereis" ; - VP (Fut Subj Pl P3) => s_ + "upieren" ; - VP (Cond Sg P1) => s_ + "abría" ; - VP (Cond Sg P2) => s_ + "abrías" ; - VP (Cond Sg P3) => s_ + "abría" ; - VP (Cond Pl P1) => s_ + "abríamos" ; - VP (Cond Pl P2) => s_ + "abríais" ; - VP (Cond Pl P3) => s_ + "abrían" ; + VP (Impf Ind Sg P1) => s_ + "abía" ; --# notpresent + VP (Impf Ind Sg P2) => s_ + "abías" ; --# notpresent + VP (Impf Ind Sg P3) => s_ + "abía" ; --# notpresent + VP (Impf Ind Pl P1) => s_ + "abíamos" ; --# notpresent + VP (Impf Ind Pl P2) => s_ + "abíais" ; --# notpresent + VP (Impf Ind Pl P3) => s_ + "abían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {s_ + "upiera" ; s_ + "upiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {s_ + "upieras" ; s_ + "upieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {s_ + "upiera" ; s_ + "upiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {s_ + "upiéramos" ; s_ + "upiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {s_ + "upierais" ; s_ + "upieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {s_ + "upieran" ; s_ + "upiesen"} ; --# notpresent + VP (Pret Sg P1) => s_ + "upe" ; --# notpresent + VP (Pret Sg P2) => s_ + "upiste" ; --# notpresent + VP (Pret Sg P3) => s_ + "upo" ; --# notpresent + VP (Pret Pl P1) => s_ + "upimos" ; --# notpresent + VP (Pret Pl P2) => s_ + "upisteis" ; --# notpresent + VP (Pret Pl P3) => s_ + "upieron" ; --# notpresent + VP (Fut Ind Sg P1) => s_ + "abré" ; --# notpresent + VP (Fut Ind Sg P2) => s_ + "abrás" ; --# notpresent + VP (Fut Ind Sg P3) => s_ + "abrá" ; --# notpresent + VP (Fut Ind Pl P1) => s_ + "abremos" ; --# notpresent + VP (Fut Ind Pl P2) => s_ + "abréis" ; --# notpresent + VP (Fut Ind Pl P3) => s_ + "abrán" ; --# notpresent + VP (Fut Subj Sg P1) => s_ + "upiere" ; --# notpresent + VP (Fut Subj Sg P2) => s_ + "upieres" ; --# notpresent + VP (Fut Subj Sg P3) => s_ + "upiere" ; --# notpresent + VP (Fut Subj Pl P1) => s_ + "upiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => s_ + "upiereis" ; --# notpresent + VP (Fut Subj Pl P3) => s_ + "upieren" ; --# notpresent + VP (Cond Sg P1) => s_ + "abría" ; --# notpresent + VP (Cond Sg P2) => s_ + "abrías" ; --# notpresent + VP (Cond Sg P3) => s_ + "abría" ; --# notpresent + VP (Cond Pl P1) => s_ + "abríamos" ; --# notpresent + VP (Cond Pl P2) => s_ + "abríais" ; --# notpresent + VP (Cond Pl P3) => s_ + "abrían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => s_ + "abe" ; VP (Imp Sg P3) => s_ + "epa" ; @@ -4719,42 +4788,42 @@ oper sacar_72 : Str -> Verbum = \sacar -> VP (Pres Subj Pl P1) => sa_ + "quemos" ; VP (Pres Subj Pl P2) => sa_ + "quéis" ; VP (Pres Subj Pl P3) => sa_ + "quen" ; - VP (Impf Ind Sg P1) => sa_ + "caba" ; - VP (Impf Ind Sg P2) => sa_ + "cabas" ; - VP (Impf Ind Sg P3) => sa_ + "caba" ; - VP (Impf Ind Pl P1) => sa_ + "cábamos" ; - VP (Impf Ind Pl P2) => sa_ + "cabais" ; - VP (Impf Ind Pl P3) => sa_ + "caban" ; - VP (Impf Subj Sg P1) => variants {sa_ + "cara" ; sa_ + "case"} ; - VP (Impf Subj Sg P2) => variants {sa_ + "caras" ; sa_ + "cases"} ; - VP (Impf Subj Sg P3) => variants {sa_ + "cara" ; sa_ + "case"} ; - VP (Impf Subj Pl P1) => variants {sa_ + "cáramos" ; sa_ + "cásemos"} ; - VP (Impf Subj Pl P2) => variants {sa_ + "carais" ; sa_ + "caseis"} ; - VP (Impf Subj Pl P3) => variants {sa_ + "caran" ; sa_ + "casen"} ; - VP (Pret Sg P1) => sa_ + "qué" ; - VP (Pret Sg P2) => sa_ + "caste" ; - VP (Pret Sg P3) => sa_ + "có" ; - VP (Pret Pl P1) => sa_ + "camos" ; - VP (Pret Pl P2) => sa_ + "casteis" ; - VP (Pret Pl P3) => sa_ + "caron" ; - VP (Fut Ind Sg P1) => sa_ + "caré" ; - VP (Fut Ind Sg P2) => sa_ + "carás" ; - VP (Fut Ind Sg P3) => sa_ + "cará" ; - VP (Fut Ind Pl P1) => sa_ + "caremos" ; - VP (Fut Ind Pl P2) => sa_ + "caréis" ; - VP (Fut Ind Pl P3) => sa_ + "carán" ; - VP (Fut Subj Sg P1) => sa_ + "care" ; - VP (Fut Subj Sg P2) => sa_ + "cares" ; - VP (Fut Subj Sg P3) => sa_ + "care" ; - VP (Fut Subj Pl P1) => sa_ + "cáremos" ; - VP (Fut Subj Pl P2) => sa_ + "careis" ; - VP (Fut Subj Pl P3) => sa_ + "caren" ; - VP (Cond Sg P1) => sa_ + "caría" ; - VP (Cond Sg P2) => sa_ + "carías" ; - VP (Cond Sg P3) => sa_ + "caría" ; - VP (Cond Pl P1) => sa_ + "caríamos" ; - VP (Cond Pl P2) => sa_ + "caríais" ; - VP (Cond Pl P3) => sa_ + "carían" ; + VP (Impf Ind Sg P1) => sa_ + "caba" ; --# notpresent + VP (Impf Ind Sg P2) => sa_ + "cabas" ; --# notpresent + VP (Impf Ind Sg P3) => sa_ + "caba" ; --# notpresent + VP (Impf Ind Pl P1) => sa_ + "cábamos" ; --# notpresent + VP (Impf Ind Pl P2) => sa_ + "cabais" ; --# notpresent + VP (Impf Ind Pl P3) => sa_ + "caban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {sa_ + "cara" ; sa_ + "case"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {sa_ + "caras" ; sa_ + "cases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {sa_ + "cara" ; sa_ + "case"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {sa_ + "cáramos" ; sa_ + "cásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {sa_ + "carais" ; sa_ + "caseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {sa_ + "caran" ; sa_ + "casen"} ; --# notpresent + VP (Pret Sg P1) => sa_ + "qué" ; --# notpresent + VP (Pret Sg P2) => sa_ + "caste" ; --# notpresent + VP (Pret Sg P3) => sa_ + "có" ; --# notpresent + VP (Pret Pl P1) => sa_ + "camos" ; --# notpresent + VP (Pret Pl P2) => sa_ + "casteis" ; --# notpresent + VP (Pret Pl P3) => sa_ + "caron" ; --# notpresent + VP (Fut Ind Sg P1) => sa_ + "caré" ; --# notpresent + VP (Fut Ind Sg P2) => sa_ + "carás" ; --# notpresent + VP (Fut Ind Sg P3) => sa_ + "cará" ; --# notpresent + VP (Fut Ind Pl P1) => sa_ + "caremos" ; --# notpresent + VP (Fut Ind Pl P2) => sa_ + "caréis" ; --# notpresent + VP (Fut Ind Pl P3) => sa_ + "carán" ; --# notpresent + VP (Fut Subj Sg P1) => sa_ + "care" ; --# notpresent + VP (Fut Subj Sg P2) => sa_ + "cares" ; --# notpresent + VP (Fut Subj Sg P3) => sa_ + "care" ; --# notpresent + VP (Fut Subj Pl P1) => sa_ + "cáremos" ; --# notpresent + VP (Fut Subj Pl P2) => sa_ + "careis" ; --# notpresent + VP (Fut Subj Pl P3) => sa_ + "caren" ; --# notpresent + VP (Cond Sg P1) => sa_ + "caría" ; --# notpresent + VP (Cond Sg P2) => sa_ + "carías" ; --# notpresent + VP (Cond Sg P3) => sa_ + "caría" ; --# notpresent + VP (Cond Pl P1) => sa_ + "caríamos" ; --# notpresent + VP (Cond Pl P2) => sa_ + "caríais" ; --# notpresent + VP (Cond Pl P3) => sa_ + "carían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => sa_ + "ca" ; VP (Imp Sg P3) => sa_ + "que" ; @@ -4785,42 +4854,42 @@ oper salir_73 : Str -> Verbum = \salir -> VP (Pres Subj Pl P1) => sal_ + "gamos" ; VP (Pres Subj Pl P2) => sal_ + "gáis" ; VP (Pres Subj Pl P3) => sal_ + "gan" ; - VP (Impf Ind Sg P1) => sal_ + "ía" ; - VP (Impf Ind Sg P2) => sal_ + "ías" ; - VP (Impf Ind Sg P3) => sal_ + "ía" ; - VP (Impf Ind Pl P1) => sal_ + "íamos" ; - VP (Impf Ind Pl P2) => sal_ + "íais" ; - VP (Impf Ind Pl P3) => sal_ + "ían" ; - VP (Impf Subj Sg P1) => variants {sal_ + "iera" ; sal_ + "iese"} ; - VP (Impf Subj Sg P2) => variants {sal_ + "ieras" ; sal_ + "ieses"} ; - VP (Impf Subj Sg P3) => variants {sal_ + "iera" ; sal_ + "iese"} ; - VP (Impf Subj Pl P1) => variants {sal_ + "iéramos" ; sal_ + "iésemos"} ; - VP (Impf Subj Pl P2) => variants {sal_ + "ierais" ; sal_ + "ieseis"} ; - VP (Impf Subj Pl P3) => variants {sal_ + "ieran" ; sal_ + "iesen"} ; - VP (Pret Sg P1) => sal_ + "í" ; - VP (Pret Sg P2) => sal_ + "iste" ; - VP (Pret Sg P3) => sal_ + "ió" ; - VP (Pret Pl P1) => sal_ + "imos" ; - VP (Pret Pl P2) => sal_ + "isteis" ; - VP (Pret Pl P3) => sal_ + "ieron" ; - VP (Fut Ind Sg P1) => sal_ + "dré" ; - VP (Fut Ind Sg P2) => sal_ + "drás" ; - VP (Fut Ind Sg P3) => sal_ + "drá" ; - VP (Fut Ind Pl P1) => sal_ + "dremos" ; - VP (Fut Ind Pl P2) => sal_ + "dréis" ; - VP (Fut Ind Pl P3) => sal_ + "drán" ; - VP (Fut Subj Sg P1) => sal_ + "iere" ; - VP (Fut Subj Sg P2) => sal_ + "ieres" ; - VP (Fut Subj Sg P3) => sal_ + "iere" ; - VP (Fut Subj Pl P1) => sal_ + "iéremos" ; - VP (Fut Subj Pl P2) => sal_ + "iereis" ; - VP (Fut Subj Pl P3) => sal_ + "ieren" ; - VP (Cond Sg P1) => sal_ + "dría" ; - VP (Cond Sg P2) => sal_ + "drías" ; - VP (Cond Sg P3) => sal_ + "dría" ; - VP (Cond Pl P1) => sal_ + "dríamos" ; - VP (Cond Pl P2) => sal_ + "dríais" ; - VP (Cond Pl P3) => sal_ + "drían" ; + VP (Impf Ind Sg P1) => sal_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => sal_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => sal_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => sal_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => sal_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => sal_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {sal_ + "iera" ; sal_ + "iese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {sal_ + "ieras" ; sal_ + "ieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {sal_ + "iera" ; sal_ + "iese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {sal_ + "iéramos" ; sal_ + "iésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {sal_ + "ierais" ; sal_ + "ieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {sal_ + "ieran" ; sal_ + "iesen"} ; --# notpresent + VP (Pret Sg P1) => sal_ + "í" ; --# notpresent + VP (Pret Sg P2) => sal_ + "iste" ; --# notpresent + VP (Pret Sg P3) => sal_ + "ió" ; --# notpresent + VP (Pret Pl P1) => sal_ + "imos" ; --# notpresent + VP (Pret Pl P2) => sal_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => sal_ + "ieron" ; --# notpresent + VP (Fut Ind Sg P1) => sal_ + "dré" ; --# notpresent + VP (Fut Ind Sg P2) => sal_ + "drás" ; --# notpresent + VP (Fut Ind Sg P3) => sal_ + "drá" ; --# notpresent + VP (Fut Ind Pl P1) => sal_ + "dremos" ; --# notpresent + VP (Fut Ind Pl P2) => sal_ + "dréis" ; --# notpresent + VP (Fut Ind Pl P3) => sal_ + "drán" ; --# notpresent + VP (Fut Subj Sg P1) => sal_ + "iere" ; --# notpresent + VP (Fut Subj Sg P2) => sal_ + "ieres" ; --# notpresent + VP (Fut Subj Sg P3) => sal_ + "iere" ; --# notpresent + VP (Fut Subj Pl P1) => sal_ + "iéremos" ; --# notpresent + VP (Fut Subj Pl P2) => sal_ + "iereis" ; --# notpresent + VP (Fut Subj Pl P3) => sal_ + "ieren" ; --# notpresent + VP (Cond Sg P1) => sal_ + "dría" ; --# notpresent + VP (Cond Sg P2) => sal_ + "drías" ; --# notpresent + VP (Cond Sg P3) => sal_ + "dría" ; --# notpresent + VP (Cond Pl P1) => sal_ + "dríamos" ; --# notpresent + VP (Cond Pl P2) => sal_ + "dríais" ; --# notpresent + VP (Cond Pl P3) => sal_ + "drían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => sal_ + "" ; VP (Imp Sg P3) => sal_ + "ga" ; @@ -4851,42 +4920,42 @@ oper satisfacer_74 : Str -> Verbum = \satisfacer -> VP (Pres Subj Pl P1) => satisf_ + "agamos" ; VP (Pres Subj Pl P2) => satisf_ + "agáis" ; VP (Pres Subj Pl P3) => satisf_ + "agan" ; - VP (Impf Ind Sg P1) => satisf_ + "acía" ; - VP (Impf Ind Sg P2) => satisf_ + "acías" ; - VP (Impf Ind Sg P3) => satisf_ + "acía" ; - VP (Impf Ind Pl P1) => satisf_ + "acíamos" ; - VP (Impf Ind Pl P2) => satisf_ + "acíais" ; - VP (Impf Ind Pl P3) => satisf_ + "acían" ; - VP (Impf Subj Sg P1) => variants {satisf_ + "iciera" ; satisf_ + "iciese"} ; - VP (Impf Subj Sg P2) => variants {satisf_ + "icieras" ; satisf_ + "icieses"} ; - VP (Impf Subj Sg P3) => variants {satisf_ + "iciera" ; satisf_ + "iciese"} ; - VP (Impf Subj Pl P1) => variants {satisf_ + "iciéramos" ; satisf_ + "iciésemos"} ; - VP (Impf Subj Pl P2) => variants {satisf_ + "icierais" ; satisf_ + "icieseis"} ; - VP (Impf Subj Pl P3) => variants {satisf_ + "icieran" ; satisf_ + "iciesen"} ; - VP (Pret Sg P1) => satisf_ + "ice" ; - VP (Pret Sg P2) => satisf_ + "iciste" ; - VP (Pret Sg P3) => satisf_ + "izo" ; - VP (Pret Pl P1) => satisf_ + "icimos" ; - VP (Pret Pl P2) => satisf_ + "icisteis" ; - VP (Pret Pl P3) => satisf_ + "icieron" ; - VP (Fut Ind Sg P1) => satisf_ + "aré" ; - VP (Fut Ind Sg P2) => satisf_ + "arás" ; - VP (Fut Ind Sg P3) => satisf_ + "ará" ; - VP (Fut Ind Pl P1) => satisf_ + "aremos" ; - VP (Fut Ind Pl P2) => satisf_ + "aréis" ; - VP (Fut Ind Pl P3) => satisf_ + "arán" ; - VP (Fut Subj Sg P1) => satisf_ + "iciere" ; - VP (Fut Subj Sg P2) => satisf_ + "icieres" ; - VP (Fut Subj Sg P3) => satisf_ + "iciere" ; - VP (Fut Subj Pl P1) => satisf_ + "iciéremos" ; - VP (Fut Subj Pl P2) => satisf_ + "iciereis" ; - VP (Fut Subj Pl P3) => satisf_ + "icieren" ; - VP (Cond Sg P1) => satisf_ + "aría" ; - VP (Cond Sg P2) => satisf_ + "arías" ; - VP (Cond Sg P3) => satisf_ + "aría" ; - VP (Cond Pl P1) => satisf_ + "aríamos" ; - VP (Cond Pl P2) => satisf_ + "aríais" ; - VP (Cond Pl P3) => satisf_ + "arían" ; + VP (Impf Ind Sg P1) => satisf_ + "acía" ; --# notpresent + VP (Impf Ind Sg P2) => satisf_ + "acías" ; --# notpresent + VP (Impf Ind Sg P3) => satisf_ + "acía" ; --# notpresent + VP (Impf Ind Pl P1) => satisf_ + "acíamos" ; --# notpresent + VP (Impf Ind Pl P2) => satisf_ + "acíais" ; --# notpresent + VP (Impf Ind Pl P3) => satisf_ + "acían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {satisf_ + "iciera" ; satisf_ + "iciese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {satisf_ + "icieras" ; satisf_ + "icieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {satisf_ + "iciera" ; satisf_ + "iciese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {satisf_ + "iciéramos" ; satisf_ + "iciésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {satisf_ + "icierais" ; satisf_ + "icieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {satisf_ + "icieran" ; satisf_ + "iciesen"} ; --# notpresent + VP (Pret Sg P1) => satisf_ + "ice" ; --# notpresent + VP (Pret Sg P2) => satisf_ + "iciste" ; --# notpresent + VP (Pret Sg P3) => satisf_ + "izo" ; --# notpresent + VP (Pret Pl P1) => satisf_ + "icimos" ; --# notpresent + VP (Pret Pl P2) => satisf_ + "icisteis" ; --# notpresent + VP (Pret Pl P3) => satisf_ + "icieron" ; --# notpresent + VP (Fut Ind Sg P1) => satisf_ + "aré" ; --# notpresent + VP (Fut Ind Sg P2) => satisf_ + "arás" ; --# notpresent + VP (Fut Ind Sg P3) => satisf_ + "ará" ; --# notpresent + VP (Fut Ind Pl P1) => satisf_ + "aremos" ; --# notpresent + VP (Fut Ind Pl P2) => satisf_ + "aréis" ; --# notpresent + VP (Fut Ind Pl P3) => satisf_ + "arán" ; --# notpresent + VP (Fut Subj Sg P1) => satisf_ + "iciere" ; --# notpresent + VP (Fut Subj Sg P2) => satisf_ + "icieres" ; --# notpresent + VP (Fut Subj Sg P3) => satisf_ + "iciere" ; --# notpresent + VP (Fut Subj Pl P1) => satisf_ + "iciéremos" ; --# notpresent + VP (Fut Subj Pl P2) => satisf_ + "iciereis" ; --# notpresent + VP (Fut Subj Pl P3) => satisf_ + "icieren" ; --# notpresent + VP (Cond Sg P1) => satisf_ + "aría" ; --# notpresent + VP (Cond Sg P2) => satisf_ + "arías" ; --# notpresent + VP (Cond Sg P3) => satisf_ + "aría" ; --# notpresent + VP (Cond Pl P1) => satisf_ + "aríamos" ; --# notpresent + VP (Cond Pl P2) => satisf_ + "aríais" ; --# notpresent + VP (Cond Pl P3) => satisf_ + "arían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => variants {satisf_ + "az" ; satisf_ + "ace"} ; VP (Imp Sg P3) => satisf_ + "aga" ; @@ -4917,42 +4986,42 @@ oper sentir_76 : Str -> Verbum = \sentir -> VP (Pres Subj Pl P1) => s_ + "intamos" ; VP (Pres Subj Pl P2) => s_ + "intáis" ; VP (Pres Subj Pl P3) => s_ + "ientan" ; - VP (Impf Ind Sg P1) => s_ + "entía" ; - VP (Impf Ind Sg P2) => s_ + "entías" ; - VP (Impf Ind Sg P3) => s_ + "entía" ; - VP (Impf Ind Pl P1) => s_ + "entíamos" ; - VP (Impf Ind Pl P2) => s_ + "entíais" ; - VP (Impf Ind Pl P3) => s_ + "entían" ; - VP (Impf Subj Sg P1) => variants {s_ + "intiera" ; s_ + "intiese"} ; - VP (Impf Subj Sg P2) => variants {s_ + "intieras" ; s_ + "intieses"} ; - VP (Impf Subj Sg P3) => variants {s_ + "intiera" ; s_ + "intiese"} ; - VP (Impf Subj Pl P1) => variants {s_ + "intiéramos" ; s_ + "intiésemos"} ; - VP (Impf Subj Pl P2) => variants {s_ + "intierais" ; s_ + "intieseis"} ; - VP (Impf Subj Pl P3) => variants {s_ + "intieran" ; s_ + "intiesen"} ; - VP (Pret Sg P1) => s_ + "entí" ; - VP (Pret Sg P2) => s_ + "entiste" ; - VP (Pret Sg P3) => s_ + "intió" ; - VP (Pret Pl P1) => s_ + "entimos" ; - VP (Pret Pl P2) => s_ + "entisteis" ; - VP (Pret Pl P3) => s_ + "intieron" ; - VP (Fut Ind Sg P1) => s_ + "entiré" ; - VP (Fut Ind Sg P2) => s_ + "entirás" ; - VP (Fut Ind Sg P3) => s_ + "entirá" ; - VP (Fut Ind Pl P1) => s_ + "entiremos" ; - VP (Fut Ind Pl P2) => s_ + "entiréis" ; - VP (Fut Ind Pl P3) => s_ + "entirán" ; - VP (Fut Subj Sg P1) => s_ + "intiere" ; - VP (Fut Subj Sg P2) => s_ + "intieres" ; - VP (Fut Subj Sg P3) => s_ + "intiere" ; - VP (Fut Subj Pl P1) => s_ + "intiéremos" ; - VP (Fut Subj Pl P2) => s_ + "intiereis" ; - VP (Fut Subj Pl P3) => s_ + "intieren" ; - VP (Cond Sg P1) => s_ + "entiría" ; - VP (Cond Sg P2) => s_ + "entirías" ; - VP (Cond Sg P3) => s_ + "entiría" ; - VP (Cond Pl P1) => s_ + "entiríamos" ; - VP (Cond Pl P2) => s_ + "entiríais" ; - VP (Cond Pl P3) => s_ + "entirían" ; + VP (Impf Ind Sg P1) => s_ + "entía" ; --# notpresent + VP (Impf Ind Sg P2) => s_ + "entías" ; --# notpresent + VP (Impf Ind Sg P3) => s_ + "entía" ; --# notpresent + VP (Impf Ind Pl P1) => s_ + "entíamos" ; --# notpresent + VP (Impf Ind Pl P2) => s_ + "entíais" ; --# notpresent + VP (Impf Ind Pl P3) => s_ + "entían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {s_ + "intiera" ; s_ + "intiese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {s_ + "intieras" ; s_ + "intieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {s_ + "intiera" ; s_ + "intiese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {s_ + "intiéramos" ; s_ + "intiésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {s_ + "intierais" ; s_ + "intieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {s_ + "intieran" ; s_ + "intiesen"} ; --# notpresent + VP (Pret Sg P1) => s_ + "entí" ; --# notpresent + VP (Pret Sg P2) => s_ + "entiste" ; --# notpresent + VP (Pret Sg P3) => s_ + "intió" ; --# notpresent + VP (Pret Pl P1) => s_ + "entimos" ; --# notpresent + VP (Pret Pl P2) => s_ + "entisteis" ; --# notpresent + VP (Pret Pl P3) => s_ + "intieron" ; --# notpresent + VP (Fut Ind Sg P1) => s_ + "entiré" ; --# notpresent + VP (Fut Ind Sg P2) => s_ + "entirás" ; --# notpresent + VP (Fut Ind Sg P3) => s_ + "entirá" ; --# notpresent + VP (Fut Ind Pl P1) => s_ + "entiremos" ; --# notpresent + VP (Fut Ind Pl P2) => s_ + "entiréis" ; --# notpresent + VP (Fut Ind Pl P3) => s_ + "entirán" ; --# notpresent + VP (Fut Subj Sg P1) => s_ + "intiere" ; --# notpresent + VP (Fut Subj Sg P2) => s_ + "intieres" ; --# notpresent + VP (Fut Subj Sg P3) => s_ + "intiere" ; --# notpresent + VP (Fut Subj Pl P1) => s_ + "intiéremos" ; --# notpresent + VP (Fut Subj Pl P2) => s_ + "intiereis" ; --# notpresent + VP (Fut Subj Pl P3) => s_ + "intieren" ; --# notpresent + VP (Cond Sg P1) => s_ + "entiría" ; --# notpresent + VP (Cond Sg P2) => s_ + "entirías" ; --# notpresent + VP (Cond Sg P3) => s_ + "entiría" ; --# notpresent + VP (Cond Pl P1) => s_ + "entiríamos" ; --# notpresent + VP (Cond Pl P2) => s_ + "entiríais" ; --# notpresent + VP (Cond Pl P3) => s_ + "entirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => s_ + "iente" ; VP (Imp Sg P3) => s_ + "ienta" ; @@ -4983,42 +5052,42 @@ oper soler_77 : Str -> Verbum = \soler -> VP (Pres Subj Pl P1) => s_ + "olamos" ; VP (Pres Subj Pl P2) => s_ + "oláis" ; VP (Pres Subj Pl P3) => s_ + "uelan" ; - VP (Impf Ind Sg P1) => s_ + "olía" ; - VP (Impf Ind Sg P2) => s_ + "olías" ; - VP (Impf Ind Sg P3) => s_ + "olía" ; - VP (Impf Ind Pl P1) => s_ + "olíamos" ; - VP (Impf Ind Pl P2) => s_ + "olíais" ; - VP (Impf Ind Pl P3) => s_ + "olían" ; - VP (Impf Subj Sg P1) => variants {s_ + "oliera" ; s_ + "oliese"} ; - VP (Impf Subj Sg P2) => variants {s_ + "olieras" ; s_ + "olieses"} ; - VP (Impf Subj Sg P3) => variants {s_ + "oliera" ; s_ + "oliese"} ; - VP (Impf Subj Pl P1) => variants {s_ + "oliéramos" ; s_ + "oliésemos"} ; - VP (Impf Subj Pl P2) => variants {s_ + "olierais" ; s_ + "olieseis"} ; - VP (Impf Subj Pl P3) => variants {s_ + "olieran" ; s_ + "oliesen"} ; - VP (Pret Sg P1) => s_ + "olí" ; - VP (Pret Sg P2) => s_ + "oliste" ; - VP (Pret Sg P3) => s_ + "olió" ; - VP (Pret Pl P1) => s_ + "olimos" ; - VP (Pret Pl P2) => s_ + "olisteis" ; - VP (Pret Pl P3) => s_ + "olieron" ; - VP (Fut Ind Sg P1) => variants {} ; - VP (Fut Ind Sg P2) => variants {} ; - VP (Fut Ind Sg P3) => variants {} ; - VP (Fut Ind Pl P1) => variants {} ; - VP (Fut Ind Pl P2) => variants {} ; - VP (Fut Ind Pl P3) => variants {} ; - VP (Fut Subj Sg P1) => variants {} ; - VP (Fut Subj Sg P2) => variants {} ; - VP (Fut Subj Sg P3) => variants {} ; - VP (Fut Subj Pl P1) => variants {} ; - VP (Fut Subj Pl P2) => variants {} ; - VP (Fut Subj Pl P3) => variants {} ; - VP (Cond Sg P1) => variants {} ; - VP (Cond Sg P2) => variants {} ; - VP (Cond Sg P3) => variants {} ; - VP (Cond Pl P1) => variants {} ; - VP (Cond Pl P2) => variants {} ; - VP (Cond Pl P3) => variants {} ; + VP (Impf Ind Sg P1) => s_ + "olía" ; --# notpresent + VP (Impf Ind Sg P2) => s_ + "olías" ; --# notpresent + VP (Impf Ind Sg P3) => s_ + "olía" ; --# notpresent + VP (Impf Ind Pl P1) => s_ + "olíamos" ; --# notpresent + VP (Impf Ind Pl P2) => s_ + "olíais" ; --# notpresent + VP (Impf Ind Pl P3) => s_ + "olían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {s_ + "oliera" ; s_ + "oliese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {s_ + "olieras" ; s_ + "olieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {s_ + "oliera" ; s_ + "oliese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {s_ + "oliéramos" ; s_ + "oliésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {s_ + "olierais" ; s_ + "olieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {s_ + "olieran" ; s_ + "oliesen"} ; --# notpresent + VP (Pret Sg P1) => s_ + "olí" ; --# notpresent + VP (Pret Sg P2) => s_ + "oliste" ; --# notpresent + VP (Pret Sg P3) => s_ + "olió" ; --# notpresent + VP (Pret Pl P1) => s_ + "olimos" ; --# notpresent + VP (Pret Pl P2) => s_ + "olisteis" ; --# notpresent + VP (Pret Pl P3) => s_ + "olieron" ; --# notpresent + VP (Fut Ind Sg P1) => variants {} ; --# notpresent + VP (Fut Ind Sg P2) => variants {} ; --# notpresent + VP (Fut Ind Sg P3) => variants {} ; --# notpresent + VP (Fut Ind Pl P1) => variants {} ; --# notpresent + VP (Fut Ind Pl P2) => variants {} ; --# notpresent + VP (Fut Ind Pl P3) => variants {} ; --# notpresent + VP (Fut Subj Sg P1) => variants {} ; --# notpresent + VP (Fut Subj Sg P2) => variants {} ; --# notpresent + VP (Fut Subj Sg P3) => variants {} ; --# notpresent + VP (Fut Subj Pl P1) => variants {} ; --# notpresent + VP (Fut Subj Pl P2) => variants {} ; --# notpresent + VP (Fut Subj Pl P3) => variants {} ; --# notpresent + VP (Cond Sg P1) => variants {} ; --# notpresent + VP (Cond Sg P2) => variants {} ; --# notpresent + VP (Cond Sg P3) => variants {} ; --# notpresent + VP (Cond Pl P1) => variants {} ; --# notpresent + VP (Cond Pl P2) => variants {} ; --# notpresent + VP (Cond Pl P3) => variants {} ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => variants {} ; VP (Imp Sg P3) => variants {} ; @@ -5049,42 +5118,42 @@ oper ta VP (Pres Subj Pl P1) => tañ_ + "amos" ; VP (Pres Subj Pl P2) => tañ_ + "áis" ; VP (Pres Subj Pl P3) => tañ_ + "an" ; - VP (Impf Ind Sg P1) => tañ_ + "ía" ; - VP (Impf Ind Sg P2) => tañ_ + "ías" ; - VP (Impf Ind Sg P3) => tañ_ + "ía" ; - VP (Impf Ind Pl P1) => tañ_ + "íamos" ; - VP (Impf Ind Pl P2) => tañ_ + "íais" ; - VP (Impf Ind Pl P3) => tañ_ + "ían" ; - VP (Impf Subj Sg P1) => variants {tañ_ + "era" ; tañ_ + "ese"} ; - VP (Impf Subj Sg P2) => variants {tañ_ + "eras" ; tañ_ + "eses"} ; - VP (Impf Subj Sg P3) => variants {tañ_ + "era" ; tañ_ + "ese"} ; - VP (Impf Subj Pl P1) => variants {tañ_ + "éramos" ; tañ_ + "ésemos"} ; - VP (Impf Subj Pl P2) => variants {tañ_ + "erais" ; tañ_ + "eseis"} ; - VP (Impf Subj Pl P3) => variants {tañ_ + "eran" ; tañ_ + "esen"} ; - VP (Pret Sg P1) => tañ_ + "í" ; - VP (Pret Sg P2) => tañ_ + "iste" ; - VP (Pret Sg P3) => tañ_ + "ó" ; - VP (Pret Pl P1) => tañ_ + "imos" ; - VP (Pret Pl P2) => tañ_ + "isteis" ; - VP (Pret Pl P3) => tañ_ + "eron" ; - VP (Fut Ind Sg P1) => tañ_ + "eré" ; - VP (Fut Ind Sg P2) => tañ_ + "erás" ; - VP (Fut Ind Sg P3) => tañ_ + "erá" ; - VP (Fut Ind Pl P1) => tañ_ + "eremos" ; - VP (Fut Ind Pl P2) => tañ_ + "eréis" ; - VP (Fut Ind Pl P3) => tañ_ + "erán" ; - VP (Fut Subj Sg P1) => tañ_ + "ere" ; - VP (Fut Subj Sg P2) => tañ_ + "eres" ; - VP (Fut Subj Sg P3) => tañ_ + "ere" ; - VP (Fut Subj Pl P1) => tañ_ + "éremos" ; - VP (Fut Subj Pl P2) => tañ_ + "ereis" ; - VP (Fut Subj Pl P3) => tañ_ + "eren" ; - VP (Cond Sg P1) => tañ_ + "ería" ; - VP (Cond Sg P2) => tañ_ + "erías" ; - VP (Cond Sg P3) => tañ_ + "ería" ; - VP (Cond Pl P1) => tañ_ + "eríamos" ; - VP (Cond Pl P2) => tañ_ + "eríais" ; - VP (Cond Pl P3) => tañ_ + "erían" ; + VP (Impf Ind Sg P1) => tañ_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => tañ_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => tañ_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => tañ_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => tañ_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => tañ_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {tañ_ + "era" ; tañ_ + "ese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {tañ_ + "eras" ; tañ_ + "eses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {tañ_ + "era" ; tañ_ + "ese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {tañ_ + "éramos" ; tañ_ + "ésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {tañ_ + "erais" ; tañ_ + "eseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {tañ_ + "eran" ; tañ_ + "esen"} ; --# notpresent + VP (Pret Sg P1) => tañ_ + "í" ; --# notpresent + VP (Pret Sg P2) => tañ_ + "iste" ; --# notpresent + VP (Pret Sg P3) => tañ_ + "ó" ; --# notpresent + VP (Pret Pl P1) => tañ_ + "imos" ; --# notpresent + VP (Pret Pl P2) => tañ_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => tañ_ + "eron" ; --# notpresent + VP (Fut Ind Sg P1) => tañ_ + "eré" ; --# notpresent + VP (Fut Ind Sg P2) => tañ_ + "erás" ; --# notpresent + VP (Fut Ind Sg P3) => tañ_ + "erá" ; --# notpresent + VP (Fut Ind Pl P1) => tañ_ + "eremos" ; --# notpresent + VP (Fut Ind Pl P2) => tañ_ + "eréis" ; --# notpresent + VP (Fut Ind Pl P3) => tañ_ + "erán" ; --# notpresent + VP (Fut Subj Sg P1) => tañ_ + "ere" ; --# notpresent + VP (Fut Subj Sg P2) => tañ_ + "eres" ; --# notpresent + VP (Fut Subj Sg P3) => tañ_ + "ere" ; --# notpresent + VP (Fut Subj Pl P1) => tañ_ + "éremos" ; --# notpresent + VP (Fut Subj Pl P2) => tañ_ + "ereis" ; --# notpresent + VP (Fut Subj Pl P3) => tañ_ + "eren" ; --# notpresent + VP (Cond Sg P1) => tañ_ + "ería" ; --# notpresent + VP (Cond Sg P2) => tañ_ + "erías" ; --# notpresent + VP (Cond Sg P3) => tañ_ + "ería" ; --# notpresent + VP (Cond Pl P1) => tañ_ + "eríamos" ; --# notpresent + VP (Cond Pl P2) => tañ_ + "eríais" ; --# notpresent + VP (Cond Pl P3) => tañ_ + "erían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => tañ_ + "e" ; VP (Imp Sg P3) => tañ_ + "a" ; @@ -5115,42 +5184,42 @@ oper traer_79 : Str -> Verbum = \traer -> VP (Pres Subj Pl P1) => tra_ + "amos" ; VP (Pres Subj Pl P2) => tra_ + "áis" ; VP (Pres Subj Pl P3) => tra_ + "an" ; - VP (Impf Ind Sg P1) => tra_ + "ía" ; - VP (Impf Ind Sg P2) => tra_ + "ías" ; - VP (Impf Ind Sg P3) => tra_ + "ía" ; - VP (Impf Ind Pl P1) => tra_ + "íamos" ; - VP (Impf Ind Pl P2) => tra_ + "íais" ; - VP (Impf Ind Pl P3) => tra_ + "ían" ; - VP (Impf Subj Sg P1) => variants {tra_ + "yera" ; tra_ + "yese"} ; - VP (Impf Subj Sg P2) => variants {tra_ + "yeras" ; tra_ + "yeses"} ; - VP (Impf Subj Sg P3) => variants {tra_ + "yera" ; tra_ + "yese"} ; - VP (Impf Subj Pl P1) => variants {tra_ + "yéramos" ; tra_ + "yésemos"} ; - VP (Impf Subj Pl P2) => variants {tra_ + "yerais" ; tra_ + "yeseis"} ; - VP (Impf Subj Pl P3) => variants {tra_ + "yeran" ; tra_ + "yesen"} ; - VP (Pret Sg P1) => tra_ + "í" ; - VP (Pret Sg P2) => tra_ + "íste" ; - VP (Pret Sg P3) => tra_ + "yó" ; - VP (Pret Pl P1) => tra_ + "ímos" ; - VP (Pret Pl P2) => tra_ + "ísteis" ; - VP (Pret Pl P3) => tra_ + "yeron" ; - VP (Fut Ind Sg P1) => tra_ + "eré" ; - VP (Fut Ind Sg P2) => tra_ + "erás" ; - VP (Fut Ind Sg P3) => tra_ + "erá" ; - VP (Fut Ind Pl P1) => tra_ + "eremos" ; - VP (Fut Ind Pl P2) => tra_ + "eréis" ; - VP (Fut Ind Pl P3) => tra_ + "erán" ; - VP (Fut Subj Sg P1) => tra_ + "yere" ; - VP (Fut Subj Sg P2) => tra_ + "yeres" ; - VP (Fut Subj Sg P3) => tra_ + "yere" ; - VP (Fut Subj Pl P1) => tra_ + "yéremos" ; - VP (Fut Subj Pl P2) => tra_ + "yereis" ; - VP (Fut Subj Pl P3) => tra_ + "yeren" ; - VP (Cond Sg P1) => tra_ + "ería" ; - VP (Cond Sg P2) => tra_ + "erías" ; - VP (Cond Sg P3) => tra_ + "ería" ; - VP (Cond Pl P1) => tra_ + "eríamos" ; - VP (Cond Pl P2) => tra_ + "eríais" ; - VP (Cond Pl P3) => tra_ + "erían" ; + VP (Impf Ind Sg P1) => tra_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => tra_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => tra_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => tra_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => tra_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => tra_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {tra_ + "yera" ; tra_ + "yese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {tra_ + "yeras" ; tra_ + "yeses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {tra_ + "yera" ; tra_ + "yese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {tra_ + "yéramos" ; tra_ + "yésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {tra_ + "yerais" ; tra_ + "yeseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {tra_ + "yeran" ; tra_ + "yesen"} ; --# notpresent + VP (Pret Sg P1) => tra_ + "í" ; --# notpresent + VP (Pret Sg P2) => tra_ + "íste" ; --# notpresent + VP (Pret Sg P3) => tra_ + "yó" ; --# notpresent + VP (Pret Pl P1) => tra_ + "ímos" ; --# notpresent + VP (Pret Pl P2) => tra_ + "ísteis" ; --# notpresent + VP (Pret Pl P3) => tra_ + "yeron" ; --# notpresent + VP (Fut Ind Sg P1) => tra_ + "eré" ; --# notpresent + VP (Fut Ind Sg P2) => tra_ + "erás" ; --# notpresent + VP (Fut Ind Sg P3) => tra_ + "erá" ; --# notpresent + VP (Fut Ind Pl P1) => tra_ + "eremos" ; --# notpresent + VP (Fut Ind Pl P2) => tra_ + "eréis" ; --# notpresent + VP (Fut Ind Pl P3) => tra_ + "erán" ; --# notpresent + VP (Fut Subj Sg P1) => tra_ + "yere" ; --# notpresent + VP (Fut Subj Sg P2) => tra_ + "yeres" ; --# notpresent + VP (Fut Subj Sg P3) => tra_ + "yere" ; --# notpresent + VP (Fut Subj Pl P1) => tra_ + "yéremos" ; --# notpresent + VP (Fut Subj Pl P2) => tra_ + "yereis" ; --# notpresent + VP (Fut Subj Pl P3) => tra_ + "yeren" ; --# notpresent + VP (Cond Sg P1) => tra_ + "ería" ; --# notpresent + VP (Cond Sg P2) => tra_ + "erías" ; --# notpresent + VP (Cond Sg P3) => tra_ + "ería" ; --# notpresent + VP (Cond Pl P1) => tra_ + "eríamos" ; --# notpresent + VP (Cond Pl P2) => tra_ + "eríais" ; --# notpresent + VP (Cond Pl P3) => tra_ + "erían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => tra_ + "e" ; VP (Imp Sg P3) => tra_ + "a" ; @@ -5181,42 +5250,42 @@ oper trocar_80 : Str -> Verbum = \trocar -> VP (Pres Subj Pl P1) => tr_ + "oquemos" ; VP (Pres Subj Pl P2) => tr_ + "oquéis" ; VP (Pres Subj Pl P3) => tr_ + "uequen" ; - VP (Impf Ind Sg P1) => tr_ + "ocaba" ; - VP (Impf Ind Sg P2) => tr_ + "ocabas" ; - VP (Impf Ind Sg P3) => tr_ + "ocaba" ; - VP (Impf Ind Pl P1) => tr_ + "ocábamos" ; - VP (Impf Ind Pl P2) => tr_ + "ocabais" ; - VP (Impf Ind Pl P3) => tr_ + "ocaban" ; - VP (Impf Subj Sg P1) => variants {tr_ + "ocara" ; tr_ + "ocase"} ; - VP (Impf Subj Sg P2) => variants {tr_ + "ocaras" ; tr_ + "ocases"} ; - VP (Impf Subj Sg P3) => variants {tr_ + "ocara" ; tr_ + "ocase"} ; - VP (Impf Subj Pl P1) => variants {tr_ + "ocáramos" ; tr_ + "ocásemos"} ; - VP (Impf Subj Pl P2) => variants {tr_ + "ocarais" ; tr_ + "ocaseis"} ; - VP (Impf Subj Pl P3) => variants {tr_ + "ocaran" ; tr_ + "ocasen"} ; - VP (Pret Sg P1) => tr_ + "oqué" ; - VP (Pret Sg P2) => tr_ + "ocaste" ; - VP (Pret Sg P3) => tr_ + "ocó" ; - VP (Pret Pl P1) => tr_ + "ocamos" ; - VP (Pret Pl P2) => tr_ + "ocasteis" ; - VP (Pret Pl P3) => tr_ + "ocaron" ; - VP (Fut Ind Sg P1) => tr_ + "ocaré" ; - VP (Fut Ind Sg P2) => tr_ + "ocarás" ; - VP (Fut Ind Sg P3) => tr_ + "ocará" ; - VP (Fut Ind Pl P1) => tr_ + "ocaremos" ; - VP (Fut Ind Pl P2) => tr_ + "ocaréis" ; - VP (Fut Ind Pl P3) => tr_ + "ocarán" ; - VP (Fut Subj Sg P1) => tr_ + "ocare" ; - VP (Fut Subj Sg P2) => tr_ + "ocares" ; - VP (Fut Subj Sg P3) => tr_ + "ocare" ; - VP (Fut Subj Pl P1) => tr_ + "ocáremos" ; - VP (Fut Subj Pl P2) => tr_ + "ocareis" ; - VP (Fut Subj Pl P3) => tr_ + "ocaren" ; - VP (Cond Sg P1) => tr_ + "ocaría" ; - VP (Cond Sg P2) => tr_ + "ocarías" ; - VP (Cond Sg P3) => tr_ + "ocaría" ; - VP (Cond Pl P1) => tr_ + "ocaríamos" ; - VP (Cond Pl P2) => tr_ + "ocaríais" ; - VP (Cond Pl P3) => tr_ + "ocarían" ; + VP (Impf Ind Sg P1) => tr_ + "ocaba" ; --# notpresent + VP (Impf Ind Sg P2) => tr_ + "ocabas" ; --# notpresent + VP (Impf Ind Sg P3) => tr_ + "ocaba" ; --# notpresent + VP (Impf Ind Pl P1) => tr_ + "ocábamos" ; --# notpresent + VP (Impf Ind Pl P2) => tr_ + "ocabais" ; --# notpresent + VP (Impf Ind Pl P3) => tr_ + "ocaban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {tr_ + "ocara" ; tr_ + "ocase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {tr_ + "ocaras" ; tr_ + "ocases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {tr_ + "ocara" ; tr_ + "ocase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {tr_ + "ocáramos" ; tr_ + "ocásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {tr_ + "ocarais" ; tr_ + "ocaseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {tr_ + "ocaran" ; tr_ + "ocasen"} ; --# notpresent + VP (Pret Sg P1) => tr_ + "oqué" ; --# notpresent + VP (Pret Sg P2) => tr_ + "ocaste" ; --# notpresent + VP (Pret Sg P3) => tr_ + "ocó" ; --# notpresent + VP (Pret Pl P1) => tr_ + "ocamos" ; --# notpresent + VP (Pret Pl P2) => tr_ + "ocasteis" ; --# notpresent + VP (Pret Pl P3) => tr_ + "ocaron" ; --# notpresent + VP (Fut Ind Sg P1) => tr_ + "ocaré" ; --# notpresent + VP (Fut Ind Sg P2) => tr_ + "ocarás" ; --# notpresent + VP (Fut Ind Sg P3) => tr_ + "ocará" ; --# notpresent + VP (Fut Ind Pl P1) => tr_ + "ocaremos" ; --# notpresent + VP (Fut Ind Pl P2) => tr_ + "ocaréis" ; --# notpresent + VP (Fut Ind Pl P3) => tr_ + "ocarán" ; --# notpresent + VP (Fut Subj Sg P1) => tr_ + "ocare" ; --# notpresent + VP (Fut Subj Sg P2) => tr_ + "ocares" ; --# notpresent + VP (Fut Subj Sg P3) => tr_ + "ocare" ; --# notpresent + VP (Fut Subj Pl P1) => tr_ + "ocáremos" ; --# notpresent + VP (Fut Subj Pl P2) => tr_ + "ocareis" ; --# notpresent + VP (Fut Subj Pl P3) => tr_ + "ocaren" ; --# notpresent + VP (Cond Sg P1) => tr_ + "ocaría" ; --# notpresent + VP (Cond Sg P2) => tr_ + "ocarías" ; --# notpresent + VP (Cond Sg P3) => tr_ + "ocaría" ; --# notpresent + VP (Cond Pl P1) => tr_ + "ocaríamos" ; --# notpresent + VP (Cond Pl P2) => tr_ + "ocaríais" ; --# notpresent + VP (Cond Pl P3) => tr_ + "ocarían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => tr_ + "ueca" ; VP (Imp Sg P3) => tr_ + "ueque" ; @@ -5247,42 +5316,42 @@ oper valer_81 : Str -> Verbum = \valer -> VP (Pres Subj Pl P1) => val_ + "gamos" ; VP (Pres Subj Pl P2) => val_ + "gáis" ; VP (Pres Subj Pl P3) => val_ + "gan" ; - VP (Impf Ind Sg P1) => val_ + "ía" ; - VP (Impf Ind Sg P2) => val_ + "ías" ; - VP (Impf Ind Sg P3) => val_ + "ía" ; - VP (Impf Ind Pl P1) => val_ + "íamos" ; - VP (Impf Ind Pl P2) => val_ + "íais" ; - VP (Impf Ind Pl P3) => val_ + "ían" ; - VP (Impf Subj Sg P1) => variants {val_ + "iera" ; val_ + "iese"} ; - VP (Impf Subj Sg P2) => variants {val_ + "ieras" ; val_ + "ieses"} ; - VP (Impf Subj Sg P3) => variants {val_ + "iera" ; val_ + "iese"} ; - VP (Impf Subj Pl P1) => variants {val_ + "iéramos" ; val_ + "iésemos"} ; - VP (Impf Subj Pl P2) => variants {val_ + "ierais" ; val_ + "ieseis"} ; - VP (Impf Subj Pl P3) => variants {val_ + "ieran" ; val_ + "iesen"} ; - VP (Pret Sg P1) => val_ + "í" ; - VP (Pret Sg P2) => val_ + "iste" ; - VP (Pret Sg P3) => val_ + "ió" ; - VP (Pret Pl P1) => val_ + "imos" ; - VP (Pret Pl P2) => val_ + "isteis" ; - VP (Pret Pl P3) => val_ + "ieron" ; - VP (Fut Ind Sg P1) => val_ + "dré" ; - VP (Fut Ind Sg P2) => val_ + "drás" ; - VP (Fut Ind Sg P3) => val_ + "drá" ; - VP (Fut Ind Pl P1) => val_ + "dremos" ; - VP (Fut Ind Pl P2) => val_ + "dréis" ; - VP (Fut Ind Pl P3) => val_ + "drán" ; - VP (Fut Subj Sg P1) => val_ + "iere" ; - VP (Fut Subj Sg P2) => val_ + "ieres" ; - VP (Fut Subj Sg P3) => val_ + "iere" ; - VP (Fut Subj Pl P1) => val_ + "iéremos" ; - VP (Fut Subj Pl P2) => val_ + "iereis" ; - VP (Fut Subj Pl P3) => val_ + "ieren" ; - VP (Cond Sg P1) => val_ + "dría" ; - VP (Cond Sg P2) => val_ + "drías" ; - VP (Cond Sg P3) => val_ + "dría" ; - VP (Cond Pl P1) => val_ + "dríamos" ; - VP (Cond Pl P2) => val_ + "dríais" ; - VP (Cond Pl P3) => val_ + "drían" ; + VP (Impf Ind Sg P1) => val_ + "ía" ; --# notpresent + VP (Impf Ind Sg P2) => val_ + "ías" ; --# notpresent + VP (Impf Ind Sg P3) => val_ + "ía" ; --# notpresent + VP (Impf Ind Pl P1) => val_ + "íamos" ; --# notpresent + VP (Impf Ind Pl P2) => val_ + "íais" ; --# notpresent + VP (Impf Ind Pl P3) => val_ + "ían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {val_ + "iera" ; val_ + "iese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {val_ + "ieras" ; val_ + "ieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {val_ + "iera" ; val_ + "iese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {val_ + "iéramos" ; val_ + "iésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {val_ + "ierais" ; val_ + "ieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {val_ + "ieran" ; val_ + "iesen"} ; --# notpresent + VP (Pret Sg P1) => val_ + "í" ; --# notpresent + VP (Pret Sg P2) => val_ + "iste" ; --# notpresent + VP (Pret Sg P3) => val_ + "ió" ; --# notpresent + VP (Pret Pl P1) => val_ + "imos" ; --# notpresent + VP (Pret Pl P2) => val_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => val_ + "ieron" ; --# notpresent + VP (Fut Ind Sg P1) => val_ + "dré" ; --# notpresent + VP (Fut Ind Sg P2) => val_ + "drás" ; --# notpresent + VP (Fut Ind Sg P3) => val_ + "drá" ; --# notpresent + VP (Fut Ind Pl P1) => val_ + "dremos" ; --# notpresent + VP (Fut Ind Pl P2) => val_ + "dréis" ; --# notpresent + VP (Fut Ind Pl P3) => val_ + "drán" ; --# notpresent + VP (Fut Subj Sg P1) => val_ + "iere" ; --# notpresent + VP (Fut Subj Sg P2) => val_ + "ieres" ; --# notpresent + VP (Fut Subj Sg P3) => val_ + "iere" ; --# notpresent + VP (Fut Subj Pl P1) => val_ + "iéremos" ; --# notpresent + VP (Fut Subj Pl P2) => val_ + "iereis" ; --# notpresent + VP (Fut Subj Pl P3) => val_ + "ieren" ; --# notpresent + VP (Cond Sg P1) => val_ + "dría" ; --# notpresent + VP (Cond Sg P2) => val_ + "drías" ; --# notpresent + VP (Cond Sg P3) => val_ + "dría" ; --# notpresent + VP (Cond Pl P1) => val_ + "dríamos" ; --# notpresent + VP (Cond Pl P2) => val_ + "dríais" ; --# notpresent + VP (Cond Pl P3) => val_ + "drían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => val_ + "e" ; VP (Imp Sg P3) => val_ + "ga" ; @@ -5313,42 +5382,42 @@ oper venir_82 : Str -> Verbum = \venir -> VP (Pres Subj Pl P1) => v_ + "engamos" ; VP (Pres Subj Pl P2) => v_ + "engáis" ; VP (Pres Subj Pl P3) => v_ + "engan" ; - VP (Impf Ind Sg P1) => v_ + "enía" ; - VP (Impf Ind Sg P2) => v_ + "enías" ; - VP (Impf Ind Sg P3) => v_ + "enía" ; - VP (Impf Ind Pl P1) => v_ + "eníamos" ; - VP (Impf Ind Pl P2) => v_ + "eníais" ; - VP (Impf Ind Pl P3) => v_ + "enían" ; - VP (Impf Subj Sg P1) => variants {v_ + "iniera" ; v_ + "iniese"} ; - VP (Impf Subj Sg P2) => variants {v_ + "inieras" ; v_ + "inieses"} ; - VP (Impf Subj Sg P3) => variants {v_ + "iniera" ; v_ + "iniese"} ; - VP (Impf Subj Pl P1) => variants {v_ + "iniéramos" ; v_ + "iniésemos"} ; - VP (Impf Subj Pl P2) => variants {v_ + "inierais" ; v_ + "inieseis"} ; - VP (Impf Subj Pl P3) => variants {v_ + "inieran" ; v_ + "iniesen"} ; - VP (Pret Sg P1) => v_ + "ine" ; - VP (Pret Sg P2) => v_ + "iniste" ; - VP (Pret Sg P3) => v_ + "ino" ; - VP (Pret Pl P1) => v_ + "inimos" ; - VP (Pret Pl P2) => v_ + "inisteis" ; - VP (Pret Pl P3) => v_ + "inieron" ; - VP (Fut Ind Sg P1) => v_ + "endré" ; - VP (Fut Ind Sg P2) => v_ + "endrás" ; - VP (Fut Ind Sg P3) => v_ + "endrá" ; - VP (Fut Ind Pl P1) => v_ + "endremos" ; - VP (Fut Ind Pl P2) => v_ + "endréis" ; - VP (Fut Ind Pl P3) => v_ + "endrán" ; - VP (Fut Subj Sg P1) => v_ + "iniere" ; - VP (Fut Subj Sg P2) => v_ + "inieres" ; - VP (Fut Subj Sg P3) => v_ + "iniere" ; - VP (Fut Subj Pl P1) => v_ + "iniéremos" ; - VP (Fut Subj Pl P2) => v_ + "iniereis" ; - VP (Fut Subj Pl P3) => v_ + "inieren" ; - VP (Cond Sg P1) => v_ + "endría" ; - VP (Cond Sg P2) => v_ + "endrías" ; - VP (Cond Sg P3) => v_ + "endría" ; - VP (Cond Pl P1) => v_ + "endríamos" ; - VP (Cond Pl P2) => v_ + "endríais" ; - VP (Cond Pl P3) => v_ + "endrían" ; + VP (Impf Ind Sg P1) => v_ + "enía" ; --# notpresent + VP (Impf Ind Sg P2) => v_ + "enías" ; --# notpresent + VP (Impf Ind Sg P3) => v_ + "enía" ; --# notpresent + VP (Impf Ind Pl P1) => v_ + "eníamos" ; --# notpresent + VP (Impf Ind Pl P2) => v_ + "eníais" ; --# notpresent + VP (Impf Ind Pl P3) => v_ + "enían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {v_ + "iniera" ; v_ + "iniese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {v_ + "inieras" ; v_ + "inieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {v_ + "iniera" ; v_ + "iniese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {v_ + "iniéramos" ; v_ + "iniésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {v_ + "inierais" ; v_ + "inieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {v_ + "inieran" ; v_ + "iniesen"} ; --# notpresent + VP (Pret Sg P1) => v_ + "ine" ; --# notpresent + VP (Pret Sg P2) => v_ + "iniste" ; --# notpresent + VP (Pret Sg P3) => v_ + "ino" ; --# notpresent + VP (Pret Pl P1) => v_ + "inimos" ; --# notpresent + VP (Pret Pl P2) => v_ + "inisteis" ; --# notpresent + VP (Pret Pl P3) => v_ + "inieron" ; --# notpresent + VP (Fut Ind Sg P1) => v_ + "endré" ; --# notpresent + VP (Fut Ind Sg P2) => v_ + "endrás" ; --# notpresent + VP (Fut Ind Sg P3) => v_ + "endrá" ; --# notpresent + VP (Fut Ind Pl P1) => v_ + "endremos" ; --# notpresent + VP (Fut Ind Pl P2) => v_ + "endréis" ; --# notpresent + VP (Fut Ind Pl P3) => v_ + "endrán" ; --# notpresent + VP (Fut Subj Sg P1) => v_ + "iniere" ; --# notpresent + VP (Fut Subj Sg P2) => v_ + "inieres" ; --# notpresent + VP (Fut Subj Sg P3) => v_ + "iniere" ; --# notpresent + VP (Fut Subj Pl P1) => v_ + "iniéremos" ; --# notpresent + VP (Fut Subj Pl P2) => v_ + "iniereis" ; --# notpresent + VP (Fut Subj Pl P3) => v_ + "inieren" ; --# notpresent + VP (Cond Sg P1) => v_ + "endría" ; --# notpresent + VP (Cond Sg P2) => v_ + "endrías" ; --# notpresent + VP (Cond Sg P3) => v_ + "endría" ; --# notpresent + VP (Cond Pl P1) => v_ + "endríamos" ; --# notpresent + VP (Cond Pl P2) => v_ + "endríais" ; --# notpresent + VP (Cond Pl P3) => v_ + "endrían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => v_ + "en" ; VP (Imp Sg P3) => v_ + "enga" ; @@ -5379,42 +5448,42 @@ oper ver_83 : Str -> Verbum = \ver -> VP (Pres Subj Pl P1) => v_ + "eamos" ; VP (Pres Subj Pl P2) => v_ + "eáis" ; VP (Pres Subj Pl P3) => v_ + "ean" ; - VP (Impf Ind Sg P1) => v_ + "eía" ; - VP (Impf Ind Sg P2) => v_ + "eías" ; - VP (Impf Ind Sg P3) => v_ + "eía" ; - VP (Impf Ind Pl P1) => v_ + "eíamos" ; - VP (Impf Ind Pl P2) => v_ + "eíais" ; - VP (Impf Ind Pl P3) => v_ + "eían" ; - VP (Impf Subj Sg P1) => variants {v_ + "iera" ; v_ + "iese"} ; - VP (Impf Subj Sg P2) => variants {v_ + "ieras" ; v_ + "ieses"} ; - VP (Impf Subj Sg P3) => variants {v_ + "iera" ; v_ + "iese"} ; - VP (Impf Subj Pl P1) => variants {v_ + "iéramos" ; v_ + "iésemos"} ; - VP (Impf Subj Pl P2) => variants {v_ + "ierais" ; v_ + "ieseis"} ; - VP (Impf Subj Pl P3) => variants {v_ + "ieran" ; v_ + "iesen"} ; - VP (Pret Sg P1) => v_ + "i" ; - VP (Pret Sg P2) => v_ + "iste" ; - VP (Pret Sg P3) => v_ + "io" ; - VP (Pret Pl P1) => v_ + "imos" ; - VP (Pret Pl P2) => v_ + "isteis" ; - VP (Pret Pl P3) => v_ + "ieron" ; - VP (Fut Ind Sg P1) => v_ + "eré" ; - VP (Fut Ind Sg P2) => v_ + "erás" ; - VP (Fut Ind Sg P3) => v_ + "erá" ; - VP (Fut Ind Pl P1) => v_ + "eremos" ; - VP (Fut Ind Pl P2) => v_ + "eréis" ; - VP (Fut Ind Pl P3) => v_ + "erán" ; - VP (Fut Subj Sg P1) => v_ + "iere" ; - VP (Fut Subj Sg P2) => v_ + "ieres" ; - VP (Fut Subj Sg P3) => v_ + "iere" ; - VP (Fut Subj Pl P1) => v_ + "iéremos" ; - VP (Fut Subj Pl P2) => v_ + "iereis" ; - VP (Fut Subj Pl P3) => v_ + "ieren" ; - VP (Cond Sg P1) => v_ + "ería" ; - VP (Cond Sg P2) => v_ + "erías" ; - VP (Cond Sg P3) => v_ + "ería" ; - VP (Cond Pl P1) => v_ + "eríamos" ; - VP (Cond Pl P2) => v_ + "eríais" ; - VP (Cond Pl P3) => v_ + "erían" ; + VP (Impf Ind Sg P1) => v_ + "eía" ; --# notpresent + VP (Impf Ind Sg P2) => v_ + "eías" ; --# notpresent + VP (Impf Ind Sg P3) => v_ + "eía" ; --# notpresent + VP (Impf Ind Pl P1) => v_ + "eíamos" ; --# notpresent + VP (Impf Ind Pl P2) => v_ + "eíais" ; --# notpresent + VP (Impf Ind Pl P3) => v_ + "eían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {v_ + "iera" ; v_ + "iese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {v_ + "ieras" ; v_ + "ieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {v_ + "iera" ; v_ + "iese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {v_ + "iéramos" ; v_ + "iésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {v_ + "ierais" ; v_ + "ieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {v_ + "ieran" ; v_ + "iesen"} ; --# notpresent + VP (Pret Sg P1) => v_ + "i" ; --# notpresent + VP (Pret Sg P2) => v_ + "iste" ; --# notpresent + VP (Pret Sg P3) => v_ + "io" ; --# notpresent + VP (Pret Pl P1) => v_ + "imos" ; --# notpresent + VP (Pret Pl P2) => v_ + "isteis" ; --# notpresent + VP (Pret Pl P3) => v_ + "ieron" ; --# notpresent + VP (Fut Ind Sg P1) => v_ + "eré" ; --# notpresent + VP (Fut Ind Sg P2) => v_ + "erás" ; --# notpresent + VP (Fut Ind Sg P3) => v_ + "erá" ; --# notpresent + VP (Fut Ind Pl P1) => v_ + "eremos" ; --# notpresent + VP (Fut Ind Pl P2) => v_ + "eréis" ; --# notpresent + VP (Fut Ind Pl P3) => v_ + "erán" ; --# notpresent + VP (Fut Subj Sg P1) => v_ + "iere" ; --# notpresent + VP (Fut Subj Sg P2) => v_ + "ieres" ; --# notpresent + VP (Fut Subj Sg P3) => v_ + "iere" ; --# notpresent + VP (Fut Subj Pl P1) => v_ + "iéremos" ; --# notpresent + VP (Fut Subj Pl P2) => v_ + "iereis" ; --# notpresent + VP (Fut Subj Pl P3) => v_ + "ieren" ; --# notpresent + VP (Cond Sg P1) => v_ + "ería" ; --# notpresent + VP (Cond Sg P2) => v_ + "erías" ; --# notpresent + VP (Cond Sg P3) => v_ + "ería" ; --# notpresent + VP (Cond Pl P1) => v_ + "eríamos" ; --# notpresent + VP (Cond Pl P2) => v_ + "eríais" ; --# notpresent + VP (Cond Pl P3) => v_ + "erían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => v_ + "e" ; VP (Imp Sg P3) => v_ + "ea" ; @@ -5445,42 +5514,42 @@ oper volver_84 : Str -> Verbum = \volver -> VP (Pres Subj Pl P1) => v_ + "olvamos" ; VP (Pres Subj Pl P2) => v_ + "olváis" ; VP (Pres Subj Pl P3) => v_ + "uelvan" ; - VP (Impf Ind Sg P1) => v_ + "olvía" ; - VP (Impf Ind Sg P2) => v_ + "olvías" ; - VP (Impf Ind Sg P3) => v_ + "olvía" ; - VP (Impf Ind Pl P1) => v_ + "olvíamos" ; - VP (Impf Ind Pl P2) => v_ + "olvíais" ; - VP (Impf Ind Pl P3) => v_ + "olvían" ; - VP (Impf Subj Sg P1) => variants {v_ + "olviera" ; v_ + "olviese"} ; - VP (Impf Subj Sg P2) => variants {v_ + "olvieras" ; v_ + "olvieses"} ; - VP (Impf Subj Sg P3) => variants {v_ + "olviera" ; v_ + "olviese"} ; - VP (Impf Subj Pl P1) => variants {v_ + "olviéramos" ; v_ + "olviésemos"} ; - VP (Impf Subj Pl P2) => variants {v_ + "olvierais" ; v_ + "olvieseis"} ; - VP (Impf Subj Pl P3) => variants {v_ + "olvieran" ; v_ + "olviesen"} ; - VP (Pret Sg P1) => v_ + "olví" ; - VP (Pret Sg P2) => v_ + "olviste" ; - VP (Pret Sg P3) => v_ + "olvió" ; - VP (Pret Pl P1) => v_ + "olvimos" ; - VP (Pret Pl P2) => v_ + "olvisteis" ; - VP (Pret Pl P3) => v_ + "olvieron" ; - VP (Fut Ind Sg P1) => v_ + "olveré" ; - VP (Fut Ind Sg P2) => v_ + "olverás" ; - VP (Fut Ind Sg P3) => v_ + "olverá" ; - VP (Fut Ind Pl P1) => v_ + "olveremos" ; - VP (Fut Ind Pl P2) => v_ + "olveréis" ; - VP (Fut Ind Pl P3) => v_ + "olverán" ; - VP (Fut Subj Sg P1) => v_ + "olviere" ; - VP (Fut Subj Sg P2) => v_ + "olvieres" ; - VP (Fut Subj Sg P3) => v_ + "olviere" ; - VP (Fut Subj Pl P1) => v_ + "olviéremos" ; - VP (Fut Subj Pl P2) => v_ + "olviereis" ; - VP (Fut Subj Pl P3) => v_ + "olvieren" ; - VP (Cond Sg P1) => v_ + "olvería" ; - VP (Cond Sg P2) => v_ + "olverías" ; - VP (Cond Sg P3) => v_ + "olvería" ; - VP (Cond Pl P1) => v_ + "olveríamos" ; - VP (Cond Pl P2) => v_ + "olveríais" ; - VP (Cond Pl P3) => v_ + "olverían" ; + VP (Impf Ind Sg P1) => v_ + "olvía" ; --# notpresent + VP (Impf Ind Sg P2) => v_ + "olvías" ; --# notpresent + VP (Impf Ind Sg P3) => v_ + "olvía" ; --# notpresent + VP (Impf Ind Pl P1) => v_ + "olvíamos" ; --# notpresent + VP (Impf Ind Pl P2) => v_ + "olvíais" ; --# notpresent + VP (Impf Ind Pl P3) => v_ + "olvían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {v_ + "olviera" ; v_ + "olviese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {v_ + "olvieras" ; v_ + "olvieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {v_ + "olviera" ; v_ + "olviese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {v_ + "olviéramos" ; v_ + "olviésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {v_ + "olvierais" ; v_ + "olvieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {v_ + "olvieran" ; v_ + "olviesen"} ; --# notpresent + VP (Pret Sg P1) => v_ + "olví" ; --# notpresent + VP (Pret Sg P2) => v_ + "olviste" ; --# notpresent + VP (Pret Sg P3) => v_ + "olvió" ; --# notpresent + VP (Pret Pl P1) => v_ + "olvimos" ; --# notpresent + VP (Pret Pl P2) => v_ + "olvisteis" ; --# notpresent + VP (Pret Pl P3) => v_ + "olvieron" ; --# notpresent + VP (Fut Ind Sg P1) => v_ + "olveré" ; --# notpresent + VP (Fut Ind Sg P2) => v_ + "olverás" ; --# notpresent + VP (Fut Ind Sg P3) => v_ + "olverá" ; --# notpresent + VP (Fut Ind Pl P1) => v_ + "olveremos" ; --# notpresent + VP (Fut Ind Pl P2) => v_ + "olveréis" ; --# notpresent + VP (Fut Ind Pl P3) => v_ + "olverán" ; --# notpresent + VP (Fut Subj Sg P1) => v_ + "olviere" ; --# notpresent + VP (Fut Subj Sg P2) => v_ + "olvieres" ; --# notpresent + VP (Fut Subj Sg P3) => v_ + "olviere" ; --# notpresent + VP (Fut Subj Pl P1) => v_ + "olviéremos" ; --# notpresent + VP (Fut Subj Pl P2) => v_ + "olviereis" ; --# notpresent + VP (Fut Subj Pl P3) => v_ + "olvieren" ; --# notpresent + VP (Cond Sg P1) => v_ + "olvería" ; --# notpresent + VP (Cond Sg P2) => v_ + "olverías" ; --# notpresent + VP (Cond Sg P3) => v_ + "olvería" ; --# notpresent + VP (Cond Pl P1) => v_ + "olveríamos" ; --# notpresent + VP (Cond Pl P2) => v_ + "olveríais" ; --# notpresent + VP (Cond Pl P3) => v_ + "olverían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => v_ + "uelve" ; VP (Imp Sg P3) => v_ + "uelva" ; @@ -5511,42 +5580,42 @@ oper yacer_85 : Str -> Verbum = \yacer -> VP (Pres Subj Pl P1) => ya_ + "zgamos" ; VP (Pres Subj Pl P2) => ya_ + "zgáis" ; VP (Pres Subj Pl P3) => ya_ + "zgan" ; - VP (Impf Ind Sg P1) => ya_ + "cía" ; - VP (Impf Ind Sg P2) => ya_ + "cías" ; - VP (Impf Ind Sg P3) => ya_ + "cía" ; - VP (Impf Ind Pl P1) => ya_ + "cíamos" ; - VP (Impf Ind Pl P2) => ya_ + "cíais" ; - VP (Impf Ind Pl P3) => ya_ + "cían" ; - VP (Impf Subj Sg P1) => variants {ya_ + "ciera" ; ya_ + "ciese"} ; - VP (Impf Subj Sg P2) => variants {ya_ + "cieras" ; ya_ + "cieses"} ; - VP (Impf Subj Sg P3) => variants {ya_ + "ciera" ; ya_ + "ciese"} ; - VP (Impf Subj Pl P1) => variants {ya_ + "ciéramos" ; ya_ + "ciésemos"} ; - VP (Impf Subj Pl P2) => variants {ya_ + "cierais" ; ya_ + "cieseis"} ; - VP (Impf Subj Pl P3) => variants {ya_ + "cieran" ; ya_ + "ciesen"} ; - VP (Pret Sg P1) => ya_ + "cí" ; - VP (Pret Sg P2) => ya_ + "ciste" ; - VP (Pret Sg P3) => ya_ + "ció" ; - VP (Pret Pl P1) => ya_ + "cimos" ; - VP (Pret Pl P2) => ya_ + "cisteis" ; - VP (Pret Pl P3) => ya_ + "cieron" ; - VP (Fut Ind Sg P1) => ya_ + "ceré" ; - VP (Fut Ind Sg P2) => ya_ + "cerás" ; - VP (Fut Ind Sg P3) => ya_ + "cerá" ; - VP (Fut Ind Pl P1) => ya_ + "ceremos" ; - VP (Fut Ind Pl P2) => ya_ + "ceréis" ; - VP (Fut Ind Pl P3) => ya_ + "cerán" ; - VP (Fut Subj Sg P1) => ya_ + "ciere" ; - VP (Fut Subj Sg P2) => ya_ + "cieres" ; - VP (Fut Subj Sg P3) => ya_ + "ciere" ; - VP (Fut Subj Pl P1) => ya_ + "ciéremos" ; - VP (Fut Subj Pl P2) => ya_ + "ciereis" ; - VP (Fut Subj Pl P3) => ya_ + "cieren" ; - VP (Cond Sg P1) => ya_ + "cería" ; - VP (Cond Sg P2) => ya_ + "cerías" ; - VP (Cond Sg P3) => ya_ + "cería" ; - VP (Cond Pl P1) => ya_ + "ceríamos" ; - VP (Cond Pl P2) => ya_ + "ceríais" ; - VP (Cond Pl P3) => ya_ + "cerían" ; + VP (Impf Ind Sg P1) => ya_ + "cía" ; --# notpresent + VP (Impf Ind Sg P2) => ya_ + "cías" ; --# notpresent + VP (Impf Ind Sg P3) => ya_ + "cía" ; --# notpresent + VP (Impf Ind Pl P1) => ya_ + "cíamos" ; --# notpresent + VP (Impf Ind Pl P2) => ya_ + "cíais" ; --# notpresent + VP (Impf Ind Pl P3) => ya_ + "cían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {ya_ + "ciera" ; ya_ + "ciese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {ya_ + "cieras" ; ya_ + "cieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {ya_ + "ciera" ; ya_ + "ciese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {ya_ + "ciéramos" ; ya_ + "ciésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {ya_ + "cierais" ; ya_ + "cieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {ya_ + "cieran" ; ya_ + "ciesen"} ; --# notpresent + VP (Pret Sg P1) => ya_ + "cí" ; --# notpresent + VP (Pret Sg P2) => ya_ + "ciste" ; --# notpresent + VP (Pret Sg P3) => ya_ + "ció" ; --# notpresent + VP (Pret Pl P1) => ya_ + "cimos" ; --# notpresent + VP (Pret Pl P2) => ya_ + "cisteis" ; --# notpresent + VP (Pret Pl P3) => ya_ + "cieron" ; --# notpresent + VP (Fut Ind Sg P1) => ya_ + "ceré" ; --# notpresent + VP (Fut Ind Sg P2) => ya_ + "cerás" ; --# notpresent + VP (Fut Ind Sg P3) => ya_ + "cerá" ; --# notpresent + VP (Fut Ind Pl P1) => ya_ + "ceremos" ; --# notpresent + VP (Fut Ind Pl P2) => ya_ + "ceréis" ; --# notpresent + VP (Fut Ind Pl P3) => ya_ + "cerán" ; --# notpresent + VP (Fut Subj Sg P1) => ya_ + "ciere" ; --# notpresent + VP (Fut Subj Sg P2) => ya_ + "cieres" ; --# notpresent + VP (Fut Subj Sg P3) => ya_ + "ciere" ; --# notpresent + VP (Fut Subj Pl P1) => ya_ + "ciéremos" ; --# notpresent + VP (Fut Subj Pl P2) => ya_ + "ciereis" ; --# notpresent + VP (Fut Subj Pl P3) => ya_ + "cieren" ; --# notpresent + VP (Cond Sg P1) => ya_ + "cería" ; --# notpresent + VP (Cond Sg P2) => ya_ + "cerías" ; --# notpresent + VP (Cond Sg P3) => ya_ + "cería" ; --# notpresent + VP (Cond Pl P1) => ya_ + "ceríamos" ; --# notpresent + VP (Cond Pl P2) => ya_ + "ceríais" ; --# notpresent + VP (Cond Pl P3) => ya_ + "cerían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => ya_ + "ce" ; VP (Imp Sg P3) => ya_ + "zga" ; @@ -5577,42 +5646,42 @@ oper zurcir_86 : Str -> Verbum = \zurcir -> VP (Pres Subj Pl P1) => zur_ + "zamos" ; VP (Pres Subj Pl P2) => zur_ + "záis" ; VP (Pres Subj Pl P3) => zur_ + "zan" ; - VP (Impf Ind Sg P1) => zur_ + "cía" ; - VP (Impf Ind Sg P2) => zur_ + "cías" ; - VP (Impf Ind Sg P3) => zur_ + "cía" ; - VP (Impf Ind Pl P1) => zur_ + "cíamos" ; - VP (Impf Ind Pl P2) => zur_ + "cíais" ; - VP (Impf Ind Pl P3) => zur_ + "cían" ; - VP (Impf Subj Sg P1) => variants {zur_ + "ciera" ; zur_ + "ciese"} ; - VP (Impf Subj Sg P2) => variants {zur_ + "cieras" ; zur_ + "cieses"} ; - VP (Impf Subj Sg P3) => variants {zur_ + "ciera" ; zur_ + "ciese"} ; - VP (Impf Subj Pl P1) => variants {zur_ + "ciéramos" ; zur_ + "ciésemos"} ; - VP (Impf Subj Pl P2) => variants {zur_ + "cierais" ; zur_ + "cieseis"} ; - VP (Impf Subj Pl P3) => variants {zur_ + "cieran" ; zur_ + "ciesen"} ; - VP (Pret Sg P1) => zur_ + "cí" ; - VP (Pret Sg P2) => zur_ + "ciste" ; - VP (Pret Sg P3) => zur_ + "ció" ; - VP (Pret Pl P1) => zur_ + "cimos" ; - VP (Pret Pl P2) => zur_ + "cisteis" ; - VP (Pret Pl P3) => zur_ + "cieron" ; - VP (Fut Ind Sg P1) => zur_ + "ciré" ; - VP (Fut Ind Sg P2) => zur_ + "cirás" ; - VP (Fut Ind Sg P3) => zur_ + "cirá" ; - VP (Fut Ind Pl P1) => zur_ + "ciremos" ; - VP (Fut Ind Pl P2) => zur_ + "ciréis" ; - VP (Fut Ind Pl P3) => zur_ + "cirán" ; - VP (Fut Subj Sg P1) => zur_ + "ciere" ; - VP (Fut Subj Sg P2) => zur_ + "cieres" ; - VP (Fut Subj Sg P3) => zur_ + "ciere" ; - VP (Fut Subj Pl P1) => zur_ + "ciéremos" ; - VP (Fut Subj Pl P2) => zur_ + "ciereis" ; - VP (Fut Subj Pl P3) => zur_ + "cieren" ; - VP (Cond Sg P1) => zur_ + "ciría" ; - VP (Cond Sg P2) => zur_ + "cirías" ; - VP (Cond Sg P3) => zur_ + "ciría" ; - VP (Cond Pl P1) => zur_ + "ciríamos" ; - VP (Cond Pl P2) => zur_ + "ciríais" ; - VP (Cond Pl P3) => zur_ + "cirían" ; + VP (Impf Ind Sg P1) => zur_ + "cía" ; --# notpresent + VP (Impf Ind Sg P2) => zur_ + "cías" ; --# notpresent + VP (Impf Ind Sg P3) => zur_ + "cía" ; --# notpresent + VP (Impf Ind Pl P1) => zur_ + "cíamos" ; --# notpresent + VP (Impf Ind Pl P2) => zur_ + "cíais" ; --# notpresent + VP (Impf Ind Pl P3) => zur_ + "cían" ; --# notpresent + VP (Impf Subj Sg P1) => variants {zur_ + "ciera" ; zur_ + "ciese"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {zur_ + "cieras" ; zur_ + "cieses"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {zur_ + "ciera" ; zur_ + "ciese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {zur_ + "ciéramos" ; zur_ + "ciésemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {zur_ + "cierais" ; zur_ + "cieseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {zur_ + "cieran" ; zur_ + "ciesen"} ; --# notpresent + VP (Pret Sg P1) => zur_ + "cí" ; --# notpresent + VP (Pret Sg P2) => zur_ + "ciste" ; --# notpresent + VP (Pret Sg P3) => zur_ + "ció" ; --# notpresent + VP (Pret Pl P1) => zur_ + "cimos" ; --# notpresent + VP (Pret Pl P2) => zur_ + "cisteis" ; --# notpresent + VP (Pret Pl P3) => zur_ + "cieron" ; --# notpresent + VP (Fut Ind Sg P1) => zur_ + "ciré" ; --# notpresent + VP (Fut Ind Sg P2) => zur_ + "cirás" ; --# notpresent + VP (Fut Ind Sg P3) => zur_ + "cirá" ; --# notpresent + VP (Fut Ind Pl P1) => zur_ + "ciremos" ; --# notpresent + VP (Fut Ind Pl P2) => zur_ + "ciréis" ; --# notpresent + VP (Fut Ind Pl P3) => zur_ + "cirán" ; --# notpresent + VP (Fut Subj Sg P1) => zur_ + "ciere" ; --# notpresent + VP (Fut Subj Sg P2) => zur_ + "cieres" ; --# notpresent + VP (Fut Subj Sg P3) => zur_ + "ciere" ; --# notpresent + VP (Fut Subj Pl P1) => zur_ + "ciéremos" ; --# notpresent + VP (Fut Subj Pl P2) => zur_ + "ciereis" ; --# notpresent + VP (Fut Subj Pl P3) => zur_ + "cieren" ; --# notpresent + VP (Cond Sg P1) => zur_ + "ciría" ; --# notpresent + VP (Cond Sg P2) => zur_ + "cirías" ; --# notpresent + VP (Cond Sg P3) => zur_ + "ciría" ; --# notpresent + VP (Cond Pl P1) => zur_ + "ciríamos" ; --# notpresent + VP (Cond Pl P2) => zur_ + "ciríais" ; --# notpresent + VP (Cond Pl P3) => zur_ + "cirían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => zur_ + "ce" ; VP (Imp Sg P3) => zur_ + "za" ; @@ -5643,42 +5712,42 @@ oper amar_87 : Str -> Verbum = \amar -> VP (Pres Subj Pl P1) => am_ + "emos" ; VP (Pres Subj Pl P2) => am_ + "éis" ; VP (Pres Subj Pl P3) => am_ + "en" ; - VP (Impf Ind Sg P1) => am_ + "aba" ; - VP (Impf Ind Sg P2) => am_ + "abas" ; - VP (Impf Ind Sg P3) => am_ + "aba" ; - VP (Impf Ind Pl P1) => am_ + "ábamos" ; - VP (Impf Ind Pl P2) => am_ + "abais" ; - VP (Impf Ind Pl P3) => am_ + "aban" ; - VP (Impf Subj Sg P1) => variants {am_ + "ara" ; am_ + "ase"} ; - VP (Impf Subj Sg P2) => variants {am_ + "aras" ; am_ + "ases"} ; - VP (Impf Subj Sg P3) => variants {am_ + "ara" ; am_ + "ase"} ; - VP (Impf Subj Pl P1) => variants {am_ + "áramos" ; am_ + "ásemos"} ; - VP (Impf Subj Pl P2) => variants {am_ + "arais" ; am_ + "aseis"} ; - VP (Impf Subj Pl P3) => variants {am_ + "aran" ; am_ + "asen"} ; - VP (Pret Sg P1) => am_ + "é" ; - VP (Pret Sg P2) => am_ + "aste" ; - VP (Pret Sg P3) => am_ + "ó" ; - VP (Pret Pl P1) => am_ + "amos" ; - VP (Pret Pl P2) => am_ + "asteis" ; - VP (Pret Pl P3) => am_ + "aron" ; - VP (Fut Ind Sg P1) => am_ + "aré" ; - VP (Fut Ind Sg P2) => am_ + "arás" ; - VP (Fut Ind Sg P3) => am_ + "ará" ; - VP (Fut Ind Pl P1) => am_ + "aremos" ; - VP (Fut Ind Pl P2) => am_ + "aréis" ; - VP (Fut Ind Pl P3) => am_ + "arán" ; - VP (Fut Subj Sg P1) => am_ + "are" ; - VP (Fut Subj Sg P2) => am_ + "ares" ; - VP (Fut Subj Sg P3) => am_ + "are" ; - VP (Fut Subj Pl P1) => am_ + "áremos" ; - VP (Fut Subj Pl P2) => am_ + "areis" ; - VP (Fut Subj Pl P3) => am_ + "aren" ; - VP (Cond Sg P1) => am_ + "aría" ; - VP (Cond Sg P2) => am_ + "arías" ; - VP (Cond Sg P3) => am_ + "aría" ; - VP (Cond Pl P1) => am_ + "aríamos" ; - VP (Cond Pl P2) => am_ + "aríais" ; - VP (Cond Pl P3) => am_ + "arían" ; + VP (Impf Ind Sg P1) => am_ + "aba" ; --# notpresent + VP (Impf Ind Sg P2) => am_ + "abas" ; --# notpresent + VP (Impf Ind Sg P3) => am_ + "aba" ; --# notpresent + VP (Impf Ind Pl P1) => am_ + "ábamos" ; --# notpresent + VP (Impf Ind Pl P2) => am_ + "abais" ; --# notpresent + VP (Impf Ind Pl P3) => am_ + "aban" ; --# notpresent + VP (Impf Subj Sg P1) => variants {am_ + "ara" ; am_ + "ase"} ; --# notpresent + VP (Impf Subj Sg P2) => variants {am_ + "aras" ; am_ + "ases"} ; --# notpresent + VP (Impf Subj Sg P3) => variants {am_ + "ara" ; am_ + "ase"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {am_ + "áramos" ; am_ + "ásemos"} ; --# notpresent + VP (Impf Subj Pl P2) => variants {am_ + "arais" ; am_ + "aseis"} ; --# notpresent + VP (Impf Subj Pl P3) => variants {am_ + "aran" ; am_ + "asen"} ; --# notpresent + VP (Pret Sg P1) => am_ + "é" ; --# notpresent + VP (Pret Sg P2) => am_ + "aste" ; --# notpresent + VP (Pret Sg P3) => am_ + "ó" ; --# notpresent + VP (Pret Pl P1) => am_ + "amos" ; --# notpresent + VP (Pret Pl P2) => am_ + "asteis" ; --# notpresent + VP (Pret Pl P3) => am_ + "aron" ; --# notpresent + VP (Fut Ind Sg P1) => am_ + "aré" ; --# notpresent + VP (Fut Ind Sg P2) => am_ + "arás" ; --# notpresent + VP (Fut Ind Sg P3) => am_ + "ará" ; --# notpresent + VP (Fut Ind Pl P1) => am_ + "aremos" ; --# notpresent + VP (Fut Ind Pl P2) => am_ + "aréis" ; --# notpresent + VP (Fut Ind Pl P3) => am_ + "arán" ; --# notpresent + VP (Fut Subj Sg P1) => am_ + "are" ; --# notpresent + VP (Fut Subj Sg P2) => am_ + "ares" ; --# notpresent + VP (Fut Subj Sg P3) => am_ + "are" ; --# notpresent + VP (Fut Subj Pl P1) => am_ + "áremos" ; --# notpresent + VP (Fut Subj Pl P2) => am_ + "areis" ; --# notpresent + VP (Fut Subj Pl P3) => am_ + "aren" ; --# notpresent + VP (Cond Sg P1) => am_ + "aría" ; --# notpresent + VP (Cond Sg P2) => am_ + "arías" ; --# notpresent + VP (Cond Sg P3) => am_ + "aría" ; --# notpresent + VP (Cond Pl P1) => am_ + "aríamos" ; --# notpresent + VP (Cond Pl P2) => am_ + "aríais" ; --# notpresent + VP (Cond Pl P3) => am_ + "arían" ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => am_ + "a" ; VP (Imp Sg P3) => am_ + "e" ; @@ -5709,42 +5778,42 @@ oper llover_89 : Str -> Verbum = \llover -> VP (Pres Subj Pl P1) => variants {} ; VP (Pres Subj Pl P2) => variants {} ; VP (Pres Subj Pl P3) => variants {} ; - VP (Impf Ind Sg P1) => variants {} ; - VP (Impf Ind Sg P2) => variants {} ; - VP (Impf Ind Sg P3) => ll_ + "ovía" ; - VP (Impf Ind Pl P1) => variants {} ; - VP (Impf Ind Pl P2) => variants {} ; - VP (Impf Ind Pl P3) => variants {} ; - VP (Impf Subj Sg P1) => variants {} ; - VP (Impf Subj Sg P2) => variants {} ; - VP (Impf Subj Sg P3) => variants {ll_ + "oviera" ; ll_ + "oviese"} ; - VP (Impf Subj Pl P1) => variants {} ; - VP (Impf Subj Pl P2) => variants {} ; - VP (Impf Subj Pl P3) => variants {} ; - VP (Pret Sg P1) => variants {} ; - VP (Pret Sg P2) => variants {} ; - VP (Pret Sg P3) => ll_ + "ovió" ; - VP (Pret Pl P1) => variants {} ; - VP (Pret Pl P2) => variants {} ; - VP (Pret Pl P3) => variants {} ; - VP (Fut Ind Sg P1) => variants {} ; - VP (Fut Ind Sg P2) => variants {} ; - VP (Fut Ind Sg P3) => ll_ + "overá" ; - VP (Fut Ind Pl P1) => variants {} ; - VP (Fut Ind Pl P2) => variants {} ; - VP (Fut Ind Pl P3) => variants {} ; - VP (Fut Subj Sg P1) => variants {} ; - VP (Fut Subj Sg P2) => variants {} ; - VP (Fut Subj Sg P3) => ll_ + "oviere" ; - VP (Fut Subj Pl P1) => variants {} ; - VP (Fut Subj Pl P2) => variants {} ; - VP (Fut Subj Pl P3) => variants {} ; - VP (Cond Sg P1) => variants {} ; - VP (Cond Sg P2) => variants {} ; - VP (Cond Sg P3) => ll_ + "overía" ; - VP (Cond Pl P1) => variants {} ; - VP (Cond Pl P2) => variants {} ; - VP (Cond Pl P3) => variants {} ; + VP (Impf Ind Sg P1) => variants {} ; --# notpresent + VP (Impf Ind Sg P2) => variants {} ; --# notpresent + VP (Impf Ind Sg P3) => ll_ + "ovía" ; --# notpresent + VP (Impf Ind Pl P1) => variants {} ; --# notpresent + VP (Impf Ind Pl P2) => variants {} ; --# notpresent + VP (Impf Ind Pl P3) => variants {} ; --# notpresent + VP (Impf Subj Sg P1) => variants {} ; --# notpresent + VP (Impf Subj Sg P2) => variants {} ; --# notpresent + VP (Impf Subj Sg P3) => variants {ll_ + "oviera" ; ll_ + "oviese"} ; --# notpresent + VP (Impf Subj Pl P1) => variants {} ; --# notpresent + VP (Impf Subj Pl P2) => variants {} ; --# notpresent + VP (Impf Subj Pl P3) => variants {} ; --# notpresent + VP (Pret Sg P1) => variants {} ; --# notpresent + VP (Pret Sg P2) => variants {} ; --# notpresent + VP (Pret Sg P3) => ll_ + "ovió" ; --# notpresent + VP (Pret Pl P1) => variants {} ; --# notpresent + VP (Pret Pl P2) => variants {} ; --# notpresent + VP (Pret Pl P3) => variants {} ; --# notpresent + VP (Fut Ind Sg P1) => variants {} ; --# notpresent + VP (Fut Ind Sg P2) => variants {} ; --# notpresent + VP (Fut Ind Sg P3) => ll_ + "overá" ; --# notpresent + VP (Fut Ind Pl P1) => variants {} ; --# notpresent + VP (Fut Ind Pl P2) => variants {} ; --# notpresent + VP (Fut Ind Pl P3) => variants {} ; --# notpresent + VP (Fut Subj Sg P1) => variants {} ; --# notpresent + VP (Fut Subj Sg P2) => variants {} ; --# notpresent + VP (Fut Subj Sg P3) => ll_ + "oviere" ; --# notpresent + VP (Fut Subj Pl P1) => variants {} ; --# notpresent + VP (Fut Subj Pl P2) => variants {} ; --# notpresent + VP (Fut Subj Pl P3) => variants {} ; --# notpresent + VP (Cond Sg P1) => variants {} ; --# notpresent + VP (Cond Sg P2) => variants {} ; --# notpresent + VP (Cond Sg P3) => ll_ + "overía" ; --# notpresent + VP (Cond Pl P1) => variants {} ; --# notpresent + VP (Cond Pl P2) => variants {} ; --# notpresent + VP (Cond Pl P3) => variants {} ; --# notpresent VP (Imp Sg P1) => variants {} ; VP (Imp Sg P2) => variants {} ; VP (Imp Sg P3) => variants {} ; @@ -5757,4 +5826,67 @@ oper llover_89 : Str -> Verbum = \llover -> VP (Pass Pl Fem) => variants {} } } ; + +-- Verbs: conversion from full verbs to present-tense verbs. + + verbBesch : {s : VFB => Str} -> {s : CommonRomance.VF => Str} = \amar -> + {- + -- even imperatives should be modified this way, so let's postpone this + -- AR 21/6/2006 + let + amare = amar.s ! VI Infn ; + a'r = case last (init amare) of { + "i" => "ír" ; + "e" => "ér" ; + _ => "ár" + } ; + ama'r = Predef.tk 2 amare ++ a'r + in + -} + {s = table { +-- VInfin True => ama'r ; + VInfin _ => amar.s ! VI Infn ; + VFin (VPres Indic) n p => amar.s ! VP (Pres Ind n p) ; + VFin (VPres Conjunct) n p => amar.s ! VP (Pres Sub n p) ; + VFin (VImperf Indic) n p => amar.s ! VP (Impf Ind n p) ; --# notpresent --# notpresent + VFin (VImperf Conjunct) n p => amar.s ! VP (Impf Sub n p) ; --# notpresent --# notpresent + VFin VPasse n p => amar.s ! VP (Pret n p) ; --# notpresent --# notpresent + VFin VFut n p => amar.s ! VP (Fut Ind n p) ; --# notpresent --# notpresent + VFin VCondit n p => amar.s ! VP (Cond n p) ; --# notpresent --# notpresent + VImper SgP2 => amar.s ! VP (Imp Sg P2) ; + VImper PlP1 => amar.s ! VP (Imp Pl P1) ; + VImper PlP2 => amar.s ! VP (Imp Pl P2) ; + VPart g n => amar.s ! VP (Pass n g) ; + VGer => amar.s ! VI Ger + } + } ; + + +-- The full conjunction is a table on $VForm$: + +param + VImpers = + Infn + | Ger + | Part + ; + + Mode = Ind | Sub ; + + VPers = + Pres Mode Number Person + | Impf Mode Number Person --# notpresent --# notpresent + | Pret Number Person --# notpresent --# notpresent + | Fut Mode Number Person --# notpresent --# notpresent + | Cond Number Person --# notpresent --# notpresent + | Imp Number Person + | Pass Number Gender + ; + + VFB = + VI VImpers + | VP VPers + ; + + } diff --git a/lib/resource-1.0/spanish/CatSpa.gf b/lib/resource/spanish/CatSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/CatSpa.gf rename to lib/resource/spanish/CatSpa.gf diff --git a/lib/resource-1.0/spanish/ConjunctionSpa.gf b/lib/resource/spanish/ConjunctionSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/ConjunctionSpa.gf rename to lib/resource/spanish/ConjunctionSpa.gf diff --git a/lib/resource-1.0/spanish/DiffSpa.gf b/lib/resource/spanish/DiffSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/DiffSpa.gf rename to lib/resource/spanish/DiffSpa.gf diff --git a/lib/resource-1.0/spanish/ExtraRomanceSpa.gf b/lib/resource/spanish/ExtraRomanceSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/ExtraRomanceSpa.gf rename to lib/resource/spanish/ExtraRomanceSpa.gf diff --git a/lib/resource-1.0/spanish/ExtraSpa.gf b/lib/resource/spanish/ExtraSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/ExtraSpa.gf rename to lib/resource/spanish/ExtraSpa.gf diff --git a/lib/resource-1.0/spanish/ExtraSpaAbs.gf b/lib/resource/spanish/ExtraSpaAbs.gf similarity index 100% rename from lib/resource-1.0/spanish/ExtraSpaAbs.gf rename to lib/resource/spanish/ExtraSpaAbs.gf diff --git a/lib/resource-1.0/spanish/GrammarSpa.gf b/lib/resource/spanish/GrammarSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/GrammarSpa.gf rename to lib/resource/spanish/GrammarSpa.gf diff --git a/lib/resource-1.0/spanish/IdiomSpa.gf b/lib/resource/spanish/IdiomSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/IdiomSpa.gf rename to lib/resource/spanish/IdiomSpa.gf diff --git a/lib/resource-1.0/spanish/IrregSpa.gf b/lib/resource/spanish/IrregSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/IrregSpa.gf rename to lib/resource/spanish/IrregSpa.gf diff --git a/lib/resource-1.0/spanish/IrregSpaAbs.gf b/lib/resource/spanish/IrregSpaAbs.gf similarity index 100% rename from lib/resource-1.0/spanish/IrregSpaAbs.gf rename to lib/resource/spanish/IrregSpaAbs.gf diff --git a/lib/resource/spanish/LangSpa.gf b/lib/resource/spanish/LangSpa.gf index 240497490..ca4248e27 100644 --- a/lib/resource/spanish/LangSpa.gf +++ b/lib/resource/spanish/LangSpa.gf @@ -1,23 +1,10 @@ ---# -path=.:../romance:../abstract:../../prelude +--# -path=.:../romance:../abstract:../common:prelude concrete LangSpa of Lang = - RulesSpa, - ClauseSpa, - StructuralSpa, - BasicSpa, - TimeSpa, - CountrySpa, - MathSpa + GrammarSpa, + LexiconSpa + ** { - ** open Prelude, ParadigmsSpa in { +flags startcat = Phr ; unlexer = text ; lexer = text ; -lin - AdvDate d = prefixSS "el" d ; - AdvTime t = prefixSS ["a las"] t ; - NWeekday w = w ; - PNWeekday w = mkPN (w.s ! singular) w.g ; - - PNCountry x = x ; - ANationality x = x ; - NLanguage x = x ; -} +} ; diff --git a/lib/resource-1.0/spanish/LexiconSpa.gf b/lib/resource/spanish/LexiconSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/LexiconSpa.gf rename to lib/resource/spanish/LexiconSpa.gf diff --git a/lib/resource/spanish/MorphoSpa.gf b/lib/resource/spanish/MorphoSpa.gf index 99e25d698..cb33777c9 100644 --- a/lib/resource/spanish/MorphoSpa.gf +++ b/lib/resource/spanish/MorphoSpa.gf @@ -1,38 +1,25 @@ ---# -path=.:../romance:../../prelude +--# -path=.:../romance:../common:../../prelude --1 A Simple Spanish Resource Morphology -- --- Aarne Ranta 2002--2003 +-- Aarne Ranta 2002 -- 2005 -- -- This resource morphology contains definitions needed in the resource --- syntax. It moreover contains the most usual inflectional patterns. --- The patterns for verbs contain the complete "Bescherelle" conjugation --- tables. --- --- We use the parameter types and word classes defined in $TypesSpa.gf$. +-- syntax. To build a lexicon, it is better to use $ParadigmsSpa$, which +-- gives a higher-level access to this module. -resource MorphoSpa = open (Predef=Predef), Prelude, TypesSpa, BeschSpa in { +resource MorphoSpa = CommonRomance, ResSpa ** + open PhonoSpa, Prelude, Predef in { ---2 Some phonology --- ---3 Elision --- --- The phonological rule of *elision* can be defined as follows in GF. --- In Italian it includes both vowels and the *impure 's'*. + flags optimize=all ; -oper - vocale : Strs = strs { - "a" ; "e" ; "h" ; "i" ; "o" ; "u" - } ; - - elisQue = "que" ; --- no elision in Italian - elisDe = "de" ; --2 Nouns -- -- The following macro is useful for creating the forms of number-dependent -- tables, such as common nouns. +oper numForms : (_,_ : Str) -> Number => Str = \vino, vini -> table {Sg => vino ; Pl => vini} ; @@ -49,18 +36,18 @@ oper -- Common nouns are inflected in number and have an inherent gender. - mkCNom : (Number => Str) -> Gender -> CNom = \mecmecs,gen -> + mkNoun : (Number => Str) -> Gender -> Noun = \mecmecs,gen -> {s = mecmecs ; g = gen} ; - mkCNomIrreg : Str -> Str -> Gender -> CNom = \mec,mecs -> - mkCNom (numForms mec mecs) ; + mkNounIrreg : Str -> Str -> Gender -> Noun = \mec,mecs -> + mkNoun (numForms mec mecs) ; - mkNomReg : Str -> CNom = \mec -> + mkNomReg : Str -> Noun = \mec -> case last mec of { - "o" | "e" => mkCNom (nomVino mec) Masc ; - "a" => mkCNom (nomVino mec) Fem ; - "z" => mkCNomIrreg mec (init mec + "ces") Fem ; - _ => mkCNom (nomPilar mec) Masc + "o" | "e" => mkNoun (nomVino mec) Masc ; + "a" => mkNoun (nomVino mec) Fem ; + "z" => mkNounIrreg mec (init mec + "ces") Fem ; + _ => mkNoun (nomPilar mec) Masc } ; --2 Adjectives @@ -105,50 +92,22 @@ oper -- We follow the rule that the atonic nominative is empty. mkPronoun : (_,_,_,_,_,_,_,_ : Str) -> - PronGen -> Number -> Person -> ClitType -> Pronoun = - \il,le,lui,Lui,son,sa,ses,see,g,n,p,c -> + Gender -> Number -> Person -> Pronoun = + \il,le,lui,Lui,son,sa,ses,see,g,n,p -> {s = table { Ton Nom => il ; Ton x => prepCase x ++ Lui ; - Aton Nom => il ; ---- [] ; + Aton Nom => strOpt il ; ---- [] ; Aton Acc => le ; ----- Aton (CPrep P_de) => "ne" ; --- hmm Aton (CPrep P_a) => lui ; - Aton (CPrep q) => strPrep q ++ Lui ; ---- GF bug with c or p! - Poss Sg Masc => son ; - Poss Sg Fem => sa ; - Poss Pl Masc => ses ; - Poss Pl Fem => see + Aton q => prepCase q ++ Lui ; ---- GF bug with c or p! + Poss {n = Sg ; g = Masc} => son ; + Poss {n = Sg ; g = Fem} => sa ; + Poss {n = Pl ; g = Masc} => ses ; + Poss {n = Pl ; g = Fem} => see } ; - g = g ; - n = n ; - p = p ; - c = c - } ; - - -- used in constructions like "(no) hay ..." - - pronEmpty : Number -> Pronoun = \n -> mkPronoun - [] - [] - [] - [] - [] [] [] [] - (PGen Masc) - n - P3 - Clit2 ; - ---2 Reflexive pronouns --- --- It is simply a function depending on number and person. - - pronRefl : Number -> Person -> Str = \n,p -> case of { - => "me" ; - => "te" ; - <_, P3> => "se" ; - => "nos" ; - => "vos" + a = {g = g ; n = n ; p = p} ; + hasClit = True } ; @@ -159,53 +118,4 @@ oper pronForms : Adj -> Gender -> Number -> Str = \tale,g,n -> tale.s ! AF g n ; - qualPron : Gender -> Number -> Str = pronForms (adjUtil "cuál" "cuales") ; - - talPron : Gender -> Number -> Str = pronForms (adjUtil "tál" "tales") ; - - tuttoPron : Gender -> Number -> Str = pronForms (adjSolo "todo") ; - ---2 Articles --- --- The definite article has quite some variation: three parameters and --- elision. This is the simples definition we have been able to find. - - artDefTable : Gender => Number => Case => Str = \\g,n,c => case of { - => "del" ; - => "al" ; - => prepCase c ++ "el" ; - - => prepCase c ++ "la" ; - => prepCase c ++ "los" ; - => prepCase c ++ "las" - } ; - ---2 Verbs --- ---3 The Bescherelle conjugations. --- --- The following conjugations tables were generated using FM software --- from a Haskell source. --- --- The verb "essere" is often used in syntax. - - verbSer = verbPres (ser_7 "ser") AHabere ; - verbHaber = verbPres (haber_10 "haber") AHabere ; - --- for bw compatibility - -ser_7 : Str -> Verbum = ser_1 ; -haber_10 : Str -> Verbum = haber_3 ; - --- for Numerals - -param DForm = unit | teen | ten | hundred ; -param Modif = mod | unmod | conj ; - -oper spl : Str -> {s : Gender => Str ; n : Number} = \s -> {s = \\_ => - s ; n = Pl} ; - - uno : Gender => Str = table {Masc => "uno" ; Fem => "una"} ; - yuno : Gender => Str = \\g => "y" ++ uno ! g ; - } diff --git a/lib/resource-1.0/spanish/NounSpa.gf b/lib/resource/spanish/NounSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/NounSpa.gf rename to lib/resource/spanish/NounSpa.gf diff --git a/lib/resource-1.0/spanish/NumeralSpa.gf b/lib/resource/spanish/NumeralSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/NumeralSpa.gf rename to lib/resource/spanish/NumeralSpa.gf diff --git a/lib/resource/spanish/ParadigmsSpa.gf b/lib/resource/spanish/ParadigmsSpa.gf index e2855cff3..957867e6a 100644 --- a/lib/resource/spanish/ParadigmsSpa.gf +++ b/lib/resource/spanish/ParadigmsSpa.gf @@ -1,41 +1,53 @@ ---# -path=.:../romance:../abstract:../../prelude +--# -path=.:../romance:../common:../abstract:../../prelude --1 Spanish Lexical Paradigms -- --- Aarne Ranta 2005 +-- Aarne Ranta 2004 - 2006 -- --- This is an API to the user of the resource grammar --- for adding lexical items. It give shortcuts for forming --- expressions of basic categories: nouns, adjectives, verbs. +-- This is an API for the user of the resource grammar +-- for adding lexical items. It gives functions for forming +-- expressions of open categories: nouns, adjectives, verbs. -- -- Closed categories (determiners, pronouns, conjunctions) are --- accessed through the resource syntax API, $resource.Abs.gf$. +-- accessed through the resource syntax API, $Structural.gf$. -- --- The main difference with $MorphoIta.gf$ is that the types +-- The main difference with $MorphoSpa.gf$ is that the types -- referred to are compiled resource grammar types. We have moreover --- had the design principle of always having existing forms, not stems, as string --- arguments of the paradigms. +-- had the design principle of always having existing forms, rather +-- than stems, as string arguments of the paradigms. -- --- The following modules are presupposed: +-- The structure of functions for each word class $C$ is the following: +-- first we give a handful of patterns that aim to cover all +-- regular cases. Then we give a worst-case function $mkC$, which serves as an +-- escape to construct the most irregular words of type $C$. For +-- verbs, there is a fairly complete list of irregular verbs in +-- [``IrregSpa`` ../../spanish/IrregSpa.gf]. resource ParadigmsSpa = - open Prelude, (Types = TypesSpa), SyntaxSpa, MorphoSpa, BeschSpa, - RulesSpa in { + open + (Predef=Predef), + Prelude, + CommonRomance, + ResSpa, + MorphoSpa, + BeschSpa, + CatSpa in { + + flags optimize=all ; --2 Parameters -- -- To abstract over gender names, we define the following identifiers. oper - Bool : Type ; - Gender : Type ; + Gender : Type ; masculine : Gender ; feminine : Gender ; -- To abstract over number names, we define the following. - Number : Type ; + Number : Type ; singular : Number ; plural : Number ; @@ -43,22 +55,23 @@ oper -- Prepositions used in many-argument functions are either strings -- (including the 'accusative' empty string) or strings that -- amalgamate with the following word (the 'genitive' "de" and the --- 'dative' "à"). +-- 'dative' "a"). - Preposition : Type ; + Prep : Type ; - accusative : Preposition ; - dative : Preposition ; - genitive : Preposition ; + accusative : Prep ; + genitive : Prep ; + dative : Prep ; + + mkPrep : Str -> Prep ; - mkPreposition : Str -> Preposition ; --2 Nouns -- Worst case: two forms (singular + plural), -- and the gender. - mkN : (_,_ : Str) -> Gender -> N ; -- uomo, uomini, masculine + mkN : (_,_ : Str) -> Gender -> N ; -- bastón, bastones, masculine -- The regular function takes the singular form and the gender, -- and computes the plural and the gender by a heuristic. @@ -78,7 +91,7 @@ oper --3 Compound nouns -- -- Some nouns are ones where the first part is inflected as a noun but --- the second part is not inflected. e.g. "numéro de téléphone". +-- the second part is not inflected. e.g. "número de teléfono". -- They could be formed in syntax, but we give a shortcut here since -- they are frequent in lexica. @@ -89,7 +102,7 @@ oper -- -- Relational nouns ("fille de x") need a case and a preposition. - mkN2 : N -> Preposition -> N2 ; + mkN2 : N -> Prep -> N2 ; -- The most common cases are the genitive "de" and the dative "a", -- with the empty preposition. @@ -99,7 +112,7 @@ oper -- Three-place relational nouns ("la connessione di x a y") need two prepositions. - mkN3 : N -> Preposition -> Preposition -> N3 ; + mkN3 : N -> Prep -> Prep -> N3 ; --3 Relational common noun phrases @@ -114,7 +127,9 @@ oper -- -- Proper names need a string and a gender. - mkPN : Str -> Gender -> PN ; -- Jean + mkPN : Str -> Gender -> PN ; -- Juan + regPN : Str -> PN ; -- feminine for "-a", otherwise masculine + -- To form a noun phrase that can also be plural, -- you can use the worst-case function. @@ -126,7 +141,7 @@ oper -- Non-comparison one-place adjectives need five forms in the worst -- case (masc and fem singular, masc plural, adverbial). - mkA : (solo,sola,soli,sole, solamente : Str) -> A ; + mkA : (solo,sola,solos,solas, solamiento : Str) -> A ; -- For regular adjectives, all other forms are derived from the -- masculine singular. The types of adjectives that are recognized are @@ -136,7 +151,7 @@ oper -- These functions create postfix adjectives. To switch -- them to prefix ones (i.e. ones placed before the noun in --- modification, as in "petite maison"), the following function is +-- modification, as in "bueno vino"), the following function is -- provided. prefA : A -> A ; @@ -145,33 +160,25 @@ oper -- -- Two-place adjectives need a preposition for their second argument. - mkA2 : A -> Preposition -> A2 ; + mkA2 : A -> Prep -> A2 ; --3 Comparison adjectives -- Comparison adjectives are in the worst case put up from two -- adjectives: the positive ("bueno"), and the comparative ("mejor"). - mkADeg : A -> A -> ADeg ; + mkADeg : A -> A -> A ; -- If comparison is formed by "mas", as usual in Spanish, -- the following pattern is used: - compADeg : A -> ADeg ; + compADeg : A -> A ; -- The regular pattern is the same as $regA$ for plain adjectives, -- with comparison by "mas". - regADeg : Str -> ADeg ; + regADeg : Str -> A ; --- From a given $ADeg$, it is possible to get back to $A$. - - adegA : ADeg -> A ; - --- For prefixed adjectives, the following function is --- provided. - - prefADeg : ADeg -> ADeg ; --2 Adverbs @@ -204,6 +211,10 @@ oper verboV : Verbum -> V ; +-- To form reflexive verbs: + + reflV : V -> V ; + -- Verbs with a deviant passive participle: just give the participle -- in masculine singular form as second argument. @@ -214,7 +225,7 @@ oper -- Two-place verbs need a preposition, except the special case with direct object. -- (transitive verbs). Notice that a particle comes from the $V$. - mkV2 : V -> Preposition -> V2 ; + mkV2 : V -> Prep -> V2 ; dirV2 : V -> V2 ; @@ -227,9 +238,9 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Preposition -> Preposition -> V3 ; -- parler, à, de - dirV3 : V -> Preposition -> V3 ; -- donner,_,à - dirdirV3 : V -> V3 ; -- donner,_,_ + mkV3 : V -> Prep -> Prep -> V3 ; -- hablar, a, di + dirV3 : V -> Prep -> V3 ; -- dar,(accusative),a + dirdirV3 : V -> V3 ; -- dar,(dative),(accusative) --3 Other complement patterns -- @@ -238,73 +249,86 @@ oper mkV0 : V -> V0 ; mkVS : V -> VS ; - mkV2S : V -> Preposition -> V2S ; - mkVV : V -> VV ; -- plain infinitive: "je veux parler" - deVV : V -> VV ; -- "j'essaie de parler" - aVV : V -> VV ; -- "j'arrive à parler" - mkV2V : V -> Preposition -> Preposition -> V2V ; + mkV2S : V -> Prep -> V2S ; + mkVV : V -> VV ; -- plain infinitive: "quiero hablar" + deVV : V -> VV ; -- "terminar de hablar" + aVV : V -> VV ; -- "aprender a hablar" + mkV2V : V -> Prep -> Prep -> V2V ; mkVA : V -> VA ; - mkV2A : V -> Preposition -> V2A ; + mkV2A : V -> Prep -> Prep -> V2A ; mkVQ : V -> VQ ; - mkV2Q : V -> Preposition -> V2Q ; + mkV2Q : V -> Prep -> V2Q ; - mkAS : A -> AS ; - subjAS : A -> AS ; - mkA2S : A -> Preposition -> A2S ; - mkAV : A -> Preposition -> AV ; - mkA2V : A -> Preposition -> Preposition -> A2V ; + mkAS : A -> AS ; + mkA2S : A -> Prep -> A2S ; + mkAV : A -> Prep -> AV ; + mkA2V : A -> Prep -> Prep -> A2V ; + +-- Notice: categories $V2S, V2V, V2Q$ are in v 1.0 treated +-- just as synonyms of $V2$, and the second argument is given +-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. +-- $V0$ is just $V$. + + V0, V2S, V2V, V2Q : Type ; + AS, A2S, AV, A2V : Type ; ---2 Definitions of the paradigms +--. +--2 The definitions of the paradigms -- -- The definitions should not bother the user of the API. So they are -- hidden from the document. ---. - - Bool = Prelude.Bool ; - Gender = SyntaxSpa.Gender ; - Preposition = SyntaxSpa.Case * Str ; - Number = SyntaxSpa.Number ; + Gender = MorphoSpa.Gender ; + Number = MorphoSpa.Number ; masculine = Masc ; - feminine = Fem ; + feminine = Fem ; + singular = Sg ; + plural = Pl ; - accusative = ; - genitive = ; - dative = ; - mkPreposition p = ; + Prep = Compl ; + accusative = complAcc ; + genitive = complGen ; + dative = complDat ; + mkPrep p = {s = p ; c = Acc ; isDir = False} ; - singular = Types.singular ; - plural = Types.plural ; - mkN x y g = mkCNomIrreg x y g ** {lock_N = <>} ; + mkN x y g = mkNounIrreg x y g ** {lock_N = <>} ; regN x = mkNomReg x ** {lock_N = <>} ; compN x y = {s = \\n => x.s ! n ++ y ; g = x.g ; lock_N = <>} ; femN x = {s = x.s ; g = feminine ; lock_N = <>} ; mascN x = {s = x.s ; g = masculine ; lock_N = <>} ; - mkN2 = \n,p -> n ** {lock_N2 = <> ; c = p.p1 ; s2 = p.p2} ; + mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p} ; deN2 n = mkN2 n genitive ; aN2 n = mkN2 n dative ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c = p.p1 ; s2 = p.p2 ; c3 = q.p1 ; s3 = q.p2} ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p ; c3 = q} ; mkPN x g = {s = x ; g = g} ** {lock_PN = <>} ; - mkNP x g n = let np = mkNameNounPhrase x g in - {s = np.s ; g = np.g ; p = np.p ; c = np.c ; n = n ; lock_NP = <>} ; + regPN x = mkPN x g where { + g = case last x of { + "a" => feminine ; + _ => masculine + } + } ; - mkA a b c d e = mkAdj a b c d e ** {p = False ; lock_A = <>} ; - regA a = mkAdjReg a ** {p = False ; lock_A = <>} ; - prefA a = {s = a.s ; p = True ; lock_A = <>} ; + mkNP x g n = {s = (pn2np (mkPN x g)).s; a = agrP3 g n ; hasClit = False} ** {lock_NP = <>} ; - mkA2 a p = a ** {c = p.p1 ; s2 = p.p2 ; lock_A2 = <>} ; + mkA a b c d e = + compADeg {s = \\_ => (mkAdj a b c d e).s ; isPre = False ; lock_A = <>} ; + regA a = compADeg {s = \\_ => (mkAdjReg a).s ; isPre = False ; lock_A = <>} ; + prefA a = {s = a.s ; isPre = True ; lock_A = <>} ; - mkADeg a b = {s = table {Pos => a.s ; _ => b.s} ; p = a.p ; lock_ADeg = <>} ; - compADeg a = {s = table {Pos => a.s ; _ => \\f => "mas" ++ a.s ! f} ; p = a.p ; - lock_ADeg = <>} ; + mkA2 a p = a ** {c2 = p ; lock_A2 = <>} ; + + mkADeg a b = + {s = table {Posit => a.s ! Posit ; _ => b.s ! Posit} ; + isPre = a.isPre ; lock_A = <>} ; + compADeg a = + {s = table {Posit => a.s ! Posit ; _ => \\f => "más" ++ a.s ! Posit ! f} ; + isPre = a.isPre ; + lock_A = <>} ; regADeg a = compADeg (regA a) ; - prefADeg a = {s = a.s ; p = True ; lock_ADeg = <>} ; - - adegA a = {s = a.s ! Pos ; p = a.p ; lock_A = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ; @@ -326,9 +350,13 @@ oper _ => cortar_5 x } } - in verbPres verb AHabere ** {lock_V = <>} ; + in verbBesch verb ** {vtyp = VHabere ; lock_V = <>} ; - verboV ve = verbPres ve AHabere ** {lock_V = <>} ; + reflV v = {s = v.s ; vtyp = VRefl ; lock_V = <>} ; + + verboV ve = verbBesch ve ** {vtyp = VHabere ; lock_V = <>} ; + + reflVerboV : Verbum -> V = \ve -> reflV (verboV ve) ; special_ppV ve pa = { s = table { @@ -336,32 +364,37 @@ oper p => ve.s ! p } ; lock_V = <> ; - aux = AHabere + vtyp = VHabere } ; - mkV2 v p = {s = v.s ; aux = v.aux ; s2 = p.p2 ; c = p.p1 ; lock_V2 = <>} ; + mkV2 v p = {s = v.s ; vtyp = v.vtyp ; c2 = p ; lock_V2 = <>} ; dirV2 v = mkV2 v accusative ; v2V v = v ** {lock_V = <>} ; - mkV3 v p q = {s = v.s ; aux = v.aux ; - s2 = p.p2 ; s3 = q.p2 ; c = p.p1 ; c3 = q.p1 ; lock_V3 = <>} ; + mkV3 v p q = {s = v.s ; vtyp = v.vtyp ; + c2 = p ; c3 = q ; lock_V3 = <>} ; dirV3 v p = mkV3 v accusative p ; dirdirV3 v = dirV3 v dative ; + V0 : Type = V ; + V2S, V2V, V2Q : Type = V2 ; + AS, AV : Type = A ; + A2S, A2V : Type = A2 ; + mkV0 v = v ** {lock_V0 = <>} ; - mkVS v = v ** {mn,mp = Ind ; lock_VS = <>} ; ---- more moods - mkV2S v p = mkV2 v p ** {mn,mp = Ind ; lock_V2S = <>} ; - mkVV v = v ** {c = accusative.p1 ; lock_VV = <>} ; - deVV v = v ** {c = genitive.p1 ; lock_VV = <>} ; - aVV v = v ** {c = dative.p1 ; lock_VV = <>} ; + mkVS v = v ** {m = \\_ => Indic ; lock_VS = <>} ; ---- more moods + mkV2S v p = mkV2 v p ** {mn,mp = Indic ; lock_V2S = <>} ; + mkVV v = v ** {c2 = complAcc ; lock_VV = <>} ; + deVV v = v ** {c2 = complGen ; lock_VV = <>} ; + aVV v = v ** {c2 = complDat ; lock_VV = <>} ; mkV2V v p t = mkV2 v p ** {c3 = t.p1 ; s3 = p.p2 ; lock_V2V = <>} ; mkVA v = v ** {lock_VA = <>} ; - mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; + mkV2A v p q = mkV3 v p q ** {lock_V2A = <>} ; mkVQ v = v ** {lock_VQ = <>} ; mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - mkAS v = v ** {mn,mp = Ind ; lock_AS = <>} ; ---- more moods - mkA2S v p = mkA2 v p ** {mn,mp = Ind ; lock_A2S = <>} ; + mkAS v = v ** {lock_AS = <>} ; ---- more moods + mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; mkAV v p = v ** {c = p.p1 ; s2 = p.p2 ; lock_AV = <>} ; mkA2V v p q = mkA2 v p ** {s3 = q.p2 ; c3 = q.p1 ; lock_A2V = <>} ; diff --git a/lib/resource-1.0/spanish/PhonoSpa.gf b/lib/resource/spanish/PhonoSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/PhonoSpa.gf rename to lib/resource/spanish/PhonoSpa.gf diff --git a/lib/resource-1.0/spanish/PhraseSpa.gf b/lib/resource/spanish/PhraseSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/PhraseSpa.gf rename to lib/resource/spanish/PhraseSpa.gf diff --git a/lib/resource-1.0/spanish/QuestionSpa.gf b/lib/resource/spanish/QuestionSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/QuestionSpa.gf rename to lib/resource/spanish/QuestionSpa.gf diff --git a/lib/resource-1.0/spanish/RelativeSpa.gf b/lib/resource/spanish/RelativeSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/RelativeSpa.gf rename to lib/resource/spanish/RelativeSpa.gf diff --git a/lib/resource-1.0/spanish/ResSpa.gf b/lib/resource/spanish/ResSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/ResSpa.gf rename to lib/resource/spanish/ResSpa.gf diff --git a/lib/resource-1.0/spanish/SentenceSpa.gf b/lib/resource/spanish/SentenceSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/SentenceSpa.gf rename to lib/resource/spanish/SentenceSpa.gf diff --git a/lib/resource-1.0/spanish/Spanish.gf b/lib/resource/spanish/Spanish.gf similarity index 100% rename from lib/resource-1.0/spanish/Spanish.gf rename to lib/resource/spanish/Spanish.gf diff --git a/lib/resource-1.0/spanish/SpanishAbs.gf b/lib/resource/spanish/SpanishAbs.gf similarity index 100% rename from lib/resource-1.0/spanish/SpanishAbs.gf rename to lib/resource/spanish/SpanishAbs.gf diff --git a/lib/resource/spanish/StructuralSpa.gf b/lib/resource/spanish/StructuralSpa.gf index 36a1086e5..cfa4f0141 100644 --- a/lib/resource/spanish/StructuralSpa.gf +++ b/lib/resource/spanish/StructuralSpa.gf @@ -1,95 +1,159 @@ ---# -path=.:../romance:../abstract:../../prelude +concrete StructuralSpa of Structural = CatSpa ** + open PhonoSpa, MorphoSpa, ParadigmsSpa, BeschSpa, Prelude in { + flags optimize=all ; -concrete StructuralSpa of Structural = CategoriesSpa, NumeralsSpa ** - open SyntaxSpa, MorphoSpa, BeschSpa, Prelude in { - lin - UseNumeral n = {s = \\g => n.s !g ; n = n.n ; isNo = False} ; - - above_Prep = justPrep "sobre" ; - after_Prep = {s = "después" ; c = genitive} ; - all8mass_Det = mkDeterminer singular "todo" "toda" ; - all_NDet = mkDeterminerNum ["todos los"] ["todas las"] ; - almost_Adv = ss "casi" ; - although_Subj = ss "benché" ** {m = Con} ; + above_Prep = mkPrep "sobre" ; + after_Prep = {s = ["despues"] ; c = MorphoSpa.genitive ; isDir = False} ; + all_Predet = { + s = \\a,c => prepCase c ++ aagrForms "todo" "toda" "todos" "todas" ! a ; + c = Nom + } ; + almost_AdA, almost_AdN = ss "casi" ; + always_AdV = ss "siempre" ; + although_Subj = ss "benché" ** {m = Conjunct} ; and_Conj = etConj ; - because_Subj = ss "porque" ** {m = Ind} ; - before_Prep = {s = "antes" ; c = genitive} ; - behind_Prep = {s = "detrás" ; c = genitive} ; - between_Prep = justPrep "entre" ; - both_AndConjD = etetConj ; - by8agent_Prep = justPrep "por" ; - by8means_Prep = justPrep "por" ; - can8know_VV = mkVerbVerbDir (verbPres (saber_71 "saber") AHabere) ; - can_VV = mkVerbVerbDir (verbPres (poder_58 "poder") AHabere) ; ---- - during_Prep = justPrep "durante" ; ---- - either8or_ConjD = ououConj ; - everybody_NP = normalNounPhrase (\\c => prepCase c ++ "todos") Masc Pl ; - every_Det = chaqueDet ; - everything_NP = mkNameNounPhrase ["todo"] Masc ; + because_Subj = ss "porque" ** {m = Indic} ; + before_Prep = {s = "antes" ; c = MorphoSpa.genitive ; isDir = False} ; + behind_Prep = {s = "detrás" ; c = MorphoSpa.genitive ; isDir = False} ; + between_Prep = mkPrep "entre" ; + both7and_DConj = {s1,s2 = etConj.s ; n = Pl} ; + but_PConj = ss "pero" ; + by8agent_Prep = mkPrep "por" ; + by8means_Prep = mkPrep "por" ; + can8know_VV = mkVV (verboV (saber_71 "saber")) ; + can_VV = mkVV (verboV (poder_58 "poder")) ; + during_Prep = mkPrep "durante" ; ---- + either7or_DConj = {s1,s2 = "o" ; n = Sg} ; + everybody_NP = mkNP ["todos"] Masc Pl ; + every_Det = {s = \\_,_ => "cada" ; n = Sg} ; + everything_NP = pn2np (mkPN ["todo"] Masc) ; everywhere_Adv = ss ["en todas partes"] ; - from_Prep = justCase (CPrep P_de) ; - he_NP = pronNounPhrase pronIl ; - how8many_IDet = mkDeterminer plural "cuántos" "cuántas" ; - how_IAdv = commentAdv ; - if_Subj = siSubj ; - in8front_Prep = {s = "delante" ; c = genitive} ; - i_NP = pronNounPhrase pronJe ; - in_Prep = justPrep "en" ; - it_NP = pronNounPhrase pronIl ; - many_Det = mkDeterminer plural "muchos" "muchas" ; - most8many_Det = plupartDet ; - most_Det = mkDeterminer1 singular (["la mayor parte"] ++ elisDe) ; --- de - much_Det = mkDeterminer1 singular "mucho" ; - must_VV = mkVerbVerbDir (verbPres (deber_6 "deber") AHabere) ; ---- - no_Phr = nonPhr ; - on_Prep = justPrep "sobre" ; ---- - or_Conj = ouConj ; - otherwise_Adv = ss "otramente" ; - part_Prep = justCase genitive ; --- - possess_Prep = justCase genitive ; + few_Det = {s = \\g,c => prepCase c ++ genForms "pocos" "pocas" ! g ; n = Pl} ; + first_Ord = {s = \\ag => (regA "primero").s ! Posit ! AF ag.g ag.n} ; + from_Prep = complGen ; --- + he_Pron = + mkPronoun + "el" "lo" "le" "él" + "su" "su" "sus" "sus" + Masc Sg P3 ; + here_Adv = mkAdv "aquí" ; -- acá + here7to_Adv = mkAdv ["para acá"] ; + here7from_Adv = mkAdv ["de acá"] ; + how_IAdv = ss "como" ; + how8many_IDet = + {s = \\g,c => prepCase c ++ genForms "cuantos" "cuantas" ! g ; n = Pl} ; + if_Subj = ss "si" ** {m = Indic} ; + in8front_Prep = {s = "delante" ; c = MorphoSpa.genitive ; isDir = False} ; + i_Pron = + mkPronoun + "yo" "me" "me" "mí" + "mi" "mi" "mis" "mis" + Masc Sg P1 ; + in_Prep = mkPrep "en" ; + it_Pron = + mkPronoun + "el" "lo" "le" "él" + "su" "su" "sus" "sus" + Masc Sg P3 ; + less_CAdv = ss "meno" ; ---- + many_Det = {s = \\g,c => prepCase c ++ genForms "muchos" "muchas" ! g ; n = Pl} ; + more_CAdv = ss "mas" ; + most_Predet = {s = \\_,c => prepCase c ++ ["la mayor parte"] ; c = CPrep P_de} ; + much_Det = {s = \\g,c => prepCase c ++ genForms "mucho" "mucha" ! g ; n = Sg} ; + must_VV = mkVV (verboV (deber_6 "deber")) ; + no_Phr = ss "no" ; + on_Prep = mkPrep "sobre" ; + one_Quant = {s = \\g,c => prepCase c ++ genForms "uno" "una" ! g} ; + only_Predet = {s = \\_,c => prepCase c ++ "solamente" ; c = Nom} ; + or_Conj = {s = "o" ; n = Sg} ; + otherwise_PConj = ss "otramente" ; + part_Prep = complGen ; + please_Voc = ss ["por favor"] ; + possess_Prep = complGen ; quite_Adv = ss "bastante" ; - she_NP = pronNounPhrase pronElle ; - so_Adv = ss "tanto" ; ---- - somebody_NP = mkNameNounPhrase ["algún"] Masc ; - some_Det = mkDeterminer singular "algun" "alguna" ; - some_NDet = mkDeterminerNum "algunos" "algunas" ; - something_NP = mkNameNounPhrase ["algo"] Masc ; + she_Pron = + mkPronoun + "ella" "la" "le" "ella" + "su" "su" "sus" "sus" + Fem Sg P3 ; + so_AdA = ss "tanto" ; + somebody_NP = pn2np (mkPN ["algún"] Masc) ; + somePl_Det = {s = \\g,c => prepCase c ++ genForms "algunos" "algunas" ! g ; n = Pl} ; + someSg_Det = {s = \\g,c => prepCase c ++ "algun" ; n = Sg} ; + something_NP = pn2np (mkPN ["algo"] Masc) ; somewhere_Adv = ss ["en ninguna parte"] ; - that_Det = mkDeterminer singular "ese" "esa" ; - that_NP = mkNameNounPhrase ["eso"] Masc ; - therefore_Adv = ss ["por eso"] ; - these_NDet = mkDeterminerNum "estos" "estas" ; - they8fem_NP = pronNounPhrase pronElles ; - they_NP = pronNounPhrase pronIls ; - this_Det = mkDeterminer singular "este" "esta" ; - this_NP = mkNameNounPhrase ["esto"] Masc ; - those_NDet = mkDeterminerNum "esos" "esas" ; - thou_NP = pronNounPhrase pronTu ; - through_Prep = justPrep "por" ; - too_Adv = ss "demasiado" ; - to_Prep = justCase dative ; --- - under_Prep = justPrep "bajo" ; - very_Adv = ss "muy" ; - want_VV = mkVerbVerbDir (verbPres (querer_64 "querer") AHabere) ; ---- - we_NP = pronNounPhrase pronNous ; - what8one_IP = intPronWhat singular ; - what8many_IP = intPronWhat plural ; - when_IAdv = quandAdv ; - when_Subj = quandSubj ; - where_IAdv = ouAdv ; - which8many_IDet = mkDeterminerNum "cuales" "cuales" ** {n = Pl} ; - which8one_IDet = quelDet ; - who8one_IP = intPronWho singular ; - who8many_IP = intPronWho plural ; - why_IAdv = pourquoiAdv ; - without_Prep = justPrep "sin" ; - with_Prep = justPrep "con" ; - ye_NP = pronNounPhrase pronVous ; - yes_Phr = ouiPhr ; - you_NP = pronNounPhrase pronVous ; + that_Quant = { + s = \\_ => table { + Sg => \\g,c => prepCase c ++ genForms "ese" "esa" ! g ; + Pl => \\g,c => prepCase c ++ genForms "esos" "esas" ! g + } + } ; + that_NP = mkNP ["eso"] Masc Sg ; + there_Adv = mkAdv "allí" ; -- allá + there7to_Adv = mkAdv ["para allá"] ; + there7from_Adv = mkAdv ["de allá"] ; + therefore_PConj = ss ["por eso"] ; + these_NP = mkNP ["estos"] Masc Pl ; + they_Pron = mkPronoun + "ellos" "los" "les" "ellos" + "su" "su" "sus" "sus" + Masc Pl P3 ; + this_Quant = { + s = \\_ => table { + Sg => \\g,c => prepCase c ++ genForms "este" "esta" ! g ; + Pl => \\g,c => prepCase c ++ genForms "estos" "estas" ! g + } + } ; + this_NP = pn2np (mkPN ["esto"] Masc) ; + those_NP = mkNP ["esos"] Masc Pl ; + through_Prep = mkPrep "por" ; + too_AdA = ss "demasiado" ; + to_Prep = complDat ; + under_Prep = mkPrep "bajo" ; + very_AdA = ss "muy" ; + want_VV = mkVV (verboV (querer_64 "querer")) ; + we_Pron = + mkPronoun + "nosotros" "nos" "nos" "nosotros" + "nuestro" "nuestra" "nuestros" "nuestras" + Masc Pl P1 ; + whatSg_IP = {s = \\c => prepCase c ++ ["qué"] ; a = aagr Masc Sg} ; + whatPl_IP = {s = \\c => prepCase c ++ ["qué"] ; a = aagr Masc Pl} ; --- + when_IAdv = ss "cuando" ; + when_Subj = ss "cuando" ** {m = Indic} ; + where_IAdv = ss "donde" ; + whichSg_IDet = {s = \\g,c => prepCase c ++ "cuale" ; n = Sg} ; + whichPl_IDet = {s = \\g,c => prepCase c ++ "cuales" ; n = Pl} ; + whoPl_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Pl} ; + whoSg_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Sg} ; + why_IAdv = ss "porqué" ; + without_Prep = mkPrep "sin" ; + with_Prep = mkPrep "con" ; + yes_Phr = ss "sí" ; + youSg_Pron = mkPronoun + "tu" "te" "te" "tí" + "tu" "tu" "tus" "tus" + Masc Sg P2 ; + youPl_Pron = + mkPronoun + "vosotros" "vos" "vos" "vosotros" + "vuestro" "vuestra" "vuestros" "vuestras" + Masc Pl P2 ; + youPol_Pron = + mkPronoun + "usted" "la" "le" "usted" + "su" "su" "sus" "sus" + Masc Pl P2 ; + +oper + etConj : {s : Str ; n : Number} = {s = pre { + "y" ; + "y" / strs {"ya" ; "ye" ; "yo" ; "yu"} ; + "e" / strs {"i" ; "hi" ; "y"} + }} ** {n = Pl} ; } diff --git a/lib/resource-1.0/spanish/TextSpa.gf b/lib/resource/spanish/TextSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/TextSpa.gf rename to lib/resource/spanish/TextSpa.gf diff --git a/lib/resource-1.0/spanish/VerbSpa.gf b/lib/resource/spanish/VerbSpa.gf similarity index 100% rename from lib/resource-1.0/spanish/VerbSpa.gf rename to lib/resource/spanish/VerbSpa.gf diff --git a/lib/resource-1.0/swadesh/MkV2.hs b/lib/resource/swadesh/MkV2.hs similarity index 100% rename from lib/resource-1.0/swadesh/MkV2.hs rename to lib/resource/swadesh/MkV2.hs diff --git a/lib/resource-1.0/swedish/AdjectiveSwe.gf b/lib/resource/swedish/AdjectiveSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/AdjectiveSwe.gf rename to lib/resource/swedish/AdjectiveSwe.gf diff --git a/lib/resource-1.0/swedish/AdverbSwe.gf b/lib/resource/swedish/AdverbSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/AdverbSwe.gf rename to lib/resource/swedish/AdverbSwe.gf diff --git a/lib/resource-1.0/swedish/CatSwe.gf b/lib/resource/swedish/CatSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/CatSwe.gf rename to lib/resource/swedish/CatSwe.gf diff --git a/lib/resource-1.0/swedish/ConjunctionSwe.gf b/lib/resource/swedish/ConjunctionSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/ConjunctionSwe.gf rename to lib/resource/swedish/ConjunctionSwe.gf diff --git a/lib/resource-1.0/swedish/DiffSwe.gf b/lib/resource/swedish/DiffSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/DiffSwe.gf rename to lib/resource/swedish/DiffSwe.gf diff --git a/lib/resource-1.0/swedish/ExtraScandSwe.gf b/lib/resource/swedish/ExtraScandSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/ExtraScandSwe.gf rename to lib/resource/swedish/ExtraScandSwe.gf diff --git a/lib/resource-1.0/swedish/ExtraSwe.gf b/lib/resource/swedish/ExtraSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/ExtraSwe.gf rename to lib/resource/swedish/ExtraSwe.gf diff --git a/lib/resource-1.0/swedish/ExtraSweAbs.gf b/lib/resource/swedish/ExtraSweAbs.gf similarity index 100% rename from lib/resource-1.0/swedish/ExtraSweAbs.gf rename to lib/resource/swedish/ExtraSweAbs.gf diff --git a/lib/resource-1.0/swedish/GrammarSwe.gf b/lib/resource/swedish/GrammarSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/GrammarSwe.gf rename to lib/resource/swedish/GrammarSwe.gf diff --git a/lib/resource-1.0/swedish/IdiomSwe.gf b/lib/resource/swedish/IdiomSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/IdiomSwe.gf rename to lib/resource/swedish/IdiomSwe.gf diff --git a/lib/resource-1.0/swedish/IrregSwe.gf b/lib/resource/swedish/IrregSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/IrregSwe.gf rename to lib/resource/swedish/IrregSwe.gf diff --git a/lib/resource-1.0/swedish/IrregSweAbs.gf b/lib/resource/swedish/IrregSweAbs.gf similarity index 100% rename from lib/resource-1.0/swedish/IrregSweAbs.gf rename to lib/resource/swedish/IrregSweAbs.gf diff --git a/lib/resource/swedish/LangSwe.gf b/lib/resource/swedish/LangSwe.gf index 2cdbadb52..a321acd1f 100644 --- a/lib/resource/swedish/LangSwe.gf +++ b/lib/resource/swedish/LangSwe.gf @@ -1,23 +1,10 @@ ---# -path=.:../scandinavian:../abstract:../../prelude +--# -path=.:../scandinavian:../abstract:../common:prelude concrete LangSwe of Lang = - RulesSwe, - ClauseSwe, - StructuralSwe, - BasicSwe, - TimeSwe, - CountrySwe, - MathSwe + GrammarSwe, + LexiconSwe + ** { - ** open Prelude, ResourceSwe, ParadigmsSwe in { +flags startcat = Phr ; unlexer = text ; lexer = text ; -lin - AdvDate d = prefixSS "på" d ; - AdvTime t = prefixSS "klockan" t ; - NWeekday w = w ; - PNWeekday w = nounPN w ; - - PNCountry x = x ; - ANationality x = x ; - NLanguage x = x ; -} +} ; diff --git a/lib/resource-1.0/swedish/LexiconSwe.gf b/lib/resource/swedish/LexiconSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/LexiconSwe.gf rename to lib/resource/swedish/LexiconSwe.gf diff --git a/lib/resource/swedish/MorphoSwe.gf b/lib/resource/swedish/MorphoSwe.gf index f79043d1d..48180b781 100644 --- a/lib/resource/swedish/MorphoSwe.gf +++ b/lib/resource/swedish/MorphoSwe.gf @@ -1,1252 +1,73 @@ +--# -path=.:../scandinavian:../common:../../prelude + --1 A Simple Swedish Resource Morphology -- --- Aarne Ranta 2002 +-- Aarne Ranta 2002 -- 2005 -- -- This resource morphology contains definitions needed in the resource --- syntax. It moreover contains copies of the most usual inflectional patterns --- as defined in functional morphology (in the Haskell file $RulesSw.hs$). --- --- We use the parameter types and word classes defined for morphology. +-- syntax. To build a lexicon, it is better to use $ParadigmsSwe$, which +-- gives a higher-level access to this module. -resource MorphoSwe = TypesSwe ** open Prelude in { - --- Nouns - -oper - mkNoun : (apa,apan,apor,aporna : Str) -> Subst = - \apa,apan,apor,aporna -> - {s = table { - SF Sg Indef c => mkCase c apa ; - SF Sg Def c => mkCase c apan ; - SF Pl Indef c => mkCase c apor ; - SF Pl Def c => mkCase c aporna - } ; - h1 = case last apan of { - "n" => Utr ; - _ => Neutr - } - } ; - - reg2Noun : Str -> Str -> Subst = \bil,bilar -> - let - l = last bil ; - b = Predef.tk 2 bil ; - ar = Predef.dp 2 bilar ; - bile = Predef.tk 2 bilar - in - case ar of { - "or" => case l of { - "a" => decl1Noun bil ; - "r" => sLik bil ; - "o" => mkNoun bil (bil + "n") bilar (bilar + "na") ; - _ => mkNoun bil (bil + "en") bilar (bilar + "na") - } ; - "ar" => ifTok Subst bil bilar - (decl5Noun bil) - (ifTok Subst bile bil - (decl2Noun bil) - (case l of { - "e" => decl2Noun bil ; -- pojke-pojkar - _ => mkNoun bil (bile + "en") bilar (bilar + "na") -- mun-munnar - } - ) - ) ; - "er" => case l of { - "e" => sVarelse (init bil) ; - "å" => sNivå bil ; - _ => mkNoun bil (bil + "en") (bilar) (bilar + "na") - } ; - "en" => ifTok Subst bil bilar (sLik bil) (sRike bil) ; -- ben-ben - _ => ifTok Subst bil bilar ( - case Predef.dp 3 bil of { - "are" => sKikare (init bil) ; - _ => decl5Noun bil - } - ) - (decl5Noun bil) --- rest case with lots of garbage - } ; - ---- this is a very rough heuristic as regards "ar/er" - - regNoun : Str -> Gender -> Subst = \bil,g -> case g of { - Utr => case last bil of { - "a" => decl1Noun bil ; - _ => decl2Noun bil - } ; - Neutr => case last bil of { - "e" => sRike bil ; - _ => decl5Noun bil - } - } ; - - - decl1Noun : Str -> Subst = \apa -> sApa (init apa) ; - - decl2Noun : Str -> Subst = \bil -> - case last bil of { - "e" => sPojke (init bil) ; - "o" | "u" | "y" => mkNoun bil (bil + "n") (bil + "ar") (bil + "arna") ; - _ => mkNoun bil (bil + "en") (bil + "ar") (bil + "arna") - } ; - - decl3Noun : Str -> Subst = \sak -> - case last sak of { - "e" => sVarelse (init sak) ; - "å" => sNivå sak ; - _ => mkNoun sak (sak + "en") (sak + "er") (sak + "erna") - } ; - - decl5Noun : Str -> Subst = \lik -> - mkNoun lik (lik + "et") lik (lik + "en") ; - - --- Adjectives - - -mkAdjPos : Str -> Str -> Str -> Str -> AdjFormPos -> Str ; -mkAdjPos liten litet lilla sma a = case a of { - Strong gn => case gn of { - ASg Utr => liten ; - ASg Neutr => litet ; - APl => sma - } ; - Weak sn => case sn of { - AxSg NoMasc => lilla ; - AxSg Masc => init lilla + "e" ; - AxPl => sma - } - } ; - --- The worst-case macro for the full declension (including comparison forms) --- is not so much worse. - -mkAdjective : Str -> Str -> Str -> Str -> - Str -> Str -> Str -> Adj ; -mkAdjective liten litet lilla sma mindre minst minsta = {s = table { - AF (Posit p) c => mkCase c (mkAdjPos liten litet lilla sma p) ; - AF Compar c => mkCase c mindre ; - AF (Super SupStrong) c => mkCase c minst ; - AF (Super SupWeak) c => mkCase c minsta - } -} ; - --- It is handy to extract the positive part of a declension only, if --- the other comparicon forms aren't needed or don't make sense. - -extractPositive : Adj -> {s : AdjFormPos => Case => Str} ; -extractPositive adj = {s = \\a,c => adj.s ! (AF (Posit a) c)} ; - --- The notion of 'moderately irregular adjective' covers almost all adjectives. - -adjIrreg : (_,_,_,_ : Str) -> Adj ; -adjIrreg god gott battre bast = - mkAdjective god gott (god + "a") (god + "a") battre bast (bast + "a") ; - --- Often it is possible to derive the $Pos Sg Neutr$ form even if the --- comparison forms are irregular. - -adjIrreg3 : (_,_,_: Str) -> Adj ; -adjIrreg3 ung yngre yngst = adjIrreg ung (ung + "t") yngre yngst ; - --- Some adjectives must be given $Pos Sg Utr$ $Pos Sg Neutr$, and $Pos Pl$, --- e.g. those ending with unstressed "en". - -adjAlmostReg : (_,_,_: Str) -> Adj ; -adjAlmostReg ljummen ljummet ljumma = - mkAdjective ljummen ljummet ljumma ljumma - (ljumma + "re") (ljumma + "st") (ljumma + "ste") ; - -adjReg : Str -> Adj = \fin -> adjAlmostReg fin (fin + "t") (fin + "a") ; - -adj2Reg : Str -> Str -> Adj = \vid,vitt -> adjAlmostReg vid vitt (vid + "a") ; +resource MorphoSwe = CommonScand, ResSwe ** open Prelude, (Predef=Predef) in { -- Verbs - mkVerb : (supa,super,sup,söp,supit,supen : Str) -> Verb = - \finna,finner,finn,fann,funnit,funnen -> - let funn = ptPretForms funnen in - {s = table { - VF (Pres Act) => finner ; - VF (Pres Pass) => mkVoice Pass finn ; - VF (Pret v) => mkVoice v fann ; - VF (Imper v) => mkVoice v finn ; - VI (Inf v) => mkVoice v finna ; - VI (Supin v) => mkVoice v funnit ; - VI (PtPret a c) => funn ! a ! c - } ; - s1 = [] - } ; - - vFinna : (_,_,_ : Str) -> Verb = \finn, fann, funn -> - mkVerb (finn + "a") (finn + "er") finn fann (funn + "it") (funn + "en") ; - --- Now this is more general and subsumes $vFinna$. - - vSälja : (_,_,_ : Str) -> Verb = \sälja, sålde, sålt -> - let - a = last sälja ; - sälj = case a of { - "a" => init sälja ; - _ => sälja - } ; - er = case a of { - "a" => "er" ; - _ => "r" - } ; - såld = case Predef.dp 2 sålt of { - "it" => Predef.tk 2 sålt + "en" ; - "tt" => Predef.tk 2 sålt + "dd" ; - _ => init sålt + "d" - } - in - mkVerb sälja (sälj + er) sälj sålde sålt såld ; - - regVerb : (_,_ : Str) -> Verb = \tala,talade -> - let - ade = Predef.dp 3 talade ; - de = Predef.dp 2 ade ; - tal = Predef.tk 1 tala ; - forms = case ade of { - "ade" => vTala tal ; - "dde" => case last tala of { - "a" => vTyda (init tal) ; - _ => mkVerb tala (tala + "r") tala (tala + "dde") (tala + "tt") (tala + "dd") - } ; - "tte" => vByta (init tal) ; - "nde" => vVända (init tal) ; - "rde" => vHyra tal ; - _ => case de of { - "te" => vLeka tal ; - _ => vGräva tal - } - } - in forms ** {s1 = []} ; - - ptPretForms : Str -> AdjFormPos => Case => Str = \funnen -> \\a,c => - let - funn = Predef.tk 2 funnen ; - en = Predef.dp 2 funnen ; - funne = init funnen ; - n = last funnen ; - m = case last funn of { - "n" => [] ; - _ => "n" - } ; - funna = case en of { - "en" => case a of { - (Strong (ASg Utr)) => funn + "en" ; - (Strong (ASg Neutr)) => funn + "et" ; - (Weak (AxSg Masc)) => funn + m + "e" ; - _ => funn + m + "a" - } ; - "dd" => case a of { - (Strong (ASg Utr)) => funn + "dd" ; - (Strong (ASg Neutr)) => funn + "tt" ; - (Weak (AxSg Masc)) => funn + "dde" ; - _ => funn + "dda" - } ; - "ad" => case a of { - (Strong (ASg Utr)) => funn + "ad" ; - (Strong (ASg Neutr)) => funn + "at" ; - _ => funn + "ade" - } ; - _ => case n of { - "d" => case a of { - (Strong (ASg Utr)) => funne + "d" ; - (Strong (ASg Neutr)) => funne + "t" ; - (Weak (AxSg Masc)) => funne + "de" ; - _ => funne + "da" - } ; - _ => case a of { - (Strong (ASg Utr)) => funne + "t" ; - (Strong (ASg Neutr)) => funne + "t" ; - (Weak (AxSg Masc)) => funne + "te" ; - _ => funne + "ta" - } - } - } - in - mkCase c funna ; - -mkCase : Case -> Str -> Str = \c,f -> case c of { - Nom => f ; - Gen => f + case last f of { - "s" | "x" => [] ; - _ => "s" - } - } ; - -mkVoice : Voice -> Str -> Str = \c,f -> case c of { - Act => f ; - Pass => f + case last f of { - "s" => "es" ; - _ => "s" - } - } ; - --- The most common is a verb without a particle. - - mkVerbPart : (_,_,_,_,_,_,_ : Str) -> Verb = \supa,super,sup,söp,supit,supen,upp -> - {s = (mkVerb supa super sup söp supit supen).s} ** {s1 = upp} ; - --- Prepositions are just strings. - Preposition = Str ; - --- Relative pronouns have a special case system. $RPrep$ is the form used --- after a preposition (e.g. "det hus i vilket jag bor"). -param - RelCase = RNom | RAcc | RGen | RPrep ; +-- Heuristic to infer all participle forms from one. oper - relPronForms : RelCase => GenNum => Str = table { - RNom => \\_ => "som" ; - RAcc => \\_ => variants {"som" ; []} ; - RGen => \\_ => "vars" ; - RPrep => pronVilken - } ; - - pronVilken = table { - ASg Utr => "vilken" ; - ASg Neutr => "vilket" ; - APl => "vilka" + ptPretAll : Str -> Str * Str = \funnen -> + case funnen of { + ko +"mmen" => ; + vun +"nen" => ; + bjud + "en" => ; + se + "dd" => ; + tal + "ad" => ; + kaen + "d" => ; + lekt => } ; - pronSådan = table { - ASg Utr => "sådan" ; - ASg Neutr => "sådant" ; - APl => "sådana" - } ; + ptPretForms : Str -> AFormPos => Case => Str = \funnen -> \\a,c => + let + funfun = ptPretAll funnen + in + mkCase c (case a of { + (Strong (SgUtr)) => funnen ; + (Strong (SgNeutr)) => funfun.p1 ; + _ => funfun.p2 + } + ) ; --- What follows are machine-generated inflection paradigms from functional --- morphology. Hence they are low-level paradigms, without any --- abstractions or generalizations: the Haskell code is better in these respects. --- --- The variable names are selected in such a way that the paradigms can be read --- as inflection tables of certain words. - -oper sApa : Str -> Subst = \ap -> - {s = table { - SF Sg Indef Nom => ap + "a" ; - SF Sg Indef Gen => ap + "as" ; - SF Sg Def Nom => ap + "an" ; - SF Sg Def Gen => ap + "ans" ; - SF Pl Indef Nom => ap + "or" ; - SF Pl Indef Gen => ap + "ors" ; - SF Pl Def Nom => ap + "orna" ; - SF Pl Def Gen => ap + "ornas" - } ; - h1 = Utr - } ; - -oper sBil : Str -> Subst = \bil -> - {s = table { - SF Sg Indef Nom => bil ; - SF Sg Indef Gen => bil + "s" ; - SF Sg Def Nom => bil + "en" ; - SF Sg Def Gen => bil + "ens" ; - SF Pl Indef Nom => bil + "ar" ; - SF Pl Indef Gen => bil + "ars" ; - SF Pl Def Nom => bil + "arna" ; - SF Pl Def Gen => bil + "arnas" - } ; - h1 = Utr - } ; - -oper sPojke : Str -> Subst = \pojk -> - {s = table { - SF Sg Indef Nom => pojk + "e" ; - SF Sg Indef Gen => pojk + "es" ; - SF Sg Def Nom => pojk + "en" ; - SF Sg Def Gen => pojk + "ens" ; - SF Pl Indef Nom => pojk + "ar" ; - SF Pl Indef Gen => pojk + "ars" ; - SF Pl Def Nom => pojk + "arna" ; - SF Pl Def Gen => pojk + "arnas" - } ; - h1 = Utr - } ; - -oper sNyckel : Str -> Subst = \nyck -> - {s = table { - SF Sg Indef Nom => nyck + "el" ; - SF Sg Indef Gen => nyck + "els" ; - SF Sg Def Nom => nyck + "eln" ; - SF Sg Def Gen => nyck + "elns" ; - SF Pl Indef Nom => nyck + "lar" ; - SF Pl Indef Gen => nyck + "lars" ; - SF Pl Def Nom => nyck + "larna" ; - SF Pl Def Gen => nyck + "larnas" - } ; - h1 = Utr - } ; - -oper sKam : Str -> Subst = \kam -> - {s = table { - SF Sg Indef Nom => kam ; - SF Sg Indef Gen => kam + "s" ; - SF Sg Def Nom => kam + "men" ; - SF Sg Def Gen => kam + "mens" ; - SF Pl Indef Nom => kam + "mar" ; - SF Pl Indef Gen => kam + "mars" ; - SF Pl Def Nom => kam + "marna" ; - SF Pl Def Gen => kam + "marnas" - } ; - h1 = Utr - } ; - -oper sSak : Str -> Subst = \sak -> - {s = table { - SF Sg Indef Nom => sak ; - SF Sg Indef Gen => sak + "s" ; - SF Sg Def Nom => sak + "en" ; - SF Sg Def Gen => sak + "ens" ; - SF Pl Indef Nom => sak + "er" ; - SF Pl Indef Gen => sak + "ers" ; - SF Pl Def Nom => sak + "erna" ; - SF Pl Def Gen => sak + "ernas" - } ; - h1 = Utr - } ; - -oper sVarelse : Str -> Subst = \varelse -> - {s = table { - SF Sg Indef Nom => varelse ; - SF Sg Indef Gen => varelse + "s" ; - SF Sg Def Nom => varelse + "n" ; - SF Sg Def Gen => varelse + "ns" ; - SF Pl Indef Nom => varelse + "r" ; - SF Pl Indef Gen => varelse + "rs" ; - SF Pl Def Nom => varelse + "rna" ; - SF Pl Def Gen => varelse + "rnas" - } ; - h1 = Utr - } ; - -oper sNivå : Str -> Subst = \nivå -> - {s = table { - SF Sg Indef Nom => nivå ; - SF Sg Indef Gen => nivå + "s" ; - SF Sg Def Nom => nivå + "n" ; - SF Sg Def Gen => nivå + "ns" ; - SF Pl Indef Nom => nivå + "er" ; - SF Pl Indef Gen => nivå + "ers" ; - SF Pl Def Nom => nivå + "erna" ; - SF Pl Def Gen => nivå + "ernas" - } ; - h1 = Utr - } ; - -oper sParti : Str -> Subst = \parti -> - {s = table { - SF Sg Indef Nom => parti ; - SF Sg Indef Gen => parti + "s" ; - SF Sg Def Nom => parti + "et" ; - SF Sg Def Gen => parti + "ets" ; - SF Pl Indef Nom => parti + "er" ; - SF Pl Indef Gen => parti + "ers" ; - SF Pl Def Nom => parti + "erna" ; - SF Pl Def Gen => parti + "ernas" - } ; - h1 = Neutr - } ; - -oper sMuseum : Str -> Subst = \muse -> - {s = table { - SF Sg Indef Nom => muse + "um" ; - SF Sg Indef Gen => muse + "ums" ; - SF Sg Def Nom => muse + "et" ; - SF Sg Def Gen => muse + "ets" ; - SF Pl Indef Nom => muse + "er" ; - SF Pl Indef Gen => muse + "ers" ; - SF Pl Def Nom => muse + "erna" ; - SF Pl Def Gen => muse + "ernas" - } ; - h1 = Neutr - } ; - -oper sRike : Str -> Subst = \rike -> - {s = table { - SF Sg Indef Nom => rike ; - SF Sg Indef Gen => rike + "s" ; - SF Sg Def Nom => rike + "t" ; - SF Sg Def Gen => rike + "ts" ; - SF Pl Indef Nom => rike + "n" ; - SF Pl Indef Gen => rike + "ns" ; - SF Pl Def Nom => rike + "na" ; - SF Pl Def Gen => rike + "nas" - } ; - h1 = Neutr - } ; - -oper sLik : Str -> Subst = \lik -> - {s = table { - SF Sg Indef Nom => lik ; - SF Sg Indef Gen => lik + "s" ; - SF Sg Def Nom => lik + "et" ; - SF Sg Def Gen => lik + "ets" ; - SF Pl Indef Nom => lik ; - SF Pl Indef Gen => lik + "s" ; - SF Pl Def Nom => lik + "en" ; - SF Pl Def Gen => lik + "ens" - } ; - h1 = Neutr - } ; - -oper sRum : Str -> Subst = \rum -> - {s = table { - SF Sg Indef Nom => rum ; - SF Sg Indef Gen => rum + "s" ; - SF Sg Def Nom => rum + "met" ; - SF Sg Def Gen => rum + "mets" ; - SF Pl Indef Nom => rum ; - SF Pl Indef Gen => rum + "s" ; - SF Pl Def Nom => rum + "men" ; - SF Pl Def Gen => rum + "mens" - } ; - h1 = Neutr - } ; - -oper sHus : Str -> Subst = \hus -> - {s = table { - SF Sg Indef Nom => hus ; - SF Sg Indef Gen => hus ; - SF Sg Def Nom => hus + "et" ; - SF Sg Def Gen => hus + "ets" ; - SF Pl Indef Nom => hus ; - SF Pl Indef Gen => hus ; - SF Pl Def Nom => hus + "en" ; - SF Pl Def Gen => hus + "ens" - } ; - h1 = Neutr - } ; - -oper sPapper : Str -> Subst = \papp -> - {s = table { - SF Sg Indef Nom => papp + "er" ; - SF Sg Indef Gen => papp + "ers" ; - SF Sg Def Nom => papp + "ret" ; - SF Sg Def Gen => papp + "rets" ; - SF Pl Indef Nom => papp + "er" ; - SF Pl Indef Gen => papp + "ers" ; - SF Pl Def Nom => papp + "ren" ; - SF Pl Def Gen => papp + "rens" - } ; - h1 = Neutr - } ; - -oper sNummer : Str -> Subst = \num -> - {s = table { - SF Sg Indef Nom => num + "mer" ; - SF Sg Indef Gen => num + "mers" ; - SF Sg Def Nom => num + "ret" ; - SF Sg Def Gen => num + "rets" ; - SF Pl Indef Nom => num + "mer" ; - SF Pl Indef Gen => num + "mers" ; - SF Pl Def Nom => num + "ren" ; - SF Pl Def Gen => num + "rens" - } ; - h1 = Neutr - } ; - -oper sKikare : Str -> Subst = \kikar -> - {s = table { - SF Sg Indef Nom => kikar + "e" ; - SF Sg Indef Gen => kikar + "es" ; - SF Sg Def Nom => kikar + "en" ; - SF Sg Def Gen => kikar + "ens" ; - SF Pl Indef Nom => kikar + "e" ; - SF Pl Indef Gen => kikar + "es" ; - SF Pl Def Nom => kikar + "na" ; - SF Pl Def Gen => kikar + "nas" - } ; - h1 = Utr - } ; - -oper sProgram : Str -> Subst = \program -> - {s = table { - SF Sg Indef Nom => program ; - SF Sg Indef Gen => program + "s" ; - SF Sg Def Nom => program + "met" ; - SF Sg Def Gen => program + "mets" ; - SF Pl Indef Nom => program ; - SF Pl Indef Gen => program + "s" ; - SF Pl Def Nom => program + "men" ; - SF Pl Def Gen => program + "mens" - } ; - h1 = Neutr - } ; - -oper aFin : Str -> Adj = \fin -> - {s = table { - AF (Posit (Strong (ASg Utr))) Nom => fin ; - AF (Posit (Strong (ASg Utr))) Gen => fin + "s" ; - AF (Posit (Strong (ASg Neutr))) Nom => fin + "t" ; - AF (Posit (Strong (ASg Neutr))) Gen => fin + "ts" ; - AF (Posit (Strong APl)) Nom => fin + "a" ; - AF (Posit (Strong APl)) Gen => fin + "as" ; - AF (Posit (Weak (AxSg NoMasc))) Nom => fin + "a" ; - AF (Posit (Weak (AxSg NoMasc))) Gen => fin + "as" ; - AF (Posit (Weak (AxSg Masc))) Nom => fin + "e" ; - AF (Posit (Weak (AxSg Masc))) Gen => fin + "es" ; - AF (Posit (Weak AxPl)) Nom => fin + "a" ; - AF (Posit (Weak AxPl)) Gen => fin + "as" ; - AF Compar Nom => fin + "are" ; - AF Compar Gen => fin + "ares" ; - AF (Super SupStrong) Nom => fin + "ast" ; - AF (Super SupStrong) Gen => fin + "asts" ; - AF (Super SupWeak) Nom => fin + "aste" ; - AF (Super SupWeak) Gen => fin + "astes" - } - } ; - -oper aFager : Str -> Adj = \fag -> - {s = table { - AF (Posit (Strong (ASg Utr))) Nom => fag + "er" ; - AF (Posit (Strong (ASg Utr))) Gen => fag + "ers" ; - AF (Posit (Strong (ASg Neutr))) Nom => fag + "ert" ; - AF (Posit (Strong (ASg Neutr))) Gen => fag + "erts" ; - AF (Posit (Strong APl)) Nom => fag + "era" ; - AF (Posit (Strong APl)) Gen => fag + "eras" ; - AF (Posit (Weak (AxSg NoMasc))) Nom => fag + "era" ; - AF (Posit (Weak (AxSg NoMasc))) Gen => fag + "eras" ; - AF (Posit (Weak (AxSg Masc))) Nom => fag + "ere" ; - AF (Posit (Weak (AxSg Masc))) Gen => fag + "eres" ; - AF (Posit (Weak AxPl)) Nom => fag + "era" ; - AF (Posit (Weak AxPl)) Gen => fag + "eras" ; - AF Compar Nom => fag + "erare" ; - AF Compar Gen => fag + "erares" ; - AF (Super SupStrong) Nom => fag + "erast" ; - AF (Super SupStrong) Gen => fag + "erasts" ; - AF (Super SupWeak) Nom => fag + "eraste" ; - AF (Super SupWeak) Gen => fag + "erastes" - } - } ; - -oper aGrund : Str -> Adj = \grun -> - {s = table { - AF (Posit (Strong (ASg Utr))) Nom => grun + "d" ; - AF (Posit (Strong (ASg Utr))) Gen => grun + "ds" ; - AF (Posit (Strong (ASg Neutr))) Nom => grun + "t" ; - AF (Posit (Strong (ASg Neutr))) Gen => grun + "ts" ; - AF (Posit (Strong APl)) Nom => grun + "da" ; - AF (Posit (Strong APl)) Gen => grun + "das" ; - AF (Posit (Weak (AxSg NoMasc))) Nom => grun + "da" ; - AF (Posit (Weak (AxSg NoMasc))) Gen => grun + "das" ; - AF (Posit (Weak (AxSg Masc))) Nom => grun + "de" ; - AF (Posit (Weak (AxSg Masc))) Gen => grun + "des" ; - AF (Posit (Weak AxPl)) Nom => grun + "da" ; - AF (Posit (Weak AxPl)) Gen => grun + "das" ; - AF Compar Nom => grun + "dare" ; - AF Compar Gen => grun + "dares" ; - AF (Super SupStrong) Nom => grun + "dast" ; - AF (Super SupStrong) Gen => grun + "dasts" ; - AF (Super SupWeak) Nom => grun + "daste" ; - AF (Super SupWeak) Gen => grun + "dastes" - } - } ; - -oper aVid : Str -> Adj = \vi -> - {s = table { - AF (Posit (Strong (ASg Utr))) Nom => vi + "d" ; - AF (Posit (Strong (ASg Utr))) Gen => vi + "ds" ; - AF (Posit (Strong (ASg Neutr))) Nom => vi + "tt" ; - AF (Posit (Strong (ASg Neutr))) Gen => vi + "tts" ; - AF (Posit (Strong APl)) Nom => vi + "da" ; - AF (Posit (Strong APl)) Gen => vi + "das" ; - AF (Posit (Weak (AxSg NoMasc))) Nom => vi + "da" ; - AF (Posit (Weak (AxSg NoMasc))) Gen => vi + "das" ; - AF (Posit (Weak (AxSg Masc))) Nom => vi + "de" ; - AF (Posit (Weak (AxSg Masc))) Gen => vi + "des" ; - AF (Posit (Weak AxPl)) Nom => vi + "da" ; - AF (Posit (Weak AxPl)) Gen => vi + "das" ; - AF Compar Nom => vi + "dare" ; - AF Compar Gen => vi + "dares" ; - AF (Super SupStrong) Nom => vi + "dast" ; - AF (Super SupStrong) Gen => vi + "dasts" ; - AF (Super SupWeak) Nom => vi + "daste" ; - AF (Super SupWeak) Gen => vi + "dastes" - } - } ; - -oper aVaken : Str -> Adj = \vak -> - {s = table { - AF (Posit (Strong (ASg Utr))) Nom => vak + "en" ; - AF (Posit (Strong (ASg Utr))) Gen => vak + "ens" ; - AF (Posit (Strong (ASg Neutr))) Nom => vak + "et" ; - AF (Posit (Strong (ASg Neutr))) Gen => vak + "ets" ; - AF (Posit (Strong APl)) Nom => vak + "na" ; - AF (Posit (Strong APl)) Gen => vak + "nas" ; - AF (Posit (Weak (AxSg NoMasc))) Nom => vak + "na" ; - AF (Posit (Weak (AxSg NoMasc))) Gen => vak + "nas" ; - AF (Posit (Weak (AxSg Masc))) Nom => vak + "ne" ; - AF (Posit (Weak (AxSg Masc))) Gen => vak + "nes" ; - AF (Posit (Weak AxPl)) Nom => vak + "na" ; - AF (Posit (Weak AxPl)) Gen => vak + "nas" ; - AF Compar Nom => vak + "nare" ; - AF Compar Gen => vak + "nares" ; - AF (Super SupStrong) Nom => vak + "nast" ; - AF (Super SupStrong) Gen => vak + "nasts" ; - AF (Super SupWeak) Nom => vak + "naste" ; - AF (Super SupWeak) Gen => vak + "nastes" - } - } ; - -oper aKorkad : Str -> Adj = \korka -> - {s = table { - AF (Posit (Strong (ASg Utr))) Nom => korka + "d" ; - AF (Posit (Strong (ASg Utr))) Gen => korka + "ds" ; - AF (Posit (Strong (ASg Neutr))) Nom => korka + "t" ; - AF (Posit (Strong (ASg Neutr))) Gen => korka + "ts" ; - AF (Posit (Strong APl)) Nom => korka + "de" ; - AF (Posit (Strong APl)) Gen => korka + "des" ; - AF (Posit (Weak (AxSg NoMasc))) Nom => korka + "de" ; - AF (Posit (Weak (AxSg NoMasc))) Gen => korka + "des" ; - AF (Posit (Weak (AxSg Masc))) Nom => korka + "de" ; - AF (Posit (Weak (AxSg Masc))) Gen => korka + "des" ; - AF (Posit (Weak AxPl)) Nom => korka + "de" ; - AF (Posit (Weak AxPl)) Gen => korka + "des" ; - AF Compar Nom => variants {} ; - AF Compar Gen => variants {} ; - AF (Super SupStrong) Nom => variants {} ; - AF (Super SupStrong) Gen => variants {} ; - AF (Super SupWeak) Nom => variants {} ; - AF (Super SupWeak) Gen => variants {} - } - } ; - -oper aAbstrakt : Str -> Adj = \abstrakt -> - {s = table { - AF (Posit (Strong (ASg Utr))) Nom => abstrakt ; - AF (Posit (Strong (ASg Utr))) Gen => abstrakt + "s" ; - AF (Posit (Strong (ASg Neutr))) Nom => abstrakt ; - AF (Posit (Strong (ASg Neutr))) Gen => abstrakt + "s" ; - AF (Posit (Strong APl)) Nom => abstrakt + "a" ; - AF (Posit (Strong APl)) Gen => abstrakt + "as" ; - AF (Posit (Weak (AxSg NoMasc))) Nom => abstrakt + "a" ; - AF (Posit (Weak (AxSg NoMasc))) Gen => abstrakt + "as" ; - AF (Posit (Weak (AxSg Masc))) Nom => abstrakt + "e" ; - AF (Posit (Weak (AxSg Masc))) Gen => abstrakt + "es" ; - AF (Posit (Weak AxPl)) Nom => abstrakt + "a" ; - AF (Posit (Weak AxPl)) Gen => abstrakt + "as" ; - AF Compar Nom => abstrakt + "are" ; - AF Compar Gen => abstrakt + "ares" ; - AF (Super SupStrong) Nom => abstrakt + "ast" ; - AF (Super SupStrong) Gen => abstrakt + "asts" ; - AF (Super SupWeak) Nom => abstrakt + "aste" ; - AF (Super SupWeak) Gen => abstrakt + "astes" - } - } ; - -oper vTala : Str -> Verbum = \tal -> - {s = table { - VF (Pres Act) => tal + "ar" ; - VF (Pres Pass) => tal + "as" ; - VF (Pret Act) => tal + "ade" ; - VF (Pret Pass) => tal + "ades" ; - VF (Imper Act) => tal + "a" ; - VF (Imper Pass) => tal + "as" ; - VI (Inf Act) => tal + "a" ; - VI (Inf Pass) => tal + "as" ; - VI (Supin Act) => tal + "at" ; - VI (Supin Pass) => tal + "ats" ; - VI (PtPret (Strong (ASg Utr)) Nom) => tal + "ad" ; - VI (PtPret (Strong (ASg Utr)) Gen) => tal + "ads" ; - VI (PtPret (Strong (ASg Neutr)) Nom) => tal + "at" ; - VI (PtPret (Strong (ASg Neutr)) Gen) => tal + "ats" ; - VI (PtPret (Strong APl) Nom) => tal + "ade" ; - VI (PtPret (Strong APl) Gen) => tal + "ades" ; - VI (PtPret (Weak (AxSg NoMasc)) Nom) => tal + "ade" ; - VI (PtPret (Weak (AxSg NoMasc)) Gen) => tal + "ades" ; - VI (PtPret (Weak (AxSg Masc)) Nom) => tal + "ade" ; - VI (PtPret (Weak (AxSg Masc)) Gen) => tal + "ades" ; - VI (PtPret (Weak AxPl) Nom) => tal + "ade" ; - VI (PtPret (Weak AxPl) Gen) => tal + "ades" - } - } ; - -oper vLeka : Str -> Verbum = \lek -> - {s = table { - VF (Pres Act) => lek + "er" ; - VF (Pres Pass) => mkVoice Pass lek ; - VF (Pret Act) => lek + "te" ; - VF (Pret Pass) => lek + "tes" ; - VF (Imper v) => mkVoice v lek ; - VI (Inf Act) => lek + "a" ; - VI (Inf Pass) => lek + "as" ; - VI (Supin Act) => lek + "t" ; - VI (Supin Pass) => lek + "ts" ; - VI (PtPret (Strong (ASg Utr)) Nom) => lek + "t" ; - VI (PtPret (Strong (ASg Utr)) Gen) => lek + "ts" ; - VI (PtPret (Strong (ASg Neutr)) Nom) => lek + "t" ; - VI (PtPret (Strong (ASg Neutr)) Gen) => lek + "ts" ; - VI (PtPret (Strong APl) Nom) => lek + "ta" ; - VI (PtPret (Strong APl) Gen) => lek + "tas" ; - VI (PtPret (Weak (AxSg NoMasc)) Nom) => lek + "ta" ; - VI (PtPret (Weak (AxSg NoMasc)) Gen) => lek + "tas" ; - VI (PtPret (Weak (AxSg Masc)) Nom) => lek + "te" ; - VI (PtPret (Weak (AxSg Masc)) Gen) => lek + "tes" ; - VI (PtPret (Weak AxPl) Nom) => lek + "ta" ; - VI (PtPret (Weak AxPl) Gen) => lek + "tas" - } - } ; - -oper vGräva : Str -> Verbum = \gräv -> - {s = table { - VF (Pres Act) => gräv + "er" ; - VF (Pres Pass) => mkVoice Pass gräv ; - VF (Pret Act) => gräv + "de" ; - VF (Pret Pass) => gräv + "des" ; - VF (Imper v) => mkVoice v gräv ; - VI (Inf Act) => gräv + "a" ; - VI (Inf Pass) => gräv + "as" ; - VI (Supin Act) => gräv + "t" ; - VI (Supin Pass) => gräv + "ts" ; - VI (PtPret (Strong (ASg Utr)) Nom) => gräv + "d" ; - VI (PtPret (Strong (ASg Utr)) Gen) => gräv + "ds" ; - VI (PtPret (Strong (ASg Neutr)) Nom) => gräv + "t" ; - VI (PtPret (Strong (ASg Neutr)) Gen) => gräv + "ts" ; - VI (PtPret (Strong APl) Nom) => gräv + "da" ; - VI (PtPret (Strong APl) Gen) => gräv + "das" ; - VI (PtPret (Weak (AxSg NoMasc)) Nom) => gräv + "da" ; - VI (PtPret (Weak (AxSg NoMasc)) Gen) => gräv + "das" ; - VI (PtPret (Weak (AxSg Masc)) Nom) => gräv + "de" ; - VI (PtPret (Weak (AxSg Masc)) Gen) => gräv + "des" ; - VI (PtPret (Weak AxPl) Nom) => gräv + "da" ; - VI (PtPret (Weak AxPl) Gen) => gräv + "das" - } - } ; - -oper vTyda : Str -> Verbum = \ty -> - {s = table { - VF (Pres Act) => ty + "der" ; - VF (Pres Pass) => variants {ty + "ds" ; ty + "des"} ; - VF (Pret Act) => ty + "dde" ; - VF (Pret Pass) => ty + "ddes" ; - VF (Imper Act) => ty + "d" ; - VF (Imper Pass) => ty + "ds" ; - VI (Inf Act) => ty + "da" ; - VI (Inf Pass) => ty + "das" ; - VI (Supin Act) => ty + "tt" ; - VI (Supin Pass) => ty + "tts" ; - VI (PtPret (Strong (ASg Utr)) Nom) => ty + "dd" ; - VI (PtPret (Strong (ASg Utr)) Gen) => ty + "dds" ; - VI (PtPret (Strong (ASg Neutr)) Nom) => ty + "tt" ; - VI (PtPret (Strong (ASg Neutr)) Gen) => ty + "tts" ; - VI (PtPret (Strong APl) Nom) => ty + "dda" ; - VI (PtPret (Strong APl) Gen) => ty + "ddas" ; - VI (PtPret (Weak (AxSg NoMasc)) Nom) => ty + "dda" ; - VI (PtPret (Weak (AxSg NoMasc)) Gen) => ty + "ddas" ; - VI (PtPret (Weak (AxSg Masc)) Nom) => ty + "dde" ; - VI (PtPret (Weak (AxSg Masc)) Gen) => ty + "ddes" ; - VI (PtPret (Weak AxPl) Nom) => ty + "dda" ; - VI (PtPret (Weak AxPl) Gen) => ty + "ddas" - } - } ; - -oper vVända : Str -> Verbum = \vän -> - {s = table { - VF (Pres Act) => vän + "der" ; - VF (Pres Pass) => variants {vän + "ds" ; vän + "des"} ; - VF (Pret Act) => vän + "de" ; - VF (Pret Pass) => vän + "des" ; - VF (Imper Act) => vän + "d" ; - VF (Imper Pass) => vän + "ds" ; - VI (Inf Act) => vän + "da" ; - VI (Inf Pass) => vän + "das" ; - VI (Supin Act) => vän + "t" ; - VI (Supin Pass) => vän + "ts" ; - VI (PtPret (Strong (ASg Utr)) Nom) => vän + "d" ; - VI (PtPret (Strong (ASg Utr)) Gen) => vän + "ds" ; - VI (PtPret (Strong (ASg Neutr)) Nom) => vän + "t" ; - VI (PtPret (Strong (ASg Neutr)) Gen) => vän + "ts" ; - VI (PtPret (Strong APl) Nom) => vän + "da" ; - VI (PtPret (Strong APl) Gen) => vän + "das" ; - VI (PtPret (Weak (AxSg NoMasc)) Nom) => vän + "da" ; - VI (PtPret (Weak (AxSg NoMasc)) Gen) => vän + "das" ; - VI (PtPret (Weak (AxSg Masc)) Nom) => vän + "de" ; - VI (PtPret (Weak (AxSg Masc)) Gen) => vän + "des" ; - VI (PtPret (Weak AxPl) Nom) => vän + "da" ; - VI (PtPret (Weak AxPl) Gen) => vän + "das" - } - } ; - -oper vByta : Str -> Verbum = \by -> - {s = table { - VF (Pres Act) => by + "ter" ; - VF (Pres Pass) => variants {by + "ts" ; by + "tes"} ; - VF (Pret Act) => by + "tte" ; - VF (Pret Pass) => by + "ttes" ; - VF (Imper Act) => by + "t" ; - VF (Imper Pass) => by + "ts" ; - VI (Inf Act) => by + "ta" ; - VI (Inf Pass) => by + "tas" ; - VI (Supin Act) => by + "tt" ; - VI (Supin Pass) => by + "tts" ; - VI (PtPret (Strong (ASg Utr)) Nom) => by + "tt" ; - VI (PtPret (Strong (ASg Utr)) Gen) => by + "tts" ; - VI (PtPret (Strong (ASg Neutr)) Nom) => by + "tt" ; - VI (PtPret (Strong (ASg Neutr)) Gen) => by + "tts" ; - VI (PtPret (Strong APl) Nom) => by + "tta" ; - VI (PtPret (Strong APl) Gen) => by + "ttas" ; - VI (PtPret (Weak (AxSg NoMasc)) Nom) => by + "tta" ; - VI (PtPret (Weak (AxSg NoMasc)) Gen) => by + "ttas" ; - VI (PtPret (Weak (AxSg Masc)) Nom) => by + "tte" ; - VI (PtPret (Weak (AxSg Masc)) Gen) => by + "ttes" ; - VI (PtPret (Weak AxPl) Nom) => by + "tta" ; - VI (PtPret (Weak AxPl) Gen) => by + "ttas" - } - } ; - -oper vHyra : Str -> Verbum = \hyr -> - {s = table { - VF (Pres Act) => hyr ; - VF (Pres Pass) => variants {hyr + "s" ; hyr + "es"} ; - VF (Pret Act) => hyr + "de" ; - VF (Pret Pass) => hyr + "des" ; - VF (Imper Act) => hyr ; - VF (Imper Pass) => hyr + "s" ; - VI (Inf Act) => hyr + "a" ; - VI (Inf Pass) => hyr + "as" ; - VI (Supin Act) => hyr + "t" ; - VI (Supin Pass) => hyr + "ts" ; - VI (PtPret (Strong (ASg Utr)) Nom) => hyr + "d" ; - VI (PtPret (Strong (ASg Utr)) Gen) => hyr + "ds" ; - VI (PtPret (Strong (ASg Neutr)) Nom) => hyr + "t" ; - VI (PtPret (Strong (ASg Neutr)) Gen) => hyr + "ts" ; - VI (PtPret (Strong APl) Nom) => hyr + "da" ; - VI (PtPret (Strong APl) Gen) => hyr + "das" ; - VI (PtPret (Weak (AxSg NoMasc)) Nom) => hyr + "da" ; - VI (PtPret (Weak (AxSg NoMasc)) Gen) => hyr + "das" ; - VI (PtPret (Weak (AxSg Masc)) Nom) => hyr + "de" ; - VI (PtPret (Weak (AxSg Masc)) Gen) => hyr + "des" ; - VI (PtPret (Weak AxPl) Nom) => hyr + "da" ; - VI (PtPret (Weak AxPl) Gen) => hyr + "das" - } - } ; - --- machine-generated exceptional inflection tables from rules.Swe.gf - -oper mor_1 : Subst = - {s = table { - SF Sg Indef Nom => variants {"mor" ; "moder"} ; - SF Sg Indef Gen => variants {"mors" ; "moders"} ; - SF Sg Def Nom => "modern" ; - SF Sg Def Gen => "moderns" ; - SF Pl Indef Nom => "mödrar" ; - SF Pl Indef Gen => "mödrars" ; - SF Pl Def Nom => "mödrarna" ; - SF Pl Def Gen => "mödrarnas" - } ; - h1 = Utr - } ; - -oper farbror_8 : Subst = - {s = table { - SF Sg Indef Nom => variants {"farbror" ; "farbroder"} ; - SF Sg Indef Gen => variants {"farbrors" ; "farbroders"} ; - SF Sg Def Nom => "farbrodern" ; - SF Sg Def Gen => "farbroderns" ; - SF Pl Indef Nom => "farbröder" ; - SF Pl Indef Gen => "farbröders" ; - SF Pl Def Nom => "farbröderna" ; - SF Pl Def Gen => "farbrödernas" - } ; - h1 = Utr - } ; - -oper gammal_16 : Adj = - {s = table { - AF (Posit (Strong (ASg Utr))) Nom => "gammal" ; - AF (Posit (Strong (ASg Utr))) Gen => "gammals" ; - AF (Posit (Strong (ASg Neutr))) Nom => "gammalt" ; - AF (Posit (Strong (ASg Neutr))) Gen => "gammalts" ; - AF (Posit (Strong APl)) Nom => "gamla" ; - AF (Posit (Strong APl)) Gen => "gamlas" ; - AF (Posit (Weak (AxSg NoMasc))) Nom => "gamla" ; - AF (Posit (Weak (AxSg NoMasc))) Gen => "gamlas" ; - AF (Posit (Weak (AxSg Masc))) Nom => "gamle" ; - AF (Posit (Weak (AxSg Masc))) Gen => "gamles" ; - AF (Posit (Weak AxPl)) Nom => "gamla" ; - AF (Posit (Weak AxPl)) Gen => "gamlas" ; - AF Compar Nom => "äldre" ; - AF Compar Gen => "äldres" ; - AF (Super SupStrong) Nom => "äldst" ; - AF (Super SupStrong) Gen => "äldsts" ; - AF (Super SupWeak) Nom => "äldsta" ; - AF (Super SupWeak) Gen => "äldstas" - } - } ; - - -oper stor_25 : Adj = - {s = table { - AF (Posit (Strong (ASg Utr))) Nom => "stor" ; - AF (Posit (Strong (ASg Utr))) Gen => "stors" ; - AF (Posit (Strong (ASg Neutr))) Nom => "stort" ; - AF (Posit (Strong (ASg Neutr))) Gen => "storts" ; - AF (Posit (Strong APl)) Nom => "stora" ; - AF (Posit (Strong APl)) Gen => "storas" ; - AF (Posit (Weak (AxSg NoMasc))) Nom => "stora" ; - AF (Posit (Weak (AxSg NoMasc))) Gen => "storas" ; - AF (Posit (Weak (AxSg Masc))) Nom => "store" ; - AF (Posit (Weak (AxSg Masc))) Gen => "stores" ; - AF (Posit (Weak AxPl)) Nom => "stora" ; - AF (Posit (Weak AxPl)) Gen => "storas" ; - AF Compar Nom => "större" ; - AF Compar Gen => "störres" ; - AF (Super SupStrong) Nom => "störst" ; - AF (Super SupStrong) Gen => "störsts" ; - AF (Super SupWeak) Nom => "största" ; - AF (Super SupWeak) Gen => "störstas" - } - } ; - -oper ung_29 : Adj = - {s = table { - AF (Posit (Strong (ASg Utr))) Nom => "ung" ; - AF (Posit (Strong (ASg Utr))) Gen => "ungs" ; - AF (Posit (Strong (ASg Neutr))) Nom => "ungt" ; - AF (Posit (Strong (ASg Neutr))) Gen => "ungts" ; - AF (Posit (Strong APl)) Nom => "unga" ; - AF (Posit (Strong APl)) Gen => "ungas" ; - AF (Posit (Weak (AxSg NoMasc))) Nom => "unga" ; - AF (Posit (Weak (AxSg NoMasc))) Gen => "ungas" ; - AF (Posit (Weak (AxSg Masc))) Nom => "unge" ; - AF (Posit (Weak (AxSg Masc))) Gen => "unges" ; - AF (Posit (Weak AxPl)) Nom => "unga" ; - AF (Posit (Weak AxPl)) Gen => "ungas" ; - AF Compar Nom => "yngre" ; - AF Compar Gen => "yngres" ; - AF (Super SupStrong) Nom => "yngst" ; - AF (Super SupStrong) Gen => "yngsts" ; - AF (Super SupWeak) Nom => "yngsta" ; - AF (Super SupWeak) Gen => "yngstas" - } - } ; - - -oper jag_32 : ProPN = - {s = table { - PNom => "jag" ; - PAcc => "mig" ; - PGen (ASg Utr) => "min" ; - PGen (ASg Neutr) => "mitt" ; - PGen APl => "mina" - } ; - h1 = Utr ; - h2 = Sg ; - h3 = P1 - } ; - -oper du_33 : ProPN = - {s = table { - PNom => "du" ; - PAcc => "dig" ; - PGen (ASg Utr) => "din" ; - PGen (ASg Neutr) => "ditt" ; - PGen APl => "dina" - } ; - h1 = Utr ; - h2 = Sg ; - h3 = P2 - } ; - -oper han_34 : ProPN = - {s = table { - PNom => "han" ; - PAcc => "honom" ; - PGen (ASg Utr) => "hans" ; - PGen (ASg Neutr) => "hans" ; - PGen APl => "hans" - } ; - h1 = Utr ; - h2 = Sg ; - h3 = P3 - } ; - -oper hon_35 : ProPN = - {s = table { - PNom => "hon" ; - PAcc => "henne" ; - PGen (ASg Utr) => "hennes" ; - PGen (ASg Neutr) => "hennes" ; - PGen APl => "hennes" - } ; - h1 = Utr ; - h2 = Sg ; - h3 = P3 - } ; - -oper vi_36 : ProPN = - {s = table { - PNom => "vi" ; - PAcc => "oss" ; - PGen (ASg Utr) => "vår" ; - PGen (ASg Neutr) => "vårt" ; - PGen APl => "våra" - } ; - h1 = Utr ; - h2 = Pl ; - h3 = P1 - } ; - -oper ni_37 : ProPN = - {s = table { - PNom => "ni" ; - PAcc => "er" ; - PGen (ASg Utr) => "er" ; - PGen (ASg Neutr) => "ert" ; - PGen APl => "era" - } ; - h1 = Utr ; - h2 = Pl ; - h3 = P2 - } ; - -oper de_38 : ProPN = - {s = table { - PNom => "de" ; - PAcc => "dem" ; - PGen (ASg Utr) => "deras" ; - PGen (ASg Neutr) => "deras" ; - PGen APl => "deras" - } ; - h1 = Utr ; - h2 = Pl ; - h3 = P3 - } ; - -oper den_39 : ProPN = - {s = table { - PNom => "den" ; - PAcc => "den" ; - PGen (ASg Utr) => "dess" ; - PGen (ASg Neutr) => "dess" ; - PGen APl => "dess" - } ; - h1 = Utr ; - h2 = Sg ; - h3 = P3 - } ; - -oper det_40 : ProPN = - {s = table { - PNom => "det" ; - PAcc => "det" ; - PGen (ASg Utr) => "dess" ; - PGen (ASg Neutr) => "dess" ; - PGen APl => "dess" - } ; - h1 = Neutr ; - h2 = Sg ; - h3 = P3 - } ; - -oper man_1144 : Subst = - {s = table { - SF Sg Indef Nom => "man" ; - SF Sg Indef Gen => "mans" ; - SF Sg Def Nom => "mannen" ; - SF Sg Def Gen => "mannens" ; - SF Pl Indef Nom => "män" ; - SF Pl Indef Gen => "mäns" ; - SF Pl Def Nom => "männen" ; - SF Pl Def Gen => "männens" - } ; - h1 = Utr - } ; - -oper liten_1146 : Adj = - {s = table { - AF (Posit (Strong (ASg Utr))) Nom => "liten" ; - AF (Posit (Strong (ASg Utr))) Gen => "litens" ; - AF (Posit (Strong (ASg Neutr))) Nom => "litet" ; - AF (Posit (Strong (ASg Neutr))) Gen => "litets" ; - AF (Posit (Strong APl)) Nom => "små" ; - AF (Posit (Strong APl)) Gen => "smås" ; - AF (Posit (Weak (AxSg NoMasc))) Nom => "lilla" ; - AF (Posit (Weak (AxSg NoMasc))) Gen => "lillas" ; - AF (Posit (Weak (AxSg Masc))) Nom => "lille" ; - AF (Posit (Weak (AxSg Masc))) Gen => "lilles" ; - AF (Posit (Weak AxPl)) Nom => "små" ; - AF (Posit (Weak AxPl)) Gen => "smås" ; - AF Compar Nom => "mindre" ; - AF Compar Gen => "mindres" ; - AF (Super SupStrong) Nom => "minst" ; - AF (Super SupStrong) Gen => "minsts" ; - AF (Super SupWeak) Nom => "minsta" ; - AF (Super SupWeak) Gen => "minstas" - } - } ; - -oper hava_1198 : Verbum = - {s = table { - VF (Pres Act) => "har" ; - VF (Pres Pass) => "has" ; - VF (Pret Act) => "hade" ; - VF (Pret Pass) => "hades" ; - VF (Imper Act) => "ha" ; - VF (Imper Pass) => "has" ; - VI (Inf Act) => "ha" ; - VI (Inf Pass) => "has" ; - VI (Supin Act) => "haft" ; - VI (Supin Pass) => "hafts" ; - VI (PtPret (Strong (ASg Utr)) Nom) => variants {} ; - VI (PtPret (Strong (ASg Utr)) Gen) => variants {} ; - VI (PtPret (Strong (ASg Neutr)) Nom) => variants {} ; - VI (PtPret (Strong (ASg Neutr)) Gen) => variants {} ; - VI (PtPret (Strong APl) Nom) => variants {} ; - VI (PtPret (Strong APl) Gen) => variants {} ; - VI (PtPret (Weak (AxSg NoMasc)) Nom) => variants {} ; - VI (PtPret (Weak (AxSg NoMasc)) Gen) => variants {} ; - VI (PtPret (Weak (AxSg Masc)) Nom) => variants {} ; - VI (PtPret (Weak (AxSg Masc)) Gen) => variants {} ; - VI (PtPret (Weak AxPl) Nom) => variants {} ; - VI (PtPret (Weak AxPl) Gen) => variants {} - } - } ; - -oper vara_1200 : Verbum = - {s = table { - VF (Pres Act) => "är" ; - VF (Pres Pass) => variants {} ; - VF (Pret Act) => "var" ; - VF (Pret Pass) => variants {} ; - VF (Imper _) => "var" ; - VI (Inf Act) => "vara" ; - VI (Inf Pass) => variants {} ; - VI (Supin Act) => "varit" ; - VI (Supin Pass) => variants {} ; - VI (PtPret (Strong (ASg Utr)) Nom) => variants {} ; - VI (PtPret (Strong (ASg Utr)) Gen) => variants {} ; - VI (PtPret (Strong (ASg Neutr)) Nom) => variants {} ; - VI (PtPret (Strong (ASg Neutr)) Gen) => variants {} ; - VI (PtPret (Strong APl) Nom) => variants {} ; - VI (PtPret (Strong APl) Gen) => variants {} ; - VI (PtPret (Weak (AxSg NoMasc)) Nom) => variants {} ; - VI (PtPret (Weak (AxSg NoMasc)) Gen) => variants {} ; - VI (PtPret (Weak (AxSg Masc)) Nom) => variants {} ; - VI (PtPret (Weak (AxSg Masc)) Gen) => variants {} ; - VI (PtPret (Weak AxPl) Nom) => variants {} ; - VI (PtPret (Weak AxPl) Gen) => variants {} - } - } ; - --- for Numerals +-- For $Numeral$. param DForm = ental | ton | tiotal ; oper - LinDigit = {s : DForm => Str} ; + LinDigit = {s : DForm => CardOrd => Str} ; - mkTal : Str -> Str -> Str -> LinDigit = \två, tolv, tjugo -> - {s = table {ental => två ; ton => tolv ; tiotal => tjugo}} ; + cardOrd : Str -> Str -> CardOrd => Str = \tre,tredje -> + table { + NCard _ => tre ; + NOrd a => tredje ---- a + } ; - regTal : Str -> LinDigit = \fem -> - mkTal fem (fem + "ton") (fem + "tio") ; + cardReg : Str -> CardOrd => Str = \tio -> + cardOrd tio (tio + "nde") ; - numPl : Str -> {s : Gender => Str ; n : Number} = \n -> - {s = \\_ => n ; n = Pl} ; + mkTal : (x1,_,_,_,x5 : Str) -> LinDigit = + \två, tolv, tjugo, andra, tolfte -> + {s = table { + ental => cardOrd två andra ; + ton => cardOrd tolv tolfte ; + tiotal => cardReg tjugo + } + } ; + + numPl : (CardOrd => Str) -> {s : CardOrd => Str ; n : Number} = \n -> + {s = n ; n = Pl} ; + + invNum : CardOrd = NCard Neutr ; + + +} ; -} diff --git a/lib/resource-1.0/swedish/NounSwe.gf b/lib/resource/swedish/NounSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/NounSwe.gf rename to lib/resource/swedish/NounSwe.gf diff --git a/lib/resource-1.0/swedish/NumeralSwe.gf b/lib/resource/swedish/NumeralSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/NumeralSwe.gf rename to lib/resource/swedish/NumeralSwe.gf diff --git a/lib/resource/swedish/ParadigmsSwe.gf b/lib/resource/swedish/ParadigmsSwe.gf index 41afd5727..6d692754c 100644 --- a/lib/resource/swedish/ParadigmsSwe.gf +++ b/lib/resource/swedish/ParadigmsSwe.gf @@ -1,17 +1,17 @@ ---# -path=.:../scandinavian:../abstract:../../prelude +--# -path=.:../scandinavian:../common:../abstract:../../prelude --1 Swedish Lexical Paradigms -- --- Aarne Ranta 2003 +-- Aarne Ranta 2001 - 2006 -- --- This is an API to the user of the resource grammar +-- This is an API for the user of the resource grammar -- for adding lexical items. It gives functions for forming -- expressions of open categories: nouns, adjectives, verbs. -- -- Closed categories (determiners, pronouns, conjunctions) are -- accessed through the resource syntax API, $Structural.gf$. -- --- The main difference with $MorphoEng.gf$ is that the types +-- The main difference with $MorphoSwe.gf$ is that the types -- referred to are compiled resource grammar types. We have moreover -- had the design principle of always having existing forms, rather -- than stems, as string arguments of the paradigms. @@ -21,13 +21,18 @@ -- regular cases. Then we give a worst-case function $mkC$, which serves as an -- escape to construct the most irregular words of type $C$. -- However, this function should only seldom be needed: we have a --- separate module $IrregularEng$, which covers all irregularly inflected --- words. --- --- The following modules are presupposed: +-- separate module [``IrregSwe`` ../../swedish/IrregSwe], +-- which covers many irregular verbs. + resource ParadigmsSwe = - open (Predef=Predef), Prelude, TypesSwe, MorphoSwe, SyntaxSwe, CategoriesSwe in { + open + (Predef=Predef), + Prelude, + CommonScand, + ResSwe, + MorphoSwe, + CatSwe in { --2 Parameters -- @@ -55,7 +60,8 @@ oper -- Prepositions used in many-argument functions are just strings. - Preposition : Type = Str ; + mkPrep : Str -> Prep ; + noPrep : Prep ; -- empty string --2 Nouns @@ -64,21 +70,27 @@ oper mkN : (apa,apan,apor,aporna : Str) -> N ; --- The regular function takes the singular indefinite form and the gender, --- and computes the other forms by a heuristic. +-- The regular function takes the singular indefinite form and computes the other +-- forms and the gender by a heuristic. The heuristic is currently +-- to treat all words ending with "a" like "flicka", with "e" like "rike", +-- and otherwise like "bil". -- If in doubt, use the $cc$ command to test! - regN : Str -> Gender -> N ; + regN : Str -> N ; + +-- Adding the gender manually greatly improves the correction of $regN$. + + regGenN : Str -> Gender -> N ; -- In practice the worst case is often just: give singular and plural indefinite. mk2N : (nyckel,nycklar : Str) -> N ; --- All nouns created by the previous functions are marked as --- $nonmasculine$. If you want a $masculine$ noun, wrap it with the following --- function: +-- This heuristic takes just the plural definite form and infers the others. +-- It does not work if there are changes in the stem. - mascN : N -> N ; + mk1N : (bilarna : Str) -> N ; + --3 Compound nouns -- @@ -88,9 +100,9 @@ oper --3 Relational nouns -- --- Relational nouns ("daughter of x") need a preposition. +-- Relational nouns ("dotter till x") need a preposition. - mkN2 : N -> Preposition -> N2 ; + mkN2 : N -> Prep -> N2 ; -- The most common preposition is "av", and the following is a -- shortcut for regular, $nonhuman$ relational nouns with "av". @@ -100,15 +112,16 @@ oper -- Use the function $mkPreposition$ or see the section on prepositions below to -- form other prepositions. -- --- Three-place relational nouns ("the connection from x to y") need two prepositions. +-- Three-place relational nouns ("förbindelse från x till y") +-- need two prepositions. - mkN3 : N -> Preposition -> Preposition -> N3 ; + mkN3 : N -> Prep -> Prep -> N3 ; --3 Relational common noun phrases -- -- In some cases, you may want to make a complex $CN$ into a --- relational noun (e.g. "the old town hall of"). However, $N2$ and +-- relational noun (e.g. "den före detta maken till"). However, $N2$ and -- $N3$ are purely lexical categories. But you can use the $AdvCN$ -- and $PrepNP$ constructions to build phrases like this. @@ -117,7 +130,8 @@ oper -- -- Proper names, with a regular genitive, are formed as follows - regPN : Str -> Gender -> PN ; -- John, John's + regGenPN : Str -> Gender -> PN ; + regPN : Str -> PN ; -- utrum -- Sometimes you can reuse a common noun as a proper name, e.g. "Bank". @@ -130,114 +144,96 @@ oper --2 Adjectives --- Non-comparison one-place adjectives need for forms: +-- Adjectives may need as many as seven forms. - mkA : (galen,galet,galna : Str) -> A ; - --- For regular adjectives, the other forms are derived. - - regA : Str -> A ; - --- In practice, two forms are enough. - - mk2A : (bred,brett : Str) -> A ; - ---3 Two-place adjectives --- --- Two-place adjectives need a preposition for their second argument. - - mkA2 : A -> Preposition -> A2 ; - --- Comparison adjectives may need as many as seven forms. - - mkADeg : (liten, litet, lilla, sma, mindre, minst, minsta : Str) -> ADeg ; + mkA : (liten, litet, lilla, sma, mindre, minst, minsta : Str) -> A ; -- The regular pattern works for many adjectives, e.g. those ending -- with "ig". - regADeg : Str -> ADeg ; + regA : Str -> A ; -- Just the comparison forms can be irregular. - irregADeg : (tung,tyngre,tyngst : Str) -> ADeg ; + irregA : (tung,tyngre,tyngst : Str) -> A ; -- Sometimes just the positive forms are irregular. - mk3ADeg : (galen,galet,galna : Str) -> ADeg ; - mk2ADeg : (bred,brett : Str) -> ADeg ; + mk3A : (galen,galet,galna : Str) -> A ; + mk2A : (bred,brett : Str) -> A ; --- If comparison is formed by "more, "most", as in general for --- long adjective, the following pattern is used: +-- Comparison forms may be compound ("mera svensk" - "mest svensk"). - compoundADeg : A -> ADeg ; -- -/more/most ridiculous + compoundA : A -> A ; --- From a given $ADeg$, it is possible to get back to $A$. - adegA : ADeg -> A ; +--3 Two-place adjectives +-- +-- Two-place adjectives need a preposition for their second argument. + + mkA2 : A -> Prep -> A2 ; --2 Adverbs -- Adverbs are not inflected. Most lexical ones have position --- after the verb. Some can be preverbal (e.g. "always"). +-- after the verb. Some can be preverbal in subordinate position +-- (e.g. "alltid"). - mkAdv : Str -> Adv ; - mkAdV : Str -> AdV ; + mkAdv : Str -> Adv ; -- här + mkAdV : Str -> AdV ; -- alltid -- Adverbs modifying adjectives and sentences can also be formed. mkAdA : Str -> AdA ; ---2 Prepositions --- --- A preposition is just a string. - - mkPreposition : Str -> Preposition ; - --2 Verbs -- -- The worst case needs five forms. mkV : (supa,super,sup,söp,supit,supen : Str) -> V ; --- The 'regular verb' function is the first conjugation if the --- infinitive ends with "a" ("tala" - "talar" - "talade" - "talat"), +-- The 'regular verb' function is inspired by Lexin. It uses the +-- present tense indicative form. The value is the first conjugation if the +-- argument ends with "ar" ("tala" - "talar" - "talade" - "talat"), +-- the second with "er" ("leka" - "leker" - "lekte" - "lekt", with the +-- variations like "gräva", "vända", "tyda", "hyra"), and -- the third in other cases ("bo" - "bor" - "bodde" - "bott"). - regV : (tala : Str) -> V ; + regV : (talar : Str) -> V ; -- The almost regular verb function needs the infinitive and the preteritum. --- It can deal with almost all cases in the first, second, and third --- conjugation: "tala" - "talade", "leka" - "lekte", --- "gräva" - "grävde", "byta" - "bytte", "vända" - "vände", --- "tyda" - "tydde", "bo" - "bodde". +-- It is not really more powerful than the new implementation of +-- $regV$ based on the indicative form. mk2V : (leka,lekte : Str) -> V ; --- There is an extensive list of irregular verbs in the module $IrregularSwe$. +-- There is an extensive list of irregular verbs in the module $IrregSwe$. -- In practice, it is enough to give three forms, as in school books. - irregV : (dricka, drack, druckit : Str) -> V ; + irregV : (dricka, drack, druckit : Str) -> V ; --3 Verbs with a particle. -- --- The particle, such as in "switch on", is given as a string. +-- The particle, such as in "passa på", is given as a string. partV : V -> Str -> V ; --3 Deponent verbs. -- --- Some words are used in passive forms only, e.g. "hoppas". +-- Some words are used in passive forms only, e.g. "hoppas", some as +-- reflexive e.g. "ångra sig". depV : V -> V ; + reflV : V -> V ; --3 Two-place verbs -- -- Two-place verbs need a preposition, except the special case with direct object. -- (transitive verbs). Notice that a particle comes from the $V$. - mkV2 : V -> Preposition -> V2 ; + mkV2 : V -> Prep -> V2 ; dirV2 : V -> V2 ; @@ -246,9 +242,9 @@ oper -- Three-place (ditransitive) verbs need two prepositions, of which -- the first one or both can be absent. - mkV3 : V -> Str -> Str -> V3 ; -- speak, with, about - dirV3 : V -> Str -> V3 ; -- give,_,to - dirdirV3 : V -> V3 ; -- give,_,_ + mkV3 : V -> Prep -> Prep -> V3 ; -- tala, med, om + dirV3 : V -> Prep -> V3 ; -- ge, (acc),till + dirdirV3 : V -> V3 ; -- ge, (dat), (acc) --3 Other complement patterns -- @@ -257,100 +253,269 @@ oper mkV0 : V -> V0 ; mkVS : V -> VS ; - mkV2S : V -> Str -> V2S ; + mkV2S : V -> Prep -> V2S ; mkVV : V -> VV ; - mkV2V : V -> Str -> Str -> V2V ; + mkV2V : V -> Prep -> Prep -> V2V ; mkVA : V -> VA ; - mkV2A : V -> Str -> V2A ; + mkV2A : V -> Prep -> V2A ; mkVQ : V -> VQ ; - mkV2Q : V -> Str -> V2Q ; + mkV2Q : V -> Prep -> V2Q ; mkAS : A -> AS ; - mkA2S : A -> Str -> A2S ; + mkA2S : A -> Prep -> A2S ; mkAV : A -> AV ; - mkA2V : A -> Str -> A2V ; + mkA2V : A -> Prep -> A2V ; +-- Notice: categories $V2S, V2V, V2A, V2Q$ are in v 1.0 treated +-- just as synonyms of $V2$, and the second argument is given +-- as an adverb. Likewise $AS, A2S, AV, A2V$ are just $A$. +-- $V0$ is just $V$. + V0, V2S, V2V, V2A, V2Q : Type ; + AS, A2S, AV, A2V : Type ; + +--. --2 Definitions of the paradigms -- -- The definitions should not bother the user of the API. So they are -- hidden from the document. ---. - Gender = SyntaxSwe.NounGender ; - Number = TypesSwe.Number ; - Case = TypesSwe.Case ; - utrum = NUtr NoMasc ; - neutrum = NNeutr ; + Gender = ResSwe.Gender ; + Number = CommonScand.Number ; + Case = CommonScand.Case ; + utrum = Utr ; + neutrum = Neutr ; singular = Sg ; plural = Pl ; nominative = Nom ; genitive = Gen ; - mkN x y z u = extCommNoun (mkNoun x y z u) ** {lock_N = <>} ; - regN x g = extCommNoun (regNoun x (genNoun g)) ** {lock_N = <>} ; - mk2N x g = extCommNoun (reg2Noun x g) ** {lock_N = <>} ; - mascN n = {s = n.s ; g = NUtr Masc ; lock_N = <>} ; + mkPrep p = {s = p ; lock_Prep = <>} ; + noPrep = mkPrep [] ; - mkN2 = \n,p -> n ** {lock_N2 = <> ; s2 = p} ; - regN2 n g = mkN2 (regN n g) (mkPreposition "av") ; - mkN3 = \n,p,q -> n ** {lock_N3 = <> ; s2 = p ; s3 = q} ; + mkN = \apa,apan,apor,aporna -> { + s = nounForms apa apan apor aporna ; + g = case last apan of { + "n" => Utr ; + _ => Neutr + } + } ** {lock_N = <>} ; - regPN n g = {s = \\c => mkCase c n ; g = g} ** {lock_PN = <>} ; + regN bil = regGenN bil g where { + g = case of { + _ + "e" => Neutr ; + _ => Utr + } + } ; + + regGenN bil g = case g of { + Utr => case last bil of { + "a" => decl1Noun bil ; + _ => decl2Noun bil + } ; + Neutr => case last bil of { + "e" => decl4Noun bil ; + _ => decl5Noun bil + } + } ** {lock_N = <>} ; + + mk1N bilarna = case bilarna of { + ap + "orna" => decl1Noun (ap + "a") ; + bil + "arna" => decl2Noun bil ; + rad + "erna" => decl3Noun rad ; + rik + "ena" => decl4Noun (rik + "e") ; + husen => decl5Noun (Predef.tk 2 husen) + } ; + + mk2N bil bilar = + ifTok N bil bilar (decl5Noun bil) ( + case Predef.dp 2 bilar of { + "or" => case bil of { + _ + "a" => decl1Noun bil ; -- apa, apor + _ + "o" => mkN bil (bil + "n") bilar (bilar + "na") ; -- ko,kor + _ => mkN bil (bil + "en") bilar (bilar + "na") -- ros,rosor + } ; + "ar" => decl2Noun bil ; + "er" => decl3gNoun bil bilar ; -- fot, fötter + "en" => decl4Noun bil ; -- rike, riken + _ => mkN bil (bil + "et") bilar (bilar + "n") -- centrum, centra + }) ; + +-- School declensions. + + decl1Noun : Str -> N = \apa -> + let ap = init apa in + mkN apa (apa + "n") (ap + "or") (ap + "orna") ; + + decl2Noun : Str -> N = \bil -> + let + bb : Str * Str = case bil of { + br + ("o" | "u" | "ö" | "å") => ; + pojk + "e" => ; + hi + "mme" + l@("l" | "r") => ; + nyck + "e" + l@("l" | "r") => ; + sock + "e" + "n" => ; + _ => + } ; + in mkN bil bb.p2 bb.p1 (bb.p1 + "na") ; + + decl3Noun : Str -> N = \sak -> + case last sak of { + "e" => mkN sak (sak + "n") (sak +"r") (sak + "rna") ; + "y" | "å" | "é" | "y" => mkN sak (sak + "n") (sak +"er") (sak + "erna") ; + _ => mkN sak (sak + "en") (sak + "er") (sak + "erna") + } ; + decl3gNoun : Str -> Str -> N = \sak,saker -> + case last sak of { + "e" => mkN sak (sak + "n") saker (saker + "na") ; + "y" | "å" | "é" | "y" => mkN sak (sak + "n") saker (saker + "na") ; + _ => mkN sak (sak + "en") saker (saker + "na") + } ; + + decl4Noun : Str -> N = \rike -> + mkN rike (rike + "t") (rike + "n") (rike + "na") ; + + decl5Noun : Str -> N = \lik -> + case Predef.dp 3 lik of { + "are" => mkN lik (lik + "n") lik (init lik + "na") ; -- kikare + _ => mkN lik (lik + "et") lik (lik + "en") + } ; + + + mkN2 = \n,p -> n ** {lock_N2 = <> ; c2 = p.s} ; + regN2 n g = mkN2 (regGenN n g) (mkPrep "av") ; + mkN3 = \n,p,q -> n ** {lock_N3 = <> ; c2 = p.s ; c3 = q.s} ; + + regPN n = regGenPN n utrum ; + regGenPN n g = {s = \\c => mkCase c n ; g = g} ** {lock_PN = <>} ; nounPN n = {s = n.s ! singular ! Indef ; g = n.g ; lock_PN = <>} ; mkNP x y n g = - {s = table {PGen _ => x ; _ => y} ; g = genNoun g ; n = n ; p = P3 ; + {s = table {NPPoss _ => y ; _ => x} ; a = agrP3 g n ; p = P3 ; lock_NP = <>} ; - mkA a b c = extractPositive (adjAlmostReg a b c) ** {lock_A = <>} ; - mk2A a b = extractPositive (adj2Reg a b) ** {lock_A = <>} ; - regA a = extractPositive (adjReg a) ** {lock_A = <>} ; + mkA a b c d e f g = mkAdjective a b c d e f g ** {isComp = False ; lock_A = <>} ; + regA fin = + let fint : Str = case fin of { + ru + "nd" => ru + "nt" ; + se + "dd" => se + "tt" ; + pla + "tt" => pla + "tt" ; + gla + "d" => gla + "tt" ; + _ => fin + "t" + } + in + mk3A fin fint (fin + "a") ; + irregA ung yngre yngst = + mkA ung (ung + "t") (ung + "a") (ung + "a") yngre yngst (yngst+"a") ; - mkA2 a p = a ** {s2 = p ; lock_A2 = <>} ; + mk3A ljummen ljummet ljumma = + mkA + ljummen ljummet ljumma ljumma + (ljumma + "re") (ljumma + "st") (ljumma + "ste") ; + mk2A vid vitt = mk3A vid vitt (vid + "a") ; - mkADeg a b c d e f g = mkAdjective a b c d e f g ** {lock_ADeg = <>} ; - regADeg a = adjReg a ** {lock_ADeg = <>} ; - irregADeg a b c = adjIrreg3 a b c ** {lock_ADeg = <>} ; - mk3ADeg a b c = adjAlmostReg a b c ** {lock_ADeg = <>} ; - mk2ADeg a b = adj2Reg a b ** {lock_ADeg = <>} ; + compoundA adj = {s = adj.s ; isComp = True ; lock_A = <>} ; + + mkA2 a p = a ** {c2 = p.s ; lock_A2 = <>} ; mkAdv x = ss x ** {lock_Adv = <>} ; mkAdV x = ss x ** {lock_AdV = <>} ; mkAdA x = ss x ** {lock_AdA = <>} ; - mkPreposition p = p ; + mkV = \finna,finner,finn,fann,funnit,funnen -> + let + funn = ptPretForms funnen ; + funnet = funn ! Strong SgNeutr ! Nom ; + funna = funn ! Strong Plg ! Nom + in + mkVerb finna finner finn fann funnit funnen funnet funna ** + {part = [] ; vtype=VAct ; lock_V = <>} ; - mkV a b c d e f = mkVerb a b c d e f ** {s1 = [] ; lock_V = <>} ; + regV leker = case leker of { + lek + "a" => conj1 leker ; --- bw compat + lek + "ar" => conj1 (lek + "a") ; + lek + "er" => conj2 (lek + "a") ; + bo + "r" => conj3 bo + } ; - regV a = mk2V a (a + de) where {de = case last a of {"a" => "de" ; _ => "dde"}} ; - mk2V a b = regVerb a b ** {s1 = [] ; lock_V = <>} ; + mk2V leka lekte = case of { + <_, _ + "ade"> => conj1 leka ; + <_ + "a", _> => conj2 leka ; + _ => conj3 leka + } ; - irregV x y z = vSälja x y z +-- school conjugations + + conj1 : Str -> V = \tala -> + mkV tala (tala + "r") tala (tala +"de") (tala +"t") (tala +"d") ; + + conj2 : Str -> V = \leka -> + let lek = init leka in + case last lek of { + "l" | "m" | "n" | "v" | "g" => + let gom = case of { + _ + "mm" => init lek ; + _ => lek + } + in mkV leka (lek + "er") gom (gom +"de") (gom +"t") (gom +"d") ; + "r" => + mkV leka lek lek (lek +"de") (lek +"t") (lek +"d") ; + _ => case leka of { + _ + "nd" => + mkV leka (lek + "er") lek (lek +"e") (init lek +"t") lek ; + _ => + mkV leka (lek + "er") lek (lek +"te") (lek +"t") (lek +"t") + } + } ; + + conj3 : Str -> V = \bo -> + mkV bo (bo + "r") bo (bo +"dde") (bo +"tt") (bo +"dd") ; + + irregV = \sälja, sålde, sålt -> + let + säljer = case last sälja of { + "a" => conj2 sälja ; + _ => conj3 sälja + } ; + såld = case Predef.dp 2 sålt of { + "it" => Predef.tk 2 sålt + "en" ; + "tt" => Predef.tk 2 sålt + "dd" ; + _ => init sålt + "d" + } + in + mkV sälja (säljer.s ! VF (VPres Act)) (säljer.s ! (VF (VImper Act))) sålde sålt såld ** {s1 = [] ; lock_V = <>} ; - partV v p = {s = v.s ; s1 = p ; lock_V = <>} ; - depV v = deponentVerb v ** {lock_V = <>} ; + partV v p = {s = v.s ; part = p ; vtype = v.vtype ; lock_V = <>} ; + depV v = {s = v.s ; part = v.part ; vtype = VPass ; lock_V = <>} ; + reflV v = {s = v.s ; part = v.part ; vtype = VRefl ; lock_V = <>} ; - mkV2 v p = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; lock_V2 = <>} ; - dirV2 v = mkV2 v [] ; + mkV2 v p = v ** {c2 = p.s ; lock_V2 = <>} ; + dirV2 v = mkV2 v noPrep ; - mkV3 v p q = v ** {s = v.s ; s1 = v.s1 ; s2 = p ; s3 = q ; lock_V3 = <>} ; - dirV3 v p = mkV3 v [] p ; - dirdirV3 v = dirV3 v [] ; + mkV3 v p q = v ** {c2 = p.s ; c3 = q.s ; lock_V3 = <>} ; + dirV3 v p = mkV3 v noPrep p ; + dirdirV3 v = dirV3 v noPrep ; mkV0 v = v ** {lock_V0 = <>} ; mkVS v = v ** {lock_VS = <>} ; - mkV2S v p = mkV2 v p ** {lock_V2S = <>} ; - mkVV v = v ** {isAux = False ; lock_VV = <>} ; - mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2V = <>} ; + mkVV v = v ** {c2 = "att" ; lock_VV = <>} ; + mkVQ v = v ** {lock_VQ = <>} ; + mkVA v = v ** {lock_VA = <>} ; mkV2A v p = mkV2 v p ** {lock_V2A = <>} ; - mkVQ v = v ** {lock_VQ = <>} ; - mkV2Q v p = mkV2 v p ** {lock_V2Q = <>} ; - mkAS v = v ** {lock_AS = <>} ; - mkA2S v p = mkA2 v p ** {lock_A2S = <>} ; - mkAV v = v ** {lock_AV = <>} ; - mkA2V v p = mkA2 v p ** {lock_A2V = <>} ; + V0 : Type = V ; + V2S, V2V, V2Q, V2A : Type = V2 ; + AS, A2S, AV : Type = A ; + A2V : Type = A2 ; + + mkV2S v p = mkV2 v p ** {lock_V2 = <>} ; + mkV2V v p t = mkV2 v p ** {s3 = t ; lock_V2 = <>} ; + mkV2Q v p = mkV2 v p ** {lock_V2 = <>} ; + + mkAS v = v ** {lock_A = <>} ; + mkA2S v p = mkA2 v p ** {lock_A = <>} ; + mkAV v = v ** {lock_A = <>} ; + mkA2V v p = mkA2 v p ** {lock_A = <>} ; } ; diff --git a/lib/resource-1.0/swedish/PhraseSwe.gf b/lib/resource/swedish/PhraseSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/PhraseSwe.gf rename to lib/resource/swedish/PhraseSwe.gf diff --git a/lib/resource-1.0/swedish/QuestionSwe.gf b/lib/resource/swedish/QuestionSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/QuestionSwe.gf rename to lib/resource/swedish/QuestionSwe.gf diff --git a/lib/resource-1.0/swedish/RelativeSwe.gf b/lib/resource/swedish/RelativeSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/RelativeSwe.gf rename to lib/resource/swedish/RelativeSwe.gf diff --git a/lib/resource-1.0/swedish/ResSwe.gf b/lib/resource/swedish/ResSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/ResSwe.gf rename to lib/resource/swedish/ResSwe.gf diff --git a/lib/resource-1.0/swedish/SentenceSwe.gf b/lib/resource/swedish/SentenceSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/SentenceSwe.gf rename to lib/resource/swedish/SentenceSwe.gf diff --git a/lib/resource/swedish/StructuralSwe.gf b/lib/resource/swedish/StructuralSwe.gf index a31dc758d..f7b03b131 100644 --- a/lib/resource/swedish/StructuralSwe.gf +++ b/lib/resource/swedish/StructuralSwe.gf @@ -1,215 +1,124 @@ ---# -path=.:../abstract:../scandinavian:../../prelude +concrete StructuralSwe of Structural = CatSwe ** + open MorphoSwe, ParadigmsSwe, Prelude in { ---1 The Top-Level Swedish Resource Grammar: Structural Words --- --- Aarne Ranta 2002 -- 2004 --- -concrete StructuralSwe of Structural = - CategoriesSwe, NumeralsSwe ** - open Prelude, MorphoSwe, SyntaxSwe in { - - flags optimize=values ; - - lin - - UseNumeral i = {s = \\g => table {Nom => i.s ! g ; Gen => i.s ! g ++ - "s"} ; n = i.n} ; --- + flags optimize=all ; + lin above_Prep = ss "ovanför" ; after_Prep = ss "efter" ; by8agent_Prep = ss "av" ; - all8mass_Det = mkDeterminerSgGender2 "all" "allt" IndefP ; - all_NDet = mkDeterminerPlNum "alla" IndefP ; - almost_Adv = ss "nästan" ; + all_Predet = {s = gennumForms "all" "allt" "alla"} ; + almost_AdA, almost_AdN = ss "nästan" ; although_Subj = ss "fast" ; + always_AdV = ss "alltid" ; and_Conj = ss "och" ** {n = Pl} ; because_Subj = ss "eftersom" ; before_Prep = ss "före" ; behind_Prep = ss "bakom" ; between_Prep = ss "mellan" ; - both_AndConjD = sd2 "både" "och" ** {n = Pl} ; + both7and_DConj = sd2 "både" "och" ** {n = Pl} ; + but_PConj = ss "men" ; by8means_Prep = ss "med" ; - can8know_VV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" - ** {isAux = True} ; - can_VV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" - ** {isAux = True} ; + can8know_VV, can_VV = + mkV "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" ** + {c2 = [] ; lock_VV = <>} ; during_Prep = ss "under" ; - either8or_ConjD = sd2 "antingen" "eller" ** {n = Sg} ; - everybody_NP = let alla = table {Nom => "alla" ; Gen => "allas"} in - {s = \\c => alla ! npCase c ; g = Utr ; n = Pl ; p = P3} ; - every_Det = varjeDet ; - everything_NP = nameNounPhrase (mkProperName "allting" NNeutr) ; - everywhere_Adv = advPost "varstans" ; + either7or_DConj = sd2 "antingen" "eller" ** {n = Sg} ; + everybody_NP = regNP "alla" "allas" Plg ; + every_Det = {s = \\_,_ => "varje" ; n = Sg ; det = DDef Indef} ; + everything_NP = regNP "allting" "alltings" SgNeutr ; + everywhere_Adv = ss "överallt" ; + few_Det = {s = \\_,_ => "få" ; n = Pl ; det = DDef Indef} ; + first_Ord = {s = "första" ; isDet = True} ; from_Prep = ss "från" ; - he_NP = pronNounPhrase han_34 ; + he_Pron = MorphoSwe.mkNP "han" "honom" "hans" "hans" "hans" SgUtr P3 ; + here_Adv = ss "här" ; + here7to_Adv = ss "hit" ; + here7from_Adv = ss "härifrån" ; how_IAdv = ss "hur" ; - how8many_IDet = mkDeterminerPl ["hur många"] IndefP ; + how8many_IDet = {s = \\_ => ["hur många"] ; n = Pl ; det = DDef Indef} ; if_Subj = ss "om" ; in8front_Prep = ss "framför" ; - i_NP = pronNounPhrase jag_32 ; + i_Pron = MorphoSwe.mkNP "jag" "mig" "min" "mitt" "mina" SgUtr P1 ; in_Prep = ss "i" ; - it_NP = pronNounPhrase det_40 ; ---- - - many_Det = mkDeterminerPl "många" IndefP ; - most_Det = mkDeterminerSgGender2 ["den mesta"] ["det mesta"] (DefP Def) ; - most8many_Det = flestaDet ; - much_Det = mkDeterminerSg (detSgInvar "mycket") IndefP ; - must_VV = mkVerb "få" "måste" "få" "fick" "måst" "måst" ** {isAux = True} ; - no_Phr = ss ["Nej ."] ; + it_Pron = MorphoSwe.regNP "det" "dess" SgNeutr ; + less_CAdv = ss "mindre" ; + many_Det = {s = \\_,_ => "många" ; n = Pl ; det = DDef Indef} ; + more_CAdv = ss "mer" ; + most_Predet = {s = gennumForms ["den mesta"] ["det mesta"] ["de flesta"]} ; + much_Det = {s = \\_,_ => "mycket" ; n = Pl ; det = DDef Indef} ; + must_VV = + mkV "få" "måste" "få" "fick" "måst" "måst" ** {c2 = [] ; lock_VV = <>} ; + no_Phr = ss ["nej"] ; on_Prep = ss "på" ; + one_Quant = {s = \\_ => genderForms ["en"] ["ett"] ; n = Sg ; det = DIndef} ; + only_Predet = {s = \\_ => "bara"} ; or_Conj = ss "eller" ** {n = Sg} ; - otherwise_Adv = ss "annars" ; + otherwise_PConj = ss "annars" ; part_Prep = ss "av" ; + please_Voc = ss "tack" ; --- possess_Prep = ss "av" ; quite_Adv = ss "ganska" ; - she_NP = pronNounPhrase hon_35 ; - so_Adv = ss "så" ; - somebody_NP = nameNounPhrase (mkProperName "någon" (NUtr Masc)) ; - some_Det = mkDeterminerSgGender2 "någon" "något" IndefP ; - some_NDet = mkDeterminerPlNum "några" IndefP ; - something_NP = nameNounPhrase (mkProperName "någonting" NNeutr) ; - somewhere_Adv = advPost "någonstans" ; - that_Det = mkDeterminerSgGender2 ["den där"] ["det där"] (DefP Def) ; - that_NP = regNameNounPhrase ["det där"] NNeutr ; - therefore_Adv = ss "därför" ; - these_NDet = mkDeterminerPlNum ["de här"] (DefP Def) ; - they8fem_NP = pronNounPhrase de_38 ; - they_NP = pronNounPhrase de_38 ; - this_Det = mkDeterminerSgGender2 ["den här"] ["det här"] (DefP Def) ; - this_NP = regNameNounPhrase ["det här"] NNeutr ; - those_NDet = mkDeterminerPlNum ["de där"] (DefP Def) ; - thou_NP = pronNounPhrase du_33 ; + she_Pron = MorphoSwe.mkNP "hon" "henne" "hennes" "hennes" "hennes" SgUtr P3 ; + so_AdA = ss "så" ; + someSg_Det = {s = \\_ => genderForms "någon" "något" ; n = Sg ; det = DIndef} ; + somePl_Det = {s = \\_,_ => "några" ; n = Pl ; det = DIndef} ; + somebody_NP = regNP "någon" "någons" SgUtr ; + something_NP = regNP "något" "någots" SgNeutr ; + somewhere_Adv = ss "någonstans" ; + that_Quant = + {s = table { + Sg => \\_ => genderForms ["den där"] ["det där"] ; + Pl => \\_,_ => ["de där"] + } ; + det = DDef Def + } ; + that_NP = regNP ["det där"] ["det därs"] SgNeutr ; + there_Adv = ss "där" ; + there7to_Adv = ss "dit" ; + there7from_Adv = ss "därifrån" ; + therefore_PConj = ss "därför" ; + these_NP = regNP ["de här"] ["det härs"] Plg ; + they_Pron = MorphoSwe.mkNP "de" "dem" "deras" "deras" "deras" Plg P1 ; + this_Quant = + {s = table { + Sg => \\_ => genderForms ["den här"] ["det här"] ; + Pl => \\_,_ => ["de här"] + } ; + det = DDef Def + } ; + this_NP = regNP ["det här"] ["det härs"] SgNeutr ; + those_NP = regNP ["de där"] ["det därs"] Plg ; through_Prep = ss "genom" ; - too_Adv = ss "för" ; + too_AdA = ss "för" ; to_Prep = ss "till" ; under_Prep = ss "under" ; - very_Adv = ss "mycket" ; - want_VV = mkVerb "vilja" "vill" "vilj" "ville" "velat" "velad" ** {isAux = True} ; - we_NP = pronNounPhrase (vi_36) ; - what8many_IP = intPronWhat plural ; - what8one_IP = intPronWhat singular ; + very_AdA = ss "mycket" ; + want_VV = + mkV "vilja" "vill" "vilj" "ville" "velat" "velad" ** + {c2 = [] ; lock_VV = <>} ; + we_Pron = MorphoSwe.mkNP "vi" "oss" "vår" "vårt" "våra" Plg P1 ; + whatSg_IP = {s = \\_ => "vad" ; gn = SgUtr} ; ---- infl + whatPl_IP = {s = \\_ => "vad" ; gn = Plg} ; ---- infl when_IAdv = ss "när" ; when_Subj = ss "när" ; where_IAdv = ss "var" ; - which8one_IDet = vilkenDet ; - which8many_IDet = mkDeterminerPl "vilka" IndefP ; - who8many_IP = intPronWho plural ; - who8one_IP = intPronWho singular ; + whichPl_IDet = {s = \\_ => "vilka" ; n = Pl ; det = DIndef} ; + whichSg_IDet = {s = genderForms "vilken" "vilket" ; n = Sg ; det = DIndef} ; + whoSg_IP = {s = vem.s ; gn = SgUtr} ; + whoPl_IP = {s = \\_ => "vilka" ; gn = Plg} ; why_IAdv = ss "varför" ; without_Prep = ss "utan" ; with_Prep = ss "med" ; - ye_NP = pronNounPhrase (ni_37) ; - yes_Phr = ss ["Ja ."] ; - you_NP = let {ni = pronNounPhrase ni_37 } in { - s = ni.s ; g = ni.g ; n = Sg ; p = P2} ; ---- gives wrong refl + yes_Phr = ss ["ja"] ; + youSg_Pron = MorphoSwe.mkNP "du" "dig" "din" "ditt" "dina" SgUtr P2 ; + youPl_Pron = MorphoSwe.mkNP "ni" "er" "er" "ert" "era" Plg P2 ; + youPol_Pron = MorphoSwe.mkNP "ni" "er" "er" "ert" "era" SgUtr P2 ; --- wrong in refl +-- Auxiliaries that are used repeatedly. - -{- - INP = pronNounPhrase jag_32 ; - ThouNP = pronNounPhrase du_33 ; - HeNP = pronNounPhrase han_34 ; - SheNP = pronNounPhrase hon_35 ; - WeNP n = pronNounPhrase (vi_36 n) ; - YeNP n = pronNounPhrase (ni_37 n) ; - TheyNP = pronNounPhrase de_38 ; - TheyFemNP = pronNounPhrase de_38 ; - - YouNP = let {ni = pronNounPhrase ni_37 } in { - s = ni.s ; g = ni.g ; n = Sg ; p = P2} ; ---- gives wrong refl - - ItNP = pronNounPhrase det_40 ; ---- - ThisNP = regNameNounPhrase ["det här"] NNeutr ; - ThatNP = regNameNounPhrase ["det där"] NNeutr ; - - EveryDet = varjeDet ; - AllMassDet = mkDeterminerSgGender2 "all" "allt" IndefP ; - AllNumDet = mkDeterminerPlNum "alla" IndefP ; - AnyDet = mkDeterminerSgGender2 "någon" "något" IndefP ; - AnyNumDet = mkDeterminerPlNum "några" IndefP ; - SomeDet = mkDeterminerSgGender2 "någon" "något" IndefP ; - SomeNumDet = mkDeterminerPlNum "några" IndefP ; - ManyDet = mkDeterminerPl "många" IndefP ; - HowManyDet = mkDeterminerPl ["hur många"] IndefP ; - NoDet = mkDeterminerSgGender2 "ingen" "inget" IndefP ; - NoNumDet = mkDeterminerPlNum "inga" IndefP ; - WhichNumDet = mkDeterminerPlNum "vilka" IndefP ; - - UseNumeral i = {s = table {Nom => i.s ; Gen => i.s ++ "s"}} ; --- - - WhichDet = vilkenDet ; - MostDet = mkDeterminerSgGender2 ["den mesta"] ["det mesta"] (DefP Def) ; - MostsDet = flestaDet ; - MuchDet = mkDeterminerSg (detSgInvar "mycket") IndefP ; - - ThisDet = mkDeterminerSgGender2 ["den här"] ["det här"] (DefP Def) ; - ThatDet = mkDeterminerSgGender2 ["den där"] ["det där"] (DefP Def) ; - TheseNumDet = mkDeterminerPlNum ["de här"] (DefP Def) ; - ThoseNumDet = mkDeterminerPlNum ["de där"] (DefP Def) ; - - HowIAdv = ss "hur" ; - WhenIAdv = ss "när" ; - WhereIAdv = ss "var" ; - WhyIAdv = ss "varför" ; - - AndConj = ss "och" ** {n = Pl} ; - OrConj = ss "eller" ** {n = Sg} ; - BothAnd = sd2 "både" "och" ** {n = Pl} ; - EitherOr = sd2 "antingen" "eller" ** {n = Sg} ; - NeitherNor = sd2 "varken" "eller" ** {n = Sg} ; - IfSubj = ss "om" ; - WhenSubj = ss "när" ; - - YesPhr = ss ["Ja ."] ; - NoPhr = ss ["Nej ."] ; - - VeryAdv = ss "mycket" ; - TooAdv = ss "för" ; - SoAdv = ss "så" ; - OtherwiseAdv = ss "annars" ; - ThereforeAdv = ss "därför" ; - - EverybodyNP = let alla = table {Nom => "alla" ; Gen => "allas"} in {s = \\c => alla ! npCase c ; g = Utr ; n = Pl ; p = P3} ; - SomebodyNP = nameNounPhrase (mkProperName "någon" (NUtr Masc)) ; - NobodyNP = nameNounPhrase (mkProperName "ingen" (NUtr Masc)) ; - EverythingNP = nameNounPhrase (mkProperName "allting" NNeutr) ; - SomethingNP = nameNounPhrase (mkProperName "någonting" NNeutr) ; - NothingNP = nameNounPhrase (mkProperName "ingenting" NNeutr) ; - - CanVV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" ** {s3 = []} ; - CanKnowVV = mkVerb "kunna" "kan" "kunn" "kunde" "kunnat" "kunnen" ** {s3 = []} ; - MustVV = mkVerb "få" "måste" "få" "fick" "måst" "måst" ** {s3 = []} ; - WantVV = mkVerb "vilja" "vill" "vilj" "ville" "velat" "velad" ** {s3 = []} ; - - EverywhereNP = advPost "varstans" ; - SomewhereNP = advPost "någonstans" ; - NowhereNP = advPost "ingenstans" ; - - AlthoughSubj = ss "fast" ; - - AlmostAdv = ss "nästan" ; - QuiteAdv = ss "ganska" ; - - InPrep = ss "i" ; - OnPrep = ss "på" ; - ToPrep = ss "till" ; - ThroughPrep = ss "genom" ; - AbovePrep = ss "ovanför" ; - UnderPrep = ss "under" ; - InFrontPrep = ss "framför" ; - BehindPrep = ss "bakom" ; - BetweenPrep = ss "mellan" ; - FromPrep = ss "från" ; - BeforePrep = ss "före" ; - DuringPrep = ss "under" ; - AfterPrep = ss "efter" ; - WithPrep = ss "med" ; - WithoutPrep = ss "utan" ; - ByMeansPrep = ss "med" ; - PossessPrep = ss "av" ; - PartPrep = ss "av" ; - AgentPrep = ss "av" ; --} - + oper + vem = MorphoSwe.mkNP "vem" "vem" "vems" "vems" "vems" SgUtr P3 ; } + diff --git a/lib/resource-1.0/swedish/Swedish.gf b/lib/resource/swedish/Swedish.gf similarity index 100% rename from lib/resource-1.0/swedish/Swedish.gf rename to lib/resource/swedish/Swedish.gf diff --git a/lib/resource-1.0/swedish/SwedishAbs.gf b/lib/resource/swedish/SwedishAbs.gf similarity index 100% rename from lib/resource-1.0/swedish/SwedishAbs.gf rename to lib/resource/swedish/SwedishAbs.gf diff --git a/lib/resource-1.0/swedish/VerbSwe.gf b/lib/resource/swedish/VerbSwe.gf similarity index 100% rename from lib/resource-1.0/swedish/VerbSwe.gf rename to lib/resource/swedish/VerbSwe.gf diff --git a/lib/resource-1.0/swedish/swedish.gfnoparse b/lib/resource/swedish/swedish.gfnoparse similarity index 100% rename from lib/resource-1.0/swedish/swedish.gfnoparse rename to lib/resource/swedish/swedish.gfnoparse