fluid_cli 0.1.2

data/vendor/deps/debug/ext/debug/iseq_collector.c

@@ -0,0 +1,93 @@
+#include <ruby/ruby.h>
+
+#ifdef HAVE_RB_ISEQ
+VALUE rb_iseqw_new(VALUE v);
+void rb_objspace_each_objects(
+    int (*callback)(void *start, void *end, size_t stride, void *data),
+    void *data);
+size_t rb_obj_memsize_of(VALUE);
+
+// implementation specific.
+enum imemo_type {
+    imemo_iseq = 7,
+    imemo_mask = 0x07
+};
+
+static inline enum imemo_type
+imemo_type(VALUE imemo)
+{
+    return (RBASIC(imemo)->flags >> FL_USHIFT) & imemo_mask;
+}
+
+static inline int
+rb_obj_is_iseq(VALUE iseq)
+{
+    return RB_TYPE_P(iseq, T_IMEMO) && imemo_type(iseq) == imemo_iseq;
+}
+
+struct iseq_i_data {
+    void (*func)(VALUE v, void *data);
+    void *data;
+};
+
+int
+iseq_i(void *vstart, void *vend, size_t stride, void *ptr)
+{
+    VALUE v;
+    struct iseq_i_data *data = (struct iseq_i_data *)ptr;
+
+    for (v = (VALUE)vstart; v != (VALUE)vend; v += stride) {
+	if (RBASIC(v)->flags) {
+	    switch (BUILTIN_TYPE(v)) {
+	      case T_IMEMO:
+		if (rb_obj_is_iseq(v)) {
+		    data->func(v, data->data);
+		}
+		continue;
+	      default:
+		continue;
+	    }
+	}
+    }
+
+    return 0;
+}
+
+static void
+each_iseq_i(VALUE v, void *ptr)
+{
+    rb_yield(rb_iseqw_new(v));
+}
+
+static VALUE
+each_iseq(VALUE self)
+{
+    struct iseq_i_data data = {each_iseq_i, NULL};
+    rb_objspace_each_objects(iseq_i, &data);
+    return Qnil;
+}
+
+static void
+count_iseq_i(VALUE v, void *ptr)
+{
+    size_t *sizep = (size_t *)ptr;
+    *sizep += 1;
+}
+
+static VALUE
+count_iseq(VALUE self)
+{
+    size_t size = 0;
+    struct iseq_i_data data = {count_iseq_i, &size};
+    rb_objspace_each_objects(iseq_i, &data);
+    return SIZET2NUM(size);
+}
+
+void
+Init_iseq_collector(void)
+{
+    VALUE rb_mObjSpace = rb_const_get(rb_cObject, rb_intern("ObjectSpace"));
+    rb_define_singleton_method(rb_mObjSpace, "each_iseq", each_iseq, 0);
+    rb_define_singleton_method(rb_mObjSpace, "count_iseq", count_iseq, 0);
+}
+#endif

data/vendor/deps/debug/lib/debug/abbrev_command.rb

@@ -0,0 +1,77 @@
+
+module DEBUGGER__
+  class AbbrevCommand
+    class TrieNode
+      def initialize
+        @children = {}
+        @types = {} # set
+      end
+
+      def append c, type
+        trie = (@children[c] ||= TrieNode.new)
+        trie.add_type type
+      end
+
+      def [](c)
+        @children[c]
+      end
+
+      def add_type type
+        @types[type] = true
+        self
+      end
+
+      def types
+        @types.keys
+      end
+
+      def type
+        if @types.size == 1
+          @types.keys.first
+        else
+          nil
+        end
+      end
+
+      def candidates
+        @children.map{|c, n|
+          ss = n.candidates
+          ss.empty? ? c :
+          ss.map{|s|
+            c+s
+          }
+        }.flatten
+      end
+    end
+
+    # config: { type: [commands...], ... }
+    def initialize config
+      @trie = TrieNode.new
+      build config
+    end
+
+    private def build config
+      config.each do |type, commands|
+        commands.each do |command|
+          trie = @trie
+          command.each_char do |c|
+            trie = trie.append(c, type)
+          end
+        end
+      end
+    end
+
+    def search str, if_none = nil
+      trie = @trie
+      str.each_char do |c|
+        if trie = trie[c]
+          return trie.type if trie.type
+        else
+          return if_none
+        end
+      end
+      yield trie.candidates.map{|s| str + s} if block_given?
+      if_none
+    end
+  end
+end

data/vendor/deps/debug/lib/debug/breakpoint.rb

