depager 0.2.3 → 0.3.0.b20160729

data/lib/depager/utils.rb

@@ -1,318 +1,148 @@
-module Depager
-  #
-  # file utilities
-  #
-  module FileUtils
-    # end of file?
-    def eof?
-      self.files.eof?
-    end
-    # get file name
-    def fname
-      self.files.fname
-    end
-    # get file path
-    def path
-      self.files.path
-    end
-    # get current line no
-    def lineno
-      self.files.lineno
-    end
-    # get next line
-    def getline
-      self.files.getline
-    end
-    alias gets getline
-    # error
-    def error_exit *args
-      self.d_parser.error_exit(*args)
-    end
-    # warning
-    def warning *args
-      self.d_parser.warning(*args)
-    end
-  end
-
-  #
-  # Code Utilities
-  #
-  module CodeUtils
-    #
-    # generate action decorator code
-    #
-    # bname::     basis name
-    # dname::     decorator name
-    # on_reduce:: on reduce infos
-    # optouter::  outer code
-    # mixin::     mixin infos
-    #
-    def gen_decorator_code cname, dname, sname, tables, optouter=''
-      %{
-        class D4#{cname}::#{dname} < #{sname} #:nodoc:all
-          def initialize inside
-            super inside, '#{dname}'
-              init_parser
-          end
-          #{optouter}
-        end
-      }; #code
-    end
-
-    #
-    # generate action decorator code
-    #
-    # bname::     basis name
-    # dname::     decorator name
-    # on_reduce:: on reduce info
-    # optouter::  outer code
-    # mixin::     mixin file names
-    #
-    def gen_action_decorator_code bname, dname, on_reduce, optouter='', mixin=[]
-      mixin_code = mixin.map{|i| "        include #{i}\n"}
-      on_reduce_code = on_reduce.map{|i| "          #{i||'nil'},\n"}
-      ans = @g_parser.parsing_method
-      code = %{
-        class D4#{bname}::#{dname} < #{ans}::Action #:nodoc:all
-          include Depager::DecoratorUtils
-          #{mixin_code}
-          on_reduce = [
-            nil,
-            #{on_reduce_code.join}
-          ]
-          Tables = [on_reduce]
-          def initialize inside
-            super inside, '#{dname}'
-            @on_reduce, = self.class::Tables
-            init_parser
-          end
-          \n$$!! @OUTER @!!$$
-        end
-      }; #code
-      optouter = optouter.join if optouter.is_a? Array
-      unindent(code).sub!('$$!! @OUTER @!!$$', optouter)
-    end
-
-    #
-    # generate module eval code
-    #
-    # lineno:: line no
-    # d::      input line no - output line no
-    # body::   code body
-    #
-    def gen_meval_code lineno, d, body
-      d ||= 2
-      t = Time.now.to_i
-      r = rand(0xffff)
-      "\nmodule_eval <<\-'.,.,#{t}#{r}.,.,', '#{files.path}', #{lineno-d}\n" +
-        body +
-        "\n.,.,#{t}#{r}.,.,\n"
-    end
-
-    #
-    # generate def code
-    #
-    # sig::    signature
-    # body::   code body
-    # lineno:: line no
-    # d::      input line no - output line no
-    #
-    def gen_defm_code sig, body, lineno=1, d=0
-      t = Time.now.to_i
-      r = rand(0xffff)
-      body = "def #{sig}\n#{body}\nend"
-      code = %{
-        module_eval <<\-'.,.,#{t}#{r}.,.,', '#{files.path}', #{lineno-d-1}
-        $$!!@ BODY @!!$$
-        .,.,#{t}#{r}.,.,
-      }
-      unindent(code).sub!('$$!!@ BODY @!!$$', body)
-    end
-      
-    # unindent
-    def unindent s
-      s = s.join rescue s.to_s
-      ind = s.match(/\n(\s+)/)
-      s.gsub(/^#{ind[1]}/m, '')
-    end
-
-    def parse_action
-      val = ''
-      start_lineno = lineno
-      if @line =~ /\A\s*\{(.*)\}\s*(#.*)?\Z/
-          val = "    #{$1}\n"
-      else
-        val.concat @line.sub(/\A\s*\{/, '')
-        ind = @line0.match(/\A([ \t]*)/)[1]
-        until file.eof?
-          getline
-          break if line =~ /\A#{ind}\}\s*(#.*)?\Z/ 
-            val.concat line
-        end
-        if file.eof?
-          error_exit 'syntax error(parse_action).', start_lineno
-        end
-      end
-      @line = $'
-      # warn "--action--\n#{val}"
-      return val
-    end
-  end
-
-  #
-  # Utilities for Extension
-  #
-  module ExtensionUtils
-    include CodeUtils
-    # get GrammarParser
-    def g_parser
-      @g_parser
-    end
-
-    # master parser
-    def master
-      @master
-    end
-
-    # get output class name
-    def target_name
-      @g_parser.target_name
-    end
-
-    # get current line
-    def line
-      @g_parser.line
-    end
-
-    # end of file?
-    def eof?
-      @g_parser.eof?
-    end
-
-    # get input file name
-    def fname
-      @g_parser.fname
-    end
-
-    # get input file path
-    def path
-      @g_parser.path
-    end
-
-    # get current line no
-    def lineno
-      @g_parser.lineno
-    end
-
-    # get next line
-    def getline
-      @line0 = @line = @g_parser.getline
-    end
-
-    # get FileManager object
-    def files
-      @g_parser.files
-    end
-    alias file files
-
-    # get nunber of rules
-    def nrules
-      @g_parser.rules.size - 2
-    end
-
-    # get nunber of rhs rules
-    def nrhs
-      @g_parser.nrhs
-    end
-    
-    # get lhs name
-    def lhs_name
-      @g_parser.int_to_sym(@g_parser.lhs)
-    end
-
-    # get rhs names
-    def rhs_names
-      @g_parser.rhs.map do |i|
-        @g_parser.int_to_sym(i)
-      end
-    end
-
-    protected
-    # initialize method
-    def init_parser ; end
-
-    # do default action
-    # for generated extensions
-    def do_default ; end
-
-    # do default action?
-    # for generated extensions
-    def do_parse?
-      true
-    end
-
-    # start parse
-    # for generated extensions
-    def do_parse
-      __init_parser__
-      init_parser
-      @line = @g_parser.oldline
-      if do_parse?
-        ret = @dect.parse @g_parser.files
-        @g_parser.update_context @line
-        ret
-      else
-        do_default
-      end
-    end
-
-    # register extension (for users)
-    def regext p ; end
-    
-    # register extension (default)
-    def __regext__ p, key=:default, reg_p=true
-      @g_parser = @p = p
-      @nparam = case key
-                when :none    ; nil
-                when :default ; @g_parser.getnparam(paramkey)
-                else          ; @g_parser.getnparam(key)
-                end
-      self.methods.sort.each do |m| m = m.to_sym
-        p.hooks[m].push [self, m] if GrammarParser.hook_name? m
-      end
-      regext p if reg_p
-    end
-    # get param key
-    def paramkey
-      self.class.name.split('::').last.sub(/Extension$/, '')
-    end
-
-    # error
-    def error_exit *args
-      @g_parser.error_exit(*args)
-    end
-    # warning
-    def warning *args
-      @g_parser.warning(*args)
-    end
-  end
-
-  #
-  # Utilities for Decorator
-  #
-  module DecoratorUtils
-    include CodeUtils
-    # get master parser
-    def master
-      @basis.master
-    end
-    # get grammar parser
-    def g_parser
-      @basis.g_parser
-    end
-    # get basis
-    def basis
-      @basis
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+module Depager
+  module Utils
+    module CommonMethods
+      def file
+        d_parser.file
+      end
+
+      def target_name
+        g_parser.target_name
+      end
+
+      def target_namespace
+        g_parser.target_namespace
+      end
+
+      def full_target_name
+        "#{target_namespace}::#{target_name}"
+      end
+
+      def error_message msg, lineno = nil
+        "#{file.path}:#{lineno || file.lineno}: #{msg}"
+      end
+
+      def error_exit msg, lineno = nil
+        warn error_message(msg, lineno)
+        exit 1
+      end
+
+      def warning msg, lineno = nil
+        warn error_message(" warning: #{msg}", lineno)
+      end
+    end
+
+    module CodeGeneratorMethods
+      def generate_decorator_code name, super_class_name, code
+        if d_parser.generator.is_a?(Depager::ExtensionGenerator)
+          mixin_code = 'include Depager::Utils::ExtensionSlaveDecoratorMethods'
+        else
+          mixin_code = ''
+        end
+
+        %{
+        \  class #{target_namespace}::#{name} < #{super_class_name} #:nodoc:all
+            #{mixin_code}
+          %s
+          end
+        }.unindent % code; #code
+      end
+
+      def generate_action_decorator_code on_reduce, code
+        on_reduce_code = on_reduce.map{|i| "            #{i || 'nil'},\n"}
+
+        generate_decorator_code(decorator_name, "#{d_parser.parsing_method}::Action", %{
+            on_reduce = [
+              #{ on_reduce_code.join }
+            ]
+            Tables = [ on_reduce ]
+
+            %s
+        } % code)
+      end
+
+      def expand_inline_code body, lineno, options = {}
+        delimiter = expanded_code_delimiter
+
+        if wrap = options[:wrap]
+          wrap = [wrap, "end"] if wrap.is_a?(String)
+          body = "#{wrap[0]}\n#{body}\n#{wrap[1]}"
+        end
+
+        delta = options[:delta] || 0
+
+        %{
+        \  module_eval <<\-'#{delimiter}', '#{file.path}', #{lineno - delta - 1}
+          %s
+          #{delimiter}
+        }.unindent % body
+      end
+
+      def expanded_code_delimiter
+        Depager.configuration[:expanded_code_delimiter] || ".,.,#{Time.now.to_i}#{rand(0xffff)}.,.,"
+      end
+
+      def parse_block
+        result = ''
+        start_lineno = file.lineno
+        if @line =~ /\A\s*\{(.*)\}\s*(#.*)?\Z/
+          result = "    #{$1}\n"
+        else
+          result.concat @line.sub(/\A\s*\{/, '')
+          ind = @original_line.match(/\A([ \t]*)/)[1]
+          until file.eof?
+            line = file.gets
+            break if line =~ /\A#{ind}\}\s*(#.*)?\Z/
+            result.concat line
+          end
+          if file.eof?
+            error_exit 'syntax error(parse_block).', start_lineno
+          end
+        end
+        @line = $'
+        return result
+      end
+    end
+
+    module ExtensionSlaveMethods
+      include CommonMethods
+      include CodeGeneratorMethods
+
+      attr_reader :d_parser, :g_parser, :master
+
+      def do_default
+      end
+
+      def do_parse?
+        true
+      end
+
+      def do_parse
+        @line = g_parser.old_line
+        if do_parse?
+          ret = @decorated.parse g_parser.file, @line
+          g_parser.update_context @line
+          ret
+        else
+          do_default
+        end
+      end
+    end
+
+    module ExtensionSlaveDecoratorMethods
+      include CommonMethods
+
+      def master
+        basis.master
+      end
+
+      def g_parser
+        basis.g_parser
+      end
+
+      def d_parser
+        basis.d_parser
+      end
+    end
+  end
+end