postfix subjunction SSubjS, defined for Eng, Ger, Romance

lib/src/abstract/Sentence.gf

@@ -66,6 +66,10 @@ abstract Sentence = Cat ** {
 
     AdvS     : Adv -> S  -> S ;            -- today, I will go home
 
+-- This covers subjunctive clauses, but they can also be added to the end.
+
+    SSubjS   : S -> Subj -> S -> S ;       -- I go home if she comes
+
 -- A sentence can be modified by a relative clause referring to its contents.
 
     RelS     : S -> RS -> S ;              -- she sleeps, which is good

lib/src/english/SentenceEng.gf

@@ -58,6 +58,8 @@ concrete SentenceEng of Sentence = CatEng ** open Prelude, ResEng in {
 
     AdvS a s = {s = a.s ++ "," ++ s.s} ;
 
+    SSubjS a s b = {s = a.s ++ "," ++ s.s ++ b.s} ;
+
     RelS s r = {s = s.s ++ "," ++ r.s ! agrP3 Sg} ;
 
   oper

lib/src/german/SentenceGer.gf

@@ -62,6 +62,8 @@ concrete SentenceGer of Sentence = CatGer ** open ResGer, Prelude in {
 
     AdvS a s = {s = \\o => a.s ++ s.s ! Inv} ;
 
+    SSubjS a s b = {s = \\o => a.s ! o ++ "," ++ s.s ++ b.s ! Sub} ;
+
     RelS s r = {s = \\o => s.s ! o ++ "," ++ r.s ! gennum Neutr Sg} ; --- "welches"
 
 }

lib/src/romance/SentenceRomance.gf

@@ -69,6 +69,8 @@ incomplete concrete SentenceRomance of Sentence =
 
     AdvS a s = {s = \\o => a.s ++ "," ++ s.s ! o} ;
 
+    SSubjS a s b = {s = \\m => a.s ! m ++ "," ++ s.s ++ b.s ! s.m} ;
+
     RelS s r = {
       s = \\o => s.s ! o ++ "," ++ partQIndir ++ r.s ! Indic ! agrP3 Masc Sg
       } ;