peekNextToken (HTMLTokenizer)

    # File lib/openid/yadis/htmltokenizer.rb, line 68
      def peekNextToken
        if @cur_pos == @page.length then return nil end

        if ?< == @page[@cur_pos]
          # Next token is a tag of some kind
          if '!--' == @page[(@cur_pos + 1), 3]
            # Token is a comment
            tag_end = @page.index('-->', (@cur_pos + 1))
            if tag_end.nil?
              raise OpenIDError, "No end found to started comment:\n#{@page[@cur_pos,80]}"
            end
            # p @page[@cur_pos .. (tag_end+2)]
            HTMLComment.new(@page[@cur_pos .. (tag_end + 2)])
          else
            # Token is a html tag
            tag_end = @page.index('>', (@cur_pos + 1))
            if tag_end.nil?
              raise OpenIDError, "No end found to started tag:\n#{@page[@cur_pos,80]}"
            end
            # p @page[@cur_pos .. tag_end]
            HTMLTag.new(@page[@cur_pos .. tag_end])
          end
        else
          # Next token is text
          text_end = @page.index('<', @cur_pos)
          text_end = text_end.nil? ? -1 : (text_end - 1)
          # p @page[@cur_pos .. text_end]
          HTMLText.new(@page[@cur_pos .. text_end])
        end
      end