home *** CD-ROM | disk | FTP | other *** search
/ ARM Club 3 / TheARMClub_PDCD3.iso / hensa / maths / rlab / controls / CTB / isstr < prev    next >
Text File  |  1995-11-15  |  503b  |  26 lines
  1. //---------------------------------------------------------------------------
  2. //
  3. // isstr
  4. //
  5. // Syntax: i=isstr(a)
  6. //
  7. // This routine checks if the input argument a is a string. It
  8. // returns a "1" if it is a string and a 0 otherwise.
  9. //
  10. // Copyright (C), by Jeffrey B. Layton, 1994
  11. // Version JBL 940918
  12. //---------------------------------------------------------------------------
  13.  
  14. isstr = function(a)
  15. {
  16.    local(i)
  17.  
  18.    if (class(a) == "string") {
  19.        i=1;
  20.    else
  21.        i=0;
  22.    }
  23.  
  24.    return i
  25. };
  26.