[deff] third input argument removed. 46/17746/6
Cedric Delamarre [Fri, 29 Jan 2016 09:01:45 +0000 (10:01 +0100)]
Change-Id: I7f5334b3820c4061107a02a726abf2af5e00b0b4

46 files changed:
scilab/CHANGES_6.0.X
scilab/modules/console/tests/nonreg_tests/bug_3996.tst
scilab/modules/core/tests/nonreg_tests/bug_1041.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_1041.tst
scilab/modules/core/tests/nonreg_tests/bug_1384.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_1384.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_3490i.tst
scilab/modules/core/tests/nonreg_tests/bug_3980.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_3980.tst
scilab/modules/core/tests/unit_tests/clause.dia.ref
scilab/modules/core/tests/unit_tests/clause.tst
scilab/modules/core/tests/unit_tests/comand.dia.ref
scilab/modules/core/tests/unit_tests/comand.tst
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
scilab/modules/core/tests/unit_tests/parse.dia.ref
scilab/modules/core/tests/unit_tests/parse.tst
scilab/modules/core/tests/unit_tests/resume.dia.ref
scilab/modules/core/tests/unit_tests/resume.tst
scilab/modules/data_structures/help/en_US/type.xml
scilab/modules/data_structures/help/fr_FR/type.xml
scilab/modules/data_structures/help/ru_RU/type.xml
scilab/modules/functions/help/en_US/deff.xml
scilab/modules/functions/help/ja_JP/deff.xml
scilab/modules/functions/help/pt_BR/deff.xml
scilab/modules/functions/help/ru_RU/deff.xml
scilab/modules/functions/macros/deff.sci
scilab/modules/functions/tests/nonreg_tests/bug_1469.dia.ref
scilab/modules/functions/tests/nonreg_tests/bug_1469.tst
scilab/modules/functions/tests/nonreg_tests/bug_2509.dia.ref
scilab/modules/functions/tests/nonreg_tests/bug_2509.tst
scilab/modules/io/tests/unit_tests/saveload.dia.ref
scilab/modules/io/tests/unit_tests/saveload.tst
scilab/modules/m2sci/macros/kernel/lst_funcall.sci
scilab/modules/m2sci/macros/mfile2sci.sci
scilab/modules/scicos/macros/scicos_scicos/genfunc1.sci
scilab/modules/scicos/macros/scicos_scicos/genfunc2.sci
scilab/modules/scicos/macros/scicos_scicos/standard_draw.sci
scilab/modules/string/tests/nonreg_tests/bug_7249.dia.ref
scilab/modules/string/tests/nonreg_tests/bug_7249.tst
scilab/modules/string/tests/unit_tests/string.dia.ref
scilab/modules/string/tests/unit_tests/string.tst

index 3b14eb8..70332c1 100644 (file)
@@ -121,6 +121,8 @@ Other feature changes
 * The floating point exception mode (ieee) is now set to 2 by default: floating point exceptions now produce "Inf" or "Nan",
   and do not cause any error. The previous behavior can be recalled by simply calling: ieee(0)
 
+ * The third argument of deff function has been removed, because there is no longer a distinction between compiled/non-compiled function in scilab 6 and the profiling is managed otherwise.
+
 API modification
 ================
 
index ba0c1c2..3b6638f 100644 (file)
@@ -15,9 +15,8 @@
 
 // <-- INTERACTIVE TEST -->
 
-deff('foo','a=aaaa','n')
+deff('foo','a=aaaa')
 try
   foo();
   l=0  ;//here there is a tabulation between 0 and ;
 end
-          
\ No newline at end of file
index b7f4d1c..bbbc8fe 100644 (file)
@@ -25,7 +25,7 @@ ierr=execstr(txt,'errcatch');
 if ierr==0 then bugmes();quit;end
 [str,n,l,func]=lasterror(%t);
 if l<>5 then bugmes();quit;end
-deff('foo',txt,'n');
+deff('foo',txt);
 ierr=execstr('foo()','errcatch');
 if ierr==0 then bugmes();quit;end
 [str,n,l,func]=lasterror(%t);
@@ -43,7 +43,7 @@ if ierr==0 then bugmes();quit;end
 [str,n,l,func]=lasterror(%t);
 if l<>6 then bugmes();quit;end
 clear foo foo1
-deff('foo',t1,'n');
+deff('foo',t1);
 ierr=execstr('foo()','errcatch');
 if ierr==0 then bugmes();quit;end
 [str,n,l,func]=lasterror(%t);
@@ -54,7 +54,7 @@ if ierr==0 then bugmes();quit;end
 [str,n,l,func]=lasterror(%t);
 if l<>7 then bugmes();quit;end
 clear foo foo1
-deff('foo','execstr(txt)','n');
+deff('foo','execstr(txt)');
 ierr=execstr('foo()','errcatch');
 if ierr==0 then bugmes();quit;end
 [str,n,l,func]=lasterror(%t);
index 947a62e..7619cbe 100644 (file)
@@ -28,20 +28,20 @@ txt=['for i=1:10'
 ierr=execstr(txt,'errcatch');
 if ierr==0 then pause,end
 [str,n,l,func]=lasterror(%t);
-if l<>5 then pause,end  
+if l<>5 then pause,end
 
 
-deff('foo',txt,'n');
+deff('foo',txt);
 ierr=execstr('foo()','errcatch');
 if ierr==0 then pause,end
 [str,n,l,func]=lasterror(%t);
-if l<>6 then pause,end  
+if l<>6 then pause,end
 
 deff('foo1',txt)
 ierr=execstr('foo1()','errcatch');
 if ierr==0 then pause,end
 [str,n,l,func]=lasterror(%t);
-if l<>6 then pause,end  
+if l<>6 then pause,end
 
 
 t1=['if %t then'
@@ -50,30 +50,30 @@ t1=['if %t then'
 ierr=execstr(t1,'errcatch');
 if ierr==0 then pause,end
 [str,n,l,func]=lasterror(%t);
-if l<>6 then pause,end  
+if l<>6 then pause,end
 
 clear foo foo1
-deff('foo',t1,'n');
+deff('foo',t1);
 ierr=execstr('foo()','errcatch');
 if ierr==0 then pause,end
 [str,n,l,func]=lasterror(%t);
-if l<>7 then pause,end  
+if l<>7 then pause,end
 
 deff('foo1',t1);
 ierr=execstr('foo1()','errcatch');
 if ierr==0 then pause,end
 [str,n,l,func]=lasterror(%t);
-if l<>7 then pause,end  
+if l<>7 then pause,end
 
 clear foo foo1
-deff('foo','execstr(txt)','n');
+deff('foo','execstr(txt)');
 ierr=execstr('foo()','errcatch');
 if ierr==0 then pause,end
 [str,n,l,func]=lasterror(%t);
-if l<>5 then pause,end  
+if l<>5 then pause,end
 
 deff('foo1','execstr(txt)');
 ierr=execstr('foo1()','errcatch');
 if ierr==0 then pause,end
 [str,n,l,func]=lasterror(%t);
-if l<>5 then pause,end  
+if l<>5 then pause,end
index 2afe191..61a6cab 100644 (file)
@@ -1,5 +1,3 @@
-clear foo;deff('foo()','a(2)=resume(1)','n');
-if execstr('foo()','errcatch')  <>79 then bugmes();quit;end
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2005-2008 - INRIA - Serge Steer
@@ -13,13 +11,13 @@ if execstr('foo()','errcatch')  <>79 then bugmes();quit;end
 //
 // <-- Short Description -->
 // Missing test and error for resume called with indexed output arguments
-clear foo;deff('foo()','a(2)=resume(1)','n');
+clear foo;deff('foo()','a(2)=resume(1)');
 if execstr('foo()','errcatch')<>79 then bugmes();quit;end
-clear foo;deff('foo()','a=resume(1)','n');
+clear foo;deff('foo()','a=resume(1)');
 if execstr('foo()','errcatch')<>0 then bugmes();quit;end
-clear foo;deff('foo()','[a(3),b]=resume(1,2)','n');
+clear foo;deff('foo()','[a(3),b]=resume(1,2)');
 if execstr('foo()','errcatch')  <>79 then bugmes();quit;end
-clear foo;deff('foo()','[a,b]=resume(1,2)','n');
+clear foo;deff('foo()','[a,b]=resume(1,2)');
 if execstr('foo()','errcatch')<>0 then bugmes();quit;end
 clear foo;deff('foo()','a(2)=resume(1)');
 if execstr('foo()','errcatch')<>79 then bugmes();quit;end
index de3907b..56b0278 100644 (file)
@@ -1,5 +1,3 @@
-clear foo;deff('foo()','a(2)=resume(1)','n');
-if execstr('foo()','errcatch')  <>79 then pause,end
 // =============================================================================
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
 // Copyright (C) 2005-2008 - INRIA - Serge Steer
@@ -14,17 +12,17 @@ if execstr('foo()','errcatch')  <>79 then pause,end
 //
 // <-- Short Description -->
 // Missing test and error for resume called with indexed output arguments
-clear foo;deff('foo()','a(2)=resume(1)','n');
+clear foo;deff('foo()','a(2)=resume(1)');
 if execstr('foo()','errcatch')<>79 then pause,end
 
-clear foo;deff('foo()','a=resume(1)','n');
+clear foo;deff('foo()','a=resume(1)');
 if execstr('foo()','errcatch')<>0 then pause,end
 
 
-clear foo;deff('foo()','[a(3),b]=resume(1,2)','n');
+clear foo;deff('foo()','[a(3),b]=resume(1,2)');
 if execstr('foo()','errcatch')  <>79 then pause,end
 
-clear foo;deff('foo()','[a,b]=resume(1,2)','n');
+clear foo;deff('foo()','[a,b]=resume(1,2)');
 if execstr('foo()','errcatch')<>0 then pause,end
 
 
index bda5e31..7da60ae 100644 (file)
@@ -20,20 +20,20 @@ try
 catch
     r=%t
 end
- r  = 
+ r  =
 if ~r then bugmes();quit;end
 [str,n]=lasterror();
 if n == 0 then bugmes();quit;end
 //catched error in a uncompiled function in a try
 clear ev
-deff(" r=ev(str)","execstr(''r=''+str),","n")
+deff(" r=ev(str)","execstr(''r=''+str),")
 r=%f;a = 1;
 try
     ev("a*z");
 catch
     r=%t
 end
- r  = 
+ r  =
 if ~r then bugmes();quit;end
 [str,n]=lasterror();
 if n == 0 then bugmes();quit;end
@@ -70,7 +70,7 @@ if ~r then bugmes();quit;end
 if n == 0 then bugmes();quit;end
 //catched error in a exec'ed uncompiled function in a try in a compiled function
 clear ev foo
-deff(" r=ev(str)","execstr(''r=''+str),","n")
+deff(" r=ev(str)","execstr(''r=''+str),")
 function r=foo()
     r=%f;a=1;
     try
@@ -86,7 +86,7 @@ if ~r then bugmes();quit;end
 if n == 0 then bugmes();quit;end
 //catched error in an uncompiled function in a try in a compiled function
 clear ev foo
-deff(" r=ev(str)","execstr(''r=''+str),","n")
+deff(" r=ev(str)","execstr(''r=''+str),")
 function r=foo()
     r=%f;
     try
@@ -108,21 +108,21 @@ deff("r=foo()",[
 "   ev(a*z);"
 "catch"
 "   r=%t"
-"end"],"n")
+"end"])
 r=foo();
 if ~r then bugmes();quit;end
 [str,n]=lasterror();
 if n == 0 then bugmes();quit;end
 //catched error in a uncompiled function in a try in a uncompiled function
 clear ev foo
-deff(" r=ev(str)","execstr(''r=''+str),","n")
+deff(" r=ev(str)","execstr(''r=''+str),")
 deff("r=foo()",[
 "r=%f;a = 1;"
 "try"
 "   ev(a*z);"
 "catch"
 "   r=%t"
-"end"],"n")
+"end"])
 r=foo();
 if ~r then bugmes();quit;end
 [str,n]=lasterror();
