mdbe 0.1.0

checksums.yaml

@@ -0,0 +1,15 @@
+---
+!binary "U0hBMQ==":
+  metadata.gz: !binary |-
+    N2NiZmRmZjdmMjljOTdkZDE3MGU3ZTI4ZTIyOTA3MDgxYWQ5YzI3MQ==
+  data.tar.gz: !binary |-
+    MzVhYWM2NGE2ZTU3N2JmYmVhZjFjYzRlNjg5MjMzNjZkMzMxNDg1ZQ==
+SHA512:
+  metadata.gz: !binary |-
+    ZDhkMmMwODQwNGNkNmIxMjcxNmUzMmY2ZjMwNTRkZDVmZWJhOGI1NDhhOTA4
+    OGRjM2MwOWMzMDNkYzZkNTRiNzIxNjQ4MmUzMDZkNjhlZGUyOWUyZGUwMmRj
+    OGJjNTM2ODRhNzMwNmQ2ZWE2YzdlOWZmNzkxMmYyMTAyZDkyNDE=
+  data.tar.gz: !binary |-
+    OThmMGQxYWIyMjcyYTdiNGFhZjYwNzczYjJhZjRkMjQzNzMzNTlkNDRlZWRj
+    ZTc2YTgwNDM3YjBjNzkzMzYzZmMxNzg1OTQzMjU3NTU2M2MyMWEyYjcxOTk4
+    MTIyYmY0YzBiNmUwMTdkN2Y2YThhYmYxMGNlOTFkYmY2ZWZiMGU=

data/LICENSE.txt

@@ -0,0 +1,21 @@
+Copyright 2013-2014 Matthias Springer, Kirstin Heidler, Stefan Bunk,
+Dimitri Korsch, Nicco Kunzmann, JohnnyT
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.md

@@ -0,0 +1,53 @@
+# MDBE
+[![Version][Version image]][Version]
+[![Build][Build image]][Build]
+
+MDBE is a version of [maglev-database-explorer-gem](maglev-database-explorer-gem)
+which uses Sinatra instead of Rails.
+
+MDBE is a Sinatra application that allow you to view and modify objects
+persisted in MagLev/GemStone and to debug Rails applications.
+
+http://www.youtube.com/watch?v=27mS1BNP7wQ
+
+
+### Installation
+
+    gem install mdbe
+
+
+### Usage
+
+    mdbe
+
+
+You can access MDBE at this URL: `http://localhost:9292//`
+
+
+### Contributing
+
+If you'd like to contribute, that's awesome. There's a guide to contributing
+(both code and general help) over in [CONTRIBUTING.md](CONTRIBUTING.md)
+
+
+### Development
+
+To see what has changed in recent versions, see the [CHANGELOG.md](CHANGELOG.md).
+
+
+### License
+
+Copyright 2013-2014 Matthias Springer, Kirstin Heidler, Stefan Bunk,
+Dimitri Korsch, Nicco Kunzmann, JohnnyT
+
+Licensed under the MIT License
+
+[maglev-database-explorer-gem]: https://github.com/matthias-springer/maglev-database-explorer-gem
+
+[Version]: https://rubygems.org/gems/mdbe
+[Build]: https://travis-ci.org/johnnyt/mdbe
+[Coverage]: https://coveralls.io/r/johnnyt/mdbe
+
+[Version image]: https://badge.fury.io/rb/mdbe.png
+[Build image]: https://travis-ci.org/johnnyt/mdbe.png
+[Coverage image]: https://coveralls.io/repos/johnnyt/mdbe/badge.png?branch=master

data/app.rb

