home *** CD-ROM | disk | FTP | other *** search
/ Power-Programmierung / CD2.mdf / c / interpre / proxy / copy.prx next >
Encoding:
Text File  |  1992-06-23  |  365 b   |  11 lines
  1. eos="eos";
  2. //channel ch1,ch2;
  3. ch1=channel();
  4. ch2=channel();
  5. task source(right) {right!2;right!3;right!4;right!eos;};
  6. task sink(left;x) {left?x;while (x!=eos) {print x;left?x;}};
  7. task copy(left,right;x) {left?x;while(x!=eos) {right!x;left?x;}
  8.                          right!eos;};
  9. task main() {start source(ch1); start copy(ch1,ch2);start sink(ch2);};
  10. end
  11.