
DIRECTORY
BasicTime USING [GMT],
IO USING [STREAM],
Rope USING [ROPE];

MimSysOps: CEDAR DEFINITIONS = BEGIN OPEN BasicTime, IO, Rope;

Interceptor: TYPE = REF InterceptorRecord;
InterceptorRecord: TYPE = RECORD [
open: OpenProc,
close: CloseProc,
delete: DeleteProc,
data: REF м NIL
];

OpenProc: TYPE = PROC
[interceptor: Interceptor, name: ROPE, kind: OpenKind]
RETURNS [stream: STREAM, err: ROPE, time: GMT];
OpenKind: TYPE = {read, write, writeLog};
CloseProc: TYPE = PROC
[interceptor: Interceptor, stream: STREAM, abortAndDelete: BOOL]
RETURNS [err: ROPE];
DeleteProc: TYPE = PROC
[interceptor: Interceptor, name: ROPE]
RETURNS [err: ROPE];

Intercept: PROC [interceptor: Interceptor] RETURNS [old: Interceptor];
Open: PROC [name: ROPE, kind: OpenKind]
RETURNS [stream: STREAM, err: ROPE, time: BasicTime.GMT];

Close: PROC [stream: STREAM, abortAndDelete: BOOL м FALSE] RETURNS [err: ROPE];

Delete: PROC [name: ROPE] RETURNS [err: ROPE];

Cleanup: PROC [abortAndDelete: BOOL];

MappedFile: TYPE = REF MappedFileRecord;
MappedFileRecord: TYPE;

Map: PROC [name: ROPE] RETURNS [mf: MappedFile, err: ROPE];
UnMap: PROC [mf: MappedFile];
MapBase: PROC [mf: MappedFile] RETURNS [LONG POINTER];
MapLength: PROC [mf: MappedFile] RETURNS [CARD];

END.


  X  
MimSysOps.mesa
Copyright ╙ 1987, 1988, 1991 by Xerox Corporation.  All rights reserved.
Russ Atkinson (RRA) December 12, 1988 3:47:55 pm PST
Opens the named file and returns a stream to it.  If the stream cannot be opened then an error message is returned.
Closes the given stream.  If abortAndDelete, then abort all output operations and delete the associated file (if any).  Otherwise, normal close is performed.
Deletes the named file (returning a messge if not possible).
Intercepts the system operations, returning the previous interceptor (if any).

Opens the file via the current interceptor proc.
Closes the stream via the current interceptor proc.  If abortAndDelete, then all I/O operations on files opened with kind in {read, write} will be aborted, and all files opened with kind = write will be deleted.
Deletes the named file (returning a messge if not possible).
Closes all open streams managed by MimSysOps.
Opens the named file and maps it into memory, returning a MappedFile object if the opeinging was successful, and an error message if the opening was not successful.

Unmaps the file.  The memory will not necessarily become invalid, but the user should not continue to use it.

Returns the address of the first word in the memory for the mapped file.  NIL is returned for invaid mapped files.

Returns the # of bytes in the mapped file.
 Э╩█  Ц(cedarcode) styleХNewlineDelimiter
Щ codeЩKЪЬ
╧eЬ=ЩHKЩ4ЧШ Ъ╧k	Ш	KЪЬ
ЮЬЮЬШKЪЮЬЮЬЮЬШKЪЬЮЬЮЬШKШ ЧЧЪ╧n	ЬЮЬЮЬЮЬЮЬ
ЮЬШ>KШ KЪЬЮЬЮЬШ*ЪЬЮЬЮЬШ"KЪЬШKЪЬШKЪЬШKЪЬЮЬЮШKЪЬШKШ ЧЪЬ
ЮЬЮЬ!ЮЬЮЬ
ЮЬЮЬЮЬШ|KЪЬ
ЮЬШ)KЩsЧЪЬЮЬЮЬ#ЮЬЮЬЮЬЮЬШlKЪЬЭЩЭЧЪЬЮЬЮЬ!ЮЬЮЬЮЬШSKЪЬ<Щ<ЧKШ ЪЯ	ЬЮЬЮЬШFKЪЬNЩNKЩ ЧЪЯЬЮЬЮЬЮЬ
ЮЬЮЬЮЬШaKЩ0KШ ЧЪЯЬЮЬ
ЮЬЮЬЮЬЮЬЮЬШOKЪЬ╙Щ╙KШ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШ.KЪЬ<Щ<KШ ЧЪЯЬЮЬЮЬШ%KЪЬ-Щ-KШ ЧKЪЬЮЬЮЬШ(KЪЬЮЬШKШ Ъ
ЯЬЮЬЮЬЮЬЮЬШ;ЪЬдЩдKЩ ЧЧЪЯЬЮЬШKЩmKЩ ЧЪ
ЯЬЮЬЮЬЮЬЮЬШ6KЩrKЩ ЧЪЯ	ЬЮЬЮЬЮЬШ0KЩ*ЧKШ ЧKЪЮЬШKШ KШ Ч ЕЧ    ш    