RubyGems - maglev-webtools - Versions diffs - 0.2.1 - Mend

maglev-webtools 0.2.1

Files changed (125) hide show

data/LICENSE.txt +25 -0
data/README.rdoc +121 -0
data/bin/webtools +15 -0
data/lib/web_tools/#debugger.rb# +212 -0
data/lib/web_tools/browser.rb +45 -0
data/lib/web_tools/debugger.rb +219 -0
data/lib/web_tools/info.rb +29 -0
data/lib/web_tools/middleware/debugger.rb +118 -0
data/lib/web_tools/support/app_model.rb +117 -0
data/lib/web_tools/support/code_browser.rb +109 -0
data/lib/web_tools/support/ruby.rb +132 -0
data/lib/web_tools/support/service_helper.rb +22 -0
data/lib/web_tools/support/smalltalk_extensions.rb +65 -0
data/lib/web_tools/support/smalltalk_tools.rb +16 -0
data/lib/web_tools/ui.rb +67 -0
data/lib/web_tools.rb +10 -0
data/public/images/favicon.ico +0 -0
data/public/javascript/CodeMirror/LICENSE +23 -0
data/public/javascript/CodeMirror/css/Smalltalk.css +34 -0
data/public/javascript/CodeMirror/js/codemirror.js +582 -0
data/public/javascript/CodeMirror/js/editor.js +1671 -0
data/public/javascript/CodeMirror/js/highlight.js +68 -0
data/public/javascript/CodeMirror/js/parseSmalltalk.js +126 -0
data/public/javascript/CodeMirror/js/parsedummy.js +32 -0
data/public/javascript/CodeMirror/js/select.js +699 -0
data/public/javascript/CodeMirror/js/stringstream.js +159 -0
data/public/javascript/CodeMirror/js/tokenize.js +57 -0
data/public/javascript/CodeMirror/js/undo.js +413 -0
data/public/javascript/CodeMirror/js/util.js +133 -0
data/public/javascript/CodeMirror/testSmalltalkParser.html +116 -0
data/public/javascript/ace/ace-uncompressed.js +17299 -0
data/public/javascript/ace/ace.js +1 -0
data/public/javascript/ace/keybinding-emacs.js +1 -0
data/public/javascript/ace/keybinding-vim.js +1 -0
data/public/javascript/ace/mode-c_cpp.js +1 -0
data/public/javascript/ace/mode-clojure.js +1 -0
data/public/javascript/ace/mode-coffee.js +1 -0
data/public/javascript/ace/mode-csharp.js +1 -0
data/public/javascript/ace/mode-css.js +1 -0
data/public/javascript/ace/mode-groovy.js +1 -0
data/public/javascript/ace/mode-html.js +1 -0
data/public/javascript/ace/mode-java.js +1 -0
data/public/javascript/ace/mode-javascript.js +1 -0
data/public/javascript/ace/mode-json.js +1 -0
data/public/javascript/ace/mode-lua.js +1 -0
data/public/javascript/ace/mode-markdown.js +1 -0
data/public/javascript/ace/mode-ocaml.js +1 -0
data/public/javascript/ace/mode-perl.js +1 -0
data/public/javascript/ace/mode-php.js +1 -0
data/public/javascript/ace/mode-python.js +1 -0
data/public/javascript/ace/mode-ruby.js +1 -0
data/public/javascript/ace/mode-scad.js +1 -0
data/public/javascript/ace/mode-scala.js +1 -0
data/public/javascript/ace/mode-scss.js +1 -0
data/public/javascript/ace/mode-svg.js +1 -0
data/public/javascript/ace/mode-textile.js +1 -0
data/public/javascript/ace/mode-xml.js +1 -0
data/public/javascript/ace/theme-clouds.js +1 -0
data/public/javascript/ace/theme-clouds_midnight.js +1 -0
data/public/javascript/ace/theme-cobalt.js +1 -0
data/public/javascript/ace/theme-crimson_editor.js +1 -0
data/public/javascript/ace/theme-dawn.js +1 -0
data/public/javascript/ace/theme-eclipse.js +1 -0
data/public/javascript/ace/theme-idle_fingers.js +1 -0
data/public/javascript/ace/theme-kr_theme.js +1 -0
data/public/javascript/ace/theme-merbivore.js +1 -0
data/public/javascript/ace/theme-merbivore_soft.js +1 -0
data/public/javascript/ace/theme-mono_industrial.js +1 -0
data/public/javascript/ace/theme-monokai.js +1 -0
data/public/javascript/ace/theme-pastel_on_dark.js +1 -0
data/public/javascript/ace/theme-solarized_dark.js +1 -0
data/public/javascript/ace/theme-solarized_light.js +1 -0
data/public/javascript/ace/theme-textmate.js +1 -0
data/public/javascript/ace/theme-twilight.js +1 -0
data/public/javascript/ace/theme-vibrant_ink.js +1 -0
data/public/javascript/ace/worker-coffee.js +1 -0
data/public/javascript/ace/worker-css.js +1 -0
data/public/javascript/ace/worker-javascript.js +1 -0
data/public/javascript/webtools/#debugger.coffee# +253 -0
data/public/javascript/webtools/browser.js +260 -0
data/public/javascript/webtools/debugger.coffee +286 -0
data/public/javascript/webtools/debugger.js +366 -0
data/public/javascript/webtools/sessions.coffee +17 -0
data/public/javascript/webtools/sessions.js +27 -0
data/public/javascript/webtools/version.coffee +14 -0
data/public/javascript/webtools/version.js +20 -0
data/public/stylesheets/base/images/ui-anim_basic_16x16.gif +0 -0
data/public/stylesheets/base/images/ui-bg_flat_0_aaaaaa_40x100.png +0 -0
data/public/stylesheets/base/images/ui-bg_flat_75_ffffff_40x100.png +0 -0
data/public/stylesheets/base/images/ui-bg_glass_55_fbf9ee_1x400.png +0 -0
data/public/stylesheets/base/images/ui-bg_glass_65_ffffff_1x400.png +0 -0
data/public/stylesheets/base/images/ui-bg_glass_75_dadada_1x400.png +0 -0
data/public/stylesheets/base/images/ui-bg_glass_75_e6e6e6_1x400.png +0 -0
data/public/stylesheets/base/images/ui-bg_glass_95_fef1ec_1x400.png +0 -0
data/public/stylesheets/base/images/ui-bg_highlight-soft_75_cccccc_1x100.png +0 -0
data/public/stylesheets/base/images/ui-icons_222222_256x240.png +0 -0
data/public/stylesheets/base/images/ui-icons_2e83ff_256x240.png +0 -0
data/public/stylesheets/base/images/ui-icons_454545_256x240.png +0 -0
data/public/stylesheets/base/images/ui-icons_888888_256x240.png +0 -0
data/public/stylesheets/base/images/ui-icons_cd0a0a_256x240.png +0 -0
data/public/stylesheets/base/jquery.ui.accordion.css +12 -0
data/public/stylesheets/base/jquery.ui.all.css +2 -0
data/public/stylesheets/base/jquery.ui.autocomplete.css +39 -0
data/public/stylesheets/base/jquery.ui.base.css +11 -0
data/public/stylesheets/base/jquery.ui.button.css +35 -0
data/public/stylesheets/base/jquery.ui.core.css +37 -0
data/public/stylesheets/base/jquery.ui.datepicker.css +61 -0
data/public/stylesheets/base/jquery.ui.dialog.css +13 -0
data/public/stylesheets/base/jquery.ui.progressbar.css +4 -0
data/public/stylesheets/base/jquery.ui.resizable.css +13 -0
data/public/stylesheets/base/jquery.ui.selectable.css +3 -0
data/public/stylesheets/base/jquery.ui.slider.css +17 -0
data/public/stylesheets/base/jquery.ui.tabs.css +11 -0
data/public/stylesheets/base/jquery.ui.theme.css +247 -0
data/public/stylesheets/jquery.contextMenu.css +62 -0
data/public/stylesheets/reset.css +18 -0
data/public/stylesheets/webtools.css +53 -0
data/public/test.html +47 -0
data/views/browser.rhtml +63 -0
data/views/debugger.rhtml +59 -0
data/views/index.rhtml +8 -0
data/views/layout.rhtml +24 -0
data/views/sessions.rhtml +12 -0
data/views/version.rhtml +10 -0
metadata +316 -0

