tdiary 3.2.2.20130507

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

@@ -0,0 +1,14 @@
+
+module RD
+  # interface
+  module LabeledElement
+    def to_label
+      @label ||= calculate_label
+    end
+    alias label to_label
+    
+    def calculate_label
+      raise "[BUG] must override."
+    end
+  end
+end

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

@@ -0,0 +1,57 @@
+require 'rd/block-element'
+require 'rd/element'
+
+module RD
+  class List < BlockElement
+    include NonterminalElement
+    attr_reader :items
+    
+    def initialize
+      @items = []
+    end
+    
+    alias each_item each_child
+  
+    def children
+      @items
+    end
+  end
+  
+  class ListItem < BlockElement
+    include NonterminalElement
+    
+    attr_reader :content
+    
+    def initialize
+      @content = []
+    end
+    
+    alias each_block each_child
+    
+    def children
+      @content
+    end
+  end
+  
+  class ItemList < List
+    def accept(visitor)
+      visitor.visit_ItemList(self)
+    end
+  end
+  class ItemListItem < ListItem
+    def accept(visitor)
+      visitor.visit_ItemListItem(self)
+    end
+  end
+  
+  class EnumList < List
+    def accept(visitor)
+      visitor.visit_EnumList(self)
+    end
+  end
+  class EnumListItem < ListItem
+    def accept(visitor)
+      visitor.visit_EnumListItem(self)
+    end
+  end
+end # RD

data/vendor/rdtool-0.6.38/lib/rd/loose-struct.rb

@@ -0,0 +1,11 @@
+require 'rd/document-struct'
+require 'rd/element'
+require 'rd/tree'
+
+module RD
+  class DocumentStructure
+    LOOSE = DocumentStructure.new
+    LOOSE.define_relationship(NonterminalElement, Element)
+    LOOSE.define_relationship(Tree, DocumentElement)
+  end
+end

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

