# encoding: utf-8
#
# Copyright (c) 2002-2007 Minero Aoki
#               2008-2014 Minero Aoki, Kenshi Muto
#
# 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/textutils'
require 'nkf'

module ReVIEW

  class IDGXMLBuilder < Builder

    include TextUtils
    include HTMLUtils

    [:ttbold, :hint, :maru, :keytop, :labelref, :ref, :pageref, :balloon].each {|e| Compiler.definline(e) }
    Compiler.defsingle(:dtp, 1)

    Compiler.defcodeblock(:insn, 1)
    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)
    Compiler.defblock(:reference, 0)
    Compiler.defblock(:term, 0)
    Compiler.defblock(:link, 0..1)
    Compiler.defblock(:practice, 0)
    Compiler.defblock(:expert, 0)
    Compiler.defblock(:rawblock, 0)

    def extname
      '.xml'
    end

    def builder_init(no_error = false)
      @no_error = no_error
    end
    private :builder_init

    def builder_init_file
      @warns = []
      @errors = []
      @section = 0
      @subsection = 0
      @subsubsection = 0
      @subsubsubsection = 0
      @sec_counter = SecCounter.new(5, @chapter)
      @column = 0
      @noindent = nil
      @rootelement = "doc"
      @secttags = nil
      @tsize = nil
      @texblockequation = 0
      @texinlineequation = 0

      @output << %Q(<?xml version="1.0" encoding="UTF-8"?>\n)
      @output << %Q(<#{@rootelement} xmlns:aid="http://ns.adobe.com/AdobeInDesign/4.0/">)
      if @book.config["nolf"].present?
        @lf = ""
      else
        @lf = "\n"
      end
      @secttags = true unless @book.config["structuredxml"].nil?
    end
    private :builder_init_file

    def result
      s = ""
      unless @secttags.nil?
        s += "</sect4>" if @subsubsubsection > 0
        s += "</sect3>" if @subsubsection > 0
        s += "</sect2>" if @subsection > 0
        s += "</sect>" if @section > 0
        s += "</chapter>" if @chapter.number > 0
      end
      messages() + @output.string + s + "</#{@rootelement}>\n"
    end

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

    def error(msg)
      if @no_error
        @errors.push [@location.filename, @location.lineno, msg]
        buf << "----ERROR: #{escape_html(msg)}----" << @lf
      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 = ""
      case level
      when 1
        unless @secttags.nil?
          buf << "</sect4>" if @subsubsubsection > 0
          buf << "</sect3>" if @subsubsection > 0
          buf << "</sect2>" if @subsection > 0
          buf << "</sect>" if @section > 0
        end
        buf << %Q(<chapter id="chap:#{@chapter.number}">) unless @secttags.nil?
        @section = 0
        @subsection = 0
        @subsubsection = 0
        @subsubsubsection = 0
      when 2
        unless @secttags.nil?
          buf << "</sect4>" if @subsubsubsection > 0
          buf << "</sect3>" if @subsubsection > 0
          buf << "</sect2>" if @subsection > 0
          buf << "</sect>" if @section > 0
        end
        @section += 1
        buf << %Q(<sect id="sect:#{@chapter.number}.#{@section}">) unless @secttags.nil?
        @subsection = 0
        @subsubsection = 0
        @subsubsubsection = 0
      when 3
        unless @secttags.nil?
          buf << "</sect4>" if @subsubsubsection > 0
          buf << "</sect3>" if @subsubsection > 0
          buf << "</sect2>" if @subsection > 0
        end
        @subsection += 1
        buf << %Q(<sect2 id="sect:#{@chapter.number}.#{@section}.#{@subsection}">) unless @secttags.nil?
        @subsubsection = 0
        @subsubsubsection = 0
      when 4
        unless @secttags.nil?
          buf << "</sect4>" if @subsubsubsection > 0
          buf << "</sect3>" if @subsubsection > 0
        end
        @subsubsection += 1
        buf << %Q(<sect3 id="sect:#{@chapter.number}.#{@section}.#{@subsection}.#{@subsubsection}">) unless @secttags.nil?
        @subsubsubsection = 0
      when 5
        unless @secttags.nil?
          buf << "</sect4>" if @subsubsubsection > 0
        end

        @subsubsubsection += 1
        buf << %Q(<sect4 id="sect:#{@chapter.number}.#{@section}.#{@subsection}.#{@subsubsection}.#{@subsubsubsection}">) unless @secttags.nil?
      else
        raise "caption level too deep or unsupported: #{level}"
      end

      prefix, anchor = headline_prefix(level)

      label = label.nil? ? "" : " id=\"#{label}\""
      toccaption = escape_html(caption.gsub(/@<fn>\{.+?\}/, '').gsub(/<[^>]+>/, ''))
      buf << %Q(<title#{label} aid:pstyle="h#{level}">#{prefix}#{caption}</title><?dtp level="#{level}" section="#{prefix}#{toccaption}"?>) << @lf

      buf
    end

    def ul_begin
      level = block_given? ? yield : ""
      level = nil if level == 1
      "<ul#{level == 1 ? nil : level}>" + @lf
    end

    def ul_item(lines)
      %Q(<li aid:pstyle="ul-item">#{lines.join.chomp}</li>) + @lf
    end

    def ul_item_begin(lines)
      %Q(<li aid:pstyle="ul-item">#{lines.join.chomp})
    end

    def ul_item_end
      "</li>" + @lf
    end

    def choice_single_begin
      "<choice type='single'>" + @lf
    end

    def choice_multi_begin
      "<choice type='multi'>" + @lf
    end

    def choice_single_end
      "</choice>" + @lf
    end

    def choice_multi_end
      "</choice>" + @lf
    end

    def ul_end
      level = block_given? ? yield : ""
      level = nil if level == 1
      "</ul#{level}>" + @lf
    end

    def ol_begin
      if !@ol_num
        @ol_num = 1
      end
      '<ol>' + @lf
    end

    def ol_item(lines, num)
      buf = %Q(<li aid:pstyle="ol-item" olnum="#{@ol_num}" num="#{num}">#{lines.join.chomp}</li>) + @lf
      @ol_num += 1
      buf
    end

    def ol_end
      @ol_num = nil
      '</ol>' + @lf
    end

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

    def dl_begin
      '<dl>' + @lf
    end

    def dt(line)
      "<dt>#{line}</dt>" + @lf
    end

    def dd(lines)
      "<dd>#{lines.join.chomp}</dd>" + @lf
    end

    def dl_end
      '</dl>' + @lf
    end

    def paragraph(lines)
      buf = ""
      if @noindent.nil?
        if lines[0] =~ /\A(\t+)/
          buf << %Q(<p inlist="#{$1.size}">#{lines.join('').sub(/\A\t+/, "")}</p>) << @lf
        else
          buf << "<p>#{lines.join}</p>" << @lf
        end
      else
        buf << %Q(<p aid:pstyle="noindent" noindent='1'>#{lines.join}</p>) << @lf
        @noindent = nil
      end
      buf
    end

    def read(lines)
      if @book.config["deprecated-blocklines"].nil?
        %Q[<lead>#{lines.join}</lead>] + @lf
      else
        str = lines.map{|l| l.sub(/^<p>/,"").sub(/<\/p>$/,"")}.join()
        %Q[<p aid:pstyle="lead">#{str}</p>] + @lf
      end
    end

    alias_method :lead, :read

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

    def inline_column(id)
      if @book.config["chapterlink"]
        %Q(<link href="#{column_label(id)}">#{escape_html(@chapter.column(id).caption)}</link>)
      else
        escape_html(@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?
        "<span type='list'>#{I18n.t("list")}#{I18n.t("format_number_without_chapter", [chapter.list(id).number])}</span>"
      else
        "<span type='list'>#{I18n.t("list")}#{I18n.t("format_number", [get_chap(chapter), chapter.list(id).number])}</span>"
      end
    end

    def list_header(id, caption, lang)
      buf = ""
      buf << %Q[<codelist>] << @lf
      if get_chap.nil?
        buf << %Q[<caption>#{I18n.t("list")}#{I18n.t("format_number_without_chapter", [@chapter.list(id).number])}#{I18n.t("caption_prefix_idgxml")}#{caption}</caption>] << @lf
      else
        buf << %Q[<caption>#{I18n.t("list")}#{I18n.t("format_number", [get_chap, @chapter.list(id).number])}#{I18n.t("caption_prefix_idgxml")}#{caption}</caption>] << @lf
      end
      buf
    end

    def codelines_body(lines)
      buf = ""
      no = 1
      lines.each do |line|
        unless @book.config["listinfo"].nil?
          buf << "<listinfo line=\"#{no}\""
          buf << " begin=\"1\"" if no == 1
          buf << " end=\"#{no}\"" if no == lines.size
          buf << ">"
        end
        buf << detab(line)
        buf << "\n"
        buf << "</listinfo>" unless @book.config["listinfo"].nil?
        no += 1
      end
      buf
    end

    def list_body(id, lines, lang)
      buf = ""
      buf << %Q(<pre>)
      buf << codelines_body(lines)
      buf << "</pre></codelist>" << @lf
      buf
    end

    def emlist(lines, caption = nil, lang = nil)
      quotedlist lines, 'emlist', caption
    end

    def emlistnum(lines, caption = nil, lang = nil)
      _lines = []
      lines.each_with_index do |line, i|
        line.chomp! ## new parser don't remove LF in table (code block)
        _lines << detab("<span type='lineno'>" + (i + 1).to_s.rjust(2) + ": </span>" + line)
      end
      quotedlist _lines, 'emlistnum', caption
    end

    def listnum_body(lines, lang)
      buf = ""
      buf << %Q(<pre>)
      no = 1
      lines.each_with_index do |line, i|
        unless @book.config["listinfo"].nil?
          buf << "<listinfo line=\"#{no}\""
          buf << " begin=\"1\"" if no == 1
          buf << " end=\"#{no}\"" if no == lines.size
          buf << ">"
        end
        buf << detab("<span type='lineno'>" + (i + 1).to_s.rjust(2) + ": </span>" + line)
        buf << "\n"
        buf << "</listinfo>" unless @book.config["listinfo"].nil?
        no += 1
      end
      buf << "</pre></codelist>" << @lf
      buf
    end

    def cmd(lines, caption = nil)
      quotedlist lines, 'cmd', caption
    end

    def quotedlist(lines, css_class, caption)
      buf = ""
      buf << %Q[<list type='#{css_class}'>]
      buf << "<caption aid:pstyle='#{css_class}-title'>#{caption}</caption>" + @lf unless caption.nil?
      buf << %Q[<pre>]
      no = 1
      lines.each do |line|
        unless @book.config["listinfo"].nil?
          buf << "<listinfo line=\"#{no}\""
          buf << " begin=\"1\"" if no == 1
          buf << " end=\"#{no}\"" if no == lines.size
          buf << ">"
        end
        buf << detab(line)
        buf << "\n"
        buf << "</listinfo>" unless @book.config["listinfo"].nil?
        no += 1
      end
      buf << '</pre></list>' << @lf
      buf
    end
    private :quotedlist

    def quote(lines)
      if @book.config["deprecated-blocklines"].nil?
        "<quote>#{lines.join("")}</quote>" + @lf
      else
        str = lines.map{|l| l.sub(/^<p>/,"").sub(/<\/p>$/,"")}.join("\n")
        "<quote>#{str}</quote>" + @lf
      end
    end

    def inline_table(id)
      chapter, id = extract_chapter_id(id)
      if get_chap(chapter).nil?
        "<span type='table'>#{I18n.t("table")}#{I18n.t("format_number_without_chapter", [chapter.table(id).number])}</span>"
      else
        "<span type='table'>#{I18n.t("table")}#{I18n.t("format_number", [get_chap(chapter), chapter.table(id).number])}</span>"
      end
    end

    def inline_img(id)
      chapter, id = extract_chapter_id(id)
      if get_chap(chapter).nil?
        "<span type='image'>#{I18n.t("image")}#{I18n.t("format_number_without_chapter", [chapter.image(id).number])}</span>"
      else
        "<span type='image'>#{I18n.t("image")}#{I18n.t("format_number", [get_chap(chapter), chapter.image(id).number])}</span>"
      end
    end

    def inline_imgref(id)
      chapter, id = extract_chapter_id(id)
      if chapter.image(id).caption.blank?
        inline_img(id)
      else
        if get_chap(chapter).nil?
          "<span type='image'>#{I18n.t("image")}#{I18n.t("format_number_without_chapter", [chapter.image(id).number])}#{I18n.t('image_quote', chapter.image(id).caption)}</span>"
        else
          "<span type='image'>#{I18n.t("image")}#{I18n.t("format_number", [get_chap(chapter), chapter.image(id).number])}#{I18n.t('image_quote', chapter.image(id).caption)}</span>"
        end
      end
    end

    def handle_metric(str)
      k, v = str.split('=', 2)
      return %Q|#{k}=\"#{v.sub(/\A["']/, '').sub(/["']\Z/, '')}\"|
    end

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

    def image_image(id, caption, metric=nil)
      buf = ""
      metrics = parse_metric("idgxml", metric)
      buf << "<img>" << @lf
      buf << %Q[<Image href="file://#{@chapter.image(id).path.sub(/\A.\//, "")}"#{metrics} />] << @lf
      buf << image_header(id, caption)
      buf << "</img>" << @lf
      buf
    end

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

    def image_header(id, caption)
      if get_chap.nil?
        %Q[<caption>#{I18n.t("image")}#{I18n.t("format_number_without_chapter", [@chapter.image(id).number])}#{I18n.t("caption_prefix_idgxml")}#{caption}</caption>] + @lf
      else
        %Q[<caption>#{I18n.t("image")}#{I18n.t("format_number", [get_chap, @chapter.image(id).number])}#{I18n.t("caption_prefix_idgxml")}#{caption}</caption>] + @lf
      end
    end

    def texequation(lines)
      buf = ""
      @texblockequation += 1
      buf << %Q[<replace idref="texblock-#{@texblockequation}">] << @lf
      buf << '<pre>' << @lf
      buf << "#{lines.join("\n")}" << @lf
      buf << '</pre>' << @lf
      buf << '</replace>' << @lf
    end

    def table(lines, id = nil, caption = nil)
      buf = ""
      tablewidth = nil
      col = 0
      unless @book.config["tableopt"].nil?
        tablewidth = @book.config["tableopt"].split(",")[0].to_f / 0.351 # mm -> pt
      end
      buf << "<table>"
      rows = []
      sepidx = nil
      lines.each_with_index do |line, idx|
        line.chomp! ## new parser don't remove LF in table (code block)
        if /\A[\=\-]{12}/ =~ line
          sepidx ||= idx
          next
        end
        if tablewidth.nil?
          rows.push(line.gsub(/\t\.\t/, "\t\t").gsub(/\t\.\.\t/, "\t.\t").gsub(/\t\.\Z/, "\t").gsub(/\t\.\.\Z/, "\t.").gsub(/\A\./, ""))
        else
          rows.push(line.gsub(/\t\.\t/, "\tDUMMYCELLSPLITTER\t").gsub(/\t\.\.\t/, "\t.\t").gsub(/\t\.\Z/, "\tDUMMYCELLSPLITTER").gsub(/\t\.\.\Z/, "\t.").gsub(/\A\./, ""))
        end
        _col = rows[rows.length - 1].split(/\t/).length
        col = _col if _col > col
      end

      cellwidth = []
      unless tablewidth.nil?
        if @tsize.nil?
          col.times {|n| cellwidth[n] = tablewidth / col }
        else
          cellwidth = @tsize.split(/\s*,\s*/)
          totallength = 0
          cellwidth.size.times do |n|
            cellwidth[n] = cellwidth[n].to_f / 0.351 # mm -> pt
            totallength += cellwidth[n]
            warn "total length exceeds limit for table: #{id}" if totallength > tablewidth
          end
          if cellwidth.size < col
            cw = (tablewidth - totallength) / (col - cellwidth.size)
            warn "auto cell sizing exceeds limit for table: #{id}" if cw <= 0
            for i in cellwidth.size..(col - 1)
              cellwidth[i] = cw
            end
          end
        end
      end

      begin
        buf << table_header(id, caption) unless caption.nil?
      rescue KeyError
        error "no such table: #{id}"
      end
      return if rows.empty?

      if tablewidth.nil?
        buf << "<tbody>"
      else
        buf << %Q[<tbody xmlns:aid5="http://ns.adobe.com/AdobeInDesign/5.0/" aid:table="table" aid:trows="#{rows.length}" aid:tcols="#{col}">]
      end

      if sepidx
        sepidx.times do |y|
          if tablewidth.nil?
            buf << %Q[<tr type="header">#{rows.shift}</tr>] << @lf
          else
            i = 0
            rows.shift.split(/\t/).each_with_index do |cell, x|
              buf << %Q[<td xyh="#{x + 1},#{y + 1},#{sepidx}" aid:table="cell" aid:theader="1" aid:crows="1" aid:ccols="1" aid:ccolwidth="#{sprintf("%.13f", cellwidth[i])}">#{cell.sub("DUMMYCELLSPLITTER", "")}</td>]
              i += 1
            end
          end
        end
      end
      buf << trputs(tablewidth, rows, cellwidth, sepidx)
      buf << "</tbody></table>" << @lf
      @tsize = nil
      buf
    end

    def trputs(tablewidth, rows, cellwidth, sepidx)
      buf = ""
      sepidx = 0 if sepidx.nil?
      if tablewidth.nil?
        lastline = rows.pop
        rows.each {|row| buf << %Q[<tr>#{row}</tr>] }
        buf << %Q[<tr type="lastline">#{lastline}</tr>] + @lf unless lastline.nil?
      else
        rows.each_with_index do |row, y|
          i = 0
          row.split(/\t/).each_with_index do |cell, x|
            buf << %Q[<td xyh="#{x + 1},#{y + 1 + sepidx},#{sepidx}" aid:table="cell" aid:crows="1" aid:ccols="1" aid:ccolwidth="#{sprintf("%.13f", cellwidth[i])}">#{cell.sub("DUMMYCELLSPLITTER", "")}</td>]
            i += 1
          end
        end
      end
      buf
    end

    def table_header(id, caption)
      buf = ""
      if get_chap.nil?
        buf << %Q[<caption>#{I18n.t("table")}#{I18n.t("format_number_without_chapter", [@chapter.table(id).number])}#{I18n.t("caption_prefix_idgxml")}#{caption}</caption>] + @lf
      else
        buf << %Q[<caption>#{I18n.t("table")}#{I18n.t("format_number", [get_chap, @chapter.table(id).number])}#{I18n.t("caption_prefix_idgxml")}#{caption}</caption>] + @lf
      end
      buf
    end

    def table_begin(ncols)
    end

    def tr(rows)
      %Q[<tr>#{rows.join("\t")}</tr>] + @lf
    end

    def th(str)
      %Q[<?dtp tablerow header?>#{str}]
    end

    def td(str)
      str
    end

    def table_end
      "<?dtp tablerow last?>"
    end

    def comment(str)
      %Q(<!-- [Comment] #{escape_html(str)} -->)
    end

    def footnote(id, str)
      # see inline_fn
    end

    def inline_fn(id)
      %Q[<footnote>#{@chapter.footnote(id).content.strip}</footnote>]
    end

    def compile_ruby(base, ruby)
      %Q[<GroupRuby><aid:ruby xmlns:aid="http://ns.adobe.com/AdobeInDesign/3.0/"><aid:rb>#{escape_html(base.sub(/\A\s+/, "").sub(/\s+$/, ""))}</aid:rb><aid:rt>#{escape_html(ruby.sub(/\A\s+/, "").sub(/\s+$/, ""))}</aid:rt></aid:ruby></GroupRuby>]
    end

    def compile_kw(word, alt)
      '<keyword>' +
        if alt
        then
          ("#{word}（#{alt.strip}）")
        else
          (word)
        end +
      '</keyword>' +
        %Q[<index value="#{word}" />] +
        if alt
          alt.split(/\s*,\s*/).collect! {|e| %Q[<index value="#{(e.strip)}" />] }.join
        else
          ""
        end
    end

    def compile_href(url, label)
      %Q[<a linkurl='#{url}'>#{label.nil? ? url : label}</a>]
    end

    def inline_sup(str)
      %Q[<sup>#{str}</sup>]
    end

    def inline_sub(str)
      %Q[<sub>#{str}</sub>]
    end

    def inline_raw(str)
      %Q[#{super(str).gsub("\\n", "\n")}]
    end

    def inline_hint(str)
      if @book.config["nolf"].nil?
        %Q[\n<hint>#{str}</hint>]
      else
        %Q[<hint>#{str}</hint>]
      end
    end

    def inline_maru(str)
      if str =~ /\A\d+\Z/
        sprintf("&#x%x;", 9311 + str.to_i)
      elsif str =~ /\A[A-Z]\Z/
        begin
          sprintf("&#x%x;", 9398 + str.codepoints.to_a[0] - 65)
        rescue NoMethodError
          sprintf("&#x%x;", 9398 + str[0] - 65)
        end
      elsif str =~ /\A[a-z]\Z/
        begin
          sprintf("&#x%x;", 9392 + str.codepoints.to_a[0] - 65)
        rescue NoMethodError
          sprintf("&#x%x;", 9392 + str[0] - 65)
        end
      else
        raise "can't parse maru: #{str}"
      end
    end

    def inline_idx(str)
      %Q(#{str}<index value="#{str}" />)
    end

    def inline_hidx(str)
      %Q(<index value="#{str}" />)
    end

    def inline_ami(str)
      %Q(<ami>#{str}</ami>)
    end

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

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

    def inline_tt(str)
      %Q(<tt>#{str}</tt>)
    end

    def inline_ttb(str)
      %Q(<tt style='bold'>#{str}</tt>)
    end

    alias_method :inline_ttbold, :inline_ttb

    def inline_tti(str)
      %Q(<tt style='italic'>#{str}</tt>)
    end

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

    def inline_icon(id)
      begin
        %Q[<Image href="file://#{@chapter.image(id).path.sub(/\A\.\//, "")}" type="inline" />]
      rescue
        warn "no such icon image: #{id}"
        ""
      end
    end

    def inline_bou(str)
      %Q[<bou>#{str}</bou>]
    end

    def inline_keytop(str)
      %Q[<keytop>#{str}</keytop>]
    end

    def inline_labelref(idref)
      %Q[<ref idref='#{(idref)}'>「#{I18n.t("label_marker")}#{(idref)}」</ref>] # FIXME:節名とタイトルも込みで要出力
    end

    alias_method :inline_ref, :inline_labelref

    def inline_pageref(idref)
      %Q[<pageref idref='#{(idref)}'>●●</pageref>] # ページ番号を参照
    end

    def inline_balloon(str)
      %Q[<balloon>#{str.gsub(/@maru\[(\d+)\]/) {|m| inline_maru($1)}}</balloon>]
    end

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

    def inline_m(str)
      @texinlineequation += 1
      %Q[<replace idref="texinline-#{@texinlineequation}"><pre>#{str}</pre></replace>]
    end

    def noindent
      @noindent = true
      ""
    end

    def linebreak
      # FIXME:pが閉じちゃってるので一度戻らないといけないが、難しい…。
      "<br />" + @lf
    end

    def pagebreak
      "<pagebreak />" + @lf
    end

    def nonum_begin(level, label, caption)
      %Q[<title aid:pstyle="h#{level}">#{caption}</title><?dtp level="#{level}" section="#{caption}"?>] + @lf
    end

    def nonum_end(level)
    end

    def circle_begin(level, label, caption)
      %Q[<title aid:pstyle="smallcircle">&#x2022;#{caption}</title>] + @lf
    end

    def circle_end(level)
    end

    def common_column_begin(type, caption)
      buf = ""
      @column += 1
      a_id = %Q[id="column-#{@column}"]
      buf << "<#{type}column #{a_id}>"
      buf << %Q[<title aid:pstyle="#{type}column-title">#{compile_inline(caption)}</title>] << @lf
      buf
    end

    def common_column_end(type)
      "</#{type}column>" + @lf
    end

    def column_begin(level, label, caption)
      common_column_begin("", caption)
    end

    def column_end(level)
      common_column_end("")
    end

    def xcolumn_begin(level, label, caption)
      common_column_begin("x", caption)
    end

    def xcolumn_end(level)
      common_column_end("x")
    end

    def world_begin(level, label, caption)
      common_column_begin("world", caption)
    end

    def world_end(level)
      common_column_end("world")
    end

    def hood_begin(level, label, caption)
      common_column_begin("hood", caption)
    end

    def hood_end(level)
      common_column_end("hood")
    end

    def edition_begin(level, label, caption)
      common_column_begin("edition", caption)
    end

    def edition_end(level)
      common_column_end("edition")
    end

    def insideout_begin(level, label, caption)
      common_column_begin("insideout", caption)
    end

    def insideout_end(level)
      common_column_end("insideout")
    end

    def ref_begin(level, label, caption)
      if !label.nil?
        "<reference id='#{label}'>" + @lf
      else
        "<reference>" + @lf
      end
    end

    def ref_end(level)
      "</reference>" + @lf
    end

    def sup_begin(level, label, caption)
      if !label.nil?
        "<supplement id='#{label}'>" + @lf
      else
        "<supplement>" + @lf
      end
    end

    def sup_end(level)
      "</supplement>" + @lf
    end

    def flushright(lines)
      if @book.config["deprecated-blocklines"].nil?
        lines.join("").gsub("<p>", "<p align='right'>") + @lf
      else
        str = lines.map{|l| l.sub(/^<p>/,"").sub(/<\/p>$/,"")}.join("\n")
        "<p align='right'>#{str}</p>" + @lf
      end
    end

    def centering(lines)
      lines.join("").gsub("<p>", "<p align='center'>") + @lf
    end

    def captionblock(type, lines, caption, specialstyle = nil)
      buf = ""
      buf << "<#{type}>"
      style = specialstyle.nil? ? "#{type}-title" : specialstyle
      buf << "<title aid:pstyle='#{style}'>#{(caption)}</title>" + @lf unless caption.nil?
      if @book.config["deprecated-blocklines"].nil?
        buf << "#{lines.join}</#{type}>" << @lf
      else
        str = lines.map{|l| l.sub(/^<p>/,"").sub(/<\/p>$/,"")}.join("\n")
        buf << "#{str}</#{type}>" << @lf
      end
      buf
    end

    def note(lines, caption = nil)
      captionblock("note", lines, caption)
    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 term(lines)
      captionblock("term", lines, nil)
    end

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

    def notice(lines, caption = nil)
      if caption.nil?
        captionblock("notice", lines, nil)
      else
        captionblock("notice-t", lines, caption, "notice-title")
      end
    end

    def point(lines, caption = nil)
      if caption.nil?
        captionblock("point", lines, nil)
      else
        captionblock("point-t", lines, caption, "point-title")
      end
    end

    def shoot(lines, caption = nil)
      if caption.nil?
        captionblock("shoot", lines, nil)
      else
        captionblock("shoot-t", lines, caption, "shoot-title")
      end
    end

    def reference(lines)
      captionblock("reference", lines, nil)
    end

    def practice(lines)
      captionblock("practice", lines, nil)
    end

    def expert(lines)
      captionblock("expert", lines, nil)
    end

    def syntaxblock(type, lines, caption)
      buf = ""
      if caption.nil?
        buf << %Q[<#{type}>] << @lf
      else
        titleopentag = %Q[caption aid:pstyle="#{type}-title"]
        titleclosetag = "caption"
        if type == "insn"
          titleopentag = %Q[floattitle type="insn"]
          titleclosetag = "floattitle"
        end
        buf << %Q[<#{type}><#{titleopentag}>#{caption}</#{titleclosetag}>] << @lf
      end
      no = 1
      lines.each do |line|
        line.chomp!
        unless @book.config["listinfo"].nil?
          buf << %Q[<listinfo line="#{no}"]
          buf << %Q[ begin="1"] if no == 1
          buf << %Q[ end="#{no}"] if no == lines.size
          buf << %Q[>]
        end
        buf << detab(line)
        buf << "\n"
        buf << "</listinfo>" unless @book.config["listinfo"].nil?
        no += 1
      end
      buf << "</#{type}>" << @lf
      buf
    end

    def insn(lines, caption = nil)
      syntaxblock("insn", lines, caption)
    end

    def box(lines, caption = nil)
      syntaxblock("box", lines, caption)
    end

    def indepimage(id, caption=nil, metric=nil)
      buf = ""
      metrics = parse_metric("idgxml", metric)
      buf << "<img>" << @lf
      begin
        buf << %Q[<Image href="file://#{@chapter.image(id).path.sub(/\A\.\//, "")}"#{metrics} />] << @lf
      rescue
        warn %Q[no such image: #{id}]
      end
      buf << %Q[<caption>#{caption}</caption>] + @lf if caption.present?
      buf << "</img>" << @lf
      buf
    end

    alias_method :numberlessimage, :indepimage

    def label(id)
      # FIXME
      "<label id='#{id}' />"
    end

    def tsize(str)
      @tsize = str
    end

    def dtp(str)
      %Q(<?dtp #{str} ?>)
    end

    def hr
      "<hr />"
    end

    def bpo(lines)
      %Q[<bpo>#{lines.join("\n")}</bpo>] + @lf
    end

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

    def inline_code(str)
      %Q[<tt type='inline-code'>#{str}</tt>]
    end

    def inline_br(str)
      "\n"
    end

    def rawblock(lines)
      buf = ""
      no = 1
      lines.each do |l|
        buf << l.gsub("&lt;", "<").gsub("&gt;", ">").gsub("&quot;", "\"").gsub("&amp;", "&")
        buf << "\n" unless lines.length == no
        no += 1
      end
      buf
    end

    def text(str)
      str
    end

    def inline_chapref(id)
      chs = ["", "「", "」"]
      unless @book.config["chapref"].nil?
        _chs = @book.config["chapref"].split(",")
        if _chs.size != 3
          error "--chapsplitter must have exactly 3 parameters with comma."
        else
          chs = _chs
        end
      else
      end
      s = "#{chs[0]}#{@book.chapter_index.number(id)}#{chs[1]}#{@book.chapter_index.title(id)}#{chs[2]}"
      if @book.config["chapterlink"]
        %Q(<link href="#{id}">#{s}</link>)
      else
        s
      end
    rescue KeyError
      error "unknown chapter: #{id}"
      nofunc_text("[UnknownChapter:#{id}]")
    end

    def inline_chap(id)
      if @book.config["chapterlink"]
        %Q(<link href="#{id}">#{@book.chapter_index.number(id)}</link>)
      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(<link href="#{id}">#{title}</link>)
      else
        title
      end
    rescue KeyError
      error "unknown chapter: #{id}"
      nofunc_text("[UnknownChapter:#{id}]")
    end

    def source_header(caption)
      buf = ""
      buf << %Q[<source>] << @lf
      buf << %Q[<caption>#{caption}</caption>] << @lf
      buf
    end

    def source_body(lines, lang)
      buf = ""
      buf << %Q[<pre>] << @lf
      buf << codelines_body(lines)
      buf << %Q[</pre></source>] << @lf
      buf
    end

    def bibpaper(lines, id, caption)
      buf = ""
      buf << bibpaper_header(id, caption)
      unless lines.empty?
        buf << bibpaper_bibpaper(id, caption, lines)
      end
      buf << %Q(</bibitem>) << @lf
      buf
    end

    def bibpaper_header(id, caption)
      buf = ""
      buf << %Q(<bibitem id="bib-#{id}">) << @lf
      buf << "<caption><span type='bibno'>[#{@chapter.bibpaper(id).number}] </span>#{caption}</caption>" << @lf
      buf
    end

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

    def inline_bib(id)
      %Q(<span type='bibref' idref='#{id}'>[#{@chapter.bibpaper(id).number}]</span>)
    end

    def inline_hd_chap(chap, id)
      if chap.number
        n = chap.headline_index.number(id)
        if @book.config["secnolevel"] >= n.split('.').size
          return I18n.t("chapter_quote", "#{n}　#{chap.headline(id).caption}")
        end
      end
      I18n.t("chapter_quote", chap.headline(id).caption)
    end

    def inline_recipe(id)
      # FIXME
      %Q(<recipe idref="#{id}">[XXX]「#{id}」　p.XX</recipe>)
    end

    def nofunc_text(str)
      escape_html(str)
    end

    def image_ext
      "eps"
    end

  end

end # module ReVIEW