the names API in more languages

src/finnish/NamesFin.gf

@@ -1,20 +1,43 @@
 concrete NamesFin of Names = CatFin ** open ResFin, StemFin, Prelude in {
 
-lin GivenName, MaleSurname, FemaleSurname = \n -> {
+lin GivenName n = {
       s = snoun2np Sg n ;
       a = agrP3 Sg ;
       isPron = False ; isNeg = False
       } ;
+lin MaleSurname n = {
+      s = snoun2np Sg (n.s ! Male) ;
+      a = agrP3 Sg ;
+      isPron = False ; isNeg = False
+      } ;
+lin FemaleSurname n = {
+      s = snoun2np Sg (n.s ! Female) ;
+      a = agrP3 Sg ;
+      isPron = False ; isNeg = False
+      } ;
+lin PlSurname n = {
+      s = snoun2np Pl n.pl ;
+      a = agrP3 Pl ;
+      isPron = False ; isNeg = False
+      } ;
 lin FullName gn sn = {
-      s = snoun2np Sg {s = \\c => gn.s ! Nom ++ sn.s ! c} ;
+      s = snoun2np Sg {s = \\c => gn.s ! Nom ++ (sn.s ! gn.g).s ! c} ;
       a = agrP3 Sg ;
       isPron = False ; isNeg = False
       } ;
 
-lin UseLN pn = {
-      s = snoun2np Sg pn ;
-      a = agrP3 Sg ;
+lin UseLN, PlainLN = \ln -> {
+      s = snoun2np ln.n ln ;
+      a = agrP3 ln.n ;
       isPron = False ; isNeg = False
       } ;
 
+lin InLP ln = {
+      s = appCompl True Pos ln.c { s = snoun2np ln.n ln ;
+                                   a = agrP3 ln.n ;
+                                   isPron = False ;
+                                   isNeg = False
+                                 }
+   } ;
+
 }