Mercurial > octave-nkf

comparison src/strfns.cc @ 4233:ccfdb55c8156

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2002-12-20 22:43:54 by jwe]
author jwe
date Fri, 20 Dec 2002 22:43:55 +0000
parents 9db3ff0b6913
children 83d4452bc522
comparison
equal deleted inserted replaced
4232:b032ebd54586 4233:ccfdb55c8156
39 "-*- texinfo -*-\n\ 39 "-*- texinfo -*-\n\
40 @deftypefn {Built-in Function} {} isstr (@var{a})\n\ 40 @deftypefn {Built-in Function} {} isstr (@var{a})\n\
41 Return 1 if @var{a} is a string. Otherwise, return 0.\n\ 41 Return 1 if @var{a} is a string. Otherwise, return 0.\n\
42 @end deftypefn") 42 @end deftypefn")
43 { 43 {
44 octave_value_list retval; 44 octave_value retval;
45 45
46 int nargin = args.length (); 46 int nargin = args.length ();
47 47
48 if (nargin == 1 && args(0).is_defined ()) 48 if (nargin == 1 && args(0).is_defined ())
49 retval = static_cast<double> (args(0).is_string ()); 49 retval = args(0).is_string ();
50 else 50 else
51 print_usage ("isstr"); 51 print_usage ("isstr");
52 52
53 return retval; 53 return retval;
54 } 54 }
66 @result{} \"abc\"\n\ 66 @result{} \"abc\"\n\
67 @end group\n\ 67 @end group\n\
68 @end example\n\ 68 @end example\n\
69 @end deftypefn") 69 @end deftypefn")
70 { 70 {
71 octave_value_list retval; 71 octave_value retval;
72 72
73 int nargin = args.length (); 73 int nargin = args.length ();
74 74
75 if (nargin == 1 && args(0).is_defined ()) 75 if (nargin == 1 && args(0).is_defined ())
76 retval = args(0).convert_to_str (); 76 retval = args(0).convert_to_str ();