1224 |
block_ordinal = current_block_ordinal (); |
block_ordinal = current_block_ordinal (); |
1225 |
current_stat_info.stat.st_size = 0; /* force 0 size on dir */ |
current_stat_info.stat.st_size = 0; /* force 0 size on dir */ |
1226 |
|
|
|
/* FIXME: If people could really read standard archives, this |
|
|
should be: |
|
|
|
|
|
header |
|
|
= start_header (standard_option ? p : namebuf, ¤t_stat_info); |
|
|
|
|
|
but since they'd interpret DIRTYPE blocks as regular |
|
|
files, we'd better put the / on the name. */ |
|
|
|
|
1227 |
header = start_header (namebuf, ¤t_stat_info); |
header = start_header (namebuf, ¤t_stat_info); |
1228 |
if (!header) |
if (!header) |
1229 |
return; |
return; |
1483 |
|
|
1484 |
sizeleft = current_stat_info.stat.st_size; |
sizeleft = current_stat_info.stat.st_size; |
1485 |
|
|
1486 |
/* Don't bother opening empty, world readable files. Also do not open |
/* Don't bother opening empty, world readable files. Also do not |
1487 |
files when archive is meant for /dev/null. */ |
open files when archive is meant for /dev/null. */ |
1488 |
|
|
1489 |
if (dev_null_output |
if (dev_null_output |
1490 |
|| (sizeleft == 0 |
|| (sizeleft == 0 |
1524 |
isextended = header->oldgnu_header.isextended; |
isextended = header->oldgnu_header.isextended; |
1525 |
else |
else |
1526 |
isextended = 0; |
isextended = 0; |
1527 |
if (isextended) |
|
|
abort(); |
|
1528 |
save_typeflag = header->header.typeflag; |
save_typeflag = header->header.typeflag; |
1529 |
finish_header (header, block_ordinal); |
finish_header (header, block_ordinal); |
1530 |
if (isextended) |
if (isextended) |