unbounded dep in resource with SlashVS

lib/resource-1.0/romance/CatRomance.gf

@@ -11,6 +11,11 @@ incomplete concrete CatRomance of Cat =
     S  = {s : Mood => Str} ;
     QS = {s : QForm => Str} ;
     RS = {s : Mood => Agr => Str ; c : Case} ;
+    SlashS = {
+      s  : AAgr => Mood => Str ; 
+      c2 : Compl
+      } ;
+
 
 -- Sentence
 

lib/resource-1.0/romance/NounRomance.gf

@@ -9,7 +9,8 @@ incomplete concrete NounRomance of Noun =
         g = cn.g ;
         n = det.n
       in {
-        s = \\c => det.s ! g ! npform2case c ++ cn.s ! n ;
+        s = \\c => let cs = npform2case c in 
+              prepCase cs ++ det.s ! g ! cs ++ cn.s ! n ;
         a = agrP3 g n ;
         hasClit = False
         } ;

lib/resource-1.0/romance/SentenceRomance.gf

@@ -43,16 +43,35 @@ incomplete concrete SentenceRomance of Sentence =
       c2 = {s = prep.s ; c = prep.c ; isDir = False}
       } ;
 
+    SlashVS np vs slash = 
+      {s = \\d,ag =>
+        (mkClause
+          (np.s ! Aton Nom) np.hasClit np.a
+          (insertExtrapos (\\b => conjThat ++ slash.s ! ag ! (vs.m ! b)) --- ag?
+            (predV vs))
+        ).s ! d ;
+       c2 = slash.c2
+      } ;
+
     EmbedS  s  = {s = conjThat ++ s.s ! Indic} ; --- mood
     EmbedQS qs = {s = qs.s ! QIndir} ;
     EmbedVP vp = {s = infVP vp (agrP3 Masc Sg)} ; --- agr ---- compl
 
-    UseCl  t a p cl = {s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! DDir ! t.t ! a.a ! p.p ! o} ;
-    UseQCl t a p cl = {s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q} ;
+    UseCl  t a p cl = {
+      s = \\o => t.s ++ a.s ++ p.s ++ cl.s ! DDir ! t.t ! a.a ! p.p ! o
+    } ;
+    UseQCl t a p cl = {
+      s = \\q => t.s ++ a.s ++ p.s ++ cl.s ! t.t ! a.a ! p.p ! q
+    } ;
     UseRCl t a p cl = {
       s = \\r,ag => t.s ++ a.s ++ p.s ++ cl.s ! ag ! t.t ! a.a ! p.p ! r ; 
       c = cl.c
       } ;
+    UseSlash t a p cl = {
+      s = \\agr,mo => 
+          t.s ++ a.s ++ p.s ++ cl.s ! DDir ! agr ! t.t ! a.a ! p.p ! mo ;
+      c2 = cl.c2
+    } ;
 
     AdvS a s = {s = \\o => a.s ++ "," ++ s.s ! o} ;