smalltalk_extensions.rb in maglev-webtools-1.0

- old
+ new

@@ -6,10 +6,12 @@
     # Returns an Array of Fixnums corresponding to all of the sessions
     # currently running on the GemStone system.
     #
     class_primitive_nobridge 'current_session_ids', 'currentSessions'
 
+    class_primitive_nobridge 'max_session_id', 'maxSessionId'
+
     # 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.
@@ -50,9 +52,19 @@
     #
     #  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:'
+
+    class_primitive_nobridge 'cache_statistics', 'cacheStatisticsAt:'
+    class_primitive_nobridge 'cache_statistics_description_for_type', 'cacheStatisticsDescriptionForType:'
+
+    begin
+      StatStatistic = __resolve_smalltalk_global(:StatStatistic)
+      class StatStatistic
+        class_primitive_nobridge 'cache_stat_descriptions', 'cacheStatDescriptions'
+      end
+    rescue Exception; end
 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