forked from GitHub/gf-rgl
started a separate module for names
This commit is contained in:
@@ -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
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user