# HG changeset patch
# User Ben Abbott <bpabbott@mac.com>
# Date 1222281724 14400
# Node ID 3a4694d67dbb3a87afdc8dca8c7e6027cb539cf0
# Parent  54b41376e381691eaa00b93efdf0a937b72bb651
strcat.m: Compatibility of non-char data

diff -r 54b41376e381 -r 3a4694d67dbb scripts/ChangeLog
--- a/scripts/ChangeLog	Wed Sep 24 13:31:04 2008 -0400
+++ b/scripts/ChangeLog	Wed Sep 24 14:42:04 2008 -0400
@@ -1,3 +1,8 @@
+2008-09-24  Ben Abbott  <bpabbott@mac.com>
+
+	* strings/strcat.m: Improve Matlab compatibility for non-character
+	data.
+
 2008-09-24  John W. Eaton  <jwe@octave.org>
 
 	* general/interpft.m: Increase tolerance in tests.
diff -r 54b41376e381 -r 3a4694d67dbb scripts/strings/strcat.m
--- a/scripts/strings/strcat.m	Wed Sep 24 13:31:04 2008 -0400
+++ b/scripts/strings/strcat.m	Wed Sep 24 14:42:04 2008 -0400
@@ -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)))
+