-- File: AlpineWalnutCmds.mesa -- Last edited by: -- Kolling on June 24, 1983 10:35 am DIRECTORY Rope USING[ROPE]; AlpineWalnutCmds: CEDAR DEFINITIONS = BEGIN ROPE: TYPE = Rope.ROPE; ByteCount: TYPE = INT; CopyForExpunge: PROC [to: ROPE, from: ROPE, excessBytes: ByteCount]; -- if "to" is an Alpine file and that file already exists, CopyForExpunge first sets the file's high water mark to 0 and commits, then proceeds with the copy. After the copy GetSize[] = RoundUpToPages[excessBytes + GetProperties[byteLength]] IllegalFileName: ERROR; END. Ê{˜Jš*ÏcYœÏk œžœ ÐblœžœžœÏnÐknœžœžœ œžœžœ œ œžœžœžœö œžœžœ˜×—…—ZÛ