Mercurial > octave-nkf

changeset 806:5e45f8f8f8c1

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1994-10-14 14:21:50 by jwe]
author jwe
date Fri, 14 Oct 1994 14:21:50 +0000
parents 9737aee6900f
children c03b179482fc
files src/data.cc
diffstat 1 files changed, 0 insertions(+), 30 deletions(-) [+]
line wrap: on
line diff
--- a/src/data.cc	Fri Oct 14 14:18:46 1994 +0000
+++ b/src/data.cc	Fri Oct 14 14:21:50 1994 +0000
@@ -555,21 +555,6 @@
   return retval;
 }
 
-DEFUN ("isstr", Fisstr, Sisstr, 1, 1,
-  "isstr (X): return 1 if X is a string, 0 otherwise")
-{
-  Octave_object retval;
-
-  int nargin = args.length ();
-
-  if (nargin == 1 && args(0).is_defined ())
-    retval = (double) args(0).is_string ();
-  else
-    print_usage ("isstr");
-
-  return retval;
-}
-
 DEFUN ("prod", Fprod, Sprod, 1, 1,
   "prod (X): products")
 {
@@ -607,21 +592,6 @@
   return retval;
 }
 
-DEFUN ("setstr", Fsetstr, Ssetstr, 1, 1,
-  "setstr (V): convert a vector to a string")
-{
-  Octave_object retval;
-
-  int nargin = args.length ();
-
-  if (nargin == 1 && args(0).is_defined ())
-    retval = args(0).convert_to_str ();
-  else
-    print_usage ("setstr");
-
-  return retval;
-}
-
 DEFUN ("size", Fsize, Ssize, 1, 1,
   "[m, n] = size (x): return rows and columns of X")
 {