forked from GitHub/gf-rgl
started a separate module for names
This commit is contained in:
@@ -49,7 +49,7 @@ concrete CatTur of Cat = CommonX - [CAdv,AdN] ** open ResTur, HarmonyTur, Prelud
|
||||
N = Noun ;
|
||||
N2 = Noun ** {c : Prep} ;
|
||||
N3 = Noun ** {c1,c2 : Prep} ;
|
||||
GN, SN, PN = {
|
||||
GN, SN, LN, PN = {
|
||||
s : Case => Str ;
|
||||
h : Harmony ;
|
||||
n : Number
|
||||
|
||||
@@ -7,12 +7,4 @@ concrete ExtendTur of Extend = CatTur ** open ResTur in {
|
||||
a = {n=num.n; p=P3} ;
|
||||
} ;
|
||||
|
||||
lin GivenName, MaleSurname, FemaleSurname = \n -> n ** {n = Sg};
|
||||
lin PlSurname = \n -> n ** {n = Pl};
|
||||
lin FullName gn sn = {
|
||||
s = \\c => gn.s ! Nom ++ sn.s ! c ;
|
||||
h = sn.h ;
|
||||
n = Sg
|
||||
} ;
|
||||
|
||||
}
|
||||
|
||||
@@ -14,7 +14,8 @@ concrete GrammarTur of Grammar =
|
||||
StructuralTur,
|
||||
PhraseTur,
|
||||
IdiomTur,
|
||||
TenseX - [CAdv, AdN]
|
||||
TenseX - [CAdv, AdN],
|
||||
NamesTur
|
||||
** {
|
||||
|
||||
flags startcat = Phr ;
|
||||
|
||||
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