Greek by Ioanna Papodopoulou - complete, 27th RGL language

src/greek/AdverbGre.gf

@@ -0,0 +1,35 @@
+concrete AdverbGre of Adverb = CatGre ** open ResGre, Prelude in {
+flags coding = utf8 ;
+  lin
+
+
+    PositAdvAdj a = {s = a.adv ! Posit} ;
+
+
+    ComparAdvAdj cadv a np = {
+     s = cadv.s ++ a.adv ! Posit ++ cadv.p ++ (np.s ! cadv.c).comp
+    } ;
+
+
+    ComparAdvAdjS cadv a s = {
+      s = cadv.s ++ a.adv ! Posit ++ cadv.p ++ "ότι" ++ s.s ! Ind    
+    } ;
+
+   
+   PrepNP prep np = {
+      s = prep.s ++ (np.s ! prep.c).comp 
+    } ;
+
+    AdAdv = cc2 ;
+
+    PositAdAAdj a = {s = a.adv ! Posit} ;
+
+  
+
+   SubjS subj s = {
+      s = subj.s ++ s.s ! subj.m
+    }  ;
+
+    AdnCAdv cadv = {s = cadv.s ++ cadv.p} ;
+
+}