scilab/modules/string/macros/emptystr.sci

   1 // Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
   2 // Copyright (C) DIGITEO - 2010 - Antoine ELIAS
   3 //
   4 // Copyright (C) 2012 - 2016 - Scilab Enterprises
   5 //
   6 // This file is hereby licensed under the terms of the GNU GPL v2.0,
   7 // pursuant to article 5.3.4 of the CeCILL v.2.1.
   8 // This file was originally licensed under the terms of the CeCILL v2.1,
   9 // and continues to be available under such terms.
  10 // For more information, see the COPYING file which you should have received
  11 // along with this program.
  12
  13
  14 function result = emptystr(varargin)
  15     [lhs, rhs] = argn(0);
  16
  17     if rhs == 1 then
  18         //emptystr(x)
  19         s = size(varargin(1));
  20         p = prod(s);
  21         if p == 0 then
  22             //emptystr([])
  23             result = [];
  24         else
  25             result(1:p) = "";
  26             result = matrix(result, s);
  27         end
  28     elseif rhs == 2 then
  29         //emptystr(x,y)
  30         x = varargin(1);
  31         y = varargin(2);
  32
  33         if type(x) <> 1 then
  34             error(msprintf(_("%s: Wrong type for input argument #%d: Matrix of integers expected.\n"), "emptystr", 1));
  35         end
  36         if type(y) <> 1 then
  37             error(msprintf(_("%s: Wrong type for input argument #%d: Matrix of integers expected.\n"), "emptystr", 2));
  38         end
  39
  40         if x == 0 | y == 0 then
  41             result = [];
  42         else
  43             result(x,y) = "";
  44         end
  45     else
  46         //emptystr() or emptystr(x,y, ... )
  47         result = "";
  48     end
  49 endfunction
  50