GitHub/gf-rgl
1
0
Fork 1
mirror of https://github.com/GrammaticalFramework/gf-rgl.git synced 2026-05-28 01:18:57 -06:00
Code Issues Packages Projects Releases Wiki Activity

(Kor) WIP constructing verb inflection tables

Browse Source
This commit is contained in:
Inari Listenmaa
2020-03-24 17:00:50 +01:00
parent 50eeb8757b
commit c6aea7d257
1 changed files with 16 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

18
src/korean/ResKor.gf
View File

@@ -109,9 +109,10 @@ oper
mkAdj : Str -> Adjective = \plain -> mkAdj : Str -> Adjective = \plain ->
let stem = init plain ; let stem = init plain ;
verb = mkVerb stem Stative ; verb = mkVerb plain Stative ;
in { in {
s = table { AAttr => add_N stem ; s = table { AAttr => add_N stem ;
APred (VF Plain Pos) => plain ;
APred vf => verb.s ! vf } APred vf => verb.s ! vf }
} ; } ;
@@ -132,7 +133,20 @@ oper
-- VV : Type = Verb ** {vvtype : VVForm} ; -- VV : Type = Verb ** {vvtype : VVForm} ;
mkVerb : (plain : Str) -> VerbType -> Verb = \plain,vt -> mkVerb : (plain : Str) -> VerbType -> Verb = \plain,vt ->
mkVerbFull plain plain plain plain plain plain vt ; -- TODO proper forms let stem = init plain ;
plainpres = case vowFinal stem of {
True => add_N stem + "다" ;
False => stem + "는다" } ;
informal = case vowFinal stem of { -- not used in grammar yet
True => add_eo stem ;
False => stem + "어" } ;
polpres = informal + "요" ;
formalpres = case vowFinal stem of {
True => add_B stem + "니다" ;
False => stem + "습니다" } ;
in mkVerbFull plainpres polpres formalpres
plain plain plain
vt ; -- TODO proper forms
mkVerb2 : (plain : Str) -> Verb2 = \plain -> mkVerb2 : (plain : Str) -> Verb2 = \plain ->
let v = mkVerb plain Active let v = mkVerb plain Active