/* Test the throttler                                                */
/*                               John Hartmann  10 Apr 1996 15:24:06 */
Signal on novalue
Address COMMAND
'ERASE PIPDUMP LISTING'
pipe=,
   '(end \)',
   '\literal a b c d e f g h i j k',
   '|split',
   '|t:throttle',
     server(0, 0.15),
     server(1, 0.3),
     server(2, 0.7)
 
'PIPE' pipe
exit RC
'PIPE (end \ name THROTTLE)',
   'var pipe|runpipe trace|> throttle trace a'
 
Exit RC
 
server:
parse arg task, time
return,
   '|copy',                           /* Consume quickly             */
   '|change //+'time '/',
   '|delay',
   '|literal ready',
   '|change ,,'task': ,',
   '|cons',
   '|t:'