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

(Kor) SC, PredSCVP

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-01 18:44:52 +02:00
parent c23016aaad
commit cd9dd6bdc7
2 changed files with 10 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
src/korean/ResKor.gf
View File

@@ -316,13 +316,16 @@ oper
Sentence : Type = {s : ClType => Str} ;
predVP : NounPhrase -> VerbPhrase -> ClSlash = \np,vp -> vp ** {
predVP : NounPhrase -> VerbPhrase -> ClSlash = \np,vp ->
let npstr : Str = np.s ! vp.sc in predVP' npstr vp ;
predVP' : (np : Str) -> VerbPhrase -> ClSlash = \np,vp -> vp ** {
s = \\t,a,p,cltyp =>
let vf = case cltyp of {
Subord => VAttr p ;
WithConj => VStem ;
_ => VF Polite p } -- TODO: more tenses, politeness
in np.s ! vp.sc
in np
++ vp.nObj -- an object, not copula complement
++ vp.adv
++ vp.s ! vf