Mercurial > hg > octave-nkf

changeset 4535:a5f23212a3d8

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2003-10-16 02:39:15 by jwe]
author jwe
date Thu, 16 Oct 2003 02:39:15 +0000
parents e8355721a809
children dcc6ac844587
files doc/interpreter/strings.txi scripts/ChangeLog scripts/deprecated/isstr.m src/ChangeLog src/strfns.cc
diffstat 5 files changed, 44 insertions(+), 3 deletions(-) [+]
line wrap: on
line diff
--- a/doc/interpreter/strings.txi
+++ b/doc/interpreter/strings.txi
@@ -139,6 +139,8 @@
 
 @DOCSTRING(str2mat)
 
+@DOCSTRING(ischar)
+
 @DOCSTRING(isstr)
 
 @node Searching and Replacing
--- a/scripts/ChangeLog
+++ b/scripts/ChangeLog
@@ -1,3 +1,7 @@
+2003-10-15  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* deprecated/isstr.m: New function.
+
 2003-10-04  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* plot/__axis_label__.m, plot/xlabel.m, plot/ylabel.m,
new file mode 100644
--- /dev/null
+++ b/scripts/deprecated/isstr.m
@@ -0,0 +1,31 @@
+## Copyright (C) 2003 John W. Eaton
+##
+## This file is part of Octave.
+##
+## Octave is free software; you can redistribute it and/or modify it
+## under the terms of the GNU General Public License as published by
+## the Free Software Foundation; either version 2, or (at your option)
+## any later version.
+##
+## Octave is distributed in the hope that it will be useful, but
+## WITHOUT ANY WARRANTY; without even the implied warranty of
+## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+## General Public License for more details.
+##
+## You should have received a copy of the GNU General Public License
+## along with Octave; see the file COPYING.  If not, write to the Free
+## Software Foundation, 59 Temple Place - Suite 330, Boston, MA
+## 02111-1307, USA.
+
+## -*- texinfo -*-
+## @deftypefn {Function File} {} isstr (@var{a})
+## This function has been deprecated.  Use ischar instead.
+## @end deftypefn
+
+## Author: jwe
+
+function retval = isstr (varargin)
+
+  retval = ischar (varargin{:});
+
+endfunction
--- a/src/ChangeLog
+++ b/src/ChangeLog
@@ -1,3 +1,7 @@
+2003-10-15  John W. Eaton  <jwe@bevo.che.wisc.edu>
+
+	* strfns.cc (Fischar): rename from Fisstr.
+
 2003-10-09  John W. Eaton  <jwe@bevo.che.wisc.edu>
 
 	* pr-output.cc (PRINT_ND_ARRAY): New macro.
--- a/src/strfns.cc
+++ b/src/strfns.cc
@@ -123,9 +123,9 @@
   return retval;
 }
 
-DEFUN (isstr, args, ,
+DEFUN (ischar, args, ,
   "-*- texinfo -*-\n\
-@deftypefn {Built-in Function} {} isstr (@var{a})\n\
+@deftypefn {Built-in Function} {} ischar (@var{a})\n\
 Return 1 if @var{a} is a string.  Otherwise, return 0.\n\
 @end deftypefn")
 {
@@ -136,7 +136,7 @@
   if (nargin == 1 && args(0).is_defined ())
     retval = args(0).is_string ();
   else
-    print_usage ("isstr");
+    print_usage ("ischar");
 
   return retval;
 }