1
0
forked from GitHub/gf-rgl

extend the names API

This commit is contained in:
Krasimir Angelov
2023-02-07 08:47:34 +01:00
parent a6faaeb351
commit 828bf9c677
33 changed files with 182 additions and 57 deletions

View File

@@ -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

View File

@@ -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 ;