progress on the Names API

src/romanian/NamesRon.gf

@@ -31,4 +31,19 @@ lin FullName gn sn =  -- KA: guessed
         indForm = gn.s ! No ++ sn.s ! No
         } ;
 
+lin UseLN pn = let 
+        g = pn.g ;
+        n = pn.n ;
+        ag = agrP3 g n ;
+        hc = getClit pn.a 
+      in {
+        s = \\c =>  {comp = pn.s ! c ;
+                      clit = \\cs => if_then_Str hc ((genCliticsCase ag c).s ! cs) [] } ;
+                   
+        a = ag;
+        nForm = if_then_else NForm hc HasClit (HasRef False) ;
+        isPronoun = False ; isPol = False;
+        indForm = pn.s ! No
+        } ;
+
 }