started Extra.RNP for reflexive noun phrases, needed particularly in Scandinavian (possessive "sin") but also in other languages if reflexive semantics is needed in applications

src/english/ExtraEng.gf

@@ -281,6 +281,21 @@ lin
         g = cn.g
         } ;
 
+  lincat
+    RNP     = {s : Agr => Str} ;
+    RNPList = {s1,s2 : Agr => Str} ;
+
+  lin 
+    ReflRNP vps rnp = insertObjPre (\\a => vps.c2 ++ rnp.s ! a) vps ;
+    ReflPron = {s = reflPron} ;
+    ReflPoss num cn = {s = \\a => possPron ! a ++ num.s ! Nom ++ cn.s ! num.n ! Nom} ;
+    PredetRNP predet rnp = {s = \\a => predet.s ++ rnp.s ! a} ;
+
+---- TODO: RNPList construction
+
+
+------ English-only part
+
   that_RP =
      { s = table {
         RC _ (NCase Gen) | RC _ NPNomPoss => "whose" ; 

src/english/ResEng.gf

@@ -525,6 +525,17 @@ param
     AgP2 Pl      => "yourselves" ;
     AgP3Pl _     => "themselves"
     } ;
+    
+  possPron : Agr => Str = table {
+    AgP1 Sg      => "my" ;
+    AgP2 Sg      => "your" ;
+    AgP3Sg Masc  => "his" ;
+    AgP3Sg Fem   => "her" ;
+    AgP3Sg Neutr => "its" ;
+    AgP1 Pl      => "our" ;
+    AgP2 Pl      => "your" ;
+    AgP3Pl _     => "their"
+    } ;
 
 -- For $Sentence$.