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

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

37
src/portuguese/ExtendPor.gf
View File

@@ -75,21 +75,32 @@ concrete ExtendPor of Extend =
isNeg = False ; isNeg = False ;
} ; } ;
GenIP ip = {s = \\_,_,c => ip.s ! c} ; GenIP ip = {s = \\_,_,c => ip.s ! c} ;
GenModNP num np cn = DetCN (DetQuant (GenNP (lin NP np)) num) cn ; 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) []
} ;
GenModIP num ip cn = IdetCN (IdetQuant (GenIP (lin IP ip)) num) cn ; GenModNP num np cn = DetCN (DetQuant (GenNP (lin NP np)) num) cn ;
CompBareCN cn = { GenModIP num ip cn = IdetCN (IdetQuant (GenIP (lin IP ip)) num) cn ;
s = \\agr => cn.s ! agr.n ;
cop = serCopula
} ;
EmptyRelSlash cls = { CompBareCN cn = {
s = \\agr,t,a,p,m => cls.s ! agr ! DDir ! t ! a ! p ! m ++ cls.c2.s ; s = \\agr => cn.s ! agr.n ;
c = Nom cop = serCopula
} ; } ;
EmptyRelSlash cls = {
s = \\agr,t,a,p,m => cls.s ! agr ! DDir ! t ! a ! p ! m ++ cls.c2.s ;
c = Nom
} ;
---- these come from ExtraRomance: how to avoid the repetition? ---- these come from ExtraRomance: how to avoid the repetition?
---- can't seem to be able to use two functors ---- can't seem to be able to use two functors
@@ -275,10 +286,10 @@ concrete ExtendPor of Extend =
lin lin
UncontractedNeg = {s = [] ; p = RNeg False} ; UncontractedNeg = {s = [] ; p = RNeg False} ;
-- Romance -- Romance
UseComp_estar comp = insertComplement comp.s (predV estar_V) ; UseComp_estar comp = insertComplement comp.s (predV estar_V) ;
iFem_Pron = pronAgr S.i_Pron Fem Sg P1 ; iFem_Pron = pronAgr S.i_Pron Fem Sg P1 ;
weFem_Pron = pronAgr S.we_Pron Fem Pl P1 ; weFem_Pron = pronAgr S.we_Pron Fem Pl P1 ;
youFem_Pron = pronAgr S.youSg_Pron Fem Sg P3 ; youFem_Pron = pronAgr S.youSg_Pron Fem Sg P3 ;