depager 0.3.0.b20160729 → 0.3.0.b20250423

data/lib/depager/{ruby/plugins → plugins}/cst.rb

@@ -1,5 +1,3 @@
-# -*- coding: utf-8 -*-
-
 ###
 ### Depager::CSTBuilderExtension - Depager Extension (master)
 ###
@@ -11,6 +9,7 @@ module Depager ; end
 class Depager::CSTBuilderExtension < Depager::Extension
 
   def initialize
+    super
     @master = self
     @slaves = []
   end
@@ -18,13 +17,13 @@ class Depager::CSTBuilderExtension < Depager::Extension
   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]
+    @slaves << Depager::CSTBuilderExtension::PreRuleList0::Parser.new(g_parser, self)
+    g_parser.hooks[:pre_rule_list].push [@slaves.last, :do_parse]
+    @slaves << Depager::CSTBuilderExtension::PostLhs1::Parser.new(g_parser, self)
+    g_parser.hooks[:post_lhs].push [@slaves.last, :do_parse]
   end
 
-module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 8
+module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/cst.dr', 7
   attr_accessor :action_code, :nodes_code, :visitor_code
   def init_extension
     @n = 0
@@ -61,7 +60,7 @@ module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 8
     end
     attrc = nodes.map{|i| ":#{i}" }.join(', ')
     inic  = nodes.map{|i| "@#{i} = #{i}"}.join('; ')
