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/romance/SentenceRomance.gf
+++ b/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
      } ;