started a separate module for names

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

View File

@@ -118,7 +118,7 @@ concrete CatMlt of Cat = CommonX - [Adv] ** open ResMlt, Prelude in {
N = Noun ;
N2 = Noun ** {c2 : Compl} ;
N3 = Noun ** {c2, c3 : Compl} ;
GN, SN, PN = ProperNoun ;
GN, SN, LN, PN = ProperNoun ;
-- Overridden from CommonX

View File

@@ -24,10 +24,4 @@ concrete ExtraMlt of ExtraMltAbs = CatMlt **
a = p.a ;
} ;
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> n ;
lin FullName gn sn = {
s = gn.s ++ sn.s ;
a = gn.a
} ;
}

View File

@@ -20,7 +20,8 @@ concrete GrammarMlt of Grammar =
TextX - [Adv],
StructuralMlt,
IdiomMlt,
TenseX - [Adv]
TenseX - [Adv],
NamesMlt
** {
flags coding=utf8 ;

16
src/maltese/NamesMlt.gf Normal file
View File

@@ -0,0 +1,16 @@
concrete NamesMlt of Names = CatMlt ** open ResMlt, Prelude in {
lin GivenName, MaleSurname, FemaleSurname, PlSurname = \n -> {
s = \\c => n.s ;
a = n.a ;
isPron = False ;
isDefn = False
} ;
lin FullName gn sn = {
s = \\c => gn.s ++ sn.s ;
a = gn.a ;
isPron = False ;
isDefn = False
} ;
}