tdiary 3.2.2.20130518 → 3.2.2.20130527

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

@@ -1,67 +0,0 @@
-=begin
-= rd2html-opt.rb
-sub-OptionParser for rd2html-lib.rb.
-=end
-require "optparse"
-
-q = ARGV.options
-
-q.on_tail("rd2html-lib options:")
-
-
-#q.on_tail("--use-numbering-anchor",
-#	  "use number for anchor name (old style)") do
-#  $Visitor.use_old_anchor = true
-#end
-
-q.on_tail("--output-rbl",
-	  "output external Label file") do
-  $Visitor.output_rbl = true
-end
-
-q.on_tail("--with-css=FILE",
-	  String,
-	  "use FILE as CSS of output HTML") do |i|
-  $Visitor.css = i
-end
-
-q.on_tail("--html-charset=CHARSET",
-	  String,
-	  "indicate CHARSET as charset(char encoding)") do |i|
-  $Visitor.charset = i
-end
-
-q.on_tail("--html-lang=LANG",
-	  String,
-	  "indicate LANG as lang attribute of html") do |i|
-  $Visitor.lang = i
-end
-  
-q.on_tail("--html-title=TITLE",
-	  String,
-	  "content of TITLE element of HTML") do |i|
-  $Visitor.title = i
-end
-
-q.on_tail("--html-link-rel=REL",
-	  String,
-	  "add forward LINK element.(\"<rel>:<href>\")") do |i|
-  if /(\w+):(.+)/ =~ i
-    $Visitor.html_link_rel[$1] = $2
-  else
-    # warning
-  end
-end
-
-q.on_tail("--html-link-rev=REV",
-	  String,
-	  "add reverse LINK element.(\"<rev>:<href>\")") do |i|
-  if /(\w+):(.+)/ =~ i
-    $Visitor.html_link_rev[$1] = $2
-  else
-    # warning
-  end
-end
-
-
-

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

