summaryrefslogtreecommitdiff
path: root/Build/source/libs/unzip/process.c
diff options
context:
space:
mode:
Diffstat (limited to 'Build/source/libs/unzip/process.c')
-rw-r--r--Build/source/libs/unzip/process.c1378
1 files changed, 0 insertions, 1378 deletions
diff --git a/Build/source/libs/unzip/process.c b/Build/source/libs/unzip/process.c
deleted file mode 100644
index 2d8f179e843..00000000000
--- a/Build/source/libs/unzip/process.c
+++ /dev/null
@@ -1,1378 +0,0 @@
-/*---------------------------------------------------------------------------
-
- process.c
-
- This file contains the top-level routines for processing multiple zipfiles.
-
- Contains: process_zipfiles()
- free_G_buffers()
- do_seekable()
- find_ecrec()
- uz_end_central()
- process_cdir_file_hdr()
- get_cdir_ent()
- process_local_file_hdr()
- ef_scan_for_izux()
-
- ---------------------------------------------------------------------------*/
-
-
-#define UNZIP_INTERNAL
-#include "unzip.h"
-#ifdef WINDLL
-# ifdef POCKET_UNZIP
-# include "wince/intrface.h"
-# else
-# include "windll/windll.h"
-# endif
-#endif
-
-static int do_seekable OF((__GPRO__ int lastchance));
-static int find_ecrec OF((__GPRO__ long searchlen));
-
-static ZCONST char Far CannotAllocateBuffers[] =
- "error: cannot allocate unzip buffers\n";
-
-#ifdef SFX
- static ZCONST char Far CannotFindMyself[] =
- "unzipsfx: cannot find myself! [%s]\n";
-
-#else /* !SFX */
- /* process_zipfiles() strings */
-# if (defined(IZ_CHECK_TZ) && defined(USE_EF_UT_TIME))
- static ZCONST char Far WarnInvalidTZ[] =
- "Warning: TZ environment variable not found, cannot use UTC times!!\n";
-# endif
- static ZCONST char Far FilesProcessOK[] =
- "%d archive%s successfully processed.\n";
- static ZCONST char Far ArchiveWarning[] =
- "%d archive%s had warnings but no fatal errors.\n";
- static ZCONST char Far ArchiveFatalError[] =
- "%d archive%s had fatal errors.\n";
- static ZCONST char Far FileHadNoZipfileDir[] =
- "%d file%s had no zipfile directory.\n";
- static ZCONST char Far ZipfileWasDir[] = "1 \"zipfile\" was a directory.\n";
- static ZCONST char Far ManyZipfilesWereDir[] =
- "%d \"zipfiles\" were directories.\n";
- static ZCONST char Far NoZipfileFound[] = "No zipfiles found.\n";
-
- /* do_seekable() strings */
-# ifdef UNIX
- static ZCONST char Far CannotFindZipfileDirMsg[] =
- "%s: cannot find zipfile directory in one of %s or\n\
- %s%s.zip, and cannot find %s, period.\n";
- static ZCONST char Far CannotFindEitherZipfile[] =
- "%s: cannot find %s, %s.zip or %s.\n"; /* ", so there" removed 970918 */
-# else /* !UNIX */
-# ifndef AMIGA
- static ZCONST char Far CannotFindWildcardMatch[] =
- "%s: cannot find any matches for wildcard specification \"%s\".\n";
-# endif /* !AMIGA */
- static ZCONST char Far CannotFindZipfileDirMsg[] =
- "%s: cannot find zipfile directory in %s,\n\
- %sand cannot find %s, period.\n";
- static ZCONST char Far CannotFindEitherZipfile[] =
- "%s: cannot find either %s or %s.\n"; /* ", so there" removed 970918 */
-# endif /* ?UNIX */
- extern ZCONST char Far Zipnfo[]; /* in unzip.c */
-#ifndef WINDLL
- static ZCONST char Far Unzip[] = "unzip";
-#else
- static ZCONST char Far Unzip[] = "UnZip DLL";
-#endif
- static ZCONST char Far MaybeExe[] =
- "note: %s may be a plain executable, not an archive\n";
- static ZCONST char Far CentDirNotInZipMsg[] = "\n\
- [%s]:\n\
- Zipfile is disk %u of a multi-disk archive, and this is not the disk on\n\
- which the central zipfile directory begins (disk %u).\n";
- static ZCONST char Far EndCentDirBogus[] =
- "\nwarning [%s]: end-of-central-directory record claims this\n\
- is disk %u but that the central directory starts on disk %u; this is a\n\
- contradiction. Attempting to process anyway.\n";
-# ifdef NO_MULTIPART
- static ZCONST char Far NoMultiDiskArcSupport[] =
- "\nerror [%s]: zipfile is part of multi-disk archive\n\
- (sorry, not yet supported).\n";
- static ZCONST char Far MaybePakBug[] = "warning [%s]:\
- zipfile claims to be 2nd disk of a 2-part archive;\n\
- attempting to process anyway. If no further errors occur, this archive\n\
- was probably created by PAK v2.51 or earlier. This bug was reported to\n\
- NoGate in March 1991 and was supposed to have been fixed by mid-1991; as\n\
- of mid-1992 it still hadn't been. (If further errors do occur, archive\n\
- was probably created by PKZIP 2.04c or later; UnZip does not yet support\n\
- multi-part archives.)\n";
-# else
- static ZCONST char Far MaybePakBug[] = "warning [%s]:\
- zipfile claims to be last disk of a multi-part archive;\n\
- attempting to process anyway, assuming all parts have been concatenated\n\
- together in order. Expect \"errors\" and warnings...true multi-part support\
-\n doesn't exist yet (coming soon).\n";
-# endif
- static ZCONST char Far ExtraBytesAtStart[] =
- "warning [%s]: %ld extra byte%s at beginning or within zipfile\n\
- (attempting to process anyway)\n";
-#endif /* ?SFX */
-
-static ZCONST char Far MissingBytes[] =
- "error [%s]: missing %ld bytes in zipfile\n\
- (attempting to process anyway)\n";
-static ZCONST char Far NullCentDirOffset[] =
- "error [%s]: NULL central directory offset\n\
- (attempting to process anyway)\n";
-static ZCONST char Far ZipfileEmpty[] = "warning [%s]: zipfile is empty\n";
-static ZCONST char Far CentDirStartNotFound[] =
- "error [%s]: start of central directory not found;\n\
- zipfile corrupt.\n%s";
-#ifndef SFX
- static ZCONST char Far CentDirTooLong[] =
- "error [%s]: reported length of central directory is\n\
- %ld bytes too long (Atari STZip zipfile? J.H.Holm ZIPSPLIT 1.1\n\
- zipfile?). Compensating...\n";
- static ZCONST char Far CentDirEndSigNotFound[] = "\
- End-of-central-directory signature not found. Either this file is not\n\
- a zipfile, or it constitutes one disk of a multi-part archive. In the\n\
- latter case the central directory and zipfile comment will be found on\n\
- the last disk(s) of this archive.\n";
-#else /* SFX */
- static ZCONST char Far CentDirEndSigNotFound[] =
- " End-of-central-directory signature not found.\n";
-#endif /* ?SFX */
-static ZCONST char Far ZipfileCommTrunc1[] =
- "\ncaution: zipfile comment truncated\n";
-
-
-
-
-/*******************************/
-/* Function process_zipfiles() */
-/*******************************/
-
-int process_zipfiles(__G) /* return PK-type error code */
- __GDEF
-{
-#ifndef SFX
- char *lastzipfn = (char *)NULL;
- int NumWinFiles, NumLoseFiles, NumWarnFiles;
- int NumMissDirs, NumMissFiles;
-#endif
- int error=0, error_in_archive=0;
-
-
-/*---------------------------------------------------------------------------
- Start by allocating buffers and (re)constructing the various PK signature
- strings.
- ---------------------------------------------------------------------------*/
-
- G.inbuf = (uch *)malloc(INBUFSIZ + 4); /* 4 extra for hold[] (below) */
- G.outbuf = (uch *)malloc(OUTBUFSIZ + 1); /* 1 extra for string term. */
-
- if ((G.inbuf == (uch *)NULL) || (G.outbuf == (uch *)NULL)) {
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(CannotAllocateBuffers)));
- return(PK_MEM);
- }
- G.hold = G.inbuf + INBUFSIZ; /* to check for boundary-spanning sigs */
-#ifndef VMS /* VMS uses its own buffer scheme for textmode flush(). */
-#ifdef SMALL_MEM
- G.outbuf2 = G.outbuf+RAWBUFSIZ; /* never changes */
-#endif
-#endif /* !VMS */
-
-#if 0 /* CRC_32_TAB has been NULLified by CONSTRUCTGLOBALS !!!! */
- /* allocate the CRC table only later when we know we have a zipfile */
- CRC_32_TAB = NULL;
-#endif /* 0 */
-
- /* finish up initialization of magic signature strings */
- local_hdr_sig[0] /* = extd_local_sig[0] */ = 0x50; /* ASCII 'P', */
- central_hdr_sig[0] = end_central_sig[0] = 0x50; /* not EBCDIC */
-
- local_hdr_sig[1] /* = extd_local_sig[1] */ = 0x4B; /* ASCII 'K', */
- central_hdr_sig[1] = end_central_sig[1] = 0x4B; /* not EBCDIC */
-
-/*---------------------------------------------------------------------------
- Make sure timezone info is set correctly; localtime() returns GMT on
- some OSes (e.g., Solaris 2.x) if this isn't done first. The ifdefs were
- initially copied from dos_to_unix_time() in fileio.c. probably, they are
- still too strict; any listed OS that supplies tzset(), regardless of
- whether the function does anything, should be removed from the ifdefs.
- ---------------------------------------------------------------------------*/
-
-#if (defined(IZ_CHECK_TZ) && defined(USE_EF_UT_TIME))
-# ifndef VALID_TIMEZONE
-# define VALID_TIMEZONE(tmp) \
- (((tmp = getenv("TZ")) != NULL) && (*tmp != '\0'))
-# endif
- {
- char *p;
- G.tz_is_valid = VALID_TIMEZONE(p);
-# ifndef SFX
- if (!G.tz_is_valid) {
- Info(slide, 0x401, ((char *)slide, LoadFarString(WarnInvalidTZ)));
- error_in_archive = error = PK_WARN;
- }
-# endif /* !SFX */
- }
-#endif /* IZ_CHECK_TZ && USE_EF_UT_TIME */
-
-/* For systems that do not have tzset() but supply this function using another
- name (_tzset() or something similar), an appropiate "#define tzset ..."
- should be added to the system specifc configuration section. */
-#if (!defined(T20_VMS) && !defined(MACOS) && !defined(RISCOS) && !defined(QDOS))
-#if (!defined(BSD) && !defined(MTS) && !defined(CMS_MVS) && !defined(TANDEM))
- tzset();
-#endif
-#endif
-
-/*---------------------------------------------------------------------------
- Match (possible) wildcard zipfile specification with existing files and
- attempt to process each. If no hits, try again after appending ".zip"
- suffix. If still no luck, give up.
- ---------------------------------------------------------------------------*/
-
-#ifdef SFX
- if ((error = do_seekable(__G__ 0)) == PK_NOZIP) {
-#ifdef EXE_EXTENSION
- int len=strlen(G.argv0);
-
- /* append .exe if appropriate; also .sfx? */
- if ( (G.zipfn = (char *)malloc(len+sizeof(EXE_EXTENSION))) !=
- (char *)NULL ) {
- strcpy(G.zipfn, G.argv0);
- strcpy(G.zipfn+len, EXE_EXTENSION);
- error = do_seekable(__G__ 0);
- free(G.zipfn);
- G.zipfn = G.argv0; /* for "cannot find myself" message only */
- }
-#endif /* EXE_EXTENSION */
-#ifdef WIN32
- G.zipfn = G.argv0; /* for "cannot find myself" message only */
-#endif
- }
- if (error) {
- if (error == IZ_DIR)
- error_in_archive = PK_NOZIP;
- else
- error_in_archive = error;
- if (error == PK_NOZIP)
- Info(slide, 1, ((char *)slide, LoadFarString(CannotFindMyself),
- G.zipfn));
- }
-
-#else /* !SFX */
- NumWinFiles = NumLoseFiles = NumWarnFiles = 0;
- NumMissDirs = NumMissFiles = 0;
-
- while ((G.zipfn = do_wild(__G__ G.wildzipfn)) != (char *)NULL) {
- Trace((stderr, "do_wild( %s ) returns %s\n", G.wildzipfn, G.zipfn));
-
- lastzipfn = G.zipfn;
-
- /* print a blank line between the output of different zipfiles */
- if (!uO.qflag && error != PK_NOZIP && error != IZ_DIR
-#ifdef TIMESTAMP
- && (!uO.T_flag || uO.zipinfo_mode)
-#endif
- && (NumWinFiles+NumLoseFiles+NumWarnFiles+NumMissFiles) > 0)
- (*G.message)((zvoid *)&G, (uch *)"\n", 1L, 0);
-
- if ((error = do_seekable(__G__ 0)) == PK_WARN)
- ++NumWarnFiles;
- else if (error == IZ_DIR)
- ++NumMissDirs;
- else if (error == PK_NOZIP)
- ++NumMissFiles;
- else if (error)
- ++NumLoseFiles;
- else
- ++NumWinFiles;
-
- if (error != IZ_DIR && error > error_in_archive)
- error_in_archive = error;
- Trace((stderr, "do_seekable(0) returns %d\n", error));
-#ifdef WINDLL
- if (error == IZ_CTRLC) {
- free_G_buffers(__G);
- return error;
- }
-#endif
-
- } /* end while-loop (wildcard zipfiles) */
-
- if ((NumWinFiles + NumWarnFiles + NumLoseFiles) == 0 &&
- (NumMissDirs + NumMissFiles) == 1 && lastzipfn != (char *)NULL)
- {
- NumMissDirs = NumMissFiles = 0;
- if (error_in_archive == PK_NOZIP)
- error_in_archive = PK_COOL;
-
-#if (!defined(UNIX) && !defined(AMIGA)) /* filenames with wildcard characters */
- if (iswild(G.wildzipfn))
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(CannotFindWildcardMatch), uO.zipinfo_mode?
- LoadFarStringSmall(Zipnfo) : LoadFarStringSmall(Unzip),
- G.wildzipfn));
- else
-#endif
- {
- char *p = lastzipfn + strlen(lastzipfn);
-
- G.zipfn = lastzipfn;
- strcpy(p, ZSUFX);
-
-#if defined(UNIX) || defined(QDOS)
- /* only Unix has case-sensitive filesystems */
- /* Well FlexOS (sometimes) also has them, but support is per media */
- /* and a pig to code for, so treat as case insensitive for now */
- /* we do this under QDOS to check for .zip as well as _zip */
- if ((error = do_seekable(__G__ 0)) == PK_NOZIP || error == IZ_DIR) {
- if (error == IZ_DIR)
- ++NumMissDirs;
- strcpy(p, ALT_ZSUFX);
- error = do_seekable(__G__ 1);
- }
-#else
- error = do_seekable(__G__ 1);
-#endif
- if (error == PK_WARN) /* GRR: make this a switch/case stmt ... */
- ++NumWarnFiles;
- else if (error == IZ_DIR)
- ++NumMissDirs;
- else if (error == PK_NOZIP)
- /* increment again => bug: "1 file had no zipfile directory." */
- /* ++NumMissFiles */ ;
- else if (error)
- ++NumLoseFiles;
- else
- ++NumWinFiles;
-
- if (error > error_in_archive)
- error_in_archive = error;
- Trace((stderr, "do_seekable(1) returns %d\n", error));
-#ifdef WINDLL
- if (error == IZ_CTRLC) {
- free_G_buffers(__G);
- return error;
- }
-#endif
- }
- }
-#endif /* ?SFX */
-
-/*---------------------------------------------------------------------------
- Print summary of all zipfiles, assuming zipfile spec was a wildcard (no
- need for a summary if just one zipfile).
- ---------------------------------------------------------------------------*/
-
-#ifndef SFX
- if (iswild(G.wildzipfn) && uO.qflag < 3
-#ifdef TIMESTAMP
- && !(uO.T_flag && uO.qflag && !uO.zipinfo_mode)
-#endif
- )
- {
- if ((NumMissFiles + NumLoseFiles + NumWarnFiles > 0 || NumWinFiles != 1)
-#ifdef TIMESTAMP
- && !(uO.T_flag && !uO.zipinfo_mode)
-#endif
- && !(uO.tflag && uO.qflag > 1))
- (*G.message)((zvoid *)&G, (uch *)"\n", 1L, 0x401);
- if ((NumWinFiles > 1) || (NumWinFiles == 1 &&
- NumMissDirs + NumMissFiles + NumLoseFiles + NumWarnFiles > 0))
- Info(slide, 0x401, ((char *)slide, LoadFarString(FilesProcessOK),
- NumWinFiles, (NumWinFiles == 1)? " was" : "s were"));
- if (NumWarnFiles > 0)
- Info(slide, 0x401, ((char *)slide, LoadFarString(ArchiveWarning),
- NumWarnFiles, (NumWarnFiles == 1)? "" : "s"));
- if (NumLoseFiles > 0)
- Info(slide, 0x401, ((char *)slide, LoadFarString(ArchiveFatalError),
- NumLoseFiles, (NumLoseFiles == 1)? "" : "s"));
- if (NumMissFiles > 0)
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(FileHadNoZipfileDir), NumMissFiles,
- (NumMissFiles == 1)? "" : "s"));
- if (NumMissDirs == 1)
- Info(slide, 0x401, ((char *)slide, LoadFarString(ZipfileWasDir)));
- else if (NumMissDirs > 0)
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(ManyZipfilesWereDir), NumMissDirs));
- if (NumWinFiles + NumLoseFiles + NumWarnFiles == 0)
- Info(slide, 0x401, ((char *)slide, LoadFarString(NoZipfileFound)));
- }
-#endif /* !SFX */
-
- /* free allocated memory */
- free_G_buffers(__G);
-
- return error_in_archive;
-
-} /* end function process_zipfiles() */
-
-
-
-
-
-/*****************************/
-/* Function free_G_buffers() */
-/*****************************/
-
-void free_G_buffers(__G) /* releases all memory allocated in global vars */
- __GDEF
-{
- inflate_free(__G);
- checkdir(__G__ (char *)NULL, END);
-
-#ifdef DYNALLOC_CRCTAB
- if (CRC_32_TAB) {
- free_crc_table();
- CRC_32_TAB = NULL;
- }
-#endif
-
- if (G.key != (char *)NULL) {
- free(G.key);
- G.key = (char *)NULL;
- }
-
-#if (!defined(VMS) && !defined(SMALL_MEM))
- /* VMS uses its own buffer scheme for textmode flush() */
- if (G.outbuf2) {
- free(G.outbuf2); /* malloc'd ONLY if unshrink and -a */
- G.outbuf2 = (uch *)NULL;
- }
-#endif
-
- if (G.outbuf)
- free(G.outbuf);
- if (G.inbuf)
- free(G.inbuf);
- G.inbuf = G.outbuf = (uch *)NULL;
-
-#ifdef MALLOC_WORK
- if (G.area.Slide) {
- free(G.area.Slide);
- G.area.Slide = (uch *)NULL;
- }
-#endif
-
-} /* end function free_G_buffers() */
-
-
-
-
-
-/**************************/
-/* Function do_seekable() */
-/**************************/
-
-static int do_seekable(__G__ lastchance) /* return PK-type error code */
- __GDEF
- int lastchance;
-{
-#ifndef SFX
- /* static int no_ecrec = FALSE; SKM: moved to globals.h */
- int maybe_exe=FALSE;
- int too_weird_to_continue=FALSE;
-#ifdef TIMESTAMP
- time_t uxstamp;
- unsigned nmember = 0;
-#endif
-#endif
- int error=0, error_in_archive;
-
-
-/*---------------------------------------------------------------------------
- Open the zipfile for reading in BINARY mode to prevent CR/LF translation,
- which would corrupt the bit streams.
- ---------------------------------------------------------------------------*/
-
- if (SSTAT(G.zipfn, &G.statbuf) ||
- (error = S_ISDIR(G.statbuf.st_mode)) != 0)
- {
-#ifndef SFX
- if (lastchance) {
-#if defined(UNIX) || defined(QDOS)
- if (G.no_ecrec)
- Info(slide, 1, ((char *)slide,
- LoadFarString(CannotFindZipfileDirMsg), uO.zipinfo_mode?
- LoadFarStringSmall(Zipnfo) : LoadFarStringSmall(Unzip),
- G.wildzipfn, uO.zipinfo_mode? " " : "", G.wildzipfn,
- G.zipfn));
- else
- Info(slide, 1, ((char *)slide,
- LoadFarString(CannotFindEitherZipfile), uO.zipinfo_mode?
- LoadFarStringSmall(Zipnfo) : LoadFarStringSmall(Unzip),
- G.wildzipfn, G.wildzipfn, G.zipfn));
-#else /* !UNIX */
- if (G.no_ecrec)
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(CannotFindZipfileDirMsg), uO.zipinfo_mode?
- LoadFarStringSmall(Zipnfo) : LoadFarStringSmall(Unzip),
- G.wildzipfn, uO.zipinfo_mode? " " : "", G.zipfn));
- else
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(CannotFindEitherZipfile), uO.zipinfo_mode?
- LoadFarStringSmall(Zipnfo) : LoadFarStringSmall(Unzip),
- G.wildzipfn, G.zipfn));
-#endif /* ?UNIX */
- }
-#endif /* !SFX */
- return error? IZ_DIR : PK_NOZIP;
- }
- G.ziplen = G.statbuf.st_size;
-
-#ifndef SFX
-#if defined(UNIX) || defined(DOS_OS2_W32)
- if (G.statbuf.st_mode & S_IEXEC) /* no extension on Unix exes: might */
- maybe_exe = TRUE; /* find unzip, not unzip.zip; etc. */
-#endif
-#endif /* !SFX */
-
-#ifdef VMS
- if (check_format(__G)) /* check for variable-length format */
- return PK_ERR;
-#endif
-
- if (open_input_file(__G)) /* this should never happen, given */
- return PK_NOZIP; /* the stat() test above, but... */
-
-/*---------------------------------------------------------------------------
- Find and process the end-of-central-directory header. UnZip need only
- check last 65557 bytes of zipfile: comment may be up to 65535, end-of-
- central-directory record is 18 bytes, and signature itself is 4 bytes;
- add some to allow for appended garbage. Since ZipInfo is often used as
- a debugging tool, search the whole zipfile if zipinfo_mode is true.
- ---------------------------------------------------------------------------*/
-
- /* initialize the CRC table pointer (once) */
- if (CRC_32_TAB == NULL) {
- if ((CRC_32_TAB = get_crc_table()) == NULL)
- return PK_MEM;
- }
-
-#if (!defined(SFX) || defined(SFX_EXDIR))
- /* check out if specified extraction root directory exists */
- if (uO.exdir != (char *)NULL && G.extract_flag) {
- G.create_dirs = !uO.fflag;
- if ((error = checkdir(__G__ uO.exdir, ROOT)) > 2)
- return error; /* out of memory, or file in way */
- }
-#endif /* !SFX || SFX_EXDIR */
-
- G.cur_zipfile_bufstart = 0;
- G.inptr = G.inbuf;
-
-#if (!defined(WINDLL) && !defined(SFX))
-#ifdef TIMESTAMP
- if (!uO.zipinfo_mode && !uO.qflag && !uO.T_flag)
-#else
- if (!uO.zipinfo_mode && !uO.qflag)
-#endif
-#ifdef WIN32 /* Win32 console may require codepage conversion for G.zipfn */
- Info(slide, 0, ((char *)slide, "Archive: %s\n", FnFilter1(G.zipfn)));
-#else
- Info(slide, 0, ((char *)slide, "Archive: %s\n", G.zipfn));
-#endif
-#endif /* !WINDLL && !SFX */
-
- if ((
-#ifndef NO_ZIPINFO
- uO.zipinfo_mode &&
- ((error_in_archive = find_ecrec(__G__ G.ziplen)) != 0 ||
- (error_in_archive = zi_end_central(__G)) > PK_WARN))
- || (!uO.zipinfo_mode &&
-#endif
- ((error_in_archive = find_ecrec(__G__ MIN(G.ziplen,66000L))) != 0 ||
- (error_in_archive = uz_end_central(__G)) > PK_WARN)))
- {
- CLOSE_INFILE();
-
-#ifdef SFX
- ++lastchance; /* avoid picky compiler warnings */
- return error_in_archive;
-#else
- if (maybe_exe)
- Info(slide, 0x401, ((char *)slide, LoadFarString(MaybeExe),
- G.zipfn));
- if (lastchance)
- return error_in_archive;
- else {
- G.no_ecrec = TRUE; /* assume we found wrong file: e.g., */
- return PK_NOZIP; /* unzip instead of unzip.zip */
- }
-#endif /* ?SFX */
- }
-
- if ((uO.zflag > 0) && !uO.zipinfo_mode) { /* unzip: zflag = comment ONLY */
- CLOSE_INFILE();
- return error_in_archive;
- }
-
-/*---------------------------------------------------------------------------
- Test the end-of-central-directory info for incompatibilities (multi-disk
- archives) or inconsistencies (missing or extra bytes in zipfile).
- ---------------------------------------------------------------------------*/
-
-#ifdef NO_MULTIPART
- error = !uO.zipinfo_mode && (G.ecrec.number_this_disk == 1) &&
- (G.ecrec.num_disk_start_cdir == 1);
-#else
- error = !uO.zipinfo_mode && (G.ecrec.number_this_disk != 0);
-#endif
-
-#ifndef SFX
- if (uO.zipinfo_mode &&
- G.ecrec.number_this_disk != G.ecrec.num_disk_start_cdir)
- {
- if (G.ecrec.number_this_disk > G.ecrec.num_disk_start_cdir) {
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(CentDirNotInZipMsg), G.zipfn,
- G.ecrec.number_this_disk, G.ecrec.num_disk_start_cdir));
- error_in_archive = PK_FIND;
- too_weird_to_continue = TRUE;
- } else {
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(EndCentDirBogus), G.zipfn,
- G.ecrec.number_this_disk, G.ecrec.num_disk_start_cdir));
- error_in_archive = PK_WARN;
- }
-#ifdef NO_MULTIPART /* concatenation of multiple parts works in some cases */
- } else if (!uO.zipinfo_mode && !error && G.ecrec.number_this_disk != 0) {
- Info(slide, 0x401, ((char *)slide, LoadFarString(NoMultiDiskArcSupport),
- G.zipfn));
- error_in_archive = PK_FIND;
- too_weird_to_continue = TRUE;
-#endif
- }
-
- if (!too_weird_to_continue) { /* (relatively) normal zipfile: go for it */
- if (error) {
- Info(slide, 0x401, ((char *)slide, LoadFarString(MaybePakBug),
- G.zipfn));
- error_in_archive = PK_WARN;
- }
-#endif /* !SFX */
- if ((G.extra_bytes = G.real_ecrec_offset-G.expect_ecrec_offset) <
- (LONGINT)0)
- {
- Info(slide, 0x401, ((char *)slide, LoadFarString(MissingBytes),
- G.zipfn, (long)(-G.extra_bytes)));
- error_in_archive = PK_ERR;
- } else if (G.extra_bytes > 0) {
- if ((G.ecrec.offset_start_central_directory == 0) &&
- (G.ecrec.size_central_directory != 0)) /* zip 1.5 -go bug */
- {
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(NullCentDirOffset), G.zipfn));
- G.ecrec.offset_start_central_directory = G.extra_bytes;
- G.extra_bytes = 0;
- error_in_archive = PK_ERR;
- }
-#ifndef SFX
- else {
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(ExtraBytesAtStart), G.zipfn,
- (long)G.extra_bytes, (G.extra_bytes == 1)? "":"s"));
- error_in_archive = PK_WARN;
- }
-#endif /* !SFX */
- }
-
- /*-----------------------------------------------------------------------
- Check for empty zipfile and exit now if so.
- -----------------------------------------------------------------------*/
-
- if (G.expect_ecrec_offset==0L && G.ecrec.size_central_directory==0) {
- if (uO.zipinfo_mode)
- Info(slide, 0, ((char *)slide, "%sEmpty zipfile.\n",
- uO.lflag>9? "\n " : ""));
- else
- Info(slide, 0x401, ((char *)slide, LoadFarString(ZipfileEmpty),
- G.zipfn));
- CLOSE_INFILE();
- return (error_in_archive > PK_WARN)? error_in_archive : PK_WARN;
- }
-
- /*-----------------------------------------------------------------------
- Compensate for missing or extra bytes, and seek to where the start
- of central directory should be. If header not found, uncompensate
- and try again (necessary for at least some Atari archives created
- with STZip, as well as archives created by J.H. Holm's ZIPSPLIT 1.1).
- -----------------------------------------------------------------------*/
-
- ZLSEEK( G.ecrec.offset_start_central_directory )
-#ifdef OLD_SEEK_TEST
- if (readbuf(G.sig, 4) == 0) {
- CLOSE_INFILE();
- return PK_ERR; /* file may be locked, or possibly disk error(?) */
- }
- if (strncmp(G.sig, central_hdr_sig, 4))
-#else
- if ((readbuf(__G__ G.sig, 4) == 0) ||
- strncmp(G.sig, central_hdr_sig, 4))
-#endif
- {
-#ifndef SFX
- long tmp = G.extra_bytes;
-#endif
-
- G.extra_bytes = 0;
- ZLSEEK( G.ecrec.offset_start_central_directory )
- if ((readbuf(__G__ G.sig, 4) == 0) ||
- strncmp(G.sig, central_hdr_sig, 4))
- {
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(CentDirStartNotFound), G.zipfn,
- LoadFarStringSmall(ReportMsg)));
- CLOSE_INFILE();
- return PK_BADERR;
- }
-#ifndef SFX
- Info(slide, 0x401, ((char *)slide, LoadFarString(CentDirTooLong),
- G.zipfn, -tmp));
-#endif
- error_in_archive = PK_ERR;
- }
-
- /*-----------------------------------------------------------------------
- Seek to the start of the central directory one last time, since we
- have just read the first entry's signature bytes; then list, extract
- or test member files as instructed, and close the zipfile.
- -----------------------------------------------------------------------*/
-
- Trace((stderr, "about to extract/list files (error = %d)\n",
- error_in_archive));
-
- ZLSEEK( G.ecrec.offset_start_central_directory )
-
-#ifdef DLL
- /* G.fValidate is used only to look at an archive to see if
- it appears to be a valid archive. There is no interest
- in what the archive contains, nor in validating that the
- entries in the archive are in good condition. This is
- currently used only in the Windows DLLs for purposes of
- checking archives within an archive to determine whether
- or not to display the inner archives.
- */
- if (!G.fValidate)
-#endif
- {
-#ifndef NO_ZIPINFO
- if (uO.zipinfo_mode)
- error = zipinfo(__G); /* ZIPINFO 'EM */
- else
-#endif
-#ifndef SFX
-#ifdef TIMESTAMP
- if (uO.T_flag)
- error = get_time_stamp(__G__ &uxstamp, &nmember);
- else
-#endif
- if (uO.vflag && !uO.tflag && !uO.cflag)
- error = list_files(__G); /* LIST 'EM */
- else
-#endif /* !SFX */
- error = extract_or_test_files(__G); /* EXTRACT OR TEST 'EM */
-
- Trace((stderr, "done with extract/list files (error = %d)\n",
- error));
- }
-
- if (error > error_in_archive) /* don't overwrite stronger error */
- error_in_archive = error; /* with (for example) a warning */
-#ifndef SFX
- } /* end if (!too_weird_to_continue) */
-#endif
-
- CLOSE_INFILE();
-
-#ifdef TIMESTAMP
- if (uO.T_flag && !uO.zipinfo_mode && (nmember > 0)) {
-# ifdef WIN32
- if (stamp_file(__G__ G.zipfn, uxstamp)) { /* TIME-STAMP 'EM */
-# else
- if (stamp_file(G.zipfn, uxstamp)) { /* TIME-STAMP 'EM */
-# endif
- Info(slide, 0x201, ((char *)slide,
- "warning: cannot set time for %s\n", G.zipfn));
- if (error_in_archive < PK_WARN)
- error_in_archive = PK_WARN;
- }
- }
-#endif
- return error_in_archive;
-
-} /* end function do_seekable() */
-
-
-
-
-
-/*************************/
-/* Function find_ecrec() */
-/*************************/
-
-static int find_ecrec(__G__ searchlen) /* return PK-class error */
- __GDEF
- long searchlen;
-{
- int i, numblks, found=FALSE;
- LONGINT tail_len;
- ec_byte_rec byterec;
-
-
-/*---------------------------------------------------------------------------
- Treat case of short zipfile separately.
- ---------------------------------------------------------------------------*/
-
- if (G.ziplen <= INBUFSIZ) {
- lseek(G.zipfd, 0L, SEEK_SET);
- if ((G.incnt = read(G.zipfd,(char *)G.inbuf,(unsigned int)G.ziplen))
- == (int)G.ziplen)
-
- /* 'P' must be at least 22 bytes from end of zipfile */
- for (G.inptr = G.inbuf+(int)G.ziplen-22; G.inptr >= G.inbuf;
- --G.inptr)
- if ((native(*G.inptr) == 'P') &&
- !strncmp((char *)G.inptr, end_central_sig, 4)) {
- G.incnt -= (int)(G.inptr - G.inbuf);
- found = TRUE;
- break;
- }
-
-/*---------------------------------------------------------------------------
- Zipfile is longer than INBUFSIZ: may need to loop. Start with short
- block at end of zipfile (if not TOO short).
- ---------------------------------------------------------------------------*/
-
- } else {
- if ((tail_len = G.ziplen % INBUFSIZ) > ECREC_SIZE) {
-#ifdef USE_STRM_INPUT
- fseek((FILE *)G.zipfd, G.ziplen-tail_len, SEEK_SET);
- G.cur_zipfile_bufstart = ftell((FILE *)G.zipfd);
-#else /* !USE_STRM_INPUT */
- G.cur_zipfile_bufstart = lseek(G.zipfd, G.ziplen-tail_len,
- SEEK_SET);
-#endif /* ?USE_STRM_INPUT */
- if ((G.incnt = read(G.zipfd, (char *)G.inbuf,
- (unsigned int)tail_len)) != (int)tail_len)
- goto fail; /* it's expedient... */
-
- /* 'P' must be at least 22 bytes from end of zipfile */
- for (G.inptr = G.inbuf+(int)tail_len-22; G.inptr >= G.inbuf;
- --G.inptr)
- if ((native(*G.inptr) == 'P') &&
- !strncmp((char *)G.inptr, end_central_sig, 4)) {
- G.incnt -= (int)(G.inptr - G.inbuf);
- found = TRUE;
- break;
- }
- /* sig may span block boundary: */
- strncpy((char *)G.hold, (char *)G.inbuf, 3);
- } else
- G.cur_zipfile_bufstart = G.ziplen - tail_len;
-
- /*-----------------------------------------------------------------------
- Loop through blocks of zipfile data, starting at the end and going
- toward the beginning. In general, need not check whole zipfile for
- signature, but may want to do so if testing.
- -----------------------------------------------------------------------*/
-
- numblks = (int)((searchlen - tail_len + (INBUFSIZ-1)) / INBUFSIZ);
- /* ==amount= ==done== ==rounding== =blksiz= */
-
- for (i = 1; !found && (i <= numblks); ++i) {
- G.cur_zipfile_bufstart -= INBUFSIZ;
- lseek(G.zipfd, G.cur_zipfile_bufstart, SEEK_SET);
- if ((G.incnt = read(G.zipfd,(char *)G.inbuf,INBUFSIZ))
- != INBUFSIZ)
- break; /* fall through and fail */
-
- for (G.inptr = G.inbuf+INBUFSIZ-1; G.inptr >= G.inbuf;
- --G.inptr)
- if ((native(*G.inptr) == 'P') &&
- !strncmp((char *)G.inptr, end_central_sig, 4)) {
- G.incnt -= (int)(G.inptr - G.inbuf);
- found = TRUE;
- break;
- }
- /* sig may span block boundary: */
- strncpy((char *)G.hold, (char *)G.inbuf, 3);
- }
- } /* end if (ziplen > INBUFSIZ) */
-
-/*---------------------------------------------------------------------------
- Searched through whole region where signature should be without finding
- it. Print informational message and die a horrible death.
- ---------------------------------------------------------------------------*/
-
-fail:
- if (!found) {
- if (uO.qflag || uO.zipinfo_mode)
- Info(slide, 0x401, ((char *)slide, "[%s]\n", G.zipfn));
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(CentDirEndSigNotFound)));
- return PK_ERR; /* failed */
- }
-
-/*---------------------------------------------------------------------------
- Found the signature, so get the end-central data before returning. Do
- any necessary machine-type conversions (byte ordering, structure padding
- compensation) by reading data into character array and copying to struct.
- ---------------------------------------------------------------------------*/
-
- G.real_ecrec_offset = G.cur_zipfile_bufstart + (G.inptr-G.inbuf);
-#ifdef TEST
- printf("\n found end-of-central-dir signature at offset %ld (%.8lXh)\n",
- G.real_ecrec_offset, G.real_ecrec_offset);
- printf(" from beginning of file; offset %d (%.4Xh) within block\n",
- G.inptr-G.inbuf, G.inptr-G.inbuf);
-#endif
-
- if (readbuf(__G__ (char *)byterec, ECREC_SIZE+4) == 0)
- return PK_EOF;
-
- G.ecrec.number_this_disk =
- makeword(&byterec[NUMBER_THIS_DISK]);
- G.ecrec.num_disk_start_cdir =
- makeword(&byterec[NUM_DISK_WITH_START_CENTRAL_DIR]);
- G.ecrec.num_entries_centrl_dir_ths_disk =
- makeword(&byterec[NUM_ENTRIES_CENTRL_DIR_THS_DISK]);
- G.ecrec.total_entries_central_dir =
- makeword(&byterec[TOTAL_ENTRIES_CENTRAL_DIR]);
- G.ecrec.size_central_directory =
- makelong(&byterec[SIZE_CENTRAL_DIRECTORY]);
- G.ecrec.offset_start_central_directory =
- makelong(&byterec[OFFSET_START_CENTRAL_DIRECTORY]);
- G.ecrec.zipfile_comment_length =
- makeword(&byterec[ZIPFILE_COMMENT_LENGTH]);
-
- G.expect_ecrec_offset = G.ecrec.offset_start_central_directory +
- G.ecrec.size_central_directory;
- return PK_COOL;
-
-} /* end function find_ecrec() */
-
-
-
-
-
-/*****************************/
-/* Function uz_end_central() */
-/*****************************/
-
-int uz_end_central(__G) /* return PK-type error code */
- __GDEF
-{
- int error = PK_COOL;
-
-
-/*---------------------------------------------------------------------------
- Get the zipfile comment (up to 64KB long), if any, and print it out.
- Then position the file pointer to the beginning of the central directory
- and fill buffer.
- ---------------------------------------------------------------------------*/
-
-#ifdef WINDLL
- /* for comment button: */
- if ((!G.fValidate) && (G.lpUserFunctions != NULL))
- G.lpUserFunctions->cchComment = G.ecrec.zipfile_comment_length;
- if (G.ecrec.zipfile_comment_length && (uO.zflag > 0))
-#else /* !WINDLL */
- if (G.ecrec.zipfile_comment_length && (uO.zflag > 0 ||
- (uO.zflag == 0 &&
-#ifdef TIMESTAMP
- !uO.T_flag &&
-#endif
- !uO.qflag)))
-#endif /* ?WINDLL */
- {
- if (do_string(__G__ G.ecrec.zipfile_comment_length, DISPLAY)) {
- Info(slide, 0x401, ((char *)slide,
- LoadFarString(ZipfileCommTrunc1)));
- error = PK_WARN;
- }
- }
- return error;
-
-} /* end function uz_end_central() */
-
-
-
-
-
-/************************************/
-/* Function process_cdir_file_hdr() */
-/************************************/
-
-int process_cdir_file_hdr(__G) /* return PK-type error code */
- __GDEF
-{
- int error;
-
-
-/*---------------------------------------------------------------------------
- Get central directory info, save host and method numbers, and set flag
- for lowercase conversion of filename, depending on the OS from which the
- file is coming.
- ---------------------------------------------------------------------------*/
-
- if ((error = get_cdir_ent(__G)) != 0)
- return error;
-
- G.pInfo->hostnum = MIN(G.crec.version_made_by[1], NUM_HOSTS);
-/* extnum = MIN(crec.version_needed_to_extract[1], NUM_HOSTS); */
-
- G.pInfo->lcflag = 0;
- if (uO.L_flag) /* user specified case-conversion */
- switch (G.pInfo->hostnum) {
- case FS_FAT_: /* PKZIP and zip -k store in uppercase */
- case CPM_: /* like MS-DOS, right? */
- case VM_CMS_: /* all caps? */
- case MVS_: /* all caps? */
- case TANDEM_:
- case TOPS20_:
- case VMS_: /* our Zip uses lowercase, but ASi's doesn't */
- /* case Z_SYSTEM_: ? */
- /* case QDOS_: ? */
- G.pInfo->lcflag = 1; /* convert filename to lowercase */
- break;
-
- default: /* AMIGA_, FS_HPFS_, FS_NTFS_, MAC_, UNIX_, ATARI_, */
- break; /* FS_VFAT_, BEOS_ (Z_SYSTEM_): no conversion */
- }
-
- /* do Amigas (AMIGA_) also have volume labels? */
- if (IS_VOLID(G.crec.external_file_attributes) &&
- (G.pInfo->hostnum == FS_FAT_ || G.pInfo->hostnum == FS_HPFS_ ||
- G.pInfo->hostnum == FS_NTFS_ || G.pInfo->hostnum == ATARI_))
- {
- G.pInfo->vollabel = TRUE;
- G.pInfo->lcflag = 0; /* preserve case of volume labels */
- } else
- G.pInfo->vollabel = FALSE;
-
- return PK_COOL;
-
-} /* end function process_cdir_file_hdr() */
-
-
-
-
-
-/***************************/
-/* Function get_cdir_ent() */
-/***************************/
-
-int get_cdir_ent(__G) /* return PK-type error code */
- __GDEF
-{
- cdir_byte_hdr byterec;
-
-
-/*---------------------------------------------------------------------------
- Read the next central directory entry and do any necessary machine-type
- conversions (byte ordering, structure padding compensation--do so by
- copying the data from the array into which it was read (byterec) to the
- usable struct (crec)).
- ---------------------------------------------------------------------------*/
-
- if (readbuf(__G__ (char *)byterec, CREC_SIZE) == 0)
- return PK_EOF;
-
- G.crec.version_made_by[0] = byterec[C_VERSION_MADE_BY_0];
- G.crec.version_made_by[1] = byterec[C_VERSION_MADE_BY_1];
- G.crec.version_needed_to_extract[0] =
- byterec[C_VERSION_NEEDED_TO_EXTRACT_0];
- G.crec.version_needed_to_extract[1] =
- byterec[C_VERSION_NEEDED_TO_EXTRACT_1];
-
- G.crec.general_purpose_bit_flag =
- makeword(&byterec[C_GENERAL_PURPOSE_BIT_FLAG]);
- G.crec.compression_method =
- makeword(&byterec[C_COMPRESSION_METHOD]);
- G.crec.last_mod_dos_datetime =
- makelong(&byterec[C_LAST_MOD_DOS_DATETIME]);
- G.crec.crc32 =
- makelong(&byterec[C_CRC32]);
- G.crec.csize =
- makelong(&byterec[C_COMPRESSED_SIZE]);
- G.crec.ucsize =
- makelong(&byterec[C_UNCOMPRESSED_SIZE]);
- G.crec.filename_length =
- makeword(&byterec[C_FILENAME_LENGTH]);
- G.crec.extra_field_length =
- makeword(&byterec[C_EXTRA_FIELD_LENGTH]);
- G.crec.file_comment_length =
- makeword(&byterec[C_FILE_COMMENT_LENGTH]);
- G.crec.disk_number_start =
- makeword(&byterec[C_DISK_NUMBER_START]);
- G.crec.internal_file_attributes =
- makeword(&byterec[C_INTERNAL_FILE_ATTRIBUTES]);
- G.crec.external_file_attributes =
- makelong(&byterec[C_EXTERNAL_FILE_ATTRIBUTES]); /* LONG, not word! */
- G.crec.relative_offset_local_header =
- makelong(&byterec[C_RELATIVE_OFFSET_LOCAL_HEADER]);
-
- return PK_COOL;
-
-} /* end function get_cdir_ent() */
-
-
-
-
-
-/*************************************/
-/* Function process_local_file_hdr() */
-/*************************************/
-
-int process_local_file_hdr(__G) /* return PK-type error code */
- __GDEF
-{
- local_byte_hdr byterec;
-
-
-/*---------------------------------------------------------------------------
- Read the next local file header and do any necessary machine-type con-
- versions (byte ordering, structure padding compensation--do so by copy-
- ing the data from the array into which it was read (byterec) to the
- usable struct (lrec)).
- ---------------------------------------------------------------------------*/
-
- if (readbuf(__G__ (char *)byterec, LREC_SIZE) == 0)
- return PK_EOF;
-
- G.lrec.version_needed_to_extract[0] =
- byterec[L_VERSION_NEEDED_TO_EXTRACT_0];
- G.lrec.version_needed_to_extract[1] =
- byterec[L_VERSION_NEEDED_TO_EXTRACT_1];
-
- G.lrec.general_purpose_bit_flag =
- makeword(&byterec[L_GENERAL_PURPOSE_BIT_FLAG]);
- G.lrec.compression_method = makeword(&byterec[L_COMPRESSION_METHOD]);
- G.lrec.last_mod_dos_datetime = makelong(&byterec[L_LAST_MOD_DOS_DATETIME]);
- G.lrec.crc32 = makelong(&byterec[L_CRC32]);
- G.lrec.csize = makelong(&byterec[L_COMPRESSED_SIZE]);
- G.lrec.ucsize = makelong(&byterec[L_UNCOMPRESSED_SIZE]);
- G.lrec.filename_length = makeword(&byterec[L_FILENAME_LENGTH]);
- G.lrec.extra_field_length = makeword(&byterec[L_EXTRA_FIELD_LENGTH]);
-
- G.csize = (long) G.lrec.csize;
- G.ucsize = (long) G.lrec.ucsize;
-
- if ((G.lrec.general_purpose_bit_flag & 8) != 0) {
- /* can't trust local header, use central directory: */
- G.lrec.crc32 = G.pInfo->crc;
- G.csize = (long)(G.lrec.csize = G.pInfo->compr_size);
- G.ucsize = (long)(G.lrec.ucsize = G.pInfo->uncompr_size);
- }
-
- return PK_COOL;
-
-} /* end function process_local_file_hdr() */
-
-
-#ifdef USE_EF_UT_TIME
-
-/*******************************/
-/* Function ef_scan_for_izux() */
-/*******************************/
-
-unsigned ef_scan_for_izux(ef_buf, ef_len, ef_is_c, dos_mdatetime,
- z_utim, z_uidgid)
- uch *ef_buf; /* buffer containing extra field */
- unsigned ef_len; /* total length of extra field */
- int ef_is_c; /* flag indicating "is central extra field" */
- ulg dos_mdatetime; /* last_mod_file_date_time in DOS format */
- iztimes *z_utim; /* return storage: atime, mtime, ctime */
- ush *z_uidgid; /* return storage: uid and gid */
-{
- unsigned flags = 0;
- unsigned eb_id;
- unsigned eb_len;
- int have_new_type_eb = FALSE;
- int ut_zip_unzip_compatible = FALSE;
-
-/*---------------------------------------------------------------------------
- This function scans the extra field for EF_TIME, EF_IZUNIX2, EF_IZUNIX, or
- EF_PKUNIX blocks containing Unix-style time_t (GMT) values for the entry's
- access, creation, and modification time.
- If a valid block is found, the time stamps are copied to the iztimes
- structure (provided the z_utim pointer is not NULL).
- If a IZUNIX2 block is found or the IZUNIX block contains UID/GID fields,
- and the z_uidgid array pointer is valid (!= NULL), the owner info is
- transfered as well.
- The presence of an EF_TIME or EF_IZUNIX2 block results in ignoring all
- data from probably present obsolete EF_IZUNIX blocks.
- If multiple blocks of the same type are found, only the information from
- the last block is used.
- The return value is a combination of the EF_TIME Flags field with an
- additional flag bit indicating the presence of valid UID/GID info,
- or 0 in case of failure.
- ---------------------------------------------------------------------------*/
-
- if (ef_len == 0 || ef_buf == NULL || (z_utim == 0 && z_uidgid == NULL))
- return 0;
-
- TTrace((stderr,"\nef_scan_for_izux: scanning extra field of length %u\n",
- ef_len));
-
- while (ef_len >= EB_HEADSIZE) {
- eb_id = makeword(EB_ID + ef_buf);
- eb_len = makeword(EB_LEN + ef_buf);
-
- if (eb_len > (ef_len - EB_HEADSIZE)) {
- /* discovered some extra field inconsistency! */
- TTrace((stderr,
- "ef_scan_for_izux: block length %u > rest ef_size %u\n", eb_len,
- ef_len - EB_HEADSIZE));
- break;
- }
-
- switch (eb_id) {
- case EF_TIME:
- flags &= ~0x0ff; /* ignore previous IZUNIX or EF_TIME fields */
- have_new_type_eb = TRUE;
- if ( eb_len >= EB_UT_MINLEN && z_utim != NULL) {
- unsigned eb_idx = EB_UT_TIME1;
- TTrace((stderr,"ef_scan_for_izux: found TIME extra field\n"));
- flags |= (ef_buf[EB_HEADSIZE+EB_UT_FLAGS] & 0x0ff);
- if ((flags & EB_UT_FL_MTIME)) {
- if ((eb_idx+4) <= eb_len) {
- z_utim->mtime = makelong((EB_HEADSIZE+eb_idx) + ef_buf);
- eb_idx += 4;
- TTrace((stderr," UT e.f. modification time = %ld\n",
- z_utim->mtime));
-
- if ((ulg)(z_utim->mtime) & (ulg)(0x80000000L)) {
- ut_zip_unzip_compatible =
- ((time_t)0x80000000L < (time_t)0L)
- ? (dos_mdatetime == DOSTIME_MINIMUM)
- : (dos_mdatetime >= DOSTIME_2038_01_18);
- if (!ut_zip_unzip_compatible) {
- /* UnZip interpretes mtime differently than Zip;
- without modtime: ignore complete UT field */
- flags &= ~0x0ff; /* no time_t times available */
- TTrace((stderr,
- " UT modtime range error; ignore e.f.!\n"));
- break; /* stop scanning this field */
- }
- } else {
- /* cannot determine, safe assumption is FALSE */
- ut_zip_unzip_compatible = FALSE;
- }
- } else {
- flags &= ~EB_UT_FL_MTIME;
- TTrace((stderr," UT e.f. truncated; no modtime\n"));
- }
- }
- if (ef_is_c) {
- break; /* central version of TIME field ends here */
- }
-
- if (flags & EB_UT_FL_ATIME) {
- if ((eb_idx+4) <= eb_len) {
- z_utim->atime = makelong((EB_HEADSIZE+eb_idx) + ef_buf);
- eb_idx += 4;
- TTrace((stderr," UT e.f. access time = %ld\n",
- z_utim->atime));
- if (((ulg)(z_utim->atime) & (ulg)(0x80000000L)) &&
- !ut_zip_unzip_compatible) {
- flags &= ~EB_UT_FL_ATIME;
- TTrace((stderr,
- " UT access time range error: skip time!\n"));
- }
- } else {
- flags &= ~EB_UT_FL_ATIME;
- }
- }
- if (flags & EB_UT_FL_CTIME) {
- if ((eb_idx+4) <= eb_len) {
- z_utim->ctime = makelong((EB_HEADSIZE+eb_idx) + ef_buf);
- TTrace((stderr," UT e.f. creation time = %ld\n",
- z_utim->ctime));
- if (((ulg)(z_utim->ctime) & (ulg)(0x80000000L)) &&
- !ut_zip_unzip_compatible) {
- flags &= ~EB_UT_FL_CTIME;
- TTrace((stderr,
- " UT creation time range error: skip time!\n"));
- }
- } else {
- flags &= ~EB_UT_FL_CTIME;
- }
- }
- }
- break;
-
- case EF_IZUNIX2:
- if (!have_new_type_eb) {
- flags &= ~0x0ff; /* ignore any previous IZUNIX field */
- have_new_type_eb = TRUE;
- }
- if (eb_len >= EB_UX2_MINLEN && z_uidgid != NULL) {
- z_uidgid[0] = makeword((EB_HEADSIZE+EB_UX2_UID) + ef_buf);
- z_uidgid[1] = makeword((EB_HEADSIZE+EB_UX2_GID) + ef_buf);
- flags |= EB_UX2_VALID; /* signal success */
- }
- break;
-
- case EF_IZUNIX:
- case EF_PKUNIX: /* PKUNIX e.f. layout is identical to IZUNIX */
- if (eb_len >= EB_UX_MINLEN) {
- TTrace((stderr,"ef_scan_for_izux: found %s extra field\n",
- (eb_id == EF_IZUNIX ? "IZUNIX" : "PKUNIX")));
- if (have_new_type_eb) {
- break; /* Ignore IZUNIX extra field block ! */
- }
- if (z_utim != NULL) {
- z_utim->atime = makelong((EB_HEADSIZE+EB_UX_ATIME)+ef_buf);
- z_utim->mtime = makelong((EB_HEADSIZE+EB_UX_MTIME)+ef_buf);
- TTrace((stderr," Unix EF actime = %ld\n", z_utim->atime));
- TTrace((stderr," Unix EF modtime = %ld\n", z_utim->mtime));
- flags |= (EB_UT_FL_MTIME | EB_UT_FL_ATIME);
- if ((ulg)(z_utim->mtime) & (ulg)(0x80000000L)) {
- ut_zip_unzip_compatible =
- ((time_t)0x80000000L < (time_t)0L)
- ? (dos_mdatetime == DOSTIME_MINIMUM)
- : (dos_mdatetime >= DOSTIME_2038_01_18);
- if (!ut_zip_unzip_compatible) {
- /* UnZip interpretes mtime differently than Zip;
- without modtime: ignore complete UT field */
- flags &= ~0x0ff; /* no time_t times available */
- TTrace((stderr,
- " UX modtime range error: ignore e.f.!\n"));
- }
- } else {
- /* cannot determine, safe assumption is FALSE */
- ut_zip_unzip_compatible = FALSE;
- }
- if ((ulg)(z_utim->atime) & (ulg)(0x80000000L) &&
- !ut_zip_unzip_compatible && (flags & 0x0ff)) {
- /* atime not in range of UnZip's time_t */
- flags &= ~EB_UT_FL_ATIME;
- TTrace((stderr,
- " UX access time range error: skip time!\n"));
- }
- }
- if (eb_len >= EB_UX_FULLSIZE && z_uidgid != NULL) {
- z_uidgid[0] = makeword((EB_HEADSIZE+EB_UX_UID) + ef_buf);
- z_uidgid[1] = makeword((EB_HEADSIZE+EB_UX_GID) + ef_buf);
- flags |= EB_UX2_VALID;
- }
- }
- break;
-
- default:
- break;
- }
-
- /* Skip this extra field block */
- ef_buf += (eb_len + EB_HEADSIZE);
- ef_len -= (eb_len + EB_HEADSIZE);
- }
-
- return flags;
-}
-
-#endif /* USE_EF_UT_TIME */