mirror of
https://github.com/GrammaticalFramework/gf-rgl.git
synced 2026-06-24 02:31:10 -06:00
started a separate module for names
This commit is contained in:
@@ -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
|
||||
|
||||
|
||||
@@ -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
|
||||
} ;
|
||||
|
||||
}
|
||||
|
||||
@@ -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
16
src/maltese/NamesMlt.gf
Normal 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
|
||||
} ;
|
||||
|
||||
}
|
||||
Reference in New Issue
Block a user