# HG changeset patch
# User John W. Eaton <jwe@octave.org>
# Date 1318873191 14400
# Node ID f80473f245532a328f7c925a8c4845581c56d978
# Parent  d6aaa28dff504647fc222c9423946ea1115d75fe
new functions is_sq_string and is_dq_string

* ov.cc (Fis_sq_string, Fis_dq_string): New functions.

diff -r d6aaa28dff50 -r f80473f24553 src/ov.cc
--- 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)
+*/