msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

cual_IComp in ExtraSpa

Browse Source
This commit is contained in:
Aarne Ranta
2017-12-14 21:52:45 +01:00
parent f59d6d42f7
commit d981fefad4
3 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/spanish/ExtraSpa.gf
View File

@@ -80,4 +80,10 @@ concrete ExtraSpa of ExtraSpaAbs = ExtraRomanceSpa **
UseComp_estar comp = insertComplement comp.s (predV I.estar_V) ; UseComp_estar comp = insertComplement comp.s (predV I.estar_V) ;
cual_IComp = {
s = aagrForms "cual" "cual" "cuáles" "cuáles" ;
cop = serCopula ;
} ;
} }

2
src/spanish/ExtraSpaAbs.gf
View File

@@ -34,4 +34,6 @@ abstract ExtraSpaAbs = ExtraRomanceAbs ** {
UseComp_estar : Comp -> VP ; -- esta lleno, as opposed to es lleno UseComp_estar : Comp -> VP ; -- esta lleno, as opposed to es lleno
cual_IComp : IComp ; -- cual es ...
} }

4
src/spanish/StructuralSpa.gf
View File

@@ -139,8 +139,8 @@ lin
when_Subj = ss "cuando" ** {m = Indic} ; when_Subj = ss "cuando" ** {m = Indic} ;
where_IAdv = ss "dónde" ; where_IAdv = ss "dónde" ;
which_IQuant = {s = table { which_IQuant = {s = table {
Sg => \\g,c => prepCase c ++ "qué" ; --- cual Sg => \\g,c => prepCase c ++ "cual" ;
Pl => \\g,c => prepCase c ++ "qué" Pl => \\g,c => prepCase c ++ "cuales"
} }
} ; } ;
whoPl_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Pl} ; whoPl_IP = {s = \\c => prepCase c ++ "quién" ; a = aagr Masc Pl} ;