reactos/dll/win32/zlib/contrib/minizip/zip.c

   1 /* zip.c -- IO on .zip files using zlib
   2    Version 0.15 beta, Mar 19th, 1998,
   3
   4    Read zip.h for more info
   5 */
   6
   7
   8 #include <stdio.h>
   9 #include <stdlib.h>
  10 #include <string.h>
  11 #include "zlib.h"
  12 #include "zip.h"
  13
  14 #ifdef STDC
  15 #  include <stddef.h>
  16 #  include <string.h>
  17 #  include <stdlib.h>
  18 #endif
  19 #ifdef NO_ERRNO_H
  20     extern int errno;
  21 #else
  22 #   include <errno.h>
  23 #endif
  24
  25
  26 #ifndef local
  27 #  define local static
  28 #endif
  29 /* compile with -Dlocal if your debugger can't find static symbols */
  30
  31 #ifndef VERSIONMADEBY
  32 # define VERSIONMADEBY   (0x0) /* platform depedent */
  33 #endif
  34
  35 #ifndef Z_BUFSIZE
  36 #define Z_BUFSIZE (16384)
  37 #endif
  38
  39 #ifndef Z_MAXFILENAMEINZIP
  40 #define Z_MAXFILENAMEINZIP (256)
  41 #endif
  42
  43 #ifndef ALLOC
  44 # define ALLOC(size) (malloc(size))
  45 #endif
  46 #ifndef TRYFREE
  47 # define TRYFREE(p) {if (p) free(p);}
  48 #endif
  49
  50 /*
  51 #define SIZECENTRALDIRITEM (0x2e)
  52 #define SIZEZIPLOCALHEADER (0x1e)
  53 */
  54
  55 /* I've found an old Unix (a SunOS 4.1.3_U1) without all SEEK_* defined.... */
  56
  57 #ifndef SEEK_CUR
  58 #define SEEK_CUR    1
  59 #endif
  60
  61 #ifndef SEEK_END
  62 #define SEEK_END    2
  63 #endif
  64
  65 #ifndef SEEK_SET
  66 #define SEEK_SET    0
  67 #endif
  68
  69 const char zip_copyright[] =
  70    " zip 0.15 Copyright 1998 Gilles Vollant ";
  71
  72
  73 #define SIZEDATA_INDATABLOCK (4096-(4*4))
  74
  75 #define LOCALHEADERMAGIC    (0x04034b50)
  76 #define CENTRALHEADERMAGIC  (0x02014b50)
  77 #define ENDHEADERMAGIC      (0x06054b50)
  78
  79 #define FLAG_LOCALHEADER_OFFSET (0x06)
  80 #define CRC_LOCALHEADER_OFFSET  (0x0e)
  81
  82 #define SIZECENTRALHEADER (0x2e) /* 46 */
  83
  84 typedef struct linkedlist_datablock_internal_s
  85 {
  86   struct linkedlist_datablock_internal_s* next_datablock;
  87   uLong  avail_in_this_block;
  88   uLong  filled_in_this_block;
  89   uLong  unused; /* for future use and alignement */
  90   unsigned char data[SIZEDATA_INDATABLOCK];
  91 } linkedlist_datablock_internal;
  92
  93 typedef struct linkedlist_data_s
  94 {
  95     linkedlist_datablock_internal* first_block;
  96     linkedlist_datablock_internal* last_block;
  97 } linkedlist_data;
  98
  99
 100 typedef struct
 101 {
 102         z_stream stream;            /* zLib stream structure for inflate */
 103     int  stream_initialised;    /* 1 is stream is initialised */
 104     uInt pos_in_buffered_data;  /* last written byte in buffered_data */
 105
 106     uLong pos_local_header;     /* offset of the local header of the file
 107                                      currenty writing */
 108     char* central_header;       /* central header data for the current file */
 109     uLong size_centralheader;   /* size of the central header for cur file */
 110     uLong flag;                 /* flag of the file currently writing */
 111
 112     int  method;                /* compression method of file currenty wr.*/
 113     Byte buffered_data[Z_BUFSIZE];/* buffer contain compressed data to be writ*/
 114     uLong dosDate;
 115     uLong crc32;
 116 } curfile_info;
 117
 118 typedef struct
 119 {
 120     FILE * filezip;
 121     linkedlist_data central_dir;/* datablock with central dir in construction*/
 122     int  in_opened_file_inzip;  /* 1 if a file in the zip is currently writ.*/
 123     curfile_info ci;            /* info on the file curretly writing */
 124
 125     uLong begin_pos;            /* position of the beginning of the zipfile */
 126     uLong number_entry;
 127 } zip_internal;
 128
 129 local linkedlist_datablock_internal* allocate_new_datablock()
 130 {
 131     linkedlist_datablock_internal* ldi;
 132     ldi = (linkedlist_datablock_internal*)
 133                  ALLOC(sizeof(linkedlist_datablock_internal));
 134     if (ldi!=NULL)
 135     {
 136         ldi->next_datablock = NULL ;
 137         ldi->filled_in_this_block = 0 ;
 138         ldi->avail_in_this_block = SIZEDATA_INDATABLOCK ;
 139     }
 140     return ldi;
 141 }
 142
 143 local void free_datablock(ldi)
 144     linkedlist_datablock_internal* ldi;
 145 {
 146     while (ldi!=NULL)
 147     {
 148         linkedlist_datablock_internal* ldinext = ldi->next_datablock;
 149         TRYFREE(ldi);
 150         ldi = ldinext;
 151     }
 152 }
 153
 154 local void init_linkedlist(ll)
 155     linkedlist_data* ll;
 156 {
 157     ll->first_block = ll->last_block = NULL;
 158 }
 159
 160 local void free_linkedlist(ll)
 161     linkedlist_data* ll;
 162 {
 163     free_datablock(ll->first_block);
 164     ll->first_block = ll->last_block = NULL;
 165 }
 166
 167
 168 local int add_data_in_datablock(ll,buf,len)
 169     linkedlist_data* ll;
 170     const void* buf;
 171     uLong len;
 172 {
 173     linkedlist_datablock_internal* ldi;
 174     const unsigned char* from_copy;
 175
 176     if (ll==NULL)
 177         return ZIP_INTERNALERROR;
 178
 179     if (ll->last_block == NULL)
 180     {
 181         ll->first_block = ll->last_block = allocate_new_datablock();
 182         if (ll->first_block == NULL)
 183             return ZIP_INTERNALERROR;
 184     }
 185
 186     ldi = ll->last_block;
 187     from_copy = (unsigned char*)buf;
 188
 189     while (len>0)
 190     {
 191         uInt copy_this;
 192         uInt i;
 193         unsigned char* to_copy;
 194
 195         if (ldi->avail_in_this_block==0)
 196         {
 197             ldi->next_datablock = allocate_new_datablock();
 198             if (ldi->next_datablock == NULL)
 199                 return ZIP_INTERNALERROR;
 200             ldi = ldi->next_datablock ;
 201             ll->last_block = ldi;
 202         }
 203
 204         if (ldi->avail_in_this_block < len)
 205             copy_this = (uInt)ldi->avail_in_this_block;
 206         else
 207             copy_this = (uInt)len;
 208
 209         to_copy = &(ldi->data[ldi->filled_in_this_block]);
 210
 211         for (i=0;i<copy_this;i++)
 212             *(to_copy+i)=*(from_copy+i);
 213
 214         ldi->filled_in_this_block += copy_this;
 215         ldi->avail_in_this_block -= copy_this;
 216         from_copy += copy_this ;
 217         len -= copy_this;
 218     }
 219     return ZIP_OK;
 220 }
 221
 222
 223 local int write_datablock(fout,ll)
 224     FILE * fout;
 225     linkedlist_data* ll;
 226 {
 227     linkedlist_datablock_internal* ldi;
 228     ldi = ll->first_block;
 229     while (ldi!=NULL)
 230     {
 231         if (ldi->filled_in_this_block > 0)
 232             if (fwrite(ldi->data,(uInt)ldi->filled_in_this_block,1,fout)!=1)
 233                 return ZIP_ERRNO;
 234         ldi = ldi->next_datablock;
 235     }
 236     return ZIP_OK;
 237 }
 238
 239 /****************************************************************************/
 240
 241 /* ===========================================================================
 242    Outputs a long in LSB order to the given file
 243    nbByte == 1, 2 or 4 (byte, short or long)
 244 */
 245
 246 local int ziplocal_putValue OF((FILE *file, uLong x, int nbByte));
 247 local int ziplocal_putValue (file, x, nbByte)
 248     FILE *file;
 249     uLong x;
 250     int nbByte;
 251 {
 252     unsigned char buf[4];
 253     int n;
 254     for (n = 0; n < nbByte; n++) {
 255         buf[n] = (unsigned char)(x & 0xff);
 256         x >>= 8;
 257     }
 258     if (fwrite(buf,nbByte,1,file)!=1)
 259         return ZIP_ERRNO;
 260     else
 261         return ZIP_OK;
 262 }
 263
 264 local void ziplocal_putValue_inmemory OF((void* dest, uLong x, int nbByte));
 265 local void ziplocal_putValue_inmemory (dest, x, nbByte)
 266     void* dest;
 267     uLong x;
 268     int nbByte;
 269 {
 270     unsigned char* buf=(unsigned char*)dest;
 271     int n;
 272     for (n = 0; n < nbByte; n++) {
 273         buf[n] = (unsigned char)(x & 0xff);
 274         x >>= 8;
 275     }
 276 }
 277 /****************************************************************************/
 278
 279
 280 local uLong ziplocal_TmzDateToDosDate(ptm,dosDate)
 281     tm_zip* ptm;
 282     uLong dosDate;
 283 {
 284     uLong year = (uLong)ptm->tm_year;
 285     if (year>1980)
 286         year-=1980;
 287     else if (year>80)
 288         year-=80;
 289     return
 290       (uLong) (((ptm->tm_mday) + (32 * (ptm->tm_mon+1)) + (512 * year)) << 16) |
 291         ((ptm->tm_sec/2) + (32* ptm->tm_min) + (2048 * (uLong)ptm->tm_hour));
 292 }
 293
 294
 295 /****************************************************************************/
 296
 297 extern zipFile ZEXPORT zipOpen (pathname, append)
 298     const char *pathname;
 299     int append;
 300 {
 301     zip_internal ziinit;
 302     zip_internal* zi;
 303
 304     ziinit.filezip = fopen(pathname,(append == 0) ? "wb" : "ab");
 305     if (ziinit.filezip == NULL)
 306         return NULL;
 307     ziinit.begin_pos = ftell(ziinit.filezip);
 308     ziinit.in_opened_file_inzip = 0;
 309     ziinit.ci.stream_initialised = 0;
 310     ziinit.number_entry = 0;
 311     init_linkedlist(&(ziinit.central_dir));
 312
 313
 314     zi = (zip_internal*)ALLOC(sizeof(zip_internal));
 315     if (zi==NULL)
 316     {
 317         fclose(ziinit.filezip);
 318         return NULL;
 319     }
 320
 321     *zi = ziinit;
 322     return (zipFile)zi;
 323 }
 324
 325 extern int ZEXPORT zipOpenNewFileInZip (file, filename, zipfi,
 326                                         extrafield_local, size_extrafield_local,
 327                                         extrafield_global, size_extrafield_global,
 328                                         comment, method, level)
 329     zipFile file;
 330     const char* filename;
 331     const zip_fileinfo* zipfi;
 332     const void* extrafield_local;
 333     uInt size_extrafield_local;
 334     const void* extrafield_global;
 335     uInt size_extrafield_global;
 336     const char* comment;
 337     int method;
 338     int level;
 339 {
 340     zip_internal* zi;
 341     uInt size_filename;
 342     uInt size_comment;
 343     uInt i;
 344     int err = ZIP_OK;
 345
 346     if (file == NULL)
 347         return ZIP_PARAMERROR;
 348     if ((method!=0) && (method!=Z_DEFLATED))
 349         return ZIP_PARAMERROR;
 350
 351     zi = (zip_internal*)file;
 352
 353     if (zi->in_opened_file_inzip == 1)
 354     {
 355         err = zipCloseFileInZip (file);
 356         if (err != ZIP_OK)
 357             return err;
 358     }
 359
 360
 361     if (filename==NULL)
 362         filename="-";
 363
 364     if (comment==NULL)
 365         size_comment = 0;
 366     else
 367         size_comment = strlen(comment);
 368
 369     size_filename = strlen(filename);
 370
 371     if (zipfi == NULL)
 372         zi->ci.dosDate = 0;
 373     else
 374     {
 375         if (zipfi->dosDate != 0)
 376             zi->ci.dosDate = zipfi->dosDate;
 377         else zi->ci.dosDate = ziplocal_TmzDateToDosDate(&zipfi->tmz_date,zipfi->dosDate);
 378     }
 379
 380     zi->ci.flag = 0;
 381     if ((level==8) || (level==9))
 382       zi->ci.flag |= 2;
 383     if ((level==2))
 384       zi->ci.flag |= 4;
 385     if ((level==1))
 386       zi->ci.flag |= 6;
 387
 388     zi->ci.crc32 = 0;
 389     zi->ci.method = method;
 390     zi->ci.stream_initialised = 0;
 391     zi->ci.pos_in_buffered_data = 0;
 392     zi->ci.pos_local_header = ftell(zi->filezip);
 393     zi->ci.size_centralheader = SIZECENTRALHEADER + size_filename +
 394                                       size_extrafield_global + size_comment;
 395     zi->ci.central_header = (char*)ALLOC((uInt)zi->ci.size_centralheader);
 396
 397     ziplocal_putValue_inmemory(zi->ci.central_header,(uLong)CENTRALHEADERMAGIC,4);
 398     /* version info */
 399     ziplocal_putValue_inmemory(zi->ci.central_header+4,(uLong)VERSIONMADEBY,2);
 400     ziplocal_putValue_inmemory(zi->ci.central_header+6,(uLong)20,2);
 401     ziplocal_putValue_inmemory(zi->ci.central_header+8,(uLong)zi->ci.flag,2);
 402     ziplocal_putValue_inmemory(zi->ci.central_header+10,(uLong)zi->ci.method,2);
 403     ziplocal_putValue_inmemory(zi->ci.central_header+12,(uLong)zi->ci.dosDate,4);
 404     ziplocal_putValue_inmemory(zi->ci.central_header+16,(uLong)0,4); /*crc*/
 405     ziplocal_putValue_inmemory(zi->ci.central_header+20,(uLong)0,4); /*compr size*/
 406     ziplocal_putValue_inmemory(zi->ci.central_header+24,(uLong)0,4); /*uncompr size*/
 407     ziplocal_putValue_inmemory(zi->ci.central_header+28,(uLong)size_filename,2);
 408     ziplocal_putValue_inmemory(zi->ci.central_header+30,(uLong)size_extrafield_global,2);
 409     ziplocal_putValue_inmemory(zi->ci.central_header+32,(uLong)size_comment,2);
 410     ziplocal_putValue_inmemory(zi->ci.central_header+34,(uLong)0,2); /*disk nm start*/
 411
 412     if (zipfi==NULL)
 413         ziplocal_putValue_inmemory(zi->ci.central_header+36,(uLong)0,2);
 414     else
 415         ziplocal_putValue_inmemory(zi->ci.central_header+36,(uLong)zipfi->internal_fa,2);
 416
 417     if (zipfi==NULL)
 418         ziplocal_putValue_inmemory(zi->ci.central_header+38,(uLong)0,4);
 419     else
 420         ziplocal_putValue_inmemory(zi->ci.central_header+38,(uLong)zipfi->external_fa,4);
 421
 422     ziplocal_putValue_inmemory(zi->ci.central_header+42,(uLong)zi->ci.pos_local_header,4);
 423
 424     for (i=0;i<size_filename;i++)
 425         *(zi->ci.central_header+SIZECENTRALHEADER+i) = *(filename+i);
 426
 427     for (i=0;i<size_extrafield_global;i++)
 428         *(zi->ci.central_header+SIZECENTRALHEADER+size_filename+i) =
 429               *(((const char*)extrafield_global)+i);
 430
 431     for (i=0;i<size_comment;i++)
 432         *(zi->ci.central_header+SIZECENTRALHEADER+size_filename+
 433               size_extrafield_global+i) = *(filename+i);
 434     if (zi->ci.central_header == NULL)
 435         return ZIP_INTERNALERROR;
 436
 437     /* write the local header */
 438     err = ziplocal_putValue(zi->filezip,(uLong)LOCALHEADERMAGIC,4);
 439
 440     if (err==ZIP_OK)
 441         err = ziplocal_putValue(zi->filezip,(uLong)20,2);/* version needed to extract */
 442     if (err==ZIP_OK)
 443         err = ziplocal_putValue(zi->filezip,(uLong)zi->ci.flag,2);
 444
 445     if (err==ZIP_OK)
 446         err = ziplocal_putValue(zi->filezip,(uLong)zi->ci.method,2);
 447
 448     if (err==ZIP_OK)
 449         err = ziplocal_putValue(zi->filezip,(uLong)zi->ci.dosDate,4);
 450
 451     if (err==ZIP_OK)
 452         err = ziplocal_putValue(zi->filezip,(uLong)0,4); /* crc 32, unknown */
 453     if (err==ZIP_OK)
 454         err = ziplocal_putValue(zi->filezip,(uLong)0,4); /* compressed size, unknown */
 455     if (err==ZIP_OK)
 456         err = ziplocal_putValue(zi->filezip,(uLong)0,4); /* uncompressed size, unknown */
 457
 458     if (err==ZIP_OK)
 459         err = ziplocal_putValue(zi->filezip,(uLong)size_filename,2);
 460
 461     if (err==ZIP_OK)
 462         err = ziplocal_putValue(zi->filezip,(uLong)size_extrafield_local,2);
 463
 464     if ((err==ZIP_OK) && (size_filename>0))
 465         if (fwrite(filename,(uInt)size_filename,1,zi->filezip)!=1)
 466                 err = ZIP_ERRNO;
 467
 468     if ((err==ZIP_OK) && (size_extrafield_local>0))
 469         if (fwrite(extrafield_local,(uInt)size_extrafield_local,1,zi->filezip)
 470                                                                            !=1)
 471                 err = ZIP_ERRNO;
 472
 473     zi->ci.stream.avail_in = (uInt)0;
 474     zi->ci.stream.avail_out = (uInt)Z_BUFSIZE;
 475     zi->ci.stream.next_out = zi->ci.buffered_data;
 476     zi->ci.stream.total_in = 0;
 477     zi->ci.stream.total_out = 0;
 478
 479     if ((err==ZIP_OK) && (zi->ci.method == Z_DEFLATED))
 480     {
 481         zi->ci.stream.zalloc = (alloc_func)0;
 482         zi->ci.stream.zfree = (free_func)0;
 483         zi->ci.stream.opaque = (voidpf)0;
 484
 485         err = deflateInit2(&zi->ci.stream, level,
 486                Z_DEFLATED, -MAX_WBITS, DEF_MEM_LEVEL, 0);
 487
 488         if (err==Z_OK)
 489             zi->ci.stream_initialised = 1;
 490     }
 491
 492
 493     if (err==Z_OK)
 494         zi->in_opened_file_inzip = 1;
 495     return err;
 496 }
 497
 498 extern int ZEXPORT zipWriteInFileInZip (file, buf, len)
 499     zipFile file;
 500     const voidp buf;
 501     unsigned len;
 502 {
 503     zip_internal* zi;
 504     int err=ZIP_OK;
 505
 506     if (file == NULL)
 507         return ZIP_PARAMERROR;
 508     zi = (zip_internal*)file;
 509
 510     if (zi->in_opened_file_inzip == 0)
 511         return ZIP_PARAMERROR;
 512
 513     zi->ci.stream.next_in = buf;
 514     zi->ci.stream.avail_in = len;
 515     zi->ci.crc32 = crc32(zi->ci.crc32,buf,len);
 516
 517     while ((err==ZIP_OK) && (zi->ci.stream.avail_in>0))
 518     {
 519         if (zi->ci.stream.avail_out == 0)
 520         {
 521             if (fwrite(zi->ci.buffered_data,(uInt)zi->ci.pos_in_buffered_data,1,zi->filezip)
 522                                                                            !=1)
 523                 err = ZIP_ERRNO;
 524             zi->ci.pos_in_buffered_data = 0;
 525             zi->ci.stream.avail_out = (uInt)Z_BUFSIZE;
 526             zi->ci.stream.next_out = zi->ci.buffered_data;
 527         }
 528
 529         if (zi->ci.method == Z_DEFLATED)
 530         {
 531             uLong uTotalOutBefore = zi->ci.stream.total_out;
 532             err=deflate(&zi->ci.stream,  Z_NO_FLUSH);
 533             zi->ci.pos_in_buffered_data += (uInt)(zi->ci.stream.total_out - uTotalOutBefore) ;
 534
 535         }
 536         else
 537         {
 538             uInt copy_this,i;
 539             if (zi->ci.stream.avail_in < zi->ci.stream.avail_out)
 540                 copy_this = zi->ci.stream.avail_in;
 541             else
 542                 copy_this = zi->ci.stream.avail_out;
 543             for (i=0;i<copy_this;i++)
 544                 *(((char*)zi->ci.stream.next_out)+i) =
 545                     *(((const char*)zi->ci.stream.next_in)+i);
 546             {
 547                 zi->ci.stream.avail_in -= copy_this;
 548                 zi->ci.stream.avail_out-= copy_this;
 549                 zi->ci.stream.next_in+= copy_this;
 550                 zi->ci.stream.next_out+= copy_this;
 551                 zi->ci.stream.total_in+= copy_this;
 552                 zi->ci.stream.total_out+= copy_this;
 553                 zi->ci.pos_in_buffered_data += copy_this;
 554             }
 555         }
 556     }
 557
 558     return 0;
 559 }
 560
 561 extern int ZEXPORT zipCloseFileInZip (file)
 562     zipFile file;
 563 {
 564     zip_internal* zi;
 565     int err=ZIP_OK;
 566
 567     if (file == NULL)
 568         return ZIP_PARAMERROR;
 569     zi = (zip_internal*)file;
 570
 571     if (zi->in_opened_file_inzip == 0)
 572         return ZIP_PARAMERROR;
 573     zi->ci.stream.avail_in = 0;
 574
 575     if (zi->ci.method == Z_DEFLATED)
 576         while (err==ZIP_OK)
 577     {
 578         uLong uTotalOutBefore;
 579         if (zi->ci.stream.avail_out == 0)
 580         {
 581             if (fwrite(zi->ci.buffered_data,(uInt)zi->ci.pos_in_buffered_data,1,zi->filezip)
 582                                                                            !=1)
 583                 err = ZIP_ERRNO;
 584             zi->ci.pos_in_buffered_data = 0;
 585             zi->ci.stream.avail_out = (uInt)Z_BUFSIZE;
 586             zi->ci.stream.next_out = zi->ci.buffered_data;
 587         }
 588         uTotalOutBefore = zi->ci.stream.total_out;
 589         err=deflate(&zi->ci.stream,  Z_FINISH);
 590         zi->ci.pos_in_buffered_data += (uInt)(zi->ci.stream.total_out - uTotalOutBefore) ;
 591     }
 592
 593     if (err==Z_STREAM_END)
 594         err=ZIP_OK; /* this is normal */
 595
 596     if ((zi->ci.pos_in_buffered_data>0) && (err==ZIP_OK))
 597         if (fwrite(zi->ci.buffered_data,(uInt)zi->ci.pos_in_buffered_data,1,zi->filezip)
 598                                                                        !=1)
 599             err = ZIP_ERRNO;
 600
 601     if ((zi->ci.method == Z_DEFLATED) && (err==ZIP_OK))
 602     {
 603         err=deflateEnd(&zi->ci.stream);
 604         zi->ci.stream_initialised = 0;
 605     }
 606
 607     ziplocal_putValue_inmemory(zi->ci.central_header+16,(uLong)zi->ci.crc32,4); /*crc*/
 608     ziplocal_putValue_inmemory(zi->ci.central_header+20,
 609                                 (uLong)zi->ci.stream.total_out,4); /*compr size*/
 610     ziplocal_putValue_inmemory(zi->ci.central_header+24,
 611                                 (uLong)zi->ci.stream.total_in,4); /*uncompr size*/
 612
 613     if (err==ZIP_OK)
 614         err = add_data_in_datablock(&zi->central_dir,zi->ci.central_header,
 615                                        (uLong)zi->ci.size_centralheader);
 616     free(zi->ci.central_header);
 617
 618     if (err==ZIP_OK)
 619     {
 620         long cur_pos_inzip = ftell(zi->filezip);
 621             if (fseek(zi->filezip,
 622                   zi->ci.pos_local_header + 14,SEEK_SET)!=0)
 623                     err = ZIP_ERRNO;
 624
 625         if (err==ZIP_OK)
 626             err = ziplocal_putValue(zi->filezip,(uLong)zi->ci.crc32,4); /* crc 32, unknown */
 627
 628         if (err==ZIP_OK) /* compressed size, unknown */
 629             err = ziplocal_putValue(zi->filezip,(uLong)zi->ci.stream.total_out,4);
 630
 631         if (err==ZIP_OK) /* uncompressed size, unknown */
 632             err = ziplocal_putValue(zi->filezip,(uLong)zi->ci.stream.total_in,4);
 633
 634             if (fseek(zi->filezip,
 635                   cur_pos_inzip,SEEK_SET)!=0)
 636                     err = ZIP_ERRNO;
 637     }
 638
 639     zi->number_entry ++;
 640     zi->in_opened_file_inzip = 0;
 641
 642     return err;
 643 }
 644
 645 extern int ZEXPORT zipClose (file, global_comment)
 646     zipFile file;
 647     const char* global_comment;
 648 {
 649     zip_internal* zi;
 650     int err = 0;
 651     uLong size_centraldir = 0;
 652     uLong centraldir_pos_inzip ;
 653     uInt size_global_comment;
 654     if (file == NULL)
 655         return ZIP_PARAMERROR;
 656     zi = (zip_internal*)file;
 657
 658     if (zi->in_opened_file_inzip == 1)
 659     {
 660         err = zipCloseFileInZip (file);
 661     }
 662
 663     if (global_comment==NULL)
 664         size_global_comment = 0;
 665     else
 666         size_global_comment = strlen(global_comment);
 667
 668
 669     centraldir_pos_inzip = ftell(zi->filezip);
 670     if (err==ZIP_OK)
 671     {
 672         linkedlist_datablock_internal* ldi = zi->central_dir.first_block ;
 673         while (ldi!=NULL)
 674         {
 675             if ((err==ZIP_OK) && (ldi->filled_in_this_block>0))
 676                 if (fwrite(ldi->data,(uInt)ldi->filled_in_this_block,
 677                                         1,zi->filezip) !=1 )
 678                     err = ZIP_ERRNO;
 679
 680             size_centraldir += ldi->filled_in_this_block;
 681             ldi = ldi->next_datablock;
 682         }
 683     }
 684     free_datablock(zi->central_dir.first_block);
 685
 686     if (err==ZIP_OK) /* Magic End */
 687         err = ziplocal_putValue(zi->filezip,(uLong)ENDHEADERMAGIC,4);
 688
 689     if (err==ZIP_OK) /* number of this disk */
 690         err = ziplocal_putValue(zi->filezip,(uLong)0,2);
 691
 692     if (err==ZIP_OK) /* number of the disk with the start of the central directory */
 693         err = ziplocal_putValue(zi->filezip,(uLong)0,2);
 694
 695     if (err==ZIP_OK) /* total number of entries in the central dir on this disk */
 696         err = ziplocal_putValue(zi->filezip,(uLong)zi->number_entry,2);
 697
 698     if (err==ZIP_OK) /* total number of entries in the central dir */
 699         err = ziplocal_putValue(zi->filezip,(uLong)zi->number_entry,2);
 700
 701     if (err==ZIP_OK) /* size of the central directory */
 702         err = ziplocal_putValue(zi->filezip,(uLong)size_centraldir,4);
 703
 704     if (err==ZIP_OK) /* offset of start of central directory with respect to the
 705                                 starting disk number */
 706         err = ziplocal_putValue(zi->filezip,(uLong)centraldir_pos_inzip ,4);
 707
 708     if (err==ZIP_OK) /* zipfile comment length */
 709         err = ziplocal_putValue(zi->filezip,(uLong)size_global_comment,2);
 710
 711     if ((err==ZIP_OK) && (size_global_comment>0))
 712         if (fwrite(global_comment,(uInt)size_global_comment,1,zi->filezip) !=1 )
 713                 err = ZIP_ERRNO;
 714     fclose(zi->filezip);
 715     TRYFREE(zi);
 716
 717     return err;
 718 }