(Pes) Add relative pronoun type in Subj

2026-07-01 11:38:34 -06:00 · 2019-04-25 16:11:28 +02:00
parent 35db9a0787
commit 6dbacd9892
3 changed files with 20 additions and 4 deletions
@@ -16,7 +16,12 @@ concrete AdverbPes of Adverb = CatPes ** open ResPes, Prelude in {
    AdAdv ada adv = { s =  ada.s ++ adv.s} ;

 --    SubjS = cc2 ;
-    SubjS sub snt = {s = sub.s  ++ conjThat ++ snt.s ! sub.compl} ;
+    SubjS sub snt = {
+       s = case sub.relpron of {
+            Ke   => sub.s ++ conjThat ++ snt.s ! sub.compl ;
+            Ance => "آنچه" ++ snt.s ! sub.compl }
+    } ;
+
    AdnCAdv cadv = {s =  cadv.s ++ "از"} ;

 }