Fonction d'interfaçage
fr

##
DEBUG_SCICOS

### Contenu du fichier

    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