Add relative clauses

2008-02-27 13:29:05 +00:00
parent 0c8a84512e
commit 3fccfd4bef
6 changed files with 63 additions and 1 deletions
--- a/lib/resource/bulgarian/CatBul.gf
+++ b/lib/resource/bulgarian/CatBul.gf
@@ -23,6 +23,7 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {

    S  = {s : Str} ;
    QS = {s : QForm => Str} ;
+    RS = {s : GenNum => Str} ;
    SC  = {s : Str} ;

 -- Sentence
@@ -41,6 +42,11 @@ concrete CatBul of Cat = open ResBul, Prelude, (R = ParamX) in {
    IComp = {s1,s2 : Str} ;    
    IDet = {s : GenNum => Str; n : Number} ;

+-- Relative
+
+    RCl = {s : ResBul.Tense => Anteriority => Polarity => GenNum => Str} ;
+    RP = {s : GenNum => Str} ;
+
 -- Verb

    VP = {