review 0.6.0

data/lib/review/htmllayout.rb

@@ -0,0 +1,19 @@
+# Copyright (c) 2009 Narihiro Nakamura <authornari@gmail.com>
+require 'erb'
+
+class HTMLLayout
+  def initialize(src, title, template)
+    @body = src
+    @title = title
+    @template = template
+  end
+  attr_reader :body, :title
+
+  def result
+    if File.exist?(@template)
+      return ERB.new(IO.read(@template)).result(binding)
+    else
+      return @src
+    end
+  end
+end

data/lib/review/htmlutils.rb

@@ -0,0 +1,27 @@
+#
+# $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
+  end
+
+end   # module ReVIEW

data/lib/review/idgxmlbuilder.rb

@@ -0,0 +1,1078 @@
+#
+# Copyright (c) 2002-2007 Minero Aoki
+#               2008-2010 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
+
+    [:i, :tt, :ttbold, :tti, :idx, :hidx, :dtp, :sup, :sub, :hint, :raw, :maru, :keytop, :labelref, :ref, :pageref, :u, :icon, :balloon, :uchar].each {|e|
+      Compiler.definline(e)
+    }
+    Compiler.defsingle(:dtp, 1)
+    Compiler.defsingle(:indepimage, 1)
+
+    Compiler.defblock(:insn, 0..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(:box, 0..1)
+    Compiler.defblock(:expert, 0)
+    Compiler.defblock(:lead, 0)
+    Compiler.defblock(:rawblock, 0)
+
+    def extname
+      '.xml'
+    end
+
+    def builder_init(no_error = false)
+      @no_error = no_error
+    end
+    private :builder_init
+
+    def setParameter(param)
+      @param = param
+      alias puts print unless @param["nolf"].nil?
+    end
+
+    def builder_init_file
+      @warns = []
+      @errors = []
+      @section = 0
+      @subsection = 0
+      @subsubsection = 0
+      @subsubsubsection = 0
+      @noindent = nil
+      @rootelement = "doc"
+      @secttags = nil
+      @tsize = nil
+
+      print %Q(<?xml version="1.0" encoding="UTF-8"?>\n)
+      print %Q(<#{@rootelement} xmlns:aid="http://ns.adobe.com/AdobeInDesign/4.0/">)
+    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]
+        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)
+      prefix = ""
+      case level
+      when 1
+        unless @secttags.nil?
+          print "</sect4>" if @subsubsubsection > 0
+          print "</sect3>" if @subsubsection > 0
+          print "</sect2>" if @subsection > 0
+          print "</sect>" if @section > 0
+        end
+
+        print %Q(<chapter id="chap:#{@chapter.number}">) unless @secttags.nil?
+        if @chapter.number.to_s =~ /\A\d+$/
+          prefix = "第#{@chapter.number}章　"
+        elsif !@chapter.number.nil? && !@chapter.number.to_s.empty?
+          prefix = "#{@chapter.number}　"
+        end
+        @section = 0
+        @subsection = 0
+        @subsubsection = 0
+        @subsubsubsection = 0
+      when 2
+        unless @secttags.nil?
+          print "</sect4>" if @subsubsubsection > 0
+          print "</sect3>" if @subsubsection > 0
+          print "</sect2>" if @subsection > 0
+          print "</sect>" if @section > 0
+        end
+        @section += 1
+        print %Q(<sect id="sect:#{@chapter.number}.#{@section}">) unless @secttags.nil?
+
+        prefix = (!@chapter.number.nil? && !@chapter.number.to_s.empty?) ? "#{@chapter.number}.#{@section}　" : ""
+
+        @subsection = 0
+        @subsubsection = 0
+        @subsubsubsection = 0
+      when 3
+        unless @secttags.nil?
+          print "</sect4>" if @subsubsubsection > 0
+          print "</sect3>" if @subsubsection > 0
+          print "</sect2>" if @subsection > 0
+        end
+
+        @subsection += 1
+        print %Q(<sect2 id="sect:#{@chapter.number}.#{@section}.#{@subsection}">) unless @secttags.nil?
+        prefix = (!@chapter.number.nil? && !@chapter.number.to_s.empty?) ? "#{@chapter.number}.#{@section}.#{@subsection}　" : ""
+
+        @subsubsection = 0
+        @subsubsubsection = 0
+      when 4
+        unless @secttags.nil?
+          print "</sect4>" if @subsubsubsection > 0
+          print "</sect3>" if @subsubsection > 0
+        end
+
+        @subsubsection += 1
+        print %Q(<sect3 id="sect:#{@chapter.number}.#{@section}.#{@subsection}.#{@subsubsection}">) unless @secttags.nil?
+        prefix = (!@chapter.number.nil? && !@chapter.number.to_s.empty?) ? "#{@chapter.number}.#{@section}.#{@subsection}.#{@subsubsection}　" : ""
+
+        @subsubsubsection = 0
+      when 5
+        unless @secttags.nil?
+          print "</sect4>" if @subsubsubsection > 0
+        end
+
+        @subsubsubsection += 1
+        print %Q(<sect4 id="sect:#{@chapter.number}.#{@section}.#{@subsection}.#{@subsubsection}.#{@subsubsubsection}">) unless @secttags.nil?
+        prefix = (!@chapter.number.nil? && !@chapter.number.to_s.empty?) ? "#{@chapter.number}.#{@section}.#{@subsection}.#{@subsubsection}.#{@subsubsubsection}　" : ""
+      else
+        raise "caption level too deep or unsupported: #{level}"
+      end
+
+      prefix = "" if (level.to_i > @param["secnolevel"])
+      label = label.nil? ? "" : " id=\"#{label}\""
+      puts %Q(<title#{label} aid:pstyle="h#{level}">#{prefix}#{escape_html(caption)}</title><?dtp level="#{level}" section="#{prefix}#{escape_html(caption)}"?>)
+    end
+
+    def ul_begin
+      puts '<ul>'
+    end
+
+    def ul_item(lines)
+      puts %Q(<li aid:pstyle="ul-item">#{lines.join("\n").chomp}</li>)
+    end
+
+    def choice_single_begin
+      puts "<choice type='single'>"
+    end
+
+    def choice_multi_begin
+      puts "<choice type='multi'>"
+    end
+
+    def choice_single_end
+      puts "</choice>"
+    end
+
+    def choice_multi_end
+      puts "</choice>"
+    end
+
+    def ul_end
+      puts '</ul>'
+    end
+
+    def ol_begin
+      puts '<ol>'
+    end
+
+    def ol_item(lines, num)
+      puts %Q(<li aid:pstyle="ol-item" num="#{num}">#{lines.join("\n").chomp}</li>)
+    end
+
+    def ol_end
+      puts '</ol>'
+    end
+
+    def dl_begin
+      puts '<dl>'
+    end
+
+    def dt(line)
+      puts "<dt>#{line}</dt>"
+    end
+
+    def dd(lines)
+      puts "<dd>#{lines.join("\n").chomp}</dd>"
+    end
+
+    def dl_end
+      puts '</dl>'
+    end
+
+    def paragraph(lines)
+      if @noindent.nil?
+        if lines[0] =~ /^(\t+)/
+          puts %Q(<p inlist="#{$1.size}">#{lines.join('').sub(/^\t+/, "")}</p>)
+        else
+          puts "<p>#{lines.join('')}</p>"
+        end
+      else
+        puts %Q(<p aid:pstyle="noindent" noindent='1'>#{lines.join('')}</p>)
+        @noindent = nil
+      end
+    end
+
+    def read(lines)
+      puts %Q[<p aid:pstyle="lead">#{lines.join('')}</p>]
+    end
+
+    def lead(lines)
+      read(lines)
+    end
+
+    def inline_list(id)
+      if !@chapter.number.nil? && !@chapter.number.to_s.empty?
+        "<span type='list'>リスト#{@chapter.number}.#{@chapter.list(id).number}</span>"
+      else
+        "<span type='list'>リスト#{@chapter.list(id).number}</span>"
+      end
+    end
+
+    def list_header(id, caption)
+      if !@chapter.number.nil? && !@chapter.number.to_s.empty?
+        puts %Q[<codelist>]
+        puts %Q[<caption>リスト#{@chapter.number}.#{@chapter.list(id).number}　#{escape_html(caption)}</caption>]
+      else
+        puts %Q[<codelist>]
+        puts %Q[<caption>リスト#{@chapter.list(id).number}　#{escape_html(caption)}</caption>]
+      end
+    end
+
+    def list_body(lines)
+      print %Q(<pre>)
+      lines.each do |line|
+        print detab(line)
+        print "\n"
+      end
+      puts "</pre></codelist>"
+    end
+
+    def emlist(lines, caption = nil)
+      quotedlist lines, 'emlist', caption
+    end
+
+    def emlistnum(lines, caption = nil)
+      _lines = []
+      lines.each_with_index do |line, i|
+        _lines << detab("<span type='lineno'>" + (i+1).to_s.rjust(2) + ": </span>" + line)
+      end
+      quotedlist _lines, 'emlist', caption
+    end
+
+    def listnum_body(lines)
+      print %Q(<pre>)
+      lines.each_with_index do |line, i|
+        print detab("<span type='lineno'>" + (i+1).to_s.rjust(2) + ": </span>" + line)
+        print "\n"
+      end
+      puts "</pre></codelist>"
+    end
+
+    def cmd(lines, caption = nil)
+      quotedlist lines, 'cmd', caption
+    end
+
+    def quotedlist(lines, css_class, caption)
+      print %Q[<list type='#{css_class}'>]
+      puts "<caption aid:pstyle='#{css_class}-title'>#{escape_html(caption)}</caption>" unless caption.nil?
+      print %Q[<pre>]
+      no = 1
+      lines.each do |line|
+        unless @param["listinfo"].nil?
+          print "<listinfo line=\"#{no}\""
+          print " begin=\"1\"" if no == 1
+          print " end=\"#{no}\"" if no == lines.size
+          print ">"
+        end
+        print detab(line)
+        print "\n"
+        print "</listinfo>" unless @param["listinfo"].nil?
+        no += 1
+      end
+      puts '</pre></list>'
+    end
+    private :quotedlist
+
+    def quote(lines)
+      puts "<quote>#{lines.join("\n")}</quote>"
+    end
+
+    def inline_table(id)
+      if !@chapter.number.nil? && !@chapter.number.to_s.empty?
+        "<span type='table'>表#{@chapter.number}.#{@chapter.table(id).number}</span>"
+      else
+        "<span type='table'>表#{@chapter.table(id).number}</span>"
+      end
+    end
+
+    def inline_img(id)
+      if !@chapter.number.nil? && !@chapter.number.to_s.empty?
+        "<span type='image'>図#{@chapter.number}.#{@chapter.image(id).number}</span>"
+      else
+        "<span type='image'>図#{@chapter.image(id).number}</span>"
+      end
+    end
+
+    def image_image(id, metric, caption)
+      puts "<img>"
+      puts %Q[<Image href="file://#{@chapter.image(id).path.sub(/\A.\//, "")}" />]
+      image_header id, caption
+      puts "</img>"
+    end
+
+    def image_dummy(id, caption, lines)
+      if @param["subdirmode"].nil?
+        warn "image file not exist: images/#{@chapter.id}-#{id}.eps" unless File.exist?("images/#{@chapter.id}-#{id}.eps")
+      else
+        warn "image file not exist: images/#{@chapter.id}/#{id}.eps" unless File.exist?("images/#{@chapter.id}/#{id}.eps")
+      end
+      puts "<img>"
+      print %Q[<pre aid:pstyle="dummyimage">]
+      lines.each do |line|
+        print detab(line)
+        print "\n"
+      end
+      print %Q[</pre>]
+      image_header id, caption
+      puts "</img>"
+    end
+
+    def image_header(id, caption)
+      if !@chapter.number.nil? && !@chapter.number.to_s.empty?
+        puts %Q[<caption>図#{@chapter.number}.#{@chapter.image(id).number}　#{escape_html(caption)}</caption>]
+      else
+        puts %Q[<caption>図#{@chapter.image(id).number}　#{escape_html(caption)}</caption>]
+      end
+    end
+
+    def table(lines, id = nil, caption = nil)
+#      puts %Q(<表 xmlns:aid="http://ns.adobe.com/AdobeInDesign/4.0/" aid:table="table">)
+      tablewidth = nil
+      col = 0
+      unless @param["tableopt"].nil?
+        tablewidth = @param["tableopt"].split(",")[0].to_f / 0.351 # mm -> pt
+      end
+      puts "<table>"
+      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
+        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 {|n|
+            cellwidth[n] = cellwidth[n].to_f / 0.351 # mm->pt
+            totallength = totallength + cellwidth[n]
+            warn "total length exceeds limit for table: #{id}" if totallength > tablewidth
+          }
+          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
+        table_header id, caption unless caption.nil?
+      rescue KeyError => err
+        error "no such table: #{id}"
+      end
+      return if rows.empty?
+
+      if tablewidth.nil?
+        print "<tbody>"
+      else
+        print "<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
+          if tablewidth.nil?
+            puts "<tr type=\"header\">" + rows.shift + "</tr>"
+          else
+            i = 0
+            rows.shift.split(/\t/).each {|cell|
+              print "<td aid:table=\"cell\" aid:theader=\"1\" aid:crows=\"1\" aid:ccols=\"1\" aid:ccolwidth=\"#{cellwidth[i]}\">#{cell.sub("DUMMYCELLSPLITTER", "")}</td>"
+              i = i + 1
+            }
+          end
+        end
+
+        if tablewidth.nil?
+          lastline = rows.pop
+          rows.each do |row|
+            puts "<tr>" + row + "</tr>"
+          end
+          puts "<tr type=\"lastline\">" + lastline + "</tr>" unless lastline.nil?
+        else
+          rows.each do |row|
+            i = 0
+            row.split(/\t/).each {|cell|
+              print "<td aid:table=\"cell\" aid:crows=\"1\" aid:ccols=\"1\" aid:ccolwidth=\"#{cellwidth[i]}\">#{cell.sub("DUMMYCELLSPLITTER", "")}</td>"
+              i = i + 1
+            }
+          end
+        end
+      else
+        if tablewidth.nil?
+          lastline = rows.pop
+          rows.each do |row|
+            puts "<tr>" + row + "</tr>"
+          end
+          puts "<tr type=\"lastline\">" + lastline + "</tr>" unless lastline.nil?
+        else
+          rows.each do |row|
+            i = 0
+            row.split(/\t/).each {|cell|
+              print "<td aid:table=\"cell\" aid:crows=\"1\" aid:ccols=\"1\" aid:ccolwidth=\"#{cellwidth[i]}\">#{cell.sub("DUMMYCELLSPLITTER", "")}</td>"
+              i = i + 1
+            }
+          end
+        end
+      end
+      print "</tbody>"
+      puts "</table>"
+      @tsize = nil
+    end
+
+    def table_header(id, caption)
+      if !@chapter.number.nil? && !@chapter.number.to_s.empty?
+        puts %Q[<caption>表#{@chapter.number}.#{@chapter.table(id).number}　#{escape_html(caption)}</caption>]
+      else
+        puts %Q[<caption>表#{@chapter.table(id).number}　#{escape_html(caption)}</caption>]
+      end
+    end
+
+    def table_begin(ncols)
+      #  aid:trows="" aid:tcols="" widths="列1の幅, 列2の幅, ..."をdtp命令で入れておく
+#      puts %Q(<表 xmlns:aid="http://ns.adobe.com/AdobeInDesign/4.0/" aid:table="table">)
+    end
+
+    def tr(rows)
+      # FIXME
+      puts "<tr>" + rows.join("\t") + "</tr>"
+    end
+
+    def th(str)
+      # FIXME aid:ccolwidth=""
+      # FIXME strが2回エスケープされている
+#      %Q(<セル aid:table="cell" aid:theader="" aid:crows="1" aid:ccols="1">#{str}</セル>)
+      %Q(<?dtp tablerow header?>#{str})
+    end
+
+    def td(str)
+      # FIXME aid:ccolwidth=""
+      # FIXME strが2回エスケープされている
+#      %Q(<セル aid:table="cell" aid:crows="1" aid:ccols="1">#{str}</セル>)
+      str
+    end
+    
+    def table_end
+#      puts '</表>'
+      print "<?dtp tablerow last?>"
+    end
+
+    def comment(str)
+      print %Q(<!-- [Comment] #{escape_html(str)} -->)
+    end
+
+    def footnote(id, str)
+      # FIXME: inline_fnと合わせて処理必要。2パースの処理をすべきか
+#      puts %Q(<footnote id="#{id}" no="#{@chapter.footnote(id).number}">#{compile_inline(str)}</footnote>)
+    end
+
+    def inline_fn(id)
+      %Q(<footnote>#{compile_inline(@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 escape_html(word + sprintf(@locale[:parens], alt.strip))
+        then escape_html(word + "（#{alt.strip}）")
+        else escape_html(word)
+        end +
+      '</keyword>' +
+        %Q(<index value="#{escape_html(word)}" />) +
+        if alt
+          alt.split(/\s*,\s*/).collect! {|e| %Q(<index value="#{escape_html(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>#{escape_html(str)}</sup>)
+    end
+
+    def inline_sub(str)
+      %Q(<sub>#{escape_html(str)}</sub>)
+    end
+
+    def inline_raw(str)
+      %Q(#{str.gsub("\\n", "\n")})
+    end
+
+    def inline_hint(str)
+      if @param["nolf"].nil?
+        %Q(\n<hint>#{escape_html(str)}</hint>)
+      else
+        %Q(<hint>#{escape_html(str)}</hint>)
+      end
+    end
+
+    def inline_maru(str)
+      if str =~ /^\d+$/
+        sprintf("&#x%x;", 9311 + str.to_i)
+      elsif str =~ /^[A-Za-z]$/
+        sprintf("&#x%x;", 9398 + str[0] - 65)
+      else
+        raise "can't parse maru: #{str}"
+      end
+    end
+
+    def inline_idx(str)
+      %Q(#{escape_html(str)}<index value="#{escape_html(str)}" />)
+    end
+
+    def inline_hidx(str)
+      %Q(<index value="#{escape_html(str)}" />)
+    end
+
+    def inline_ami(str)
+      %Q(<ami>#{escape_html(str)}</ami>)
+    end
+
+    def inline_i(str)
+      %Q(<i>#{escape_html(str)}</i>)
+    end
+
+    def inline_b(str)
+      %Q(<b>#{escape_html(str)}</b>)
+    end
+
+    def inline_tt(str)
+      %Q(<tt>#{escape_html(str)}</tt>)
+    end
+
+    def inline_ttbold(str)
+      index = escape_html(str).gsub(/<.*?>/, "").gsub(/\*/, "ESCAPED_ASTERISK").gsub(/'/, "&#27;")
+      %Q(<tt style='bold'>#{escape_html(str)}</tt><index value='#{index}' />)
+    end
+
+    def inline_tti(str)
+      %Q(<tt style='italic'>#{escape_html(str)}</tt>)
+    end
+
+    def inline_u(str)
+      %Q(<underline>#{escape_html(str)}</underline>)
+    end
+
+    def inline_icon(id)
+      if @param["subdirmode"].nil?
+        warn "image file not exist: images/#{@chapter.id}-#{id}.eps" unless File.exist?("images/#{@chapter.id}-#{id}.eps")
+        %Q[<Image href="file://images/#{@chapter.id}-#{id}.eps" type='inline'/>]
+      else
+        warn "image file not exist: images/#{@chapter.id}/#{id}.eps" unless File.exist?("images/#{@chapter.id}/#{id}.eps")
+        %Q[<Image href="file://images/#{@chapter.id}/#{id}.eps" type='inline'/>]
+      end
+    end
+
+    def inline_bou(str)
+      %Q(<bou>#{escape_html(str)}</bou>)
+    end
+
+    def inline_keytop(str)
+      %Q(<keytop>#{escape_html(str)}</keytop>)
+    end
+
+    def inline_labelref(idref)
+      %Q(<ref idref='#{idref}'>「●●　#{idref}」</ref>) # FIXME:節名とタイトルも込みで要出力
+    end
+
+    alias inline_ref inline_labelref
+
+    def inline_pageref(idref)
+      %Q(<pageref idref='#{idref}'>●●</pageref>) # ページ番号を参照
+    end
+
+    def inline_balloon(str)
+      %Q(<balloon>#{escape_html(str).gsub(/@maru\[(\d+)\]/) {|m| inline_maru($1)}}</balloon>)
+    end
+
+    def inline_uchar(str)
+      %Q(&#x#{str};)
+    end
+
+    def noindent
+      @noindent = true
+    end
+
+    def linebreak
+      # FIXME:pが閉じちゃってるので一度戻らないといけないが、難しい…。
+      puts "<br />"
+    end
+
+    def pagebreak
+      puts "<pagebreak />"
+    end
+
+    def nonum_begin(level, label, caption)
+      puts %Q(<title aid:pstyle="h#{level}">#{escape_html(caption)}</title><?dtp level="#{level}" section="#{escape_html(caption)}"?>)
+    end
+
+    def nonum_end(level)
+    end
+
+    def circle_begin(level, label, caption)
+      puts %Q(<title aid:pstyle="smallcircle">&#x2022;#{escape_html(caption)}</title>)
+    end
+
+    def circle_end(level)
+    end
+
+    def column_begin(level, label, caption)
+      print "<column>"
+      puts %Q(<title aid:pstyle="column-title">#{escape_html(caption)}</title>)
+    end
+
+    def column_end(level)
+      puts "</column>"
+    end
+
+    def xcolumn_begin(level, label, caption)
+      print "<xcolumn>"
+      puts %Q(<title aid:pstyle="xcolumn-title">#{escape_html(caption)}</title>)
+    end
+
+    def xcolumn_end(level)
+      puts "</xcolumn>"
+    end
+
+    def world_begin(level, label, caption)
+      print "<worldcolumn>"
+      puts %Q(<title aid:pstyle="worldcolumn-title">#{escape_html(caption)}</title>)
+    end
+
+    def world_end(level)
+      puts "</worldcolumn>"
+    end
+
+    def hood_begin(level, label, caption)
+      print "<hoodcolumn>"
+      puts %Q(<title aid:pstyle="hoodcolumn-title">#{escape_html(caption)}</title>)
+    end
+
+    def hood_end(level)
+      puts "</hoodcolumn>"
+    end
+
+    def edition_begin(level, label, caption)
+      print "<editioncolumn>"
+      puts %Q(<title aid:pstyle="editioncolumn-title">#{escape_html(caption)}</title>)
+    end
+
+    def edition_end(level)
+      puts "</editioncolumn>"
+    end
+
+    def insideout_begin(level, label, caption)
+      print "<insideoutcolumn>"
+      puts %Q(<title aid:pstyle="insideoutcolumn-title">#{escape_html(caption)}</title>)
+    end
+
+    def insideout_end(level)
+      puts "</insideoutcolumn>"
+    end
+
+    def ref_begin(level, label, caption)
+      if !label.nil?
+        puts "<reference id='#{label}'>"
+      else
+        puts "<reference>"
+      end
+    end
+
+    def ref_end(level)
+      puts "</reference>"
+    end
+
+    def sup_begin(level, label, caption)
+      if !label.nil?
+        puts "<supplement id='#{label}'>"
+      else
+        puts "<supplement>"
+      end
+    end
+
+    def sup_end(level)
+      puts "</supplement>"
+    end
+
+    def flushright(lines)
+      puts "<p align='right'>#{lines.join("\n")}</p>"
+    end
+
+    def note(lines, caption = nil)
+      print "<note>"
+      puts "<title aid:pstyle='note-title'>#{escape_html(caption)}</title>" unless caption.nil?
+      puts "#{lines.join("\n")}</note>"
+    end
+
+    def memo(lines, caption = nil)
+      print "<memo>"
+      puts "<title aid:pstyle='memo-title'>#{escape_html(caption)}</title>" unless caption.nil?
+      puts "#{lines.join("\n")}</memo>"
+    end
+
+    def tip(lines, caption = nil)
+      print "<tip>"
+      puts "<title aid:pstyle='tip-title'>#{escape_html(caption)}</title>" unless caption.nil?
+      puts "#{lines.join("\n")}</tip>"
+    end
+
+    def info(lines, caption = nil)
+      print "<info>"
+      puts "<title aid:pstyle='info-title'>#{escape_html(caption)}</title>" unless caption.nil?
+      puts "#{lines.join("\n")}</info>"
+    end
+
+    def planning(lines, caption = nil)
+      print "<planning>"
+      puts "<title aid:pstyle='planning-title'>#{escape_html(caption)}</title>" unless caption.nil?
+      puts "#{lines.join("\n")}</planning>"
+    end
+
+    def best(lines, caption = nil)
+      print "<best>"
+      puts "<title aid:pstyle='best-title'>#{escape_html(caption)}</title>" unless caption.nil?
+      puts "#{lines.join("\n")}</best>"
+    end
+
+    def important(lines, caption = nil)
+      print "<important>"
+      puts "<title aid:pstyle='important-title'>#{escape_html(caption)}</title>" unless caption.nil?
+      puts "#{lines.join("\n")}</important>"
+    end
+
+    def security(lines, caption = nil)
+      print "<security>"
+      puts "<title aid:pstyle='security-title'>#{escape_html(caption)}</title>" unless caption.nil?
+      puts "#{lines.join("\n")}</security>"
+    end
+
+    def caution(lines, caption = nil)
+      print "<caution>"
+      puts "<title aid:pstyle='caution-title'>#{escape_html(caption)}</title>" unless caption.nil?
+      puts "#{lines.join("\n")}</caution>"
+    end
+
+    def term(lines)
+      puts "<term>#{lines.join("\n")}</term>"
+    end
+
+    def link(lines, caption = nil)
+      print "<link>"
+      puts "<title aid:pstyle='link-title'>#{escape_html(caption)}</title>" unless caption.nil?
+      puts "#{lines.join("\n")}</link>"
+    end
+
+    def notice(lines, caption = nil)
+      if caption.nil?
+        puts "<notice>#{lines.join("\n")}</notice>"
+      else
+        puts "<notice-t><title aid:pstyle='notice-title'>#{escape_html(caption)}</title>"
+        puts "#{lines.join("\n")}</notice-t>"
+      end
+    end
+
+    def point(lines, caption = nil)
+      if caption.nil?
+        puts "<point>#{lines.join("\n")}</point>"
+      else
+        puts "<point-t><title aid:pstyle='point-title'>#{escape_html(caption)}</title>"
+        puts "#{lines.join("\n")}</point-t>"
+      end
+    end
+
+    def shoot(lines, caption = nil)
+      if caption.nil?
+        puts "<shoot>#{lines.join("\n")}</shoot>"
+      else
+        puts "<shoot-t><title aid:pstyle='shoot-title'>#{escape_html(caption)}</title>"
+        puts "#{lines.join("\n")}</shoot-t>"
+      end
+    end
+
+    def reference(lines)
+      puts "<reference>#{lines.join("\n")}</reference>"
+    end
+
+    def practice(lines)
+      puts "<practice>#{lines.join("\n")}</practice>"
+    end
+
+    def expert(lines)
+      puts "<expert>#{lines.join("\n")}</expert>"
+    end
+
+    def insn(lines, caption = nil)
+      if caption.nil?
+        puts %Q[<insn>]
+      else
+        puts %Q[<insn><floattitle type="insn">#{escape_html(caption)}</floattitle>]
+      end
+      no = 1
+      lines.each do |line|
+        unless @param["listinfo"].nil?
+          print "<listinfo line=\"#{no}\""
+          print " begin=\"1\"" if no == 1
+          print " end=\"#{no}\"" if no == lines.size
+          print ">"
+        end
+        print detab(line)
+        print "\n"
+        print "</listinfo>" unless @param["listinfo"].nil?
+        no += 1
+      end
+      puts "</insn>"
+    end
+
+    def box(lines, caption = nil)
+      if caption.nil?
+        print %Q[<box>]
+      else
+        puts %Q[<box><caption aid:pstyle="box-title">#{escape_html(caption)}</caption>]
+      end
+      no = 1
+      lines.each do |line|
+        unless @param["listinfo"].nil?
+          print "<listinfo line=\"#{no}\""
+          print " begin=\"1\"" if no == 1
+          print " end=\"#{no}\"" if no == lines.size
+          print ">"
+        end
+        print detab(line)
+        print "\n"
+        print "</listinfo>" unless @param["listinfo"].nil?
+        no += 1
+      end
+      puts "</box>"
+    end
+
+    def indepimage(id)
+      puts "<img>"
+      if @param["subdirmode"].nil?
+        warn "image file not exist: images/#{@chapter.id}-#{id}.eps" unless File.exist?("images/#{@chapter.id}-#{id}.eps")
+        puts %Q[<Image href="file://images/#{@chapter.id}-#{id}.eps" />]
+      else
+        warn "image file not exist: images/#{@chapter.id}/#{id}.eps" unless File.exist?("images/#{@chapter.id}/#{id}.eps")
+        puts %Q[<Image href="file://images/#{@chapter.id}/#{id}.eps" />]
+      end
+      puts "</img>"
+    end
+
+    def label(id)
+      # FIXME
+      print "<label id='#{id}' />"
+    end
+
+    def tsize(str)
+      @tsize = str
+    end
+
+    def dtp(str)
+      print %Q(<?dtp #{str} ?>)
+    end
+
+    def hr
+      print "<hr/>"
+    end
+
+    def bpo(lines)
+      puts %Q[<bpo>#{lines.join("\n")}</bpo>]
+    end
+
+    def inline_dtp(str)
+      "<?dtp #{str} ?>"
+    end
+
+    def inline_code(str)
+      %Q(<tt type='inline-code'>#{escape_html(str)}</tt>)
+    end
+
+    def rawblock(lines)
+      no = 1
+      lines.each {|l|
+        print l.gsub("&lt;", "<").gsub("&gt;", ">").gsub("&quot;", "\"").gsub("&amp;", "&")
+        print "\n" unless lines.length == no
+        no = no + 1
+      }
+    end
+
+    def text(str)
+      str
+    end
+
+    def inline_chapref(id)
+      chs = ["", "「", "」"]
+      unless @param["chapref"].nil?
+        _chs = NKF.nkf("-w", @param["chapref"]).split(",")
+        if _chs.size != 3
+          error "--chapsplitter must have exactly 3 parameters with comma."
+        else
+          chs = _chs
+        end
+      else
+      end
+      "#{chs[0]}#{@chapter.env.chapter_index.number(id)}#{chs[1]}#{@chapter.env.chapter_index.title(id)}#{chs[2]}"
+    rescue KeyError
+      error "unknown chapter: #{id}"
+      nofunc_text("[UnknownChapter:#{id}]")
+    end
+
+    def source_header(caption)
+      puts %Q[<source>]
+      puts %Q[<caption>#{escape_html(caption)}</caption>]
+    end
+
+    def source_body(lines)
+      puts %Q[<pre>]
+      lines.each do |line|
+        print detab(line)
+        print "\n"
+      end
+      puts %Q[</pre></source>]
+    end
+
+    def bibpaper(lines, id, caption)
+      bibpaper_header id, caption
+      unless lines.empty?
+        bibpaper_bibpaper id, caption, lines
+      end
+      puts %Q(</bibitem>)
+    end
+
+    def bibpaper_header(id, caption)
+      puts %Q(<bibitem id="bib-#{id}">)
+      puts "<caption><span type='bibno'>[#{@chapter.bibpaper(id).number}] </span>#{escape_html(caption)}</caption>"
+    end
+
+    def bibpaper_bibpaper(id, caption, lines)
+      lines.each do |line|
+        puts detab(line)
+      end
+    end
+
+    def inline_bib(id)
+      %Q(<span type='bibref' idref='#{id}'>[#{@chapter.bibpaper(id).number}]</span>)
+    end
+
+    def inline_recipe(id)
+      # FIXME
+      %Q(<recipe idref="#{escape_html(id)}">[XXX]「#{escape_html(id)}」\tp.XX</recipe>)
+    end
+
+    def nofunc_text(str)
+      escape_html(str)
+    end
+
+  end
+
+end   # module ReVIEW