depager 0.1.9 → 0.2.0

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

@@ -0,0 +1,283 @@
+
+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 = {
+    'Action' => 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(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::Action < Depager::LALR::Action #:nodoc:all
+  include Depager::DecoratorUtils
+  
+  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 <<-'.,.,118754108827289.,.,', 'sample_calc/calc.action.dr', 15
+  def _act_0 val
+     val[0] + val[2] 
+
+  end
+
+.,.,118754108827289.,.,
+      
+module_eval <<-'.,.,118754108850101.,.,', 'sample_calc/calc.action.dr', 16
+  def _act_1 val
+     val[0] - val[2] 
+
+  end
+
+.,.,118754108850101.,.,
+      
+module_eval <<-'.,.,118754108859938.,.,', 'sample_calc/calc.action.dr', 17
+  def _act_2 val
+     val[0] 
+
+  end
+
+.,.,118754108859938.,.,
+      
+module_eval <<-'.,.,118754108817909.,.,', 'sample_calc/calc.action.dr', 20
+  def _act_3 val
+     val[0] * val[2] 
+
+  end
+
+.,.,118754108817909.,.,
+      
+module_eval <<-'.,.,11875410886381.,.,', 'sample_calc/calc.action.dr', 21
+  def _act_4 val
+     val[0] / val[2] 
+
+  end
+
+.,.,11875410886381.,.,
+      
+module_eval <<-'.,.,118754108815401.,.,', 'sample_calc/calc.action.dr', 22
+  def _act_5 val
+     val[0] 
+
+  end
+
+.,.,118754108815401.,.,
+      
+module_eval <<-'.,.,118754108820197.,.,', 'sample_calc/calc.action.dr', 25
+  def _act_6 val
+     val[0].value 
+
+  end
+
+.,.,118754108820197.,.,
+      
+module_eval <<-'.,.,11875410882848.,.,', 'sample_calc/calc.action.dr', 26
+  def _act_7 val
+     val[1] 
+
+  end
+
+.,.,11875410882848.,.,
+      
+end
+      
+
+def createDecoratedTinyCalc
+  D4TinyCalc::Action.new(TinyCalc.new())
+end
+
+### main
+if __FILE__ == $0
+### Main Code
+parser = TinyCalc::createDecoratedParser
+r, = parser.yyparse(STDIN)
+puts r
+
+end

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

@@ -0,0 +1,476 @@
+
+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 = {
+    'ASTBuilderDepthFirst' => 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::ASTBuilderDepthFirst.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 accept v
+      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
+              @left.accept(v)
+        @right.accept(v)
+
+      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 accept v
+      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
+              @left.accept(v)
+        @right.accept(v)
+
+      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 accept v
+      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
+              @left.accept(v)
+        @right.accept(v)
+
+      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 accept v
+      warn @lineno.to_s+':'+self.class.to_s if $DEBUG
+              @left.accept(v)
+        @right.accept(v)
+
+      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 <<-'.,.,118754108843671.,.,', 'sample_calc/calc.astdf.dr', 16
+     
+
+.,.,118754108843671.,.,
+
+module_eval <<-'.,.,118754108831511.,.,', 'sample_calc/calc.astdf.dr', 16
+  def visit_Node_add node
+     node.value = node.left.value + node.right.value 
+
+  end
+
+.,.,118754108831511.,.,
+      
+module_eval <<-'.,.,118754108811762.,.,', 'sample_calc/calc.astdf.dr', 17
+  def visit_Node_sub node
+     node.value = node.left.value - node.right.value 
+
+  end
+
+.,.,118754108811762.,.,
+      
+module_eval <<-'.,.,118754108823654.,.,', 'sample_calc/calc.astdf.dr', 18
+  def visit_Node_mul node
+     node.value = node.left.value * node.right.value 
+
+  end
+
+.,.,118754108823654.,.,
+      
+module_eval <<-'.,.,118754108858414.,.,', 'sample_calc/calc.astdf.dr', 19
+  def visit_Node_div node
+     node.value = node.left.value / node.right.value 
+
+  end
+
+.,.,118754108858414.,.,
+      
+module_eval <<-'.,.,118754108849141.,.,', 'sample_calc/calc.astdf.dr', 20
+  def visit_Node_literal node
+     node.value = node.n.value 
+
+  end
+
+.,.,118754108849141.,.,
+      
+          end
+        
+class D4TinyCalc::ASTBuilderDepthFirst < 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, 'ASTBuilderDepthFirst'
+    @on_reduce, = self.class::Tables
+    init_parser
+  end
+  
+
+module_eval <<-'.,.,118754108836976.,.,', 'sample_calc/calc.astdf.dr', 26
+  def _ast_0 val
+Node_add.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,118754108836976.,.,
+      
+module_eval <<-'.,.,118754108859323.,.,', 'sample_calc/calc.astdf.dr', 28
+  def _ast_1 val
+Node_sub.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,118754108859323.,.,
+      
+module_eval <<-'.,.,11875410886924.,.,', 'sample_calc/calc.astdf.dr', 30
+  def _ast_2 val
+val[0]
+  end
+
+.,.,11875410886924.,.,
+      
+module_eval <<-'.,.,118754108848739.,.,', 'sample_calc/calc.astdf.dr', 34
+  def _ast_3 val
+Node_mul.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,118754108848739.,.,
+      
+module_eval <<-'.,.,118754108840033.,.,', 'sample_calc/calc.astdf.dr', 36
+  def _ast_4 val
+Node_div.new(val[0].lineno, val[0], val[2])
+  end
+
+.,.,118754108840033.,.,
+      
+module_eval <<-'.,.,118754108834371.,.,', 'sample_calc/calc.astdf.dr', 38
+  def _ast_5 val
+val[0]
+  end
+
+.,.,118754108834371.,.,
+      
+module_eval <<-'.,.,118754108849607.,.,', 'sample_calc/calc.astdf.dr', 42
+  def _ast_6 val
+Node_literal.new(val[0].lineno, val[0])
+  end
+
+.,.,118754108849607.,.,
+      
+module_eval <<-'.,.,118754108811811.,.,', 'sample_calc/calc.astdf.dr', 44
+  def _ast_7 val
+val[1]
+  end
+
+.,.,118754108811811.,.,
+      
+end
+      
+
+def createDecoratedTinyCalc
+  D4TinyCalc::ASTBuilderDepthFirst.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