Update tests ... 55/6155/2
Vincent COUVERT [Tue, 7 Feb 2012 14:33:13 +0000 (15:33 +0100)]
 - comment
 - function
 - macro
 - opcode
 - trycatch (header was missing in the .dia.ref file)
 - bug_3407
 - bug_3489
 - bug_3945

Try catch must not be used for: errcatch

The .dia.ref file was not up to date for:
 - segfault_mgmt_2
 - segfault_mgmt_3

To test this commit: test_run("core", ["comment" "errcatch" "function" "macro" "opcode" "segfault_mgmt_2" "segfault_mgmt_3" "trycatch" "bug_3407" "bug_3489" "bug_3945"])

Change-Id: I51576ae3bc0b9eae23cd51b832d298e4812f65ff

20 files changed:
scilab/modules/core/tests/nonreg_tests/bug_3407.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_3407.tst
scilab/modules/core/tests/nonreg_tests/bug_3489.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_3489.tst
scilab/modules/core/tests/nonreg_tests/bug_3945.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_3945.tst
scilab/modules/core/tests/unit_tests/comment.dia.ref
scilab/modules/core/tests/unit_tests/comment.tst
scilab/modules/core/tests/unit_tests/errcatch.dia.ref
scilab/modules/core/tests/unit_tests/errcatch.tst
scilab/modules/core/tests/unit_tests/function.dia.ref
scilab/modules/core/tests/unit_tests/function.tst
scilab/modules/core/tests/unit_tests/macro.dia.ref
scilab/modules/core/tests/unit_tests/macro.tst
scilab/modules/core/tests/unit_tests/opcode.dia.ref
scilab/modules/core/tests/unit_tests/opcode.tst
scilab/modules/core/tests/unit_tests/segfault_mgmt_2.dia.ref
scilab/modules/core/tests/unit_tests/segfault_mgmt_3.dia.ref
scilab/modules/core/tests/unit_tests/trycatch.dia.ref
scilab/modules/core/tests/unit_tests/trycatch.tst

index ee5f0a4..dfe9be3 100644 (file)
@@ -252,4 +252,4 @@ function l=myfun2()
  [l,w]=where()
 endfunction
 l=myfun2();if l(1)<>7 then bugmes();quit;end
-funcprot(fprot)
+funcprot(fprot);
index 0447e80..f224614 100644 (file)
@@ -294,4 +294,4 @@ function l=myfun2()
 endfunction
 l=myfun2();if l(1)<>7 then pause,end
 
-funcprot(fprot)
+funcprot(fprot);
index 1668a96..34acb74 100644 (file)
@@ -11,7 +11,7 @@
 //
 // <-- Short Description -->
 //catching protected variable redefinition
-prot=funcprot();funcprot(0)
+prot=funcprot();funcprot(0);
 if execstr('%pi=3','errcatch')==0 then bugmes();quit;end
 r=%f;
 try,execstr('%pi=3'),catch,r=%t,end
@@ -56,4 +56,4 @@ try,setpi(3),catch,r=%t,end
   T  
 if ~r then bugmes();quit;end
 if exists('a')<>0 then bugmes();quit;end
-funcprot(prot)
+funcprot(prot);
index 6308997..bad610b 100644 (file)
@@ -13,7 +13,7 @@
 // <-- Short Description -->
 //catching protected variable redefinition
 
-prot=funcprot();funcprot(0)
+prot=funcprot();funcprot(0);
 if execstr('%pi=3','errcatch')==0 then pause,end
 
 r=%f;
@@ -53,4 +53,4 @@ if ~r then pause,end
 if exists('a')<>0 then pause,end
 
 
-funcprot(prot)
+funcprot(prot);
index abfa1cd..61204af 100644 (file)
 // <-- Short Description -->
 // problem with library extraction
 ref=sinm(1);
