ebclient/lib/ebu/ebzip/zipfile.c

/*                                                            -*- C -*-
 * Copyright (c) 1998-2006  Motoyuki Kasahara
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the project nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 * 
 * THIS SOFTWARE IS PROVIDED BY THE PROJECT AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE PROJECT OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

#include "ebzip.h"

#include "getumask.h"
#include "makedir.h"
#include "samefile.h"
#include "yesno.h"

/*
 * File name to be deleted and file to be closed when signal is received.
 */
static const char *trap_file_name = NULL;
static int trap_file = -1;

/*
 * Unexported function.
 */
static int ebzip_zip_file_internal(const char *out_file_name,
    const char *in_file_name, Zio_Code in_zio_code, int index_page,
    Zip_Speedup *speedup);
static void trap(int signal_number);


/*
 * Ccompress a file `in_file_name'.
 * For START file, use ebzip_zip_start_file() instead.
 * If it succeeds, 0 is returned.  Otherwise -1 is returned.
 */
int
ebzip_zip_file(const char *out_file_name, const char *in_file_name,
	       Zio_Code in_zio_code, Zip_Speedup *speedup)
{
    return ebzip_zip_file_internal(out_file_name, in_file_name,
	in_zio_code, 0, speedup);
}

/*
 * Compress TART file `in_file_name'.
 * If it succeeds, 0 is returned.  Otherwise -1 is returned.
 */
int
ebzip_zip_start_file(const char *out_file_name, const char *in_file_name,
    Zio_Code in_zio_code, int index_page, Zip_Speedup *speedup)
{
    return ebzip_zip_file_internal(out_file_name, in_file_name,
	in_zio_code, index_page, speedup);
}

/*
 * Internal function for zip_unzip_file() and ebzip_zip_sebxa_start().
 * If it succeeds, 0 is returned.  Otherwise -1 is returned.
 */
