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; 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: BOOL _ FALSE ]; 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 ]; }. ΐ 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 Private Routines Κ ™™Icode™Kš ž œœœœœœ˜EJ˜Jš žœœœœœ˜9Jš žœœœœœ˜;Kš žœœœœœœ˜KJš ž œœ œœœ˜6J˜Jš žœœœœœ˜9Jš žœœœœœ˜=Jš ž œœœœœ˜2—J˜J˜——…—L,