#!/usr/local/rexx/rxx
/*
 * This program tests rxqueue by cat-ing the make file ('mkrxq') in
 * this directory and piping its output to the rxqueue program,
 * which places it on the uni-REXX program stack for testrxq.
 *
 * This is similar to executing popen('cat mkrxq').
 *
 *
 */
say ''
say 'NOW RUNNING THE testrxq PROGRAM'
say ''
say 'OUTPUT SHOULD LOOK LIKE:'
say ''
say 'Items on stack:        2'
say ''
say 'Items from the stack:'
say '    rxqueue: $(RXQSRC)/rxqueue.c $(REXXLIB)'
say '         cc -I$(REXXLIB) $(RXQSRC)/rxqueue.c -L$(REXXLIB) -lrxi -lrx -lm -o $(RXQSRC)/rxqueue'
say ''
say ''
say ''
say 'ACTUAL OUTPUT FROM USING rxqueue'
say ''

'cat mkrxq | rxqueue'
say ''
say 'Items on stack:      ' queued()
say ''
say 'Items from the stack:'
do queued()
   parse pull next
   say '   'next
   end