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/german/SentenceGer.gf
+++ b/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"

 }