complete RGL implementation for Mongolian by Nyamsuren Erdenebadrakh

lib/src/mongolian/RelativeMon.gf

@@ -0,0 +1,35 @@
+--# -path=.:../abstract:../common:../../prelude
+
+concrete RelativeMon of Relative = CatMon ** open ResMon, MorphoMon, Prelude in {
+
+ flags optimize=all_subs ; coding=utf8 ;
+
+lin
+
+ RelCl cl = {
+    s = \\t,ant,pol,_ => cl.s ! t ! ant ! pol ! Part Rel ;
+	existSubject = True
+    } ;
+
+ RelVP rp vp = {
+    s = \\t,ant,pol,_ => 
+    let 
+     cl = (mkClause (\\_ => []) Sg vp.vt Acc vp)
+    in 
+    cl.s ! t ! ant ! pol ! Part Object ;
+	existSubject = False
+    } ;
+    
+ RelSlash rp slash = {
+    s = \\t,ant,pol,_ => slash.s ! t ! ant ! pol ! Part Object ++ slash.c2.s ;
+	existSubject = False
+    } ;
+
+ IdRP = {s = []} ;
+ 
+ FunRP p np rp = {
+    s = np.s ! Nom ++ "нь"
+    } ;
+ 
+}
+