maglev-webtools 0.2.1 → 1.0

data/lib/web_tools/info.rb

@@ -3,9 +3,7 @@ require 'web_tools'
 require 'web_tools/support/app_model'
 require 'web_tools/support/service_helper'
 
-class WebTools::Info < Sinatra::Base
-  include WebTools::Support::ServiceHelper
-
+class WebTools::Info < WebTools::Tool
   before do
     @ts = Time.now
     @stack = nil

data/lib/web_tools/method_list.rb

@@ -0,0 +1,67 @@
+require 'sinatra/base'
+require 'web_tools'
+require 'web_tools/support/service_helper'
+
+class WebTools::MethodList < WebTools::Tool
+  dont_show!
+
+  def self.description
+    super
+  end
+
+  get '/' do
+    json(execute(params["type"]))
+  end
+
+  def execute(meth)
+    callables = { "method" => method(:find_method),
+      "implementors" => method(:implementors),
+      "senders" => method(:senders),
+      "referencesToGlobal" => method(:references_to_global) }
+    callable = callables[meth]
+    return {"a" => "AAA"} if callable.nil?
+    callable[]
+  end
+
+  def find_method
+    name = non_meta_name(params["klass"])
+    is_meta = !(name == params["klass"])
+    klass = reflect(Object).constant(name).value
+    klass = klass.singleton_class if is_meta
+    meth = klass.method(params["selector"])
+    { "dictionaryName" => params["dict"],
+      "className" => klass.name,
+      "isMeta" => is_meta,
+      "source" => meth.source,
+      "stepPoints" => meth.step_offsets,
+      "sends" => meth.send_offsets }
+  end
+
+  def implementors
+    return {} unless params["find"]
+    methods(system.implementations_of(params["find"]))
+  end
+
+  def senders
+    return {} unless params["find"]
+    methods(system.senders_of(params["find"]))
+  end
+
+  def references_to_global
+    return {} # Not supported on Ruby, too dynamic
+  end
+
+  def methods(list)
+    list = list.collect do |meth|
+      klass = meth.defining_class
+      nesting = klass.nesting
+      dict = nesting[1] ? nesting[1].name : "" # [klass, parent, ...]
+      { "dict" => dict,
+        "klassCat" => "",
+        "klass" => klass.name,
+        "category" => "",
+        "selector" => meth.selector }
+    end
+    { "list" => list }
+  end
+end

data/lib/web_tools/middleware/debugger.rb

@@ -1,5 +1,5 @@
 require 'web_tools'
-require 'maglev/debugger'
+# require 'maglev/debugger'
 
 module WebTools::Middleware
   class Debugger
@@ -49,20 +49,14 @@ module WebTools::Middleware
       end
 
       def debugger_active?
-        defined?(@@debugger_active) && !!@@debugger_active &&
-          defined?(@@debugged_process) && @@debugged_process.alive?
+        defined?(@@debugger_active) && !!@@debugger_active
       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
+          response = @debugger_app.call(env)
+          response[1]['Access-Control-Allow-Origin'] = "*"
+          response
         else
           application_call(env, yield)
         end
@@ -73,7 +67,7 @@ module WebTools::Middleware
           raise result.exception if result[:skip_debugger]
           result[:skip_debugger] = false
           @@debugged_path = env["PATH_INFO"]
-          @@debugged_process = result.thread
+          @@debugged_process = result.thread.object_id
           @@debugger_active = true
           @@debugged_exception = result.exception.message
           [500, {"Content-Type" => "text/html"}, info_message(env)]
@@ -87,7 +81,7 @@ module WebTools::Middleware
                          env['rack.url_scheme'].to_s + "://" +
                          env['HTTP_HOST'].to_s +
                          env['SCRIPT_NAME'].to_s + "/process/" +
-                         @@debugged_process.object_id.to_s)]
+                         @@debugged_process.to_s)]
       end
     end
   end
@@ -109,9 +103,9 @@ __END__
   <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 style="display:inline" name="resumeForm" method="PUT" action="<%= path %>">
+    <input type="hidden" name="resume" VALUE="">
+    <a href="#" onClick="document.resumeForm.submit();return false">here</a>
   </form>
   to resume the original process.
 </body>

data/lib/web_tools/object_log.rb

@@ -0,0 +1,24 @@
+require 'sinatra/base'
+require 'web_tools'
+require 'web_tools/support/app_model'
+require 'web_tools/support/service_helper'
+require 'maglev/objectlog'
+
+class WebTools::ObjectLog < WebTools::Tool
+  get '/' do
+    list = ObjectLog.to_ary.reverse.collect do |entry|
+      label = "#{entry.label}"
+      object_str = "#{entry.object}"
+      label = label.split.first if label == object_str
+      { "oop" => entry.object_id,
+        "stamp" => entry.timestamp.to_s,
+        "pid" => entry.pid.to_s,
+        "label" => label,
+        "type" => %w[Fatal Error Warn Info Debug Trace Transcript][entry.priority-1],
+        "tag" => "#{entry.tag if entry.tagged?}",
+        "object" => object_str,
+        "hasContinuation" => entry.has_cc? }
+    end
+    json("list" => list)
+  end
+end

data/lib/web_tools/session_list.rb

