maglev-database-explorer 0.0.1

data/lib/maglev-database-explorer/database_views/nilclass.rb

@@ -0,0 +1,6 @@
+class NilClass
+  def __basetype
+    :nilclass
+  end
+end
+

data/lib/maglev-database-explorer/database_views/object.rb

@@ -0,0 +1,77 @@
+class Object
+  def __basetype
+    :object
+  end
+
+  def custom_database_tabs
+    # [["Demo Tab", "demoData", "html with: 'This is an example'."]]
+    []
+  end
+
+  def to_database_view(orig_depth, ranges = {}, params = {})
+    obj = {:oop => self.object_id}
+
+    depth = param_modify_depth(orig_depth, ranges, params)
+
+    if depth > 0
+      obj[:loaded] = true
+      obj[:exception] = false
+      obj[:classObject] = self.class.to_database_view(depth - 1, {}, params)
+      obj[:virtualClassObject] = self.__virtual_class.to_database_view(depth - 1, {}, params)   # singleton class
+      
+      obj[:instVars] = {}
+      obj[:instVarsSize] = 0
+
+      if depth == 2
+        obj[:customTabs] = self.custom_database_tabs
+      else
+        obj[:customTabs] = []
+      end
+
+      if render_inst_vars
+        index = 1
+        range_from = ranges[:instVars] ? Integer(ranges[:instVars][0]) : 1
+        range_to = ranges[:instVars] ? Integer(ranges[:instVars][1]) : 10
+
+        obj[:instVarsSize] = self.instance_variables.size
+
+        ((range_from - 1)..[range_to - 1, self.instance_variables.size - 1].min).each do |index|
+          obj[:instVars][index + 1] = [self.instance_variables[index].to_database_view(depth - 1, {}, params), self.instance_variable_get(self.instance_variables[index]).to_database_view(depth - 1, {}, params)]
+        end
+      end
+    else
+      obj[:loaded] = false
+    end
+
+    inspection = self.inspect
+    if inspection._isString
+      obj[:inspection] = inspection[0, 200]
+      obj[:inspection] += "..." if obj[:inspection].size < inspection.size
+    else
+      obj[:inspection] = "(error)"
+    end
+
+    obj[:basetype] = __basetype
+
+    return obj
+  end
+
+  def __evaluate_smalltalk(code)
+    code.__evaluate_smalltalk_in_context(self)
+  end
+
+  primitive '__virtual_class', 'virtualClass'
+
+  protected
+
+  def render_inst_vars
+    true
+  end
+
+  private
+
+  def param_modify_depth(depth, ranges, params)
+    depth
+  end
+end
+

data/lib/maglev-database-explorer/database_views/proc.rb

@@ -0,0 +1,4 @@
+class Proc
+  primitive_nobridge '__call_and_rescue&', 'callAndRescue:'
+end
+

data/lib/maglev-database-explorer/database_views/repository.rb

@@ -0,0 +1,4 @@
+class ObjectSpace::Repository
+  primitive '__list_instances', 'listInstances:limit:toDirectory:withMaxThreads:maxCpuUsage:memoryOnly:'
+end
+

data/lib/maglev-database-explorer/database_views/ruby_workspace.rb

@@ -0,0 +1,6 @@
+class RubyWorkspace
+  def __basetype
+    :rubyWorkspace
+  end
+end
+

data/lib/maglev-database-explorer/database_views/smalltalk_classes.rb

@@ -0,0 +1,35 @@
+class DBEBootstrapChanges
+  class << self
+    def add(class_object, selector)
+      @changes ||= []
+      @changes.push([class_object, selector, class_object.__source_for_selector(selector, :smalltalk)[0]])
+    end
+
+    def undo_all_changes
+      @changes ||= []
+      @redo_changes = []
+
+      @changes.each do |ch|
+        @redo_changes.push([ch[0], ch[1], ch[0].__source_for_selector(ch[1], :smalltalk)[0]])
+        ch[0].__compile(ch[2])
+      end
+
+      @changes = []
+    end
+
+    def redo_all_changes
+      @redo_changes.each do |ch|
+        ch[0].__compile(ch[2])
+      end
+    end
+  end
+end
+
+# Save original method source that will be changed later
+DBEBootstrapChanges.add(AbstractException, :signalNotTrappable)
+
+# Change some Smalltalk methods
+Object.__evaluate_smalltalk(File.open("#{MaglevDatabaseExplorer.full_gem_path}/lib/maglev-database-explorer/database_views/smalltalk_classes.st", "r").read)
+
+DBEHalt = __resolve_smalltalk_global(:DBEHalt)
+

data/lib/maglev-database-explorer/database_views/smalltalk_classes.st

