review 0.6.0

data/lib/review/ewbbuilder.rb

@@ -0,0 +1,382 @@
+# $Id: ewbbuilder.rb 2195 2005-11-13 21:52:18Z aamine $
+
+require 'review/builder'
+require 'review/textutils'
+require 'review/exception'
+
+module ReVIEW
+
+  class EWBBuilder < Builder
+
+    include TextUtils
+
+    def initialize(chap)
+      super
+      @footnote_buf = []
+      @index_buffer = []
+    end
+
+    def generate_index
+      @index_buffer.each_with_index do |str, n|
+        printf "%d\t%s\n", index_number(n + 1), str
+      end
+    end
+
+    def headline(level, caption)
+      puts unless level == 1
+      puts "//#{'i' * level} #{caption}"
+      puts
+    end
+
+    Compiler.defsyntax(:emlist, :block, 0..1) {|args|
+      if args[0] and not args[0] == 'noescape'
+        raise SyntaxError, "unknown //emlist option: #{args[0]}"
+      end
+    }
+
+    def emlist(lines, noescape = false)
+      firstline = f.lineno
+      puts
+      puts '//lst1{'
+      lines.each do |line|
+        if noescape
+          puts detab(line)
+        else
+          puts escape(detab(line))
+        end
+      end
+      puts '//}'
+      puts
+    end
+
+    Compiler.defsyntax(:cmd, :block, 0..1) {|args|
+      if args[0] and not args[0] == 'noescape'
+        raise SyntaxError, "unknown //cmd option: #{args[0]}"
+      end
+    }
+
+    def cmd(lines, noescape = false)
+      puts
+      puts '//sc1{'
+      lines.each do |line|
+        if noescape
+          puts detab(line)
+        elsif /\AC:.*?>(.+)/ =~ line   # DOS prompt hack
+          prompt, cmd = *line.split('>', 2)
+          puts "#{escape(prompt)}>//command{#{escape(cmd)}}//}"
+        else
+          puts escape(detab(line))
+        end
+      end
+      puts '//}'
+      puts
+    end
+
+    Compiler.defsyntax(:list, :block, 0..1) {|args|
+      if args[0] and not args[0] == 'noescape'
+        raise SyntaxError, "unknown //list option: #{args[0]}"
+      end
+    }
+
+    def list(lines, noescape = false)
+      puts
+      puts "//l#{list_number(ident)} " + caption
+      puts '//lst2{'
+      lines.each do |line|
+        puts escape(detab(line))
+      end
+      puts '//}'
+      puts
+    end
+
+    def image_header(file, caption)
+      if /\.png\z/ =~ file and not FileTest.exist?('images/' + file)
+        warn "image file not exist: #{file}"
+      end
+      id = file.sub(/\.\w+\z/, '')
+      puts "//f#{figure_number(id)} #{text(caption)} file=#{file}" if id
+    end
+
+    def image_dummy
+      puts '//lst1{'
+      puts '---- dummy figure ----'
+      print dummy
+      puts '//}'
+      puts
+    end
+
+    def table
+      # %r<\A//table\[(\w+)\]>
+      spec = $1
+      buf = []
+      while line = f.gets
+        break if %r[\A//\}] === line
+        buf.push line.strip.split(/\t+/).map {|s| s == '.' ? '' : s }
+      end
+      table_type = 'tabm'
+      output.puts "//#{table_type}[" + spec + ']{'
+      buf.each_with_index do |col, idx|
+        if /----/ === col[0]
+          output.puts '//kb'
+        else
+          output.puts col.map {|s| text(s) }.join("\t")
+        end
+      end
+      output.puts '//}'
+    end
+
+    LI = '��'
+
+    def ul_begin
+      puts
+      puts '//k1{'
+    end
+
+    def ul_item(lines)
+      puts "#{LI}//|" + lines.join('')
+    end
+
+    def ul_end
+      puts '//}'
+    end
+
+    def ol_begin
+      output.puts
+      output.puts '//k2{'
+    end
+
+    def ol_item(num, lines)
+      print "#{num}//|' + lines.join('')
+    end
+
+    def ol_end
+      puts '//}'
+    end
+
+    def quote(lines)
+      puts '//c1{'
+      lines.each do |line|
+        puts text(line)
+      end
+      puts '//}'
+    end
+
+    def vspace
+      print "\n//h"
+    end
+
+    def noindent
+      @noindent = true
+    end
+
+    def refer(f)
+      puts
+      puts '//refer{'
+      cascade f
+      puts '//}'
+    end
+
+    def point(f)
+      puts
+      puts '//point{'
+      cascade f
+      puts '//}'
+    end
+
+    def note(f, caption)
+      puts
+      puts '//note{'
+      puts "//cg{#{caption}//}"
+      puts '//h'
+      cascade f
+      puts '//}'
+    end
+
+    def cascade(f)
+      # FIXME
+    end
+
+    Z_SPACE = "\241\241"   # zen-kaku space in EUC-JP
+
+    def paragraph(lines)
+      if @noindent
+        @noindent = false
+      else
+        print Z_SPACE
+      end
+      prev = ''
+      lines.each do |line|
+        if /[a-zA-Z0-9]\z/ =~ prev and /\A[a-zA-Z0-9]/ =~ line
+          print ' '
+        end
+        print line
+      end
+      puts
+    end
+
+    def figure_filename(key)
+      if ext = key.slice(/\.\w+\z/)
+        base = key.sub(/\.\w+\z/, '')
+      else
+        base = key
+        ext = '.eps'
+      end
+      currname = "images/ch_#{chapter_id()}_#{base}#{ext}"
+      destname = "images/fig#{figure_number(base)}#{ext}"
+      unless File.exist? currname
+        # error "image file not exist: #{currname}"
+      end
+      destname
+    end
+
+    def image_label(str)
+      "#{chapter_id()}:#{str}"
+    end
+
+    def text(str)
+      str = str.gsub(/\t/, ' ')
+      str.gsub(/([^@^]+)|\^(.*?)\^|@<(\w+)>\{(.*?)\}|@\{(.*?)\}|([@^])/) {
+        if normal = $1
+          escape(normal)
+        elsif tt = $2
+          '//tt{' + escape(tt) + '//}'
+        elsif inline = $3
+          compile_inline(inline, $4)
+        elsif index = $5
+          error 'index not implemented'
+          text(index) + index_command(index)
+        elsif char = $6
+          escape(char)
+        else
+          error "unknown inline: #{str.inspect}"
+        end
+      }
+    rescue DocumentError => e
+      error e.message
+      return 'ERROR'
+    end
+
+    def inline_kw(arg)
+      word, eng, abbr = arg.split(/,/).map {|s| s.strip }
+      if abbr
+        add_index(word) + "//g{#{word}//}" +
+        add_index(abbr) + "��#{abbr}, " +
+        add_index(eng)  + "#{eng}��"
+      elsif eng
+        add_index(word) + "//g{#{word}//}" +
+        add_index(eng)  + "��#{eng}��"
+      else
+        add_index(word) + "//g{#{word}//}"
+      end
+    end
+
+    def inline_keytop(arg)
+      "//keytop{#{arg}//}"
+    end
+
+    def inline_chap(id)
+      chapter_number(arg)
+    end
+
+    def inline_chapref(id)
+      chapter_number(arg) + chapter_name(arg)
+    end
+
+    def inline_chapname(id)
+      chapter_name(arg)
+    end
+
+    def inline_list(arg)
+      '//l' + list_number(arg)
+    end
+
+    def inline_img(arg)
+      error "wrong image label: #{arg}" if /[^a-zA-Z\d\-]/ =~ arg
+      '//f' + figure_number(arg)
+    end
+
+    def inline_footnote(id)
+      '//ky' + footnote_number(id)
+    end
+
+    def inline_ruby(arg)
+      error 'wrong number of arg: @<ruby>' unless arg.count(',') == 1
+      "//ruby{#{arg}//}"
+    end
+
+    NAKAGURO = '��'
+
+    def inline_bou(str)
+      "//ruby{#{escape(str)},#{NAKAGURO * char_length(str)}//}"
+    end
+
+    def char_length(str)
+      str.gsub(/./, '.').length
+    end
+
+    def inline_em(str)
+      "//g{#{arg}//}"
+    end
+
+    def inline_math(arg)
+      "//LaTeX{ $#{arg}$ //}"
+    end
+
+
+    def chapter_id
+      File.basename(@filename, '.rd')
+    end
+
+    def chapter_prefix
+      sprintf('%02d', @chapter_table.number(chapter_id()))
+    end
+
+    def chapter_number( key )
+      curr = @chapter_table.number(chapter_id())
+      dest = @chapter_table.number(key)
+
+      case chapter_id()
+      when /\.ewb\z/, 'tmp', 'temp'
+        return '��' + dest + '��'
+      end
+      if dest == curr + 1
+        '����'
+      elsif dest == curr - 1
+        '����'
+      else
+        "��#{dest}��"
+      end
+    end
+
+    def chapter_name(key)
+      '��' + text(@chapter_table.title(key)) + '��'
+    end
+
+    def list_number(key)
+      sprintf(chapter_prefix() + '%02d0', @list_table.number(key))
+    end
+
+    def figure_number(key)
+      sprintf(chapter_prefix() + '%02d0', @figure_table.number(key))
+    end
+
+    def footnote_number(key)
+      sprintf('%02d', @footnote_index.number(key) * 5)
+    end
+
+    def add_index(str)
+      @index_buffer.push str
+      "//in#{index_number(@index_buffer.size)}"
+    end
+
+    def index_number(n)
+      900000 + @chapter_index.number(chapter_id()) * 1000 + n
+    end
+
+    def escape(str)
+      str.gsub(%r<//>, '////')
+    end
+
+  end
+
+end

data/lib/review/exception.rb

@@ -0,0 +1,21 @@
+#
+# $Id: exception.rb 3881 2008-02-09 14:44:17Z aamine $
+#
+# Copyright (c) 2002-2007 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.
+# For details of the GNU LGPL, see the file "COPYING".
+#
+
+module ReVIEW
+
+  class Error < ::StandardError; end
+  class ApplicationError < Error; end
+  class ConfigError < ApplicationError; end
+  class CompileError < ApplicationError; end
+  class SyntaxError < CompileError; end
+  class FileNotFound < ApplicationError; end
+
+end

data/lib/review/htmlbuilder.rb

@@ -0,0 +1,370 @@
+# $Id: htmlbuilder.rb 4268 2009-05-27 04:17:08Z kmuto $
+#
+# Copyright (c) 2002-2007 Minero Aoki
+#               2008-2009 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/htmllayout'
+require 'review/textutils'
+
+module ReVIEW
+
+  class HTMLBuilder < Builder
+
+    include TextUtils
+    include HTMLUtils
+
+    def extname
+      '.html'
+    end
+
+    def builder_init(no_error = false)
+      @no_error = no_error
+    end
+    private :builder_init
+
+    def builder_init_file
+      @warns = []
+      @errors = []
+    end
+    private :builder_init_file
+
+    def result
+      layout_file = File.join(@book.basedir, "layouts", "layout.erb")
+      if File.exists?(layout_file)
+        messages() +
+          HTMLLayout.new(@output.string, @chapter.title, layout_file).result
+      else
+        messages() + @output.string
+      end
+    end
+
+    def warn(msg)
+      if @no_error
+        @warns.push [@location.filename, @location.lineno, msg]
+        puts "----WARNING: #{escape_html(msg)}----"
+      else
+        $stderr.puts "#{@location}: warning: #{msg}"
+      end
+    end
+
+    def error(msg)
+      if @no_error
+        @errors.push [@location.filename, @location.lineno, msg]
+        puts "----ERROR: #{escape_html(msg)}----"
+      else
+        $stderr.puts "#{@location}: error: #{msg}"
+      end
+    end
+
+    def messages
+      error_messages() + warning_messages()
+    end
+
+    def error_messages
+      return '' if @errors.empty?
+      "<h2>Syntax Errors</h2>\n" +
+      "<ul>\n" +
+      @errors.map {|file, line, msg|
+        "<li>#{escape_html(file)}:#{line}: #{escape_html(msg.to_s)}</li>\n"
+      }.join('') +
+      "</ul>\n"
+    end
+
+    def warning_messages
+      return '' if @warns.empty?
+      "<h2>Warnings</h2>\n" +
+      "<ul>\n" +
+      @warns.map {|file, line, msg|
+        "<li>#{escape_html(file)}:#{line}: #{escape_html(msg)}</li>\n"
+      }.join('') +
+      "</ul>\n"
+    end
+
+    def headline(level, label, caption)
+      puts '' if level > 1
+      if label.nil?
+        puts "<h#{level}>#{escape_html(caption)}</h#{level}>"
+      else
+        puts "<h#{level} id='#{label}'>#{escape_html(caption)}</h#{level}>"
+      end
+    end
+
+    def column_begin(level, label, caption)
+      puts "<div class='column'>"
+      headline(level, label, caption)   # FIXME
+    end
+
+    def column_end(level)
+      puts '</div>'
+    end
+
+    def ul_begin
+      puts '<ul>'
+    end
+
+    def ul_item(lines)
+      puts "<li>#{lines.join("\n")}</li>"
+    end
+
+    def ul_end
+      puts '</ul>'
+    end
+
+    def ol_begin
+      puts '<ol>'
+    end
+
+    def ol_item(lines, num)
+      puts "<li>#{lines.join("\n")}</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")}</dd>"
+    end
+
+    def dl_end
+      puts '</dl>'
+    end
+
+    def paragraph(lines)
+      puts "<p>#{lines.join("")}</p>"
+    end
+
+    def parasep()
+      puts '<br />'
+    end
+
+    def read(lines)
+      puts %Q[<p class="lead">\n#{lines.join("\n")}\n</p>]
+    end
+
+    def lead(lines)
+      read(lines)
+    end
+
+    def list_header(id, caption)
+      puts %Q[<p class="toplabel">リスト#{@chapter.list(id).number}: #{escape_html(caption)}</p>]
+    end
+
+    def list_body(lines)
+      puts '<div class="caption-code">'
+      puts '<pre class="list">'
+      lines.each do |line|
+        puts detab(line)
+      end
+      puts '</pre>'
+      puts '</div>'
+    end
+
+    def source_header(caption)
+      puts %Q[<p class="toplabel">▼#{escape_html(caption)}</p>]
+    end
+
+    def source_body(lines)
+      puts '<div class="caption-code">'
+      puts '<pre class="source">'
+      lines.each do |line|
+        puts detab(line)
+      end
+      puts '</pre>'
+      puts '</div>'
+    end
+
+    def listnum_body(lines)
+      puts '<div class="code">'
+      puts '<pre class="list">'
+      lines.each_with_index do |line, i|
+        puts detab((i+1).to_s.rjust(2) + ": " + line)
+      end
+      puts '</pre>'
+      puts '</div>'
+     end
+
+    def emlist(lines)
+      puts '<div class="code">'
+      puts '<pre class="emlist">'
+      lines.each do |line|
+        puts detab(line)
+      end
+      puts '</pre>'
+      puts '</div>'
+    end
+
+    def emlistnum(lines)
+      puts '<div class="code">'
+      puts '<pre class="emlist">'
+      lines.each_with_index do |line, i|
+        puts detab((i+1).to_s.rjust(2) + ": " + line)
+      end
+      puts '</pre>'
+      puts '</div>'
+    end
+
+    def cmd(lines)
+      puts '<div class="code">'
+      puts '<pre class="cmd">'
+      lines.each do |line|
+        puts detab(line)
+      end
+      puts '</pre>'
+      puts '</div>'
+    end
+
+    def quotedlist(lines, css_class)
+      puts %Q[<blockquote><pre class="#{css_class}">]
+      lines.each do |line|
+        puts detab(line)
+      end
+      puts '</pre></blockquote>'
+    end
+    private :quotedlist
+
+    def quote(lines)
+      puts "<blockquote>#{lines.join("\n")}</blockquote>"
+    end
+
+    def image_image(id, metric, caption)
+      puts %Q[<p class="image">]
+      puts %Q[<img src="#{@chapter.image(id).path}" alt="(#{escape_html(caption)})">]
+      puts %Q[</p>]
+      image_header id, caption
+    end
+
+    def image_dummy(id, caption, lines)
+      puts %Q[<pre class="dummyimage">]
+      lines.each do |line|
+        puts detab(line)
+      end
+      puts %Q[</pre>]
+      image_header id, caption
+    end
+
+    def image_header(id, caption)
+      puts %Q[<p class="botlabel">]
+      puts %Q[図#{@chapter.image(id).number}: #{escape_html(caption)}]
+      puts %Q[</p>]
+    end
+
+    def table_header(id, caption)
+      puts %Q[<p class="toplabel">表#{@chapter.table(id).number}: #{escape_html(caption)}</p>]
+    end
+
+    def table_begin(ncols)
+      puts '<table>'
+    end
+
+    def tr(rows)
+      puts "<tr>#{rows.join('')}</tr>"
+    end
+
+    def th(str)
+      "<th>#{str}</th>"
+    end
+
+    def td(str)
+      "<td>#{str}</td>"
+    end
+    
+    def table_end
+      puts '</table>'
+    end
+
+    def comment(str)
+      puts %Q(<p class="comment">[Comment] #{escape_html(str)}</p>)
+    end
+
+    def footnote(id, str)
+      puts %Q(<p class="comment"><a name="fn-#{id}">#{escape_html(str)}</a></p>)
+    end
+
+    def inline_fn(id)
+      %Q(<a href="\#fn-#{id}">*#{@chapter.footnote(id).number}</a>)
+    end
+
+    def compile_ruby(base, ruby)
+      escape_html(base)   # tmp
+    end
+
+    def compile_kw(word, alt)
+      '<span class="kw">' +
+        if alt
+        #then escape_html(word + sprintf(@locale[:parens], alt.strip))
+        then escape_html(word + " (#{alt.strip})")
+        else escape_html(word)
+        end +
+      '</span>'
+    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_ami(str)
+      escape_html(str)   # tmp
+    end
+
+    def inline_dtp(arg)
+      # ignore all
+      ''
+    end
+
+    def inline_code(str)
+      %Q(<span class="inline-code">#{str}</span>)
+    end
+
+    def text(str)
+      str
+    end
+
+    def bibpaper_header(id, caption)
+      puts %Q(<a name="bib-#{id}">)
+      puts "[#{@chapter.bibpaper(id).number}] #{caption}"
+      puts %Q(</a>)
+    end
+
+    def bibpaper_bibpaper(id, caption, lines)
+      puts %Q(<p>)
+      lines.each do |line|
+        puts detab(line)
+      end
+      puts %Q(</p>)
+    end
+
+    def inline_bib(id)
+      %Q(<a href=".#{@book.bib_file.gsub(/re$/, "html")}\#bib-#{id}">[#{@chapter.bibpaper(id).number}]</a>)
+    end
+
+    def inline_raw(str)
+      escape_html(str)
+    end
+
+    def nofunc_text(str)
+      escape_html(str)
+    end
+
+  end
+
+end   # module ReVIEW