update ref
Allan CORNET [Wed, 14 Jan 2009 14:27:33 +0000 (15:27 +0100)]
scilab/modules/core/tests/nonreg_tests/bug_2072.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_2072.tst
scilab/modules/core/tests/nonreg_tests/bug_2618.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_2618.tst
scilab/modules/core/tests/nonreg_tests/bug_3646.win.dia.ref
scilab/modules/core/tests/unit_tests/comment.dia.ref
scilab/modules/core/tests/unit_tests/comment.tst
scilab/modules/core/tests/unit_tests/macro.dia.ref
scilab/modules/core/tests/unit_tests/macro.tst

index 96fc9da..a7ed441 100644 (file)
@@ -11,6 +11,7 @@
 //
 // <-- Short Description -->
 //   incorrect clause uncorrectly handled under errcatch
+// <-- JVM NOT MANDATORY -->
 mkdir(TMPDIR,'b2072');
 txt=['function test()'
      'if 1 ~=1 then'
@@ -37,7 +38,7 @@ txt=['function test()'
 !end              !
 !                 !
 !endfunction      !
-mputl(txt,TMPDIR+'/b2072/test.sci')
+mputl(txt,TMPDIR+'/b2072/test.sci');
 txt=['function testOK()'
      'a=3;'
      '   end'
@@ -51,4 +52,4 @@ txt=['function testOK()'
 !   end             !
 !                   !
 !endfunction        !
-mputl(txt,TMPDIR+'/b2072/testOK.sci')
+mputl(txt,TMPDIR+'/b2072/testOK.sci');
index c819f28..05daa4a 100644 (file)
@@ -12,6 +12,9 @@
 //
 // <-- Short Description -->
 //   incorrect clause uncorrectly handled under errcatch
+
+// <-- JVM NOT MANDATORY -->
+
 mkdir(TMPDIR,'b2072');
 
 txt=['function test()'
@@ -22,12 +25,12 @@ txt=['function test()'
      '   a=7;'
      'end'
      'endfunction']
-mputl(txt,TMPDIR+'/b2072/test.sci')
+mputl(txt,TMPDIR+'/b2072/test.sci');
 txt=['function testOK()'
      'a=3;'
      '   end'
      'endfunction   ']
-mputl(txt,TMPDIR+'/b2072/testOK.sci')
+mputl(txt,TMPDIR+'/b2072/testOK.sci');
 
 if execstr('exec(TMPDIR+''/b2072/test.sci'');','errcatch')<>34 then pause,end
 if execstr('exec(TMPDIR+''/b2072/testOK.sci'');','errcatch')<>34 then pause,end
index 69399fb..ebdf752 100644 (file)
@@ -144,7 +144,7 @@ if ~r then bugmes();quit;end
 if n<>4 then bugmes();quit;end
 //catched error in a exec in a try in a compiled function
 clear  foo
-mputl('r=a*z',TMPDIR+'/ev')
+mputl('r=a*z',TMPDIR+'/ev');
 function r=foo()
 r=%f;a=1;
 try
index cd461b1..5789c00 100644 (file)
@@ -159,7 +159,7 @@ if n<>4 then pause,end
 
 //catched error in a exec in a try in a compiled function
 clear  foo
-mputl('r=a*z',TMPDIR+'/ev')
+mputl('r=a*z',TMPDIR+'/ev');
 function r=foo()
 r=%f;a=1;
 try
index 3c8f5f5..b44a3c4 100644 (file)
@@ -13,8 +13,8 @@
 // Scilab 5.0.2 does not start after installation
 if MSDOS then
   cd(TMPDIR);
-  mkdir('LukᚠBùôl');
-  path_directory = cd('LukᚠBùôl');
+  mkdir('Lukáš Bùôl');
+  path_directory = cd('Lukáš Bùôl');
   // backup previous SCIHOME
   prv_SCIHOME = getenv('SCIHOME');
   prv_APPDATA = getenv('APPDATA');
index 80df323..06ad429 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.
+// =============================================================================
 //for version after 3.0 the comments are no more handled by a preprocessor,
 //but by the parser itself
 a=1//test
@@ -225,7 +231,7 @@ t=['function a=foo'
   '    a=a+k; //hhhhh'
   '  end //loop end'
   'endfunction'];
-mputl(t,TMPDIR+'/foo.sci')
+mputl(t,TMPDIR+'/foo.sci');
 getf(TMPDIR+'/foo.sci','n')
 a=foo();
 if a<>15 then bugmes();quit;end
@@ -246,7 +252,7 @@ t=['//sdffgfgfgggg'
    '    a=a+k; //hhhhh'
    '  end //loop end'
    'endfunction'];
-mputl(t,TMPDIR+'/foo.sci')
+mputl(t,TMPDIR+'/foo.sci');
 getf(TMPDIR+'/foo.sci','n')
 a=foo();
 if a<>15 then bugmes();quit;end
index f48e202..41787aa 100644 (file)
@@ -249,7 +249,7 @@ t=['function a=foo'
   '  end //loop end'
   'endfunction'];
 
-mputl(t,TMPDIR+'/foo.sci')
+mputl(t,TMPDIR+'/foo.sci');
 getf(TMPDIR+'/foo.sci','n')
 a=foo();
 if a<>15 then pause,end
@@ -272,7 +272,7 @@ t=['//sdffgfgfgggg'
    '  end //loop end'
    'endfunction'];
 
-mputl(t,TMPDIR+'/foo.sci')
+mputl(t,TMPDIR+'/foo.sci');
 getf(TMPDIR+'/foo.sci','n')
 a=foo();
 if a<>15 then pause,end
index e2cad3f..94da73f 100644 (file)
@@ -4,6 +4,8 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+// <-- JVM NOT MANDATORY -->
+funcprot(0)
 // simple
 //
 deff('[x,y]=t1(a,b)','x=a+b,y=a-b','n')
@@ -113,8 +115,6 @@ text = ['if n>0 then x=1'
                     'end'];
 deff('[x]=b(a)','x=a,prod([1 1])','n')
 deff('[x,y]=t5(n)',text,'n')
-Warning : redefining function: t5                      . Use funcprot(0) to avoid this message
-
 [u,v]=t5(5);
 if u<>'pos' then bugmes();quit;end
 if v<>15 then bugmes();quit;end
@@ -189,8 +189,6 @@ if u<>'neg' then bugmes();quit;end
 if exists('tt')==1 then bugmes();quit;end
 //more complex
 deff('[x]=b(a)','if a==1 then x=1,else x=a,prod([1 1]),end','n')
-Warning : redefining function: b                       . Use funcprot(0) to avoid this message
-
 //
 deff('[x,y]=t5(n)',text,'n')
 [u,v]=t5(5);
@@ -331,8 +329,6 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 //
 text(2)='y=ode(a*(k-1),k-1,k,list(simul,a)),';
 deff('[x]=calcul(n)',text,'n')
-Warning : redefining function: calcul                  . Use funcprot(0) to avoid this message
-
 deff('[ydot]=simul(t,y,a)','ydot=a','n')
 x=[];
 x=calcul(3);
@@ -349,16 +345,12 @@ x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 //resume in external
 deff('[ydot]=simul(t,y,a)','ydot=a,tt=resume([tt,t])','n')
-Warning : redefining function: simul                   . Use funcprot(0) to avoid this message
-
 tt=[]
  tt  =
  
      []
 deff('[x]=calcul(n)',text,'n')
 deff('[ydot]=simul(t,y,a)','ydot=a','n')
-Warning : redefining function: simul                   . Use funcprot(0) to avoid this message
-
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -376,19 +368,13 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 //external calls a macro
 //
 deff('[x]=b(a)','if a==1 then x=a,prod([1 1]),else x=a,prod([1 1]),end','n')
-Warning : redefining function: b                       . Use funcprot(0) to avoid this message
-
 text=['for k=1:n,'
      'y=ode(a*(k-1),k-1,k,simul),'
      'x=[x,y],'
      'end'];
 //
 deff('[x]=calcul(n)',text,'n')
-Warning : redefining function: calcul                  . Use funcprot(0) to avoid this message
-
 deff('[ydot]=simul(t,y,a)','ydot=b(a)','n')
-Warning : redefining function: simul                   . Use funcprot(0) to avoid this message
-
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -405,8 +391,6 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 //
 text(2)='y=ode(a*(k-1),k-1,k,list(simul,a)),';
 deff('[x]=calcul(n)',text,'n')
-Warning : redefining function: calcul                  . Use funcprot(0) to avoid this message
-
 deff('[ydot]=simul(t,y,a)','ydot=b(a)','n')
 x=[];
 x=calcul(3);
@@ -423,16 +407,12 @@ x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 //
 deff('[ydot]=simul(t,y,a)','ydot=b(a),tt=resume([tt,t])','n')
-Warning : redefining function: simul                   . Use funcprot(0) to avoid this message
-
 tt=[]
  tt  =
  
      []
 deff('[x]=calcul(n)',text,'n')
 deff('[ydot]=simul(t,y,a)','ydot=b(a)','n')
-Warning : redefining function: simul                   . Use funcprot(0) to avoid this message
-
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -452,8 +432,6 @@ text=['for k=1:n,'
      'end'];
 //
 deff('[x]=calcul(n)',text,'n')
-Warning : redefining function: calcul                  . Use funcprot(0) to avoid this message
-
 deff('[ydot]=simul(t,y,a)','ydot=b(a)','n')
 x=[];
 x=calcul(3);
@@ -471,8 +449,6 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 //
 text(2)='y=ode(a*(k-1),k-1,k,list(simul,a)),';
 deff('[x]=calcul(n)',text,'n')
-Warning : redefining function: calcul                  . Use funcprot(0) to avoid this message
-
 deff('[ydot]=simul(t,y,a)','ydot=b(a)','n')
 x=[];
 x=calcul(3);
@@ -489,16 +465,12 @@ x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 //
 deff('[ydot]=simul(t,y,a)','ydot=b(a),tt=resume([tt,t])','n')
-Warning : redefining function: simul                   . Use funcprot(0) to avoid this message
-
 tt=[]
  tt  =
  
      []
 deff('[x]=calcul(n)',text,'n')
 deff('[ydot]=simul(t,y,a)','ydot=b(a)','n')
-Warning : redefining function: simul                   . Use funcprot(0) to avoid this message
-
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -547,15 +519,11 @@ deff('[r]=horner(p,x)',['if type(p)==15|type(p)==16 then';
                         'for k=1:d,';
                           'r=r*x+coeff(p,d-k)*eye();';
                         'end;'],'n')
-Warning : redefining function: horner                  . Use funcprot(0) to avoid this message
-
 deff('[f]=%p_r_p(p1,p2)',['[l,c]=size(p2);';
                         'if l*c <>1 then f=p1*invr(p2),return,end;';
                         '[l,c]=size(p1);';
                         '[p1 p2]=simp(p1,p2*ones(l,c));';
                         'f=tlist([''r'',''num'',''den'',''dt''],p1,p2,[]);'],'n')
-Warning : redefining function: %p_r_p                  . Use funcprot(0) to avoid this message
-
 horn=horner;
 h=1/s;
 if cplist(h,tlist(['r','num','den','dt'],1,s,[]))==0 then bugmes();quit;end
@@ -585,9 +553,8 @@ fic=file('open',TMPDIR+"/test_macro_exec",'unknown');
 write(fic,text)
 file('close',fic)
 deff('[x]=b(a)','x=a,prod([1 1])','n')
-Warning : redefining function: b                       . Use funcprot(0) to avoid this message
-
 y=t9(2)
  aa=1,if a==2 then aa=b(a),end
  aa  =
  
@@ -595,12 +562,14 @@ y=t9(2)
  aa  =
  
     2.  
  y  =
  
     2.  
 if y<>2 then bugmes();quit;end
 file('rewind',fic)
 y=t9(2)
  aa=1,if a==2 then aa=b(a),end
  aa  =
  
@@ -608,12 +577,14 @@ y=t9(2)
  aa  =
  
     2.  
  y  =
  
     2.  
 if y<>2 then bugmes();quit;end
 //
 y=t9(2)
  aa=1,if a==2 then aa=b(a),end
  aa  =
  
@@ -621,11 +592,13 @@ y=t9(2)
  aa  =
  
     2.  
  y  =
  
     2.  
 if y<>2 then bugmes();quit;end
 y=t9(2)
  aa=1,if a==2 then aa=b(a),end
  aa  =
  
@@ -633,6 +606,7 @@ y=t9(2)
  aa  =
  
     2.  
  y  =
  
     2.  
index 8813759..1fc4642 100644 (file)
@@ -4,7 +4,8 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-
+// <-- JVM NOT MANDATORY -->
+funcprot(0)
 // simple
 //
 deff('[x,y]=t1(a,b)','x=a+b,y=a-b','n')