review-peg 0.1.0

data/lib/review/ewbbuilder.rb

@@ -0,0 +1,381 @@
+# -*- coding: utf-8 -*-
+# $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, caption = nil)
+      firstline = f.lineno
+      puts
+      puts caption
+      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, caption = nil)
+      puts
+      puts caption
+      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, id, caption)
+      puts
+      puts "//l#{list_number(id)} " + 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 %Q(
+//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+)>\{(.*?)\}|@\{(.*?)\}|([@^])/) do
+        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
+      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)
+      900_000 + @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
+  class KeyError < CompileError; end
+end

data/lib/review/extentions.rb

@@ -0,0 +1,4 @@
+require 'review/extentions/object'
+require 'review/extentions/string'
+require 'review/extentions/array'
+

data/lib/review/extentions/array.rb

@@ -0,0 +1,25 @@
+class Array
+
+  # for ReVIEW::Node
+  #
+  def to_doc
+    self.map(&:to_doc).join("")
+  end
+
+  # for ReVIEW::Node
+  #
+  def to_raw
+    self.map(&:to_raw).join("")
+  end
+
+  if [].map.kind_of?(Array)
+    # Ruby 1.8
+    def map(&block)
+      if !block_given?
+        return to_enum :map
+      else
+        collect(&block) ## XXX same as original
+      end
+    end
+  end
+end

data/lib/review/extentions/object.rb

@@ -0,0 +1,9 @@
+class Object
+  def blank?
+    respond_to?(:empty?) ? empty? : !self
+  end
+
+  def present?
+    !blank?
+  end
+end

data/lib/review/extentions/string.rb

@@ -0,0 +1,33 @@
+if defined?(Encoding) && Encoding.respond_to?("default_external")
+  Encoding.default_external = "UTF-8"
+end
+
+unless String.method_defined?(:lines)
+  # Ruby 1.8
+  class String
+    alias_method :lines, :to_a
+  end
+end
+
+if String.method_defined?(:bytesize)
+  # Ruby 1.9
+  class String
+    alias_method :charsize, :size
+  end
+else
+  # Ruby 1.8
+  class String
+    alias_method :bytesize, :size
+
+    def charsize
+      split(//).size
+    end
+  end
+end
+
+unless String.method_defined?(:each)
+  # Ruby 1.9
+  class String
+    alias_method :each, :each_line
+  end
+end