extend the names API

2026-06-28 04:16:30 -06:00 · 2023-02-07 08:47:34 +01:00
parent a6faaeb351
commit 828bf9c677
33 changed files with 182 additions and 57 deletions
@@ -300,13 +300,25 @@ lin UseDAP dap = {
      p  = NounP3 dap.p
      } ;

-lin GivenName, Surname = \n -> {
+lin GivenName = \n -> {
       s  = n.s ;
-       gn = GSg n.g
+       gn = GSg (sex2gender n.g)
+    } ;
+lin MaleSurname = \n -> {
+       s  = n.s ! Male ;
+       gn = GSg Masc
+    } ;
+lin FemaleSurname = \n -> {
+       s  = n.s ! Female;
+       gn = GSg Fem
+    } ;
+lin PlSurname = \n -> {
+       s  = n.pl ;
+       gn = GPl
    } ;
 lin FullName gn sn = {
-       s  = gn.s ++ sn.s ; 
-       gn = GSg gn.g
+       s  = gn.s ++ sn.s ! gn.g ; 
+       gn = GSg (sex2gender gn.g)
    } ;

 }