GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-27 11:56:29 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Kor) Add allomorphs for conjunctions

Browse Source
This commit is contained in:
Inari Listenmaa
2020-05-21 17:43:01 +02:00
parent 7785afd2c3
commit 737df2e226
9 changed files with 37 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/korean/SentenceKor.gf
+8 -2
View File
@@ -49,7 +49,10 @@ lin
-- : Temp -> Pol -> Cl -> S ;
UseCl t p cl = {
s = \\c => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! c
s = \\c => t.s ++ p.s ++ cl.s ! t.t ! t.a ! p.p ! c ;
p = case p.p of { -- Phono of VStem
Pos => cl.p ;
Neg => cl.pNeg } ;
} ;
-- : Temp -> Pol -> QCl -> QS ;
@@ -58,7 +61,10 @@ lin
-- : Temp -> Pol -> RCl -> RS ;
UseRCl t p rcl = {
s = \\c => t.s ++ p.s ++ rcl.s ! t.t ! t.a ! p.p ! c
s = \\c => t.s ++ p.s ++ rcl.s ! t.t ! t.a ! p.p ! c ;
p = case p.p of { -- Phono of VStem
Pos => rcl.p ;
Neg => rcl.pNeg } ;
} ;
-- AdvS : Adv -> S -> S ; -- then I will go home