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

guessed ApposNP

Browse Source
This commit is contained in:
Krasimir Angelov
2023-04-24 12:03:14 +02:00
parent edfe72514b
commit 654e02da7e
1 changed files with 7 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

8
src/french/ExtendFre.gf
View File

@@ -5,7 +5,7 @@ concrete ExtendFre of Extend =
[
---- iFem_Pron, youFem_Pron, weFem_Pron, youPlFem_Pron, theyFem_Pron, youPolFem_Pron, youPolPl_Pron, youPolPlFem_Pron,
ExistCN, ExistMassCN, ExistPluralCN,
PassVPSlash, PassAgentVPSlash
PassVPSlash, PassAgentVPSlash, ApposNP
] -- put the names of your own definitions here
with
(Grammar = GrammarFre) **
@@ -53,6 +53,12 @@ oper
comp = \\a => vps.comp ! a ++ (let agr = complAgr a in vps.s.s ! VPart agr.g agr.n) ++ agent ;
} ;
lin ApposNP np1 np2 = np1 ** { -- guessed by KA
s = \\c => np1.s ! c ** {ton =(np1.s ! c).ton ++ "," ++ (np2.s ! Nom).ton;
comp =(np1.s ! c).comp ++ "," ++ (np2.s ! Nom).comp
} ;
} ;
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin FullName gn sn = {
s = gn.s ++ sn.s ;