review-peg 0.1.0

data/lib/review/htmllayout.rb

@@ -0,0 +1,41 @@
+# Copyright (c) 2009 Narihiro Nakamura <authornari@gmail.com>
+require 'erb'
+
+class HTMLLayout
+  include ERB::Util
+
+  def initialize(params, template)
+    @body = params['body']
+    @title = params['title']
+    @toc = params['toc']
+    @next = params['next']
+    @prev = params['prev']
+    @builder = params['builder']
+    @template = template
+  end
+  attr_reader :body, :title, :toc
+
+  def next_chapter
+    if @next.present?
+      "<a href='#{h @next.id}.html'>#{h @builder.compile_inline @next.title}</a>"
+    else
+      ""
+    end
+  end
+
+  def prev_chapter
+    if @prev.present?
+      "<a href='#{h @prev.id}.html'>#{h @builder.compile_inline @prev.title}</a>"
+    else
+      ""
+    end
+  end
+
+  def result
+    if File.exist?(@template)
+      return ERB.new(IO.read(@template)).result(binding)
+    else
+      return @src
+    end
+  end
+end

data/lib/review/htmltoc.rb

@@ -0,0 +1,45 @@
+require 'review'
+module ReVIEW
+  class HTMLToc
+    def initialize(basedir)
+      @tochtmltxt = "toc-html.txt"
+      @basedir = basedir
+    end
+
+    def add_item(level, filename, title, args)
+      args_str = encode_args(args)
+      line = [level, filename, title, args_str].join("\t")
+      File.open(tocfilename, "a") do |f|
+        f.write "#{line}\n"
+      end
+    end
+
+    def each_item
+      File.open(tocfilename) do |f|
+        f.each_line do |line|
+          level, file, title, args_str = line.chomp.split("\t")
+          args = decode_args(args_str)
+          yield level, file, title, args
+        end
+      end
+    end
+
+    def tocfilename
+      File.join(@basedir, @tochtmltxt)
+    end
+
+    def decode_args(args_str)
+      args = Hash.new
+      args_str.split(/,\s*/).each do |pair|
+        key, val = pair.split("=")
+        args[key.to_sym] = val
+      end
+      args
+    end
+
+    def encode_args(args)
+      args.map{|k,v| "#{k}=#{v}"}.join(",")
+    end
+  end
+end
+

data/lib/review/htmlutils.rb

