tdiary 3.2.2.20130518 → 3.2.2.20130527

data/vendor/rdtool-0.6.38/lib/rd/filter.rb

@@ -1,255 +0,0 @@
-=begin
-= filter.rb
-Definition of Filter structure.
-=end
-
-module RD
-  class Filter
-    attr_accessor :mode
-    
-    def initialize(mode = :target, &block)
-      @mode = mode
-      @block = block
-    end
-  
-    # inn, out: RD::Part
-    def call(inn)
-      out = RD::Part.new("", nil, "w")
-      result = @block.call(inn, out)
-      if out.empty?
-	result
-      else
-	out.to_s
-      end
-    end
-
-    module FileInclude
-      def find_file(file, part)
-	for dir in part.tree.include_path
-	  begin
-	    return open(dir + "/" + file)
-	  rescue
-	    next
-	  end
-	end
-	nil
-      end
-      module_function :find_file
-    end # Filter::Include
-  end # Filter
-  
-  # Build-in Filter
-  # Simple inclusion
-  INCLUDE_FILTER = Filter.new(:target) do |inn, out|
-    inn.each do |line|
-      out.print(line)
-    end
-  end
-
-  # Simple RD inclusion
-  RD_FILTER = Filter.new(:rd) do |inn, out|
-    out.print("=begin\n")
-    inn.each do |line|
-      out.print(line)
-    end
-    out.print("\n=end\n")
-  end
-  
-  # Eval ruby script
-  # "out.print" to output.
-  EVAL_FILTER = Filter.new(:target) do |inn, out|
-    begin
-      eval(inn.to_s)
-    rescue
-      out.print "!!Error occured when eval!!\n"
-    end
-  end
-  
-  # RD::Part is a pseudo IO class 
-  class Part
-    attr(:tree)
-    attr_accessor :lineno
-    attr_accessor :pos
-    
-    def initialize(content = "", tree = nil, mode = "r")
-      @content = content
-      if mode == "r"
-	@content.freeze
-      end
-      @tree = tree
-      @pos = 0
-      @lineno = 0
-      @unget = nil
-    end
-    
-    def each_line(rs = $/)
-      while line = gets
-	yield(line)
-      end
-    end
-    alias each each_line
-    
-    def each_byte
-      while char = getc
-	yield(char)
-      end
-    end
-    
-    def eof?
-      @pos == @content.size
-    end
-    alias eof eof?
-
-    def get_char(ex)
-      ret = nil
-      if @unget
-	ret = @unget
-      else
-	unless eof?
-	  ret = @content[@pos]
-	  @pos += 1
-	else
-	  raise EOFError if ex
-	end
-      end
-      ret
-    end
-    private :get_char
-    
-    def getc
-      get_char(nil)
-    end
-    
-    def readchar
-      get_char(true)
-    end
-    
-    def ungetc(char)
-      @ungetc = char
-      nil
-    end
-    
-    def get_line(ex, rs)
-      ret = nil
-      unless eof?
-	new_pos = @content.index(rs, @pos)
-	if new_pos
-	  ret = @content[@pos .. new_pos]
-	  @pos = new_pos + 1
-	  @lineno += 1
-	else
-	  ret = @content[@pos .. @content.size - 1]
-	  @pos = @content.size
-	  @lineno += 1
-	end
-      else
-	raise EOFError if ex
-      end
-      $_ = ret
-    end
-    private :get_line
-    
-    def gets(rs = $/)
-      get_line(nil, rs)
-    end
-    
-    def readline(rs = $/)
-      get_line(true, $/)
-    end
-    
-    def read(length = @content.size - @pos)
-      ret = ""
-      length.times do 
-	ret << getc
-      end
-      ret
-    end
-    
-    def readlines(rs = $/)
-      ret = []
-      each_line(rs) do |line|
-	ret.push(line)
-      end
-      ret
-    end
-    
-    def rewind
-      @pos = 0
-    end
-    
-    def seek(offset, whence)
-      case whence
-      when 0
-	@pos = offset
-      when 1
-	@pos += offset
-      when 2
-	@pos += @content.size - 1
-      else
-	raise Errno::EINVAL
-      end
-    end
-    
-    alias tell pos
-    
-    def << (arg)
-      begin
-	@content << arg.to_s
-	self
-      rescue
-	raise IOError
-      end
-    end
-          
-    def print(*args)
-      begin
-	args.each do |i|
-	  @content << i.to_s
-	end
-	nil
-      rescue
-	raise IOError
-      end
-    end
-    
-    def printf(format, *args)
-      str = sprintf(format, *args)
-      begin
-	@content << str
-	nil
-      rescue
-	raise IOError
-      end
-    end
-    
-    def putc(char)
-      self.printf("%c", char)
-      char
-    end
-    
-    def puts(*args)
-      args.flatten.each do |i|
-	self.print(i, "\n")
-      end
-    end
-    
-    def write(str)
-      @content << str.to_s
-      str.to_s.size
-    end
-    
-    def empty?
-      @content.empty?
-    end
-    
-    def to_s
-      @content
-    end
-  end
-end
-
-=begin
-== script info.
- filter structure.
- $Id: filter.rb,v 1.7 2001/03/19 15:20:08 toshirok Exp $
-=end

data/vendor/rdtool-0.6.38/lib/rd/head-filter.rb