static int
ebzip_zip_file_internal(const char *out_file_name, const char *in_file_name,
    Zio_Code in_zio_code, int index_page, Zip_Speedup *speedup)
{
    Zio in_zio, out_zio;
    unsigned char *buffer, *in_buffer, *out_buffer;
    off_t in_total_length, out_total_length;
    ssize_t in_length;
    size_t *out_length;
    struct stat in_status, out_status;
    off_t *slice_location;
    off_t next_location;
    size_t index_length;
    int progress_interval;
    int total_slices;
    int i, j, k;
    int failed = 0;
    int slice_size = EB_SIZE_PAGE << ebzip_level;

    zio_initialize(&in_zio);
    zio_initialize(&out_zio);

    /*
     * Output information.
     */
    if (!ebzip_quiet_flag) {
	fprintf(stderr, _("==> compress %s <==\n"), in_file_name);
	fprintf(stderr, _("output to %s\n"), out_file_name);
	fflush(stderr);
    }

    /*
     * Get status of the input file.
     */
    if (stat(in_file_name, &in_status) < 0 || !S_ISREG(in_status.st_mode)) {
        fprintf(stderr, _("%s: no such file: %s\n"), invoked_name,
            in_file_name);
        goto failed;
    }

    /*
     * Do nothing if the `in_file_name' and `out_file_name' are the same.
     */
    if (is_same_file(out_file_name, in_file_name)) {
	if (!ebzip_quiet_flag) {
	    fprintf(stderr,
		_("the input and output files are the same, skipped.\n\n"));
	    fflush(stderr);
	}
	return 0;
    }

    /*
     * Allocate memories for in/out buffers.
     */
    buffer = (unsigned char *)malloc((slice_size * 2 + ZIO_SIZE_EBZIP_MARGIN
	+ sizeof(off_t) + sizeof(size_t)) * ebzip_slice_number);
    if (!buffer) {
	fprintf(stderr, _("%s: memory exhausted\n"), invoked_name);
	goto failed;
    }

    out_length = (size_t *)buffer;
    slice_location = (off_t *)buffer + sizeof(size_t) * ebzip_slice_number;
    in_buffer = buffer + (sizeof(size_t) + sizeof(off_t)) * ebzip_slice_number;
    out_buffer = in_buffer + slice_size * ebzip_slice_number;

    /*
     * If the file `out_file_name' already exists, confirm and unlink it.
     */
    if (!ebzip_test_flag
	&& stat(out_file_name, &out_status) == 0
	&& S_ISREG(out_status.st_mode)) {
	if (ebzip_overwrite_mode == EBZIP_OVERWRITE_NO) {
	    if (!ebzip_quiet_flag) {
		fputs(_("already exists, skip the file\n\n"), stderr);
		fflush(stderr);
	    }
	    return 0;
	} else if (ebzip_overwrite_mode == EBZIP_OVERWRITE_CONFIRM) {
	    int y_or_n;

	    fprintf(stderr, _("\nthe file already exists: %s\n"),
		out_file_name);
	    y_or_n = query_y_or_n(_("do you wish to overwrite (y or n)? "));
	    fputc('\n', stderr);
	    fflush(stderr);
	    if (!y_or_n)
		return 0;
        }
	if (unlink(out_file_name) < 0) {
	    fprintf(stderr, _("%s: failed to unlink the file: %s\n"),
		invoked_name, out_file_name);
	    goto failed;
	}
    }

    /*
     * Open files.
     */
    if (zio_open(&in_zio, in_file_name, in_zio_code) < 0) {
	fprintf(stderr, _("%s: failed to open the file: %s\n"),
	    invoked_name, in_file_name);
	goto failed;
    }
    if (in_zio_code == ZIO_SEBXA) {
	off_t index_location;
	off_t index_base;
	off_t zio_start_location;
	off_t zio_end_location;

	if (get_sebxa_indexes(in_file_name, index_page, &index_location,
	    &index_base, &zio_start_location, &zio_end_location) < 0) {
	    goto failed;
	}
	zio_set_sebxa_mode(&in_zio, index_location, index_base,
	    zio_start_location, zio_end_location);
    }

    if (!ebzip_test_flag) {
	trap_file_name = out_file_name;
#ifdef SIGHUP
	signal(SIGHUP, trap);
#endif
	signal(SIGINT, trap);
#ifdef SIGQUIT
	signal(SIGQUIT, trap);
#endif
#ifdef SIGTERM
	signal(SIGTERM, trap);
#endif

#ifdef O_CREAT
	out_zio.file = open(out_file_name,
	    O_CREAT | O_TRUNC | O_WRONLY | O_BINARY, 0666 ^ get_umask());
#else
	out_zio.file = creat(out_file_name, 0666 ^ get_umask());
#endif
	if (out_zio.file < 0) {
	    fprintf(stderr, _("%s: failed to open the file, %s: %s\n"),
		invoked_name, strerror(errno), out_file_name);
	    goto failed;
	}
	trap_file = out_zio.file;
    }

    /*
     * Initialize `zip'.
     */
    out_zio.code = ZIO_EBZIP1;
    out_zio.slice_size = slice_size;
    out_zio.file_size = in_zio.file_size;
    out_zio.crc = 1;
    out_zio.mtime = in_status.st_mtime;

    if (out_zio.file_size      < (off_t) 1 << 16)
	out_zio.index_width = 2;
    else if (out_zio.file_size < (off_t) 1 << 24)
	out_zio.index_width = 3;
    else if (out_zio.file_size < (off_t) 1 << 32 || !off_t_is_large)
	out_zio.index_width = 4;
    else
	out_zio.index_width = 5;

    /*
     * Fill header and index part with `\0'.
     *
     * Original File:
     *   +-----------------+-----------------+-....-+-------+
     *   |     slice 1     |     slice 2     |      |slice N| [EOF]
     *   |                 |                 |      |       |
     *   +-----------------+-----------------+-....-+-------+
     *        slice_size        slice_size            odds
     *   <-------------------- file size ------------------->
     *
     * Compressed file:
     *   +------+---------+...+---------+---------+----------+...+-
     *   |Header|index for|   |index for|index for|compressed|   |
     *   |      | slice 1 |   | slice N |   EOF   |  slice 1 |   |
     *   +------+---------+...+---------+---------+----------+...+-
     *             index         index     index
     *             width         width     width
     *          <---------  index_length --------->
     *
     *     total_slices = N = (file_size + slice_size - 1) / slice_size
     *     index_length = (N + 1) * index_width
     */
    total_slices = (out_zio.file_size + slice_size - 1) / slice_size;
    index_length = (total_slices + 1) * out_zio.index_width;
    memset(out_buffer, '\0', slice_size);

    if (!ebzip_test_flag) {
	for (i = index_length + ZIO_SIZE_EBZIP_HEADER;
	     slice_size <= i; i -= slice_size) {
	    if (write(out_zio.file, out_buffer, slice_size) != slice_size) {
		fprintf(stderr, _("%s: failed to write to the file: %s\n"),
		    invoked_name, out_file_name);
		goto failed;
	    }
	}
	if (0 < i) {
	    if (write(out_zio.file, out_buffer, i) != i) {
		fprintf(stderr, _("%s: failed to write to the file: %s\n"),
		    invoked_name, out_file_name);
		goto failed;
	    }
	}
    }

    /*
     * Read a slice from the input file, compress it, and then
     * write it to the output file.
     */
    in_total_length = 0;
    out_total_length = 0;
    progress_interval = EBZIP_PROGRESS_INTERVAL_FACTOR >> ebzip_level;
    if (((total_slices + 999) / 1000) > progress_interval)
	progress_interval = ((total_slices + 999) / 1000);

    for (i = 0; i < total_slices; i += j) {
	j = (i + ebzip_slice_number) < total_slices ?
	    ebzip_slice_number : total_slices - i;

	for (k = 0; k < j; k++) {
	    /*
	     * Read a slice from the original file.
	     */
	    if (zio_lseek(&in_zio, in_total_length, SEEK_SET) < 0) {
		fprintf(stderr, _("%s: failed to seek the file: %s\n"),
		    invoked_name, in_file_name);
		goto failed;
	    }
	    in_length = zio_read(&in_zio, (char *)(in_buffer + k * slice_size),
	        slice_size);
	    if (in_length < 0) {
		fprintf(stderr, _("%s: failed to read from the file: %s\n"),
		    invoked_name, in_file_name);
		goto failed;
	    } else if (in_length == 0) {
		fprintf(stderr, _("%s: unexpected EOF: %s\n"),
		    invoked_name, in_file_name);
		goto failed;
	    } else if (in_length != slice_size
		   && in_total_length + in_length != out_zio.file_size) {
		fprintf(stderr, _("%s: unexpected EOF: %s\n"),
		    invoked_name, in_file_name);
		goto failed;
	    }

	    /*
	     * Update CRC.  (Calculate adler32 again.)
	     */
#ifdef ENABLE_LIBDEFLATE
	    out_zio.crc = libdeflate_adler32
		((uint32_t)out_zio.crc, in_buffer + k * slice_size,
		 (size_t)in_length);
#else
	    out_zio.crc = adler32((uLong)out_zio.crc,
	        (Bytef *)(in_buffer + k * slice_size), (uInt)in_length);
#endif

	    /*
	     * If this is last slice and its length is shorter than
	     * `slice_size', fill `\0'.
	     */
	    if (in_length < slice_size) {
		memset(in_buffer + k * slice_size + in_length, '\0',
		   slice_size - in_length);
		in_length = slice_size;
	    }
	    in_total_length += in_length;
	}

#pragma omp parallel for
	for (k = 0; k < j; k++) {
	    if (!failed) {
		/*
		 * Compress the slice.
		 */
		if (speedup != NULL
		    && ebzip_is_speedup_slice(speedup, i + k, ebzip_level)) {
		    out_length[k] = slice_size;
		} else if (ebzip1_slice
			       ((char *)(out_buffer
			       + k * (slice_size + ZIO_SIZE_EBZIP_MARGIN)),
				&out_length[k],
				(char *)(in_buffer + k * slice_size),
				slice_size) < 0) {
		    fprintf(stderr, _("%s: memory exhausted\n"), invoked_name);
		    failed = 1;
		}
		if (slice_size <= out_length[k]) {
		    memcpy(out_buffer
		        + k * (slice_size + ZIO_SIZE_EBZIP_MARGIN),
			in_buffer + k * slice_size, slice_size);
		    out_length[k] = slice_size;
		}
	    }
	}
	if (failed) goto failed;

	for (k = 0; k < j; k++) {
	    /*
	     * Write the slice to the zip file.
	     * If the length of the zipped slice is not shorter than
	     * original, write orignal slice.
	     */
	    if (!ebzip_test_flag) {
		slice_location[k] = lseek(out_zio.file, 0, SEEK_END);
		if (slice_location[k] < 0) {
		    fprintf(stderr, _("%s: failed to seek the file, %s: %s\n"),
		        invoked_name, strerror(errno), out_file_name);
		    goto failed;
		}
		if (write(out_zio.file, out_buffer
		        + k * (slice_size + ZIO_SIZE_EBZIP_MARGIN),
			out_length[k]) != out_length[k]) {
		    fprintf(stderr, _("%s: failed to write to the file: %s\n"),
		        invoked_name, out_file_name);
		    goto failed;
		}
	    }
	}

	for (k = 0; k < j; k++) {
	    /*
	     * Write an index for the slice.
	     */
	    switch (out_zio.index_width) {
	    case 2:
		out_buffer[    2 * k] = (slice_location[k] >>  8) & 0xff;
		out_buffer[1 + 2 * k] =  slice_location[k]        & 0xff;
		break;
	    case 3:
		out_buffer[    3 * k] = (slice_location[k] >> 16) & 0xff;
		out_buffer[1 + 3 * k] = (slice_location[k] >>  8) & 0xff;
		out_buffer[2 + 3 * k] =  slice_location[k]        & 0xff;
		break;
	    case 4:
		out_buffer[    4 * k] = (slice_location[k] >> 24) & 0xff;
		out_buffer[1 + 4 * k] = (slice_location[k] >> 16) & 0xff;
		out_buffer[2 + 4 * k] = (slice_location[k] >>  8) & 0xff;
		out_buffer[3 + 4 * k] =  slice_location[k]        & 0xff;
		break;
	    case 5:
		out_buffer[    5 * k] = (slice_location[k] >> 32) & 0xff;
		out_buffer[1 + 5 * k] = (slice_location[k] >> 24) & 0xff;
		out_buffer[2 + 5 * k] = (slice_location[k] >> 16) & 0xff;
		out_buffer[3 + 5 * k] = (slice_location[k] >>  8) & 0xff;
		out_buffer[4 + 5 * k] =  slice_location[k]        & 0xff;
		break;
	    }
	    out_total_length += out_length[k] + out_zio.index_width;
	}

	next_location = slice_location[j - 1] + out_length[j - 1];
	switch (out_zio.index_width) {
	case 2:
	    out_buffer[    2 * j] = (next_location  >>  8) & 0xff;
	    out_buffer[1 + 2 * j] =  next_location            & 0xff;
	    break;
	case 3:
	    out_buffer[    3 * j] = (next_location  >> 16) & 0xff;
	    out_buffer[1 + 3 * j] = (next_location  >>  8) & 0xff;
	    out_buffer[2 + 3 * j] =  next_location            & 0xff;
	    break;
	case 4:
	    out_buffer[    4 * j] = (next_location  >> 24) & 0xff;
	    out_buffer[1 + 4 * j] = (next_location  >> 16) & 0xff;
	    out_buffer[2 + 4 * j] = (next_location  >>  8) & 0xff;
	    out_buffer[3 + 4 * j] =  next_location            & 0xff;
	    break;
	case 5:
	    out_buffer[    5 * j] = (next_location  >> 32) & 0xff;
	    out_buffer[1 + 5 * j] = (next_location  >> 24) & 0xff;
	    out_buffer[2 + 5 * j] = (next_location  >> 16) & 0xff;
	    out_buffer[3 + 5 * j] = (next_location  >>  8) & 0xff;
	    out_buffer[4 + 5 * j] =  next_location            & 0xff;
	    break;
	}

	if (!ebzip_test_flag) {
	    if (lseek(out_zio.file,
	        ZIO_SIZE_EBZIP_HEADER + (off_t) i * out_zio.index_width,
		SEEK_SET) < 0) {
		fprintf(stderr, _("%s: failed to seek the file, %s: %s\n"),
		    invoked_name, strerror(errno), out_file_name);
		goto failed;
	    }
	    if (write(out_zio.file, out_buffer, out_zio.index_width * (j + 1))
		!= out_zio.index_width * (j + 1)) {
		fprintf(stderr, _("%s: failed to write to the file, %s: %s\n"),
		    invoked_name, strerror(errno), out_file_name);
		goto failed;
	    }
	}

	/*
	 * Output status information unless `quiet' mode.
	 */
	if (!ebzip_quiet_flag
	    && (j >= progress_interval
		|| (i + j) / progress_interval > i / progress_interval)) {
#if defined(PRINTF_LL_MODIFIER)
	    fprintf(stderr, _("%4.1f%% done (%llu / %llu bytes)\n"),
		    (double) (i + k + 1) * 100.0 / (double) total_slices,
		    (unsigned long long) in_total_length,
		    (unsigned long long) in_zio.file_size);
#elif defined(PRINTF_I64_MODIFIER)
	    fprintf(stderr, _("%4.1f%% done (%I64u / %I64u bytes)\n"),
		    (double) (i + k + 1) * 100.0 / (double) total_slices,
		    (unsigned __int64) in_total_length,
		    (unsigned __int64) in_zio.file_size);
#else
	    fprintf(stderr, _("%4.1f%% done (%lu / %lu bytes)\n"),
		    (double) (i + k + 1) * 100.0 / (double) total_slices,
		    (unsigned long) in_total_length,
		    (unsigned long) in_zio.file_size);
#endif
		    fflush(stderr);
	}
    }

    /*
     * Write a header part (22 bytes):
     *     magic-id		5   bytes  ( 0 ...  4)
     *     zip-mode		4/8 bytes  ( 5)
     *     slice_size		4/8 bytes  ( 5)
     *     (reserved)		4   bytes  ( 6 ...  9)
     *     file_size		4   bytes  (10 ... 13)
     *     crc			4   bytes  (14 ... 17)
     *     mtime		4   bytes  (18 ... 21)
     */
    memcpy(out_buffer, "EBZip", 5);

    if (out_zio.file_size < (off_t) 1 << 32 || !off_t_is_large)
	out_buffer[5] = (1 << 4) + (ebzip_level & 0x0f);
    else
	out_buffer[5] = (2 << 4) + (ebzip_level & 0x0f);
    out_buffer[ 6] = 0;
    out_buffer[ 7] = 0;
    out_buffer[ 8] = 0;
    out_buffer[ 9] = (out_zio.file_size >> 32) & 0xff;
    out_buffer[10] = (out_zio.file_size >> 24) & 0xff;
    out_buffer[11] = (out_zio.file_size >> 16) & 0xff;
    out_buffer[12] = (out_zio.file_size >> 8) & 0xff;
    out_buffer[13] = out_zio.file_size & 0xff;
    out_buffer[14] = (out_zio.crc >> 24) & 0xff;
    out_buffer[15] = (out_zio.crc >> 16) & 0xff;
    out_buffer[16] = (out_zio.crc >> 8) & 0xff;
    out_buffer[17] = out_zio.crc & 0xff;
    out_buffer[18] = (out_zio.mtime >> 24) & 0xff;
    out_buffer[19] = (out_zio.mtime >> 16) & 0xff;
    out_buffer[20] = (out_zio.mtime >> 8) & 0xff;
    out_buffer[21] = out_zio.mtime & 0xff;

    if (!ebzip_test_flag) {
	if (lseek(out_zio.file, 0, SEEK_SET) < 0) {
	    fprintf(stderr, _("%s: failed to seek the file, %s: %s\n"),
	        invoked_name, strerror(errno), out_file_name);
	    goto failed;
	}
	if (write(out_zio.file, out_buffer, ZIO_SIZE_EBZIP_HEADER)
	    != ZIO_SIZE_EBZIP_HEADER) {
	    fprintf(stderr, _("%s: failed to write to the file, %s: %s\n"),
		invoked_name, strerror(errno), out_file_name);
	    goto failed;
	}
    }

    /*
     * Output the result information unless quiet mode.
     */
    out_total_length += ZIO_SIZE_EBZIP_HEADER + out_zio.index_width;

    if (!ebzip_quiet_flag) {
#if defined(PRINTF_LL_MODIFIER)
	fprintf(stderr, _("completed (%llu / %llu bytes)\n"),
		(unsigned long long) in_zio.file_size,
		(unsigned long long) in_zio.file_size);
	if (in_total_length != 0) {
	    fprintf(stderr, _("%llu -> %llu bytes (%4.1f%%)\n\n"),
		    (unsigned long long) in_zio.file_size,
		    (unsigned long long) out_total_length,
		    (double) out_total_length * 100.0
		    / (double) in_zio.file_size);
	} else {
	    fprintf(stderr, _("%llu -> %llu bytes\n\n"),
		    (unsigned long long) in_zio.file_size,
		    (unsigned long long) out_total_length);
	}
#elif defined(PRINTF_I64_MODIFIER)
	fprintf(stderr, _("completed (%I64u / %I64u bytes)\n"),
	    (unsigned __int64) in_zio.file_size,
	    (unsigned __int64) in_zio.file_size);
	if (in_total_length != 0) {
	    fprintf(stderr, _("%I64u -> %I64u bytes (%4.1f%%)\n\n"),
		(unsigned __int64) in_zio.file_size,
		(unsigned __int64) out_total_length,
		(double) out_total_length * 100.0 / (double) in_zio.file_size);
	} else {
	    fprintf(stderr, _("%I64u -> %I64u bytes\n\n"),
		(unsigned __int64) in_zio.file_size,
		(unsigned __int64) out_total_length);
	}
#else
	fprintf(stderr, _("completed (%lu / %lu bytes)\n"),
	    (unsigned long) in_zio.file_size,
	    (unsigned long) in_zio.file_size);
	if (in_total_length != 0) {
	    fprintf(stderr, _("%lu -> %lu bytes (%4.1f%%)\n\n"),
		(unsigned long) in_zio.file_size,
		(unsigned long) out_total_length,
		(double) out_total_length * 100.0 / (double) in_zio.file_size);
	} else {
	    fprintf(stderr, _("%lu -> %lu bytes\n\n"),
		(unsigned long) in_zio.file_size,
		(unsigned long) out_total_length);
	}
#endif
	fflush(stderr);
    }

    /*
     * Close files.
     */
    zio_close(&in_zio);
    zio_finalize(&in_zio);

    if (!ebzip_test_flag) {
	close(out_zio.file);
	out_zio.file = -1;
	zio_finalize(&out_zio);
	trap_file = -1;
	trap_file_name = NULL;
#ifdef SIGHUP
	signal(SIGHUP, SIG_DFL);
#endif
	signal(SIGINT, SIG_DFL);
#ifdef SIGQUIT
	signal(SIGQUIT, SIG_DFL);
#endif
#ifdef SIGTERM
	signal(SIGTERM, SIG_DFL);
#endif
    }

    /*
     * Delete an original file unless the keep flag is set.
     */
    if (!ebzip_test_flag && !ebzip_keep_flag)
	unlink_files_add(in_file_name);

    /*
     * Set owner, group, permission, atime and utime of `out_zio.file'.
     * We ignore return values of `chown', `chmod' and `utime'.
     */
    if (!ebzip_test_flag) {
	struct utimbuf utim;

	utim.actime = in_status.st_atime;
	utim.modtime = in_status.st_mtime;
	utime(out_file_name, &utim);
    }

    /*
     * Dispose memories.
     */
    free(buffer);

    return 0;

    /*
     * An error occurs...
     */
  failed:
    if (buffer)
      free(buffer);

    zio_close(&in_zio);
    zio_finalize(&in_zio);

    if (0 <= out_zio.file) {
	close(out_zio.file);
	out_zio.file = -1;
	zio_finalize(&out_zio);
	trap_file = -1;
	trap_file_name = NULL;
#ifdef SIGHUP
	signal(SIGHUP, SIG_DFL);
#endif
	signal(SIGINT, SIG_DFL);
#ifdef SIGQUIT
	signal(SIGQUIT, SIG_DFL);
#endif
#ifdef SIGTERM
	signal(SIGTERM, SIG_DFL);
#endif
    }

    fputc('\n', stderr);
    fflush(stderr);

    return -1;
}


/*
 * Signal handler.
 */
static void
trap(int signal_number)
{
    if (0 <= trap_file)
	close(trap_file);
    if (trap_file_name != NULL)
	unlink(trap_file_name);

    exit(1);
}