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

Merge pull request #167 from odanoburu/por-genrp

Browse Source 
(Por) add GenRP to ExtendPor
This commit is contained in:
Inari Listenmaa
2019-02-12 15:02:31 +01:00
committed by GitHub
parent 57b59ff386 db671b2e31
commit 2c3372a5fd
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} ;
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 ;
GenModIP num ip cn = IdetCN (IdetQuant (GenIP (lin IP ip)) num) cn ;