DIRECTORY
BasicTime, IO, Rope;

TIPFS: CEDAR DEFINITIONS = BEGIN

StreamOpen: PROC [fileName: Rope.ROPE, accessOptions: ATOM, wantedCreatedTime: BasicTime.GMT ¬ BasicTime.nullGMT, remoteCheck: BOOL ¬ TRUE] RETURNS [IO.STREAM];

SetCreatedTime: PROC [stream: IO.STREAM, 
created: BasicTime.GMT ¬ BasicTime.nullGMT];

GetName: PROC [fileStream: IO.STREAM] RETURNS [name: Rope.ROPE];

tipCDir: Rope.ROPE; -- SystemNames.LocalDir["PTipC"] in Cedar, /tmp in PCedar

ConstructTIPCName: PROC [file: Rope.ROPE] RETURNS [cName: Rope.ROPE];

FileInfo: PROC [
name: Rope.ROPE, 
wantedCreatedTime: BasicTime.GMT ¬ BasicTime.nullGMT, 
remoteCheck: BOOL ¬ TRUE, 
wDir: Rope.ROPE ¬ NIL
] RETURNS [
fullFName: Rope.ROPE,
created: BasicTime.GMT
];

Error: ERROR [error: ErrorDesc];
ErrorDesc: TYPE = RECORD [group: ErrorGroup, code: ATOM, explanation: Rope.ROPE] 
¬ [ok, NIL, NIL];
ErrorGroup: TYPE = {
ok, -- initial group for a new FS.ErrorDesc 
bug, -- caused by an internal bug
environment, -- something's wrong in the environment; human intervention required
lock, -- conflict over locks 
client, -- illegal operation, probably due to bug in client program 
user -- illegal operation, probably due to user action  
};
END.

   ق  
TIPFS.mesa
Copyright س 1988, 1991 by Xerox Corporation.  All rights reserved.
Bier, December 13, 1988 11:25:30 pm PST
Contents:  A thin veneer on top of FS or UFS, to allow code sharing between PCedar and Cedar.


 ‌تط  –(cedarcode) style•NewlineDelimiter
™ codeڑدkœ™
Kڑœ	دeœ6™BKڑœ'™'Kڑدnœ‌œ‌œ1™]K™ —ڑ‌	ک	Kڑœ‌œک—Kک Kڑ‌œ‌œ‌œ‌ک Kک Kڑں
œ‌œ‌œ‌œ‌œ#‌œ‌œ‌œ‌œ‌œک Kک Kڑ
ںœ‌œ
‌œ‌œ‌œکVKک Kڑںœ‌œ‌œ‌œ‌œ‌œک@Kک Kڑœ‌œدc9کMKک Kڑ
ںœ‌œ‌œ‌œ‌œکEKک Kڑںœ‌œ‌œ ‌œ$‌œ‌œ‌œ‌œ‌œ‌œ‌œکئKک Kڑœ‌œک Kڑœ‌œ‌œ‌œ‌œ
‌œ‌œکcڑœ‌œ	 ذck œ œ Eœ œ =œ 4œکشK™ —Kڑ‌œکKک — …—    ¼  r  