-    @nodes_code << %{
+    @nodes_code << <<-CODE
       class Node_#{node_name} < Node_#{g_parser.lhs_name}
         attr_accessor #{attrc}
         def initialize #{nodes.join(', ')}
@@ -72,8 +71,11 @@ module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 8
           #{accept}
           v.visit_Node_#{node_name}(self)
         end
+        def children
+          [#{nodes.join(', ')}]
+        end
       end
-    } #code
+    CODE
 
     @visitor_code <<
       expand_inline_code(modify_action_code(code), lineno, :wrap => "def visit_Node_#{node_name} node")
@@ -90,11 +92,11 @@ module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 8
   def term_extension
     g_parser.outer_code << "module #{target_namespace}\n"
     g_parser.outer_code << @nodes_code
-    g_parser.outer_code << %{
+    g_parser.outer_code << <<-CODE
       class Visitor
-      %s
+      #{@visitor_code}
       end
-    } % @visitor_code #code
+    CODE
     g_parser.outer_code << "end\n"
     g_parser.outer_code << generate_action_decorator_code(@on_reduce, @action_code)
   end
@@ -104,16 +106,15 @@ DEPAGER_EXPANDED_CODE
 end
 
 ###
-### Depager::CSTBuilderExtension::Slave_pre_rule_list - Part of Depager Extension (slave)
+### Depager::CSTBuilderExtension::PreRuleList0 - Part of Depager Extension (slave)
 ###
 
-module Depager::CSTBuilderExtension::Slave_pre_rule_list #:nodoc:all
+module Depager::CSTBuilderExtension::PreRuleList0 #:nodoc:all
   class Parser < Depager::LALR::Basis #:nodoc:all
     include Depager::Utils::ExtensionSlaveMethods
-    
 
     ### Reduce Table
-    reduce_table = [
+    REDUCE_TABLE = [
       [ -1, 1 ],
       [ 0, 2 ],
       [ 1, 0 ],
@@ -121,24 +122,30 @@ module Depager::CSTBuilderExtension::Slave_pre_rule_list #:nodoc:all
       [ 2, 0 ],
       [ 2, 2 ],
     ]
+    def reduce_table; REDUCE_TABLE; end
+
     ### Term to Int
-    term_to_int = {
+    TERM_TO_INT = {
       nil => 0,
       false => 1,
       :NODE => 2,
       :ACTION => 3,
       :VISITOR => 4,
     }
+    def term_to_int; TERM_TO_INT; end
+
     ### Int to Term
-    int_to_term = [
+    INT_TO_TERM = [
       nil,
       false,
       :NODE,
       :ACTION,
       :VISITOR,
     ]
+    def int_to_term; INT_TO_TERM; end
+
     ### Action Table
-    action_table = [
+    ACTION_TABLE = [
       [ nil, nil, 3, nil, nil, ],
       [ ACC, nil, nil, nil, nil, ],
       [ nil, nil, nil, nil, 5, ],
@@ -148,8 +155,10 @@ module Depager::CSTBuilderExtension::Slave_pre_rule_list #:nodoc:all
       [ nil, nil, nil, nil, nil, ],
       [ nil, nil, nil, nil, nil, ],
     ]
+    def action_table; ACTION_TABLE; end
+
     ### Default Reduce Table
-    defred_table = [
+    DEFRED_TABLE = [
       -2,
       nil,
       -4,
@@ -159,7 +168,9 @@ module Depager::CSTBuilderExtension::Slave_pre_rule_list #:nodoc:all
       -3,
       -5,
     ]
-    defred_after_shift_table = [
+    def defred_table; DEFRED_TABLE; end
+
+    DEFRED_AFTER_SHIFT_TABLE = [
       nil,
       nil,
       nil,
@@ -169,20 +180,26 @@ module Depager::CSTBuilderExtension::Slave_pre_rule_list #:nodoc:all
       -3,
       -5,
     ]
+    def defred_after_shift_table; DEFRED_AFTER_SHIFT_TABLE; end
+
     ### Nonterm to Int
-    nonterm_to_int = {
-      :start => 0, 
-      :opt_node => 1, 
-      :opt_visitor => 2, 
+    NONTERM_TO_INT = {
+      :start => 0,
+      :opt_node => 1,
+      :opt_visitor => 2,
     }
+    def nonterm_to_int; NONTERM_TO_INT; end
+
     ### Int to Nonterm
-    int_to_nonterm = [
-      :start, 
-      :opt_node, 
-      :opt_visitor, 
+    INT_TO_NONTERM = [
+      :start,
+      :opt_node,
+      :opt_visitor,
     ]
+    def int_to_nonterm; INT_TO_NONTERM; end
+
     ### Goto Table
-    goto_table = [
+    GOTO_TABLE = [
       [ 1, 2, nil, ],
       [ nil, nil, nil, ],
       [ nil, nil, 4, ],
@@ -192,10 +209,7 @@ module Depager::CSTBuilderExtension::Slave_pre_rule_list #:nodoc:all
       [ 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 goto_table; GOTO_TABLE; end
 
     def initialize g_parser, master
       super()
@@ -220,124 +234,112 @@ module Depager::CSTBuilderExtension::Slave_pre_rule_list #:nodoc:all
       "%CST{ ... } / Depager::CSTBuilderExtension"
     end
 
-
-          def lex
-            begin
-              until @line.empty?
-                case @line
-                
+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
+
+      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
+class Depager::CSTBuilderExtension::PreRuleList0::Action < Depager::LALR::Action #:nodoc:all
   include Depager::Utils::ExtensionSlaveDecoratorMethods
-
-            on_reduce = [
-                          nil,
+ON_REDUCE = [
+              nil,
             :_act_1,
             :_act_2,
             :_act_3,
             :_act_4,
             :_act_5,
 
-            ]
-            Tables = [ on_reduce ]
+]
+def on_reduce; ON_REDUCE; end
 
-            
-module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 95
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/cst.dr', 97
 def _act_1 val
-    _opt_node, _opt_visitor, = *val 
+    _opt_node, _opt_visitor, = *val
 
-        master.nodes_code << %{
+        master.nodes_code << <<-CODE
           class Node
             def accept
             end
-          %s
+          #{_opt_node}
           end
-        } % _opt_node #code
+        CODE
         master.visitor_code << _opt_visitor
 
 end
 DEPAGER_EXPANDED_CODE
-        
-module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 107
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/cst.dr', 109
 def _act_2 val
+    # empty rule
      '' 
 
 end
 DEPAGER_EXPANDED_CODE
-        
-module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 108
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/cst.dr', 110
 def _act_3 val
-    _NODE, _ACTION, = *val 
+    _NODE, _ACTION, = *val
      _ACTION.value 
 
 end
 DEPAGER_EXPANDED_CODE
-        
-module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 111
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/cst.dr', 113
 def _act_4 val
+    # empty rule
      '' 
 
 end
 DEPAGER_EXPANDED_CODE
-        
-module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 112
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/cst.dr', 114
 def _act_5 val
-    _VISITOR, _ACTION, = *val 
+    _VISITOR, _ACTION, = *val
      _ACTION.value 
 
 end
 DEPAGER_EXPANDED_CODE
-        
-        
+
+
 end
-        
+
 ###
-### Depager::CSTBuilderExtension::Slave_post_lhs - Part of Depager Extension (slave)
+### Depager::CSTBuilderExtension::PostLhs1 - Part of Depager Extension (slave)
 ###
 
-module Depager::CSTBuilderExtension::Slave_post_lhs #:nodoc:all
+module Depager::CSTBuilderExtension::PostLhs1 #:nodoc:all
   class Parser < Depager::LALR::Basis #:nodoc:all
     include Depager::Utils::ExtensionSlaveMethods
-    
 
     ### Reduce Table
-    reduce_table = [
+    REDUCE_TABLE = [
       [ -1, 1 ],
       [ 0, 3 ],
       [ 1, 1 ],
@@ -345,8 +347,10 @@ module Depager::CSTBuilderExtension::Slave_post_lhs #:nodoc:all
       [ 2, 1 ],
       [ 2, 3 ],
     ]
+    def reduce_table; REDUCE_TABLE; end
+
     ### Term to Int
-    term_to_int = {
+    TERM_TO_INT = {
       nil => 0,
       false => 1,
       "[" => 2,
@@ -356,8 +360,10 @@ module Depager::CSTBuilderExtension::Slave_post_lhs #:nodoc:all
       "=" => 6,
       :LIT => 7,
     }
+    def term_to_int; TERM_TO_INT; end
+
     ### Int to Term
-    int_to_term = [
+    INT_TO_TERM = [
       nil,
       false,
       "[",
@@ -367,8 +373,10 @@ module Depager::CSTBuilderExtension::Slave_post_lhs #:nodoc:all
       "=",
       :LIT,
     ]
+    def int_to_term; INT_TO_TERM; end
+
     ### Action Table
-    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, ],
@@ -381,8 +389,10 @@ module Depager::CSTBuilderExtension::Slave_post_lhs #:nodoc:all
       [ 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 = [
+    DEFRED_TABLE = [
       nil,
       nil,
       nil,
@@ -395,7 +405,9 @@ module Depager::CSTBuilderExtension::Slave_post_lhs #:nodoc:all
       -3,
       -5,
     ]
-    defred_after_shift_table = [
+    def defred_table; DEFRED_TABLE; end
+
+    DEFRED_AFTER_SHIFT_TABLE = [
       nil,
       nil,
       nil,
@@ -408,20 +420,26 @@ module Depager::CSTBuilderExtension::Slave_post_lhs #:nodoc:all
       -3,
       -5,
     ]
+    def defred_after_shift_table; DEFRED_AFTER_SHIFT_TABLE; end
+
     ### Nonterm to Int
-    nonterm_to_int = {
-      :start => 0, 
-      :pair => 1, 
-      :expr => 2, 
+    NONTERM_TO_INT = {
+      :start => 0,
+      :pair => 1,
+      :expr => 2,
     }
+    def nonterm_to_int; NONTERM_TO_INT; end
+
     ### Int to Nonterm
-    int_to_nonterm = [
-      :start, 
-      :pair, 
-      :expr, 
+    INT_TO_NONTERM = [
+      :start,
+      :pair,
+      :expr,
     ]
+    def int_to_nonterm; INT_TO_NONTERM; end
+
     ### Goto Table
-    goto_table = [
+    GOTO_TABLE = [
       [ 1, nil, nil, ],
       [ nil, nil, nil, ],
       [ nil, 3, 4, ],
@@ -434,10 +452,7 @@ module Depager::CSTBuilderExtension::Slave_post_lhs #:nodoc:all
       [ 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 goto_table; GOTO_TABLE; end
 
     def initialize g_parser, master
       super()
@@ -462,48 +477,43 @@ module Depager::CSTBuilderExtension::Slave_post_lhs #:nodoc:all
       "[ ... ] / Depager::CSTBuilderExtension"
     end
 
-
-          def lex
-            begin
-              until @line.empty?
-                case @line
-                
+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
+
+      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/cst.dr', 123
   def do_default
-    master.nodes_code << %{
+    master.nodes_code << <<-CODE
       class Node_#{g_parser.lhs_name} < Node
         def initialize
           super()
         end
       end
-    } #code
+    CODE
   end
 
 DEPAGER_EXPANDED_CODE
@@ -511,25 +521,22 @@ DEPAGER_EXPANDED_CODE
   end
 end
 
-
-class Depager::CSTBuilderExtension::Slave_post_lhs::Action < Depager::LALR::Action #:nodoc:all
+class Depager::CSTBuilderExtension::PostLhs1::Action < Depager::LALR::Action #:nodoc:all
   include Depager::Utils::ExtensionSlaveDecoratorMethods
-
-            on_reduce = [
-                          nil,
+ON_REDUCE = [
+              nil,
             :_act_1,
             :_act_2,
             :_act_3,
             :_act_4,
             :_act_5,
 
-            ]
-            Tables = [ on_reduce ]
+]
+def on_reduce; ON_REDUCE; end
 
-            
-module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 143
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/cst.dr', 145
 def _act_1 val
-    _, _pair, _, = *val 
+    _, _pair, _, = *val
 
         args = []; code = ''
         _pair.each do |id, lit|
@@ -537,7 +544,7 @@ def _act_1 val
           code << "#{id} = #{lit}; " if lit
         end
         attrc = args.map{|i| ":#{i}"}.join(', ')
-        master.nodes_code << %{
+        master.nodes_code << <<-CODE
           class Node_#{g_parser.lhs_name} < Node
             attr_accessor #{attrc}
             def initialize
@@ -545,43 +552,40 @@ def _act_1 val
               #{code}
             end
           end
-        } #code
+        CODE
 
 end
 DEPAGER_EXPANDED_CODE
-        
-module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 162
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/cst.dr', 164
 def _act_2 val
-    _expr, = *val 
+    _expr, = *val
      [ _expr ] 
 
 end
 DEPAGER_EXPANDED_CODE
-        
-module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 163
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/cst.dr', 165
 def _act_3 val
-    _pair, _, _expr, = *val 
+    _pair, _, _expr, = *val
      _pair << _expr 
 
 end
 DEPAGER_EXPANDED_CODE
-        
-module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 166
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/cst.dr', 168
 def _act_4 val
-    _ID, = *val 
+    _ID, = *val
      [ _ID.value, nil] 
 
 end
 DEPAGER_EXPANDED_CODE
-        
-module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/cst.dr', 167
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/cst.dr', 169
 def _act_5 val
-    _ID, _, _LIT, = *val 
+    _ID, _, _LIT, = *val
      [ _ID.value, _LIT.value ] 
 
 end
 DEPAGER_EXPANDED_CODE
-        
-        
+
+
 end
-        
+
+

data/lib/depager/{ruby/plugins → plugins}/lex.dr

@@ -1,7 +1,7 @@
 %defext Depager::LexerExtension
-%extend Depager::Action ('plugins/action.rb')
+%extend Depager::Action ('depager/plugins/action.rb')
 %decorate @Action
-#%decorate Depager::LALR::ShiftReducePrinter ('plugins/srp.rb')
+#%decorate Depager::LALR::ShiftReducePrinter ('depager/plugins/srp.rb')
 %expanded_code_delimiter DEPAGER_EXPANDED_CODE
 %hook pre_rule_list /%LEX\{\s*\Z/ skip
 %banner '%LEX{ ... }'
@@ -43,12 +43,12 @@
   start:
       lexactlist
       {
-        g_parser.inner_code << %{
+        g_parser.inner_code << <<~CODE
           def lex
             begin
               until @line.empty?
                 case @line
-                #{ _lexactlist }
+          #{ _lexactlist }
                 else
                   raise RuntimeError, "must not happen \#{@line}"
                 end
@@ -56,7 +56,7 @@
             end while @original_line = @line = file.gets
             yield nil, nil
           end
-        }; #code
+        CODE
       }
   ;
   lexactlist:
@@ -66,11 +66,11 @@
   lexact:
       lexlist opt_noskip ACTION
       {
-        %{
+        <<-CODE
           when #{_lexlist.join(', ')}
             #{ _opt_noskip ? '#' : "@line = $'" }
             #{ _ACTION }
-        }; #code
+        CODE
       }
   ;
   opt_noskip: