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