home *** CD-ROM | disk | FTP | other *** search
/ Dream 52 / Amiga_Dream_52.iso / Linux / Divers / lyx-0.13.2.tar.gz / lyx-0.13.2.tar / lyx-0.13.2 / src / lstrings.C < prev    next >
Text File  |  1998-04-23  |  880b  |  43 lines
  1. bool isStrInt(LString const & str)
  2. {
  3.        if (str.empty()) return false;
  4.        
  5.        int     len, idx = 0;
  6.        LString tmpstr = str;
  7.  
  8.        // Remove leading and trailing white space chars.
  9.        tmpstr.strip(' ');
  10.        tmpstr.frontStrip(' ');
  11.  
  12.        len = tmpstr.length();
  13.  
  14.        if (len == 0) return false;
  15.  
  16.        while (idx < len) {
  17.            if ((idx == 0) &&(tmpstr[0] == '-'))
  18.                ++idx;
  19.            else if (isdigit(tmpstr[idx]))
  20.                ++idx;
  21.            else
  22.                return false;
  23.        }
  24.        
  25.        return true;
  26. }
  27.  
  28.  
  29. int  LStr2Int(LString const & str)
  30. {
  31.        LString tmpstr;
  32.  
  33.        if (isStrInt(str)) {
  34.            tmpstr = str;
  35.            // Remove leading and trailing white space chars.
  36.            tmpstr.strip(' ');
  37.            tmpstr.frontStrip(' ');
  38.            // Do the conversion proper.
  39.            return atoi(tmpstr.c_str());
  40.        } else
  41.            return 0;
  42. }
  43.