PersianRG

lib/src/persian/AdverbPes.gf

@@ -0,0 +1,22 @@
+concrete AdverbPes of Adverb = CatPes ** open ResPes, Prelude in {
+
+  flags coding = utf8;
+  lin
+ --   PositAdvAdj a = {s = a.s ! bEzafa  } ;
+     PositAdvAdj a = {s = a.adv  } ;
+    ComparAdvAdj cadv a np = {
+      s = a.adv ++ cadv.p ++ cadv.s ++ np.s ! NPC bEzafa  ;  
+      } ;
+    ComparAdvAdjS cadv a s = {
+      s =  a.adv  ++ cadv.p ++ cadv.s  ++  s.s;
+      } ;
+
+    PrepNP prep np = {s =  prep.s ++ np.s ! NPC aEzafa } ;
+
+    AdAdv ada adv = { s =  ada.s ++ adv.s} ;
+
+--    SubjS = cc2 ;
+    SubjS sub snt = {s = sub.s  ++ "که" ++ snt.s } ;
+    AdnCAdv cadv = {s =  cadv.s ++ "از"} ;
+
+}