ruby-list

前田です。

1.3用にmonitor.rbを書き直しました。
すべてのオブジェクトがインスタンス変数を持てるようになったお
かげで、Rubyレベルではfinalizerの必要性はなくなったと考えて
よいかもしれませんね。
Rubyではファイルなどの非メモリリソースもCレベルのfinalizerが
面倒を見てくれますし。

あと、instance_evalを使わなくてもカプセル化ができるように工
夫しました。
Mixinをアクセス指定に使う例はたぶんはじめてだと思います。
# なぜならprotectedにバグがあったから(^_^;


-- 
前田 修吾

Attachments (1)

monitor.rb (3.83 KB, text/x-ruby)

=begin

monitor.rb
Author: Shugo Maeda <shugo@netlab.co.jp>
Version: 1.2

USAGE:

  foo = Foo.new
  foo.extend(MonitorMixin)
  cond = foo.new_cond

  thread1:
  foo.synchronize {
    ...
    cond.wait_until { foo.done? }
    ...
  }

  thread2:
  foo.synchronize {
    foo.do_something
    cond.signal
  }

=end
  
module MonitorMixin
  module Accessible
  protected
    attr_accessor :mon_owner, :mon_count
    attr_reader :mon_entering_queue, :mon_waiting_queue
  end
  
  module Initializable
  protected
    def mon_initialize
      @mon_owner = nil
      @mon_count = 0
      @mon_entering_queue = []
      @mon_waiting_queue = []
    end
  end
  
  class ConditionVariable
    include Accessible
    
    def wait
      if @monitor.mon_owner != Thread.current
	raise ThreadError, "current thread not owner"
      end
      
      Thread.critical = true
      count = @monitor.mon_count
      @monitor.mon_count = 0
      @monitor.mon_owner = nil
      if @monitor.mon_waiting_queue.empty?
	t = @monitor.mon_entering_queue.shift
      else
	t = @monitor.mon_waiting_queue.shift
      end
      t.wakeup if t
      @waiters.push(Thread.current)
      Thread.stop
      
      Thread.critical = true
      while @monitor.mon_owner != nil &&
	  @monitor.mon_owner != Thread.current
	@monitor.mon_waiting_queue.push(Thread.current)
	Thread.stop
	Thread.critical = true
      end
      @monitor.mon_owner = Thread.current
      @monitor.mon_count = count
      Thread.critical = false
    end
    
    def wait_while
      while yield
	wait
      end
    end
    
    def wait_until
      until yield
	wait
      end
    end
    
    def signal
      if @monitor.mon_owner != Thread.current
	raise ThreadError, "current thread not owner"
      end
      Thread.critical = true
      t = @waiters.shift
      t.wakeup if t
      Thread.critical = false
      Thread.pass
    end
    
    def broadcast
      if @monitor.mon_owner != Thread.current
	raise ThreadError, "current thread not owner"
      end
      Thread.critical = true
      for t in @waiters
	t.wakeup
      end
      @waiters.clear
      Thread.critical = false
      Thread.pass
    end
    
    def count_waiters
      return @waiters.length
    end
    
  private
    def initialize(monitor)
      @monitor = monitor
      @waiters = []
    end
  end
  
  include Accessible
  include Initializable
  extend Initializable
  
  def self.extend_object(obj)
    super(obj)
    obj.mon_initialize
  end
  
  def try_mon_enter
    result = false
    Thread.critical = true
    if mon_owner.nil?
      self.mon_owner = Thread.current
    end
    if mon_owner == Thread.current
      self.mon_count += 1
      result = true
    end
    Thread.critical = false
    return result
  end

  def mon_enter
    Thread.critical = true
    while mon_owner != nil && mon_owner != Thread.current
      mon_entering_queue.push(Thread.current)
      Thread.stop
      Thread.critical = true
    end
    self.mon_owner = Thread.current
    self.mon_count += 1
    Thread.critical = false
  end
  
  def mon_exit
    if mon_owner != Thread.current
      raise ThreadError, "current thread not owner"
    end
    Thread.critical = true
    self.mon_count -= 1
    if mon_count == 0
      self.mon_owner = nil
      if mon_waiting_queue.empty?
	t = mon_entering_queue.shift
      else
	t = mon_waiting_queue.shift
      end
    end
    t.wakeup if t
    Thread.critical = false
    Thread.pass
  end

  def mon_synchronize
    mon_enter
    begin
      yield
    ensure
      mon_exit
    end
  end
  alias synchronize mon_synchronize
  
  def new_cond
    return ConditionVariable.new(self)
  end
  
