RubyGems - rttool - Versions diffs - 1.0.2.0 - Mend

rttool 1.0.2.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (29) hide show

data/examples/easiest.html ADDED

@@ -0,0 +1,19 @@
+<!-- setup -->
+<table border="1">
+<!-- setup end -->
+<!-- Header -->
+<!-- Header end -->
+<!-- Body -->
+<tbody>
+<tr><td align="right">1</td><td align="right">2</td><td align="right">3</td></tr>
+<tr><td align="right">4</td><td align="right">5</td><td align="right">6</td></tr>
+<tr><td align="right">7</td><td align="right">8</td><td align="right">9</td></tr>
+</tbody>
+<!-- Body end -->
+<!-- teardown -->
+</table>
+<!-- teardown end -->

data/examples/easiest.rt ADDED

@@ -0,0 +1,3 @@
+1, 2, 3
+4, 5, 6
+7, 8, 9

data/examples/escape.html ADDED

@@ -0,0 +1,17 @@
+<!-- setup -->
+<table border="1">
+<!-- setup end -->
+<!-- Header -->
+<!-- Header end -->
+<!-- Body -->
+<tbody>
+<tr><td align="left">\z</td><td align="left">;1</td><td align="right">2</td></tr>
+</tbody>
+<!-- Body end -->
+<!-- teardown -->
+</table>
+<!-- teardown end -->

data/examples/escape.rt ADDED

@@ -0,0 +1,4 @@
+delimiter = ;
+escape = \
+\z   ; \;1 ; 2

data/examples/rttest.html ADDED

@@ -0,0 +1,40 @@
+<?xml version="1.0" ?>
+<!DOCTYPE html
+  PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN"
+  "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
+<html xmlns="http://www.w3.org/1999/xhtml">
+<head>
+<title>rttest.rd</title>
+</head>
+<body>
+<h1><a name="label-0" id="label-0">Sample RD/RT</a></h1><!-- RDLabel: "Sample RD/RT" -->
+<p>This RD contains a table.
+It is so-called RD/RT.</p>
+<!-- setup -->
+<table border="1">
+<caption>Test Table</caption>
+<!-- setup end -->
+<!-- Header -->
+<thead>
+<tr><th rowspan="2"></th><th colspan="2">Human</th><th colspan="2">Dog</th></tr>
+<tr><th>M</th><th>F</th><th>M</th><th>F</th></tr>
+</thead>
+<!-- Header end -->
+<!-- Body -->
+<tbody>
+<tr><td align="left">x</td><td align="right">1.0</td><td align="right">2.0</td><td align="right">1.1</td><td align="right">1.2</td></tr>
+<tr><td align="left">y</td><td align="right">0.4</td><td align="right">0.5</td><td align="right">0.3</td><td align="right">0.1</td></tr>
+</tbody>
+<!-- Body end -->
+<!-- teardown -->
+</table>
+<!-- teardown end -->
+<p>It is simple.</p>
+</body>
+</html>

data/examples/rttest.rd ADDED

@@ -0,0 +1,20 @@
+=begin
+= Sample RD/RT
+This RD contains a table.
+It is so-called RD/RT.
+=end
+=begin RT
+caption = Test Table
+     , Human, == , Dog , ==
+||  , M  , F ,M,F
+  x  , 1.0 , 2.0, 1.1, 1.2
+  y  , 0.4 , 0.5, 0.3, 0.1
+=end
+=begin
+It is simple.
+=end

data/examples/test1.html ADDED

@@ -0,0 +1,23 @@
+<!-- setup -->
+<table border="1">
+<caption>Test Table</caption>
+<!-- setup end -->
+<!-- Header -->
+<thead>
+<tr><th rowspan="2"></th><th colspan="2">Human</th><th colspan="2">Dog</th></tr>
+<tr><th>M</th><th>F</th><th>M</th><th>F</th></tr>
+</thead>
+<!-- Header end -->
+<!-- Body -->
+<tbody>
+<tr><td align="left">x</td><td align="right">1.0</td><td align="right">2.0</td><td align="right">1.1</td><td align="right">1.2</td></tr>
+<tr><td align="left">y</td><td align="right">0.4</td><td align="right">0.5</td><td align="right">0.3</td><td align="right">0.1</td></tr>
+</tbody>
+<!-- Body end -->
+<!-- teardown -->
+</table>
+<!-- teardown end -->

data/examples/test1.rt ADDED

@@ -0,0 +1,7 @@
+caption = Test Table
+     , Human, == , Dog , ==
+||  , M  , F ,M,F
+  x  , 1.0 , 2.0, 1.1, 1.2
+  y  , 0.4 , 0.5, 0.3, 0.1

data/examples/test2.html ADDED

