msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

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

Browse Source 
If different politeness levels are wanted in applications, UttS can be overriden.
This commit is contained in:
Inari Listenmaa
2020-05-21 14:52:54 +02:00
parent ef364c295f
commit 8acf0da717
5 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/korean/PhraseKor.gf
+3 -3
View File
@@ -3,8 +3,8 @@ concrete PhraseKor of Phrase = CatKor ** open Prelude, ResKor in {
lin
PhrUtt pconj utt voc = {s = pconj.s ++ utt.s ++ voc.s} ;
UttS s = {s = s.s ! Statement} ;
UttQS qs = qs ;
UttS s = {s = s.s ! Statement linStyle} ;
UttQS qs = {s = qs.s ! linStyle} ;
UttIAdv iadv = iadv ;
UttAdv adv = adv ;
UttInterj i = i ;
@@ -19,7 +19,7 @@ concrete PhraseKor of Phrase = CatKor ** open Prelude, ResKor in {
UttVP vp = {s = linVP linVF vp} ;
UttCN cn = {s = cn.rs ++ cn.s ! Bare} ;
UttCard n = {s = n.s ! NK ! Indep} ;
UttAP ap = { s = ap.compar ++ ap.s ! VF Plain Pos} ;
UttAP ap = {s = ap.compar ++ ap.s ! VF Plain Pos} ;
NoPConj = {s = []} ;
-- PConjConj conj = {s = conj.s1 ++ conj.s2 ! …} ;