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

@@ -71,6 +71,6 @@ concrete CatTha of Cat = CommonX ** open ResTha, Prelude in {
N = ResTha.Noun ;
N2 = ResTha.Noun ** {c2 : Str} ;
N3 = ResTha.Noun ** {c2,c3 : Str} ;
GN, SN, PN = ResTha.NP ;
GN, SN, LN, PN = ResTha.NP ;
}

View File

@@ -14,7 +14,8 @@ concrete GrammarTha of Grammar =
TextTha,
StructuralTha,
IdiomTha,
TenseX
TenseX,
NamesTha
** {
flags startcat = Phr ; unlexer = text ; lexer = text ;

1
src/thai/NamesTha.gf Normal file
View File

@@ -0,0 +1 @@
concrete NamesTha of Names = CatTha ** { }