rubymirrors 0.0.1

data/lib/maglev/reflection/core_ext/class_organizer.rb

@@ -0,0 +1,20 @@
+module Maglev
+  ClassOrganizer = __resolve_smalltalk_global(:ClassOrganizer)
+  class ClassOrganizer
+    # @return [ClassOrganizer] the cached instance or a fresh one
+    class_primitive_nobridge 'cached_organizer', 'cachedOrganizer'
+    # Clears the cached instance
+    class_primitive_nobridge 'clear_cache', 'clearCachedOrganizer'
+
+    primitive 'all_ruby_classes', '_allRubyClasses'
+    primitive 'all_ruby_classes_under', '_allRubyClasses:'
+
+    # @return [Array<Class>]
+    primitive 'implementors_of', 'rubyImplementorsOf:'
+    primitive 'implementors_of_in', 'rubyImplementorsOf:in:'
+
+    # @return [Array<GsNMethod>]
+    primitive 'senders_of', 'rubySendersOf:'
+    primitive 'senders_of_in', 'rubySendersOf:in:'
+  end
+end

data/lib/maglev/reflection/core_ext/maglev.rb

@@ -0,0 +1,5 @@
+module Maglev
+  class System
+    class_primitive 'needs_commit', 'needsCommit'
+  end
+end

data/lib/maglev/reflection/core_ext/method.rb

@@ -0,0 +1,154 @@
+class GsNMethod
+  primitive_nobridge '__env_id', 'environmentId'
+  primitive_nobridge '__home_method', 'homeMethod'
+  primitive_nobridge '__in_class', 'inClass'
+  primitive '__is_method_for_block', 'isMethodForBlock'
+  primitive '__source_string_for_block', '_sourceStringForBlock'
+  primitive '__source_offsets', '_sourceOffsets'
+  primitive '__source_offsets_of_sends', '_sourceOffsetsOfSends'
+  primitive '__source_offset_first_send_of', '_sourceOffsetOfFirstSendOf:'
+  primitive '__set_break_at_step_point', 'setBreakAtStepPoint:'
+  primitive '__args_and_temps', 'argsAndTemps'
+  primitive '__num_args', 'numArgs'
+  primitive '__selector', 'selector'
+  primitive '__ruby_opt_args_bits', 'rubyOptArgsBits'
+  primitive '__ip_steps', '_ipSteps'
+  primitive '__opcode_info_at', '_opcodeInfoAt:'
+  primitive '__in_class', 'inClass'
+end
+
+class UnboundMethod
+  def __st_gsmeth
+    @_st_gsmeth
+  end
+end
+
+class GsNMethodWrapper < UnboundMethod
+  def initialize(gsmethod); @_st_gsmeth = gsmethod; end
+  def inspect; "#<GsNMethodWrapper: #{self.name}>"; end
+  def name; @_st_gsmeth.__name; end
+end
+
+# class UnboundMethod
+#   def step_offsets
+#     @_st_gsmeth.__source_offsets
+#   end
+
+#   def send_offsets
+#     @_st_gsmeth.__source_offsets_of_sends
+#   end
+
+#   def break(step_point = 1)
+#     if @_st_gsmeth.__is_method_for_block
+#       @_st_gsmeth.__set_break_at_step_point(step_point)
+#     else
+#       self.__nonbridge_meth.__set_break_at_step_point(step_point)
+#     end
+#   end
+
+#   def in_class
+#     @_st_gsmeth.__in_class
+#   end
+
+#   def file
+#     (@_st_gsmeth.__source_location || [])[0]
+#   end
+
+#   def line
+#     (@_st_gsmeth.__source_location || [])[1]
+#   end
+
+#   def source
+#     if @_st_gsmeth.__is_method_for_block
+#       @_st_gsmeth.__source_string_for_block
+#     else
+#       @_st_gsmeth.__source_string
+#     end
+#   end
+
+#   def file=(path)
+#     raise TypeError, "cannot modifiy a block method" if is_method_for_block?
+#     @_st_gsmeth.__in_class.class_eval(source, path, line)
+#     reload
+#   end
+
+#   def line=(num)
+#     raise TypeError, "cannot modifiy a block method" if is_method_for_block?
+#     @_st_gsmeth.__in_class.class_eval(source, file, num)
+#     reload
+#   end
+
+#   def source!(str, file_out = false)
+#     raise TypeError, "cannot modifiy a block method" if is_method_for_block?
+#     if file.nil? && line.nil? # Smalltalk method
+#       in_class.__compile_method_category_environment_id(str,
+#         '*maglev-webtools-unclassified', 1)
+#     else # Ruby method
+#       self.original_source = source
+#       self.in_class.class_eval(str, file, line)
+#       self.file_out(str) if file_out
+#     end
+#     reload
+#   end
+
+#   def file_out(source)
+#     if !is_def_method? || is_method_for_block?
+#       raise StandardError, "not an ordinary method def"
+#     end
+
+#     unless File.writable?(file)
+#       raise StandardError, "cannot write to method source file #{file}"
+#     end
+
+#     # Write a new file with updated contents
+#     original_contents = File.readlines(file)
+#     copy = File.open("#{file}.tmp", 'w+') do |f|
+#       f.write(original_contents[0...(line - 1)].join)
+#       f.write(original_contents[(line - 1)..-1].join.sub(original_source, source))
+#     end
+
+#     # Rename to original file
+#     File.rename("#{file}.tmp", file)
+#   end
+
+#   def reload
+#     @_st_gsmeth = in_class.__gs_method(self.name, true)
+#     self
+#   end
+
+#   attr_writer :original_source
+#   def original_source
+#     @original_source || source
+#   end
+
+#   def is_method_for_block?
+#     @_st_gsmeth.__is_method_for_block
+#   end
+
+#   def is_def_method?
+#     self.original_source =~ /^\s+def\s/
+#   end
+
+#   # Answers whether the method send the specified message.
+#   # Accepts the following options:
+#   #   args => how many arguments in the send (default: 0)
+#   #   splat => is there a splat argument (default: false)
+#   #   block => is there a block argument (default: false)
+#   #   keep => whether to just keep the selector as passed
+#   # @return true or false, depending on the result
+#   def sends_message?(string, options={})
+#     options = {:args => 0, :splat => false,
+#       :block => false, :keep => false}.merge(options)
+#     unless options[:keep]
+#       string = string.to_s + options[:args].to_s +
+#         (options[:splat] ? '*' : '_') +
+#         (options[:block] ? '&' : '_')
+#     end
+#     !@_st_gsmeth.__source_offset_first_send_of(string.to_sym).nil?
+#   end
+
+#   def ==(other)
+#     false unless other === self.class
+#     in_class == other.in_class && name == other.name
+#   end
+# end

