depager 0.1.9 → 0.2.0

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

@@ -0,0 +1,501 @@
+
+begin; require 'rubygems'; rescue Exception; end
+require 'depager/parser.rb'
+
+
+module D4TinyCalc
+end
+
+class TinyCalc < Depager::LALR::Basis
+  
+
+  ### 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 = {
+    '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::ASTBuilderLazy.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 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 <<-'.,.,118754108932728.,.,', 'sample_calc/calc.astl.dr', 16
+     
+
+.,.,118754108932728.,.,
+
+module_eval <<-'.,.,118754108939722.,.,', 'sample_calc/calc.astl.dr', 16
+  def visit_Node_add node
+     node.value = visit(node.left).value + visit(node.right).value 
+
+  end
+
+.,.,118754108939722.,.,
+      
+module_eval <<-'.,.,118754108923127.,.,', 'sample_calc/calc.astl.dr', 17
+  def visit_Node_sub node
+     node.value = visit(node.left).value - visit(node.right).value 
+
+  end
+
+.,.,118754108923127.,.,
+      
+module_eval <<-'.,.,118754108917684.,.,', 'sample_calc/calc.astl.dr', 18
+  def visit_Node_mul node
+     node.value = visit(node.left).value * visit(node.right).value 
+
+  end
+
+.,.,118754108917684.,.,
+      
+module_eval <<-'.,.,11875410891729.,.,', 'sample_calc/calc.astl.dr', 19
+  def visit_Node_div node
+     node.value = visit(node.left).value / visit(node.right).value 
+
+  end
+
+.,.,11875410891729.,.,
+      
+module_eval <<-'.,.,118754108945236.,.,', 'sample_calc/calc.astl.dr', 20
+  def visit_Node_literal node
+     node.value = node.n.value 
+
+  end
+
+.,.,118754108945236.,.,
+      
+          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 <<-'.,.,118754108915892.,.,', 'sample_calc/calc.astl.dr', 26
+  def _ast_0 val
+Node_add.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,118754108915892.,.,
+      
+module_eval <<-'.,.,1187541089554.,.,', 'sample_calc/calc.astl.dr', 28
+  def _ast_1 val
+Node_sub.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,1187541089554.,.,
+      
+module_eval <<-'.,.,118754108932030.,.,', 'sample_calc/calc.astl.dr', 30
+  def _ast_2 val
+val[0]
+  end
+
+.,.,118754108932030.,.,
+      
+module_eval <<-'.,.,118754108931351.,.,', 'sample_calc/calc.astl.dr', 34
+  def _ast_3 val
+Node_mul.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,118754108931351.,.,
+      
+module_eval <<-'.,.,118754108946910.,.,', 'sample_calc/calc.astl.dr', 36
+  def _ast_4 val
+Node_div.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,118754108946910.,.,
+      
+module_eval <<-'.,.,118754108946476.,.,', 'sample_calc/calc.astl.dr', 38
+  def _ast_5 val
+val[0]
+  end
+
+.,.,118754108946476.,.,
+      
+module_eval <<-'.,.,118754108958355.,.,', 'sample_calc/calc.astl.dr', 42
+  def _ast_6 val
+Node_literal.new(val[0].lineno, val[0])
+  end
+
+.,.,118754108958355.,.,
+      
+module_eval <<-'.,.,118754108955792.,.,', 'sample_calc/calc.astl.dr', 44
+  def _ast_7 val
+val[1]
+  end
+
+.,.,118754108955792.,.,
+      
+end
+      
+
+def createDecoratedTinyCalc
+  D4TinyCalc::ASTBuilderLazy.new(TinyCalc.new())
+end
+
+### main
+if __FILE__ == $0
+### Main Code
+require 'pp'
+parser = createDecoratedTinyCalc()
+t, = parser.yyparse(STDIN)
+v = Visitor.new
+pp t.accept(v).value
+pp t
+
+
+end