added case (de or a) to Romance infinitive noun and adj complements

lib/src/catalan/CatCat.gf

@@ -1,6 +1,6 @@
 --# -path=.:../romance:../abstract:../common:prelude
 
 concrete CatCat of Cat = 
-  CommonX - [Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** 
+  CommonX - [SC,Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** 
   CatRomance with -- JS restore TPast for notpresent
   (ResRomance = ResCat) ;

lib/src/catalan/GrammarCat.gf

@@ -11,7 +11,7 @@ concrete GrammarCat of Grammar =
   RelativeCat,
   ConjunctionCat,
   PhraseCat,
-  TextX - [Temp,Tense],
+  TextX - [SC,Temp,Tense],
   IdiomCat,
   StructuralCat,
   TenseCat

lib/src/french/CatFre.gf

@@ -1,5 +1,5 @@
 --# -path=.:../romance:../common:../abstract:../common:prelude
 
-concrete CatFre of Cat = CommonX - [Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] 
+concrete CatFre of Cat = CommonX - [SC,Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] 
   ** CatRomance with
   (ResRomance = ResFre) ;

lib/src/french/GrammarFre.gf

@@ -11,7 +11,7 @@ concrete GrammarFre of Grammar =
   RelativeFre,
   ConjunctionFre,
   PhraseFre,
-  TextX - [Temp,Tense],
+  TextX - [SC,Temp,Tense],
   IdiomFre,
   StructuralFre,
   TenseFre

lib/src/italian/CatIta.gf

@@ -1,4 +1,4 @@
 --# -path=.:../romance:../abstract:../common:prelude
 
-concrete CatIta of Cat = CommonX - [Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** CatRomance with
+concrete CatIta of Cat = CommonX - [SC,Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** CatRomance with
   (ResRomance = ResIta) ;

lib/src/italian/GrammarIta.gf

@@ -11,7 +11,7 @@ concrete GrammarIta of Grammar =
   RelativeIta,
   ConjunctionIta,
   PhraseIta,
-  TextX - [Temp,Tense],
+  TextX - [SC,Temp,Tense],
   IdiomIta,
   StructuralIta,
   TenseIta

lib/src/romance/AdjectiveRomance.gf

@@ -42,7 +42,7 @@ incomplete concrete AdjectiveRomance of Adjective =
       } ;
 
     SentAP ap sc = {
-      s = \\a => ap.s ! a ++ sc.s ; --- mood 
+      s = \\a => ap.s ! a ++ sc.s ! dative ; -- prête à dormir --- mood 
       isPre = False
       } ;
 

lib/src/romance/CatRomance.gf

@@ -1,4 +1,4 @@
-incomplete concrete CatRomance of Cat = CommonX
+incomplete concrete CatRomance of Cat = CommonX - [SC]
   ** open Prelude, CommonRomance, ResRomance, (R = ParamX) in {
 
   flags optimize=all_subs ;
@@ -15,6 +15,7 @@ incomplete concrete CatRomance of Cat = CommonX
       c2 : Compl
       } ;
 
+    SC = {s : Case => Str} ;  -- de dormir / à dormir
 
 -- Sentence
 

lib/src/romance/NounRomance.gf

@@ -147,7 +147,7 @@ incomplete concrete NounRomance of Noun =
       g = g
       } ;
     SentCN  cn sc = let g = cn.g in {
-      s = \\n => cn.s ! n ++ sc.s ;
+      s = \\n => cn.s ! n ++ sc.s ! genitive ;  -- raison de dormir
       g = g
       } ;
     AdvCN  cn sc = let g = cn.g in {

lib/src/romance/SentenceRomance.gf

@@ -6,7 +6,7 @@ incomplete concrete SentenceRomance of Sentence =
   lin
     PredVP np vp = mkClause (np.s ! Nom).comp np.hasClit np.isPol np.a vp ;
 
-    PredSCVP sc vp = mkClause sc.s False False (agrP3 Masc Sg) vp ;
+    PredSCVP sc vp = mkClause (sc.s ! Nom) False False (agrP3 Masc Sg) vp ;
 
     ImpVP vp = {
       s = \\p,i,g => case i of {
@@ -47,9 +47,9 @@ incomplete concrete SentenceRomance of Sentence =
        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
+    EmbedS  s  = {s = \\_ => conjThat ++ s.s ! Indic} ; --- mood
+    EmbedQS qs = {s = \\_ => qs.s ! QIndir} ;
+    EmbedVP vp = {s = \\c => prepCase c ++ infVP vp (agrP3 Masc Sg)} ; --- agr ---- compl
 
     UseCl  t p cl = {
       s = \\o => t.s ++ p.s ++ cl.s ! DDir ! t.t ! t.a ! p.p ! o

lib/src/spanish/CatSpa.gf

@@ -1,5 +1,5 @@
 --# -path=.:../romance:../abstract:../common:prelude
 
 concrete CatSpa of Cat = CommonX - 
-  [Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** CatRomance with
+  [SC,Temp,TTAnt,Tense,TPres,TPast,TFut,TCond] ** CatRomance with
   (ResRomance = ResSpa) ;

lib/src/spanish/GrammarSpa.gf

@@ -11,7 +11,7 @@ concrete GrammarSpa of Grammar =
   RelativeSpa,
   ConjunctionSpa,
   PhraseSpa,
-  TextSpa - [Temp,Tense],      -- special punctuation
+  TextSpa - [SC,Temp,Tense],      -- special punctuation
   IdiomSpa,
   StructuralSpa,
   TenseSpa