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) Small cleanup

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-24 14:36:30 +01:00
parent 5f04085084
commit cad155b0bb
3 changed files with 4 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

2
src/korean/LexiconKor.gf
View File

@@ -325,7 +325,7 @@ lin person_N = mkN "사람" ;
-- lin skin_N = mkN "" ; -- lin skin_N = mkN "" ;
-- lin sky_N = mkN "" ; -- lin sky_N = mkN "" ;
-- lin sleep_V = mkV "" ; -- lin sleep_V = mkV "" ;
lin small_A = mkA "작아다" ; lin small_A = mkA "작다" ;
-- lin smell_V = mkV "" ; -- lin smell_V = mkV "" ;
-- lin smoke_N = mkN "" ; -- lin smoke_N = mkN "" ;
-- lin smooth_A = mkA "" ; -- lin smooth_A = mkA "" ;

4
src/korean/ResKor.gf
View File

@@ -99,6 +99,8 @@ oper
mkPrep : Str -> Postposition = \str -> ss str ; mkPrep : Str -> Postposition = \str -> ss str ;
emptyPP = mkPrep [] ;
-------------------------------------------------------------------------------- --------------------------------------------------------------------------------
-- Adjectives -- Adjectives
@@ -134,7 +136,7 @@ oper
mkVerb2 : (plain : Str) -> Verb2 = \plain -> mkVerb2 : (plain : Str) -> Verb2 = \plain ->
let v = mkVerb plain Active let v = mkVerb plain Active
in v ** {c2 = Object ; p2 = mkPrep []} ; in v ** {c2 = Object ; p2 = 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 -> {

4
src/korean/VerbKor.gf
View File

@@ -58,7 +58,6 @@ lin
SlashV2Q v2q qs = ; SlashV2Q v2q qs = ;
-- : V2A -> AP -> VPSlash ; -- paint (it) red -- : V2A -> AP -> VPSlash ; -- paint (it) red
-- TODO: is "red" plural in "paint them red"?
SlashV2A v2a ap = useVc v2a ** { SlashV2A v2a ap = useVc v2a ** {
aComp = \\_ => (CompAP ap).aComp ! Sg3 Masc aComp = \\_ => (CompAP ap).aComp ! Sg3 Masc
} ; } ;
@@ -105,9 +104,6 @@ lin
-- let adv = prepNP prep emptyNP -- let adv = prepNP prep emptyNP
-- in insertAdv vp adv ; -- in insertAdv vp adv ;
--2 Complements to copula --2 Complements to copula
-- Adjectival phrases, noun phrases, and adverbs can be used. -- Adjectival phrases, noun phrases, and adverbs can be used.