SCClassLibrary/Common/Streams/FuncStreamAsRoutine.sc

   1 FuncStreamAsRoutine : Routine {
   2         var <>nextFunc;
   3         var <>resetFunc;
   4
   5         *new { arg nextFunc, resetFunc;
   6                 ^super.new({ arg inval;
   7                         loop {
   8                                 inval = yield(thisThread.nextFunc.value(inval))
   9                         }
  10                 })
  11                 .nextFunc_(nextFunc).resetFunc_(resetFunc)
  12         }
  13
  14         reset { ^resetFunc.value }
  15 }