depager 0.2.3 → 0.3.0.b20160729

data/lib/depager/ruby/plugins/cst.dr

@@ -1,180 +1,172 @@
-%defext CSTBuilderExtension
-%extend Lexer ('plugins/lex.rb')
-%extend NVAction ('plugins/nvaction.rb')
-%decorate @NVAction
-#%decorate ShiftReducePrinter ('plugins/srp.rb')
-%inner{
-  attr_accessor :optouter, :nodes_code
-  def init_parser
-    super
-    @n = 0
-    @visitor_code = []
-    @nodes_code = []
-    @optouter = []
-    @on_reduce = []
-  end
-  def modify_action_code code
-    code.gsub(/~([a-z_])/, 'node.\1')
-  end
-  def post_rhs
-    code, lineno = '', g_parser.lineno
-    if g_parser.line =~ /\s*\{/
-      @line0, @line = g_parser.line0, g_parser.line
-      code = parse_action
-      
-      g_parser.update_context @line
-    end
-
-    node_name = "#{lhs_name}_#{nrhs}"
-    accept = ""
-    nodes = g_parser.rhs.map do |i| 
-      x = g_parser.int_to_sym(i)
-      if x.class == String
-        "tx#{x.unpack("H*")[0]}"
-      else
-        x = x.to_s
-        accept << "#{x}.accept(v); " if x =~ /\A[a-z_]+\Z/
-        x.downcase
-      end
-    end
-    attrc = nodes.map{|i| ":#{i}" }.join(', ')
-    inic  = nodes.map{|i| "@#{i} = #{i}"}.join('; ')
-    @nodes_code << %{
-      class Node_#{node_name} < Node_#{lhs_name}
-        attr_accessor #{attrc}
-        def initialize #{nodes.join(', ')}
-          super()
-          #{inic}
-        end
-        def accept v
-          #{accept}
-          v.visit_Node_#{node_name}(self)
-        end
-      end
-    }; #code
-
-    @visitor_code <<
-      gen_defm_code("visit_Node_#{node_name} node",
-                    modify_action_code(code), lineno)
-
-    args  = nodes.inject([]){|r, i| r << "val[#{r.size}]"}
-    code = "Node_#{node_name}.new(#{args.join(', ')})"
-    @optouter << 
-      gen_defm_code("_cst_#{nrules} val", code, lineno)
-
-    @on_reduce[nrules] = ":_cst_#{nrules}"
-  end
-  def post_rule_list
-    code = unindent %{
-      class Node
-        def accept
-        end
-      end
-    }; #code
-    g_parser.optouter << code
-
-    code = unindent %{
-      class Visitor
-      $$!!@ CST @!!$$
-      end
-    }; #code
-    g_parser.optouter <<
-      code.sub!('$$!!@ CST @!!$$', @visitor_code.join) <<
-      unindent(@nodes_code) <<
-      gen_action_decorator_code(target_name, paramkey,
-                                @on_reduce, @optouter)
-  end
-%}
-%hook pre_rule_list /%CST\{\s*\Z/ skip
-%banner '%CST{ ... }'
-%%
-
-%LEX{
-  /\s+/, /#.*/            { }
-  /%\}\s*\Z/              { yield nil,nil }
-  'Node'                  { yield token(:NODE, $&) }
-  '{' !                   { ln = lineno; yield token(:ACTION, parse_action, ln) }
-%}
-
-#begin-rule
-  start:
-      opt_node opt_visitor
-      {
-        code = %{
-          class Node
-            $$!!@ NODE @!!$$
-          end
-          class Visitor
-            $$!!@ VISITOR @!!$$
-          end
-        }; #code
-        master.nodes_code <<
-          code.sub!('$$!!@ NODE @!!$$', _opt_node) \
-              .sub!('$$!!@ VISITOR @!!$$', _opt_visitor)
-      }
-  ;
-  opt_node:           
-                      { '' }
-    | NODE ACTION     { _ACTION.value }
-  ;
-  opt_visitor:        
-                      { '' }
-    | VISITOR ACTION  { _ACTION.value }
-  ;
-#end-rule
-%%
-%hook post_lhs /\[/ skip
-%banner '[ ... ]'
-%inner{
-  def do_default
-    master.nodes_code << %{
-      class Node_#{master.lhs_name} < Node
-        def initialize
-          super()
-        end
-      end
-    }; #code
-  end
-%}
-%%
-
-%LEX{
-  /\A\s+/              { } #skip blank
-  /""/,/''/,/[0-9]+/,
-  /\{\s*\}/,/\[\s*\]/,
-  /nil/                { yield token(:LIT, $&) }
-  /\A[a-z][a-z_]*/     { yield token(:ID, $&)  }
-  /\A(.)/              { yield token($&, $&)   }
-%}
-
-#begin-rule
-  start:
-      '[' pair ']'
-      {
-        args = []; code = ''
-        _pair.each do |id, lit|
-          args <<  id
-          code << "#{id} = #{lit}; " if lit
-        end
-        attrc = args.map{|i| ":#{i}"}.join(', ')
-        master.nodes_code << %{
-          class Node_#{master.lhs_name} < Node
-            attr_accessor #{attrc}
-            def initialize
-              super()
-              #{code}
-            end
-          end
-        }; #code
-      }
-  ;
-  pair:
-      expr          { [ _expr ] }
-    | pair ',' expr { _pair << _expr }
-  ;
-  expr:
-      ID            { [ _ID.value, nil] }
-    | ID '=' LIT    { [ _ID.value, _LIT.value ] }
-  ;
-#end-rule
-%%
+%defext Depager::CSTBuilderExtension
+%extend Depager::Lexer ('plugins/lex.rb')
+%extend Depager::Action ('plugins/action.rb')
+%decorate @Action
+#%decorate Depager::LALR::ShiftReducePrinter ('plugins/srp.rb')
+%expanded_code_delimiter DEPAGER_EXPANDED_CODE
+%inner{
+  attr_accessor :action_code, :nodes_code, :visitor_code
+  def init_extension
+    @n = 0
+    @visitor_code = ''
+    @nodes_code   = ''
+    @action_code   = ''
+    @on_reduce    = []
+  end
+
+  def modify_action_code code
+    code.gsub(/\$\.([a-z_])/, 'node.\1')
+  end
+
+  def post_rhs
+    code, lineno = '', g_parser.file.lineno
+    if g_parser.line =~ /\s*\{/
+      @original_line, @line = g_parser.original_line, g_parser.line
+      code = parse_block
+
+      g_parser.update_context @line
+    end
+
+    node_name = "#{g_parser.lhs_name}_#{g_parser.nrhs}"
+    accept = ""
+    nodes = g_parser.rhs.map do |i|
+      x = g_parser.int_to_sym(i)
+      if x.class == String
+        "tx#{x.unpack("H*")[0]}"
+      else
+        x = x.to_s
+        accept << "#{x}.accept(v); " if x =~ /\A[a-z_]+\Z/
+        x.downcase
+      end
+    end
+    attrc = nodes.map{|i| ":#{i}" }.join(', ')
+    inic  = nodes.map{|i| "@#{i} = #{i}"}.join('; ')
+    @nodes_code << %{
+      class Node_#{node_name} < Node_#{g_parser.lhs_name}
+        attr_accessor #{attrc}
+        def initialize #{nodes.join(', ')}
+          super()
+          #{inic}
+        end
+        def accept v
+          #{accept}
+          v.visit_Node_#{node_name}(self)
+        end
+      end
+    } #code
+
+    @visitor_code <<
+      expand_inline_code(modify_action_code(code), lineno, :wrap => "def visit_Node_#{node_name} node")
+
+    args  = nodes.inject([]){|r, i| r << "val[#{r.size}]"}
+    code = "#{target_namespace}::Node_#{node_name}.new(#{args.join(', ')})"
+    n = g_parser.rules.size-1
+    @action_code <<
+      expand_inline_code(code, lineno, :wrap => "def _cst_#{n} val")
+
+    @on_reduce[n] = ":_cst_#{n}"
+  end
+
+  def term_extension
+    g_parser.outer_code << "module #{target_namespace}\n"
+    g_parser.outer_code << @nodes_code
+    g_parser.outer_code << %{
+      class Visitor
+      %s
+      end
+    } % @visitor_code #code
+    g_parser.outer_code << "end\n"
+    g_parser.outer_code << generate_action_decorator_code(@on_reduce, @action_code)
+  end
+%}
+%hook pre_rule_list /%CST\{\s*\Z/ skip
+%banner '%CST{ ... }'
+%%
+
+%LEX{
+  /\s+/, /#.*/            { }
+  /%\}\s*\Z/              { yield nil,nil }
+  'Node'                  { yield token(:NODE, $&) }
+  'Visitor'               { yield token(:VISITOR, $&) }
+  '{' !                   { lineno = file.lineno; yield token(:ACTION, parse_block, lineno) }
+%}
+
+#begin-rule
+  start:
+      opt_node opt_visitor
+      {
+        master.nodes_code << %{
+          class Node
+            def accept
+            end
+          %s
+          end
+        } % _opt_node #code
+        master.visitor_code << _opt_visitor
+      }
+  ;
+  opt_node:
+                      { '' }
+    | NODE ACTION     { _ACTION.value }
+  ;
+  opt_visitor:
+                      { '' }
+    | VISITOR ACTION  { _ACTION.value }
+  ;
+#end-rule
+%%
+%hook post_lhs /\[/ skip
+%banner '[ ... ]'
+%inner{
+  def do_default
+    master.nodes_code << %{
+      class Node_#{g_parser.lhs_name} < Node
+        def initialize
+          super()
+        end
+      end
+    } #code
+  end
+%}
+%%
+
+%LEX{
+  /\A\s+/              { } #skip blank
+  /""/,/''/,/[0-9]+/,
+  /\{\s*\}/,/\[\s*\]/,
+  /nil/                { yield token(:LIT, $&) }
+  /\A[a-z][a-z_]*/     { yield token(:ID, $&)  }
+  /\A(.)/              { yield token($&, $&)   }
+%}
+
+#begin-rule
+  start:
+      '[' pair ']'
+      {
+        args = []; code = ''
+        _pair.each do |id, lit|
+          args <<  id
+          code << "#{id} = #{lit}; " if lit
+        end
+        attrc = args.map{|i| ":#{i}"}.join(', ')
+        master.nodes_code << %{
+          class Node_#{g_parser.lhs_name} < Node
+            attr_accessor #{attrc}
+            def initialize
+              super
+              #{code}
+            end
+          end
+        } #code
+      }
+  ;
+  pair:
+      expr          { [ _expr ] }
+    | pair ',' expr { _pair << _expr }
+  ;
+  expr:
+      ID            { [ _ID.value, nil] }
+    | ID '=' LIT    { [ _ID.value, _LIT.value ] }
+  ;
+#end-rule
+%%

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

@@ -1,626 +1,587 @@
-
-###
-### CSTBuilderExtension - Depager Extension (master)
-###
-require 'pp.rb'
-require 'depager/parser.rb'
-
-
-module D4CSTBuilderExtension #:nodoc:all
-end
-
-class CSTBuilderExtension #: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] = CSTBuilderExtension_post_lhs.new(p, @nparam, self)
-    @h2p['post_lhs'] = @hook[0] 
-    p.hooks[:post_lhs].push [@hook[0], :do_parse]
-    
-    @hook[1] = CSTBuilderExtension_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
-  attr_accessor :optouter, :nodes_code
-  def init_parser
-    super
-    @n = 0
-    @visitor_code = []
-    @nodes_code = []
-    @optouter = []
-    @on_reduce = []
-  end
-  def modify_action_code code
-    code.gsub(/~([a-z_])/, 'node.\1')
-  end
-  def post_rhs
-    code, lineno = '', g_parser.lineno
-    if g_parser.line =~ /\s*\{/
-      @line0, @line = g_parser.line0, g_parser.line
-      code = parse_action
-      
-      g_parser.update_context @line
-    end
-
-    node_name = "#{lhs_name}_#{nrhs}"
-    accept = ""
-    nodes = g_parser.rhs.map do |i| 
-      x = g_parser.int_to_sym(i)
-      if x.class == String
-        "tx#{x.unpack("H*")[0]}"
-      else
-        x = x.to_s
-        accept << "#{x}.accept(v); " if x =~ /\A[a-z_]+\Z/
-        x.downcase
-      end
-    end
-    attrc = nodes.map{|i| ":#{i}" }.join(', ')
-    inic  = nodes.map{|i| "@#{i} = #{i}"}.join('; ')
-    @nodes_code << %{
-      class Node_#{node_name} < Node_#{lhs_name}
-        attr_accessor #{attrc}
-        def initialize #{nodes.join(', ')}
-          super()
-          #{inic}
-        end
-        def accept v
-          #{accept}
-          v.visit_Node_#{node_name}(self)
-        end
-      end
-    }; #code
-
-    @visitor_code <<
-      gen_defm_code("visit_Node_#{node_name} node",
-                    modify_action_code(code), lineno)
-
-    args  = nodes.inject([]){|r, i| r << "val[#{r.size}]"}
-    code = "Node_#{node_name}.new(#{args.join(', ')})"
-    @optouter << 
-      gen_defm_code("_cst_#{nrules} val", code, lineno)
-
-    @on_reduce[nrules] = ":_cst_#{nrules}"
-  end
-  def post_rule_list
-    code = unindent %{
-      class Node
-        def accept
-        end
-      end
-    }; #code
-    g_parser.optouter << code
-
-    code = unindent %{
-      class Visitor
-      $$!!@ CST @!!$$
-      end
-    }; #code
-    g_parser.optouter <<
-      code.sub!('$$!!@ CST @!!$$', @visitor_code.join) <<
-      unindent(@nodes_code) <<
-      gen_action_decorator_code(target_name, paramkey,
-                                @on_reduce, @optouter)
-  end
-
-end
-
-### Outer Code
-
-###
-### CSTBuilderExtension_pre_rule_list - Part of Depager Extension (slave)
-###
-module D4CSTBuilderExtension_pre_rule_list #:nodoc:all
-end
-
-class CSTBuilderExtension_pre_rule_list < Depager::LALR::Basis #:nodoc:all
-  include Depager::ExtensionUtils
-  
-
-  ### Reduce Table
-  reduce_table = [
-    [ -1, 1 ],
-    [ 0, 2 ],
-    [ 1, 0 ],
-    [ 1, 2 ],
-    [ 2, 0 ],
-    [ 2, 2 ],
-  ]
-  ### Extension Params
-  nparams = {
-    'NVAction' => 2, 
-  }
-  ### Term to Int
-  t2i = {
-    nil => 0, 
-    false => 1, 
-    :NODE => 2, 
-    :ACTION => 3, 
-    :VISITOR => 4, 
-  }
-  ### Int to Term
-  i2t = [
-    nil, 
-    false, 
-    :NODE, 
-    :ACTION, 
-    :VISITOR, 
-  ]
-  ### Action Table
-  action_table = [
-    [ nil, nil, 1, nil, nil, ], 
-    [ nil, nil, nil, 4, nil, ], 
-    [ ACC, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, 5, ], 
-    [ nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, 7, nil, ], 
-    [ nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, ], 
-  ]
-  ### Default Reduce Table
-  defred_table = [
-    -2, 
-    nil, 
-    nil, 
-    -4, 
-    -3, 
-    nil, 
-    -1, 
-    -5, 
-  ]
-  defred_after_shift_table = [
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -3, 
-    nil, 
-    -1, 
-    -5, 
-  ]
-  ### Nonterm to Int
-  nt2i = { 
-    :start => 0,  
-    :opt_node => 1,  
-    :opt_visitor => 2, 
-  }
-  ### Int to Nonterm
-  i2nt = [
-    :start, 
-    :opt_node, 
-    :opt_visitor, 
-  ]
-  ### Goto Table
-  goto_table = [ 
-   [ 2, 3, nil, ], 
-   [ nil, nil, nil, ], 
-   [ nil, nil, nil, ], 
-   [ nil, nil, 6, ], 
-   [ 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     = D4CSTBuilderExtension_pre_rule_list::NVAction.new(self)
-    init_parser
-  end
-
-  
-  def do_parse?
-    if @line =~ /^\s*%CST\{\s*\Z/
-       @line = $' 
-      true
-    else
-      false
-    end
-  end
-  
-
-  def banner
-    "%CST{ ... } / #{@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 = $'
-                 yield nil,nil 
-
-        
-          when /\ANode/
-            @oldline = @line; @line = $'
-                 yield token(:NODE, $&) 
-
-        
-          when /\A\{/
-            #
-                 ln = lineno; yield token(:ACTION, parse_action, ln) 
-
-        
-                else
-                  raise RuntimeError, "must not happen #{@line}"
-                end
-              end
-            end while @line0 = @line = getline
-            yield nil, nil
-          end
-        
-end
-
-### Outer Code
-
-class D4CSTBuilderExtension_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,
-
-  ]
-  Tables = [on_reduce]
-  def initialize inside
-    super inside, 'NVAction'
-    @on_reduce, = self.class::Tables
-    init_parser
-  end
-  
-
-module_eval <<-'.,.,122745803312555.,.,', 'cst.dr', 100
-def _act_0 val
-    _opt_node, _opt_visitor, = *val 
-
-        code = %{
-          class Node
-            $$!!@ NODE @!!$$
-          end
-          class Visitor
-            $$!!@ VISITOR @!!$$
-          end
-        }; #code
-        master.nodes_code <<
-          code.sub!('$$!!@ NODE @!!$$', _opt_node) \
-              .sub!('$$!!@ VISITOR @!!$$', _opt_visitor)
-
-end
-.,.,122745803312555.,.,
-      
-module_eval <<-'.,.,12274580333994.,.,', 'cst.dr', 115
-def _act_1 val
-     '' 
-
-end
-.,.,12274580333994.,.,
-      
-module_eval <<-'.,.,122745803355803.,.,', 'cst.dr', 116
-def _act_2 val
-    _NODE, _ACTION, = *val 
-     _ACTION.value 
-
-end
-.,.,122745803355803.,.,
-      
-module_eval <<-'.,.,122745803313768.,.,', 'cst.dr', 119
-def _act_3 val
-     '' 
-
-end
-.,.,122745803313768.,.,
-      
-module_eval <<-'.,.,122745803342911.,.,', 'cst.dr', 120
-def _act_4 val
-    _VISITOR, _ACTION, = *val 
-     _ACTION.value 
-
-end
-.,.,122745803342911.,.,
-      
-end
-      
-
-###
-### CSTBuilderExtension_post_lhs - Part of Depager Extension (slave)
-###
-module D4CSTBuilderExtension_post_lhs #:nodoc:all
-end
-
-class CSTBuilderExtension_post_lhs < Depager::LALR::Basis #:nodoc:all
-  include Depager::ExtensionUtils
-  
-
-  ### Reduce Table
-  reduce_table = [
-    [ -1, 1 ],
-    [ 0, 3 ],
-    [ 1, 1 ],
-    [ 1, 3 ],
-    [ 2, 1 ],
-    [ 2, 3 ],
-  ]
-  ### Extension Params
-  nparams = {
-    'NVAction' => 2, 
-  }
-  ### Term to Int
-  t2i = {
-    nil => 0, 
-    false => 1, 
-    "[" => 2, 
-    "]" => 3, 
-    "," => 4, 
-    :ID => 5, 
-    "=" => 6, 
-    :LIT => 7, 
-  }
-  ### Int to Term
-  i2t = [
-    nil, 
-    false, 
-    "[", 
-    "]", 
-    ",", 
-    :ID, 
-    "=", 
-    :LIT, 
-  ]
-  ### Action Table
-  action_table = [
-    [ nil, nil, 1, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, 5, nil, nil, ], 
-    [ ACC, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, 6, 7, nil, nil, nil, ], 
-    [ nil, nil, 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, 5, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, 10, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, ], 
-  ]
-  ### Default Reduce Table
-  defred_table = [
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -2, 
-    -4, 
-    -1, 
-    nil, 
-    nil, 
-    -3, 
-    -5, 
-  ]
-  defred_after_shift_table = [
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -2, 
-    nil, 
-    -1, 
-    nil, 
-    nil, 
-    -3, 
-    -5, 
-  ]
-  ### Nonterm to Int
-  nt2i = { 
-    :start => 0,  
-    :pair => 1,  
-    :expr => 2, 
-  }
-  ### Int to Nonterm
-  i2nt = [
-    :start, 
-    :pair, 
-    :expr, 
-  ]
-  ### Goto Table
-  goto_table = [ 
-   [ 2, nil, nil, ], 
-   [ nil, 3, 4, ], 
-   [ nil, nil, nil, ], 
-   [ nil, nil, nil, ], 
-   [ nil, nil, nil, ], 
-   [ nil, nil, nil, ], 
-   [ nil, nil, nil, ], 
-   [ nil, nil, 9, ], 
-   [ 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     = D4CSTBuilderExtension_post_lhs::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\A\s+/
-            @oldline = @line; @line = $'
-                 
-
-        
-          when /\A""/, /\A''/, /\A[0-9]+/, /\A\{\s*\}/, /\A\[\s*\]/, /\Anil/
-            @oldline = @line; @line = $'
-                 yield token(:LIT, $&) 
-
-        
-          when /\A\A[a-z][a-z_]*/
-            @oldline = @line; @line = $'
-                 yield token(:ID, $&)  
-
-        
-          when /\A\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
-    master.nodes_code << %{
-      class Node_#{master.lhs_name} < Node
-        def initialize
-          super()
-        end
-      end
-    }; #code
-  end
-
-end
-
-### Outer Code
-
-class D4CSTBuilderExtension_post_lhs::NVAction < Depager::LALR::Action #:nodoc:all
-  include Depager::DecoratorUtils
-  
-  on_reduce = [
-    nil,
-              :_act_0,
-  :_act_1,
-  :_act_2,
-  :_act_3,
-  :_act_4,
-
-  ]
-  Tables = [on_reduce]
-  def initialize inside
-    super inside, 'NVAction'
-    @on_reduce, = self.class::Tables
-    init_parser
-  end
-  
-
-module_eval <<-'.,.,122745803313978.,.,', 'cst.dr', 151
-def _act_0 val
-    _, _pair, _, = *val 
-
-        args = []; code = ''
-        _pair.each do |id, lit|
-          args <<  id
-          code << "#{id} = #{lit}; " if lit
-        end
-        attrc = args.map{|i| ":#{i}"}.join(', ')
-        master.nodes_code << %{
-          class Node_#{master.lhs_name} < Node
-            attr_accessor #{attrc}
-            def initialize
-              super()
-              #{code}
-            end
-          end
-        }; #code
-
-end
-.,.,122745803313978.,.,
-      
-module_eval <<-'.,.,122745803351295.,.,', 'cst.dr', 170
-def _act_1 val
-    _expr, = *val 
-     [ _expr ] 
-
-end
-.,.,122745803351295.,.,
-      
-module_eval <<-'.,.,122745803357565.,.,', 'cst.dr', 171
-def _act_2 val
-    _pair, _, _expr, = *val 
-     _pair << _expr 
-
-end
-.,.,122745803357565.,.,
-      
-module_eval <<-'.,.,122745803313793.,.,', 'cst.dr', 174
-def _act_3 val
-    _ID, = *val 
-     [ _ID.value, nil] 
-
-end
-.,.,122745803313793.,.,
-      
-module_eval <<-'.,.,12274580337259.,.,', 'cst.dr', 175
-def _act_4 val
-    _ID, _, _LIT, = *val 
-     [ _ID.value, _LIT.value ] 
-
-end
-.,.,12274580337259.,.,
-      
-end
-      
-
+# -*- coding: utf-8 -*-
+
+###
+### Depager::CSTBuilderExtension - Depager Extension (master)
+###
+require 'depager/parser.rb'
+
+
+module Depager ; end
+
+class Depager::CSTBuilderExtension < Depager::Extension
+
+  def initialize
+    @master = self
+    @slaves = []
+  end
+
+  def extension_registered g_parser
+    super g_parser
+
+    @slaves[0] = Depager::CSTBuilderExtension::Slave_pre_rule_list::Parser.new(g_parser, self)
+    g_parser.hooks[:pre_rule_list].push [@slaves[0], :do_parse]
+    @slaves[1] = Depager::CSTBuilderExtension::Slave_post_lhs::Parser.new(g_parser, self)
+    g_parser.hooks[:post_lhs].push [@slaves[1], :do_parse]
+  end
+
+module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 8
+  attr_accessor :action_code, :nodes_code, :visitor_code
+  def init_extension
+    @n = 0
+    @visitor_code = ''
+    @nodes_code   = ''
+    @action_code   = ''
+    @on_reduce    = []
+  end
+
+  def modify_action_code code
+    code.gsub(/\$\.([a-z_])/, 'node.\1')
+  end
+
+  def post_rhs
+    code, lineno = '', g_parser.file.lineno
+    if g_parser.line =~ /\s*\{/
+      @original_line, @line = g_parser.original_line, g_parser.line
+      code = parse_block
+
+      g_parser.update_context @line
+    end
+
+    node_name = "#{g_parser.lhs_name}_#{g_parser.nrhs}"
+    accept = ""
+    nodes = g_parser.rhs.map do |i|
+      x = g_parser.int_to_sym(i)
+      if x.class == String
+        "tx#{x.unpack("H*")[0]}"
+      else
+        x = x.to_s
+        accept << "#{x}.accept(v); " if x =~ /\A[a-z_]+\Z/
+        x.downcase
+      end
+    end
+    attrc = nodes.map{|i| ":#{i}" }.join(', ')
+    inic  = nodes.map{|i| "@#{i} = #{i}"}.join('; ')
+    @nodes_code << %{
+      class Node_#{node_name} < Node_#{g_parser.lhs_name}
+        attr_accessor #{attrc}
+        def initialize #{nodes.join(', ')}
+          super()
+          #{inic}
+        end
+        def accept v
+          #{accept}
+          v.visit_Node_#{node_name}(self)
+        end
+      end
+    } #code
+
+    @visitor_code <<
+      expand_inline_code(modify_action_code(code), lineno, :wrap => "def visit_Node_#{node_name} node")
+
+    args  = nodes.inject([]){|r, i| r << "val[#{r.size}]"}
+    code = "#{target_namespace}::Node_#{node_name}.new(#{args.join(', ')})"
+    n = g_parser.rules.size-1
+    @action_code <<
+      expand_inline_code(code, lineno, :wrap => "def _cst_#{n} val")
+
+    @on_reduce[n] = ":_cst_#{n}"
+  end
+
+  def term_extension
+    g_parser.outer_code << "module #{target_namespace}\n"
+    g_parser.outer_code << @nodes_code
+    g_parser.outer_code << %{
+      class Visitor
+      %s
+      end
+    } % @visitor_code #code
+    g_parser.outer_code << "end\n"
+    g_parser.outer_code << generate_action_decorator_code(@on_reduce, @action_code)
+  end
+
+DEPAGER_EXPANDED_CODE
+
+end
+
+###
+### Depager::CSTBuilderExtension::Slave_pre_rule_list - Part of Depager Extension (slave)
+###
+
+module Depager::CSTBuilderExtension::Slave_pre_rule_list #:nodoc:all
+  class Parser < Depager::LALR::Basis #:nodoc:all
+    include Depager::Utils::ExtensionSlaveMethods
+    
+
+    ### Reduce Table
+    reduce_table = [
+      [ -1, 1 ],
+      [ 0, 2 ],
+      [ 1, 0 ],
+      [ 1, 2 ],
+      [ 2, 0 ],
+      [ 2, 2 ],
+    ]
+    ### Term to Int
+    term_to_int = {
+      nil => 0,
+      false => 1,
+      :NODE => 2,
+      :ACTION => 3,
+      :VISITOR => 4,
+    }
+    ### Int to Term
+    int_to_term = [
+      nil,
+      false,
+      :NODE,
+      :ACTION,
+      :VISITOR,
+    ]
+    ### Action Table
+    action_table = [
+      [ nil, nil, 3, nil, nil, ],
+      [ ACC, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, 5, ],
+      [ nil, nil, nil, 6, nil, ],
+      [ nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, 7, nil, ],
+      [ nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, ],
+    ]
+    ### Default Reduce Table
+    defred_table = [
+      -2,
+      nil,
+      -4,
+      nil,
+      -1,
+      nil,
+      -3,
+      -5,
+    ]
+    defred_after_shift_table = [
+      nil,
+      nil,
+      nil,
+      nil,
+      -1,
+      nil,
+      -3,
+      -5,
+    ]
+    ### Nonterm to Int
+    nonterm_to_int = {
+      :start => 0, 
+      :opt_node => 1, 
+      :opt_visitor => 2, 
+    }
+    ### Int to Nonterm
+    int_to_nonterm = [
+      :start, 
+      :opt_node, 
+      :opt_visitor, 
+    ]
+    ### Goto Table
+    goto_table = [
+      [ 1, 2, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, 4, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+    ]
+
+    Tables = [ reduce_table, action_table,
+               defred_table, defred_after_shift_table, goto_table,
+               term_to_int, int_to_term, nonterm_to_int, int_to_nonterm ]
+
+    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*%CST\{\s*\Z/)
+         @line = $' 
+        true
+      else
+        false
+      end
+    end
+    
+
+    def banner
+      "%CST{ ... } / Depager::CSTBuilderExtension"
+    end
+
+
+          def lex
+            begin
+              until @line.empty?
+                case @line
+                
+          when /\A\s+/, /\A#.*/
+            @line = $'
+                 
+
+        
+          when /\A%\}\s*\Z/
+            @line = $'
+                 yield nil,nil 
+
+        
+          when /\ANode/
+            @line = $'
+                 yield token(:NODE, $&) 
+
+        
+          when /\AVisitor/
+            @line = $'
+                 yield token(:VISITOR, $&) 
+
+        
+          when /\A\{/
+            #
+                 lineno = file.lineno; yield token(:ACTION, parse_block, lineno) 
+
+        
+                else
+                  raise RuntimeError, "must not happen #{@line}"
+                end
+              end
+            end while @original_line = @line = file.gets
+            yield nil, nil
+          end
+        
+  end
+end
+
+
+class Depager::CSTBuilderExtension::Slave_pre_rule_list::Action < Depager::LALR::Action #:nodoc:all
+  include Depager::Utils::ExtensionSlaveDecoratorMethods
+
+            on_reduce = [
+                          nil,
+            :_act_1,
+            :_act_2,
+            :_act_3,
+            :_act_4,
+            :_act_5,
+
+            ]
+            Tables = [ on_reduce ]
+
+            
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 95
+def _act_1 val
+    _opt_node, _opt_visitor, = *val 
+
+        master.nodes_code << %{
+          class Node
+            def accept
+            end
+          %s
+          end
+        } % _opt_node #code
+        master.visitor_code << _opt_visitor
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 107
+def _act_2 val
+     '' 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 108
+def _act_3 val
+    _NODE, _ACTION, = *val 
+     _ACTION.value 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 111
+def _act_4 val
+     '' 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 112
+def _act_5 val
+    _VISITOR, _ACTION, = *val 
+     _ACTION.value 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+        
+end
+        
+###
+### Depager::CSTBuilderExtension::Slave_post_lhs - Part of Depager Extension (slave)
+###
+
+module Depager::CSTBuilderExtension::Slave_post_lhs #:nodoc:all
+  class Parser < Depager::LALR::Basis #:nodoc:all
+    include Depager::Utils::ExtensionSlaveMethods
+    
+
+    ### Reduce Table
+    reduce_table = [
+      [ -1, 1 ],
+      [ 0, 3 ],
+      [ 1, 1 ],
+      [ 1, 3 ],
+      [ 2, 1 ],
+      [ 2, 3 ],
+    ]
+    ### Term to Int
+    term_to_int = {
+      nil => 0,
+      false => 1,
+      "[" => 2,
+      "]" => 3,
+      "," => 4,
+      :ID => 5,
+      "=" => 6,
+      :LIT => 7,
+    }
+    ### Int to Term
+    int_to_term = [
+      nil,
+      false,
+      "[",
+      "]",
+      ",",
+      :ID,
+      "=",
+      :LIT,
+    ]
+    ### Action Table
+    action_table = [
+      [ nil, nil, 2, nil, nil, nil, nil, nil, ],
+      [ ACC, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, 5, nil, nil, ],
+      [ nil, nil, nil, 6, 7, nil, nil, nil, ],
+      [ nil, nil, 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, 5, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, 10, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, nil, nil, ],
+    ]
+    ### Default Reduce Table
+    defred_table = [
+      nil,
+      nil,
+      nil,
+      nil,
+      -2,
+      -4,
+      -1,
+      nil,
+      nil,
+      -3,
+      -5,
+    ]
+    defred_after_shift_table = [
+      nil,
+      nil,
+      nil,
+      nil,
+      -2,
+      nil,
+      -1,
+      nil,
+      nil,
+      -3,
+      -5,
+    ]
+    ### Nonterm to Int
+    nonterm_to_int = {
+      :start => 0, 
+      :pair => 1, 
+      :expr => 2, 
+    }
+    ### Int to Nonterm
+    int_to_nonterm = [
+      :start, 
+      :pair, 
+      :expr, 
+    ]
+    ### Goto Table
+    goto_table = [
+      [ 1, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, 3, 4, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, 9, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+      [ nil, nil, nil, ],
+    ]
+
+    Tables = [ reduce_table, action_table,
+               defred_table, defred_after_shift_table, goto_table,
+               term_to_int, int_to_term, nonterm_to_int, int_to_nonterm ]
+
+    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::CSTBuilderExtension"
+    end
+
+
+          def lex
+            begin
+              until @line.empty?
+                case @line
+                
+          when /\A\A\s+/
+            @line = $'
+                 
+
+        
+          when /\A""/, /\A''/, /\A[0-9]+/, /\A\{\s*\}/, /\A\[\s*\]/, /\Anil/
+            @line = $'
+                 yield token(:LIT, $&) 
+
+        
+          when /\A\A[a-z][a-z_]*/
+            @line = $'
+                 yield token(:ID, $&)  
+
+        
+          when /\A\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/ruby/plugins/cst.dr', 121
+  def do_default
+    master.nodes_code << %{
+      class Node_#{g_parser.lhs_name} < Node
+        def initialize
+          super()
+        end
+      end
+    } #code
+  end
+
+DEPAGER_EXPANDED_CODE
+
+  end
+end
+
+
+class Depager::CSTBuilderExtension::Slave_post_lhs::Action < Depager::LALR::Action #:nodoc:all
+  include Depager::Utils::ExtensionSlaveDecoratorMethods
+
+            on_reduce = [
+                          nil,
+            :_act_1,
+            :_act_2,
+            :_act_3,
+            :_act_4,
+            :_act_5,
+
+            ]
+            Tables = [ on_reduce ]
+
+            
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 143
+def _act_1 val
+    _, _pair, _, = *val 
+
+        args = []; code = ''
+        _pair.each do |id, lit|
+          args <<  id
+          code << "#{id} = #{lit}; " if lit
+        end
+        attrc = args.map{|i| ":#{i}"}.join(', ')
+        master.nodes_code << %{
+          class Node_#{g_parser.lhs_name} < Node
+            attr_accessor #{attrc}
+            def initialize
+              super
+              #{code}
+            end
+          end
+        } #code
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 162
+def _act_2 val
+    _expr, = *val 
+     [ _expr ] 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 163
+def _act_3 val
+    _pair, _, _expr, = *val 
+     _pair << _expr 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 166
+def _act_4 val
+    _ID, = *val 
+     [ _ID.value, nil] 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 167
+def _act_5 val
+    _ID, _, _LIT, = *val 
+     [ _ID.value, _LIT.value ] 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+        
+end
+