<> <> <> DIRECTORY BufferDefs USING [OisBuffer], OISCP USING [ReturnFreeOisBuffer], OISCPTypes USING [ExchangeClientType, WaitTime], PacketExchange USING [defaultWaitTime, ExchangeHandle], NSAddress USING [SocketNumber]; PacketExchangeInternal: DEFINITIONS IMPORTS OISCP = BEGIN <> <> <> <> <> <> <> <> Create: PROCEDURE [localSocket: NSAddress.SocketNumber, receiveRequestCount: CARDINAL _ 1, privateBuffers: BOOLEAN _ TRUE, waitTime: OISCPTypes.WaitTime _ PacketExchange.defaultWaitTime] RETURNS [PacketExchange.ExchangeHandle]; -- receiveRequestCount is estimate of number of "to be queued" requests; privateBuffers TRUE mean the buffers will be allocated, FALSE mean buffer will be shared with the system buffer pool. CreateTypicalServer: PROCEDURE [localSocket: NSAddress.SocketNumber, privateBuffers: BOOLEAN _ FALSE] RETURNS [PacketExchange.ExchangeHandle] = INLINE {RETURN[Create[localSocket, 2, privateBuffers]]}; CreateTypicalUser: PROCEDURE [localSocket: NSAddress.SocketNumber] RETURNS [PacketExchange.ExchangeHandle] = INLINE {RETURN[Create[localSocket, 1, TRUE]]}; Delete: PROCEDURE [PacketExchange.ExchangeHandle]; <> <> SendRequestPacket: PROCEDURE [h: PacketExchange.ExchangeHandle, requestB: BufferDefs.OisBuffer, replyFilter: OISCPTypes.ExchangeClientType _ unspecified] RETURNS [replyB: BufferDefs.OisBuffer]; WaitForRequestPacket: PROCEDURE [h: PacketExchange.ExchangeHandle, request: OISCPTypes.ExchangeClientType _ unspecified] RETURNS [requestB: BufferDefs.OisBuffer]; <> <> SendReplyPacket: PROCEDURE [h: PacketExchange.ExchangeHandle, replyB: BufferDefs.OisBuffer]; GetFreeSendPacket: PROCEDURE [h: PacketExchange.ExchangeHandle] RETURNS [BufferDefs.OisBuffer]; ReturnFreeSendPacket: PROCEDURE [b: BufferDefs.OisBuffer] = INLINE {OISCP.ReturnFreeOisBuffer[b]}; END.\228b22B41i572t10 14bI6B26t0 14t10 51t0 14t10 18t0 64t10 13t0 29t10 1t0 1i4t10 19t0 170I1t10b19B26t0 14t10 16t0 14t10 28t0 29t10 44t0 14t10 4t0i1t10I1b17B26t0 14t10 25t0 29t10 45t0 4t10 6b6B13t0 29t10 1t0 156b17B186b20B259b15B81b17B85b20B84i1I LOG Time: October 23, 1980 1:50 PM By: Dalal Action: created file. Time: January 13, 1981 5:30 PM By: BLyon Action: moved to Pilot Communication. \1i