Mercurial > hg > octave-nkf

diff scripts/strings/strcat.m @ 8143:3a4694d67dbb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strcat.m: Compatibility of non-char data
author Ben Abbott <bpabbott@mac.com>
date Wed, 24 Sep 2008 14:42:04 -0400
parents 12a68443191c
children 502e58a0d44f
line wrap: on
line diff
--- a/scripts/strings/strcat.m
+++ b/scripts/strings/strcat.m
@@ -46,6 +46,10 @@
       for nv = 1:nargin
         if (ischar (varargin{nv}))
           varargin{nv} = cellstr (varargin{nv});
+        elseif (isreal (varargin{nv}))
+          varargin{nv} = cellstr (char (varargin{nv}));
+        elseif (isempty (varargin{nv}))
+          varargin{nv} = cellstr ('');
         elseif (iscell (varargin{nv}))
           allchar = false;
         else
@@ -115,5 +119,7 @@
 
 %!error strcat ();
 
-%!error strcat (1, 2);
+%!assert (strcat (1, 2), strcat (char(1), char(2)))
 
+%!assert (strcat ('', 2), strcat ([], char(2)))
+