GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-23 18:21:11 -06:00
Code Issues Packages Projects Releases Wiki Activity

started a separate module for names

Browse Source
This commit is contained in:
Krasimir Angelov
2023-07-24 17:24:13 +02:00
parent 8b1309c99d
commit 645de9955a
100 changed files with 611 additions and 227 deletions
Download Patch File Download Diff File Expand all files Collapse all files

6
src/swedish/ExtendSwe.gf
View File

@@ -392,11 +392,5 @@ lin UseDAPMasc, UseDAPFem = \dap ->
lin CardCNCard card cn =
{s = \\g => card.s ! cn.g ++ cn.s ! card.n ! DIndef ! Nom ; n = Pl} ;
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin FullName gn sn = {
s = \\c => gn.s ! Nom ++ sn.s ! c ;
g = gn.g
} ;
}

3
src/swedish/GrammarSwe.gf
View File

@@ -14,7 +14,8 @@ concrete GrammarSwe of Grammar =
TextX -[Tense,Temp],
IdiomSwe,
StructuralSwe,
TenseSwe
TenseSwe,
NamesSwe
** {
flags startcat = Phr ; unlexer = text ; lexer = text ;

14
src/swedish/NamesSwe.gf Normal file
View File

@@ -0,0 +1,14 @@
concrete NamesSwe of Names = CatSwe ** open CommonScand, ResSwe, Prelude in {
lin GivenName, MaleSurname, FemaleSurname = \pn -> {
s = \\c => pn.s ! caseNP c ;
a = agrP3 pn.g Sg ;
isPron = False
} ;
lin FullName gn sn = {
s = \\c => gn.s ! Nom ++ sn.s ! caseNP c ;
a = agrP3 gn.g Sg ;
isPron = False
} ;
}