Mercurial > hg > octave-nkf

diff src/strfns.cc @ 13135:af36cdb552a6
char: return empty string if called with no arguments * strfns.cc (Fchar): return empty string if called with no arguments. Update tests.
author: John W. Eaton <jwe@octave.org>
date: Wed, 14 Sep 2011 13:50:33 -0400
parents: 00f5292aefeb
children: 98d23b0f16e1
--- a/src/strfns.cc
+++ b/src/strfns.cc
@@ -80,10 +80,12 @@
 
   int nargin = args.length ();
 
-  if (nargin == 1)
+  if (nargin == 0)
+    retval = "";
+  else if (nargin == 1)
     retval = args(0).convert_to_str (true, true,
                                      args(0).is_dq_string () ? '"' : '\'');
-  else if (nargin > 1)
+  else
     {
       int n_elts = 0;
 
@@ -144,14 +146,12 @@
 
       retval = octave_value (result, '\'');
     }
-  else
-    print_usage ();
 
   return retval;
 }
 
 /*
-%!error <Invalid call to char> char()
+%!assert (char (), '');
 %!assert (char (100) == "d");
 %!assert (all(char (100,100) == ["d";"d"]));
 %!assert (all(char ({100,100}) == ["d";"d"]));