@@ -0,0 +1,23 @@
+<!-- setup -->
+<table border="1">
+<caption>Test Table</caption>
+<!-- setup end -->
+<!-- Header -->
+<thead>
+<tr><th rowspan="2"></th><th colspan="2">Human</th><th colspan="2">Dog</th></tr>
+<tr><th>M</th><th>F</th><th>M</th><th>F</th></tr>
+</thead>
+<!-- Header end -->
+<!-- Body -->
+<tbody>
+<tr><td align="left">x</td><td align="right">1.0</td><td align="right">2.0</td><td align="right">1.1</td><td align="right">1.2</td></tr>
+<tr><td align="left">y</td><td align="right">0.4</td><td align="right">0.5</td><td align="right">0.3</td><td align="right">0.1</td></tr>
+</tbody>
+<!-- Body end -->
+<!-- teardown -->
+</table>
+<!-- teardown end -->

data/examples/test2.rt ADDED

@@ -0,0 +1,7 @@
+caption = Test Table
+	Human	==	Dog	==
+||	M	F	M	F
+x	1.0	2.0	1.1	1.2
+y	0.4	0.5	0.3	0.1

data/lib/rd/rt-filter.rb ADDED

@@ -0,0 +1,11 @@
+require 'tempfile'
+$RC["filter"]["rt"] = Filter.new(:target) do |inn, out|
+  ext = $Visitor_Class.const_get('OUTPUT_SUFFIX')
+  if ext == 'txt'
+    ext = 'html'
+  end
+  tmpf = Tempfile.new("rt")
+  tmpf.write inn.read
+  tmpf.close
+  out.print `rt2 -r rt/rt2#{ext}-lib #{tmpf.path}`
+end

data/lib/rt/rt2html-lib.rb ADDED

