review 0.6.0

data/lib/review/textutils.rb

@@ -0,0 +1,19 @@
+# $Id: textutils.rb 2192 2005-11-13 11:55:42Z aamine $
+
+module ReVIEW
+
+  module TextUtils
+
+    def detab(str, ts = 8)
+      add = 0
+      len = nil
+      str.gsub(/\t/) {
+        len = ts - ($`.size + add) % ts
+        add += len - 1
+        ' ' * len
+      }
+    end
+
+  end
+
+end

data/lib/review/tocparser.rb

@@ -0,0 +1,333 @@
+#
+# $Id: tocparser.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.
+# For details of the GNU LGPL, see the file "COPYING".
+#
+
+require 'review/preprocessor'
+require 'review/book'
+require 'review/volume'
+require 'forwardable'
+
+module ReVIEW
+
+  class TOCParser
+
+    def TOCParser.parse(chap)
+      chap.open {|f|
+        stream = Preprocessor::Strip.new(f)
+        new.parse(stream, chap.id, chap.path).map {|root|
+          root.number = chap.number
+          root
+        }
+      }
+    end
+
+    def parse(f, id, filename)
+      roots = []
+      path = []
+
+      while line = f.gets
+        case line
+        when /\A\s*\z/
+          ;
+        when /\A(={2,})[\[\s]/
+          lev = $1.size
+          error! filename, f.lineno, "section level too deep: #{lev}" if lev > 5
+          if path.empty?
+            # missing chapter label
+            path.push Chapter.new(get_label(line), id, filename)
+            roots.push path.first
+          end
+          new = Section.new(lev, get_label(line))
+          until path.last.level < new.level
+            path.pop
+          end
+          path.last.add_child new
+          path.push new
+
+        when /\A= /
+          path.clear
+          path.push Chapter.new(get_label(line), id, filename)
+          roots.push path.first
+
+        when %r<\A//\w+(?:\[.*?\])*\{\s*\z>
+          if path.empty?
+            error! filename, f.lineno, 'list found before section label'
+          end
+          path.last.add_child(list = List.new)
+          beg = f.lineno
+          list.add line
+          while line = f.gets
+            break if %r<\A//\}> =~ line
+            list.add line
+          end
+          error! filename, beg, 'unterminated list' unless line
+
+        when %r<\A//\w>
+          ;
+        else
+          #if path.empty?
+          #  error! filename, f.lineno, 'text found before section label'
+          #end
+          next if path.empty?
+          path.last.add_child(par = Paragraph.new)
+          par.add line
+          while line = f.gets
+            break if /\A\s*\z/ =~ line
+            par.add line
+          end
+        end
+      end
+
+      roots
+    end
+
+    def get_label(line)
+      line.strip.sub(/\A=+\s*/, '')
+    end
+
+    def error!(filename, lineno, msg)
+      raise "#{filename}:#{lineno}: #{msg}"
+    end
+
+
+    class Node
+
+      def initialize(children = [])
+        @children = children
+      end
+
+      attr_reader :children
+
+      def add_child(c)
+        @children.push c
+      end
+      
+      def each_node(&block)
+        @children.each do |c|
+          yield c
+          c.each(&block)
+        end
+      end
+      
+      def each_child(&block)
+        @children.each(&block)
+      end
+
+      def chapter?
+        false
+      end
+
+      def each_section(&block)
+        @children.each do |n|
+          n.yield_section(&block)
+        end
+      end
+
+      def each_section_with_index
+        i = 0
+        each_section do |n|
+          yield n, i
+          i += 1
+        end
+      end
+
+      def n_sections
+        cnt = 0
+        @children.each do |n|
+          n.yield_section { cnt += 1 }
+        end
+        cnt
+      end
+
+    end
+
+
+    class Section < Node
+
+      def initialize(level, label, path = nil)
+        super()
+        @level = level
+        @label = label
+        @filename = (path ? real_filename(path) : nil)
+      end
+
+      def real_filename(path)
+        if FileTest.symlink?(path)
+          File.basename(File.readlink(path))
+        else
+          File.basename(path)
+        end
+      end
+      private :real_filename
+
+      attr_reader :level
+      attr_reader :label
+
+      def display_label
+        if @filename
+          @label + ' ' + @filename
+        else
+          @label
+        end
+      end
+
+      def estimated_lines
+        @children.inject(0) {|sum, n| sum + n.estimated_lines }
+      end
+
+      def yield_section
+        yield self
+      end
+
+      def inspect
+        "\#<#{self.class} level=#{@level} #{@label}>"
+      end
+
+    end
+
+
+    class Chapter < Section
+
+      def initialize(label, id, path)
+        super 1, label, path
+        @chapter_id = id
+        @path = path
+        @volume = nil
+        @number = nil
+      end
+
+      attr_accessor :number
+
+      def chapter?
+        true
+      end
+
+      attr_reader :chapter_id
+
+      def volume
+        return @volume if @volume
+        return Volume.dummy unless @path
+        @volume = Volume.count_file(@path)
+        @volume.lines = estimated_lines()
+        @volume
+      end
+
+      def inspect
+        "\#<#{self.class} #{@filename}>"
+      end
+
+    end
+
+
+    class Paragraph < Node
+
+      def initialize
+        @bytes = 0
+      end
+
+      def inspect
+        "\#<#{self.class}>"
+      end
+
+      def add(line)
+        @bytes += line.strip.bytesize
+      end
+
+      def estimated_lines
+        (@bytes + 2) / ReVIEW.book.page_metric.text.n_columns + 1
+      end
+
+      def yield_section
+      end
+
+    end
+
+
+    class List < Node
+
+      def initialize
+        @lines = 0
+      end
+
+      def inspect
+        "\#<#{self.class}>"
+      end
+
+      def add(line)
+        @lines += 1
+      end
+
+      def estimated_lines
+        @lines + 2
+      end
+
+      def yield_section
+      end
+
+    end
+
+  end
+
+
+  module TOCRoot
+    def level
+      0
+    end
+
+    def chapter?
+      false
+    end
+
+    def each_section_with_index
+      idx = -1
+      each_section do |node|
+        yield node, (idx += 1)
+      end
+    end
+
+    def each_section(&block)
+      each_chapter do |chap|
+        yield chap.toc
+      end
+    end
+
+    def n_sections
+      chapters.size
+    end
+
+    def estimated_lines
+      chapters.inject(0) {|sum, chap| sum + chap.toc.estimated_lines }
+    end
+  end
+
+  class Book   # reopen
+    include TOCRoot
+  end
+
+  class ChapterSet   # reopen
+    include TOCRoot
+  end
+
+  class Part
+    include TOCRoot
+  end
+
+  class Chapter   # reopen
+    def toc
+      @toc ||= TOCParser.parse(self)
+      unless @toc.size == 1
+        $stderr.puts "warning: chapter #{title} contains more than 1 chapter"
+      end
+      @toc.first
+    end
+  end
+
+end

data/lib/review/tocprinter.rb

@@ -0,0 +1,220 @@
+#
+# $Id: tocprinter.rb 4309 2009-07-19 04:15:02Z aamine $
+#
+# 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.
+# For details of LGPL, see the file "COPYING".
+#
+
+require 'review/htmlutils'
+require 'review/htmllayout'
+require 'nkf'
+
+module ReVIEW
+
+  class TOCPrinter
+
+    def TOCPrinter.default_upper_level
+      99   # no one use 99 level nest
+    end
+
+    def initialize(print_upper, param)
+      @print_upper = print_upper
+      @param = param
+    end
+
+    def print?(level)
+      level <= @print_upper
+    end
+
+    def nkffilter(line)
+      inc = ""
+      outc = "-w"
+      if @param["inencoding"] =~ /^EUC$/
+        inc = "-E"
+      elsif @param["inencoding"] =~ /^SJIS$/
+        inc = "-S"
+      elsif @param["inencoding"]  =~ /^JIS$/
+        inc = "-J"
+      end
+      
+      if @param["outencoding"] =~ /^EUC$/
+        outc = "-e"
+      elsif @param["outencoding"] =~ /^SJIS$/
+        outc = "-s"
+      elsif @param["outencoding"]  =~ /^JIS$/
+        outc = "-j"
+      end
+      
+      NKF.nkf("#{inc} #{outc}", line)
+    end
+  end
+
+
+  class TextTOCPrinter < TOCPrinter
+    def print_book(book)
+      print_children book
+    end
+
+    private
+
+    def print_children(node)
+      return unless print?(node.level + 1)
+      node.each_section_with_index do |section, idx|
+        print_node idx+1, section
+        print_children section
+      end
+    end
+
+    def print_node(number, node)
+      if node.chapter?
+        vol = node.volume
+        printf "%3s %3dKB %6dC %5dL  %s (%s)\n",
+               chapnumstr(node.number),
+               vol.kbytes, vol.chars, vol.lines,
+               nkffilter(node.label), node.chapter_id
+      else
+        printf "%17s %5dL  %s\n",
+               '', node.estimated_lines,
+               nkffilter("  #{'   ' * (node.level - 1)}#{number} #{node.label}")
+      end
+    end
+
+    def chapnumstr(n)
+      n ? sprintf('%2d.', n) : '   '
+    end
+
+    def volume_columns(level, volstr)
+      cols = ["", "", "", nil]
+      cols[level - 1] = volstr
+      cols[0, 3]   # does not display volume of level-4 section
+    end
+
+  end
+
+
+  class HTMLTOCPrinter < TOCPrinter
+
+    include HTMLUtils
+
+    def print_book(book)
+      return unless print?(1)
+      html = ""
+      book.each_part do |part|
+        html << h1(part.name) if part.name
+        part.each_section do |chap|
+          if chap.number
+            name = "chap#{chap.number}"
+            label = "第#{chap.number}章 #{chap.label}"
+            html << h2(a_name(escape_html(name), escape_html(label)))
+          else
+            label = "#{chap.label}"
+            html << h2(escape_html(label))
+          end
+          return unless print?(2)
+          if print?(3)
+            html << chap_sections_to_s(chap)
+          else
+            html << chapter_to_s(chap)
+          end
+        end
+      end
+      puts HTMLLayout.new(html, "目次", File.join(book.basedir, "layouts", "layout.erb")).result
+    end
+
+    private
+
+    def chap_sections_to_s(chap)
+      res = []
+      res << "<ol>"
+      chap.each_section do |sec|
+        res << li(escape_html(sec.label))
+      end
+      res << "</ol>"
+      return res.join("\n")
+    end
+
+    def print_chapter_to_s(chap)
+      res = []
+      chap.each_section do |sec|
+        res << h3(escape_html(sec.label))
+        next unless print?(4)
+        next if sec.n_sections == 0
+        res << "<ul>"
+        sec.each_section do |node|
+          res << li(escape_html(node.label))
+        end
+        res << "</ul>"
+      end
+      return res.join("\n")
+    end
+
+    def h1(label)
+      "<h1>#{label}</h1>"
+    end
+
+    def h2(label)
+      "<h2>#{label}</h2>"
+    end
+
+    def h3(label)
+      "<h3>#{label}</h3>"
+    end
+
+    def li(content)
+      "<li>#{content}</li>"
+    end
+
+    def a_name(name, label)
+      %Q(<a name="#{name}">#{label}</a>)
+    end
+
+  end
+
+  class IDGTOCPrinter < TOCPrinter
+    def print_book(book)
+      puts %Q(<?xml version="1.0" encoding="UTF-8"?>)
+      puts nkffilter(%Q(<doc xmlns:aid='http://ns.adobe.com/AdobeInDesign/4.0/'><title aid:pstyle="h0">1　パート1</title><?dtp level="0" section="第1部　パート1"?>)) # FIXME: 部タイトルを取るには？ & 部ごとに結果を分けるには？
+      puts %Q(<ul aid:pstyle='ul-partblock'>)
+      print_children book
+      puts %Q(</ul></doc>)
+    end
+
+    private
+
+    def print_children(node)
+      return unless print?(node.level + 1)
+      node.each_section_with_index do |sec, idx|
+        print_node idx+1, sec
+        print_children sec
+      end
+    end
+
+    LABEL_LEN = 54
+
+    def print_node(seq, node)
+      if node.chapter?
+        vol = node.volume
+        printf "<li aid:pstyle='ul-part'>%s</li>\n",
+               nkffilter("#{chapnumstr(node.number)}#{node.label}")
+      else
+        printf "<li>%-#{LABEL_LEN}s\n",
+               nkffilter("  #{'   ' * (node.level - 1)}#{seq}　#{node.label}</li>")
+      end
+    end
+
+    def chapnumstr(n)
+      n ? nkffilter(sprintf('第%d章　', n)) : ''
+    end
+
+    def volume_columns(level, volstr)
+      cols = ["", "", "", nil]
+      cols[level - 1] = volstr
+      cols[0, 3]
+    end
+  end
+end