<> <> <> <> DIRECTORY PupStream USING [PupSocketID], PupTypes USING [ftpSoc], Rope USING [ROPE]; AlpineFTP: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; CreateListener: PROC [volumeGroupName: ROPE, socket: PupStream.PupSocketID _ PupTypes.ftpSoc]; <> <> DestroyListener: PROC; <> <> END. <<>> <<>>