depager 0.2.3 → 0.3.0.b20250423

data/examples/slex_test/ljoin.slex.tab.rb

@@ -1,370 +0,0 @@
-
-begin; require 'rubygems'; rescue Exception; end
-require 'depager/parser.rb'
-
-
-module Depager::DecoratorUtils; end
-module D4StatefulLexerTest2;    end
-
-class StatefulLexerTest2 < Depager::LALR::Basis
-  
-
-  ### Reduce Table
-  reduce_table = [
-    [   -1,    1 ], # (  0) $start : stmts
-    [    0,    0 ], # (  1) stmts : 
-    [    0,    3 ], # (  2) stmts : stmts expr EOL
-    [    1,    4 ], # (  3) expr : expr '+' __expr_0_2__ fact
-    [    1,    1 ], # (  4) expr : fact
-    [    3,    0 ], # (  5) __expr_0_2__ : 
-    [    2,    1 ], # (  6) fact : ID
-  ]
-  ### Extension Params
-  nparams = {
-    'NVAction' => 3, 
-    'StatefulLexer' => 2, 
-  }
-  ### Term to Int
-  t2i = {
-    nil => 0, 
-    false => 1, 
-    :EOL => 2, 
-    "+" => 3, 
-    :ID => 4, 
-  }
-  ### Int to Term
-  i2t = [
-    nil, 
-    false, 
-    :EOL, 
-    "+", 
-    :ID, 
-  ]
-  ### Action Table
-  action_table = [
-    [ nil, nil, nil, nil, nil, ], 
-    [ ACC, nil, nil, nil, 4, ], 
-    [ nil, nil, 5, 6, nil, ], 
-    [ 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, ], 
-  ]
-  ### Default Reduce Table
-  defred_table = [
-    -1, 
-    nil, 
-    nil, 
-    -4, 
-    -6, 
-    -2, 
-    -5, 
-    nil, 
-    -3, 
-  ]
-  defred_after_shift_table = [
-    -1, 
-    nil, 
-    nil, 
-    -4, 
-    -6, 
-    -2, 
-    -5, 
-    nil, 
-    -3, 
-  ]
-  ### Nonterm to Int
-  nt2i = { 
-    :stmts => 0,  
-    :expr => 1,  
-    :fact => 2,  
-    :__expr_0_2__ => 3, 
-  }
-  ### Int to Nonterm
-  i2nt = [
-    :stmts, 
-    :expr, 
-    :fact, 
-    :__expr_0_2__, 
-  ]
-  ### Goto Table
-  goto_table = [ 
-   [ 1, nil, nil, nil, ], 
-   [ nil, 2, 3, nil, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, nil, nil, 7, ], 
-   [ nil, nil, 8, nil, ], 
-   [ nil, nil, nil, nil, ], 
-  ]
-
-
-  alias orig_error error
-  def error
-    orig_error
-    warn "current state: #{StateInfo[@stack.last]}"
-  end
-
-  ### States
-  StateInfo = [ 
-<<'----------',
-I000 = 
-  (  0) $start : _ stmts
-
-
-  $default       reduce using rule 1 (stmts)  [after shift]
-
-----------
-  
-<<'----------',
-I001 = 
-  (  0) $start : stmts _
-  (  2) stmts : stmts _ expr EOL
-
-  ID              shift, and goto to state 4
-
-
-  $end            accept
-
-----------
-  
-<<'----------',
-I002 = 
-  (  2) stmts : stmts expr _ EOL
-  (  3) expr : expr _ '+' __expr_0_2__ fact
-
-  EOL             shift, and goto to state 5
-  '+'             shift, and goto to state 6
-
-
-----------
-  
-<<'----------',
-I003 = 
-  (  4) expr : fact _
-
-
-  $default       reduce using rule 4 (expr)  [after shift]
-
-----------
-  
-<<'----------',
-I004 = 
-  (  6) fact : ID _
-
-
-  $default       reduce using rule 6 (fact)  [after shift]
-
-----------
-  
-<<'----------',
-I005 = 
-  (  2) stmts : stmts expr EOL _
-
-
-  $default       reduce using rule 2 (stmts)  [after shift]
-
-----------
-  
-<<'----------',
-I006 = 
-  (  3) expr : expr '+' _ __expr_0_2__ fact
-
-
-  $default       reduce using rule 5 (__expr_0_2__)  [after shift]
-
-----------
-  
-<<'----------',
-I007 = 
-  (  3) expr : expr '+' __expr_0_2__ _ fact
-
-  ID              shift, and goto to state 4
-
-
-----------
-  
-<<'----------',
-I008 = 
-  (  3) expr : expr '+' __expr_0_2__ fact _
-
-
-  $default       reduce using rule 3 (expr)  [after shift]
-
-----------
-  ]
-
-
-  Tables = [ reduce_table, nparams, action_table,
-             defred_table, defred_after_shift_table, goto_table,
-             t2i, i2t, nt2i, i2nt ]
-
-  def self.createDecoratedParser
-    D4StatefulLexerTest2::StatefulLexer.new(D4StatefulLexerTest2::NVAction.new(StatefulLexerTest2.new()))
-  end
-
-  ### Inner Code
-
-            def lex_START(&block)
-              case @line
-                
-          when /\A[ \t]+/
-            @oldline = @line; @line = $'
-                 
-
-        
-          when /\A\n/
-            @oldline = @line; @line = $'
-                 yield token(:EOL, $&) 
-
-        
-          when /\A\w+/
-            @oldline = @line; @line = $'
-                 yield token(:ID,  $&) 
-
-        
-          when /\A./
-            @oldline = @line; @line = $'
-                 yield token($&,   $&) 
-
-        
-              else
-                raise RuntimeError, "must not happen #{@line}"
-              end
-            end
-          
-            def lex_LCONT(&block)
-              case @line
-                
-          when /\A\r?\n/
-            @oldline = @line; @line = $'
-                 
-
-        
-              else
-                lex_START(&block)
-              end
-            end
-          
-          attr_accessor :lex_state, :lex_context
-          def lex(&block)
-            @lex_state   ||= :START
-            @lex_context ||= {}
-            begin
-              until @line.empty?
-                self.send "lex_#{@lex_state}", &block
-              end
-            end while @line0 = @line = getline
-            yield nil, nil
-          end
-        
-end
-
-### Outer Code
-
-class D4StatefulLexerTest2::StatefulLexer < Depager::LALR::Action #:nodoc:all
-  include Depager::DecoratorUtils
-  
-  on_reduce = [
-    nil,
-              nil,
-  nil,
-  nil,
-  nil,
-  :_lex_expr_0_2,
-  :_lex_fact_0_1,
-
-  ]
-  Tables = [on_reduce]
-  def initialize inside
-    super inside, 'StatefulLexer'
-    @on_reduce, = self.class::Tables
-    init_parser
-  end
-  
-
-        def _lex_expr_0_2 val
-          @basis.lex_state = :LCONT
-        end
-      
-        def _lex_fact_0_1 val
-          @basis.lex_state = :START
-        end
-      
-      def afterError
-        warn "StatefulLex: lex_state==#{@basis.lex_state}" if $MP_DEBUG
-      end
-    
-end
-      
-class D4StatefulLexerTest2::NVAction < Depager::LALR::Action #:nodoc:all
-  include Depager::DecoratorUtils
-  
-  on_reduce = [
-    nil,
-              nil,
-  :_act_1,
-  :_act_2,
-  :_act_3,
-  nil,
-  :_act_5,
-
-  ]
-  Tables = [on_reduce]
-  def initialize inside
-    super inside, 'NVAction'
-    @on_reduce, = self.class::Tables
-    init_parser
-  end
-  
-
-module_eval <<-'.,.,12274580401395.,.,', 'slex_test/ljoin.slex.dr', 19
-def _act_1 val
-    _stmts, _expr, _EOL, = *val 
-     warn "#{_expr} <EOL>:#{@lexstate}" 
-
-end
-.,.,12274580401395.,.,
-      
-module_eval <<-'.,.,1227458040182.,.,', 'slex_test/ljoin.slex.dr', 23
-def _act_2 val
-    _expr, _, ___expr_0_2__, _fact, = *val 
-     "#{_expr} + #{_fact}" 
-
-end
-.,.,1227458040182.,.,
-      
-module_eval <<-'.,.,122745804061311.,.,', 'slex_test/ljoin.slex.dr', 25
-def _act_3 val
-    _fact, = *val 
-     _fact 
-
-end
-.,.,122745804061311.,.,
-      
-module_eval <<-'.,.,122745804033944.,.,', 'slex_test/ljoin.slex.dr', 29
-def _act_5 val
-    _ID, = *val 
-     _ID.value 
-
-end
-.,.,122745804033944.,.,
-      
-end
-      
-
-def createDecoratedStatefulLexerTest2
-  D4StatefulLexerTest2::StatefulLexer.new(D4StatefulLexerTest2::NVAction.new(StatefulLexerTest2.new()))
-end
-
-### main
-if __FILE__ == $0
-### Main Code
-p = createDecoratedStatefulLexerTest2
-p.parse(STDIN)
-
-end

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

