-- 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.