data/lib/web_tools/middleware/debugger.rb ADDED Viewed

@@ -0,0 +1,118 @@
+require 'web_tools'
+require 'maglev/debugger'
+module WebTools::Middleware
+  class Debugger
+    attr_reader :production_mode
+    def initialize(app, *args)
+      @app = app
+      self.production_mode = true if args.include?(:production)
+      self.production_mode ||= false if args.include?(:development)
+      self.production_mode ||= (ENV["RACK_ENV"] == :production)
+    end
+    def production_mode=(bool)
+      @production_mode = bool
+      if bool
+        @debugger = self
+      else
+        @debugger = InProcessDebugger.new(@app)
+      end
+    end
+    def call(env)
+      dup._call(env)
+    end
+    def _call(env)
+      @debugger.wrap_call(env) do
+        Maglev::Debugger.debug(production_mode) { @app.call(env) }
+      end
+    end
+    def wrap_call(env)
+      yield
+    end
+    class InProcessDebugger
+      def initialize(app)
+        @app = app
+        @debugger_app = WebTools::Debugger.new
+        load_template
+      end
+      def load_template
+        file = File.expand_path(__FILE__)
+        _, @template = ::IO.read(file).gsub("\r\n", "\n").split(/^__END__$/, 2)
+        ERB.new(@template).def_method(self.class, 'render_template(title, path)')
+      end
+      def debugger_active?
+        defined?(@@debugger_active) && !!@@debugger_active &&
+          defined?(@@debugged_process) && @@debugged_process.alive?
+      end
+      def wrap_call(env)
+        if debugger_active?
+          p env
+          if env["PATH_INFO"] == "/"
+            [500, {"Content-Type" => "text/html"}, info_message(env)]
+          else
+            response = @debugger_app.call(env)
+            response[1]['Access-Control-Allow-Origin'] = "*"
+            response
+          end
+        else
+          application_call(env, yield)
+        end
+      end
+      def application_call(env, result)
+        if result.is_a? Maglev::Debugger::Process
+          raise result.exception if result[:skip_debugger]
+          result[:skip_debugger] = false
+          @@debugged_path = env["PATH_INFO"]
+          @@debugged_process = result.thread
+          @@debugger_active = true
+          @@debugged_exception = result.exception.message
+          [500, {"Content-Type" => "text/html"}, info_message(env)]
+        else
+          result
+        end
+      end
+      def info_message(env)
+        [render_template(@@debugged_exception,
+                         env['rack.url_scheme'].to_s + "://" +
+                         env['HTTP_HOST'].to_s +
+                         env['SCRIPT_NAME'].to_s + "/process/" +
+                         @@debugged_process.object_id.to_s)]
+      end
+    end
+  end
+end
+__END__
+<!doctype html system>
+<html>
+<head>
+  <title>Maglev Debugger</title>
+</head>
+<body>
+  <h4><%= title %></h4>
+  There was an error, and execution has been suspended.
+  You can interact with this debugging service to inspect the problem.
+  <br>
+  The entry point is at:
+  <br>&nbsp;&nbsp;&nbsp;&nbsp;
+  <a href="<%= path %>"><%= path %></a>
+  <br>
+  Once you're done debugging, you can click
+  <form style="display:inline" name="resumeForm" method="POST" action="<%= path %>">
+    <input type="hidden" name="running" VALUE="true">
+    <a href="#" onClick="document.resumeForm.submit(); return false">here</a>
+  </form>
+  to resume the original process.
+</body>
+</html>

