depager 0.1.9 → 0.2.0

data/examples/sample_calc/calc.astl.action.tab.rb

@@ -0,0 +1,593 @@
+
+begin; require 'rubygems'; rescue Exception; end
+require 'depager/parser.rb'
+
+
+module D4TinyCalc
+end
+
+class TinyCalc < Depager::LALR::Basis
+  
+  include Depager
+
+  ### Reduce Table
+  reduce_table = [
+    [   -1,    1 ], # (  0) $start : expr
+    [    0,    3 ], # (  1) expr : expr + term
+    [    0,    3 ], # (  2) expr : expr - term
+    [    0,    1 ], # (  3) expr : term
+    [    1,    3 ], # (  4) term : term * fact
+    [    1,    3 ], # (  5) term : term / fact
+    [    1,    1 ], # (  6) term : fact
+    [    2,    1 ], # (  7) fact : NUM
+    [    2,    3 ], # (  8) fact : ( expr )
+  ]
+  ### Extension Params
+  nparams = {
+    'Action' => 3, 
+    'ASTBuilderLazy' => 2, 
+  }
+  ### Term to Int
+  t2i = {
+    nil => 0, 
+    false => 1, 
+    "+" => 2, 
+    "-" => 3, 
+    "*" => 4, 
+    "/" => 5, 
+    :NUM => 6, 
+    "(" => 7, 
+    ")" => 8, 
+  }
+  ### Int to Term
+  i2t = [
+    nil, 
+    false, 
+    "+", 
+    "-", 
+    "*", 
+    "/", 
+    :NUM, 
+    "(", 
+    ")", 
+  ]
+  ### Action Table
+  action_table = [
+    [ nil, nil, nil, nil, nil, nil, 5, 1, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, 5, 1, nil, ], 
+    [ ACC, nil, 7, 8, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, 9, 10, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, 7, 8, nil, nil, nil, nil, 11, ], 
+    [ nil, nil, nil, nil, nil, nil, 5, 1, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, 5, 1, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, 5, 1, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, 5, 1, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, 9, 10, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, 9, 10, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+    [ nil, nil, nil, nil, nil, nil, nil, nil, nil, ], 
+  ]
+  ### Default Reduce Table
+  defred_table = [
+    nil, 
+    nil, 
+    nil, 
+    -3, 
+    -6, 
+    -7, 
+    nil, 
+    nil, 
+    nil, 
+    nil, 
+    nil, 
+    -8, 
+    -1, 
+    -2, 
+    -4, 
+    -5, 
+  ]
+  defred_after_shift_table = [
+    nil, 
+    nil, 
+    nil, 
+    nil, 
+    -6, 
+    -7, 
+    nil, 
+    nil, 
+    nil, 
+    nil, 
+    nil, 
+    -8, 
+    nil, 
+    nil, 
+    -4, 
+    -5, 
+  ]
+  ### Nonterm to Int
+  nt2i = { 
+    :expr => 0,  
+    :term => 1,  
+    :fact => 2, 
+  }
+  ### Int to Nonterm
+  i2nt = [
+    :expr, 
+    :term, 
+    :fact, 
+  ]
+  ### Goto Table
+  goto_table = [ 
+   [ 2, 3, 4, ], 
+   [ 6, 3, 4, ], 
+   [ nil, nil, nil, ], 
+   [ nil, nil, nil, ], 
+   [ nil, nil, nil, ], 
+   [ nil, nil, nil, ], 
+   [ nil, nil, nil, ], 
+   [ nil, 12, 4, ], 
+   [ nil, 13, 4, ], 
+   [ nil, nil, 14, ], 
+   [ nil, nil, 15, ], 
+   [ nil, nil, nil, ], 
+   [ 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 ]
+
+  def self.createDecoratedParser
+    D4TinyCalc::Action.new(D4TinyCalc::ASTBuilderLazy.new(TinyCalc.new()))
+  end
+
+  ### Inner Code
+
+          def lex
+            begin
+              until @line.empty?
+                case @line
+                
+          when /\A\s+/, /\A\#.*/, /\A\n/
+            @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 Node
+    attr_accessor :lineno
+    attr_accessor :value
+    
+          def initialize
+                 @value = nil 
+
+          end
+        
+    def to_ary
+      [self]
+    end
+    def self.[] lineno, *args
+      self.new lineno, *args
+    end
+    def accept v
+    end
+  end
+  require 'forwardable'
+  class NodeList < Node
+    attr_accessor :lineno
+    extend Forwardable
+    _methods = Array.instance_methods -
+      Object.instance_methods -
+      ['push', 'concat', 'to_ary', 'map']
+    def_delegators(:@lst, *_methods)
+    def initialize(lineno, lst=[])
+      @lineno = lineno
+      @lst = lst.to_a
+    end
+    
+        def value
+          @lst.map{|i| "i.value"} 
+        end
+      
+    def push(i)   @lst.push i; self;          end
+    def concat(i) @lst.concat i; self;        end
+    def map(&b)   @lst.map(&b);               end
+    def to_ary()  @lst;                       end
+    def accept(v)
+      @lst.each{|i| i.accept(v) }
+    end
+  end
+
+  class Node_add < Node
+    attr_accessor :left, :right
+    attr_accessor 
+    def initialize lineno, left, right
+      super()
+      @lineno = lineno
+          @lineno = lineno
+    @left = left
+    @right = right
+
+    end
+    
+      def _left_ v
+        @left.accept(v); @left
+      end
+    
+      def _right_ v
+        @right.accept(v); @right
+      end
+    
+    def accept v
+      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
+      v.visit_Node_add(self)
+      self
+    end
+  end
+
+  class Node_sub < Node
+    attr_accessor :left, :right
+    attr_accessor 
+    def initialize lineno, left, right
+      super()
+      @lineno = lineno
+          @lineno = lineno
+    @left = left
+    @right = right
+
+    end
+    
+      def _left_ v
+        @left.accept(v); @left
+      end
+    
+      def _right_ v
+        @right.accept(v); @right
+      end
+    
+    def accept v
+      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
+      v.visit_Node_sub(self)
+      self
+    end
+  end
+
+  class Node_mul < Node
+    attr_accessor :left, :right
+    attr_accessor 
+    def initialize lineno, left, right
+      super()
+      @lineno = lineno
+          @lineno = lineno
+    @left = left
+    @right = right
+
+    end
+    
+      def _left_ v
+        @left.accept(v); @left
+      end
+    
+      def _right_ v
+        @right.accept(v); @right
+      end
+    
+    def accept v
+      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
+      v.visit_Node_mul(self)
+      self
+    end
+  end
+
+  class Node_div < Node
+    attr_accessor :left, :right
+    attr_accessor 
+    def initialize lineno, left, right
+      super()
+      @lineno = lineno
+          @lineno = lineno
+    @left = left
+    @right = right
+
+    end
+    
+      def _left_ v
+        @left.accept(v); @left
+      end
+    
+      def _right_ v
+        @right.accept(v); @right
+      end
+    
+    def accept v
+      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
+      v.visit_Node_div(self)
+      self
+    end
+  end
+
+  class Node_literal < Node
+    attr_accessor :n
+    attr_accessor :n
+    def initialize lineno, n
+      super()
+      @lineno = lineno
+          @lineno = lineno
+    @n = n
+
+    end
+    
+    def accept v
+      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
+      v.visit_Node_literal(self)
+      self
+    end
+  end
+
+          class Visitor
+            def visit node
+              node.accept(self)
+            end
+          
+module_eval <<-'.,.,118754108857908.,.,', 'sample_calc/calc.astl.action.dr', 19
+     
+
+.,.,118754108857908.,.,
+
+module_eval <<-'.,.,118754108863035.,.,', 'sample_calc/calc.astl.action.dr', 19
+  def visit_Node_add node
+     node.value = visit(node.left).value + visit(node.right).value 
+
+  end
+
+.,.,118754108863035.,.,
+      
+module_eval <<-'.,.,11875410891486.,.,', 'sample_calc/calc.astl.action.dr', 20
+  def visit_Node_sub node
+     node.value = visit(node.left).value - visit(node.right).value 
+
+  end
+
+.,.,11875410891486.,.,
+      
+module_eval <<-'.,.,118754108931106.,.,', 'sample_calc/calc.astl.action.dr', 21
+  def visit_Node_mul node
+     node.value = visit(node.left).value * visit(node.right).value 
+
+  end
+
+.,.,118754108931106.,.,
+      
+module_eval <<-'.,.,118754108926185.,.,', 'sample_calc/calc.astl.action.dr', 22
+  def visit_Node_div node
+     node.value = visit(node.left).value / visit(node.right).value 
+
+  end
+
+.,.,118754108926185.,.,
+      
+module_eval <<-'.,.,118754108942617.,.,', 'sample_calc/calc.astl.action.dr', 23
+  def visit_Node_literal node
+     node.value = node.n.value 
+
+  end
+
+.,.,118754108942617.,.,
+      
+          end
+        
+class D4TinyCalc::ASTBuilderLazy < Depager::LALR::Action #:nodoc:all
+  include Depager::DecoratorUtils
+  
+  on_reduce = [
+    nil,
+              :_ast_0,
+  :_ast_1,
+  :_ast_2,
+  :_ast_3,
+  :_ast_4,
+  :_ast_5,
+  :_ast_6,
+  :_ast_7,
+
+  ]
+  Tables = [on_reduce]
+  def initialize inside
+    super inside, 'ASTBuilderLazy'
+    @on_reduce, = self.class::Tables
+    init_parser
+  end
+  
+
+module_eval <<-'.,.,11875410898722.,.,', 'sample_calc/calc.astl.action.dr', 29
+  def _ast_0 val
+Node_add.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,11875410898722.,.,
+      
+module_eval <<-'.,.,118754108942559.,.,', 'sample_calc/calc.astl.action.dr', 32
+  def _ast_1 val
+Node_sub.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,118754108942559.,.,
+      
+module_eval <<-'.,.,11875410893975.,.,', 'sample_calc/calc.astl.action.dr', 35
+  def _ast_2 val
+val[0]
+  end
+
+.,.,11875410893975.,.,
+      
+module_eval <<-'.,.,11875410897017.,.,', 'sample_calc/calc.astl.action.dr', 40
+  def _ast_3 val
+Node_mul.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,11875410897017.,.,
+      
+module_eval <<-'.,.,118754108932608.,.,', 'sample_calc/calc.astl.action.dr', 43
+  def _ast_4 val
+Node_div.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,118754108932608.,.,
+      
+module_eval <<-'.,.,11875410897850.,.,', 'sample_calc/calc.astl.action.dr', 46
+  def _ast_5 val
+val[0]
+  end
+
+.,.,11875410897850.,.,
+      
+module_eval <<-'.,.,11875410893154.,.,', 'sample_calc/calc.astl.action.dr', 51
+  def _ast_6 val
+Node_literal.new(val[0].lineno, val[0])
+  end
+
+.,.,11875410893154.,.,
+      
+module_eval <<-'.,.,118754108961354.,.,', 'sample_calc/calc.astl.action.dr', 54
+  def _ast_7 val
+val[1]
+  end
+
+.,.,118754108961354.,.,
+      
+end
+      
+class D4TinyCalc::Action < Depager::LALR::Action #:nodoc:all
+  include Depager::DecoratorUtils
+          include Depager
+
+  on_reduce = [
+    nil,
+              :_act_0,
+  :_act_1,
+  :_act_2,
+  :_act_3,
+  :_act_4,
+  :_act_5,
+  :_act_6,
+  :_act_7,
+
+  ]
+  Tables = [on_reduce]
+  def initialize inside
+    super inside, 'Action'
+    @on_reduce, = self.class::Tables
+    init_parser
+  end
+  
+
+module_eval <<-'.,.,118754108929417.,.,', 'sample_calc/calc.astl.action.dr', 30
+  def _act_0 val
+     val[0] + val[2] 
+
+  end
+
+.,.,118754108929417.,.,
+      
+module_eval <<-'.,.,118754108959230.,.,', 'sample_calc/calc.astl.action.dr', 33
+  def _act_1 val
+     val[0] - val[2] 
+
+  end
+
+.,.,118754108959230.,.,
+      
+module_eval <<-'.,.,118754108949805.,.,', 'sample_calc/calc.astl.action.dr', 36
+  def _act_2 val
+     val[0] 
+
+  end
+
+.,.,118754108949805.,.,
+      
+module_eval <<-'.,.,118754108963438.,.,', 'sample_calc/calc.astl.action.dr', 41
+  def _act_3 val
+     val[0] * val[2] 
+
+  end
+
+.,.,118754108963438.,.,
+      
+module_eval <<-'.,.,118754108920628.,.,', 'sample_calc/calc.astl.action.dr', 44
+  def _act_4 val
+     val[0] / val[2] 
+
+  end
+
+.,.,118754108920628.,.,
+      
+module_eval <<-'.,.,11875410896708.,.,', 'sample_calc/calc.astl.action.dr', 47
+  def _act_5 val
+     val[0] 
+
+  end
+
+.,.,11875410896708.,.,
+      
+module_eval <<-'.,.,118754108933319.,.,', 'sample_calc/calc.astl.action.dr', 52
+  def _act_6 val
+     val[0].value 
+
+  end
+
+.,.,118754108933319.,.,
+      
+module_eval <<-'.,.,118754108926354.,.,', 'sample_calc/calc.astl.action.dr', 55
+  def _act_7 val
+     val[1].value 
+
+  end
+
+.,.,118754108926354.,.,
+      
+end
+      
+
+def createDecoratedTinyCalc
+  D4TinyCalc::Action.new(D4TinyCalc::ASTBuilderLazy.new(TinyCalc.new()))
+end
+
+### main
+if __FILE__ == $0
+### Main Code
+require 'pp'
+parser = createDecoratedTinyCalc()
+t, r = parser.yyparse(STDIN)
+v = Visitor.new
+pp r
+pp t.accept(v).value
+pp t
+
+end