GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-27 17:08:54 -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

6
src/korean/ParadigmsKor.gf
View File

@@ -29,13 +29,14 @@ oper
-- Verbs -- Verbs
mkV : overload { mkV : overload {
mkV : (plain : Str) -> V ; -- Predictable verb: plaininitive form as argument mkV : (plain : Str) -> V ; -- Predictable verb: plaininitive form as argument
-- mkV : Str -> V -> V -- Add a prefix to an existing verb, e.g. u baahan+ahay -- mkV : Str -> V -> V -- Add a prefix to an existing verb
} ; } ;
copula : V ; -- The copula verb '' copula : V ; -- The copula verb ''
mkV2 : overload { mkV2 : overload {
mkV2 : (plain : Str) -> V2 ; mkV2 : (plain : Str) -> V2 ; -- Regular verb. Takes -다 form, object particle is 를.
mkV2 : V -> V2 ; -- Takes pre-constructed V, object particle is 를.
} ; } ;
-- mkV3 : overload { -- mkV3 : overload {
@@ -112,6 +113,7 @@ oper
mkV2 = overload { mkV2 = overload {
mkV2 : (plain : Str) -> V2 = \v2 -> lin V2 (mkVerb2 v2) ; mkV2 : (plain : Str) -> V2 = \v2 -> lin V2 (mkVerb2 v2) ;
mkV2 : V -> V2 = vtov2 ;
} ; } ;
mkV3 = overload { mkV3 = overload {

13
src/korean/ResKor.gf
View File

@@ -99,7 +99,8 @@ oper
mkPrep : Str -> Postposition = \str -> ss str ; mkPrep : Str -> Postposition = \str -> ss str ;
emptyPP = mkPrep [] ; emptyPP : Postposition = mkPrep [] ;
datPP : Postposition = mkPrep "에게" ;
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Adjectives -- Adjectives
@@ -148,13 +149,11 @@ oper
plain plain plain plain plain plain
vt ; -- TODO proper forms vt ; -- TODO proper forms
mkVerb2 : (plain : Str) -> Verb2 = \plain -> mkVerb2 : (plain : Str) -> Verb2 = \plain -> vtov2 (mkVerb plain Active) ;
let v = mkVerb plain Active mkVerb3 : (plain : Str) -> Verb3 = \plain -> v2tov3 (mkVerb2 plain) ;
in v ** {c2 = Object ; p2 = emptyPP} ;
mkVerb3 : (plain : Str) -> Verb3 = \plain -> vtov2 : Verb -> Verb2 = \v -> v ** {c2 = Object ; p2 = emptyPP} ;
let v = mkVerb2 plain v2tov3 : Verb2 -> Verb3 = \v -> v ** {c3 = Bare ; p3 = datPP} ;
in v ** {c3 = Bare ; p3 = emptyPP} ;
mkVerbFull : (x1,_,_,_,_,x6 : Str) -> VerbType -> Verb = mkVerbFull : (x1,_,_,_,_,x6 : Str) -> VerbType -> Verb =
\plain,polite,formal,planeg,polneg,formneg,vt -> { \plain,polite,formal,planeg,polneg,formneg,vt -> {