started a separate module for names

2023-07-24 17:24:13 +02:00
parent 8b1309c99d
commit 645de9955a
100 changed files with 611 additions and 227 deletions
@@ -0,0 +1,24 @@
+concrete NamesSlv of Names = CatSlv ** open ResSlv, Prelude in {
+
+lin GivenName = \n -> {
+      s = n.s;
+      a = {g=agender2gender (sex2agender n.g); n=Sg; p=P3};
+      isPron = False
+      } ;
+lin MaleSurname = \n -> {
+      s = n.s ! Male;
+      a = {g=Masc; n=Sg; p=P3};
+      isPron = False
+      } ;
+lin FemaleSurname = \n -> {
+      s = n.s ! Female;
+      a = {g=Fem; n=Sg; p=P3};
+      isPron = False
+      } ;
+lin FullName gn sn = {
+      s = \\c => gn.s ! Nom ++ sn.s ! gn.g ! c ;
+      a = {g=agender2gender (sex2agender gn.g); n=Sg; p=P3};
+      isPron = False
+      } ;
+
+}