index e1d65a6..708fac7 100644 (file)
@@ -29,7 +29,7 @@ if n == 0 then pause,end
 
 //catched error in a uncompiled function in a try
 clear ev
-deff(" r=ev(str)","execstr(''r=''+str),","n")
+deff(" r=ev(str)","execstr(''r=''+str),")
 r=%f;a = 1;
 try
     ev("a*z");
@@ -76,7 +76,7 @@ if n == 0 then pause,end
 
 //catched error in a exec'ed uncompiled function in a try in a compiled function
 clear ev foo
-deff(" r=ev(str)","execstr(''r=''+str),","n")
+deff(" r=ev(str)","execstr(''r=''+str),")
 function r=foo()
     r=%f;a=1;
     try
@@ -94,7 +94,7 @@ if n == 0 then pause,end
 
 //catched error in an uncompiled function in a try in a compiled function
 clear ev foo
-deff(" r=ev(str)","execstr(''r=''+str),","n")
+deff(" r=ev(str)","execstr(''r=''+str),")
 function r=foo()
     r=%f;
     try
@@ -118,7 +118,7 @@ deff("r=foo()",[
 "   ev(a*z);"
 "catch"
 "   r=%t"
-"end"],"n")
+"end"])
 r=foo();
 if ~r then pause,end
 [str,n]=lasterror();
@@ -128,14 +128,14 @@ if n == 0 then pause,end
 
 //catched error in a uncompiled function in a try in a uncompiled function
 clear ev foo
-deff(" r=ev(str)","execstr(''r=''+str),","n")
+deff(" r=ev(str)","execstr(''r=''+str),")
 deff("r=foo()",[
 "r=%f;a = 1;"
 "try"
 "   ev(a*z);"
 "catch"
 "   r=%t"
-"end"],"n")
+"end"])
 r=foo();
 if ~r then pause,end
 [str,n]=lasterror();
index 93a9814..1e359b0 100644 (file)
 // <-- Short Description -->
 // "resume" inside an exec crashes Scilab + "resume" restriction of use removed
 
-  //the following instructions has to be copied/pasted in the Scilab console 
+  //the following instructions has to be copied/pasted in the Scilab console
   clear aa bb  foo
   pause
   [aa,bb] = resume(1.1,2.2);
   if aa<>1.1|bb<>2.2 then pause,end
 
-  
-  deff("y=foo()","y=0;pause","n")
+
+  deff("y=foo()","y=0;pause")
   if foo()<>3 then pause,end
   y=resume(3);
-  
+
   clear foo
   deff("y=foo()","y=0;pause")
   if foo()<>3 then pause,end
   y=resume(3);
-  
+
index 245efe7..410c2bd 100644 (file)
@@ -14,7 +14,7 @@
 //
 // <-- Short Description -->
 // Wrong line number in error message
-deff("l=foo()","[l,m]=where()","n");
+deff("l=foo()","[l,m]=where()");
 ll = foo();
 assert_checkequal(ll(1), 2);
 deff("foo1","a=aaaa")
index dea2bb3..38c5ec5 100644 (file)
@@ -16,7 +16,7 @@
 // <-- Short Description -->
 // Wrong line number in error message
 
-deff("l=foo()","[l,m]=where()","n");
+deff("l=foo()","[l,m]=where()");
 ll = foo();
 assert_checkequal(ll(1), 2);
 
index df14748..a258012 100644 (file)
@@ -30,7 +30,7 @@ deff('[y]=t(x)',[
 '      y=u,'
 '    end'
 '  end'
-'end'],'n')
+'end'])
 //
 if t(0)<>0 then bugmes();quit;end
 if t(1)<>0 then bugmes();quit;end
@@ -45,7 +45,7 @@ if t(-1)-t1(-1)<>0 then bugmes();quit;end
 //==========================================================================
 // for in macro
 //--------------------------------------
-deff('[k]=tt1()','k=0,for i=1:5 ,k=k+1;if k==3 then break,end,end,k=k+1','n')
+deff('[k]=tt1()','k=0,for i=1:5 ,k=k+1;if k==3 then break,end,end,k=k+1')
 if tt1()<>4 then bugmes();quit;end
 if tt1()<>4 then bugmes();quit;end
 clear tt1
@@ -55,7 +55,7 @@ deff('[k]=tt1()',[
 '  k=k+1;';
 '  if k==3 then break,end,';
 '  if k==-1 then 1,end,';
-'end,k=k+1'],'n')
+'end,k=k+1'])
 if tt1()<>4 then bugmes();quit;end
 if tt1()<>4 then bugmes();quit;end
 clear tt1
@@ -66,12 +66,12 @@ deff('[k]=tt1()',[
 '  if k==3 then break,end,';
 '  for j=1:5,j,end,';
 'end,';
-'k=k+1'],'n')
+'k=k+1'])
 if tt1()<>4 then bugmes();quit;end
 if tt1()<>4 then bugmes();quit;end
 // while
 //----------------------------------------
-deff('[k]=tt1()','k=0,while k<10 ,k=k+1;if k==3 then break,end,end,k=k+1','n')
+deff('[k]=tt1()','k=0,while k<10 ,k=k+1;if k==3 then break,end,end,k=k+1')
 if tt1()<>4 then bugmes();quit;end
 if tt1()<>4 then bugmes();quit;end
 clear tt1
@@ -81,7 +81,7 @@ deff('[k]=tt1()',[
 '  k=k+1;';
 '  if k==3 then break,end,';
 '  if k==-1 then 1,end,';
-'end,k=k+1'],'n')
+'end,k=k+1'])
 if tt1()<>4 then bugmes();quit;end
 if tt1()<>4 then bugmes();quit;end
 clear tt1
@@ -92,7 +92,7 @@ deff('[k]=tt1()',[
 '  if k==3 then break,end,';
 '  for j=1:5,j,end,';
 'end,';
-'k=k+1'],'n')
+'k=k+1'])
 if tt1()<>4 then bugmes();quit;end
 if tt1()<>4 then bugmes();quit;end
 //
@@ -130,7 +130,7 @@ if or(c<>[1 2 4 5]) then bugmes();quit;end
 n=5;
 c=[];for k=1:5,if k==n then continue,end,c=[c,k];end
 if or(c<>[1 2 3 4]) then bugmes();quit;end
-deff('c=foo(n)','c=[];for k=1:5,if k==n then continue,end,c=[c,k],end','n')
+deff('c=foo(n)','c=[];for k=1:5,if k==n then continue,end,c=[c,k],end')
 if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end
 if or(foo(5)<>[1 2 3 4]) then bugmes();quit;end
 n=3;
@@ -139,7 +139,7 @@ if or(c<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end
 n=4;
 c=[];for i=1:3,for k=1:4,if k==n&i==2 then continue,end,c=[c,k];end;end
 if or(c<> [1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end
-deff('c=foo(n)','c=[];for i=1:3,for k=1:4,if k==n&i==2 then continue,end,c=[c,k];end;end','n')
+deff('c=foo(n)','c=[];for i=1:3,for k=1:4,if k==n&i==2 then continue,end,c=[c,k];end;end')
 if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end
 if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end
 //in a while
@@ -151,7 +151,7 @@ if or(c<>[1 2 4 5]) then bugmes();quit;end
 n=5;
 c=[];k=0;while k<5,k=k+1;if k==n then continue,end,c=[c,k];end
 if or(c<>[1 2 3 4]) then bugmes();quit;end
-deff('c=foo(n)','c=[];k=0;while k<5,k=k+1;if k==n then continue,end,c=[c,k],end','n')
+deff('c=foo(n)','c=[];k=0;while k<5,k=k+1;if k==n then continue,end,c=[c,k],end')
 if or(foo(3)<>[1 2 4 5]) then bugmes();quit;end
 if or(foo(5)<>[1 2 3 4]) then bugmes();quit;end
 n=3;
@@ -161,6 +161,6 @@ n=4;
 c=[];for i=1:3,k=0;while k<4,k=k+1;,if k==n&i==2 then continue,end,c=[c,k];end;end
 if or(c<> [1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end
 clear foo
-deff('c=foo(n)','c=[];for i=1:3,k=0;while k<4,k=k+1;if k==n&i==2 then continue,end,c=[c,k];end;end','n')
+deff('c=foo(n)','c=[];for i=1:3,k=0;while k<4,k=k+1;if k==n&i==2 then continue,end,c=[c,k];end;end')
 if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then bugmes();quit;end
 if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then bugmes();quit;end
index a4f632b..74bebb5 100644 (file)
@@ -33,7 +33,7 @@ deff('[y]=t(x)',[
 '      y=u,'
 '    end'
 '  end'
-'end'],'n')
+'end'])
 //
 if t(0)<>0 then pause,end
 if t(1)<>0 then pause,end
@@ -51,7 +51,7 @@ if t(-1)-t1(-1)<>0 then pause,end
 
 // for in macro
 //--------------------------------------
-deff('[k]=tt1()','k=0,for i=1:5 ,k=k+1;if k==3 then break,end,end,k=k+1','n')
+deff('[k]=tt1()','k=0,for i=1:5 ,k=k+1;if k==3 then break,end,end,k=k+1')
 if tt1()<>4 then pause,end
 if tt1()<>4 then pause,end
 clear tt1
@@ -62,7 +62,7 @@ deff('[k]=tt1()',[
 '  k=k+1;';
 '  if k==3 then break,end,';
 '  if k==-1 then 1,end,';
-'end,k=k+1'],'n')
+'end,k=k+1'])
 if tt1()<>4 then pause,end
 if tt1()<>4 then pause,end
 
@@ -75,13 +75,13 @@ deff('[k]=tt1()',[
 '  if k==3 then break,end,';
 '  for j=1:5,j,end,';
 'end,';
-'k=k+1'],'n')
+'k=k+1'])
 if tt1()<>4 then pause,end
 if tt1()<>4 then pause,end
 
 // while
 //----------------------------------------
-deff('[k]=tt1()','k=0,while k<10 ,k=k+1;if k==3 then break,end,end,k=k+1','n')
+deff('[k]=tt1()','k=0,while k<10 ,k=k+1;if k==3 then break,end,end,k=k+1')
 if tt1()<>4 then pause,end
 if tt1()<>4 then pause,end
 clear tt1
@@ -92,7 +92,7 @@ deff('[k]=tt1()',[
 '  k=k+1;';
 '  if k==3 then break,end,';
 '  if k==-1 then 1,end,';
-'end,k=k+1'],'n')
+'end,k=k+1'])
 if tt1()<>4 then pause,end
 if tt1()<>4 then pause,end
 
@@ -105,7 +105,7 @@ deff('[k]=tt1()',[
 '  if k==3 then break,end,';
 '  for j=1:5,j,end,';
 'end,';
-'k=k+1'],'n')
+'k=k+1'])
 if tt1()<>4 then pause,end
 if tt1()<>4 then pause,end
 //
@@ -157,7 +157,7 @@ if or(c<>[1 2 3 4]) then pause,end
 
 
 
-deff('c=foo(n)','c=[];for k=1:5,if k==n then continue,end,c=[c,k],end','n')
+deff('c=foo(n)','c=[];for k=1:5,if k==n then continue,end,c=[c,k],end')
 if or(foo(3)<>[1 2 4 5]) then pause,end
 if or(foo(5)<>[1 2 3 4]) then pause,end
 
