fix core tests 09/21309/3
Antoine ELIAS [Wed, 12 Feb 2020 14:38:26 +0000 (15:38 +0100)]
Change-Id: If09df8cf50af62e932cd1de0724bfc590e7d02e6

18 files changed:
scilab/modules/core/tests/nonreg_tests/bug_564.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_564.ref [deleted file]
scilab/modules/core/tests/nonreg_tests/bug_566.dia.ref [deleted file]
scilab/modules/core/tests/nonreg_tests/bug_566.tst
scilab/modules/core/tests/nonreg_tests/bug_6730.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_6891.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_8086.tst
scilab/modules/core/tests/unit_tests/basic_operations.dia.ref
scilab/modules/core/tests/unit_tests/basic_operations.tst
scilab/modules/core/tests/unit_tests/colon.tst
scilab/modules/core/tests/unit_tests/comment.dia.ref
scilab/modules/core/tests/unit_tests/display.dia.ref
scilab/modules/core/tests/unit_tests/eq_neq_priority.dia.ref
scilab/modules/core/tests/unit_tests/macro.dia.ref
scilab/modules/core/tests/unit_tests/parse.dia.ref
scilab/modules/core/tests/unit_tests/shortcutBinaryOperator.dia.ref
scilab/modules/core/tests/unit_tests/trycatch.dia.ref
scilab/modules/core/tests/unit_tests/warning.dia.ref

index 7d0cbda..ec31fda 100644 (file)
@@ -55,7 +55,7 @@ foo();
    2.
    3.
    4.
- Replot
+  "Replot"
 exec(foo);
    1.
    2.
@@ -63,4 +63,4 @@ exec(foo);
    4.
    3.
    4.
- Replot
+  "Replot"
diff --git a/scilab/modules/core/tests/nonreg_tests/bug_564.ref b/scilab/modules/core/tests/nonreg_tests/bug_564.ref
deleted file mode 100644 (file)
index c08011a..0000000
+++ /dev/null
@@ -1,29 +0,0 @@
--->foo();
-    1.  
-    2.  
-    3.  
-    4.  
- Replot   
--->exec(foo);
-    1.  
-    2.  
- needcompile  =
-    4.  
-    3.  
-    4.  
- Replot   
--->diary(0);
diff --git a/scilab/modules/core/tests/nonreg_tests/bug_566.dia.ref b/scilab/modules/core/tests/nonreg_tests/bug_566.dia.ref
deleted file mode 100644 (file)
index 05a0f71..0000000
+++ /dev/null
@@ -1,25 +0,0 @@
-//<-- CLI SHELL MODE -->
-// =============================================================================
-// 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.
-// =============================================================================
-// <-- Non-regression test for bug 566 -->
-//
-// <-- Bugzilla URL -->
-// http://bugzilla.scilab.org/show_bug.cgi?id=566
-//
-// <-- Short Description -->
-//    a(2,3,2)='x' returns an empty matrix.
-a(2,3,2)='y'
- a  = 
-(:,:,1)
-!      !
-!      !
-!      !
-(:,:,2)
-!       !
-!       !
-!    y  !
-if a == [] then bugmes();quit;end
index 5fc14de..d38c752 100644 (file)
@@ -1,11 +1,13 @@
-//<-- CLI SHELL MODE -->
 // =============================================================================
 // 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.
 // =============================================================================
-
+//
+// <-- CLI SHELL MODE -->
+// <-- NO CHECK REF -->
+//
 // <-- Non-regression test for bug 566 -->
 //
 // <-- Bugzilla URL -->
@@ -14,5 +16,6 @@
 // <-- Short Description -->
 //    a(2,3,2)='x' returns an empty matrix.
 
-a(2,3,2)='y'
-if a == [] then pause,end
+a(2,3,2)='y';
+assert_checkfalse(a == []);
+
index c9910b3..e310ef9 100644 (file)
@@ -18,28 +18,28 @@ a=mlist('foo');
 b=mlist(['foo','hello'],myfun);
 c=mlist(['foo','hello'],list('xxxx','yyyyy','zzzzz'));
 [x,y,z]=b.hello()
- z  = 
-   3.
- y  = 
-   2.
  x  = 
      ()
-if x<>list()|y<>2|z<>3 then bugmes();quit;end
-[x,y,z]=a.hello()
- z  = 
-   3.
  y  = 
    2.
+ z  = 
+   3.
+if x<>list()|y<>2|z<>3 then bugmes();quit;end
+[x,y,z]=a.hello()
  x  = 
      ()
+ y  = 
+   2.
+ z  = 
+   3.
 if x<>list()|y<>2|z<>3 then bugmes();quit;end
 [x,y,z]=c.hello(1:3)
- z  = 
- zzzzz
- y  = 
- yyyyy
  x  = 
