(Pes) Add relative pronoun type in Subj

2019-04-25 16:11:28 +02:00
parent 35db9a0787
commit 6dbacd9892
3 changed files with 20 additions and 4 deletions
@@ -71,7 +71,11 @@ concrete CatPes of Cat = CommonX ** open ResPes, Prelude in {
    Conj = {s1,s2 : Str ; n : Number} ;
 -----b    Conj = {s : Str ; n : Number} ;
 -----b    DConj = {s1,s2 : Str ; n : Number} ;
-    Subj = {s : Str ; compl : VVForm} ; -- subjunctive or indicative
+    Subj = {
+      s : Str ;
+      compl : VVForm ;  -- subjunctive or indicative
+      relpron : RelPron -- choose between که and آنچه
+      } ;
    VS = ResPes.Verb ** {compl : VVForm} ; -- subjunctive or indicative
    Prep = Compl ;
 ---- Open lexical classes, e.g. Lexicon