started a separate module for names

This commit is contained in:
Krasimir Angelov committed 2023-07-24 17:24:13 +02:00
1 parent 8b1309c99d
commit 645de9955a
100 files changed
+611 -227

No files matched your search

+12
View File
@@ -0,0 +1,12 @@
concrete NamesPol of Names = CatPol ** {
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin FullName gn sn = {
nom = gn.nom ++ sn.nom ;
voc = gn.nom ++ sn.voc ;
dep = \\c => gn.nom ++ sn.dep ! c ;
gn = gn.gn ;
p = gn.p
} ;
}