getf SCI/util/testexamples.sci
 
reinit_for_test()
 
%U=mopen('SCI/tests/automatic_tests/ScilabEval_data.ref','rb');
 
//Callbacks and "seq" option usage
 
 
//create tcl instructions
 
tcl_script = ['toplevel0.w1';
  'button0.w1.b -text ""Click here to execute without seq option""  -command WithoutSeq';
  'button0.w1.b1 -text ""Click here to execute with seq option""  -command  WithSeq';
  'pack0.w1.b0.w1.b1';
  'proc  WithoutSeq {} { ';
  '  ScilabEval ""cont=%f;;cont=%t;"" ';
  '  ScilabEval ""if cont then disp(''ok''),else disp(''wrong'');end;cont=%f;"" ';
  '}';
  'proc WithSeq {} { ';
  '  ScilabEval ""cont=%f;;cont=%t;""  ""seq""';
  '  ScilabEval ""if cont then disp(''ok''),else disp(''wrong'');end;cont=%f;"" ';
  '}'];
 
%ans = mputl(tcl_script, TMPDIR + '/test.tcl');
 
if load_ref('%ans') then   bugmes();quit;end,
 
//write them to a file
 
// Execute the tcl script
 
cont = %f;
 
TCL_EvalFile(TMPDIR + '/test.tcl');
 
 
//scripts and "sync" option usage
 
 
//----------------without "sync"----------------
 
tcl_script = ['  set t ""0""';
  '  while {$t != ""10""} {';
  '     ScilabEval ""a=$t;mprintf(''%d '',a);""';
  '     incr t';
  '  }'];
 
 
%ans = mputl(tcl_script, TMPDIR + '/test.tcl');
 
if load_ref('%ans') then   bugmes();quit;end,
 
//write them to a file
 
// Execute the tcl script
 
TCL_EvalFile(TMPDIR + '/test.tcl');mprintf('TCL_EvalFile finished\n');
TCL_EvalFile finished
 
// The ScilabEval are executed  after the and of TCL_EvalFile
 
 
//----------------with "sync"----------------
 
tcl_script = ['  set t ""0""';
  '  while {$t != ""10""} {';
  '     ScilabEval ""a=$t;mprintf(''%d '',a);"" ""sync""';
  '     incr t';
  '  }'];
 
 
%ans = mputl(tcl_script, TMPDIR + '/test.tcl');
 
if load_ref('%ans') then   bugmes();quit;end,
 
//write them to a file
 
// Execute the tcl script
 
TCL_EvalFile(TMPDIR + '/test.tcl');mprintf('TCL_EvalFile finished\n');
0 1 2 3 4 5 6 7 8 9 TCL_EvalFile finished
 
// The ScilabEval are executed  synchronously with TCL_EvalFile
 
 
xdel_run(winsid());
 
 
mclose(%U);