data/lib/web_tools/support/app_model.rb ADDED Viewed

@@ -0,0 +1,117 @@
+require 'web_tools/support/code_browser'
+require 'web_tools/support/smalltalk_extensions'
+# This module emulates all of the API from the Smalltalk side of things
+module WebTools
+  # This is a ViewModel for the WebTools Application.
+  #
+  # All of the methods that return "Objects" should return a Hash.  Keys
+  # beginning with '_' are reserved for metadata applied by the GUI.
+  class AppModel
+    def initialize
+    end
+    VERSION_HEADERS = [['Attribute', 'The attribute.'],
+                       ['Stone', 'The value for the stone process.'],
+                       ['WebTools', 'The value for the WebTools vm process (if different than the Stone''s value)']]
+    # Returns a hash of configuration parameters for the stone and the gem.
+    # The has has three keys:
+    #  + :timestamp => when the report was generated
+    #  + :headers   => array of [name, description] pairs for the fields
+    #  + :report    => An array of data.  Each entry is an array of the field data.
+    #
+    def version_report
+      stone_rpt = stone_version_report
+      gem_rpt = gem_version_report
+      data = { }
+      (stone_rpt.keys + gem_rpt.keys).each do |k|
+        g = stone_rpt[k] == gem_rpt[k] ? '' : gem_rpt[k]
+        data[k] = [stone_rpt[k], g]
+      end
+      { :timestamp => Time.now.asctime,
+        :headers   => VERSION_HEADERS,
+        :report    => data }
+    end
+    # An array of [name, description] entries for the fields in the session report.
+    SESSION_FIELDS =
+      [['User', 'The UserProfile of the session, or nil if the UserProfile is recently created and not visible from this session''s transactional view, or the session is no longer active.'],
+       ['PID', 'The process ID of the Gem process of the session.'],
+       ['Host', 'The hostname of the machine running the Gem process (a String, limited to 127 bytes).'],
+       ['Prim #', 'Primitive number in which the Gem is executing (if it is executing in a long primitive such as MFC).'],
+       ['View Age', 'Time since the session''s most recent beginTransaction, commitTransaction, or abortTransaction.'],
+       ['State', 'The session state (an enum from SesTaskStatusEType in session.ht).'],
+       ['Trans', 'One of the following: ''none'' if the session is in transactionless mode, ''out'' if it is not in a transaction, and ''in'' if it is in a transaction.'],
+       ['Oldest CR?', 'A Boolean whose value is true if the session is currently referencing the oldest commit record, and false if it is not.'],
+       ['Serial', 'The session''s serial number. A serial number will not be reused until the stone is restarted.'],
+       ['Session', "The session's sessionId."],
+       ['GCI IP', 'A String containing the ip address of host running the GCI process. If the GCI application is linked (using libgcilnk*.so or gcilnk*.dll) this ip address is the address of the machine running the gem process.'],
+       ['Priority', 'The priority of the session where 0 is lowest, 2 is normal, and 4 is highest. Session priority is used by the stone to order requests for service by sessions.'],
+       ['Host ID', 'Unique host ID of the host where the session is running.'],
+       ['Quiet', 'Time since the session''s most recent request to stone.'],
+       ['Age', 'Time since the session logged in.'],
+       ['CRB', 'Commit Record Backlog: number of commits which have occurred since the session obtained its view.']]
+    # Returns a hash of configuration parameters for the stone and the gem.
+    # The has has three keys:
+    #  + :timestamp => when the report was generated
+    #  + :headers   => array of [name, description] pairs for the fields
+    #  + :report    => An array of data.  Each entry is an array of the field data.
+    #
+    def session_report
+      ts = Time.now
+      now = ts.to_i
+      session_info = Maglev::System.current_session_ids.map do |id|
+        sess_desc = Maglev::System.description_of_session id
+        sess_desc[0] = sess_desc[0].instance_variable_get(:@_st_userId) # UserProfile
+        sess_desc[3] = '' if sess_desc[3] == 0                          # Primitive?
+        sess_desc[4] = format_secs(now - sess_desc[4])                  # View Age
+        sess_desc[6] = ['none', 'out', 'in'][sess_desc[6] + 1]          # Transaction
+        sess_desc[13] = format_secs(now - sess_desc[13])                # Quiet
+        sess_desc[14] = format_secs(now - sess_desc[14])                # Age
+        sess_desc
+        # sess_cache_slot = Maglev::System.cache_slot_for_sessionid id
+      end
+      { :timestamp => ts.asctime,
+        :headers   => SESSION_FIELDS,
+        :report    => session_info }
+    end
+    SECS_PER_DAY  = 86400
+    SECS_PER_HOUR = 3600
+    SECS_PER_MIN  = 60
+    SECS_PER_SEC  = 1
+    # Format number of seconds like "3 days 12:07:58"
+    def format_secs(seconds)
+      splits = []
+      [SECS_PER_DAY, SECS_PER_HOUR, SECS_PER_MIN, SECS_PER_SEC].each do |x|
+        splits << seconds / x
+        seconds = seconds % x
+      end
+      days = splits.shift
+      ts = "%02d:%02d:%02d" % splits
+      days > 0 ? "#{days} #{days == 1 ? 'day' : 'days'} #{ts}" : ts
+    end
+    def stone_version_report
+      results = { }
+      rpt = Maglev::System.stone_version_report
+      rpt.keys.each { |k| results[k] = rpt.at(k) }
+      results
+    end
+    def gem_version_report
+      results = { }
+      rpt = Maglev::System.gem_version_report
+      rpt.keys.each { |k| results[k] = rpt.at(k) }
+      results
+    end
+  end
+end

