Return to ch.cr CVS log

Up to [CSRG BSD Unix] / 43BSD / contrib / xns / examples / retrieve

Annotation of 43BSD/contrib/xns/examples/retrieve/ch.cr, revision 1.1

1.1     ! root        1: Clearinghouse: PROGRAM 2 VERSION 2 =
        !             2: BEGIN
        !             3: -- fake ch for tessting --
        !             4: 
        !             5: NetworkAddress: TYPE = RECORD [
        !             6:        network: ARRAY 2 OF UNSPECIFIED,
        !             7:        host: ARRAY 3 OF UNSPECIFIED,
        !             8:        socket: UNSPECIFIED ];
        !             9: 
        !            10: NetworkAddressList: TYPE = SEQUENCE 40 OF NetworkAddress;
        !            11: 
        !            12: CallProblem: TYPE = {
        !            13:        accessRightsInsufficient(1),
        !            14:        tooBusy(2),
        !            15:        serverDown(3),
        !            16:        useCourier(4),
        !            17:        other(5) };
        !            18: 
        !            19: CallError: ERROR [problem: CallProblem] = 1;
        !            20: 
        !            21: RetrieveAddresses: PROCEDURE
        !            22:        RETURNS [addresses: NetworkAddressList]
        !            23:        REPORTS [CallError] = 0;
        !            24: 
        !            25: END.

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.