Mercurial > octave-nkf
changeset 13712:f80473f24553
new functions is_sq_string and is_dq_string
* ov.cc (Fis_sq_string, Fis_dq_string): New functions.
| author | John W. Eaton <jwe@octave.org> |
|---|---|
| date | Mon, 17 Oct 2011 13:39:51 -0400 |
| parents | d6aaa28dff50 |
| children | d99aa455296e |
| files | src/ov.cc |
| diffstat | 1 files changed, 49 insertions(+), 0 deletions(-) [+] |
line wrap: on
line diff
--- a/src/ov.cc Mon Oct 17 12:23:06 2011 -0400 +++ b/src/ov.cc Mon Oct 17 13:39:51 2011 -0400 @@ -2882,3 +2882,52 @@ */ +DEFUN (is_sq_string, args, , + "-*- texinfo -*-\n\ +@deftypefn {Built-in Function} {} is_sq_string (@var{val})\n\ +Return true if @var{val} is a single-quoted character string\n\ +@end deftypefn") +{ + octave_value retval; + + if (args.length () == 1) + retval = args(0).is_sq_string (); + else + print_usage (); + + return retval; +} + +/* +%!assert (is_sq_string ('foo'), true); +%!assert (is_sq_string ("foo"), false); +%!assert (is_sq_string (1.0), false); +%!assert (is_sq_string ({2.0}), false); +%!error is_sq_string () +%!error is_sq_string ('foo', 2) +*/ + +DEFUN (is_dq_string, args, , + "-*- texinfo -*-\n\ +@deftypefn {Built-in Function} {} is_dq_string (@var{val})\n\ +Return true if @var{val} is a double-quoted character string\n\ +@end deftypefn") +{ + octave_value retval; + + if (args.length () == 1) + retval = args(0).is_dq_string (); + else + print_usage (); + + return retval; +} + +/* +%!assert (is_dq_string ("foo"), true); +%!assert (is_dq_string ('foo'), false); +%!assert (is_dq_string (1.0), false); +%!assert (is_dq_string ({2.0}), false); +%!error is_dq_string () +%!error is_dq_string ("foo", 2) +*/