@@ -1,251 +0,0 @@
-=begin
-= rd/rd2man-lib.rb
-=end
-
-require "rd/rdvisitor"
-require "rd/version"
-
-unless [].respond_to? :collect!
-  class Array
-    alias collect! filter
-  end
-end
-
-module RD
-  class RD2MANVisitor < RDVisitor
-    include AutoLabel
-    include MethodParse
-
-    SYSTEM_NAME = "RDtool -- RD2ManVisitor"
-    SYSTEM_VERSION = "$Version: "+RD::VERSION+"$"
-    VERSION = Version.new_from_version_string(SYSTEM_NAME, SYSTEM_VERSION)
-
-    def self.version
-      VERSION
-    end
-
-    # must-have constants
-    OUTPUT_SUFFIX = "1"
-    INCLUDE_SUFFIX = ["1"]
-
-    def initialize
-      @enumcounter = 0
-      @index = {}
-      @filename = nil
-    end
-
-    def visit(tree)
-      prepare_labels(tree, "")
-      super(tree)
-    end
-
-    def apply_to_DocumentElement(element, content)
-      content = content.join
-      title = guess_title
-      title = title.sub(/\.rd$/i, '').upcase
-      <<"EOT"
-.\\" DO NOT MODIFY THIS FILE! it was generated by rd2
-.TH #{title} 1 "#{Time.now.strftime '%B %Y'}"
-#{content}
-EOT
-    end # "
-
-    def apply_to_Headline(element, title)
-      title = title.join(" ")
-      element.level <= 1 ? ".SH #{title}\n" : ".SS #{title}\n"
-    end
-
-    # RDVisitor#apply_to_Include
-
-    def apply_to_TextBlock(element, content)
-      if RD::DescListItem === element.parent ||
-          RD::ItemListItem === element.parent ||
-          RD::EnumListItem === element.parent
-        return content.join
-      else
-        return ".PP\n" + content.join
-      end
-    end
-
-    def apply_to_Verbatim(element)
-      content = []
-      element.each_line do |i|
-        content.push(apply_to_String(i))
-      end
-      # Can we use BLOCKQUOTE such like?
-      %Q[.nf\n\\&    #{content.join("\\&    ")}.fi\n]
-    end
-
-    def apply_to_ItemList(element, items)
-      items.collect! do |x| x.sub(/\n\n/, "\n") end
-      items = items.join(".IP\n.B\n\\(bu\n")  # "\\(bu" -> "" ?
-      ".IP\n.B\n\\(bu\n" + items
-    end
-
-    def apply_to_EnumList(element, items)
-      @enumcounter = 0
-      items.join
-    end
-
-    def apply_to_DescList(element, items)
-      items.map{ |i| i =~ /\n$/ ? i : i + "\n" }.join("")
-    end
-
-    def apply_to_MethodList(element, items)
-      items.map{ |i| i =~ /\n$/ ? i : i + "\n" }.join("")
-    end
-
-    def apply_to_ItemListItem(element, content)
-      content.map{ |c| c =~ /\n$/ ? c : c + "\n" }.join("")
-    end
-
-    def apply_to_EnumListItem(element, content)
-      @enumcounter += 1
-      %Q[.TP\n#{@enumcounter}.\n#{content.join("\n")}]
-    end
-
-    def apply_to_DescListItem(element, term, description)
-      anchor = refer(element)
-      if description.empty?
-        ".TP\n.fi\n.B\n#{term.join(" ")}"
-      else
-        %[.TP\n.fi\n.B\n#{term.join(" ")}\n#{description.join("\n")}].chomp
-      end
-    end
-
-    def apply_to_MethodListItem(element, term, description)
-      term = parse_method(term)  # maybe: term -> element.term
-      anchor = refer(element)
-      if description.empty?
-        ".TP\n.fi\n.B\n#{term.join(" ")}"
-      else
-        %[.TP\n.fi\n.B\n#{term.join(" ")}\n#{description.join("\n")}]
-      end
-    end
-
-    def parse_method(method)
-      klass, kind, method, args = MethodParse.analize_method(method)
-
-      if kind == :function
-        klass = kind = nil
-      else
-        kind = MethodParse.kind2str(kind)
-      end
-
-      case method
-      when "[]"
-        args.strip!
-        args.sub!(/^\((.*)\)$/, '\\1')
-        "#{klass}#{kind}[#{args}]"
-      when "[]="
-        args.strip!
-        args.sub!(/^\((.*)\)$/, '\\1')
-        args, val = /^(.*),([^,]*)$/.match(args)[1,2]
-        args.strip!
-        val.strip!
-
-        "#{klass}#{kind}[#{args}] = #{val}"
-      else
-        "#{klass}#{kind}#{method}#{args}"
-      end
-    end
-    private :parse_method
-
-    def apply_to_StringElement(element)
-      apply_to_String(element.content)
-    end
-
-    def apply_to_Emphasis(element, content)
-      %Q[\\fI#{content.join}\\fP]
-    end
-
-    def apply_to_Code(element, content)
-      %{\\&\\fB#{content.join.sub(/\./, '\\.')}\\fP}
-    end
-
-    def apply_to_Var(element, content)
-      content.join
-    end
-
-    def apply_to_Keyboard(element, content)
-      content.join
-    end
-
-    def apply_to_Index(element, content)
-      tmp = []
-      element.each do |i|
-        tmp.push(i) if i.is_a?(String)
-      end
-      key = meta_char_escape(tmp.join)
-      if @index.has_key?(key)
-        # warning?
-        ""
-      else
-        num = @index[key] = @index.size
-        %{\\&\\fB#{content.join.sub(/\./, '\\.')}\\fP}
-      end
-    end
-
-    def apply_to_Reference(element, content)
-      case element.label
-      when Reference::URL
-        apply_to_RefToURL(element, content)
-      when Reference::RDLabel
-        if element.label.filename
-          apply_to_RefToOtherFile(element, content)
-        else
-          apply_to_RefToElement(element, content)
-        end
-      end
-    end
-
-    def apply_to_RefToElement(element, content)
-      content = content.join
-      content.sub(/^function#/, "")
-    end
-
-    def apply_to_RefToOtherFile(element, content)
-      content.join
-    end
-
-    def apply_to_RefToURL(element, content)
-      content.join
-    end
-
-    def apply_to_Footnote(element, content)
-      ""
-    end
-
-    def apply_to_Verb(element)
-      apply_to_String(element.content)
-    end
-
-    def apply_to_String(element)
-      meta_char_escape(element)
-    end
-
-    def meta_char_escape(str)
-      str.gsub(/[-\\]/, '\\\\\\&').gsub(/^[.']/, '\\&') # '
-    end
-    private :meta_char_escape
-
-    def guess_title
-      return @input_filename unless @input_filename == "-"
-      return @filename if @filename
-      "Untitled"
-    end
-    private :guess_title
-
-
-  end # RD2MANVisitor
-end # RD
-
-$Visitor_Class = RD::RD2MANVisitor
-
-=begin
-== script info.
- RD to MAN translate library for rdfmt.rb
- $Id: rd2man-lib.rb,v 1.9 2003/08/02 15:45:49 tosh Exp $
- Copyright 2000 WATANABE Hirofumi <eban@os.rim.or.jp>
-           2012 Youhei SASAKI <uwabami@gfd-dennou.org>
-=end

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

@@ -1,19 +0,0 @@
-=begin
-= rd2rdo-lib.rb
-Format lib to dump tree objects.
-=end
-
-require "rd/rdvisitor"
-
-module RD
-  class RD2RDOVisitor < RDVisitor
-    OUTPUT_SUFFIX = "rdo"
-    INCLUDE_SUFFIX = []
-    
-    def visit(tree)
-      Marshal.dump(tree)
-    end
-  end
-end
-
-$Visitor_Class = RD::RD2RDOVisitor

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

@@ -1,32 +0,0 @@
-=begin
-= rd2rmi-lib.rb
-library to output RMI.
-=end
-require "rd/rdvisitor"
-
-module RD
-  class RD2RMIVisitor < RDVisitor
-    include AutoLabel
-    include MethodParse
-
-    OUTPUT_SUFFIX = "rmi"
-    INCLUDE_SUFFIX = ["rmi"]
-    
-    def visit(tree)
-      ret = ""
-
-      prepare_labels(tree)
-      
-      index = make_method_index(tree)
-      index.each do |i|
-	i[1] = kind2str(i[1])
-	i[3] = @filename
-	i[4] = refer(i[0]+i[1]+i[2])
-	ret << "$method_index.push(#{i.inspect})\n"
-      end
-      ret
-    end
-  end # class RD2RMIVisitor
-end # module RD
-
-$Visitor_Class = RD::RD2RMIVisitor

data/vendor/rdtool-0.6.38/lib/rd/rdblockparser.ry

@@ -1,518 +0,0 @@
-
-class RDParser
-
-  preclow
-    nonassoc DUMMY
-    left     ITEMLISTLINE ENUMLISTLINE DESCLISTLINE METHODLISTLINE STRINGLINE
-  prechigh
-
-  token STRINGLINE ITEMLISTLINE ENUMLISTLINE DESCLISTLINE METHODLISTLINE
-	WHITELINE SUBTREE HEADLINE INCLUDE INDENT DEDENT DUMMY
-
-  rule
-  document : blocks  { result = DocumentElement.new
-		       add_children_to_element(result, *val[0])
-                     }
-	     |         {
-                         raise ParseError,
-                         "Error: file empty."
-			  }
-             ;
-    blocks : blocks block  { result.concat(val[1]) }
-           | block
-           ;
-    block : textblock	  { result = val }
-          | verbatim      { result = val }
-          | lists 
-          | headline      { result = val }
-          | include       { result = val }
-          | WHITELINE     { result = [] }
-          | SUBTREE       { result = val[0].blocks }
-          ;
-
-    headline : HEADLINE { # val[0] is like [level, title]
-			  title = @inline_parser.parse(val[0][1])
-			  result = Headline.new(val[0][0])
-			  add_children_to_element(result, *title)
-                          }
-             ;
-    include : INCLUDE { result = Include.new(val[0]) }
-	    ;
-
-    textblock : textblockcontent = DUMMY
-			{ # val[0] is Array of String
-			  content = cut_off(val[0]).join("")
-			  contents = @inline_parser.parse(content)
-			  result = TextBlock.new()
-			  add_children_to_element(result, *contents)
-                         }
-              ;
-    textblockcontent : textblockcontent STRINGLINE
-				 { result.push(val[1]) }
-                     | STRINGLINE { result = val }
-                     ;
-
-    verbatim : INDENT verbatimcontent DEDENT
-			{ # val[1] is Array of String
-			  content = cut_off(val[1])
-			  result = Verbatim.new(content)
-			  # imform to lexer.
-			  @in_verbatim = false }
-             ;
-    verbatim_after_lists : verbatimcontent
-			{ # val[0] is Array of String
-			  content = cut_off(val[0])
-			  result = Verbatim.new(content)
-			  # imform to lexer.
-			  @in_verbatim = false }
-             ;
-    verbatimcontent : verbatimcontent STRINGLINE
-					{ result.push(val[1]) }
-                    | verbatimcontent INDENT verbatimcontent DEDENT
- 					{ result.concat(val[2]) }
-                    | verbatimcontent WHITELINE
-					{ result.push("\n") }
-                    | STRINGLINE      { result = val
-					# imform to lexer.
-					@in_verbatim = true }
-  		    ;
-
-    list : itemlist
-         | enumlist
-         | desclist
-         | methodlist
-         ; 
-    lists : lists2 = DUMMY
-	  | INDENT lists2 DEDENT { result = val[1] }
-	  | INDENT lists2 verbatim_after_lists DEDENT
-		  		{ result = val[1].push(val[2]) }
-	  ;
-
-    lists2 : lists2 list { result.push(val[1]) }
-	   | list	 { result = val }
-	   ;
-
-    itemlist :  itemlistitems  = DUMMY { 
-                          result = ItemList.new
-			  add_children_to_element(result, *val[0])
-                           }
-	 ;
-    itemlistitems : itemlistitems itemlistitem
-			{ result.push(val[1]) }
-              | itemlistitem { result = val }
-              ;
-    itemlistitem : first_textblock_in_itemlist other_blocks_in_list DEDENT
-		{ 
-                  result = ItemListItem.new
-		  add_children_to_element(result, val[0], *val[1])
-                 }
-                 ;
-
-    enumlist :  enumlistitems  = DUMMY { 
-                          result = EnumList.new
-			  add_children_to_element(result, *val[0])
-                           }
-	 ;
-    enumlistitems : enumlistitems enumlistitem
-			{ result.push(val[1]) }
-              | enumlistitem { result = val }
-              ;
-    enumlistitem : first_textblock_in_enumlist other_blocks_in_list DEDENT
-		{ 
-                  result = EnumListItem.new
-		  add_children_to_element(result, val[0], *val[1])
-                 }
-                 ;
-    
-    desclist : desclistitems  = DUMMY { 
-                          result = DescList.new
-			  add_children_to_element(result, *val[0])
-                           }
-	 ;
-    desclistitems : desclistitems desclistitem { 
-			result.push(val[1]) }
-              | desclistitem { result = val }
-              ;
-    desclistitem : DESCLISTLINE description_part DEDENT
-			{ 
-                          term = DescListItem::Term.new
-                          term_contents = @inline_parser.parse(val[0].strip)
-			  add_children_to_element(term, *term_contents)
-
-			  result = DescListItem.new
-                          set_term_to_element(result, term)
-		          add_children_to_element(result, *val[1])
-                         }
-		 ;
-
-    methodlist : methodlistitems  = DUMMY { 
-                          result = MethodList.new
-			  add_children_to_element(result, *val[0])
-                           }
-	 ;
-    methodlistitems : methodlistitems methodlistitem
-			{ result.push(val[1]) }
-              | methodlistitem { result = val }
-              ;
-    methodlistitem : METHODLISTLINE description_part DEDENT
-			{ 
-			  term = MethodListItem::Term.new(val[0].strip)
-			  result = MethodListItem.new
-                          set_term_to_element(result, term)
-			  add_children_to_element(result, *val[1])
-			 }
-		 ;
-
-    description_part : whitelines textblock blocks_in_list
-				 { result = [val[1]].concat(val[2]) }
-		     | whitelines textblock { result = [val[1]] }
-		     | whitelines INDENT blocks_in_list DEDENT
-				{ result = val[2] }
-		     | whitelines { result = [] }
-		     ;
-
-    blocks_in_list : blocks_in_list block_in_list { result.concat(val[1]) }
-                   | block_in_list
-                   ;
-    block_in_list : textblock	    { result = val }
-                  | verbatim        { result = val }
-                  | lists
-                  | WHITELINE       { result = [] }
-                  ;
-    whitelines  : whitelines2
-  		| 
-		;
-    whitelines2 : WHITELINE whitelines2
-		| WHITELINE
-		;
-
-    first_textblock_in_itemlist : ITEMLISTLINE textblockcontent
-
-		{ content = cut_off([val[0]].concat(val[1])).join("")
-		  contents = @inline_parser.parse(content)
-                  result = TextBlock.new()
-		  add_children_to_element(result, *contents)
-                 }
-				| ITEMLISTLINE
-
-		{ content = cut_off([val[0]]).join("")
-		  contents = @inline_parser.parse(content)
-		  result = TextBlock.new()
-		  add_children_to_element(result, *contents)
-		}
-				 ;
-    first_textblock_in_enumlist : ENUMLISTLINE textblockcontent
-
-		{ content = cut_off([val[0]].concat(val[1])).join("")
-		  contents = @inline_parser.parse(content)
-	          result = TextBlock.new()
-		  add_children_to_element(result, *contents)
-		 }
-				 | ENUMLISTLINE
-
-		{ content = cut_off([val[0]]).join("")
-		  contents = @inline_parser.parse(content)
-	          result = TextBlock.new()
-		  add_children_to_element(result, *contents)
-		 }
-				 ;
-    other_blocks_in_list : verbatim blocks_in_list 
-				    { result = [val[0]].concat(val[1]) }
-			 | lists blocks_in_list    { result.concat(val[1]) }
-			 | WHITELINE blocks_in_list { result = val[1] }
-			 | verbatim { result = val }
-			 | lists
-			 | WHITELINE { result = [] }
-			 | { result = [] }
-			 ;
-end
-
----- inner
-include ParserUtility
-
-TMPFILE = ["rdtmp", $$, 0]
-
-attr_reader :tree
-
-def initialize
-  @inline_parser = RDInlineParser.new(self)
-end
-
-def parse(src, tree)
-  @src = src
-  @src.push(false)
-  # RDtree
-  @tree = tree
-  
-  # @i: index(line no.) of src
-  @i = 0
-  # stack for current indentation
-  @indent_stack = []
-  # how indented.
-  @current_indent = @indent_stack.join("")
-  # RDParser for tmp src
-  @subparser = nil
-  # which part is in now
-  @in_part = nil
-  @part_content = []
-
-  @in_verbatim = false
-
-  @yydebug = true
-  do_parse
-end
-
-def next_token
-  # preprocessing
-  # if it is not in RD part
-  # => method
-  while @in_part != "rd"
-    line = @src[@i]
-    @i += 1 # next line
-    
-    case line
-    # src end
-    when false
-      return [false, false]
-    # RD part begin
-    when /^=begin\s*(?:\bRD\b.*)?\s*$/
-      if @in_part # if in non-RD part
-	@part_content.push(line)
-      else
-	@in_part = "rd"
-	return [:WHITELINE, "=begin\n"] # <= for textblockand
-      end
-    # non-RD part begin
-    when /^=begin\s+(\w+)/
-      part = $1
-      if @in_part # if in non-RD part
-	@part_content.push(line)
-      else
-	@in_part = part if @tree.filter[part] # if filter exists
-#	p "BEGIN_PART: #{@in_part}" # DEBUG
-      end
-    # non-RD part end
-    when /^=end/
-      if @in_part # if in non-RD part
-#	p "END_PART: #{@in_part}" # DEBUG
-	# make Part-in object
-	part = RD::Part.new(@part_content.join(""), @tree, "r")
-	@part_content.clear
-	# call filter, part_out is output(Part object)
-	part_out = @tree.filter[@in_part].call(part)
-	
-	if @tree.filter[@in_part].mode == :rd # if output is RD formated
-	  subtree = parse_subtree( (RUBY_VERSION >= '1.9.0' ? part_out.lines.to_a : part_out.to_a ) )
-	else # if output is target formated
-	  basename = TMPFILE.join('.')
-	  TMPFILE[-1] += 1
-	  tmpfile = open(@tree.tmp_dir + "/" + basename + ".#{@in_part}", "w")
-	  tmpfile.print(part_out)
-	  tmpfile.close
-	  subtree = parse_subtree(["=begin\n", "<<< #{basename}\n", "=end\n"])
-	end
-	@in_part = nil
-	return [:SUBTREE, subtree]
-      end
-    else
-      if @in_part # if in non-RD part
-	@part_content.push(line)
-      end
-    end
-  end
-
-  @current_indent = @indent_stack.join("")
-  line = @src[@i]
-  case line
-  when false
-    if_current_indent_equal("") do
-      [false, false]
-    end
-  when /^=end/
-    if_current_indent_equal("") do
-      @in_part = nil
-      [:WHITELINE, "=end"] # MUST CHANGE??
-    end
-  when /^\s*$/
-    @i += 1 # next line
-    return [:WHITELINE, ':WHITELINE']
-  when /^\#/  # comment line
-    @i += 1 # next line
-    self.next_token()
-  when /^(={1,4})(?!=)\s*(?=\S)/, /^(\+{1,2})(?!\+)\s*(?=\S)/
-    rest = $'                    # '
-    rest.strip!
-    mark = $1
-    if_current_indent_equal("") do
-      return [:HEADLINE, [Headline.mark_to_level(mark), rest]]
-    end
-  when /^<<<\s*(\S+)/
-    file = $1
-    if_current_indent_equal("") do
-      suffix = file[-3 .. -1] 
-      if suffix == ".rd" or suffix == ".rb"
-	subtree = parse_subtree(get_included(file))
-	[:SUBTREE, subtree]
-      else
-	[:INCLUDE, file]
-      end
-    end
-  when /^(\s*)\*(\s*)/
-    rest = $'                   # '
-    newIndent = $2
-    if_current_indent_equal($1) do
-      if @in_verbatim
-	[:STRINGLINE, line]
-      else
-	@indent_stack.push("\s" << newIndent)
-	[:ITEMLISTLINE, rest]
-      end
-    end
-  when /^(\s*)(\(\d+\))(\s*)/
-    rest = $'                     # '
-    mark = $2
-    newIndent = $3
-    if_current_indent_equal($1) do
-      if @in_verbatim
-	[:STRINGLINE, line]
-      else
-	@indent_stack.push("\s" * mark.size << newIndent)
-	[:ENUMLISTLINE, rest]
-      end
-    end
-  when /^(\s*):(\s*)/
-    rest = $'                    # '
-    newIndent = $2
-    if_current_indent_equal($1) do
-      if @in_verbatim
-	[:STRINGLINE, line]
-      else
-	@indent_stack.push("\s" << $2)
-	[:DESCLISTLINE, rest]
-      end
-    end
-  when /^(\s*)---(?!-|\s*$)/
-    indent = $1
-    rest = $'
-    /\s*/ === rest
-    term = $'
-    new_indent = $&
-    if_current_indent_equal(indent) do
-      if @in_verbatim
-	[:STRINGLINE, line]
-      else
-	@indent_stack.push("\s\s\s" + new_indent)
-	[:METHODLISTLINE, term]
-      end
-    end
-  when /^(\s*)/
-    if_current_indent_equal($1) do
-      [:STRINGLINE, line]
-    end
-  else
-    raise "[BUG] parsing error may occured."
-  end
-end
-
-=begin private
-  --- RDParser#if_current_indent_equal(indent)
-        if (({@current_indent == ((|indent|))})) then yield block, otherwise
-        process indentation.
-=end
-# always @current_indent = @indent_stack.join("") 
-def if_current_indent_equal(indent)
-  indent = indent.sub(/\t/, "\s" * 8)
-  if @current_indent == indent
-    @i += 1 # next line
-    yield
-  elsif indent.index(@current_indent) == 0
-    @indent_stack.push(indent[@current_indent.size .. -1])
-    [:INDENT, ":INDENT"]
-  else
-    @indent_stack.pop
-    [:DEDENT, ":DEDENT"]
-  end
-end
-private :if_current_indent_equal
-
-def cut_off(src)
-  ret = []
-  whiteline_buf = []
-  line = src.shift
-  /^\s*/ =~ line
-  indent = Regexp.quote($&)
-  ret.push($')                 # '
-  while line = src.shift
-    if /^(\s*)$/ =~ line
-      whiteline_buf.push(line)
-    elsif /^#{indent}/ =~ line
-      unless whiteline_buf.empty?
-	ret.concat(whiteline_buf)
-	whiteline_buf.clear
-      end
-      ret.push($')            # '
-    else
-      raise "[BUG]: probably Parser Error while cutting off.\n"
-    end
-  end
-  ret
-end
-private :cut_off
-
-def set_term_to_element(parent, term)
-#  parent.set_term_under_document_struct(term, @tree.document_struct)
-  parent.set_term_without_document_struct(term)
-end
-private :set_term_to_element
-
-def on_error( et, ev, _values )
-  line = @src[@i]
-  prv, cur, nxt = format_line_num(@i, @i+1, @i+2)
-  
-  raise ParseError, <<Msg
-
-RD syntax error: line #{@i+1}:
-  #{prv}  |#{@src[@i-1].chomp}
-  #{cur}=>|#{@src[@i].chomp}
-  #{nxt}  |#{@src[@i+1].chomp}
-
-Msg
-end
-
-def line_index
-  @i
-end
-
-def parse_subtree(src)
-  @subparser = RD::RDParser.new() unless @subparser
-  
-  @subparser.parse(src, @tree)
-end
-private :parse_subtree
-
-def get_included(file)
-  included = ""
-  @tree.include_path.each do |dir|
-    file_name = dir + "/" + file
-    if test(?e, file_name)
-      included = IO.readlines(file_name)
-      break
-    end
-  end
-  included
-end
-private :get_included
-
-def format_line_num(*args)
-  width = args.collect{|i| i.to_s.length }.max
-  args.collect{|i| sprintf("%#{width}d", i) }
-end
-private :format_line_num
-
----- header
-require "rd/rdinlineparser.tab.rb"
-require "rd/parser-util"
-
-module RD
----- footer
-end # end of module RD