class RDoc::Markup::ToHtmlSnippet

# File lib/rdoc/markup/to_html_snippet.rb, line 39
def initialize(characters = 100, paragraphs = 3)
  super()

  @character_limit = characters
  @paragraph_limit = paragraphs

  @characters = 0
  @mask       = 0
  @paragraphs = 0

  @markup.add_regexp_handling CrossReference::CROSSREF_REGEXP, :CROSSREF
end

# File lib/rdoc/markup/to_html_snippet.rb, line 55
def accept_heading(heading)
  @res << "<p>#{to_html heading.text}\n"

  add_paragraph
end

# File lib/rdoc/markup/to_html_snippet.rb, line 87
def accept_list_item_end(list_item)
end

# File lib/rdoc/markup/to_html_snippet.rb, line 93
def accept_list_item_start(list_item)
  @res << list_item_start(list_item, @list.last)
end

# File lib/rdoc/markup/to_html_snippet.rb, line 100
def accept_list_start(list)
  @list << list.type
  @res << html_list_name(list.type, true)
  @in_list_entry.push ''
end

# File lib/rdoc/markup/to_html_snippet.rb, line 74
def accept_paragraph(paragraph)
  para = @in_list_entry.last || "<p>"

  text = paragraph.text @hard_break

  @res << "#{para}#{to_html text}\n"

  add_paragraph
end

# File lib/rdoc/markup/to_html_snippet.rb, line 109
def accept_verbatim(verbatim)
  throw :done if @characters >= @character_limit
  input = verbatim.text.rstrip
  text = truncate(input, @character_limit - @characters)
  @characters += input.length
  text << " #{TO_HTML_CHARACTERS[text.encoding][:ellipsis]}" unless text == input

  super Markup::Verbatim.new text

  add_paragraph
end

# File lib/rdoc/markup/to_html_snippet.rb, line 193
def add_paragraph
  @paragraphs += 1

  throw :done if @paragraphs >= @paragraph_limit
end

# File lib/rdoc/markup/to_html_snippet.rb, line 202
def convert(content)
  catch :done do
    return super
  end

  end_accepting
end

# File lib/rdoc/markup/to_html_snippet.rb, line 166
def gen_url(url, text)
  if url =~ /^rdoc-label:([^:]*)(?::(.*))?/
    type = "link"
  elsif url =~ /([A-Za-z]+):(.*)/
    type = $1
  else
    type = "http"
  end

  if (type == "http" or type == "https" or type == "link") and
     url =~ /\.(gif|png|jpg|jpeg|bmp)$/
    ''
  else
    text.sub(%r%^#{type}:/*%, '')
  end
end

# File lib/rdoc/markup/to_html_snippet.rb, line 227
def handle_BOLD(nodes)
  super unless inline_limit_reached?
end

# File lib/rdoc/markup/to_html_snippet.rb, line 231
def handle_BOLD_WORD(word)
  super unless inline_limit_reached?
end

# File lib/rdoc/markup/to_html_snippet.rb, line 235
def handle_EM(nodes)
  super unless inline_limit_reached?
end

# File lib/rdoc/markup/to_html_snippet.rb, line 239
def handle_EM_WORD(word)
  super unless inline_limit_reached?
end

# File lib/rdoc/markup/to_html_snippet.rb, line 251
def handle_HARD_BREAK
  super unless inline_limit_reached?
end

# File lib/rdoc/markup/to_html_snippet.rb, line 247
def handle_STRIKE(nodes)
  super unless inline_limit_reached?
end

# File lib/rdoc/markup/to_html_snippet.rb, line 255
def handle_TIDYLINK(label_part, url)
  traverse_inline_nodes(label_part) unless inline_limit_reached?
end

# File lib/rdoc/markup/to_html_snippet.rb, line 243
def handle_TT(code)
  super unless inline_limit_reached?
end

# File lib/rdoc/markup/to_html_snippet.rb, line 263
def handle_inline(text)
  limit = @character_limit - @characters
  return ['', 0] if limit <= 0
  @inline_character_limit = limit
  res = super
  res << " #{TO_HTML_CHARACTERS[text.encoding][:ellipsis]}" if @inline_character_limit <= 0
  @characters += limit - @inline_character_limit
  res
end

# File lib/rdoc/markup/to_html_snippet.rb, line 134
def handle_regexp_CROSSREF(text)
  convert_string(text.delete_prefix('\\'))
end

# File lib/rdoc/markup/to_html_snippet.rb, line 186
def html_list_name(list_type, open_tag)
  ''
end

# File lib/rdoc/markup/to_html_snippet.rb, line 259
def inline_limit_reached?
  @inline_character_limit <= 0
end

# File lib/rdoc/markup/to_html_snippet.rb, line 141
def list_item_start(list_item, list_type)
  throw :done if @characters >= @character_limit

  case list_type
  when :BULLET, :LALPHA, :NUMBER, :UALPHA
    "<p>"
  when :LABEL, :NOTE
    labels = Array(list_item.label).map do |label|
      to_html label
    end.join ', '

    labels << " &mdash; " unless labels.empty?

    start = "<p>#{labels}"
    @characters += 1 # try to include the label
    start
  else
    raise Error, "Invalid list type: #{list_type.inspect}"
  end
end

# File lib/rdoc/markup/to_html_snippet.rb, line 124
def start_accepting
  super

  @characters = 0
end

# File lib/rdoc/markup/to_html_snippet.rb, line 273
def to_html(item)
  throw :done if @characters >= @character_limit
  handle_inline(item)
end

# File lib/rdoc/markup/to_html_snippet.rb, line 281
def truncate(text, limit)
  return text if limit >= text.size
  return '' if limit <= 0

  text =~ /\A(.{#{limit},}?)(\s|$)/m # TODO word-break instead of \s?

  $1
end