summaryrefslogtreecommitdiff
path: root/sample/drb/dchats.rb
blob: 012dfeeebe7a427617c1f17b65566507700ab213 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
=begin
 distributed Ruby --- chat server
 	Copyright (c) 1999-2000 Masatoshi SEKI 
=end
require 'thread'
require 'drb/drb'

class ChatEntry
  include DRbUndumped

  def initialize(server, there)
    @server = server
    @there = there
    @name = there.name
    @key = there.key = Time.now
  end
  attr :name, true
  attr :there

  def say(str)
    @server.distribute(@there, str)
  end

  def listen(str)
    @there.message(@key, str)
  end
end


class ChatServer
  def initialize
    @mutex = Mutex.new
    @members = {}
  end

  def add_member(there)
    client = ChatEntry.new(self, there)
    @mutex.synchronize do
      @members[there] = client
    end
    client
  end

  def distribute(there, str)
    name = @members[there].name
    msg = "<#{name}> #{str}"
    msg2 = ">#{name}< #{str}"
    @mutex.synchronize do
      for m in @members.keys
	begin
	  if m == there
	    @members[m].listen(msg2)
	   else
	    @members[m].listen(msg)
	  end
	rescue
	  p $!
	  @members.delete(m)
	end
      end
    end
  end
end

if __FILE__ == $0
  here = ARGV.shift
  DRb.start_service(here, ChatServer.new)
  puts DRb.uri
  DRb.thread.join
end