* while/else control instruction is no more supported. 96/16796/1
Vincent COUVERT [Mon, 6 Jul 2015 12:51:24 +0000 (14:51 +0200)]
Change-Id: I77e8ed60d90ef4607285e7d8295f106f7105245c

scilab/CHANGES_6.0.X
scilab/modules/core/help/en_US/2_control_flow/while.xml
scilab/modules/core/help/fr_FR/2_control_flow/while.xml
scilab/modules/core/tests/nonreg_tests/bug_3407.dia.ref
scilab/modules/core/tests/nonreg_tests/bug_3407.tst
scilab/modules/functions/tests/nonreg_tests/bug_6849.tst

index 48b76b2..0bfda05 100644 (file)
@@ -86,6 +86,8 @@ Deprecated behavior
     write("TMPDIR/test", ["test", "sample"; "sample", "test"])
     "-" + mgetl("TMPDIR/test") + "-"
 
+* while/else control instruction is no more supported.
+
 
 Scilab Bug Fixes
 ================
index 3c834c4..73c73b2 100644 (file)
             <literal>"end"</literal>.
         </para>
         <para>
-            <literal>while expr ,instructions,...[,else instructions], end</literal>
+            <literal>while expr ,instructions,..., end</literal>
         </para>
         <para>
-            <literal>while expr do instructions,...[,else instructions], end</literal>
+            <literal>while expr do instructions,..., end</literal>
         </para>
         <para>
-            <literal>while expr then instructions,...[,else instructions], end</literal>
+            <literal>while expr then instructions,..., end</literal>
         </para>
         <para>Notes:</para>
         <itemizedlist>
                     the first instruction.
                 </para>
             </listitem>
-            <listitem>
-                <para>
-                    The optional <literal>[,else instructions]</literal> construction
-                    allows to gives <literal>instructions</literal> which are executed when
-                    <literal>expr</literal> expression becomes false.
-                </para>
-            </listitem>
         </itemizedlist>
         <para>
             According to the Code Conventions for the Scilab Programming Language it is recommended:
@@ -120,4 +113,15 @@ e,k
             </member>
         </simplelist>
     </refsection>
+    <refsection>
+        <title>History</title>
+        <revhistory>
+            <revision>
+                <revnumber>6.0.0</revnumber>
+                <revremark>
+                    The <literal>[,else instructions]</literal> construction no more supported.
+                </revremark>
+            </revision>
+        </revhistory>
+    </refsection>
 </refentry>
index dd8962a..a155b51 100644 (file)
@@ -7,9 +7,9 @@
     <refsynopsisdiv>
         <title>Séquence d'appel</title>
         <synopsis>
-            while expr ,instructions,...[,else instructions], end
-            while expr do instructions,...[,else instructions], end
-            while expr then instructions,...[,else instructions], end
+            while expr ,instructions,..., end
+            while expr do instructions,..., end
+            while expr then instructions,..., end
         </synopsis>
     </refsynopsisdiv>
     <refsection>
                     place de ces séparateurs.
                 </para>
             </listitem>
-            <listitem>
-                <para>
-                    La construction optionnelle <literal>,else instructions</literal> permet de spécifier
-                    des <literal>instructions</literal> à exécuter si l'expression <literal>expr</literal>
-                    est fausse.
-                </para>
-            </listitem>
         </itemizedlist>
         <para>
             En accord avec les conventions de codage pour le langage de programmation Scilab, il est recommandé de :
@@ -116,4 +109,15 @@ e,k
             </member>
         </simplelist>
     </refsection>
+    <refsection>
+        <title>History</title>
+        <revhistory>
+            <revision>
+                <revnumber>6.0.0</revnumber>
+                <revremark>
+                    La construction <literal>[,else instructions]</literal> n'est plus supportée.
+                </revremark>
+            </revision>
+        </revhistory>
+    </refsection>
 </refentry>
index d0e6ca9..22a72b8 100644 (file)
@@ -4,6 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
+//
 // <-- Non-regression test for bug 3407 -->
 //
 // <-- Bugzilla URL -->
@@ -36,27 +37,27 @@ function l=myfun2()
 endfunction
 l=myfun2();if l(1)<>2 then bugmes();quit;end
 function l=myfun2()
- if  %t then
+ if  %t then 
    [l,w]=where()
  end
 endfunction
 l=myfun2();if l(1)<>3 then bugmes();quit;end
 function l=myfun2()
  if  [%t
-      %t] then
+      %t] then 
    [l,w]=where()
  end
 endfunction
 l=myfun2();if l(1)<>4 then bugmes();quit;end
 function l=myfun2()
  if  [%t,..
-      %t] then
+      %t] then 
    [l,w]=where()
  end
 endfunction
 l=myfun2();if l(1)<>4 then bugmes();quit;end
 function l=myfun2()