data/lib/maglev/reflection/core_ext/module.rb

@@ -0,0 +1,41 @@
+require 'maglev/orderedcollection'
+
+class Module
+  RubyNameSpace = __resolve_smalltalk_global(:RubyNameSpace)
+  RubyTransientNameSpace = __resolve_smalltalk_global(:RubyTransientNameSpace)
+
+  class RubyNameSpace
+    primitive 'parent', 'parent'
+    primitive 'my_class', 'myClass'
+    primitive 'keys', 'keys'
+    primitive 'values', 'values'
+    primitive '[]', 'at:'
+  end
+
+  class RubyTransientNameSpace < RubyNameSpace
+    primitive 'parent', 'parent'
+    primitive 'persistent_copy', 'persistentCopy'
+
+    def keys
+      super + (persistent_copy ? persistent_copy.keys : [])
+    end
+
+    def values
+      super.to_a + (persistent_copy ? persistent_copy.values.to_a : [])
+    end
+
+    def [](other)
+      super || (persistent_copy ? persistent_copy[other] : nil)
+    rescue Exception
+      nil
+    end
+  end
+
+  primitive '__transient_namespace', 'transientNameSpace:'
+  primitive 'singleton_class?', 'isRubySingletonClass'
+  primitive '__the_non_meta_class', 'theNonMetaClass'
+  primitive '__inst_var_names', 'instVarNames'
+  primitive '__compile_method_category_environment_id', 'compileMethod:category:environmentId:'
+  primitive '__compile_method_category_environment_id', 'compileMethod:category:environmentId:'
+  primitive '__subclasses', 'subclasses'
+end

data/lib/maglev/reflection/core_ext/object.rb

@@ -0,0 +1,4 @@
+class Object
+  primitive '__inst_var_at', 'instVarAt:'
+  primitive '__inst_var_at_put', 'instVarAt:Put:'
+end

data/lib/maglev/reflection/core_ext/thread.rb

