depager 0.2.3 → 0.3.0.b20250423

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

@@ -1,336 +0,0 @@
-
-###
-### LexerExtension - Depager Extension (master)
-###
-require 'pp.rb'
-require 'depager/parser.rb'
-
-
-module D4LexerExtension #:nodoc:all
-end
-
-class LexerExtension #:nodoc:all
-  include Depager::ExtensionUtils
-  
-  attr_accessor :h2p
-
-  def initialize
-    @master = self
-    @hook = []
-    @h2p = {}
-    init_parser
-  end
-
-  def __regext__ p
-    super p, :none, nil
-    
-    @hook[0] = LexerExtension_pre_rule_list.new(p, @nparam, self)
-    @h2p['pre_rule_list'] = @hook[0] 
-    p.hooks[:pre_rule_list].push [@hook[0], :do_parse]
-    
-    regext p
-  end
-
-  ### Inner Code
-
-end
-
-### Outer Code
-
-###
-### LexerExtension_pre_rule_list - Part of Depager Extension (slave)
-###
-module D4LexerExtension_pre_rule_list #:nodoc:all
-end
-
-class LexerExtension_pre_rule_list < Depager::LALR::Basis #:nodoc:all
-  include Depager::ExtensionUtils
-  
-
-  ### Reduce Table
-  reduce_table = [
-    [ -1, 1 ],
-    [ 0, 1 ],
-    [ 1, 1 ],
-    [ 1, 2 ],
-    [ 2, 3 ],
-    [ 4, 0 ],
-    [ 4, 1 ],
-    [ 3, 1 ],
-    [ 3, 3 ],
-  ]
-  ### Extension Params
-  nparams = {
-    'NVAction' => 2, 
-  }
-  ### Term to Int
-  t2i = {
-    nil => 0, 
-    false => 1, 
-    :ACTION => 2, 
-    "!" => 3, 
-    :LEX => 4, 
-    "," => 5, 
-  }
-  ### Int to Term
-  i2t = [
-    nil, 
-    false, 
-    :ACTION, 
-    "!", 
-    :LEX, 
-    ",", 
-  ]
-  ### Action Table
-  action_table = [
-    [ nil, nil, nil, nil, 5, nil, ], 
-    [ ACC, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, 5, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, 9, nil, 8, ], 
-    [ nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, nil, nil, ], 
-    [ nil, nil, 10, nil, nil, nil, ], 
-    [ nil, nil, nil, nil, 11, 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, 
-    -1, 
-    -2, 
-    -5, 
-    -7, 
-    -3, 
-    nil, 
-    nil, 
-    -6, 
-    -4, 
-    -8, 
-  ]
-  defred_after_shift_table = [
-    nil, 
-    nil, 
-    nil, 
-    -2, 
-    nil, 
-    -7, 
-    -3, 
-    nil, 
-    nil, 
-    -6, 
-    -4, 
-    -8, 
-  ]
-  ### Nonterm to Int
-  nt2i = { 
-    :start => 0,  
-    :lexactlist => 1,  
-    :lexact => 2,  
-    :lexlist => 3,  
-    :opt_noskip => 4, 
-  }
-  ### Int to Nonterm
-  i2nt = [
-    :start, 
-    :lexactlist, 
-    :lexact, 
-    :lexlist, 
-    :opt_noskip, 
-  ]
-  ### Goto Table
-  goto_table = [ 
-   [ 1, 2, 3, 4, nil, ], 
-   [ nil, nil, nil, nil, nil, ], 
-   [ nil, nil, 6, 4, nil, ], 
-   [ nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, 7, ], 
-   [ nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, ], 
-   [ nil, nil, nil, nil, nil, ], 
-   [ 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 ]
-
-  attr_accessor :p, :m
-  def initialize p, nparam, master = nil
-    super()
-    @g_parser = @p = p
-    @master   = @m = master
-    @nparam   = nparam
-    @dect     = D4LexerExtension_pre_rule_list::NVAction.new(self)
-    init_parser
-  end
-
-  
-  def do_parse?
-    if @line =~ /^\s*%LEX\{\s*\Z/
-       @line = $' 
-      true
-    else
-      false
-    end
-  end
-  
-
-  def banner
-    "%LEX{ ... } / #{@master.class.name}" 
-  end
-
-  ### Inner Code
-  def init_parser
-    super
-    @code = []
-  end
-  def lex
-    until @file.eof?
-      until @line.empty?
-        case @line
-        when /\A\s+/
-          #skip blank
-        when /\A%\}\s*\Z/
-          @line = $'
-          yield nil,nil
-        when /\A\/(([^\/\\]+|\\.)*)\//
-          yield :LEX, "/\\A#{$1}/"
-        when /\A'([^'\\]+|\\.)*'/, /\A"([^"\\]+|\\.)*"/
-          rest = $'
-          str = Regexp.escape($1).gsub('/', '\/')
-          rest.match(/^/)
-          yield :LEX, "/\\A#{str}/"
-        when /\A\{/
-          yield :ACTION, parse_action
-          /./=~'.'
-        when /\A(.)/
-          yield $&, $&
-        else
-          raise RuntimeError, "must not happen #{line}"
-        end
-        @line = $'
-      end
-      getline
-    end
-    yield nil, nil
-  end
-
-end
-
-### Outer Code
-
-class D4LexerExtension_pre_rule_list::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 <<-'.,.,122745803340181.,.,', 'lex.dr', 47
-def _act_0 val
-    _lexactlist, = *val 
-
-        g_parser.optinner << %{
-          def lex
-            begin
-              until @line.empty?
-                case @line
-                #{ _lexactlist }
-                else
-                  raise RuntimeError, "must not happen \#{@line}"
-                end
-              end
-            end while @line0 = @line = getline
-            yield nil, nil
-          end
-        }; #code
-
-end
-.,.,122745803340181.,.,
-      
-module_eval <<-'.,.,122745803321867.,.,', 'lex.dr', 65
-def _act_1 val
-    _lexact, = *val 
-     _lexact 
-
-end
-.,.,122745803321867.,.,
-      
-module_eval <<-'.,.,122745803341492.,.,', 'lex.dr', 66
-def _act_2 val
-    _lexactlist, _lexact, = *val 
-     _lexactlist << _lexact 
-
-end
-.,.,122745803341492.,.,
-      
-module_eval <<-'.,.,1227458033110.,.,', 'lex.dr', 70
-def _act_3 val
-    _lexlist, _opt_noskip, _ACTION, = *val 
-
-        %{
-          when #{_lexlist.join(', ')}
-            #{ _opt_noskip ? '#' : "@oldline = @line; @line = $'" }
-            #{ _ACTION }
-        }; #code
-
-end
-.,.,1227458033110.,.,
-      
-module_eval <<-'.,.,122745803341618.,.,', 'lex.dr', 79
-def _act_4 val
-     false 
-
-end
-.,.,122745803341618.,.,
-      
-module_eval <<-'.,.,122745803352625.,.,', 'lex.dr', 80
-def _act_5 val
-    _, = *val 
-     true  
-
-end
-.,.,122745803352625.,.,
-      
-module_eval <<-'.,.,122745803357424.,.,', 'lex.dr', 83
-def _act_6 val
-    _LEX, = *val 
-     [ _LEX ] 
-
-end
-.,.,122745803357424.,.,
-      
-module_eval <<-'.,.,122745803338595.,.,', 'lex.dr', 84
-def _act_7 val
-    _lexlist, _, _LEX, = *val 
-     _lexlist << _LEX 
-
-end
-.,.,122745803338595.,.,
-      
-end
-      
-

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

@@ -1,19 +0,0 @@
-require 'plugins/action.rb'
-
-class NVActionExtension < ActionExtension #:nodoc:all
-  def modify_action_code code
-    let_code = ""
-    if @g_parser.rhsni.size > 0
-      rhs = @g_parser.rhsni.sort_by{|k,v| v}
-      let_code = rhs.map do |name, _|
-        if name =~ /[a-zA-Z][a-zA-Z0-9_]*/
-          "_#{name}"
-        else
-          '_'
-        end
-      end
-      let_code = "    #{let_code.join(', ')}, = *val \n"
-    end
-    return let_code << code, 1
-  end
-end