GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki 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, ---- iFem_Pron, youFem_Pron, weFem_Pron, youPlFem_Pron, theyFem_Pron, youPolFem_Pron, youPolPl_Pron, youPolPlFem_Pron,
ExistCN, ExistMassCN, ExistPluralCN, ExistCN, ExistMassCN, ExistPluralCN,
PassVPSlash, PassAgentVPSlash PassVPSlash, PassAgentVPSlash, ApposNP
] -- put the names of your own definitions here ] -- put the names of your own definitions here
with with
(Grammar = GrammarFre) ** (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 ; 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 GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin FullName gn sn = { lin FullName gn sn = {
s = gn.s ++ sn.s ; s = gn.s ++ sn.s ;