@@ -0,0 +1,182 @@
+require File.expand_path '../environment', __FILE__
+
+class MdbeApp < ::Sinatra::Base
+  helpers Sinatra::JSON
+
+  configure do
+    enable :raise_errors, :logging, :show_exceptions
+  end
+
+  get '/' do
+    File.read(File.expand_path '../public/index.html', __FILE__)
+    #json :message => "Hello world! (from #{RUBY_ENGINE})"
+  end
+
+  get '/ids' do
+    json(
+      :persistentRootId => Maglev::PERSISTENT_ROOT.object_id,
+      :maglevSystemId => Maglev::System.object_id,
+      :defaultWorkspaceId => RubyWorkspace.default_instance.object_id,
+      :evalObjectId => Mdbe.eval_object.object_id)
+  end
+
+  # Write Amber packages to disk
+  put '/:type/:package' do
+    File.open("./public/amber/#{params[:type]}/#{params[:package]}", 'w+') do |file|
+      file.write request.body.read
+    end
+    'success'
+  end
+
+
+
+
+  def store_object(obj)
+    Mdbe.store_debug_object(obj)
+  end
+
+  get '/object/index/:id' do
+    id = params[:id].to_i
+    ranges = {}
+
+    params.each_pair do |key, value|
+      parts = key.split("_")
+
+      if parts[0] == "range"
+        ranges[parts[1].to_sym] = [params["range_#{parts[1]}_from"], params["range_#{parts[1]}_to"]]
+     end
+   end
+
+    depth = (params[:depth] || 2).to_i
+
+    json({:success => true, :result => ObjectSpace._id2ref(id).to_database_view(depth, ranges, params)})
+  end
+
+  get '/object/evaluate/:id' do
+    obj_id = Integer(params[:id])
+    obj = ObjectSpace._id2ref(obj_id)
+    code = params[:code]
+    language = params[:language]
+    depth = params[:depth] ? Integer(params[:depth]) : 2
+    ranges = {}
+
+    if obj == nil and obj_id != 20
+      render :json => {:success => false, :exception => "object not found"}
+    else
+      result = CodeEvaluation.wait_for_eval_thread do
+        if language == "smalltalk"
+          obj.__evaluate_smalltalk(code)
+        elsif language == "ruby"
+          obj.instance_eval(code)
+        elsif language == "rubyClass"
+          obj.module_eval(code)
+        end
+      end
+
+      store_object(result)
+
+      if result[0]
+        # exception was caught
+        json({:success => true, :result => [true, result[1].to_database_view(1, ranges, params)]})
+      else
+        # no exception was caught
+        json({:success => true, :result => [false, result[1].to_database_view(depth, ranges, params)]})
+      end
+    end
+  end
+
+  get '/code/selectors/:id' do
+    id = Integer(params[:id])
+    obj = ObjectSpace._id2ref(id)
+
+    if obj == nil and id != 20
+      render :json => {:success => false, :exception => "object with id #{id} not found"}
+    else
+      render :json => {:success => true, :result => obj.__selectors_by_category}
+    end
+  end
+
+  get '/code/code/:id' do
+    id = Integer(params[:id])
+    obj = ObjectSpace._id2ref(id)
+
+    if obj == nil and id != 20
+      render :json => {:success => false, :exception => "object with id #{id} not found"}
+    else
+      render :json => {:success => true, :result => obj.__source_for_selector(params[:selector], params[:language].to_sym)}
+    end
+  end
+
+  get '/code/frame/:id' do
+    id = Integer(params[:id])
+    index = Integer(params[:index])
+    obj = ObjectSpace._id2ref(id)
+
+    if obj == nil and id != 20
+      render :json => {:success => false, :exception => "object with id #{id} not found"}
+    else
+      render :json => {:success => true, :result => obj.__stack_frame(index)}
+    end
+  end
+
+  get '/code/frames/:id' do
+    id = Integer(params[:id])
+    obj = ObjectSpace._id2ref(id)
+
+    if obj == nil and id != 20
+      render :json => {:success => false, :exception => "object with id #{id} not found"}
+    else
+      render :json => {:success => true, :result => obj.__stack_method_names}
+    end
+  end
+
+  get '/code/stepInto/:id' do
+    id = Integer(params[:id])
+    obj = ObjectSpace._id2ref(id)
+
+    if obj == nil and id != 20
+      render :json => {:success => false, :exception => "object with id #{id} not found"}
+    else
+      p obj
+      render :json => {:success => true, :result => obj.__step_into.to_database_view(1, {}, {})}
+    end
+  end
+
+  get '/code/proceed/:id' do
+    id = Integer(params[:id])
+    obj = ObjectSpace._id2ref(id)
+
+    if obj == nil and id != 20
+      render :json => {:success => false, :exception => "object with id #{id} not found"}
+    else
+      result = obj.run
+      sleep 0.1 until (obj.stop? and obj[:manual_stop]) or obj[:is_rails_thread]
+      render :json => {:success => true, :result => result}
+    end
+  end
+
+  get '/code/trim/:id' do
+    id = Integer(params[:id])
+    obj = ObjectSpace._id2ref(id)
+    index = Integer(params[:index])
+
+    if obj == nil and id != 20
+      render :json => {:success => false, :exception => "object with id #{id} not found"}
+    else
+      obj.__trim_stack_to_level(index)
+      render :json => {:success => true, :result => true}
+    end
+  end
+
+  get '/code/stepOver/:id' do
+    id = Integer(params[:id])
+    index = Integer(params[:index])
+    obj = ObjectSpace._id2ref(id)
+
+    if obj == nil and id != 20
+      render :json => {:success => false, :exception => "object with id #{id} not found"}
+    else
+      render :json => {:success => true, :result => obj.__step_over_at(index).to_database_view(1, {}, {})}
+    end
+  end
+end

data/bin/mdbe

@@ -0,0 +1,5 @@
+#!/usr/bin/env ruby
+
+Dir.chdir(File.expand_path('../../', __FILE__)) do
+  system "rackup"
+end

data/config.ru

@@ -0,0 +1,2 @@
+require File.expand_path '../app', __FILE__
+run MdbeApp

data/environment.rb

@@ -0,0 +1,8 @@
+ENV['RACK_ENV'] ||= 'development'
+ENV['RACK_ROOT'] = RACK_ROOT = File.expand_path('..', __FILE__)
+require 'sinatra/base'
+require 'sinatra/json'
+#require 'sinatra/namespace'
+require 'multi_json'
+
+require File.expand_path '../lib/mdbe', __FILE__

data/lib/mdbe.rb

@@ -0,0 +1,39 @@
+lib_path = File.expand_path('..', __FILE__)
+$LOAD_PATH.unshift lib_path unless $LOAD_PATH.include?(lib_path)
+
+module Mdbe
+#    initializer "mdbe" do |app|
+#      app.config.threadsafe!
+#
+#      app.config.after_initialize do
+#        MaglevDatabaseExplorer.ensure_debug_server_running!
+#        MaglevDatabaseExplorer.install_rails_debugger
+#      end
+#    end
+
+  def full_gem_path
+    gem = Gem.loaded_specs["mdbe"]
+    gem.full_gem_path
+  end
+
+  def eval_object
+    @eval_object ||= Object.new
+  end
+
+  def debug_storage
+    @debug_storage ||= {}
+  end
+
+  def store_debug_object(obj)
+    debug_storage[obj.object_id] = obj
+  end
+
+  module_function :full_gem_path, :eval_object,
+    :debug_storage, :store_debug_object
+end
+
+require "mdbe/database_views"
+require "mdbe/ruby_workspace"
+require "mdbe/code_evaluation"
+#require "mdbe/debug_server"
+require "mdbe/halt"

data/lib/mdbe/action_controller_debug_patch.rb

@@ -0,0 +1,12 @@
+module ActionController
+  module Rescue
+    private
+
+    def process_action(*args)
+      super
+    rescue Exception => exception
+        Mdbe.halt(exception)
+        exception.__resume
+    end
+  end
+end

data/lib/mdbe/code_evaluation.rb

@@ -0,0 +1,46 @@
+class CodeEvaluation
+  class << self
+    def wait_for_eval_thread(&block)
+      eval_thread = Thread.start do
+        value_proc = Proc.new do
+          if Maglev::System.__DBEPersistenceMode
+            Maglev.persistent do
+              block.call
+            end
+          else
+            Maglev.transient do
+              block.call
+            end
+          end
+        end
+
+        value_proc.__call_and_rescue do |eval_result|
+          is_exception = eval_result[0]
+
+          if is_exception
+            Thread.current.__set_exception(eval_result[1])
+            eval_result[1] = Thread.current
+          else
+            Thread.current.__set_exception(nil)
+          end
+
+          Thread.current[:result] = eval_result
+          Thread.current[:manual_stop] = true
+
+          if is_exception
+            Thread.stop
+            Thread.current[:manual_stop] = false
+            eval_result[1].__exception.__resume
+          end
+        end
+
+        Thread.current[:manual_stop] = true
+      end
+
+      sleep 0.1 until eval_thread.stop? and eval_thread[:manual_stop]
+
+      result = eval_thread[:result]
+      return result
+    end
+  end
+end

data/lib/mdbe/database_views.rb

@@ -0,0 +1,24 @@
+require "mdbe/database_views/globals"
+require "mdbe/database_views/object"
+require "mdbe/database_views/exception"
+require "mdbe/database_views/module"
+require "mdbe/database_views/array"
+require "mdbe/database_views/fixnum"
+require "mdbe/database_views/float"
+require "mdbe/database_views/string"
+require "mdbe/database_views/symbol"
+require "mdbe/database_views/nilclass"
+require "mdbe/database_views/gsnmethod"
+require "mdbe/database_views/thread"
+require "mdbe/database_views/smalltalk_classes"
+require "mdbe/database_views/class"
+require "mdbe/database_views/execblock"
+require "mdbe/database_views/proc"
+require "mdbe/database_views/abstract_exception"
+require "mdbe/database_views/boolean"
+require "mdbe/database_views/abstract_dictionary"
+require "mdbe/database_views/hash"
+require "mdbe/database_views/system"
+require "mdbe/database_views/ruby_workspace"
+require "mdbe/database_views/repository"
+require "mdbe/database_views/maglev_record"

data/lib/mdbe/database_views/abstract_dictionary.rb

@@ -0,0 +1,69 @@
+AbstractDictionary = __resolve_smalltalk_global(:AbstractDictionary)
+
+class AbstractDictionary
+  primitive 'size', 'size'
+  primitive '__each_key_and_value&', 'keysAndValuesDo:'
+
+  def __basetype
+    :dictionary
+  end
+
+  def to_database_view(depth, ranges = {}, params = {})
+    obj = super
+
+    if depth > 0
+      index = 1
+
+      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
+
+      self.__each_key_and_value do |k, v|
+        if (index >= range_from)
+          if (index > range_to)
+            break
+          else
+            obj[:elements][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
+
+# Redefine primitives to simulate late binding
+Dictionary = __resolve_smalltalk_global(:Dictionary)
+class Dictionary
+  primitive 'size', 'size'
+  primitive '__each_key_and_value&', 'keysAndValuesDo:'
+end
+
+IdentityKeyValueDictionary = __resolve_smalltalk_global(:IdentityKeyValueDictionary)
+class IdentityKeyValueDictionary
+  primitive 'size', 'size'
+  primitive '__each_key_and_value&', 'keysAndValuesDo:'
+end
+
+class Hash
+  primitive 'size', 'size'
+  primitive '__each_key_and_value&', 'keysAndValuesDo:'
+end
+
+StringKeyValueDictionary = __resolve_smalltalk_global(:StringKeyValueDictionary)
+class StringKeyValueDictionary
+  primitive 'size', 'size'
+  primitive '__each_key_and_value&', 'keysAndValuesDo:'
+end
+