<> <> <> <> <> DIRECTORY Pup USING [Socket], PupWKS USING [ftp], Rope USING [ROPE]; AlpineFTP: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; CreateListener: PROC [volumeGroupName: ROPE, socket: Pup.Socket _ PupWKS.ftp]; <> <> DestroyListener: PROC; <> <> END. <<>> <<>>