data/lib/web_tools/support/code_browser.rb ADDED Viewed

@@ -0,0 +1,109 @@
+require 'web_tools/support/ruby'
+module WebTools
+  # The CodeBrowser is a ViewModel for MagLev code browsing.  It keeps the
+  # entire state of the UI and returns structured data for use by a UI.
+  # For the first pass, we do not cache anything.
+  class CodeBrowser
+    def self.class_and_module_list
+      { 'modules' => WebTools::Ruby.class_and_module_names }
+    end
+    def select_module(module_name)
+      mod = Ruby.find_in_namespace(module_name)
+      methods = mod.instance_methods(false) +
+        mod.protected_instance_methods(false) +
+        mod.private_instance_methods(false)
+      {
+        :ancestors          => mod.ancestors.reverse,
+        :constants          => mod.constants.sort,
+        :instance_methods   => methods.uniq.sort,
+        :module_methods     => Ruby.module_fns_for(mod),
+        :selected_module    => module_name,
+      }
+    end
+    def select_constant(module_name, const_name)
+      parent = Ruby.find_in_namespace module_name
+      {
+        :const_value       => ObjectInfo.for(parent.const_get(const_name)),
+        :selected_constant => const_name,
+        :selected_module   => module_name,
+      }
+    end
+    def select_method(module_name, method_name, is_instance_method)
+      mod = Ruby.find_in_namespace(module_name)
+      src, file, line = mod.method_source(method_name, is_instance_method)
+      {
+        :is_instance_method => is_instance_method,
+        :method_line_number => line,
+        :method_source      => src,
+        :method_source_file => file,
+        :module_name        => module_name,
+        :selected_method    => method_name,
+      }
+    end
+    def object_info(object_id)
+      ObjectInfo.for(object_id)
+    end
+  end
+  class ObjectInfo
+    # Return a new ObjectInfo instance for the object with the given object
+    # id.
+    def self.for_id(object_id)
+      new(ObjectSpace._id2ref(object_id))
+    end
+    # Return a new ObjectInfo instance for the given object.
+    def self.for(object)
+      new(object)
+    end
+    attr_reader :info
+    def initialize(obj)
+      @info = { }
+      @info[:object_id]          = obj.object_id
+      @info[:class]              = obj.class.name
+      @info[:inspect]            = obj.inspect
+      @info[:instance_variables] = []
+      @info[:enumerated]         = []
+      @info[:enumerated_size]    = obj.respond_to?(:size) ? obj.size : nil
+      obj.instance_variables.each do |iv|
+        val = obj.instance_variable_get(iv)
+        @info[:instance_variables] << [iv, val.inspect, val.object_id]
+      end
+      limit = 10
+      case obj
+      when Enumerable, Array
+        obj.each_with_index do |o,i|
+          if i > limit
+            @info[:enumerated] << '...'
+            break
+          else
+            @info[:enumerated] << o.inspect
+          end
+        end
+      when Hash
+        obj.each_with_index do |pair, idx|
+          if idx > limit
+            @info[:enumerated] << ['', '...']
+            break
+          end
+          @info[:enumerated] << [pair[0].to_s, pair[1].inspect]
+        end
+      end
+    end
+    def to_json(*args)
+      @info.to_json
+    end
+  end
+end

