bug 7282, bug 7391 add links in help files 46/1246/2
Allan CORNET [Tue, 6 Jul 2010 09:56:42 +0000 (11:56 +0200)]
Change-Id: I6e5f3619b51f722650cb0380eb10297be3893002

scilab/CHANGES_5.3.X
scilab/modules/functions/help/fr_FR/execstr.xml
scilab/modules/string/help/en_US/eval.xml [moved from scilab/modules/elementary_functions/help/en_US/eval.xml with 100% similarity]
scilab/modules/string/help/en_US/evstr.xml
scilab/modules/string/help/fr_FR/eval.xml [moved from scilab/modules/elementary_functions/help/fr_FR/eval.xml with 100% similarity]
scilab/modules/string/help/fr_FR/evstr.xml
scilab/modules/string/help/pt_BR/eval.xml [moved from scilab/modules/elementary_functions/help/pt_BR/eval.xml with 100% similarity]
scilab/modules/string/help/pt_BR/evstr.xml
scilab/modules/string/macros/eval.sci
scilab/modules/string/tests/nonreg_tests/bug_7282.dia.ref [new file with mode: 0644]
scilab/modules/string/tests/nonreg_tests/bug_7282.tst [new file with mode: 0644]

index a4fb494..bb2f384 100644 (file)
@@ -29,8 +29,12 @@ Bug Fixes:
 
 * bug 7158 fixed - help chapter about texmacs was empty.
 
+* bug 7282 fixed - eval failed on some functions without output arguments.
+
 * bug 7360 fixed - Modelica Hydraulics Xcos demo was not simulating.
 
+* bug 7391 fixed - add links between help files about evstr, eval, execstr.
+
 * bug 7437 fixed - if history file was invalid, history browser crashed.
 
 * bug 7441 fixed - history browser crashed if language was changed by user.
index 9047841..32c7cb2 100644 (file)
@@ -134,7 +134,7 @@ end
         <link linkend="whereami">whereami</link>
       </member>
       <member>
-        <link linkend="execstr">execstr</link>
+        <link linkend="evstr">evstr</link>
       </member>
     </simplelist>
   </refsection>
index 844087c..662661c 100644 (file)
@@ -115,6 +115,8 @@ evstr('NaN'), evstr('Inf')</programlisting>
 
     <simplelist type="inline">
       <member><link linkend="execstr">execstr</link></member>
+      <member><link linkend="evstr">evstr</link></member>
+      <member><link linkend="execstr">execstr</link></member>
     </simplelist>
   </refsection>
 </refentry>
index 81a84f7..ac94433 100644 (file)
@@ -116,6 +116,8 @@ evstr('NaN'), evstr('Inf') </programlisting>
 
     <simplelist type="inline">
       <member><link linkend="execstr">execstr</link></member>
+      <member><link linkend="evstr">evstr</link></member>
+      <member><link linkend="execstr">execstr</link></member>
     </simplelist>
   </refsection>
 </refentry>
index 6c70155..6ee7e17 100644 (file)
@@ -112,6 +112,8 @@ evstr('NaN'), evstr('Inf') </programlisting>
 
     <simplelist type="inline">
       <member><link linkend="execstr">execstr</link></member>
+      <member><link linkend="evstr">evstr</link></member>
+      <member><link linkend="execstr">execstr</link></member>
     </simplelist>
   </refsection>
 </refentry>
index 1f52c4b..f7bcd76 100644 (file)
@@ -1,29 +1,32 @@
 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
-// Copyright (C) INRIA - 
-// 
+// Copyright (C) INRIA -
+// Copyright (C) DIGITEO - 2010 - Allan CORENT
+//
 // This file must be used under the terms of the CeCILL.
 // This source file is licensed as described in the file COPYING, which
 // you should have received as part of this distribution.  The terms
-// are also available at    
+// are also available at
 // http://www.cecill.info/licences/Licence_CeCILL_V2-en.txt
 
 
-function [h]=eval(z)
-       // Syntax :  H = eval(Z)
-       // returns the evaluation of the matrix of character strings Z.
-       // Example: a=1; b=2; Z=['a','b'] ; eval(Z) returns the matrix [1,2];
-       //!
-       
-       [mz,nz]=size(z),
-       if mz*nz>1 then
-               texte=[];
-               for l=1:mz,for k=1:nz,
-                       texte=[texte;'%h('+string(l)+','+string(k)+')='+z(l,k)],
-               end
-       end
-       else
-       texte='%h='+z
-       end
-       deff('[%h]=%eval()',texte),
-       h=%eval(),
+function _h = eval(z)
+  // Syntax :  H = eval(Z)
+  // returns the evaluation of the matrix of character strings Z.
+  // Example: a=1; b=2; Z=['a','b'] ; eval(Z) returns the matrix [1,2];
+  //!
+
+  _h = [];
+  [mz, nz] = size(z);
+  if mz * nz > 1 then
+    str = [];
+    for l = 1:mz, for k = 1:nz,
+        str = [str; "%_h(" + string(l) + ", " + string(k) + ")=" + z(l,k)];
+      end
+    end
+  else
+    str = "%_h = " + z;
+  end
+  %_h = [];
+  deff("[%_h] = %eval();", str);
+  _h = %eval();
 endfunction
diff --git a/scilab/modules/string/tests/nonreg_tests/bug_7282.dia.ref b/scilab/modules/string/tests/nonreg_tests/bug_7282.dia.ref
new file mode 100644 (file)
index 0000000..6a5c881
--- /dev/null
@@ -0,0 +1,22 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2010 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+// <-- JVM NOT MANDATORY -->
+// <-- Non-regression test for bug 7282 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=7282
+//
+// <-- Short Description -->
+// eval failed on some functions without output arguments.
+str = "realtimeinit(60)";
+r = eval(str);
+if r <> [] then bugmes();quit;end
+function o = blabla()
+ o = 3;
+endfunction
+r = eval("blabla()");
+if r <> 3 then bugmes();quit;end
diff --git a/scilab/modules/string/tests/nonreg_tests/bug_7282.tst b/scilab/modules/string/tests/nonreg_tests/bug_7282.tst
new file mode 100644 (file)
index 0000000..f255d36
--- /dev/null
@@ -0,0 +1,28 @@
+// =============================================================================
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) 2010 - DIGITEO - Allan CORNET
+//
+//  This file is distributed under the same license as the Scilab package.
+// =============================================================================
+
+// <-- JVM NOT MANDATORY -->
+// <-- Non-regression test for bug 7282 -->
+//
+// <-- Bugzilla URL -->
+// http://bugzilla.scilab.org/show_bug.cgi?id=7282
+//
+// <-- Short Description -->
+// eval failed on some functions without output arguments.
+
+str = "realtimeinit(60)";
+r = eval(str);
+if r <> [] then pause, end
+
+function o = blabla()
+ o = 3;
+endfunction
+
+r = eval("blabla()");
+if r <> 3 then pause, end
+
+