GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-06-24 10:41:15 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Kor) Add inflection table to RCl and RS, change other funs accordingly

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-06 18:19:20 +02:00
parent ee3adec428
commit ac1501c942
6 changed files with 33 additions and 24 deletions
Download Patch File Download Diff File Expand all files Collapse all files

29
src/korean/RelativeKor.gf
View File

@@ -3,21 +3,20 @@ concrete RelativeKor of Relative = CatKor ** open
lin
-- : Cl -> RCl ; -- such that John loves her
RelCl cl = {s = \\t,a,p => cl.s ! t ! a ! p ! Subord} ;
RelCl = relSlash (ss "") ;
-- : RP -> VP -> RCl ;
RelVP rp vp = {
s = \\t,a,p => vp.adv
++ vp.nObj
++ vp.s ! VAttr p -- TODO no tenses yet in the grammar
++ rp.s ;
} ;
RelVP rp vp = { -- TODO no tenses yet in the grammar
s = \\t,a,p,cltyp =>
rp.s ++ vp.adv ++ vp.nObj ++
case cltyp of {
WithConj => vp.s ! VStem ;
_ => vp.s ! VAttr p } ;
} ;
-- : RP -> ClSlash -> RCl ; -- whom John loves
RelSlash rp cls = {
s = \\t,a,p => cls.s ! t ! a ! p ! Subord
++ rp.s ;
} ;
RelSlash = relSlash ;
-- : RP ;
IdRP = {s = ""} ;
@@ -25,4 +24,12 @@ lin
-- : Prep -> NP -> RP -> RP ; -- the mother of whom
--FunRP prep np rp = {} ;
oper
relSlash : SS -> ClSlash -> ResKor.RClause = \rp,cls -> {
s = \\t,a,p,cltyp => rp.s ++
case cltyp of {
WithConj => cls.s ! t ! a ! p ! WithConj ;
_ => cls.s ! t ! a ! p ! Subord } ;
} ;
}