@@ -168,7 +168,7 @@ n=4;
 c=[];for i=1:3,for k=1:4,if k==n&i==2 then continue,end,c=[c,k];end;end
 if or(c<> [1,2,3,4, 1,2,3, 1,2,3,4]) then pause,end
 
-deff('c=foo(n)','c=[];for i=1:3,for k=1:4,if k==n&i==2 then continue,end,c=[c,k];end;end','n')
+deff('c=foo(n)','c=[];for i=1:3,for k=1:4,if k==n&i==2 then continue,end,c=[c,k];end;end')
 if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then pause,end
 if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then pause,end
 
@@ -181,7 +181,7 @@ if or(c<>[1 2 4 5]) then pause,end
 n=5;
 c=[];k=0;while k<5,k=k+1;if k==n then continue,end,c=[c,k];end
 if or(c<>[1 2 3 4]) then pause,end
-deff('c=foo(n)','c=[];k=0;while k<5,k=k+1;if k==n then continue,end,c=[c,k],end','n')
+deff('c=foo(n)','c=[];k=0;while k<5,k=k+1;if k==n then continue,end,c=[c,k],end')
 if or(foo(3)<>[1 2 4 5]) then pause,end
 if or(foo(5)<>[1 2 3 4]) then pause,end
 
@@ -193,6 +193,6 @@ c=[];for i=1:3,k=0;while k<4,k=k+1;,if k==n&i==2 then continue,end,c=[c,k];end;e
 if or(c<> [1,2,3,4, 1,2,3, 1,2,3,4]) then pause,end
 
 clear foo
-deff('c=foo(n)','c=[];for i=1:3,k=0;while k<4,k=k+1;if k==n&i==2 then continue,end,c=[c,k];end;end','n')
+deff('c=foo(n)','c=[];for i=1:3,k=0;while k<4,k=k+1;if k==n&i==2 then continue,end,c=[c,k];end;end')
 if or(foo(3)<>[1,2,3,4, 1,2,4, 1,2,3,4]) then pause,end
 if or(foo(4)<>[1,2,3,4, 1,2,3, 1,2,3,4]) then pause,end
index 0b35609..dd9bfcd 100644 (file)
@@ -11,7 +11,7 @@ clear //sdfdgd
 clear//sdfdgd
 a=1;
 clear a//sdfdgd
-deff('y=foo(a,b,c)','y=a+b+c','n')
+deff('y=foo(a,b,c)','y=a+b+c')
 foo aaa bbb   cc
  ans  =
  aaabbbcc
index 9081df8..40663b2 100644 (file)
@@ -14,7 +14,7 @@ clear //sdfdgd
 clear//sdfdgd
 a=1;
 clear a//sdfdgd
-deff('y=foo(a,b,c)','y=a+b+c','n')
+deff('y=foo(a,b,c)','y=a+b+c')
 foo aaa bbb   cc
 if ans<>'aaabbbcc' then pause,end
 foo aaa bbb   cc;
index 0249d32..056b1a7 100644 (file)
@@ -7,7 +7,7 @@
 //for version after 3.0 the comments are no more handled by a preprocessor,
 //but by the parser itself
 a=1//test
-a  = 
+a  =
     1.
 if a<>1 then bugmes();quit;end
 a=2;//test
@@ -42,7 +42,7 @@ if %f //test
 else //test2 end
     a=4//test3 end
 end//endtest
-a  = 
+a  =
     4.
 if a<>4 then bugmes();quit;end
 a=0;
@@ -59,7 +59,7 @@ for i=1
     a=1;
 end //
 a=0;k=0
-k  = 
+k  =
     0.
 while %t //loop begin
     k=k+1; //ttttt
@@ -90,7 +90,7 @@ case 2 then //test end
 else //else
     a=0  //test zeor
 end //end
-a  = 
+a  =
   - 1.
 if a<>-1 then bugmes();quit;end
 // In execstr
@@ -134,17 +134,17 @@ t=["if %f //test"
 if a<>4 then bugmes();quit;end
 // in deff (without compilation)
 funcprot(0);
-deff("a=foo","a=1//test","n");a=foo();
+deff("a=foo","a=1//test");a=foo();
 if a<>1 then bugmes();quit;end
-deff("a=foo","a=''1//test'';","n");a=foo();
+deff("a=foo","a=''1//test'';");a=foo();
 if a<>"1/"+"/test" then bugmes();quit;end
-deff("a=foo","a=33;//''sqdf''qsdf''","n");a=foo();
+deff("a=foo","a=33;//''sqdf''qsdf''");a=foo();
 if a<>33 then bugmes();quit;end
 t=["if %t //test"
 "  a=3; //test1"
 "else //test2 end"
 "  a=4//test3 end"
-"end//endtest"];deff("a=foo",t,"n");a=foo();
+"end//endtest"];deff("a=foo",t);a=foo();
 if a<>3 then bugmes();quit;end
 // in deff (with compilation)
 deff("a=foo","a=1//test");a=foo();
@@ -346,7 +346,7 @@ function a=foo
 endfunction
 T=macr2tree(foo);
 [C,L]=getcommentsintree(T.statements)
-L  = 
+L  =
     1.
     3.
     5.
@@ -356,7 +356,7 @@ L  =
     10.
     11.
     12.
-C  = 
+C  =
 !initialization    !
 !                  !
 !ttttt ttttt       !
index 8fa3d61..0f39b59 100644 (file)
@@ -148,18 +148,18 @@ if a<>4 then pause,end
 
 // in deff (without compilation)
 funcprot(0);
-deff("a=foo","a=1//test","n");a=foo();
+deff("a=foo","a=1//test");a=foo();
 if a<>1 then pause,end
-deff("a=foo","a=''1//test'';","n");a=foo();
+deff("a=foo","a=''1//test'';");a=foo();
 if a<>"1/"+"/test" then pause,end
-deff("a=foo","a=33;//''sqdf''qsdf''","n");a=foo();
+deff("a=foo","a=33;//''sqdf''qsdf''");a=foo();
 if a<>33 then pause,end
 
 t=["if %t //test"
 "  a=3; //test1"
 "else //test2 end"
 "  a=4//test3 end"
-"end//endtest"];deff("a=foo",t,"n");a=foo();
+"end//endtest"];deff("a=foo",t);a=foo();
 if a<>3 then pause,end
 
 // in deff (with compilation)
index 30979b5..2b223b4 100644 (file)
@@ -8,7 +8,7 @@
 funcprot(0);
 // simple
 //
-deff("[x,y]=t1(a,b)","x=a+b,y=a-b","n")
+deff("[x,y]=t1(a,b)","x=a+b,y=a-b")
 [u,v]=t1(1,2);
 if u<> 3 then bugmes();quit;end
 if v<>-1 then bugmes();quit;end
@@ -26,7 +26,7 @@ if t1(1)<>t1(1,2) then bugmes();quit;end
 //
 //resume
 //
-deff("[x,y]=t3(a,b)","x=a+b,y=a-b,z=resume(a*a)","n")
+deff("[x,y]=t3(a,b)","x=a+b,y=a-b,z=resume(a*a)")
 [u,v]=t3(1,2);
 if u<> 3 then bugmes();quit;end
 if v<>-1 then bugmes();quit;end
@@ -61,7 +61,7 @@ text = ["if n>0 then x=1"
 "case -1 then x=''neg'' ,"
 "end"];
 //
-deff("[x,y]=t5(n)",text,"n")
+deff("[x,y]=t5(n)",text)
 [u,v]=t5(5);
 if u<>"pos" then bugmes();quit;end
 if v<>15 then bugmes();quit;end
@@ -113,8 +113,8 @@ text = ["if n>0 then x=1"
 "case 1 then x=b(''pos'') ,tt=resume(b(''ok'')),"
 "case b(-1) then x=b(''neg'') ,"
 "end"];
-deff("[x]=b(a)","x=a,prod([1 1])","n")
-deff("[x,y]=t5(n)",text,"n")
+deff("[x]=b(a)","x=a,prod([1 1])")
+deff("[x,y]=t5(n)",text)
 [u,v]=t5(5);
 if u<>"pos" then bugmes();quit;end
 if v<>15 then bugmes();quit;end
@@ -150,7 +150,7 @@ clear tt
 u=t5(-4);
 if u<>"neg" then bugmes();quit;end
 if exists("tt")==1 then bugmes();quit;end
-deff("[x,y]=t5(n)",text,"n")
+deff("[x,y]=t5(n)",text)
 [u,v]=t5(5);
 if u<>"pos" then bugmes();quit;end
 if v<>15 then bugmes();quit;end
@@ -188,9 +188,9 @@ u=t5(-4);
 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")
+deff("[x]=b(a)","if a==1 then x=1,else x=a,prod([1 1]),end")
 //
-deff("[x,y]=t5(n)",text,"n")
+deff("[x,y]=t5(n)",text)
 [u,v]=t5(5);
 if u<>"pos" then bugmes();quit;end
 if v<>15 then bugmes();quit;end
@@ -227,7 +227,7 @@ u=t5(-4);
 if u<>"neg" then bugmes();quit;end
 if exists("tt")==1 then bugmes();quit;end
 //
-deff("[x,y]=t5(n)",text,"n")
+deff("[x,y]=t5(n)",text)
 [u,v]=t5(5);
 if u<>"pos" then bugmes();quit;end
 if v<>15 then bugmes();quit;end
@@ -265,7 +265,7 @@ u=t5(-4);
 if u<>"neg" then bugmes();quit;end
 if exists("tt")==1 then bugmes();quit;end
 // resume
-deff("[]=t6(a)","x=resume(a)","n")
+deff("[]=t6(a)","x=resume(a)")
 clear ans x
 t6(15)
 if x<>15 then bugmes();quit;end
@@ -278,25 +278,25 @@ if exists("ans")==1 then bugmes();quit;end
 //
 //
 //
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[ydot]=simul(t,y,a)","ydot=a")
 a=2;
 //appel le plus imple
 y=ode(0,0,1:2,simul)
- y  = 
+ y  =
     2.    4.
 if norm(y-[a 2*a]) >1000*%eps then bugmes();quit;end
 y=ode(0,0,1:2,simul)
- y  = 
+ y  =
     2.    4.
 if norm(y-[a 2*a]) >1000*%eps then bugmes();quit;end
 //appel avec passage d'arguments supplementaires
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[ydot]=simul(t,y,a)","ydot=a")
 y=ode(0,0,1:2,list(simul,a))
- y  = 
+ y  =
     2.    4.
 if norm(y-[a 2*a]) >1000*%eps then bugmes();quit;end
 y=ode(0,0,1:2,list(simul,a))
- y  = 
+ y  =
     2.    4.
 if norm(y-[a 2*a]) >1000*%eps then bugmes();quit;end
 //
@@ -307,8 +307,8 @@ text=["for k=1:n,"
 "x=[x,y],"
 "end"];
 //
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -318,14 +318,14 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 x=calcul(3);
 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")
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -335,17 +335,17 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 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")
+deff("[ydot]=simul(t,y,a)","ydot=a,tt=resume([tt,t])")
 tt=[]
- tt  = 
+ tt  =
     []
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -355,21 +355,21 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 x=calcul(3);
 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")
+deff("[x]=b(a)","if a==1 then x=a,prod([1 1]),else x=a,prod([1 1]),end")
 text=["for k=1:n,"
 "y=ode(a*(k-1),k-1,k,simul),"
 "x=[x,y],"
 "end"];
 //
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -379,14 +379,14 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 x=[];
 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)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 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")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -396,17 +396,17 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 x=[];
 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)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 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")
+deff("[ydot]=simul(t,y,a)","ydot=b(a),tt=resume([tt,t])")
 tt=[]
