_HexIntegerLiteral

in doc-src/parsejs/lib/parsejs/grammar.kpeg.rb [8230:8332]

• 92 lines of code
• 32 McCabe index (conditional complexity)

  def _HexIntegerLiteral

    _save = self.pos
    while true # choice

      _save1 = self.pos
      while true # sequence
        _text_start = self.pos

        _save2 = self.pos
        while true # sequence
          _tmp = match_string("0x")
          unless _tmp
            self.pos = _save2
            break
          end
          _save3 = self.pos
          _tmp = apply(:_HexDigit)
          if _tmp
            while true
              _tmp = apply(:_HexDigit)
              break unless _tmp
            end
            _tmp = true
          else
            self.pos = _save3
          end
          unless _tmp
            self.pos = _save2
          end
          break
        end # end sequence

        if _tmp
          text = get_text(_text_start)
        end
        unless _tmp
          self.pos = _save1
          break
        end
        @result = begin; number(text); end
        _tmp = true
        unless _tmp
          self.pos = _save1
        end
        break
      end # end sequence

      break if _tmp
      self.pos = _save

      _save4 = self.pos
      while true # sequence
        _text_start = self.pos

        _save5 = self.pos
        while true # sequence
          _tmp = match_string("0X")
          unless _tmp
            self.pos = _save5
            break
          end
          _save6 = self.pos
          _tmp = apply(:_HexDigit)
          if _tmp
            while true
              _tmp = apply(:_HexDigit)
              break unless _tmp
            end
            _tmp = true
          else
            self.pos = _save6
          end
          unless _tmp
            self.pos = _save5
          end
          break
        end # end sequence

        if _tmp
          text = get_text(_text_start)
        end
        unless _tmp
          self.pos = _save4
          break
        end
        @result = begin; number(text); end
        _tmp = true
        unless _tmp
          self.pos = _save4
        end
        break
      end # end sequence

      break if _tmp
      self.pos = _save
      break
    end # end choice

    set_failed_rule :_HexIntegerLiteral unless _tmp
    return _tmp
  end