extensions to DictEng and addition of parallel DictEngBul which is partly imported from Apertium

This commit is contained in:
kr.angelov
2012-06-20 09:06:59 +00:00
parent 983c72ba66
commit 87818d4404
12 changed files with 43517 additions and 159 deletions

View File

@@ -40,8 +40,8 @@ oper
--2 Verbs
mkVerb : (_,_,_,_,_,_,_,_,_:Str) -> VTable =
\cheta,chete,chetoh,chetqh,chel,chetql,cheten,chetqst,cheti ->
mkVerb : (_,_,_,_,_,_,_,_,_,_:Str) -> VTable =
\cheta,chete,chetoh,chetqh,chel,chetql,cheten,chetqst,cheti,chetene ->
table {
VPres Sg P1 => cheta;
VPres Sg P2 => chete + "ø";
@@ -97,6 +97,12 @@ oper
chet + "è" => chet + "åòå";
ela => ela + "òå"
};
VNoun nform => let v0 = init chetene
in (mkNoun (v0+"å")
(v0+"èÿ")
(v0+"èÿ")
(v0+"å")
ANeut).s ! nform;
VGerund => case chete of {
rabot + "è" => rabot + "åéêè";
_ => chete + "éêè"