GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Por) add GenRP to ExtendPor

Browse Source
This commit is contained in:
odanoburu
2019-02-10 10:20:30 -02:00
parent 57b59ff386
commit db671b2e31
1 changed files with 24 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

11
src/portuguese/ExtendPor.gf
View File

@@ -77,6 +77,17 @@ concrete ExtendPor of Extend =
GenIP ip = {s = \\_,_,c => ip.s ! c} ; GenIP ip = {s = \\_,_,c => ip.s ! c} ;
GenRP nu cn = {
s = \\_b,_aagr,_c => cujo ! g ! n ++ num ++ cn.s ! n ;
a = aagr g n ;
hasAgr = True
} where {
cujo = genNumForms "cujo" "cuja" "cujos" "cujas" ;
g = cn.g ;
n = nu.n ;
num = if_then_Str nu.isNum (nu.s ! g) []
} ;
GenModNP num np cn = DetCN (DetQuant (GenNP (lin NP np)) num) cn ; GenModNP num np cn = DetCN (DetQuant (GenNP (lin NP np)) num) cn ;
GenModIP num ip cn = IdetCN (IdetQuant (GenIP (lin IP ip)) num) cn ; GenModIP num ip cn = IdetCN (IdetQuant (GenIP (lin IP ip)) num) cn ;