mirror of
https://github.com/GrammaticalFramework/gf-core.git
synced 2026-05-06 09:42:50 -06:00
extensions to DictEng and addition of parallel DictEngBul which is partly imported from Apertium
This commit is contained in:
@@ -56,6 +56,12 @@ oper
|
||||
actionV : VTable -> VTable -> V ;
|
||||
actionV imperf perf = {
|
||||
s = table {Imperf=>imperf; Perf=>perf};
|
||||
n = let v0 = init (imperf ! (VImperfect Sg P1)) + "í"
|
||||
in (mkNoun (v0+"ĺ")
|
||||
(v0+"č˙")
|
||||
(v0+"č˙")
|
||||
(v0+"ĺ")
|
||||
ANeut).s;
|
||||
vtype = VNormal;
|
||||
lock_V=<>
|
||||
} ;
|
||||
@@ -63,6 +69,12 @@ oper
|
||||
stateV : VTable -> V ;
|
||||
stateV vtable = {
|
||||
s = \\_=>vtable;
|
||||
n = let v0 = init (vtable ! (VImperfect Sg P1)) + "í"
|
||||
in (mkNoun (v0+"ĺ")
|
||||
(v0+"č˙")
|
||||
(v0+"č˙")
|
||||
(v0+"ĺ")
|
||||
ANeut).s;
|
||||
vtype = VNormal;
|
||||
lock_V=<>
|
||||
} ;
|
||||
|
||||
Reference in New Issue
Block a user