home *** CD-ROM | disk | FTP | other *** search
/ Chip 2001 October / Chip_2001-10_cd1.bin / zkuste / delphi / nastroje / d23456 / NSIS.EXE / Source / zip2exe / zlib / Unzip.c < prev    next >
C/C++ Source or Header  |  2001-05-19  |  36KB  |  1,296 lines
  1. /* unzip.c -- IO on .zip files using zlib 
  2.    Version 0.15 beta, Mar 19th, 1998,
  3.  
  4.    Read unzip.h for more info
  5. */
  6. #include <windows.h>
  7.  
  8.  
  9. #include <stdio.h>
  10. #include <stdlib.h>
  11. #include <string.h>
  12. #include "zlib.h"
  13. #include "unzip.h"
  14.  
  15. #ifdef STDC
  16. #  include <stddef.h>
  17. #  include <string.h>
  18. #  include <stdlib.h>
  19. #endif
  20. #ifdef NO_ERRNO_H
  21.     extern int errno;
  22. #else
  23. #   include <errno.h>
  24. #endif
  25.  
  26.  
  27. #ifndef local
  28. #  define local static
  29. #endif
  30. /* compile with -Dlocal if your debugger can't find static symbols */
  31.  
  32.  
  33.  
  34. #if !defined(unix) && !defined(CASESENSITIVITYDEFAULT_YES) && \
  35.                       !defined(CASESENSITIVITYDEFAULT_NO)
  36. #define CASESENSITIVITYDEFAULT_NO
  37. #endif
  38.  
  39.  
  40. #ifndef UNZ_BUFSIZE
  41. #define UNZ_BUFSIZE (16384)
  42. #endif
  43.  
  44. #ifndef UNZ_MAXFILENAMEINZIP
  45. #define UNZ_MAXFILENAMEINZIP (256)
  46. #endif
  47.  
  48. #ifndef ALLOC
  49. # define ALLOC(size) (GlobalAlloc(GMEM_FIXED,size))
  50. #endif
  51. #ifndef TRYFREE
  52. # define TRYFREE(p) {if (p) GlobalFree(p);}
  53. #endif
  54.  
  55. #define SIZECENTRALDIRITEM (0x2e)
  56. #define SIZEZIPLOCALHEADER (0x1e)
  57.  
  58.  
  59. /* I've found an old Unix (a SunOS 4.1.3_U1) without all SEEK_* defined.... */
  60.  
  61. #ifndef SEEK_CUR
  62. #define SEEK_CUR    1
  63. #endif
  64.  
  65. #ifndef SEEK_END
  66. #define SEEK_END    2
  67. #endif
  68.  
  69. #ifndef SEEK_SET
  70. #define SEEK_SET    0
  71. #endif
  72.  
  73. const char unz_copyright[] =
  74.    " unzip 0.15 Copyright 1998 Gilles Vollant ";
  75.  
  76. /* unz_file_info_interntal contain internal info about a file in zipfile*/
  77. typedef struct unz_file_info_internal_s
  78. {
  79.     uLong offset_curfile;/* relative offset of local header 4 bytes */
  80. } unz_file_info_internal;
  81.  
  82.  
  83. /* file_in_zip_read_info_s contain internal information about a file in zipfile,
  84.     when reading and decompress it */
  85. typedef struct
  86. {
  87.     char  *read_buffer;         /* internal buffer for compressed data */
  88.     z_stream stream;            /* zLib stream structure for inflate */
  89.  
  90.     uLong pos_in_zipfile;       /* position in byte on the zipfile, for fseek*/
  91.     uLong stream_initialised;   /* flag set if stream structure is initialised*/
  92.  
  93.     uLong offset_local_extrafield;/* offset of the local extra field */
  94.     uInt  size_local_extrafield;/* size of the local extra field */
  95.     uLong pos_local_extrafield;   /* position in the local extra field in read*/
  96.  
  97.     uLong crc32;                /* crc32 of all data uncompressed */
  98.     uLong crc32_wait;           /* crc32 we must obtain after decompress all */
  99.     uLong rest_read_compressed; /* number of byte to be decompressed */
  100.     uLong rest_read_uncompressed;/*number of byte to be obtained after decomp*/
  101.     FILE* file;                 /* io structore of the zipfile */
  102.     uLong compression_method;   /* compression method (0==store) */
  103.     uLong byte_before_the_zipfile;/* byte before the zipfile, (>0 for sfx)*/
  104. } file_in_zip_read_info_s;
  105.  
  106.  
  107. /* unz_s contain internal information about the zipfile
  108. */
  109. typedef struct
  110. {
  111.     FILE* file;                 /* io structore of the zipfile */
  112.     unz_global_info gi;       /* public global information */
  113.     uLong byte_before_the_zipfile;/* byte before the zipfile, (>0 for sfx)*/
  114.     uLong num_file;             /* number of the current file in the zipfile*/
  115.     uLong pos_in_central_dir;   /* pos of the current file in the central dir*/
  116.     uLong current_file_ok;      /* flag about the usability of the current file*/
  117.     uLong central_pos;          /* position of the beginning of the central dir*/
  118.  
  119.     uLong size_central_dir;     /* size of the central directory  */
  120.     uLong offset_central_dir;   /* offset of start of central directory with
  121.                                    respect to the starting disk number */
  122.  
  123.     unz_file_info cur_file_info; /* public info about the current file in zip*/
  124.     unz_file_info_internal cur_file_info_internal; /* private info about it*/
  125.     file_in_zip_read_info_s* pfile_in_zip_read; /* structure about the current
  126.                                         file if we are decompressing it */
  127. } unz_s;
  128.  
  129.  
  130. /* ===========================================================================
  131.      Read a byte from a gz_stream; update next_in and avail_in. Return EOF
  132.    for end of file.
  133.    IN assertion: the stream s has been sucessfully opened for reading.
  134. */
  135.  
  136.  
  137. local int unzlocal_getByte(fin,pi)
  138.     FILE *fin;
  139.     int *pi;
  140. {
  141.     unsigned char c;
  142.     int err = fread(&c, 1, 1, fin);
  143.     if (err==1)
  144.     {
  145.         *pi = (int)c;
  146.         return UNZ_OK;
  147.     }
  148.     else
  149.     {
  150.         if (ferror(fin)) 
  151.             return UNZ_ERRNO;
  152.         else
  153.             return UNZ_EOF;
  154.     }
  155. }
  156.  
  157.  
  158. /* ===========================================================================
  159.    Reads a long in LSB order from the given gz_stream. Sets 
  160. */
  161. local int unzlocal_getShort (fin,pX)
  162.     FILE* fin;
  163.     uLong *pX;
  164. {
  165.     uLong x ;
  166.     int i;
  167.     int err;
  168.  
  169.     err = unzlocal_getByte(fin,&i);
  170.     x = (uLong)i;
  171.     
  172.     if (err==UNZ_OK)
  173.         err = unzlocal_getByte(fin,&i);
  174.     x += ((uLong)i)<<8;
  175.    
  176.     if (err==UNZ_OK)
  177.         *pX = x;
  178.     else
  179.         *pX = 0;
  180.     return err;
  181. }
  182.  
  183. local int unzlocal_getLong (fin,pX)
  184.     FILE* fin;
  185.     uLong *pX;
  186. {
  187.     uLong x ;
  188.     int i;
  189.     int err;
  190.  
  191.     err = unzlocal_getByte(fin,&i);
  192.     x = (uLong)i;
  193.     
  194.     if (err==UNZ_OK)
  195.         err = unzlocal_getByte(fin,&i);
  196.     x += ((uLong)i)<<8;
  197.  
  198.     if (err==UNZ_OK)
  199.         err = unzlocal_getByte(fin,&i);
  200.     x += ((uLong)i)<<16;
  201.  
  202.     if (err==UNZ_OK)
  203.         err = unzlocal_getByte(fin,&i);
  204.     x += ((uLong)i)<<24;
  205.    
  206.     if (err==UNZ_OK)
  207.         *pX = x;
  208.     else
  209.         *pX = 0;
  210.     return err;
  211. }
  212.  
  213.  
  214. /* My own strcmpi / strcasecmp */
  215. local int strcmpcasenosensitive_internal (fileName1,fileName2)
  216.     const char* fileName1;
  217.     const char* fileName2;
  218. {
  219.     for (;;)
  220.     {
  221.         char c1=*(fileName1++);
  222.         char c2=*(fileName2++);
  223.         if ((c1>='a') && (c1<='z'))
  224.             c1 -= 0x20;
  225.         if ((c2>='a') && (c2<='z'))
  226.             c2 -= 0x20;
  227.         if (c1=='\0')
  228.             return ((c2=='\0') ? 0 : -1);
  229.         if (c2=='\0')
  230.             return 1;
  231.         if (c1<c2)
  232.             return -1;
  233.         if (c1>c2)
  234.             return 1;
  235.     }
  236. }
  237.  
  238.  
  239. #ifdef  CASESENSITIVITYDEFAULT_NO
  240. #define CASESENSITIVITYDEFAULTVALUE 2
  241. #else
  242. #define CASESENSITIVITYDEFAULTVALUE 1
  243. #endif
  244.  
  245. #ifndef STRCMPCASENOSENTIVEFUNCTION
  246. #define STRCMPCASENOSENTIVEFUNCTION strcmpcasenosensitive_internal
  247. #endif
  248.  
  249. /* 
  250.    Compare two filename (fileName1,fileName2).
  251.    If iCaseSenisivity = 1, comparision is case sensitivity (like strcmp)
  252.    If iCaseSenisivity = 2, comparision is not case sensitivity (like strcmpi
  253.                                                                 or strcasecmp)
  254.    If iCaseSenisivity = 0, case sensitivity is defaut of your operating system
  255.         (like 1 on Unix, 2 on Windows)
  256.  
  257. */
  258. extern int ZEXPORT unzStringFileNameCompare (fileName1,fileName2,iCaseSensitivity)
  259.     const char* fileName1;
  260.     const char* fileName2;
  261.     int iCaseSensitivity;
  262. {
  263.     if (iCaseSensitivity==0)
  264.         iCaseSensitivity=CASESENSITIVITYDEFAULTVALUE;
  265.  
  266.     if (iCaseSensitivity==1)
  267.         return strcmp(fileName1,fileName2);
  268.  
  269.     return STRCMPCASENOSENTIVEFUNCTION(fileName1,fileName2);
  270. } 
  271.  
  272. #define BUFREADCOMMENT (0x400)
  273.  
  274. /*
  275.   Locate the Central directory of a zipfile (at the end, just before
  276.     the global comment)
  277. */
  278. local uLong unzlocal_SearchCentralDir(fin)
  279.     FILE *fin;
  280. {
  281.     unsigned char* buf;
  282.     uLong uSizeFile;
  283.     uLong uBackRead;
  284.     uLong uMaxBack=0xffff; /* maximum size of global comment */
  285.     uLong uPosFound=0;
  286.     
  287.     if (fseek(fin,0,SEEK_END) != 0)
  288.         return 0;
  289.  
  290.  
  291.     uSizeFile = ftell( fin );
  292.     
  293.     if (uMaxBack>uSizeFile)
  294.         uMaxBack = uSizeFile;
  295.  
  296.     buf = (unsigned char*)ALLOC(BUFREADCOMMENT+4);
  297.     if (buf==NULL)
  298.         return 0;
  299.  
  300.     uBackRead = 4;
  301.     while (uBackRead<uMaxBack)
  302.     {
  303.         uLong uReadSize,uReadPos ;
  304.         int i;
  305.         if (uBackRead+BUFREADCOMMENT>uMaxBack) 
  306.             uBackRead = uMaxBack;
  307.         else
  308.             uBackRead+=BUFREADCOMMENT;
  309.         uReadPos = uSizeFile-uBackRead ;
  310.         
  311.         uReadSize = ((BUFREADCOMMENT+4) < (uSizeFile-uReadPos)) ? 
  312.                      (BUFREADCOMMENT+4) : (uSizeFile-uReadPos);
  313.         if (fseek(fin,uReadPos,SEEK_SET)!=0)
  314.             break;
  315.  
  316.         if (fread(buf,(uInt)uReadSize,1,fin)!=1)
  317.             break;
  318.  
  319.                 for (i=(int)uReadSize-3; (i--)>0;)
  320.             if (((*(buf+i))==0x50) && ((*(buf+i+1))==0x4b) && 
  321.                 ((*(buf+i+2))==0x05) && ((*(buf+i+3))==0x06))
  322.             {
  323.                 uPosFound = uReadPos+i;
  324.                 break;
  325.             }
  326.  
  327.         if (uPosFound!=0)
  328.             break;
  329.     }
  330.     TRYFREE(buf);
  331.     return uPosFound;
  332. }
  333.  
  334. /*
  335.   Open a Zip file. path contain the full pathname (by example,
  336.      on a Windows NT computer "c:\\test\\zlib109.zip" or on an Unix computer
  337.      "zlib/zlib109.zip".
  338.      If the zipfile cannot be opened (file don't exist or in not valid), the
  339.        return value is NULL.
  340.      Else, the return value is a unzFile Handle, usable with other function
  341.        of this unzip package.
  342. */
  343. extern unzFile ZEXPORT unzOpen (path)
  344.     const char *path;
  345. {
  346.     unz_s us;
  347.     unz_s *s;
  348.     uLong central_pos,uL;
  349.     FILE * fin ;
  350.  
  351.     uLong number_disk;          /* number of the current dist, used for 
  352.                                    spaning ZIP, unsupported, always 0*/
  353.     uLong number_disk_with_CD;  /* number the the disk with central dir, used
  354.                                    for spaning ZIP, unsupported, always 0*/
  355.     uLong number_entry_CD;      /* total number of entries in
  356.                                    the central dir 
  357.                                    (same than number_entry on nospan) */
  358.  
  359.     int err=UNZ_OK;
  360.  
  361.     if (unz_copyright[0]!=' ')
  362.         return NULL;
  363.  
  364.     fin=fopen(path,"rb");
  365.     if (fin==NULL)
  366.         return NULL;
  367.  
  368.     central_pos = unzlocal_SearchCentralDir(fin);
  369.     if (central_pos==0)
  370.         err=UNZ_ERRNO;
  371.  
  372.     if (fseek(fin,central_pos,SEEK_SET)!=0)
  373.         err=UNZ_ERRNO;
  374.  
  375.     /* the signature, already checked */
  376.     if (unzlocal_getLong(fin,&uL)!=UNZ_OK)
  377.         err=UNZ_ERRNO;
  378.  
  379.     /* number of this disk */
  380.     if (unzlocal_getShort(fin,&number_disk)!=UNZ_OK)
  381.         err=UNZ_ERRNO;
  382.  
  383.     /* number of the disk with the start of the central directory */
  384.     if (unzlocal_getShort(fin,&number_disk_with_CD)!=UNZ_OK)
  385.         err=UNZ_ERRNO;
  386.  
  387.     /* total number of entries in the central dir on this disk */
  388.     if (unzlocal_getShort(fin,&us.gi.number_entry)!=UNZ_OK)
  389.         err=UNZ_ERRNO;
  390.  
  391.     /* total number of entries in the central dir */
  392.     if (unzlocal_getShort(fin,&number_entry_CD)!=UNZ_OK)
  393.         err=UNZ_ERRNO;
  394.  
  395.     if ((number_entry_CD!=us.gi.number_entry) ||
  396.         (number_disk_with_CD!=0) ||
  397.         (number_disk!=0))
  398.         err=UNZ_BADZIPFILE;
  399.  
  400.     /* size of the central directory */
  401.     if (unzlocal_getLong(fin,&us.size_central_dir)!=UNZ_OK)
  402.         err=UNZ_ERRNO;
  403.  
  404.     /* offset of start of central directory with respect to the 
  405.           starting disk number */
  406.     if (unzlocal_getLong(fin,&us.offset_central_dir)!=UNZ_OK)
  407.         err=UNZ_ERRNO;
  408.  
  409.     /* zipfile comment length */
  410.     if (unzlocal_getShort(fin,&us.gi.size_comment)!=UNZ_OK)
  411.         err=UNZ_ERRNO;
  412.  
  413.     if ((central_pos<us.offset_central_dir+us.size_central_dir) && 
  414.         (err==UNZ_OK))
  415.         err=UNZ_BADZIPFILE;
  416.  
  417.     if (err!=UNZ_OK)
  418.     {
  419.         fclose(fin);
  420.         return NULL;
  421.     }
  422.  
  423.     us.file=fin;
  424.     us.byte_before_the_zipfile = central_pos -
  425.                             (us.offset_central_dir+us.size_central_dir);
  426.     us.central_pos = central_pos;
  427.     us.pfile_in_zip_read = NULL;
  428.     
  429.  
  430.     s=(unz_s*)ALLOC(sizeof(unz_s));
  431.     *s=us;
  432.     unzGoToFirstFile((unzFile)s);    
  433.     return (unzFile)s;    
  434. }
  435.  
  436.  
  437. /*
  438.   Close a ZipFile opened with unzipOpen.
  439.   If there is files inside the .Zip opened with unzipOpenCurrentFile (see later),
  440.     these files MUST be closed with unzipCloseCurrentFile before call unzipClose.
  441.   return UNZ_OK if there is no problem. */
  442. extern int ZEXPORT unzClose (file)
  443.     unzFile file;
  444. {
  445.     unz_s* s;
  446.     if (file==NULL)
  447.         return UNZ_PARAMERROR;
  448.     s=(unz_s*)file;
  449.  
  450.     if (s->pfile_in_zip_read!=NULL)
  451.         unzCloseCurrentFile(file);
  452.  
  453.     fclose(s->file);
  454.     TRYFREE(s);
  455.     return UNZ_OK;
  456. }
  457.  
  458.  
  459. /*
  460.   Write info about the ZipFile in the *pglobal_info structure.
  461.   No preparation of the structure is needed
  462.   return UNZ_OK if there is no problem. */
  463. extern int ZEXPORT unzGetGlobalInfo (file,pglobal_info)
  464.     unzFile file;
  465.     unz_global_info *pglobal_info;
  466. {
  467.     unz_s* s;
  468.     if (file==NULL)
  469.         return UNZ_PARAMERROR;
  470.     s=(unz_s*)file;
  471.     *pglobal_info=s->gi;
  472.     return UNZ_OK;
  473. }
  474.  
  475.  
  476. /*
  477.    Translate date/time from Dos format to tm_unz (readable more easilty)
  478. */
  479. local void unzlocal_DosDateToTmuDate (ulDosDate, ptm)
  480.     uLong ulDosDate;
  481.     tm_unz* ptm;
  482. {
  483.     uLong uDate;
  484.     uDate = (uLong)(ulDosDate>>16);
  485.     ptm->tm_mday = (uInt)(uDate&0x1f) ;
  486.     ptm->tm_mon =  (uInt)((((uDate)&0x1E0)/0x20)-1) ;
  487.     ptm->tm_year = (uInt)(((uDate&0x0FE00)/0x0200)+1980) ;
  488.  
  489.     ptm->tm_hour = (uInt) ((ulDosDate &0xF800)/0x800);
  490.     ptm->tm_min =  (uInt) ((ulDosDate&0x7E0)/0x20) ;
  491.     ptm->tm_sec =  (uInt) (2*(ulDosDate&0x1f)) ;
  492. }
  493.  
  494. /*
  495.   Get Info about the current file in the zipfile, with internal only info
  496. */
  497. local int unzlocal_GetCurrentFileInfoInternal OF((unzFile file,
  498.                                                   unz_file_info *pfile_info,
  499.                                                   unz_file_info_internal 
  500.                                                   *pfile_info_internal,
  501.                                                   char *szFileName,
  502.                                                   uLong fileNameBufferSize,
  503.                                                   void *extraField,
  504.                                                   uLong extraFieldBufferSize,
  505.                                                   char *szComment,
  506.                                                   uLong commentBufferSize));
  507.  
  508. local int unzlocal_GetCurrentFileInfoInternal (file,
  509.                                               pfile_info,
  510.                                               pfile_info_internal,
  511.                                               szFileName, fileNameBufferSize,
  512.                                               extraField, extraFieldBufferSize,
  513.                                               szComment,  commentBufferSize)
  514.     unzFile file;
  515.     unz_file_info *pfile_info;
  516.     unz_file_info_internal *pfile_info_internal;
  517.     char *szFileName;
  518.     uLong fileNameBufferSize;
  519.     void *extraField;
  520.     uLong extraFieldBufferSize;
  521.     char *szComment;
  522.     uLong commentBufferSize;
  523. {
  524.     unz_s* s;
  525.     unz_file_info file_info;
  526.     unz_file_info_internal file_info_internal;
  527.     int err=UNZ_OK;
  528.     uLong uMagic;
  529.     long lSeek=0;
  530.  
  531.     if (file==NULL)
  532.         return UNZ_PARAMERROR;
  533.     s=(unz_s*)file;
  534.     if (fseek(s->file,s->pos_in_central_dir+s->byte_before_the_zipfile,SEEK_SET)!=0)
  535.         err=UNZ_ERRNO;
  536.  
  537.  
  538.     /* we check the magic */
  539.     if (err==UNZ_OK)
  540.         if (unzlocal_getLong(s->file,&uMagic) != UNZ_OK)
  541.             err=UNZ_ERRNO;
  542.         else if (uMagic!=0x02014b50)
  543.             err=UNZ_BADZIPFILE;
  544.  
  545.     if (unzlocal_getShort(s->file,&file_info.version) != UNZ_OK)
  546.         err=UNZ_ERRNO;
  547.  
  548.     if (unzlocal_getShort(s->file,&file_info.version_needed) != UNZ_OK)
  549.         err=UNZ_ERRNO;
  550.  
  551.     if (unzlocal_getShort(s->file,&file_info.flag) != UNZ_OK)
  552.         err=UNZ_ERRNO;
  553.  
  554.     if (unzlocal_getShort(s->file,&file_info.compression_method) != UNZ_OK)
  555.         err=UNZ_ERRNO;
  556.  
  557.     if (unzlocal_getLong(s->file,&file_info.dosDate) != UNZ_OK)
  558.         err=UNZ_ERRNO;
  559.  
  560.     unzlocal_DosDateToTmuDate(file_info.dosDate,&file_info.tmu_date);
  561.  
  562.     if (unzlocal_getLong(s->file,&file_info.crc) != UNZ_OK)
  563.         err=UNZ_ERRNO;
  564.  
  565.     if (unzlocal_getLong(s->file,&file_info.compressed_size) != UNZ_OK)
  566.         err=UNZ_ERRNO;
  567.  
  568.     if (unzlocal_getLong(s->file,&file_info.uncompressed_size) != UNZ_OK)
  569.         err=UNZ_ERRNO;
  570.  
  571.     if (unzlocal_getShort(s->file,&file_info.size_filename) != UNZ_OK)
  572.         err=UNZ_ERRNO;
  573.  
  574.     if (unzlocal_getShort(s->file,&file_info.size_file_extra) != UNZ_OK)
  575.         err=UNZ_ERRNO;
  576.  
  577.     if (unzlocal_getShort(s->file,&file_info.size_file_comment) != UNZ_OK)
  578.         err=UNZ_ERRNO;
  579.  
  580.     if (unzlocal_getShort(s->file,&file_info.disk_num_start) != UNZ_OK)
  581.         err=UNZ_ERRNO;
  582.  
  583.     if (unzlocal_getShort(s->file,&file_info.internal_fa) != UNZ_OK)
  584.         err=UNZ_ERRNO;
  585.  
  586.     if (unzlocal_getLong(s->file,&file_info.external_fa) != UNZ_OK)
  587.         err=UNZ_ERRNO;
  588.  
  589.     if (unzlocal_getLong(s->file,&file_info_internal.offset_curfile) != UNZ_OK)
  590.         err=UNZ_ERRNO;
  591.  
  592.     lSeek+=file_info.size_filename;
  593.     if ((err==UNZ_OK) && (szFileName!=NULL))
  594.     {
  595.         uLong uSizeRead ;
  596.         if (file_info.size_filename<fileNameBufferSize)
  597.         {
  598.             *(szFileName+file_info.size_filename)='\0';
  599.             uSizeRead = file_info.size_filename;
  600.         }
  601.         else
  602.             uSizeRead = fileNameBufferSize;
  603.  
  604.         if ((file_info.size_filename>0) && (fileNameBufferSize>0))
  605.             if (fread(szFileName,(uInt)uSizeRead,1,s->file)!=1)
  606.                 err=UNZ_ERRNO;
  607.         lSeek -= uSizeRead;
  608.     }
  609.  
  610.     
  611.     if ((err==UNZ_OK) && (extraField!=NULL))
  612.     {
  613.         uLong uSizeRead ;
  614.         if (file_info.size_file_extra<extraFieldBufferSize)
  615.             uSizeRead = file_info.size_file_extra;
  616.         else
  617.             uSizeRead = extraFieldBufferSize;
  618.  
  619.         if (lSeek!=0)
  620.             if (fseek(s->file,lSeek,SEEK_CUR)==0)
  621.                 lSeek=0;
  622.             else
  623.                 err=UNZ_ERRNO;
  624.         if ((file_info.size_file_extra>0) && (extraFieldBufferSize>0))
  625.             if (fread(extraField,(uInt)uSizeRead,1,s->file)!=1)
  626.                 err=UNZ_ERRNO;
  627.         lSeek += file_info.size_file_extra - uSizeRead;
  628.     }
  629.     else
  630.         lSeek+=file_info.size_file_extra; 
  631.  
  632.     
  633.     if ((err==UNZ_OK) && (szComment!=NULL))
  634.     {
  635.         uLong uSizeRead ;
  636.         if (file_info.size_file_comment<commentBufferSize)
  637.         {
  638.             *(szComment+file_info.size_file_comment)='\0';
  639.             uSizeRead = file_info.size_file_comment;
  640.         }
  641.         else
  642.             uSizeRead = commentBufferSize;
  643.  
  644.         if (lSeek!=0)
  645.             if (fseek(s->file,lSeek,SEEK_CUR)==0)
  646.                 lSeek=0;
  647.             else
  648.                 err=UNZ_ERRNO;
  649.         if ((file_info.size_file_comment>0) && (commentBufferSize>0))
  650.             if (fread(szComment,(uInt)uSizeRead,1,s->file)!=1)
  651.                 err=UNZ_ERRNO;
  652.         lSeek+=file_info.size_file_comment - uSizeRead;
  653.     }
  654.     else
  655.         lSeek+=file_info.size_file_comment;
  656.  
  657.     if ((err==UNZ_OK) && (pfile_info!=NULL))
  658.         *pfile_info=file_info;
  659.  
  660.     if ((err==UNZ_OK) && (pfile_info_internal!=NULL))
  661.         *pfile_info_internal=file_info_internal;
  662.  
  663.     return err;
  664. }
  665.  
  666.  
  667.  
  668. /*
  669.   Write info about the ZipFile in the *pglobal_info structure.
  670.   No preparation of the structure is needed
  671.   return UNZ_OK if there is no problem.
  672. */
  673. extern int ZEXPORT unzGetCurrentFileInfo (file,
  674.                                                   pfile_info,
  675.                                                   szFileName, fileNameBufferSize,
  676.                                                   extraField, extraFieldBufferSize,
  677.                                                   szComment,  commentBufferSize)
  678.     unzFile file;
  679.     unz_file_info *pfile_info;
  680.     char *szFileName;
  681.     uLong fileNameBufferSize;
  682.     void *extraField;
  683.     uLong extraFieldBufferSize;
  684.     char *szComment;
  685.     uLong commentBufferSize;
  686. {
  687.     return unzlocal_GetCurrentFileInfoInternal(file,pfile_info,NULL,
  688.                                                 szFileName,fileNameBufferSize,
  689.                                                 extraField,extraFieldBufferSize,
  690.                                                 szComment,commentBufferSize);
  691. }
  692.  
  693. /*
  694.   Set the current file of the zipfile to the first file.
  695.   return UNZ_OK if there is no problem
  696. */
  697. extern int ZEXPORT unzGoToFirstFile (file)
  698.     unzFile file;
  699. {
  700.     int err=UNZ_OK;
  701.     unz_s* s;
  702.     if (file==NULL)
  703.         return UNZ_PARAMERROR;
  704.     s=(unz_s*)file;
  705.     s->pos_in_central_dir=s->offset_central_dir;
  706.     s->num_file=0;
  707.     err=unzlocal_GetCurrentFileInfoInternal(file,&s->cur_file_info,
  708.                                              &s->cur_file_info_internal,
  709.                                              NULL,0,NULL,0,NULL,0);
  710.     s->current_file_ok = (err == UNZ_OK);
  711.     return err;
  712. }
  713.  
  714.  
  715. /*
  716.   Set the current file of the zipfile to the next file.
  717.   return UNZ_OK if there is no problem
  718.   return UNZ_END_OF_LIST_OF_FILE if the actual file was the latest.
  719. */
  720. extern int ZEXPORT unzGoToNextFile (file)
  721.     unzFile file;
  722. {
  723.     unz_s* s;    
  724.     int err;
  725.  
  726.     if (file==NULL)
  727.         return UNZ_PARAMERROR;
  728.     s=(unz_s*)file;
  729.     if (!s->current_file_ok)
  730.         return UNZ_END_OF_LIST_OF_FILE;
  731.     if (s->num_file+1==s->gi.number_entry)
  732.         return UNZ_END_OF_LIST_OF_FILE;
  733.  
  734.     s->pos_in_central_dir += SIZECENTRALDIRITEM + s->cur_file_info.size_filename +
  735.             s->cur_file_info.size_file_extra + s->cur_file_info.size_file_comment ;
  736.     s->num_file++;
  737.     err = unzlocal_GetCurrentFileInfoInternal(file,&s->cur_file_info,
  738.                                                &s->cur_file_info_internal,
  739.                                                NULL,0,NULL,0,NULL,0);
  740.     s->current_file_ok = (err == UNZ_OK);
  741.     return err;
  742. }
  743.  
  744.  
  745. /*
  746.   Try locate the file szFileName in the zipfile.
  747.   For the iCaseSensitivity signification, see unzipStringFileNameCompare
  748.  
  749.   return value :
  750.   UNZ_OK if the file is found. It becomes the current file.
  751.   UNZ_END_OF_LIST_OF_FILE if the file is not found
  752. */
  753. extern int ZEXPORT unzLocateFile (file, szFileName, iCaseSensitivity)
  754.     unzFile file;
  755.     const char *szFileName;
  756.     int iCaseSensitivity;
  757. {
  758.     unz_s* s;    
  759.     int err;
  760.  
  761.     
  762.     uLong num_fileSaved;
  763.     uLong pos_in_central_dirSaved;
  764.  
  765.  
  766.     if (file==NULL)
  767.         return UNZ_PARAMERROR;
  768.  
  769.     if (strlen(szFileName)>=UNZ_MAXFILENAMEINZIP)
  770.         return UNZ_PARAMERROR;
  771.  
  772.     s=(unz_s*)file;
  773.     if (!s->current_file_ok)
  774.         return UNZ_END_OF_LIST_OF_FILE;
  775.  
  776.     num_fileSaved = s->num_file;
  777.     pos_in_central_dirSaved = s->pos_in_central_dir;
  778.  
  779.     err = unzGoToFirstFile(file);
  780.  
  781.     while (err == UNZ_OK)
  782.     {
  783.         char szCurrentFileName[UNZ_MAXFILENAMEINZIP+1];
  784.         unzGetCurrentFileInfo(file,NULL,
  785.                                 szCurrentFileName,sizeof(szCurrentFileName)-1,
  786.                                 NULL,0,NULL,0);
  787.         if (unzStringFileNameCompare(szCurrentFileName,
  788.                                         szFileName,iCaseSensitivity)==0)
  789.             return UNZ_OK;
  790.         err = unzGoToNextFile(file);
  791.     }
  792.  
  793.     s->num_file = num_fileSaved ;
  794.     s->pos_in_central_dir = pos_in_central_dirSaved ;
  795.     return err;
  796. }
  797.  
  798.  
  799. /*
  800.   Read the local header of the current zipfile
  801.   Check the coherency of the local header and info in the end of central
  802.         directory about this file
  803.   store in *piSizeVar the size of extra info in local header
  804.         (filename and size of extra field data)
  805. */
  806. local int unzlocal_CheckCurrentFileCoherencyHeader (s,piSizeVar,
  807.                                                     poffset_local_extrafield,
  808.                                                     psize_local_extrafield)
  809.     unz_s* s;
  810.     uInt* piSizeVar;
  811.     uLong *poffset_local_extrafield;
  812.     uInt  *psize_local_extrafield;
  813. {
  814.     uLong uMagic,uData,uFlags;
  815.     uLong size_filename;
  816.     uLong size_extra_field;
  817.     int err=UNZ_OK;
  818.  
  819.     *piSizeVar = 0;
  820.     *poffset_local_extrafield = 0;
  821.     *psize_local_extrafield = 0;
  822.  
  823.     if (fseek(s->file,s->cur_file_info_internal.offset_curfile +
  824.                                 s->byte_before_the_zipfile,SEEK_SET)!=0)
  825.         return UNZ_ERRNO;
  826.  
  827.  
  828.     if (err==UNZ_OK)
  829.         if (unzlocal_getLong(s->file,&uMagic) != UNZ_OK)
  830.             err=UNZ_ERRNO;
  831.         else if (uMagic!=0x04034b50)
  832.             err=UNZ_BADZIPFILE;
  833.  
  834.     if (unzlocal_getShort(s->file,&uData) != UNZ_OK)
  835.         err=UNZ_ERRNO;
  836. /*
  837.     else if ((err==UNZ_OK) && (uData!=s->cur_file_info.wVersion))
  838.         err=UNZ_BADZIPFILE;
  839. */
  840.     if (unzlocal_getShort(s->file,&uFlags) != UNZ_OK)
  841.         err=UNZ_ERRNO;
  842.  
  843.     if (unzlocal_getShort(s->file,&uData) != UNZ_OK)
  844.         err=UNZ_ERRNO;
  845.     else if ((err==UNZ_OK) && (uData!=s->cur_file_info.compression_method))
  846.         err=UNZ_BADZIPFILE;
  847.  
  848.     if ((err==UNZ_OK) && (s->cur_file_info.compression_method!=0) &&
  849.                          (s->cur_file_info.compression_method!=Z_DEFLATED))
  850.         err=UNZ_BADZIPFILE;
  851.  
  852.     if (unzlocal_getLong(s->file,&uData) != UNZ_OK) /* date/time */
  853.         err=UNZ_ERRNO;
  854.  
  855.     if (unzlocal_getLong(s->file,&uData) != UNZ_OK) /* crc */
  856.         err=UNZ_ERRNO;
  857.     else if ((err==UNZ_OK) && (uData!=s->cur_file_info.crc) &&
  858.                               ((uFlags & 8)==0))
  859.         err=UNZ_BADZIPFILE;
  860.  
  861.     if (unzlocal_getLong(s->file,&uData) != UNZ_OK) /* size compr */
  862.         err=UNZ_ERRNO;
  863.     else if ((err==UNZ_OK) && (uData!=s->cur_file_info.compressed_size) &&
  864.                               ((uFlags & 8)==0))
  865.         err=UNZ_BADZIPFILE;
  866.  
  867.     if (unzlocal_getLong(s->file,&uData) != UNZ_OK) /* size uncompr */
  868.         err=UNZ_ERRNO;
  869.     else if ((err==UNZ_OK) && (uData!=s->cur_file_info.uncompressed_size) && 
  870.                               ((uFlags & 8)==0))
  871.         err=UNZ_BADZIPFILE;
  872.  
  873.  
  874.     if (unzlocal_getShort(s->file,&size_filename) != UNZ_OK)
  875.         err=UNZ_ERRNO;
  876.     else if ((err==UNZ_OK) && (size_filename!=s->cur_file_info.size_filename))
  877.         err=UNZ_BADZIPFILE;
  878.  
  879.     *piSizeVar += (uInt)size_filename;
  880.  
  881.     if (unzlocal_getShort(s->file,&size_extra_field) != UNZ_OK)
  882.         err=UNZ_ERRNO;
  883.     *poffset_local_extrafield= s->cur_file_info_internal.offset_curfile +
  884.                                     SIZEZIPLOCALHEADER + size_filename;
  885.     *psize_local_extrafield = (uInt)size_extra_field;
  886.  
  887.     *piSizeVar += (uInt)size_extra_field;
  888.  
  889.     return err;
  890. }
  891.                                                 
  892. /*
  893.   Open for reading data the current file in the zipfile.
  894.   If there is no error and the file is opened, the return value is UNZ_OK.
  895. */
  896. extern int ZEXPORT unzOpenCurrentFile (file)
  897.     unzFile file;
  898. {
  899.     int err=UNZ_OK;
  900.     int Store;
  901.     uInt iSizeVar;
  902.     unz_s* s;
  903.     file_in_zip_read_info_s* pfile_in_zip_read_info;
  904.     uLong offset_local_extrafield;  /* offset of the local extra field */
  905.     uInt  size_local_extrafield;    /* size of the local extra field */
  906.  
  907.     if (file==NULL)
  908.         return UNZ_PARAMERROR;
  909.     s=(unz_s*)file;
  910.     if (!s->current_file_ok)
  911.         return UNZ_PARAMERROR;
  912.  
  913.     if (s->pfile_in_zip_read != NULL)
  914.         unzCloseCurrentFile(file);
  915.  
  916.     if (unzlocal_CheckCurrentFileCoherencyHeader(s,&iSizeVar,
  917.                 &offset_local_extrafield,&size_local_extrafield)!=UNZ_OK)
  918.         return UNZ_BADZIPFILE;
  919.  
  920.     pfile_in_zip_read_info = (file_in_zip_read_info_s*)
  921.                                         ALLOC(sizeof(file_in_zip_read_info_s));
  922.     if (pfile_in_zip_read_info==NULL)
  923.         return UNZ_INTERNALERROR;
  924.  
  925.     pfile_in_zip_read_info->read_buffer=(char*)ALLOC(UNZ_BUFSIZE);
  926.     pfile_in_zip_read_info->offset_local_extrafield = offset_local_extrafield;
  927.     pfile_in_zip_read_info->size_local_extrafield = size_local_extrafield;
  928.     pfile_in_zip_read_info->pos_local_extrafield=0;
  929.  
  930.     if (pfile_in_zip_read_info->read_buffer==NULL)
  931.     {
  932.         TRYFREE(pfile_in_zip_read_info);
  933.         return UNZ_INTERNALERROR;
  934.     }
  935.  
  936.     pfile_in_zip_read_info->stream_initialised=0;
  937.     
  938.     if ((s->cur_file_info.compression_method!=0) &&
  939.         (s->cur_file_info.compression_method!=Z_DEFLATED))
  940.         err=UNZ_BADZIPFILE;
  941.     Store = s->cur_file_info.compression_method==0;
  942.  
  943.     pfile_in_zip_read_info->crc32_wait=s->cur_file_info.crc;
  944.     pfile_in_zip_read_info->crc32=0;
  945.     pfile_in_zip_read_info->compression_method =
  946.             s->cur_file_info.compression_method;
  947.     pfile_in_zip_read_info->file=s->file;
  948.     pfile_in_zip_read_info->byte_before_the_zipfile=s->byte_before_the_zipfile;
  949.  
  950.     pfile_in_zip_read_info->stream.total_out = 0;
  951.  
  952.     if (!Store)
  953.     {
  954.       pfile_in_zip_read_info->stream.zalloc = (alloc_func)0;
  955.       pfile_in_zip_read_info->stream.zfree = (free_func)0;
  956.       pfile_in_zip_read_info->stream.opaque = (voidpf)0; 
  957.       
  958.       err=inflateInit2(&pfile_in_zip_read_info->stream, -MAX_WBITS);
  959.       if (err == Z_OK)
  960.         pfile_in_zip_read_info->stream_initialised=1;
  961.         /* windowBits is passed < 0 to tell that there is no zlib header.
  962.          * Note that in this case inflate *requires* an extra "dummy" byte
  963.          * after the compressed stream in order to complete decompression and
  964.          * return Z_STREAM_END. 
  965.          * In unzip, i don't wait absolutely Z_STREAM_END because I known the 
  966.          * size of both compressed and uncompressed data
  967.          */
  968.     }
  969.     pfile_in_zip_read_info->rest_read_compressed = 
  970.             s->cur_file_info.compressed_size ;
  971.     pfile_in_zip_read_info->rest_read_uncompressed = 
  972.             s->cur_file_info.uncompressed_size ;
  973.  
  974.     
  975.     pfile_in_zip_read_info->pos_in_zipfile = 
  976.             s->cur_file_info_internal.offset_curfile + SIZEZIPLOCALHEADER + 
  977.               iSizeVar;
  978.     
  979.     pfile_in_zip_read_info->stream.avail_in = (uInt)0;
  980.  
  981.  
  982.     s->pfile_in_zip_read = pfile_in_zip_read_info;
  983.     return UNZ_OK;
  984. }
  985.  
  986.  
  987. /*
  988.   Read bytes from the current file.
  989.   buf contain buffer where data must be copied
  990.   len the size of buf.
  991.  
  992.   return the number of byte copied if somes bytes are copied
  993.   return 0 if the end of file was reached
  994.   return <0 with error code if there is an error
  995.     (UNZ_ERRNO for IO error, or zLib error for uncompress error)
  996. */
  997. extern int ZEXPORT unzReadCurrentFile  (file, buf, len)
  998.     unzFile file;
  999.     voidp buf;
  1000.     unsigned len;
  1001. {
  1002.     int err=UNZ_OK;
  1003.     uInt iRead = 0;
  1004.     unz_s* s;
  1005.     file_in_zip_read_info_s* pfile_in_zip_read_info;
  1006.     if (file==NULL)
  1007.         return UNZ_PARAMERROR;
  1008.     s=(unz_s*)file;
  1009.     pfile_in_zip_read_info=s->pfile_in_zip_read;
  1010.  
  1011.     if (pfile_in_zip_read_info==NULL)
  1012.         return UNZ_PARAMERROR;
  1013.  
  1014.  
  1015.     if ((pfile_in_zip_read_info->read_buffer == NULL))
  1016.         return UNZ_END_OF_LIST_OF_FILE;
  1017.     if (len==0)
  1018.         return 0;
  1019.  
  1020.     pfile_in_zip_read_info->stream.next_out = (Bytef*)buf;
  1021.  
  1022.     pfile_in_zip_read_info->stream.avail_out = (uInt)len;
  1023.     
  1024.     if (len>pfile_in_zip_read_info->rest_read_uncompressed)
  1025.         pfile_in_zip_read_info->stream.avail_out = 
  1026.           (uInt)pfile_in_zip_read_info->rest_read_uncompressed;
  1027.  
  1028.     while (pfile_in_zip_read_info->stream.avail_out>0)
  1029.     {
  1030.         if ((pfile_in_zip_read_info->stream.avail_in==0) &&
  1031.             (pfile_in_zip_read_info->rest_read_compressed>0))
  1032.         {
  1033.             uInt uReadThis = UNZ_BUFSIZE;
  1034.             if (pfile_in_zip_read_info->rest_read_compressed<uReadThis)
  1035.                 uReadThis = (uInt)pfile_in_zip_read_info->rest_read_compressed;
  1036.             if (uReadThis == 0)
  1037.                 return UNZ_EOF;
  1038.             if (fseek(pfile_in_zip_read_info->file,
  1039.                       pfile_in_zip_read_info->pos_in_zipfile + 
  1040.                          pfile_in_zip_read_info->byte_before_the_zipfile,SEEK_SET)!=0)
  1041.                 return UNZ_ERRNO;
  1042.             if (fread(pfile_in_zip_read_info->read_buffer,uReadThis,1,
  1043.                          pfile_in_zip_read_info->file)!=1)
  1044.                 return UNZ_ERRNO;
  1045.             pfile_in_zip_read_info->pos_in_zipfile += uReadThis;
  1046.  
  1047.             pfile_in_zip_read_info->rest_read_compressed-=uReadThis;
  1048.             
  1049.             pfile_in_zip_read_info->stream.next_in = 
  1050.                 (Bytef*)pfile_in_zip_read_info->read_buffer;
  1051.             pfile_in_zip_read_info->stream.avail_in = (uInt)uReadThis;
  1052.         }
  1053.  
  1054.         if (pfile_in_zip_read_info->compression_method==0)
  1055.         {
  1056.             uInt uDoCopy,i ;
  1057.             if (pfile_in_zip_read_info->stream.avail_out < 
  1058.                             pfile_in_zip_read_info->stream.avail_in)
  1059.                 uDoCopy = pfile_in_zip_read_info->stream.avail_out ;
  1060.             else
  1061.                 uDoCopy = pfile_in_zip_read_info->stream.avail_in ;
  1062.                 
  1063.             for (i=0;i<uDoCopy;i++)
  1064.                 *(pfile_in_zip_read_info->stream.next_out+i) =
  1065.                         *(pfile_in_zip_read_info->stream.next_in+i);
  1066.                     
  1067.             pfile_in_zip_read_info->crc32 = crc32(pfile_in_zip_read_info->crc32,
  1068.                                 pfile_in_zip_read_info->stream.next_out,
  1069.                                 uDoCopy);
  1070.             pfile_in_zip_read_info->rest_read_uncompressed-=uDoCopy;
  1071.             pfile_in_zip_read_info->stream.avail_in -= uDoCopy;
  1072.             pfile_in_zip_read_info->stream.avail_out -= uDoCopy;
  1073.             pfile_in_zip_read_info->stream.next_out += uDoCopy;
  1074.             pfile_in_zip_read_info->stream.next_in += uDoCopy;
  1075.             pfile_in_zip_read_info->stream.total_out += uDoCopy;
  1076.             iRead += uDoCopy;
  1077.         }
  1078.         else
  1079.         {
  1080.             uLong uTotalOutBefore,uTotalOutAfter;
  1081.             const Bytef *bufBefore;
  1082.             uLong uOutThis;
  1083.             int flush=Z_SYNC_FLUSH;
  1084.  
  1085.             uTotalOutBefore = pfile_in_zip_read_info->stream.total_out;
  1086.             bufBefore = pfile_in_zip_read_info->stream.next_out;
  1087.  
  1088.             /*
  1089.             if ((pfile_in_zip_read_info->rest_read_uncompressed ==
  1090.                      pfile_in_zip_read_info->stream.avail_out) &&
  1091.                 (pfile_in_zip_read_info->rest_read_compressed == 0))
  1092.                 flush = Z_FINISH;
  1093.             */
  1094.             err=inflate(&pfile_in_zip_read_info->stream,flush);
  1095.  
  1096.             uTotalOutAfter = pfile_in_zip_read_info->stream.total_out;
  1097.             uOutThis = uTotalOutAfter-uTotalOutBefore;
  1098.             
  1099.             pfile_in_zip_read_info->crc32 = 
  1100.                 crc32(pfile_in_zip_read_info->crc32,bufBefore,
  1101.                         (uInt)(uOutThis));
  1102.  
  1103.             pfile_in_zip_read_info->rest_read_uncompressed -=
  1104.                 uOutThis;
  1105.  
  1106.             iRead += (uInt)(uTotalOutAfter - uTotalOutBefore);
  1107.             
  1108.             if (err==Z_STREAM_END)
  1109.                 return (iRead==0) ? UNZ_EOF : iRead;
  1110.             if (err!=Z_OK) 
  1111.                 break;
  1112.         }
  1113.     }
  1114.  
  1115.     if (err==Z_OK)
  1116.         return iRead;
  1117.     return err;
  1118. }
  1119.  
  1120.  
  1121. /*
  1122.   Give the current position in uncompressed data
  1123. */
  1124. extern z_off_t ZEXPORT unztell (file)
  1125.     unzFile file;
  1126. {
  1127.     unz_s* s;
  1128.     file_in_zip_read_info_s* pfile_in_zip_read_info;
  1129.     if (file==NULL)
  1130.         return UNZ_PARAMERROR;
  1131.     s=(unz_s*)file;
  1132.     pfile_in_zip_read_info=s->pfile_in_zip_read;
  1133.  
  1134.     if (pfile_in_zip_read_info==NULL)
  1135.         return UNZ_PARAMERROR;
  1136.  
  1137.     return (z_off_t)pfile_in_zip_read_info->stream.total_out;
  1138. }
  1139.  
  1140.  
  1141. /*
  1142.   return 1 if the end of file was reached, 0 elsewhere 
  1143. */
  1144. extern int ZEXPORT unzeof (file)
  1145.     unzFile file;
  1146. {
  1147.     unz_s* s;
  1148.     file_in_zip_read_info_s* pfile_in_zip_read_info;
  1149.     if (file==NULL)
  1150.         return UNZ_PARAMERROR;
  1151.     s=(unz_s*)file;
  1152.     pfile_in_zip_read_info=s->pfile_in_zip_read;
  1153.  
  1154.     if (pfile_in_zip_read_info==NULL)
  1155.         return UNZ_PARAMERROR;
  1156.     
  1157.     if (pfile_in_zip_read_info->rest_read_uncompressed == 0)
  1158.         return 1;
  1159.     else
  1160.         return 0;
  1161. }
  1162.  
  1163.  
  1164.  
  1165. /*
  1166.   Read extra field from the current file (opened by unzOpenCurrentFile)
  1167.   This is the local-header version of the extra field (sometimes, there is
  1168.     more info in the local-header version than in the central-header)
  1169.  
  1170.   if buf==NULL, it return the size of the local extra field that can be read
  1171.  
  1172.   if buf!=NULL, len is the size of the buffer, the extra header is copied in
  1173.     buf.
  1174.   the return value is the number of bytes copied in buf, or (if <0) 
  1175.     the error code
  1176. */
  1177. extern int ZEXPORT unzGetLocalExtrafield (file,buf,len)
  1178.     unzFile file;
  1179.     voidp buf;
  1180.     unsigned len;
  1181. {
  1182.     unz_s* s;
  1183.     file_in_zip_read_info_s* pfile_in_zip_read_info;
  1184.     uInt read_now;
  1185.     uLong size_to_read;
  1186.  
  1187.     if (file==NULL)
  1188.         return UNZ_PARAMERROR;
  1189.     s=(unz_s*)file;
  1190.     pfile_in_zip_read_info=s->pfile_in_zip_read;
  1191.  
  1192.     if (pfile_in_zip_read_info==NULL)
  1193.         return UNZ_PARAMERROR;
  1194.  
  1195.     size_to_read = (pfile_in_zip_read_info->size_local_extrafield - 
  1196.                 pfile_in_zip_read_info->pos_local_extrafield);
  1197.  
  1198.     if (buf==NULL)
  1199.         return (int)size_to_read;
  1200.     
  1201.     if (len>size_to_read)
  1202.         read_now = (uInt)size_to_read;
  1203.     else
  1204.         read_now = (uInt)len ;
  1205.  
  1206.     if (read_now==0)
  1207.         return 0;
  1208.     
  1209.     if (fseek(pfile_in_zip_read_info->file,
  1210.               pfile_in_zip_read_info->offset_local_extrafield + 
  1211.               pfile_in_zip_read_info->pos_local_extrafield,SEEK_SET)!=0)
  1212.         return UNZ_ERRNO;
  1213.  
  1214.     if (fread(buf,(uInt)size_to_read,1,pfile_in_zip_read_info->file)!=1)
  1215.         return UNZ_ERRNO;
  1216.  
  1217.     return (int)read_now;
  1218. }
  1219.  
  1220. /*
  1221.   Close the file in zip opened with unzipOpenCurrentFile
  1222.   Return UNZ_CRCERROR if all the file was read but the CRC is not good
  1223. */
  1224. extern int ZEXPORT unzCloseCurrentFile (file)
  1225.     unzFile file;
  1226. {
  1227.     int err=UNZ_OK;
  1228.  
  1229.     unz_s* s;
  1230.     file_in_zip_read_info_s* pfile_in_zip_read_info;
  1231.     if (file==NULL)
  1232.         return UNZ_PARAMERROR;
  1233.     s=(unz_s*)file;
  1234.     pfile_in_zip_read_info=s->pfile_in_zip_read;
  1235.  
  1236.     if (pfile_in_zip_read_info==NULL)
  1237.         return UNZ_PARAMERROR;
  1238.  
  1239.  
  1240.     if (pfile_in_zip_read_info->rest_read_uncompressed == 0)
  1241.     {
  1242.         if (pfile_in_zip_read_info->crc32 != pfile_in_zip_read_info->crc32_wait)
  1243.             err=UNZ_CRCERROR;
  1244.     }
  1245.  
  1246.  
  1247.     TRYFREE(pfile_in_zip_read_info->read_buffer);
  1248.     pfile_in_zip_read_info->read_buffer = NULL;
  1249.     if (pfile_in_zip_read_info->stream_initialised)
  1250.         inflateEnd(&pfile_in_zip_read_info->stream);
  1251.  
  1252.     pfile_in_zip_read_info->stream_initialised = 0;
  1253.     TRYFREE(pfile_in_zip_read_info);
  1254.  
  1255.     s->pfile_in_zip_read=NULL;
  1256.  
  1257.     return err;
  1258. }
  1259.  
  1260.  
  1261. /*
  1262.   Get the global comment string of the ZipFile, in the szComment buffer.
  1263.   uSizeBuf is the size of the szComment buffer.
  1264.   return the number of byte copied or an error code <0
  1265. */
  1266. extern int ZEXPORT unzGetGlobalComment (file, szComment, uSizeBuf)
  1267.     unzFile file;
  1268.     char *szComment;
  1269.     uLong uSizeBuf;
  1270. {
  1271.     int err=UNZ_OK;
  1272.     unz_s* s;
  1273.     uLong uReadThis ;
  1274.     if (file==NULL)
  1275.         return UNZ_PARAMERROR;
  1276.     s=(unz_s*)file;
  1277.  
  1278.     uReadThis = uSizeBuf;
  1279.     if (uReadThis>s->gi.size_comment)
  1280.         uReadThis = s->gi.size_comment;
  1281.  
  1282.     if (fseek(s->file,s->central_pos+22,SEEK_SET)!=0)
  1283.         return UNZ_ERRNO;
  1284.  
  1285.     if (uReadThis>0)
  1286.     {
  1287.       *szComment='\0';
  1288.       if (fread(szComment,(uInt)uReadThis,1,s->file)!=1)
  1289.         return UNZ_ERRNO;
  1290.     }
  1291.  
  1292.     if ((szComment != NULL) && (uSizeBuf > s->gi.size_comment))
  1293.         *(szComment+s->gi.size_comment)='\0';
  1294.     return (int)uReadThis;
  1295. }
  1296.