- if  %f then
+ if  %f then 
    l=0,
  else  
    [l,w]=where()
@@ -64,7 +65,7 @@ function l=myfun2()
 endfunction
 l=myfun2();if l(1)<>5 then bugmes();quit;end
 function l=myfun2()
- if  %f then
+ if  %f then 
    l=0,
  else  
    l=0
@@ -80,26 +81,26 @@ function l=myfun2(),
 endfunction
 l=myfun2();if l(1)<>2 then bugmes();quit;end
 function l=myfun2(),
-  for k=1,..
+  for k=1,.. 
     [l,w]=where(),
   end,
 endfunction
 l=myfun2();if l(1)<>3 then bugmes();quit;end
 function l=myfun2(),
-  for k=1,
+  for k=1, 
     [l,w]=where(),
   end,
 endfunction
 l=myfun2();if l(1)<>3 then bugmes();quit;end
 function l=myfun2(),
-  for k=1,
+  for k=1, 
     l=0
   end,
   [l,w]=where(),
 endfunction
 l=myfun2();if l(1)<>5 then bugmes();quit;end
 function l=myfun2(),
-  for k=1,
+  for k=1, 
     l=0
   end,
   x=[1;
@@ -108,7 +109,7 @@ function l=myfun2(),
 endfunction
 l=myfun2();if l(1)<>7 then bugmes();quit;end
 function l=myfun2(),
-  for k=1,
+  for k=1, 
     l=0
   end,
   x=[1,..
@@ -124,27 +125,18 @@ function l=myfun2()
 endfunction
 l=myfun2();if l(1)<>2 then bugmes();quit;end
 function l=myfun2()
- while  %t then
+ while  %t then 
    [l,w]=where(),break
  end
 endfunction
 l=myfun2();if l(1)<>3 then bugmes();quit;end
 function l=myfun2()
- while  %f then
+ while  %f then 
    l=0,
  end
  [l,w]=where()
 endfunction
 l=myfun2();if l(1)<>5 then bugmes();quit;end
-function l=myfun2()
- while  %f then
-   l=0,
- else  
-   l=0
- end
- [l,w]=where()
-endfunction
-l=myfun2();if l(1)<>7 then bugmes();quit;end
 //Select
 function l=myfun2(),select 1,case 1 then [l,w]=where(),end,endfunction
 l=myfun2();if l(1)<>1 then bugmes();quit;end
@@ -153,21 +145,21 @@ function l=myfun2()
 endfunction
 l=myfun2();if l(1)<>2 then bugmes();quit;end
 function l=myfun2()
- select 1,case 1
+ select 1,case 1 
    [l,w]=where()
  end
 endfunction
 l=myfun2();if l(1)<>3 then bugmes();quit;end
 function l=myfun2()
  select 1,..
- case 1
+ case 1 
    [l,w]=where()
  end
 endfunction
 l=myfun2();if l(1)<>4 then bugmes();quit;end
 function l=myfun2()
  select 1,
- case 1
+ case 1 
    [l,w]=where()
  end
 endfunction
@@ -176,7 +168,7 @@ function l=myfun2()
  select 1,
  case 0
    l=0
- case 1
+ case 1 
    [l,w]=where()
  end
 endfunction
index 775bb19..5f80b35 100644 (file)
@@ -4,7 +4,7 @@
 //
 //  This file is distributed under the same license as the Scilab package.
 // =============================================================================
-// <-- NOT FIXED -->
+//
 // <-- Non-regression test for bug 3407 -->
 //
 // <-- Bugzilla URL -->
@@ -17,18 +17,18 @@ fprot=funcprot();
 funcprot(0);
 
 function l=myfun()
-  a=1
-  a=1
-  a=[1;..
-     1;..
-     1;..
-     1;..
-     1;..
-     1;..
-     2]
-  a=1
-  a=1
-  [l,w]=where()
+    a=1
+    a=1
+    a=[1;..
+    1;..
+    1;..
+    1;..
+    1;..
+    1;..
+    2]
+    a=1
+    a=1
+    [l,w]=where()
 endfunction
 l=myfun();if l(1)<>13 then pause,end
 //If
@@ -37,50 +37,50 @@ function l=myfun2(),if  %t then [l,w]=where(),end,endfunction
 l=myfun2();if l(1)<>1 then pause,end
 
 function l=myfun2()
- if  %t then [l,w]=where(),end
+    if  %t then [l,w]=where(),end
 endfunction
 l=myfun2();if l(1)<>2 then pause,end
 
 function l=myfun2()
- if  %t then 
-   [l,w]=where()
- end
+    if  %t then
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>3 then pause,end
 
 function l=myfun2()
- if  [%t
-      %t] then 
-   [l,w]=where()
- end
+    if  [%t
+        %t] then
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>4 then pause,end
 
 function l=myfun2()
- if  [%t,..
-      %t] then 
-   [l,w]=where()
- end
+    if  [%t,..
+        %t] then
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>4 then pause,end
 
 
 function l=myfun2()
- if  %f then 
-   l=0,
- else  
-   [l,w]=where()
- end
+    if  %f then
+        l=0,
+    else
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>5 then pause,end
 
 function l=myfun2()
- if  %f then 
-   l=0,
- else  
-   l=0
- end
- [l,w]=where()
+    if  %f then
+        l=0,
+    else
+        l=0
+    end
+    [l,w]=where()
 endfunction
 l=myfun2();if l(1)<>7 then pause,end
 
@@ -89,49 +89,49 @@ function l=myfun2(),for k=1, [l,w]=where(),end,endfunction
 l=myfun2();if l(1)<>1 then pause,end
 
 function l=myfun2(),
-  for k=1, [l,w]=where(),end,
+    for k=1, [l,w]=where(),end,
 endfunction
 l=myfun2();if l(1)<>2 then pause,end
 
 function l=myfun2(),
-  for k=1,.. 
-    [l,w]=where(),
-  end,
+    for k=1,..
+        [l,w]=where(),
+    end,
 endfunction
 l=myfun2();if l(1)<>3 then pause,end
 
 function l=myfun2(),
-  for k=1, 
-    [l,w]=where(),
-  end,
+    for k=1,
+        [l,w]=where(),
+    end,
 endfunction
 l=myfun2();if l(1)<>3 then pause,end
 
 function l=myfun2(),
-  for k=1, 
-    l=0
-  end,
-  [l,w]=where(),
+    for k=1,
+        l=0
+    end,
+    [l,w]=where(),
 endfunction
 l=myfun2();if l(1)<>5 then pause,end
 
 function l=myfun2(),
-  for k=1, 
-    l=0
-  end,
-  x=[1;
-     2];
-  [l,w]=where(),
+    for k=1,
+        l=0
+    end,
+    x=[1;
+    2];
+    [l,w]=where(),
 endfunction
 l=myfun2();if l(1)<>7 then pause,end
 
 function l=myfun2(),
-  for k=1, 
-    l=0
-  end,
-  x=[1,..
-     2];
-  [l,w]=where(),
+    for k=1,
+        l=0
+    end,
+    x=[1,..
+    2];
+    [l,w]=where(),
 endfunction
 l=myfun2();if l(1)<>7 then pause,end
 
@@ -140,100 +140,90 @@ function l=myfun2(),while  %t then [l,w]=where(),break,end,endfunction
 l=myfun2();if l(1)<>1 then pause,end
 
 function l=myfun2()
-  while  %t then [l,w]=where(),break,end
+    while  %t then [l,w]=where(),break,end
 endfunction
 l=myfun2();if l(1)<>2 then pause,end
 
 function l=myfun2()
- while  %t then 
-   [l,w]=where(),break
- end
+    while  %t then
+        [l,w]=where(),break
+    end
 endfunction
 l=myfun2();if l(1)<>3 then pause,end
 
 
 function l=myfun2()
- while  %f then 
-   l=0,
- end
- [l,w]=where()
+    while  %f then
+        l=0,
+    end
+    [l,w]=where()
 endfunction
 l=myfun2();if l(1)<>5 then pause,end
 
-function l=myfun2()
- while  %f then 
-   l=0,
- else  
-   l=0
- end
- [l,w]=where()
-endfunction
-l=myfun2();if l(1)<>7 then pause,end
-
 //Select
 function l=myfun2(),select 1,case 1 then [l,w]=where(),end,endfunction
 l=myfun2();if l(1)<>1 then pause,end
 
 function l=myfun2()
- select 1,case 1 then [l,w]=where(),end
+    select 1,case 1 then [l,w]=where(),end
 endfunction
 l=myfun2();if l(1)<>2 then pause,end
 
 function l=myfun2()
- select 1,case 1 
-   [l,w]=where()
- end
+    select 1,case 1
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>3 then pause,end
 
 function l=myfun2()
- select 1,..
- case 1 
-   [l,w]=where()
- end
+    select 1,..
+    case 1
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>4 then pause,end
 
 function l=myfun2()
- select 1,
- case 1 
-   [l,w]=where()
- end
+    select 1,
+    case 1
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>4 then pause,end
 
 function l=myfun2()
- select 1,
- case 0
-   l=0
- case 1 
-   [l,w]=where()
- end
+    select 1,
+    case 0
+        l=0
+    case 1
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>6 then pause,end
 
 function l=myfun2()
- select 1,
- case 0
-   l=0
- case 2
-   l=3
- else
-   [l,w]=where()
- end
+    select 1,
+    case 0
+        l=0
+    case 2
+        l=3
+    else
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>8 then pause,end
 
 function l=myfun2()
- select 1,
- case 0
-   l=0
- case 2
-   l=3
- else
-   l=-1
- end
- [l,w]=where()
+    select 1,
+    case 0
+        l=0
+    case 2
+        l=3
+    else
+        l=-1
+    end
+    [l,w]=where()
 endfunction
 l=myfun2();if l(1)<>10 then pause,end
 
@@ -246,51 +236,51 @@ function l=myfun2(),try, [l,w]=where(),end,endfunction
 l=myfun2();if l(1)<>1 then pause,end
 
 function l=myfun2()
-  try [l,w]=where(),end
+    try [l,w]=where(),end
 endfunction
 l=myfun2();if l(1)<>2 then pause,end
 
 function l=myfun2()
- try
-   [l,w]=where()
- end
+    try
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>3 then pause,end
 
 function l=myfun2()
- try ..
-   [l,w]=where()
- end
+    try ..
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>3 then pause,end
 
 
 function l=myfun2()
- try
-   error(999)
- catch
-   [l,w]=where()
- end
+    try
+        error(999)
+    catch
+        [l,w]=where()
+    end
 endfunction
 l=myfun2();if l(1)<>5 then pause,end
 
 function l=myfun2()
- try
-    error(999)
- catch 
-   l=0
- end
- [l,w]=where()
+    try
+        error(999)
+    catch
+        l=0
+    end
+    [l,w]=where()
 endfunction
 l=myfun2();if l(1)<>7 then pause,end
 
 function l=myfun2()
- try
-    l=0
- catch 
-   l=0
- end
- [l,w]=where()
+    try
+        l=0
+    catch
+        l=0
+    end
+    [l,w]=where()
 endfunction
 l=myfun2();if l(1)<>7 then pause,end
 
index 8812aa7..bc62f73 100644 (file)
 // produce an incorrect report
 
 function t
-  if ok then
-    //i
-  else
-    //l
-  end
+    if ok then
+        //i
+    else
+        //l
+    end
 endfunction
-add_profiling('t')
+add_profiling("t")
 ref=[0,0,0;0,0,0;0,0,1;0,0,0;0,0,1;0,0,0;0,0,0];
 if or(profile(t)<>ref ) then pause,end
 
 
 
 function t1
-  if ok then
-    //i
-  elseif a then
-    //e
-  else
-    //l
-  end
+    if ok then
+        //i
+    elseif a then
+        //e
+    else
+        //l
+    end
 endfunction
-add_profiling('t1')
+add_profiling("t1")
 ref=[0,0,0;0,0,0;0,0,1;0,0,0;0,0,1;0,0,0;0,0,1;0,0,0;0,0,0];
 if or(profile(t1)<>ref) then pause,end
 
 
 function t2
-  while ok 
-    //w 
-  else
-    //e
-  end      
+    while ok
+        //w
+    end
 endfunction
 
-add_profiling('t2')
-ref=[0,0,0;0,0,0;0,0,1;0,0,0;0,0,1;0,0,0;0,0,0]; 
+add_profiling("t2")
+ref=[0,0,0;0,0,0;0,0,1;0,0,0;0,0,1;0,0,0;0,0,0];
 if or(profile(t2)<>ref ) then pause,end
 
 function t3
-  select x
-  case 1
-    //1
-  case 2
-    //2
-  end      
+    select x
+    case 1
+        //1
+    case 2
+        //2
+    end
 endfunction
 
-add_profiling('t3')
+add_profiling("t3")
 ref=[0,0,0;0,0,1;0,0,0;0,0,1;0,0,0;0,0,1;0,0,0;0,0,0];
 if or(profile(t3)<>ref ) then pause,end
 
 function t4
-  select x
-  case 1
-    //1
-  case 2
-    //2
-  else
-    //e
-  end      
+    select x
+    case 1
+        //1
+    case 2
+        //2
+    else
+        //e
+    end
 endfunction
 
-add_profiling('t4')
+add_profiling("t4")
 ref=[0,0,0;0,0,1;0,0,0;0,0,1;0,0,0;0,0,1;0,0,0;0,0,1;0,0,0;0,0,0];
 if or(profile(t4)<>ref ) then pause,end