- tt  = 
+ tt  =
     []
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -416,7 +416,7 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 x=[];
 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)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -425,8 +425,8 @@ text=["for k=1:n,"
 "x=[x,y],"
 "end"];
 //
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -436,14 +436,14 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 x=[];
 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)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 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")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -453,17 +453,17 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 x=[];
 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)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 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")
+deff("[ydot]=simul(t,y,a)","ydot=b(a),tt=resume([tt,t])")
 tt=[]
- tt  = 
+ tt  =
     []
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
@@ -473,23 +473,23 @@ if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 x=[];
 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)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then bugmes();quit;end
 //
 //macro defining ,compiling and executing a macro
 //
-text=["deff(''[x]=b(a)'',''if a==1 then x=1,else x=a,prod([1 1]),end'',''n''),"
+text=["deff(''[x]=b(a)'',''if a==1 then x=1,else x=a,prod([1 1]),end''),"
 "b,"
 "x=b(n),"]
- text  = 
-!deff('[x]=b(a)','if a==1 then x=1,else x=a,prod([1 1]),end','n'),  !
+ text  =
+!deff('[x]=b(a)','if a==1 then x=1,else x=a,prod([1 1]),end'),  !
 !                                                                   !
 !b,                                                                 !
 !                                                                   !
 !x=b(n),                                                            !
-deff("[x]=t8(n)",text',"n")
+deff("[x]=t8(n)",text')
 y=t8(10);
 if y<>10 then bugmes();quit;end
 y=t8(10);
@@ -501,7 +501,7 @@ deff("[ok]=cplist(l1,l2)",["ok=1;"
 "if size(l1)<>size(l2) then ok=0,return,end"
 "for k=1:length(l1),"
 "if l1(k)<>l2(k) then ok=0,return,end;"
-"end"],"n")
+"end"])
 deff("[r]=horner(p,x)",["if type(p)==15|type(p)==16 then";
 "r=horner(p(2),x)./horner(p(3),x),";
 "return,";
@@ -510,12 +510,12 @@ deff("[r]=horner(p,x)",["if type(p)==15|type(p)==16 then";
 "r=coeff(p,d);";
 "for k=1:d,";
 "r=r*x+coeff(p,d-k)*eye();";
-"end;"],"n")
+"end;"])
 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=rlist(p1,p2,[]);"],"n")
+"f=rlist(p1,p2,[]);"])
 horn=horner;
 h=1/s;
 if cplist(h,rlist(1,s,[]))==0 then bugmes();quit;end
@@ -538,20 +538,20 @@ if cplist(hrn , rlist(z+1,z-1,[]))==0 then bugmes();quit;end
 //
 //
 text=["aa=1,if a==2 then aa=b(a),end"]
- text  = 
+ text  =
  aa=1,if a==2 then aa=b(a),end
 fic=file("open",TMPDIR+"/test_macro_exec","unknown");
 write(fic,text)
 file("close",fic)
-deff("[x]=b(a)","x=a,prod([1 1])","n")
-deff("[x]=t9(a)","exec(TMPDIR+''/test_macro_exec''),x=aa","n")
+deff("[x]=b(a)","x=a,prod([1 1])")
+deff("[x]=t9(a)","exec(TMPDIR+''/test_macro_exec''),x=aa")
 y=t9(2)
 aa=1,if a==2 then aa=b(a),end
- aa  = 
+ aa  =
     1.
- aa  = 
+ aa  =
     2.
- y  = 
+ y  =
     2.
 if y<>2 then bugmes();quit;end
 ierr = execstr("file(""rewind"",fic);","errcatch");
@@ -561,30 +561,30 @@ refMsg = msprintf(gettext("%s: Unknown file format.\n"), "file");
 assert_checkequal(errMsg, refMsg);
 y=t9(2)
 aa=1,if a==2 then aa=b(a),end
- aa  = 
+ aa  =
     1.
- aa  = 
+ aa  =
     2.
- y  = 
+ y  =
     2.
 if y<>2 then bugmes();quit;end
 //
-deff("[x]=t9(a)","exec(TMPDIR+''/test_macro_exec''),x=aa","n")
+deff("[x]=t9(a)","exec(TMPDIR+''/test_macro_exec''),x=aa")
 y=t9(2)
 aa=1,if a==2 then aa=b(a),end
- aa  = 
+ aa  =
     1.
- aa  = 
+ aa  =
     2.
- y  = 
+ y  =
     2.
 if y<>2 then bugmes();quit;end
 y=t9(2)
 aa=1,if a==2 then aa=b(a),end
- aa  = 
+ aa  =
     1.
- aa  = 
+ aa  =
     2.
- y  = 
+ y  =
     2.
 if y<>2 then bugmes();quit;end
index 4dbd5e5..a4d7a1c 100644 (file)
@@ -8,7 +8,7 @@
 funcprot(0);
 // simple
 //
-deff("[x,y]=t1(a,b)","x=a+b,y=a-b","n")
+deff("[x,y]=t1(a,b)","x=a+b,y=a-b")
 [u,v]=t1(1,2);
 if u<> 3 then pause,end
 if v<>-1 then pause,end
@@ -26,7 +26,7 @@ if t1(1)<>t1(1,2) then pause,end
 //
 //resume
 //
-deff("[x,y]=t3(a,b)","x=a+b,y=a-b,z=resume(a*a)","n")
+deff("[x,y]=t3(a,b)","x=a+b,y=a-b,z=resume(a*a)")
 [u,v]=t3(1,2);
 if u<> 3 then pause,end
 if v<>-1 then pause,end
@@ -61,7 +61,7 @@ text = ["if n>0 then x=1"
 "case -1 then x=''neg'' ,"
 "end"];
 //
-deff("[x,y]=t5(n)",text,"n")
+deff("[x,y]=t5(n)",text)
 [u,v]=t5(5);
 if u<>"pos" then pause,end
 if v<>15 then pause,end
@@ -113,8 +113,8 @@ text = ["if n>0 then x=1"
 "case 1 then x=b(''pos'') ,tt=resume(b(''ok'')),"
 "case b(-1) then x=b(''neg'') ,"
 "end"];
-deff("[x]=b(a)","x=a,prod([1 1])","n")
-deff("[x,y]=t5(n)",text,"n")
+deff("[x]=b(a)","x=a,prod([1 1])")
+deff("[x,y]=t5(n)",text)
 [u,v]=t5(5);
 if u<>"pos" then pause,end
 if v<>15 then pause,end
@@ -150,7 +150,7 @@ clear tt
 u=t5(-4);
 if u<>"neg" then pause,end
 if exists("tt")==1 then pause,end
-deff("[x,y]=t5(n)",text,"n")
+deff("[x,y]=t5(n)",text)
 [u,v]=t5(5);
 if u<>"pos" then pause,end
 if v<>15 then pause,end
@@ -188,9 +188,9 @@ u=t5(-4);
 if u<>"neg" then pause,end
 if exists("tt")==1 then pause,end
 //more complex
-deff("[x]=b(a)","if a==1 then x=1,else x=a,prod([1 1]),end","n")
+deff("[x]=b(a)","if a==1 then x=1,else x=a,prod([1 1]),end")
 //
-deff("[x,y]=t5(n)",text,"n")
+deff("[x,y]=t5(n)",text)
 [u,v]=t5(5);
 if u<>"pos" then pause,end
 if v<>15 then pause,end
@@ -227,7 +227,7 @@ u=t5(-4);
 if u<>"neg" then pause,end
 if exists("tt")==1 then pause,end
 //
-deff("[x,y]=t5(n)",text,"n")
+deff("[x,y]=t5(n)",text)
 [u,v]=t5(5);
 if u<>"pos" then pause,end
 if v<>15 then pause,end
@@ -265,7 +265,7 @@ u=t5(-4);
 if u<>"neg" then pause,end
 if exists("tt")==1 then pause,end
 // resume
-deff("[]=t6(a)","x=resume(a)","n")
+deff("[]=t6(a)","x=resume(a)")
 clear ans x
 t6(15)
 if x<>15 then pause,end
@@ -278,7 +278,7 @@ if exists("ans")==1 then pause,end
 //
 //
 //
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[ydot]=simul(t,y,a)","ydot=a")
 a=2;
 //appel le plus imple
 y=ode(0,0,1:2,simul)
@@ -286,7 +286,7 @@ if norm(y-[a 2*a]) >1000*%eps then pause,end
 y=ode(0,0,1:2,simul)
 if norm(y-[a 2*a]) >1000*%eps then pause,end
 //appel avec passage d'arguments supplementaires
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[ydot]=simul(t,y,a)","ydot=a")
 y=ode(0,0,1:2,list(simul,a))
 if norm(y-[a 2*a]) >1000*%eps then pause,end
 y=ode(0,0,1:2,list(simul,a))
@@ -299,8 +299,8 @@ text=["for k=1:n,"
 "x=[x,y],"
 "end"];
 //
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
@@ -310,14 +310,14 @@ if norm(x-a*[1 2 3])>1000*%eps then pause,end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
 //
 text(2)="y=ode(a*(k-1),k-1,k,list(simul,a)),";
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
@@ -327,15 +327,15 @@ if norm(x-a*[1 2 3])>1000*%eps then pause,end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
 //resume in external
-deff("[ydot]=simul(t,y,a)","ydot=a,tt=resume([tt,t])","n")
+deff("[ydot]=simul(t,y,a)","ydot=a,tt=resume([tt,t])")
 tt=[]
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
@@ -345,21 +345,21 @@ if norm(x-a*[1 2 3])>1000*%eps then pause,end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
-deff("[ydot]=simul(t,y,a)","ydot=a","n")
+deff("[ydot]=simul(t,y,a)","ydot=a")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,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")
+deff("[x]=b(a)","if a==1 then x=a,prod([1 1]),else x=a,prod([1 1]),end")
 text=["for k=1:n,"
 "y=ode(a*(k-1),k-1,k,simul),"
 "x=[x,y],"
 "end"];
 //
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
@@ -369,14 +369,14 @@ if norm(x-a*[1 2 3])>1000*%eps then pause,end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
 //
 text(2)="y=ode(a*(k-1),k-1,k,list(simul,a)),";
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
@@ -386,15 +386,15 @@ if norm(x-a*[1 2 3])>1000*%eps then pause,end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
 //
-deff("[ydot]=simul(t,y,a)","ydot=b(a),tt=resume([tt,t])","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a),tt=resume([tt,t])")
 tt=[]
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
@@ -404,7 +404,7 @@ if norm(x-a*[1 2 3])>1000*%eps then pause,end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
@@ -413,8 +413,8 @@ text=["for k=1:n,"
 "x=[x,y],"
 "end"];
 //
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
@@ -424,14 +424,14 @@ if norm(x-a*[1 2 3])>1000*%eps then pause,end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
 //
 text(2)="y=ode(a*(k-1),k-1,k,list(simul,a)),";
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
@@ -441,15 +441,15 @@ if norm(x-a*[1 2 3])>1000*%eps then pause,end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
 //
-deff("[ydot]=simul(t,y,a)","ydot=b(a),tt=resume([tt,t])","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a),tt=resume([tt,t])")
 tt=[]
-deff("[x]=calcul(n)",text,"n")
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[x]=calcul(n)",text)
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
@@ -459,17 +459,17 @@ if norm(x-a*[1 2 3])>1000*%eps then pause,end
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
-deff("[ydot]=simul(t,y,a)","ydot=b(a)","n")
+deff("[ydot]=simul(t,y,a)","ydot=b(a)")
 x=[];
 x=calcul(3);
 if norm(x-a*[1 2 3])>1000*%eps then pause,end
 //
 //macro defining ,compiling and executing a macro
 //
