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

fix tar

db4
Doug Coleman 2009-01-19 22:26:46 -06:00
parent 0c7ff04ce7
commit 570577cca0
1 changed files with 3 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
extra/tar/tar.factor
View File

@ -16,6 +16,9 @@ SYMBOLS: base-dir filename ;
: tar-trim ( seq -- newseq ) [ "\0 " member? ] trim ; : tar-trim ( seq -- newseq ) [ "\0 " member? ] trim ;
: read-c-string* ( n -- str/f )
read [ zero? ] trim-right [ f ] when-empty ;
: read-tar-header ( -- obj ) : read-tar-header ( -- obj )
\ tar-header new \ tar-header new
100 read-c-string* >>name 100 read-c-string* >>name