text: /* zip.c -- IO on .zip files using zlib
     Version 1.01e, February 12th, 2005
  
     27 Dec 2004 Rolf Kalbermatter
     Modification to zipOpen2 to support globalComment retrieval.
  
     Copyright (C) 1998-2005 Gilles Vollant
  
     Read zip.h for more info
  */
  
  #define NOCRYPT
  #define NOUNCRYPT
  
  #include <stdio.h>
  #include <stdlib.h>
  #include <string.h>
  #include <time.h>
  #include "zlib.h"
  #include "zip.h"
  
  #ifdef STDC
  #  include <stddef.h>
  #  include <string.h>
  #  include <stdlib.h>
  #endif
  #ifdef NO_ERRNO_H
      extern int errno;
  #else
  #   include <errno.h>
  #endif
  
  
  #ifndef local
  #  define local static
  #endif
  /* compile with -Dlocal if your debugger can't find static symbols */
  
  #ifndef VERSIONMADEBY
  # define VERSIONMADEBY   (0x0) /* platform depedent */
  #endif
  
  #ifndef Z_BUFSIZE
  #define Z_BUFSIZE (16384)
  #endif
  
  #ifndef Z_MAXFILENAMEINZIP
  #define Z_MAXFILENAMEINZIP (256)
  #endif
  
  #ifndef ALLOC
  # define ALLOC(size) (malloc(size))
  #endif
  #ifndef TRYFREE
  # define TRYFREE(p) {if (p) free(p);}
  #endif
  
  /*
  #define SIZECENTRALDIRITEM (0x2e)
  #define SIZEZIPLOCALHEADER (0x1e)
  */
  
  /* I've found an old Unix (a SunOS 4.1.3_U1) without all SEEK_* defined.... */
  
  #ifndef SEEK_CUR
  #define SEEK_CUR    1
  #endif
  
  #ifndef SEEK_END
  #define SEEK_END    2
  #endif
  
  #ifndef SEEK_SET
  #define SEEK_SET    0
  #endif
  
  #ifndef DEF_MEM_LEVEL
  #if MAX_MEM_LEVEL >= 8
  #  define DEF_MEM_LEVEL 8
  #else
  #  define DEF_MEM_LEVEL  MAX_MEM_LEVEL
  #endif
  #endif
  const char zip_copyright[] =
     " zip 1.01 Copyright 1998-2004 Gilles Vollant - http://www.winimage.com/zLibDll";
  
  
  #define SIZEDATA_INDATABLOCK (4096-(4*4))
  
  #define LOCALHEADERMAGIC    (0x04034b50)
  #define CENTRALHEADERMAGIC  (0x02014b50)
  #define ENDHEADERMAGIC      (0x06054b50)
  
  #define FLAG_LOCALHEADER_OFFSET (0x06)
  #define CRC_LOCALHEADER_OFFSET  (0x0e)
  
  #define SIZECENTRALHEADER (0x2e) /* 46 */
  
  typedef struct linkedlist_datablock_internal_s
  {
    struct linkedlist_datablock_internal_s* next_datablock;
    uLong  avail_in_this_block;
    uLong  filled_in_this_block;
    uLong  unused; /* for future use and alignement */
    unsigned char data[SIZEDATA_INDATABLOCK];
  } linkedlist_datablock_internal;
  
  typedef struct linkedlist_data_s
  {
      linkedlist_datablock_internal* first_block;
      linkedlist_datablock_internal* last_block;
  } linkedlist_data;
  
  
  typedef struct
  {
      z_stream stream;            /* zLib stream structure for inflate */
      int  stream_initialised;    /* 1 is stream is initialised */
      uInt pos_in_buffered_data;  /* last written byte in buffered_data */
  
      uLong pos_local_header;     /* offset of the local header of the file
                                       currenty writing */
      char* central_header;       /* central header data for the current file */
      uLong size_centralheader;   /* size of the central header for cur file */
      uLong flag;                 /* flag of the file currently writing */
  
      int  method;                /* compression method of file currenty wr.*/
      int  raw;                   /* 1 for directly writing raw data */
      Byte buffered_data[Z_BUFSIZE];/* buffer contain compressed data to be writ*/
      uLong dosDate;
      uLong crc32;
      int  encrypt;
  #ifndef NOCRYPT
      unsigned long keys[3];     /* keys defining the pseudo-random sequence */
      const unsigned long* pcrc_32_tab;
      int crypt_header_size;
  #endif
  } curfile_info;
  
  typedef struct
  {
      zlib_filefunc_def z_filefunc;
      voidpf filestream;        /* io structore of the zipfile */
      linkedlist_data central_dir;/* datablock with central dir in construction*/
      int  in_opened_file_inzip;  /* 1 if a file in the zip is currently writ.*/
      curfile_info ci;            /* info on the file curretly writing */
  
      uLong begin_pos;            /* position of the beginning of the zipfile */
      uLong add_position_when_writting_offset;
      uLong number_entry;
  #ifndef NO_ADDFILEINEXISTINGZIP
      char *globalcomment;
  #endif
  } zip_internal;
  
  
  
  #ifndef NOCRYPT
  #define INCLUDECRYPTINGCODE_IFCRYPTALLOWED
  #include "crypt.h"
  #endif
  
  local linkedlist_datablock_internal* allocate_new_datablock()
  {
      linkedlist_datablock_internal* ldi;
      ldi = (linkedlist_datablock_internal*)
                   ALLOC(sizeof(linkedlist_datablock_internal));
      if (ldi!=NULL)
      {
          ldi->next_datablock = NULL ;
          ldi->filled_in_this_block = 0 ;
          ldi->avail_in_this_block = SIZEDATA_INDATABLOCK ;
      }
      return ldi;
  }
  
  local void free_datablock(ldi)
      linkedlist_datablock_internal* ldi;
  {
      while (ldi!=NULL)
      {
          linkedlist_datablock_internal* ldinext = ldi->next_datablock;
          TRYFREE(ldi);
          ldi = ldinext;
      }
  }
  
  local void init_linkedlist(ll)
      linkedlist_data* ll;
  {
      ll->first_block = ll->last_block = NULL;
  }
  
  local int add_data_in_datablock(ll,buf,len)
      linkedlist_data* ll;
      const void* buf;
      uLong len;
  {
      linkedlist_datablock_internal* ldi;
      const unsigned char* from_copy;
  
      if (ll==NULL)
          return ZIP_INTERNALERROR;
  
      if (ll->last_block == NULL)
      {
          ll->first_block = ll->last_block = allocate_new_datablock();
          if (ll->first_block == NULL)
              return ZIP_INTERNALERROR;
      }
  
      ldi = ll->last_block;
      from_copy = (unsigned char*)buf;
  
      while (len>0)
      {
          uInt copy_this;
          uInt i;
          unsigned char* to_copy;
  
          if (ldi->avail_in_this_block==0)
          {
              ldi->next_datablock = allocate_new_datablock();
              if (ldi->next_datablock == NULL)
                  return ZIP_INTERNALERROR;
              ldi = ldi->next_datablock ;
              ll->last_block = ldi;
          }
  
          if (ldi->avail_in_this_block < len)
              copy_this = (uInt)ldi->avail_in_this_block;
          else
              copy_this = (uInt)len;
  
          to_copy = &(ldi->data[ldi->filled_in_this_block]);
  
          for (i=0;i<copy_this;i++)
              *(to_copy+i)=*(from_copy+i);
  
          ldi->filled_in_this_block += copy_this;
          ldi->avail_in_this_block -= copy_this;
          from_copy += copy_this ;
          len -= copy_this;
      }
      return ZIP_OK;
  }
  
  
  
  /****************************************************************************/
  
  #ifndef NO_ADDFILEINEXISTINGZIP
  /* ===========================================================================
     Inputs a long in LSB order to the given file
     nbByte == 1, 2 or 4 (byte, short or long)
  */
  
  local int ziplocal_putValue OF((const zlib_filefunc_def* pzlib_filefunc_def,
                                  voidpf filestream, uLong x, int nbByte));
  local int ziplocal_putValue (pzlib_filefunc_def, filestream, x, nbByte)
      const zlib_filefunc_def* pzlib_filefunc_def;
      voidpf filestream;
      uLong x;
      int nbByte;
  {
      unsigned char buf[4];
      int n;
      for (n = 0; n < nbByte; n++)
      {
          buf[n] = (unsigned char)(x & 0xff);
          x >>= 8;
      }
      if (x != 0)
        {     /* data overflow - hack for ZIP64 (X Roche) */
        for (n = 0; n < nbByte; n++)
          {
            buf[n] = 0xff;
          }
        }
  
      if (ZWRITE(*pzlib_filefunc_def,filestream,buf,nbByte)!=(uLong)nbByte)
          return ZIP_ERRNO;
      else
          return ZIP_OK;
  }
  
  local void ziplocal_putValue_inmemory OF((void* dest, uLong x, int nbByte));
  local void ziplocal_putValue_inmemory (dest, x, nbByte)
      void* dest;
      uLong x;
      int nbByte;
  {
      unsigned char* buf=(unsigned char*)dest;
      int n;
      for (n = 0; n < nbByte; n++) {
          buf[n] = (unsigned char)(x & 0xff);
          x >>= 8;
      }
  
      if (x != 0)
      {     /* data overflow - hack for ZIP64 */
         for (n = 0; n < nbByte; n++)
         {
            buf[n] = 0xff;
         }
      }
  }
  
  /****************************************************************************/
  
  
  local uLong ziplocal_TmzDateToDosDate(ptm,dosDate)
      const tm_zip* ptm;
      uLong dosDate;
  {
      uLong year = (uLong)ptm->tm_year;
      if (year>1980)
          year-=1980;
      else if (year>80)
          year-=80;
      return
        (uLong) (((ptm->tm_mday) + (32 * (ptm->tm_mon+1)) + (512 * year)) << 16) |
          ((ptm->tm_sec/2) + (32* ptm->tm_min) + (2048 * (uLong)ptm->tm_hour));
  }
  
  
  /****************************************************************************/
  
  local int ziplocal_getByte OF((
      const zlib_filefunc_def* pzlib_filefunc_def,
      voidpf filestream,
      int *pi));
  
  local int ziplocal_getByte(pzlib_filefunc_def,filestream,pi)
      const zlib_filefunc_def* pzlib_filefunc_def;
      voidpf filestream;
      int *pi;
  {
      unsigned char c;
      int err = (int)ZREAD(*pzlib_filefunc_def,filestream,&c,1);
      if (err==1)
      {
          *pi = (int)c;
          return ZIP_OK;
      }
      else
      {
          if (ZERROR(*pzlib_filefunc_def,filestream))
              return ZIP_ERRNO;
          else
              return ZIP_EOF;
      }
  }
  
  
  /* ===========================================================================
     Reads a long in LSB order from the given gz_stream. Sets
  */
  local int ziplocal_getShort OF((
      const zlib_filefunc_def* pzlib_filefunc_def,
      voidpf filestream,
      uLong *pX));
  
  local int ziplocal_getShort (pzlib_filefunc_def,filestream,pX)
      const zlib_filefunc_def* pzlib_filefunc_def;
      voidpf filestream;
      uLong *pX;
  {
      uLong x ;
      int i;
      int err;
  
      err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
      x = (uLong)i;
  
      if (err==ZIP_OK)
          err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
      x += ((uLong)i)<<8;
  
      if (err==ZIP_OK)
          *pX = x;
      else
          *pX = 0;
      return err;
  }
  
  local int ziplocal_getLong OF((
      const zlib_filefunc_def* pzlib_filefunc_def,
      voidpf filestream,
      uLong *pX));
  
  local int ziplocal_getLong (pzlib_filefunc_def,filestream,pX)
      const zlib_filefunc_def* pzlib_filefunc_def;
      voidpf filestream;
      uLong *pX;
  {
      uLong x ;
      int i;
      int err;
  
      err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
      x = (uLong)i;
  
      if (err==ZIP_OK)
          err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
      x += ((uLong)i)<<8;
  
      if (err==ZIP_OK)
          err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
      x += ((uLong)i)<<16;
  
      if (err==ZIP_OK)
          err = ziplocal_getByte(pzlib_filefunc_def,filestream,&i);
      x += ((uLong)i)<<24;
  
      if (err==ZIP_OK)
          *pX = x;
      else
          *pX = 0;
      return err;
  }
  
  #ifndef BUFREADCOMMENT
  #define BUFREADCOMMENT (0x400)
  #endif
  /*
    Locate the Central directory of a zipfile (at the end, just before
      the global comment)
  */
  local uLong ziplocal_SearchCentralDir OF((
      const zlib_filefunc_def* pzlib_filefunc_def,
      voidpf filestream));
  
  local uLong ziplocal_SearchCentralDir(pzlib_filefunc_def,filestream)
      const zlib_filefunc_def* pzlib_filefunc_def;
      voidpf filestream;
  {
      unsigned char* buf;
      uLong uSizeFile;
      uLong uBackRead;
      uLong uMaxBack=0xffff; /* maximum size of global comment */
      uLong uPosFound=0;
  
      if (ZSEEK(*pzlib_filefunc_def,filestream,0,ZLIB_FILEFUNC_SEEK_END) != 0)
          return 0;
  
  
      uSizeFile = ZTELL(*pzlib_filefunc_def,filestream);
  
      if (uMaxBack>uSizeFile)
          uMaxBack = uSizeFile;
  
      buf = (unsigned char*)ALLOC(BUFREADCOMMENT+4);
      if (buf==NULL)
          return 0;
  
      uBackRead = 4;
      while (uBackRead<uMaxBack)
      {
          uLong uReadSize,uReadPos ;
          int i;
          if (uBackRead+BUFREADCOMMENT>uMaxBack)
              uBackRead = uMaxBack;
          else
              uBackRead+=BUFREADCOMMENT;
          uReadPos = uSizeFile-uBackRead ;
  
          uReadSize = ((BUFREADCOMMENT+4) < (uSizeFile-uReadPos)) ?
                       (BUFREADCOMMENT+4) : (uSizeFile-uReadPos);
          if (ZSEEK(*pzlib_filefunc_def,filestream,uReadPos,ZLIB_FILEFUNC_SEEK_SET)!=0)
              break;
  
          if (ZREAD(*pzlib_filefunc_def,filestream,buf,uReadSize)!=uReadSize)
              break;
  
          for (i=(int)uReadSize-3; (i--)>0;)
              if (((*(buf+i))==0x50) && ((*(buf+i+1))==0x4b) &&
                  ((*(buf+i+2))==0x05) && ((*(buf+i+3))==0x06))
              {
                  uPosFound = uReadPos+i;
                  break;
              }
  
          if (uPosFound!=0)
              break;
      }
      TRYFREE(buf);
      return uPosFound;
  }
  #endif /* !NO_ADDFILEINEXISTINGZIP*/
  
  /************************************************************/
  extern zipFile ZEXPORT zipOpen2 (pathname, append, globalcomment, pzlib_filefunc_def)
      const char *pathname;
      int append;
      zipcharpc* globalcomment;
      zlib_filefunc_def* pzlib_filefunc_def;
  {
      zip_internal ziinit;
      zip_internal* zi;
      int err=ZIP_OK;
  
  
      if (pzlib_filefunc_def==NULL)
          fill_fopen_filefunc(&ziinit.z_filefunc);
      else
          ziinit.z_filefunc = *pzlib_filefunc_def;
  
      ziinit.filestream = (*(ziinit.z_filefunc.zopen_file))
                   (ziinit.z_filefunc.opaque,
                    pathname,
                    (append == APPEND_STATUS_CREATE) ?
                    (ZLIB_FILEFUNC_MODE_READ | ZLIB_FILEFUNC_MODE_WRITE | ZLIB_FILEFUNC_MODE_CREATE) :
                      (ZLIB_FILEFUNC_MODE_READ | ZLIB_FILEFUNC_MODE_WRITE | ZLIB_FILEFUNC_MODE_EXISTING));
  
      if (ziinit.filestream == NULL)
          return NULL;
      ziinit.begin_pos = ZTELL(ziinit.z_filefunc,ziinit.filestream);
      ziinit.in_opened_file_inzip = 0;
      ziinit.ci.stream_initialised = 0;
      ziinit.number_entry = 0;
      ziinit.add_position_when_writting_offset = 0;
      init_linkedlist(&(ziinit.central_dir));
  
  
      zi = (zip_internal*)ALLOC(sizeof(zip_internal));
      if (zi==NULL)
      {
          ZCLOSE(ziinit.z_filefunc,ziinit.filestream);
          return NULL;
      }
  
      /* now we add file in a zipfile */
  #    ifndef NO_ADDFILEINEXISTINGZIP
      ziinit.globalcomment = NULL;
      if (append == APPEND_STATUS_ADDINZIP)
      {
          uLong byte_before_the_zipfile;/* byte before the zipfile, (>0 for sfx)*/
  
          uLong size_central_dir;     /* size of the central directory  */
          uLong offset_central_dir;   /* offset of start of central directory */
          uLong central_pos,uL;
  
          uLong number_disk;          /* number of the current dist, used for
                                      spaning ZIP, unsupported, always 0*/
          uLong number_disk_with_CD;  /* number the the disk with central dir, used
                                      for spaning ZIP, unsupported, always 0*/
          uLong number_entry;
          uLong number_entry_CD;      /* total number of entries in
                                      the central dir
                                      (same than number_entry on nospan) */
          uLong size_comment;
  
          central_pos = ziplocal_SearchCentralDir(&ziinit.z_filefunc,ziinit.filestream);
          if (central_pos==0)
              err=ZIP_ERRNO;
  
          if (ZSEEK(ziinit.z_filefunc, ziinit.filestream,
                                          central_pos,ZLIB_FILEFUNC_SEEK_SET)!=0)
              err=ZIP_ERRNO;
  
          /* the signature, already checked */
          if (ziplocal_getLong(&ziinit.z_filefunc, ziinit.filestream,&uL)!=ZIP_OK)
              err=ZIP_ERRNO;
  
          /* number of this disk */
          if (ziplocal_getShort(&ziinit.z_filefunc, ziinit.filestream,&number_disk)!=ZIP_OK)
              err=ZIP_ERRNO;
  
          /* number of the disk with the start of the central directory */
          if (ziplocal_getShort(&ziinit.z_filefunc, ziinit.filestream,&number_disk_with_CD)!=ZIP_OK)
              err=ZIP_ERRNO;
  
          /* total number of entries in the central dir on this disk */
          if (ziplocal_getShort(&ziinit.z_filefunc, ziinit.filestream,&number_entry)!=ZIP_OK)
              err=ZIP_ERRNO;
  
          /* total number of entries in the central dir */
          if (ziplocal_getShort(&ziinit.z_filefunc, ziinit.filestream,&number_entry_CD)!=ZIP_OK)
              err=ZIP_ERRNO;
  
          if ((number_entry_CD!=number_entry) ||
              (number_disk_with_CD!=0) ||
              (number_disk!=0))
              err=ZIP_BADZIPFILE;
  
          /* size of the central directory */
          if (ziplocal_getLong(&ziinit.z_filefunc, ziinit.filestream,&size_central_dir)!=ZIP_OK)
              err=ZIP_ERRNO;
  
          /* offset of start of central directory with respect to the
              starting disk number */
          if (ziplocal_getLong(&ziinit.z_filefunc, ziinit.filestream,&offset_central_dir)!=ZIP_OK)
              err=ZIP_ERRNO;
  
          /* zipfile global comment length */
          if (ziplocal_getShort(&ziinit.z_filefunc, ziinit.filestream,&size_comment)!=ZIP_OK)
              err=ZIP_ERRNO;
  
          if ((central_pos<offset_central_dir+size_central_dir) &&
              (err==ZIP_OK))
              err=ZIP_BADZIPFILE;
  
          if (err!=ZIP_OK)
          {
              ZCLOSE(ziinit.z_filefunc, ziinit.filestream);
              TRYFREE(zi);
              return NULL;
          }
  
          if (size_comment>0)
          {
              ziinit.globalcomment = ALLOC(size_comment+1);
              if (ziinit.globalcomment)
              {
                 size_comment = ZREAD(ziinit.z_filefunc, ziinit.filestream,ziinit.globalcomment,size_comment);
                 ziinit.globalcomment[size_comment]=0;
              }
          }
  
          byte_before_the_zipfile = central_pos -
                                  (offset_central_dir+size_central_dir);
          ziinit.add_position_when_writting_offset = byte_before_the_zipfile;
  
          {
              uLong size_central_dir_to_read = size_central_dir;
              size_t buf_size = SIZEDATA_INDATABLOCK;
              void* buf_read = (void*)ALLOC(buf_size);
              if (ZSEEK(ziinit.z_filefunc, ziinit.filestream,
                    offset_central_dir + byte_before_the_zipfile,
                    ZLIB_FILEFUNC_SEEK_SET) != 0)
                    err=ZIP_ERRNO;
  
              while ((size_central_dir_to_read>0) && (err==ZIP_OK))
              {
                  uLong read_this = SIZEDATA_INDATABLOCK;
                  if (read_this > size_central_dir_to_read)
                      read_this = size_central_dir_to_read;
                  if (ZREAD(ziinit.z_filefunc, ziinit.filestream,buf_read,read_this) != read_this)
                      err=ZIP_ERRNO;
  
                  if (err==ZIP_OK)
                      err = add_data_in_datablock(&ziinit.central_dir,buf_read,
                                                  (uLong)read_this);
                  size_central_dir_to_read-=read_this;
              }
              TRYFREE(buf_read);
          }
          ziinit.begin_pos = byte_before_the_zipfile;
          ziinit.number_entry = number_entry_CD;
  
          if (ZSEEK(ziinit.z_filefunc, ziinit.filestream,
                    offset_central_dir+byte_before_the_zipfile,ZLIB_FILEFUNC_SEEK_SET)!=0)
              err=ZIP_ERRNO;
      }
  
      if (globalcomment)
      {
        *globalcomment = ziinit.globalcomment;
      }
  #    endif /* !NO_ADDFILEINEXISTINGZIP*/
  
      if (err != ZIP_OK)
      {
  #    ifndef NO_ADDFILEINEXISTINGZIP
          TRYFREE(ziinit.globalcomment);
  #    endif /* !NO_ADDFILEINEXISTINGZIP*/
          TRYFREE(zi);
          return NULL;
      }
      else
      {
          *zi = ziinit;
          return (zipFile)zi;
      }
  }
  
  extern zipFile ZEXPORT zipOpen (pathname, append)
      const char *pathname;
      int append;
  {
      return zipOpen2(pathname,append,NULL,NULL);
  }
  
  extern int ZEXPORT zipOpenNewFileInZip3 (file, filename, zipfi,
                                           extrafield_local, size_extrafield_local,
                                           extrafield_global, size_extrafield_global,
                                           comment, method, level, raw,
                                           windowBits, memLevel, strategy,
                                           password, crcForCrypting)
      zipFile file;
      const char* filename;
      const zip_fileinfo* zipfi;
      const void* extrafield_local;
      uInt size_extrafield_local;
      const void* extrafield_global;
      uInt size_extrafield_global;
      const char* comment;
      int method;
      int level;
      int raw;
      int windowBits;
      int memLevel;
      int strategy;
      const char* password;
      uLong crcForCrypting;
  {
      zip_internal* zi;
      uInt size_filename;
      uInt size_comment;
      uInt i;
      int err = ZIP_OK;
  
  #    ifdef NOCRYPT
      if (password != NULL)
          return ZIP_PARAMERROR;
  #    endif
  
      if (file == NULL)
          return ZIP_PARAMERROR;
      if ((method!=0) && (method!=Z_DEFLATED))
          return ZIP_PARAMERROR;
  
      zi = (zip_internal*)file;
  
      if (zi->in_opened_file_inzip == 1)
      {
          err = zipCloseFileInZip (file);
          if (err != ZIP_OK)
              return err;
      }
  
  
      if (filename==NULL)
          filename="-";
  
      if (comment==NULL)
          size_comment = 0;
      else
          size_comment = (uInt)strlen(comment);
  
      size_filename = (uInt)strlen(filename);
  
      if (zipfi == NULL)
          zi->ci.dosDate = 0;
      else
      {
          if (zipfi->dosDate != 0)
              zi->ci.dosDate = zipfi->dosDate;
          else zi->ci.dosDate = ziplocal_TmzDateToDosDate(&zipfi->tmz_date,zipfi->dosDate);
      }
  
      zi->ci.flag = 0;
      if ((level==8) || (level==9))
        zi->ci.flag |= 2;
      if (level==2)
        zi->ci.flag |= 4;
      if (level==1)
        zi->ci.flag |= 6;
      if (password != NULL)
        zi->ci.flag |= 1;
  
      zi->ci.crc32 = 0;
      zi->ci.method = method;
      zi->ci.encrypt = 0;
      zi->ci.stream_initialised = 0;
      zi->ci.pos_in_buffered_data = 0;
      zi->ci.raw = raw;
      zi->ci.pos_local_header = ZTELL(zi->z_filefunc,zi->filestream) ;
      zi->ci.size_centralheader = SIZECENTRALHEADER + size_filename +
                                        size_extrafield_global + size_comment;
      zi->ci.central_header = (char*)ALLOC((uInt)zi->ci.size_centralheader);
  
      ziplocal_putValue_inmemory(zi->ci.central_header,(uLong)CENTRALHEADERMAGIC,4);
      /* version info */
      ziplocal_putValue_inmemory(zi->ci.central_header+4,(uLong)VERSIONMADEBY,2);
      ziplocal_putValue_inmemory(zi->ci.central_header+6,(uLong)20,2);
      ziplocal_putValue_inmemory(zi->ci.central_header+8,(uLong)zi->ci.flag,2);
      ziplocal_putValue_inmemory(zi->ci.central_header+10,(uLong)zi->ci.method,2);
      ziplocal_putValue_inmemory(zi->ci.central_header+12,(uLong)zi->ci.dosDate,4);
      ziplocal_putValue_inmemory(zi->ci.central_header+16,(uLong)0,4); /*crc*/
      ziplocal_putValue_inmemory(zi->ci.central_header+20,(uLong)0,4); /*compr size*/
      ziplocal_putValue_inmemory(zi->ci.central_header+24,(uLong)0,4); /*uncompr size*/
      ziplocal_putValue_inmemory(zi->ci.central_header+28,(uLong)size_filename,2);
      ziplocal_putValue_inmemory(zi->ci.central_header+30,(uLong)size_extrafield_global,2);
      ziplocal_putValue_inmemory(zi->ci.central_header+32,(uLong)size_comment,2);
      ziplocal_putValue_inmemory(zi->ci.central_header+34,(uLong)0,2); /*disk nm start*/
  
      if (zipfi==NULL)
          ziplocal_putValue_inmemory(zi->ci.central_header+36,(uLong)0,2);
      else
          ziplocal_putValue_inmemory(zi->ci.central_header+36,(uLong)zipfi->internal_fa,2);
  
      if (zipfi==NULL)
          ziplocal_putValue_inmemory(zi->ci.central_header+38,(uLong)0,4);
      else
          ziplocal_putValue_inmemory(zi->ci.central_header+38,(uLong)zipfi->external_fa,4);
  
      ziplocal_putValue_inmemory(zi->ci.central_header+42,(uLong)zi->ci.pos_local_header- zi->add_position_when_writting_offset,4);
  
      for (i=0;i<size_filename;i++)
          *(zi->ci.central_header+SIZECENTRALHEADER+i) = *(filename+i);
  
      for (i=0;i<size_extrafield_global;i++)
          *(zi->ci.central_header+SIZECENTRALHEADER+size_filename+i) =
                *(((const char*)extrafield_global)+i);
  
      for (i=0;i<size_comment;i++)
          *(zi->ci.central_header+SIZECENTRALHEADER+size_filename+
                size_extrafield_global+i) = *(comment+i);
      if (zi->ci.central_header == NULL)
          return ZIP_INTERNALERROR;
  
      /* write the local header */
      err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)LOCALHEADERMAGIC,4);
  
      if (err==ZIP_OK)
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)20,2);/* version needed to extract */
      if (err==ZIP_OK)
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)zi->ci.flag,2);
  
      if (err==ZIP_OK)
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)zi->ci.method,2);
  
      if (err==ZIP_OK)
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)zi->ci.dosDate,4);
  
      if (err==ZIP_OK)
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)0,4); /* crc 32, unknown */
      if (err==ZIP_OK)
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)0,4); /* compressed size, unknown */
      if (err==ZIP_OK)
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)0,4); /* uncompressed size, unknown */
  
      if (err==ZIP_OK)
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)size_filename,2);
  
      if (err==ZIP_OK)
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)size_extrafield_local,2);
  
      if ((err==ZIP_OK) && (size_filename>0))
          if (ZWRITE(zi->z_filefunc,zi->filestream,filename,size_filename)!=size_filename)
                  err = ZIP_ERRNO;
  
      if ((err==ZIP_OK) && (size_extrafield_local>0))
          if (ZWRITE(zi->z_filefunc,zi->filestream,extrafield_local,size_extrafield_local)
                                                                             !=size_extrafield_local)
                  err = ZIP_ERRNO;
  
      zi->ci.stream.avail_in = (uInt)0;
      zi->ci.stream.avail_out = (uInt)Z_BUFSIZE;
      zi->ci.stream.next_out = zi->ci.buffered_data;
      zi->ci.stream.total_in = 0;
      zi->ci.stream.total_out = 0;
  
      if ((err==ZIP_OK) && (zi->ci.method == Z_DEFLATED) && (!zi->ci.raw))
      {
          zi->ci.stream.zalloc = (alloc_func)0;
          zi->ci.stream.zfree = (free_func)0;
          zi->ci.stream.opaque = (voidpf)0;
  
          if (windowBits>0)
              windowBits = -windowBits;
  
          err = deflateInit2(&zi->ci.stream, level,
                 Z_DEFLATED, windowBits, memLevel, strategy);
  
          if (err==Z_OK)
              zi->ci.stream_initialised = 1;
      }
  #    ifndef NOCRYPT
      zi->ci.crypt_header_size = 0;
      if ((err==Z_OK) && (password != NULL))
      {
          unsigned char bufHead[RAND_HEAD_LEN];
          unsigned int sizeHead;
          zi->ci.encrypt = 1;
          zi->ci.pcrc_32_tab = get_crc_table();
          /*init_keys(password,zi->ci.keys,zi->ci.pcrc_32_tab);*/
  
          sizeHead=crypthead(password,bufHead,RAND_HEAD_LEN,zi->ci.keys,zi->ci.pcrc_32_tab,crcForCrypting);
          zi->ci.crypt_header_size = sizeHead;
  
          if (ZWRITE(zi->z_filefunc,zi->filestream,bufHead,sizeHead) != sizeHead)
                  err = ZIP_ERRNO;
      }
  #    endif
  
      if (err==Z_OK)
          zi->in_opened_file_inzip = 1;
      return err;
  }
  
  extern int ZEXPORT zipOpenNewFileInZip2(file, filename, zipfi,
                                          extrafield_local, size_extrafield_local,
                                          extrafield_global, size_extrafield_global,
                                          comment, method, level, raw)
      zipFile file;
      const char* filename;
      const zip_fileinfo* zipfi;
      const void* extrafield_local;
      uInt size_extrafield_local;
      const void* extrafield_global;
      uInt size_extrafield_global;
      const char* comment;
      int method;
      int level;
      int raw;
  {
      return zipOpenNewFileInZip3 (file, filename, zipfi,
                                   extrafield_local, size_extrafield_local,
                                   extrafield_global, size_extrafield_global,
                                   comment, method, level, raw,
                                   -MAX_WBITS, DEF_MEM_LEVEL, Z_DEFAULT_STRATEGY,
                                   NULL, 0);
  }
  
  extern int ZEXPORT zipOpenNewFileInZip (file, filename, zipfi,
                                          extrafield_local, size_extrafield_local,
                                          extrafield_global, size_extrafield_global,
                                          comment, method, level)
      zipFile file;
      const char* filename;
      const zip_fileinfo* zipfi;
      const void* extrafield_local;
      uInt size_extrafield_local;
      const void* extrafield_global;
      uInt size_extrafield_global;
      const char* comment;
      int method;
      int level;
  {
      return zipOpenNewFileInZip2 (file, filename, zipfi,
                                   extrafield_local, size_extrafield_local,
                                   extrafield_global, size_extrafield_global,
                                   comment, method, level, 0);
  }
  
  local int zipFlushWriteBuffer(zi)
    zip_internal* zi;
  {
      int err=ZIP_OK;
  
      if (zi->ci.encrypt != 0)
      {
  #ifndef NOCRYPT
          uInt i;
          int t;
          for (i=0;i<zi->ci.pos_in_buffered_data;i++)
              zi->ci.buffered_data[i] = zencode(zi->ci.keys, zi->ci.pcrc_32_tab,
                                         zi->ci.buffered_data[i],t);
  #endif
      }
      if (ZWRITE(zi->z_filefunc,zi->filestream,zi->ci.buffered_data,zi->ci.pos_in_buffered_data)
                                                                      !=zi->ci.pos_in_buffered_data)
        err = ZIP_ERRNO;
      zi->ci.pos_in_buffered_data = 0;
      return err;
  }
  
  extern int ZEXPORT zipWriteInFileInZip (file, buf, len)
      zipFile file;
      const void* buf;
      unsigned len;
  {
      zip_internal* zi;
      int err=ZIP_OK;
  
      if (file == NULL)
          return ZIP_PARAMERROR;
      zi = (zip_internal*)file;
  
      if (zi->in_opened_file_inzip == 0)
          return ZIP_PARAMERROR;
  
      zi->ci.stream.next_in = (void*)buf;
      zi->ci.stream.avail_in = len;
      zi->ci.crc32 = crc32(zi->ci.crc32,buf,len);
  
      while ((err==ZIP_OK) && (zi->ci.stream.avail_in>0))
      {
          if (zi->ci.stream.avail_out == 0)
          {
              if (zipFlushWriteBuffer(zi) == ZIP_ERRNO)
                  err = ZIP_ERRNO;
              zi->ci.stream.avail_out = (uInt)Z_BUFSIZE;
              zi->ci.stream.next_out = zi->ci.buffered_data;
          }
  
  
          if(err != ZIP_OK)
              break;
  
          if ((zi->ci.method == Z_DEFLATED) && (!zi->ci.raw))
          {
              uLong uTotalOutBefore = zi->ci.stream.total_out;
              err=deflate(&zi->ci.stream,  Z_NO_FLUSH);
              zi->ci.pos_in_buffered_data += (uInt)(zi->ci.stream.total_out - uTotalOutBefore) ;
  
          }
          else
          {
              uInt copy_this,i;
              if (zi->ci.stream.avail_in < zi->ci.stream.avail_out)
                  copy_this = zi->ci.stream.avail_in;
              else
                  copy_this = zi->ci.stream.avail_out;
              for (i=0;i<copy_this;i++)
                  *(((char*)zi->ci.stream.next_out)+i) =
                      *(((const char*)zi->ci.stream.next_in)+i);
              {
                  zi->ci.stream.avail_in -= copy_this;
                  zi->ci.stream.avail_out-= copy_this;
                  zi->ci.stream.next_in+= copy_this;
                  zi->ci.stream.next_out+= copy_this;
                  zi->ci.stream.total_in+= copy_this;
                  zi->ci.stream.total_out+= copy_this;
                  zi->ci.pos_in_buffered_data += copy_this;
              }
          }
      }
  
      return err;
  }
  
  extern int ZEXPORT zipCloseFileInZipRaw (file, uncompressed_size, crc32)
      zipFile file;
      uLong uncompressed_size;
      uLong crc32;
  {
      zip_internal* zi;
      uLong compressed_size;
      int err=ZIP_OK;
  
      if (file == NULL)
          return ZIP_PARAMERROR;
      zi = (zip_internal*)file;
  
      if (zi->in_opened_file_inzip == 0)
          return ZIP_PARAMERROR;
      zi->ci.stream.avail_in = 0;
  
      if ((zi->ci.method == Z_DEFLATED) && (!zi->ci.raw))
          while (err==ZIP_OK)
      {
          uLong uTotalOutBefore;
          if (zi->ci.stream.avail_out == 0)
          {
              zipFlushWriteBuffer(zi);
              zi->ci.stream.avail_out = (uInt)Z_BUFSIZE;
              zi->ci.stream.next_out = zi->ci.buffered_data;
          }
          uTotalOutBefore = zi->ci.stream.total_out;
          err=deflate(&zi->ci.stream,  Z_FINISH);
          zi->ci.pos_in_buffered_data += (uInt)(zi->ci.stream.total_out - uTotalOutBefore) ;
      }
  
      if (err==Z_STREAM_END)
          err=ZIP_OK; /* this is normal */
  
      if ((zi->ci.pos_in_buffered_data>0) && (err==ZIP_OK))
          if (zipFlushWriteBuffer(zi)==ZIP_ERRNO)
              err = ZIP_ERRNO;
  
      if ((zi->ci.method == Z_DEFLATED) && (!zi->ci.raw))
      {
          err=deflateEnd(&zi->ci.stream);
          zi->ci.stream_initialised = 0;
      }
  
      if (!zi->ci.raw)
      {
          crc32 = (uLong)zi->ci.crc32;
          uncompressed_size = (uLong)zi->ci.stream.total_in;
      }
      compressed_size = (uLong)zi->ci.stream.total_out;
  #    ifndef NOCRYPT
      compressed_size += zi->ci.crypt_header_size;
  #    endif
  
      ziplocal_putValue_inmemory(zi->ci.central_header+16,crc32,4); /*crc*/
      ziplocal_putValue_inmemory(zi->ci.central_header+20,
                                  compressed_size,4); /*compr size*/
      if (zi->ci.stream.data_type == Z_ASCII)
          ziplocal_putValue_inmemory(zi->ci.central_header+36,(uLong)Z_ASCII,2);
      ziplocal_putValue_inmemory(zi->ci.central_header+24,
                                  uncompressed_size,4); /*uncompr size*/
  
      if (err==ZIP_OK)
          err = add_data_in_datablock(&zi->central_dir,zi->ci.central_header,
                                         (uLong)zi->ci.size_centralheader);
      free(zi->ci.central_header);
  
      if (err==ZIP_OK)
      {
          long cur_pos_inzip = ZTELL(zi->z_filefunc,zi->filestream);
          if (ZSEEK(zi->z_filefunc,zi->filestream,
                    zi->ci.pos_local_header + 14,ZLIB_FILEFUNC_SEEK_SET)!=0)
              err = ZIP_ERRNO;
  
          if (err==ZIP_OK)
              err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,crc32,4); /* crc 32, unknown */
  
          if (err==ZIP_OK) /* compressed size, unknown */
              err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,compressed_size,4);
  
          if (err==ZIP_OK) /* uncompressed size, unknown */
              err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,uncompressed_size,4);
  
          if (ZSEEK(zi->z_filefunc,zi->filestream,
                    cur_pos_inzip,ZLIB_FILEFUNC_SEEK_SET)!=0)
              err = ZIP_ERRNO;
      }
  
      zi->number_entry ++;
      zi->in_opened_file_inzip = 0;
  
      return err;
  }
  
  extern int ZEXPORT zipCloseFileInZip (file)
      zipFile file;
  {
      return zipCloseFileInZipRaw (file,0,0);
  }
  
  extern int ZEXPORT zipClose (file, global_comment)
      zipFile file;
      const char* global_comment;
  {
      zip_internal* zi;
      int err = 0;
      uLong size_centraldir = 0;
      uLong centraldir_pos_inzip;
      uInt size_global_comment;
      if (file == NULL)
          return ZIP_PARAMERROR;
      zi = (zip_internal*)file;
  
      if (zi->in_opened_file_inzip == 1)
      {
          err = zipCloseFileInZip (file);
      }
  
  #ifndef NO_ADDFILEINEXISTINGZIP
      if (global_comment==NULL)
          global_comment = zi->globalcomment;
  #endif
      if (global_comment==NULL)
          size_global_comment = 0;
      else
          size_global_comment = (uInt)strlen(global_comment);
  
      centraldir_pos_inzip = ZTELL(zi->z_filefunc,zi->filestream);
      if (err==ZIP_OK)
      {
          linkedlist_datablock_internal* ldi = zi->central_dir.first_block ;
          while (ldi!=NULL)
          {
              if ((err==ZIP_OK) && (ldi->filled_in_this_block>0))
                  if (ZWRITE(zi->z_filefunc,zi->filestream,
                             ldi->data,ldi->filled_in_this_block)
                                !=ldi->filled_in_this_block )
                      err = ZIP_ERRNO;
  
              size_centraldir += ldi->filled_in_this_block;
              ldi = ldi->next_datablock;
          }
      }
      free_datablock(zi->central_dir.first_block);
  
      if (err==ZIP_OK) /* Magic End */
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)ENDHEADERMAGIC,4);
  
      if (err==ZIP_OK) /* number of this disk */
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)0,2);
  
      if (err==ZIP_OK) /* number of the disk with the start of the central directory */
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)0,2);
  
      if (err==ZIP_OK) /* total number of entries in the central dir on this disk */
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)zi->number_entry,2);
  
      if (err==ZIP_OK) /* total number of entries in the central dir */
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)zi->number_entry,2);
  
      if (err==ZIP_OK) /* size of the central directory */
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)size_centraldir,4);
  
      if (err==ZIP_OK) /* offset of start of central directory with respect to the
                              starting disk number */
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,
                                  (uLong)(centraldir_pos_inzip - zi->add_position_when_writting_offset),4);
  
      if (err==ZIP_OK) /* zipfile comment length */
          err = ziplocal_putValue(&zi->z_filefunc,zi->filestream,(uLong)size_global_comment,2);
  
      if ((err==ZIP_OK) && (size_global_comment>0))
          if (ZWRITE(zi->z_filefunc,zi->filestream,
                     global_comment,size_global_comment) != size_global_comment)
                  err = ZIP_ERRNO;
  
      if (ZCLOSE(zi->z_filefunc,zi->filestream) != 0)
          if (err == ZIP_OK)
              err = ZIP_ERRNO;
  
  #ifndef NO_ADDFILEINEXISTINGZIP
      TRYFREE(zi->globalcomment);
  #endif
      TRYFREE(zi);
  
      return err;
  }
  