/* gzclose.c -- zlib gzclose() function
 * Copyright (C) 2004, 2010 Mark Adler
 * For conditions of distribution and use, see copyright notice in zlib.h
 */

#include "gzguts.h"

extern int gzclose_w(gzFile file);
extern int gzclose_r(gzFile file);

/* gzclose() is in a separate file so that it is linked in only if it is used.
   That way the other gzclose functions can be used instead to avoid linking in
   unneeded compression or decompression routines. */
int gzclose(gzFile file)
{
#ifndef NO_GZCOMPRESS
   gz_statep state;

   if (file == NULL)
      return Z_STREAM_ERROR;
   state = (gz_statep)file;

   if (state->mode != GZ_READ)
      return gzclose_w(file);
#endif
   return gzclose_r(file);
}
