depager 0.2.3 → 0.3.0.b20250423

data/lib/depager/ruby/plugins/ast.rb

@@ -1,1308 +0,0 @@
-
-###
-### ASTBuilderExtension - Depager Extension (master)
-###
-require 'pp.rb'
-require 'depager/parser.rb'
-
-
-module D4ASTBuilderExtension #:nodoc:all
-end
-
-class ASTBuilderExtension #: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] = ASTBuilderExtension_post_rhs.new(p, @nparam, self)
-    @h2p['post_rhs'] = @hook[0] 
-    p.hooks[:post_rhs].push [@hook[0], :do_parse]
-    
-    @hook[1] = ASTBuilderExtension_pre_rule_list.new(p, @nparam, self)
-    @h2p['pre_rule_list'] = @hook[1] 
-    p.hooks[:pre_rule_list].push [@hook[1], :do_parse]
-    
-    regext p
-  end
-
-  ### Inner Code
-  require 'plugins/_ast_tmpl'
-  attr_accessor :optouter, :on_reduce, :visitor
-  def init_parser
-    super
-    @visitor = Hash.new{|hash, key| hash[key] = []}
-    @optouter = []
-    @on_reduce = []
-    @output_file_name = nil
-  end
-  def post_rule_list
-    g_parser.optouter <<
-      gen_action_decorator_code(target_name, paramkey,
-                                @on_reduce, @optouter)
-  end
-
-  def modify_action_code code, nodes=[]
-    code = code.gsub(/\$\.([a-z_])/, 'node.\1')
-    code << %{
-      rescue
-        warn "raise at src:\#{node.lineno}/\#{node.class.name}"
-        raise
-    }
-  end
-  def gen_accept_code sym
-    return ''
-  end
-
-  attr_reader :output_file_name
-  def output_file_name= ofname
-    ofname = ofname.match(/'(.+)'/) ? $1 : ofname
-    @output_file_name = ofname
-  end
-
-end
-
-### Outer Code
-
-###
-### ASTBuilderExtension_pre_rule_list - Part of Depager Extension (slave)
-###
-module D4ASTBuilderExtension_pre_rule_list #:nodoc:all
-end
-
-class ASTBuilderExtension_pre_rule_list < Depager::LALR::Basis #:nodoc:all
-  include Depager::ExtensionUtils
-  
-
-  ### 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     = D4ASTBuilderExtension_pre_rule_list::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?
-                case @line
-                
-          when /\A\s+/, /\A#.*/
-            @oldline = @line; @line = $'
-                 
-
-        
-          when /\A%\}\s*\Z/
-            @oldline = @line; @line = $'
-                 @line = $'; yield nil,nil 
-
-        
-          when /\ANode/
-            @oldline = @line; @line = $'
-                 yield token(:NODE, $&) 
-
-        
-          when /\AVisitor/
-            @oldline = @line; @line = $'
-                 yield token(:VISITOR, $&) 
-
-        
-          when /\A[a-zA-Z][a-zA-Z0-9_]*/
-            @oldline = @line; @line = $'
-                 yield token(:ID, $&) 
-
-        
-          when /\A\{/
-            #
-                 ln = lineno; yield token(:ACTION, parse_action, ln) 
-
-        
-          when /\A./
-            @oldline = @line; @line = $'
-                 yield token($&, $&) 
-
-        
-                else
-                  raise RuntimeError, "must not happen #{@line}"
-                end
-              end
-            end while @line0 = @line = getline
-            yield nil, nil
-          end
-        
-end
-
-### Outer Code
-
-class D4ASTBuilderExtension_pre_rule_list::NVAction < Depager::LALR::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,
-  :_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 <<-'.,.,122745803347277.,.,', 'ast.dr', 55
-def _act_0 val
-    _opt_defnode, _opt_defvis, _defnode_list, = *val 
-
-        code = _opt_defnode
-        code << val[2] << %{
-          class Visitor
-            def visit node
-              node.accept(self)
-            end
-          #{master.visitor[nil].join}
-          end
-        };#code
-        master.visitor.each do |k, v|
-          next unless k
-          code << %{
-            class Visitor_#{k}
-            #{v.join}
-            end
-          };#code
-        end
-        if master.output_file_name
-          File.open(master.output_file_name, 'w') do |f|
-            f.write code
-          end
-          g_parser.optouter << %!require '#{master.output_file_name}'\n!
-        else
-          g_parser.optouter << code
-        end
-
-end
-.,.,122745803347277.,.,
-      
-module_eval <<-'.,.,122745803338304.,.,', 'ast.dr', 84
-def _act_1 val
-     "" 
-
-end
-.,.,122745803338304.,.,
-      
-module_eval <<-'.,.,122745803334064.,.,', 'ast.dr', 86
-def _act_2 val
-    _NODE, _opt_attr, _ACTION, = *val 
-
-        ini = %{
-          def initialize
-            #{_ACTION.value}
-          end
-        };#code
-        ERB.new(master.class::TMPL_NODE_BASE).result(binding)
-
-end
-.,.,122745803334064.,.,
-      
-module_eval <<-'.,.,122745803350390.,.,', 'ast.dr', 96
-def _act_3 val
-     [] 
-
-end
-.,.,122745803350390.,.,
-      
-module_eval <<-'.,.,122745803327135.,.,', 'ast.dr', 98
-def _act_4 val
-    _VISITOR, _opt_action, = *val 
-
-        _opt_action[nil] ||= Token['', 0]
-        _opt_action.each do |pass, act|
-          master.visitor[pass].unshift(
-            master.gen_meval_code(act.lineno, 0, act.value.to_s))
-        end
-
-end
-.,.,122745803327135.,.,
-      
-module_eval <<-'.,.,1227458033227.,.,', 'ast.dr', 107
-def _act_5 val
-    _defnode, = *val 
-     _defnode 
-
-end
-.,.,1227458033227.,.,
-      
-module_eval <<-'.,.,122745803349542.,.,', 'ast.dr', 108
-def _act_6 val
-    _defnode_list, _defnode, = *val 
-     _defnode_list << _defnode
-
-end
-.,.,122745803349542.,.,
-      
-module_eval <<-'.,.,122745803342203.,.,', 'ast.dr', 112
-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
-        ERB.new(master.class::TMPL_NODE).result(binding)
-
-end
-.,.,122745803342203.,.,
-      
-module_eval <<-'.,.,122745803342598.,.,', 'ast.dr', 135
-def _act_8 val
-    _ID, _, _, = *val 
-     [_ID.value, []]
-
-end
-.,.,122745803342598.,.,
-      
-module_eval <<-'.,.,122745803344032.,.,', 'ast.dr', 136
-def _act_9 val
-    _ID, _, _fact_list, _, = *val 
-     [_ID.value, _fact_list] 
-
-end
-.,.,122745803344032.,.,
-      
-module_eval <<-'.,.,122745803361859.,.,', 'ast.dr', 139
-def _act_10 val
-     [] 
-
-end
-.,.,122745803361859.,.,
-      
-module_eval <<-'.,.,122745803323572.,.,', 'ast.dr', 140
-def _act_11 val
-    _, _, = *val 
-     [] 
-
-end
-.,.,122745803323572.,.,
-      
-module_eval <<-'.,.,122745803313754.,.,', 'ast.dr', 141
-def _act_12 val
-    _, _id_list, _, = *val 
-     _id_list 
-
-end
-.,.,122745803313754.,.,
-      
-module_eval <<-'.,.,12274580331318.,.,', 'ast.dr', 144
-def _act_13 val
-    _fact, = *val 
-     [_fact] 
-
-end
-.,.,12274580331318.,.,
-      
-module_eval <<-'.,.,1227458033572.,.,', 'ast.dr', 145
-def _act_14 val
-    _fact_list, _, _fact, = *val 
-     _fact_list.push _fact 
-
-end
-.,.,1227458033572.,.,
-      
-module_eval <<-'.,.,12274580337279.,.,', 'ast.dr', 148
-def _act_15 val
-    _ID, = *val 
-     _ID.value 
-
-end
-.,.,12274580337279.,.,
-      
-module_eval <<-'.,.,122745803312359.,.,', 'ast.dr', 149
-def _act_16 val
-    _, _ID, = *val 
-     '-' + _ID.value 
-
-end
-.,.,122745803312359.,.,
-      
-module_eval <<-'.,.,122745803363891.,.,', 'ast.dr', 152
-def _act_17 val
-    _ID, = *val 
-     [ _ID.value ] 
-
-end
-.,.,122745803363891.,.,
-      
-module_eval <<-'.,.,122745803346333.,.,', 'ast.dr', 153
-def _act_18 val
-    _id_list, _, _ID, = *val 
-     _id_list.push _ID.value 
-
-end
-.,.,122745803346333.,.,
-      
-module_eval <<-'.,.,122745803358364.,.,', 'ast.dr', 156
-def _act_19 val
-     {nil => Token['', 0]} 
-
-end
-.,.,122745803358364.,.,
-      
-module_eval <<-'.,.,122745803347204.,.,', 'ast.dr', 157
-def _act_20 val
-    _ACTION, = *val 
-     {nil => _ACTION} 
-
-end
-.,.,122745803347204.,.,
-      
-module_eval <<-'.,.,122745803352244.,.,', 'ast.dr', 159
-def _act_21 val
-    _pass_action_list, = *val 
-
-        Hash[ *_pass_action_list.flatten ].merge({nil => Token['', 0]})
-
-end
-.,.,122745803352244.,.,
-      
-module_eval <<-'.,.,122745803353056.,.,', 'ast.dr', 164
-def _act_22 val
-    _pass_action, = *val 
-     [ _pass_action ] 
-
-end
-.,.,122745803353056.,.,
-      
-module_eval <<-'.,.,122745803358655.,.,', 'ast.dr', 165
-def _act_23 val
-    _pass_action_list, _pass_action, = *val 
-     _pass_action_list << _pass_action 
-
-end
-.,.,122745803358655.,.,
-      
-module_eval <<-'.,.,122745803347204.,.,', 'ast.dr', 169
-def _act_24 val
-    _, _ID, _, _ACTION, = *val 
-     [_ID.value, _ACTION]
-
-end
-.,.,122745803347204.,.,
-      
-end
-      
-
-###
-### ASTBuilderExtension_post_rhs - Part of Depager Extension (slave)
-###
-module D4ASTBuilderExtension_post_rhs #:nodoc:all
-end
-
-class ASTBuilderExtension_post_rhs < Depager::LALR::Basis #:nodoc:all
-  include Depager::ExtensionUtils
-  
-
-  ### Reduce Table
-  reduce_table = [
-    [ -1, 1 ],
-    [ 0, 1 ],
-    [ 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 ],
-    [ 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, 
-    :ID => 2, 
-    "(" => 3, 
-    ")" => 4, 
-    "," => 5, 
-    :CONST => 6, 
-    :SYMBOL => 7, 
-    :STR => 8, 
-    :NILNODE => 9, 
-    :NUMBER => 10, 
-    :NIL => 11, 
-    :EMBED => 12, 
-    "[" => 13, 
-    "]" => 14, 
-    :LL => 15, 
-    "@" => 16, 
-  }
-  ### Int to Term
-  i2t = [
-    nil, 
-    false, 
-    :ID, 
-    "(", 
-    ")", 
-    ",", 
-    :CONST, 
-    :SYMBOL, 
-    :STR, 
-    :NILNODE, 
-    :NUMBER, 
-    :NIL, 
-    :EMBED, 
-    "[", 
-    "]", 
-    :LL, 
-    "@", 
-  ]
-  ### Action Table
-  action_table = [
-    [ nil, nil, 13, nil, nil, nil, 9, 11, 1, 3, 6, 8, nil, 12, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, 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, nil, nil, nil, nil, nil, 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, 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, 13, nil, nil, nil, 9, 11, 1, 3, 6, 8, nil, 12, 16, nil, nil, ], 
-    [ nil, nil, nil, 19, nil, nil, nil, nil, nil, nil, nil, nil, 21, nil, nil, nil, nil, ], 
-    [ nil, nil, 13, nil, nil, nil, 9, 11, 1, 3, 6, 8, nil, 12, nil, nil, nil, ], 
-    [ nil, nil, 13, nil, nil, nil, 9, 11, 1, 3, 6, 8, nil, 12, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, 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, 15, ], 
-    [ nil, nil, nil, nil, nil, 25, nil, nil, nil, nil, nil, nil, nil, nil, 24, nil, nil, ], 
-    [ nil, nil, 13, nil, 26, nil, 9, 11, 1, 3, 6, 8, nil, 12, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, 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, 15, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 13, nil, nil, nil, 9, 11, 1, 3, 6, 8, nil, 12, 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, 25, nil, nil, 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, 15, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-  ]
-  ### Default Reduce Table
-  defred_table = [
-    nil, 
-    -12, 
-    -6, 
-    -13, 
-    -8, 
-    nil, 
-    -14, 
-    -1, 
-    -15, 
-    -10, 
-    -7, 
-    -11, 
-    nil, 
-    -16, 
-    nil, 
-    nil, 
-    -18, 
-    -4, 
-    nil, 
-    nil, 
-    -9, 
-    -17, 
-    -20, 
-    -21, 
-    -19, 
-    nil, 
-    -2, 
-    nil, 
-    -5, 
-    -3, 
-  ]
-  defred_after_shift_table = [
-    nil, 
-    -12, 
-    -6, 
-    -13, 
-    -8, 
-    nil, 
-    -14, 
-    nil, 
-    -15, 
-    -10, 
-    -7, 
-    -11, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -18, 
-    nil, 
-    nil, 
-    nil, 
-    -9, 
-    -17, 
-    nil, 
-    nil, 
-    -19, 
-    nil, 
-    -2, 
-    nil, 
-    nil, 
-    -3, 
-  ]
-  ### 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 = [ 
-   [ 5, 7, 10, nil, 2, 4, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, 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, 10, 18, 2, 4, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, 20, ], 
-   [ nil, 22, 10, nil, 2, 4, nil, ], 
-   [ nil, 23, 10, nil, 2, 4, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, 17, 10, 27, 2, 4, nil, ], 
-   [ nil, nil, nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, 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, 10, nil, 2, 4, nil, ], 
-   [ nil, nil, nil, nil, 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     = D4ASTBuilderExtension_post_rhs::NVAction.new(self)
-    init_parser
-  end
-
-  
-  def do_parse?
-    if @line =~ /^\s*=>/
-       @line = $' 
-      true
-    else
-      false
-    end
-  end
-  
-
-  def banner
-    "=>... / #{@master.class.name}" 
-  end
-
-  ### Inner Code
-
-          def lex
-            begin
-              until @line.empty?
-                case @line
-                
-          when /\A[ \t]+/
-            @oldline = @line; @line = $'
-                 
-
-        
-          when /\A\r?\n/
-            @oldline = @line; @line = $'
-                 yield nil, nil                 
-
-        
-          when /\A<</
-            @oldline = @line; @line = $'
-                 yield token(:LL, $&)          
-
-        
-          when /\A%([a-zA-Z0-9_]+)((::[a-zA-Z0-9_]+)*)/
-            @oldline = @line; @line = $'
-                 yield token(:CONST, $1+$2)    
-
-        
-          when /\A%\((.+)\)%/
-            @oldline = @line; @line = $'
-                 yield token(:EMBED, $1)       
-
-        
-          when /\Anil/
-            @oldline = @line; @line = $'
-                 yield token(:NIL, $&)         
-
-        
-          when /\ANilNode/
-            @oldline = @line; @line = $'
-                 yield token(:NILNODE, $&)     
-
-        
-          when /\A[0-9]+/
-            @oldline = @line; @line = $'
-                 yield token(:NUMBER, $&.to_i) 
-
-        
-          when /\A:[a-zA-Z0-9_]+/
-            @oldline = @line; @line = $'
-                 yield token(:SYMBOL, $&)      
-
-        
-          when /\A[a-zA-Z][a-zA-Z0-9_]*/
-            @oldline = @line; @line = $'
-                 yield token(:ID, $&)          
-
-        
-          when /\A'(.+)'/
-            @oldline = @line; @line = $'
-                 yield token(:STR, $1)         
-
-        
-          when /\A./
-            @oldline = @line; @line = $'
-                 yield token($&, $&)           
-
-        
-                else
-                  raise RuntimeError, "must not happen #{@line}"
-                end
-              end
-            end while @line0 = @line = getline
-            yield nil, nil
-          end
-          def do_default
-    n = master.nrules
-    master.optouter <<
-      master.gen_defm_code("_ast_#{n} val", "NilNode.new(basis.file.lineno)", lineno)
-    master.on_reduce[n] = ":_ast_#{n}"
-  end
-
-end
-
-### Outer Code
-
-class D4ASTBuilderExtension_post_rhs::NVAction < Depager::LALR::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,
-  :_act_20,
-
-  ]
-  Tables = [on_reduce]
-  def initialize inside
-    super inside, 'NVAction'
-    @on_reduce, = self.class::Tables
-    init_parser
-  end
-  
-
-module_eval <<-'.,.,122745803323544.,.,', 'ast.dr', 206
-def _act_0 val
-    _fnl, = *val 
-
-        n = master.nrules
-        master.optouter <<
-          master.gen_defm_code("_ast_#{n} val", _fnl, basis.file.lineno)
-        master.on_reduce[n] = ":_ast_#{n}"
-
-end
-.,.,122745803323544.,.,
-      
-module_eval <<-'.,.,122745803342416.,.,', 'ast.dr', 214
-def _act_1 val
-    _ID, _, _, = *val 
-     "Node_#{_ID.value}.new(basis.file.lineno)" 
-
-end
-.,.,122745803342416.,.,
-      
-module_eval <<-'.,.,122745803355262.,.,', 'ast.dr', 216
-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
-.,.,122745803355262.,.,
-      
-module_eval <<-'.,.,122745803363965.,.,', 'ast.dr', 225
-def _act_3 val
-    _fnl, = *val 
-     [_fnl] 
-
-end
-.,.,122745803363965.,.,
-      
-module_eval <<-'.,.,122745803314919.,.,', 'ast.dr', 226
-def _act_4 val
-    _fnlpair, _, _fnl, = *val 
-     _fnlpair << _fnl 
-
-end
-.,.,122745803314919.,.,
-      
-module_eval <<-'.,.,122745803310521.,.,', 'ast.dr', 229
-def _act_5 val
-    _fact, = *val 
-     _fact 
-
-end
-.,.,122745803310521.,.,
-      
-module_eval <<-'.,.,122745803362726.,.,', 'ast.dr', 230
-def _act_6 val
-    _node, = *val 
-     _node 
-
-end
-.,.,122745803362726.,.,
-      
-module_eval <<-'.,.,122745803349195.,.,', 'ast.dr', 231
-def _act_7 val
-    _list, = *val 
-     _list 
-
-end
-.,.,122745803349195.,.,
-      
-module_eval <<-'.,.,122745803359728.,.,', 'ast.dr', 235
-def _act_8 val
-    _ID, _opt_embed, = *val 
-
-        unless i = g_parser.name_to_rhs_index(_ID.value)
-          warn "#{g_parser.lineno}: ?#{_ID.value}"
-          raise
-        end
-        "val[#{i}]#{val[1]}"
-
-end
-.,.,122745803359728.,.,
-      
-module_eval <<-'.,.,122745803321128.,.,', 'ast.dr', 242
-def _act_9 val
-    _CONST, = *val 
-     "Depager::Token[#{_CONST.value}]" 
-
-end
-.,.,122745803321128.,.,
-      
-module_eval <<-'.,.,122745803364413.,.,', 'ast.dr', 243
-def _act_10 val
-    _SYMBOL, = *val 
-     "Depager::Token[#{_SYMBOL.value}]" 
-
-end
-.,.,122745803364413.,.,
-      
-module_eval <<-'.,.,122745803318993.,.,', 'ast.dr', 244
-def _act_11 val
-    _STR, = *val 
-     "Depager::Token['#{_STR.value}']" 
-
-end
-.,.,122745803318993.,.,
-      
-module_eval <<-'.,.,122745803313763.,.,', 'ast.dr', 245
-def _act_12 val
-    _NILNODE, = *val 
-     "NilNode.new(basis.file.lineno)" 
-
-end
-.,.,122745803313763.,.,
-      
-module_eval <<-'.,.,122745803311965.,.,', 'ast.dr', 246
-def _act_13 val
-    _NUMBER, = *val 
-     "Depager::Token[#{_NUMBER.value}]" 
-
-end
-.,.,122745803311965.,.,
-      
-module_eval <<-'.,.,122745803349781.,.,', 'ast.dr', 247
-def _act_14 val
-    _NIL, = *val 
-     "nil" 
-
-end
-.,.,122745803349781.,.,
-      
-module_eval <<-'.,.,122745803334484.,.,', 'ast.dr', 250
-def _act_15 val
-     '' 
-
-end
-.,.,122745803334484.,.,
-      
-module_eval <<-'.,.,122745803333629.,.,', 'ast.dr', 251
-def _act_16 val
-    _EMBED, = *val 
-     _EMBED.value 
-
-end
-.,.,122745803333629.,.,
-      
-module_eval <<-'.,.,122745803344085.,.,', 'ast.dr', 254
-def _act_17 val
-    _, _, = *val 
-     "NodeList.new(basis.file.lineno, [])" 
-
-end
-.,.,122745803344085.,.,
-      
-module_eval <<-'.,.,122745803324936.,.,', 'ast.dr', 256
-def _act_18 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
-.,.,122745803324936.,.,
-      
-module_eval <<-'.,.,122745803328741.,.,', 'ast.dr', 263
-def _act_19 val
-    _l, _LL, _r, = *val 
-     "#{_l}.push(#{_r})" 
-
-end
-.,.,122745803328741.,.,
-      
-module_eval <<-'.,.,122745803318918.,.,', 'ast.dr', 264
-def _act_20 val
-    _l, _, _r, = *val 
-     "#{_l}.concat(#{_r})" 
-
-end
-.,.,122745803318918.,.,
-      
-end
-      
-