DEBUG_SCICOS
function [x,y,typ]=DEBUG_SCICOS(job,arg1,arg2)
x=[];y=[];typ=[]
select job
case 'plot' then
standard_draw(arg1)
case 'getinputs' then
[x,y,typ]=standard_inputs(arg1)
case 'getoutputs' then
x=[];y=[];typ=[];
case 'getorigin' then
[x,y]=standard_origin(arg1)
case 'set' then
x=arg1;
graphics=arg1.graphics;exprs=graphics.exprs
textmp=exprs(2)
ok=%t
while 1==1
[txt]=dialog(['Enter scilab instructions for debugging.';
' Inputs are block and flag, output is block'],..
textmp);
if txt<>[] then
tt=['block=debug_scicos(block,flag)']
if execstr('deff(tt,txt)','errcatch')==0 then
save(TMPDIR+'/debug_scicos',debug_scicos)
exprs(2)=txt
if (scicos_debug()<>2 & scicos_debug()<>3) then
scicos_debug(2)
end
break
else
message(['Error in the instructions';lasterror()])
end
else
ok=%f;break;
end
end
if ok then
graphics.exprs=exprs;
x.graphics=graphics;
end
case 'define' then
model=scicos_model()
model.sim=list('%debug_scicos',99)
model.blocktype='d'
exprs=list('','pause')
gr_i=['xstringb(orig(1),orig(2),''Debug'',sz(1),sz(2),''fill'')']
x=standard_define([2 2],model,exprs,gr_i)
end
endfunction