ruby-list

前田です。

matz@netlab.co.jp (Yukihiro Matsumoto) writes:

> |mutex_m.rbとsync.rbを1.3系に対応させてみました。
> 
> sync.rbが壊れてるみたい．うちの問題なのかなあ．

すいません、原因はわかりませんが圧縮せずに再送します。
# X-Dispatcherが怪しいような。


-- 
前田 修吾

Attachments (1)

sync.rb (6.19 KB, text/x-ruby)

#
#   sync.rb - 2 phase lock with counter
#   	$Release Version: 0.2$
#   	$Revision: 1.1.1.3.2.1 $
#   	$Date: 1999/02/09 06:08:24 $
#   	by Keiju ISHITSUKA
#   	modified by matz
#
# --
#  Sync_m, Synchronizer_m
#  Usage:
#   obj.extend(Sync_m)
#   or
#   class Foo
#	Sync_m.include_to self
#	:
#   end
#
#   Sync_m#sync_mode
#   Sync_m#sync_locked?, locked?
#   Sync_m#sync_shared?, shared?
#   Sync_m#sync_exclusive?, sync_exclusive?
#   Sync_m#sync_try_lock, try_lock
#   Sync_m#sync_lock, lock
#   Sync_m#sync_unlock, unlock
#
#   Sync, Synchronicer:
#	include Sync_m
#   Usage:
#   sync = Sync.new
#
#   Sync#mode
#   Sync#locked?
#   Sync#shared?
#   Sync#exclusive?
#   Sync#try_lock(mode) -- mode = :EX, :SH, :UN
#   Sync#lock(mode)     -- mode = :EX, :SH, :UN
#   Sync#unlock
#   Sync#synchronize(mode) {...}
#   
#

unless defined? Thread
  fail "Thread not available for this ruby interpreter"
end