-text=["deff(''[x]=b(a)'',''if a==1 then x=1,else x=a,prod([1 1]),end'',''n''),"
+text=["deff(''[x]=b(a)'',''if a==1 then x=1,else x=a,prod([1 1]),end''),"
 "b,"
 "x=b(n),"]
-deff("[x]=t8(n)",text',"n")
+deff("[x]=t8(n)",text')
 y=t8(10);
 if y<>10 then pause,end
 y=t8(10);
@@ -481,7 +481,7 @@ deff("[ok]=cplist(l1,l2)",["ok=1;"
 "if size(l1)<>size(l2) then ok=0,return,end"
 "for k=1:length(l1),"
 "if l1(k)<>l2(k) then ok=0,return,end;"
-"end"],"n")
+"end"])
 deff("[r]=horner(p,x)",["if type(p)==15|type(p)==16 then";
 "r=horner(p(2),x)./horner(p(3),x),";
 "return,";
@@ -490,12 +490,12 @@ deff("[r]=horner(p,x)",["if type(p)==15|type(p)==16 then";
 "r=coeff(p,d);";
 "for k=1:d,";
 "r=r*x+coeff(p,d-k)*eye();";
-"end;"],"n")
+"end;"])
 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=rlist(p1,p2,[]);"],"n")
+"f=rlist(p1,p2,[]);"])
 
 
 
@@ -524,8 +524,8 @@ text=["aa=1,if a==2 then aa=b(a),end"]
 fic=file("open",TMPDIR+"/test_macro_exec","unknown");
 write(fic,text)
 file("close",fic)
-deff("[x]=b(a)","x=a,prod([1 1])","n")
-deff("[x]=t9(a)","exec(TMPDIR+''/test_macro_exec''),x=aa","n")
+deff("[x]=b(a)","x=a,prod([1 1])")
+deff("[x]=t9(a)","exec(TMPDIR+''/test_macro_exec''),x=aa")
 y=t9(2)
 if y<>2 then pause,end
 ierr = execstr("file(""rewind"",fic);","errcatch");
@@ -536,7 +536,7 @@ assert_checkequal(errMsg, refMsg);
 y=t9(2)
 if y<>2 then pause,end
 //
-deff("[x]=t9(a)","exec(TMPDIR+''/test_macro_exec''),x=aa","n")
+deff("[x]=t9(a)","exec(TMPDIR+''/test_macro_exec''),x=aa")
 y=t9(2)
 if y<>2 then pause,end
 y=t9(2)
index 293b405..41c6400 100644 (file)
@@ -54,40 +54,40 @@ disp xxx
  xxx
 //syntax with simple lhs
 a=1
-a  = 
+a  =
     1.
 a=[1 2 3]
-a  = 
+a  =
     1.    2.    3.
 a=[1 2 3
 4 5 6]
-a  = 
+a  =
     1.    2.    3.
     4.    5.    6.
 a(2)=44
-a  = 
+a  =
     1.     2.    3.
     44.    5.    6.
 clear c;c(5)=9
-c  = 
+c  =
     0.
     0.
     0.
     0.
     9.
 [m,k]=max(1:3)
-k  = 
+k  =
     3.
-m  = 
+m  =
     3.
 [d1f d2f d3f d4f] = (1,2,3,4)
-d4f  = 
+d4f  =
     4.
-d3f  = 
+d3f  =
     3.
-d2f  = 
+d2f  =
     2.
-d1f  = 
+d1f  =
     1.
 //if 10<>3 then x=disp('abcd'),end
 if 10<>3 then disp("abcd"),end
@@ -111,13 +111,13 @@ for k=1:2,(1+1),end
  ans  =
     2.
 for k=1:2,[m,k]=max(1:k),end
-k  = 
+k  =
     1.
-m  = 
+m  =
     1.
-k  = 
+k  =
     2.
-m  = 
+m  =
     2.
 for k=1:2,[1,2],end
  ans  =
@@ -133,53 +133,53 @@ k  = (2)
     3.
 //nouvelles syntaxes
 [a(1),b(2)]=(3,4)
-b  = 
+b  =
     0.
     4.
-a  = 
+a  =
     3.     2.    3.
     44.    5.    6.
 [a(1),x,b(2)]=(3,4,5)
-b  = 
+b  =
     0.
     5.
-x  = 
+x  =
     4.
-a  = 
+a  =
     3.     2.    3.
     44.    5.    6.
 [a(1),b(1,2),x]=(3,4,5)
-x  = 
+x  =
     5.
-b  = 
+b  =
     0.    4.
     5.    0.
-a  = 
+a  =
     3.     2.    3.
     44.    5.    6.
 I1=list(2,3);I2=list(1,2);
 clear x y;[x,y(I2(:))]=(11,12)
-y  = 
+y  =
     0.    12.
-x  = 
+x  =
     11.
 clear x y;[x(I1(:)),y]=(11,12)
-y  = 
+y  =
     12.
-x  = 
-    0.    0.    0. 
+x  =
+    0.    0.    0.
     0.    0.    11.
 clear x y;[x(I1(:)),y(I2(:))]=(11,12)
-y  = 
+y  =
     0.    12.
-x  = 
-    0.    0.    0. 
+x  =
+    0.    0.    0.
     0.    0.    11.
 str_l=list();str_l(1)=1;str_l(1)
  ans  =
     1.
 l=list(1,2,3);l(3)=null()
-l  = 
+l  =
        l(1)
     1.
        l(2)
@@ -205,63 +205,48 @@ foo(%t)
     33.
 foo();disp([noeuds,triang])
     45.    0.9092974
-deff("t1=foo()","t1(2)= 1","n");foo()
- ans  =
-    0.
-    1.
 deff("t1=foo()","t1(2)= 1");foo()
  ans  =
     0.
     1.
-deff("t1=foo()","t1=list();t1(1)= 44;","n");foo()
- ans  =
-             ans(1)
-    44.
 deff("t1=foo()","t1=list();t1(1)= 44;");foo()
  ans  =
              ans(1)
     44.
-deff("[a,b,x]=foo()","[a(1),b(1,2),x]=(3,4,5);","n");[a,b,x]=foo()
-x  = 
-    5.
-b  = 
-    0.    4.
-a  = 
-    3.
 deff("[a,b,x]=foo()","[a(1),b(1,2),x]=(3,4,5);");[a,b,x]=foo()
-x  = 
+x  =
     5.
-b  = 
+b  =
     0.    4.
-a  = 
+a  =
     3.
 function [a,b,x]=foo(),u=5;[a(1),b(1,2),x]=(3,4,u),a(2)=44,endfunction
 [a,b,x]=foo()
-x  = 
+x  =
     5.
-b  = 
+b  =
     0.    4.
-a  = 
+a  =
     3.
     44.
 function [a,b,x]=foo(),[a,b,x]=(3,4,5),endfunction
 [a,b,x]=foo()
-x  = 
+x  =
     5.
-b  = 
+b  =
     4.
-a  = 
+a  =
     3.
 function x=foo(),INDX=list(2,3); x(INDX(:))=11; endfunction
 foo()
  ans  =
-    0.    0.    0. 
+    0.    0.    0.
     0.    0.    11.
 I1=list(2,3);I2=list(1,2);
 function foo(),[x(I1(:)),y(I2(:))]=(11,12);disp(x,y), endfunction
 foo()
     0.    12.
-    0.    0.    0. 
+    0.    0.    0.
     0.    0.    11.
 function l=foo(),l=list(1,2,3);l(3)=null();endfunction
 foo()
index ea8e642..bbf38ca 100644 (file)
@@ -97,13 +97,11 @@ foo(%t)
 
 foo();disp([noeuds,triang])
 
-deff("t1=foo()","t1(2)= 1","n");foo()
+
 deff("t1=foo()","t1(2)= 1");foo()
 
-deff("t1=foo()","t1=list();t1(1)= 44;","n");foo()
 deff("t1=foo()","t1=list();t1(1)= 44;");foo()
 
-deff("[a,b,x]=foo()","[a(1),b(1,2),x]=(3,4,5);","n");[a,b,x]=foo()
 deff("[a,b,x]=foo()","[a(1),b(1,2),x]=(3,4,5);");[a,b,x]=foo()
 
 
index b9be347..a8f8986 100644 (file)
@@ -23,22 +23,22 @@ clear foo x y z
 deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;[x,y,z]=resume(a,b,c);end;end")
 foo(); if x<>1|y<>2|z<>3 then bugmes();quit;end
 clear foo x y z
-deff("foo()","a=1,b=2,c=3;[x,y]=resume(a,b)","n")
+deff("foo()","a=1,b=2,c=3;[x,y]=resume(a,b)")
 foo(); if x<>1|y<>2 then bugmes();quit;end
 clear foo x y z
-deff("foo()","a=1,b=2,c=3;[x,y,z]=resume(a,b,c)","n")
+deff("foo()","a=1,b=2,c=3;[x,y,z]=resume(a,b,c)")
 foo(); if x<>1|y<>2|z<>3 then bugmes();quit;end
 clear foo x y z
-deff("foo()","if %t then a=1,b=2,c=3;[x,y]=resume(a,b);end","n")
+deff("foo()","if %t then a=1,b=2,c=3;[x,y]=resume(a,b);end")
 foo(); if x<>1|y<>2 then bugmes();quit;end
 clear foo x y z
-deff("foo()","if %t then a=1,b=2,c=3;[x,y,z]=resume(a,b,c);end","n")
+deff("foo()","if %t then a=1,b=2,c=3;[x,y,z]=resume(a,b,c);end")
 foo(); if x<>1|y<>2|z<>3 then bugmes();quit;end
 clear foo x y z
-deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;[x,y]=resume(a,b);end;end","n")
+deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;[x,y]=resume(a,b);end;end")
 foo(); if x<>1|y<>2 then bugmes();quit;end
 clear foo x y z
-deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;[x,y,z]=resume(a,b,c);end;end","n")
+deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;[x,y,z]=resume(a,b,c);end;end")
 foo(); if x<>1|y<>2|z<>3 then bugmes();quit;end
 clear foo x y z
 deff("foo()","a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"")")
@@ -59,22 +59,22 @@ clear foo x y z
 deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"");end;end")
 foo(); if x<>1|y<>2|z<>3 then bugmes();quit;end
 clear foo x y z
-deff("foo()","a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"")","n")
+deff("foo()","a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"")")
 foo(); if x<>1|y<>2 then bugmes();quit;end
 clear foo x y z
-deff("foo()","a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"")","n")
+deff("foo()","a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"")")
 foo(); if x<>1|y<>2|z<>3 then bugmes();quit;end
 clear foo x y z
-deff("foo()","if %t then a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"");end","n")
+deff("foo()","if %t then a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"");end")
 foo(); if x<>1|y<>2 then bugmes();quit;end
 clear foo x y z
-deff("foo()","if %t then a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"");end","n")
+deff("foo()","if %t then a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"");end")
 foo(); if x<>1|y<>2|z<>3 then bugmes();quit;end
 clear foo x y z
-deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"");end;end","n")
+deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"");end;end")
 foo(); if x<>1|y<>2 then bugmes();quit;end
 clear foo x y z
-deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"");end;end","n")
+deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"");end;end")
 foo(); if x<>1|y<>2|z<>3 then bugmes();quit;end
 clear foo x y z
 // Nested functions
index 41a6730..4b28889 100644 (file)
@@ -31,27 +31,27 @@ deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;[x,y,z]=resume(a,b,c);end;end")
 foo(); if x<>1|y<>2|z<>3 then pause,end
 clear foo x y z
 
-deff("foo()","a=1,b=2,c=3;[x,y]=resume(a,b)","n")
+deff("foo()","a=1,b=2,c=3;[x,y]=resume(a,b)")
 foo(); if x<>1|y<>2 then pause,end
 clear foo x y z
 
