Mercurial > octave-nkf

changeset 6830:abe21f30e1fe

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-08-24 20:29:32 by jwe]
author jwe
date Fri, 24 Aug 2007 20:29:32 +0000
parents 6c85f7d37e61
children af63f57a19ae
files src/ChangeLog src/mappers.cc
diffstat 2 files changed, 8 insertions(+), 14 deletions(-) [+]
line wrap: on
line diff
--- a/src/ChangeLog	Fri Aug 24 20:26:24 2007 +0000
+++ b/src/ChangeLog	Fri Aug 24 20:29:32 2007 +0000
@@ -16,9 +16,9 @@
 
 2007-08-24  John W. Eaton  <jwe@octave.org>
 
-	* mappers.cc (octave_is_NA (int), xisnan (int)): New functions.
-	(install_mapper_functions): Use them to handle character data in
-	isna and isnan functions.
+	* mappers.cc (dummyp): New function.
+	(install_mapper_functions): Use it to handle character data in
+	finite, isinf, isna, and isnan functions.
 
 	* load-path.cc (load_path::do_remove): Call remove_hook function
 	before removing directory from list.
--- a/src/mappers.cc	Fri Aug 24 20:26:24 2007 +0000
+++ b/src/mappers.cc	Fri Aug 24 20:29:32 2007 +0000
@@ -167,13 +167,7 @@
 }
 
 static int
-octave_is_NA (int)
-{
-  return 0;
-}
-
-static int
-xisnan (int)
+xdummyp (int)
 {
   return 0;
 }
@@ -352,7 +346,7 @@
 see @ref{Linear Algebra}.\n\
 @end deftypefn");
 
-  DEFUN_MAPPER (finite, 0, xfinite, xfinite, 0, 0, 0, 0.0, 0.0, 0, 0,
+  DEFUN_MAPPER (finite, dummyp, xfinite, xfinite, 0, 0, 0, 0.0, 0.0, 0, 0,
     "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} finite (@var{x})\n\
 Return 1 for elements of @var{x} that are finite values and zero\n\
@@ -448,7 +442,7 @@
 Return 1 for characters that are decimal digits.\n\
 @end deftypefn");
 
-  DEFUN_MAPPER (isinf, 0, xisinf, xisinf, 0, 0, 0, 0.0, 0.0, 0, 0,
+  DEFUN_MAPPER (isinf, dummyp, xisinf, xisinf, 0, 0, 0, 0.0, 0.0, 0, 0,
     "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isinf (@var{x})\n\
 Return 1 for elements of @var{x} that are infinite and zero\n\
@@ -474,7 +468,7 @@
 Return 1 for characters that are lower case letters.\n\
 @end deftypefn");
 
-  DEFUN_MAPPER (isna, octave_is_NA, octave_is_NA, octave_is_NA, 0, 0, 0, 0.0, 0.0, 0, 0,
+  DEFUN_MAPPER (isna, dummyp, octave_is_NA, octave_is_NA, 0, 0, 0, 0.0, 0.0, 0, 0,
     "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isna (@var{x})\n\
 Return 1 for elements of @var{x} that are NA (missing) values and zero\n\
@@ -488,7 +482,7 @@
 @end example\n\
 @end deftypefn");
 
-  DEFUN_MAPPER (isnan, xisnan, xisnan, xisnan, 0, 0, 0, 0.0, 0.0, 0, 0,
+  DEFUN_MAPPER (isnan, dummyp, xisnan, xisnan, 0, 0, 0, 0.0, 0.0, 0, 0,
     "-*- texinfo -*-\n\
 @deftypefn {Mapping Function} {} isnan (@var{x})\n\
 Return 1 for elements of @var{x} that are NaN values and zero\n\