data/lib/web_tools/support/ruby.rb ADDED Viewed

@@ -0,0 +1,132 @@
+require 'maglev/method_source'
+module WebTools
+  # Provide information about the Ruby environment
+  module Ruby
+    # Traverse the Ruby namespace hierarchy and execute block for all classes
+    # and modules.  Returns an IdentitySet of all classes and modules found.
+    # Skips autoloads (i.e., does not trigger them and does not yield them to
+    # the block).
+    #
+    # @param [Module] klass The Class or Module object to start traversal.
+    #         Default is Object.
+    #
+    # @param [IdentitySet] rg The recursion guard used to prevent infinite
+    #         loops; also used as return value.
+    #
+    # @return [IdentitySet] An IdentitySet of all the Classes and Modules
+    #         registered in the Ruby namespace
+    #
+    def each_module(klass=Object, rg=IdentitySet.new, &block)
+      raise 'Must be class or module' unless Module === klass
+      unless rg.include?(klass)
+        rg.add klass
+        yield klass
+        klass.constants.each do |c|
+          unless klass.autoload?(c)
+            obj = klass.const_get c
+            each_module(obj, rg, &block) if Module === obj
+          end
+        end
+      end
+      rg
+    end
+    module_function :each_module
+    # Returns a sorted list of class and module names in the Ruby Namespace
+    #
+    # @return [Array] sorted list of class and module names found in the Ruby
+    #         namespace hierarchy.
+    def class_and_module_names
+      names = []
+      each_module { |klass|  names << klass.name }
+      names.sort
+    end
+    module_function :class_and_module_names
+    # A simple message from Ruby Land.
+    def say_something
+      "Hello from MagLev, My name is '#{self.name}'"
+    end
+    module_function :say_something
+    # Return an object named in the Ruby namespace.
+    #
+    # @param [String] name The name of the object. E.g., "Object",
+    #         "Errno::EACCES", "Foo::Bar::Baz".
+    #
+    # @return [Object] the named object.
+    #
+    # @raise [NameError] if the name can't be found
+    def find_in_namespace(name)
+      name.split('::').inject(Object) do |parent, name|
+        obj = parent.const_get name
+      end
+    end
+    module_function :find_in_namespace
+    MODULE_MOD_FNS = Module.instance_methods(false)
+    def module_info_for(name)
+      mod = find_in_namespace name
+      { :constants        => mod.constants.sort,
+        :class_methods    => module_fns_for(mod),
+        :instance_methods => mod.instance_methods(false).sort }
+    end
+    module_function :module_info_for
+    def module_fns_for(mod)
+      res = []
+      begin
+        sclass = mod.__singleton_class
+        res = sclass.instance_methods(false) - MODULE_MOD_FNS
+      rescue => e
+        # nothing
+      end
+      res
+    end
+    module_function :module_fns_for
+    # Get the source code for the named class and method
+    #
+    # The success of this method depends on being called from a Ruby stack,
+    # not a Smalltalk stack.
+    #
+    # @param [String] The name of the class
+    # @param [String] The method name
+    # @param [Boolean] if true, then look for a class method, otherwise look
+    #         for an instance method.
+    def source_for(class_name, method_name, instance_method=true)
+      klass = find_in_namespace(class_name)
+      gsnmeth = klass.gs_method_for(method_name, instance_method)
+      src = gsnmeth.__source_string
+      file,line = gsnmeth.__source_location
+      file.nil? ? "#{src}\n# No file information available." : "#{src}\n##{file}:#{line}"
+    end
+    module_function :source_for
+    # Return a display string suitable for rendering a constant.
+    # Currently, it just returns the results of #inspect on the object.
+    #
+    # TODO
+    #   1. If the const value is a proc, then return "Proc: " + the source code.
+    #
+    # @param [String,Symbol] class_name The name of the class to query.
+    # @param [String,Symbol] const_name The name of the constant.
+    # @return [String] A description of the constant.
+    #
+    def const_info_for(class_name, const_name)
+      klass = find_in_namespace class_name
+      const = klass.const_get const_name
+      const.inspect
+    end
+    module_function :const_info_for
+    # def logit(msg)
+    #   File.open("/tmp/log", "a+") do |f|
+    #     f.puts msg
+    #     f.flush
+    #   end
+    # end
+    # module_function :logit
+  end
+end

