home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 18 REXX / 18-REXX.zip / rexxlb.zip / SAMPLES / SERVER.CMD < prev    next >
OS/2 REXX Batch file  |  1993-01-08  |  1KB  |  28 lines
  1. /*****************************************************************************/
  2. /*                                                                           */
  3. /* Sample named pipe server using REXXLIB. It simply echoes whatever         */
  4. /* message is sent to it.                                                    */
  5. /*                                                                           */
  6. /* Requires REXXLIB NMPIPE functions.                                        */
  7. /*                                                                           */
  8. /*****************************************************************************/
  9.  
  10. pipe = '\pipe\echo'
  11.  
  12. call nmpipe_create pipe, 'm', 'm', 'w'
  13. do i=1
  14.     call nmpipe_connect pipe
  15.     say 'Connect RC =' result
  16.     if result \= 0 then
  17.         exit
  18.     do forever
  19.         message = nmpipe_read(pipe)
  20.         if message = 'end' | message == '' then do
  21.             call nmpipe_disconnect pipe
  22.             iterate i
  23.             end
  24.         say 'Message received: "'message'"'
  25.         call nmpipe_write pipe, message
  26.         end
  27.     end
  28.