examples/subs/coroutine.pasm

   1 # Copyright (C) 2001-2005, Parrot Foundation.
   2 # $Id$
   3
   4 =head1 NAME
   5
   6 examples/pasm/coroutine.pasm - Sample co-routines in Parrot
   7
   8 =head1 SYNOPSIS
   9
  10     % ./parrot examples/pasm/coroutine.pasm
  11
  12 =head1 DESCRIPTION
  13
  14 This shows you how to create two coroutines and C<invoke> them.
  15
  16 =head1 SEE ALSO
  17
  18 F<docs/ops/core.pod>
  19 F<docs/pdds/pdd03_calling_conventions.pod>
  20
  21 =cut
  22
  23 # create a coro and save it on the user stack
  24 .const 'Sub' P0 =  "MYCOROUTINE"
  25 # a coroutine carries state - clone it
  26 clone P0, P0
  27
  28 # create a second coro
  29 clone P1, P0
  30
  31 # Calling convention says P0 will contain the sub so..
  32 print "Calling 1st co-routine\n"
  33 invokecc P0
  34 invokecc P0
  35 invokecc P0
  36
  37 print "Calling 2nd co-routine\n"
  38 invokecc P1
  39 invokecc P1
  40 invokecc P1
  41
  42 end
  43
  44 # A coroutine
  45 .pcc_sub MYCOROUTINE:
  46     print "Entry\n"
  47     yield
  48     print "Resumed\n"
  49     yield
  50     print "Done\n"
  51     yield
  52
  53 # Local Variables:
  54 #   mode: pir
  55 #   fill-column: 100
  56 # End:
  57 # vim: expandtab shiftwidth=4 ft=pir: