Mercurial > octave-nkf

comparison 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
comparison
equal deleted inserted replaced
9009:da58ec8f62e8 9010:f914834836e7
39 if (strcmp (cname, "float")) 39 if (strcmp (cname, "float"))
40 retval = any (strcmp (class (x), float_classes)); 40 retval = any (strcmp (class (x), float_classes));
41 elseif (strcmp (cname, "numeric")) 41 elseif (strcmp (cname, "numeric"))
42 retval = any (strcmp (class (x), fnum_classes)); 42 retval = any (strcmp (class (x), fnum_classes));
43 else 43 else
44 retval = strcmp (class (x), cname); 44 class_of_x = class (x);
45 retval = strcmp (class_of_x, cname);
46 if (! retval && isobject (x))
47 parent_classes_of_x = __parent_classes__ (x);
48 if (! isempty (parent_classes_of_x))
49 retval = any (strcmp (parent_classes_of_x, cname));
50 endif
51 endif
45 endif 52 endif
46 53
47 endfunction 54 endfunction
48 55
49 %!assert (isa ("char", "float"), false) 56 %!assert (isa ("char", "float"), false)