depager 0.2.0 → 0.2.2

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

@@ -3,8 +3,8 @@ begin; require 'rubygems'; rescue Exception; end
 require 'depager/parser.rb'
 
 
-module D4StatefulLexerTest1
-end
+module Depager::DecoratorUtils; end
+module D4StatefulLexerTest1;    end
 
 class StatefulLexerTest1 < Depager::LALR::Basis
   
@@ -12,15 +12,15 @@ class StatefulLexerTest1 < Depager::LALR::Basis
   ### Reduce Table
   reduce_table = [
     [   -1,    1 ], # (  0) $start : expr
-    [    0,    4 ], # (  1) expr : expr / __expr_0_2__ fact
+    [    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, 
+    'NVAction' => 3, 
   }
   ### Term to Int
   t2i = {
@@ -38,20 +38,20 @@ class StatefulLexerTest1 < Depager::LALR::Basis
   ]
   ### Action Table
   action_table = [
-    [ nil, nil, nil, 2, ], 
+    [ nil, nil, nil, 3, ], 
     [ ACC, nil, 4, nil, ], 
     [ nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, ], 
     [ nil, nil, nil, nil, ], 
-    [ nil, nil, nil, 2, ], 
+    [ nil, nil, nil, 3, ], 
     [ nil, nil, nil, nil, ], 
   ]
   ### Default Reduce Table
   defred_table = [
     nil, 
     nil, 
-    -4, 
     -2, 
+    -4, 
     -3, 
     nil, 
     -1, 
@@ -59,8 +59,8 @@ class StatefulLexerTest1 < Depager::LALR::Basis
   defred_after_shift_table = [
     nil, 
     nil, 
-    -4, 
     -2, 
+    -4, 
     -3, 
     nil, 
     -1, 
@@ -79,7 +79,7 @@ class StatefulLexerTest1 < Depager::LALR::Basis
   ]
   ### Goto Table
   goto_table = [ 
-   [ 1, 3, nil, ], 
+   [ 1, 2, nil, ], 
    [ nil, nil, nil, ], 
    [ nil, nil, nil, ], 
    [ nil, nil, nil, ], 
@@ -88,6 +88,83 @@ class StatefulLexerTest1 < Depager::LALR::Basis
    [ 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 3
+
+
+----------
+  
+<<'----------',
+I001 = 
+  (  0) $start : expr _
+  (  1) expr : expr _ '/' __expr_0_2__ fact
+
+  '/'             shift, and goto to state 4
+
+
+  $end            accept
+
+----------
+  
+<<'----------',
+I002 = 
+  (  2) expr : fact _
+
+
+  $default       reduce using rule 2 (expr)  [after shift]
+
+----------
+  
+<<'----------',
+I003 = 
+  (  4) fact : REGEXP _
+
+
+  $default       reduce using rule 4 (fact)  [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 3
+
+
+----------
+  
+<<'----------',
+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 ]
@@ -100,17 +177,17 @@ class StatefulLexerTest1 < Depager::LALR::Basis
 
             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($&, $&) 
@@ -123,7 +200,7 @@ class StatefulLexerTest1 < Depager::LALR::Basis
           
             def lex_OPMODE(&block)
               case @line
-                    
+                
           when /\A\//
             @oldline = @line; @line = $'
                  yield _Token($&, $&) 
@@ -152,7 +229,7 @@ end
 
 class D4StatefulLexerTest1::StatefulLexer < Depager::LALR::Action #:nodoc:all
   include Depager::DecoratorUtils
-  
+  []
   on_reduce = [
     nil,
               nil,
@@ -185,7 +262,7 @@ end
       
 class D4StatefulLexerTest1::NVAction < Depager::LALR::Action #:nodoc:all
   include Depager::DecoratorUtils
-  
+  []
   on_reduce = [
     nil,
               nil,
@@ -202,14 +279,13 @@ class D4StatefulLexerTest1::NVAction < Depager::LALR::Action #:nodoc:all
   end
   
 
-module_eval <<-'.,.,118754109260321.,.,', 'slex_test/divreg.slex.dr', 22
-  def _act_3 val
-    _REGEXP = *val 
+module_eval <<-'.,.,120998293627530.,.,', 'slex_test/divreg.slex.dr', 22
+def _act_3 val
+    _REGEXP, = *val 
      warn "REGEXP: #{_REGEXP.value}" 
 
-  end
-
-.,.,118754109260321.,.,
+end
+.,.,120998293627530.,.,
       
 end
       

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

@@ -3,8 +3,8 @@ begin; require 'rubygems'; rescue Exception; end
 require 'depager/parser.rb'
 
 
-module D4StatefulLexerTest2
-end
+module Depager::DecoratorUtils; end
+module D4StatefulLexerTest2;    end
 
 class StatefulLexerTest2 < Depager::LALR::Basis
   
@@ -14,15 +14,15 @@ class StatefulLexerTest2 < Depager::LALR::Basis
     [   -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,    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, 
+    'NVAction' => 3, 
   }
   ### Term to Int
   t2i = {
@@ -102,6 +102,103 @@ class StatefulLexerTest2 < Depager::LALR::Basis
    [ 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 ]
@@ -114,22 +211,22 @@ class StatefulLexerTest2 < Depager::LALR::Basis
 
             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($&,   $&) 
@@ -142,7 +239,7 @@ class StatefulLexerTest2 < Depager::LALR::Basis
           
             def lex_LCONT(&block)
               case @line
-                    
+                
           when /\A\r?\n/
             @oldline = @line; @line = $'
                  
@@ -171,7 +268,7 @@ end
 
 class D4StatefulLexerTest2::StatefulLexer < Depager::LALR::Action #:nodoc:all
   include Depager::DecoratorUtils
-  
+  []
   on_reduce = [
     nil,
               nil,
@@ -206,7 +303,7 @@ end
       
 class D4StatefulLexerTest2::NVAction < Depager::LALR::Action #:nodoc:all
   include Depager::DecoratorUtils
-  
+  []
   on_reduce = [
     nil,
               nil,
@@ -225,41 +322,37 @@ class D4StatefulLexerTest2::NVAction < Depager::LALR::Action #:nodoc:all
   end
   
 
-module_eval <<-'.,.,118754109357478.,.,', 'slex_test/ljoin.slex.dr', 19
-  def _act_1 val
-    _stmts, _expr, _EOL = *val 
+module_eval <<-'.,.,120998293621426.,.,', 'slex_test/ljoin.slex.dr', 19
+def _act_1 val
+    _stmts, _expr, _EOL, = *val 
      warn "#{_expr} <EOL>:#{@lexstate}" 
 
-  end
-
-.,.,118754109357478.,.,
+end
+.,.,120998293621426.,.,
       
-module_eval <<-'.,.,118754109356391.,.,', 'slex_test/ljoin.slex.dr', 23
-  def _act_2 val
-    _expr, _, ___expr_0_2__, _fact = *val 
+module_eval <<-'.,.,120998293623094.,.,', 'slex_test/ljoin.slex.dr', 23
+def _act_2 val
+    _expr, _, ___expr_0_2__, _fact, = *val 
      "#{_expr} + #{_fact}" 
 
-  end
-
-.,.,118754109356391.,.,
+end
+.,.,120998293623094.,.,
       
-module_eval <<-'.,.,118754109362724.,.,', 'slex_test/ljoin.slex.dr', 25
-  def _act_3 val
-    _fact = *val 
+module_eval <<-'.,.,120998293640556.,.,', 'slex_test/ljoin.slex.dr', 25
+def _act_3 val
+    _fact, = *val 
      _fact 
 
-  end
-
-.,.,118754109362724.,.,
+end
+.,.,120998293640556.,.,
       
-module_eval <<-'.,.,118754109319023.,.,', 'slex_test/ljoin.slex.dr', 29
-  def _act_5 val
-    _ID = *val 
+module_eval <<-'.,.,120998293664604.,.,', 'slex_test/ljoin.slex.dr', 29
+def _act_5 val
+    _ID, = *val 
      _ID.value 
 
-  end
-
-.,.,118754109319023.,.,
+end
+.,.,120998293664604.,.,
       
 end