src/parser/Text_Token_Stream.cc
unsigned Text_Token_Stream::scan_octal_literal_(unsigned &pos) {
  unsigned old_pos = pos;
  char c = peek_(pos);
  if (c == '0') {
    while (isdigit(c) && c != '8' && c != '9') {
      pos++;
      c = peek_(pos);
    }
  }
  return pos - old_pos;
}
//------------------------------------------------------------------------------------------------//
/*!
 * \brief Try to scan octal literal.
 *
 * \return length of scanned text; 0 if no text could be scanned.
 */
\brief Try to scan octal literal.
\return length of scanned text; 0 if no text could be scanned.
\ brief Try to scan octal literal . \ return length of scanned text ; 0 if no text could be scanned .
unsigned Text_Token_Stream::scan_octal_literal_(unsigned &pos) {
  unsigned old_pos = pos;
  char c = peek_(pos);
  if (c == '0') {
    while (isdigit(c) && c != '8' && c != '9') {
      pos++;
      c = peek_(pos);
    }
  }
  return pos - old_pos;
}
unsigned Text_Token_Stream :: scan_octal_literal_ ( unsigned & pos ) { unsigned old_pos = pos ; char c = peek_ ( pos ) ; if ( c == ' ' ) { while ( isdigit ( c ) && c != ' ' && c != ' ' ) { pos ++ ; c = peek_ ( pos ) ; } } return pos - old_pos ; }
\brief Try to scan octal literal.
\ brief Try to scan octal literal .