depager 0.2.3 → 0.3.0.b20160729

data/lib/depager/ruby/plugins/_ast_tmpl.rb

@@ -1,73 +0,0 @@
-class ASTBuilderExtension
-  TMPL_NODE_BASE = <<EOS
-class Node
-  attr_accessor :lineno
-  attr_accessor <%= _opt_attr.map{|i| ":\#{i}" }.join(', ') %>
-  <%= ini %>
-  def self.[] lineno, *args
-    self.new lineno, *args
-  end
-  def accept v
-  end
-end
-class NodeList < Node
-  attr_accessor :lineno
-  def initialize(lineno, lst=[])
-    @lineno = lineno
-    @lst = lst.to_a.select{|i| ! i.is_a?(NilNode)}
-  end
-  <% _opt_attr.each do |i| %>
-  def all_<%= i %>
-    @lst.map{|i| i.<%= i %>} 
-  end
-  <% end %>
-  def size
-    @lst.size
-  end
-  alias length size
-  def push(i)
-    @lst.push i unless i.is_a? NilNode
-    self
-  end
-  def concat(i)
-    @lst.concat i
-    self
-  end
-  def to_ary()
-    @lst
-  end
-  alias to_a to_ary
-  alias list to_ary
-  def accept(v)
-    @lst.each{|i| i.accept(v) }
-  end
-end
-class NilNode
-  attr_accessor :lineno
-  attr_accessor <%= _opt_attr.map{|i| ":\#{i}" }.join(', ') %>
-  def initialize(lineno, *args)
-    @lineno = lineno
-  end
-  def accept v
-  end
-end
-EOS
-
-  TMPL_NODE = <<EOS
-class Node_<%= name %> < Node
-  attr_accessor <%= nodes.map{|i| ":\#{i}" }.join(', ') %>
-  attr_accessor <%= attrs.map{|i| ":\#{i}" }.join(', ') %>
-  def initialize <%= nodes.unshift('lineno').join(', ') %>
-    super()
-    @lineno = lineno
-    <%= nodes.inject(''){|r,i| r << "    @\#{i} = \#{i}\n"} %>
-  end
-  def accept v
-    warn @lineno.to_s+':'+self.class.to_s if $DEBUG
-    <%= accept %>
-    v.visit_Node_<%= name %>(self)
-    self
-  end
-end
-EOS
-end

data/lib/depager/ruby/plugins/astdf.rb

@@ -1,6 +0,0 @@
-require 'plugins/ast.rb'
-class ASTBuilderDepthFirstExtension < ASTBuilderExtension #:nodoc:all
-  def gen_accept_code sym
-    "        @#{sym}.accept(v)\n"
-  end
-end

data/lib/depager/ruby/plugins/atree.dr

@@ -1,55 +0,0 @@
-%defext ATreeBuilderExtension
-%extend NVAction ('plugins/nvaction.rb')
-%extend Lexer ('plugins/lex.rb')
-%decorate @NVAction
-#%decorate ShiftReducePrinter ('plugins/srp.rb')
-%inner{
-  attr_accessor :optouter, :on_reduce
-  def init_parser
-    @optouter = []
-    @on_reduce = []
-  end
-  def post_rule_list
-    g_parser.optouter <<
-      gen_action_decorator_code(target_name, paramkey,
-                                @on_reduce, @optouter)
-  end
-%}
-%hook post_rhs
-%banner '=>...'
-%%
-%LEX{
-  /[ \t]+/                { }
-  /\n/                    { yield nil, nil }
-  /[a-zA-Z][a-zA-Z0-9_]*/ { yield :ID, Token[$&, lineno] }
-  /'(.+)'/                { yield :STR, Token[$1, lineno] }
-  /::/                    { yield :CC, Token[$&, lineno] }
-  /=>/                    { yield :EG, Token[$&, lineno] }
-  /./                     { yield $&, Token[$&, lineno] }
-%}
-
-#begin-rule
-  start: 
-      EG ast
-      {
-        n = master.nrules
-        master.optouter <<
-          master.gen_defm_code("_atree_#{n} val", _ast, _EG.lineno)
-        master.on_reduce[n] = ":_atree_#{n}"
-      }
-  ;
-  ast:
-      ID '(' ')'           { "[:#{_ID.value}]" }
-    | ID '(' fact_list ')' { "[:#{_ID.value}, #{_fact_list.join(',')}]" }
-    | ID                   { "val[#{g_parser.name_to_rhs_index(_ID.value)}]" }
-  ;
-  fact_list: 
-      fact                 { [ _fact ] }
-    | fact_list ',' fact   { _fact_list.push _fact }  
-  ;
-  fact:
-      ID                   { "val[#{g_parser.name_to_rhs_index(_ID.value)}]" }
-    | STR                  { "'#{_STR.value}'" }
-  ;
-#end-rule
-%%

