depager 0.2.3 → 0.3.0.b20250423

data/lib/depager/plugins/ast.rb

@@ -0,0 +1,1329 @@
+###
+### Depager::ASTBuilderExtension - Depager Extension (master)
+###
+require 'depager/parser.rb'
+
+
+module Depager ; end
+
+class Depager::ASTBuilderExtension < Depager::Extension
+
+  def initialize
+    super
+    @master = self
+    @slaves = []
+  end
+
+  def extension_registered g_parser
+    super g_parser
+
+    @slaves << Depager::ASTBuilderExtension::PreRuleList0::Parser.new(g_parser, self)
+    g_parser.hooks[:pre_rule_list].push [@slaves.last, :do_parse]
+    @slaves << Depager::ASTBuilderExtension::PostRhs1::Parser.new(g_parser, self)
+    g_parser.hooks[:post_rhs].push [@slaves.last, :do_parse]
+  end
+
+module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 7
+  attr_accessor :action_code, :on_reduce, :visitors
+  def init_extension
+    @visitors = Hash.new{|hash, key| hash[key] = []}
+    @action_code = ''
+    @on_reduce = []
+    @output_file_name = nil
+  end
+  def term_extension
+    g_parser.outer_code <<
+      generate_action_decorator_code(@on_reduce, @action_code)
+  end
+
+  def modify_action_code code, nodes=[]
+    code = code.gsub(/\$\.([a-z_])/, 'node.\1')
+    code << <<-CODE
+      rescue
+        warn "raise at src:\#{node.lineno}/\#{node.class.name}"
+        raise
+    CODE
+  end
+
+  def gen_accept_code sym
+    return ''
+  end
+
+  def node_name name
+    name = name == '@List' ? "NodeList" : "Node_#{name}"
+    "#{target_namespace}::#{name}"
+  end
+
+  attr_reader :output_file_name
+  def output_file_name= name
+    name = name.match(/'(.+)'/) ? $1 : name
+    @output_file_name = name
+  end
+
+DEPAGER_EXPANDED_CODE
+
+end
+
+###
+### Depager::ASTBuilderExtension::PreRuleList0 - Part of Depager Extension (slave)
+###
+
+module Depager::ASTBuilderExtension::PreRuleList0 #:nodoc:all
+  class Parser < Depager::LALR::Basis #:nodoc:all
+    include Depager::Utils::ExtensionSlaveMethods
+
+    ### 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 ],
+    ]
+    def reduce_table; REDUCE_TABLE; end
+
+    ### Term to Int
+    TERM_TO_INT = {
+      nil => 0,
+      false => 1,
+      :NODE => 2,
+      :ACTION => 3,
+      :VISITOR => 4,
+      :ID => 5,
+      "(" => 6,
+      ")" => 7,
+      "[" => 8,
+      "]" => 9,
+      "," => 10,
+      "-" => 11,
+      "<" => 12,
+      ">" => 13,
+    }
+    def term_to_int; TERM_TO_INT; end
+
+    ### Int to Term
+    INT_TO_TERM = [
+      nil,
+      false,
+      :NODE,
+      :ACTION,
+      :VISITOR,
+      :ID,
+      "(",
+      ")",
+      "[",
+      "]",
+      ",",
+      "-",
+      "<",
+      ">",
+    ]
+    def int_to_term; INT_TO_TERM; end
+
+    ### Action Table
+    ACTION_TABLE = [
+      [ nil, nil, 3, 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, 5, 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, 11, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, 13, nil, nil, nil, nil, nil, nil, nil, nil, 16, nil, ],
+      [ nil, nil, nil, 17, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 20, nil, nil, nil, 18, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 11, nil, nil, nil, nil, nil, nil, nil, 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, 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, 16, 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, nil, nil, nil, nil, nil, nil, 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, 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, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, 13, nil, nil, nil, nil, nil, nil, nil, nil, 16, nil, ],
+      [ nil, nil, nil, nil, nil, 32, nil, 29, nil, nil, nil, 33, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 34, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 35, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, 37, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 38, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, 39, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 32, nil, nil, nil, nil, nil, 33, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+    ]
+    def action_table; ACTION_TABLE; end
+
+    ### Default Reduce Table
+    DEFRED_TABLE = [
+      -2,
+      nil,
+      -4,
+      -11,
+      nil,
+      -20,
+      nil,
+      nil,
+      -1,
+      -6,
+      -11,
+      nil,
+      -5,
+      -21,
+      -22,
+      -23,
+      nil,
+      -3,
+      -12,
+      nil,
+      -18,
+      -7,
+      -20,
+      nil,
+      -24,
+      nil,
+      -13,
+      nil,
+      -8,
+      -9,
+      nil,
+      -14,
+      -16,
+      nil,
+      nil,
+      -19,
+      -10,
+      nil,
+      -17,
+      -25,
+      -15,
+    ]
+    def defred_table; DEFRED_TABLE; end
+
+    DEFRED_AFTER_SHIFT_TABLE = [
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      nil,
+      -6,
+      nil,
+      nil,
+      -5,
+      -21,
+      nil,
+      -23,
+      nil,
+      -3,
+      -12,
+      nil,
+      -18,
+      -7,
+      nil,
+      nil,
+      -24,
+      nil,
+      -13,
+      nil,
+      -8,
+      -9,
+      nil,
+      -14,
+      -16,
+      nil,
+      nil,
+      -19,
+      -10,
+      nil,
+      -17,
+      -25,
+      -15,
+    ]
+    def defred_after_shift_table; DEFRED_AFTER_SHIFT_TABLE; end
+
+    ### Nonterm to Int
+    NONTERM_TO_INT = {
+      :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,
+    }
+    def nonterm_to_int; NONTERM_TO_INT; end
+
+    ### Int to Nonterm
+    INT_TO_NONTERM = [
+      :start,
+      :opt_defnode,
+      :opt_defvis,
+      :defnode_list,
+      :opt_attr,
+      :opt_action,
+      :defnode,
+      :defnode_header,
+      :fact_list,
+      :id_list,
+      :fact,
+      :pass_action_list,
+      :pass_action,
+    ]
+    def int_to_nonterm; INT_TO_NONTERM; end
+
+    ### Goto Table
+    GOTO_TABLE = [
+      [ 1, 2, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ 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, 6, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, 8, nil, nil, 9, 10, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 12, 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, 19, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, 21, 10, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, 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, 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, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, 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, 14, 15, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, 30, nil, 31, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 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, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+    ]
+    def goto_table; GOTO_TABLE; end
+
+    def initialize g_parser, master
+      super()
+      @g_parser  = g_parser
+      @d_parser  = g_parser.d_parser
+      @master    = master
+      @decorated = Action.new(self)
+    end
+
+    
+    def do_parse?
+      if @line.match(/^\s*%AST\{\s*\Z/)
+         @line = $' 
+        true
+      else
+        false
+      end
+    end
+    
+
+    def banner
+      "%AST{ ... } / Depager::ASTBuilderExtension"
+    end
+
+def lex
+  begin
+    until @line.empty?
+      case @line
+          when /\A\s+/, /\A#.*/
+            @line = $'
+                 
+
+          when /\A%\}\s*\Z/
+            @line = $'
+                 @line = $'; yield nil,nil 
+
+          when /\ANode/
+            @line = $'
+                 yield token(:NODE, $&) 
+
+          when /\AVisitor/
+            @line = $'
+                 yield token(:VISITOR, $&) 
+
+          when /\A[a-zA-Z][a-zA-Z0-9_]*/
+            @line = $'
+                 yield token(:ID, $&) 
+
+          when /\A\{/
+            #
+                 lineno = file.lineno; yield token(:ACTION, parse_block, lineno) 
+
+          when /\A./
+            @line = $'
+                 yield token($&, $&) 
+
+
+      else
+        raise RuntimeError, "must not happen #{@line}"
+      end
+    end
+  end while @original_line = @line = file.gets
+  yield nil, nil
+end
+
+  end
+end
+
+class Depager::ASTBuilderExtension::PreRuleList0::Action < Depager::LALR::Action #:nodoc:all
+  include Depager::Utils::ExtensionSlaveDecoratorMethods
+ON_REDUCE = [
+              nil,
+            :_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,
+            :_act_25,
+
+]
+def on_reduce; ON_REDUCE; end
+
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 58
+def _act_1 val
+    _opt_defnode, _opt_defvis, _defnode_list, = *val
+
+        code = "module #{target_namespace}\n"
+        code << _opt_defnode
+        code << val[2]
+        master.visitors.each do |name, body|
+          code << ERB.new(master.class::VISITOR_TEMPLATE, nil, '-').result(binding)
+        end
+        code << "end\n"
+        if master.output_file_name
+          File.open(master.output_file_name, 'w') do |f|
+            f.write code
+          end
+          g_parser.outer_code << %!require '#{master.output_file_name}'\n!
+        else
+          g_parser.outer_code << code
+        end
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 77
+def _act_2 val
+    # empty rule
+     "" 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 79
+def _act_3 val
+    _NODE, _opt_attr, _ACTION, = *val
+
+        ini = <<-CODE
+          def initialize
+            #{_ACTION.value}
+          end
+        CODE
+        ERB.new(master.class::BASE_NODE_TEMPLATE, nil, '-').result(binding)
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 89
+def _act_4 val
+    # empty rule
+     [] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 91
+def _act_5 val
+    _VISITOR, _opt_action, = *val
+
+        _opt_action[nil] ||= Token.new('', 0)
+        _opt_action.each do |pass, act|
+          master.visitors[pass].unshift(
+            master.expand_inline_code(act.value.to_s, act.lineno))
+        end
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 100
+def _act_6 val
+    _defnode, = *val
+     _defnode 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 101
+def _act_7 val
+    _defnode_list, _defnode, = *val
+     _defnode_list << _defnode
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 105
+def _act_8 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.new('', 0) unless _opt_action[nil]
+        _opt_action.each do |pass, act|
+          vis_code = master.modify_action_code(act.value, nodes - attrs)
+          master.visitors[pass] <<
+            master.expand_inline_code(vis_code, act.lineno, :wrap => "def visit_Node_#{name} node")
+        end
+        ERB.new(master.class::NODE_TEMPLATE, nil, '-').result(binding)
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 127
+def _act_9 val
+    _ID, _, _, = *val
+     [_ID.value, []]
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 128
+def _act_10 val
+    _ID, _, _fact_list, _, = *val
+     [_ID.value, _fact_list] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 131
+def _act_11 val
+    # empty rule
+     [] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 132
+def _act_12 val
+    _, _, = *val
+     [] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 133
+def _act_13 val
+    _, _id_list, _, = *val
+     _id_list 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 136
+def _act_14 val
+    _fact, = *val
+     [_fact] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 137
+def _act_15 val
+    _fact_list, _, _fact, = *val
+     _fact_list.push _fact 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 140
+def _act_16 val
+    _ID, = *val
+     _ID.value 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 141
+def _act_17 val
+    _, _ID, = *val
+     '-' + _ID.value 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 144
+def _act_18 val
+    _ID, = *val
+     [ _ID.value ] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 145
+def _act_19 val
+    _id_list, _, _ID, = *val
+     _id_list.push _ID.value 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 148
+def _act_20 val
+    # empty rule
+     {nil => Token.new('', 0)} 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 149
+def _act_21 val
+    _ACTION, = *val
+     {nil => _ACTION} 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 151
+def _act_22 val
+    _pass_action_list, = *val
+
+        Hash[ *_pass_action_list.flatten ].merge({nil => Token.new('', 0)})
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 156
+def _act_23 val
+    _pass_action, = *val
+     [ _pass_action ] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 157
+def _act_24 val
+    _pass_action_list, _pass_action, = *val
+     _pass_action_list << _pass_action 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 161
+def _act_25 val
+    _, _ID, _, _ACTION, = *val
+     [_ID.value, _ACTION]
+
+end
+DEPAGER_EXPANDED_CODE
+
+
+end
+
+###
+### Depager::ASTBuilderExtension::PostRhs1 - Part of Depager Extension (slave)
+###
+
+module Depager::ASTBuilderExtension::PostRhs1 #:nodoc:all
+  class Parser < Depager::LALR::Basis #:nodoc:all
+    include Depager::Utils::ExtensionSlaveMethods
+
+    ### 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 ],
+    ]
+    def reduce_table; REDUCE_TABLE; end
+
+    ### Term to Int
+    TERM_TO_INT = {
+      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,
+    }
+    def term_to_int; TERM_TO_INT; end
+
+    ### Int to Term
+    INT_TO_TERM = [
+      nil,
+      false,
+      :ID,
+      "(",
+      ")",
+      ",",
+      :CONST,
+      :SYMBOL,
+      :STR,
+      :NILNODE,
+      :NUMBER,
+      :NIL,
+      :EMBED,
+      "[",
+      "]",
+      :LL,
+      "@",
+    ]
+    def int_to_term; INT_TO_TERM; end
+
+    ### Action Table
+    ACTION_TABLE = [
+      [ nil, nil, 6, nil, nil, nil, 7, 8, 9, 10, 11, 12, nil, 13, 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, 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, 16, 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, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 6, nil, nil, nil, 7, 8, 9, 10, 11, 12, nil, 13, 19, nil, nil, ],
+      [ nil, nil, 6, nil, nil, nil, 7, 8, 9, 10, 11, 12, nil, 13, nil, nil, nil, ],
+      [ nil, nil, 6, nil, nil, nil, 7, 8, 9, 10, 11, 12, nil, 13, nil, nil, nil, ],
+      [ nil, nil, 6, nil, 24, nil, 7, 8, 9, 10, 11, 12, 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, 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, 27, 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, 14, 15, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, 28, 26, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 6, nil, nil, nil, 7, 8, 9, 10, 11, 12, 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, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, nil, 14, 15, ],
+    ]
+    def action_table; ACTION_TABLE; end
+
+    ### Default Reduce Table
+    DEFRED_TABLE = [
+      nil,
+      nil,
+      -1,
+      -6,
+      -7,
+      -8,
+      -16,
+      -10,
+      -11,
+      -12,
+      -13,
+      -14,
+      -15,
+      nil,
+      nil,
+      nil,
+      nil,
+      -9,
+      -17,
+      -18,
+      nil,
+      -4,
+      -20,
+      -21,
+      -2,
+      nil,
+      nil,
+      -19,
+      -3,
+      -5,
+    ]
+    def defred_table; DEFRED_TABLE; end
+
+    DEFRED_AFTER_SHIFT_TABLE = [
+      nil,
+      nil,
+      nil,
+      -6,
+      -7,
+      -8,
+      nil,
+      -10,
+      -11,
+      -12,
+      -13,
+      -14,
+      -15,
+      nil,
+      nil,
+      nil,
+      nil,
+      -9,
+      -17,
+      -18,
+      nil,
+      nil,
+      nil,
+      nil,
+      -2,
+      nil,
+      nil,
+      -19,
+      -3,
+      nil,
+    ]
+    def defred_after_shift_table; DEFRED_AFTER_SHIFT_TABLE; end
+
+    ### Nonterm to Int
+    NONTERM_TO_INT = {
+      :start => 0,
+      :fnl => 1,
+      :node => 2,
+      :fnlpair => 3,
+      :fact => 4,
+      :list => 5,
+      :opt_embed => 6,
+    }
+    def nonterm_to_int; NONTERM_TO_INT; end
+
+    ### Int to Nonterm
+    INT_TO_NONTERM = [
+      :start,
+      :fnl,
+      :node,
+      :fnlpair,
+      :fact,
+      :list,
+      :opt_embed,
+    ]
+    def int_to_nonterm; INT_TO_NONTERM; end
+
+    ### Goto Table
+    GOTO_TABLE = [
+      [ 1, 2, 4, nil, 3, 5, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, 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, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 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, 4, 20, 3, 5, nil, ],
+      [ nil, 22, 4, nil, 3, 5, nil, ],
+      [ nil, 23, 4, nil, 3, 5, nil, ],
+      [ nil, 21, 4, 25, 3, 5, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 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, 4, nil, 3, 5, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, ],
+    ]
+    def goto_table; GOTO_TABLE; end
+
+    def initialize g_parser, master
+      super()
+      @g_parser  = g_parser
+      @d_parser  = g_parser.d_parser
+      @master    = master
+      @decorated = Action.new(self)
+    end
+
+    
+    def do_parse?
+      if @line.match(/^\s*=>/)
+         @line = $' 
+        true
+      else
+        false
+      end
+    end
+    
+
+    def banner
+      "=>... / Depager::ASTBuilderExtension"
+    end
+
+def lex
+  begin
+    until @line.empty?
+      case @line
+          when /\A[ \t]+/
+            @line = $'
+                 
+
+          when /\A\r?\n/
+            @line = $'
+                 yield nil, nil                 
+
+          when /\A<</
+            @line = $'
+                 yield token(:LL, $&)          
+
+          when /\A%([a-zA-Z0-9_]+)((::[a-zA-Z0-9_]+)*)/
+            @line = $'
+                 yield token(:CONST, $1+$2)    
+
+          when /\A%\((.+)\)%/
+            @line = $'
+                 yield token(:EMBED, $1)       
+
+          when /\Anil/
+            @line = $'
+                 yield token(:NIL, $&)         
+
+          when /\ANilNode/
+            @line = $'
+                 yield token(:NILNODE, $&)     
+
+          when /\A[0-9]+/
+            @line = $'
+                 yield token(:NUMBER, $&.to_i) 
+
+          when /\A:[a-zA-Z0-9_]+/
+            @line = $'
+                 yield token(:SYMBOL, $&)      
+
+          when /\A[a-zA-Z][a-zA-Z0-9_]*/
+            @line = $'
+                 yield token(:ID, $&)          
+
+          when /\A'(.+)'/
+            @line = $'
+                 yield token(:STR, $1)         
+
+          when /\A./
+            @line = $'
+                 yield token($&, $&)           
+
+
+      else
+        raise RuntimeError, "must not happen #{@line}"
+      end
+    end
+  end while @original_line = @line = file.gets
+  yield nil, nil
+end
+module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 173
+  def do_default
+    n = g_parser.rules.size-1
+    master.action_code << <<~CODE
+      def _ast_#{n} val
+        NilNode.new(basis.file.lineno)
+      end
+    CODE
+    master.on_reduce[n] = ":_ast_#{n}"
+  end
+
+DEPAGER_EXPANDED_CODE
+
+  end
+end
+
+class Depager::ASTBuilderExtension::PostRhs1::Action < Depager::LALR::Action #:nodoc:all
+  include Depager::Utils::ExtensionSlaveDecoratorMethods
+ON_REDUCE = [
+              nil,
+            :_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,
+
+]
+def on_reduce; ON_REDUCE; end
+
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 201
+def _act_1 val
+    _fnl, = *val
+
+        n = g_parser.rules.size-1
+        master.action_code <<
+          master.expand_inline_code(_fnl, basis.file.lineno, :wrap => "def _ast_#{n} val")
+        master.on_reduce[n] = ":_ast_#{n}"
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 209
+def _act_2 val
+    _ID, _, _, = *val
+     "#{master.node_name _ID.value}.new(basis.file.lineno)" 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 211
+def _act_3 val
+    _ID, _, _fnlpair, _, = *val
+
+        if g_parser.rhs.size > 0
+          "#{master.node_name _ID.value}.new(val[0].lineno, #{_fnlpair.join(', ')})"
+        else
+          "#{master.node_name _ID.value}.new(basis.file.lineno, #{_fnlpair.join(', ')})"
+        end
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 220
+def _act_4 val
+    _fnl, = *val
+     [_fnl] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 221
+def _act_5 val
+    _fnlpair, _, _fnl, = *val
+     _fnlpair << _fnl 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 224
+def _act_6 val
+    _fact, = *val
+     _fact 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 225
+def _act_7 val
+    _node, = *val
+     _node 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 226
+def _act_8 val
+    _list, = *val
+     _list 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 230
+def _act_9 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
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 237
+def _act_10 val
+    _CONST, = *val
+     "Depager::Token.new(#{_CONST.value})" 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 238
+def _act_11 val
+    _SYMBOL, = *val
+     "Depager::Token.new(#{_SYMBOL.value})" 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 239
+def _act_12 val
+    _STR, = *val
+     "Depager::Token.new('#{_STR.value}')" 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 240
+def _act_13 val
+    _NILNODE, = *val
+     "NilNode.new(basis.file.lineno)" 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 241
+def _act_14 val
+    _NUMBER, = *val
+     "Depager::Token.new(#{_NUMBER.value})" 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 242
+def _act_15 val
+    _NIL, = *val
+     "nil" 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 245
+def _act_16 val
+    # empty rule
+     '' 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 246
+def _act_17 val
+    _EMBED, = *val
+     _EMBED.value 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 249
+def _act_18 val
+    _, _, = *val
+     "#{master.node_name '@List'}.new(basis.file.lineno, [])" 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 251
+def _act_19 val
+    _, _fnlpair, _, = *val
+
+        if g_parser.rhs.size > 0
+          "#{master.node_name '@List'}.new(val[0].lineno, [#{_fnlpair.join(', ')}])"
+        else
+          "#{master.node_name '@List'}.new(basis.file.lineno, #{_fnlpair.join(', ')})"
+        end
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 258
+def _act_20 val
+    _l, _LL, _r, = *val
+     "#{_l}.push(#{_r})" 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/ast.dr', 259
+def _act_21 val
+    _l, _, _r, = *val
+     "#{_l}.concat(#{_r})" 
+
+end
+DEPAGER_EXPANDED_CODE
+
+
+end
+
+
+class Depager::ASTBuilderExtension
+  BASE_NODE_TEMPLATE = <<-'CODE'
+    class Node
+      attr_accessor :lineno
+      attr_accessor <%= _opt_attr.map{|i| ":#{i}" }.join(', ') %>
+      <%= ini %>
+
+      def self.[] lineno, *args
+        self.new lineno, *args
+      end
+
+      def accept v
+      end
+    end
+
+    class NodeList < Node
+      attr_accessor :lineno
+      def initialize(lineno, lst=[])
+        @lineno = lineno
+        @lst = lst.to_a.select{|i| ! i.is_a?(NilNode)}
+      end
+
+      <%- _opt_attr.each do |i| -%>
+      def all_<%= i %>
+        @lst.map{|i| i.<%= i %>}
+      end
+      <%- end -%>
+
+      def size
+        @lst.size
+      end
+      alias length size
+
+      def push(i)
+        @lst.push i unless i.is_a? NilNode
+        self
+      end
+
+      def concat(i)
+        @lst.concat i
+        self
+      end
+
+      def to_ary()
+        @lst
+      end
+
+      alias to_a to_ary
+      alias list to_ary
+
+      def accept(v)
+        @lst.each{|i| i.accept(v) }
+      end
+    end
+
+    class NilNode
+      attr_accessor :lineno
+      attr_accessor <%= _opt_attr.map{|i| ":#{i}" }.join(', ') %>
+
+      def initialize(lineno, *args)
+        @lineno = lineno
+      end
+
+      def accept v
+      end
+    end
+  CODE
+
+  NODE_TEMPLATE = <<-'CODE'
+    class Node_<%= name %> < Node
+      attr_accessor <%= nodes.map{|i| ":#{i}" }.join(', ') %>
+      attr_accessor <%= attrs.map{|i| ":#{i}" }.join(', ') %>
+
+      def initialize <%= ['lineno', *nodes].join(', ') %>
+        super()
+        @lineno = lineno
+        <%= nodes.inject(''){|r,i| r << "    @#{i} = #{i}\n"} %>
+      end
+
+      def accept v
+        warn @lineno.to_s+':'+self.class.to_s if $DEBUG
+        <%= accept %>
+        v.visit_Node_<%= name %>(self)
+        self
+      end
+
+      def attributes
+        { <%= (nodes + attrs).uniq.map{|i| "#{i}: #{i}" }.join(', ') %>, lineno: lineno }
+      end
+    end
+  CODE
+
+  VISITOR_TEMPLATE = <<-'CODE'
+    class Visitor<%= name ? '_' + name : '' %>
+      def visit node
+        node.accept(self)
+      end
+      <%= body.join %>
+    end # Visitor<%= name ? '_' + name : '' %>
+  CODE
+end
+