@@ -0,0 +1,60 @@
+"This script prepares Smalltalk classes and adds additional methods.
+Use object.rb for classes that may not be changed due to object
+security policy."
+
+|methods clsDbeHalt|
+
+methods := Dictionary new.
+
+clsDbeHalt := AbstractException subclass: 'DBEHalt'
+  instVarNames: #(wrappedException)
+  classVars: #()
+  classInstVars: #()
+  poolDictionaries: #()
+  inDictionary: 'Globals'
+  category: 'User Classes'
+  options: #().
+
+clsDbeHalt compile: 'wrappedException: anException
+  wrappedException := anException.'.
+
+clsDbeHalt compile: 'wrappedException
+  ^ wrappedException'.
+
+clsDbeHalt compile: 'initialize
+  gsResumable := true.'.
+
+clsDbeHalt class compile: 'signalFor: anException
+  ^ self new
+    wrappedException: anException;
+    signal.'.
+
+AbstractException compile: 'signalNotTrappable
+  "Signal trappable exception for database explorer."
+  gsTrappable := false.
+  DBEHalt signalFor: self.'.
+
+RubyProc compile: 'callAndRescue: rescueBlock
+  "Evaluate block for database explorer. Catches all kinds
+  of exceptions."
+  ^ [rescueBlock value: {false. block value}]
+    on: AbstractException
+    do: [:exc | |cc|
+      rescueBlock value: {true. exc}].'.
+
+"This won't work for meta classes but it allows us to define
+the primitive on Class (Ruby)."
+Metaclass3 compile: 'subclasses
+  ^ ClassOrganizer cachedOrganizer subclassesOf: self'.
+
+"Dictionary (different from RubyHash)"
+"methods at: Dictionary put: 'asDatabaseView: depth ranges: ranges params: params
+  |view|
+  view := super @ruby1:to_database_view: depth _: ranges _: params
+  view at: #basetype put: #dictionary.'.
+
+methods keysAndValuesDo: [:behavior :method |
+  behavior compileMethod: method category: '*maglev-database-explorer' environmentId: 0.
+  behavior @ruby1:primitive: 'to_database_view' _: 'asDatabaseView:ranges:params:']."
+
+

data/lib/maglev-database-explorer/database_views/string.rb

@@ -0,0 +1,27 @@
+class String
+  def __basetype
+    :string
+  end
+
+  def to_database_view(depth, ranges = {}, params = {})
+    obj = super
+
+    obj[:string] = self[0, 200]
+    if (obj[:string].size < self.size)
+      obj[:string] += "..."
+      obj[:stringComplete] = false
+    else
+      obj[:stringComplete] = true
+    end
+
+    if (params[:fullString])
+      obj[:string] = self
+      obj[:stringComplete] = true
+    end
+
+    return obj
+  end
+
+  primitive '__evaluate_smalltalk_in_context', 'evaluateInContext:'
+end
+

data/lib/maglev-database-explorer/database_views/symbol.rb

@@ -0,0 +1,33 @@
+class Symbol
+  def __basetype
+    :symbol
+  end
+
+  def to_database_view(depth, ranges = {}, params = {})
+    obj = super
+
+    obj[:string] = self.to_s[0, 200]
+    if (obj[:string].size < self.to_s.size)
+      obj[:string] += "..."
+      obj[:stringComplete] = false
+    else
+      obj[:stringComplete] = true
+    end
+
+    if (params[:fullString])
+      obj[:string] = self.to_s
+      obj[:stringComplete] = true
+    end
+
+    return obj
+  end
+
+  def <=>(obj)
+    self.to_s <=> obj.to_s
+  end
+
+  def render_inst_vars
+    false
+  end
+end
+

data/lib/maglev-database-explorer/database_views/system.rb

@@ -0,0 +1,48 @@
+class Maglev::System
+  class_primitive '__stone_version_report', 'stoneVersionReport'
+  class_primitive '__gem_version_report', 'gemVersionReport'
+
+  class_primitive '__commit_transaction', 'commitTransaction'
+  class_primitive '__abort_transaction', 'abortTransaction'
+  class_primitive '__continue_transaction', 'continueTransaction'
+
+  class << self
+    def __DBECommitTransaction
+      DBEBootstrapChanges.undo_all_changes
+      __commit_transaction
+      DBEBootstrapChanges.redo_all_changes
+      true
+    end
+
+    def __DBEAbortTransaction
+      DBEBootstrapChanges.undo_all_changes
+      __abort_transaction
+      DBEBootstrapChanges.redo_all_changes
+      true
+    end
+
+    def __DBEContinueTransaction
+      __continue_transaction
+    end
+
+    def __basetype
+      :systemClass
+    end
+
+    def to_database_view(depth, ranges = {}, params = {})
+      obj = super
+
+      if depth > 0
+        params_all_elements = {:allElements => true}
+        stone_version_report = __stone_version_report
+        gem_version_report = __gem_version_report
+        obj[:stoneVersionReport] = stone_version_report.to_database_view(depth - 1, ranges, params_all_elements)
+        obj[:stoneVersionReportSize] = stone_version_report.size
+        obj[:gemVersionReport] = gem_version_report.to_database_view(depth - 1, ranges, params_all_elements)
+        obj[:gemVersionReportSize] = gem_version_report.size
+      end
+
+      return obj
+    end
+  end
+end

data/lib/maglev-database-explorer/database_views/thread.rb

