Return to ch.cr CVS log

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

BSD 4.3tahoe

Clearinghouse: PROGRAM 2 VERSION 2 =
BEGIN
-- fake ch for tessting --

NetworkAddress: TYPE = RECORD [
	network: ARRAY 2 OF UNSPECIFIED,
	host: ARRAY 3 OF UNSPECIFIED,
	socket: UNSPECIFIED ];

NetworkAddressList: TYPE = SEQUENCE 40 OF NetworkAddress;

CallProblem: TYPE = {
	accessRightsInsufficient(1),
	tooBusy(2),
	serverDown(3),
	useCourier(4),
	other(5) };

CallError: ERROR [problem: CallProblem] = 1;

RetrieveAddresses: PROCEDURE
	RETURNS [addresses: NetworkAddressList]
	REPORTS [CallError] = 0;

END.

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