1 files changed, 81 insertions, 0 deletions
diff --git a/modules/string/macros/evstr.sci b/modules/string/macros/evstr.sci
new file mode 100755
index 000000000..fd407046a
--- /dev/null
+++ b/modules/string/macros/evstr.sci
@@ -0,0 +1,81 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA
+// Copyright (C) DIGITEO - 2010 - Allan CORNET
+//
+// 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
+// http://www.cecill.info/licences/Licence_CeCILL_V2.1-en.txt
+
+
+function [%val, %ierr] = evstr(%str)
+
+    [lhs, rhs] = argn(0);
+    %val = [];
+    select type(%str)
+
+    case 10 then
+        // matrix of character strings
+
+        // bug 7003
+        if ~isdef("Nan") then
+            Nan = %nan;
+        end
+        if ~isdef("NaN") then
+            NaN = %nan;
+        end
+
+        if ~isdef("Inf") then
+            Inf = %inf;
+        end
+
+        if ~isdef("INF") then
+            INF = %inf;
+        end
+
+        for %l = 1:size(%str, "r")
+            %t1(%l) = strcat(%str(%l, :), ",") + ";"
+        end
+        %t1(1) = "%val=[" + %t1(1);
+        %t1($) = part(%t1($), 1:length(%t1($)) - 1)+";";
+        %t1($+1)="]";
+        if lhs == 2 then
+            %ierr = execstr(%t1, "errcatch");
+        else
+            execstr(%t1)
+        end
+
+    case 15 then
+        // list
+        %sexp = %str(2),
+        %nstr = prod(size(%sexp));
+        % = list();
+        if lhs == 2 then
+            for %k_ = 1:%nstr,
+                [%w, %ierr] = evstr(%sexp(%k_));
+                %(%k_) = %w;
+                if %ierr <>0  then
+                    %val = [];
+                    return;
+                end
+            end
+            [%val, %ierr] = evstr(%str(1));
+        else
+            for %k_ = 1:%nstr,
+                %(%k_) = evstr(%sexp(%k_));
+            end
+            %val = evstr(%str(1))
+        end
+
+    case 1 then
+        // real or complex constant matrix
+        %val = %str;
+        %ierr = 0;
+    else
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: Real or Complex matrix, Matrix of character strings or list expected.\n"), "evstr", 1));
+    end
+    if exists("%val", "local") == 0 then
+        error(msprintf(gettext("%s: Given expression has no value.\n"), "evstr"));
+    end
+endfunction