examples/streams/SubCounter.pir

   1 # $Id$
   2
   3 =head1 Counter Example
   4
   5 This example shows the usage of C<Stream::Sub>.
   6
   7 =head1 FUNCTIONS
   8
   9 =over 4
  10
  11 =item _main
  12
  13 Creates a C<Stream::Sub> and dumps it.
  14
  15 =cut
  16
  17 .sub _main
  18     .local pmc stream
  19
  20     load_bytecode 'Stream/Base.pbc'
  21     load_bytecode 'Stream/Sub.pbc'
  22
  23     stream = new ['Stream'; 'Sub']
  24
  25     # set the stream's source sub
  26     .const 'Sub' temp = "_counter"
  27     assign stream, temp
  28
  29     # dump the stream
  30     stream."dump"()
  31
  32     end
  33 .end
  34
  35 =item _counter
  36
  37 This sub is used as the source for the counter stream.
  38
  39 It writes the numbers 0 .. 9 as strings to the stream.
  40
  41 =cut
  42
  43 .sub _counter :method
  44     .local string str
  45     .local int i
  46
  47     i = 0
  48
  49 LOOP:
  50     # streams are using strings,
  51     # so we have to convert the number into a string
  52     str = i
  53
  54     # write the string
  55     self."write"( str )
  56
  57     inc i
  58     if i < 10 goto LOOP
  59 .end
  60
  61 =back
  62
  63 =head1 AUTHOR
  64
  65 Jens Rieks E<lt>parrot at jensbeimsurfen dot deE<gt> is the author
  66 and maintainer.
  67 Please send patches and suggestions to the Perl 6 Internals mailing list.
  68
  69 =head1 COPYRIGHT
  70
  71 Copyright (C) 2004-2009, Parrot Foundation.
  72
  73 =cut
  74
  75 # Local Variables:
  76 #   mode: pir
  77 #   fill-column: 100
  78 # End:
  79 # vim: expandtab shiftwidth=4 ft=pir: