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

(Kor) Add functions for V -> V2

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-25 10:30:49 +01:00
parent 4730cae42b
commit 022afabf50
2 changed files with 10 additions and 9 deletions
Download Patch File Download Diff File Expand all files Collapse all files
src/korean/ResKor.gf
+6 -7
View File
@@ -99,7 +99,8 @@ oper
mkPrep : Str -> Postposition = \str -> ss str ;
emptyPP = mkPrep [] ;
emptyPP : Postposition = mkPrep [] ;
datPP : Postposition = mkPrep "에게" ;
--------------------------------------------------------------------------------
-- Adjectives
@@ -148,13 +149,11 @@ oper
plain plain plain
vt ; -- TODO proper forms
mkVerb2 : (plain : Str) -> Verb2 = \plain ->
let v = mkVerb plain Active
in v ** {c2 = Object ; p2 = emptyPP} ;
mkVerb2 : (plain : Str) -> Verb2 = \plain -> vtov2 (mkVerb plain Active) ;
mkVerb3 : (plain : Str) -> Verb3 = \plain -> v2tov3 (mkVerb2 plain) ;
mkVerb3 : (plain : Str) -> Verb3 = \plain ->
let v = mkVerb2 plain
in v ** {c3 = Bare ; p3 = emptyPP} ;
vtov2 : Verb -> Verb2 = \v -> v ** {c2 = Object ; p2 = emptyPP} ;
v2tov3 : Verb2 -> Verb3 = \v -> v ** {c3 = Bare ; p3 = datPP} ;
mkVerbFull : (x1,_,_,_,_,x6 : Str) -> VerbType -> Verb =
\plain,polite,formal,planeg,polneg,formneg,vt -> {