Changeset 20097 for docs/Perl6/Spec

Timestamp:

03/10/08 23:30:15 (9 months ago)

Author:

buchetc

Message:

[t\spec] smartlink issues

Location:

docs/Perl6/Spec

Files:

• Concurrency.pod (modified) (6 diffs)
• IO.pod (modified) (2 diffs)

docs/Perl6/Spec/Concurrency.pod

@@ -269 +269 @@
 =over
 
-=item Coro as function used in a builtin
+=item Coro as a function
 
   coro dbl { yield $_ * 2; yield $_; };
@@ -276 +276 @@
 
   # coro parameters
-  coro perm ( @x ) {
-     my @y = @x; # need a copy
-     while @x { @y.splice($_,1).yield; }
+  coro perm ( @x is copy ) {
+      while @x { @x.splice($_,1).yield; }
   }
 
@@ -327 +326 @@
 
    async {
-      say "my tid is ", +self();
+      say "my tid is ", +self;
    };
 
@@ -349 +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({ ... }) };
-
+ $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
@@ -543 +540 @@
 Live in userland for the time being.
 
-=head2 Interprocess Communication
-
-=head2 I/O Considerations
-
-=head3 File Descriptors
-
-=head3 Sockets
-
 
 =head2 Still more or less unorganized stuff
@@ -591 +580 @@
 ### INTERFACE BARRIER ###
 
-=head3 braindump of coro meeting by Liz and Autri, more to follow
-
-- Coros are _like_ processes
-
-
-  coro foo ($x) {
-    yield $x;
-    yield $x+2;
-    cleanup();
-    while (2) {
-        while (1) {
-            &?SUB.kill; # seppuku
-        }
-    }
-  } # implicit falloff return + return() means start over without yielding
-    # return() means yielding and restart + no implicit falloff (I LIKE THIS)
-
-  foo(4); # and that's all she wrote
-
-  sub foo {
-     return undef if rand;
-     ...
-  }
-
-  use overload {
-    '&{}' => sub { ... }
-  }
-
-  class Coro is Conc::Multiplex does Code {
-     method postcircumfix:<( )> {
-         # start the thread, block stuff (we are in the caller's context)
-     }
-  }
-
-  class Hash is extended {
-    method postcircumfix:<( )> (&self: *@_) {
-        &self = self.start(@_);
-    }
-    method start {
-        # remember self
-        # upon return() or normal falloff, restore self
-    }
-  }
-
-  %*ENV(123);
-
-
-  # continuation coros
-  multi foo () { ...no rebinding... }
-  multi foo ($x) { ...rebinding... }
-
-  &foo.kill;
-
-
-  my $first_ret = zoro( type => <even> );
-  &zoro.variant(:type<even>).kill;
-  &zoro.variant(type => 'even').kill;
-
-  zoro( type => <odd> );
-
-  zoro( even => 1 );
-  zoro( odd => 1 );
-
-  multi coro zoro ($type where 'even') {}
-  multi coro zoro ($type where 'odd') {}
-
-  multi coro zoro ($even is named) {}
-  multi coro zoro ($odd is named) {}
-
-
-  # iblech's thoughts:
-  # Coroutine parameters should never be rebound. Instead, yield(...)s return
-  # value is an Arglist object containing the new arguments:
-  coro bar ($a, $b) {
-    ...;
-    my $new_set_of_args = yield(...);
-    my $sum_of_old_a_and_new_a = $a + $new_set_of_args<$a>;
-    ...;
-  }
-  bar(42, 23);  # $a is 42, $b is 23
-  bar(17, 19);  # $a still 42, $b still 19,
+=head2 See also
+
+=over
+
+=item *
+
+L<S16/Interprocess Communication>
+
+=item *
+
+L<S16/I/O Considerations>
+
+=item *
+
+L<S16/File Descriptors>
+
+=item *
+
+L<S16/Sockets>
+
+=back
 
 =cut

docs/Perl6/Spec/IO.pod

@@ -499 +499 @@
    ($r, $w) = Socket.pair(AF_UNIX, SOCK_STREAM, PF_UNSPEC);
 
+
 =back
 
@@ -505 +506 @@
 Please post errors and feedback to perl6-language.  If you are making
 a general laundry list, please separate messages by topic.
+
+=cut