process_shared 0.2.0 → 0.2.1a

data/spec/mach/scratch.rb

@@ -1,67 +0,0 @@
-require 'mach'
-require 'mach/functions'
-
-include Mach
-include Mach::Functions
-
-sem = Semaphore.new(:value => 0)
-
-# puts ">parent has sem #{sem.port}"
-
-# fork do
-#   sleep 2                         # make parent wait a bit
-#   puts "in child..."
-#   sem = Mach::Semaphore.new(:port => Mach::Task.self.get_bootstrap_port)
-#   puts "child signaling sem #{sem.port}"
-#   sem.signal
-# end
-
-# puts ">parent waiting on sem..."
-# sem.wait
-# puts ">parent done waiting!"
-
-def struct(*layout)
-  yield FFI::Struct.new(nil, *layout)
-end
-
-puts "sizeof MsgPortDescriptor: #{MsgPortDescriptor.size}"
-port = Port.new
-port.insert_right(:make_send)
-
-Task.self.set_bootstrap_port(port)
-puts "> self:#{mach_task_self} bootstrap:#{port.port} (#{Mach::Functions::bootstrap_port.to_i})"
-
-child = fork do
-  parent_port = Task.self.get_bootstrap_port
-  puts "in child... self:#{mach_task_self} bootstrap:#{parent_port.port}"
-
-  #port = Port.new
-  #port.copy_send(parent_port)
-
-  #sem = port.receive_right
-
-  Task.self.copy_send(parent_port)
-  puts "child sleeping"
-  sleep 2
-  puts "child signaling semaphore"
-  sem.signal
-  puts "child out"
-  sleep 2
-end
-
-sleep 0.1
-if Process.wait(child, Process::WNOHANG)
-  puts "child died!"
-  #exit 1
-end
-
-Task.self.set_bootstrap_port(Mach::Functions::bootstrap_port)
-child_task_port = port.receive_right
-puts "parent: child task port is #{child_task_port}"
-
-sem.insert_right(:copy_send, :ipc_space => child_task_port)
-
-puts "parent waiting"
-sem.wait
-puts "parent done waiting!"
-

data/spec/mach/scratch2.rb

@@ -1,78 +0,0 @@
-require 'ffi'
-
-require 'mach'
-require 'mach/functions'
-
-include Mach
-include Mach::Functions
-
-def setup_recv_port
-  port = new_memory_pointer :mach_port_t
-  mach_port_allocate(mach_task_self, :receive, port)
-  p = port.get_uint(0)
-  mach_port_insert_right(mach_task_self, p, p, :make_send)
-  p
-end
-
-def send_port(remote_port, port)
-  puts "send_port: (in #{mach_task_self}) sending #{port} -> #{remote_port}"
-  msg = FFI::Struct.new(nil,
-                        :header, MsgHeader,
-                        :body, MsgBody,
-                        :task_port, MsgPortDescriptor)
-  msg[:header].tap do |h|
-    h[:remote_port] = remote_port
-    h[:local_port] = 0
-    h[:bits] = (MachMsgType[:copy_send] | (0 << 8)) | 0x80000000 # MACH_MSGH_BITS_COMPLEX
-    h[:size] = msg.size
-  end
-
-  msg[:body][:descriptor_count] = 1
-  
-  msg[:task_port].tap do |p|
-    p[:name] = port
-    p[:disposition] = MachMsgType[:copy_send]
-    p[:type] = 0 # MACH_MSG_PORT_DESCRIPTOR;
-  end
-
-  mach_msg_send(msg)
-end
-
-def recv_port(recv_port)
-  msg = FFI::Struct.new(nil,
-                        :header, MsgHeader,
-                        :body, MsgBody,
-                        :task_port, MsgPortDescriptor,
-                        :trailer, MsgTrailer)
-
-  mach_msg(msg, 2, 0, msg.size, recv_port, 0, 0)
-
-  msg.size.times do |i|
-    print "%02x " % msg.to_ptr.get_uint8(i)
-  end
-  puts
-
-  msg[:task_port][:name]
-end
-
-def sampling_fork
-  parent_recv_port = setup_recv_port
-  task_set_special_port(mach_task_self, :bootstrap, parent_recv_port)
-
-  fork do
-    parent_recv_port_p = new_memory_pointer :mach_port_t
-    task_get_special_port(mach_task_self, :bootstrap, parent_recv_port_p)
-    parent_recv_port = parent_recv_port_p.get_uint(0)
-    puts "child self:#{mach_task_self} parent_recv:#{parent_recv_port}"
-
-    child_recv_port = setup_recv_port
-    puts "child sending #{mach_task_self}"
-    send_port(parent_recv_port, mach_task_self)
-  end
-
-  task_set_special_port(mach_task_self, :bootstrap, Mach::Functions::bootstrap_port)
-  child_task = recv_port(parent_recv_port)
-  puts "parent received #{child_task}"
-end
-
-sampling_fork