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

maglev-webtools 0.2.1

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

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