[ViewVC] Diff of: cvs/Coro/Coro/Semaphore.pm

Comparing Coro/Coro/Semaphore.pm (file contents):
Revision 1.2 by root, Tue Jul 3 03:52:48 2001 UTC vs.
Revision 1.3 by root, Tue Jul 3 04:40:55 2001 UTC

 =head1 SYNOPSIS
  use Coro::Semaphore;
- $sig = new Coro::Semaphore [init];
+ $sig = new Coro::Semaphore [initial value];
  $sig->down; # wait for signal
  # ... some other "thread"
 use Coro::Process ();
 $VERSION = 0.01;
+=item new [inital count, default zero]
+Creates a new sempahore object with the given initial lock count. The
+default lock count is 1, which means it is unlocked by default.
+=cut
 sub new {
    bless [defined $_[1] ? $_[1] : 1], $_[0];
 }
+=item $sem->down
+Decrement the counter, therefore "locking" the semaphore. This method
+waits until the semaphore is available if the counter is zero.
+=cut
 sub down {
    my $self = shift;
    while ($self->[0] <= 0) {
       push @{$self->[1]}, $Coro::current;
       Coro::Process::schedule;
    }
    --$self->[0];
 }
+=item $sem->up
+Unlock the semaphore again.
+=cut
 sub up {
    my $self = shift;
    if (++$self->[0] > 0) {
       (shift @{$self->[1]})->ready if @{$self->[1]};
    }
 }
+=item $sem->try
+Try to C<down> the semaphore. Returns true when this was possible,
+otherwise return false and leave the semaphore unchanged.
+=cut
 sub try {
    my $self = shift;
    if ($self->[0] > 0) {
       --$self->[0];

-–
+Removed lines
-+
+Added lines
-<
+Changed lines
->
+Changed lines