data/lib/web_tools/support/service_helper.rb ADDED Viewed

@@ -0,0 +1,22 @@
+require 'json/pure' unless defined? JSON
+module WebTools::Support::ServiceHelper
+  def self.included(base)
+    base.set :show_exceptions, true
+    base.set :raise_errors, false
+    base.error do
+      excep = request.env['sinatra.error']
+      { '_stack' => excep.backtrace.join("<br>") }.to_json
+    end
+  end
+  # Returns a JSON string that contains the data under the "data" key.
+  # Adds other keys (_time, _stack) if appropriate.
+  def prepare_data(data)
+    raise "Expecting Hash" unless Hash === data
+    data['_time'] = ((Time.now - @ts) * 1_000).to_i
+    data['_stack'] = @stack
+    data.to_json
+  end
+end

data/lib/web_tools/support/smalltalk_extensions.rb ADDED Viewed

@@ -0,0 +1,65 @@
+# Extra Smalltalk features used by WebTools
+class Maglev::System
+    class_primitive_nobridge 'stone_version_report', 'stoneVersionReport'
+    class_primitive_nobridge 'gem_version_report',   'gemVersionReport'
+    # Returns an Array of Fixnums corresponding to all of the sessions
+    # currently running on the GemStone system.
+    #
+    class_primitive_nobridge 'current_session_ids', 'currentSessions'
+    # Return the cache process slot number (a SmallInteger) for the given
+    # session ID.  The session must be connected to the same shared page
+    # cache as the session invoking this method.
+    #
+    # A return of nil indicates the session could not be located.
+    class_primitive_nobridge 'cache_slot_for_sessionid', 'cacheSlotForSessionId:'
+    # Returns an Array describing the session as follows:
+    #
+    #  1.  The UserProfile of the session, or nil if the UserProfile is recently
+    #      created and not visible from this session's transactional view,
+    #      or the session is no longer active.
+    #  2.  The process ID of the Gem process of the session (an Integer).
+    #  3.  The hostname of the machine running the Gem process
+    #      (a String, limited to 127 bytes).
+    #  4.  Primitive number in which the Gem is executing, or 0 if it is not executing
+    #      in a long primitive.
+    #  5.  Time of the session's most recent beginTransaction, commitTransaction, or
+    #      abortTransaction (from System timeGmt).
+    #  6.  The session state (a SmallInteger).
+    #  7.  A SmallInteger whose value is -1 if the session is in transactionless mode,
+    #      0 if it is not in a transaction and 1 if it is in a transaction.
+    #  8.  A Boolean whose value is true if the session is currently referencing the
+    #      oldest commit record, and false if it is not.
+    #  9.  The session's serial number (a SmallInteger).
+    #  10. The session's sessionId (a SmallInteger).
+    #  11. A String containing the ip address of host running the GCI process.
+    #      If the GCI application is linked (using libgcilnk*.so or gcilnk*.dll)
+    #      this ip address is the address of the machine running the gem process .
+    #  12. The priority of the session (a SmallInteger).
+    #  13. Unique host ID of the host where the session is running (an Integer)
+    #  14. Time of the session's most recent request to stone (from System timeGmt)
+    #  15. Time the session logged in (from System timeGmt)
+    #  16. Number of commits which have occurred since the session obtained its view.
+    #
+    #  Because a session can update its commit record without committing a
+    #  transaction, it is possible that no session actually references the oldest
+    #  commit record.  Therefore, the eighth element may be false for all current
+    #  sessions.
+    #
+    #  To execute this method for any session other than your current session, you
+    #  must have the SessionAccess privilege.
+    #
+    class_primitive_nobridge 'description_of_session', 'descriptionOfSession:'
+end
+# The stoneVersionReport returns a StringKeyValueDictionary.
+# Unfortunately, that is on a different branch of the Smalltalk class
+# hierarchy than RubyHash, so we need to add a few methods to let us
+# iterate over the dictionary.
+StringKeyValueDictionary = __resolve_smalltalk_global(:StringKeyValueDictionary)
+class StringKeyValueDictionary
+  primitive_nobridge 'keys', 'keys'
+  primitive_nobridge 'at', 'at:'
+end

