added GN & SN categories for constructing names

This commit is contained in:
Krasimir Angelov
2022-12-15 08:44:42 +01:00
parent d0e433cd46
commit 7085acacc9
55 changed files with 371 additions and 43 deletions
+1 -1
View File
@@ -3,7 +3,7 @@
concrete AllAfr of AllAfrAbs =
LangAfr,
IrregAfr,
ExtraAfr
ExtendAfr
**
{
--{} ;
+1 -1
View File
@@ -83,6 +83,6 @@ concrete CatAfr of Cat =
N = Noun ;
N2 = {s : NForm => Str ; g : Gender} ** {c2 : Preposition} ;
N3 = {s : NForm => Str ; g : Gender} ** {c2,c3 : Preposition} ;
PN = {s : NPCase => Str} ;
GN, SN, PN = {s : NPCase => Str} ;
}
+12
View File
@@ -28,6 +28,18 @@ lin
s2 = paragraph (pn.s ! NPNom)
} ;
InflectionGN = \pn -> {
t = "vnm" ;
s1 = heading1 "Voornaam" ;
s2 = paragraph (pn.s ! NPNom)
} ;
InflectionSN = \pn -> {
t = "van" ;
s1 = heading1 "Van" ;
s2 = paragraph (pn.s ! NPNom)
} ;
InflectionA, InflectionA2 = \adj ->
let
gforms : AForm -> Str = \a ->
+14
View File
@@ -0,0 +1,14 @@
concrete ExtendAfr of Extend =
CatAfr ** ExtendFunctor
with
(Grammar = GrammarAfr) **
open
ResAfr in {
lin GivenName, Surname = \n -> n ;
lin FullName gn sn = {
s = \\c => gn.s ! NPNom ++ sn.s ! c ;
} ;
}