read-tar-header ( -- header )

Vocabulary

tar

Inputs

None

Outputs

header

an object

Definition

USING: accessors io kernel math.parser ;

IN: tar

: read-tar-header ( -- header )
    tar-header new 100 read-c-string >>name
    8 read-c-string trim-string oct> >>mode
    8 read-c-string trim-string oct> >>uid
    8 read-c-string trim-string oct> >>gid
    12 read-c-string trim-string oct> >>size
    12 read-c-string trim-string oct> >>mtime
    8 read-c-string trim-string oct> >>checksum read1 >>typeflag
    100 read-c-string >>linkname 6 read >>magic 2 read >>version
    32 read-c-string >>uname 32 read-c-string >>gname
    8 read trim-string oct> >>devmajor
    8 read trim-string oct> >>devminor
    155 read-c-string >>prefix ;