(Kor) Add Style as a variable up to S. Utt chooses Polite.

If different politeness levels are wanted in applications, UttS can be overriden.
2020-05-21 14:52:54 +02:00
parent ef364c295f
commit 8acf0da717
5 changed files with 10 additions and 7 deletions
@@ -8,7 +8,7 @@ concrete CatKor of Cat = CommonX ** open ResKor, Prelude in {
 -- Constructed in SentenceKor, and also in IdiomKor

    S  = ResKor.Sentence ;
-    QS = SS ; -- Questions not implemented yet
+    QS = {s : Style => Str}; -- Questions not implemented yet
    RS = ResKor.Sentence ;
    -- relative sentence. Tense and polarity fixed,
    -- but agreement may depend on the CN/NP it modifies.