extend the names API

This commit is contained in:
Krasimir Angelov
2023-02-07 08:47:34 +01:00
parent a6faaeb351
commit 828bf9c677
33 changed files with 182 additions and 57 deletions
+5 -3
View File
@@ -57,10 +57,12 @@ lin
youPolPl_Pron = youPol_Pron ;
youPolPlFem_Pron = youPlFem_Pron ;
lin GivenName, Surname = \n -> n ** {n = Sg} ;
lin GivenName = \n -> {s = n.s; g = sex2agender n.g; n = Sg} ;
lin MaleSurname = \n -> {s = n.s ! Male; g = AMasc Animate; n = Sg} ;
lin FemaleSurname = \n -> {s = n.s ! Female; g = AFem; n = Sg} ;
lin FullName gn sn = {
s = \\c => gn.s ! Nom ++ sn.s ! c ;
g = gn.g ;
s = \\c => gn.s ! Nom ++ sn.s ! gn.g ! c ;
g = sex2agender gn.g ;
n = Sg
} ;