-deff("foo()","a=1,b=2,c=3;[x,y,z]=resume(a,b,c)","n")
+deff("foo()","a=1,b=2,c=3;[x,y,z]=resume(a,b,c)")
 foo(); if x<>1|y<>2|z<>3 then pause,end
 clear foo x y z
 
-deff("foo()","if %t then a=1,b=2,c=3;[x,y]=resume(a,b);end","n")
+deff("foo()","if %t then a=1,b=2,c=3;[x,y]=resume(a,b);end")
 foo(); if x<>1|y<>2 then pause,end
 clear foo x y z
 
-deff("foo()","if %t then a=1,b=2,c=3;[x,y,z]=resume(a,b,c);end","n")
+deff("foo()","if %t then a=1,b=2,c=3;[x,y,z]=resume(a,b,c);end")
 foo(); if x<>1|y<>2|z<>3 then pause,end
 clear foo x y z
 
-deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;[x,y]=resume(a,b);end;end","n")
+deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;[x,y]=resume(a,b);end;end")
 foo(); if x<>1|y<>2 then pause,end
 clear foo x y z
 
-deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;[x,y,z]=resume(a,b,c);end;end","n")
+deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;[x,y,z]=resume(a,b,c);end;end")
 foo(); if x<>1|y<>2|z<>3 then pause,end
 clear foo x y z
 
@@ -79,26 +79,26 @@ deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)
 foo(); if x<>1|y<>2|z<>3 then pause,end
 clear foo x y z
 
-deff("foo()","a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"")","n")
+deff("foo()","a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"")")
 foo(); if x<>1|y<>2 then pause,end
 clear foo x y z
 
-deff("foo()","a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"")","n")
+deff("foo()","a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"")")
 foo(); if x<>1|y<>2|z<>3 then pause,end
 clear foo x y z
-deff("foo()","if %t then a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"");end","n")
+deff("foo()","if %t then a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"");end")
 foo(); if x<>1|y<>2 then pause,end
 clear foo x y z
 
-deff("foo()","if %t then a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"");end","n")
+deff("foo()","if %t then a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"");end")
 foo(); if x<>1|y<>2|z<>3 then pause,end
 clear foo x y z
 
-deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"");end;end","n")
+deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;execstr(""[x,y]=resume(a,b)"");end;end")
 foo(); if x<>1|y<>2 then pause,end
 clear foo x y z
 
-deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"");end;end","n")
+deff("foo()","for k=1:3,if k==3 then a=1,b=2,c=3;execstr(""[x,y,z]=resume(a,b,c)"");end;end")
 foo(); if x<>1|y<>2|z<>3 then pause,end
 clear foo x y z
 
index 25af7d9..87bd3e2 100644 (file)
                 </listitem>
             </varlistentry>
             <varlistentry>
-                <term>11</term>
-                <listitem>
-                    <para>
-                        an un-compiled function (Scilab code). A function created with <link linkend="deff">deff</link> with argument <literal>'n'</literal>.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
                 <term>13</term>
                 <listitem>
                     <para>
@@ -232,9 +224,6 @@ type(l)
 deff('[x]=mymacro(y,z)',['a=3*y+1'; 'x=a*z+y']);
 type(mymacro)
 
-deff('[x]=myplus(y,z)','x=y+z','n');
-type(myplus)
-
 ]]></programlisting>
     </refsection>
     <refsection role="see also">
index 25b50b5..4893245 100644 (file)
                 </listitem>
             </varlistentry>
             <varlistentry>
-                <term>11</term>
-                <listitem>
-                    <para>fonction non-compilée (code Scilab). Fonction créée
-                        par <link linkend="deff">deff</link> avec l'argument
-                        'n'.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
                 <term>13</term>
                 <listitem>
                     <para>
         </variablelist>
         <para>Note: pour certaines variables, à cause de la représentation
             interne, <emphasis role="italic">type(x)</emphasis> retournera
-            tlist (16) ou mlist (17). C'est le cas de <emphasis role="italic">rational</emphasis>, <emphasis role="italic">state-space</emphasis>, 
+            tlist (16) ou mlist (17). C'est le cas de <emphasis role="italic">rational</emphasis>, <emphasis role="italic">state-space</emphasis>,
 <emphasis role="italic">uitree</emphasis>, <emphasis role="italic">hypermat</emphasis> et <emphasis role="italic">struct</emphasis>. Merci de considérer l'utilisation
             de <link linkend="typeof">typeof</link> à la place.
         </para>
@@ -243,9 +234,6 @@ type(l)
 deff('[x]=mymacro(y,z)',['a=3*y+1'; 'x=a*z+y']);
 type(mymacro)
 
-deff('[x]=myplus(y,z)','x=y+z','n');
-type(myplus)
-
 ]]></programlisting>
     </refsection>
     <refsection role="see also">
index 234431f..9541d7d 100644 (file)
                 </listitem>
             </varlistentry>
             <varlistentry>
-                <term>11</term>
-                <listitem>
-                    <para>
-                        некомпилированная функция (Scilab-код). Функция, созданная с помощью <link linkend="deff">deff</link> с аргументом <literal>'n'</literal>.
-                    </para>
-                </listitem>
-            </varlistentry>
-            <varlistentry>
                 <term>13</term>
                 <listitem>
                     <para>
index 6859ea1..2dfb489 100644 (file)
@@ -21,7 +21,7 @@
     </refnamediv>
     <refsynopsisdiv>
         <title>Calling Sequence</title>
-        <synopsis>deff('[s1, s2, ...] = newfunction(e1, e2, ...)',text [,opt])</synopsis>
+        <synopsis>deff('[s1, s2, ...] = newfunction(e1, e2, ...)',text)</synopsis>
     </refsynopsisdiv>
     <refsection>
         <title>Arguments</title>
                     <para>a matrix of character strings.</para>
                 </listitem>
             </varlistentry>
-            <varlistentry>
-                <term>opt</term>
-                <listitem>
-                    <para>an optional character string:</para>
-                    <variablelist>
-                        <varlistentry>
-                            <term>'c'</term>
-                            <listitem>
-                                <para>function is "compiled" to be more efficient (default);</para>
-                            </listitem>
-                        </varlistentry>
-                        <varlistentry>
-                            <term>'n'</term>
-                            <listitem>
-                                <para>function is not "compiled".</para>
-                            </listitem>
-                        </varlistentry>
-                    </variablelist>
-                </listitem>
-            </varlistentry>
         </variablelist>
     </refsection>
     <refsection>
             Quotes in the instructions (delimiting strings or meaning matrix transposition)
             have to be doubled to be interpreted correctly (see help <link linkend="quote">quote</link>). This can make
             writing up a little awkward.
-            An option in such cases is to define functions in files as usual, to load them into
-            Scilab by <function>exec</function> (with the <literal>'n'</literal> option) and to use
-            <function>sci2exp</function> to get a printout of corresponding <function>deff</function>
-            instructions.
         </para>
     </refsection>
     <refsection>
         <title>Examples</title>
         <programlisting role="example"><![CDATA[
 deff('[x]=myplus(y,z)','x=y+z')
-
 deff('[x]=mymacro(y,z)',['a=3*y+1'; 'x=a*z+y'])
  ]]></programlisting>
     </refsection>
@@ -101,9 +76,6 @@ deff('[x]=mymacro(y,z)',['a=3*y+1'; 'x=a*z+y'])
                 <link linkend="function">function</link>
             </member>
             <member>
-                <link linkend="profile">profile</link>
-            </member>
-            <member>
                 <link linkend="quote">quote</link>
             </member>
         </simplelist>
index 16a4d6c..55a13e5 100644 (file)
  -->
 
 <refentry xmlns="http://docbook.org/ns/docbook" xmlns:xlink="http://www.w3.org/1999/xlink" xmlns:svg="http://www.w3.org/2000/svg" xmlns:mml="http://www.w3.org/1998/Math/MathML" xmlns:db="http://docbook.org/ns/docbook" xmlns:scilab="http://www.scilab.org" xml:lang="ja" xml:id="deff">
-    
+
     <refnamediv>
-        
+
         <refname>deff</refname>
-        
+
         <refpurpose>関数のオンライン定義</refpurpose>
-        
+
     </refnamediv>
-    
+
     <refsynopsisdiv>
-        
+
         <title>呼び出し手順</title>
-        
-        <synopsis>deff('[s1, s2,...] = newfunction(e1, e2,...)',text [,opt])</synopsis>
-        
+
+        <synopsis>deff('[s1, s2,...] = newfunction(e1, e2,...)',text)</synopsis>
+
     </refsynopsisdiv>
-    
+
     <refsection>
-        
+
         <title>引数</title>
-        
+
         <variablelist>
-            
+
             <varlistentry>
-                
+
                 <term>e1, e2, ...</term>
-                
+
                 <listitem>
-                    
+
                     <para>入力変数.</para>
-                    
+
                 </listitem>
-                
+
             </varlistentry>
-            
+
             <varlistentry>
-                
+
                 <term>s1, s2, ...</term>
-                
+
                 <listitem>
-                    
+
                     <para>出力変数.</para>
-                    
+
                 </listitem>
-                
+
             </varlistentry>
-            
+
             <varlistentry>
-                
+
                 <term>text</term>
-                
+
                 <listitem>
-                    
+
                     <para>文字列行列</para>
-                    
                 </listitem>
-                
-            </varlistentry>
-            
-            <varlistentry>
-                
-                <term>opt</term>
-                
-                <listitem>
-                    
-                    <para>オプションの文字列:</para>
-                    
-                    <variablelist>
-                        
-                        <varlistentry>
-                            
-                            <term>'c'</term>
-                            
-                            <listitem>
-                                
-                                <para>実行効率改善のために関数は "コンパイル" されます (デフォルト);</para>
-                                
-                            </listitem>
-                            
-                        </varlistentry>
-                        
-                        <varlistentry>
-                            
-                            <term>'n'</term>
-                            
-                            <listitem>
-                                
-                                <para>関数は"コンパイル"されません.</para>
-                                
-                            </listitem>
-                            
-                        </varlistentry>
-                        
-                    </variablelist>
-                    
-                </listitem>
-                
+
             </varlistentry>
-            
+
         </variablelist>
-        
+
     </refsection>
-    
+
     <refsection>
-        
+
         <title>説明</title>
-        
+
         <para>
-            
+
             <function>deff</function> はテキスト文字列で記述された一連の命令から
-            
+
             関数を定義する際に使用されます.
-            
+
             得られる関数オブジェクトはテキストファイルで定義され,
-            
+
             <function>exec</function> または <function>exec</function> で
-            
+
             定義された他の関数と同じ特性を有しています.
-            
+
         </para>
-        
+
         <para>
-            
+
             命令の中の引用符(文字列の区切りまたは行列の転置を意味する)は,
-            
+
             ただしく解釈されるように二重化する必要があります(<link linkend="quote">quote</link>のヘルプを参照).
-            
+
             この仕様のため,作成作業はやや不便となります.
-            
-            このような場合のオプションとしては,通常と同様に関数を
-            
-            ファイルで定義し,
-            
-            (<literal>'n'</literal> オプションを付けて)
-            
-            <function>exec</function>によりScilabにロードし,
-            
-            <function>deff</function> 命令と同じ出力を得るために
-            
-            <function>sci2exp</function>を使用するという方法があります.
-            
+
         </para>
-        
+
     </refsection>
-    
+
     <refsection>
-        
+
         <title>例</title>
-        
+
         <programlisting role="example"><![CDATA[
 deff('[x]=myplus(y,z)','x=y+z')
 deff('[x]=mymacro(y,z)',['a=3*y+1'; 'x=a*z+y'])
  ]]></programlisting>
-        
+
     </refsection>
