GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-07-01 11:38:34 -06:00
Code Issues Packages Projects Releases Wiki 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/SentenceKor.gf
+5 -2
View File
@@ -53,10 +53,13 @@ lin
} ;
-- : Temp -> Pol -> QCl -> QS ;
UseQCl t p cl = {s = t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! Statement} ;
UseQCl t p cl = {
s = \\st => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! Statement st} ;
-- : Temp -> Pol -> RCl -> RS ;
UseRCl t p rcl = {s = \\c => t.s ++ p.s ++ rcl.s ! t.t ! t.a ! p.p ! c} ;
UseRCl t p rcl = {
s = \\c => t.s ++ p.s ++ rcl.s ! t.t ! t.a ! p.p ! c
} ;
-- AdvS : Adv -> S -> S ; -- then I will go home
AdvS = advS "" ;