added GenRP to ExtraFin

2013-05-16 16:28:24 +00:00
parent c446e1f505
commit 953bc8dc13
2 changed files with 6 additions and 1 deletions
--- a/lib/src/finnish/ExtraFin.gf
+++ b/lib/src/finnish/ExtraFin.gf
@@ -15,6 +15,11 @@ concrete ExtraFin of ExtraFinAbs = CatFin **

    GenIP ip = {s = \\_,_ => ip.s ! NPCase Gen} ;

+    GenRP num cn = {
+      s = \\n,c => let k = npform2case num.n c in relPron ! n ! Gen ++ cn.s ! NCase num.n k ; 
+      a = RNoAg ---RAg (agrP3 num.n)
+      } ;
+
    GenCN n1 n2 = {s = \\nf => n1.s ! NPCase Gen ++ n2.s ! nf ;
                   h = n2.h } ;