Class RDoc::Markup::ToHtml < RDoc::Markup::Formatter

# File lib/rdoc/markup/to_html.rb, line 44
def initialize options, markup = nil
  super

  @code_object = nil
  @from_path = ''
  @in_list_entry = nil
  @list = nil
  @th = nil
  @hard_break = "<br>\n"

  # external links
  @markup.add_special(/(?:link:|https?:|mailto:|ftp:|irc:|www\.)\S+\w/,
                      :HYPERLINK)

  add_special_RDOCLINK
  add_special_TIDYLINK

  init_tags
end

# File lib/rdoc/markup/to_html.rb, line 71
def handle_special_HARD_BREAK special
  '<br>'
end

# File lib/rdoc/markup/to_html.rb, line 87
def handle_special_HYPERLINK(special)
  url = special.text

  gen_url url, url
end

# File lib/rdoc/markup/to_html.rb, line 102
def handle_special_RDOCLINK special
  url = special.text

  case url
  when /\Ardoc-ref:/
    $'
  when /\Ardoc-label:/
    text = $'

    text = case text
           when /\Alabel-/    then $'
           when /\Afootmark-/ then "^#{$'}"
           when /\Afoottext-/ then "*#{$'}"
           else                    text
           end

    gen_url url, text
  else
    url =~ /\Ardoc-[a-z]+:/

    $'
  end
end

# File lib/rdoc/markup/to_html.rb, line 130
def handle_special_TIDYLINK(special)
  text = special.text

  return text unless text =~ /\{(.*?)\}\[(.*?)\]/ or text =~ /(\S+)\[(.*?)\]/

  label = $1
  url   = $2
  gen_url url, label
end

# File lib/rdoc/markup/to_html.rb, line 290
def convert_string(text)
  CGI.escapeHTML text
end

# File lib/rdoc/markup/to_html.rb, line 298
def gen_url url, text
  scheme, url, id = parse_url url

  if %w[http https link].include?(scheme) and
     url =~ /\.(gif|png|jpg|jpeg|bmp)$/ then
    "<img src=\"#{url}\" />"
  else
    "<a#{id} href=\"#{url}\">#{text.sub(%r{^#{scheme}:/*}i, '')}</a>"
  end
end

# File lib/rdoc/markup/to_html.rb, line 312
def html_list_name(list_type, open_tag)
  tags = LIST_TYPE_TO_HTML[list_type]
  raise RDoc::Error, "Invalid list type: #{list_type.inspect}" unless tags
  tags[open_tag ? 0 : 1]
end

# File lib/rdoc/markup/to_html.rb, line 321
def init_tags
  add_tag :BOLD, "<strong>", "</strong>"
  add_tag :TT,   "<code>",   "</code>"
  add_tag :EM,   "<em>",     "</em>"
end

# File lib/rdoc/markup/to_html.rb, line 347
def list_end_for(list_type)
  case list_type
  when :BULLET, :LALPHA, :NUMBER, :UALPHA then
    "</li>"
  when :LABEL, :NOTE then
    "</dd>"
  else
    raise RDoc::Error, "Invalid list type: #{list_type.inspect}"
  end
end

# File lib/rdoc/markup/to_html.rb, line 331
def list_item_start(list_item, list_type)
  case list_type
  when :BULLET, :LALPHA, :NUMBER, :UALPHA then
    "<li>"
  when :LABEL, :NOTE then
    Array(list_item.label).map do |label|
      "<dt>#{to_html label}\n"
    end.join << "<dd>"
  else
    raise RDoc::Error, "Invalid list type: #{list_type.inspect}"
  end
end

# File lib/rdoc/markup/to_html.rb, line 361
def parseable? text
  text =~ /\b(def|class|module|require) |=>|\{\s?\||do \|/ and
    text !~ /<%|%>/
end

# File lib/rdoc/markup/to_html.rb, line 369
def to_html item
  super convert_flow @am.flow item
end

# File lib/rdoc/markup/to_html.rb, line 254
def accept_blank_line(blank_line)
  # @res << annotate("<p />") << "\n"
end

# File lib/rdoc/markup/to_html.rb, line 163
def accept_block_quote block_quote
  @res << "\n<blockquote>"

  block_quote.parts.each do |part|
    part.accept self
  end

  @res << "</blockquote>\n"
end

# File lib/rdoc/markup/to_html.rb, line 262
def accept_heading heading
  level = [6, heading.level].min

  label = heading.aref
  label = [@code_object.aref, label].compact.join '-' if
    @code_object and @code_object.respond_to? :aref

  @res << "\n<h#{level} id=\"#{label}\">"
  @res << to_html(heading.text)
  unless @options.pipe then
    @res << "<span><a href=\"##{label}\">&para;</a>"
    @res << " <a href=\"#documentation\">&uarr;</a></span>"
  end
  @res << "</h#{level}>\n"
end

# File lib/rdoc/markup/to_html.rb, line 225
def accept_list_end(list)
  @list.pop
  if tag = @in_list_entry.pop
    @res << tag
  end
  @res << html_list_name(list.type, false) << "\n"
end

# File lib/rdoc/markup/to_html.rb, line 247
def accept_list_item_end(list_item)
  @in_list_entry[-1] = list_end_for(@list.last)
end

# File lib/rdoc/markup/to_html.rb, line 236
def accept_list_item_start(list_item)
  if tag = @in_list_entry.last
    @res << tag
  end

  @res << list_item_start(list_item, @list.last)
end

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

# File lib/rdoc/markup/to_html.rb, line 176
def accept_paragraph paragraph
  @res << "\n<p>"
  text = paragraph.text @hard_break
  @res << wrap(to_html(text))
  @res << "</p>\n"
end

# File lib/rdoc/markup/to_html.rb, line 281
def accept_raw raw
  @res << raw.parts.join("\n")
end

# File lib/rdoc/markup/to_html.rb, line 207
def accept_rule(rule)
  size = rule.weight
  size = 10 if size > 10
  @res << "<hr style=\"height: #{size}px\">\n"
end

# File lib/rdoc/markup/to_html.rb, line 186
def accept_verbatim verbatim
  text = verbatim.text.rstrip

  @res << if verbatim.ruby? or parseable? text then
            begin
              tokens = RDoc::RubyLex.tokenize text, @options

              html = RDoc::TokenStream.to_html tokens

              "\n<pre class=\"ruby\">#{html}</pre>\n"
            rescue RDoc::RubyLex::Error
              "\n<pre>#{CGI.escapeHTML text}</pre>\n"
            end
          else
            "\n<pre>#{CGI.escapeHTML text}</pre>\n"
          end
end

# File lib/rdoc/markup/to_html.rb, line 156
def end_accepting
  @res.join
end

# File lib/rdoc/markup/to_html.rb, line 147
def start_accepting
  @res = []
  @in_list_entry = []
  @list = []
end