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

(Kor) Add A2, ComplA2, mkA2

Browse Source
This commit is contained in:
Inari Listenmaa
2020-04-03 19:35:59 +02:00
parent 44abd1a8da
commit 844e606429
3 changed files with 17 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
src/korean/ResKor.gf
View File

@@ -134,7 +134,7 @@ oper
-- Adjectives
Adjective : Type = {s : VForm => Str} ; -- Adjectives are verbs
Adjective2 : Type = Adjective ;
Adjective2 : Type = Adjective ** {p2 : Postposition} ;
mkAdj : Str -> Adjective = \plain ->
let stem = init plain ;
@@ -145,6 +145,8 @@ oper
vf => verb.s ! vf } -- adjectives, otherwise adj forms == verb forms.
} ;
atoa2 : Adjective -> Adjective2 = \a -> a ** {c2=Bare ; p2=emptyPP} ;
AdjPhrase : Type = Adjective ** {compar : Str} ;
--------------------------------------------------------------------------------
-- Verbs