mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-05-31 02:38:55 -06:00
extend the names API
This commit is contained in:
@@ -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