GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 08:58:55 -06:00
Code Issues Packages Projects Releases Wiki Activity

added NamesAra

Browse Source
This commit is contained in:
aarneranta
2023-09-08 13:10:49 +02:00
parent f53b872b33
commit 5f9322683c
2 changed files with 18 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/arabic/CatAra.gf
View File

@@ -92,7 +92,7 @@ concrete CatAra of Cat = CommonX - [Utt] ** open ResAra, Prelude, ParamX in {
N = ResAra.Noun ;
N2 = ResAra.Noun2 ;
N3 = ResAra.Noun3 ;
PN = {s : Case => Str; g : Gender; h : Species} ;
GN, SN, LN, PN = {s : Case => Str; g : Gender; h : Species} ;
linref

17
src/arabic/NamesAra.gf Normal file
View File

@@ -0,0 +1,17 @@
concrete NamesAra of Names = CatAra ** open ResAra, Prelude in {
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> emptyNP ** {
s = n.s ;
a = {pgn = Per3 n.g Sg ; isPron = False} ;
} ;
lin FullName gn sn = emptyNP ** {
s = \\c => gn.s ! c ++ sn.s ! c ;
a = {pgn = Per3 gn.g Sg ; isPron = False} ;
} ;
lin UseLN pn = emptyNP ** {
s = pn.s ;
a = {pgn = Per3 pn.g Sg ; isPron = False} ;
} ;
}