QueueFile.mesa
Copyright (C) Xerox Corporation 1981, 1982, 1983, 1984, 1985, 1986. All rights reserved.
Last edited by Jacks: 22-Jul-85 15:05:57
Tim Diebert: December 22, 1986 1:56:48 pm PST
<<Print Server's internal interface for Spool files.>>
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];
Create and Open a temporary file (no directory, deleted when Closed).
Delete:
PROCEDURE [fileID:
FS.OpenFile, file:
IO.
STREAM ←
NIL]
RETURNS [
FS.OpenFile];
Must provide file handle if file is already open. ID returned is a nullID.
MakePermanent: PROCEDURE [file: FS.OpenFile, attrs: NSString.String ];
MakePermanent: PROCEDURE [file: FS.OpenFile --, attrs: NSFile.AttributeList -- ];
Move the file to spooling directory.
SetTrace: PROCEDURE [trace: TraceLevel];
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'.