@@ -0,0 +1,57 @@
+require 'rd/element'
+require 'rd/list'
+require 'rd/complex-list-item'
+require 'rd/labeled-element'
+
+module RD
+  class MethodList < List
+    def accept(visitor)
+      visitor.visit_MethodList(self)
+    end
+  end
+  
+  class MethodListItem < ListItem
+    include ComplexListItem
+    
+    attr_reader :term
+    attr_reader :description
+    
+    def initialize
+      @term = nil
+      @description = []
+    end
+    
+    def accept(visitor)
+      visitor.visit_MethodListItem(self)
+    end
+    
+    def children
+      @description
+    end
+
+    class Term < Element
+      include TerminalElement
+      include LabeledElement
+      
+      attr_reader :content
+      
+      def initialize(content = "")
+	@content = content
+      end
+
+      def each_element
+	yield(self)
+      end
+      alias each each_element
+
+      def accept(visitor)
+	visitor.visit_MethodListItemTerm(self)
+      end
+
+     def calculate_label
+	@content.sub(/\s*(?:\(|\{).*$/, "")
+     end
+     private :calculate_label
+    end
+  end
+end # RD

data/vendor/rdtool-0.6.38/lib/rd/output-format-visitor.rb

@@ -0,0 +1,30 @@
+require 'rd/visitor'
+require 'rd/rd-struct'
+require 'rd/search-file'
+
+module RD
+  class OutputFormatVisitor < Visitor
+    include SearchFile
+
+    # must-have constants
+    OUTPUT_SUFFIX = ""
+    INCLUDE_SUFFIX = []
+
+    attr_accessor :include_suffix
+    attr_accessor :filename
+    attr_accessor :input_filename
+
+    def initialize
+      super
+      @include_suffix = self.class::INCLUDE_SUFFIX.clone
+      @filename = nil
+      @input_filename = "-"
+    end
+
+    def apply_to_Include(element)
+      fname = search_file(element.filename, element.tree.include_paths,
+			  @include_suffix)
+      File.readlines(fname).join("") if fname
+    end
+  end 
+end # RD

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

@@ -0,0 +1,4 @@
+require 'rd/version'
+module RD
+  PACKAGE_VERSION = RD::VERSION
+end

data/vendor/rdtool-0.6.38/lib/rd/parser-util.rb

@@ -0,0 +1,14 @@
+
+module RD
+  module ParserUtility
+    def add_children_to_element(parent, *children)
+#      parent.add_children_under_document_struct(children,
+#						tree.document_struct)
+      parent.add_children_without_document_struct(children)
+    end
+
+    def tree
+      raise NotImplementedError, "Subclass Responsibility"
+    end
+  end
+end

data/vendor/rdtool-0.6.38/lib/rd/post-install

@@ -0,0 +1 @@
+install_files ["dot.rd2rc"], "#{config('rbdir')}/rd", 0644

data/vendor/rdtool-0.6.38/lib/rd/pre-setup.rb

@@ -0,0 +1,18 @@
+#!/usr/bin/env ruby
+# -*- mode: ruby; coding: utf-8; indent-tabs-mode: nil -*-
+#
+# Copyright(C) Youhei SASAKI All rights reserved.
+# $Lastupdate: 2012/05/06 23:15:30$
+#
+# License: Ruby's License or GPL-2+
+#
+# Code:
+Dir.chdir("#{srcdir_root}")
+Dir.glob("./lib/rd/*.ry").each { |f|
+  obj = f.gsub(/\.ry$/,'.tab.rb')
+  unless FileTest.exists?(obj)
+    puts "racc #{f} -o #{obj}"
+    system "racc #{f} -o #{obj}" unless srcfile?(obj)
+  end
+}
+

data/vendor/rdtool-0.6.38/lib/rd/rbl-file.rb

@@ -0,0 +1,69 @@
+require 'rd/search-file'
+
+module RD
+  class RBLFile
+    include SearchFile
+
+    SUFFIX = "rbl"
+    attr_reader :labels
+    attr_reader :filename
+
+    def initialize(filename)
+      @filename = RBLFile.basename(filename)
+      @labels = []
+    end
+
+    def RBLFile.create_rbl_file(filename, resolver)
+      file = File.open(RBLFile.rbl_file_path(filename), "w")
+      file.print(RBLFile.labels_to_string(resolver))
+      file.close
+    end
+
+    def RBLFile.rbl_file_path(filename)
+      basename(filename) + "." + SUFFIX
+    end
+
+    def RBLFile.basename(path)
+      if /\.(rd|rb)$/ === path
+	$`
+      else
+	path
+      end
+    end
+    
+    def RBLFile.labels_to_string(resolver)
+      (resolver.collect do |i|
+	 i.to_label + " => " + resolver.get_anchor(i)
+       end).join("\n")
+    end
+
+    def load_rbl_file(search_paths)
+      f = search_file(@filename, search_paths, [SUFFIX])
+      raise "RBLFile not found." unless f
+      src = File.readlines(f).join("")
+      @labels = string_to_labels(src)
+    end
+		   
+    def string_to_labels(src)
+      labels = []
+      src.each_line do |i|
+	labels << parse_line(i)
+      end
+      labels
+    end
+
+    def parse_line(src)
+      col = src.rindex("=>")
+      raise "RBL file parse error." unless col
+      label = src[0 .. col - 1].strip
+      anchor = src[col + 2 .. -1].strip
+      [label, anchor]
+    end
+
+    def refer(label)
+      label = @labels.find{|i| i[0] == label}
+      return nil unless label
+      label[1]
+    end
+  end
+end

data/vendor/rdtool-0.6.38/lib/rd/rbl-suite.rb

@@ -0,0 +1,37 @@
+require "rd/rbl-file"
+
+module RD
+  class RBLSuite
+    attr_reader :rbl_files
+    
+    def initialize(search_paths)
+      @search_paths = search_paths
+      @rbl_files = []
+    end
+
+    def refer(label, filename)
+      rbl = get_rbl_file(filename)
+      [rbl.filename, rbl.refer(label)]
+    end
+
+    def get_rbl_file(filename)
+      rbl = @rbl_files.find{|i| i.filename == RBLFile.basename(filename)}
+      if rbl
+	rbl
+      else
+	add_rbl_file(filename)
+      end
+    end
+      
+    def add_rbl_file(filename)
+      rbl = RBLFile.new(filename)
+      begin
+	rbl.load_rbl_file(@search_paths)
+      rescue RuntimeError
+      ensure
+	@rbl_files.push(rbl)
+      end
+      rbl
+    end
+  end
+end

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

@@ -0,0 +1,86 @@
+require 'rd/document-struct'
+require 'rd/tree'
+require 'rd/element'
+require 'rd/block-element'
+require 'rd/list'
+require 'rd/desclist'
+require 'rd/methodlist'
+require 'rd/inline-element'
+
+# definition of RD document structure.
+
+module RD
+  # interface. can be component of ListItem.
+  module ListItemComposable
+  end
+  # interface. can be component of Headline and Reference.
+  module LabelComposable
+  end
+  # interface. can include Inline
+  module InlineIncludable
+  end
+
+  class DocumentStructure
+    RD = DocumentStructure.new
+
+    RD.define_relationship(Tree, DocumentElement)
+    RD.define_relationship(DocumentElement, BlockElement)
+    RD.define_relationship(Headline, LabelComposable)
+    RD.define_relationship(TextBlock, InlineElement)
+    RD.define_relationship(ItemList, ItemListItem)
+    RD.define_relationship(EnumList, EnumListItem)
+    RD.define_relationship(DescList, DescListItem)
+    RD.define_relationship(MethodList, MethodListItem)
+    RD.define_relationship(ListItem, ListItemComposable)
+    RD.define_relationship(DescListItem, DescListItem::Term) 
+    RD.define_relationship(DescListItem::Term, LabelComposable)
+    RD.define_relationship(MethodListItem, MethodListItem::Term)   
+    RD.define_relationship(InlineIncludable, InlineElement)
+    RD.define_relationship(Reference, LabelComposable)
+  end
+  
+  class TextBlock
+    include ListItemComposable
+  end
+  class Verbatim
+    include ListItemComposable
+  end
+  class ItemList
+    include ListItemComposable
+  end
+  class EnumList
+    include ListItemComposable
+  end
+  class DescList
+    include ListItemComposable
+  end
+  class StringElement
+    include LabelComposable
+  end
+  class Emphasis
+    include LabelComposable
+    include InlineIncludable
+  end
+  class Code
+    include LabelComposable
+    include InlineIncludable
+  end
+  class Var
+    include LabelComposable
+    include InlineIncludable
+  end
+  class Keyboard
+    include LabelComposable
+    include InlineIncludable
+  end
+  class Index
+    include LabelComposable
+    include InlineIncludable
+  end
+  class Footnote
+    include InlineIncludable
+  end
+  class Verb
+    include LabelComposable
+  end
+end

data/vendor/rdtool-0.6.38/lib/rd/rd2html-ext-lib.rb

@@ -0,0 +1,266 @@
+=begin
+= rd2html-ext-lib.rb
+$Id: rd2html-ext-lib.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
+
+require "rd/rd2html-lib"
+
+module RD
+  class RD2HTMLExtVisitor < RD2HTMLVisitor
+    # must-have constants
+    OUTPUT_SUFFIX = "html"
+    INCLUDE_SUFFIX = ["html"]
+
+    METACHAR = { "<" => "&lt;", ">" => "&gt;", "&" => "&amp;" }
+
+    attr_accessor :opt_headline_title, :opt_ref_extension, :opt_headline_secno, :opt_enable_br, :opt_native_inline, :opt_head_element
+    attr(:head, true)
+
+    def initialize
+      @enum_count = [0, 0, 0, 0, 0, 0, 0]
+      @levelold = 0
+      @enum_start_level = 2
+      @image_size = {}
+      begin
+        require 'image_size'
+        @use_image_size = true
+      rescue LoadError
+        @use_image_size = false
+      end
+
+      super
+    end
+
+    def visit(tree)
+      install_headline_title if opt_headline_title
+      install_headline_secno if opt_headline_secno
+      install_ref_extension if opt_ref_extension
+      install_enable_br if opt_enable_br
+      install_native_inline if opt_native_inline
+      install_head_element if opt_head_element
+      title_init if opt_headline_title || opt_headline_secno
+      super
+    end
+
+    def install_headline_title
+      extend HeadLineTitle
+    end
+
+    def install_native_inline
+      extend NativeInline
+    end
+
+    def install_enable_br
+      extend EnableBr
+    end
+
+    def install_headline_secno
+      extend HeadLineTitle
+      extend HeadlineSecno
+    end
+
+    def install_ref_extension
+      extend RefExtension
+      @ref_extension = []
+      (methods + private_methods).sort.each do |m|
+        if /^ref_ext/ =~ m
+          @ref_extension.push(m.intern)
+        end
+      end
+      @ref_extension.push(:default_ref_ext)
+    end
+
+    def install_head_element
+      extend HeadElement
+    end
+
+    ################ <H1> to <Title>
+    module HeadLineTitle
+      def title_init
+        @headline_called = false
+      end
+
+      def make_title(title)
+        unless @headline_called || @title then
+          @title = title.join.strip
+          @headline_called = true
+        end
+      end
+
+      def apply_to_Headline(element, title)
+        make_title(title)
+        super
+      end
+    end
+
+    ################ index inline => native inline
+    module NativeInline
+      Delimiter = "\ca\ca"
+      def html_body(contents)
+        html = super
+        a = html.split(Delimiter)
+        a.each_with_index do |s, i|
+          if i % 2 == 1
+            meta_char_unescape!(s)
+          end
+        end
+        a.join
+      end
+      private :html_body
+
+      def apply_to_Index(element, content)
+        %Q[#{Delimiter}#{content}#{Delimiter}]
+      end
+
+      def meta_char_unescape!(str)
+        str.gsub!(/(&lt;|&gt;|&amp;)/) {
+          METACHAR.index($&)
+        }
+      end
+      private :meta_char_unescape!
+
+    end
+
+    ################ Enable <br>
+    module EnableBr
+      def apply_to_TextBlock(element, content)
+        if (element.parent.is_a?(ItemListItem) or
+            element.parent.is_a?(EnumListItem)) and
+            consist_of_one_textblock?(element.parent)
+          content.join.chomp
+        else
+          content = content.delete_if{|x| x == "\n"}.join("").gsub(/\n/, "<br />\n")
+          %Q[<p>#{content.chomp}</p>]
+        end
+      end
+    end
+
+    ################ Headline Enumeration
+    module HeadlineSecno
+      def make_Headline_secno(element)
+        level = element.level
+        (@levelold+1).upto(@enum_count.length-1){|i| @enum_count[i]=0}
+        @enum_count[level] += 1
+        prefix = ""
+        @enum_start_level.upto(level) do |l|
+          prefix << @enum_count[l].to_s
+          prefix << "." unless l == level
+        end
+        @levelold = level
+        if prefix == '' then "Title:" else prefix end
+      end
+      private :make_Headline_secno
+
+      def apply_to_Headline(element, title)
+        anchor = refer(element)
+        make_title(title)
+        secno = make_Headline_secno element
+        %Q[<h#{element.level}><a name="#{secno}" href="##{secno}">#{secno}</a> ] +
+        %Q[<a name="#{anchor}">#{title}</a>] +
+        %Q[</h#{element.level}><!-- RDLabel: "#{element.label}" -->\n]
+      end
+    end
+
+    ################ TextBlock Label
+    ################ Reference Extension from rd2rwiki-lib.rb
+
+    module RefExtension
+      def apply_to_RefToElement(element, content)
+        content = content.join("")
+        apply_ref_extension(element, element_label(element), content)
+      end
+      private
+
+      def apply_ref_extension(element, label, content)
+        @ref_extension.each do |entry|
+          result = __send__(entry, element, label, content)
+          return result if result
+        end
+      end
+
+      def element_label(element)
+        case element
+        when RDElement
+          element.to_label
+        else
+          element
+        end
+      end
+
+      def default_ref_ext(element, label, content)
+        if anchor = refer(element)
+          content = content.sub(/^function#/, "")
+          %Q[<a href="\##{anchor}">#{content}</a>]
+        else
+          # warning?
+          label = hyphen_escape(element.to_label)
+          %Q[<!-- Reference, RDLabel "#{label}" doesn't exist -->] +
+            %Q[<em class="label-not-found">#{content}</em><!-- Reference end -->]
+          #'
+        end
+      end
+
+      def ref_ext_RubyML(element, label, content)
+        return nil unless /^(ruby-(?:talk|list|dev|math)):(.+)$/ =~ label
+        ml = $1
+        article = $2.sub(/^0+/, '')
+        content = "[#{label}]" if label == content
+
+        %Q[<a href="http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/#{ ml }/#{ article }">#{ content }</a>]
+      end
+
+      def ref_ext_RAA(element, label, content)
+        return nil unless /^RAA:(.+)$/ =~ label
+        name = CGI.escape($1)
+        content = "[#{label}]" if label == content
+        %Q[<a href="http://raa.ruby-lang.org/list.rhtml?name=#{ name }">#{ content }</a>]
+      end
+
+      def ref_ext_IMG(element, label, content)
+        return nil unless /^IMG:(.+)$/i =~ label
+        file = $1
+        label.to_s == content.to_s and content = file
+        if @use_image_size
+          begin
+            unless @image_size[ file ]
+              open( file ) do |img|
+                is = ImageSize::new( img )
+                @image_size[ file ] = [ is.get_height, is.get_width ]
+              end
+            end
+
+            height, width = @image_size[ file ]
+            %Q[<img src="#{$1}" alt="#{content}" height="#{height}" width="#{width}" />]
+          rescue
+            %Q[<img src="#{$1}" alt="#{content}">]
+          end
+        else
+          %Q[<img src="#{$1}" alt="#{content}" />]
+        end
+      end
+    end # RefExtension
+
+    ################
+    module HeadElement
+      def html_head
+        ret = %|<head>\n|
+          ret << html_title + "\n"
+          ret << html_content_type + "\n" if html_content_type
+        ret << link_to_css + "\n" if link_to_css
+        ret << forward_links + "\n" if forward_links
+        ret << backward_links + "\n" if backward_links
+        if self.head
+          ret << self.head + "\n"
+        else
+          ret << %Q[<!-- head-element:nil -->\n]
+        end
+        ret << %Q[</head>]
+      end
+    end
+  end # RD2HTMLExtVisitor
+end # RD
+
+$Visitor_Class = RD::RD2HTMLExtVisitor
+$RD2_Sub_OptionParser = "rd/rd2html-ext-opt"