@@ -0,0 +1,90 @@
+#
+# $Id: htmlutils.rb 2227 2006-05-13 00:09:08Z aamine $
+#
+# Copyright (c) 2002-2006 Minero Aoki
+#
+# 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.
+#
+
+module ReVIEW
+
+  module HTMLUtils
+    ESC = {
+      '&' => '&',
+      '<' => '&lt;',
+      '>' => '&gt;',
+      '"' => '&quot;'
+    }
+
+    def escape_html(str)
+      t = ESC
+      str.gsub(/[&"<>]/) {|c| t[c] }
+    end
+
+    alias_method :escape, :escape_html
+
+    def unescape_html(str)
+      # FIXME better code
+      str.gsub('&quot;', '"').gsub('&gt;', '>').gsub('&lt;', '<').gsub('&amp;', '&')
+    end
+
+    alias_method :unescape, :unescape_html
+
+    def strip_html(str)
+      str.gsub(/<\/?[^>]*>/, "")
+    end
+
+    def escape_comment(str)
+      str.gsub('-', '&#45;')
+    end
+
+    def highlight?
+      @book.config["pygments"].present? ||
+        @book.config["highlight"] && @book.config["highlight"]["html"] == "pygments"
+    end
+
+    def highlight(ops)
+      body = ops[:body] || ''
+      if @book.config["highlight"] && @book.config["highlight"]["lang"]
+        lexer = @book.config["highlight"]["lang"] # default setting
+      else
+        lexer = 'text'
+      end
+      lexer = ops[:lexer] if ops[:lexer].present?
+      format = ops[:format] || ''
+      options = {:nowrap => true, :noclasses => true}
+      if ops[:options] && ops[:options].kind_of?(Hash)
+        options.merge!(ops[:options])
+      end
+      return body if !highlight?
+
+      begin
+        require 'pygments'
+        begin
+          Pygments.highlight(
+                   unescape_html(body),
+                   :options => options,
+                   :formatter => format,
+                   :lexer => lexer)
+        rescue MentosError
+          body
+        end
+      rescue LoadError
+        body
+      end
+    end
+
+    def normalize_id(id)
+      if id =~ /\A[a-z][a-z0-9_.-]*\Z/i
+        return id
+      elsif id =~ /\A[0-9_.-][a-z0-9_.-]*\Z/i
+        return "id_#{id}" # dummy prefix
+      else
+        return "id_#{CGI.escape(id.gsub("_", "__")).gsub("%", "_").gsub("+", "-")}" # escape all
+      end
+    end
+  end
+
+end # module ReVIEW

data/lib/review/i18n.rb

@@ -0,0 +1,96 @@
+# -*- coding: utf-8 -*-
+require 'yaml'
+
+module ReVIEW
+  class I18n
+    def self.setup(locale="ja", ymlfile = "locale.yml")
+      @i18n = ReVIEW::I18n.new(locale)
+
+      lfile = nil
+      if ymlfile
+        lfile = File.expand_path(ymlfile, Dir.pwd)
+
+        # backward compatibility
+        if !File.exist?(lfile) && (ymlfile == "locale.yml")
+          lfile = File.expand_path("locale.yaml", Dir.pwd)
+        end
+      end
+
+      if lfile && File.file?(lfile)
+        @i18n.update_localefile(lfile)
+      end
+    end
+
+    def self.i18n(*args)
+      raise NotImplementedError, "I18n.i18n is obsoleted. Please use I18n.setup(locale, [ymlfile])"
+    end
+
+    def self.t(str, args = nil)
+      @i18n.t(str, args)
+    end
+
+    def self.locale=(locale)
+      if @i18n
+        @i18n.locale = locale
+      else
+        I18n.setup(locale)
+      end
+    end
+
+    class << self
+      alias_method :v, :t ## for EPUBMaker backward compatibility
+    end
+
+    def self.update(user_i18n, locale = nil)
+      @i18n.update(user_i18n, locale)
+    end
+
+    attr_accessor :locale
+
+    def initialize(locale = nil)
+      @locale = locale
+      load_default
+    end
+
+    def load_default
+      load_file(File.expand_path "i18n.yml", File.dirname(__FILE__))
+    end
+
+    def load_file(path)
+      @store = YAML.load_file(path)
+    end
+
+    def update_localefile(path)
+      user_i18n = YAML.load_file(path)
+      locale = user_i18n["locale"]
+      if locale
+        user_i18n.delete("locale")
+        if @store[locale]
+          @store[locale].merge!(user_i18n)
+        else
+          @store[locale] = user_i18n
+        end
+      else
+        user_i18n.each do |key, values|
+          raise KeyError, "Invalid locale file: #{path}" unless values.kind_of? Hash
+          @store[key].merge!(values)
+        end
+      end
+    end
+
+    def update(user_i18n, locale = nil)
+      locale ||= @locale
+      if @store[locale]
+        @store[locale].merge!(user_i18n)
+      else
+        @store[locale] = user_i18n
+      end
+    end
+
+    def t(str, args = nil)
+      @store[@locale][str] % args
+    rescue
+      str
+    end
+  end
+end

data/lib/review/i18n.yml

@@ -0,0 +1,169 @@
+ja:
+  image: 図
+  table: 表
+  list: リスト
+  column: "コラム「%s」"
+  columnname: "コラム"
+  column_head: "■コラム"
+  part: 第%d部
+  chapter: 第%d章
+  chapter_postfix: "　"
+  chapter_quote: "「%s」"
+  appendix: 付録%s
+  numberless_image: "図:"
+  memo_head: ■メモ
+  format_number: "%s.%d"
+  format_number_header: "%s.%d:"
+  format_number_without_chapter: "%d"
+  format_number_header_without_chapter: "%d:"
+  image_quote: "「%s」"
+  caption_prefix: " "
+  caption_prefix_idgxml: "　"
+  ruby_prefix: "（"
+  ruby_postfix: "）"
+  label_marker: "●●　"
+  aut: "著　者"
+  csl: "監　修"
+  dsr: "デザイン"
+  ill: "イラスト"
+  cov: "表　紙"
+  edt: "編　集"
+  pht: "撮　影"
+  trl: "翻　訳"
+  ## XXX Backward Compatibility: `prt` should be "印刷所"
+  prt: "発行所"
+  pbl: "発行所"
+  contact: "連絡先"
+  author_with_label: "%s　著"
+  supervisor_with_label: "%s　監修"
+  translator_with_label: "%s　訳"
+  names_splitter: "、"
+  edition: "版"
+  nth_edition: "第%s版"
+  first_edition: "初版"
+  nth_impression: "第%s刷"
+  published_by: "%s 発行"
+  published_by1: "%s　%s　発行"
+  published_by2: "%s　発行"
+  published_by3: "%s　%s"
+  date_format: '%%Y年%%-m月%%-d日'
+  toctitle: "目次"
+  covertitle: "表紙"
+  titlepagetitle: "大扉"
+  originaltitle: "原書大扉"
+  credittitle: "クレジット"
+  colophontitle: "奥付"
+  advtitle: "広告"
+  profiletitle: "著者紹介"
+  backcovertitle: "裏表紙"
+
+en:
+  image: "Figure "
+  table: "Table "
+  list: "List "
+  column: "Column %s"
+  columnname: "Column"
+  column_head: "Column"
+  part: "Part %s"
+  chapter: Chapter %d
+  chapter_postfix: ". "
+  chapter_quote: '"%s"'
+  appendix: Appendix %s
+  numberless_image: "Figure:"
+  memo_head: Note
+  format_number: "%s.%d"
+  format_number_header: "%s.%d:"
+  format_number_without_chapter: "%d"
+  format_number_header_without_chapter: "%d:"
+  image_quote: '"%s"'
+  caption_prefix: " "
+  caption_prefix_idgxml: "　"
+  ruby_prefix: "("
+  ruby_postfix: ")"
+  label_marker: "●●　"
+  aut: "Author"
+  csl: "Consultant"
+  dsr: "Design"
+  ill: "Illustrator"
+  cov: "Cover"
+  edt: "Editor"
+  pht: "Director of Photography"
+  trl: "Translator"
+  prt: "Printer"
+  pbl: "Publisher"
+  contact: "Contact"
+  author_with_label: "Author: %s"
+  supervisor_with_label: "Supervisor: %s"
+  translator_with_label: "Translator: %s"
+  names_splitter: ", "
+  edition: "edition"
+  impression: "impression"
+  nth_edition: "%s edition"
+  first_edition: "first edition"
+  nth_impression: "%s impression"
+  published_by: "%s"
+  published_by1: "published by %s %s"
+  published_by2: "published by %s"
+  published_by3: "%s %s"
+  date_format: '%%b. %%e, %%Y'
+  toctitle: "Table of Contents"
+  covertitle: "Cover"
+  titlepagetitle: "Title Page"
+  originaltitle: "Title Page of Original"
+  credittitle: "Credit"
+  colophontitle: "Colophon"
+  advtitle: "Advertisement"
+  profiletitle: "Profile"
+  backcovertitle: "Back Cover"
+
+zh-TW:
+  image: 圖
+  table: 表
+  list: List
+  part: 第%d部份
+  chapter: 第%d章
+  chapter_postfix: "　"
+  chapter_quote: "「%s」"
+  appendix: 附錄%s
+  numberless_image: "圖:"
+  format_number: "%s.%d"
+  format_number_header: "%s.%d:"
+  format_number_without_chapter: "%d"
+  format_number_header_without_chapter: "%d:"
+  image_quote: '"%s"'
+  caption_prefix: " "
+  caption_prefix_idgxml: "　"
+  ruby_prefix: "（"
+  ruby_postfix: "）"
+  label_marker: "●●　"
+  aut: "著作人"
+  csl: "監　修"
+  dsr: "美術編輯"
+  ill: "插　畫"
+  cov: "封面設計"
+  edt: "編　輯"
+  pht: "攝　影"
+  trl: "翻　譯"
+  prt: "印刷所"
+  pbl: "發行所"
+  contact: "联系方式"
+  author_with_label: "%s　著"
+  supervisor_with_label: "%s　監修"
+  translator_with_label: "%s　譯"
+  names_splitter: ", "
+  edition: "版"
+  published_by: "%s 出版"
+  published_by1: "%s %s 出版"
+  published_by2: "%s 出版"
+  published_by3: "%s %s"
+  date_format: '%%Y年%%-m月%%-d日'
+  impression: "刷"
+  toctitle: "目次"
+  covertitle: "封面"
+  titlepagetitle: "標題頁"
+  originaltitle: "原標題頁"
+  credittitle: "Credit"
+  colophontitle: "版權頁"
+  advtitle: "廣告"
+  profiletitle: "作者介紹"
+  backcovertitle: "封底"

data/lib/review/idgxmlbuilder.rb

@@ -0,0 +1,1233 @@
+# 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