1
0
forked from GitHub/gf-rgl

(Kor) Add unit tests about verb inflection

This commit is contained in:
Inari Listenmaa
2020-03-24 20:51:30 +01:00
parent 5344ca7cce
commit 4730cae42b
4 changed files with 51 additions and 15 deletions

View File

@@ -152,6 +152,10 @@ oper
let v = mkVerb plain Active
in v ** {c2 = Object ; p2 = emptyPP} ;
mkVerb3 : (plain : Str) -> Verb3 = \plain ->
let v = mkVerb2 plain
in v ** {c3 = Bare ; p3 = emptyPP} ;
mkVerbFull : (x1,_,_,_,_,x6 : Str) -> VerbType -> Verb =
\plain,polite,formal,planeg,polneg,formneg,vt -> {
s = table {