Mercurial > hg > octave-lyh

diff scripts/general/isa.m @ 9010:f914834836e7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Partial implementation of derived classes using the old form with "@" files.
author rtshort@smoketree.phaselocked.com
date Tue, 24 Mar 2009 11:29:53 -0400
parents eb63fbe60fab
children 5579998f8acf
line wrap: on
line diff
--- a/scripts/general/isa.m
+++ b/scripts/general/isa.m
@@ -41,7 +41,14 @@
   elseif (strcmp (cname, "numeric"))
     retval = any (strcmp (class (x), fnum_classes));
   else
-    retval = strcmp (class (x), cname);
+    class_of_x = class (x);
+    retval = strcmp (class_of_x, cname);
+    if (! retval && isobject (x))
+      parent_classes_of_x = __parent_classes__ (x);
+      if (! isempty (parent_classes_of_x))
+	retval = any (strcmp (parent_classes_of_x, cname));
+      endif
+    endif
   endif
 
 endfunction