data/lib/web_tools/support/smalltalk_tools.rb ADDED Viewed

@@ -0,0 +1,16 @@
+#  The Smalltalk product, upon which MagLev is based, comes with a simple
+#  code and statistics browser written in Smalltalk.  This ruby script
+#  registers that code into the Ruby namespace, and then starts the
+#  application.  Once it is running, it will print a URL to connect to.
+# Register the Smalltalk WebTools Server class into the Ruby Namespace
+SmalltalkWebTools = __resolve_smalltalk_global(:Server)
+# Expose the class-side method needed to run the application
+class SmalltalkWebTools
+  class_primitive_nobridge 'run', 'runInForeground'
+end
+# Invoke.  This will print out something like: http://cairo:60166/
+# Point your web browser to the given url and play.
+SmalltalkWebTools.run

data/lib/web_tools/ui.rb ADDED Viewed

@@ -0,0 +1,67 @@
+require 'sinatra/base'
+require 'web_tools'
+class WebTools::UI < Sinatra::Base
+  use WebTools::Browser
+  use WebTools::Debugger
+  use WebTools::Info
+  before do
+    @location = env["SCRIPT_NAME"]
+    @javascripts = %w[
+                     https://ajax.googleapis.com/ajax/libs/jquery/1.6.2/jquery.min.js
+                     https://ajax.googleapis.com/ajax/libs/jqueryui/1.8.16/jquery-ui.min.js
+                   ]
+    @stylesheets = %w[reset.css webtools.css]
+  end
+  get '/' do
+    erb :index
+  end
+  get '/browser' do
+    @javascripts += %w[webtools/browser.js CodeMirror/js/codemirror.js]
+    erb :browser
+  end
+  get '/debugger' do
+    @javascripts += %w[
+      ace/ace.js
+      ace/mode-ruby.js
+      webtools/debugger.js]
+    erb :debugger
+  end
+  get '/info/version' do
+    @javascripts += %w[webtools/version.js]
+    @stylesheets = []
+    erb :version
+  end
+  get '/info/sessions' do
+    @javascripts += %w[webtools/sessions.js]
+    @stylesheets = []
+    erb :sessions
+  end
+  private
+  def erb(*args, &block)
+    @stylesheets = @stylesheets.map do |path|
+      unless path =~ /^((http)|\/)/
+        "#{@location}/stylesheets/#{path}"
+      else
+        path
+      end
+    end
+    @javascripts = @javascripts.map do |path|
+      unless path =~ /^((http)|\/)/
+        "#{@location}/javascript/#{path}"
+      else
+        path
+      end
+    end
+    super
+  end
+end

