From 654e02da7eb7a906c459d2889034ad9cd93381ed Mon Sep 17 00:00:00 2001
From: Krasimir Angelov <kr.angelov@gmail.com>
Date: Mon, 24 Apr 2023 12:03:14 +0200
Subject: [PATCH] guessed ApposNP

---
 src/french/ExtendFre.gf | 8 +++++++-
 1 file changed, 7 insertions(+), 1 deletion(-)

diff --git a/src/french/ExtendFre.gf b/src/french/ExtendFre.gf
index 7b504bc84..12d88f0d5 100644
--- a/src/french/ExtendFre.gf
+++ b/src/french/ExtendFre.gf
@@ -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 ;