@@ -1,14 +0,0 @@
-=begin
-= head-filter.rb
-$Id: head-filter.rb,v 1.5 2003/10/30 12:12:33 rubikitch Exp rubikitch $
-Copyright(c) 2003 Rubikitch
-Licence: Ruby's License or GPL-2+
-=end
-module RD
-  HEAD_FILTER = Filter.new(:target) do |inn, out|
-    $Visitor.head = inn.to_s
-    out.print " "
-  end
-end
-
-$RC["filter"]["head"] = RD::HEAD_FILTER

data/vendor/rdtool-0.6.38/lib/rd/inline-element.rb

@@ -1,233 +0,0 @@
-require 'rd/element'
-
-module RD
-  
-  # Inline-level Element of document tree
-  class InlineElement < Element
-  end
-
-  # abstruct class.
-  class TerminalInline < InlineElement
-    include TerminalElement
-
-    attr_accessor :content
-
-    def initialize(content)
-      super()
-      @content = content
-    end
-  end
-  
-  # abstract class.
-  class NonterminalInline < InlineElement
-    include NonterminalElement
-
-    attr_reader :content
-    
-    def initialize
-      super()
-      @content = []
-    end
-
-    def children
-      @content
-    end
-
-    def to_label
-      ret = ""
-      children.each do |i|
-	ret << i.to_label
-      end
-      ret.strip
-    end
-  end # NonterminalInline
-  
-  class StringElement < TerminalInline
-    def accept(visitor)
-      visitor.visit_StringElement(self)
-    end
-
-    def to_label
-      @content
-    end
-  end
-  
-  class Verb < TerminalInline
-    def accept(visitor)
-      visitor.visit_Verb(self)
-    end
-
-    def to_label
-      @content.strip
-    end
-  end
-  
-  class Emphasis < NonterminalInline
-    def accept(visitor)
-      visitor.visit_Emphasis(self)
-    end
-  end
-  
-  class Code < NonterminalInline
-    def accept(visitor)
-      visitor.visit_Code(self)
-    end
-  end
-  
-  class Var < NonterminalInline
-    def accept(visitor)
-      visitor.visit_Var(self)
-    end
-  end
-  
-  class Keyboard < NonterminalInline
-    def accept(visitor)
-      visitor.visit_Keyboard(self)
-    end
-  end
-  
-  class Index < NonterminalInline
-    def accept(visitor)
-      visitor.visit_Index(self)
-    end
-  end
-
-  class Footnote < NonterminalInline
-    def accept(visitor)
-      visitor.visit_Footnote(self)
-    end
-  end
-
-  class Reference < NonterminalInline
-    attr_accessor :label   # Reference::Label
-    alias set_label label=
-
-    def initialize(label)
-      super()
-      @content = []
-      @label = label.renew_label
-    end
-
-    def Reference.new_from_label(label)
-      ref = Reference.new(label)
-      ref.add_children(label.to_reference_content)
-      return ref
-    end
-
-    def Reference.new_from_label_under_document_struct(label, struct)
-      ref = Reference.new(label)
-      ref.add_children_under_document_struct(label.to_reference_content,
-					     struct)
-      return ref
-    end
-
-    def Reference.new_from_label_without_document_struct(label)
-      ref = Reference.new(label)
-      ref.add_children_without_document_struct(label.to_reference_content)
-      return ref
-    end
-    
-    def accept(visitor)
-      visitor.visit_Reference(self)
-    end
-
-    def result_of_apply_method_of(visitor, children)
-      label.result_of_apply_method_of(visitor, self, children)
-    end
-    
-    def to_label
-      @label.to_label
-    end
-
-    # abstruct class. Label for Reference 
-    class Label
-      def extract_label
-	raise NotImplementedError, "[BUG] must be overridden."
-      end
-
-      def to_reference_content
-	raise NotImplementedError, "[BUG] must be overridden."
-      end
-
-      def result_of_apply_method_of(visitor)
-	raise NotImplementedError, "[BUG] must be overridden."
-      end
-    end
-  
-    class URL < Label
-      attr_accessor :url
-      
-      def initialize(url_str)
-	@url = url_str
-      end
-      
-      def to_label
-	""
-      end
-
-      def result_of_apply_method_of(visitor, reference, children)
-	visitor.apply_to_Reference_with_URL(reference, children)
-      end
-
-      def to_reference_content
-	[StringElement.new("<URL:#{self.url}>")]
-      end
-
-      def renew_label
-	self
-      end
-    end # URL
-
-    class RDLabel < Label
-      attr_accessor :element_label
-      attr_accessor :filename
-
-      def initialize(element_label, filename = nil)
-	@element_label = element_label
-	@filename = filename
-      end
-
-      def result_of_apply_method_of(visitor, reference, children)
-	visitor.apply_to_Reference_with_RDLabel(reference, children)
-      end
-
-      def to_reference_content
-	[]
-      end
-
-      def renew_label
-	self
-      end
-      
-      alias to_label element_label
-    end # RDLabel
-
-    # for initialization. Parameter Object(?)
-    class TemporaryLabel < Label
-      attr_accessor :element_label
-      attr_accessor :filename
-
-      def initialize(element_label = [], filename = nil)
-	@element_label = element_label
-	@filename = filename
-      end
-
-      def to_reference_content
-	self.element_label
-      end
-
-      def renew_label
-	RDLabel.new(extract_label(self.element_label), self.filename)
-      end
-
-      def extract_label(elements)
-	ret = ""
-	elements.each do |i|
-	  ret << i.to_label
-	end
-	ret.strip
-      end
-      private :extract_label
-    end
-  end # Reference
-end