function [x,ok] = str2num(s)

%STR2NUM Convert string matrix to numeric array.

%   X = STR2NUM(S) converts a character array representation of a matrix of

%   numbers to a numeric matrix. For example,

%       

%        S = ['1 2'         str2num(S) => [1 2;3 4]

%             '3 4']

%

%   The numbers in the string matrix S should be ASCII character

%   representations of a numeric values.  Each number may contain digits,

%   a decimal point, a leading + or - sign, an 'e' or 'd' preceding a

%   power of 10 scale factor, and an 'i' or 'j' for a complex unit.

%

%   If the string S does not represent a valid number or matrix,

%   STR2NUM(S) returns the empty matrix.  [X,OK]=STR2NUM(S) will

%   return OK=0 if the conversion failed.

%

%   CAUTION: STR2NUM uses EVAL to convert the input argument, so side

%   effects can occur if the string contains calls to functions.  Use

%   STR2DOUBLE to avoid such side effects or when S contains a single

%   number.

%

%   Also spaces can be significant.  For instance, str2num('1+2i') and 

%   str2num('1 + 2i') produce x = 1+2i while str2num('1 +2i') produces

%   x = [1 2i].  These problems are also avoided when you use STR2DOUBLE.

%    

%   See also STR2DOUBLE, NUM2STR, HEX2NUM, CHAR.

%   Copyright 1984-2007 The MathWorks, Inc.

if ~ischar(s) || ndims(s)>2 

   error(message('MATLAB:str2num:InvalidArgument'))

end

if isempty(s) 

    x = [];

    ok=false;

    return

end

[m,n] = size(s); 

if m==1, 

  % Replace any char(0) characters with spaces

  s(s==char(0)) = ' '; 

  [x,ok] = protected_conversion(['[' s ']']); % Always add brackets 

else

    semi = ';';

    space = ' ';

    if ~any(any(s == '[' | s == ']')), % String does not contain brackets

        o = ones(m-1,1);

        s = [['[';space(o)] s [semi(o) space(o);' ]']]';

    elseif ~any(any(s(1:m-1,:) == semi)), % No ;'s in non-last rows

        s = [s,[semi(ones(m-1,1));space]]';

    else                               % Put ;'s where appropriate

        spost = space(ones(m,1));

        for i = 1:m-1,

            last = find(s(i,:) ~= space,1,'last');

            if s(i,n-last+1) ~= semi,

                spost(i) = semi;

            end

        end

        s = [s,spost]';

    end

    [x,ok] = protected_conversion(s);

end

if isnumeric(x) 

    return 

end

if ischar(x) || iscell(x)

   x = [];

   ok = false;

end