mdbe 0.1.0

data/lib/mdbe/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/mdbe/database_views/string.rb

@@ -0,0 +1,31 @@
+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', 'evaluate'
+
+  "String compile: 'evaluateInContext: anObject ^ self evaluateInContext: anObject symbolList: GsSession currentSession symbolList'".__evaluate
+
+  primitive '__evaluate_smalltalk_in_context', 'evaluateInContext:'
+end
+

data/lib/mdbe/database_views/symbol.rb

@@ -0,0 +1,32 @@
+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/mdbe/database_views/system.rb

@@ -0,0 +1,61 @@
+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 __DBETogglePersistenceMode
+      @dbe_persistence_mode = !__DBEPersistenceMode
+      @dbe_persistence_mode
+    end
+
+    def __DBEPersistenceMode
+      if @dbe_persistence_mode == nil
+        @dbe_persistence_mode = false
+      end
+
+      @dbe_persistence_mode
+    end
+
+    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/mdbe/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/mdbe/debug_server.rb

@@ -0,0 +1,22 @@
+module Mdbe
+  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/mdbe/halt.rb

@@ -0,0 +1,42 @@
+module Mdbe
+  class << self
+    def install_rails_debugger
+      require "mdbe/action_controller_debug_patch"
+    end
+
+    def halt(inner_exception = nil)
+      halt_proc = Proc.new do
+        nil.pause
+      end
+
+      halt_proc.__call_and_rescue do |eval_result|
+        is_exception = eval_result[0]
+
+        if is_exception
+          if inner_exception == nil
+            Thread.current.__set_exception(eval_result[1])
+          else
+            Thread.current.__set_exception(inner_exception)
+          end
+
+          Thread.current[:is_rails_thread] = true
+          eval_result[1] = Thread.current
+
+          halted_threads.push(Thread.current)
+          Thread.current[:manual_stop] = true
+          Thread.stop
+          Thread.current[:manual_stop] = false
+          halted_threads.delete(Thread.current)
+          eval_result[1].__exception.__resume
+        else
+          puts "ERROR: expected a Halt. __call_and_rescue not working correctly."
+          Thread.current.__set_exception(nil)
+        end
+      end
+    end
+
+    def halted_threads
+      @halted_threads ||= []
+    end
+  end
+end

data/lib/mdbe/ruby_workspace.rb

@@ -0,0 +1,29 @@
+class RubyWorkspace
+  def get_binding
+    @binding ||= binding()
+  end
+
+  def evaluate(text)
+    puts "RUBY WORKSPACE: #{text}"
+    result = CodeEvaluation.wait_for_eval_thread do
+      eval(text, get_binding)
+    end
+
+    store_object(result)
+    result
+  end
+
+  def store_object(obj)
+    Mdbe.store_debug_object(obj)
+  end
+
+  def initialize
+    store_object(self)
+  end
+
+  class << self
+    def default_instance
+      @default_instance ||= self.new
+    end
+  end
+end

data/lib/mdbe/version.rb

@@ -0,0 +1,3 @@
+module Mdbe
+  VERSION = '0.1.0'
+end

data/lib/tasks/maglev-database-explorer_tasks.rake

@@ -0,0 +1,4 @@
+# desc "Explaining what the task does"
+# task :maglev-database-explorer do
+#   # Task goes here
+# end

data/public/LICENSE

@@ -0,0 +1,35 @@
+The MIT License (MIT)
+
+Copyright (c) 2012-2013 Dimitri Korsch, Kirstin Heidler, Matthias Springer,
+Nicco Kunzmann, Stefan Bunk
+
+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.
+
+
+MagLev Database Explorer is built on top of Amber Smalltalk
+(http://amber-lang.net) and uses the following libraries.
+
+- jQuery
+- jQuery UI
+- Twitter Bootstrap, custom CSS by Bootswatch
+- Font Awesome
+- jsPlumb
+- jsTree
+- CodeMirror
+

data/public/amber/CHANGELOG

@@ -0,0 +1,65 @@
+16th January 2012 - Release 0.9.1
+=================================
+
+Here's a summary of changes since the 0.9 release:
+
+- 80 new unit tests written
+- 52 issues fixed
+- All classes in Kernel-Objects, Kernel-Classes and Kernel-Methods has been documented
+- New documentation framework (see http://amber-lang.net/documentation.html)
+- Better class organisations, "Kernel" package split into several packages
+- First class packages have replaced class categories
+- Internet Explorer 7+ compatibility
+- New Announcement framework ported from Pharo
+- New console-based REPL written in Amber using node.js
+- Symbol class implemented together with object identity and #==
+- New OrderedCollection and Set implementation
+- Dictionary can now have any kind of object as keys. String-key dictionary has been renamed HashedCollection
+- New TwitterWall example
+- Improved HTML Canvas, now compatible with IE7
+- Improved JSObjectProxy for seemless JavaScript objects access from Amber
+- No more jQuery binding. Amber is fully capable of sending messages to JavaScript objects
+
+13th September 2011 - Release 0.9
+=================================
+Amber has been evolving furiously since the presentation at ESUG 2011 in Edinburgh less than 3 weeks ago.
+
+This is a summary:
+
+Language, compiler and runtime
+
+- New 100x faster parser built using PEGjs instead of the old parser built using PetitParser.
+- New much faster ChunkParser implementation in handwritten Amber instead of using PetitParser.
+- Improved parsing error report with quoted source code plus marker pinpointing parsing error.
+- Removed PetitParser since it is no longer needed by Amber itself.
+- Added compiler optimizations in the form of speculative inlining of specific messages and control structures.
+- Added support for dynamic Arrays, just like in Squeak/Pharo.
+- Added support for similar dynamic Dictionaries, not seen in other Smalltalks.
+- Added & and | as allowed binary selectors and implemented them in Boolean.
+- Added a Set implementation.
+- Added first basic support for real Packages with dependency information.
+
+...and various extensions, enhancements and bug fixes to the library classes.
+
+
+Development environment
+
+- A working Debugger with integrated inspector, proceed etc.
+- A new structure with
+- A working amberc command line compiler including a Makefile for recompiling the whole Amber.
+- Enabled TestRunner in the IDE for running unit tests based on SUnit.
+- Added "File in" button in Workspace to easily paste and filein source code in chunk format in the IDE.
+
+
+Example code and ports
+
+- Ported ProfStef interactive tutorial, available on Amber homepage but also in examples directory.
+- Included the ESUG presentation as an example also in the examples directory.
+- Several new examples running on Node.js and webOS included, all with Makefiles.
+ 
+ 
+Various other things
+
+- Issue tracker on github now used as primary source, closed a bunch of reported issues.
+- Wiki pages on github with information on how to port code from other Smalltalks, lists of articles, tutorials, roadmap and more.
+