Available in:
Apps (win)
Apps (char)
Reportwriter
RPC
Standalone PL
X
X
X
X
X
expr execute(code-var[,parm,...]) trigger code-var expr parm
| code-var | specifies the code to execute.
|
| parm | (optional) specifies a parameter for code-var. |
{
trigger insrt;
trigger appnd;
.
.
insrt = { move_f2l(1); field_set(NULL); move_f2l(0); };
appnd = { move_f2l(-1); field_set(NULL); move_f2l(0); };
.
.
if (direction == up) list_mod(stack,1,appnd);
else list_mod(stack,1,insrt);
.
.
exec_stack(stack);
}
exec_stack:
{
int i;
list_seek(parm.0,0);
for (i=list_rows(parm.0);i;i-) execute(list_read(parm.0,0));
}