@@ -1,73 +0,0 @@
-class ASTBuilderExtension
-  TMPL_NODE_BASE = <<EOS
-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
-EOS
-
-  TMPL_NODE = <<EOS
-class Node_<%= name %> < Node
-  attr_accessor <%= nodes.map{|i| ":\#{i}" }.join(', ') %>
-  attr_accessor <%= attrs.map{|i| ":\#{i}" }.join(', ') %>
-  def initialize <%= nodes.unshift('lineno').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
-end
-EOS
-end

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

@@ -1,43 +0,0 @@
-require 'depager/parser.rb'
-
-class ActionExtension #:nodoc:all
-  include Depager::ExtensionUtils
-  def initialize
-    @line0 = @line = @oldline = ''
-    @optouter = []
-    @on_reduce = []
-  end
-  
-  def modify_action_code code
-    return code, 0
-  end
-
-  def pre_rule_list
-    if g_parser.line0 =~ /^%ACTION\{\s*$/
-      while line = getline
-        break if line =~ /^%\}\s*$/
-        @optouter.push line
-      end
-      g_parser.update_context ''
-    end
-  end
-
-  def post_rhs
-    if g_parser.line =~ /\s*\{/
-      @line0, @line = g_parser.line0, g_parser.line
-      lineno = g_parser.lineno
-      code, d = modify_action_code(parse_action)
-      @optouter <<
-        gen_defm_code("_act_#{nrules} val", code, lineno, d)
-      g_parser.update_context @line
-      @on_reduce[nrules] = ":_act_#{nrules}"
-    end
-  end
-
-  def post_rule_list
-    g_parser.optouter <<
-      gen_action_decorator_code(
-        target_name, paramkey,
-        @on_reduce, @optouter, g_parser.mixin)
-  end
-end