mdbe 0.1.0

data/lib/mdbe/database_views/abstract_exception.rb

@@ -0,0 +1,25 @@
+AbstractException = __resolve_smalltalk_global(:AbstractException)
+
+class AbstractException
+  primitive '__resume', 'resume'
+
+  def __basetype
+    :exception
+  end
+
+  def to_database_view(depth, ranges = {}, params = {})
+    obj = super
+
+    obj[:exception] = true
+    obj[:inspection] = self.inspect
+
+    # need to fetch these ivs explicitly since they're hidden by rubyPrivateSize
+    obj[:gsResumable] = self.instance_variable_get("@_st_gsResumable") != false
+    obj[:gsTrappable] = self.instance_variable_get("@_st_gsTrappable") != false
+    obj[:gsNumber] = self.instance_variable_get("@_st_gsNumber")
+    obj[:isDBEHalt] = self.class == DBEHalt
+
+    return obj
+  end
+end
+

data/lib/mdbe/database_views/array.rb

@@ -0,0 +1,28 @@
+class Array
+  def __basetype
+    :array
+  end
+
+  def to_database_view(depth, ranges = {}, params = {})
+    obj = super
+
+    if depth > 0
+      obj[:elements] = {}
+      obj[:elementsSize] = self.size
+
+      range_from = ranges[:elements] ? Integer(ranges[:elements][0]) : 1
+      range_to = ranges[:elements] ? Integer(ranges[:elements][1]) : 10
+
+      if (params[:allElements])
+        range_from = 1
+        range_to = self.size
+      end
+
+      ((range_from - 1)..[range_to - 1, self.size - 1].min).each do |index|
+        obj[:elements][index + 1] = self[index].to_database_view(depth - 1, {}, params)
+      end
+    end
+
+    return obj
+  end
+end

data/lib/mdbe/database_views/boolean.rb

@@ -0,0 +1,12 @@
+class Boolean
+  def __basetype
+    :boolean
+  end
+
+  def to_database_view(depth, ranges = {}, params = {})
+    obj = super
+    obj[:value] = self
+
+    return obj
+  end
+end

data/lib/mdbe/database_views/class.rb

@@ -0,0 +1,46 @@
+class Class
+  def __basetype
+    :class
+  end
+
+  def to_database_view(depth, ranges = {}, params = {})
+    # we will eventually reach Object
+    obj = super
+
+    if depth > 0 and not params[:noBehavior]
+      #instances = ObjectSpace::SystemRepository.__list_instances([self], 0, nil, 2, 95, true)[1]
+      #obj[:size] = instances.size
+
+      #instances[range_from - 1, range_to - range_from + 1].each do |instance|
+      #  obj[:elements].push(instance.to_database_view(depth - 1))
+      #end
+
+      obj[:superclassObject] = self.superclass.to_database_view(depth - 1, {}, params)
+    end
+
+    if params[:subclasses] && depth > 1 # requests usually start at a depth of 2
+      obj[:subclasses] = __subclasses.to_a.sort_by {|c| c.to_s}.reverse.to_database_view(2, {}, {:allElements => true, :noBehavior => true})
+    end
+
+    if params[:instances] && depth > 1 # requests usually start at a depth of 2
+      range_from = ranges[:instances] ? Integer(ranges[:instances][0]) : 1
+      range_to = ranges[:instances] ? Integer(ranges[:instances][1]) : 10
+
+      instances = ObjectSpace::SystemRepository.__list_instances([self], 0, nil, 2, 95, true)[1]
+
+      params_instances = {:noBehavior => true}
+
+      obj[:instancesSize] = instances.size
+      obj[:instances] = {}
+      #obj[:instancesBasetype] = self.method(:__basetype).__bind(nil).call
+
+      ((range_from - 1)..[range_to - 1, instances.size - 1].min).each do |index|
+        obj[:instances][index + 1] = instances[index].to_database_view(depth - 1, {}, params_instances)
+      end
+    end
+
+    return obj
+  end
+
+  primitive '__subclasses', 'subclasses'
+end

