Mercurial > octave-nkf

changeset 7772:ff717f2f9feb

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Treat numeric and float argument in the isa function.
author David Bateman <dbateman@free.fr>
date Mon, 12 May 2008 22:39:33 +0200
parents 680631e787aa
children f83be206eca1
files scripts/ChangeLog scripts/general/isa.m
diffstat 2 files changed, 14 insertions(+), 2 deletions(-) [+]
line wrap: on
line diff
--- a/scripts/ChangeLog	Sat May 10 21:55:40 2008 +0200
+++ b/scripts/ChangeLog	Mon May 12 22:39:33 2008 +0200
@@ -1,5 +1,8 @@
 2008-05-12  David Bateman  <dbateman@free.fr>
 
+	* general/isa.m: Also treat "float: and "numeric" as the class
+	argument.
+
 	* general/dblquad.m, general/quadgk.m, general/quadv.m,
 	general/triplequad.m: New functions.
 
--- a/scripts/general/isa.m	Sat May 10 21:55:40 2008 +0200
+++ b/scripts/general/isa.m	Mon May 12 22:39:33 2008 +0200
@@ -30,6 +30,15 @@
     print_usage ();
   endif
 
-  retval = strcmp (class (x), cname);
-
+  if (strcmp (cname, "float"))
+    retval = (strcmp (class (x), "double") || strcmp (class (x), "single"));
+  elseif (strcmp (cname, "fnumeric"))
+    retval = (strcmp (class (x), "double") || strcmp (class (x), "single") ||
+    strcmp (class (x), "uint8") || strcmp (class (x), "uint16") ||
+    strcmp (class (x), "uint32") || strcmp (class (x), "uint64") ||
+    strcmp (class (x), "int8") || strcmp (class (x), "int16") ||
+    strcmp (class (x), "int32") || strcmp (class (x), "int64"));
+  else
+    retval = strcmp (class (x), cname);
+  endif
 endfunction