extensions from Codex

src/armenian/RelativeHye.gf

@@ -0,0 +1,11 @@
+concrete RelativeHye of Relative = CatHye ** open ResHye in {
+  lin
+    RelCl cl = {s = "որը" ++ cl.s} ;
+    RelVP rp vp = {s = rp.s ++ vp.s} ;
+    RelSlash rp slash = {s = rp.s ++ slash.s} ;
+    IdRP = {s = "որը"} ;
+    FunRP prep np rp = {s = case prep.isPre of {
+      True=>prep.s++np.s!prep.c++rp.s;
+      False=>np.s!prep.c++prep.s++rp.s
+    }} ;
+}