data/lib/web_tools.rb ADDED Viewed

@@ -0,0 +1,10 @@
+module WebTools
+  module Support; end
+  module Middleware; end
+  path = File.expand_path("../web_tools", __FILE__)
+  autoload :Browser, File.join(path, "browser.rb")
+  autoload :Debugger, File.join(path, "debugger.rb")
+  autoload :Info, File.join(path, "info.rb")
+  autoload :UI, File.join(path, "ui.rb")
+end

data/public/images/favicon.ico ADDED Viewed

Binary file

data/public/javascript/CodeMirror/LICENSE ADDED Viewed

@@ -0,0 +1,23 @@
+ Copyright (c) 2007-2010 Marijn Haverbeke
+ This software is provided 'as-is', without any express or implied
+ warranty. In no event will the authors be held liable for any
+ damages arising from the use of this software.
+ Permission is granted to anyone to use this software for any
+ purpose, including commercial applications, and to alter it and
+ redistribute it freely, subject to the following restrictions:
+ 1. The origin of this software must not be misrepresented; you must
+    not claim that you wrote the original software. If you use this
+    software in a product, an acknowledgment in the product
+    documentation would be appreciated but is not required.
+ 2. Altered source versions must be plainly marked as such, and must
+    not be misrepresented as being the original software.
+ 3. This notice may not be removed or altered from any source
+    distribution.
+ Marijn Haverbeke
+ marijnh@gmail.com