data/lib/depager/ruby/plugins/atree.rb

@@ -1,347 +0,0 @@
-
-###
-### ATreeBuilderExtension - Depager Extension (master)
-###
-require 'pp.rb'
-require 'depager/parser.rb'
-
-
-module D4ATreeBuilderExtension #:nodoc:all
-end
-
-class ATreeBuilderExtension #:nodoc:all
-  include Depager::ExtensionUtils
-  
-  attr_accessor :h2p
-
-  def initialize
-    @master = self
-    @hook = []
-    @h2p = {}
-    init_parser
-  end
-
-  def __regext__ p
-    super p, :default, nil
-    
-    @hook[0] = ATreeBuilderExtension_post_rhs.new(p, @nparam, self)
-    @h2p['post_rhs'] = @hook[0] 
-    p.hooks[:post_rhs].push [@hook[0], :do_parse]
-    
-    regext p
-  end
-
-  ### Inner Code
-  attr_accessor :optouter, :on_reduce
-  def init_parser
-    @optouter = []
-    @on_reduce = []
-  end
-  def post_rule_list
-    g_parser.optouter <<
-      gen_action_decorator_code(target_name, paramkey,
-                                @on_reduce, @optouter)
-  end
-
-end
-
-### Outer Code
-
-###
-### ATreeBuilderExtension_post_rhs - Part of Depager Extension (slave)
-###
-module D4ATreeBuilderExtension_post_rhs #:nodoc:all
-end
-
-class ATreeBuilderExtension_post_rhs < Depager::LALR::Basis #:nodoc:all
-  include Depager::ExtensionUtils
-  
-
-  ### Reduce Table
-  reduce_table = [
-    [ -1, 1 ],
-    [ 0, 2 ],
-    [ 1, 3 ],
-    [ 1, 4 ],
-    [ 1, 1 ],
-    [ 2, 1 ],
-    [ 2, 3 ],
-    [ 3, 1 ],
-    [ 3, 1 ],
-  ]
-  ### Extension Params
-  nparams = {
-    'NVAction' => 2, 
-  }
-  ### Term to Int
-  t2i = {
-    nil => 0, 
-    false => 1, 
-    :EG => 2, 
-    :ID => 3, 
-    "(" => 4, 
-    ")" => 5, 
-    "," => 6, 
-    :STR => 7, 
-  }
-  ### Int to Term
-  i2t = [
-    nil, 
-    false, 
-    :EG, 
-    :ID, 
-    "(", 
-    ")", 
-    ",", 
-    :STR, 
-  ]
-  ### Action Table
-  action_table = [
-    [ nil, nil, 2, nil, nil, nil, nil, nil, ], 
-    [ ACC, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, 4, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, 5, nil, nil, nil, ], 
-    [ nil, nil, nil, 7, nil, 10, nil, 6, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, 12, 11, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, 7, nil, nil, nil, 6, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, nil, nil, ], 
-  ]
-  ### Default Reduce Table
-  defred_table = [
-    nil, 
-    nil, 
-    nil, 
-    -1, 
-    -4, 
-    nil, 
-    -8, 
-    -7, 
-    nil, 
-    -5, 
-    -2, 
-    nil, 
-    -3, 
-    -6, 
-  ]
-  defred_after_shift_table = [
-    nil, 
-    nil, 
-    nil, 
-    -1, 
-    nil, 
-    nil, 
-    -8, 
-    -7, 
-    nil, 
-    -5, 
-    -2, 
-    nil, 
-    -3, 
-    -6, 
-  ]
-  ### Nonterm to Int
-  nt2i = { 
-    :start => 0,  
-    :ast => 1,  
-    :fact_list => 2,  
-    :fact => 3, 
-  }
-  ### Int to Nonterm
-  i2nt = [
-    :start, 
-    :ast, 
-    :fact_list, 
-    :fact, 
-  ]
-  ### Goto Table
-  goto_table = [ 
-   [ 1, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, 3, nil, nil, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, nil, 8, 9, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, ], 
-   [ nil, nil, nil, 13, ], 
-   [ 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 ]
-
-  attr_accessor :p, :m
-  def initialize p, nparam, master = nil
-    super()
-    @g_parser = @p = p
-    @master   = @m = master
-    @nparam   = nparam
-    @dect     = D4ATreeBuilderExtension_post_rhs::NVAction.new(self)
-    init_parser
-  end
-
-  
-
-  def banner
-    "=>... / #{@master.class.name}" 
-  end
-
-  ### Inner Code
-
-          def lex
-            begin
-              until @line.empty?
-                case @line
-                
-          when /\A[ \t]+/
-            @oldline = @line; @line = $'
-                 
-
-        
-          when /\A\n/
-            @oldline = @line; @line = $'
-                 yield nil, nil 
-
-        
-          when /\A[a-zA-Z][a-zA-Z0-9_]*/
-            @oldline = @line; @line = $'
-                 yield :ID, Token[$&, lineno] 
-
-        
-          when /\A'(.+)'/
-            @oldline = @line; @line = $'
-                 yield :STR, Token[$1, lineno] 
-
-        
-          when /\A::/
-            @oldline = @line; @line = $'
-                 yield :CC, Token[$&, lineno] 
-
-        
-          when /\A=>/
-            @oldline = @line; @line = $'
-                 yield :EG, Token[$&, lineno] 
-
-        
-          when /\A./
-            @oldline = @line; @line = $'
-                 yield $&, Token[$&, lineno] 
-
-        
-                else
-                  raise RuntimeError, "must not happen #{@line}"
-                end
-              end
-            end while @line0 = @line = getline
-            yield nil, nil
-          end
-        
-end
-
-### Outer Code
-
-class D4ATreeBuilderExtension_post_rhs::NVAction < 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, 'NVAction'
-    @on_reduce, = self.class::Tables
-    init_parser
-  end
-  
-
-module_eval <<-'.,.,122745803312021.,.,', 'atree.dr', 32
-def _act_0 val
-    _EG, _ast, = *val 
-
-        n = master.nrules
-        master.optouter <<
-          master.gen_defm_code("_atree_#{n} val", _ast, _EG.lineno)
-        master.on_reduce[n] = ":_atree_#{n}"
-
-end
-.,.,122745803312021.,.,
-      
-module_eval <<-'.,.,122745803352334.,.,', 'atree.dr', 40
-def _act_1 val
-    _ID, _, _, = *val 
-     "[:#{_ID.value}]" 
-
-end
-.,.,122745803352334.,.,
-      
-module_eval <<-'.,.,122745803310141.,.,', 'atree.dr', 41
-def _act_2 val
-    _ID, _, _fact_list, _, = *val 
-     "[:#{_ID.value}, #{_fact_list.join(',')}]" 
-
-end
-.,.,122745803310141.,.,
-      
-module_eval <<-'.,.,12274580336943.,.,', 'atree.dr', 42
-def _act_3 val
-    _ID, = *val 
-     "val[#{g_parser.name_to_rhs_index(_ID.value)}]" 
-
-end
-.,.,12274580336943.,.,
-      
-module_eval <<-'.,.,122745803340243.,.,', 'atree.dr', 45
-def _act_4 val
-    _fact, = *val 
-     [ _fact ] 
-
-end
-.,.,122745803340243.,.,
-      
-module_eval <<-'.,.,122745803340227.,.,', 'atree.dr', 46
-def _act_5 val
-    _fact_list, _, _fact, = *val 
-     _fact_list.push _fact 
-
-end
-.,.,122745803340227.,.,
-      
-module_eval <<-'.,.,122745803346290.,.,', 'atree.dr', 49
-def _act_6 val
-    _ID, = *val 
-     "val[#{g_parser.name_to_rhs_index(_ID.value)}]" 
-
-end
-.,.,122745803346290.,.,
-      
-module_eval <<-'.,.,122745803310739.,.,', 'atree.dr', 50
-def _act_7 val
-    _STR, = *val 
-     "'#{_STR.value}'" 
-
-end
-.,.,122745803310739.,.,
-      
-end
-      
-