饭 /2 ᨩ
Vadim Petrjaev

. ⠪  No. 33

>    DOS ᨨ p ᥢ ᨨ p  ,
> pp ᮮ饭  ᥬp    ?

१ Named Pipe. ᫨  OS/2 ணࠬ  ᮧ Named Pipe   \PIPE\FILENAME.PIP,   ᮢ    䠩 \PIPE\FILENAME.PIP  ᯮ 㤠  / 㤠 . 

  REXX,   ᯮ짮 REXXIPC.DLL. (室  䠩堬       .)

/* */

  PipeName='\PIPE\SAMPLE\PIPE.EXT'

  CALL RxFuncAdd 'PipeLoadFuncs', 'REXXIPC', 'PipeLoadFuncs'
  CALL PipeLoadFuncs

  dosrc=PipeCreate('PipeHnd',PipeName,'I','M')
  IF \(dosrc=0) THEN DO
    Say "Error opening pipe. Exiting"
    EXIT 12
  END
  DO FOREVER
    dosrc=PipeConnect(PipeHnd)
    IF \(dosrc=0) THEN DO
      Say "Error connecting pipe. Exiting"
      EXIT 12
    END
    dosrc=PipeRead(PipeHnd,'Msg')
    Say "Receiving message: "Msg
    IF SUBSTR(Msg,1,6)='ENDJOB' THEN LEAVE
    CALL PipeDisconnect(PipeHnd)
  END
EXIT

᪠  ਡ  OS/2 ᨨ. ⮬   ( ⮬ ᫥ DOS ᨨ)  ࠧ.

   echo Hello, world! > \PIPE\sample\pipe.Ext

   echo Test message. > \pipe\sample\pipe.ext

   echo ENDJOB > \pipe\sapmle\pipe.ext


