forked from GitHub/gf-rgl
started a separate module for names
This commit is contained in:
@@ -0,0 +1,9 @@
|
||||
concrete NamesIta of Names = CatIta ** open ResIta in {
|
||||
|
||||
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> pn2np n ;
|
||||
lin FullName gn sn = pn2np {
|
||||
s = gn.s ++ sn.s ;
|
||||
g = gn.g
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user