msyds/gf-rgl
1
0
Fork 0
forked from GitHub/gf-rgl
Code Pull Requests Activity

added compoundV operation

Browse Source
This commit is contained in:
Krasimir Angelov
2018-06-28 15:32:58 +02:00
parent 07697dd8d1
commit ebbd512ee1
1 changed files with 11 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

13
src/bulgarian/MorphoFunsBul.gf
View File

@@ -68,7 +68,7 @@ oper
lock_V=<> lock_V=<>
} ; } ;
actionV : VTable -> VTable -> V = dualV ; actionV : VTable -> VTable -> V = dualV ; -- deprecated
singleV : VTable -> V ; singleV : VTable -> V ;
singleV vtable = { singleV vtable = {
@@ -83,7 +83,16 @@ oper
lock_V=<> lock_V=<>
} ; } ;
stateV : VTable -> V = singleV ; stateV : VTable -> V = singleV ; -- deprecated
compoundV : V -> Str -> V ;
compoundV v adv = {
s = \\asp,vform => v.s ! asp ! vform ++ adv ;
n = \\nform => v.n ! nform ++ adv ;
vtype = VNormal;
lock_V=<>
} ;
--3 Zero-place verbs --3 Zero-place verbs
-- --