final class DocLexer

DocLexerTest.php in drupal/core/vendor/doctrine/common/tests/Doctrine/Tests/Common/Annotations/DocLexerTest.php

PerformanceTest.php in drupal/core/vendor/doctrine/common/tests/Doctrine/Tests/Common/Annotations/PerformanceTest.php

final class DocLexer extends Lexer {
  const T_NONE = 1;
  const T_INTEGER = 2;
  const T_STRING = 3;
  const T_FLOAT = 4;

  // All tokens that are also identifiers should be >= 100
  const T_IDENTIFIER = 100;
  const T_AT = 101;
  const T_CLOSE_CURLY_BRACES = 102;
  const T_CLOSE_PARENTHESIS = 103;
  const T_COMMA = 104;
  const T_EQUALS = 105;
  const T_FALSE = 106;
  const T_NAMESPACE_SEPARATOR = 107;
  const T_OPEN_CURLY_BRACES = 108;
  const T_OPEN_PARENTHESIS = 109;
  const T_TRUE = 110;
  const T_NULL = 111;
  const T_COLON = 112;

  /**
   * {@inheritdoc}
   */
  protected function getCatchablePatterns() {
    return array(
      '[a-z_\\\\][a-z0-9_\\:\\\\]*[a-z]{1}',
      '(?:[+-]?[0-9]+(?:[\\.][0-9]+)*)(?:[eE][+-]?[0-9]+)?',
      '"(?:[^"]|"")*"',
    );
  }

  /**
   * {@inheritdoc}
   */
  protected function getNonCatchablePatterns() {
    return array(
      '\\s+',
      '\\*+',
      '(.)',
    );
  }

  /**
   * {@inheritdoc}
   *
   * @param string $value
   *
   * @return int
   */
  protected function getType(&$value) {
    $type = self::T_NONE;

    // Checking numeric value
    if (is_numeric($value)) {
      return strpos($value, '.') !== false || stripos($value, 'e') !== false ? self::T_FLOAT : self::T_INTEGER;
    }
    if ($value[0] === '"') {
      $value = str_replace('""', '"', substr($value, 1, strlen($value) - 2));
      return self::T_STRING;
    }
    else {
      switch (strtolower($value)) {
        case '@':
          return self::T_AT;
        case ',':
          return self::T_COMMA;
        case '(':
          return self::T_OPEN_PARENTHESIS;
        case ')':
          return self::T_CLOSE_PARENTHESIS;
        case '{':
          return self::T_OPEN_CURLY_BRACES;
        case '}':
          return self::T_CLOSE_CURLY_BRACES;
        case '=':
          return self::T_EQUALS;
        case '\\':
          return self::T_NAMESPACE_SEPARATOR;
        case 'true':
          return self::T_TRUE;
        case 'false':
          return self::T_FALSE;
        case 'null':
          return self::T_NULL;
        case ':':
          return self::T_COLON;
        default:
          if (ctype_alpha($value[0]) || $value[0] === '_' || $value[0] === '\\') {
            return self::T_IDENTIFIER;
          }
          break;
      }
    }
    return $type;
  }

}