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 CatSom of Cat = CommonX - [Adv,IAdv] ** open ResSom, Prelude in {
N = ResSom.Noun ;
N2 = ResSom.Noun2 ;
N3 = ResSom.Noun3 ;
GN, SN, PN = ResSom.PNoun ;
GN, SN, LN, PN = ResSom.PNoun ;
Adv = ResSom.Adverb ; -- Preposition of an adverbial can merge with obligatory complements of the verb.

View File

@@ -17,10 +17,4 @@ lin
-- FocusAdV : AdV -> S -> Utt ; -- never will I sleep
-- FocusAP : AP -> NP -> Utt ; -- green was the tree
lin GivenName, MaleSurname, FemaleSurname = \n -> n ;
lin FullName gn sn = {
s = gn.s ++ sn.s ;
a = gn.a
} ;
} ;

View File

@@ -12,7 +12,8 @@ concrete GrammarSom of Grammar =
TextX - [Adv,IAdv],
StructuralSom,
IdiomSom,
TenseX - [Adv,IAdv]
TenseX - [Adv,IAdv],
NamesSom
** {
flags startcat = Phr ; unlexer = text ; lexer = text ;

18
src/somali/NamesSom.gf Normal file
View File

@@ -0,0 +1,18 @@
concrete NamesSom of Names = CatSom ** open ResSom, Prelude in {
lin GivenName, MaleSurname, FemaleSurname = \n -> n ** {
s = \\c => n.s ;
isPron = False ;
st = Definite ;
empty = [] ;
};
lin FullName gn sn = {
s = \\c => gn.s ++ sn.s ;
a = gn.a ;
isPron = False ;
st = Definite ;
empty = [] ;
} ;
}