-prot=funcprot();funcprot(0)
+prot=funcprot();funcprot(0);
 //redefine the sinm function
 function y=sinm(x),y=x+1,endfunction
 if sinm(1)<>2 then bugmes();quit;end
 //restore it
 sinm = elementary_functionslib.sinm
 if sinm(1)<>ref then bugmes();quit;end
-funcprot(prot)
+funcprot(prot);
index 51322a0..2a082c1 100644 (file)
 // <-- Short Description -->
 // problem with library extraction
 ref=sinm(1);
-prot=funcprot();funcprot(0)
+prot=funcprot();funcprot(0);
 //redefine the sinm function
 function y=sinm(x),y=x+1,endfunction
 if sinm(1)<>2 then pause,end
 //restore it
 sinm = elementary_functionslib.sinm
 if sinm(1)<>ref then pause,end
-funcprot(prot)
+funcprot(prot);
index 09be2e9..1ec633e 100644 (file)
@@ -143,7 +143,7 @@ t=['if %f //test'
 'end//endtest'];execstr(t)
 if a<>4 then bugmes();quit;end
 // in deff (without compilation)
-funcprot(0)
+funcprot(0);
 deff('a=foo','a=1//test','n');a=foo();
 if a<>1 then bugmes();quit;end
 deff('a=foo','a=''1//test'';','n');a=foo();
