Groups > comp.programming.threads > #1062

Re: Distributed Reader-Writer Mutex 1.0

Path	csiph.com!usenet.pasdenom.info!aioe.org!eternal-september.org!feeder.eternal-september.org!mx04.eternal-september.org!.POSTED!not-for-mail
From	"aminer" <aminer@videotron.ca>
Newsgroups	comp.programming.threads, comp.programming
Subject	Re: Distributed Reader-Writer Mutex 1.0
Date	Wed, 12 Sep 2012 09:43:43 -0500
Organization	A noiseless patient Spider
Lines	85
Message-ID	<k2q3im$f2k$2@dont-email.me> (permalink)
References	<k2q0ij$rrt$1@dont-email.me>
Injection-Date	Wed, 12 Sep 2012 13:43:50 +0000 (UTC)
Injection-Info	mx04.eternal-september.org; posting-host="c43ca82f9e8d62a602307fe9d2e9b807"; logging-data="15444"; mail-complaints-to="abuse@eternal-september.org"; posting-account="U2FsdGVkX1+Q1V49R6HjpfCMjpFPetgh"
X-MimeOLE	Produced By Microsoft MimeOLE V6.00.2900.5512
X-RFC2646	Format=Flowed; Response
X-Newsreader	Microsoft Outlook Express 6.00.2900.5512
Cancel-Lock	sha1:NSHItFWZjqtYmbVEa1wAS0M1Teg=
X-Priority	3
X-MSMail-Priority	Normal
Xref	csiph.com comp.programming.threads:1062 comp.programming:2201

Cross-posted to 2 groups.

Show key headers only | View raw

Hello,

You have four methods:

procedure wlock; // like the EnterWriteLock of TOmniMREW
procedure wunlock; // like the ExitWriteLock
procedure rlock; // like EnterReadLock
procedure runlock; // like the ExitReadLock


and you have to pass the number of MREWs(multiple-readers-exclusive-writer)
to the constructor like this:

drw:=TDRWLOCK.create(1000); // here we are creating 1000 MEWs


That's all.


Thank you,
Amine Moulay Ramdane






"aminer" <aminer@videotron.ca> wrote in message 
news:k2q0ij$rrt$1@dont-email.me...
> Hello,
>
>
> Distributed Reader-Writer Mutex 1.0
>
>
> Description:
>
> Distributed Reader-Writer Mutex, ported by Amine Moulay Ramdane
> from the Dmitry Vyukov C++ Distributed Reader-Writer Mutex to
> Object Pascal, I have included the following Reader-Writer Mutexes
> inside this Distributed Reader-Writer mutex: TOmniMREW a light weight
> MREW that is very fast and TMultiReadExclusiveWrite from JCL and
> nowboth of them can scale better, and i have modified a little bit
> the Dmitry Vyukov Distributed Reader-Writer Mutex, i have not
> used GetCurrectProcessor() but i have used  GetCurrectThreadID()
> like this: nbr := getcurrentthreadid mod proc_count; i have provided you
> with the source code, please take a look at the source code to understand 
> better.
>
>
> Language: FPC Pascal v2.2.0+ / Delphi 7+: http://www.freepascal.org/
>
> Operating Systems: Win and Linux (x86).
>
> Required FPC switches: -O3 -Sd -dFPC -dWin32 -dFreePascal
>
> -Sd for delphi mode....
>
> Required Delphi switches: -DMSWINDOWS -$H+
>
> For Delphi use -DDelphi
>
> And inside defines.inc you can use the following defines:
>
> {$DEFINE CPU32} for 32 bits systems
>
> {$DEFINE CPU64} for 64 bits systems
>
> {$DEFINE TOmniMREW} to use Omnithread MREW
>
> {$DEFINE TMultiReadExclusiveWrite} to use the jcl TMultiReadExclusiveWrite
>
>
> You can download Distributed Reader-Writer Mutex 1.0 from:
>
> http://pages.videotron.com/aminer/
>
>
> Thank you,
> Amine Moulay Ramdane.
>
>

Back to comp.programming.threads | Previous | Next — Previous in thread | Next in thread | Find similar

Thread

Distributed Reader-Writer Mutex 1.0 "aminer" <aminer@videotron.ca> - 2012-09-12 08:52 -0500
  Re: Distributed Reader-Writer Mutex 1.0 "aminer" <aminer@videotron.ca> - 2012-09-12 09:27 -0500
  Re: Distributed Reader-Writer Mutex 1.0 "aminer" <aminer@videotron.ca> - 2012-09-12 09:34 -0500
  Re: Distributed Reader-Writer Mutex 1.0 "aminer" <aminer@videotron.ca> - 2012-09-12 09:43 -0500
  Re: Distributed Reader-Writer Mutex 1.0 "aminer" <aminer@videotron.ca> - 2012-09-13 12:22 -0500
  Re: Distributed Reader-Writer Mutex 1.0 "aminer" <aminer@videotron.ca> - 2012-09-13 14:46 -0500
  Re: Distributed Reader-Writer Mutex 1.0 "aminer" <aminer@videotron.ca> - 2012-09-13 15:22 -0500
  Re: Distributed Reader-Writer Mutex 1.0 "aminer" <aminer@videotron.ca> - 2012-09-13 15:31 -0500
  Re: Distributed Reader-Writer Mutex 1.0 "aminer" <aminer@videotron.ca> - 2012-09-13 15:51 -0500

csiph-web