depager 0.2.0 → 0.2.2

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

@@ -1,501 +0,0 @@
-
-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