Mercurial > hg > octave-lyh
changeset 15808:68919cd4cd45
isa.m: Match docstring variable names and function prototype names.
* scripts/general/isa.m: Change input variable to "classname" from "class".
Rename variable "class_of_x" to "class_of_obj" to match input names.
author | Rik <rik@octave.org> |
---|---|
date | Mon, 17 Dec 2012 14:59:41 -0800 |
parents | 37104cd70d0f |
children | cf3a18843a26 |
files | scripts/general/isa.m |
diffstat | 1 files changed, 10 insertions(+), 10 deletions(-) [+] |
line wrap: on
line diff
--- a/scripts/general/isa.m +++ b/scripts/general/isa.m @@ -17,10 +17,10 @@ ## <http://www.gnu.org/licenses/>. ## -*- texinfo -*- -## @deftypefn {Function File} {} isa (@var{obj}, @var{class}) -## Return true if @var{obj} is an object from the class @var{class}. +## @deftypefn {Function File} {} isa (@var{obj}, @var{classname}) +## Return true if @var{obj} is an object from the class @var{classname}. ## -## @var{class} may also be one of the following class categories: +## @var{classname} may also be one of the following class categories: ## ## @table @asis ## @item "float" @@ -38,23 +38,23 @@ ## Author: Paul Kienzle <pkienzle@users.sf.net> ## Adapted-by: jwe -function retval = isa (obj, cname) +function retval = isa (obj, classname) if (nargin != 2) print_usage (); endif - if (strcmp (cname, "float")) + if (strcmp (classname, "float")) retval = isfloat (obj); - elseif (strcmp (cname, "integer")) + elseif (strcmp (classname, "integer")) retval = isinteger (obj); - elseif (strcmp (cname, "numeric")) + elseif (strcmp (classname, "numeric")) retval = isnumeric (obj); else - class_of_x = class (obj); - retval = strcmp (class_of_x, cname); + class_of_obj = class (obj); + retval = strcmp (class_of_obj, classname); if (! retval && isobject (obj)) - retval = __isa_parent__ (obj, cname); + retval = __isa_parent__ (obj, classname); endif endif