-    
+
     <refsection role="see also">
-        
+
         <title>参照</title>
-        
+
         <simplelist type="inline">
-            
+
             <member>
-                
+
                 <link linkend="exec">exec</link>
-                
+
             </member>
-            
+
             <member>
-                
+
                 <link linkend="function">function</link>
-                
-            </member>
-            
-            <member>
-                
-                <link linkend="profile">profile</link>
-                
+
             </member>
-            
+
             <member>
-                
+
                 <link linkend="quote">quote</link>
-                
+
             </member>
-            
+
         </simplelist>
-        
+
     </refsection>
-    
+
 </refentry>
 
index 968ba10..0d4a979 100644 (file)
@@ -21,7 +21,7 @@
     </refnamediv>
     <refsynopsisdiv>
         <title>Seqüência de Chamamento</title>
-        <synopsis>deff('[s1, s2, ...] = newfunction(e1, e2,...)',text [,opt])</synopsis>
+        <synopsis>deff('[s1, s2, ...] = newfunction(e1, e2,...)',text)</synopsis>
     </refsynopsisdiv>
     <refsection>
         <title>Parâmetros</title>
                     <para>matriz de strings.</para>
                 </listitem>
             </varlistentry>
-            <varlistentry>
-                <term>opt</term>
-                <listitem>
-                    <para>string opcional:</para>
-                    <variablelist>
-                        <varlistentry>
-                            <term>'c'</term>
-                            <listitem>
-                                <para>a função é "compilada" para ser eficiente
-                                    (padrão);
-                                </para>
-                            </listitem>
-                        </varlistentry>
-                        <varlistentry>
-                            <term>'n'</term>
-                            <listitem>
-                                <para>a função não é "compilada".</para>
-                            </listitem>
-                        </varlistentry>
-                    </variablelist>
-                </listitem>
-            </varlistentry>
         </variablelist>
     </refsection>
     <refsection>
             em um arquivo de texto e carregada através de <function>exec</function> ou
             <function>exec</function>.
         </para>
-        <para>Aspas em instruções (delimitando strings ou indicando transposição
-            de matrizes) devem ser dobradas para serem interpretadas corretamente (ver
-            quote). Isto pode tornar a escrita um tanto estranha. Uma alternativa em
-            tais casos é definir funções em arquivos, como de uso, para carregá-las no
-            Scilab através de <function>exec</function> (com a opção
-            <literal>'n'</literal>) e utilizar <function>sci2exp</function> para uma
-            impressão das instruções <function>deff</function> correspondentes.
-        </para>
     </refsection>
     <refsection>
         <title>Exemplos</title>
         <programlisting role="example"><![CDATA[
 deff('[x]=myplus(y,z)','x=y+z')
-
 deff('[x]=mymacro(y,z)',['a=3*y+1'; 'x=a*z+y'])
  ]]></programlisting>
     </refsection>
@@ -104,9 +73,6 @@ deff('[x]=mymacro(y,z)',['a=3*y+1'; 'x=a*z+y'])
                 <link linkend="function">function</link>
             </member>
             <member>
-                <link linkend="profile">profile</link>
-            </member>
-            <member>
                 <link linkend="quote">quote</link>
             </member>
         </simplelist>
index 6c5e968..4f431d5 100644 (file)
@@ -23,7 +23,7 @@
     </refnamediv>
     <refsynopsisdiv>
         <title>Последовательность вызова</title>
-        <synopsis>deff('[s1, s2, ...] = newfunction(e1, e2, ...)',text [,opt])</synopsis>
+        <synopsis>deff('[s1, s2, ...] = newfunction(e1, e2, ...)',text)</synopsis>
     </refsynopsisdiv>
     <refsection>
         <title>Аргументы</title>
                     <para>матрица символьных строк.</para>
                 </listitem>
             </varlistentry>
-            <varlistentry>
-                <term>opt</term>
-                <listitem>
-                    <para>необязательная символьная строка:</para>
-                    <variablelist>
-                        <varlistentry>
-                            <term>'c'</term>
-                            <listitem>
-                                <para>
-                                    функция "скомпилирована" для большей производительности (по умолчанию);
-                                </para>
-                            </listitem>
-                        </varlistentry>
-                        <varlistentry>
-                            <term>'n'</term>
-                            <listitem>
-                                <para>
-                                    функция не "скомпилирована".
-                                </para>
-                            </listitem>
-                        </varlistentry>
-                    </variablelist>
-                </listitem>
-            </varlistentry>
         </variablelist>
     </refsection>
     <refsection>
             текстовом файле и загруженная с помощью функции
             <function>exec</function>.
         </para>
-        <para>
-            Кавычки в инструкциях (разделяющие строки или означающие
-            транспонирование матрицы) должны быть удвоены для правильной
-            интерпретации (см. справку <link linkend="quote">кавычки</link>). Это может сделать написание
-            несколько неудобным. Как вариант, в таких случаях можно
-            определять функции в файлах, как обычно, для загрузки их в
-            Scilab с помощью функции <function>exec</function> (с опцией
-            <literal>'n'</literal>) и можно использовать функцию
-            <function>sci2exp</function> для получения распечатки
-            соответствующих инструкций в функции <function>deff</function>.
-        </para>
     </refsection>
     <refsection>
         <title>Примеры</title>
@@ -111,9 +76,6 @@ deff('[x]=mymacro(y,z)',['a=3*y+1'; 'x=a*z+y'])
                 <link linkend="function">function</link>
             </member>
             <member>
-                <link linkend="profile">profile</link>
-            </member>
-            <member>
                 <link linkend="quote">кавычка</link>
             </member>
         </simplelist>
index f6739c2..df60417 100644 (file)
@@ -1,11 +1,6 @@
 function deff(varargin)
-    if size(varargin) < 2 | size(varargin) > 3 then
-        error(999, msprintf(_("%s: Wrong number of input arguments: %d or %d expected.\n"), "deff", 2, 3));
-    end
-
-    opt = [];
-    if size(varargin) == 3 then
-        opt = varargin(3);
+    if size(varargin) <> 2  then
+        error(999, msprintf(_("%s: Wrong number of input arguments: %d expected.\n"), "deff", 2));
     end
 
     //try to build execstr string
index f849669..5f780ca 100644 (file)
@@ -166,12 +166,12 @@ if ~R16 then bugmes();quit;end
 clear foo1;
 // ================ Test 17 ====================================================
 //pb execution des macros non compilee
-deff("y=foo(a,b,c)","y=a+b+c","n");
+deff("y=foo(a,b,c)","y=a+b+c");
 R17=foo("aaa","bbb","cc")=="aaabbbcc";
 if ~R17 then bugmes();quit;end
 clear foo
 // ================ Test 18 ====================================================
-deff("y=foo(a,b,c)",["","y=a+b+c"],"n");
+deff("y=foo(a,b,c)",["","y=a+b+c"]);
 R18=foo("aaa","bbb","cc")=="aaabbbcc";
 if ~R18 then bugmes();quit;end
 clear foo
index 1d24829..3ec0638 100644 (file)
@@ -201,14 +201,14 @@ clear foo1;
 // ================ Test 17 ====================================================
 
 //pb execution des macros non compilee
-deff("y=foo(a,b,c)","y=a+b+c","n");
+deff("y=foo(a,b,c)","y=a+b+c");
 R17=foo("aaa","bbb","cc")=="aaabbbcc";
 if ~R17 then pause,end
 clear foo
 
 // ================ Test 18 ====================================================
 
-deff("y=foo(a,b,c)",["","y=a+b+c"],"n");
+deff("y=foo(a,b,c)",["","y=a+b+c"]);
 R18=foo("aaa","bbb","cc")=="aaabbbcc";
 if ~R18 then pause,end
 clear foo
index 7bcb862..f8f240b 100644 (file)
@@ -15,7 +15,7 @@
 // execstr forgets to store the function name and line number when in the errcatch mode
 prot=funcprot();funcprot(0);
 //uncompiled macros
-deff("foo","a=aaaa","n")
+deff("foo","a=aaaa")
 if execstr("foo()","errcatch")==0 then bugmes();quit;end
 [str,n,l,f]=lasterror(%t);
 if l<>2|f<>"foo" then bugmes();quit;end
index 148a7ea..17d3c57 100644 (file)
@@ -18,7 +18,7 @@ prot=funcprot();funcprot(0);
 
 
 //uncompiled macros
-deff("foo","a=aaaa","n")
+deff("foo","a=aaaa")
 if execstr("foo()","errcatch")==0 then pause,end
 [str,n,l,f]=lasterror(%t);
 if l<>2|f<>"foo" then pause,end
index 192ea70..e3e4843 100644 (file)
@@ -160,7 +160,7 @@ load(TMPDIR + "/savemacro.sod");
 assert_checkequal(l(1)(3*5, 9*3), ref);
 assert_checkequal(type(l(1)), 13);
 clear toto;
-deff("a = toto(x,y)", "a = x + y;", "n");
+deff("a = toto(x,y)", "a = x + y;");
 save(TMPDIR + "/savemacro.sod", "toto");
 clear toto;
 load(TMPDIR + "/savemacro.sod");
index 38e6d04..2b2ca68 100644 (file)
@@ -188,7 +188,7 @@ assert_checkequal(l(1)(3*5, 9*3), ref);
 assert_checkequal(type(l(1)), 13);
 
 clear toto;
-deff("a = toto(x,y)", "a = x + y;", "n");
+deff("a = toto(x,y)", "a = x + y;");
 save(TMPDIR + "/savemacro.sod", "toto");
 clear toto;
 load(TMPDIR + "/savemacro.sod");
index 63f5458..e67b7f4 100644 (file)
@@ -188,7 +188,7 @@ function   funcallname=lst_funcall(fil,fnamvect)
         strsubst(stripblanks(part(func_proto,keq+1:kpar-1))," ","_")+..
         part(func_proto,kpar:length(func_proto))
 
-        deff(func_proto,[firstline;txt(2:$)],"n")
+        deff(func_proto,[firstline;txt(2:$)])
         w=who("get");
         mname=w(1);
 
@@ -235,4 +235,4 @@ function   funcallname=lst_funcall(fil,fnamvect)
     // add the M-file name in funcallname vector (at the first index)
     funcallname=[fnam;funcallname]
 
-endfunction
\ No newline at end of file
+endfunction
index 8ce7ba4..95d7f19 100644 (file)
@@ -201,7 +201,7 @@ function res=mfile2sci(fil,res_path,Recmode,only_double,verbose_mode,prettyprint
         func_proto=part(func_proto,1:keq)+strsubst(stripblanks(part(func_proto,keq+1:kpar-1))," ","_")+part(func_proto,kpar:length(func_proto))
 
         wold = who("get");
-        deff(func_proto,[firstline;txt(2:$)],"n")
+        deff(func_proto,[firstline;txt(2:$)])
         w = who("get");
         w(find(w == "deff")) = [];
         w(find(w == "wold")) = [];
index c682440..4af4c1b 100644 (file)
@@ -61,7 +61,7 @@ function [ok,tt,dep_ut]=genfunc1(tt,inp,out,nci,nco,nx,nz,nrp,type_)
             if txt1==[] then return,end
             // check if txt defines y from u
             mac=null();
-            if execstr("deff(""[]=mac()"",txt1,""n"")", "errcatch") <> 0 then
+            if execstr("deff(""[]=mac()"",txt1)", "errcatch") <> 0 then
                 messagebox(["Incorrect syntax: ";lasterror()],"modal")
             else
                 vars=macrovar(mac)
@@ -98,7 +98,7 @@ function [ok,tt,dep_ut]=genfunc1(tt,inp,out,nci,nco,nx,nz,nrp,type_)
 
             if txt0==[] then return,end
             mac=null();
-            if execstr("deff(""[]=mac()"",txt0,""n"")", "errcatch") <> 0 then
+            if execstr("deff(""[]=mac()"",txt0)", "errcatch") <> 0 then
                 messagebox(["Incorrect syntax: ";lasterror()],"modal")
             else
                 vars=macrovar(mac)
@@ -129,7 +129,7 @@ function [ok,tt,dep_ut]=genfunc1(tt,inp,out,nci,nco,nx,nz,nrp,type_)
             "at event time, as functions of "+depp],txt2)
             if txt2==[] then return,end
             mac=null();