- xxxx
+  "xxxx"
+ y  = 
+  "yyyyy"
+ z  = 
+  "zzzzz"
 if x<>'xxxx'|y<>'yyyyy'|z<>'zzzzz' then bugmes();quit;end
 function [x,y,z]=myfun(varargin), x=varargin,y=2;z=3;,endfunction
 function fun=%foo_e(name,M);  fun=myfun;endfunction
index 68a4c2d..2782414 100644 (file)
@@ -22,7 +22,7 @@ Name                     Type           Size           Bytes
 whos -name corel
 Name                     Type           Size           Bytes        
  
-corelib                  library                       1540         
+corelib                  library                       1184         
 whos -type polynomial
 Name                     Type           Size           Bytes        
  
index b8da69d..4c5864e 100644 (file)
@@ -75,7 +75,6 @@ macros_error_type_2 = ["base2dec"; ..
 "binomial"; ..
 "bitand"; ..
 "ind2sub"; ..
-"intersect"; ..
 "modulo"; ..
 "permute"; ..
 "pmodulo"; ..
index 7812575..e36ea5c 100644 (file)
@@ -59,7 +59,7 @@ a,b,c,d,e1,f,g,h,o,p
    2. + 0.i
    3. + 0.i
  p  = 
- apcdefghijklmnopqrstuvwxyz0123456789
+  "apcdefghijklmnopqrstuvwxyz0123456789"
 assert_checkequal(b(2),3);
 assert_checkequal(e1(1,3),1);
 assert_checkequal(e1([1 2],[3 4]),[1 4;7 8]);
@@ -136,6 +136,7 @@ assert_checkequal(ones(c),[1,1,1,1;1,1,1,1]);
 assert_checkequal(ones(3,3),[1,1,1;1,1,1;1,1,1]);
 assert_checkequal(ones(3,2),[1,1;1,1;1,1]);
 //
+rand("seed", 0);
 rand(a)
  ans  =
    0.2113249   0.0002211   0.6653811   0.8497452
@@ -161,10 +162,10 @@ rand(3,2)
 rand()
  ans  =
    0.4148104
-rand('uniform')
-rand('normal')
-rand('seed',5)
-rand('seed',0)
+rand("uniform")
+rand("normal")
+rand("seed", 5)
+rand("seed", 0)
 //
 abs(c)
  ans  =
@@ -211,10 +212,10 @@ size(a)
  ans  =
    2.   4.
 [m,n]=size(a)
- n  = 
-   4.
  m  = 
    2.
+ n  = 
+   4.
 //
 triu(a)
  ans  =
index ba22bd3..1f2ee0e 100644 (file)
@@ -103,15 +103,16 @@ assert_checkequal(ones(c),[1,1,1,1;1,1,1,1]);
 assert_checkequal(ones(3,3),[1,1,1;1,1,1;1,1,1]);
 assert_checkequal(ones(3,2),[1,1;1,1;1,1]);
 //
+rand("seed", 0);
 rand(a)
 rand(c)
 rand(3,3)
 rand(3,2)
 rand()
-rand('uniform')
-rand('normal')
-rand('seed',5)
-rand('seed',0)
+rand("uniform")
+rand("normal")
+rand("seed", 5)
+rand("seed", 0)
 //
 abs(c)
 abs(a)
index 863fabc..c7177a5 100644 (file)
@@ -5,32 +5,32 @@
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
 // <-- CLI SHELL MODE -->
-//
+// <-- NO CHECK REF -->
 
 // With start, stop integers
-computed=1:4
-expected = [1 2 3 4]
-if norm(expected-computed)>100*%eps then pause,end
+computed = 1:4;
+expected = [1 2 3 4];
+assert_checkequal(computed, expected);
 // With start, step, stop integers
 computed=1:2:5
 expected = [1 3 5]
-if norm(expected-computed)>100*%eps then pause,end
+assert_checkequal(computed, expected);
 // With start before stop
 computed=size(1:0)
 expected = [0 0]
-if expected<>computed then pause,end
+assert_checkequal(computed, expected);
 // With start before stop, whatever the step
 computed=size(1:1:0)
 expected = [0 0]
-if expected<>computed then pause,end
+assert_checkequal(computed, expected);
 // With start, step, stop reals
 a=(1-0.9)*50
 computed=(1:a)
 expected = [1 2 3 4 5]
-if norm(expected-computed)>100*%eps then pause,end
+assert_checkalmostequal(computed, expected);
 // With start, step, stop reals
 step=(1-0.9)*20
 computed=1:step:10
 expected = [1 3 5 7 9]
-if norm(expected-computed)>100*%eps then pause,end
+assert_checkalmostequal(computed, expected);
 
index 6c81d8e..ff08b8d 100644 (file)
@@ -346,34 +346,26 @@ function a=foo
 endfunction
 T=macr2tree(foo);
 [C,L]=getcommentsintree(T.statements)
+ C  = 
+  "initialization"  
+  "ttttt ttttt"     
+  "f f"             
+  " go out the loop"
+  "111 111"         
+  "sdf dfd"         
+  "xx xxx"          
+  "hhh hh"          
+  "loop end"        
  L  = 
-   1.
-   3.
-   5.
-   6.
-   8.
-   9.
+   1. 
+   3. 
+   5. 
+   6. 
+   8. 
+   9. 
    10.
    11.
    12.
- C  = 
-!initialization    !
-!                  !
-!ttttt ttttt       !
-!                  !
-!f f               !
-!                  !
-! go out the loop  !
-!                  !
-!111 111           !
-!                  !
-!sdf dfd           !
-!                  !
-!xx xxx            !
-!                  !
-!hhh hh            !
-!                  !
-!loop end          !
 Cref=["initialization";
 "ttttt ttttt";
 "f f";
index 5deafb1..32f21d5 100644 (file)
@@ -226,49 +226,42 @@ rlist(n1,d1)
 //display of strings
 digits="abcdefghijklmnopqrstuvwxyz"
  digits  = 
- abcdefghijklmnopqrstuvwxyz
+  "abcdefghijklmnopqrstuvwxyz"
 numbers="1234567890"
  numbers  = 
- 1234567890
+  "1234567890"
 majuscules="ABCDEFGHIJKLMNOPQRSTUVWXYZ"
  majuscules  = 
- ABCDEFGHIJKLMNOPQRSTUVWXYZ
+  "ABCDEFGHIJKLMNOPQRSTUVWXYZ"
 symbols=",./;''[] \ =-!\$%^&*()_+~:""[]| @"
  symbols  = 
- ,./;'[] \ =-!\$%^&*()_+~:"[]| @
+  ",./;'[] \ =-!\$%^&*()_+~:"[]| @"
 [numbers;digits]
  ans  =
-!1234567890                  !
-!                            !
-!abcdefghijklmnopqrstuvwxyz  !
+  "1234567890"                
+  "abcdefghijklmnopqrstuvwxyz"
 [numbers digits;digits numbers]
  ans  =
-!1234567890                  abcdefghijklmnopqrstuvwxyz  !
-!                                                        !
-!abcdefghijklmnopqrstuvwxyz  1234567890                  !
+  "1234567890"                  "abcdefghijklmnopqrstuvwxyz"
+  "abcdefghijklmnopqrstuvwxyz"  "1234567890"                
 [numbers digits+digits+digits]
  ans  =
          column 1
-!1234567890  !
+  "1234567890"
          column 2
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqr!
-!stuvwxyz                                                              !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 ans';
 [ans ans]
  ans  =
          column 1
-!1234567890                                                            !
-!                                                                      !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqr!
-!stuvwxyz                                                              !
+  "1234567890"                                                         
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 2
-!1234567890                                                            !
-!                                                                      !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqr!
-!stuvwxyz                                                              !
+  "1234567890"                                                         
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 ""
  ans  =
+  ""
 oldlines = lines();
 lines(0,50);
 digits="abcdefghijklmnopqrstuvwxyz";
@@ -277,260 +270,183 @@ n = "1234567890";
 // scalar
 n
  n  = 
- 1234567890
+  "1234567890"
 n+n+n+n+n
  ans  =
- 123456789012345678901234567890123456789012345678 
- 90                                              
+  "12345678901234567890123456789012345678901234567890"
 d
  d  = 
- abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv 
- wxyzabcdefghijklmnopqrstuvwxyz                  
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 d+d+d+d
  ans  =
- abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv 
- wxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqr 
- stuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmn 
- opqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghij 
- klmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdef 
- ghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzab 
- cdefghijklmnopqrstuvwxyz                        
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 // column vector
 [n; n; n; n; n]
  ans  =
-!1234567890  !
-!            !
-!1234567890  !
-!            !
-!1234567890  !
-!            !
-!1234567890  !
-!            !
-!1234567890  !
+  "1234567890"
+  "1234567890"
+  "1234567890"
+  "1234567890"
+  "1234567890"
 [d; d; d; d; d]
  ans  =
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 [n+n; n+n; n+n]
  ans  =
-!12345678901234567890  !
-!                      !
-!12345678901234567890  !
-!                      !
-!12345678901234567890  !
+  "12345678901234567890"
+  "12345678901234567890"
+  "12345678901234567890"
 [n+n; n+n+n; n+n]
  ans  =
-!12345678901234567890            !
-!                                !
-!123456789012345678901234567890  !
-!                                !
-!12345678901234567890            !
+  "12345678901234567890"          
+  "123456789012345678901234567890"
+  "12345678901234567890"          
 [n+n; d+d; n+n]
  ans  =
-!12345678901234567890                            !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqr!
-!stuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmn!
-!opqrstuvwxyz                                    !
-!                                                !
-!12345678901234567890                            !
+  "12345678901234567890"                         
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "12345678901234567890"                         
 [d; d]
  ans  =
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 [d; n]
  ans  =
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!1234567890                                      !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "1234567890"                                   
 [n; d]
  ans  =
-!1234567890                                      !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "1234567890"                                   
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 [n; n]
  ans  =
-!1234567890  !
-!            !
-!1234567890  !
+  "1234567890"
+  "1234567890"
 // row vector
 [n n n n n]
  ans  =
-         column 1 to 4
-!1234567890  1234567890  1234567890  1234567890  !
-         column 5
-!1234567890  !
+         column 1 to 3
+  "1234567890"  "1234567890"  "1234567890"
+         column 4 to 5
+  "1234567890"  "1234567890"
 [d d d d d]
  ans  =
          column 1
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 2
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 3
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 4
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 5
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 [n+n n+n n+n]
  ans  =
          column 1 to 2
-!12345678901234567890  12345678901234567890  !
+  "12345678901234567890"  "12345678901234567890"
          column 3
-!12345678901234567890  !
+  "12345678901234567890"
 [n+n n+n+n n+n]
  ans  =
          column 1
-!12345678901234567890  !
+  "12345678901234567890"
          column 2
-!123456789012345678901234567890  !
+  "123456789012345678901234567890"
          column 3
-!12345678901234567890  !
+  "12345678901234567890"
 [d d]
  ans  =
          column 1
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 2
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 [d n]
  ans  =
          column 1
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 2
-!1234567890  !
+  "1234567890"
 [n d]
  ans  =
          column 1
-!1234567890  !
+  "1234567890"
          column 2
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 [n n]
  ans  =
-!1234567890  1234567890  !
+  "1234567890"  "1234567890"
 // matrix
 nd = [n d];
 dn = [d n];
 [nd nd]
  ans  =
          column 1
-!1234567890  !
+  "1234567890"
          column 2
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 3
-!1234567890  !
+  "1234567890"
          column 4
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 [nd; nd]
  ans  =
          column 1
-!1234567890  !
-!            !
-!1234567890  !
+  "1234567890"
+  "1234567890"
          column 2
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 [nd' nd']
  ans  =
          column 1
-!1234567890                                      !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "1234567890"                                   
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 2
-!1234567890                                      !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "1234567890"                                   
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 [nd'; nd']
  ans  =
-!1234567890                                      !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!1234567890                                      !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "1234567890"                                   
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "1234567890"                                   
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
 [dn dn]
  ans  =
          column 1
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 2
-!1234567890  !
+  "1234567890"
          column 3
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 4
-!1234567890  !
+  "1234567890"
 [dn; dn]
  ans  =
          column 1
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
          column 2
-!1234567890  !
-!            !
-!1234567890  !
+  "1234567890"
+  "1234567890"
 [dn' dn']
  ans  =
          column 1
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!1234567890                                      !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "1234567890"                                   
          column 2
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!1234567890                                      !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "1234567890"                                   
 [dn'; dn']
  ans  =
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!1234567890                                      !
-!                                                !
-!abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuv!
-!wxyzabcdefghijklmnopqrstuvwxyz                  !
-!                                                !
-!1234567890                                      !
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "1234567890"                                   
+  "abcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyzabcdefghijklmnopqrstuvwxyz"
+  "1234567890"                                   
 lines(oldlines);
 // display of list
 list()
@@ -591,7 +507,7 @@ list(list(1,$),list())
 TL=tlist("x",1,2)
  TL  = 
        TL(1)
- x
+  "x"
        TL(2)
    1.
        TL(3)
@@ -599,44 +515,44 @@ TL=tlist("x",1,2)
 deff("%x_p(x)","disp(''Mydisplay'',x(2),x(3))")
 TL
  TL  = 
- Mydisplay
+  "Mydisplay"
    1.
    2.
 list(TL)
  ans  =
        ans(1)
- Mydisplay
+  "Mydisplay"
    1.
    2.
 list(list(TL))
  ans  =
        ans(1)
               ans(1)(1)
- Mydisplay
+  "Mydisplay"
    1.
    2.
 TL=tlist("x",1:$,2)
  TL  = 
- Mydisplay
+  "Mydisplay"
  1:1:$
    2.
 list(TL)
  ans  =
        ans(1)
- Mydisplay
+  "Mydisplay"
  1:1:$
    2.
 list(list(TL))
  ans  =
        ans(1)
               ans(1)(1)
- Mydisplay
+  "Mydisplay"
  1:1:$
    2.
 TL(2)=TL
  TL  = 
- Mydisplay
- Mydisplay
+  "Mydisplay"
+  "Mydisplay"
  1:1:$
    2.
    2.
index 912ad55..7f4ba9f 100644 (file)
@@ -27,13 +27,13 @@ endfunction
 // Calling %tut_o_tut
 // Calling %tut_n_tut
 (a("1") == a("2")) <> (a("3")==a("4"));
- Compute 1
- Compute 2
- Calling %tut_o_tut
- Compute 3
- Compute 4
- Calling %tut_o_tut
- Calling %tut_n_tut
+  "Compute 1"
+  "Compute 2"
+  "Calling %tut_o_tut"
+  "Compute 3"
+  "Compute 4"
+  "Calling %tut_o_tut"
+  "Calling %tut_n_tut"
 // Compute 1
 // Compute 2
 // Calling %tut_o_tut
@@ -42,10 +42,10 @@ endfunction
 // Compute 4
 // Calling %tut_o_tut
 a("1") == a("2") <> a("3")==a("4");
- Compute 1
- Compute 2
- Calling %tut_o_tut
- Compute 3
- Calling %tut_n_tut
- Compute 4
- Calling %tut_o_tut
+  "Compute 1"
+  "Compute 2"
+  "Calling %tut_o_tut"
+  "Compute 3"
+  "Calling %tut_n_tut"
+  "Compute 4"
+  "Calling %tut_o_tut"
index 55c7ebd..774cfe4 100644 (file)
@@ -484,11 +484,9 @@ 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'),  !
-!                                                               !
-!b,                                                             !
-!                                                               !
-!x=b(n),                                                        !
+  "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')
 y=t8(10);
 if y<>10 then bugmes();quit;end
@@ -539,7 +537,7 @@ 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  = 
- aa=1,if a==2 then aa=b(a),end
+  "aa=1,if a==2 then aa=b(a),end"
 fic=file("open",TMPDIR+"/test_macro_exec","unknown");
 write(fic,text)
 file("close",fic)
index cb6c1cd..1d3c53a 100644 (file)
@@ -30,10 +30,10 @@ ans(1)
    0.14112   2.   3.
 sin(3)
  ans  =
-   0.14112
+   0.1411200
 ans
  ans  = 
-   0.14112
+   0.1411200
 ans==1
  ans  =
   F
@@ -47,12 +47,12 @@ ans==1
     []
 "xxxxx"
  ans  =
- xxxxx
+  "xxxxx"
 "xx=xxx"
  ans  =
- xx=xxx
+  "xx=xxx"
 disp xxx
- xxx
+  "xxx"
 //syntax with simple lhs
 a=1
  a  = 
@@ -77,28 +77,28 @@ clear c;c(5)=9
    0.
    9.
 [m,k]=max(1:3)
- k  = 
-   3.
  m  = 
    3.
-[d1f d2f d3f d4f] = (1,2,3,4)
- d4f  = 
-   4.
- d3f  = 
+ k  = 
    3.
- d2f  = 
-   2.
+[d1f d2f d3f d4f] = (1,2,3,4)
  d1f  = 
    1.
+ d2f  = 
+   2.
+ d3f  = 
+   3.
+ d4f  = 
+   4.
 //if 10<>3 then x=disp('abcd'),end
 if 10<>3 then disp("abcd"),end
- abcd
+  "abcd"
 //if 10<>3  x=disp('abcd'),end//matlab syntax
 if 10<>3  disp("abcd"),end//matlab syntax
- abcd
+  "abcd"
 if (1==1) then "ok",end
  ans  =
- ok
+  "ok"
 for k=1:2,disp(k),end
    1.
    2.
@@ -112,14 +112,14 @@ for k=1:2,(1+1),end
  ans  =
    2.
 for k=1:2,[m,k]=max(1:k),end
- k  = 
-   1.
  m  = 
    1.
  k  = 
-   2.
+   1.
  m  = 
    2.
+ k  = 
+   2.
 for k=1:2,[1,2],end
  ans  =
    1.   2.
@@ -134,48 +134,48 @@ for k=1:3 k,end //matlab syntax
    3.
 //nouvelles syntaxes
 [a(1),b(2)]=(3,4)
+ a  = 
+   3.    2.   3.
+   44.   5.   6.
  b  = 
    0.
    4.
+[a(1),x,b(2)]=(3,4,5)
  a  = 
    3.    2.   3.
    44.   5.   6.
-[a(1),x,b(2)]=(3,4,5)
+ x  = 
+   4.
  b  = 
    0.
    5.
- x  = 
-   4.
+[a(1),b(1,2),x]=(3,4,5)
  a  = 
    3.    2.   3.
    44.   5.   6.
-[a(1),b(1,2),x]=(3,4,5)
- x  = 
-   5.
  b  = 
    0.   4.
    5.   0.
- a  = 
-   3.    2.   3.
-   44.   5.   6.
+ x  = 
+   5.
 I1=list(2,3);I2=list(1,2);
 clear x y;[x,y(I2(:))]=(11,12)
- y  = 
-   0.   12.
  x  = 
    11.
-clear x y;[x(I1(:)),y]=(11,12)
  y  = 
-   12.
+   0.   12.
+clear x y;[x(I1(:)),y]=(11,12)
  x  = 
    0.   0.   0. 
    0.   0.   11.
-clear x y;[x(I1(:)),y(I2(:))]=(11,12)
  y  = 
-   0.   12.
+   12.
+clear x y;[x(I1(:)),y(I2(:))]=(11,12)
  x  = 
    0.   0.   0. 
    0.   0.   11.
+ y  = 
+   0.   12.
 str_l=list();str_l(1)=1;str_l(1)
  ans  =
    1.
@@ -215,29 +215,29 @@ deff("t1=foo()","t1=list();t1(1)= 44;");foo()
        ans(1)
    44.
 deff("[a,b,x]=foo()","[a(1),b(1,2),x]=(3,4,5);");[a,b,x]=foo()
- x  = 
-   5.
- b  = 
-   0.   4.
  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  = 
-   5.
  b  = 
    0.   4.
+ x  = 
+   5.
+function [a,b,x]=foo(),u=5;[a(1),b(1,2),x]=(3,4,u),a(2)=44,endfunction
+[a,b,x]=foo()
  a  = 
-   3.
+   3. 
    44.
-function [a,b,x]=foo(),[a,b,x]=(3,4,5),endfunction
-[a,b,x]=foo()
+ b  = 
+   0.   4.
  x  = 
    5.
- b  = 
-   4.
+function [a,b,x]=foo(),[a,b,x]=(3,4,5),endfunction
+[a,b,x]=foo()
  a  = 
    3.
+ b  = 
+   4.
+ x  = 
+   5.
 function x=foo(),INDX=list(2,3); x(INDX(:))=11; endfunction
 foo()
  ans  =
index e8f49b7..6482d7f 100644 (file)
@@ -33,238 +33,238 @@ endfunction
 //
 // normal
 T() | F()
- Call return [%T] ...
- Call return [%F] ...
+  "Call return [%T] ..."
+  "Call return [%F] ..."
  ans  =
   T
 T() | T()
- Call return [%T] ...
- Call return [%T] ...
+  "Call return [%T] ..."
+  "Call return [%T] ..."
  ans  =
   T
 F() | T()
- Call return [%F] ...
- Call return [%T] ...
+  "Call return [%F] ..."
+  "Call return [%T] ..."
  ans  =
   T
 F() | F()
- Call return [%F] ...
- Call return [%F] ...
+  "Call return [%F] ..."
+  "Call return [%F] ..."
  ans  =
   F
 TT() | TT()
- Call return [%T %T] ...
- Call return [%T %T] ...
+  "Call return [%T %T] ..."
+  "Call return [%T %T] ..."
  ans  =
   T T
 TT() | TF()
- Call return [%T %T] ...
- Call return [%T %F] ...
+  "Call return [%T %T] ..."
+  "Call return [%T %F] ..."
  ans  =
   T T
 TT() | FF()
- Call return [%T %T] ...
- Call return [%F %F] ...
+  "Call return [%T %T] ..."
+  "Call return [%F %F] ..."
  ans  =
   T T
 TF() | TT()
- Call return [%T %F] ...
- Call return [%T %T] ...
+  "Call return [%T %F] ..."
+  "Call return [%T %T] ..."
  ans  =
   T T
 TF() | TF()
- Call return [%T %F] ...
- Call return [%T %F] ...
+  "Call return [%T %F] ..."
+  "Call return [%T %F] ..."
  ans  =
   T F
 TF() | FF()
- Call return [%T %F] ...
- Call return [%F %F] ...
+  "Call return [%T %F] ..."
+  "Call return [%F %F] ..."
  ans  =
   T F
 FF() | TT()
- Call return [%F %F] ...
- Call return [%T %T] ...
+  "Call return [%F %F] ..."
+  "Call return [%T %T] ..."
  ans  =
   T T
 FF() | TF()
- Call return [%F %F] ...
- Call return [%T %F] ...
+  "Call return [%F %F] ..."
+  "Call return [%T %F] ..."
  ans  =
   T F
 FF() | FF()
- Call return [%F %F] ...
- Call return [%F %F] ...
+  "Call return [%F %F] ..."
+  "Call return [%F %F] ..."
  ans  =
   F F
 // Shortcuted.
 if T() | F() then disp("Success"); else disp("Failed"); end
- Call return [%T] ...
- Success
+  "Call return [%T] ..."
+  "Success"
 if T() | T() then disp("Success"); else disp("Failed"); end
- Call return [%T] ...
- Success
+  "Call return [%T] ..."
+  "Success"
 // Double evaluation.
 if F() | T() then disp("Success"); else disp("Failed"); end
- Call return [%F] ...
- Call return [%T] ...
- Success
+  "Call return [%F] ..."
+  "Call return [%T] ..."
+  "Success"
 if F() | F() then disp("Failed"); else disp("Success"); end
- Call return [%F] ...
- Call return [%F] ...
- Success
+  "Call return [%F] ..."
+  "Call return [%F] ..."
+  "Success"
 //Shortcuted.
 if TT() | TT() then disp("Success"); else disp("Failed"); end
- Call return [%T %T] ...
- Success
+  "Call return [%T %T] ..."
+  "Success"
 if TT() | TF() then disp("Success"); else disp("Failed"); end
- Call return [%T %T] ...
- Success
+  "Call return [%T %T] ..."
+  "Success"
 if TT() | FF() then disp("Success"); else disp("Failed"); end
- Call return [%T %T] ...
- Success
+  "Call return [%T %T] ..."
+  "Success"
 // Double evaluation.
 if TF() | TT() then disp("Success"); else disp("Failed"); end
- Call return [%T %F] ...
- Call return [%T %T] ...
- Success
+  "Call return [%T %F] ..."
+  "Call return [%T %T] ..."
+  "Success"
 if TF() | TF() then disp("Failed"); else disp("Success"); end
- Call return [%T %F] ...
- Call return [%T %F] ...
- Success
+  "Call return [%T %F] ..."
+  "Call return [%T %F] ..."
+  "Success"
 if TF() | FF() then disp("Failed"); else disp("Success"); end
- Call return [%T %F] ...
- Call return [%F %F] ...
- Success
+  "Call return [%T %F] ..."
+  "Call return [%F %F] ..."
+  "Success"
 if FF() | TT() then disp("Success"); else disp("Failed"); end
- Call return [%F %F] ...
- Call return [%T %T] ...
- Success
+  "Call return [%F %F] ..."
+  "Call return [%T %T] ..."
+  "Success"
 if FF() | TF() then disp("Failed"); else disp("Success"); end
- Call return [%F %F] ...
- Call return [%T %F] ...
- Success
+  "Call return [%F %F] ..."
+  "Call return [%T %F] ..."
+  "Success"
 if FF() | FF() then disp("Failed"); else disp("Success"); end
- Call return [%F %F] ...
- Call return [%F %F] ...
- Success
+  "Call return [%F %F] ..."
+  "Call return [%F %F] ..."
+  "Success"
 //
 // ** AND
 //
 // normal
 T() & F()
- Call return [%T] ...
- Call return [%F] ...
+  "Call return [%T] ..."
+  "Call return [%F] ..."
  ans  =
   F
 T() & T()
- Call return [%T] ...
- Call return [%T] ...
+  "Call return [%T] ..."
+  "Call return [%T] ..."
  ans  =
   T
 F() & T()
- Call return [%F] ...
- Call return [%T] ...
+  "Call return [%F] ..."
+  "Call return [%T] ..."
  ans  =
   F
 F() & F()
- Call return [%F] ...
- Call return [%F] ...
+  "Call return [%F] ..."
+  "Call return [%F] ..."
  ans  =
   F
 TT() & TT()
- Call return [%T %T] ...
- Call return [%T %T] ...
+  "Call return [%T %T] ..."
+  "Call return [%T %T] ..."
  ans  =
   T T
 TT() & TF()
- Call return [%T %T] ...
- Call return [%T %F] ...
+  "Call return [%T %T] ..."
+  "Call return [%T %F] ..."
  ans  =
   T F
 TT() & FF()
- Call return [%T %T] ...
- Call return [%F %F] ...
+  "Call return [%T %T] ..."
+  "Call return [%F %F] ..."
  ans  =
   F F
 TF() & TT()
- Call return [%T %F] ...
- Call return [%T %T] ...
+  "Call return [%T %F] ..."
+  "Call return [%T %T] ..."
  ans  =
   T F
 TF() & TF()
- Call return [%T %F] ...
- Call return [%T %F] ...
+  "Call return [%T %F] ..."
+  "Call return [%T %F] ..."
  ans  =
   T F
 TF() & FF()
- Call return [%T %F] ...
- Call return [%F %F] ...
+  "Call return [%T %F] ..."
+  "Call return [%F %F] ..."
  ans  =
   F F
 FF() & TT()
- Call return [%F %F] ...
- Call return [%T %T] ...
+  "Call return [%F %F] ..."
+  "Call return [%T %T] ..."
  ans  =
   F F
 FF() & TF()
- Call return [%F %F] ...
- Call return [%T %F] ...
+  "Call return [%F %F] ..."
+  "Call return [%T %F] ..."
  ans  =
   F F
 FF() & FF()
- Call return [%F %F] ...
- Call return [%F %F] ...
+  "Call return [%F %F] ..."
+  "Call return [%F %F] ..."
  ans  =
   F F
 // Shortcuted.
 if F() & T() then disp("Failed"); else disp("Success"); end
- Call return [%F] ...
- Success
+  "Call return [%F] ..."
+  "Success"
 if F() & F() then disp("Failed"); else disp("Success"); end
- Call return [%F] ...
- Success
+  "Call return [%F] ..."
+  "Success"
 // Double evaluation.
 if T() & F() then disp("Failed"); else disp("Success"); end
- Call return [%T] ...
- Call return [%F] ...
- Success
+  "Call return [%T] ..."
+  "Call return [%F] ..."
+  "Success"
 if T() & T() then disp("Success"); else disp("Failed"); end
- Call return [%T] ...
- Call return [%T] ...
- Success
+  "Call return [%T] ..."
+  "Call return [%T] ..."
+  "Success"
 // Shortcuted.
 if FF() & TT() then disp("Failed"); else disp("Success"); end
- Call return [%F %F] ...
- Success
+  "Call return [%F %F] ..."
+  "Success"
 if FF() & TF() then disp("Failed"); else disp("Success"); end
- Call return [%F %F] ...
- Success
+  "Call return [%F %F] ..."
+  "Success"
 if FF() & FF() then disp("Failed"); else disp("Success"); end
- Call return [%F %F] ...
- Success
+  "Call return [%F %F] ..."
+  "Success"
 if TF() & TT() then disp("Failed"); else disp("Success"); end
- Call return [%T %F] ...
- Success
+  "Call return [%T %F] ..."
+  "Success"
 if TF() & TF() then disp("Failed"); else disp("Success"); end
- Call return [%T %F] ...
- Success
+  "Call return [%T %F] ..."
+  "Success"
 if TF() & FF() then disp("Failed"); else disp("Success"); end
- Call return [%T %F] ...
- Success
+  "Call return [%T %F] ..."
+  "Success"
 // Double evaluation.
 if TT() & TT() then disp("Success"); else disp("Failed"); end
- Call return [%T %T] ...
- Call return [%T %T] ...
- Success
+  "Call return [%T %T] ..."
+  "Call return [%T %T] ..."
+  "Success"
 if TT() & TF() then disp("Failed"); else disp("Success"); end
- Call return [%T %T] ...
- Call return [%T %F] ...
- Success
+  "Call return [%T %T] ..."
+  "Call return [%T %F] ..."
+  "Success"
 if TT() & FF() then disp("Failed"); else disp("Success"); end
- Call return [%T %T] ...
- Call return [%F %F] ...
- Success
+  "Call return [%T %T] ..."
+  "Call return [%F %F] ..."
+  "Success"
 clear T;
 clear F;
 clear TT;
index 4293593..e145842 100644 (file)
@@ -273,29 +273,18 @@ if test() then bugmes();quit;end
 deff("test()",["try a=2; try a=xxxx; catch a=a+1,end; catch;b=2;end"])
 tree2code(macr2tree(test))
  ans  =
-!function test()  !
-!                 !
-!try              !
-!                 !
-!  a = 2;  try    !
-!                 !
-!    a = xxxx;    !
-!                 !
-!  catch          !
-!                 !
-!    a = a+1      !
-!                 !
-!  end;           !
-!                 !
-!catch            !
-!                 !
-!  b = 2;         !
-!                 !
-!end;             !
-!                 !
-!endfunction      !
-!                 !
-!                 !
+  "function test()"
+  "try "           
+  "  a = 2;  try " 
+  "    a = xxxx;"  
+  "  catch "       
+  "    a = a+1"    
+  "  end;"         
+  "catch "         
+  "  b = 2;"       
+  "end;"           
+  "endfunction"    
+  ""               
 deff("r=test()",[
 "try a=2;try a=xxxx+33; catch a=a+1,end;catch;b=2;end"
 "r=exists(''a'')==0|exists(''b'')==1"
index 4f6c440..8a61ede 100644 (file)
@@ -25,9 +25,8 @@ end
 WARNING: this is a warning
 str //display str
  str  = 
-!*** Execution stopped after a warning. ***                !
-!                                                          !
-!Set warning("on") to continue execution after a warning.  !
+  "*** Execution stopped after a warning. ***"              
+  "Set warning("on") to continue execution after a warning."
 assert_checktrue(str <> "");
 //Testing waring on mode
 warning("on");
@@ -40,7 +39,7 @@ end
 WARNING: this is a warning
 str //display str
  str  = 
+  ""
 assert_checktrue(str == "");
 //Testing waring off mode
 warning("on");
@@ -53,5 +52,5 @@ end
 WARNING: this is a warning
 str //display str
  str  = 
+  ""
 assert_checktrue(str == "");