postfix subjunction SSubjS, defined for Eng, Ger, Romance

2009-12-17 08:49:41 +00:00
parent 283807d2ec
commit 787714b3fe
4 changed files with 10 additions and 0 deletions
--- a/lib/src/english/SentenceEng.gf
+++ b/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