-            if execstr("deff(""[]=mac()"",txt2,""n"")", "errcatch") <> 0 then
+            if execstr("deff(""[]=mac()"",txt2)", "errcatch") <> 0 then
                 messagebox(["Incorrect syntax: ";lasterror()],"modal")
             else
                 vars=macrovar(mac)
@@ -153,7 +153,7 @@ function [ok,tt,dep_ut]=genfunc1(tt,inp,out,nci,nco,nx,nz,nrp,type_)
             "at event time. "],txt3)
             if txt3==[] then return,end
             mac=null();
-            if execstr("deff(""[]=mac()"",txt3,""n"")", "errcatch") <> 0 then
+            if execstr("deff(""[]=mac()"",txt3)", "errcatch") <> 0 then
                 messagebox(["Incorrect syntax: ";lasterror()],"modal")
             else
                 vars=macrovar(mac)
@@ -186,7 +186,7 @@ function [ok,tt,dep_ut]=genfunc1(tt,inp,out,nci,nco,nx,nz,nrp,type_)
         "as  function(s) of "+depp],txt4)
         if txt4==[] then return,end
         mac=null();
-        if execstr("deff(""[]=mac()"",txt4,""n"")", "errcatch") <> 0 then
+        if execstr("deff(""[]=mac()"",txt4)", "errcatch") <> 0 then
             messagebox(["Incorrect syntax: ";lasterror()],"modal")
         else
             break
@@ -213,7 +213,7 @@ function [ok,tt,dep_ut]=genfunc1(tt,inp,out,nci,nco,nx,nz,nrp,type_)
         "as  function(s) of "+depp],txt5)
         if txt5==[] then return,end
         mac=null();
-        if execstr("deff(""[]=mac()"",txt5,""n"")", "errcatch") <> 0 then
+        if execstr("deff(""[]=mac()"",txt5)", "errcatch") <> 0 then
             messagebox(["Incorrect syntax: ";lasterror()],"modal")
         else
             break
@@ -248,7 +248,7 @@ function [ok,tt,dep_ut]=genfunc1(tt,inp,out,nci,nco,nx,nz,nrp,type_)
             if txt6==[] then return,end
 
             mac=null();
-            if execstr("deff(""[]=mac()"",txt6,""n"")", "errcatch") <> 0 then
+            if execstr("deff(""[]=mac()"",txt6)", "errcatch") <> 0 then
                 messagebox(["Incorrect syntax: ";lasterror()],"modal")
             else
                 vars=macrovar(mac)
index 9442d04..031a710 100644 (file)
@@ -61,7 +61,7 @@ function [ok,tt,dep_ut]=genfunc2(tt,inp,out,nci,nco,nx,nz,nrp,type_)
             if txt1==[] then return,end
             // check if txt defines y from u
             mac=null();
-            if execstr("deff(""[]=mac()"",txt1,""n"")", "errcatch") <> 0 then
+            if execstr("deff(""[]=mac()"",txt1)", "errcatch") <> 0 then
                 messagebox(["Incorrect syntax: ";lasterror()],"modal")
             else
                 vars=macrovar(mac)
@@ -98,7 +98,7 @@ function [ok,tt,dep_ut]=genfunc2(tt,inp,out,nci,nco,nx,nz,nrp,type_)
 
             if txt0==[] then return,end
             mac=null();
-            if execstr("deff(""[]=mac()"",txt0,""n"")", "errcatch") <> 0 then
+            if execstr("deff(""[]=mac()"",txt0)", "errcatch") <> 0 then
                 messagebox(["Incorrect syntax: ";lasterror()],"modal")
             else
                 vars=macrovar(mac)
@@ -129,7 +129,7 @@ function [ok,tt,dep_ut]=genfunc2(tt,inp,out,nci,nco,nx,nz,nrp,type_)
             "at event time, as functions of "+depp],txt2)
             if txt2==[] then return,end
             mac=null();
-            if execstr("deff(""[]=mac()"",txt2,""n"")", "errcatch") <> 0 then
+            if execstr("deff(""[]=mac()"",txt2)", "errcatch") <> 0 then
                 messagebox(["Incorrect syntax: ";lasterror()],"modal")
             else
                 vars=macrovar(mac)
@@ -153,7 +153,7 @@ function [ok,tt,dep_ut]=genfunc2(tt,inp,out,nci,nco,nx,nz,nrp,type_)
             "at event time. "],txt3)
             if txt3==[] then return,end
             mac=null();
-            if execstr("deff(""[]=mac()"",txt3,""n"")", "errcatch") <> 0 then
+            if execstr("deff(""[]=mac()"",txt3)", "errcatch") <> 0 then
                 messagebox(["Incorrect syntax: ";lasterror()],"modal")
             else
                 vars=macrovar(mac)
@@ -186,7 +186,7 @@ function [ok,tt,dep_ut]=genfunc2(tt,inp,out,nci,nco,nx,nz,nrp,type_)
         "as  function(s) of "+depp],txt4)
         if txt4==[] then return,end
         mac=null();
-        if execstr("deff(""[]=mac()"",txt4,""n"")", "errcatch") <> 0 then
+        if execstr("deff(""[]=mac()"",txt4)", "errcatch") <> 0 then
             messagebox(["Incorrect syntax: ";lasterror()],"modal")
         else
             break
@@ -213,7 +213,7 @@ function [ok,tt,dep_ut]=genfunc2(tt,inp,out,nci,nco,nx,nz,nrp,type_)
         "as  function(s) of "+depp],txt5)
         if txt5==[] then return,end
         mac=null();
-        if execstr("deff(""[]=mac()"",txt5,""n"")", "errcatch") <> 0 then
+        if execstr("deff(""[]=mac()"",txt5)", "errcatch") <> 0 then
             messagebox(["Incorrect syntax: ";lasterror()],"modal")
         else
             break
@@ -249,7 +249,7 @@ function [ok,tt,dep_ut]=genfunc2(tt,inp,out,nci,nco,nx,nz,nrp,type_)
             if txt6==[] then return,end
 
             mac=null();
-            if execstr("deff(""[]=mac()"",txt6,""n"")", "errcatch") <> 0 then
+            if execstr("deff(""[]=mac()"",txt6)", "errcatch") <> 0 then
                 messagebox(["Incorrect syntax: ";lasterror()],"modal")
             else
                 vars=macrovar(mac)
index 569358f..a9b14f5 100644 (file)
@@ -174,7 +174,7 @@ function standard_draw (o, frame, draw_ports, up)
         sz   = sz - e   ;
     end
     //@@ Alan,28/11/08 : protect variables of standard_draw
-    deff("ierr=exec_gr_i(gr_i)","ierr=execstr(gr_i,''errcatch'',''n'');") ; //** on line function definition
+    deff("ierr=exec_gr_i(gr_i)","ierr=execstr(gr_i,''errcatch'');") ; //** on line function definition
     //** Check of the graphics object has generated any error
     if exec_gr_i(gr_i)<>0 then
         messagebox(["Error in Icon defintion"; lasterror()],"modal")
index 872907d..641d658 100644 (file)
@@ -26,7 +26,7 @@ assert_checkequal(out, []);
 assert_checkequal(in, []);
 assert_checkequal(txt, ref_txt);
 // =============================================================================
-deff("myFund()", "disp(""myFunc called"");", "n");
+deff("myFund()", "disp(""myFunc called"");");
 [in2, out2, txt2] = string(myFund);
 assert_checkequal(out2, out);
 assert_checkequal(in2, in);
@@ -61,12 +61,6 @@ assert_checkequal(out, "y");
 assert_checkequal(in, "x");
 assert_checkequal(text, [" "; "y = x + 1"; " "]);
 // =============================================================================
-deff("y = mymacrob(x)", "y = x + 1", "n");
-[out, in, text] = string(mymacrob);
-assert_checkequal(out, "y");
-assert_checkequal(in, "x");
-assert_checkequal(text, [" "; "y = x + 1"; " "]);
-// =============================================================================
 [out, in, text] = string(sinc);
 assert_checkequal(out, "y");
 assert_checkequal(in, ["x", "fl"]);
@@ -78,7 +72,7 @@ assert_checkequal(out, "y");
 assert_checkequal(in, "x");
 assert_checkequal(text, [" "; "y = x + 1;"; " "]);
 // =============================================================================
-deff("[y,z] = mymacroc(x,i)", "y = x + 1;z = y;", "n");
+deff("[y,z] = mymacroc(x,i)", "y = x + 1;z = y;");
 [out, in, text] = string(mymacroc);
 assert_checkequal(out, ["y", "z"]);
 assert_checkequal(in, ["x", "i"]);
index 71d731b..14ee65d 100644 (file)
@@ -28,7 +28,7 @@ assert_checkequal(out, []);
 assert_checkequal(in, []);
 assert_checkequal(txt, ref_txt);
 // =============================================================================
-deff("myFund()", "disp(""myFunc called"");", "n");
+deff("myFund()", "disp(""myFunc called"");");
 [in2, out2, txt2] = string(myFund);
 assert_checkequal(out2, out);
 assert_checkequal(in2, in);
@@ -65,12 +65,6 @@ assert_checkequal(out, "y");
 assert_checkequal(in, "x");
 assert_checkequal(text, [" "; "y = x + 1"; " "]);
 // =============================================================================
-deff("y = mymacrob(x)", "y = x + 1", "n");
-[out, in, text] = string(mymacrob);
-assert_checkequal(out, "y");
-assert_checkequal(in, "x");
-assert_checkequal(text, [" "; "y = x + 1"; " "]);
-// =============================================================================
 [out, in, text] = string(sinc);
 assert_checkequal(out, "y");
 assert_checkequal(in, ["x", "fl"]);
@@ -82,7 +76,7 @@ assert_checkequal(out, "y");
 assert_checkequal(in, "x");
 assert_checkequal(text, [" "; "y = x + 1;"; " "]);
 // =============================================================================
-deff("[y,z] = mymacroc(x,i)", "y = x + 1;z = y;", "n");
+deff("[y,z] = mymacroc(x,i)", "y = x + 1;z = y;");
 [out, in, text] = string(mymacroc);
 assert_checkequal(out, ["y", "z"]);
 assert_checkequal(in, ["x", "i"]);
index ea6992e..c2ba496 100644 (file)
@@ -45,7 +45,7 @@ assert_checkequal(in, "x");
 assert_checkequal(text, [" "; "y = x + 1"; " "]);
 //===============================
 mymacro = null();
-deff("y = mymacro(x)", "y = x + 1", "n");
+deff("y = mymacro(x)", "y = x + 1");
 [out, in, text]=string(mymacro);
 assert_checkequal(out, "y");
 assert_checkequal(in, "x");
index 2c26591..37d7525 100644 (file)
@@ -47,7 +47,7 @@ assert_checkequal(in, "x");
 assert_checkequal(text, [" "; "y = x + 1"; " "]);
 //===============================
 mymacro = null();
-deff("y = mymacro(x)", "y = x + 1", "n");
+deff("y = mymacro(x)", "y = x + 1");
 [out, in, text]=string(mymacro);
 assert_checkequal(out, "y");
 assert_checkequal(in, "x");