diff options
Diffstat (limited to 'Build/source/extra/unzip/fileio.c')
-rw-r--r-- | Build/source/extra/unzip/fileio.c | 2151 |
1 files changed, 0 insertions, 2151 deletions
diff --git a/Build/source/extra/unzip/fileio.c b/Build/source/extra/unzip/fileio.c deleted file mode 100644 index 97001b579df..00000000000 --- a/Build/source/extra/unzip/fileio.c +++ /dev/null @@ -1,2151 +0,0 @@ -/*--------------------------------------------------------------------------- - - fileio.c - - This file contains routines for doing direct but relatively generic input/ - output, file-related sorts of things, plus some miscellaneous stuff. Most - of the stuff has to do with opening, closing, reading and/or writing files. - - Contains: open_input_file() - open_outfile() (non-VMS, non-AOS/VS, non-CMS_MVS) - undefer_input() - defer_leftover_input() - readbuf() - readbyte() - fillinbuf() - flush() (non-VMS) - disk_error() (non-VMS) - UzpMessagePrnt() - UzpMessageNull() (DLL only) - UzpInput() - UzpMorePause() - UzpPassword() (non-WINDLL) - handler() - dos_to_unix_time() (non-VMS, non-VM/CMS, non-MVS) - check_for_newer() (non-VMS, non-OS/2, non-VM/CMS, non-MVS) - do_string() - makeword() - makelong() - str2iso() (CRYPT && NEED_STR2ISO, only) - str2oem() (CRYPT && NEED_STR2OEM, only) - memset() (ZMEM only) - memcpy() (ZMEM only) - zstrnicmp() - zstat() (REGULUS only) - fLoadFarString() (SMALL_MEM only) - fLoadFarStringSmall() (SMALL_MEM only) - fLoadFarStringSmall2() (SMALL_MEM only) - zfstrcpy() (SMALL_MEM only) - - ---------------------------------------------------------------------------*/ - - -#define FILEIO_C -#define UNZIP_INTERNAL -#include "unzip.h" -#ifdef WINDLL -# include "windll/windll.h" -# include <setjmp.h> -#endif -#include "crypt.h" -#include "ttyio.h" - -/* setup of codepage conversion for decryption passwords */ -#if CRYPT -# if (defined(CRYP_USES_ISO2OEM) && !defined(IZ_ISO2OEM_ARRAY)) -# define IZ_ISO2OEM_ARRAY /* pull in iso2oem[] table */ -# endif -# if (defined(CRYP_USES_OEM2ISO) && !defined(IZ_OEM2ISO_ARRAY)) -# define IZ_OEM2ISO_ARRAY /* pull in oem2iso[] table */ -# endif -#endif -#include "ebcdic.h" /* definition/initialization of ebcdic[] */ - - -/* - Note: Under Windows, the maximum size of the buffer that can be used - with any of the *printf calls is 16,384, so win_fprintf was used to - feed the fprintf clone no more than 16K chunks at a time. This should - be valid for anything up to 64K (and probably beyond, assuming your - buffers are that big). -*/ -#ifdef WINDLL -# define WriteError(buf,len,strm) \ - (win_fprintf(pG, strm, (extent)len, (char far *)buf) != (int)(len)) -#else /* !WINDLL */ -# ifdef USE_FWRITE -# define WriteError(buf,len,strm) \ - ((extent)fwrite((char *)(buf),1,(extent)(len),strm) != (extent)(len)) -# else -# define WriteError(buf,len,strm) \ - ((extent)write(fileno(strm),(char *)(buf),(extent)(len)) != (extent)(len)) -# endif -#endif /* ?WINDLL */ - -static int disk_error OF((__GPRO)); - - -/****************************/ -/* Strings used in fileio.c */ -/****************************/ - -#if (defined(UNIX) || defined(DOS_FLX_OS2_W32) || defined(__BEOS__)) - static ZCONST char Far CannotDeleteOldFile[] = - "error: cannot delete old %s\n"; -#ifdef UNIXBACKUP - static ZCONST char Far CannotRenameOldFile[] = - "error: cannot rename old %s\n"; - static ZCONST char Far BackupSuffix[] = "~"; -#endif -#endif /* UNIX || DOS_FLX_OS2_W32 || __BEOS__ */ - -static ZCONST char Far CannotOpenZipfile[] = - "error: cannot open zipfile [ %s ]\n"; -#if (!defined(VMS) && !defined(AOS_VS) && !defined(CMS_MVS) && !defined(MACOS)) - static ZCONST char Far CannotCreateFile[] = "error: cannot create %s\n"; -#endif -#ifdef NOVELL_BUG_FAILSAFE - static ZCONST char Far NovellBug[] = - "error: %s: stat() says does not exist, but fopen() found anyway\n"; -#endif -static ZCONST char Far ReadError[] = "error: zipfile read error\n"; -static ZCONST char Far FilenameTooLongTrunc[] = - "warning: filename too long--truncating.\n"; -static ZCONST char Far ExtraFieldTooLong[] = - "warning: extra field too long (%d). Ignoring...\n"; - -#ifdef WINDLL - static ZCONST char Far DiskFullQuery[] = - "%s: write error (disk full?).\n"; -#else - static ZCONST char Far DiskFullQuery[] = - "%s: write error (disk full?). Continue? (y/n/^C) "; - static ZCONST char Far ZipfileCorrupt[] = - "error: zipfile probably corrupt (%s)\n"; -# ifdef SYMLINKS - static ZCONST char Far FileIsSymLink[] = - "%s exists and is a symbolic link%s.\n"; -# endif -# ifdef MORE - static ZCONST char Far MorePrompt[] = "--More--(%lu)"; -# endif - static ZCONST char Far QuitPrompt[] = - "--- Press `Q' to quit, or any other key to continue ---"; - static ZCONST char Far HidePrompt[] = /* "\r \r"; */ - "\r \r"; -# if CRYPT -# ifdef MACOS - /* SPC: are names on MacOS REALLY so much longer than elsewhere ??? */ - static ZCONST char Far PasswPrompt[] = "[%s]\n %s password: "; -# else - static ZCONST char Far PasswPrompt[] = "[%s] %s password: "; -# endif - static ZCONST char Far PasswPrompt2[] = "Enter password: "; - static ZCONST char Far PasswRetry[] = "password incorrect--reenter: "; -# endif /* CRYPT */ -#endif /* !WINDLL */ - - - - - -/******************************/ -/* Function open_input_file() */ -/******************************/ - -int open_input_file(__G) /* return 1 if open failed */ - __GDEF -{ - /* - * open the zipfile for reading and in BINARY mode to prevent cr/lf - * translation, which would corrupt the bitstreams - */ - -#if (defined(UNIX) || defined(TOPS20) || defined(AOS_VS) || defined(__BEOS__)) - G.zipfd = open(G.zipfn, O_RDONLY); -#else /* !(UNIX || TOPS20 || AOS_VS || __BEOS__) */ -#ifdef VMS - G.zipfd = open(G.zipfn, O_RDONLY, 0, "ctx=stm"); -#else /* !VMS */ -#ifdef MACOS - G.zipfd = open(G.zipfn, 0); -#else /* !MACOS */ -#ifdef RISCOS - G.zipfd = fopen(G.zipfn, "rb"); -#else /* !RISCOS */ -#ifdef CMS_MVS - G.zipfd = vmmvs_open_infile(__G); -#else /* !CMS_MVS */ - G.zipfd = open(G.zipfn, O_RDONLY | O_BINARY); -#endif /* ?CMS_MVS */ -#endif /* ?RISCOS */ -#endif /* ?MACOS */ -#endif /* ?VMS */ -#endif /* ?(UNIX || TOPS20 || AOS_VS || __BEOS__) */ - -#ifdef USE_STRM_INPUT - if (G.zipfd == NULL) -#else - /* if (G.zipfd < 0) */ /* no good for Windows CE port */ - if (G.zipfd == -1) -#endif - { - Info(slide, 0x401, ((char *)slide, LoadFarString(CannotOpenZipfile), - G.zipfn)); - return 1; - } - return 0; - -} /* end function open_input_file() */ - - - - -#if (!defined(VMS) && !defined(AOS_VS) && !defined(CMS_MVS) && !defined(MACOS)) - -/***************************/ -/* Function open_outfile() */ -/***************************/ - -int open_outfile(__G) /* return 1 if fail */ - __GDEF -{ -#ifdef DLL - if (G.redirect_data) - return (redirect_outfile(__G) == FALSE); -#endif -#ifdef QDOS - QFilename(__G__ G.filename); -#endif -#if (defined(DOS_FLX_OS2_W32) || defined(UNIX) || defined(__BEOS__)) -#ifdef BORLAND_STAT_BUG - /* Borland 5.0's stat() barfs if the filename has no extension and the - * file doesn't exist. */ - if (access(G.filename, 0) == -1) { - FILE *tmp = fopen(G.filename, "wb+"); - - /* file doesn't exist, so create a dummy file to keep stat() from - * failing (will be over-written anyway) */ - fputc('0', tmp); /* just to have something in the file */ - fclose(tmp); - } -#endif /* BORLAND_STAT_BUG */ -#ifdef SYMLINKS - if (SSTAT(G.filename, &G.statbuf) == 0 || lstat(G.filename,&G.statbuf) == 0) -#else - if (SSTAT(G.filename, &G.statbuf) == 0) -#endif /* ?SYMLINKS */ - { - Trace((stderr, "open_outfile: stat(%s) returns 0: file exists\n", - FnFilter1(G.filename))); -#ifdef UNIXBACKUP - if (uO.B_flag) { /* do backup */ - char *tname; - int blen, flen, tlen; - - blen = strlen(BackupSuffix); - flen = strlen(G.filename); - tlen = flen + blen + 1; - if (tlen >= FILNAMSIZ) { /* in case name is too long, truncate */ - tname = (char *)malloc(FILNAMSIZ); - if (tname == NULL) - return 1; /* in case we run out of space */ - tlen = FILNAMSIZ - 1 - blen; - strcpy(tname, G.filename); /* make backup name */ - tname[tlen] = '\0'; - } else { - tname = (char *)malloc(tlen); - if (tname == NULL) - return 1; /* in case we run out of space */ - strcpy(tname, G.filename); /* make backup name */ - } - strcpy(tname+flen, BackupSuffix); - - /* GRR: should check if backup file exists, apply -n/-o to that */ - if (rename(G.filename, tname) < 0) { /* move file */ - Info(slide, 0x401, ((char *)slide, - LoadFarString(CannotRenameOldFile), FnFilter1(G.filename))); - free(tname); - return 1; - } - free(tname); - } else -#endif /* UNIXBACKUP */ -#ifdef DOS_FLX_OS2_W32 - if (!(G.statbuf.st_mode & S_IWRITE)) { - Trace((stderr, "open_outfile: existing file %s is read-only\n", - FnFilter1(G.filename))); - chmod(G.filename, S_IREAD | S_IWRITE); - Trace((stderr, "open_outfile: %s now writable\n", - FnFilter1(G.filename))); - } -#endif /* DOS_FLX_OS2_W32 */ - if (unlink(G.filename) != 0) { - Info(slide, 0x401, ((char *)slide, - LoadFarString(CannotDeleteOldFile), FnFilter1(G.filename))); - return 1; - } - Trace((stderr, "open_outfile: %s now deleted\n", - FnFilter1(G.filename))); - } -#endif /* DOS_FLX_OS2_W32 || UNIX || __BEOS__ */ -#ifdef RISCOS - if (SWI_OS_File_7(G.filename,0xDEADDEAD,0xDEADDEAD,G.lrec.ucsize)!=NULL) { - Info(slide, 1, ((char *)slide, LoadFarString(CannotCreateFile), - FnFilter1(G.filename))); - return 1; - } -#endif /* RISCOS */ -#ifdef TOPS20 - char *tfilnam; - - if ((tfilnam = (char *)malloc(2*strlen(G.filename)+1)) == (char *)NULL) - return 1; - strcpy(tfilnam, G.filename); - upper(tfilnam); - enquote(tfilnam); - if ((G.outfile = fopen(tfilnam, FOPW)) == (FILE *)NULL) { - Info(slide, 1, ((char *)slide, LoadFarString(CannotCreateFile), - tfilnam)); - free(tfilnam); - return 1; - } - free(tfilnam); -#else /* !TOPS20 */ -#ifdef MTS - if (uO.aflag) - G.outfile = fopen(G.filename, FOPWT); - else - G.outfile = fopen(G.filename, FOPW); - if (G.outfile == (FILE *)NULL) { - Info(slide, 1, ((char *)slide, LoadFarString(CannotCreateFile), - FnFilter1(G.filename))); - return 1; - } -#else /* !MTS */ -#ifdef TANDEM - if (SSTAT(G.filename, &G.statbuf) == 0) { - Trace((stderr, "open_outfile: stat(%s) returns 0 (file exists)\n", - FnFilter1(G.filename))); - if (unlink(G.filename) != 0) { - Trace((stderr, "open_outfile: existing file %s is read-only\n", - FnFilter1(G.filename))); - chmod(G.filename, S_IRUSR | S_IWUSR); - Trace((stderr, "open_outfile: %s now writable\n", - FnFilter1(G.filename))); - if (unlink(G.filename) != 0) - return 1; - } - Trace((stderr, "open_outfile: %s now deleted\n", - FnFilter1(G.filename))); - } - if (G.pInfo->textmode) - G.outfile = fopen(G.filename, FOPWT); - else - G.outfile = fopen(G.filename, FOPW); - if (G.outfile == (FILE *)NULL) { - Info(slide, 1, ((char *)slide, LoadFarString(CannotCreateFile), - FnFilter1(G.filename))); - return 1; - } -#else /* !TANDEM */ -#ifdef DEBUG - Info(slide, 1, ((char *)slide, - "open_outfile: doing fopen(%s) for reading\n", FnFilter1(G.filename))); - if ((G.outfile = fopen(G.filename, FOPR)) == (FILE *)NULL) - Info(slide, 1, ((char *)slide, - "open_outfile: fopen(%s) for reading failed: does not exist\n", - FnFilter1(G.filename))); - else { - Info(slide, 1, ((char *)slide, - "open_outfile: fopen(%s) for reading succeeded: file exists\n", - FnFilter1(G.filename))); - fclose(G.outfile); - } -#endif /* DEBUG */ -#ifdef NOVELL_BUG_FAILSAFE - if (G.dne && ((G.outfile = fopen(G.filename, FOPR)) != (FILE *)NULL)) { - Info(slide, 0x401, ((char *)slide, LoadFarString(NovellBug), - FnFilter1(G.filename))); - fclose(G.outfile); - return 1; /* with "./" fix in checkdir(), should never reach here */ - } -#endif /* NOVELL_BUG_FAILSAFE */ - Trace((stderr, "open_outfile: doing fopen(%s) for writing\n", - FnFilter1(G.filename))); - if ((G.outfile = fopen(G.filename, FOPW)) == (FILE *)NULL) { - Info(slide, 0x401, ((char *)slide, LoadFarString(CannotCreateFile), - FnFilter1(G.filename))); - return 1; - } - Trace((stderr, "open_outfile: fopen(%s) for writing succeeded\n", - FnFilter1(G.filename))); -#endif /* !TANDEM */ -#endif /* !MTS */ -#endif /* !TOPS20 */ - -#ifdef USE_FWRITE -#ifdef DOS_OS2_W32 - /* 16-bit MSC: buffer size must be strictly LESS than 32K (WSIZE): bogus */ - setbuf(G.outfile, (char *)NULL); /* make output unbuffered */ -#else /* !DOS_OS2_W32 */ -#ifndef RISCOS -#ifdef _IOFBF /* make output fully buffered (works just about like write()) */ - setvbuf(G.outfile, (char *)slide, _IOFBF, WSIZE); -#else - setbuf(G.outfile, (char *)slide); -#endif -#endif /* !RISCOS */ -#endif /* ?DOS_OS2_W32 */ -#endif /* USE_FWRITE */ - return 0; - -} /* end function open_outfile() */ - -#endif /* !VMS && !AOS_VS && !CMS_MVS && !MACOS */ - - - - - -/* - * These functions allow NEXTBYTE to function without needing two bounds - * checks. Call defer_leftover_input() if you ever have filled G.inbuf - * by some means other than readbyte(), and you then want to start using - * NEXTBYTE. When going back to processing bytes without NEXTBYTE, call - * undefer_input(). For example, extract_or_test_member brackets its - * central section that does the decompression with these two functions. - * If you need to check the number of bytes remaining in the current - * file while using NEXTBYTE, check (G.csize + G.incnt), not G.csize. - */ - -/****************************/ -/* function undefer_input() */ -/****************************/ - -void undefer_input(__G) - __GDEF -{ - if (G.incnt > 0) - G.csize += G.incnt; - if (G.incnt_leftover > 0) { - /* We know that "(G.csize < MAXINT)" so we can cast G.csize to int: - * This condition was checked when G.incnt_leftover was set > 0 in - * defer_leftover_input(), and it is NOT allowed to touch G.csize - * before calling undefer_input() when (G.incnt_leftover > 0) - * (single exception: see read_byte()'s "G.csize <= 0" handling) !! - */ - G.incnt = G.incnt_leftover + (int)G.csize; - G.inptr = G.inptr_leftover - (int)G.csize; - G.incnt_leftover = 0; - } else if (G.incnt < 0) - G.incnt = 0; -} /* end function undefer_input() */ - - - - - -/***********************************/ -/* function defer_leftover_input() */ -/***********************************/ - -void defer_leftover_input(__G) - __GDEF -{ - if ((long)G.incnt > G.csize) { - /* (G.csize < MAXINT), we can safely cast it to int !! */ - if (G.csize < 0L) - G.csize = 0L; - G.inptr_leftover = G.inptr + (int)G.csize; - G.incnt_leftover = G.incnt - (int)G.csize; - G.incnt = (int)G.csize; - } else - G.incnt_leftover = 0; - G.csize -= G.incnt; -} /* end function defer_leftover_input() */ - - - - - -/**********************/ -/* Function readbuf() */ -/**********************/ - -unsigned readbuf(__G__ buf, size) /* return number of bytes read into buf */ - __GDEF - char *buf; - register unsigned size; -{ - register unsigned count; - unsigned n; - - n = size; - while (size) { - if (G.incnt <= 0) { - if ((G.incnt = read(G.zipfd, (char *)G.inbuf, INBUFSIZ)) == 0) - return (n-size); - else if (G.incnt < 0) { - /* another hack, but no real harm copying same thing twice */ - (*G.message)((zvoid *)&G, - (uch *)LoadFarString(ReadError), /* CANNOT use slide */ - (ulg)strlen(LoadFarString(ReadError)), 0x401); - return 0; /* discarding some data; better than lock-up */ - } - /* buffer ALWAYS starts on a block boundary: */ - G.cur_zipfile_bufstart += INBUFSIZ; - G.inptr = G.inbuf; - } - count = MIN(size, (unsigned)G.incnt); - memcpy(buf, G.inptr, count); - buf += count; - G.inptr += count; - G.incnt -= count; - size -= count; - } - return n; - -} /* end function readbuf() */ - - - - - -/***********************/ -/* Function readbyte() */ -/***********************/ - -int readbyte(__G) /* refill inbuf and return a byte if available, else EOF */ - __GDEF -{ - if (G.mem_mode) - return EOF; - if (G.csize <= 0) { - G.csize--; /* for tests done after exploding */ - G.incnt = 0; - return EOF; - } - if (G.incnt <= 0) { - if ((G.incnt = read(G.zipfd, (char *)G.inbuf, INBUFSIZ)) == 0) { - G.incnt = 0; /* do not allow negative value to affect stuff */ - return EOF; - } else if (G.incnt < 0) { /* "fail" (abort, retry, ...) returns this */ - /* another hack, but no real harm copying same thing twice */ - (*G.message)((zvoid *)&G, - (uch *)LoadFarString(ReadError), - (ulg)strlen(LoadFarString(ReadError)), 0x401); - echon(); -#ifdef WINDLL - longjmp(dll_error_return, 1); -#else - DESTROYGLOBALS() - EXIT(PK_BADERR); /* totally bailing; better than lock-up */ -#endif - } - G.cur_zipfile_bufstart += INBUFSIZ; /* always starts on block bndry */ - G.inptr = G.inbuf; - defer_leftover_input(__G); /* decrements G.csize */ - } - -#if CRYPT - if (G.pInfo->encrypted) { - uch *p; - int n; - - /* This was previously set to decrypt one byte beyond G.csize, when - * incnt reached that far. GRR said, "but it's required: why?" This - * was a bug in fillinbuf() -- was it also a bug here? - */ - for (n = G.incnt, p = G.inptr; n--; p++) - zdecode(*p); - } -#endif /* CRYPT */ - - --G.incnt; - return *G.inptr++; - -} /* end function readbyte() */ - - - - - -#ifdef USE_ZLIB - -/************************/ -/* Function fillinbuf() */ -/************************/ - -int fillinbuf(__G) /* like readbyte() except returns number of bytes in inbuf */ - __GDEF -{ - if (G.mem_mode || - (G.incnt = read(G.zipfd, (char *)G.inbuf, INBUFSIZ)) <= 0) - return 0; - G.cur_zipfile_bufstart += INBUFSIZ; /* always starts on a block boundary */ - G.inptr = G.inbuf; - defer_leftover_input(__G); /* decrements G.csize */ - -#if CRYPT - if (G.pInfo->encrypted) { - uch *p; - int n; - - for (n = G.incnt, p = G.inptr; n--; p++) - zdecode(*p); - } -#endif /* CRYPT */ - - return G.incnt; - -} /* end function fillinbuf() */ - -#endif /* USE_ZLIB */ - - - - - -#ifndef VMS /* for VMS use code in vms.c */ - -/********************/ -/* Function flush() */ /* returns PK error codes: */ -/********************/ /* if cflag => always 0; PK_DISK if write error */ - -int flush(__G__ rawbuf, size, unshrink) - __GDEF - uch *rawbuf; - ulg size; - int unshrink; -{ - register uch *p, *q; - uch *transbuf; -#if (defined(SMALL_MEM) || defined(MED_MEM) || defined(VMS_TEXT_CONV)) - ulg transbufsiz; -#endif - /* static int didCRlast = FALSE; moved to globals.h */ - - -/*--------------------------------------------------------------------------- - Compute the CRC first; if testing or if disk is full, that's it. - ---------------------------------------------------------------------------*/ - - G.crc32val = crc32(G.crc32val, rawbuf, (extent)size); - -#ifdef DLL - if ((G.statreportcb != NULL) && - (*G.statreportcb)(__G__ UZ_ST_IN_PROGRESS, G.zipfn, G.filename, NULL)) - return IZ_CTRLC; /* cancel operation by user request */ -#endif - - if (uO.tflag || size == 0L) /* testing or nothing to write: all done */ - return PK_OK; - - if (G.disk_full) - return PK_DISK; /* disk already full: ignore rest of file */ - -/*--------------------------------------------------------------------------- - Write the bytes rawbuf[0..size-1] to the output device, first converting - end-of-lines and ASCII/EBCDIC as needed. If SMALL_MEM or MED_MEM are NOT - defined, outbuf is assumed to be at least as large as rawbuf and is not - necessarily checked for overflow. - ---------------------------------------------------------------------------*/ - - if (!G.pInfo->textmode) { /* write raw binary data */ - /* GRR: note that for standard MS-DOS compilers, size argument to - * fwrite() can never be more than 65534, so WriteError macro will - * have to be rewritten if size can ever be that large. For now, - * never more than 32K. Also note that write() returns an int, which - * doesn't necessarily limit size to 32767 bytes if write() is used - * on 16-bit systems but does make it more of a pain; however, because - * at least MSC 5.1 has a lousy implementation of fwrite() (as does - * DEC Ultrix cc), write() is used anyway. - */ -#ifdef DLL - if (G.redirect_data) - writeToMemory(__G__ rawbuf, size); - else -#endif - if (!uO.cflag && WriteError(rawbuf, size, G.outfile)) - return disk_error(__G); - else if (uO.cflag && (*G.message)((zvoid *)&G, rawbuf, size, 0)) - return 0; - } else { /* textmode: aflag is true */ - if (unshrink) { - /* rawbuf = outbuf */ - transbuf = G.outbuf2; -#if (defined(SMALL_MEM) || defined(MED_MEM) || defined(VMS_TEXT_CONV)) - transbufsiz = TRANSBUFSIZ; -#endif - } else { - /* rawbuf = slide */ - transbuf = G.outbuf; -#if (defined(SMALL_MEM) || defined(MED_MEM) || defined(VMS_TEXT_CONV)) - transbufsiz = OUTBUFSIZ; - Trace((stderr, "\ntransbufsiz = OUTBUFSIZ = %u\n", OUTBUFSIZ)); -#endif - } - if (G.newfile) { -#ifdef VMS_TEXT_CONV - /* GRR: really want to check if -aa (or -aaa?) was given... */ - if (rawbuf[1]) { /* first line is more than 255 chars long */ - Trace((stderr, - "\nfirst line of VMS `text' too long; switching to normal extraction\n")); - G.VMS_line_state = -1; /* -1: don't treat as VMS text */ - } else - G.VMS_line_state = 0; /* 0: ready to read line length */ -#endif - G.didCRlast = FALSE; /* no previous buffers written */ - G.newfile = FALSE; - } - -#ifdef VMS_TEXT_CONV - if (G.pInfo->hostnum == VMS_ && G.extra_field && G.VMS_line_state >= 0) - { - /* GRR: really want to check for actual VMS extra field, and - * ideally for variable-length record format */ -/* - printf("\n>>>>>> GRR: file is VMS text and has an extra field\n"); - */ - - p = rawbuf; - q = transbuf; - while(p < rawbuf+(unsigned)size) { - switch (G.VMS_line_state) { - - /* 0: ready to read line length */ - case 0: - G.VMS_line_length = 0; - G.VMS_line_pad = 0; - if (p == rawbuf+(unsigned)size-1) { /* last char */ - G.VMS_line_length = (int)((uch)(*p++)); - G.VMS_line_state = 1; - } else { - G.VMS_line_length = makeword(p); - p += 2; - G.VMS_line_state = 2; - } - if (G.VMS_line_length & 1) /* odd */ - G.VMS_line_pad = 1; - break; - - /* 1: read one byte of length, need second */ - case 1: - G.VMS_line_length += ((int)((uch)(*p++)) << 8); - G.VMS_line_state = 2; - break; - - /* 2: ready to read VMS_line_length chars */ - case 2: - if (G.VMS_line_length < rawbuf+(unsigned)size-p) { - if (G.VMS_line_length >= - transbuf+(unsigned)transbufsiz-q) - { - int outroom = transbuf+(unsigned)transbufsiz-q; - -/* GRR: need to change this to *q++ = native(*p++); loop or something */ - memcpy(q, p, outroom); -#ifdef DLL - if (G.redirect_data) - writeToMemory(__G__ transbuf, - (unsigned)outroom); - else -#endif - if (!uO.cflag && WriteError(transbuf, - (unsigned)outroom, G.outfile)) - return disk_error(__G); - else if (uO.cflag && (*G.message)((zvoid *)&G, - transbuf, (ulg)outroom, 0)) - return 0; - q = transbuf; - p += outroom; - G.VMS_line_length -= outroom; - /* fall through to normal case */ - } -/* GRR: need to change this to *q++ = native(*p++); loop or something */ - memcpy(q, p, G.VMS_line_length); - q += G.VMS_line_length; - p += G.VMS_line_length; - G.VMS_line_length = 0; /* necessary?? */ - G.VMS_line_state = 3; - - } else { /* remaining input is less than full line */ - int remaining = rawbuf+(unsigned)size-p; - - if (remaining < - transbuf+(unsigned)transbufsiz-q) - { - int outroom = transbuf+(unsigned)transbufsiz-q; - -/* GRR: need to change this to *q++ = native(*p++); loop or something */ - memcpy(q, p, outroom); -#ifdef DLL - if (G.redirect_data) - writeToMemory(__G__ transbuf, - (unsigned)(outroom)); - else -#endif - if (!uO.cflag && WriteError(transbuf, - (unsigned)outroom, G.outfile)) - return disk_error(__G); - else if (uO.cflag && (*G.message)((zvoid *)&G, - transbuf, (ulg)outroom, 0)) - return 0; - q = transbuf; - p += outroom; - remaining -= outroom; - } -/* GRR: need to change this to *q++ = native(*p++); loop or something */ - memcpy(q, p, remaining); - q += remaining; - p += remaining; - G.VMS_line_length -= remaining; - /* no change in G.VMS_line_state */ - } - break; - - /* 3: ready to PutNativeEOL */ - case 3: - if (q > transbuf+(unsigned)transbufsiz-lenEOL) { -#ifdef DLL - if (G.redirect_data) - writeToMemory(__G__ transbuf, - (unsigned)(q-transbuf)); - else -#endif - if (!uO.cflag && - WriteError(transbuf, (unsigned)(q-transbuf), - G.outfile)) - return disk_error(__G); - else if (uO.cflag && (*G.message)((zvoid *)&G, - transbuf, (ulg)(q-transbuf), 0)) - return 0; - q = transbuf; - } - PutNativeEOL - if (G.VMS_line_pad) - if (p < rawbuf+(unsigned)size) { - ++p; - G.VMS_line_state = 0; - } else - G.VMS_line_state = 4; - else - G.VMS_line_state = 0; - break; - - /* 4: ready to read pad byte */ - case 4: - ++p; - G.VMS_line_state = 0; - break; - } - } /* end while */ - - } else -#endif /* VMS_TEXT_CONV */ - - /*----------------------------------------------------------------------- - Algorithm: CR/LF => native; lone CR => native; lone LF => native. - This routine is only for non-raw-VMS, non-raw-VM/CMS files (i.e., - stream-oriented files, not record-oriented). - -----------------------------------------------------------------------*/ - - /* else not VMS text */ { - p = rawbuf; - if (*p == LF && G.didCRlast) - ++p; - G.didCRlast = FALSE; - for (q = transbuf; p < rawbuf+(unsigned)size; ++p) { - if (*p == CR) { /* lone CR or CR/LF: EOL either way */ - PutNativeEOL - if (p == rawbuf+(unsigned)size-1) /* last char in buffer */ - G.didCRlast = TRUE; - else if (p[1] == LF) /* get rid of accompanying LF */ - ++p; - } else if (*p == LF) /* lone LF */ - PutNativeEOL - else -#ifndef DOS_FLX_OS2_W32 - if (*p != CTRLZ) /* lose all ^Z's */ -#endif - *q++ = native(*p); - -#if (defined(SMALL_MEM) || defined(MED_MEM)) -# if (lenEOL == 1) /* don't check unshrink: both buffers small but equal */ - if (!unshrink) -# endif - /* check for danger of buffer overflow and flush */ - if (q > transbuf+(unsigned)transbufsiz-lenEOL) { - Trace((stderr, - "p - rawbuf = %u q-transbuf = %u size = %lu\n", - (unsigned)(p-rawbuf), (unsigned)(q-transbuf), size)); - if (!uO.cflag && WriteError(transbuf, - (unsigned)(q-transbuf), G.outfile)) - return disk_error(__G); - else if (uO.cflag && (*G.message)((zvoid *)&G, - transbuf, (ulg)(q-transbuf), 0)) - return 0; - q = transbuf; - continue; - } -#endif /* SMALL_MEM || MED_MEM */ - } - } - - /*----------------------------------------------------------------------- - Done translating: write whatever we've got to file (or screen). - -----------------------------------------------------------------------*/ - - Trace((stderr, "p - rawbuf = %u q-transbuf = %u size = %lu\n", - (unsigned)(p-rawbuf), (unsigned)(q-transbuf), size)); - if (q > transbuf) { -#ifdef DLL - if (G.redirect_data) - writeToMemory(__G__ transbuf, (unsigned)(q-transbuf)); - else -#endif - if (!uO.cflag && WriteError(transbuf, (unsigned)(q-transbuf), - G.outfile)) - return disk_error(__G); - else if (uO.cflag && (*G.message)((zvoid *)&G, transbuf, - (ulg)(q-transbuf), 0)) - return 0; - } - } - - return 0; - -} /* end function flush() */ - - - - - -/*************************/ -/* Function disk_error() */ -/*************************/ - -static int disk_error(__G) - __GDEF -{ - /* OK to use slide[] here because this file is finished regardless */ - Info(slide, 0x4a1, ((char *)slide, LoadFarString(DiskFullQuery), - FnFilter1(G.filename))); - -#ifndef WINDLL - fgets(G.answerbuf, 9, stdin); - if (*G.answerbuf == 'y') /* stop writing to this file */ - G.disk_full = 1; /* (outfile bad?), but new OK */ - else -#endif - G.disk_full = 2; /* no: exit program */ - - return PK_DISK; - -} /* end function disk_error() */ - -#endif /* !VMS */ - - - - - -/*****************************/ -/* Function UzpMessagePrnt() */ -/*****************************/ - -int UZ_EXP UzpMessagePrnt(pG, buf, size, flag) - zvoid *pG; /* globals struct: always passed */ - uch *buf; /* preformatted string to be printed */ - ulg size; /* length of string (may include nulls) */ - int flag; /* flag bits */ -{ - /* IMPORTANT NOTE: - * The name of the first parameter of UzpMessagePrnt(), which passes - * the "Uz_Globs" address, >>> MUST <<< be identical to the string - * expansion of the __G__ macro in the REENTRANT case (see globals.h). - * This name identity is mandatory for the LoadFarString() macro - * (in the SMALL_MEM case) !!! - */ - int error; - uch *q=buf, *endbuf=buf+(unsigned)size; -#ifdef MORE - uch *p=buf-1; -#endif - FILE *outfp; - - -/*--------------------------------------------------------------------------- - These tests are here to allow fine-tuning of UnZip's output messages, - but none of them will do anything without setting the appropriate bit - in the flag argument of every Info() statement which is to be turned - *off*. That is, all messages are currently turned on for all ports. - To turn off *all* messages, use the UzpMessageNull() function instead - of this one. - ---------------------------------------------------------------------------*/ - -#if (defined(OS2) && defined(DLL)) - if (MSG_NO_DLL2(flag)) /* if OS/2 DLL bit is set, do NOT print this msg */ - return 0; -#endif -#ifdef WINDLL - if (MSG_NO_WDLL(flag)) - return 0; -#endif -#ifdef WINDLL - if (MSG_NO_WGUI(flag)) - return 0; -#endif -/* -#ifdef ACORN_GUI - if (MSG_NO_AGUI(flag)) - return 0; -#endif - */ -#ifdef DLL /* don't display message if data is redirected */ - if (((Uz_Globs *)pG)->redirect_data && - !((Uz_Globs *)pG)->redirect_text) - return 0; -#endif - - if (MSG_STDERR(flag) && !((Uz_Globs *)pG)->UzO.tflag) - outfp = (FILE *)stderr; - else - outfp = (FILE *)stdout; - -#ifdef QUERY_TRNEWLN - /* some systems require termination of query prompts with '\n' to force - * immediate display */ - if (MSG_MNEWLN(flag)) { /* assumes writable buffer (e.g., slide[]) */ - *endbuf++ = '\n'; /* with room for one more char at end of buf */ - ++size; /* (safe assumption: only used for four */ - } /* short queries in extract.c and fileio.c) */ -#endif - - if (MSG_TNEWLN(flag)) { /* again assumes writable buffer: fragile... */ - if ((!size && !((Uz_Globs *)pG)->sol) || - (size && (endbuf[-1] != '\n'))) - { - *endbuf++ = '\n'; - ++size; - } - } - -#ifdef MORE - /* room for --More-- and one line of overlap: */ - ((Uz_Globs *)pG)->height = SCREENLINES - 2; -#endif - - if (MSG_LNEWLN(flag) && !((Uz_Globs *)pG)->sol) { - /* not at start of line: want newline */ -#ifdef OS2DLL - if (!((Uz_Globs *)pG)->redirect_text) { -#endif - putc('\n', outfp); - fflush(outfp); -#ifdef MORE - if (((Uz_Globs *)pG)->M_flag) - { - ++((Uz_Globs *)pG)->numlines; - if (((Uz_Globs *)pG)->numlines % - ((Uz_Globs *)pG)->height == 0L) /* GRR: fix */ - (*((Uz_Globs *)pG)->mpause)((zvoid *)pG, - LoadFarString(MorePrompt), 1); - } -#endif /* MORE */ - if (MSG_STDERR(flag) && ((Uz_Globs *)pG)->UzO.tflag && - !isatty(1) && isatty(2)) - { - /* error output from testing redirected: also send to stderr */ - putc('\n', stderr); - fflush(stderr); - } -#ifdef OS2DLL - } else - REDIRECTC('\n'); -#endif - ((Uz_Globs *)pG)->sol = TRUE; - } - - /* put zipfile name, filename and/or error/warning keywords here */ - -#ifdef MORE - if (((Uz_Globs *)pG)->M_flag -#ifdef OS2DLL - && !((Uz_Globs *)pG)->redirect_text -#endif - ) - { - while (++p < endbuf) { - if (*p == '\n') { - ++((Uz_Globs *)pG)->numlines; - if (((Uz_Globs *)pG)->numlines % - ((Uz_Globs *)pG)->height == 0L) /* GRR: fix */ - { - if ((error = WriteError(q, p-q+1, outfp)) != 0) - return error; - fflush(outfp); - ((Uz_Globs *)pG)->sol = TRUE; - q = p + 1; - (*((Uz_Globs *)pG)->mpause)((zvoid *)pG, - LoadFarString(MorePrompt), 1); - } - } - } /* end while */ - size = (ulg)(p - q); /* remaining text */ - } -#endif /* MORE */ - - if (size) { -#ifdef OS2DLL - if (!((Uz_Globs *)pG)->redirect_text) { -#endif - if ((error = WriteError(q, size, outfp)) != 0) - return error; - fflush(outfp); - if (MSG_STDERR(flag) && ((Uz_Globs *)pG)->UzO.tflag && - !isatty(1) && isatty(2)) - { - /* error output from testing redirected: also send to stderr */ - if ((error = WriteError(q, size, stderr)) != 0) - return error; - fflush(stderr); - } -#ifdef OS2DLL - } else { /* GRR: this is ugly: hide with macro */ - if ((error = REDIRECTPRINT(q, size)) != 0) - return error; - } -#endif - ((Uz_Globs *)pG)->sol = (endbuf[-1] == '\n'); - } - return 0; - -} /* end function UzpMessagePrnt() */ - - - - - -#ifdef DLL - -/*****************************/ -/* Function UzpMessageNull() */ /* convenience routine for no output at all */ -/*****************************/ - -int UZ_EXP UzpMessageNull(pG, buf, size, flag) - zvoid *pG; /* globals struct: always passed */ - uch *buf; /* preformatted string to be printed */ - ulg size; /* length of string (may include nulls) */ - int flag; /* flag bits */ -{ - return 0; - -} /* end function UzpMessageNull() */ - -#endif /* DLL */ - - - - - -/***********************/ -/* Function UzpInput() */ /* GRR: this is a placeholder for now */ -/***********************/ - -int UZ_EXP UzpInput(pG, buf, size, flag) - zvoid *pG; /* globals struct: always passed */ - uch *buf; /* preformatted string to be printed */ - int *size; /* (address of) size of buf and of returned string */ - int flag; /* flag bits (bit 0: no echo) */ -{ - /* tell picky compilers to shut up about "unused variable" warnings */ - pG = pG; buf = buf; flag = flag; - - *size = 0; - return 0; - -} /* end function UzpInput() */ - - - - - -#if (!defined(WINDLL) && !defined(MACOS)) - -/***************************/ -/* Function UzpMorePause() */ -/***************************/ - -void UZ_EXP UzpMorePause(pG, prompt, flag) - zvoid *pG; /* globals struct: always passed */ - ZCONST char *prompt; /* "--More--" prompt */ - int flag; /* 0 = any char OK; 1 = accept only '\n', ' ', q */ -{ - uch c; - -/*--------------------------------------------------------------------------- - Print a prompt and wait for the user to press a key, then erase prompt - if possible. - ---------------------------------------------------------------------------*/ - - if (!((Uz_Globs *)pG)->sol) - fprintf(stderr, "\n"); - /* numlines may or may not be used: */ - fprintf(stderr, prompt, ((Uz_Globs *)pG)->numlines); - fflush(stderr); - if (flag & 1) { - do { - c = (uch)FGETCH(0); - } while (c != '\r' && c != '\n' && c != ' ' && c != 'q' && c != 'Q'); - } else - c = (uch)FGETCH(0); - - /* newline was not echoed, so cover up prompt line */ - fprintf(stderr, LoadFarString(HidePrompt)); - fflush(stderr); - - if (ToLower(c) == 'q') { - DESTROYGLOBALS() - EXIT(PK_COOL); - } - - ((Uz_Globs *)pG)->sol = TRUE; - -} /* end function UzpMorePause() */ - -#endif /* !WINDLL && !MACOS */ - - - - -#ifndef WINDLL - -/**************************/ -/* Function UzpPassword() */ -/**************************/ - -int UZ_EXP UzpPassword (pG, rcnt, pwbuf, size, zfn, efn) - zvoid *pG; /* pointer to UnZip's internal global vars */ - int *rcnt; /* retry counter */ - char *pwbuf; /* buffer for password */ - int size; /* size of password buffer */ - ZCONST char *zfn; /* name of zip archive */ - ZCONST char *efn; /* name of archive entry being processed */ -{ -#if CRYPT - int r = IZ_PW_ENTERED; - char *m; - char *prompt; - -#ifndef REENTRANT - /* tell picky compilers to shut up about "unused variable" warnings */ - pG = pG; -#endif - - if (*rcnt == 0) { /* First call for current entry */ - *rcnt = 2; - if ((prompt = (char *)malloc(2*FILNAMSIZ + 15)) != (char *)NULL) { - sprintf(prompt, LoadFarString(PasswPrompt), - FnFilter1(zfn), FnFilter2(efn)); - m = prompt; - } else - m = (char *)LoadFarString(PasswPrompt2); - } else { /* Retry call, previous password was wrong */ - (*rcnt)--; - prompt = NULL; - m = (char *)LoadFarString(PasswRetry); - } - - m = getp(__G__ m, pwbuf, size); - if (prompt != (char *)NULL) { - free(prompt); - } - if (m == (char *)NULL) { - r = IZ_PW_ERROR; - } - else if (*pwbuf == '\0') { - r = IZ_PW_CANCELALL; - } - return r; - -#else /* !CRYPT */ - /* tell picky compilers to shut up about "unused variable" warnings */ - pG = pG; rcnt = rcnt; pwbuf = pwbuf; size = size; zfn = zfn; efn = efn; - - return IZ_PW_ERROR; /* internal error; function should never get called */ -#endif /* ?CRYPT */ - -} /* end function UzpPassword() */ - - - - - -/**********************/ -/* Function handler() */ -/**********************/ - -void handler(signal) /* upon interrupt, turn on echo and exit cleanly */ - int signal; -{ - GETGLOBALS(); - -#if !(defined(SIGBUS) || defined(SIGSEGV)) /* add a newline if not at */ - (*G.message)((zvoid *)&G, slide, 0L, 0x41); /* start of line (to stderr; */ -#endif /* slide[] should be safe) */ - - echon(); - -#ifdef SIGBUS - if (signal == SIGBUS) { - Info(slide, 0x421, ((char *)slide, LoadFarString(ZipfileCorrupt), - "bus error")); - DESTROYGLOBALS() - EXIT(PK_BADERR); - } -#endif /* SIGBUS */ - -#ifdef SIGSEGV - if (signal == SIGSEGV) { - Info(slide, 0x421, ((char *)slide, LoadFarString(ZipfileCorrupt), - "segmentation violation")); - DESTROYGLOBALS() - EXIT(PK_BADERR); - } -#endif /* SIGSEGV */ - - /* probably ctrl-C */ - DESTROYGLOBALS() -#if defined(AMIGA) && defined(__SASC) - _abort(); -#endif - EXIT(IZ_CTRLC); /* was EXIT(0), then EXIT(PK_ERR) */ -} - -#endif /* !WINDLL */ - - - - -#if (!defined(VMS) && !defined(CMS_MVS)) -#if (!defined(OS2) || defined(TIMESTAMP)) - -#if (!defined(HAVE_MKTIME) || defined(AMIGA) || defined(WIN32)) -/* also used in amiga/filedate.c and win32/win32.c */ -ZCONST ush ydays[] = - { 0, 31, 59, 90, 120, 151, 181, 212, 243, 273, 304, 334, 365 }; -#endif - -/*******************************/ -/* Function dos_to_unix_time() */ /* used for freshening/updating/timestamps */ -/*******************************/ - -time_t dos_to_unix_time(dosdatetime) - ulg dosdatetime; -{ - time_t m_time; - -#ifdef HAVE_MKTIME - - ZCONST time_t now = time(NULL); - struct tm *tm; -# define YRBASE 1900 - - tm = localtime(&now); - tm->tm_isdst = -1; /* let mktime determine if DST is in effect */ - - /* dissect date */ - tm->tm_year = ((int)(dosdatetime >> 25) & 0x7f) + (1980 - YRBASE); - tm->tm_mon = ((int)(dosdatetime >> 21) & 0x0f) - 1; - tm->tm_mday = ((int)(dosdatetime >> 16) & 0x1f); - - /* dissect time */ - tm->tm_hour = (int)((unsigned)dosdatetime >> 11) & 0x1f; - tm->tm_min = (int)((unsigned)dosdatetime >> 5) & 0x3f; - tm->tm_sec = (int)((unsigned)dosdatetime << 1) & 0x3e; - - m_time = mktime(tm); - NATIVE_TO_TIMET(m_time) /* NOP unless MSC 7.0 or Macintosh */ - TTrace((stderr, " final m_time = %lu\n", (ulg)m_time)); - -#else /* !HAVE_MKTIME */ - - int yr, mo, dy, hh, mm, ss; -#ifdef TOPS20 -# define YRBASE 1900 - struct tmx *tmx; - char temp[20]; -#else /* !TOPS20 */ -# define YRBASE 1970 - int leap; - unsigned days; - struct tm *tm; -#if (!defined(MACOS) && !defined(RISCOS) && !defined(QDOS) && !defined(TANDEM)) -#ifdef WIN32 - TIME_ZONE_INFORMATION tzinfo; - DWORD res; -#else /* ! WIN32 */ -#ifndef BSD4_4 /* GRR: change to !defined(MODERN) ? */ -#if (defined(BSD) || defined(MTS) || defined(__GO32__)) - struct timeb tbp; -#else /* !(BSD || MTS || __GO32__) */ -#ifdef DECLARE_TIMEZONE - extern time_t timezone; -#endif -#endif /* ?(BSD || MTS || __GO32__) */ -#endif /* !BSD4_4 */ -#endif /* ?WIN32 */ -#endif /* !MACOS && !RISCOS && !QDOS && !TANDEM */ -#endif /* ?TOPS20 */ - - - /* dissect date */ - yr = ((int)(dosdatetime >> 25) & 0x7f) + (1980 - YRBASE); - mo = ((int)(dosdatetime >> 21) & 0x0f) - 1; - dy = ((int)(dosdatetime >> 16) & 0x1f) - 1; - - /* dissect time */ - hh = (int)((unsigned)dosdatetime >> 11) & 0x1f; - mm = (int)((unsigned)dosdatetime >> 5) & 0x3f; - ss = (int)((unsigned)dosdatetime & 0x1f) * 2; - -#ifdef TOPS20 - tmx = (struct tmx *)malloc(sizeof(struct tmx)); - sprintf (temp, "%02d/%02d/%02d %02d:%02d:%02d", mo+1, dy+1, yr, hh, mm, ss); - time_parse(temp, tmx, (char *)0); - m_time = time_make(tmx); - free(tmx); - -#else /* !TOPS20 */ - -/*--------------------------------------------------------------------------- - Calculate the number of seconds since the epoch, usually 1 January 1970. - ---------------------------------------------------------------------------*/ - - /* leap = # of leap yrs from YRBASE up to but not including current year */ - leap = ((yr + YRBASE - 1) / 4); /* leap year base factor */ - - /* calculate days from BASE to this year and add expired days this year */ - days = (yr * 365) + (leap - 492) + ydays[mo]; - - /* if year is a leap year and month is after February, add another day */ - if ((mo > 1) && ((yr+YRBASE)%4 == 0) && ((yr+YRBASE) != 2100)) - ++days; /* OK through 2199 */ - - /* convert date & time to seconds relative to 00:00:00, 01/01/YRBASE */ - m_time = (time_t)((unsigned long)(days + dy) * 86400L + - (unsigned long)hh * 3600L + - (unsigned long)(mm * 60 + ss)); - /* - 1; MS-DOS times always rounded up to nearest even second */ - TTrace((stderr, "dos_to_unix_time:\n")); - TTrace((stderr, " m_time before timezone = %lu\n", (ulg)m_time)); - -/*--------------------------------------------------------------------------- - Adjust for local standard timezone offset. - ---------------------------------------------------------------------------*/ - -#if (!defined(MACOS) && !defined(RISCOS) && !defined(QDOS) && !defined(TANDEM)) -#ifdef WIN32 - /* account for timezone differences */ - res = GetTimeZoneInformation(&tzinfo); - if (res != TIME_ZONE_ID_UNKNOWN) - { - m_time += 60*(tzinfo.Bias); -#else /* !WIN32 */ -#if (defined(BSD) || defined(MTS) || defined(__GO32__)) -#ifdef BSD4_4 - if ( (dosdatetime >= DOSTIME_2038_01_18) && - (m_time < (time_t)0x70000000L) ) - m_time = U_TIME_T_MAX; /* saturate in case of (unsigned) overflow */ - if (m_time < (time_t)0L) /* a converted DOS time cannot be negative */ - m_time = S_TIME_T_MAX; /* -> saturate at max signed time_t value */ - if ((tm = localtime(&m_time)) != (struct tm *)NULL) - m_time -= tm->tm_gmtoff; /* sec. EAST of GMT: subtr. */ -#else /* !(BSD4_4 */ - ftime(&tbp); /* get `timezone' */ - m_time += tbp.timezone * 60L; /* seconds WEST of GMT: add */ -#endif /* ?(BSD4_4 || __EMX__) */ -#else /* !(BSD || MTS || __GO32__) */ - /* tzset was already called at start of process_zipfiles() */ - /* tzset(); */ /* set `timezone' variable */ -#ifndef __BEOS__ /* BeOS DR8 has no timezones... */ - m_time += timezone; /* seconds WEST of GMT: add */ -#endif -#endif /* ?(BSD || MTS || __GO32__) */ -#endif /* ?WIN32 */ - TTrace((stderr, " m_time after timezone = %lu\n", (ulg)m_time)); - -/*--------------------------------------------------------------------------- - Adjust for local daylight savings (summer) time. - ---------------------------------------------------------------------------*/ - -#ifndef BSD4_4 /* (DST already added to tm_gmtoff, so skip tm_isdst) */ - if ( (dosdatetime >= DOSTIME_2038_01_18) && - (m_time < (time_t)0x70000000L) ) - m_time = U_TIME_T_MAX; /* saturate in case of (unsigned) overflow */ - if (m_time < (time_t)0L) /* a converted DOS time cannot be negative */ - m_time = S_TIME_T_MAX; /* -> saturate at max signed time_t value */ - TIMET_TO_NATIVE(m_time) /* NOP unless MSC 7.0 or Macintosh */ - if (((tm = localtime((time_t *)&m_time)) != NULL) && tm->tm_isdst) -#ifdef WIN32 - m_time += 60L * tzinfo.DaylightBias; /* adjust with DST bias */ - else - m_time += 60L * tzinfo.StandardBias; /* add StdBias (normally 0) */ -#else - m_time -= 60L * 60L; /* adjust for daylight savings time */ -#endif - NATIVE_TO_TIMET(m_time) /* NOP unless MSC 7.0 or Macintosh */ - TTrace((stderr, " m_time after DST = %lu\n", (ulg)m_time)); -#endif /* !BSD4_4 */ -#ifdef WIN32 - } -#endif -#endif /* !MACOS && !RISCOS && !QDOS && !TANDEM */ -#endif /* ?TOPS20 */ - -#endif /* ?HAVE_MKTIME */ - - if ( (dosdatetime >= DOSTIME_2038_01_18) && - (m_time < (time_t)0x70000000L) ) - m_time = U_TIME_T_MAX; /* saturate in case of (unsigned) overflow */ - if (m_time < (time_t)0L) /* a converted DOS time cannot be negative */ - m_time = S_TIME_T_MAX; /* -> saturate at max signed time_t value */ - - return m_time; - -} /* end function dos_to_unix_time() */ - -#endif /* !OS2 || TIMESTAMP */ -#endif /* !VMS && !CMS_MVS */ - - - -#if (!defined(VMS) && !defined(OS2) && !defined(CMS_MVS)) - -/******************************/ -/* Function check_for_newer() */ /* used for overwriting/freshening/updating */ -/******************************/ - -int check_for_newer(__G__ filename) /* return 1 if existing file is newer */ - __GDEF /* or equal; 0 if older; -1 if doesn't */ - char *filename; /* exist yet */ -{ - time_t existing, archive; -#ifdef USE_EF_UT_TIME - iztimes z_utime; -#endif -#ifdef AOS_VS - long dyy, dmm, ddd, dhh, dmin, dss; - - - dyy = (lrec.last_mod_dos_datetime >> 25) + 1980; - dmm = (lrec.last_mod_dos_datetime >> 21) & 0x0f; - ddd = (lrec.last_mod_dos_datetime >> 16) & 0x1f; - dhh = (lrec.last_mod_dos_datetime >> 11) & 0x1f; - dmin = (lrec.last_mod_dos_datetime >> 5) & 0x3f; - dss = (lrec.last_mod_dos_datetime & 0x1f) * 2; - - /* under AOS/VS, file times can only be set at creation time, - * with the info in a special DG format. Make sure we can create - * it here - we delete it later & re-create it, whether or not - * it exists now. - */ - if (!zvs_create(filename, (((ulg)dgdate(dmm, ddd, dyy)) << 16) | - (dhh*1800L + dmin*30L + dss/2L), -1L, -1L, (char *) -1, -1, -1, -1)) - return DOES_NOT_EXIST; -#endif /* AOS_VS */ - - Trace((stderr, "check_for_newer: doing stat(%s)\n", FnFilter1(filename))); - if (SSTAT(filename, &G.statbuf)) { - Trace((stderr, - "check_for_newer: stat(%s) returns %d: file does not exist\n", - FnFilter1(filename), SSTAT(filename, &G.statbuf))); -#ifdef SYMLINKS - Trace((stderr, "check_for_newer: doing lstat(%s)\n", - FnFilter1(filename))); - /* GRR OPTION: could instead do this test ONLY if G.symlnk is true */ - if (lstat(filename, &G.statbuf) == 0) { - Trace((stderr, - "check_for_newer: lstat(%s) returns 0: symlink does exist\n", - FnFilter1(filename))); - if (QCOND2 && !uO.overwrite_all) - Info(slide, 0, ((char *)slide, LoadFarString(FileIsSymLink), - FnFilter1(filename), " with no real file")); - return EXISTS_AND_OLDER; /* symlink dates are meaningless */ - } -#endif /* SYMLINKS */ - return DOES_NOT_EXIST; - } - Trace((stderr, "check_for_newer: stat(%s) returns 0: file exists\n", - FnFilter1(filename))); - -#ifdef SYMLINKS - /* GRR OPTION: could instead do this test ONLY if G.symlnk is true */ - if (lstat(filename, &G.statbuf) == 0 && S_ISLNK(G.statbuf.st_mode)) { - Trace((stderr, "check_for_newer: %s is a symbolic link\n", - FnFilter1(filename))); - if (QCOND2 && !uO.overwrite_all) - Info(slide, 0, ((char *)slide, LoadFarString(FileIsSymLink), - FnFilter1(filename), "")); - return EXISTS_AND_OLDER; /* symlink dates are meaningless */ - } -#endif /* SYMLINKS */ - - NATIVE_TO_TIMET(G.statbuf.st_mtime) /* NOP unless MSC 7.0 or Macintosh */ - -#ifdef USE_EF_UT_TIME - /* The `Unix extra field mtime' should be used for comparison with the - * time stamp of the existing file >>>ONLY<<< when the EF info is also - * used to set the modification time of the extracted file. - */ - if (G.extra_field && -#ifdef IZ_CHECK_TZ - G.tz_is_valid && -#endif - (ef_scan_for_izux(G.extra_field, G.lrec.extra_field_length, 0, - G.lrec.last_mod_dos_datetime, &z_utime, NULL) - & EB_UT_FL_MTIME)) - { - TTrace((stderr, "check_for_newer: using Unix extra field mtime\n")); - existing = G.statbuf.st_mtime; - archive = z_utime.mtime; - } else { - /* round up existing filetime to nearest 2 seconds for comparison, - * but saturate in case of arithmetic overflow - */ - existing = ((G.statbuf.st_mtime & 1) && - (G.statbuf.st_mtime + 1 > G.statbuf.st_mtime)) ? - G.statbuf.st_mtime + 1 : G.statbuf.st_mtime; - archive = dos_to_unix_time(G.lrec.last_mod_dos_datetime); - } -#else /* !USE_EF_UT_TIME */ - /* round up existing filetime to nearest 2 seconds for comparison, - * but saturate in case of arithmetic overflow - */ - existing = ((G.statbuf.st_mtime & 1) && - (G.statbuf.st_mtime + 1 > G.statbuf.st_mtime)) ? - G.statbuf.st_mtime + 1 : G.statbuf.st_mtime; - archive = dos_to_unix_time(G.lrec.last_mod_dos_datetime); -#endif /* ?USE_EF_UT_TIME */ - - TTrace((stderr, "check_for_newer: existing %lu, archive %lu, e-a %ld\n", - (ulg)existing, (ulg)archive, (long)(existing-archive))); - - return (existing >= archive); - -} /* end function check_for_newer() */ - -#endif /* !VMS && !OS2 && !CMS_MVS */ - - - - - -/************************/ -/* Function do_string() */ -/************************/ - -int do_string(__G__ len, option) /* return PK-type error code */ - __GDEF - unsigned int len; /* without prototype, ush converted to this */ - int option; -{ - long comment_bytes_left, block_length; - int error=PK_OK; - ush extra_len; -#ifdef AMIGA - char tmp_fnote[2 * AMIGA_FILENOTELEN]; /* extra room for squozen chars */ -#endif - - -/*--------------------------------------------------------------------------- - This function processes arbitrary-length (well, usually) strings. Four - options are allowed: SKIP, wherein the string is skipped (pretty logical, - eh?); DISPLAY, wherein the string is printed to standard output after un- - dergoing any necessary or unnecessary character conversions; DS_FN, - wherein the string is put into the filename[] array after undergoing ap- - propriate conversions (including case-conversion, if that is indicated: - see the global variable pInfo->lcflag); and EXTRA_FIELD, wherein the - `string' is assumed to be an extra field and is copied to the (freshly - malloced) buffer G.extra_field. The third option should be OK since - filename is dimensioned at 1025, but we check anyway. - - The string, by the way, is assumed to start at the current file-pointer - position; its length is given by len. So start off by checking length - of string: if zero, we're already done. - ---------------------------------------------------------------------------*/ - - if (!len) - return PK_COOL; - - switch (option) { - - /* - * First case: print string on standard output. First set loop vari- - * ables, then loop through the comment in chunks of OUTBUFSIZ bytes, - * converting formats and printing as we go. The second half of the - * loop conditional was added because the file might be truncated, in - * which case comment_bytes_left will remain at some non-zero value for - * all time. outbuf and slide are used as scratch buffers because they - * are available (we should be either before or in between any file pro- - * cessing). - */ - - case DISPLAY: - case DISPL_8: - comment_bytes_left = len; - block_length = OUTBUFSIZ; /* for the while statement, first time */ - while (comment_bytes_left > 0 && block_length > 0) { - register uch *p = G.outbuf; - register uch *q = G.outbuf; - - if ((block_length = readbuf(__G__ (char *)G.outbuf, - (unsigned) MIN((long)OUTBUFSIZ, comment_bytes_left))) == 0) - return PK_EOF; - comment_bytes_left -= block_length; - - /* this is why we allocated an extra byte for outbuf: terminate - * with zero (ASCIIZ) */ - G.outbuf[(unsigned)block_length] = '\0'; - - /* remove all ASCII carriage returns from comment before printing - * (since used before A_TO_N(), check for CR instead of '\r') - */ - while (*p) { - while (*p == CR) - ++p; - *q++ = *p++; - } - /* could check whether (p - outbuf) == block_length here */ - *q = '\0'; - - if (option == DISPL_8) { - /* translate the text coded in the entry's host-dependent - "extended ASCII" charset into the compiler's (system's) - internal text code page */ - Ext_ASCII_TO_Native((char *)G.outbuf, G.pInfo->hostnum, - G.crec.version_made_by[0]); -#ifdef WINDLL - /* translate to ANSI (RTL internal codepage may be OEM) */ - INTERN_TO_ISO((char *)G.outbuf, (char *)G.outbuf); -#else /* !WINDLL */ -#ifdef WIN32 - /* Win9x console always uses OEM character coding, and - WinNT console is set to OEM charset by default, too */ - INTERN_TO_OEM((char *)G.outbuf, (char *)G.outbuf); -#endif /* WIN32 */ -#endif /* ?WINDLL */ - } else { - A_TO_N(G.outbuf); /* translate string to native */ - } - -#ifdef WINDLL - /* ran out of local mem -- had to cheat */ - win_fprintf((zvoid *)&G, stdout, len, (char *)G.outbuf); - win_fprintf((zvoid *)&G, stdout, 2, (char *)"\n\n"); -#else /* !WINDLL */ -#ifdef NOANSIFILT /* GRR: can ANSI be used with EBCDIC? */ - (*G.message)((zvoid *)&G, G.outbuf, (ulg)(q-G.outbuf), 0); -#else /* ASCII, filter out ANSI escape sequences and handle ^S (pause) */ - p = G.outbuf - 1; - q = slide; - while (*++p) { - int pause = FALSE; - - if (*p == 0x1B) { /* ASCII escape char */ - *q++ = '^'; - *q++ = '['; - } else if (*p == 0x13) { /* ASCII ^S (pause) */ - pause = TRUE; - if (p[1] == LF) /* ASCII LF */ - *q++ = *++p; - else if (p[1] == CR && p[2] == LF) { /* ASCII CR LF */ - *q++ = *++p; - *q++ = *++p; - } - } else - *q++ = *p; - if ((unsigned)(q-slide) > WSIZE-3 || pause) { /* flush */ - (*G.message)((zvoid *)&G, slide, (ulg)(q-slide), 0); - q = slide; - if (pause && G.extract_flag) /* don't pause for list/test */ - (*G.mpause)((zvoid *)&G, LoadFarString(QuitPrompt), 0); - } - } - (*G.message)((zvoid *)&G, slide, (ulg)(q-slide), 0); -#endif /* ?NOANSIFILT */ -#endif /* ?WINDLL */ - } - /* add '\n' if not at start of line */ - (*G.message)((zvoid *)&G, slide, 0L, 0x40); - break; - - /* - * Second case: read string into filename[] array. The filename should - * never ever be longer than FILNAMSIZ-1 (1024), but for now we'll check, - * just to be sure. - */ - - case DS_FN: - extra_len = 0; - if (len >= FILNAMSIZ) { - Info(slide, 0x401, ((char *)slide, - LoadFarString(FilenameTooLongTrunc))); - error = PK_WARN; - extra_len = (ush)(len - FILNAMSIZ + 1); - len = FILNAMSIZ - 1; - } - if (readbuf(__G__ G.filename, len) == 0) - return PK_EOF; - G.filename[len] = '\0'; /* terminate w/zero: ASCIIZ */ - - /* translate the Zip entry filename coded in host-dependent "extended - ASCII" into the compiler's (system's) internal text code page */ - Ext_ASCII_TO_Native(G.filename, G.pInfo->hostnum, - G.crec.version_made_by[0]); - - if (G.pInfo->lcflag) /* replace with lowercase filename */ - TOLOWER(G.filename, G.filename); - - if (G.pInfo->vollabel && len > 8 && G.filename[8] == '.') { - char *p = G.filename+8; - while (*p++) - p[-1] = *p; /* disk label, and 8th char is dot: remove dot */ - } - - if (!extra_len) /* we're done here */ - break; - - /* - * We truncated the filename, so print what's left and then fall - * through to the SKIP routine. - */ - Info(slide, 0x401, ((char *)slide, "[ %s ]\n", FnFilter1(G.filename))); - len = extra_len; - /* FALL THROUGH... */ - - /* - * Third case: skip string, adjusting readbuf's internal variables - * as necessary (and possibly skipping to and reading a new block of - * data). - */ - - case SKIP: - /* cur_zipfile_bufstart already takes account of extra_bytes, so don't - * correct for it twice: */ - ZLSEEK(G.cur_zipfile_bufstart - G.extra_bytes + - (G.inptr-G.inbuf) + len) - break; - - /* - * Fourth case: assume we're at the start of an "extra field"; malloc - * storage for it and read data into the allocated space. - */ - - case EXTRA_FIELD: - if (G.extra_field != (uch *)NULL) - free(G.extra_field); - if ((G.extra_field = (uch *)malloc(len)) == (uch *)NULL) { - Info(slide, 0x401, ((char *)slide, LoadFarString(ExtraFieldTooLong), - len)); - /* cur_zipfile_bufstart already takes account of extra_bytes, - * so don't correct for it twice: */ - ZLSEEK(G.cur_zipfile_bufstart - G.extra_bytes + - (G.inptr-G.inbuf) + len) - } else - if (readbuf(__G__ (char *)G.extra_field, len) == 0) - return PK_EOF; - break; - -#ifdef AMIGA - /* - * Fifth case, for the Amiga only: take the comment that would ordinarily - * be skipped over, and turn it into a 79 character string that will be - * attached to the file as a "filenote" after it is extracted. - */ - - case FILENOTE: - if ((extra_len = readbuf(__G__ tmp_fnote, (unsigned) - MIN(len, 2 * AMIGA_FILENOTELEN - 1))) == 0) - return PK_EOF; - if ((len -= extra_len) > 0) /* treat remainder as in case SKIP: */ - ZLSEEK(G.cur_zipfile_bufstart - G.extra_bytes - + (G.inptr - G.inbuf) + len) - /* convert multi-line text into single line with no ctl-chars: */ - tmp_fnote[extra_len] = '\0'; - while ((short int) --extra_len >= 0) - if ((unsigned) tmp_fnote[extra_len] < ' ') - if (tmp_fnote[extra_len+1] == ' ') /* no excess */ - strcpy(tmp_fnote+extra_len, tmp_fnote+extra_len+1); - else - tmp_fnote[extra_len] = ' '; - tmp_fnote[AMIGA_FILENOTELEN - 1] = '\0'; - if (G.filenotes[G.filenote_slot]) - free(G.filenotes[G.filenote_slot]); /* should not happen */ - G.filenotes[G.filenote_slot] = NULL; - if (tmp_fnote[0]) { - if (!(G.filenotes[G.filenote_slot] = malloc(strlen(tmp_fnote)+1))) - return PK_MEM; - strcpy(G.filenotes[G.filenote_slot], tmp_fnote); - } - break; -#endif /* AMIGA */ - - } /* end switch (option) */ - - return error; - -} /* end function do_string() */ - - - - - -/***********************/ -/* Function makeword() */ -/***********************/ - -ush makeword(b) - ZCONST uch *b; -{ - /* - * Convert Intel style 'short' integer to non-Intel non-16-bit - * host format. This routine also takes care of byte-ordering. - */ - return (ush)((b[1] << 8) | b[0]); -} - - - - - -/***********************/ -/* Function makelong() */ -/***********************/ - -ulg makelong(sig) - ZCONST uch *sig; -{ - /* - * Convert intel style 'long' variable to non-Intel non-16-bit - * host format. This routine also takes care of byte-ordering. - */ - return (((ulg)sig[3]) << 24) - + (((ulg)sig[2]) << 16) - + (((ulg)sig[1]) << 8) - + ((ulg)sig[0]); -} - - - -#if CRYPT - -#ifdef NEED_STR2ISO -/**********************/ -/* Function str2iso() */ -/**********************/ - -char *str2iso(dst, src) - char *dst; /* destination buffer */ - register ZCONST char *src; /* source string */ -{ -#ifdef INTERN_TO_ISO - INTERN_TO_ISO(src, dst); -#else - register uch c; - register char *dstp = dst; - - do { - c = (uch)foreign(*src++); - *dstp++ = (char)ASCII2ISO(c); - } while (c != '\0'); -#endif - - return dst; -} -#endif /* NEED_STR2ISO */ - - -#ifdef NEED_STR2OEM -/**********************/ -/* Function str2oem() */ -/**********************/ - -char *str2oem(dst, src) - char *dst; /* destination buffer */ - register ZCONST char *src; /* source string */ -{ -#ifdef INTERN_TO_OEM - INTERN_TO_OEM(src, dst); -#else - register uch c; - register char *dstp = dst; - - do { - c = (uch)foreign(*src++); - *dstp++ = (char)ASCII2OEM(c); - } while (c != '\0'); -#endif - - return dst; -} -#endif /* NEED_STR2OEM */ - -#endif /* CRYPT */ - - -#ifdef ZMEM /* memset/memcmp/memcpy for systems without either them or */ - /* bzero/bcmp/bcopy */ - /* (no known systems as of 960211) */ - -/*********************/ -/* Function memset() */ -/*********************/ - -zvoid *memset(buf, init, len) - register zvoid *buf; /* buffer location */ - register int init; /* initializer character */ - register unsigned int len; /* length of the buffer */ -{ - zvoid *start; - - start = buf; - while (len--) - *((char *)buf++) = (char)init; - return start; -} - - - -/*********************/ -/* Function memcmp() */ -/*********************/ - -int memcmp(b1, b2, len) - register ZCONST zvoid *b1; - register ZCONST zvoid *b2; - register unsigned int len; -{ - register int c; - - if (len > 0) do { - if ((c = (int)(*((ZCONST unsigned char *)b1)++) - - (int)(*((ZCONST unsigned char *)b2)++)) != 0) - return c; - } while (--len > 0) - return 0; -} - - - -/*********************/ -/* Function memcpy() */ -/*********************/ - -zvoid *memcpy(dst, src, len) - register zvoid *dst; - register ZCONST zvoid *src; - register unsigned int len; -{ - zvoid *start; - - start = dst; - while (len-- > 0) - *((char *)dst)++ = *((ZCONST char *)src)++; - return start; -} - -#endif /* ZMEM */ - - - - - -/************************/ -/* Function zstrnicmp() */ -/************************/ - -int zstrnicmp(s1, s2, n) - register ZCONST char *s1, *s2; - register unsigned n; -{ - for (; n > 0; --n, ++s1, ++s2) { - - if (ToLower(*s1) != ToLower(*s2)) - /* test includes early termination of one string */ - return (ToLower(*s1) < ToLower(*s2))? -1 : 1; - - if (*s1 == '\0') /* both strings terminate early */ - return 0; - } - return 0; -} - - - - - -#ifdef REGULUS /* returns the inode number on success(!)...argh argh argh */ -# undef stat - -/********************/ -/* Function zstat() */ -/********************/ - -int zstat(p, s) - char *p; - struct stat *s; -{ - return (stat(p,s) >= 0? 0 : (-1)); -} - -#endif /* REGULUS */ - - - - - -#ifdef SMALL_MEM - -/*******************************/ -/* Function fLoadFarString() */ /* (and friends...) */ -/*******************************/ - -char *fLoadFarString(__GPRO__ const char Far *sz) -{ - (void)zfstrcpy(G.rgchBigBuffer, sz); - return G.rgchBigBuffer; -} - -char *fLoadFarStringSmall(__GPRO__ const char Far *sz) -{ - (void)zfstrcpy(G.rgchSmallBuffer, sz); - return G.rgchSmallBuffer; -} - -char *fLoadFarStringSmall2(__GPRO__ const char Far *sz) -{ - (void)zfstrcpy(G.rgchSmallBuffer2, sz); - return G.rgchSmallBuffer2; -} - - - - -#if (!defined(_MSC_VER) || (_MSC_VER < 600)) -/*************************/ -/* Function zfstrcpy() */ /* portable clone of _fstrcpy() */ -/*************************/ - -char Far * Far zfstrcpy(char Far *s1, const char Far *s2) -{ - char Far *p = s1; - - while ((*s1++ = *s2++) != '\0'); - return p; -} -#endif /* !_MSC_VER || (_MSC_VER < 600) */ - -#endif /* SMALL_MEM */ |