@@ -0,0 +1,91 @@
+#!/usr/bin/ruby
+=begin
+rt2html-lib.rb
+$Id: rt2html-lib.rb 603 2005-10-22 08:05:44Z rubikitch $
+=end
+require 'rt/rtvisitor'
+module RT
+  class RT2HTMLVisitor < RTVisitor
+    OUTPUT_SUFFIX = "html"
+    INCLUDE_SUFFIX = ["html"]
+    def initialize
+      super
+    end
+    def block(name)
+      %Q[<!-- #{name} -->\n] +
+      yield +
+      %Q[<!-- #{name} end -->\n\n]
+    end
+    private :block
+    def setup
+      block('setup') do
+        s = %Q[<table border="1">\n]
+        s << %Q[<caption>#{caption}</caption>\n] if caption
+        s
+      end
+    end
+    def teardown
+      block('teardown') do
+        %Q[</table>\n]
+      end
+    end
+    def cell_element(cell, name)
+      rs, cs = cell.rowspan, cell.colspan
+      if rs == 1 and cs == 1
+        ret = "<#{name}>"
+      elsif rs == 1
+        ret = %Q[<#{name} colspan="#{cs}">]
+      elsif cs == 1
+        ret = %Q[<#{name} rowspan="#{rs}">]
+      else
+        ret = %Q[<#{name} colspan="#{cs}" rowspan="#{rs}">]
+      end
+      ret
+    end
+    private :cell_element
+    def visit_Header(ary = @header)
+      block('Header') do
+        if ary.empty?
+          ""
+        else
+          ret = "<thead>\n"
+          ary.each do |line|
+            ret << '<tr>'
+            each_cell(line) do |cell|
+              ret << cell_element(cell, 'th')
+              ret << cell.value
+              ret << '</th>'
+            end
+            ret << "</tr>\n"
+          end
+          ret << "</thead>\n"
+        end
+      end
+    end
+    def visit_Body(ary = @body)
+      block('Body') do
+        ret = "<tbody>\n"
+        ary.each do |line|
+          ret << '<tr>'
+          each_cell(line) do |cell|
+            ret << cell_element(cell, %Q[td align="#{cell.align.id2name}"])
+            ret << cell.value
+            ret << '</td>'
+          end
+          ret << "</tr>\n"
+        end
+        ret << "</tbody>\n"
+      end
+    end
+  end                           # RT2HTMLVisitor
+end
+$Visitor_Class = RT::RT2HTMLVisitor

data/lib/rt/rt2txt-lib.rb ADDED

@@ -0,0 +1,15 @@
+#!/usr/bin/ruby
+require 'rt/w3m'
+require 'rt/rt2html-lib'
+module RT
+  class RT2TXTVisitor < RT2HTMLVisitor
+    OUTPUT_SUFFIX = "txt"
+    INCLUDE_SUFFIX = ["txt"]
+    def visit(parsed)
+      W3M::html2txt(super)
+    end
+  end                           # RT2TXTVisitor
+end
+$Visitor_Class = RT::RT2TXTVisitor

data/lib/rt/rtparser.rb ADDED

@@ -0,0 +1,226 @@
+#!/usr/bin/ruby
+=begin
+rtparser.rb
+$Id: rtparser.rb 1370 2006-09-20 00:19:07Z rubikitch $
+=end
+module RT
+  class RTCell
+    def initialize(value, align = nil)
+      @rowspan = @colspan = 1
+      @value = value
+      @align = case align       # {:left, :center :right}
+               when :left, :center, :right
+                 align
+               when nil
+                 if /^[+\-]?[0-9]+\.?[0-9]*/ === value
+                   :right
+                 else
+                   :left
+                 end
+               else
+                 raise "[BUG]Illegal align type"
+               end
+    end
+    def == (x)
+      case x
+      when self.class
+        self.value == "" && x.value == "" || self.value == x.value && self.align == x.align
+      else
+        false
+      end
+    end
+    def inspect
+      if value==""
+        "()"
+      else
+        a = case align
+            when :left
+              "l"
+            when :center
+              "c"
+            when :right
+              "r"
+            else
+              raise "[BUG]Illegal align type"
+            end
+        "#{a}(#{value})"
+      end
+    end
+    attr_reader :value, :align
+    attr_accessor :rowspan, :colspan
+  end
+  class RTParser
+    DefaultConfig = {
+      'delimiter' => "[,\t]",
+      'rowspan'   => "||",
+      'colspan'   => "==",
+      'escape'    => nil,
+      'caption'   => nil,
+    }
+    def initialize(str="")
+      @str = str.dup
+      normalize_linefeed! @str
+      @config_line = []
+      @header_line = []
+      @body_line = []
+      @config = DefaultConfig.dup
+      @header = []
+      @body = []
+    end
+    attr_reader :str, :config, :header, :body
+    def normalize_linefeed!(str)
+      str.gsub!("\r\n", "\n")
+      str.gsub!("\r", "\n")
+    end
+    def self::parse(str)
+      obj = self::new str
+      obj.make_blocks
+      obj.parse_config
+      obj.parse_header
+      obj.parse_body
+      obj.calc_span(obj.header)
+      obj.calc_span(obj.body)
+      obj
+    end
+    def blocks
+      [@config_line, @header_line, @body_line]
+    end
+    def make_blocks(str = @str)
+      part = str.split(/\n\n/).collect{|x| x.split(/\n/)}
+      case part.length
+      when 0
+      when 1
+        @body_line, = part
+      when 2
+        @config_line, @body_line = part
+      when 3
+        @config_line, @header_line, @body_line = part
+      else
+        raise "RT: blocks are too many."
+      end
+      self
+    end
+    def parse_config(lines = @config_line)
+      lines.each do |line|
+        case line
+        when /^#/               # comment
+        when /^\s*(\S+)\s*=\s*(.+)$/
+          @config[$1] = $2
+        else
+          raise "RT: syntax error in config block"
+        end
+      end
+      self
+    end
+    def split2(str,re)
+      ret = str.split(re, -1)
+    end
+    private :split2
+    ESCAPE_TMP = "\001\002"
+    def _escape!(str)
+      esc = config['escape']
+      str.gsub!(/#{Regexp.quote(esc)}#{config['delimiter']}/, ESCAPE_TMP)  if esc
+    end
+    private :_escape!
+    def _unescape!(str)
+      str.gsub!(/#{ESCAPE_TMP}/, config['delimiter'])
+    end
+    private :_unescape!
+    def parse_table_data(lines)  # iterator
+      ret = []
+      lines.each do |line|
+        case line
+        when /^#/             # comment
+        else
+          _escape! line
+          ret << split2(line, /\s*#{config['delimiter']}\s*/).collect {|x|
+            _unescape! x
+            yield(x.strip)
+          }
+        end
+      end
+      unless ret.find_all{|x| x.length == ret[0].length} == ret
+        raise "RT: different column size"
+      end
+      ret
+    end
+    private :parse_table_data
+    def _make_cell(x, align)
+      case x
+      when config['rowspan'], config['colspan']
+        x
+      else
+        RTCell::new(x, align)
+      end
+    end
+    private :_make_cell
+    def parse_header(lines = @header_line)
+      @header = parse_table_data(lines) {|x|
+        _make_cell x, :center
+      }
+      self
+    end
+    def parse_body(lines = @body_line)
+      @body = parse_table_data(lines) {|x|
+        _make_cell x, nil
+      }
+      self
+    end
+    def calc_span(tbl)
+      return if tbl.empty?
+      cols = tbl[0].length
+      tbl.each do |row|
+        row.each_with_index do |elm, j|
+          case elm
+          when String
+          when RTCell
+            nspan = 1
+            1.upto(cols-j-1) do |k|
+              break unless row[j+k] == config['colspan']
+              nspan += 1
+            end
+            row[j].colspan = nspan
+          else
+            raise "[BUG] invalid cell"
+          end
+        end
+      end
+      rows = tbl.length
+      0.upto(cols-1) do |j|
+        0.upto(rows-1) do |i|
+          case tbl[i][j]
+          when String
+          when RTCell
+            nspan = 1
+            1.upto(rows-i-1) do |k|
+              break unless tbl[i+k][j] == config['rowspan']
+              nspan += 1
+            end
+            tbl[i][j].rowspan = nspan
+          else
+            raise "[BUG] invalid cell"
+          end
+        end
+      end
+    end
+  end                           # class RTCell, RTParser
+end                             # module RT