module Sync_m
  RCS_ID='-$Header: /home/cvsroot/ruby/lib/sync.rb,v 1.1.1.3.2.1 1999/02/09 06:08:24 matz Exp $-'
  
  # lock mode
  UN = :UN
  SH = :SH
  EX = :EX
  
  # exceptions
  class Err < StandardError
    def Err.Fail(*opt)
      fail self, sprintf(self::Message, *opt)
    end
    
    class UnknownLocker < Err
      Message = "Thread(%s) not locked."
      def UnknownLocker.Fail(th)
	super(th.inspect)
      end
    end
    
    class LockModeFailer < Err
      Message = "Unknown lock mode(%s)"
      def LockModeFailer.Fail(mode)
	if mode.id2name
	  mode = id2name
	end
	super(mode)
      end
    end
  end
  
  def Sync_m.append_features(cl)
    super
    unless cl.instance_of?(Module)
      # do nothing for Modules
      # make aliases and include the proper module.
      cl.module_eval %q{
	alias locked? sync_locked?
	alias shared? sync_shared?
	alias exclusive? sync_exclusive?
	alias lock sync_lock
	alias unlock sync_unlock
	alias try_lock sync_try_lock
	alias synchronize sync_synchronize
      }
    end
    return self
  end
  
  def Sync_m.extend_object(obj)
    super
    obj.sync_extended
  end
  
  def sync_extended
    unless (defined? locked? and
	    defined? shared? and
	    defined? exclusive? and
	    defined? lock and
	    defined? unlock and
	    defined? try_lock and
	    defined? synchronize)
      eval "class << self
	alias locked? sync_locked?
        alias shared? sync_shared?
        alias exclusive? sync_exclusive?
	alias lock sync_lock
	alias unlock sync_unlock
	alias try_lock sync_try_lock
	alias synchronize sync_synchronize
      end"
    end
    initialize
  end
  
  # accessing
  def sync_locked?
    sync_mode != UN
  end
  
  def sync_shared?
    sync_mode == SH
  end
  
  def sync_exclusive?
    sync_mode == EX
  end
  
  # locking methods.
  def sync_try_lock(mode = EX)
    return unlock if sync_mode == UN
    
    Thread.critical = true
    ret = sync_try_lock_sub(sync_mode)
    Thread.critical = false
    ret
  end
  
  def sync_lock(m = EX)
    return unlock if m == UN

    until (Thread.critical = true; sync_try_lock_sub(m))
      if sync_sh_locker[Thread.current]
	sync_upgrade_waiting.push [Thread.current, sync_sh_locker[Thread.current]]
	sync_sh_locker.delete(Thread.current)
      else
	sync_waiting.push Thread.current
      end
      Thread.stop
    end
    Thread.critical = false
    self
  end
  
  def sync_unlock(m = EX)
    Thread.critical = true
    if sync_mode == UN
      Thread.critical = false
      Err::UnknownLocker.Fail(Thread.current)
    end
    
    m = sync_mode if m == EX and sync_mode == SH
    
    runnable = false
    case m
    when UN
      Thread.critical = false
      Err::UnknownLocker.Fail(Thread.current)
      
    when EX
      if sync_ex_locker == Thread.current
	if (self.sync_ex_count = sync_ex_count - 1) == 0
	  self.sync_ex_locker = nil
	  if sync_sh_locker.include?(Thread.current)
	    self.sync_mode = SH
	  else
	    self.sync_mode = UN
	  end
	  runnable = true
	end
      else
	Err::UnknownLocker.Fail(Thread.current)
      end
      
    when SH
      if (count = sync_sh_locker[Thread.current]).nil?
	Err::UnknownLocker.Fail(Thread.current)
      else
	if (sync_sh_locker[Thread.current] = count - 1) == 0 
	  sync_sh_locker.delete(Thread.current)
	  if sync_sh_locker.empty? and sync_ex_count == 0
	    self.sync_mode = UN
	    runnable = true
	  end
	end
      end
    end
    
    if runnable
      if sync_upgrade_waiting.size > 0
	for k, v in sync_upgrade_waiting
	  sync_sh_locker[k] = v
	end
	wait = sync_upgrade_waiting
	self.sync_upgrade_waiting = []
	Thread.critical = false
	
	for w, v in wait
	  w.run
	end
      else
	wait = sync_waiting
	self.sync_waiting = []
	Thread.critical = false
	for w in wait
	  w.run
	end
      end
    end
    
    Thread.critical = false
    self
  end
  
  def sync_synchronize(mode = EX)
    sync_lock(mode)
    begin
      yield
    ensure
      sync_unlock
    end
  end
  
  attr :sync_mode, true
  attr :sync_waiting, true
  attr :sync_upgrade_waiting, true
  attr :sync_sh_locker, true
  attr :sync_ex_locker, true
  attr :sync_ex_count, true

  private

  def initialize(*args)
    ret = super
    @sync_mode = UN
    @sync_waiting = []
    @sync_upgrade_waiting = []
    @sync_sh_locker = Hash.new
    @sync_ex_locker = nil
    @sync_ex_count = 0
    return ret
  end
  
  def sync_try_lock_sub(m)
    case m
    when SH
      case sync_mode
      when UN
	self.sync_mode = m
	sync_sh_locker[Thread.current] = 1
	ret = true
      when SH
	count = 0 unless count = sync_sh_locker[Thread.current]
	sync_sh_locker[Thread.current] = count + 1
	ret = true
      when EX
	# in EX mode, lock will upgrade to EX lock
	if sync_ex_locker == Thread.current
	  self.sync_ex_count = sync_ex_count + 1
	  ret = true
	else
	  ret = false
	end
      end
    when EX
      if sync_mode == UN or
	sync_mode == SH && sync_sh_locker.size == 1 && sync_sh_locker.include?(Thread.current) 
	self.sync_mode = m
	self.sync_ex_locker = Thread.current
	self.sync_ex_count = 1
	ret = true
      elsif sync_mode == EX && sync_ex_locker == Thread.current
	self.sync_ex_count = sync_ex_count + 1
	ret = true
      else
	ret = false
      end
    else
      Thread.critical = false
      Err::LockModeFailer.Fail mode
    end
    return ret
  end
end
Synchronizer_m = Sync_m

class Sync
  include Sync_m
  
  private
    
  def initialize
    super
  end
end
Synchronizer = Sync

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@...>