TarPrivate.mesa
Copyright Ó 1989 by Xerox Corporation. All rights reserved.
Bill Jackson (bj) July 7, 1989 9:20:55 pm PDT
Willie-sue, August 10, 1989 10:54:58 am PDT
DIRECTORY
BasicTime USING [ GMT ],
IO USING [ STREAM ],
Rope USING [ ROPE ],
Tar USING [ FileInfo ],
TarFileFormat USING [ Header, NAME, OCTAL8, OCTAL12 ];
TarPrivate: CEDAR DEFINITIONS ~ {
OPEN Rope, TarFileFormat;
FileInfo: TYPE ~ Tar.FileInfo;
Finished: ERROR;
Private Routines
FileInfoFromHeader: PROC [ h: Header ] RETURNS [ info: FileInfo ];
HeaderFromFileInfo: PROC[ info: FileInfo ] RETURNS[ h: Header ];
Checksum: PUBLIC PROC [ h: Header ] RETURNS [ chksum: CARD32 ← 0 ];
OtherChecksum: PUBLIC PROC [ h: Header ] RETURNS [ chksum: CARD32 ← 0 ];
GetHeader: PUBLIC PROC [ s: IO.STREAM ] RETURNS [ h: Header ];
EmptyHeader: PUBLIC PROC [ h: Header ] RETURNS [ yes: BOOLFALSE ];
CardFromOctal8: PROC [ o: OCTAL8 ] RETURNS [ c: CARD32 ];
CardFromOctal12: PROC [ o: OCTAL12 ] RETURNS [ c: CARD32 ];
GMTFromOctal12: PUBLIC PROC [ o: OCTAL12 ] RETURNS [ time: BasicTime.GMT ];
RopeFromName: PROC [ name: NAME ] RETURNS [ r: ROPE ];
Octal8FromCard: PROC [ c: CARD32 ] RETURNS[ o8: OCTAL8 ];
Octal12FromCard: PROC [ c: CARD32 ] RETURNS [ o12: OCTAL12 ];
NameFromRope: PROC [ r: ROPE ] RETURNS[ n: NAME ];
}.