added UttS

This commit is contained in:
Krasimir Angelov
2025-09-11 09:50:53 +02:00
parent 0e5bb779cc
commit bc41082247
3 changed files with 15 additions and 0 deletions
+1
View File
@@ -1,4 +1,5 @@
concrete GrammarMkd of Grammar =
PhraseMkd,
TextX,
StructuralMkd,
TenseX ** {
+13
View File
@@ -0,0 +1,13 @@
concrete PhraseMkd of Phrase = CatMkd ** open Prelude, ResMkd in {
lin
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
UttS s = s ;
UttInterj i = i ;
NoPConj = {s = []} ;
NoVoc = {s = []} ;
}