forked from GitHub/gf-rgl
extend the names API
This commit is contained in:
@@ -49,11 +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 = {
|
||||
s : Case => Str ;
|
||||
h : Harmony
|
||||
} ;
|
||||
PN = {
|
||||
GN, SN, PN = {
|
||||
s : Case => Str ;
|
||||
h : Harmony ;
|
||||
n : Number
|
||||
|
||||
@@ -7,7 +7,8 @@ concrete ExtendTur of Extend = CatTur ** open ResTur in {
|
||||
a = {n=num.n; p=P3} ;
|
||||
} ;
|
||||
|
||||
lin GivenName, Surname = \n -> n ** {n = Sg};
|
||||
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 ;
|
||||
|
||||
Reference in New Issue
Block a user