GitHub/gf-core
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-core.git synced 2026-04-11 22:09:32 -06:00
Code Issues Packages Projects Releases Wiki Activity

Spanish verb inflection with vowel change

Browse Source
This commit is contained in:
aarne
2007-03-19 15:18:44 +00:00
parent 7f1999f97d
commit f0415dd0bc
3 changed files with 80 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

71
lib/resource-1.0/spanish/BeschSpa.gf
View File

@@ -5888,5 +5888,76 @@ param
| VP VPers
;
oper
regAlternV : Str -> Str -> Verbum =
\mostrar, muestro ->
let
mostr = Predef.tk 2 mostrar ;
muestr = Predef.tk 1 muestro
in
{s = table {
VI Infn => mostr + "ar" ;
VI Ger => mostr + "ando" ;
VI Part => mostr + "ado" ;
VP (Pres Ind Sg P1) => muestr + "o" ;
VP (Pres Ind Sg P2) => muestr + "as" ;
VP (Pres Ind Sg P3) => muestr + "a" ;
VP (Pres Ind Pl P1) => mostr + "amos" ;
VP (Pres Ind Pl P2) => mostr + "áis" ;
VP (Pres Ind Pl P3) => muestr + "an" ;
VP (Pres Subj Sg P1) => muestr + "ue" ;
VP (Pres Subj Sg P2) => muestr + "ues" ;
VP (Pres Subj Sg P3) => muestr + "ue" ;
VP (Pres Subj Pl P1) => mostr + "uemos" ;
VP (Pres Subj Pl P2) => mostr + "uéis" ;
VP (Pres Subj Pl P3) => muestr + "uen" ;
VP (Impf Ind Sg P1) => mostr + "aba" ; --# notpresent
VP (Impf Ind Sg P2) => mostr + "abas" ; --# notpresent
VP (Impf Ind Sg P3) => mostr + "aba" ; --# notpresent
VP (Impf Ind Pl P1) => mostr + "ábamos" ; --# notpresent
VP (Impf Ind Pl P2) => mostr + "abais" ; --# notpresent
VP (Impf Ind Pl P3) => mostr + "aban" ; --# notpresent
VP (Impf Subj Sg P1) => variants {mostr + "ara" ; mostr + "ase"} ; --# notpresent
VP (Impf Subj Sg P2) => variants {mostr + "aras" ; mostr + "ases"} ; --# notpresent
VP (Impf Subj Sg P3) => variants {mostr + "ara" ; mostr + "ase"} ; --# notpresent
VP (Impf Subj Pl P1) => variants {mostr + "áramos" ; mostr + "ásemos"} ; --# notpresent
VP (Impf Subj Pl P2) => variants {mostr + "arais" ; mostr + "aseis"} ; --# notpresent
VP (Impf Subj Pl P3) => variants {mostr + "aran" ; mostr + "asen"} ; --# notpresent
VP (Pret Sg P1) => mostr + "ué" ; --# notpresent
VP (Pret Sg P2) => mostr + "aste" ; --# notpresent
VP (Pret Sg P3) => mostr + "ó" ; --# notpresent
VP (Pret Pl P1) => mostr + "amos" ; --# notpresent
VP (Pret Pl P2) => mostr + "asteis" ; --# notpresent
VP (Pret Pl P3) => mostr + "aron" ; --# notpresent
VP (Fut Ind Sg P1) => mostr + "aré" ; --# notpresent
VP (Fut Ind Sg P2) => mostr + "arás" ; --# notpresent
VP (Fut Ind Sg P3) => mostr + "ará" ; --# notpresent
VP (Fut Ind Pl P1) => mostr + "aremos" ; --# notpresent
VP (Fut Ind Pl P2) => mostr + "aréis" ; --# notpresent
VP (Fut Ind Pl P3) => mostr + "arán" ; --# notpresent
VP (Fut Subj Sg P1) => mostr + "are" ; --# notpresent
VP (Fut Subj Sg P2) => mostr + "ares" ; --# notpresent
VP (Fut Subj Sg P3) => mostr + "are" ; --# notpresent
VP (Fut Subj Pl P1) => mostr + "áremos" ; --# notpresent
VP (Fut Subj Pl P2) => mostr + "areis" ; --# notpresent
VP (Fut Subj Pl P3) => mostr + "aren" ; --# notpresent
VP (Cond Sg P1) => mostr + "aría" ; --# notpresent
VP (Cond Sg P2) => mostr + "arías" ; --# notpresent
VP (Cond Sg P3) => mostr + "aría" ; --# notpresent
VP (Cond Pl P1) => mostr + "aríamos" ; --# notpresent
VP (Cond Pl P2) => mostr + "aríais" ; --# notpresent
VP (Cond Pl P3) => mostr + "arían" ; --# notpresent
VP (Imp Sg P1) => variants {} ;
VP (Imp Sg P2) => muestr + "a" ;
VP (Imp Sg P3) => muestr + "ue" ;
VP (Imp Pl P1) => mostr + "uemos" ;
VP (Imp Pl P2) => mostr + "ad" ;
VP (Imp Pl P3) => muestr + "uen" ;
VP (Pass Sg Masc) => mostr + "ado" ;
VP (Pass Sg Fem) => mostr + "ada" ;
VP (Pass Pl Masc) => mostr + "ados" ;
VP (Pass Pl Fem) => mostr + "adas"
}
} ;
}

8
lib/resource-1.0/spanish/ParadigmsSpa.gf
View File

@@ -220,6 +220,12 @@ oper
special_ppV : V -> Str -> V ;
-- Verbs with vowel alternatition in the stem - easiest to give with
-- two forms, e.g. "mostrar"/"muestro".
regAltV : (mostrar,muestro : Str) -> V ;
--3 Two-place verbs
--
-- Two-place verbs need a preposition, except the special case with direct object.
@@ -367,6 +373,8 @@ oper
vtyp = VHabere
} ;
regAltV x y = verboV (regAlternV x y) ;
mkV2 v p = {s = v.s ; vtyp = v.vtyp ; c2 = p ; lock_V2 = <>} ;
dirV2 v = mkV2 v accusative ;
v2V v = v ** {lock_V = <>} ;

2
lib/resource-1.0/spanish/StructuralSpa.gf
View File

@@ -83,7 +83,7 @@ lin
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} ;
someSg_Det = {s = \\g,c => prepCase c ++ genForms "algun" "alguna" ! g ; n = Sg} ;
something_NP = pn2np (mkPN ["algo"] Masc) ;
somewhere_Adv = ss ["en ninguna parte"] ;
that_Quant = {