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

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.