ExtendAra: quick and dirty PassVPSlash and CompoundN, to be revisited

src/arabic/ExtendAra.gf

@@ -6,7 +6,9 @@ concrete ExtendAra of Extend =
     EmptyRelSlash, PredAPVP,
     ComplDirectVS, ComplDirectVQ, -- because of Utt
     VPS, MkVPS, PredVPS, BaseVPS, ConsVPS, ConjVPS,
-    EmbedSSlash, AdjAsNP, GerundNP
+    EmbedSSlash, AdjAsNP, GerundNP,
+    PassVPSlash, ---- bogus implementation, see below
+    CompoundN
 ]
   with (Grammar=GrammarAra)
   ** open
@@ -91,4 +93,16 @@ lin
     s = \\_ => np.s ! Nom ++ vps.s ! np.a.pgn -- first quick version with order always Nominal.
     } ;                                       -- if necessary, change VPS into {s : PerGenNum => Order => {before,after : Str}}
 
+
+-- AR 24-02-08
+    PassVPSlash vpslash = vpslash ** {s = \\pgn, vpf => vpslash.s ! pgn ! vpf} ;
+    ---- vpf does not have passive forms left,
+    ---- so this function is not possible with the current lincat of VP and VPSlash
+
+    ---- very unsure about this as well
+    CompoundN a b = b ** {
+      s  = \\n, s, c => b.s ! n ! Const ! c ++ a.s ! n ! s ! c ;
+      s2 = \\n, s, c => b.s2 ! n ! Const ! c ++ a.s2 ! n ! s ! c
+      } ;
+
 }

src/arabic/VerbAra.gf

@@ -130,6 +130,6 @@ concrete VerbAra of Verb = CatAra ** open Prelude, ResAra, ParamX in {
     CompNP np = {s = \\_,_ => [] ;
                  obj = {s = np.s ! Nom ; a = agrLite np.a} ;
                  isNP = True} ;
---
+
 --
 }