data/lib/mdbe/database_views/exception.rb

@@ -0,0 +1,3 @@
+class Exception
+
+end

data/lib/mdbe/database_views/execblock.rb

@@ -0,0 +1,5 @@
+class ExecBlock
+  def render_inst_vars
+    false
+  end
+end

data/lib/mdbe/database_views/fixnum.rb

@@ -0,0 +1,5 @@
+class Fixnum
+  def __basetype
+    :fixnum
+  end
+end

data/lib/mdbe/database_views/float.rb

@@ -0,0 +1,5 @@
+class Float
+  def __basetype
+    :float
+  end
+end

data/lib/mdbe/database_views/globals.rb

@@ -0,0 +1,2 @@
+RUBY.global 'AbstractException', 'AbstractException'
+

data/lib/mdbe/database_views/gsnmethod.rb

@@ -0,0 +1,29 @@
+class GsNMethodProxy
+  def self.for(method)
+    instance = self.new
+    instance.method = method
+    instance
+  end
+
+  def __for_database_explorer
+    [@method.__source_string, @method.__environment_id, @method.__selector, @method.__file_and_line, @method.__in_class.to_database_view(1, {}, {:noBehavior => true})]
+  end
+
+  def method=(val)
+    @method = val
+  end
+end
+
+class GsNMethod
+  primitive '__in_class', 'inClass'
+  primitive '__source_string', 'sourceString'
+  primitive '__environment_id', 'environmentId'
+  primitive '__description_for_stack', '_descrForStack'
+  primitive '__selector', 'selector'
+  primitive '__file_and_line', '_fileAndLine'
+  primitive '__source_offsets', '_sourceOffsets'
+  primitive '__source_offsets_at', '_sourceOffsetsAt:'
+  primitive '__previous_step_point_for_ip', '_previousStepPointForIp:'
+  primitive '__source_at_ip', '_sourceAtTosIp:'
+  primitive '__step_point_for_ip', '_stepPointForIp:level:isNative:'
+end

data/lib/mdbe/database_views/hash.rb

@@ -0,0 +1,5 @@
+class Hash
+  def __basetype
+    :hash
+  end
+end

data/lib/mdbe/database_views/maglev_record.rb

@@ -0,0 +1,42 @@
+if Object.const_defined?(:MaglevRecord)
+  puts "MaglevRecord is present."
+
+  module MaglevRecord::Base
+    def __basetype
+      :maglevRecordBase
+    end
+
+    def to_database_view(depth, ranges = {}, params = {})
+      obj = super
+
+      if depth > 0
+        index = 1
+
+        obj[:attributes] = {}
+        obj[:attributesSize] = @maglev_attributes.size
+
+        range_from = ranges[:attributes] ? Integer(ranges[:attributes][0]) : 1
+        range_to = ranges[:attributes] ? Integer(ranges[:attributes][1]) : 0
+
+        if (params[:allElements])
+          range_from = 1
+          range_to = @maglev_attributes.size
+        end
+
+        @maglev_attributes.each do |k, v|
+          if (index >= range_from)
+            if (index > range_to)
+              break
+            else
+              obj[:attributes][index] = [k.to_database_view(depth - 1, {}, params), v.to_database_view(depth - 1, {}, params)]
+            end
+          end
+
+          index = index + 1
+        end
+      end
+
+      return obj
+    end
+  end
+end

data/lib/mdbe/database_views/module.rb

