Greek by Ioanna Papodopoulou - complete, 27th RGL language

lib/src/greek/TenseGre.gf

@@ -0,0 +1,26 @@
+--concrete TenseEll of Tense = 
+-- CatEll ** open ResEll, CommonEll , Prelude in {
+
+concrete TenseGre of Tense = ResGre [TTense,Mood,Voice] ,CommonGre ** open (R = ParamX) in {
+
+
+flags coding = utf8 ;
+
+  lin
+    TTAnt t a = {s = t.s ++ a.s ; t = t.t ; a = a.a ; m = t.m } ;
+   
+
+     TPres = {s = [] ; t = ResGre.TPres ; m = Ind} ;
+     TPast = {s = [] ; t = ResGre.TPast; m = Ind} ;
+     TFut = {s = [] ; t = ResGre.TFut; m = Ind} ;
+     TCond = {s = [] ; t = ResGre.TCond; m = Ind} ;
+     
+
+    ASimul = {s = []} ** {a = R.Simul} ;
+    AAnter = {s = []} ** {a = R.Anter} ; --# notpresent
+   
+    PPos  = {s = []} ** {p = R.Pos} ;
+    PNeg  = {s = []} ** {p = R.Neg} ;
+
+    }
+