started a separate module for names

This commit is contained in:
Krasimir Angelov
2023-07-24 17:24:13 +02:00
parent 8b1309c99d
commit 645de9955a
100 changed files with 611 additions and 227 deletions
+16
View File
@@ -0,0 +1,16 @@
concrete NamesMlt of Names = CatMlt ** open ResMlt, Prelude in {
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> {
s = \\c => n.s ;
a = n.a ;
isPron = False ;
isDefn = False
} ;
lin FullName gn sn = {
s = \\c => gn.s ++ sn.s ;
a = gn.a ;
isPron = False ;
isDefn = False
} ;
}