rdtool 0.6.23

data/lib/rd/rd2html-opt.rb

@@ -0,0 +1,67 @@
+=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/lib/rd/rd2man-lib.rb

@@ -0,0 +1,241 @@
+=begin
+= rd/rd2man-lib.rb
+=end
+
+require "rd/rdvisitor"
+
+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: 0.6.23$" #"
+    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 = @filename || ARGF.filename || "Untitled"
+      title = File.basename title
+      title = title.sub(/\.rd$/i, '')
+      <<"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)
+      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}"
+      else
+        %[.TP\n.fi\n.B\n#{term}\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}"
+      else
+        %[.TP\n.fi\n.B\n#{term}\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
+
+  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 WATANABE Hirofumi <eban@os.rim.or.jp>, 2000
+=end

data/lib/rd/rd2rdo-lib.rb

@@ -0,0 +1,19 @@
+=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/lib/rd/rd2rmi-lib.rb

@@ -0,0 +1,32 @@
+=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/lib/rd/rdblockparser.ry

@@ -0,0 +1,518 @@
+
+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(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