• PRG31 - ��饭�� DOS/OS2 ��ᨩ

    From FAQServer@2:5020/181 to All on Tue Jun 24 07:37:14 2025
    [Q]: ��饭�� DOS/OS2 ��ᨩ

    [A]: Vadim Petrjaev (2:5020/158)

    � ����� �� DOS ��ᨨ ��p����� �ᥢ�� ��ᨨ ���p���� ���y� ���, ���p���p ᮮ�饭��� ��� ᥬ��p�� ��� �� ��� ���y��?

    ��p�� Named Pipe. �᫨ � OS/2 �p��p���� �� ᮧ����� Named Pipe � ������ \PIPE\FILENAME.PIP, � � ��ᮢ��� ���� ������ ��p��� 䠩� \PIPE\FILENAME.PIP
    � ᯮ����� �y�� ����� �/��� ���y�� ����.

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

    /* */

    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

    ���y᪠�� ��y �p���y�y � OS/2 ��ᨨ. ��⮬ �� �� (� ⮬ �᫥ DOS ��ᨨ) ����� p�����������.

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

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

    echo ENDJOB > \pipe\sapmle\pipe.ext

    --- INN 2.7.3
    * Origin: This echo is READ-ONLY. Send %HELP to FAQSERVER at (2:5020/181)