Changeset 20091 for docs/Perl6/Spec

Timestamp:

03/09/08 23:18:55 (9 months ago)

Author:

buchetc

Message:

[t/spec] another coro example

Files:

• docs/Perl6/Spec/Concurrency.pod (modified) (5 diffs)

docs/Perl6/Spec/Concurrency.pod

@@ -300 +300 @@
 =head1 Threads
 
+All outside of a thread defined variables are
+shared and transactional variables by default
+
+Program will wait for _all_ threads.
+Unjoined threads will be joined at the beginning of the END
+block batch of the parent thread that spawned them
+
 =head2 Thread creation
 
@@ -311 +318 @@
 
 
-=head2 Thread attributes
+=head2 Thread status and attributes
 
 =over
@@ -341 +348 @@
 
 the CC currently running in that thread
+
+
+=item wake_on_readable, wake_on_writable, wake_on
+
+TODO: IO objects and containers gets concurrency love!
+
+ - $obj.wake_on_either_readable_or_writable_or_passed_time(3); # fixme fixme
+ - $obj.wake_on:{.readable} # busy wait, probably
+
+    my @a is Array::Chan = 1..Inf;
+    async { @a.push(1) };
+    async { @a.blocking_shift({ ... }) };
+    async { @a.unshift({ ... }) };
+
 
 =back
@@ -437 +458 @@
 
 =back
-
-=head2 Thread status
-
- -IO objects and containers gets concurrency love!
-    - $obj.wake_on_readable
-    - $obj.wake_on_writable
-    - $obj.wake_on_either_readable_or_writable_or_passed_time(3); # fixme fixme
-    - $obj.wake_on:{.readable} # busy wait, probably
-
-    my @a is Array::Chan = 1..Inf;
-    async { @a.push(1) };
-    async { @a.blocking_shift({ ... }) };
-    async { @a.unshift({ ... }) };
-
- Communication abstractions
- - shared, transactional variables by default
-
-# program will wait for _all_ threads
-# unjoined threads will be joined at the beginning of the END block batch
-# of the parent thread that spawned them
 
 
@@ -608 +609 @@
 
   foo(4); # and that's all she wrote
-
-  # If you don't want your variables to get rebound, use "is copy":
-  coro foo ($x is copy) {...}
-  # which is sugar for
-  coro foo ($x) {
-    {
-      my $x := $OUTER::x;
-      ...;
-      # Further calls of &foo rebound $OUTER::x, not $x.
-    }
-  }
 
   sub foo {