depager 0.2.3 → 0.3.0.b20250423

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

@@ -1,626 +0,0 @@
-
-###
-### 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
-      
-