@@ -0,0 +1,103 @@
+class Module
+  def __basetype
+    :module
+  end
+
+  def to_database_view(depth, ranges = {}, params = {})
+    obj = super
+
+    if depth > 0 and not params[:noBehavior]
+      obj[:smalltalkFullName] = __fullName.to_database_view(depth - 1, {}, params)
+      obj[:rubyFullName] = __rubyFullName.to_database_view(depth - 1, {}, params)
+
+      obj[:includedModules] = {}
+      obj[:includedModulesSize] = self.included_modules.size
+
+      range_from = ranges[:includedModules] ? Integer(ranges[:includedModules][0]) : 1
+      range_to = ranges[:includedModules] ? Integer(ranges[:includedModules][1]) : 0
+
+      ((range_from - 1)..[range_to - 1, self.included_modules.size - 1].min).each do |index|
+        obj[:includedModules][index + 1] = self.included_modules[index].to_database_view(depth - 1, {}, params)
+      end
+
+      obj[:constants] = {}
+      obj[:constantsSize] = self.constants.size
+
+      range_from = ranges[:constants] ? Integer(ranges[:constants][0]) : 1
+      range_to = ranges[:constants] ? Integer(ranges[:constants][1]) : 0
+
+     ((range_from - 1)..[range_to - 1, self.constants.size - 1].min).each do |index|
+        begin
+          obj[:constants][index + 1] = [self.constants[index].to_database_view(depth - 1, {}, params), self.const_get(self.constants[index]).to_database_view(depth - 1, {}, params)]
+        rescue Exception => e
+          obj[:constants][index + 1] = {:loaded => false, :error => true, :basetype => :string, :inspection => "(error)", :oop => -1}
+        end
+      end
+
+      if params[:superList]
+        obj[:superList] = __super_list.to_database_view(2, {}, {:allElements => true, :noBehavior => true})
+      end
+    end
+
+    return obj
+  end
+
+  primitive '__compile_smalltalk_method', 'compileMethod:category:'
+  primitive '__fullName', 'fullName'
+  primitive '__rubyFullName', 'rubyFullName'
+
+  primitive '__category_names', 'categoryNames'
+  primitive '__smalltalk_selectors_in', 'selectorsIn:'
+  primitive '__ruby_nonbridge_selectors', 'nonBridgeRubySelectorsInto:hiddenInto:protection:env:'
+
+  primitive '__lookup_smalltalk_selector', 'lookupSelector:'
+  primitive '__lookup_ruby_selector', 'rubyMethodFor:instanceMethod:'
+
+  primitive '__compile', 'compile:'
+
+  primitive '__all_super_list', '_allSuperList:env:'
+
+  def __ruby_selectors
+    ruby_selectors = IdentitySet.new
+    hidden_set = IdentitySet.new
+
+    __ruby_nonbridge_selectors(ruby_selectors, hidden_set, -1, 1)
+    ruby_selectors.to_a
+  end
+
+  def __source_for_selector(selector, language)
+    method = nil
+
+    if language == :smalltalk
+      method = __lookup_smalltalk_selector(selector)
+    else
+      method = __lookup_ruby_selector(selector, true)
+    end
+
+    GsNMethodProxy.for(method).__for_database_explorer
+  end
+
+  def __selectors_by_category
+    categories = {}
+    all_smalltalk = []
+
+    __category_names.each do |cat|
+      st_selectors = __smalltalk_selectors_in(cat).sort
+      categories[cat] = st_selectors
+      all_smalltalk += st_selectors
+    end
+
+    categories["(all Smalltalk)"] = all_smalltalk.sort
+    categories["(all Ruby)"] = __ruby_selectors.sort
+
+    categories
+  end
+
+  private
+
+  def __super_list
+    arr = __all_super_list(false, 1)
+    arr.push(self)
+    arr
+  end
+end

data/lib/mdbe/database_views/nilclass.rb

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

data/lib/mdbe/database_views/object.rb

@@ -0,0 +1,80 @@
+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|
+          begin
+            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)]
+          rescue Exception => e
+            obj[:instVars][index + 1] = [self.instance_variables[index].to_database_view(depth - 1, {}, params), "(error)".to_database_view(1, {}, params)]
+          end
+        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/mdbe/database_views/proc.rb

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

data/lib/mdbe/database_views/repository.rb

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

data/lib/mdbe/database_views/ruby_workspace.rb

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

data/lib/mdbe/database_views/smalltalk_classes.rb

@@ -0,0 +1,34 @@
+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.read(File.expand_path('../smalltalk_classes.st', __FILE__)))
+
+DBEHalt = __resolve_smalltalk_global(:DBEHalt)