depager 0.1.9

data/lib/depager/Rakefile

@@ -0,0 +1,30 @@
+Dir.chdir(File.dirname(__FILE__))
+
+require 'rake/clean'
+
+task :default => [".extensions"]
+
+SRC = FileList["*.dr"]
+SRC.delete('lex.dr')
+SRC.unshift('lex.dr')
+OBJ = SRC.ext('rb')
+CLEAN.include(OBJ)
+# CLOBBER.include('extensions')
+PREFIX="../.."
+LIBDIR = "#{PREFIX}/lib"
+BINDIR = "#{PREFIX}/bin"
+
+SRC.each do |fn|
+  fn = fn.sub(/\.[^.]*$/, '')
+  file("#{fn}.rb" => [
+    "#{fn}.dr",
+    'template/extension_lalr_master.erb',
+    'template/extension_lalr_slave.erb',
+  ]) do
+    sh "ruby -I#{LIBDIR} #{BINDIR}/depager -g -o #{fn}.rb #{fn}.dr"
+  end
+end
+
+file ".extensions" => OBJ do
+  #sh "touch .extensions"
+end

data/lib/depager/action.rb

@@ -0,0 +1,47 @@
+require 'depager/parser.rb'
+require 'depager/parse_action.rb'
+
+class ActionExtension #:nodoc:all
+  include Depager::ExtensionUtils
+  include Depager::ActionParser
+  def initialize
+    @line0 = @line = @oldline = ''
+    @optouter = []
+    @on_reduce = []
+  end
+  
+  def modify_action_code code
+    return code, 0
+  end
+
+  def preRuleList
+    if g_parser.line0 =~ /^%ACTION\{\s*$/
+      while line = getline
+        break if line =~ /^%\}\s*$/
+        @optouter.push line
+      end
+      fixline ''
+      gettoken
+    end
+  end
+
+  def postRhs
+    if token[0] == '{'
+      @line0, @line = g_parser.line0, g_parser.oldline
+      lineno = g_parser.lineno
+      code, d = modify_action_code(parse_action)
+      @optouter <<
+        gen_defm_code("_act_#{nrules} val", code, lineno, d)
+      fixline @line
+      gettoken
+      @on_reduce[nrules] = ":_act_#{nrules}"
+    end
+  end
+
+  def postRuleList
+    g_parser.optouter <<
+      gen_action_decorator_code(
+        target_name, paramkey,
+        @on_reduce, @optouter, g_parser.mixin)
+  end
+end

data/lib/depager/ast_base.dr

