Tar.mesa
Copyright Ó 1989 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) July 7, 1989 9:20:55 pm PDT
Willie-sue, August 9, 1989 6:53:28 pm PDT
Tar:
CEDAR
DEFINITIONS ~ {
OPEN Rope, TarFileFormat;
FileInfo:
TYPE ~
RECORD [
name: ROPE,
mode: CARD32,
uid: CARD32,
gid: CARD32,
size: CARD32,
mtime: CARD32,
chksum: CARD32,
linkflag: LinkType,
linkname: ROPE
];
Malformed: ERROR [ how: ROPE ];
Warning: SIGNAL [ msg: ROPE ];
InfoProc: TYPE ~ PROC [ info: FileInfo, s: IO.STREAM ] RETURNS [ quit: BOOL ← FALSE ];
Scan: PROC [ s: IO.STREAM, p: InfoProc ] RETURNS [ aborted: BOOL ← FALSE ];
EnumProc: TYPE ~ PROC [ name: ROPE, date: BasicTime.GMT ] RETURNS [ info: FileInfo ];
SinkProc: TYPE ~ PROC [ info: FileInfo, s: IO.STREAM ] RETURNS [ quit: BOOL ← FALSE ];
FromDF: PROC [s: IO.STREAM, enum: EnumProc, sink: SinkProc, dfFile: IO.STREAM];
ToDF: PROC [s: IO.STREAM, pseudo: ROPE, project: ROPE, dfFile: IO.STREAM];
}.