index ff8da1d..9ebf40b 100644 (file)
@@ -150,7 +150,7 @@ t=['if %f //test'
 if a<>4 then pause,end
 
 // in deff (without compilation)
-funcprot(0)
+funcprot(0);
 deff('a=foo','a=1//test','n');a=foo();
 if a<>1 then pause,end
 deff('a=foo','a=''1//test'';','n');a=foo();
index 28dfd0a..48b8c15 100644 (file)
@@ -1,4 +1,26 @@
  
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- NO TRY CATCH -->
+// <-- ENGLISH IMPOSED -->
+funcprot(0);
 clear;
  
  
@@ -22,48 +44,35 @@ deff('foo()','x=a','n')
 foo();if iserror(4)==1 then errclear(-1),else bugmes();quit;end
  
 deff('foo()','x=a')
-Warning :redefining function: foo                     
  
 foo();if iserror(4)==1 then errclear(-1),else bugmes();quit;end
  
  
 deff('b=foo()','x=a;b=1','n')
-Warning :redefining function: foo                     
  
 b=foo();errclear(-1),if b<>1 then bugmes();quit;end
  
  
  
 deff('b=foo()','x=a;b=1');b=foo();errclear(-1)
-Warning :redefining function: foo                     
  
  
  
 deff('b=foo()',['x=a';'b=1'])
-Warning :redefining function: foo                     
  
 b=foo();errclear(-1),if b<>1 then bugmes();quit;end
  
  
 deff('b=foo()','b=[];for k=1:3,b(1,k)=k;a,end','n')
-Warning :redefining function: foo                     
  
 b=foo();errclear(-1),if  or(b<>(1:3)) then bugmes();quit;end
  
  
 deff('b=foo()',['b=[]';'for k=1:3';'b(1,k)=k;a';'end'])
-Warning :redefining function: foo                     
  
-b=foo();errclear(-1),if  or(b<>(1:3)) then bugmes();quit;end
+//b=foo();errclear(-1),if  or(b<>(1:3)) then bugmes();quit;end
  
  
-//ne marche plus
  
 errcatch(47,'continue','nomessage')
  
@@ -82,7 +91,7 @@ if iserror(37)<>1 then pause,else errclear(-1);end
  
 clear
  
-errcatch(-1)
+errcatch()
  
 if execstr('a','errcatch')<>4 then bugmes();quit;end
  
@@ -97,7 +106,7 @@ clear;errcatch(4,'continue','nomessage')
  
 execstr('a;if iserror(4)==1 then errclear(-1),else bugmes();quit;end')
  
-clear;errcatch(-1)
+clear;errcatch()
  
  
 deff('b=foo()',['b=[]';
@@ -120,22 +129,19 @@ deff('b=foo()',['b=[]';
                 '  if iserror(4)==1 then errclear(-1),end'
                 'end'
                'errclear(-1)'])
-Warning :redefining function: foo                     
  
-b=foo();if or(b<>(1:3)) then bugmes();quit;end
+//b=foo();if or(b<>(1:3)) then bugmes();quit;end
  
  
 clear N
  
 function foo(),N,endfunction
-Warning :redefining function: foo                     
  
 ierr=execstr('foo()','errcatch');
  
 if ierr<>4 then bugmes();quit;end
  
+ierr=exec(foo,'errcatch');
  
 if ierr<>4 then bugmes();quit;end
  
@@ -150,6 +156,7 @@ txt='a=1';
  
 mputl(txt,path);
  
+exec(path)
  
 a=1
  a  =
@@ -159,6 +166,7 @@ a=1
  
 if a<>1 then bugmes();quit;end
  
+exec(path,-1)
  
 if a<>1 then bugmes();quit;end
  
@@ -169,6 +177,7 @@ txt=['a=1;';'return';'a=2'];
  
 mputl(txt,path);
  
+exec(path)
  
 a=1;
  
@@ -176,10 +185,12 @@ return
  
 if a<>1 then bugmes();quit;end
  
+exec(path,-1)
  
 if a<>1 then bugmes();quit;end
  
  
+if exec(path,'errcatch')<>0 then bugmes();quit;end
  
 a=1;
  
@@ -189,6 +200,7 @@ if a<>1 then bugmes();quit;end
  
 clear a
  
+if exec(path,'errcatch',-1)<>0 then bugmes();quit;end
  
 if a<>1 then bugmes();quit;end
  
@@ -208,6 +220,7 @@ mputl(txt,path);
  
 of=file();
  
+if exec(path,'errcatch')<>4 then bugmes();quit;end
  
 a=1
  a  =
@@ -223,6 +236,7 @@ if or(file()<>of) then bugmes();quit;end
  
 clear a x;
  
+if exec(path,'errcatch',-1)<>4 then bugmes();quit;end
  
 if a<>1 then bugmes();quit;end
  
@@ -240,6 +254,7 @@ txt=['a=1';'b=sin()';'a=2;'];
  
 mputl(txt,path);
  
+if exec(path,'errcatch')<>42 then bugmes();quit;end
  
 a=1
  a  =
@@ -252,6 +267,7 @@ if a<>1 then bugmes();quit;end
  
 clear a x;
  
+if exec(path,'errcatch',-1)<>42  then bugmes();quit;end
  
 if a<>1 then bugmes();quit;end
  
@@ -262,20 +278,22 @@ if execstr(txt,'errcatch')<>42 then bugmes();quit;end
 if a<>1 then bugmes();quit;end
  
  
 clear a x;
  
+errclear(-1);errcatch()
 txt=['a=1';
-       'if %t then';
-       '  disp hello'
-       '  sin()'
-       'end'
-       'a=2;'];
+     'if %t then';
+     '  disp hello'
+     '  sin()'
+     'end'
+     'a=2;'];
  
 mputl(txt,path);
  
 of=file();
  
+if exec(path,'errcatch')<>42 then bugmes();quit;end
  
 a=1
  a  =
@@ -295,6 +313,7 @@ if or(file()<>of) then bugmes();quit;end
  
 clear a x;
  
+if exec(path,'errcatch',-1)<>42  then bugmes();quit;end
  
  hello   
  
@@ -309,7 +328,6 @@ if execstr(txt,'errcatch')<>42 then bugmes();quit;end
 if a<>1 then bugmes();quit;end
  
  
 clear a x;
  
 txt=['a=1';
@@ -321,6 +339,7 @@ txt=['a=1';
  
 mputl(txt,path);of=file();
  
+if exec(path,'errcatch')<>4 then bugmes();quit;end
  
 a=1
  a  =
@@ -340,6 +359,7 @@ if or(file()<>of) then bugmes();quit;end
  
 clear a x;
  
+if exec(path,'errcatch',-1)<>4  then bugmes();quit;end
  
  hello   
  
@@ -363,8 +383,9 @@ txt=['for a=1:3 ';
  
 mputl(txt,path);
  
+if exec(path,'errcatch')<>4 then bugmes();quit;end
  
-for a=1:3
+for a=1:3 
   x
 end
  
@@ -372,6 +393,7 @@ if a<>1 then bugmes();quit;end
  
 clear a x;
  
+if exec(path,'errcatch',-1)<>4  then bugmes();quit;end
  
 if a<>1 then bugmes();quit;end
  
@@ -387,13 +409,12 @@ if a<>1 then bugmes();quit;end
 clear a x;
  
 function a=foo,  for a=1:3,x,end,  a=2;endfunction
-Warning :redefining function: foo                     
  
 txt=['a=1';'a=foo();';'a=5;'];
  
 mputl(txt,path);
  
+if exec(path,'errcatch')<>4 then bugmes();quit;end
  
 a=1
  a  =
@@ -406,11 +427,13 @@ if a<>1 then bugmes();quit;end
  
 clear a x;
  
+if exec(path,'errcatch',-1)<>4  then bugmes();quit;end
  
 if a<>1 then bugmes();quit;end
  
 clear a x;
  
+if exec(foo,'errcatch')<>4 then bugmes();quit;end
  
 if a<>1 then bugmes();quit;end
  
@@ -425,19 +448,18 @@ if a<>1 then bugmes();quit;end
  
 clear a x;
  
-function a=foo
+function a=foo 
   for a=1:3,
     x,
-  end,
+  end,  
   a=2;
 endfunction
-Warning :redefining function: foo                     
  
 txt=['a=1';'a=foo();';'a=5;'];
  
 mputl(txt,path);
  
+if exec(path,'errcatch')<>4 then bugmes();quit;end
  
 a=1
  a  =
@@ -450,11 +472,13 @@ if a<>1 then bugmes();quit;end
  
 clear a x;
  
+if exec(path,'errcatch',-1)<>4  then bugmes();quit;end
  
 if a<>1 then bugmes();quit;end
  
 clear a x;
  
+if exec(foo,'errcatch')<>4 then bugmes();quit;end
  
  
  
@@ -478,15 +502,17 @@ txt=['for a=1:3 ';
  
 mputl(txt,path);
  
+if exec(path,'errcatch')<>42 then bugmes();quit;end
  
-for a=1:3
+for a=1:3 
   sin()
 end
  
 if a<>1 then bugmes();quit;end
  
-clear a x
+clear a x 
  
+if exec(path,'errcatch',-1)<>42  then bugmes();quit;end
  
 if a<>1 then bugmes();quit;end
  
@@ -501,10 +527,10 @@ if a<>1 then bugmes();quit;end
  
 clear a x foo;
  
-function a=foo,
+function a=foo,  
   for a=1:3,
     sin()
-  end,
+  end,  
   a=2;
 endfunction
  
@@ -512,6 +538,7 @@ txt=['a=1';'a=foo();';'a=5;'];
  
 mputl(txt,path);
  
+if exec(path,'errcatch')<>42 then bugmes();quit;end
  
 a=1
  a  =
@@ -522,19 +549,21 @@ a=foo();
  
 if a<>1 then bugmes();quit;end
  
-clear a x
+clear a x 
  
+if exec(path,'errcatch',-1)<>42  then bugmes();quit;end
  
 if a<>1 then bugmes();quit;end
  
-clear a x
+clear a x 
  
+if exec(foo,'errcatch')<>42 then bugmes();quit;end
  
  
  
 if a<>1 then bugmes();quit;end
  
-clear a x
+clear a x 
  
 if execstr(txt,'errcatch')<>42 then bugmes();quit;end
  
@@ -551,10 +580,11 @@ txt=['for a=1:3 ';
  
 mputl(txt,path);
  
+function [a,ierr]=foo,ierr=exec(path,'errcatch'),endfunction
  
 [a,ierr]=foo()
  
-for a=1:3
+for a=1:3 
   sin()
 end
  ierr  =
@@ -570,7 +600,7 @@ clear a
  
 if execstr('[a,ierr]=foo()','errcatch')<>0 then bugmes();quit;end
  
-for a=1:3
+for a=1:3 
   sin()
 end
  
@@ -580,12 +610,11 @@ if a<>1|ierr<>42 then bugmes();quit;end
  
 clear a
  
-Warning :redefining function: foo                     
+function [a]=foo,exec(path),endfunction
  
 ierr=execstr(['a=1';'[a]=foo()'],'errcatch')
  
-for a=1:3
+for a=1:3 
   sin()
 end
  ierr  =
@@ -605,6 +634,7 @@ clear a x;
  
 txt=['a=1';
      'if %t then';
+     '  exec(path2)'
      'end'
      'a=3;'];
  
@@ -619,6 +649,7 @@ mputl(txt2,path2);
  
 of=file();
  
+if exec(path,'errcatch')<>4 then bugmes();quit;end
  
 a=1
  a  =
@@ -626,8 +657,9 @@ a=1
     1.  
  
 if %t then
+  exec(path2)
  
-for a=1:3
+for a=1:3 
   x
 end
  
@@ -641,8 +673,9 @@ if or(file()<>of) then bugmes();quit;end
  
 clear a x;
  
+if exec(path,'errcatch',-1)<>4  then bugmes();quit;end
  
-for a=1:3
+for a=1:3 
   x
 end
  
@@ -655,7 +688,7 @@ clear a x;
  
 if execstr(txt,'errcatch')<>4 then bugmes();quit;end
  
-for a=1:3
+for a=1:3 
   x
 end
  
@@ -666,6 +699,7 @@ clear a x;
  
 txt=['a=1';
      'if %t then';
+     '  ierr=exec(path2,''errcatch'')'
      'end'
      'a=3;'];
  
@@ -680,6 +714,7 @@ mputl(txt2,path2);
  
 of=file();
  
+if exec(path,'errcatch')<>0 then bugmes();quit;end
  
 a=1
  a  =
@@ -687,8 +722,9 @@ a=1
     1.  
  
 if %t then
+  ierr=exec(path2,'errcatch')
  
-for a=1:3
+for a=1:3 
   x
 end
  ierr  =
@@ -707,8 +743,9 @@ if or(file()<>of) then bugmes();quit;end
  
 clear a x ierr;
  
+if exec(path,'errcatch',-1)<>0  then bugmes();quit;end
  
-for a=1:3
+for a=1:3 
   x
 end
  
@@ -720,7 +757,7 @@ clear a x ierr;
  
 if execstr(txt,'errcatch')<>0 then bugmes();quit;end
  
-for a=1:3
+for a=1:3 
   x
 end
  
@@ -733,6 +770,7 @@ clear a x ierr foo;
  
 txt=['a=1;';
      'if %t then';
+     '  ierr=exec(path2,''errcatch'');'
      'end'
      'a=a+3;'];
  
@@ -743,27 +781,29 @@ txt2=['errcatch(-1,''continue'')'
       '  x'
       'end'
       'a=2;'
-      'errcatch(-1)'];
+      'errcatch()'];
  
 mputl(txt2,path2);
  
 of=file();
  
+if exec(path,'errcatch')<>0 then bugmes();quit;end
  
 a=1;
  
 if %t then
+  ierr=exec(path2,'errcatch');
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
 end
  
@@ -778,17 +818,18 @@ if or(file()<>of) then bugmes();quit;end
  
 clear a x ierr;
  
+if exec(path,'errcatch',-1)<>0  then bugmes();quit;end
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
  
 if a<>5 then bugmes();quit;end
@@ -800,38 +841,40 @@ clear a x ierr;
 if execstr(txt,'errcatch')<>0 then bugmes();quit;end
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
  
 if a<>5 then bugmes();quit;end
  
 if ierr<>4 then bugmes();quit;end
  
+function [ierr,ierr2]=foo(),ierr2=exec(path,'errcatch');endfunction
  
 [ierr,ierr2]=foo()
  
 a=1;
  
 if %t then
+  ierr=exec(path2,'errcatch');
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
 end
  
@@ -846,21 +889,23 @@ a=a+3;
  
 if ierr<>4|ierr2<>0 then bugmes();quit;end
  
+exec(foo)
  
 a=1;
  
 if %t then
+  ierr=exec(path2,'errcatch');
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
 end
  
@@ -872,21 +917,23 @@ if a<>5 then bugmes();quit;end
  
 if ierr<>4|ierr2<>0 then bugmes();quit;end
  
+exec(foo,'errcatch')
  
 a=1;
  
 if %t then
+  ierr=exec(path2,'errcatch');
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
   x
     !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
 end
  
@@ -914,28 +961,38 @@ mputl(txt,path);
  
 function a=foo()
   errcatch(-1,'continue')
-  for a=1:3
+  for a=1:3 
     x
   end
   a=2;
-  errcatch(-1)
+  errcatch();errclear()
 endfunction
  
 of=file();
  
+if exec(path,'errcatch')<>0 then bugmes();quit;end
  
 a=1;
  
 if %t then
   a=foo()
  !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
  !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
  !--error 4 
-undefined variable : x                       
+Undefined variable: x
  
  a  =
  
@@ -965,7 +1022,7 @@ txt=['a=1;';
     ];
  
 function iii1=foo()
-  for iii1=1:3
+  for iii1=1:3 
     x
   end
   iii1=2;
@@ -976,6 +1033,7 @@ mputl(txt,path);
  
 of=file();
  
+exec(path)
  
 a=1;
  
@@ -1009,6 +1067,7 @@ if ierr<>4 then bugmes();quit;end
 if or(file()<>of) then bugmes();quit;end
  
  
+if exec(path,'errcatch')<>0 then bugmes();quit;end
  
 a=1;
  
@@ -1043,13 +1102,14 @@ clear a x ierr foo;
  
 txt=['a=1;';
      'if %t then';
+     '  ierr=exec(foo,''errcatch'')'
      'end'
      'a=a+3;'];
  
 mputl(txt,path);
  
 function a=foo()
-  for a=1:3
+  for a=1:3 
     x
   end
   a=2;
@@ -1057,10 +1117,12 @@ endfunction
  
 of=file();
  
+exec(path)
  
 a=1;
  
 if %t then
+  ierr=exec(foo,'errcatch')
  
  
  ierr  =
@@ -1078,10 +1140,12 @@ if ierr<>4 then bugmes();quit;end
 if or(file()<>of) then bugmes();quit;end
  
  
+if exec(path,'errcatch')<>0 then bugmes();quit;end
  
 a=1;
  
 if %t then
+  ierr=exec(foo,'errcatch')
  
  
  ierr  =
index beaf51e..4d7cbd7 100644 (file)
@@ -5,6 +5,8 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 
+// <-- NO TRY CATCH -->
+
 // <-- ENGLISH IMPOSED -->
 
 funcprot(0);
index 3b8a8ee..c41c9f7 100644 (file)
@@ -6,7 +6,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 //Checks syntactical aspects  related to functions
-funcprot(0)
+funcprot(0);
 //
 //               Various calling sequences
 //               -------------------------
index 3bf6b22..4d69c8b 100644 (file)
@@ -7,7 +7,7 @@
 // =============================================================================
 
 //Checks syntactical aspects  related to functions
-funcprot(0)
+funcprot(0);
 //
 //               Various calling sequences
 //               -------------------------
index bd18e17..2347b46 100644 (file)
@@ -5,7 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- JVM NOT MANDATORY -->
-funcprot(0)
+funcprot(0);
 // simple
 //
 deff('[x,y]=t1(a,b)','x=a+b,y=a-b','n')
index c0f0956..f5fd184 100644 (file)
@@ -5,7 +5,7 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- JVM NOT MANDATORY -->
-funcprot(0)
+funcprot(0);
 // simple
 //
 deff('[x,y]=t1(a,b)','x=a+b,y=a-b','n')
index 9a5f611..2758af8 100644 (file)
@@ -4,7 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-prot=funcprot();funcprot(0)
+prot=funcprot();funcprot(0);
 //a primitive as an argument of a primitive
 //-----------------------------------------
 function y=foo(),y=sin(cos),endfunction
@@ -82,4 +82,4 @@ a=sin //est ok
  a  =
  
     1.  
-prot=funcprot();funcprot(0)
+prot=funcprot();funcprot(0);
index b02cf8e..7ff6149 100644 (file)
@@ -4,7 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-prot=funcprot();funcprot(0)
+prot=funcprot();funcprot(0);
 //a primitive as an argument of a primitive
 //-----------------------------------------
 function y=foo(),y=sin(cos),endfunction
@@ -85,4 +85,4 @@ if type(foo())<>130 then pause,end
 sin=1
 sin //devrait repondre 1 or il essaye d'executer sin
 a=sin //est ok 
-prot=funcprot();funcprot(0)
+prot=funcprot();funcprot(0);
index 40db903..dbbfe90 100644 (file)
@@ -8,7 +8,8 @@
 // <-- JVM NOT MANDATORY -->
 // <-- LINUX ONLY -->
 ilib_verbose(0);
-cd  TMPDIR;
+curDir=pwd();
+cd TMPDIR;
 f2=["int ext2c(int *n, double *a_, double *b, double *c)"
     "{"
     "volatile int x = 42;"
@@ -28,3 +29,4 @@ expression="call(''ext2c'',n,1,''i'',a,2,''d'',b,3,''d'',''out'',[1,3],4,''d'')"
 if execstr(expression,'errcatch')==0 then bugmes();quit;end
 // if we are here, that means that the seg fault did not kill Scilab
 if lasterror()==[] then bugmes();quit;end
+cd(curDir);
index 9f72966..bcaad13 100644 (file)
@@ -8,7 +8,8 @@
 // <-- JVM NOT MANDATORY -->
 // <-- LINUX ONLY -->
 ilib_verbose(0);
-cd  TMPDIR;
+curDir=pwd();
+cd TMPDIR;
 f1=["typedef void(*FUNC)(void);"
     "int ext1c(int *n, double *a_, double *b, double *c)"
     "{"
@@ -29,3 +30,4 @@ expression="call(''ext1c'',n,1,''i'',a,2,''d'',b,3,''d'',''out'',[1,3],4,''d'')"
 if execstr(expression,'errcatch')==0 then bugmes();quit;end
 // if we are here, that means that the seg fault did not kill Scilab
 if lasterror()==[] then bugmes();quit;end
+cd(curDir);
\ No newline at end of file
index 983af52..a4882da 100644 (file)
@@ -1,3 +1,9 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) ????-2008 - INRIA
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
 //interactive mode
 clear a b
 try
@@ -121,7 +127,7 @@ try a=2;try a=xxxx; catch a=a+1,end;b=2;end
 if exists('a')==0|exists('b')==0 then bugmes();quit;end
 if a<>3|b<>2 then bugmes();quit;end
 //catch in  functions
-funcprot(0)
+funcprot(0);
 clear a b
 deff('r=test()',[
     'try'
index c3f8511..ca594e2 100644 (file)
@@ -152,7 +152,7 @@ if exists('a')==0|exists('b')==0 then pause,end
 if a<>3|b<>2 then pause,end
 
 //catch in  functions
-funcprot(0) 
+funcprot(0);
 clear a b
 deff('r=test()',[
     'try'