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

(ExtendPor) add CompoundN (#31)

Browse Source 
* (Por) add Str -> V3 paradigm

* (Por) small fixes

* adjust import list and add Mood to VPS

* (Por) add compoundN to ExtendPor
This commit is contained in:
bruno cuconato
2018-10-03 10:51:16 +00:00
committed by Krasimir Angelov
parent e2365f60d7
commit c410abfa6b
1 changed files with 31 additions and 8 deletions
Download Patch File Download Diff File Expand all files Collapse all files

37
src/portuguese/ExtendPor.gf
View File

@@ -3,9 +3,10 @@
concrete ExtendPor of Extend = concrete ExtendPor of Extend =
CatPor ** ExtendFunctor - CatPor ** ExtendFunctor -
[ [
iFem_Pron, weFem_Pron, youFem_Pron, youPlFem_Pron, youPolPl_Pron, youPolFem_Pron, youPolPlFem_Pron, theyFem_Pron, GenNP, GenIP, GenModNP, GenModIP, iFem_Pron, weFem_Pron, youFem_Pron
ProDrop, , youPlFem_Pron, youPolPl_Pron, youPolFem_Pron, youPolPlFem_Pron, theyFem_Pron
PassVPSlash, ExistsNP, VPS , ProDrop, PassVPSlash, ExistsNP, VPS, ListVPS, BaseVPS, ConsVPS, PassVPSlash
, ExistsNP, CompoundN
] -- put the names of your own definitions here ] -- put the names of your own definitions here
with with
(Grammar = GrammarPor), (Syntax = SyntaxPor) ** (Grammar = GrammarPor), (Syntax = SyntaxPor) **
@@ -18,14 +19,28 @@ concrete ExtendPor of Extend =
ParadigmsPor, ParadigmsPor,
(S = StructuralPor) in { (S = StructuralPor) in {
lin
GenNP np =
let denp = (np.s ! ResPor.genitive).ton in {
s = \\_,_,_,_ => [] ;
sp = \\_,_,_ => denp ;
s2 = denp ;
isNeg = False ;
} ;
GenIP ip = {s = \\_,_,c => ip.s ! c} ;
GenModNP num np cn = DetCN (DetQuant (GenNP (lin NP np)) num) cn ;
GenModIP num ip cn = IdetCN (IdetQuant (GenIP (lin IP ip)) num) cn ;
lincat lincat
VPS = {s : Agr => Str} ; VPS = {s : Agr => Mood => Str} ;
[VPS] = {s1,s2 : Agr => Str} ; [VPS] = {s1,s2 : Agr => Mood => Str} ;
-- VPI = {s : VType => Agr => Str } ; -- VPI = {s : VType => Agr => Str } ;
lin lin
BaseVPS = twotable Agr ; BaseVPS = twoTable2 Agr Mood ;
ConsVPS = consrTable Agr comma ; ConsVPS = consrTable2 Agr Mood comma ;
-- MkVPS t p vp = mkVPS (lin Temp t) (lin Pol p) (lin VP vp) ; -- MkVPS t p vp = mkVPS (lin Temp t) (lin Pol p) (lin VP vp) ;
--TODO: write mkVPS oper --TODO: write mkVPS oper
@@ -64,6 +79,14 @@ concrete ExtendPor of Extend =
(insertComplement (\\_ => (np.s ! Nom).ton) (insertComplement (\\_ => (np.s ! Nom).ton)
(predV (mkV "existir"))) ; (predV (mkV "existir"))) ;
lin
CompoundN noun noun2 = { -- order is different because that's needed for correct translation from english
s = \\n => noun2.s ! n
++ variants {genNumForms "do" "da" "dos" "das" ! noun.g ! n; "de"}
++ noun.s ! n ;
g = noun2.g
} ;
lin lin
-- Romance -- Romance
iFem_Pron = pronAgr S.i_Pron Fem Sg P1 ; iFem_Pron = pronAgr S.i_Pron Fem Sg P1 ;