depager 0.2.3 → 0.3.0.b20250423

data/examples/sample_calc/calc_prec.nvaction.tab.rb

@@ -1,431 +0,0 @@
-
-begin; require 'rubygems'; rescue Exception; end
-require 'depager/parser.rb'
-
-
-module Depager::DecoratorUtils; end
-module D4TinyCalc;    end
-
-class TinyCalc < Depager::LALR::Basis
-  
-
-  ### Reduce Table
-  reduce_table = [
-    [   -1,    1 ], # (  0) $start : expr
-    [    0,    3 ], # (  1) expr : expr '+' expr
-    [    0,    3 ], # (  2) expr : expr '-' expr
-    [    0,    3 ], # (  3) expr : expr '*' expr
-    [    0,    3 ], # (  4) expr : expr '/' expr
-    [    0,    3 ], # (  5) expr : '(' expr ')'
-    [    0,    1 ], # (  6) expr : NUM
-  ]
-  ### Extension Params
-  nparams = {
-    'NVAction' => 2, 
-  }
-  ### Term to Int
-  t2i = {
-    nil => 0, 
-    false => 1, 
-    "+" => 2, 
-    "-" => 3, 
-    "*" => 4, 
-    "/" => 5, 
-    "(" => 6, 
-    ")" => 7, 
-    :NUM => 8, 
-  }
-  ### Int to Term
-  i2t = [
-    nil, 
-    false, 
-    "+", 
-    "-", 
-    "*", 
-    "/", 
-    "(", 
-    ")", 
-    :NUM, 
-  ]
-  ### Action Table
-  action_table = [
-    [ nil, nil, nil, nil, nil, nil, 2, nil, 3, ], 
-    [ ACC, nil, 7, 4, 5, 6, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, 2, nil, 3, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, 2, nil, 3, ], 
-    [ nil, nil, nil, nil, nil, nil, 2, nil, 3, ], 
-    [ nil, nil, nil, nil, nil, nil, 2, nil, 3, ], 
-    [ nil, nil, nil, nil, nil, nil, 2, nil, 3, ], 
-    [ nil, nil, 7, 4, 5, 6, nil, 13, nil, ], 
-    [ nil, nil, 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, 5, 6, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
-  ]
-  ### Default Reduce Table
-  defred_table = [
-    nil, 
-    nil, 
-    nil, 
-    -6, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -2, 
-    -3, 
-    -4, 
-    -1, 
-    -5, 
-  ]
-  defred_after_shift_table = [
-    nil, 
-    nil, 
-    nil, 
-    -6, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    nil, 
-    -3, 
-    -4, 
-    nil, 
-    -5, 
-  ]
-  ### Nonterm to Int
-  nt2i = { 
-    :expr => 0, 
-  }
-  ### Int to Nonterm
-  i2nt = [
-    :expr, 
-  ]
-  ### Goto Table
-  goto_table = [ 
-   [ 1, ], 
-   [ nil, ], 
-   [ 8, ], 
-   [ nil, ], 
-   [ 9, ], 
-   [ 10, ], 
-   [ 11, ], 
-   [ 12, ], 
-   [ nil, ], 
-   [ 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 : _ expr
-
-  '('             shift, and goto to state 2
-  NUM             shift, and goto to state 3
-
-
-----------
-  
-<<'----------',
-I001 = 
-  (  0) $start : expr _
-  (  1) expr : expr _ '+' expr
-  (  2) expr : expr _ '-' expr
-  (  3) expr : expr _ '*' expr
-  (  4) expr : expr _ '/' expr
-
-  '+'             shift, and goto to state 7
-  '-'             shift, and goto to state 4
-  '*'             shift, and goto to state 5
-  '/'             shift, and goto to state 6
-
-
-  $end            accept
-
-----------
-  
-<<'----------',
-I002 = 
-  (  5) expr : '(' _ expr ')'
-
-  '('             shift, and goto to state 2
-  NUM             shift, and goto to state 3
-
-
-----------
-  
-<<'----------',
-I003 = 
-  (  6) expr : NUM _
-
-
-  $default       reduce using rule 6 (expr)  [after shift]
-
-----------
-  
-<<'----------',
-I004 = 
-  (  2) expr : expr '-' _ expr
-
-  '('             shift, and goto to state 2
-  NUM             shift, and goto to state 3
-
-
-----------
-  
-<<'----------',
-I005 = 
-  (  3) expr : expr '*' _ expr
-
-  '('             shift, and goto to state 2
-  NUM             shift, and goto to state 3
-
-
-----------
-  
-<<'----------',
-I006 = 
-  (  4) expr : expr '/' _ expr
-
-  '('             shift, and goto to state 2
-  NUM             shift, and goto to state 3
-
-
-----------
-  
-<<'----------',
-I007 = 
-  (  1) expr : expr '+' _ expr
-
-  '('             shift, and goto to state 2
-  NUM             shift, and goto to state 3
-
-
-----------
-  
-<<'----------',
-I008 = 
-  (  5) expr : '(' expr _ ')'
-  (  1) expr : expr _ '+' expr
-  (  2) expr : expr _ '-' expr
-  (  3) expr : expr _ '*' expr
-  (  4) expr : expr _ '/' expr
-
-  '+'             shift, and goto to state 7
-  '-'             shift, and goto to state 4
-  '*'             shift, and goto to state 5
-  '/'             shift, and goto to state 6
-  ')'             shift, and goto to state 13
-
-
-----------
-  
-<<'----------',
-I009 = 
-  (  2) expr : expr '-' expr _
-  (  1) expr : expr _ '+' expr
-  (  2) expr : expr _ '-' expr
-  (  3) expr : expr _ '*' expr
-  (  4) expr : expr _ '/' expr
-
-  '*'             shift, and goto to state 5
-  '/'             shift, and goto to state 6
-
-  $default       reduce using rule 2 (expr) 
-
-----------
-  
-<<'----------',
-I010 = 
-  (  3) expr : expr '*' expr _
-  (  1) expr : expr _ '+' expr
-  (  2) expr : expr _ '-' expr
-  (  3) expr : expr _ '*' expr
-  (  4) expr : expr _ '/' expr
-
-
-  $default       reduce using rule 3 (expr)  [after shift]
-
-----------
-  
-<<'----------',
-I011 = 
-  (  4) expr : expr '/' expr _
-  (  1) expr : expr _ '+' expr
-  (  2) expr : expr _ '-' expr
-  (  3) expr : expr _ '*' expr
-  (  4) expr : expr _ '/' expr
-
-
-  $default       reduce using rule 4 (expr)  [after shift]
-
-----------
-  
-<<'----------',
-I012 = 
-  (  1) expr : expr '+' expr _
-  (  1) expr : expr _ '+' expr
-  (  2) expr : expr _ '-' expr
-  (  3) expr : expr _ '*' expr
-  (  4) expr : expr _ '/' expr
-
-  '*'             shift, and goto to state 5
-  '/'             shift, and goto to state 6
-
-  $default       reduce using rule 1 (expr) 
-
-----------
-  
-<<'----------',
-I013 = 
-  (  5) expr : '(' expr ')' _
-
-
-  $default       reduce using rule 5 (expr)  [after shift]
-
-----------
-  ]
-
-
-  Tables = [ reduce_table, nparams, action_table,
-             defred_table, defred_after_shift_table, goto_table,
-             t2i, i2t, nt2i, i2nt ]
-
-  def self.createDecoratedParser
-    D4TinyCalc::NVAction.new(TinyCalc.new())
-  end
-
-  ### Inner Code
-
-          def lex
-            begin
-              until @line.empty?
-                case @line
-                
-          when /\A\s+/, /\A\#.*/
-            @oldline = @line; @line = $'
-                 
-
-        
-          when /\A[1-9][0-9]*/
-            @oldline = @line; @line = $'
-                 yield token(:NUM, $&.to_i) 
-
-        
-          when /\A./
-            @oldline = @line; @line = $'
-                 yield token($&, $&) 
-
-        
-                else
-                  raise RuntimeError, "must not happen #{@line}"
-                end
-              end
-            end while @line0 = @line = getline
-            yield nil, nil
-          end
-        
-end
-
-### Outer Code
-
-class D4TinyCalc::NVAction < Depager::LALR::Action #:nodoc:all
-  include Depager::DecoratorUtils
-  
-  on_reduce = [
-    nil,
-              :_act_0,
-  :_act_1,
-  :_act_2,
-  :_act_3,
-  :_act_4,
-  :_act_5,
-
-  ]
-  Tables = [on_reduce]
-  def initialize inside
-    super inside, 'NVAction'
-    @on_reduce, = self.class::Tables
-    init_parser
-  end
-  
-
-module_eval <<-'.,.,122745803936127.,.,', 'sample_calc/calc_prec.nvaction.dr', 18
-def _act_0 val
-    _left, _, _right, = *val 
-     _left + _right 
-
-end
-.,.,122745803936127.,.,
-      
-module_eval <<-'.,.,122745803916018.,.,', 'sample_calc/calc_prec.nvaction.dr', 19
-def _act_1 val
-    _left, _, _right, = *val 
-     _left - _right 
-
-end
-.,.,122745803916018.,.,
-      
-module_eval <<-'.,.,122745803947193.,.,', 'sample_calc/calc_prec.nvaction.dr', 20
-def _act_2 val
-    _left, _, _right, = *val 
-     _left * _right 
-
-end
-.,.,122745803947193.,.,
-      
-module_eval <<-'.,.,122745803925953.,.,', 'sample_calc/calc_prec.nvaction.dr', 21
-def _act_3 val
-    _left, _, _right, = *val 
-     _left / _right 
-
-end
-.,.,122745803925953.,.,
-      
-module_eval <<-'.,.,122745803965385.,.,', 'sample_calc/calc_prec.nvaction.dr', 22
-def _act_4 val
-    _, _expr, _, = *val 
-     _expr 
-
-end
-.,.,122745803965385.,.,
-      
-module_eval <<-'.,.,12274580397259.,.,', 'sample_calc/calc_prec.nvaction.dr', 23
-def _act_5 val
-    _NUM, = *val 
-     _NUM.value 
-
-end
-.,.,12274580397259.,.,
-      
-end
-      
-
-def createDecoratedTinyCalc
-  D4TinyCalc::NVAction.new(TinyCalc.new())
-end
-
-### main
-if __FILE__ == $0
-### Main Code
-parser = createDecoratedTinyCalc
-r, = parser.parse(STDIN)
-puts r
-
-end

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

@@ -1,303 +0,0 @@
-
-begin; require 'rubygems'; rescue Exception; end
-require 'depager/parser.rb'
-
-
-module Depager::DecoratorUtils; end
-module D4StatefulLexerTest1;    end
-
-class StatefulLexerTest1 < Depager::LALR::Basis
-  
-
-  ### Reduce Table
-  reduce_table = [
-    [   -1,    1 ], # (  0) $start : expr
-    [    0,    4 ], # (  1) expr : expr '/' __expr_0_2__ fact
-    [    0,    1 ], # (  2) expr : fact
-    [    2,    0 ], # (  3) __expr_0_2__ : 
-    [    1,    1 ], # (  4) fact : REGEXP
-  ]
-  ### Extension Params
-  nparams = {
-    'NVAction' => 3, 
-    'StatefulLexer' => 2, 
-  }
-  ### Term to Int
-  t2i = {
-    nil => 0, 
-    false => 1, 
-    "/" => 2, 
-    :REGEXP => 3, 
-  }
-  ### Int to Term
-  i2t = [
-    nil, 
-    false, 
-    "/", 
-    :REGEXP, 
-  ]
-  ### Action Table
-  action_table = [
-    [ nil, nil, nil, 2, ], 
-    [ ACC, nil, 4, nil, ], 
-    [ nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, ], 
-    [ nil, nil, nil, 2, ], 
-    [ nil, nil, nil, nil, ], 
-  ]
-  ### Default Reduce Table
-  defred_table = [
-    nil, 
-    nil, 
-    -4, 
-    -2, 
-    -3, 
-    nil, 
-    -1, 
-  ]
-  defred_after_shift_table = [
-    nil, 
-    nil, 
-    -4, 
-    -2, 
-    -3, 
-    nil, 
-    -1, 
-  ]
-  ### Nonterm to Int
-  nt2i = { 
-    :expr => 0,  
-    :fact => 1,  
-    :__expr_0_2__ => 2, 
-  }
-  ### Int to Nonterm
-  i2nt = [
-    :expr, 
-    :fact, 
-    :__expr_0_2__, 
-  ]
-  ### Goto Table
-  goto_table = [ 
-   [ 1, 3, nil, ], 
-   [ nil, nil, nil, ], 
-   [ nil, nil, nil, ], 
-   [ nil, nil, nil, ], 
-   [ nil, nil, 5, ], 
-   [ nil, 6, nil, ], 
-   [ nil, nil, nil, ], 
-  ]
-
-
-  alias orig_error error
-  def error
-    orig_error
-    warn "current state: #{StateInfo[@stack.last]}"
-  end
-
-  ### States
-  StateInfo = [ 
-<<'----------',
-I000 = 
-  (  0) $start : _ expr
-
-  REGEXP          shift, and goto to state 2
-
-
-----------
-  
-<<'----------',
-I001 = 
-  (  0) $start : expr _
-  (  1) expr : expr _ '/' __expr_0_2__ fact
-
-  '/'             shift, and goto to state 4
-
-
-  $end            accept
-
-----------
-  
-<<'----------',
-I002 = 
-  (  4) fact : REGEXP _
-
-
-  $default       reduce using rule 4 (fact)  [after shift]
-
-----------
-  
-<<'----------',
-I003 = 
-  (  2) expr : fact _
-
-
-  $default       reduce using rule 2 (expr)  [after shift]
-
-----------
-  
-<<'----------',
-I004 = 
-  (  1) expr : expr '/' _ __expr_0_2__ fact
-
-
-  $default       reduce using rule 3 (__expr_0_2__)  [after shift]
-
-----------
-  
-<<'----------',
-I005 = 
-  (  1) expr : expr '/' __expr_0_2__ _ fact
-
-  REGEXP          shift, and goto to state 2
-
-
-----------
-  
-<<'----------',
-I006 = 
-  (  1) expr : expr '/' __expr_0_2__ fact _
-
-
-  $default       reduce using rule 1 (expr)  [after shift]
-
-----------
-  ]
-
-
-  Tables = [ reduce_table, nparams, action_table,
-             defred_table, defred_after_shift_table, goto_table,
-             t2i, i2t, nt2i, i2nt ]
-
-  def self.createDecoratedParser
-    D4StatefulLexerTest1::StatefulLexer.new(D4StatefulLexerTest1::NVAction.new(StatefulLexerTest1.new()))
-  end
-
-  ### Inner Code
-
-            def lex_START(&block)
-              case @line
-                
-          when /\A\s+/
-            @oldline = @line; @line = $'
-                 
-
-        
-          when /\A\/(([^\/\\]+|\\.)*)\//
-            @oldline = @line; @line = $'
-                 yield token(:REGEXP, $&) 
-
-        
-          when /\A./
-            @oldline = @line; @line = $'
-                 yield token($&, $&) 
-
-        
-              else
-                raise RuntimeError, "must not happen #{@line}"
-              end
-            end
-          
-            def lex_OPMODE(&block)
-              case @line
-                
-          when /\A\//
-            @oldline = @line; @line = $'
-                 yield token($&, $&) 
-
-        
-              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 D4StatefulLexerTest1::StatefulLexer < Depager::LALR::Action #:nodoc:all
-  include Depager::DecoratorUtils
-  
-  on_reduce = [
-    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 = :START;warn 'MODE:->:START'
-        end
-      
-        def _lex_fact_0_1 val
-          @basis.lex_state = :OPMODE;warn 'MODE:->:OPMODE'
-        end
-      
-      def afterError
-        warn "StatefulLex: lex_state==#{@basis.lex_state}" if $MP_DEBUG
-      end
-    
-end
-      
-class D4StatefulLexerTest1::NVAction < Depager::LALR::Action #:nodoc:all
-  include Depager::DecoratorUtils
-  
-  on_reduce = [
-    nil,
-              nil,
-  nil,
-  nil,
-  :_act_3,
-
-  ]
-  Tables = [on_reduce]
-  def initialize inside
-    super inside, 'NVAction'
-    @on_reduce, = self.class::Tables
-    init_parser
-  end
-  
-
-module_eval <<-'.,.,122745804061258.,.,', 'slex_test/divreg.slex.dr', 22
-def _act_3 val
-    _REGEXP, = *val 
-     warn "REGEXP: #{_REGEXP.value}" 
-
-end
-.,.,122745804061258.,.,
-      
-end
-      
-
-def createDecoratedStatefulLexerTest1
-  D4StatefulLexerTest1::StatefulLexer.new(D4StatefulLexerTest1::NVAction.new(StatefulLexerTest1.new()))
-end
-
-### main
-if __FILE__ == $0
-### Main Code
-p = createDecoratedStatefulLexerTest1
-p.parse(STDIN)
-
-end