@@ -0,0 +1,232 @@
+%defext ASTBuilderBaseExtension
+%extend Lexer ('depager/lex.rb')
+%extend NVAction ('depager/nvaction.rb')
+%decorate @NVAction
+#%decorate ShiftReducePrinter ('depager/srp.rb')
+%inner{
+  attr_accessor :optouter, :on_reduce, :visitor
+  def init_parser
+    super
+    @visitor = Hash.new{|hash, key| hash[key] = []}
+    @optouter = []
+    @on_reduce = []
+  end
+  def postRuleList
+    g_parser.optouter <<
+      gen_action_decorator_code(target_name, paramkey,
+                                @on_reduce, @optouter)
+  end
+%}
+%hook prerulelist /%AST\{\s*\Z/ skip
+%banner '%AST{ ... }'
+%mixin ActionParser ('depager/parse_action')
+%%
+
+%LEX{
+  /\s+/, /#.*/            { }
+  /%\}\s*\Z/              { @line = $'; yield nil,nil }
+  /Node/                  { yield _Token(:NODE, $&) }
+  /Visitor/               { yield _Token(:VISITOR, $&) }
+  /[a-zA-Z][a-zA-Z0-9_]*/ { yield _Token(:ID, $&) }
+  /\{/                    { ln = lineno; yield _Token(:ACTION, parse_action, ln); //=~'' }
+  /./                     { yield _Token($&, $&) }
+%}
+
+#begin-rule
+  start:
+      opt_defnode opt_defvis defnode_list
+      {
+        g_parser.optouter.push _opt_defnode, val[2]
+        g_parser.optouter.push %{
+          class Visitor
+            def visit node
+              node.accept(self)
+            end
+          #{master.visitor[nil]}
+          end
+        };#code
+        master.visitor.each do |k, v|
+          g_parser.optouter.push %{
+            class Visitor_#{k}
+            #{v}
+            end
+          } if k ;#code
+        end
+      }
+  ;
+  opt_defnode:
+      { "" }
+    | NODE opt_attr ACTION
+      {
+        ini = %{
+          def initialize
+            #{_ACTION.value}
+          end
+        };#code
+        master.gen_tmpl_code(:defnode, binding)
+      }
+  ;
+  opt_defvis:
+      { [] }
+    | VISITOR opt_action
+      {
+        _opt_action[nil] = Token['', 0] unless _opt_action[nil]
+        _opt_action.each do |pass, act|
+          master.visitor[pass].unshift(
+            master.gen_meval_code(act.lineno, 0, act.value.to_s))
+        end
+      }
+  ;
+  defnode_list:
+      defnode              { _defnode }
+    | defnode_list defnode { _defnode_list << _defnode}
+  ;
+  defnode:
+      defnode_header opt_attr opt_action
+      {
+        name, args = _defnode_header
+        nodes, accept, attrs = [], '', _opt_attr
+        args.each do |i|
+          if i =~ /\-(.*)/
+            nodes.push $1
+            attrs.push $1
+          else
+            nodes.push i
+            accept << master.gen_accept_code(i)
+          end
+        end
+        _opt_action[nil] = Token['', 0] unless _opt_action[nil]
+        _opt_action.each do |pass, act|
+          vis_code = master.modify_action_code(act.value, nodes - attrs)
+          master.visitor[pass] <<
+            master.gen_defm_code("visit_Node_#{name} node",
+                                 vis_code, act.lineno)
+        end
+        master.gen_tmpl_code(:node, binding)
+      }
+  ;
+  defnode_header:
+      ID '(' ')'           { [_ID.value, nil]}
+    | ID '(' fact_list ')' { [_ID.value, _fact_list] }
+  ;
+  opt_attr:                
+                           { [] }
+    | '[' ']'              { [] }
+    | '[' id_list ']'      { _id_list }
+  ;
+  fact_list:
+      fact                 { [_fact] }
+    | fact_list ',' fact   { _fact_list.push _fact }
+  ;
+  fact:
+      ID                   { _ID.value }
+    | '-' ID               { '-' + _ID.value }
+  ;
+  id_list:
+      ID                   { [ _ID.value ] }
+    | id_list ',' ID       { _id_list.push _ID.value }
+  ;
+  opt_action:   
+                           { {nil => Token['', 0]} }
+    | ACTION               { {nil => _ACTION} }
+    | pass_action_list
+      {
+        Hash.new(_pass_action_list).marge({nil => Token['', 0]})
+      }
+  ;
+  pass_action_list:
+      pass_action                  { _pass_action }
+    | pass_action_list pass_action { _pass_action_list << _pass_action }
+  ;
+
+  pass_action:
+      '<' ID '>' ACTION    { [_ID.value, _ACTION]}
+  ;
+#end-rule
+%%
+%hook postrhs
+%banner '=>...'
+%prec{
+  left LL '@'
+%}
+%%
+
+%LEX{
+  /[ \t]+/                { }
+  /\r?\n/               { yield nil, nil                 }
+  /<</                    { yield _Token(:LL, $&)          }
+  /=>/                    { yield _Token(:EG, $&)          }
+  /%([a-zA-Z0-9_]+)((::[a-zA-Z0-9_]+)*)/
+                          { yield _Token(:CONST, $1+$2)    }
+  /%\((.+)\)%/            { yield _Token(:EMBED, $1)       }
+  'nil'                   { yield _Token(:NIL, $&)         }
+  /[0-9]+/                { yield _Token(:NUMBER, $&.to_i) }
+  /:[a-zA-Z0-9_]+/        { yield _Token(:SYMBOL, $&)      }
+  /[a-zA-Z][a-zA-Z0-9_]*/ { yield _Token(:ID, $&)          }
+  /'(.+)'/                { yield _Token(:STR, $1)         }
+  /./                     { yield _Token($&, $&)           }
+%}
+#begin-rule
+  start: 
+      EG fnl
+      {
+        n = master.nrules
+        master.optouter <<
+          master.gen_defm_code("_ast_#{n} val", _fnl, _EG.lineno)
+        master.on_reduce[n] = ":_ast_#{n}"
+      }
+  ;
+  node:
+      ID '(' ')'         { "Node_#{_ID.value}.new(basis.file.lineno)" }
+    | ID '(' fnlpair ')' 
+      {
+        if g_parser.rhs.size > 0
+          "Node_#{_ID.value}.new(val[0].lineno, #{_fnlpair.join(', ')})" 
+        else
+          "Node_#{_ID.value}.new(basis.file.lineno, #{_fnlpair.join(', ')})" 
+        end
+      }
+  ;
+  fnlpair:
+      fnl                { [_fnl] }
+    | fnlpair ',' fnl    { _fnlpair << _fnl }
+  ;
+  fnl:
+      fact               { _fact }
+    | node               { _node }
+    | list               { _list }
+  ;
+  fact:
+      ID opt_embed
+      {
+        unless i = g_parser.name_to_rhs_index(val[0].value)
+          warn "#{g_parser.lineno}: ?#{val[0].value}"
+          raise
+        end
+        "val[#{i}]#{val[1]}"
+      }
+    | CONST              { "Depager::Token[#{_CONST.value}]" }
+    | SYMBOL             { "Depager::Token[#{_SYMBOL.value}]" }
+    | STR                { "Depager::Token['#{_STR.value}']" }
+    | NIL                { "nil" }
+    | NUMBER             { "Depager::Token[#{_NUMBER.value}]" }
+  ;
+  opt_embed:
+                         { '' }
+    | EMBED              { _EMBED.value }
+  ;
+  list:
+      '['']'             { "NodeList.new(basis.file.lineno, [])" }
+    | '['fnlpair']'        
+      {
+        if g_parser.rhs.size > 0
+          "NodeList.new(val[0].lineno, [#{_fnlpair.join(', ')}])"
+        else
+          "NodeList.new(basis.file.lineno, #{_fnlpair.join(', ')})" 
+        end
+      }
+    | fnl-l LL fnl-r     { "#{_l}.push(#{_r})" }
+    | fnl-l '@' fnl-r    { "#{_l}.concat(#{_r})" }
+  ;
+#end-rule
+%%

data/lib/depager/ast_base.rb

@@ -0,0 +1,1249 @@
+
+###
+### ASTBuilderBaseExtension - Depager Extension (master)
+###
+require 'pp.rb'
+require 'depager/parser.rb'
+require 'depager/parse_action'
+
+
+module D4ASTBuilderBaseExtension #:nodoc:all
+end
+
+class ASTBuilderBaseExtension #:nodoc:all
+  include Depager::ExtensionUtils
+  
+  attr_accessor :h2p
+
+  def initialize
+    @master = self
+    @hook = []
+    @h2p = {}
+    init_parser
+  end
+
+  def __regext__ p
+    super p, :default, nil
+    
+    @hook[0] = ASTBuilderBaseExtension_prerulelist.new(p, @nparam, self)
+    @h2p['prerulelist'] = @hook[0] 
+    p.prerulelist.push [@hook[0], :do_parse]
+    
+    @hook[1] = ASTBuilderBaseExtension_postrhs.new(p, @nparam, self)
+    @h2p['postrhs'] = @hook[1] 
+    p.postrhs.push [@hook[1], :do_parse]
+    
+    regext p
+  end
+
+  ### Inner Code
+  attr_accessor :optouter, :on_reduce, :visitor
+  def init_parser
+    super
+    @visitor = Hash.new{|hash, key| hash[key] = []}
+    @optouter = []
+    @on_reduce = []
+  end
+  def postRuleList
+    g_parser.optouter <<
+      gen_action_decorator_code(target_name, paramkey,
+                                @on_reduce, @optouter)
+  end
+
+end
+
+### Outer Code
+
+###
+### ASTBuilderBaseExtension_prerulelist - Part of Depager Extension (slave)
+###
+module D4ASTBuilderBaseExtension_prerulelist #:nodoc:all
+end
+
+class ASTBuilderBaseExtension_prerulelist < Basis #:nodoc:all
+  include Depager::ExtensionUtils
+  
+  include ActionParser
+
+  ### Reduce Table
+  reduce_table = [
+    [ -1, 1 ],
+    [ 0, 3 ],
+    [ 1, 0 ],
+    [ 1, 3 ],
+    [ 2, 0 ],
+    [ 2, 2 ],
+    [ 3, 1 ],
+    [ 3, 2 ],
+    [ 6, 3 ],
+    [ 7, 3 ],
+    [ 7, 4 ],
+    [ 4, 0 ],
+    [ 4, 2 ],
+    [ 4, 3 ],
+    [ 8, 1 ],
+    [ 8, 3 ],
+    [ 10, 1 ],
+    [ 10, 2 ],
+    [ 9, 1 ],
+    [ 9, 3 ],
+    [ 5, 0 ],
+    [ 5, 1 ],
+    [ 5, 1 ],
+    [ 11, 1 ],
+    [ 11, 2 ],
+    [ 12, 4 ],
+  ]
+  ### Extension Params
+  nparams = {
+    'NVAction' => 2, 
+  }
+  ### Term to Int
+  t2i = {
+    nil => 0, 
+    false => 1, 
+    :NODE => 2, 
+    :ACTION => 3, 
+    :VISITOR => 4, 
+    :ID => 5, 
+    "(" => 6, 
+    ")" => 7, 
+    "[" => 8, 
+    "]" => 9, 
+    "," => 10, 
+    "-" => 11, 
+    "<" => 12, 
+    ">" => 13, 
+  }
+  ### Int to Term
+  i2t = [
+    nil, 
+    false, 
+    :NODE, 
+    :ACTION, 
+    :VISITOR, 
+    :ID, 
+    "(", 
+    ")", 
+    "[", 
+    "]", 
+    ",", 
+    "-", 
+    "<", 
+    ">", 
+  ]
+  ### Action Table
+  action_table = [
+    [ nil, nil, 1, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, 5, nil, nil, nil, nil, nil, ], 
+    [ ACC, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, 6, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, 8, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, 10, nil, nil, nil, 9, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, 12, nil, nil, nil, nil, nil, nil, nil, nil, 16, nil, ], 
+    [ nil, nil, nil, nil, nil, 18, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, 21, 22, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 16, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, 24, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, 25, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, 5, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, 18, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, 28, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 29, ], 
+    [ nil, nil, nil, nil, nil, 31, nil, 34, nil, nil, nil, 32, nil, nil, ], 
+    [ nil, nil, nil, 12, nil, nil, nil, nil, nil, nil, nil, nil, 16, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, 36, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, 37, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, 39, nil, nil, 38, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, 31, nil, nil, nil, nil, nil, 32, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+  ]
+  ### Default Reduce Table
+  defred_table = [
+    -2, 
+    -11, 
+    nil, 
+    -4, 
+    nil, 
+    nil, 
+    -20, 
+    nil, 
+    -3, 
+    -12, 
+    -18, 
+    nil, 
+    -21, 
+    -5, 
+    -22, 
+    -23, 
+    nil, 
+    -6, 
+    nil, 
+    -11, 
+    -1, 
+    -13, 
+    nil, 
+    -24, 
+    nil, 
+    nil, 
+    -20, 
+    -7, 
+    -19, 
+    nil, 
+    -14, 
+    -16, 
+    nil, 
+    nil, 
+    -9, 
+    -8, 
+    -25, 
+    -17, 
+    nil, 
+    -10, 
+    -15, 
+  ]
+  defred_after_shift_table = [
+    nil, 
+    nil, 
+    nil, 
+    nil, 
+    nil, 
+    nil, 
+    nil, 
+    nil, 
+    -3, 
+    -12, 
+    -18, 
+    nil, 
+    -21, 
+    -5, 
+    nil, 
+    -23, 
+    nil, 
+    -6, 
+    nil, 
+    nil, 
+    nil, 
+    -13, 
+    nil, 
+    -24, 
+    nil, 
+    nil, 
+    nil, 
+    -7, 
+    -19, 
+    nil, 
+    -14, 
+    -16, 
+    nil, 
+    nil, 
+    -9, 
+    -8, 
+    -25, 
+    -17, 
+    nil, 
+    -10, 
+    -15, 
+  ]
+  ### Nonterm to Int
+  nt2i = { 
+    :start => 0,  
+    :opt_defnode => 1,  
+    :opt_defvis => 2,  
+    :defnode_list => 3,  
+    :opt_attr => 4,  
+    :opt_action => 5,  
+    :defnode => 6,  
+    :defnode_header => 7,  
+    :fact_list => 8,  
+    :id_list => 9,  
+    :fact => 10,  
+    :pass_action_list => 11,  
+    :pass_action => 12, 
+  }
+  ### Int to Nonterm
+  i2nt = [
+    :start, 
+    :opt_defnode, 
+    :opt_defvis, 
+    :defnode_list, 
+    :opt_attr, 
+    :opt_action, 
+    :defnode, 
+    :defnode_header, 
+    :fact_list, 
+    :id_list, 
+    :fact, 
+    :pass_action_list, 
+    :pass_action, 
+  ]
+  ### Goto Table
+  goto_table = [ 
+   [ 2, 3, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, 4, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, 7, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, 11, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, 13, nil, nil, nil, nil, nil, 14, 15, ], 
+   [ nil, nil, nil, 20, nil, nil, 17, 19, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 23, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, 26, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, 27, 19, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, 33, nil, 30, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, 35, nil, nil, nil, nil, nil, 14, 15, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 40, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+  ]
+
+  Tables = [ reduce_table, nparams, action_table,
+             defred_table, defred_after_shift_table, goto_table,
+             t2i, i2t, nt2i, i2nt ]
+
+  attr_accessor :p, :m
+  def initialize p, nparam, master = nil
+    super()
+    @g_parser = @p = p
+    @master   = @m = master
+    @nparam   = nparam
+    @dect     = D4ASTBuilderBaseExtension_prerulelist::NVAction.new(self)
+    init_parser
+  end
+
+  
+  def do_parse?
+    if @line =~ /^\s*%AST\{\s*\Z/
+       @line = $' 
+      true
+    else
+      false
+    end
+  end
+  
+
+  def banner
+    "%AST{ ... } / #{@master.class.name}" 
+  end
+
+  ### Inner Code
+
+          def lex
+            begin
+              until @line.empty? do
+                case @line
+                  when /\A\s+/, /\A#.*/
+     
+when /\A%\}\s*\Z/
+     @line = $'; yield nil,nil 
+when /\ANode/
+     yield _Token(:NODE, $&) 
+when /\AVisitor/
+     yield _Token(:VISITOR, $&) 
+when /\A[a-zA-Z][a-zA-Z0-9_]*/
+     yield _Token(:ID, $&) 
+when /\A\{/
+     ln = lineno; yield _Token(:ACTION, parse_action, ln); //=~'' 
+when /\A./
+     yield _Token($&, $&) 
+
+                else
+                  raise RuntimeError, "must not happen #{@line}"
+                end
+                @oldline = @line
+                @line = $'
+              end
+            end while @line = getline
+            yield nil, nil
+          end
+        
+end
+
+### Outer Code
+
+class D4ASTBuilderBaseExtension_prerulelist::NVAction < Depager::Action #:nodoc:all
+  include Depager::DecoratorUtils
+          include ActionParser
+
+  on_reduce = [
+    nil,
+              :_act_0,
+  :_act_1,
+  :_act_2,
+  :_act_3,
+  :_act_4,
+  :_act_5,
+  :_act_6,
+  :_act_7,
+  :_act_8,
+  :_act_9,
+  :_act_10,
+  :_act_11,
+  :_act_12,
+  :_act_13,
+  :_act_14,
+  :_act_15,
+  :_act_16,
+  :_act_17,
+  :_act_18,
+  :_act_19,
+  :_act_20,
+  :_act_21,
+  :_act_22,
+  :_act_23,
+  :_act_24,
+
+  ]
+  Tables = [on_reduce]
+  def initialize inside
+    super inside, 'NVAction'
+    @on_reduce, = self.class::Tables
+    init_parser
+  end
+  
+
+module_eval <<-'.,.,11802814595060.,.,', 'ast_base.dr', 36
+  def _act_0 val
+    _opt_defnode, _opt_defvis, _defnode_list = *val 
+
+        g_parser.optouter.push _opt_defnode, val[2]
+        g_parser.optouter.push %{
+          class Visitor
+            def visit node
+              node.accept(self)
+            end
+          #{master.visitor[nil]}
+          end
+        };#code
+        master.visitor.each do |k, v|
+          g_parser.optouter.push %{
+            class Visitor_#{k}
+            #{v}
+            end
+          } if k ;#code
+        end
+
+  end
+
+.,.,11802814595060.,.,
+      
+module_eval <<-'.,.,118028145910468.,.,', 'ast_base.dr', 56
+  def _act_1 val
+     "" 
+
+  end
+
+.,.,118028145910468.,.,
+      
+module_eval <<-'.,.,118028145948978.,.,', 'ast_base.dr', 58
+  def _act_2 val
+    _NODE, _opt_attr, _ACTION = *val 
+
+        ini = %{
+          def initialize
+            #{_ACTION.value}
+          end
+        };#code
+        master.gen_tmpl_code(:defnode, binding)
+
+  end
+
+.,.,118028145948978.,.,
+      
+module_eval <<-'.,.,118028145959009.,.,', 'ast_base.dr', 68
+  def _act_3 val
+     [] 
+
+  end
+
+.,.,118028145959009.,.,
+      
+module_eval <<-'.,.,118028145914706.,.,', 'ast_base.dr', 70
+  def _act_4 val
+    _VISITOR, _opt_action = *val 
+
+        _opt_action[nil] = Token['', 0] unless _opt_action[nil]
+        _opt_action.each do |pass, act|
+          master.visitor[pass].unshift(
+            master.gen_meval_code(act.lineno, 0, act.value.to_s))
+        end
+
+  end
+
+.,.,118028145914706.,.,
+      
+module_eval <<-'.,.,118028145935339.,.,', 'ast_base.dr', 79
+  def _act_5 val
+    _defnode = *val 
+     _defnode 
+
+  end
+
+.,.,118028145935339.,.,
+      
+module_eval <<-'.,.,11802814593872.,.,', 'ast_base.dr', 80
+  def _act_6 val
+    _defnode_list, _defnode = *val 
+     _defnode_list << _defnode
+
+  end
+
+.,.,11802814593872.,.,
+      
+module_eval <<-'.,.,118028145918044.,.,', 'ast_base.dr', 84
+  def _act_7 val
+    _defnode_header, _opt_attr, _opt_action = *val 
+
+        name, args = _defnode_header
+        nodes, accept, attrs = [], '', _opt_attr
+        args.each do |i|
+          if i =~ /\-(.*)/
+            nodes.push $1
+            attrs.push $1
+          else
+            nodes.push i
+            accept << master.gen_accept_code(i)
+          end
+        end
+        _opt_action[nil] = Token['', 0] unless _opt_action[nil]
+        _opt_action.each do |pass, act|
+          vis_code = master.modify_action_code(act.value, nodes - attrs)
+          master.visitor[pass] <<
+            master.gen_defm_code("visit_Node_#{name} node",
+                                 vis_code, act.lineno)
+        end
+        master.gen_tmpl_code(:node, binding)
+
+  end
+
+.,.,118028145918044.,.,
+      
+module_eval <<-'.,.,118028145922702.,.,', 'ast_base.dr', 107
+  def _act_8 val
+    _ID, _, _ = *val 
+     [_ID.value, nil]
+
+  end
+
+.,.,118028145922702.,.,
+      
+module_eval <<-'.,.,118028145943087.,.,', 'ast_base.dr', 108
+  def _act_9 val
+    _ID, _, _fact_list, _ = *val 
+     [_ID.value, _fact_list] 
+
+  end
+
+.,.,118028145943087.,.,
+      
+module_eval <<-'.,.,118028145952231.,.,', 'ast_base.dr', 111
+  def _act_10 val
+     [] 
+
+  end
+
+.,.,118028145952231.,.,
+      
+module_eval <<-'.,.,118028145935942.,.,', 'ast_base.dr', 112
+  def _act_11 val
+    _, _ = *val 
+     [] 
+
+  end
+
+.,.,118028145935942.,.,
+      
+module_eval <<-'.,.,11802814593749.,.,', 'ast_base.dr', 113
+  def _act_12 val
+    _, _id_list, _ = *val 
+     _id_list 
+
+  end
+
+.,.,11802814593749.,.,
+      
+module_eval <<-'.,.,118028145926271.,.,', 'ast_base.dr', 116
+  def _act_13 val
+    _fact = *val 
+     [_fact] 
+
+  end
+
+.,.,118028145926271.,.,
+      
+module_eval <<-'.,.,118028145923579.,.,', 'ast_base.dr', 117
+  def _act_14 val
+    _fact_list, _, _fact = *val 
+     _fact_list.push _fact 
+
+  end
+
+.,.,118028145923579.,.,
+      
+module_eval <<-'.,.,118028145926511.,.,', 'ast_base.dr', 120
+  def _act_15 val
+    _ID = *val 
+     _ID.value 
+
+  end
+
+.,.,118028145926511.,.,
+      
+module_eval <<-'.,.,118028145913425.,.,', 'ast_base.dr', 121
+  def _act_16 val
+    _, _ID = *val 
+     '-' + _ID.value 
+
+  end
+
+.,.,118028145913425.,.,
+      
+module_eval <<-'.,.,118028145915593.,.,', 'ast_base.dr', 124
+  def _act_17 val
+    _ID = *val 
+     [ _ID.value ] 
+
+  end
+
+.,.,118028145915593.,.,
+      
+module_eval <<-'.,.,118028145940054.,.,', 'ast_base.dr', 125
+  def _act_18 val
+    _id_list, _, _ID = *val 
+     _id_list.push _ID.value 
+
+  end
+
+.,.,118028145940054.,.,
+      
+module_eval <<-'.,.,118028145930606.,.,', 'ast_base.dr', 128
+  def _act_19 val
+     {nil => Token['', 0]} 
+
+  end
+
+.,.,118028145930606.,.,
+      
+module_eval <<-'.,.,118028145946101.,.,', 'ast_base.dr', 129
+  def _act_20 val
+    _ACTION = *val 
+     {nil => _ACTION} 
+
+  end
+
+.,.,118028145946101.,.,
+      
+module_eval <<-'.,.,11802814595489.,.,', 'ast_base.dr', 131
+  def _act_21 val
+    _pass_action_list = *val 
+
+        Hash.new(_pass_action_list).marge({nil => Token['', 0]})
+
+  end
+
+.,.,11802814595489.,.,
+      
+module_eval <<-'.,.,118028145917240.,.,', 'ast_base.dr', 136
+  def _act_22 val
+    _pass_action = *val 
+     _pass_action 
+
+  end
+
+.,.,118028145917240.,.,
+      
+module_eval <<-'.,.,118028145943695.,.,', 'ast_base.dr', 137
+  def _act_23 val
+    _pass_action_list, _pass_action = *val 
+     _pass_action_list << _pass_action 
+
+  end
+
+.,.,118028145943695.,.,
+      
+module_eval <<-'.,.,118028145933103.,.,', 'ast_base.dr', 141
+  def _act_24 val
+    _, _ID, _, _ACTION = *val 
+     [_ID.value, _ACTION]
+
+  end
+
+.,.,118028145933103.,.,
+      
+end
+      
+
+###
+### ASTBuilderBaseExtension_postrhs - Part of Depager Extension (slave)
+###
+module D4ASTBuilderBaseExtension_postrhs #:nodoc:all
+end
+
+class ASTBuilderBaseExtension_postrhs < Basis #:nodoc:all
+  include Depager::ExtensionUtils
+  
+
+  ### Reduce Table
+  reduce_table = [
+    [ -1, 1 ],
+    [ 0, 2 ],
+    [ 2, 3 ],
+    [ 2, 4 ],
+    [ 3, 1 ],
+    [ 3, 3 ],
+    [ 1, 1 ],
+    [ 1, 1 ],
+    [ 1, 1 ],
+    [ 4, 2 ],
+    [ 4, 1 ],
+    [ 4, 1 ],
+    [ 4, 1 ],
+    [ 4, 1 ],
+    [ 4, 1 ],
+    [ 6, 0 ],
+    [ 6, 1 ],
+    [ 5, 2 ],
+    [ 5, 3 ],
+    [ 5, 3 ],
+    [ 5, 3 ],
+  ]
+  ### Extension Params
+  nparams = {
+    'NVAction' => 2, 
+  }
+  ### Term to Int
+  t2i = {
+    nil => 0, 
+    false => 1, 
+    :EG => 2, 
+    :ID => 3, 
+    "(" => 4, 
+    ")" => 5, 
+    "," => 6, 
+    :CONST => 7, 
+    :SYMBOL => 8, 
+    :STR => 9, 
+    :NIL => 10, 
+    :NUMBER => 11, 
+    :EMBED => 12, 
+    "[" => 13, 
+    "]" => 14, 
+    :LL => 15, 
+    "@" => 16, 
+  }
+  ### Int to Term
+  i2t = [
+    nil, 
+    false, 
+    :EG, 
+    :ID, 
+    "(", 
+    ")", 
+    ",", 
+    :CONST, 
+    :SYMBOL, 
+    :STR, 
+    :NIL, 
+    :NUMBER, 
+    :EMBED, 
+    "[", 
+    "]", 
+    :LL, 
+    "@", 
+  ]
+  ### Action Table
+  action_table = [
+    [ nil, nil, 2, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ ACC, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, 5, nil, nil, nil, 12, 3, 6, 8, 10, nil, 13, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, 14, nil, nil, nil, nil, nil, nil, nil, 16, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 17, 18, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, 5, nil, nil, nil, 12, 3, 6, 8, 10, nil, 13, 19, nil, nil, ], 
+    [ nil, nil, nil, 5, nil, 22, nil, 12, 3, 6, 8, 10, nil, 13, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, 5, nil, nil, nil, 12, 3, 6, 8, 10, nil, 13, nil, nil, nil, ], 
+    [ nil, nil, nil, 5, nil, nil, nil, 12, 3, 6, 8, 10, nil, 13, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 17, 18, ], 
+    [ nil, nil, nil, nil, nil, nil, 27, nil, nil, nil, nil, nil, nil, nil, 26, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, 28, 27, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 17, 18, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 17, 18, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, 5, nil, nil, nil, 12, 3, 6, 8, 10, nil, 13, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 17, 18, ], 
+  ]
+  ### Default Reduce Table
+  defred_table = [
+    nil, 
+    nil, 
+    nil, 
+    -11, 
+    -6, 
+    -15, 
+    -12, 
+    -8, 
+    -13, 
+    -1, 
+    -14, 
+    -7, 
+    -10, 
+    nil, 
+    nil, 
+    -9, 
+    -16, 
+    nil, 
+    nil, 
+    -17, 
+    -4, 
+    nil, 
+    -2, 
+    nil, 
+    -19, 
+    -20, 
+    -18, 
+    nil, 
+    -3, 
+    -5, 
+  ]
+  defred_after_shift_table = [
+    nil, 
+    nil, 
+    nil, 
+    -11, 
+    -6, 
+    nil, 
+    -12, 
+    -8, 
+    -13, 
+    nil, 
+    -14, 
+    -7, 
+    -10, 
+    nil, 
+    nil, 
+    -9, 
+    -16, 
+    nil, 
+    nil, 
+    -17, 
+    nil, 
+    nil, 
+    -2, 
+    nil, 
+    nil, 
+    nil, 
+    -18, 
+    nil, 
+    -3, 
+    nil, 
+  ]
+  ### Nonterm to Int
+  nt2i = { 
+    :start => 0,  
+    :fnl => 1,  
+    :node => 2,  
+    :fnlpair => 3,  
+    :fact => 4,  
+    :list => 5,  
+    :opt_embed => 6, 
+  }
+  ### Int to Nonterm
+  i2nt = [
+    :start, 
+    :fnl, 
+    :node, 
+    :fnlpair, 
+    :fact, 
+    :list, 
+    :opt_embed, 
+  ]
+  ### Goto Table
+  goto_table = [ 
+   [ 1, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, 9, 11, nil, 4, 7, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, 15, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, 20, 11, 21, 4, 7, nil, ], 
+   [ nil, 20, 11, 23, 4, 7, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, 24, 11, nil, 4, 7, nil, ], 
+   [ nil, 25, 11, nil, 4, 7, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, 29, 11, nil, 4, 7, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+   [ nil, nil, nil, nil, nil, nil, nil, ], 
+  ]
+
+  Tables = [ reduce_table, nparams, action_table,
+             defred_table, defred_after_shift_table, goto_table,
+             t2i, i2t, nt2i, i2nt ]
+
+  attr_accessor :p, :m
+  def initialize p, nparam, master = nil
+    super()
+    @g_parser = @p = p
+    @master   = @m = master
+    @nparam   = nparam
+    @dect     = D4ASTBuilderBaseExtension_postrhs::NVAction.new(self)
+    init_parser
+  end
+
+  
+
+  def banner
+    "=>... / #{@master.class.name}" 
+  end
+
+  ### Inner Code
+
+          def lex
+            begin
+              until @line.empty? do
+                case @line
+                  when /\A[ \t]+/
+     
+when /\A\r?\n/
+     yield nil, nil                 
+when /\A<</
+     yield _Token(:LL, $&)          
+when /\A=>/
+     yield _Token(:EG, $&)          
+when /\A%([a-zA-Z0-9_]+)((::[a-zA-Z0-9_]+)*)/
+     yield _Token(:CONST, $1+$2)    
+when /\A%\((.+)\)%/
+     yield _Token(:EMBED, $1)       
+when /\Anil/
+     yield _Token(:NIL, $&)         
+when /\A[0-9]+/
+     yield _Token(:NUMBER, $&.to_i) 
+when /\A:[a-zA-Z0-9_]+/
+     yield _Token(:SYMBOL, $&)      
+when /\A[a-zA-Z][a-zA-Z0-9_]*/
+     yield _Token(:ID, $&)          
+when /\A'(.+)'/
+     yield _Token(:STR, $1)         
+when /\A./
+     yield _Token($&, $&)           
+
+                else
+                  raise RuntimeError, "must not happen #{@line}"
+                end
+                @oldline = @line
+                @line = $'
+              end
+            end while @line = getline
+            yield nil, nil
+          end
+        
+end
+
+### Outer Code
+
+class D4ASTBuilderBaseExtension_postrhs::NVAction < Depager::Action #:nodoc:all
+  include Depager::DecoratorUtils
+  
+  on_reduce = [
+    nil,
+              :_act_0,
+  :_act_1,
+  :_act_2,
+  :_act_3,
+  :_act_4,
+  :_act_5,
+  :_act_6,
+  :_act_7,
+  :_act_8,
+  :_act_9,
+  :_act_10,
+  :_act_11,
+  :_act_12,
+  :_act_13,
+  :_act_14,
+  :_act_15,
+  :_act_16,
+  :_act_17,
+  :_act_18,
+  :_act_19,
+
+  ]
+  Tables = [on_reduce]
+  def initialize inside
+    super inside, 'NVAction'
+    @on_reduce, = self.class::Tables
+    init_parser
+  end
+  
+
+module_eval <<-'.,.,118028145920523.,.,', 'ast_base.dr', 170
+  def _act_0 val
+    _EG, _fnl = *val 
+
+        n = master.nrules
+        master.optouter <<
+          master.gen_defm_code("_ast_#{n} val", _fnl, _EG.lineno)
+        master.on_reduce[n] = ":_ast_#{n}"
+
+  end
+
+.,.,118028145920523.,.,
+      
+module_eval <<-'.,.,118028145933310.,.,', 'ast_base.dr', 178
+  def _act_1 val
+    _ID, _, _ = *val 
+     "Node_#{_ID.value}.new(basis.file.lineno)" 
+
+  end
+
+.,.,118028145933310.,.,
+      
+module_eval <<-'.,.,118028145931729.,.,', 'ast_base.dr', 180
+  def _act_2 val
+    _ID, _, _fnlpair, _ = *val 
+
+        if g_parser.rhs.size > 0
+          "Node_#{_ID.value}.new(val[0].lineno, #{_fnlpair.join(', ')})" 
+        else
+          "Node_#{_ID.value}.new(basis.file.lineno, #{_fnlpair.join(', ')})" 
+        end
+
+  end
+
+.,.,118028145931729.,.,
+      
+module_eval <<-'.,.,118028145932240.,.,', 'ast_base.dr', 189
+  def _act_3 val
+    _fnl = *val 
+     [_fnl] 
+
+  end
+
+.,.,118028145932240.,.,
+      
+module_eval <<-'.,.,11802814592286.,.,', 'ast_base.dr', 190
+  def _act_4 val
+    _fnlpair, _, _fnl = *val 
+     _fnlpair << _fnl 
+
+  end
+
+.,.,11802814592286.,.,
+      
+module_eval <<-'.,.,118028145958117.,.,', 'ast_base.dr', 193
+  def _act_5 val
+    _fact = *val 
+     _fact 
+
+  end
+
+.,.,118028145958117.,.,
+      
+module_eval <<-'.,.,118028145929246.,.,', 'ast_base.dr', 194
+  def _act_6 val
+    _node = *val 
+     _node 
+
+  end
+
+.,.,118028145929246.,.,
+      
+module_eval <<-'.,.,11802814599659.,.,', 'ast_base.dr', 195
+  def _act_7 val
+    _list = *val 
+     _list 
+
+  end
+
+.,.,11802814599659.,.,
+      
+module_eval <<-'.,.,11802814595130.,.,', 'ast_base.dr', 199
+  def _act_8 val
+    _ID, _opt_embed = *val 
+
+        unless i = g_parser.name_to_rhs_index(val[0].value)
+          warn "#{g_parser.lineno}: ?#{val[0].value}"
+          raise
+        end
+        "val[#{i}]#{val[1]}"
+
+  end
+
+.,.,11802814595130.,.,
+      
+module_eval <<-'.,.,118028145918865.,.,', 'ast_base.dr', 206
+  def _act_9 val
+    _CONST = *val 
+     "Depager::Token[#{_CONST.value}]" 
+
+  end
+
+.,.,118028145918865.,.,
+      
+module_eval <<-'.,.,118028145942743.,.,', 'ast_base.dr', 207
+  def _act_10 val
+    _SYMBOL = *val 
+     "Depager::Token[#{_SYMBOL.value}]" 
+
+  end
+
+.,.,118028145942743.,.,
+      
+module_eval <<-'.,.,118028145949711.,.,', 'ast_base.dr', 208
+  def _act_11 val
+    _STR = *val 
+     "Depager::Token['#{_STR.value}']" 
+
+  end
+
+.,.,118028145949711.,.,
+      
+module_eval <<-'.,.,118028145937354.,.,', 'ast_base.dr', 209
+  def _act_12 val
+    _NIL = *val 
+     "nil" 
+
+  end
+
+.,.,118028145937354.,.,
+      
+module_eval <<-'.,.,11802814595860.,.,', 'ast_base.dr', 210
+  def _act_13 val
+    _NUMBER = *val 
+     "Depager::Token[#{_NUMBER.value}]" 
+
+  end
+
+.,.,11802814595860.,.,
+      
+module_eval <<-'.,.,118028145945394.,.,', 'ast_base.dr', 213
+  def _act_14 val
+     '' 
+
+  end
+
+.,.,118028145945394.,.,
+      
+module_eval <<-'.,.,11802814596768.,.,', 'ast_base.dr', 214
+  def _act_15 val
+    _EMBED = *val 
+     _EMBED.value 
+
+  end
+
+.,.,11802814596768.,.,
+      
+module_eval <<-'.,.,118028145922451.,.,', 'ast_base.dr', 217
+  def _act_16 val
+    _, _ = *val 
+     "NodeList.new(basis.file.lineno, [])" 
+
+  end
+
+.,.,118028145922451.,.,
+      
+module_eval <<-'.,.,118028145947303.,.,', 'ast_base.dr', 219
+  def _act_17 val
+    _, _fnlpair, _ = *val 
+
+        if g_parser.rhs.size > 0
+          "NodeList.new(val[0].lineno, [#{_fnlpair.join(', ')}])"
+        else
+          "NodeList.new(basis.file.lineno, #{_fnlpair.join(', ')})" 
+        end
+
+  end
+
+.,.,118028145947303.,.,
+      
+module_eval <<-'.,.,118028145933697.,.,', 'ast_base.dr', 226
+  def _act_18 val
+    _l, _LL, _r = *val 
+     "#{_l}.push(#{_r})" 
+
+  end
+
+.,.,118028145933697.,.,
+      
+module_eval <<-'.,.,118028145918237.,.,', 'ast_base.dr', 227
+  def _act_19 val
+    _l, _, _r = *val 
+     "#{_l}.concat(#{_r})" 
+
+  end
+
+.,.,118028145918237.,.,
+      
+end
+      
+