Greek by Ioanna Papodopoulou - complete, 27th RGL language

2013-04-25 13:22:28 +00:00
parent 7190af9c7c
commit 5612fcfacf
45 changed files with 8359 additions and 494 deletions
--- a/lib/src/greek/RelativeGre.gf
+++ b/lib/src/greek/RelativeGre.gf
@@ -0,0 +1,53 @@
+concrete RelativeGre of Relative = CatGre ** open Prelude, ResGre in {
+
+  flags coding= utf8;
+
+  lin
+
+                        
+ 
+    RelCl cl = {
+      s = \\ag,t,a,p,_ =>"ώστε"   ++  cl.s ! Main ! t ! a ! p ! Ind ;
+      c = Nom
+      } ;
+
+    RelVP rp vp = case rp.hasAgr of {
+     True => {s = \\ag,t,a,p,m =>
+       (predVP
+                    (rp.s !  False!   complAgr ag ! Nom )
+                   (Ag rp.a.g rp.a.n P3) 
+                   vp).s ! Main !t !a! p! m ; c = Nom } ;
+        False => {s = \\ag,t,a,p,m =>
+         (predVP
+                    (rp.s ! True!   complAgr ag ! Nom) 
+                    ag
+                   vp).s! Main !t! a! p! m ; c = Nom
+        }
+     } ;
+
+
+ 
+    RelSlash rp slash = {
+      s = \\ag,t,a,p,m => 
+          let aag = complAgr ag
+          in
+              slash.c2.s ++  rp.s ! False ! aag ! slash.c2.c ++ 
+              slash.s ! aag ! Main ! t ! a ! p ! m  ;    
+        c = Acc
+      } ;
+
+
+    FunRP p np rp = {
+        s = \\_,a,c => (np.s ! c).comp ++ p.s ++ rp.s ! False ! a ! p.c ;
+        a = complAgr np.a ; 
+        hasAgr = True
+      } ;
+
+
+    IdRP = {
+      s = relPron ; 
+      a = {g = Masc ; n = Sg} ; 
+      hasAgr = False
+      } ;
+} 
+