@@ -0,0 +1,119 @@
+require 'sinatra/base'
+require 'web_tools'
+require 'web_tools/support/service_helper'
+
+class WebTools::SessionList < WebTools::Tool
+  def self.description
+    'Information about current sessions and other processes'
+  end
+
+  get '/' do
+    json("labels" => SessionListLabels,
+         "sessions" => session_list,
+         "other" => non_session_list)
+  end
+
+  get '/statsForSlot' do
+    slot = params["slot"]
+    statistics = Maglev::System.cache_statistics(slot.to_i).to_a
+    descriptions = Maglev::System.cache_statistics_description_for_type statistics[3]
+    result = []
+    bytes = []
+    descriptions.size.times do |idx|
+      name = descriptions[idx]
+      metadata = Maglev::System::StatStatistic.cache_stat_descriptions["name"] ||
+        ['' '' '' '' '']
+      result.push("name" => name,
+                  "type" => metadata[1],
+                  "level" => metadata[2],
+                  "units" => metadata[3],
+                  "isOs" => metadata[4],
+                  "value" => statistics[idx])
+    end
+    topFour = result[0..3]
+    result = result[4..-1].sort_by {|a| a["name"] }
+    json("stats" => topFour + result)
+  end
+
+  get '/cacheDescription' do
+    name = params["name"]
+    cache = Maglev::System::StatStatistic.cache_stat_descriptions
+    details = cache["name"] || ["No description available for #{name}"]
+    json("description" => details.first)
+  end
+
+  # 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_list
+    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
+    session_info
+  end
+
+  def non_session_list
+    begin
+      sessions = Maglev::System.current_session_ids.to_a
+      slots = []
+      1000.times do |slot| # Any number will do, theres a limited number of slots
+        ary = Maglev::System.cache_statistics(slot).to_a
+        unless sessions.include?(ary[2])
+          slots << [slot, ary.first]
+        end
+      end
+    rescue Exception
+      return slots
+    end
+  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
+
+  # See System class>>#'descriptionOfSession:'
+  SessionListLabels = [['User', '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. The configured maximum is #{Maglev::System.max_session_id} for this stone."],
+                       ['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.'],
+                       ['Slot', 'The session''s cache process slot number if it is connected to the same shared page cache as Server. A return of nil indicates the session could not be located (so the gem is likely on another host).']]
+end

data/lib/web_tools/shared_page_cache.rb

@@ -0,0 +1,30 @@
+require 'sinatra/base'
+require 'web_tools'
+# require 'web_tools/support/app_model'
+# require 'web_tools/support/service_helper'
+
+class WebTools::SharedPageCache < WebTools::Tool
+  def self.description
+    "Information about the Shared Page Cache"
+  end
+
+  get '/' do
+    values = Maglev::System.cache_statistics(0) # SPC Monitor
+    descrs = Maglev::System.cache_statistics_description_for_type(values[3])
+
+    stats = Hash[descrs.zip(values)]
+    size = stats["FrameCount"].to_f
+    free = stats["FreeFrameCount"]
+    globalDirty = stats["GlobalDirtyPageCount"]
+    localDirty = stats["LocalDirtyPageCount"]
+    json("objectTable" => (stats["TotalOtPages"] / size * 100).round,
+         "bitmap" => (stats["TotalBitmapPages"] / size * 100).round,
+         "commitRecord" => (stats["TotalCrPages"] / size * 100).round,
+         "other" => (stats["TotalOtherPages"] / size * 100).round,
+         "data" => (stats["TotalDataPages"] / size * 100).round,
+         "free" => (free / size * 100).round,
+         "globalDirty" => (globalDirty / size * 100).round,
+         "localDirty" => (localDirty / size * 100).round,
+         "clean" => ((size - localDirty - globalDirty - free) / size * 100).round)
+  end
+end

data/lib/web_tools/stat_process.rb

@@ -0,0 +1,24 @@
+require 'sinatra/base'
+require 'web_tools'
+require 'web_tools/support/app_model'
+require 'web_tools/support/service_helper'
+require 'maglev/objectlog'
+
+class WebTools::ObjectLog < WebTools::Tool
+  get '/' do
+    list = ObjectLog.to_a.reverse.collect do |entry|
+      label = "#{entry.label}"
+      object_str = "#{entry.object}"
+      label = label.split.first if label == object_str
+      { "oop" => entry.object_id,
+        "stamp" => entry.timestamp.to_s,
+        "pid" => entry.pid.to_s,
+        "label" => label,
+        "type" => %w[Fatal Error Warn Info Debug Trace Transcript][entry.priority],
+        "tag" => "#{entry.tag if entry.tagged?}",
+        "object" => object_str,
+        "hasContinuation" => entry.has_cc? }
+    end
+    json("list" => list)
+  end
+end

data/lib/web_tools/statistics.rb

@@ -0,0 +1,14 @@
+require 'sinatra/base'
+require 'web_tools'
+require 'web_tools/support/app_model'
+require 'web_tools/support/service_helper'
+
+class WebTools::Statistics < WebTools::Tool
+  def self.description
+    "Load and view statmonitor files"
+  end
+
+  get '/' do
+    json("files" => [])
+  end
+end

data/lib/web_tools/support/app_model.rb

@@ -4,114 +4,79 @@ 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.
+  module Support
+    # This is a ViewModel for the WebTools Application.
     #
-    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
+    # All of the methods that return "Objects" should return a Hash.  Keys
+    # beginning with '_' are reserved for metadata applied by the GUI.
+    module AppModel
+      extend self
 
+      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)']]
 
-    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
+      # 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
-      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
+      # 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.']]
 
-    def gem_version_report
-      results = { }
-      rpt = Maglev::System.gem_version_report
-      rpt.keys.each { |k| results[k] = rpt.at(k) }
-      results
+      # 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
+        session_info
+      end
     end
   end
 end