forked from GitHub/gf-rgl
started a separate module for names
This commit is contained in:
19
src/turkish/NamesTur.gf
Normal file
19
src/turkish/NamesTur.gf
Normal file
@@ -0,0 +1,19 @@
|
||||
concrete NamesTur of Names = CatTur ** open ResTur in {
|
||||
|
||||
lin GivenName, MaleSurname, FemaleSurname = \n -> {
|
||||
s = \\c => n.s ! c;
|
||||
h = n.h;
|
||||
a = {n = Sg; p = P3}
|
||||
} ;
|
||||
lin PlSurname = \n -> {
|
||||
s = \\c => n.s ! c;
|
||||
h = n.h;
|
||||
a = {n = Pl; p = P3}
|
||||
} ;
|
||||
lin FullName gn sn = {
|
||||
s = \\c => gn.s ! Nom ++ sn.s ! c;
|
||||
h = sn.h;
|
||||
a = {n = Sg; p = P3}
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user