-- TempFileDefs.mesa -- created by Schroeder, November 18, 1980 11:13 AM DIRECTORY crD: FROM "CoreDefs"; tfD: DEFINITIONS = BEGIN AllocateTempFile: PROCEDURE RETURNS [crD.UFileHandle]; -- -- Maintains a free list of previously opened temp files. -- Will Allocate one of these if available. -- If not available then will generate another temp file. FreeTempFile: PROCEDURE [h: crD.UFileHandle]; -- -- Use to return a temp file when it is no longer needed. -- Returned files can be reused by others. -- Truncates h to 3 pages if currently longer and closes it. END.