<> <> <> <> <<<>>> DIRECTORY FS USING [OpenFile], IO USING [STREAM], NSString USING [String]; QueueFile: CEDAR DEFINITIONS = BEGIN InsufficientPages: ERROR; CreateError: ERROR; TraceLevel: TYPE = {none, mini, verbose}; CreateTempFile: PROCEDURE [fName: NSString.String, fBytes: LONG CARDINAL] RETURNS [fileID: FS.OpenFile, fileH: IO.STREAM]; <> Delete: PROCEDURE [fileID: FS.OpenFile, file: IO.STREAM _ NIL] RETURNS [FS.OpenFile]; <> MakePermanent: PROCEDURE [file: FS.OpenFile, attrs: NSString.String ]; <> <> SetTrace: PROCEDURE [trace: TraceLevel]; END. LOG September 23, 1981 7:30 PM by J.Beeley Action: Created file. 11-Nov-81 10:54:26 by Muntz Action: Converted to SFS. 22-Apr-82 17:44:30 by Muntz Action: Changed Create to CreateTempFile. Added MakePermanent. 16-Sep-82 14:34:05 - Beeley - Changed local def of TraceLevel to CommandInterface.TraceLevel. 27-Sep-82 8:03:55 - Alfvin - Converted to Pilot 9.0, Filing 5.0 and Services 5.0. 19-Oct-82 9:41:05 - Beeley - Added use of Volume.PageCount; modified SetMaxPages 5-Aug-83 13:59:36 - Jacks - Changes as part of PSCommand rework: Changed CommandInterface.TraceLevel to PSState.TraceLevel. 8-Nov-83 14:26:39 - Jacks - Removed dependency on PSState by defining TraceLevel locally. 22-Jan-84 10:26:09 - Jacks - Converted to 8.0 FS. 30-Jan-84 17:16:37 - Jacks - Changed file references to file IDs. 9-Nov-84 10:58:32 - Jacks - Added default nullHandle to Delete. 14-Jun-85 16:45:10 - Jacks - Added copyright notice. 22-Jul-85 15:05:54 - Jacks - Removed GetDirectory, GetPages and SetMaxPages; changed GetPages to return only # of pages allocated; changed CreateTempFile 'pages' parm to 'fBytes'.