lang/occam/test/copy.ocm

   1 def N=10:
   2
   3 proc copy(chan in, out)=
   4         var char:
   5         seq
   6                 char:='x'
   7                 while char<>EOF
   8                         seq
   9                                 in ? char
  10                                 out ! char
  11 :
  12
  13 chan junk[N]:
  14 par
  15         copy(input, junk[0])
  16
  17         par i=[0 FOR N-1]
  18                 copy(junk[i], junk[i+1])
  19
  20         var char:
  21         seq
  22                 junk[N-1] ? char
  23                 while char<>EOF
  24                         seq
  25                                 output ! char
  26                                 junk[N-1] ? char