maglev-database-explorer 0.0.1

data/MIT-LICENSE

@@ -0,0 +1,21 @@
+Copyright 2013 Matthias Springer, Kirstin Heidler, Stefan Bunk,
+Dimitri Korsch, Nicco Kunzmann
+
+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.rdoc

@@ -0,0 +1,3 @@
+= MaglevDatabaseExplorer
+
+This project rocks and uses MIT-LICENSE.

data/Rakefile

@@ -0,0 +1,40 @@
+#!/usr/bin/env rake
+begin
+  require 'bundler/setup'
+rescue LoadError
+  puts 'You must `gem install bundler` and `bundle install` to run rake tasks'
+end
+begin
+  require 'rdoc/task'
+rescue LoadError
+  require 'rdoc/rdoc'
+  require 'rake/rdoctask'
+  RDoc::Task = Rake::RDocTask
+end
+
+RDoc::Task.new(:rdoc) do |rdoc|
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title    = 'MaglevDatabaseExplorer'
+  rdoc.options << '--line-numbers'
+  rdoc.rdoc_files.include('README.rdoc')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end
+
+APP_RAKEFILE = File.expand_path("../test/dummy/Rakefile", __FILE__)
+load 'rails/tasks/engine.rake'
+
+
+
+Bundler::GemHelper.install_tasks
+
+require 'rake/testtask'
+
+Rake::TestTask.new(:test) do |t|
+  t.libs << 'lib'
+  t.libs << 'test'
+  t.pattern = 'test/**/*_test.rb'
+  t.verbose = false
+end
+
+
+task :default => :test

data/app/assets/javascripts/maglev-database-explorer/application.js

@@ -0,0 +1,17 @@
+// This is a manifest file that'll be compiled into application.js, which will include all the files
+// listed below.
+//
+// Any JavaScript/Coffee file within this directory, lib/assets/javascripts, vendor/assets/javascripts,
+// or vendor/assets/javascripts of plugins, if any, can be referenced here using a relative path.
+//
+// It's not advisable to add code directly here, but if you do, it'll appear at the bottom of the
+// the compiled file.
+//
+// WARNING: THE FIRST BLANK LINE MARKS THE END OF WHAT'S TO BE PROCESSED, ANY BLANK LINE SHOULD
+// GO AFTER THE REQUIRES BELOW.
+//
+//= require jquery
+//= require jquery_ujs
+//= require codemirror
+//= require codemirror/modes/ruby
+//= require_tree .

data/app/assets/javascripts/maglev_database_explorer/def.js

@@ -0,0 +1,2 @@
+// Place all the behaviors and hooks related to the matching controller here.
+// All this logic will automatically be available in application.js.

data/app/assets/stylesheets/maglev-database-explorer/application.css

@@ -0,0 +1,13 @@
+/*
+ * This is a manifest file that'll be compiled into application.css, which will include all the files
+ * listed below.
+ *
+ * Any CSS and SCSS file within this directory, lib/assets/stylesheets, vendor/assets/stylesheets,
+ * or vendor/assets/stylesheets of plugins, if any, can be referenced here using a relative path.
+ *
+ * You're free to add application-wide styles to this file and they'll appear at the top of the
+ * compiled file, but it's generally better to create a new file per style scope.
+ *
+ *= require_self
+ *= require_tree .
+ */

data/app/assets/stylesheets/maglev_database_explorer/def.css

@@ -0,0 +1,4 @@
+/*
+  Place all the styles related to the matching controller here.
+  They will automatically be included in application.css.
+*/

data/app/controllers/maglev_database_explorer/application_controller.rb

@@ -0,0 +1,4 @@
+module MaglevDatabaseExplorer
+  class ApplicationController < ActionController::Base
+  end
+end

data/app/controllers/maglev_database_explorer/code_controller.rb

@@ -0,0 +1,101 @@
+module MaglevDatabaseExplorer
+  class CodeController < ApplicationController
+    def index
+          
+    end
+
+    def selectors
+      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
+  
+    def code
+      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
+  
+    def frame
+      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
+  
+    def frames
+      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
+  
+    def stepInto
+      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.__step_into.to_database_view(1, {}, {})}
+      end
+    end
+  
+    def proceed
+      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
+  
+    def trim
+      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
+  
+    def stepOver
+      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
+end

data/app/controllers/maglev_database_explorer/object_controller.rb

@@ -0,0 +1,60 @@
+module MaglevDatabaseExplorer
+  class ObjectController < ApplicationController
+    def index
+      id = Integer(params[:id])
+      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] ? Integer(params[:depth]) : 2
+
+      render :json => {:success => true, :result => ObjectSpace._id2ref(id).to_database_view(depth, ranges, params)}
+    end
+  
+    def evaluate
+      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 catched
+          render :json => {:success => true, :result => [true, result[1].to_database_view(1, ranges, params)]}
+        else
+          # no exception was catched
+          render :json => {:success => true, :result => [false, result[1].to_database_view(depth, ranges, params)]}
+        end
+      end
+    end
+  
+    private
+    
+    def store_object(obj)
+      Maglev::PERSISTENT_ROOT[:debug_storage] ||= {}
+      Maglev::PERSISTENT_ROOT[:debug_storage][obj.object_id] = obj
+    end  
+  end
+end

data/app/controllers/maglev_database_explorer/object_explorer_controller.rb

@@ -0,0 +1,9 @@
+module MaglevDatabaseExplorer
+  class ObjectExplorerController < ApplicationController
+    def index
+      if request.port == MaglevDatabaseExplorer.application_port
+        redirect_to "#{request.protocol}#{request.host}:#{MaglevDatabaseExplorer.debug_port}#{request.fullpath}"
+      end    
+    end
+  end
+end

data/app/helpers/maglev_database_explorer/application_helper.rb

@@ -0,0 +1,4 @@
+module MaglevDatabaseExplorer
+  module ApplicationHelper
+  end
+end

data/app/views/layouts/maglev-database-explorer/application.html.erb

@@ -0,0 +1,14 @@
+<!DOCTYPE html>
+<html>
+<head>
+  <title>MaglevDatabaseExplorer</title>
+  <%= stylesheet_link_tag    "maglev-database-explorer/application", :media => "all" %>
+  <%= javascript_include_tag "maglev-database-explorer/application" %>
+  <%= csrf_meta_tags %>
+</head>
+<body>
+
+<%= yield %>
+
+</body>
+</html>

data/app/views/maglev_database_explorer/object_explorer/_workspace.html.erb

@@ -0,0 +1,28 @@
+<div style="position:absolute">
+  <div id="workspace">
+  </div>
+</div>
+
+<div style="display: none;" id="temporary-rendering-area"></div>
+
+<script type='text/javascript'>
+  function bitShiftRight(a, b) {
+    // don't use JS bitshift, this might fail with big numbers
+    return Math.round(a / Math.pow(2, b));
+  }
+
+  loadAmber({
+    // deploy: true,
+    ready: function() {
+      // smalltalk.Browser._open();
+
+      smalltalk.Maglev._persistentRootId_(<%= Maglev::PERSISTENT_ROOT.object_id %>);
+      smalltalk.Maglev._maglevSystemId_(<%= Maglev::System.object_id %>);
+      smalltalk.Maglev._defaultWorkspaceId_(<%= RubyWorkspace.default_instance.object_id %>);
+      smalltalk.Maglev._evalObjectId_(<%= MaglevDatabaseExplorer.eval_object.object_id %>);
+
+      smalltalk.Maglev._ready();
+    }
+  });
+</script>
+

data/app/views/maglev_database_explorer/object_explorer/index.html.erb

@@ -0,0 +1,92 @@
+<!DOCTYPE html>
+<html>
+<head>
+  <title>MagLev Database Explorer</title>
+  
+  <!-- jQuery, jQuery UI -->
+  <script src="libs/jquery-1.10.0.min.js" type="text/javascript"></script>
+  <script src="libs/jquery-ui.min.js" type="text/javascript"></script>
+  <link href="css/jquery-ui.min.css" rel="stylesheet">
+
+  <!-- Twitter Bootstrap -->
+  <link href="css/bootstrap-combined.no-icons.min.css" rel="stylesheet">
+  <script src="libs/bootstrap.min.js"></script>
+  <link href="libs/font-awesome/css/font-awesome.css" rel="stylesheet">
+  <link href="css/bootstrap.css" rel="stylesheet">
+
+  <!-- CodeMirror -->
+  <link href="css/smalltalk_code.css" rel="stylesheet">
+  <link href="libs/codemirror/lib/codemirror.css" rel="stylesheet">
+  <script src="libs/codemirror/lib/codemirror.js" type="text/javascript"></script>
+  <script src="libs/codemirror/addon/selection/active-line.js" type="text/javascript"></script>
+  <script src="libs/codemirror/addon/edit/matchbrackets.js" type="text/javascript"></script>
+  <script src="libs/codemirror/mode/smalltalk/smalltalk.js" type="text/javascript"></script>
+  <script src="libs/codemirror/mode/ruby/ruby.js" type="text/javascript"></script>
+
+  <!-- Other libraries -->
+  <script src="libs/jquery.livequery.js" type="text/javascript"></script>
+  <script src="libs/jstree/jquery.jstree.js" type="text/javascript"></script>
+  <script src="libs/jquery.jsPlumb-1.4.0-all.js" type="text/javascript"></script>
+
+  <!-- Amber Smalltalk -->
+  <script src="amber/js/amber.js" type="text/javascript"></script>
+
+  <!-- Maglev Database Explorer Stylesheet -->
+  <link href="css/style.css" rel="stylesheet" />
+</head>
+
+<body class="index" style="padding-top: 60px; padding-bottom: 60px;">
+  <!-- navbar top -->
+  <div class="navbar navbar-fixed-top">
+    <div class="navbar-inner">
+      <div class="container">
+        <a class="brand" href="/" style="padding: 5px 20px 5px;"><img src="images/maglev-logo.gif" style="height: 40px;">  MagLev Database Explorer</a>
+        <button type="button" class="btn btn-navbar" data-toggle="collapse" data-target=".nav-collapse">
+          <span class="icon-bar"></span>
+          <span class="icon-bar"></span>
+          <span class="icon-bar"></span>
+        </button>
+        <div class="nav-collapse collapse">
+          <ul class="nav">
+            <li><a href="/ClassExplorer/index/<%= Class.object_id %>"><b class="icon-list-alt"></b>Class Explorer</a></li>
+            <li><a href="/ObjectExplorer/graph/<%= Maglev::PERSISTENT_ROOT.object_id %>"><b class="icon-search"></b>PERSISTENT_ROOT</a></li>
+            <li class="dropdown"><a class="dropdown-toggle" data-toggle="dropdown" href="#"><b class="icon-question-sign"></b>Help<b class="caret"></b></a>
+              <ul class="dropdown-menu">
+                <li><a href="http://maglev.github.io/">MagLev website</a></li>
+                <li><a href="/LICENSE">License</a></li>
+              </ul>
+            </li>
+          </ul>
+        </div>
+      </div>
+    </div>
+  </div>
+
+  <!-- thread bar bottom -->
+  <div class="navbar-fixed-bottom stackable-navbar" id="halted-threads-navbar" style="height: 38px; bottom: 43px;">
+    <div class="navbar-inner">
+      <div class="container" style="margin: 0px 0px 0px 0px; width: 100%">
+        <div class="nav" id="halted-threads-navigation">
+        </div>
+      </div>
+    </div>
+  </div>
+
+  <!-- navbar bottom -->
+  <div class="navbar navbar-fixed-bottom stackable-navbar" style="height: 38px;">
+    <div class="navbar-inner">
+      <div class="container" style="margin: 0px 0px 0px 0px; width: 100%">
+        <div class="nav">
+          <ul id="windows-navigation" class="nav">
+          </ul>
+        </div>
+      </div>
+    </div>
+  </div>
+
+  <div style="width:95%" class="container">
+    <%= render(:partial => "workspace") %>
+  </div>
+</body>
+</html>
+

data/config/routes.rb

@@ -0,0 +1,15 @@
+MaglevDatabaseExplorer::Engine.routes.draw do
+  get "/" => "ObjectExplorer#index"
+
+  match "/object/index/:id" => "Object#index"
+  match "/object/evaluate/:id" => "Object#evaluate"
+
+  match "/code/selectors/:id" => "Code#selectors"
+  match "/code/code/:id" => "Code#code"
+  match "/code/frame/:id" => "Code#frame"
+  match "/code/frames/:id" => "Code#frames"
+  match "/code/stepInto/:id" => "Code#stepInto"
+  match "/code/proceed/:id" => "Code#proceed"
+  match "/code/trim/:id" => "Code#trim"
+  match "/code/stepOver/:id" => "Code#stepOver"
+end