steve
/
factor
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

tar: cleanup stack effects, minor things.

db4
John Benediktsson 2014-11-02 10:32:35 -08:00
parent d11737ac8e
commit d31d836f86
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
extra/tar/tar.factor
View File

@ -25,8 +25,8 @@ ERROR: checksum-error header ;
: read-c-string ( n -- str ) : read-c-string ( n -- str )
read [ zero? ] trim-tail "" like ; read [ zero? ] trim-tail "" like ;
: read-tar-header ( -- obj ) : read-tar-header ( -- tar-header )
\ tar-header new tar-header new
100 read-c-string >>name 100 read-c-string >>name
8 read-c-string trim-string oct> >>mode 8 read-c-string trim-string oct> >>mode
8 read-c-string trim-string oct> >>uid 8 read-c-string trim-string oct> >>uid
@ -51,7 +51,7 @@ TYPED: checksum-header ( seq: byte-array -- n )
dup size>> 0 > [ dup size>> 0 > [
block-size read [ block-size read [
over size>> dup block-size <= [ over size>> dup block-size <= [
head-slice >byte-array write drop head write drop
] [ ] [
drop write drop write
[ block-size - ] change-size [ block-size - ] change-size
@ -67,7 +67,7 @@ TYPED: checksum-header ( seq: byte-array -- n )
: parse-tar-header ( seq -- obj ) : parse-tar-header ( seq -- obj )
dup checksum-header dup zero-checksum = [ dup checksum-header dup zero-checksum = [
2drop 2drop
\ tar-header new tar-header new
0 >>size 0 >>size
0 >>checksum 0 >>checksum
] [ ] [