1
0
forked from GitHub/gf-rgl

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

View File

@@ -3,6 +3,7 @@ concrete PhraseSqi of Phrase = CatSqi ** open Prelude, ResSqi in {
lin
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
UttS s = s ;
UttNP np = {s = np.s ! Nom} ;
UttInterj i = i ;

View File

@@ -1,4 +1,5 @@
concrete GrammarMkd of Grammar =
PhraseMkd,
TextX,
StructuralMkd,
TenseX ** {

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 = []} ;
}