+++ /dev/null
-/*---------------------------------------------------------------------------
-
- os2.c
-
- OS/2-specific routines for use with Info-ZIP's UnZip 5.1 and later.
-
- This file contains the OS/2 versions of the file name/attribute/time/etc
- code. Most or all of the routines which make direct use of OS/2 system
- calls (i.e., the non-lowercase routines) are Kai Uwe Rommel's. The read-
- dir() suite was written by Michael Rendell and ported to OS/2 by Kai Uwe;
- it is in the public domain.
-
- Contains: GetCountryInfo()
- GetFileTime()
- SetFileTime() (TIMESTAMP only)
- stamp_file() (TIMESTAMP only)
- Utime2DosDateTime()
- SetPathAttrTimes()
- SetEAs()
- GetLoadPath()
- opendir()
- closedir()
- readdir()
- [ seekdir() ] not used
- [ telldir() ] not used
- free_dircontents()
- getdirent()
- IsFileSystemFAT()
- do_wild()
- mapattr()
- mapname()
- checkdir()
- isfloppy()
- IsFileNameValid()
- map2fat()
- SetLongNameEA()
- close_outfile()
- check_for_newer()
- dateformat()
- version()
- InitNLS()
- IsUpperNLS()
- ToLowerNLS()
- StringLower()
- DebugMalloc()
-
- ---------------------------------------------------------------------------*/
-
-
-#define UNZIP_INTERNAL
-#include "unzip.h"
-#include "os2acl.h"
-
-extern ZCONST char Far TruncEAs[];
-
-/* local prototypes */
-
-#ifdef TIMESTAMP
- static int SetFileTime(ZCONST char *name, ulg stamp);
-#endif
-#if defined(USE_EF_UT_TIME) || defined(TIMESTAMP)
- static ulg Utime2DosDateTime OF((time_t uxtime));
-#endif
-static int getOS2filetimes OF((__GPRO__
- ulg *pM_dt, ulg *pA_dt, ulg *pC_dt));
-static void SetPathAttrTimes OF((__GPRO__ int flags, int dir));
-static int SetEAs OF((__GPRO__ const char *path,
- void *ef_block));
-static int SetACL OF((__GPRO__ const char *path,
- void *ef_block));
-static int EvalExtraFields OF((__GPRO__ const char *path,
- void *extra_field, unsigned ef_len));
-static int isfloppy OF((int nDrive));
-static int IsFileNameValid OF((const char *name));
-static void map2fat OF((char *pathcomp, char **pEndFAT));
-static int SetLongNameEA OF((char *name, char *longname));
-static void InitNLS OF((void));
-
-
-/*****************************/
-/* Strings used in os2.c */
-/*****************************/
-
-#ifndef SFX
- static char Far CantAllocateWildcard[] =
- "warning: cannot allocate wildcard buffers\n";
-#endif
-static char Far Creating[] = " creating: %-22s ";
-static char Far ConversionFailed[] = "mapname: conversion of %s failed\n";
-static char Far Labelling[] = "labelling %c: %-22s\n";
-static char Far ErrSetVolLabel[] = "mapname: error setting volume label\n";
-static char Far PathTooLong[] = "checkdir error: path too long: %s\n";
-static char Far CantCreateDir[] = "checkdir error: cannot create %s\n\
- unable to process %s.\n";
-static char Far DirIsntDirectory[] =
- "checkdir error: %s exists but is not directory\n\
- unable to process %s.\n";
-static char Far PathTooLongTrunc[] =
- "checkdir warning: path too long; truncating\n %s\n\
- -> %s\n";
-#if (!defined(SFX) || defined(SFX_EXDIR))
- static char Far CantCreateExtractDir[] =
- "checkdir: cannot create extraction directory: %s\n";
-#endif
-
-#ifndef __EMX__
-# if (_MSC_VER >= 600) || defined(__IBMC__)
-# include <direct.h> /* have special MSC/IBM C mkdir prototype */
-# else /* own prototype because dir.h conflicts? */
- int mkdir(const char *path);
-# endif
-# define MKDIR(path,mode) mkdir(path)
-#else
-# define MKDIR(path,mode) mkdir(path,mode)
-#endif
-
-
-#ifdef __32BIT__
-
-USHORT DosDevIOCtl32(PVOID pData, USHORT cbData, PVOID pParms, USHORT cbParms,
- USHORT usFunction, USHORT usCategory, HFILE hDevice)
-{
- ULONG ulParmLengthInOut = cbParms, ulDataLengthInOut = cbData;
- return (USHORT) DosDevIOCtl(hDevice, usCategory, usFunction,
- pParms, cbParms, &ulParmLengthInOut,
- pData, cbData, &ulDataLengthInOut);
-}
-
-# define DosDevIOCtl DosDevIOCtl32
-#else
-# define DosDevIOCtl DosDevIOCtl2
-#endif
-
-
-typedef struct
-{
- ush nID;
- ush nSize;
- ulg lSize;
-}
-EFHEADER, *PEFHEADER;
-
-
-#ifdef __32BIT__
-
-#define DosFindFirst(p1, p2, p3, p4, p5, p6) \
- DosFindFirst(p1, p2, p3, p4, p5, p6, 1)
-
-#else
-
-typedef struct
-{
- ULONG oNextEntryOffset;
- BYTE fEA;
- BYTE cbName;
- USHORT cbValue;
- CHAR szName[1];
-}
-FEA2, *PFEA2;
-
-typedef struct
-{
- ULONG cbList;
- FEA2 list[1];
-}
-FEA2LIST, *PFEA2LIST;
-
-#define DosQueryCurrentDisk DosQCurDisk
-#define DosQueryFSAttach(p1, p2, p3, p4, p5) \
- DosQFSAttach(p1, p2, p3, p4, p5, 0)
-#define DosEnumAttribute(p1, p2, p3, p4, p5, p6, p7) \
- DosEnumAttribute(p1, p2, p3, p4, p5, p6, p7, 0)
-#define DosFindFirst(p1, p2, p3, p4, p5, p6) \
- DosFindFirst(p1, p2, p3, p4, p5, p6, 0)
-#define DosMapCase DosCaseMap
-#define DosSetPathInfo(p1, p2, p3, p4, p5) \
- DosSetPathInfo(p1, p2, p3, p4, p5, 0)
-#define DosQueryPathInfo(p1, p2, p3, p4) \
- DosQPathInfo(p1, p2, p3, p4, 0)
-#define DosQueryFileInfo DosQFileInfo
-#define DosMapCase DosCaseMap
-#define DosQueryCtryInfo DosGetCtryInfo
-
-#endif /* !__32BIT__ */
-
-
-
-
-
-/*
- * @(#) dir.h 1.4 87/11/06 Public Domain.
- */
-
-#define A_RONLY 0x01
-#define A_HIDDEN 0x02
-#define A_SYSTEM 0x04
-#define A_LABEL 0x08
-#define A_DIR 0x10
-#define A_ARCHIVE 0x20
-
-
-const int attributes = A_DIR | A_HIDDEN | A_SYSTEM;
-
-
-extern DIR *opendir(__GPRO__ ZCONST char *);
-extern struct direct *readdir(__GPRO__ DIR *);
-extern void seekdir(DIR *, long);
-extern long telldir(DIR *);
-extern void closedir(DIR *);
-#define rewinddir(dirp) seekdir(dirp, 0L)
-
-int IsFileSystemFAT(__GPRO__ ZCONST char *dir);
-char *StringLower(char *szArg);
-
-
-
-
-/*
- * @(#)dir.c 1.4 87/11/06 Public Domain.
- */
-
-
-#ifndef S_IFMT
-# define S_IFMT 0xF000
-#endif
-
-
-#ifndef SFX
- static char *getdirent(__GPRO__ ZCONST char *);
- static void free_dircontents(struct _dircontents *);
-#endif /* !SFX */
-
-
-
-
-int GetCountryInfo(void)
-{
- COUNTRYINFO ctryi;
- COUNTRYCODE ctryc;
-#ifdef __32BIT__
- ULONG cbInfo;
-#else
- USHORT cbInfo;
-#endif
-
- ctryc.country = ctryc.codepage = 0;
-
- if ( DosQueryCtryInfo(sizeof(ctryi), &ctryc, &ctryi, &cbInfo) != NO_ERROR )
- return 0;
-
- return ctryi.fsDateFmt;
-}
-
-
-long GetFileTime(ZCONST char *name)
-{
-#ifdef __32BIT__
- FILESTATUS3 fs;
-#else
- FILESTATUS fs;
-#endif
- USHORT nDate, nTime;
-
- if ( DosQueryPathInfo((PSZ) name, 1, (PBYTE) &fs, sizeof(fs)) )
- return -1;
-
- nDate = * (USHORT *) &fs.fdateLastWrite;
- nTime = * (USHORT *) &fs.ftimeLastWrite;
-
- return ((ULONG) nDate) << 16 | nTime;
-}
-
-
-#ifdef TIMESTAMP
-
-static int SetFileTime(ZCONST char *name, ulg stamp) /* swiped from Zip */
-{
- FILESTATUS fs;
- USHORT fd, ft;
-
- if (DosQueryPathInfo((PSZ) name, FIL_STANDARD, (PBYTE) &fs, sizeof(fs)))
- return -1;
-
- fd = (USHORT) (stamp >> 16);
- ft = (USHORT) stamp;
- fs.fdateLastWrite = fs.fdateCreation = * (FDATE *) &fd;
- fs.ftimeLastWrite = fs.ftimeCreation = * (FTIME *) &ft;
-
- if (DosSetPathInfo((PSZ) name, FIL_STANDARD, (PBYTE) &fs, sizeof(fs), 0))
- return -1;
-
- return 0;
-}
-
-
-int stamp_file(ZCONST char *fname, time_t modtime)
-{
- return SetFileTime(fname, Utime2DosDateTime(modtime));
-}
-
-#endif /* TIMESTAMP */
-
-
-/* The following DOS date/time structures are machine-dependent as they
- * assume "little-endian" byte order. For OS/2-specific code, which
- * is run on x86 CPUs (or emulators?), this assumption is valid; but
- * care should be taken when using this code as template for other ports.
- */
-typedef union {
- ULONG timevalue; /* combined value, useful for comparisons */
- struct {
- FTIME ft; /* system file time record:
- * USHORT twosecs : 5
- * USHORT minutes : 6;
- * USHORT hours : 5; */
- FDATE fd; /* system file date record:
- * USHORT day : 5
- * USHORT month : 4;
- * USHORT year : 7; */
- } _fdt;
-} F_DATE_TIME, *PF_DATE_TIME;
-
-
-#if defined(USE_EF_UT_TIME) || defined(TIMESTAMP)
-
-static ulg Utime2DosDateTime(uxtime)
- time_t uxtime;
-{
- F_DATE_TIME dosfiletime;
- struct tm *t;
-
- /* round up to even seconds */
- /* round up (down if "up" overflows) to even seconds */
- if (((ulg)uxtime) & 1)
- uxtime = (uxtime + 1 > uxtime) ? uxtime + 1 : uxtime - 1;
-
- t = localtime(&(uxtime));
- if (t == (struct tm *)NULL) {
- /* time conversion error; use current time instead, hoping
- that localtime() does not reject it as well! */
- time_t now = time(NULL);
- t = localtime(&now);
- }
- if (t->tm_year < 80) {
- dosfiletime._fdt.ft.twosecs = 0;
- dosfiletime._fdt.ft.minutes = 0;
- dosfiletime._fdt.ft.hours = 0;
- dosfiletime._fdt.fd.day = 1;
- dosfiletime._fdt.fd.month = 1;
- dosfiletime._fdt.fd.year = 0;
- } else {
- dosfiletime._fdt.ft.twosecs = t->tm_sec >> 1;
- dosfiletime._fdt.ft.minutes = t->tm_min;
- dosfiletime._fdt.ft.hours = t->tm_hour;
- dosfiletime._fdt.fd.day = t->tm_mday;
- dosfiletime._fdt.fd.month = t->tm_mon + 1;
- dosfiletime._fdt.fd.year = t->tm_year - 80;
- }
- return dosfiletime.timevalue;
-
-} /* end function Utime2DosDateTime() */
-
-#endif /* USE_EF_UT_TIME || TIMESTAMP */
-
-
-static int getOS2filetimes(__GPRO__ ulg *pM_dt, ulg *pA_dt, ulg *pC_dt)
-{
-#ifdef USE_EF_UT_TIME
- unsigned eb_izux_flg;
- iztimes z_utime;
-#endif
-
- /* Copy and/or convert time and date variables, if necessary; */
- /* return a flag indicating which time stamps are available. */
-#ifdef USE_EF_UT_TIME
- if (G.extra_field &&
-#ifdef IZ_CHECK_TZ
- G.tz_is_valid &&
-#endif
- ((eb_izux_flg = 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, "getOS2filetimes: UT e.f. modif. time = %lu\n",
- z_utime.mtime));
- *pM_dt = Utime2DosDateTime(z_utime.mtime);
- if (eb_izux_flg & EB_UT_FL_ATIME) {
- TTrace((stderr, "getOS2filetimes: UT e.f. access time = %lu\n",
- z_utime.atime));
- *pA_dt = Utime2DosDateTime(z_utime.atime);
- }
- if (eb_izux_flg & EB_UT_FL_CTIME) {
- TTrace((stderr, "getOS2filetimes: UT e.f. creation time = %lu\n",
- z_utime.ctime));
- *pC_dt = Utime2DosDateTime(z_utime.ctime);
- } else {
- /* no creation time value supplied, set it to modification time */
- *pC_dt = *pM_dt;
- eb_izux_flg |= EB_UT_FL_CTIME;
- }
- return (int)eb_izux_flg;
- }
-#endif /* USE_EF_UT_TIME */
- *pC_dt = *pM_dt = G.lrec.last_mod_dos_datetime;
- TTrace((stderr, "\ngetOS2filetimes: DOS dir modific./creation time = %lu\n",
- *pM_dt));
- return (EB_UT_FL_MTIME | EB_UT_FL_CTIME);
-}
-
-
-static void SetPathAttrTimes(__GPRO__ int flags, int dir)
-{
- HFILE hFile;
-#ifdef __32BIT__
- ULONG nAction;
-#else
- USHORT nAction;
-#endif
- FILESTATUS fs;
- USHORT nLength;
- char szName[CCHMAXPATH];
- ulg Mod_dt, Acc_dt, Cre_dt;
- int gotTimes;
-
- strcpy(szName, G.filename);
- nLength = strlen(szName);
- if (szName[nLength - 1] == '/')
- szName[nLength - 1] = 0;
-
- if (dir)
- {
- if ( DosQueryPathInfo(szName, FIL_STANDARD, (PBYTE) &fs, sizeof(fs)) )
- return;
- }
- else
- {
- /* for regular files, open them and operate on the file handle, to
- work around certain network operating system bugs ... */
-
- if ( DosOpen(szName, &hFile, &nAction, 0, 0,
- OPEN_ACTION_OPEN_IF_EXISTS | OPEN_ACTION_CREATE_IF_NEW,
- OPEN_SHARE_DENYREADWRITE | OPEN_ACCESS_READWRITE, 0) )
- return;
-
- if ( DosQueryFileInfo(hFile, FIL_STANDARD, (PBYTE) &fs, sizeof(fs)) )
- return;
- }
-
- /* set date/time stamps */
- gotTimes = getOS2filetimes(__G__ &Mod_dt, &Acc_dt, &Cre_dt);
- if (gotTimes & EB_UT_FL_MTIME) {
- fs.fdateLastWrite = ((F_DATE_TIME *)&Mod_dt)->_fdt.fd;
- fs.ftimeLastWrite = ((F_DATE_TIME *)&Mod_dt)->_fdt.ft;
- }
- if (gotTimes & EB_UT_FL_ATIME) {
- fs.fdateLastAccess = ((F_DATE_TIME *)&Acc_dt)->_fdt.fd;
- fs.ftimeLastAccess = ((F_DATE_TIME *)&Acc_dt)->_fdt.ft;
- }
- if (gotTimes & EB_UT_FL_CTIME) {
- fs.fdateCreation = ((F_DATE_TIME *)&Cre_dt)->_fdt.fd;
- fs.ftimeCreation = ((F_DATE_TIME *)&Cre_dt)->_fdt.ft;
- }
-
- if ( flags != -1 )
- fs.attrFile = flags; /* hidden, system, archive, read-only */
-
- if (dir)
- {
- DosSetPathInfo(szName, FIL_STANDARD, (PBYTE) &fs, sizeof(fs), 0);
- }
- else
- {
- DosSetFileInfo(hFile, FIL_STANDARD, (PBYTE) &fs, sizeof(fs));
- DosClose(hFile);
- }
-}
-
-
-typedef struct
-{
- ULONG cbList; /* length of value + 22 */
-#ifdef __32BIT__
- ULONG oNext;
-#endif
- BYTE fEA; /* 0 */
- BYTE cbName; /* length of ".LONGNAME" = 9 */
- USHORT cbValue; /* length of value + 4 */
- BYTE szName[10]; /* ".LONGNAME" */
- USHORT eaType; /* 0xFFFD for length-preceded ASCII */
- USHORT eaSize; /* length of value */
- BYTE szValue[CCHMAXPATH];
-}
-FEALST;
-
-
-static int SetEAs(__GPRO__ const char *path, void *ef_block)
-{ /* returns almost-PK errors */
- EFHEADER *pEAblock = (PEFHEADER) ef_block;
-#ifdef __32BIT__
- EAOP2 eaop;
- PFEA2LIST pFEA2list;
-#else
- EAOP eaop;
- PFEALIST pFEAlist;
- PFEA pFEA;
- PFEA2LIST pFEA2list;
- PFEA2 pFEA2;
- ULONG nLength2;
-#endif
- USHORT nLength;
- char szName[CCHMAXPATH];
- int error;
-
- if ( ef_block == NULL || pEAblock -> nID != EF_OS2 )
- return PK_OK; /* not an OS/2 extra field: assume OK */
-
- if ( pEAblock->nSize < 4 || (pEAblock->lSize > 0L && pEAblock->nSize <= 10) )
- return IZ_EF_TRUNC; /* no compressed data! */
-
- strcpy(szName, path);
- nLength = strlen(szName);
- if (szName[nLength - 1] == '/')
- szName[nLength - 1] = 0;
-
- if ( (pFEA2list = (PFEA2LIST) malloc((size_t) pEAblock -> lSize)) == NULL )
- return PK_MEM4;
-
- if ( (error = memextract(__G__ (uch *)pFEA2list, pEAblock->lSize,
- (uch *)(pEAblock+1), (ulg)(pEAblock->nSize - 4))) != PK_OK )
- {
- free(pFEA2list);
- return error;
- }
-
-#ifdef __32BIT__
- eaop.fpGEA2List = NULL;
- eaop.fpFEA2List = pFEA2list;
-#else
- pFEAlist = (PVOID) pFEA2list;
- pFEA2 = pFEA2list -> list;
- pFEA = pFEAlist -> list;
-
- do
- {
- nLength2 = pFEA2 -> oNextEntryOffset;
- nLength = sizeof(FEA) + pFEA2 -> cbName + 1 + pFEA2 -> cbValue;
-
- memcpy(pFEA, (PCH) pFEA2 + sizeof(pFEA2 -> oNextEntryOffset), nLength);
-
- pFEA2 = (PFEA2) ((PCH) pFEA2 + nLength2);
- pFEA = (PFEA) ((PCH) pFEA + nLength);
- }
- while ( nLength2 != 0 );
-
- pFEAlist -> cbList = (PCH) pFEA - (PCH) pFEAlist;
-
- eaop.fpGEAList = NULL;
- eaop.fpFEAList = pFEAlist;
-#endif
-
- eaop.oError = 0;
- DosSetPathInfo(szName, FIL_QUERYEASIZE, (PBYTE) &eaop, sizeof(eaop), 0);
-
- if (!uO.tflag && QCOND2)
- Info(slide, 0, ((char *)slide, " (%ld bytes EAs)", pFEA2list -> cbList));
-
- free(pFEA2list);
- return PK_COOL;
-}
-
-
-static int SetACL(__GPRO__ const char *path, void *ef_block)
-{ /* returns almost-PK errors */
- EFHEADER *pACLblock = (PEFHEADER) ef_block;
- char *szACL;
- int error;
-
- if ( ef_block == NULL || pACLblock -> nID != EF_ACL )
- return PK_OK; /* not an OS/2 extra field: assume OK */
-
- if (pACLblock->nSize < 4 || (pACLblock->lSize > 0L && pACLblock->nSize <= 10))
- return IZ_EF_TRUNC; /* no compressed data! */
-
- if ( (szACL = malloc((size_t) pACLblock -> lSize)) == NULL )
- return PK_MEM4;
-
- if ( (error = memextract(__G__ (uch *)szACL, pACLblock->lSize,
- (uch *)(pACLblock+1), (ulg)(pACLblock->nSize - 4))) != PK_OK )
- {
- free(szACL);
- return error;
- }
-
- if (acl_set(NULL, path, szACL) == 0)
- if (!uO.tflag && QCOND2)
- Info(slide, 0, ((char *)slide, " (%ld bytes ACL)", strlen(szACL)));
-
- free(szACL);
- return PK_COOL;
-}
-
-
-#ifdef SFX
-
-char *GetLoadPath(__GPRO)
-{
-#ifdef __32BIT__ /* generic for 32-bit API */
- PTIB pptib;
- PPIB pppib;
- char *szPath;
-
- DosGetInfoBlocks(&pptib, &pppib);
- szPath = pppib -> pib_pchenv;
-#else /* 16-bit, note: requires large data model */
- SEL selEnv;
- USHORT offCmd;
- char *szPath;
-
- DosGetEnv(&selEnv, &offCmd);
- szPath = MAKEP(selEnv, 0);
-#endif
-
- while (*szPath) /* find end of process environment */
- szPath = strchr(szPath, 0) + 1;
-
- return szPath + 1; /* .exe file name follows environment */
-
-} /* end function GetLoadPath() */
-
-
-
-
-
-#else /* !SFX */
-
-DIR *opendir(__GPRO__ const char *name)
-{
- struct stat statb;
- DIR *dirp;
- char c;
- char *s;
- struct _dircontents *dp;
- char nbuf[MAXPATHLEN + 1];
- int len;
-
- strcpy(nbuf, name);
- if ((len = strlen(nbuf)) == 0)
- return NULL;
-
- if ( ((c = nbuf[len - 1]) == '\\' || c == '/') && (len > 1) )
- {
- nbuf[len - 1] = 0;
- --len;
-
- if ( nbuf[len - 1] == ':' )
- {
- strcpy(nbuf+len, "\\.");
- len += 2;
- }
- }
- else
- if ( nbuf[len - 1] == ':' )
- {
- strcpy(nbuf+len, ".");
- ++len;
- }
-
- /* GRR: Borland and Watcom C return non-zero on wildcards... < 0 ? */
- if (stat(nbuf, &statb) < 0 || (statb.st_mode & S_IFMT) != S_IFDIR)
- {
- Trace((stderr, "opendir: stat(%s) returns negative or not directory\n",
- nbuf));
- return NULL;
- }
-
- if ( (dirp = malloc(sizeof(DIR))) == NULL )
- return NULL;
-
- if ( nbuf[len - 1] == '.' && (len == 1 || nbuf[len - 2] != '.') )
- strcpy(nbuf+len-1, "*");
- else
- if ( ((c = nbuf[len - 1]) == '\\' || c == '/') && (len == 1) )
- strcpy(nbuf+len, "*");
- else
- strcpy(nbuf+len, "\\*");
-
- /* len is no longer correct (but no longer needed) */
- Trace((stderr, "opendir: nbuf = [%s]\n", nbuf));
-
- dirp -> dd_loc = 0;
- dirp -> dd_contents = dirp -> dd_cp = NULL;
-
- if ((s = getdirent(__G__ nbuf)) == NULL)
- return dirp;
-
- do
- {
- if (((dp = malloc(sizeof(struct _dircontents))) == NULL) ||
- ((dp -> _d_entry = malloc(strlen(s) + 1)) == NULL) )
- {
- if (dp)
- free(dp);
- free_dircontents(dirp -> dd_contents);
-
- return NULL;
- }
-
- if (dirp -> dd_contents)
- {
- dirp -> dd_cp -> _d_next = dp;
- dirp -> dd_cp = dirp -> dd_cp -> _d_next;
- }
- else
- dirp -> dd_contents = dirp -> dd_cp = dp;
-
- strcpy(dp -> _d_entry, s);
- dp -> _d_next = NULL;
-
- dp -> _d_size = G.os2.find.cbFile;
- dp -> _d_mode = G.os2.find.attrFile;
- dp -> _d_time = *(unsigned *) &(G.os2.find.ftimeLastWrite);
- dp -> _d_date = *(unsigned *) &(G.os2.find.fdateLastWrite);
- }
- while ((s = getdirent(__G__ NULL)) != NULL);
-
- dirp -> dd_cp = dirp -> dd_contents;
-
- return dirp;
-}
-
-
-void closedir(DIR * dirp)
-{
- free_dircontents(dirp -> dd_contents);
- free(dirp);
-}
-
-
-struct direct *readdir(__GPRO__ DIR * dirp)
-{
- /* moved to os2data.h so it can be global */
- /* static struct direct dp; */
-
- if (dirp -> dd_cp == NULL)
- return NULL;
-
- G.os2.dp.d_namlen = G.os2.dp.d_reclen =
- strlen(strcpy(G.os2.dp.d_name, dirp -> dd_cp -> _d_entry));
-
- G.os2.dp.d_ino = 0;
-
- G.os2.dp.d_size = dirp -> dd_cp -> _d_size;
- G.os2.dp.d_mode = dirp -> dd_cp -> _d_mode;
- G.os2.dp.d_time = dirp -> dd_cp -> _d_time;
- G.os2.dp.d_date = dirp -> dd_cp -> _d_date;
-
- dirp -> dd_cp = dirp -> dd_cp -> _d_next;
- dirp -> dd_loc++;
-
- return &G.os2.dp;
-}
-
-
-
-#if 0 /* not used in unzip; retained for possibly future use */
-
-void seekdir(DIR * dirp, long off)
-{
- long i = off;
- struct _dircontents *dp;
-
- if (off >= 0)
- {
- for (dp = dirp -> dd_contents; --i >= 0 && dp; dp = dp -> _d_next);
-
- dirp -> dd_loc = off - (i + 1);
- dirp -> dd_cp = dp;
- }
-}
-
-
-long telldir(DIR * dirp)
-{
- return dirp -> dd_loc;
-}
-
-#endif /* 0 */
-
-
-
-static void free_dircontents(struct _dircontents * dp)
-{
- struct _dircontents *odp;
-
- while (dp)
- {
- if (dp -> _d_entry)
- free(dp -> _d_entry);
-
- dp = (odp = dp) -> _d_next;
- free(odp);
- }
-}
-
-
-static char *getdirent(__GPRO__ ZCONST char *dir)
-{
- int done;
- /* moved to os2data.h so it can be global */
- /* static int lower; */
-
- if (dir != NULL)
- { /* get first entry */
- G.os2.hdir = HDIR_SYSTEM;
- G.os2.count = 1;
- done = DosFindFirst((PSZ) dir, &G.os2.hdir, attributes,
- &G.os2.find, sizeof(G.os2.find), &G.os2.count);
- G.os2.lower = IsFileSystemFAT(__G__ dir);
- }
- else /* get next entry */
- done = DosFindNext(G.os2.hdir,
- &G.os2.find, sizeof(G.os2.find), &G.os2.count);
-
- if (done == 0)
- {
- if ( G.os2.lower )
- StringLower(G.os2.find.achName);
- return G.os2.find.achName;
- }
- else
- {
- DosFindClose(G.os2.hdir);
- return NULL;
- }
-}
-
-
-
-int IsFileSystemFAT(__GPRO__ ZCONST char *dir) /* FAT / HPFS detection */
-{
- /* moved to os2data.h so they can be global */
- /* static USHORT nLastDrive=(USHORT)(-1), nResult; */
- ULONG lMap;
- BYTE bData[64];
- char bName[3];
-#ifdef __32BIT__
- ULONG nDrive, cbData;
- PFSQBUFFER2 pData = (PFSQBUFFER2) bData;
-#else
- USHORT nDrive, cbData;
- PFSQBUFFER pData = (PFSQBUFFER) bData;
-#endif
-
- /* We separate FAT and HPFS+other file systems here.
- at the moment I consider other systems to be similar to HPFS,
- i.e. support long file names and case sensitive */
-
- if ( isalpha(dir[0]) && (dir[1] == ':') )
- nDrive = toupper(dir[0]) - '@';
- else
- DosQueryCurrentDisk(&nDrive, &lMap);
-
- if ( nDrive == G.os2.nLastDrive )
- return G.os2.nResult;
-
- bName[0] = (char) (nDrive + '@');
- bName[1] = ':';
- bName[2] = 0;
-
- G.os2.nLastDrive = nDrive;
- cbData = sizeof(bData);
-
- if ( !DosQueryFSAttach(bName, 0, FSAIL_QUERYNAME, (PVOID) pData, &cbData) )
- G.os2.nResult = !strcmp((char *) (pData -> szFSDName) + pData -> cbName,
- "FAT");
- else
- G.os2.nResult = FALSE;
-
- /* End of this ugly code */
- return G.os2.nResult;
-} /* end function IsFileSystemFAT() */
-
-
-
-
-
-/************************/
-/* Function do_wild() */
-/************************/
-
-char *do_wild(__G__ wildspec)
- __GDEF
- char *wildspec; /* only used first time on a given dir */
-{
- /* moved to os2data.h so they can be global */
-#if 0
- static DIR *dir = NULL;
- static char *dirname, *wildname, matchname[FILNAMSIZ];
- static int firstcall=TRUE, have_dirname, dirnamelen;
-#endif
- char *fnamestart;
- struct direct *file;
-
-
- /* Even when we're just returning wildspec, we *always* do so in
- * matchname[]--calling routine is allowed to append four characters
- * to the returned string, and wildspec may be a pointer to argv[].
- */
- if (G.os2.firstcall) { /* first call: must initialize everything */
- G.os2.firstcall = FALSE;
-
- if (!iswild(wildspec)) {
- strcpy(G.os2.matchname, wildspec);
- G.os2.have_dirname = FALSE;
- G.os2.dir = NULL;
- return G.os2.matchname;
- }
-
- /* break the wildspec into a directory part and a wildcard filename */
- if ((G.os2.wildname = strrchr(wildspec, '/')) == NULL &&
- (G.os2.wildname = strrchr(wildspec, ':')) == NULL) {
- G.os2.dirname = ".";
- G.os2.dirnamelen = 1;
- G.os2.have_dirname = FALSE;
- G.os2.wildname = wildspec;
- } else {
- ++G.os2.wildname; /* point at character after '/' or ':' */
- G.os2.dirnamelen = G.os2.wildname - wildspec;
- if ((G.os2.dirname = (char *)malloc(G.os2.dirnamelen+1)) == NULL) {
- Info(slide, 1, ((char *)slide,
- LoadFarString(CantAllocateWildcard)));
- strcpy(G.os2.matchname, wildspec);
- return G.os2.matchname; /* but maybe filespec was not a wildcard */
- }
- strncpy(G.os2.dirname, wildspec, G.os2.dirnamelen);
- G.os2.dirname[G.os2.dirnamelen] = '\0'; /* terminate for strcpy below */
- G.os2.have_dirname = TRUE;
- }
- Trace((stderr, "do_wild: dirname = [%s]\n", G.os2.dirname));
-
- if ((G.os2.dir = opendir(__G__ G.os2.dirname)) != NULL) {
- if (G.os2.have_dirname) {
- strcpy(G.os2.matchname, G.os2.dirname);
- fnamestart = G.os2.matchname + G.os2.dirnamelen;
- } else
- fnamestart = G.os2.matchname;
- while ((file = readdir(__G__ G.os2.dir)) != NULL) {
- Trace((stderr, "do_wild: readdir returns %s\n", file->d_name));
- strcpy(fnamestart, file->d_name);
- if (strrchr(fnamestart, '.') == (char *)NULL)
- strcat(fnamestart, ".");
- if (match(fnamestart, G.os2.wildname, 1) && /* 1 == ignore case */
- /* skip "." and ".." directory entries */
- strcmp(fnamestart, ".") && strcmp(fnamestart, "..")) {
- Trace((stderr, "do_wild: match() succeeds\n"));
- /* remove trailing dot */
- fnamestart += strlen(fnamestart) - 1;
- if (*fnamestart == '.')
- *fnamestart = '\0';
- return G.os2.matchname;
- }
- }
- /* if we get to here directory is exhausted, so close it */
- closedir(G.os2.dir);
- G.os2.dir = NULL;
- }
-#ifdef DEBUG
- else {
- Trace((stderr, "do_wild: opendir(%s) returns NULL\n", G.os2.dirname));
- }
-#endif /* DEBUG */
-
- /* return the raw wildspec in case that works (e.g., directory not
- * searchable, but filespec was not wild and file is readable) */
- strcpy(G.os2.matchname, wildspec);
- return G.os2.matchname;
- }
-
- /* last time through, might have failed opendir but returned raw wildspec */
- if (G.os2.dir == NULL) {
- G.os2.firstcall = TRUE; /* nothing left to try--reset for new wildspec */
- if (G.os2.have_dirname)
- free(G.os2.dirname);
- return (char *)NULL;
- }
-
- /* If we've gotten this far, we've read and matched at least one entry
- * successfully (in a previous call), so dirname has been copied into
- * matchname already.
- */
- if (G.os2.have_dirname) {
- /* strcpy(G.os2.matchname, G.os2.dirname); */
- fnamestart = G.os2.matchname + G.os2.dirnamelen;
- } else
- fnamestart = G.os2.matchname;
- while ((file = readdir(__G__ G.os2.dir)) != NULL) {
- Trace((stderr, "do_wild: readdir returns %s\n", file->d_name));
- strcpy(fnamestart, file->d_name);
- if (strrchr(fnamestart, '.') == (char *)NULL)
- strcat(fnamestart, ".");
- if (match(fnamestart, G.os2.wildname, 1)) { /* 1 == ignore case */
- Trace((stderr, "do_wild: match() succeeds\n"));
- /* remove trailing dot */
- fnamestart += strlen(fnamestart) - 1;
- if (*fnamestart == '.')
- *fnamestart = '\0';
- return G.os2.matchname;
- }
- }
-
- closedir(G.os2.dir); /* have read at least one dir entry; nothing left */
- G.os2.dir = NULL;
- G.os2.firstcall = TRUE; /* reset for new wildspec */
- if (G.os2.have_dirname)
- free(G.os2.dirname);
- return (char *)NULL;
-
-} /* end function do_wild() */
-
-#endif /* !SFX */
-
-
-/* scan extra fields for something we happen to know */
-
-static int EvalExtraFields(__GPRO__ const char *path,
- void *extra_field, unsigned ef_len)
-{
- char *ef_ptr = extra_field;
- PEFHEADER pEFblock;
- int rc = PK_OK;
-
- while (ef_len >= sizeof(EFHEADER))
- {
- pEFblock = (PEFHEADER) ef_ptr;
-
- if (pEFblock -> nSize > (ef_len - EB_HEADSIZE))
- return PK_ERR; /* claimed EFblock length exceeds EF size! */
-
- switch (pEFblock -> nID)
- {
- case EF_OS2:
- rc = SetEAs(__G__ path, ef_ptr);
- break;
- case EF_ACL:
- rc = (uO.X_flag) ? SetACL(__G__ path, ef_ptr) : PK_OK;
- break;
-#if 0
- case EF_IZUNIX:
- case EF_PKUNIX:
- /* handled elsewhere */
- break;
-#endif
- default:
- TTrace((stderr,"EvalExtraFields: unknown extra field block, ID=%d\n",
- pEFblock -> nID));
- break;
- }
-
- ef_ptr += (pEFblock -> nSize + EB_HEADSIZE);
- ef_len -= (pEFblock -> nSize + EB_HEADSIZE);
-
- if (rc != PK_OK)
- break;
- }
-
- return rc;
-}
-
-
-
-/************************/
-/* Function mapattr() */
-/************************/
-
-int mapattr(__G)
- __GDEF
-{
- /* set archive bit (file is not backed up): */
- G.pInfo->file_attr = (unsigned)(G.crec.external_file_attributes | 32) & 0xff;
- return 0;
-}
-
-
-
-
-
-/************************/
-/* Function mapname() */
-/************************/
-
-/*
- * There are presently two possibilities in OS/2: the output filesystem is
- * FAT, or it is HPFS. If the former, we need to map to FAT, obviously, but
- * we *also* must map to HPFS and store that version of the name in extended
- * attributes. Either way, we need to map to HPFS, so the main mapname
- * routine does that. In the case that the output file system is FAT, an
- * extra filename-mapping routine is called in checkdir(). While it should
- * be possible to determine the filesystem immediately upon entry to mapname(),
- * it is conceivable that the DOS APPEND utility could be added to OS/2 some-
- * day, allowing a FAT directory to be APPENDed to an HPFS drive/path. There-
- * fore we simply check the filesystem at each path component.
- *
- * Note that when alternative IFSes become available/popular, everything will
- * become immensely more complicated. For example, a Minix filesystem would
- * have limited filename lengths like FAT but no extended attributes in which
- * to store the longer versions of the names. A BSD Unix filesystem would
- * support paths of length 1024 bytes or more, but it is not clear that FAT
- * EAs would allow such long .LONGNAME fields or that OS/2 would properly
- * restore such fields when moving files from FAT to the new filesystem.
- *
- * GRR: some or all of the following chars should be checked in either
- * mapname (HPFS) or map2fat (FAT), depending: ,=^+'"[]<>|\t&
- */
- /* return 0 if no error, 1 if caution (filename */
-int mapname(__G__ renamed) /* truncated), 2 if warning (skip file because */
- __GDEF /* dir doesn't exist), 3 if error (skip file), */
- int renamed; /* or 10 if out of memory (skip file) */
-{ /* [also IZ_VOL_LABEL, IZ_CREATED_DIR] */
- char pathcomp[FILNAMSIZ]; /* path-component buffer */
- char *pp, *cp=(char *)NULL; /* character pointers */
- char *lastsemi=(char *)NULL; /* pointer to last semi-colon in pathcomp */
- int quote = FALSE; /* flag: next char is literal */
- int error = 0;
- register unsigned workch; /* hold the character being tested */
-
-
-/*---------------------------------------------------------------------------
- Initialize various pointers and counters and stuff.
- ---------------------------------------------------------------------------*/
-
- /* can create path as long as not just freshening, or if user told us */
- G.create_dirs = (!uO.fflag || renamed);
-
- G.os2.created_dir = FALSE; /* not yet */
- G.os2.renamed_fullpath = FALSE;
- G.os2.fnlen = strlen(G.filename);
-
-/* GRR: for VMS, convert to internal format now or later? or never? */
- if (renamed) {
- cp = G.filename - 1; /* point to beginning of renamed name... */
- while (*++cp)
- if (*cp == '\\') /* convert backslashes to forward */
- *cp = '/';
- cp = G.filename;
- /* use temporary rootpath if user gave full pathname */
- if (G.filename[0] == '/') {
- G.os2.renamed_fullpath = TRUE;
- pathcomp[0] = '/'; /* copy the '/' and terminate */
- pathcomp[1] = '\0';
- ++cp;
- } else if (isalpha(G.filename[0]) && G.filename[1] == ':') {
- G.os2.renamed_fullpath = TRUE;
- pp = pathcomp;
- *pp++ = *cp++; /* copy the "d:" (+ '/', possibly) */
- *pp++ = *cp++;
- if (*cp == '/')
- *pp++ = *cp++; /* otherwise add "./"? */
- *pp = '\0';
- }
- }
-
- /* pathcomp is ignored unless renamed_fullpath is TRUE: */
- if ((error = checkdir(__G__ pathcomp, INIT)) != 0) /* init path buffer */
- return error; /* ...unless no mem or vol label on hard disk */
-
- *pathcomp = '\0'; /* initialize translation buffer */
- pp = pathcomp; /* point to translation buffer */
- if (!renamed) { /* cp already set if renamed */
- if (uO.jflag) /* junking directories */
-/* GRR: watch out for VMS version... */
- cp = (char *)strrchr(G.filename, '/');
- if (cp == (char *)NULL) /* no '/' or not junking dirs */
- cp = G.filename; /* point to internal zipfile-member pathname */
- else
- ++cp; /* point to start of last component of path */
- }
-
-/*---------------------------------------------------------------------------
- Begin main loop through characters in filename.
- ---------------------------------------------------------------------------*/
-
- while ((workch = (uch)*cp++) != 0) {
-
- if (quote) { /* if character quoted, */
- *pp++ = (char)workch; /* include it literally */
- quote = FALSE;
- } else
- switch (workch) {
- case '/': /* can assume -j flag not given */
- *pp = '\0';
- if ((error = checkdir(__G__ pathcomp, APPEND_DIR)) > 1)
- return error;
- pp = pathcomp; /* reset conversion buffer for next piece */
- lastsemi = (char *)NULL; /* leave directory semi-colons alone */
- break;
-
- case ':':
- *pp++ = '_'; /* drive names not stored in zipfile, */
- break; /* so no colons allowed */
-
- case ';': /* start of VMS version? */
- lastsemi = pp; /* remove VMS version later... */
- *pp++ = ';'; /* but keep semicolon for now */
- break;
-
- case '\026': /* control-V quote for special chars */
- quote = TRUE; /* set flag for next character */
- break;
-
- case ' ': /* keep spaces unless specifically */
- if (uO.sflag) /* requested to change to underscore */
- *pp++ = '_';
- else
- *pp++ = ' ';
- break;
-
- default:
- /* allow ASCII 255 and European characters in filenames: */
- if (isprint(workch) || workch >= 127)
- *pp++ = (char)workch;
- } /* end switch */
-
- } /* end while loop */
-
- *pp = '\0'; /* done with pathcomp: terminate it */
-
- /* if not saving them, remove VMS version numbers (appended "###") */
- if (!uO.V_flag && lastsemi) {
- pp = lastsemi + 1; /* semi-colon was kept: expect #s after */
- while (isdigit((uch)(*pp)))
- ++pp;
- if (*pp == '\0') /* only digits between ';' and end: nuke */
- *lastsemi = '\0';
- }
-
-/*---------------------------------------------------------------------------
- Report if directory was created (and no file to create: filename ended
- in '/'), check name to be sure it exists, and combine path and name be-
- fore exiting.
- ---------------------------------------------------------------------------*/
-
- if (G.filename[G.os2.fnlen-1] == '/') {
- checkdir(__G__ G.filename, GETPATH);
- if (G.os2.created_dir) {
- if (!uO.qflag)
- Info(slide, 0, ((char *)slide, LoadFarString(Creating),
- G.filename));
- if (G.extra_field) { /* zipfile extra field has extended attribs */
- int err = EvalExtraFields(__G__ G.filename, G.extra_field,
- G.lrec.extra_field_length);
-
- if (err == IZ_EF_TRUNC) {
- if (uO.qflag)
- Info(slide, 1, ((char *)slide, "%-22s ", G.filename));
- Info(slide, 1, ((char *)slide, LoadFarString(TruncEAs),
- makeword(G.extra_field+2)-10, "\n"));
- } else if (!uO.qflag)
- (*G.message)((zvoid *)&G, (uch *)"\n", 1L, 0);
- } else if (!uO.qflag)
- (*G.message)((zvoid *)&G, (uch *)"\n", 1L, 0);
-
- /* set date/time stamps */
- SetPathAttrTimes(__G__ G.pInfo->file_attr & ~A_ARCHIVE, 1);
-
- return IZ_CREATED_DIR; /* dir time already set */
-
- } else if (G.extra_field && uO.overwrite_all) {
- /* overwrite EAs of existing directory since user requested it */
- int err = EvalExtraFields(__G__ G.filename, G.extra_field,
- G.lrec.extra_field_length);
-
- if (err == IZ_EF_TRUNC) {
- Info(slide, 0x421, ((char *)slide, "%-22s ", G.filename));
- Info(slide, 0x401, ((char *)slide, LoadFarString(TruncEAs),
- makeword(G.extra_field+2)-10, "\n"));
- }
-
- /* set date/time stamps (dirs only have creation times) */
- SetPathAttrTimes(__G__ G.pInfo->file_attr & ~A_ARCHIVE, 1);
- }
- return 2; /* dir existed already; don't look for data to extract */
- }
-
- if (*pathcomp == '\0') {
- Info(slide, 1, ((char *)slide, LoadFarString(ConversionFailed),
- G.filename));
- return 3;
- }
-
- checkdir(__G__ pathcomp, APPEND_NAME); /* returns 1 if truncated: care? */
- checkdir(__G__ G.filename, GETPATH);
- Trace((stderr, "mapname returns with filename = [%s] (error = %d)\n\n",
- G.filename, error));
-
- if (G.pInfo->vollabel) { /* set the volume label now */
- VOLUMELABEL FSInfoBuf;
-/* GRR: "VOLUMELABEL" defined for IBM C and emx, but haven't checked MSC... */
-
- strcpy(FSInfoBuf.szVolLabel, G.filename);
- FSInfoBuf.cch = (BYTE)strlen(FSInfoBuf.szVolLabel);
-
- if (!uO.qflag)
- Info(slide, 0, ((char *)slide, LoadFarString(Labelling),
- (char)(G.os2.nLabelDrive + 'a' - 1), G.filename));
- if (DosSetFSInfo(G.os2.nLabelDrive, FSIL_VOLSER, (PBYTE)&FSInfoBuf,
- sizeof(VOLUMELABEL)))
- {
- Info(slide, 1, ((char *)slide, LoadFarString(ErrSetVolLabel)));
- return 3;
- }
- return 2; /* success: skip the "extraction" quietly */
- }
-
- return error;
-
-} /* end function mapname() */
-
-
-
-
-
-/***********************/
-/* Function checkdir() */
-/***********************/
-
-int checkdir(__G__ pathcomp, flag)
- __GDEF
- char *pathcomp;
- int flag;
-/*
- * returns: 1 - (on APPEND_NAME) truncated filename
- * 2 - path doesn't exist, not allowed to create
- * 3 - path doesn't exist, tried to create and failed; or
- * path exists and is not a directory, but is supposed to be
- * 4 - path is too long
- * 10 - can't allocate memory for filename buffers
- */
-{
- /* moved to os2data.h so they can be global */
-#if 0
- static int rootlen = 0; /* length of rootpath */
- static char *rootpath; /* user's "extract-to" directory */
- static char *buildpathHPFS; /* full path (so far) to extracted file, */
- static char *buildpathFAT; /* both HPFS/EA (main) and FAT versions */
- static char *endHPFS; /* corresponding pointers to end of */
- static char *endFAT; /* buildpath ('\0') */
-#endif
-
-# define FN_MASK 7
-# define FUNCTION (flag & FN_MASK)
-
-
-
-/*---------------------------------------------------------------------------
- APPEND_DIR: append the path component to the path being built and check
- for its existence. If doesn't exist and we are creating directories, do
- so for this one; else signal success or error as appropriate.
- ---------------------------------------------------------------------------*/
-
- if (FUNCTION == APPEND_DIR) {
- char *p = pathcomp;
- int longdirEA, too_long=FALSE;
-
- Trace((stderr, "appending dir segment [%s]\n", pathcomp));
- while ((*G.os2.endHPFS = *p++) != '\0') /* copy to HPFS filename */
- ++G.os2.endHPFS;
- if (IsFileNameValid(G.os2.buildpathHPFS)) {
- longdirEA = FALSE;
- p = pathcomp;
- while ((*G.os2.endFAT = *p++) != '\0') /* copy to FAT filename, too */
- ++G.os2.endFAT;
- } else {
- longdirEA = TRUE;
-/* GRR: check error return? */
- map2fat(pathcomp, &G.os2.endFAT); /* map, put in FAT fn, update endFAT */
- }
-
- /* GRR: could do better check, see if overrunning buffer as we go:
- * check endHPFS-G.os2.buildpathHPFS after each append, set warning variable
- * if within 20 of FILNAMSIZ; then if var set, do careful check when
- * appending. Clear variable when begin new path. */
-
- /* next check: need to append '/', at least one-char name, '\0' */
- if ((G.os2.endHPFS-G.os2.buildpathHPFS) > FILNAMSIZ-3)
- too_long = TRUE; /* check if extracting dir? */
-#ifdef MSC /* MSC 6.00 bug: stat(non-existent-dir) == 0 [exists!] */
- if (GetFileTime(G.os2.buildpathFAT) == -1 || stat(G.os2.buildpathFAT, &G.statbuf))
-#else
- if (stat(G.os2.buildpathFAT, &G.statbuf)) /* path doesn't exist */
-#endif
- {
- if (!G.create_dirs) { /* told not to create (freshening) */
- free(G.os2.buildpathHPFS);
- free(G.os2.buildpathFAT);
- return 2; /* path doesn't exist: nothing to do */
- }
- if (too_long) { /* GRR: should allow FAT extraction w/o EAs */
- Info(slide, 1, ((char *)slide, LoadFarString(PathTooLong),
- G.os2.buildpathHPFS));
- free(G.os2.buildpathHPFS);
- free(G.os2.buildpathFAT);
- return 4; /* no room for filenames: fatal */
- }
- if (MKDIR(G.os2.buildpathFAT, 0777) == -1) { /* create the directory */
- Info(slide, 1, ((char *)slide, LoadFarString(CantCreateDir),
- G.os2.buildpathFAT, G.filename));
- free(G.os2.buildpathHPFS);
- free(G.os2.buildpathFAT);
- return 3; /* path didn't exist, tried to create, failed */
- }
- G.os2.created_dir = TRUE;
- /* only set EA if creating directory */
-/* GRR: need trailing '/' before function call? */
- if (longdirEA) {
-#ifdef DEBUG
- int e =
-#endif
- SetLongNameEA(G.os2.buildpathFAT, pathcomp);
- Trace((stderr, "APPEND_DIR: SetLongNameEA() returns %d\n", e));
- }
- } else if (!S_ISDIR(G.statbuf.st_mode)) {
- Info(slide, 1, ((char *)slide, LoadFarString(DirIsntDirectory),
- G.os2.buildpathFAT, G.filename));
- free(G.os2.buildpathHPFS);
- free(G.os2.buildpathFAT);
- return 3; /* path existed but wasn't dir */
- }
- if (too_long) {
- Info(slide, 1, ((char *)slide, LoadFarString(PathTooLong),
- G.os2.buildpathHPFS));
- free(G.os2.buildpathHPFS);
- free(G.os2.buildpathFAT);
- return 4; /* no room for filenames: fatal */
- }
- *G.os2.endHPFS++ = '/';
- *G.os2.endFAT++ = '/';
- *G.os2.endHPFS = *G.os2.endFAT = '\0';
- Trace((stderr, "buildpathHPFS now = [%s]\n", G.os2.buildpathHPFS));
- Trace((stderr, "buildpathFAT now = [%s]\n", G.os2.buildpathFAT));
- return 0;
-
- } /* end if (FUNCTION == APPEND_DIR) */
-
-/*---------------------------------------------------------------------------
- GETPATH: copy full FAT path to the string pointed at by pathcomp (want
- filename to reflect name used on disk, not EAs; if full path is HPFS,
- buildpathFAT and buildpathHPFS will be identical). Also free both paths.
- ---------------------------------------------------------------------------*/
-
- if (FUNCTION == GETPATH) {
- Trace((stderr, "getting and freeing FAT path [%s]\n", G.os2.buildpathFAT));
- Trace((stderr, "freeing HPFS path [%s]\n", G.os2.buildpathHPFS));
- strcpy(pathcomp, G.os2.buildpathFAT);
- free(G.os2.buildpathFAT);
- free(G.os2.buildpathHPFS);
- G.os2.buildpathHPFS = G.os2.buildpathFAT = G.os2.endHPFS = G.os2.endFAT = (char *)NULL;
- return 0;
- }
-
-/*---------------------------------------------------------------------------
- APPEND_NAME: assume the path component is the filename; append it and
- return without checking for existence.
- ---------------------------------------------------------------------------*/
-
- if (FUNCTION == APPEND_NAME) {
- char *p = pathcomp;
- int error = 0;
-
- Trace((stderr, "appending filename [%s]\n", pathcomp));
- while ((*G.os2.endHPFS = *p++) != '\0') { /* copy to HPFS filename */
- ++G.os2.endHPFS;
- if ((G.os2.endHPFS-G.os2.buildpathHPFS) >= FILNAMSIZ) {
- *--G.os2.endHPFS = '\0';
- Info(slide, 1, ((char *)slide, LoadFarString(PathTooLongTrunc),
- G.filename, G.os2.buildpathHPFS));
- error = 1; /* filename truncated */
- }
- }
-
-/* GRR: how can longnameEA ever be set before this point??? we don't want
- * to save the original name to EAs if user renamed it, do we?
- *
- * if (!G.os2.longnameEA && ((G.os2.longnameEA = !IsFileNameValid(name)) != 0))
- */
- if (G.pInfo->vollabel || IsFileNameValid(G.os2.buildpathHPFS)) {
- G.os2.longnameEA = FALSE;
- p = pathcomp;
- while ((*G.os2.endFAT = *p++) != '\0') /* copy to FAT filename, too */
- ++G.os2.endFAT;
- } else {
- G.os2.longnameEA = TRUE;
- if ((G.os2.lastpathcomp = (char *)malloc(strlen(pathcomp)+1)) ==
- (char *)NULL)
- {
- Info(slide, 1, ((char *)slide,
- "checkdir warning: cannot save longname EA: out of memory\n"));
- G.os2.longnameEA = FALSE;
- error = 1; /* can't set .LONGNAME extended attribute */
- } else /* used and freed in close_outfile() */
- strcpy(G.os2.lastpathcomp, pathcomp);
- map2fat(pathcomp, &G.os2.endFAT); /* map, put in FAT fn, update endFAT */
- }
- Trace((stderr, "buildpathHPFS: %s\nbuildpathFAT: %s\n",
- G.os2.buildpathHPFS, G.os2.buildpathFAT));
-
- return error; /* could check for existence, prompt for new name... */
-
- } /* end if (FUNCTION == APPEND_NAME) */
-
-/*---------------------------------------------------------------------------
- INIT: allocate and initialize buffer space for the file currently being
- extracted. If file was renamed with an absolute path, don't prepend the
- extract-to path.
- ---------------------------------------------------------------------------*/
-
- if (FUNCTION == INIT) {
- Trace((stderr, "initializing buildpathHPFS and buildpathFAT to "));
- if ((G.os2.buildpathHPFS = (char *)malloc(G.os2.fnlen+G.os2.rootlen+1)) == (char *)NULL)
- return 10;
- if ((G.os2.buildpathFAT = (char *)malloc(G.os2.fnlen+G.os2.rootlen+1)) == (char *)NULL) {
- free(G.os2.buildpathHPFS);
- return 10;
- }
- if (G.pInfo->vollabel) { /* use root or renamed path, but don't store */
-/* GRR: for network drives, do strchr() and return IZ_VOL_LABEL if not [1] */
- if (G.os2.renamed_fullpath && pathcomp[1] == ':')
- *G.os2.buildpathHPFS = (char)ToLower(*pathcomp);
- else if (!G.os2.renamed_fullpath && G.os2.rootlen > 1 && G.os2.rootpath[1] == ':')
- *G.os2.buildpathHPFS = (char)ToLower(*G.os2.rootpath);
- else {
- ULONG lMap;
- DosQueryCurrentDisk(&G.os2.nLabelDrive, &lMap);
- *G.os2.buildpathHPFS = (char)(G.os2.nLabelDrive - 1 + 'a');
- }
- G.os2.nLabelDrive = *G.os2.buildpathHPFS - 'a' + 1; /* save for mapname() */
- if (uO.volflag == 0 || *G.os2.buildpathHPFS < 'a' || /* no labels/bogus? */
- (uO.volflag == 1 && !isfloppy(G.os2.nLabelDrive))) { /* -$: no fixed */
- free(G.os2.buildpathHPFS);
- free(G.os2.buildpathFAT);
- return IZ_VOL_LABEL; /* skipping with message */
- }
- *G.os2.buildpathHPFS = '\0';
- } else if (G.os2.renamed_fullpath) /* pathcomp = valid data */
- strcpy(G.os2.buildpathHPFS, pathcomp);
- else if (G.os2.rootlen > 0)
- strcpy(G.os2.buildpathHPFS, G.os2.rootpath);
- else
- *G.os2.buildpathHPFS = '\0';
- G.os2.endHPFS = G.os2.buildpathHPFS;
- G.os2.endFAT = G.os2.buildpathFAT;
- while ((*G.os2.endFAT = *G.os2.endHPFS) != '\0') {
- ++G.os2.endFAT;
- ++G.os2.endHPFS;
- }
- Trace((stderr, "[%s]\n", G.os2.buildpathHPFS));
- return 0;
- }
-
-/*---------------------------------------------------------------------------
- ROOT: if appropriate, store the path in rootpath and create it if neces-
- sary; else assume it's a zipfile member and return. This path segment
- gets used in extracting all members from every zipfile specified on the
- command line. Note that under OS/2 and MS-DOS, if a candidate extract-to
- directory specification includes a drive letter (leading "x:"), it is
- treated just as if it had a trailing '/'--that is, one directory level
- will be created if the path doesn't exist, unless this is otherwise pro-
- hibited (e.g., freshening).
- ---------------------------------------------------------------------------*/
-
-#if (!defined(SFX) || defined(SFX_EXDIR))
- if (FUNCTION == ROOT) {
- Trace((stderr, "initializing root path to [%s]\n", pathcomp));
- if (pathcomp == (char *)NULL) {
- G.os2.rootlen = 0;
- return 0;
- }
- if ((G.os2.rootlen = strlen(pathcomp)) > 0) {
- int had_trailing_pathsep=FALSE, has_drive=FALSE, xtra=2;
-
- if (isalpha(pathcomp[0]) && pathcomp[1] == ':')
- has_drive = TRUE; /* drive designator */
- if (pathcomp[G.os2.rootlen-1] == '/') {
- pathcomp[--G.os2.rootlen] = '\0';
- had_trailing_pathsep = TRUE;
- }
- if (has_drive && (G.os2.rootlen == 2)) {
- if (!had_trailing_pathsep) /* i.e., original wasn't "x:/" */
- xtra = 3; /* room for '.' + '/' + 0 at end of "x:" */
- } else if (G.os2.rootlen > 0) { /* need not check "x:." and "x:/" */
-#ifdef MSC /* MSC 6.00 bug: stat(non-existent-dir) == 0 [exists!] */
- if (GetFileTime(pathcomp) == -1 ||
- SSTAT(pathcomp, &G.statbuf) || !S_ISDIR(G.statbuf.st_mode))
-#else
- if (SSTAT(pathcomp, &G.statbuf) || !S_ISDIR(G.statbuf.st_mode))
-#endif
- { /* path does not exist */
- if (!G.create_dirs /* || iswild(pathcomp) */
- ) {
- G.os2.rootlen = 0;
- return 2; /* treat as stored file */
- }
- /* create directory (could add loop here to scan pathcomp
- * and create more than one level, but really necessary?) */
- if (MKDIR(pathcomp, 0777) == -1) {
- Info(slide, 1, ((char *)slide,
- LoadFarString(CantCreateExtractDir), pathcomp));
- G.os2.rootlen = 0; /* path didn't exist, tried to create, */
- return 3; /* failed: file exists, or need 2+ levels */
- }
- }
- }
- if ((G.os2.rootpath = (char *)malloc(G.os2.rootlen+xtra)) == (char *)NULL) {
- G.os2.rootlen = 0;
- return 10;
- }
- strcpy(G.os2.rootpath, pathcomp);
- if (xtra == 3) /* had just "x:", make "x:." */
- G.os2.rootpath[G.os2.rootlen++] = '.';
- G.os2.rootpath[G.os2.rootlen++] = '/';
- G.os2.rootpath[G.os2.rootlen] = '\0';
- Trace((stderr, "rootpath now = [%s]\n", G.os2.rootpath));
- }
- return 0;
- }
-#endif /* !SFX || SFX_EXDIR */
-
-/*---------------------------------------------------------------------------
- END: free rootpath, immediately prior to program exit.
- ---------------------------------------------------------------------------*/
-
- if (FUNCTION == END) {
- Trace((stderr, "freeing rootpath\n"));
- if (G.os2.rootlen > 0) {
- free(G.os2.rootpath);
- G.os2.rootlen = 0;
- }
- return 0;
- }
-
- return 99; /* should never reach */
-
-} /* end function checkdir() */
-
-
-
-
-
-/***********************/
-/* Function isfloppy() */ /* more precisely, is it removable? */
-/***********************/
-
-static int isfloppy(nDrive)
- int nDrive; /* 1 == A:, 2 == B:, etc. */
-{
- uch ParmList[1] = {0};
- uch DataArea[1] = {0};
- char Name[3];
- HFILE handle;
-#ifdef __32BIT__
- ULONG rc;
- ULONG action;
-#else
- USHORT rc;
- USHORT action;
-#endif
-
-
- Name[0] = (char) (nDrive + 'A' - 1);
- Name[1] = ':';
- Name[2] = 0;
-
- rc = DosOpen(Name, &handle, &action, 0L, FILE_NORMAL, FILE_OPEN,
- OPEN_FLAGS_DASD | OPEN_FLAGS_FAIL_ON_ERROR |
- OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE, 0L);
-
- if (rc == ERROR_NOT_READY) /* must be removable */
- return TRUE;
- else if (rc) { /* other error: do default a/b heuristic instead */
- Trace((stderr, "error in DosOpen(DASD): guessing...\n", rc));
- return (nDrive == 1 || nDrive == 2)? TRUE : FALSE;
- }
-
- rc = DosDevIOCtl(DataArea, sizeof(DataArea), ParmList, sizeof(ParmList),
- DSK_BLOCKREMOVABLE, IOCTL_DISK, handle);
- DosClose(handle);
-
- if (rc) { /* again, just check for a/b */
- Trace((stderr, "error in DosDevIOCtl category IOCTL_DISK, function "
- "DSK_BLOCKREMOVABLE\n (rc = 0x%04x): guessing...\n", rc));
- return (nDrive == 1 || nDrive == 2)? TRUE : FALSE;
- } else {
- return DataArea[0] ? FALSE : TRUE;
- }
-} /* end function isfloppy() */
-
-
-
-
-
-static int IsFileNameValid(const char *name)
-{
- HFILE hf;
-#ifdef __32BIT__
- ULONG uAction;
-#else
- USHORT uAction;
-#endif
-
- switch( DosOpen((PSZ) name, &hf, &uAction, 0, 0, FILE_OPEN,
- OPEN_ACCESS_READONLY | OPEN_SHARE_DENYNONE, 0) )
- {
- case ERROR_INVALID_NAME:
- case ERROR_FILENAME_EXCED_RANGE:
- return FALSE;
- case NO_ERROR:
- DosClose(hf);
- default:
- return TRUE;
- }
-}
-
-
-
-
-
-/**********************/
-/* Function map2fat() */
-/**********************/
-
-static void map2fat(pathcomp, pEndFAT)
- char *pathcomp, **pEndFAT;
-{
- char *ppc = pathcomp; /* variable pointer to pathcomp */
- char *pEnd = *pEndFAT; /* variable pointer to buildpathFAT */
- char *pBegin = *pEndFAT; /* constant pointer to start of this comp. */
- char *last_dot = (char *)NULL; /* last dot not converted to underscore */
- int dotname = FALSE; /* flag: path component begins with dot */
- /* ("." and ".." don't count) */
- register unsigned workch; /* hold the character being tested */
-
-
- /* Only need check those characters which are legal in HPFS but not
- * in FAT: to get here, must already have passed through mapname.
- * (GRR: oops, small bug--if char was quoted, no longer have any
- * knowledge of that.) Also must truncate path component to ensure
- * 8.3 compliance...
- */
- while ((workch = (uch)*ppc++) != 0) {
- switch (workch) {
- case '[': /* add '"' '+' ',' '=' ?? */
- case ']':
- *pEnd++ = '_'; /* convert brackets to underscores */
- break;
-
- case '.':
- if (pEnd == *pEndFAT) { /* nothing appended yet... */
- if (*ppc == '\0') /* don't bother appending a */
- break; /* "./" component to the path */
- else if (*ppc == '.' && ppc[1] == '\0') { /* "../" */
- *pEnd++ = '.'; /* add first dot, unchanged... */
- ++ppc; /* skip second dot, since it will */
- } else { /* be "added" at end of if-block */
- *pEnd++ = '_'; /* FAT doesn't allow null filename */
- dotname = TRUE; /* bodies, so map .exrc -> _.exrc */
- } /* (extra '_' now, "dot" below) */
- } else if (dotname) { /* found a second dot, but still */
- dotname = FALSE; /* have extra leading underscore: */
- *pEnd = '\0'; /* remove it by shifting chars */
- pEnd = *pEndFAT + 1; /* left one space (e.g., .p1.p2: */
- while (pEnd[1]) { /* __p1 -> _p1_p2 -> _p1.p2 when */
- *pEnd = pEnd[1]; /* finished) [opt.: since first */
- ++pEnd; /* two chars are same, can start */
- } /* shifting at second position] */
- }
- last_dot = pEnd; /* point at last dot so far... */
- *pEnd++ = '_'; /* convert dot to underscore for now */
- break;
-
- default:
- *pEnd++ = (char)workch;
-
- } /* end switch */
- } /* end while loop */
-
- *pEnd = '\0'; /* terminate buildpathFAT */
-
- /* NOTE: keep in mind that pEnd points to the end of the path
- * component, and *pEndFAT still points to the *beginning* of it...
- * Also note that the algorithm does not try to get too fancy:
- * if there are no dots already, the name either gets truncated
- * at 8 characters or the last underscore is converted to a dot
- * (only if more characters are saved that way). In no case is
- * a dot inserted between existing characters.
- */
- if (last_dot == (char *)NULL) { /* no dots: check for underscores... */
- char *plu = strrchr(pBegin, '_'); /* pointer to last underscore */
-
- if (plu == (char *)NULL) { /* no dots, no underscores: truncate at 8 */
- *pEndFAT += 8; /* chars (could insert '.' and keep 11...) */
- if (*pEndFAT > pEnd)
- *pEndFAT = pEnd; /* oops...didn't have 8 chars to truncate */
- else
- **pEndFAT = '\0';
- } else if (MIN(plu - pBegin, 8) + MIN(pEnd - plu - 1, 3) > 8) {
- last_dot = plu; /* be lazy: drop through to next if-block */
- } else if ((pEnd - *pEndFAT) > 8) {
- *pEndFAT += 8; /* more fits into just basename than if */
- **pEndFAT = '\0'; /* convert last underscore to dot */
- } else
- *pEndFAT = pEnd; /* whole thing fits into 8 chars or less */
- }
-
- if (last_dot != (char *)NULL) { /* one dot (or two, in the case of */
- *last_dot = '.'; /* "..") is OK: put it back in */
-
- if ((last_dot - pBegin) > 8) {
- char *p, *q;
- int i;
-
- p = last_dot;
- q = last_dot = pBegin + 8;
- for (i = 0; (i < 4) && *p; ++i) /* too many chars in basename: */
- *q++ = *p++; /* shift ".ext" left and */
- *q = '\0'; /* truncate/terminate it */
- *pEndFAT = q;
- } else if ((pEnd - last_dot) > 4) { /* too many chars in extension */
- *pEndFAT = last_dot + 4;
- **pEndFAT = '\0';
- } else
- *pEndFAT = pEnd; /* filename is fine; point at terminating zero */
-
- if ((last_dot - pBegin) > 0 && last_dot[-1] == ' ')
- last_dot[-1] = '_'; /* NO blank in front of '.'! */
- }
-} /* end function map2fat() */
-
-
-
-
-
-static int SetLongNameEA(char *name, char *longname)
-{
- EAOP eaop;
- FEALST fealst;
-
- eaop.fpFEAList = (PFEALIST) &fealst;
- eaop.fpGEAList = NULL;
- eaop.oError = 0;
-
- strcpy((char *) fealst.szName, ".LONGNAME");
- strcpy((char *) fealst.szValue, longname);
-
- fealst.cbList = sizeof(fealst) - CCHMAXPATH + strlen((char *) fealst.szValue);
- fealst.cbName = (BYTE) strlen((char *) fealst.szName);
- fealst.cbValue = sizeof(USHORT) * 2 + strlen((char *) fealst.szValue);
-
-#ifdef __32BIT__
- fealst.oNext = 0;
-#endif
- fealst.fEA = 0;
- fealst.eaType = 0xFFFD;
- fealst.eaSize = strlen((char *) fealst.szValue);
-
- return DosSetPathInfo(name, FIL_QUERYEASIZE,
- (PBYTE) &eaop, sizeof(eaop), 0);
-}
-
-
-
-
-
-/****************************/
-/* Function close_outfile() */
-/****************************/
-
- /* GRR: need to return error level!! */
-
-void close_outfile(__G) /* only for extracted files, not directories */
- __GDEF
-{
- fclose(G.outfile);
-
- /* set extra fields, both stored-in-zipfile and .LONGNAME flavors */
- if (G.extra_field) { /* zipfile extra field may have extended attribs */
- int err = EvalExtraFields(__G__ G.filename, G.extra_field,
- G.lrec.extra_field_length);
-
- if (err == IZ_EF_TRUNC) {
- if (uO.qflag)
- Info(slide, 1, ((char *)slide, "%-22s ", G.filename));
- Info(slide, 1, ((char *)slide, LoadFarString(TruncEAs),
- makeword(G.extra_field+2)-10, uO.qflag? "\n" : ""));
- }
- }
-
- if (G.os2.longnameEA) {
-#ifdef DEBUG
- int e =
-#endif
- SetLongNameEA(G.filename, G.os2.lastpathcomp);
- Trace((stderr, "close_outfile: SetLongNameEA() returns %d\n", e));
- free(G.os2.lastpathcomp);
- }
-
- /* set date/time and permissions */
- SetPathAttrTimes(__G__ G.pInfo->file_attr, 0);
-
-} /* end function close_outfile() */
-
-
-
-
-
-/******************************/
-/* Function check_for_newer() */
-/******************************/
-
-int check_for_newer(__G__ filename) /* return 1 if existing file newer or equal; */
- __GDEF
- char *filename; /* 0 if older; -1 if doesn't exist yet */
-{
- ulg existing, archive;
-#ifdef USE_EF_UT_TIME
- iztimes z_utime;
-#endif
-
- if ((existing = (ulg)GetFileTime(filename)) == (ulg)-1)
- return DOES_NOT_EXIST;
-
-#ifdef USE_EF_UT_TIME
- 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"));
- archive = Utime2DosDateTime(z_utime.mtime);
- } else {
- archive = G.lrec.last_mod_dos_datetime;
- }
-#else /* !USE_EF_UT_TIME */
- archive = G.lrec.last_mod_dos_datetime;
-#endif /* ?USE_EF_UT_TIME */
-
- return (existing >= archive);
-} /* end function check_for_newer() */
-
-
-
-
-
-#ifndef SFX
-
-/*************************/
-/* Function dateformat() */
-/*************************/
-
-int dateformat()
-{
-/*-----------------------------------------------------------------------------
- For those operating systems which support it, this function returns a value
- which tells how national convention says that numeric dates are displayed.
- Return values are DF_YMD, DF_DMY and DF_MDY.
- -----------------------------------------------------------------------------*/
-
- switch (GetCountryInfo()) {
- case 0:
- return DF_MDY;
- case 1:
- return DF_DMY;
- case 2:
- return DF_YMD;
- }
- return DF_MDY; /* default if error */
-
-} /* end function dateformat() */
-
-
-
-
-
-/************************/
-/* Function version() */
-/************************/
-
-void version(__G)
- __GDEF
-{
- int len;
-#if defined(__IBMC__) || defined(__WATCOMC__) || defined(_MSC_VER)
- char buf[80];
-#endif
-
- len = sprintf((char *)slide, LoadFarString(CompiledWith),
-
-#if defined(__GNUC__)
-# ifdef __EMX__ /* __EMX__ is defined as "1" only (sigh) */
- "emx+gcc ", __VERSION__,
-# else
- "gcc/2 ", __VERSION__,
-# endif
-#elif defined(__IBMC__)
- "IBM ",
-# if (__IBMC__ < 200)
- (sprintf(buf, "C Set/2 %d.%02d", __IBMC__/100,__IBMC__%100), buf),
-# elif (__IBMC__ < 300)
- (sprintf(buf, "C Set++ %d.%02d", __IBMC__/100,__IBMC__%100), buf),
-# else
- (sprintf(buf, "Visual Age C++ %d.%02d", __IBMC__/100,__IBMC__%100), buf),
-# endif
-#elif defined(__WATCOMC__)
- "Watcom C", (sprintf(buf, " (__WATCOMC__ = %d)", __WATCOMC__), buf),
-#elif defined(__TURBOC__)
-# ifdef __BORLANDC__
- "Borland C++",
-# if (__BORLANDC__ < 0x0460)
- " 1.0",
-# elif (__BORLANDC__ == 0x0460)
- " 1.5", /* from Kai Uwe: three less than DOS */
-# else
- " 2.0", /* (__BORLANDC__ == 0x0500)? */
-# endif
-# else
- "Turbo C", /* these are probably irrelevant */
-# if (__TURBOC__ >= 661)
- "++ 1.0 or later",
-# elif (__TURBOC__ == 661)
- " 3.0?",
-# elif (__TURBOC__ == 397)
- " 2.0",
-# else
- " 1.0 or 1.5?",
-# endif
-# endif
-#elif defined(MSC)
- "Microsoft C ",
-# ifdef _MSC_VER
- (sprintf(buf, "%d.%02d", _MSC_VER/100, _MSC_VER%100), buf),
-# else
- "5.1 or earlier",
-# endif
-#else
- "unknown compiler", "",
-#endif /* ?compilers */
-
- "OS/2",
-
-/* GRR: does IBM C/2 identify itself as IBM rather than Microsoft? */
-#if (defined(MSC) || (defined(__WATCOMC__) && !defined(__386__)))
-# if defined(M_I86HM) || defined(__HUGE__)
- " (16-bit, huge)",
-# elif defined(M_I86LM) || defined(__LARGE__)
- " (16-bit, large)",
-# elif defined(M_I86MM) || defined(__MEDIUM__)
- " (16-bit, medium)",
-# elif defined(M_I86CM) || defined(__COMPACT__)
- " (16-bit, compact)",
-# elif defined(M_I86SM) || defined(__SMALL__)
- " (16-bit, small)",
-# elif defined(M_I86TM) || defined(__TINY__)
- " (16-bit, tiny)",
-# else
- " (16-bit)",
-# endif
-#else
- " 2.x/3.x (32-bit)",
-#endif
-
-#ifdef __DATE__
- " on ", __DATE__
-#else
- "", ""
-#endif
- );
-
- (*G.message)((zvoid *)&G, slide, (ulg)len, 0);
- /* MSC can't handle huge macro expansions */
-
- /* temporary debugging code for Borland compilers only */
- /* __TCPLUSPLUS__, __BCPLUSPLUS__ not defined for v1.5 */
-#if (defined(__TURBOC__) && defined(DEBUG))
- Info(slide, 0, ((char *)slide, "\t(__TURBOC__ = 0x%04x = %d)\n", __TURBOC__,
- __TURBOC__));
-#ifdef __BORLANDC__
- Info(slide, 0, ((char *)slide, "\t(__BORLANDC__ = 0x%04x)\n",__BORLANDC__));
-#else
- Info(slide, 0, ((char *)slide, "\tdebug(__BORLANDC__ not defined)\n"));
-#endif
-#endif /* __TURBOC__ && DEBUG */
-
-} /* end function version() */
-
-#endif /* !SFX */
-
-
-
-/* This table can be static because it is pseudo-constant */
-static unsigned char cUpperCase[256], cLowerCase[256];
-static BOOL bInitialized=FALSE;
-
-/* Initialize the tables of upper- and lowercase characters, including
- handling of country-dependent characters. */
-
-static void InitNLS(void)
-{
- unsigned nCnt, nU;
- COUNTRYCODE cc;
-
- if (bInitialized == FALSE) {
- bInitialized = TRUE;
-
- for ( nCnt = 0; nCnt < 256; nCnt++ )
- cUpperCase[nCnt] = cLowerCase[nCnt] = (unsigned char) nCnt;
-
- cc.country = cc.codepage = 0;
- DosMapCase(sizeof(cUpperCase), &cc, (PCHAR) cUpperCase);
-
- for ( nCnt = 0; nCnt < 256; nCnt++ ) {
- nU = cUpperCase[nCnt];
- if (nU != nCnt && cLowerCase[nU] == (unsigned char) nU)
- cLowerCase[nU] = (unsigned char) nCnt;
- }
-
- for ( nCnt = 'A'; nCnt <= 'Z'; nCnt++ )
- cLowerCase[nCnt] = (unsigned char) (nCnt - 'A' + 'a');
- }
-}
-
-
-int IsUpperNLS(int nChr)
-{
- return (cUpperCase[nChr] == (unsigned char) nChr);
-}
-
-
-int ToLowerNLS(int nChr)
-{
- return cLowerCase[nChr];
-}
-
-
-char *StringLower(char *szArg)
-{
- unsigned char *szPtr;
-
- for ( szPtr = (unsigned char *) szArg; *szPtr; szPtr++ )
- *szPtr = cLowerCase[*szPtr];
- return szArg;
-}
-
-
-#if defined(__IBMC__) && defined(__DEBUG_ALLOC__)
-void DebugMalloc(void)
-{
- _dump_allocated(0); /* print out debug malloc memory statistics */
-}
-#endif
-
-
-#if defined(REENTRANT) && defined(USETHREADID)
-ulg GetThreadId(void)
-{
- PTIB pptib; /* Address of a pointer to the
- Thread Information Block */
- PPIB pppib; /* Address of a pointer to the
- Process Information Block */
-
- DosGetInfoBlocks(&pptib, &pppib);
- return pptib->tib_ptib2->tib2_ultid;
-}
-#endif /* defined(REENTRANT) && defined(USETHREADID) */
-
-
-void os2GlobalsCtor(__GPRO)
-{
- G.os2.nLastDrive = (USHORT)(-1);
- G.os2.firstcall = TRUE;
-
-#ifdef OS2DLL
- G.os2.rexx_mes = "0";
-#endif
-
- InitNLS();
-}
projects / wxWidgets.git / blobdiff