private
  def initialize(*args)
    super
    mon_initialize
  end
end

class Monitor
  include MonitorMixin
  alias try_enter try_mon_enter
  alias enter mon_enter
  alias exit mon_exit
  alias owner mon_owner
end

# Local variables:
# mode: Ruby
# tab-width: 8
# End:

Thread

Prev Next

In This Thread

Prev Next

[#12441] Re: ロックでアドバイスをいただきたいのですが — Keisuke Minami <keisuke@...>

[#12442] Re: 全角文字列の分割方法について — Masatoshi SEKI <m_seki@...>

[#12443] Re: Tiny eRuby — Masatoshi SEKI <m_seki@...>

[#12444] Re: ロックでアドバイスをいただきたいのですが — Shugo Maeda <shugo@...>

[#12446] Re: Linux World Conference Japan materials (Re: Re: FAQ for /:|)) — Kikutani Makoto <kikutani@...>

[#12447] Re: ロックでアドバイスをいただきたいのですが — "Kozuka Masahiro" <kozuka@...>

[#12448] Re: 全角文字列の分割方法について — goto@...

[#12488] super — WATANABE Hirofumi <watanabe@...>

[#12498] monitor.rb — Shugo Maeda <shugo@...>

[#12504] smtpclient — Kikutani Makoto <kikutani@...>

[#12527] Class::method Class.method — Wakou Aoyama <wakou@...>

[#12531] Link List on Ruby Home Page — Hiroshi Igarashi <igarashi@...>

[#12537] cygwin 版 ruby の $LOAD_PATH(Meeting2000 v0.92 にて ) — Yukihiko Eda <yuki-e@...>

[#12543] Ruby Conference 0.3 — greentea@...2.so-net.ne.jp (Tomoyuki Kosimizu)

[#12545] arg omit — Kikutani Makoto <kikutani@...>

[#12546] ［閑話］ Ruby Conference 0.3 参加したいぃ — Atsuko Yoshida <atsuko@...>

[#12560] — Miki Okada <miki@...>

[#12564] irb-0.5.1 release [Re: irb on ruby-1.4] — keiju@... (石塚圭樹 )

[#12569] ruby-perllib-19990305 — Yoshinori Toki <toki@...>

[#12573] alternative name of iterator — Shugo Maeda <shugo@...>

[#12574] Ruby in a NUTSHELL — KIMURA Koichi <kbk@...>

[#12585] — SONE Toshihiko <tsone@...>

[#12590] kconv SJIS — Kikutani Makoto <kikutani@...>

[#12612] Pattern matching — Masatoshi SEKI <m_seki@...>

[#12618] my ruby page — kikutani@...

[#12622] mod_ruby-0.0.8 — Shugo Maeda <shugo@...>

[#12623] Ruby 1.2.3 FreeBSD port — Yasuhiro Fukuma <yasuf@...>

[#12625] nif.rb(ver0.41) — Wakou Aoyama <wakou@...>

[#12626] Fw: Re: ruby-perllib-19990305 — ymaekawa@...

[#12629] trouble on ruby-perllib — ymaekawa@...

[#12634] UNIX USER 4/1999 — WATANABE Tetsuya <tetsu@...>

[#12635] RE:UNIX USER 4/1999 — "Kozuka Masahiro" <kozuka@...>

[#12648] [CFP:] UML'99 (2nd Call For Paper) — Jean-Michel.Bruel@... (Jean-Michel BRUEL)

[#12652] nif.rb(ver0.42) — Wakou Aoyama <wakou@...>

[#12656] Ruby Conference 0.3 — matz@... (Yukihiro Matsumoto)

[#12692] — IKARASHI Akira <ikarashi@...>

[#12693] Self Intorduction — Hirosato Matsuura <matswra@...>

[#12694] operater bind order ? — "Kikutani, Makoto" <kikutani@...>

[#12695] 第 2 回 OMG 分散コンピューティング・セミナー： CORBA3.0 の詳説と CORBA 活用の実際 — Junichi Suzuki <jun-sk@...>

[#12701] Re: alternative name of iterator — 助田 雅紀 <masaki.suketa@...>

[#12707] Re: operater bind order ? — Inaba Hiroto <inaba@...>

[#12715] ftpmirror 改 — 民斗 <tommy@...>

[#12727] Making of Interval class. — moochan <moochan@...>

[#12728] Time + 1M — Wakou Aoyama <wakou@...>

[#12734] calendar-1.4r and date-1.3 — Tadayoshi Funaba <tadf@...>

[#12743] ftpmirror — Shugo Maeda <shugo@...>

[#12756] Re: Making of Interval class. — moochan <moochan@...>

[#12788] 米国からコンタクトレンズの個人輸入のご案内 !!! — DM <dmservice@...>

[#12805] win32 版 (cygwin) での MS-DOS ツールを起動したい時について — Hirotaka Ishida <h-ishida@...>

[#12816] ruby-perllib-19990313 — Yoshinori Toki <toki@...>

[#12822] nif.rb (ver0.50) — Wakou Aoyama <wakou@...>

[#12827] ruby/tk for win32 — oshima@... (Mitsuru Oshima)

[#12833] Re: property, pascal, etc... — greentea@...2.so-net.ne.jp (Tomoyuki Kosimizu)

[#12835] XML developper day — Takaaki Higuchi - Technology Marketing <Takaaki.Higuchi@...>

[#12838] patches — ttate@...

[#12843] win32ole — 助田 雅紀 <masaki.suketa@...>

[#12850] Ruby Conference 0.3 where ? when ? — ISII takesi <isii@...>

[#12869] clone vs. dup in subclass of Array — Inaba Hiroto <inaba@...>

[#12876] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12878] FileDialog — akendo@...3.rim.or.jp

[#12891] ftplib.rb — ttate@...

[#12893] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12916] Thanks 出沢さん (mime.rb) — kikutani@...

[#12918] Sieve of Eratosthenes (Re: [ruby-dev:6094]) — Shin-ichiro Hara <sinara@...>

[#12922] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12925] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12928] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12940] fwtelnet.rb — WATANABE Hirofumi <watanabe@...>

[#12945] mutex_m.rb & sync.rb for 1.3 — Shugo Maeda <shugo@...>

[#12947] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12950] ruby-perllib-19990317 — Yoshinori Toki <toki@...>

[#12951] Re: win32ole — 助田 雅紀 <masaki.suketa@...>

[#12953] Re: mutex_m.rb & sync.rb for 1.3 — 助田 雅紀 <masaki.suketa@...>

[#12961] OS/2 support — OKUNISHI Fujikazu <fuji0924@...>

[#12963] seqcmp.rb — sekita-n@... (Sekitani Nobutaka)

[#12967] profiler — "Kikutani, Makoto" <kikutani@...>

[#12979] popclient.rb (1.0.10) CR LF -> CR CR LF ? — "Kikutani, Makoto" <kikutani@...>

[#12983] Re: seqcmp.rb — Inaba Hiroto <inaba@...>

[#13000] Tiny eRuby — Masatoshi SEKI <m_seki@...>

[#13024] — Ryo HAYASAKA <hayasaka@...>

[#12701] Re: alternative name of iterator — 助田　雅紀 <masaki.suketa@...>

[#12843] win32ole — 助田　雅紀 <masaki.suketa@...>

[#12876] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12893] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12922] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12925] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12928] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12947] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12951] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#12953] Re: mutex_m.rb & sync.rb for 1.3 — 助田　雅紀 <masaki.suketa@...>

[#13069] RE: Ruby Session in LinuxWorld Conference Japan — 助田　雅紀 <masaki.suketa@...>

[#13070] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#13076] RE: TIMTOWTDI — 助田　雅紀 <masaki.suketa@...>

[#13077] Re: win32ole — 助田　雅紀 <masaki.suketa@...>

[#13097] RE: FAQ for /:|) — 助田　雅紀 <masaki.suketa@...>

[#13101] Re: FAQ for /:|) — 助田　雅紀 <masaki.suketa@...>