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

(Por) add lins (#35)

Browse Source 
* (Por) correct paradigm and use overloaded paradigms in Lexicon

* (Por) add Str -> V3 paradigm

* (Por) small fixes

* adjust import list and add Mood to VPS

* (Por) add compoundN to ExtendPor

* (Por) add CompoundAP GerundCN ICompAP IAdvAdv CompIQuant PrepCN
This commit is contained in:
bruno cuconato
2018-10-06 04:14:24 +00:00
committed by Krasimir Angelov
parent 63587ac745
commit d4f2df8aa4
2 changed files with 65 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/portuguese/IdiomPor.gf
+11 -1
View File
@@ -20,13 +20,23 @@ concrete IdiomPor of Idiom = CatPor **
ExistNP np =
mkClause [] True False (agrP3 Masc Sg)
(insertComplement (\\_ => (np.s ! Acc).ton) (predV B.haver_V)) ;
(insertComplement (\\_ => (np.s ! Acc).ton) (predV B.haver_V)) ;
ExistIP ip = {
s = \\t,a,p,_ =>
ip.s ! Nom ++
(mkClause [] True False (agrP3 Masc Sg) (predV B.haver_V)).s ! DDir ! t ! a ! p ! Indic
} ;
ExistNPAdv np adv = mkClause [] True False (agrP3 Masc Sg) (insertComplement (\\_ => (np.s ! Acc).ton ++ adv.s) (predV B.haver_V)) ;
ExistIPAdv ip adv = {
s = \\t,a,p,_ =>
ip.s ! Nom ++
(mkClause [] True False (agrP3 Masc Sg) (predV B.haver_V)).s ! DDir ! t ! a ! p ! Indic
++ adv.s
} ;
ProgrVP vp =
insertComplement
(\\agr =>