class DRb::ExtServManager

# File lib/drb/extservm.rb, line 17
def self.command
  @@command
end

# File lib/drb/extservm.rb, line 21
def self.command=(cmd)
  @@command = cmd
end

# File lib/drb/extservm.rb, line 25
def initialize
  super()
  @cond = new_cond
  @servers = {}
  @waiting = []
  @queue = Thread::Queue.new
  @thread = invoke_thread
  @uri = nil
end

# File lib/drb/extservm.rb, line 47
def regist(name, ro)
  synchronize do
    @servers[name] = ro
    @cond.signal
  end
  self
end

# File lib/drb/extservm.rb, line 36
def service(name)
  synchronize do
    while true
      server = @servers[name]
      return server if server && server.alive? # server may be `false'
      invoke_service(name)
      @cond.wait
    end
  end
end

# File lib/drb/extservm.rb, line 55
def unregist(name)
  synchronize do
    @servers.delete(name)
  end
end

# File lib/drb/extservm.rb, line 70
def invoke_service(name)
  @queue.push(name)
end

# File lib/drb/extservm.rb, line 74
def invoke_service_command(name, command)
  raise "invalid command. name: #{name}" unless command
  synchronize do
    return if @servers.include?(name)
    @servers[name] = false
  end
  uri = @uri || DRb.uri
  if command.respond_to? :to_ary
    command = command.to_ary + [uri, name]
    pid = spawn(*command)
  else
    pid = spawn("#{command} #{uri} #{name}")
  end
  th = Process.detach(pid)
  th[:drb_service] = name
  th
end

# File lib/drb/extservm.rb, line 62
def invoke_thread
  Thread.new do
    while name = @queue.pop
      invoke_service_command(name, @@command[name])
    end
  end
end