@@ -0,0 +1,226 @@
+require 'maglev/objectlog'
+
+class Thread
+  VariableContext = __resolve_smalltalk_global(:VariableContext)
+  VariableContext.primitive '[]', 'at:'
+  VariableContext.primitive '[]=', 'at:put:'
+  VariableContext.primitive 'size', 'size'
+
+  # => GsNMethod
+  primitive '__method_at', 'methodAt:'
+  # => Fixnum
+  primitive '__stack_depth', 'stackDepth'
+  # Remove all frames above [Fixnum]
+  primitive '__trim_stack_to_level', '_trimStackToLevel:'
+  # Change temporary at level to value
+  primitive '__frame_at_temp_named_put', '_frameAt:tempNamed:put:'
+  # => Array
+  #    with:
+  #  1  gsMethod
+  #  2  self
+  #  4  selector
+  #  5  quickStepPoint (offset into sourceOffsets)
+  #  6  sourceOffsets (the points where each step would be at)
+  #  7  argAndTempNames
+  #  8  argAndTempValues (maybe smaller or larger than argAndTempNames)
+  #  9  sourceString
+  #  10 ipOffset
+  #  11 markerOrException
+  primitive '__gsi_debugger_detailed_report_at', '_gsiDebuggerDetailedReportAt:'
+  # Stepping
+  primitive '__step_over_in_frame', '_stepOverInFrame:'
+  # Persistence conversions
+  primitive 'convert_to_persistable_state', "convertToPersistableState"
+  primitive 'convert_to_runnable_state', 'convertToRunnableState'
+  primitive '__ar_stack', 'arStack'
+  primitive '__client_data', '_clientData'
+  #  Private.  Returns an Array describing the specified level in the receiver.
+  #  aLevel == 1 is top of stack.  If aLevel is less than 1 or greater than
+  #  stackDepth, returns nil.
+  #  The result Array contains:
+  #  offset item
+  #  -----  -----
+  #    0    gsMethod
+  #    1    ipOffset
+  #    2    frameOffset (zero-based)
+  #    3    varContext
+  #    4    saveProtectedMode
+  #    5    markerOrException
+  #    6    nil (not used)
+  #    7    self (possibly nil in a ComplexBlock)
+  #    8    argAndTempNames (an Array of Symbols or Strings)
+  #    9    receiver
+  #   10    arguments and temps, if any
+  primitive '__frame_contents_at', '_frameContentsAt:'
+  class_primitive '__frame_contents_at', '_frameContentsAt:'
+  primitive '__run' , 'rubyRun'
+  primitive '__wakeup', 'rubyResume'
+  primitive '__value', 'value:'
+  primitive '_report', '_reportOfSize:'
+  primitive '__is_continuation', 'isContinuation'
+  primitive '__is_partial_continuation', 'isPartialContinuation'
+
+  class_primitive '__installPartialContinuation_atLevel_value', 'installPartialContinuation:atLevel:value:'
+  class_primitive '__partialContinuationFromLevel_to', 'partialContinuationFromLevel:to:'
+end
+
+# require 'maglev/objectlog'
+
+# class Thread
+#   # => GsNMethod
+#   primitive '__method_at', 'methodAt:'
+#   # => Fixnum
+#   primitive '__stack_depth', 'stackDepth'
+#   # Remove all frames above [Fixnum]
+#   primitive '__trim_stack_to_level', '_trimStackToLevel:'
+#   # Change temporary at level to value
+#   primitive '__frame_at_temp_named_put', '_frameAt:tempNamed:put:'
+#   # => Array
+#   #    with:
+#   #  1  gsMethod
+#   #  2  self
+#   #  4  selector
+#   #  5  quickStepPoint (offset into sourceOffsets)
+#   #  6  sourceOffsets (the points where each step would be at)
+#   #  7  argAndTempNames
+#   #  8  argAndTempValues (maybe smaller or larger than argAndTempNames)
+#   #  9  sourceString
+#   #  10 ipOffset
+#   #  11 markerOrException
+#   primitive '__gsi_debugger_detailed_report_at', '_gsiDebuggerDetailedReportAt:'
+#   # Stepping
+#   primitive '__step_over_in_frame', '_stepOverInFrame:'
+#   # Persistence conversions
+#   primitive 'convert_to_persistable_state', "convertToPersistableState"
+#   primitive 'convert_to_runnable_state', 'convertToRunnableState'
+#   primitive '__ar_stack', 'arStack'
+#   primitive '__client_data', '_clientData'
+#   #  Private.  Returns an Array describing the specified level in the receiver.
+#   #  aLevel == 1 is top of stack.  If aLevel is less than 1 or greater than
+#   #  stackDepth, returns nil.
+#   #  The result Array contains:
+#   #  offset item
+#   #  -----  -----
+#   #    0    gsMethod
+#   #    1    ipOffset
+#   #    2    frameOffset (zero-based)
+#   #    3    varContext
+#   #    4    saveProtectedMode
+#   #    5    markerOrException
+#   #    6    nil (not used)
+#   #    7    self (possibly nil in a ComplexBlock)
+#   #    8    argAndTempNames (an Array of Symbols or Strings)
+#   #    9    receiver
+#   #   10    arguments and temps, if any
+#   primitive '__frame_contents_at', '_frameContentsAt:'
+#   primitive '__run' , 'rubyRun'
+#   primitive '__wakeup', 'rubyResume'
+#   primitive '__value', 'value:'
+
+#   # Resuming a continuation is only possible through this method
+#   def run_callcc(ret_val = nil)
+#     __value(ret_val)
+#   end
+
+#   def run
+#     if in_persistable_state?
+#       raise RuntimeError, "You have to call #resume_continuation on the ObjectLogEntry for this Thread"
+#     end
+#     __run
+#   end
+
+#   def wakeup
+#     if in_persistable_state?
+#       raise RuntimeError, "You have to call #resume_continuation on the ObjectLogEntry for this Thread"
+#     end
+#     __wakeup
+#   end
+
+#   # Simple check whether the thread looks like as if it is in a persistable (i.e.
+#   # non-runnable) state
+#   def in_persistable_state?
+#     return true if thread_data.nil?
+#     thread_data.collect(&:class).collect(&:name).include? :RubyPersistableCompilerState
+#   end
+
+#   # Saves the Thread to the ObjectLog.
+#   #
+#   # @param [String] message the message under which to save the entry,
+#   #   defaults to inspect and timestamp
+#   # @param [Boolean] force_commit whether or not to force a commit.
+#   #   Defaults to nil, which means it'll commit if the session is clean or raise
+#   #   an error. Pass true to forcibly abort and commit only the log entry, pass
+#   #   false to only commit if the session is clean.
+#   # @return [DebuggerLogEntry] the saved entry
+#   # @raise [RuntimeError] raised if the session is dirty but no force_commit
+#   #   option has been passed
+#   def save(message = nil, force_commit = nil)
+#     if Maglev.needs_commit and force_commit.nil?
+#       raise RuntimeError, "Saving exception to ObjectLog, discarding transaction"
+#     end
+#     message ||= "#{inspect}-#{DateTime.now}"
+#     Maglev.abort_transaction if force_commit || !Maglev.needs_commit
+#     DebuggerLogEntry.create_continuation_labeled(message)
+#     Maglev.commit_transaction if force_commit || !Maglev.needs_commit
+#     self
+#   end
+
+#   # Remove Thread from ObjectLog
+#   def delete
+#     if Maglev::System.needs_commit
+#       raise Exception, "Abort would loose data. Commit your data and try again"
+#     end
+#     Maglev.abort_transaction
+#     ObjectLogEntry.object_log.delete(@log_entry)
+#     Maglev.commit_transaction
+#   end
+
+#   def stack
+#     self.__stack_depth.times.collect do |idx|
+#       Frame.new(self.__method_at(idx + 1), idx + 1, self)
+#     end
+#   end
+
+#   def step(symbol = :over)
+#     case symbol
+#     when :into
+#       self.__step_over_in_frame(0)
+#     when :over
+#       self.__step_over_in_frame(1)
+#     when :through
+#       raise NotImplementedError, "not implemented yet"
+#     when Fixnum
+#       self.__step_over_in_frame(symbol)
+#     end
+#   end
+
+#   primitive '_report', '_reportOfSize:'
+#   def report(depth = self.__stack_depth)
+#     _report(depth)
+#   end
+
+#   # The list of saved threads in the ObjectLog
+#   def self.saved_errors
+#     ObjectLog.errors
+#   end
+
+#   def raw_stack
+#     self.__ar_stack || begin # Force data into cache, if neccessary
+#                          self.stack
+#                          self.__ar_stack
+#                        end
+#   end
+
+#   def thread_data
+#     self.__client_data
+#   end
+
+#   def compiler_state
+#     self.__client_data.first
+#   end
+
+#   VariableContext = __resolve_smalltalk_global(:VariableContext)
+#   VariableContext.primitive '[]', 'at:'
+#   VariableContext.primitive '[]=', 'at:put:'
+#   VariableContext.primitive 'size', 'size'
+# end