1 files changed, 32 insertions, 0 deletions
diff --git a/modules/string/macros/blanks.sci b/modules/string/macros/blanks.sci
new file mode 100755
index 000000000..80c93ddce
--- /dev/null
+++ b/modules/string/macros/blanks.sci
@@ -0,0 +1,32 @@
+// Scilab ( http://www.scilab.org/ ) - This file is part of Scilab
+// Copyright (C) INRIA - 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
+
+// blanks macro
+// blanks(n)
+// Create string of blank characters
+
+function str = blanks(n)
+
+    if ~or(type(n)==[1,8]) then
+        error(msprintf(gettext("%s: Wrong type for input argument #%d: An integer expected.\n"),"blanks",1));
+    end
+
+    if and(size(n)<>[1 1]) then
+        error(msprintf(gettext("%s: Wrong size for input argument #%d: An integer expected.\n"),"blanks",1));
+    end
+
+    if n>0 then
+        str = part(" ",ones(1,n));
+    elseif n==0
+        str = "";
+    else
+        error(msprintf(gettext("%s: Wrong values for input argument #%d: An non-negative integer expected.\n"),"blanks",1));
+    end
+
+endfunction