depager 0.2.3 → 0.3.0.b20160729

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

@@ -1,89 +1,85 @@
-%defext LexerExtension
-%extend NVAction ('plugins/nvaction.rb')
-%decorate @NVAction
-#%decorate ShiftReducePrinter ('plugins/srp.rb')
-%param :none
-%hook pre_rule_list /%LEX\{\s*\Z/ skip
-%banner '%LEX{ ... }'
-%inner{
-  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
-%}
-%%
-
-#begin-rule
-  start:
-      lexactlist
-      {
-        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
-      }
-  ;
-  lexactlist:
-      lexact            { _lexact }
-    | lexactlist lexact { _lexactlist << _lexact }
-  ;
-  lexact:
-      lexlist opt_noskip ACTION 
-      {
-        %{
-          when #{_lexlist.join(', ')}
-            #{ _opt_noskip ? '#' : "@oldline = @line; @line = $'" }
-            #{ _ACTION }
-        }; #code
-      }
-  ;
-  opt_noskip:          
-                        { false }
-    | '!'               { true  }
-  ;
-  lexlist:
-      LEX               { [ _LEX ] }
-    | lexlist ',' LEX   { _lexlist << _LEX }
-  ;
-#end-rule
-%%
+%defext Depager::LexerExtension
+%extend Depager::Action ('plugins/action.rb')
+%decorate @Action
+#%decorate Depager::LALR::ShiftReducePrinter ('plugins/srp.rb')
+%expanded_code_delimiter DEPAGER_EXPANDED_CODE
+%hook pre_rule_list /%LEX\{\s*\Z/ skip
+%banner '%LEX{ ... }'
+%inner{
+  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_block
+          /./=~'.'
+        when /\A(.)/
+          yield $&, $&
+        else
+          raise RuntimeError, "must not happen #{line}"
+        end
+        @line = $'
+      end
+      @original_line = @line = file.gets
+    end
+    yield nil, nil
+  end
+%}
+%%
+
+#begin-rule
+  start:
+      lexactlist
+      {
+        g_parser.inner_code << %{
+          def lex
+            begin
+              until @line.empty?
+                case @line
+                #{ _lexactlist }
+                else
+                  raise RuntimeError, "must not happen \#{@line}"
+                end
+              end
+            end while @original_line = @line = file.gets
+            yield nil, nil
+          end
+        }; #code
+      }
+  ;
+  lexactlist:
+      lexact            { _lexact }
+    | lexactlist lexact { _lexactlist << _lexact }
+  ;
+  lexact:
+      lexlist opt_noskip ACTION
+      {
+        %{
+          when #{_lexlist.join(', ')}
+            #{ _opt_noskip ? '#' : "@line = $'" }
+            #{ _ACTION }
+        }; #code
+      }
+  ;
+  opt_noskip:
+                        { false }
+    | '!'               { true  }
+  ;
+  lexlist:
+      LEX               { [ _LEX ] }
+    | lexlist ',' LEX   { _lexlist << _LEX }
+  ;
+#end-rule
+%%

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

@@ -1,336 +1,310 @@
-
-###
-### 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
-      
-
+# -*- coding: utf-8 -*-
+
+###
+### Depager::LexerExtension - Depager Extension (master)
+###
+require 'depager/parser.rb'
+
+
+module Depager ; end
+
+class Depager::LexerExtension < Depager::Extension
+
+  def initialize
+    @master = self
+    @slaves = []
+  end
+
+  def extension_registered g_parser
+    super g_parser
+
+    @slaves[0] = Depager::LexerExtension::Slave_pre_rule_list::Parser.new(g_parser, self)
+    g_parser.hooks[:pre_rule_list].push [@slaves[0], :do_parse]
+  end
+
+
+end
+
+###
+### Depager::LexerExtension::Slave_pre_rule_list - Part of Depager Extension (slave)
+###
+
+module Depager::LexerExtension::Slave_pre_rule_list #:nodoc:all
+  class Parser < Depager::LALR::Basis #:nodoc:all
+    include Depager::Utils::ExtensionSlaveMethods
+    
+
+    ### Reduce Table
+    reduce_table = [
+      [ -1, 1 ],
+      [ 0, 1 ],
+      [ 1, 1 ],
+      [ 1, 2 ],
+      [ 2, 3 ],
+      [ 4, 0 ],
+      [ 4, 1 ],
+      [ 3, 1 ],
+      [ 3, 3 ],
+    ]
+    ### Term to Int
+    term_to_int = {
+      nil => 0,
+      false => 1,
+      :ACTION => 2,
+      "!" => 3,
+      :LEX => 4,
+      "," => 5,
+    }
+    ### Int to Term
+    int_to_term = [
+      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, 8, nil, 9, ],
+      [ nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, 10, nil, nil, nil, ],
+      [ nil, nil, nil, nil, nil, nil, ],
+      [ nil, nil, nil, nil, 11, 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,
+      -6,
+      nil,
+      -4,
+      -8,
+    ]
+    defred_after_shift_table = [
+      nil,
+      nil,
+      nil,
+      -2,
+      nil,
+      -7,
+      -3,
+      nil,
+      -6,
+      nil,
+      -4,
+      -8,
+    ]
+    ### Nonterm to Int
+    nonterm_to_int = {
+      :start => 0, 
+      :lexactlist => 1, 
+      :lexact => 2, 
+      :lexlist => 3, 
+      :opt_noskip => 4, 
+    }
+    ### Int to Nonterm
+    int_to_nonterm = [
+      :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, action_table,
+               defred_table, defred_after_shift_table, goto_table,
+               term_to_int, int_to_term, nonterm_to_int, int_to_nonterm ]
+
+    def initialize g_parser, master
+      super()
+      @g_parser  = g_parser
+      @d_parser  = g_parser.d_parser
+      @master    = master
+      @decorated = Action.new(self)
+    end
+
+    
+    def do_parse?
+      if @line.match(/^\s*%LEX\{\s*\Z/)
+         @line = $' 
+        true
+      else
+        false
+      end
+    end
+    
+
+    def banner
+      "%LEX{ ... } / Depager::LexerExtension"
+    end
+
+module_eval <<'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/lex.dr', 9
+  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_block
+          /./=~'.'
+        when /\A(.)/
+          yield $&, $&
+        else
+          raise RuntimeError, "must not happen #{line}"
+        end
+        @line = $'
+      end
+      @original_line = @line = file.gets
+    end
+    yield nil, nil
+  end
+
+DEPAGER_EXPANDED_CODE
+
+  end
+end
+
+
+class Depager::LexerExtension::Slave_pre_rule_list::Action < Depager::LALR::Action #:nodoc:all
+  include Depager::Utils::ExtensionSlaveDecoratorMethods
+
+            on_reduce = [
+                          nil,
+            :_act_1,
+            :_act_2,
+            :_act_3,
+            :_act_4,
+            :_act_5,
+            :_act_6,
+            :_act_7,
+            :_act_8,
+
+            ]
+            Tables = [ on_reduce ]
+
+            
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/lex.dr', 43
+def _act_1 val
+    _lexactlist, = *val 
+
+        g_parser.inner_code << %{
+          def lex
+            begin
+              until @line.empty?
+                case @line
+                #{ _lexactlist }
+                else
+                  raise RuntimeError, "must not happen \#{@line}"
+                end
+              end
+            end while @original_line = @line = file.gets
+            yield nil, nil
+          end
+        }; #code
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/lex.dr', 61
+def _act_2 val
+    _lexact, = *val 
+     _lexact 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/lex.dr', 62
+def _act_3 val
+    _lexactlist, _lexact, = *val 
+     _lexactlist << _lexact 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/lex.dr', 66
+def _act_4 val
+    _lexlist, _opt_noskip, _ACTION, = *val 
+
+        %{
+          when #{_lexlist.join(', ')}
+            #{ _opt_noskip ? '#' : "@line = $'" }
+            #{ _ACTION }
+        }; #code
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/lex.dr', 75
+def _act_5 val
+     false 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/lex.dr', 76
+def _act_6 val
+    _, = *val 
+     true  
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/lex.dr', 79
+def _act_7 val
+    _LEX, = *val 
+     [ _LEX ] 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/ruby/plugins/lex.dr', 80
+def _act_8 val
+    _lexlist, _, _LEX, = *val 
+     _lexlist << _LEX 
+
+end
+DEPAGER_EXPANDED_CODE
+        
+        
+end
+