add functions from BareRGMay to ExtendMay

This commit is contained in:
Meowyam
2022-05-11 14:56:48 +08:00
parent 3e79ab25e1
commit c712efc8eb
6 changed files with 49 additions and 10 deletions

View File

@@ -9,7 +9,7 @@ concrete GrammarMay of Grammar =
RelativeMay,
ConjunctionMay,
PhraseMay,
TextX - [IAdv],
TextX - [AAnter, TFut, TCond, IAdv],
StructuralMay,
IdiomMay,
TenseX - [AAnter, TFut, TCond, IAdv]
@@ -17,9 +17,8 @@ concrete GrammarMay of Grammar =
flags startcat = Phr ;
lin
AAnter = {s = "sudah" ; a = ParamX.Anter} ;
TFut = {s = "akan" ; t = ParamX.Fut} ;
TCond = {s = "akan" ; t = ParamX.Cond} ;
lin AAnter = {s = "sudah" ; a = ParamX.Anter} ; --# notpresent
TFut = {s = "akan" ; t = ParamX.Fut} ; --# notpresent
TCond = {s = "akan" ; t = ParamX.Cond} ; --# notpresent
} ;