@@ -0,0 +1,101 @@
+class Thread
+  def __basetype
+    :thread
+  end
+
+  def to_database_view(depth, ranges = {}, params = {})
+    obj = super
+
+    if depth > 0
+      obj[:exception] = __exception.to_database_view(depth - 1, {}, {}) 
+      obj[:threadLocalStorage] = __environment.to_database_view(1, {}, {})
+      obj[:threadLocalStorageSize] = __environment ? __environment.size : -1
+      obj[:isRailsThread] = self[:is_rails_thread] ? true : false
+      obj[:status] = self.status.to_s
+    end
+
+    return obj
+  end
+
+  primitive '__continue', '_continue'
+  primitive '__environment', '_environment'
+  primitive '__local_frame_contents_at', '_localFrameContentsAt:'
+  primitive '__local_stack_depth', 'localStackDepth'
+  primitive '__local_method_at', 'localMethodAt:'
+  primitive '__is_native_stack', '_nativeStack'
+  primitive '__step_over_in_frame', '_stepOverInFrame:'
+  primitive '__step_into', '_stepInto'
+  primitive '__trim_stack_to_level', '_localTrimStackToLevel:'
+  
+  def __set_exception(exception)
+    self[:last_exception] = exception
+  end
+
+  def __exception
+    self[:last_exception]
+  end
+
+  def __step_over_at(frame)
+    thread = Thread.start(self) do |debug_thread|
+      Thread.pass
+      debug_thread.__step_over_in_frame(frame)
+    end
+
+    sleep 0.1 unless thread.stop?
+  end
+
+  def __source_offset_for(frame, level)
+    # (frame at: 1) _sourceOffsetsAt: ((frame at: 1) _previousStepPointForIp: (frame at: 2))
+    method = frame[0]
+    method.__source_offsets_at(method.__step_point_for_ip(frame[1], level, __is_native_stack))
+  end
+
+  def __source_with_break_for(frame)
+    # (frame at: 1) _sourceOffsetsAt: ((frame at: 1) _previousStepPointForIp: (frame at: 2))
+    method = frame[0]
+    method.__source_at_ip(frame[1])
+  end
+
+  def __xy_position_in_string(string, offset)
+    substr = string[0, offset]
+    y = substr.count("\n")
+    x = nil
+
+    if substr[-1] == "\n"
+      x = 0
+    else
+      x = substr.split("\n").last.size - 1
+    end
+
+    return [x, y]
+  end
+
+  def __stack_frame(index)
+    frame = __local_frame_contents_at(index)
+
+    arg_values = []
+    (10..frame.size - 1).each do |idx|
+      arg_values.push(frame[idx].to_database_view(1, {}, {}))
+    end
+
+    method = frame[0]
+    source_offset = __source_offset_for(frame, index)
+    source_string = method.__source_string
+    
+    # magic numbers copied from GsProcess 
+    # [GsNMethod, ipOffset, frameOffset, varContext (nil), saveProtectionMode, markerOrException, nil (not used), self, argAndTempNames, receiver, args and temps, source offset, x-y source offset...
+    [GsNMethodProxy.for(method).__for_database_explorer, frame[1], frame[2], nil, frame[4], frame[5].to_database_view(1, {}, {}), nil, frame[7].to_database_view(1, {}, {}), frame[8], frame[9].to_database_view(1, {}, {}), arg_values, source_offset, __xy_position_in_string(source_string, source_offset), __source_with_break_for(frame)]
+  end
+  
+  def __stack_method_names
+    methods = []
+
+    (1..__local_stack_depth).each do |idx|
+      method = __local_method_at(idx)
+      methods.push(method.__description_for_stack) if method != nil  # TODO: why do we need to check for nil here?
+    end
+
+    methods
+  end
+
+end

data/lib/maglev-database-explorer/debug_server.rb

@@ -0,0 +1,22 @@
+module MaglevDatabaseExplorer
+  def self.ensure_debug_server_running!
+    if not @debug_server
+      @debug_server = Rails::Server.new
+      @debug_server.options[:Port] += 1
+      @debug_server.options[:pid] = false
+
+      Thread.start do
+        @debug_server.start
+      end
+    end 
+  end
+
+  def self.debug_port
+    ensure_debug_server_running!
+    @debug_server.options[:Port]
+  end
+
+  def self.application_port
+    @application_port ||= Rails::Server.new.options[:Port]
+  end
+end

data/lib/maglev-database-explorer/engine.rb

@@ -0,0 +1,23 @@
+module MaglevDatabaseExplorer
+  class Engine < ::Rails::Engine
+    isolate_namespace MaglevDatabaseExplorer
+
+    initializer "maglev-database-explorer" do |app|
+      app.config.threadsafe!
+
+      app.config.after_initialize do
+        MaglevDatabaseExplorer.ensure_debug_server_running!
+      end
+    end
+  end
+
+  def self.full_gem_path
+    gem = Gem.loaded_specs["maglev-database-explorer"]
+    gem.full_gem_path
+  end
+
+  def self.eval_object
+    @eval_object ||= Object.new
+  end
+end
+