examples/streams/Replay.pir

   1 # Copyright (C) 2004-2009, Parrot Foundation.
   2 # $Id$
   3
   4 .sub _main :main
   5     .local pmc stream
   6
   7     load_bytecode 'Stream/Writer.pbc'
   8     load_bytecode 'Stream/Replay.pbc'
   9
  10     stream = new ['Stream'; 'Writer']
  11     $P0 = get_global "_reader"
  12     assign stream, $P0
  13
  14     stream."write"( "1" )
  15     stream."write"( "2" )
  16     stream."write"( "A" )
  17     stream."write"( "B" )
  18     stream."write"( "4" )
  19     stream."write"( "5" )
  20     stream."write"( "*" )
  21     stream."close"()
  22     end
  23 .end
  24
  25 .sub _reader :method
  26     .local pmc stream1
  27     .local pmc stream2
  28     .local pmc stream3
  29     .local string str
  30
  31     stream1 = new ['Stream'; 'Replay']
  32     assign stream1, self
  33
  34     print "reader start\n"
  35
  36     print "1:'"
  37     str = stream1."read"()
  38     print str
  39     str = stream1."read"()
  40     print str
  41     print "'\n"
  42
  43     stream2 = clone stream1
  44     stream3 = clone stream1
  45
  46     print "2:'"
  47     str = stream2."read"()
  48     print str
  49     str = stream2."read"()
  50     print str
  51     stream2."close"()
  52     print "'\n1:'"
  53
  54     str = stream1."read"()
  55     print str
  56     str = stream1."read"()
  57     print str
  58
  59     str = stream1."read"()
  60     print str
  61     str = stream1."read"()
  62     print str
  63
  64     print "\n3:'"
  65
  66     str = stream3."read"()
  67     print str
  68     str = stream3."read"()
  69     print str
  70     str = stream3."read"()
  71     print str
  72     str = stream3."read"()
  73     print str
  74
  75     str = stream3."read"()
  76     print str
  77
  78     print "'\n"
  79
  80     print "reader done\n"
  81 .end
  82
  83 # Local Variables:
  84 #   mode: pir
  85 #   fill-column: 100
  86 # End:
  87 # vim: expandtab shiftwidth=4 ft=pir: