# encoding: utf-8
#
# Copyright (c) 2002-2007 Minero Aoki
#               2008-2014 Minero Aoki, Kenshi Muto, Masayoshi Takahashi,
#                         KADO Masanori
#
# This program is free software.
# You can distribute or modify this program under the terms of
# the GNU LGPL, Lesser General Public License version 2.1.
#

require 'review/builder'
require 'review/htmlutils'
require 'review/htmllayout'
require 'review/textutils'

module ReVIEW

  class HTMLBuilder < Builder

    include TextUtils
    include HTMLUtils

    [:ref].each {|e| Compiler.definline(e) }
    Compiler.defblock(:memo, 0..1)
    Compiler.defblock(:tip, 0..1)
    Compiler.defblock(:info, 0..1)
    Compiler.defblock(:planning, 0..1)
    Compiler.defblock(:best, 0..1)
    Compiler.defblock(:important, 0..1)
    Compiler.defblock(:security, 0..1)
    Compiler.defblock(:caution, 0..1)
    Compiler.defblock(:notice, 0..1)
    Compiler.defblock(:point, 0..1)
    Compiler.defblock(:shoot, 0..1)

    def extname
      ".#{@book.config["htmlext"]}"
    end

    def builder_init(no_error = false)
      @no_error = no_error
      @noindent = nil
      @ol_num = nil
    end
    private :builder_init

    def builder_init_file
      @warns = []
      @errors = []
      @chapter.book.image_types = %w( .png .jpg .jpeg .gif .svg )
      @column = 0
      @sec_counter = SecCounter.new(5, @chapter)
    end
    private :builder_init_file

    def result
      layout_file = File.join(@book.basedir, "layouts", "layout.html.erb")
      unless File.exist?(layout_file) # backward compatibility
        layout_file = File.join(@book.basedir, "layouts", "layout.erb")
      end
      if File.exist?(layout_file)
        if ENV["REVIEW_SAFE_MODE"].to_i & 4 > 0
          warn "user's layout is prohibited in safe mode. ignored."
        else
          title = strip_html(@chapter.title)

          toc = ""
          toc_level = 0
          @chapter.headline_index.items.each do |i|
            caption = "<li>#{strip_html(i.caption)}</li>\n"
            if toc_level == i.number.size
              # do nothing
            elsif toc_level < i.number.size
              toc += "<ul>\n" * (i.number.size - toc_level)
              toc_level = i.number.size
            elsif toc_level > i.number.size
              toc += "</ul>\n" * (toc_level - i.number.size)
              toc_level = i.number.size
              toc += "<ul>\n" * (toc_level - 1)
            end
            toc += caption
          end
          toc += "</ul>" * toc_level

          return messages() +
            HTMLLayout.new(
            {'body' => @output.string, 'title' => title, 'toc' => toc,
             'builder' => self,
             'next' => @chapter.next_chapter,
             'prev' => @chapter.prev_chapter},
            layout_file).result
        end
      end

      # default XHTML header/footer
      @error_messages = error_messages
      @warning_messages = warning_messages
      @title = strip_html(@chapter.title)
      @body = @output.string
      @language = @book.config['language']
      @stylesheets = @book.config["stylesheet"]

      if @book.htmlversion == 5
        htmlfilename = "layout-html5.html.erb"
      else
        htmlfilename = "layout-xhtml1.html.erb"
      end
      tmplfile = File.expand_path('./html/'+htmlfilename, ReVIEW::Template::TEMPLATE_DIR)
      tmpl = ReVIEW::Template.load(tmplfile)
      tmpl.result(binding)
    end

    def xmlns_ops_prefix
      if @book.config["epubversion"].to_i == 3
        "epub"
      else
        "ops"
      end
    end

    def warn(msg)
      if @no_error
        @warns.push [@location.filename, @location.lineno, msg]
        puts "----WARNING: #{escape_html(msg)}----"
      else
        $stderr.puts "#{@location}: warning: #{msg}"
      end
    end

    def error(msg)
      if @no_error
        @errors.push [@location.filename, @location.lineno, msg]
        puts "----ERROR: #{escape_html(msg)}----"
      else
        $stderr.puts "#{@location}: error: #{msg}"
      end
    end

    def messages
      error_messages() + warning_messages()
    end

    def error_messages
      return '' if @errors.empty?
      "<h2>Syntax Errors</h2>\n" +
      "<ul>\n" +
        @errors.map {|file, line, msg|
        "<li>#{escape_html(file)}:#{line}: #{escape_html(msg.to_s)}</li>\n"
        }.join('') +
      "</ul>\n"
    end

    def warning_messages
      return '' if @warns.empty?
      "<h2>Warnings</h2>\n" +
      "<ul>\n" +
      @warns.map {|file, line, msg|
        "<li>#{escape_html(file)}:#{line}: #{escape_html(msg)}</li>\n"
      }.join('') +
      "</ul>\n"
    end

    def headline(level, label, caption)
      buf = ""
      prefix, anchor = headline_prefix(level)
      unless prefix.nil?
        prefix = %Q[<span class="secno">#{prefix}</span>]
      end
      a_id = ""
      unless anchor.nil?
        a_id = %Q[<a id="h#{anchor}"></a>]
      end
      if caption.empty?
        buf << a_id+"\n" unless label.nil?
      else
        if label.nil?
          buf << %Q[<h#{level}>#{a_id}#{prefix}#{caption}</h#{level}>\n]
        else
          buf << %Q[<h#{level} id="#{normalize_id(label)}">#{a_id}#{prefix}#{caption}</h#{level}>\n]
        end
      end
      buf
    end

    def nonum_begin(level, label, caption)
      buf = ""
      buf << "\n" if level > 1
      unless caption.empty?
        if label.nil?
          buf << %Q[<h#{level}>#{caption}</h#{level}>\n]
        else
          buf << %Q[<h#{level} id="#{normalize_id(label)}">#{caption}</h#{level}>\n]
        end
      end
      buf
    end

    def nonum_end(level)
    end

    def column_begin(level, label, caption)
      buf = %Q[<div class="column">\n]

      @column += 1
      buf << "\n" if level > 1
      a_id = %Q[<a id="column-#{@column}"></a>]

      if caption.empty?
        buf << a_id + "\n" unless label.nil?
      else
        if label.nil?
          buf << %Q[<h#{level}>#{a_id}#{caption}</h#{level}>\n]
        else
          buf << %Q[<h#{level} id="#{normalize_id(label)}">#{a_id}#{caption}</h#{level}>\n]
        end
      end
      buf
    end

    def column_end(level)
      "</div>\n"
    end

    def xcolumn_begin(level, label, caption)
      buf << %Q[<div class="xcolumn">\n]
      buf << headline(level, label, caption)
      buf
    end

    def xcolumn_end(level)
      "</div>\n"
    end

    def ref_begin(level, label, caption)
      buf << %Q[<div class="reference">\n]
      buf << headline(level, label, caption)
      buf
    end

    def ref_end(level)
      "</div>\n"
    end

    def sup_begin(level, label, caption)
      buf << %Q[<div class="supplement">\n]
      buf << headline(level, label, caption)
      buf
    end

    def sup_end(level)
      "</div>\n"
    end

    def tsize(str)
      # null
    end

    def captionblock(type, lines, caption)
      buf = %Q[<div class="#{type}">\n]
      unless caption.nil?
        buf << %Q[<p class="caption">#{caption}</p>\n]
      end
      if @book.config["deprecated-blocklines"].nil?
        buf << lines.join("")
      else
        error "deprecated-blocklines is obsoleted."
      end
      buf << "</div>\n"
      buf
    end

    def memo(lines, caption = nil)
      captionblock("memo", lines, caption)
    end

    def tip(lines, caption = nil)
      captionblock("tip", lines, caption)
    end

    def info(lines, caption = nil)
      captionblock("info", lines, caption)
    end

    def planning(lines, caption = nil)
      captionblock("planning", lines, caption)
    end

    def best(lines, caption = nil)
      captionblock("best", lines, caption)
    end

    def important(lines, caption = nil)
      captionblock("important", lines, caption)
    end

    def security(lines, caption = nil)
      captionblock("security", lines, caption)
    end

    def caution(lines, caption = nil)
      captionblock("caution", lines, caption)
    end

    def notice(lines, caption = nil)
      captionblock("notice", lines, caption)
    end

    def point(lines, caption = nil)
      captionblock("point", lines, caption)
    end

    def shoot(lines, caption = nil)
      captionblock("shoot", lines, caption)
    end

    def box(lines, caption = nil)
      buf = ""
      buf << %Q[<div class="syntax">\n]
      buf << %Q[<p class="caption">#{caption}</p>\n] unless caption.nil?
      buf << %Q[<pre class="syntax">]
      lines.each {|line| buf << detab(line) << "\n" }
      buf << "</pre>\n"
      buf << "</div>\n"
      buf
    end

    def note(lines, caption = nil)
      captionblock("note", lines, caption)
    end

    def ul_begin
      "<ul>\n"
    end

    def ul_item(lines)
      "<li>#{lines.map(&:to_s).join}</li>\n"
    end

    def ul_item_begin(lines)
      "<li>#{lines.map(&:to_s).join}"
    end

    def ul_item_end
      "</li>\n"
    end

    def ul_end
      "</ul>\n"
    end

    def ol_begin
      if @ol_num
        num = @ol_num
        @ol_num = nil
        "<ol start=\"#{num}\">\n" ## it's OK in HTML5, but not OK in XHTML1.1
      else
        "<ol>\n"
      end
    end

    def ol_item(lines, num)
      "<li>#{lines.map(&:to_s).join}</li>\n"
    end

    def ol_end
      "</ol>\n"
    end

    def dl_begin
      "<dl>\n"
    end

    def dt(line)
      "<dt>#{line}</dt>\n"
    end

    def dd(lines)
      "<dd>#{lines.join}</dd>\n"
    end

    def dl_end
      "</dl>\n"
    end

    def paragraph(lines)
      if @noindent.nil?
        "<p>#{lines.join}</p>\n"
      else
        @noindent = nil
        %Q[<p class="noindent">#{lines.join}</p>\n]
      end
    end

    def parasep
      "<br />\n"
    end

    def read(lines)
      if @book.config["deprecated-blocklines"].nil?
        %Q[<div class="lead">\n#{lines.join("")}\n</div>\n]
      else
        error "deprecated-blocklines is obsoleted."
      end
    end

    alias_method :lead, :read

    def list(lines, id, caption, lang = nil)
      buf = %Q[<div class="caption-code">\n]
      begin
        buf << list_header(id, caption, lang)
      rescue KeyError
        error "no such list: #{id}"
      end
      buf << list_body(id, lines, lang)
      buf << "</div>\n"
      buf
    end

    def list_header(id, caption, lang)
      if get_chap.nil?
        %Q[<p class="caption">#{I18n.t("list")}#{I18n.t("format_number_header_without_chapter", [@chapter.list(id).number])}#{I18n.t("caption_prefix")}#{caption}</p>\n]
      else
        %Q[<p class="caption">#{I18n.t("list")}#{I18n.t("format_number_header", [get_chap, @chapter.list(id).number])}#{I18n.t("caption_prefix")}#{caption}</p>\n]
      end
    end

    def list_body(id, lines, lang)
      id ||= ''
      buf = %Q[<pre class="list">]
      body = lines.inject(''){|i, j| i + detab(j) + "\n"}
      lexer = lang || File.extname(id).gsub(/\./, '')
      buf << highlight(:body => body, :lexer => lexer, :format => 'html')
      buf << "</pre>\n"
      buf
    end

    def source(lines, caption = nil, lang = nil)
      buf = %Q[<div class="source-code">\n]
      buf << source_header(caption)
      buf << source_body(caption, lines, lang)
      buf << "</div>\n"
      buf
    end

    def source_header(caption)
      if caption.present?
        %Q[<p class="caption">#{caption}</p>\n]
      end
    end

    def source_body(id, lines, lang)
      id ||= ''
      buf = %Q[<pre class="source">]
      body = lines.inject(''){|i, j| i + detab(j) + "\n"}
      lexer = lang || File.extname(id).gsub(/\./, '')
      buf << highlight(:body => body, :lexer => lexer, :format => 'html')
      buf << "</pre>\n"
      buf
    end

    def listnum(lines, id, caption, lang = nil)
      buf = %Q[<div class="code">\n]
      begin
        buf << list_header(id, caption, lang)
      rescue KeyError
        error "no such list: #{id}"
      end
      buf << listnum_body(lines, lang)
      buf << "</div>"
      buf
    end

    def listnum_body(lines, lang)
      buf = ""
      if highlight?
        body = lines.inject(''){|i, j| i + detab(j) + "\n"}
        lexer = lang
        buf << highlight(:body => body, :lexer => lexer, :format => 'html',
                         :options => {:linenos => 'inline', :nowrap => false})
      else
        buf << '<pre class="list">'
        lines.each_with_index do |line, i|
          buf << detab((i+1).to_s.rjust(2) + ": " + line) << "\n"
        end
        buf << '</pre>' << "\n"
      end
      buf
    end

    def emlist(lines, caption = nil, lang = nil)
      buf = %Q[<div class="emlist-code">\n]
      if caption.present?
        buf << %Q(<p class="caption">#{caption}</p>\n)
      end
      buf << %Q[<pre class="emlist">]
      body = lines.inject(''){|i, j| i + detab(j) + "\n"}
      lexer = lang
      buf << highlight(:body => body, :lexer => lexer, :format => 'html')
      buf << "</pre>\n"
      buf << "</div>\n"
      buf
    end

    def emlistnum(lines, caption = nil, lang = nil)
      buf = %Q[<div class="emlistnum-code">\n]
      if caption.present?
        buf << %Q(<p class="caption">#{caption}</p>\n)
      end
      if highlight?
        body = lines.inject(''){|i, j| i + detab(j) + "\n"}
        lexer = lang
        buf << highlight(:body => body, :lexer => lexer, :format => 'html',
                         :options => {:linenos => 'inline', :nowrap => false})
      else
        buf << '<pre class="emlist">'
        lines.each_with_index do |line, i|
          buf << detab((i+1).to_s.rjust(2) + ": " + line) << "\n"
        end
        buf << '</pre>' << "\n"
      end

      buf << '</div>' << "\n"
      buf
    end

    def cmd(lines, caption = nil)
      buf = %Q[<div class="cmd-code">\n]
      if caption.present?
        buf << %Q(<p class="caption">#{caption}</p>\n)
      end
      buf << %Q[<pre class="cmd">]
      body = lines.inject(''){|i, j| i + detab(j) + "\n"}
      lexer = 'shell-session'
      buf << highlight(:body => body, :lexer => lexer, :format => 'html')
      buf << "</pre>\n"
      buf << "</div>\n"
      buf
    end

    def quotedlist(lines, css_class)
      buf = %Q[<blockquote><pre class="#{css_class}">\n]
      lines.each do |line|
        buf << detab(line) << "\n"
      end
      buf << "</pre></blockquote>\n"
    end
    private :quotedlist

    def quote(lines)
      if @book.config["deprecated-blocklines"].nil?
        "<blockquote>#{lines.join("")}</blockquote>\n"
      else
        error "deprecated-blocklines is obsoleted."
      end
    end

    def doorquote(lines, ref)
      buf = ""
      if @book.config["deprecated-blocklines"].nil?
        buf << %Q[<blockquote style="text-align:right;">\n]
        buf << "#{lines.join("")}\n"
        buf << %Q[<p>#{ref}より</p>\n]
        buf << %Q[</blockquote>\n]
      else
        error "deprecated-blocklines is obsoleted."
      end
      buf
    end

    def talk(lines)
      buf = ""
      buf << %Q[<div class="talk">\n]
      if @book.config["deprecated-blocklines"].nil?
        buf << "#{lines.join("\n")}\n"
      else
        error "deprecated-blocklines is obsoleted."
      end
      buf << "</div>\n"
      buf
    end

    def texequation(lines)
      buf << %Q[<div class="equation">\n]
      if @book.config["mathml"]
        require 'math_ml'
        require 'math_ml/symbol/character_reference'
        p = MathML::LaTeX::Parser.new(:symbol=>MathML::Symbol::CharacterReference)
        buf << p.parse(unescape_html(lines.join("\n")), true) << "\n"
      else
        buf << '<pre>'
        buf << lines.join("\n") << "\n"
        buf << "</pre>\n"
      end
      buf << "</div>\n"
      buf
    end

    def handle_metric(str)
      if str =~ /\Ascale=([\d.]+)\Z/
        return "width=\"#{($1.to_f * 100).round}%\""
      else
        k, v = str.split('=', 2)
        return %Q|#{k}=\"#{v.sub(/\A&quot;/, '').sub(/\A["']/, '').sub(/&quot;\Z/, '').sub(/["']\Z/, '')}\"|
      end
    end

    def result_metric(array)
      " #{array.join(' ')}"
    end

    def image_image(id, caption, metric)
      metrics = parse_metric("html", metric)
      buf = %Q[<div id="#{normalize_id(id)}" class="image">\n]
      buf << %Q[<img src="#{@chapter.image(id).path.sub(/\A\.\//, "")}" alt="#{escape_html(caption)}"#{metrics} />\n]
      buf << image_header(id, caption)
      buf << %Q[</div>\n]
      buf
    end

    def image_dummy(id, caption, lines)
      buf = %Q[<div class="image">\n]
      buf << %Q[<pre class="dummyimage">\n]
      lines.each do |line|
        buf << detab(line) << "\n"
      end
      buf << %Q[</pre>\n]
      buf << image_header(id, caption)
      buf << %Q[</div>\n]
      warn "no such image: #{id}"
      buf
    end

    def image_header(id, caption)
      buf = %Q[<p class="caption">\n]
      if get_chap.nil?
        buf << %Q[#{I18n.t("image")}#{I18n.t("format_number_header_without_chapter", [@chapter.image(id).number])}#{I18n.t("caption_prefix")}#{caption}\n]
      else
        buf << %Q[#{I18n.t("image")}#{I18n.t("format_number_header", [get_chap, @chapter.image(id).number])}#{I18n.t("caption_prefix")}#{caption}\n]
      end
      buf << %Q[</p>\n]
      buf
    end

    def table(lines, id = nil, caption = nil)
      rows = []
      sepidx = nil
      lines.each_with_index do |line, idx|
        if /\A[\=\-]{12}/ =~ line
          # just ignore
          #error "too many table separator" if sepidx
          sepidx ||= idx
          next
        end
        rows.push line.strip.split(/\t+/).map {|s| s.sub(/\A\./, '') }
      end
      rows = adjust_n_cols(rows)

      if id
        buf = %Q[<div id="#{normalize_id(id)}" class="table">\n]
      else
        buf = %Q[<div class="table">\n]
      end
      begin
        buf << table_header(id, caption) unless caption.nil?
      rescue KeyError
        error "no such table: #{id}"
      end
      buf << table_begin(rows.first.size)
      return if rows.empty?
      if sepidx
        sepidx.times do
          buf << tr(rows.shift.map {|s| th(s) })
        end
        rows.each do |cols|
          buf << tr(cols.map {|s| td(s) })
        end
      else
        rows.each do |cols|
          h, *cs = *cols
          buf << tr([th(h)] + cs.map {|s| td(s) })
        end
      end
      buf << table_end
      buf << %Q[</div>\n]
      buf
    end

    def table_header(id, caption)
      if get_chap.nil?
        %Q[<p class="caption">#{I18n.t("table")}#{I18n.t("format_number_header_without_chapter", [@chapter.table(id).number])}#{I18n.t("caption_prefix")}#{caption}</p>\n]
      else
        %Q[<p class="caption">#{I18n.t("table")}#{I18n.t("format_number_header", [get_chap, @chapter.table(id).number])}#{I18n.t("caption_prefix")}#{caption}</p>\n]
      end
    end

    def table_begin(ncols)
      "<table>\n"
    end

    def tr(rows)
      "<tr>#{rows.join}</tr>\n"
    end

    def th(str)
      "<th>#{str}</th>"
    end

    def td(str)
      "<td>#{str}</td>"
    end

    def table_end
      "</table>\n"
    end

    def comment(lines, comment = nil)
      lines ||= []
      lines.unshift comment unless comment.blank?
      if @book.config["draft"]
        str = lines.map{|line| escape_html(line) }.join("<br />")
        return %Q(<div class="draft-comment">#{str}</div>\n)
      else
        str = lines.join("\n")
        return %Q(<!-- #{escape_comment(str)} -->\n)
      end
    end

    def footnote(id, str)
      if @book.config["epubversion"].to_i == 3
        %Q(<div class="footnote" epub:type="footnote" id="fn-#{normalize_id(id)}"><p class="footnote">[*#{@chapter.footnote(id).number}] #{str}</p></div>\n)
      else
        %Q(<div class="footnote" id="fn-#{normalize_id(id)}"><p class="footnote">[<a href="#fnb-#{normalize_id(id)}">*#{@chapter.footnote(id).number}</a>] #{str}</p></div>\n)
      end
    end

    def indepimage(id, caption="", metric=nil)
      metrics = parse_metric("html", metric)
      caption = "" if caption.nil?
      buf = %Q[<div class="image">\n]
      begin
        buf << %Q[<img src="#{@chapter.image(id).path.sub(/\A\.\//, "")}" alt="#{escape_html(caption)}"#{metrics} />\n]
      rescue
        buf << %Q[<pre>missing image: #{id}</pre>\n]
      end

      unless caption.empty?
        buf << %Q[<p class="caption">\n]
        buf << %Q[#{I18n.t("numberless_image")}#{I18n.t("caption_prefix")}#{caption}\n]
        buf << %Q[</p>\n]
      end
      buf << %Q[</div>\n]
      buf
    end

    alias_method :numberlessimage, :indepimage

    def hr
      "<hr />\n"
    end

    def label(id)
      %Q(<a id="#{normalize_id(id)}"></a>\n)
    end

    def linebreak
      "<br />\n"
    end

    def pagebreak
      %Q(<br class="pagebreak" />\n)
    end

    def bpo(lines)
      buf = "<bpo>\n"
      lines.each do |line|
        buf << detab(line) + "\n"
      end
      buf << "</bpo>\n"
      buf
    end

    def noindent
      @noindent = true
    end

    def inline_labelref(idref)
      %Q[<a target='#{(idref)}'>「#{I18n.t("label_marker")}#{(idref)}」</a>]
    end

    alias_method :inline_ref, :inline_labelref

    def inline_chapref(id)
      title = super
      if @book.config["chapterlink"]
        %Q(<a href="./#{id}#{extname}">#{title}</a>)
      else
        title
      end
    rescue KeyError
      error "unknown chapter: #{id}"
      nofunc_text("[UnknownChapter:#{id}]")
    end

    def inline_chap(id)
      if @book.config["chapterlink"]
        %Q(<a href="./#{id}#{extname}">#{@book.chapter_index.number(id)}</a>)
      else
        @book.chapter_index.number(id)
      end
    rescue KeyError
      error "unknown chapter: #{id}"
      nofunc_text("[UnknownChapter:#{id}]")
    end

    def inline_title(id)
      title = super
      if @book.config["chapterlink"]
        %Q(<a href="./#{id}#{extname}">#{title}</a>)
      else
        title
      end
    rescue KeyError
      error "unknown chapter: #{id}"
      nofunc_text("[UnknownChapter:#{id}]")
    end

    def inline_fn(id)
      if @book.config["epubversion"].to_i == 3
        %Q(<a id="fnb-#{normalize_id(id)}" href="#fn-#{normalize_id(id)}" class="noteref" epub:type="noteref">*#{@chapter.footnote(id).number}</a>)
      else
        %Q(<a id="fnb-#{normalize_id(id)}" href="#fn-#{normalize_id(id)}" class="noteref">*#{@chapter.footnote(id).number}</a>)
      end
    end

    def compile_ruby(base, ruby)
      if @book.htmlversion == 5
        %Q[<ruby>#{base}<rp>#{I18n.t("ruby_prefix")}</rp><rt>#{ruby}</rt><rp>#{I18n.t("ruby_postfix")}</rp></ruby>]
      else
        %Q[<ruby><rb>#{(base)}</rb><rp>#{I18n.t("ruby_prefix")}</rp><rt>#{ruby}</rt><rp>#{I18n.t("ruby_postfix")}</rp></ruby>]
      end
    end

    def compile_kw(word, alt)
      %Q[<b class="kw">] +
        if alt
        then escape_html(word + " (#{alt.strip})")
        else escape_html(word)
        end +
        "</b><!-- IDX:#{escape_comment(escape_html(word))} -->"
    end

    def inline_i(str)
      %Q(<i>#{str}</i>)
    end

    def inline_b(str)
      %Q(<b>#{str}</b>)
    end

    def inline_ami(str)
      %Q(<span class="ami">#{(str)}</span>)
    end

    def inline_bou(str)
      %Q(<span class="bou">#{(str)}</span>)
    end

    def inline_tti(str)
      if @book.htmlversion == 5
        %Q(<code class="tt"><i>#{(str)}</i></code>)
      else
        %Q(<tt><i>#{(str)}</i></tt>)
      end
    end

    def inline_ttb(str)
      if @book.htmlversion == 5
        %Q(<code class="tt"><b>#{(str)}</b></code>)
      else
        %Q(<tt><b>#{(str)}</b></tt>)
      end
    end

    def inline_dtp(str)
      "<?dtp #{str} ?>"
    end

    def inline_code(str)
      if @book.htmlversion == 5
        %Q(<code class="inline-code tt">#{(str)}</code>)
      else
        %Q(<tt class="inline-code">#{(str)}</tt>)
      end
    end

    def inline_idx(str)
      %Q(#{(str)}<!-- IDX:#{escape_comment(escape_html(str))} -->)
    end

    def inline_hidx(str)
      %Q(<!-- IDX:#{escape_comment(escape_html(str))} -->)
    end

    def inline_br(str)
      %Q(<br />)
    end

    def inline_m(str)
      if @book.config["mathml"]
        require 'math_ml'
        require 'math_ml/symbol/character_reference'
        parser = MathML::LaTeX::Parser.new(
          :symbol => MathML::Symbol::CharacterReference)
        %Q[<span class="equation">#{parser.parse(str, nil)}</span>]
      else
        %Q[<span class="equation">#{(str)}</span>]
      end
    end

    def text(str)
      str
    end

    def bibpaper(lines, id, caption)
      buf = %Q[<div class="bibpaper">\n]
      buf << bibpaper_header(id, caption)
      unless lines.empty?
        buf << bibpaper_bibpaper(id, caption, lines)
      end
      buf << "</div>" << "\n"
      buf
    end

    def bibpaper_header(id, caption)
      buf = %Q(<a id="bib-#{normalize_id(id)}">)
      buf << "[#{@chapter.bibpaper(id).number}]"
      buf << %Q(</a>)
      buf << " #{(caption)}" << "\n"
    end

    def bibpaper_bibpaper(id, caption, lines)
      lines.join("")
    end

    def inline_bib(id)
      %Q(<a href="#{@book.bib_file.gsub(/\.re\Z/, ".#{@book.config['htmlext']}")}#bib-#{normalize_id(id)}">[#{@chapter.bibpaper(id).number}]</a>)
    end

    def inline_hd_chap(chap, id)
      n = chap.headline_index.number(id)
      if chap.number and @book.config["secnolevel"] >= n.split('.').size
        str = I18n.t("chapter_quote", "#{n} #{chap.headline(id).caption}")
      else
        str = I18n.t("chapter_quote", chap.headline(id).caption)
      end
      if @book.config["chapterlink"]
        anchor = "h"+n.gsub(/\./, "-")
        %Q(<a href="#{chap.id}#{extname}##{anchor}">#{str}</a>)
      else
        str
      end
    end

    def column_label(id)
      num = @chapter.column(id).number
      "column-#{num}"
    end
    private :column_label

    def inline_column(id)
      if @book.config["chapterlink"]
        %Q(<a href="\##{column_label(id)}" class="columnref">#{I18n.t("column", (@chapter.column(id).caption))}</a>)
      else
        I18n.t("column", (@chapter.column(id).caption))
      end
    rescue KeyError
      error "unknown column: #{id}"
      nofunc_text("[UnknownColumn:#{id}]")
    end

    def inline_list(id)
      chapter, id = extract_chapter_id(id)
      if get_chap(chapter).nil?
        "#{I18n.t("list")}#{I18n.t("format_number_without_header", [chapter.list(id).number])}"
      else
        "#{I18n.t("list")}#{I18n.t("format_number", [get_chap(chapter), chapter.list(id).number])}"
      end
    rescue KeyError
      error "unknown list: #{id}"
      nofunc_text("[UnknownList:#{id}]")
    end

    def inline_table(id)
      chapter, id = extract_chapter_id(id)
      str = nil
      if get_chap(chapter).nil?
        str = "#{I18n.t("table")}#{I18n.t("format_number_without_chapter", [chapter.table(id).number])}"
      else
        str = "#{I18n.t("table")}#{I18n.t("format_number", [get_chap(chapter), chapter.table(id).number])}"
      end
      if @book.config["chapterlink"]
        %Q(<a href="./#{chapter.id}#{extname}##{id}">#{str}</a>)
      else
        str
      end
    rescue KeyError
      error "unknown table: #{id}"
      nofunc_text("[UnknownTable:#{id}]")
    end

    def inline_img(id)
      chapter, id = extract_chapter_id(id)
      str = nil
      if get_chap(chapter).nil?
        str = "#{I18n.t("image")}#{I18n.t("format_number_without_chapter", [chapter.image(id).number])}"
      else
        str = "#{I18n.t("image")}#{I18n.t("format_number", [get_chap(chapter), chapter.image(id).number])}"
      end
      if @book.config["chapterlink"]
        %Q(<a href="./#{chapter.id}#{extname}##{normalize_id(id)}">#{str}</a>)
      else
        str
      end
    rescue KeyError
      error "unknown image: #{id}"
      nofunc_text("[UnknownImage:#{id}]")
    end

    def inline_asis(str, tag)
      %Q(<#{tag}>#{(str)}</#{tag}>)
    end

    def inline_abbr(str)
      inline_asis(str, "abbr")
    end

    def inline_acronym(str)
      inline_asis(str, "acronym")
    end

    def inline_cite(str)
      inline_asis(str, "cite")
    end

    def inline_dfn(str)
      inline_asis(str, "dfn")
    end

    def inline_em(str)
      inline_asis(str, "em")
    end

    def inline_kbd(str)
      inline_asis(str, "kbd")
    end

    def inline_samp(str)
      inline_asis(str, "samp")
    end

    def inline_strong(str)
      inline_asis(str, "strong")
    end

    def inline_var(str)
      inline_asis(str, "var")
    end

    def inline_big(str)
      inline_asis(str, "big")
    end

    def inline_small(str)
      inline_asis(str, "small")
    end

    def inline_sub(str)
      inline_asis(str, "sub")
    end

    def inline_sup(str)
      inline_asis(str, "sup")
    end

    def inline_tt(str)
      if @book.htmlversion == 5
        %Q(<code class="tt">#{(str)}</code>)
      else
        %Q(<tt>#{(str)}</tt>)
      end
    end

    def inline_del(str)
      inline_asis(str, "del")
    end

    def inline_ins(str)
      inline_asis(str, "ins")
    end

    def inline_u(str)
      %Q(<u>#{(str)}</u>)
    end

    def inline_recipe(str)
      %Q(<span class="recipe">「#{(str)}」</span>)
    end

    def inline_icon(id)
      begin
        %Q[<img src="#{@chapter.image(id).path.sub(/\A\.\//, "")}" alt="[#{id}]" />]
      rescue
        %Q[<pre>missing image: #{id}</pre>]
      end
    end

    def inline_uchar(str)
      %Q(&#x#{str};)
    end

    def inline_comment(str)
      if @book.config["draft"]
        %Q(<span class="draft-comment">#{(str)}</span>)
      else
        %Q(<!-- #{escape_comment(escape_html(str))} -->)
      end
    end

    def inline_raw(str)
      super(str)
    end

    def nofunc_text(str)
      escape_html(str)
    end

    def compile_href(url, label)
      %Q(<a href="#{escape_html(url)}" class="link">#{label.nil? ? (url) : (label)}</a>)
    end

    def flushright(lines)
      result = ""
      if @book.config["deprecated-blocklines"].nil?
        result << lines.join("").gsub("<p>", "<p class=\"flushright\">")
      else
        error "deprecated-blocklines is obsoleted."
      end
      result
    end

    def centering(lines)
      lines.join("").gsub("<p>", "<p class=\"center\">")
    end

    def image_ext
      "png"
    end

    def olnum(num)
      @ol_num = num.to_i
    end
  end

end # module ReVIEW