depager 0.2.3 → 0.3.0.b20250423

data/lib/depager/{ruby/plugins → 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 ('depager/plugins/action.rb')
+%decorate @Action
+#%decorate Depager::LALR::ShiftReducePrinter ('depager/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 << <<~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
+      {
+        <<-CODE
+          when #{_lexlist.join(', ')}
+            #{ _opt_noskip ? '#' : "@line = $'" }
+            #{ _ACTION }
+        CODE
+      }
+  ;
+  opt_noskip:
+                        { false }
+    | '!'               { true  }
+  ;
+  lexlist:
+      LEX               { [ _LEX ] }
+    | lexlist ',' LEX   { _lexlist << _LEX }
+  ;
+#end-rule
+%%

data/lib/depager/plugins/lex.rb

@@ -0,0 +1,313 @@
+###
+### Depager::LexerExtension - Depager Extension (master)
+###
+require 'depager/parser.rb'
+
+
+module Depager ; end
+
+class Depager::LexerExtension < Depager::Extension
+
+  def initialize
+    super
+    @master = self
+    @slaves = []
+  end
+
+  def extension_registered g_parser
+    super g_parser
+
+    @slaves << Depager::LexerExtension::PreRuleList0::Parser.new(g_parser, self)
+    g_parser.hooks[:pre_rule_list].push [@slaves.last, :do_parse]
+  end
+
+
+end
+
+###
+### Depager::LexerExtension::PreRuleList0 - Part of Depager Extension (slave)
+###
+
+module Depager::LexerExtension::PreRuleList0 #: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 ],
+    ]
+    def reduce_table; REDUCE_TABLE; end
+
+    ### Term to Int
+    TERM_TO_INT = {
+      nil => 0,
+      false => 1,
+      :ACTION => 2,
+      "!" => 3,
+      :LEX => 4,
+      "," => 5,
+    }
+    def term_to_int; TERM_TO_INT; end
+
+    ### Int to Term
+    INT_TO_TERM = [
+      nil,
+      false,
+      :ACTION,
+      "!",
+      :LEX,
+      ",",
+    ]
+    def int_to_term; INT_TO_TERM; end
+
+    ### 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, ],
+    ]
+    def action_table; ACTION_TABLE; end
+
+    ### Default Reduce Table
+    DEFRED_TABLE = [
+      nil,
+      nil,
+      -1,
+      -2,
+      -5,
+      -7,
+      -3,
+      nil,
+      -6,
+      nil,
+      -4,
+      -8,
+    ]
+    def defred_table; DEFRED_TABLE; end
+
+    DEFRED_AFTER_SHIFT_TABLE = [
+      nil,
+      nil,
+      nil,
+      -2,
+      nil,
+      -7,
+      -3,
+      nil,
+      -6,
+      nil,
+      -4,
+      -8,
+    ]
+    def defred_after_shift_table; DEFRED_AFTER_SHIFT_TABLE; end
+
+    ### Nonterm to Int
+    NONTERM_TO_INT = {
+      :start => 0,
+      :lexactlist => 1,
+      :lexact => 2,
+      :lexlist => 3,
+      :opt_noskip => 4,
+    }
+    def nonterm_to_int; NONTERM_TO_INT; end
+
+    ### Int to Nonterm
+    INT_TO_NONTERM = [
+      :start,
+      :lexactlist,
+      :lexact,
+      :lexlist,
+      :opt_noskip,
+    ]
+    def int_to_nonterm; INT_TO_NONTERM; end
+
+    ### 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, ],
+    ]
+    def goto_table; GOTO_TABLE; end
+
+    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/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::PreRuleList0::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,
+
+]
+def on_reduce; ON_REDUCE; end
+
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/lex.dr', 43
+def _act_1 val
+    _lexactlist, = *val
+
+        g_parser.inner_code << <<~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/plugins/lex.dr', 61
+def _act_2 val
+    _lexact, = *val
+     _lexact 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/lex.dr', 62
+def _act_3 val
+    _lexactlist, _lexact, = *val
+     _lexactlist << _lexact 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/lex.dr', 66
+def _act_4 val
+    _lexlist, _opt_noskip, _ACTION, = *val
+
+        <<-CODE
+          when #{_lexlist.join(', ')}
+            #{ _opt_noskip ? '#' : "@line = $'" }
+            #{ _ACTION }
+        CODE
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/lex.dr', 75
+def _act_5 val
+    # empty rule
+     false 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/lex.dr', 76
+def _act_6 val
+    _, = *val
+     true  
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/lex.dr', 79
+def _act_7 val
+    _LEX, = *val
+     [ _LEX ] 
+
+end
+DEPAGER_EXPANDED_CODE
+module_eval <<-'DEPAGER_EXPANDED_CODE', 'lib/depager/plugins/lex.dr', 80
+def _act_8 val
+    _lexlist, _, _LEX, = *val
+     _lexlist << _LEX 
+
+end
+DEPAGER_EXPANDED_CODE
+
+
+end
+
+