Return to ch1.cr CVS log

Up to [CSRG BSD Unix] / 43BSDTahoe / new / xns / examples / authchtest

Annotation of 43BSDTahoe/new/xns/examples/authchtest/ch1.cr, revision 1.1.1.1

1.1       root        1: Clearinghouse: PROGRAM 2 VERSION 2 =
                      2: 
                      3: -- fake ch for testing --
                      4: 
                      5: BEGIN
                      6:        DEPENDS UPON
                      7:                BulkData (0) VERSION 1,
                      8:                Authentication (14) VERSION 1;
                      9: 
                     10: Organization: TYPE = STRING;
                     11: Domain: TYPE = STRING;
                     12: Object: TYPE = STRING;
                     13: 
                     14: NetworkAddress: TYPE = RECORD [
                     15:        network: ARRAY 2 OF UNSPECIFIED,
                     16:        host: ARRAY 3 OF UNSPECIFIED,
                     17:        socket: UNSPECIFIED ];
                     18: 
                     19: NetworkAddressList: TYPE = SEQUENCE 40 OF NetworkAddress;
                     20: 
                     21: ThreePartName: TYPE = RECORD[
                     22:        Organization: Organization,
                     23:        domain: Domain,
                     24:        object: Object ];
                     25: 
                     26: ObjectName: TYPE = ThreePartName;
                     27: 
                     28: ObjectNamePattern: TYPE = ThreePartName;
                     29: 
                     30: Authenticator: TYPE = RECORD [
                     31:        credentials: Authentication.Credentials,
                     32:        verifier: Authentication.Verifier ];
                     33: 
                     34: -- error stuff --
                     35: 
                     36: WhichArgument: TYPE = {first(1), second(2) };
                     37: ArgumentProblem: TYPE = CARDINAL;
                     38: CallProblem: TYPE = {
                     39:        accessRightsInsufficient(1),
                     40:        tooBusy(2),
                     41:        serverDown(3),
                     42:        useCourier(4),
                     43:        other(5) };
                     44: 
                     45: CallError: ERROR [problem: CallProblem] = 1;
                     46: ArgumentError: ERROR[problem: ArgumentProblem, which: WhichArgument] = 2;
                     47: AuthenticationError: ERROR[problem:Authentication.Problem] = 6;
                     48: WrongServer: ERROR [hint: ObjectName] = 5;
                     49: 
                     50: RetrieveAddresses: PROCEDURE
                     51:        RETURNS [addresses: NetworkAddressList]
                     52:        REPORTS [CallError] = 0;
                     53: 
                     54: LookupObject: PROCEDURE [name: ObjectNamePattern, agent: Authenticator]
                     55:        RETURNS [distinguishedObject: ObjectName]
                     56:        REPORTS [ArgumentError, AuthenticationError, CallError, WrongServer]
                     57:         = 4;
                     58: 
                     59: ListDomainsServed: PROCEDURE [list: BulkData.Sink, agent: Authenticator]
                     60:        REPORTS [ArgumentError, AuthenticationError, CallError ] = 7;
                     61: END.

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