@@ -0,0 +1,556 @@
+# frozen_string_literal: true
+
+require_relative 'color'
+
+module DEBUGGER__
+  class Breakpoint
+    include SkipPathHelper
+
+    attr_reader :key, :skip_src
+
+    def initialize cond, command, path, do_enable: true
+      @deleted = false
+
+      @cond = cond
+      @command = command
+      @path = path
+
+      setup
+      enable if do_enable
+    end
+
+    def safe_eval b, expr
+      b.eval(expr)
+    rescue Exception => e
+      puts "[EVAL ERROR]"
+      puts "  expr: #{expr}"
+      puts "  err: #{e} (#{e.class})"
+      puts "Error caused by #{self}."
+      nil
+    end
+
+    def oneshot?
+      defined?(@oneshot) && @oneshot
+    end
+
+    def setup
+      raise "not implemented..."
+    end
+
+    def enable
+      @tp.enable
+    end
+
+    def disable
+      @tp&.disable
+    end
+
+    def enabled?
+      @tp.enabled?
+    end
+
+    def delete
+      disable
+      @deleted = true
+    end
+
+    def deleted?
+      @deleted
+    end
+
+    def suspend
+      if @command
+        provider, pre_cmds, do_cmds = @command
+        nonstop = true if do_cmds
+        cmds = [*pre_cmds&.split(';;'), *do_cmds&.split(';;')]
+        SESSION.add_preset_commands provider, cmds, kick: false, continue: nonstop
+      end
+
+      ThreadClient.current.on_breakpoint @tp, self
+    end
+
+    def to_s
+      s = ''.dup
+      s << " if: #{@cond}"        if defined?(@cond) && @cond
+      s << " pre: #{@command[1]}" if defined?(@command) && @command && @command[1]
+      s << " do: #{@command[2]}"  if defined?(@command) && @command && @command[2]
+      s
+    end
+
+    def description
+      to_s
+    end
+
+    def duplicable?
+      false
+    end
+
+    def skip_path?(path)
+      case @path
+      when Regexp
+        !path.match?(@path)
+      when String
+        !path.include?(@path)
+      else
+        super
+      end
+    end
+
+    include Color
+
+    def generate_label(name)
+      colorize(" BP - #{name} ", [:YELLOW, :BOLD, :REVERSE])
+    end
+  end
+
+  if RUBY_VERSION.to_f <= 2.7
+    # workaround for https://bugs.ruby-lang.org/issues/17302
+    TracePoint.new(:line){}.enable{}
+  end
+
+  class ISeqBreakpoint < Breakpoint
+    def initialize iseq, events, oneshot: false
+      @events = events
+      @iseq = iseq
+      @oneshot = oneshot
+      @key = [:iseq, @iseq.path, @iseq.first_lineno].freeze
+
+      super(nil, nil, nil)
+    end
+
+    def setup
+      @tp = TracePoint.new(*@events) do |tp|
+        delete if @oneshot
+        suspend
+      end
+    end
+
+    def enable
+      @tp.enable(target: @iseq)
+    end
+  end
+
+  class LineBreakpoint < Breakpoint
+    attr_reader :path, :line, :iseq, :cond, :oneshot, :hook_call, :command
+
+    def self.copy bp, root_iseq
+      nbp = LineBreakpoint.new bp.path, bp.line,
+                               cond: bp.cond, oneshot: bp.oneshot, hook_call: bp.hook_call,
+                               command: bp.command, skip_activate: true
+      nbp.try_activate root_iseq
+      nbp
+    end
+
+    def initialize path, line, cond: nil, oneshot: false, hook_call: true, command: nil, skip_activate: false, skip_src: false
+      @line = line
+      @oneshot = oneshot
+      @hook_call = hook_call
+      @skip_src = skip_src
+      @pending = false
+
+      @iseq = nil
+      @type = nil
+
+      @key = [path, @line].freeze
+
+      super(cond, command, path)
+
+      try_activate unless skip_activate
+      @pending = !@iseq
+    end
+
+    def setup
+      return unless @type
+
+      @tp = TracePoint.new(@type) do |tp|
+        if @cond
+          next unless safe_eval tp.binding, @cond
+        end
+        delete if @oneshot
+        suspend
+      end
+    end
+
+    def enable
+      return unless @iseq
+
+      if @type == :line
+        @tp.enable(target: @iseq, target_line: @line)
+      else
+        @tp.enable(target: @iseq)
+      end
+
+    rescue ArgumentError
+      puts @iseq.disasm # for debug
+      raise
+    end
+
+    def activate iseq, event, line
+      @iseq = iseq
+      @type = event
+      @line = line
+      @path = iseq.absolute_path
+
+      @key = [@path, @line].freeze
+      SESSION.rehash_bps
+      setup
+      enable
+
+      if @pending && !@oneshot
+        DEBUGGER__.info "#{self} is activated."
+      end
+
+      @pending = false
+    end
+
+    def activate_exact iseq, events, line
+      case
+      when events.include?(:RUBY_EVENT_CALL)
+        # "def foo" line set bp on the beginning of method foo
+        activate(iseq, :call, line)
+      when events.include?(:RUBY_EVENT_LINE)
+        activate(iseq, :line, line)
+      when events.include?(:RUBY_EVENT_RETURN)
+        activate(iseq, :return, line)
+      when events.include?(:RUBY_EVENT_B_RETURN)
+        activate(iseq, :b_return, line)
+      when events.include?(:RUBY_EVENT_END)
+        activate(iseq, :end, line)
+      else
+        # not activated
+      end
+    end
+
+    def duplicable?
+      @oneshot
+    end
+
+    NearestISeq = Struct.new(:iseq, :line, :events)
+
+    def iterate_iseq root_iseq
+      if root_iseq
+        is = [root_iseq]
+        while iseq = is.pop
+          yield iseq
+          iseq.each_child do |child_iseq|
+            is << child_iseq
+          end
+        end
+      else
+        ObjectSpace.each_iseq do |iseq|
+          if DEBUGGER__.compare_path((iseq.absolute_path || iseq.path), self.path) &&
+             iseq.first_lineno <= self.line &&
+             iseq.type != :ensure # ensure iseq is copied (duplicated)
+            yield iseq
+          end
+        end
+      end
+    end
+
+    def try_activate root_iseq = nil
+      nearest = nil # NearestISeq
+      iterate_iseq root_iseq do |iseq|
+        iseq.traceable_lines_norec(line_events = {})
+        lines = line_events.keys.sort
+
+        if !lines.empty? && lines.last >= line
+          nline = lines.bsearch{|l| line <= l}
+          events = line_events[nline]
+
+          next if events == [:RUBY_EVENT_B_CALL]
+
+          if @hook_call &&
+            events.include?(:RUBY_EVENT_CALL) &&
+            self.line == iseq.first_lineno
+            nline = iseq.first_lineno
+          end
+
+          if !nearest || ((line - nline).abs < (line - nearest.line).abs)
+            nearest = NearestISeq.new(iseq, nline, events)
+          elsif @hook_call &&
+                nearest.line == iseq.first_line &&
+                events.include?(:RUBY_EVENT_CALL)
+            nearest = NearestISeq.new(iseq, nline, events)
+          end
+        end
+      end
+
+      if nearest
+        activate_exact nearest.iseq, nearest.events, nearest.line
+      end
+    end
+
+    def to_s
+      oneshot = @oneshot ? " (oneshot)" : ""
+
+      if @iseq
+        "#{generate_label("Line")} #{@path}:#{@line} (#{@type})#{oneshot}" + super
+      else
+        "#{generate_label("Line (pending)")} #{@path}:#{@line}#{oneshot}" + super
+      end
+    end
+
+    def inspect
+      "<#{self.class.name} #{self.to_s}>"
+    end
+
+    def path_is? path
+      DEBUGGER__.compare_path(@path, path)
+    end
+  end
+
+  class CatchBreakpoint < Breakpoint
+    attr_reader :last_exc
+
+    def initialize pat, cond: nil, command: nil, path: nil
+      @pat = pat.freeze
+      @key = [:catch, @pat].freeze
+      @last_exc = nil
+
+      super(cond, command, path)
+    end
+
+    def setup
+      @tp = TracePoint.new(:raise){|tp|
+        exc = tp.raised_exception
+        next if SystemExit === exc
+        next if skip_path?(tp.path)
+
+        next if !safe_eval(tp.binding, @cond) if @cond
+        should_suspend = false
+
+        exc.class.ancestors.each{|cls|
+          if @pat === cls.name
+            should_suspend = true
+            @last_exc = exc
+            break
+          end
+        }
+        suspend if should_suspend
+      }
+    end
+
+    def to_s
+      "#{generate_label("Catch")} #{@pat.inspect}"
+    end
+
+    def description
+      "#{@last_exc.inspect} is raised."
+    end
+  end
+
+  class CheckBreakpoint < Breakpoint
+    def initialize cond:, command: nil, path: nil
+      @key = [:check, cond].freeze
+
+      super(cond, command, path)
+    end
+
+    def setup
+      @tp = TracePoint.new(:line){|tp|
+        next if SESSION.in_subsession? # TODO: Ractor support
+        next if ThreadClient.current.management?
+        next if skip_path?(tp.path)
+
+        if need_suspend? safe_eval(tp.binding, @cond)
+          suspend
+        end
+      }
+    end
+
+    private def need_suspend? cond_result
+      map = ThreadClient.current.check_bp_fulfillment_map
+      if cond_result
+        if map[self]
+          false
+        else
+          map[self] = true
+        end
+      else
+        map[self] = false
+      end
+    end
+
+    def to_s
+      s = "#{generate_label("Check")}"
+      s += super
+      s
+    end
+  end
+
+  class WatchIVarBreakpoint < Breakpoint
+    def initialize ivar, object, current, cond: nil, command: nil, path: nil
+      @ivar = ivar.to_sym
+      @object = object
+      @key = [:watch, object.object_id, @ivar].freeze
+
+      @current = current
+
+      super(cond, command, path)
+    end
+
+    def watch_eval(tp)
+      result = @object.instance_variable_get(@ivar)
+      if result != @current
+        begin
+          @prev = @current
+          @current = result
+
+          if (@cond.nil? || @object.instance_eval(@cond)) && !skip_path?(tp.path)
+            suspend
+          end
+        ensure
+          remove_instance_variable(:@prev)
+        end
+      end
+    rescue Exception
+      false
+    end
+
+    def setup
+      @tp = TracePoint.new(:line, :return, :b_return){|tp|
+        watch_eval(tp)
+      }
+    end
+
+    def to_s
+      value_str =
+        if defined?(@prev)
+          "#{@prev} -> #{@current}"
+        else
+          "#{@current}"
+        end
+      "#{generate_label("Watch")} #{@object} #{@ivar} = #{value_str}"
+    end
+  end
+
+  class MethodBreakpoint < Breakpoint
+    attr_reader :sig_method_name, :method, :klass
+
+    def initialize b, klass_name, op, method_name, cond: nil, command: nil, path: nil
+      @sig_klass_name = klass_name
+      @sig_op = op
+      @sig_method_name = method_name
+      @klass_eval_binding = b
+      @override_method = false
+
+      @klass = nil
+      @method = nil
+      @cond_class = nil
+      @key = "#{klass_name}#{op}#{method_name}".freeze
+
+      super(cond, command, path, do_enable: false)
+    end
+
+    def setup
+      @tp = TracePoint.new(:call){|tp|
+        next if !safe_eval(tp.binding, @cond) if @cond
+        next if @cond_class && !tp.self.kind_of?(@cond_class)
+
+        caller_location = caller_locations(2, 1).first.to_s
+        next if skip_path?(caller_location)
+
+        suspend
+      }
+    end
+
+    def eval_class_name
+      return @klass if @klass
+      @klass = @klass_eval_binding.eval(@sig_klass_name)
+      @klass_eval_binding = nil
+      @klass
+    end
+
+    def search_method
+      case @sig_op
+      when '.'
+        @method = @klass.method(@sig_method_name)
+      when '#'
+        @method = @klass.instance_method(@sig_method_name)
+      else
+        raise "Unknown op: #{@sig_op}"
+      end
+    end
+
+    def enable
+      try_enable
+    end
+
+    if RUBY_VERSION.to_f <= 2.6
+      def override klass
+        sig_method_name = @sig_method_name
+        klass.prepend Module.new{
+          define_method(sig_method_name) do |*args, &block|
+            super(*args, &block)
+          end
+        }
+      end
+    else
+      def override klass
+        sig_method_name = @sig_method_name
+        klass.prepend Module.new{
+          define_method(sig_method_name) do |*args, **kw, &block|
+            super(*args, **kw, &block)
+          end
+        }
+      end
+    end
+
+    def try_enable added: false
+      eval_class_name
+      search_method
+
+      begin
+        retried = false
+
+        @tp.enable(target: @method)
+        DEBUGGER__.info "#{self} is activated." if added
+
+        if @sig_op == '#'
+          @cond_class = @klass if @method.owner != @klass
+        else # '.'
+          begin
+            @cond_class = @klass.singleton_class if @method.owner != @klass.singleton_class
+          rescue TypeError
+          end
+        end
+
+      rescue ArgumentError
+        raise if retried
+        retried = true
+
+        # maybe C method
+        case @sig_op
+        when '.'
+          begin
+            override @klass.singleton_class
+          rescue TypeError
+            override @klass.class
+          end
+        when '#'
+          override @klass
+        end
+
+        # re-collect the method object after the above patch
+        search_method
+        @override_method = true if @method
+        retry
+      end
+    rescue Exception
+      raise unless added
+    end
+
+    def sig
+      @key
+    end
+
+    def to_s
+      if @method
+        loc = @method.source_location || []
+        "#{generate_label("Method")} #{sig} at #{loc.join(':')}"
+      else
+        "#{generate_label("Method (pending)")} #{sig}"
+      end + super
+    end
+  end
+end