328 lines
9.0 KiB
C
328 lines
9.0 KiB
C
/*** UTILB.C -- Data structure manipulation functions specific to OS/2 *********
|
||
*
|
||
* Copyright (c) 1988-1990, Microsoft Corporation. All rights reserved.
|
||
*
|
||
* Purpose:
|
||
* This file was created from functions in util.c & esetdrv.c which were system
|
||
* dependent. This was done so that the build of the project became simpler and
|
||
* there was a clear flow in the build process.
|
||
*
|
||
* Method of Creation:
|
||
* 1. Identified all functions having mixed mode code.
|
||
* 2. Deleted all code blocked out by '#ifndef BOUND' preprocessor directives
|
||
* in these functions
|
||
* 3. Deleted all local function & their prototypes not referred by these
|
||
* 4. Deleted all global data unreferenced by these, including data blocked
|
||
* of by '#ifdef DEBUG'
|
||
*
|
||
* Revision History:
|
||
* 15-Nov-1993 JdR Major speed improvements
|
||
* 15-Oct-1993 HV Use tchar.h instead of mbstring.h directly, change STR*() to _ftcs*()
|
||
* 15-Jun-1993 HV No longer display warning about filenames being longer than
|
||
* 8.3. Decision made by EmerickF, see Ikura bug #86 for more
|
||
* details.
|
||
* 03-Jun-1993 HV Fixed findFirst's pathname truncation (Ikura bug #86)
|
||
* 10-May-1993 HV Add include file mbstring.h
|
||
* Change the str* functions to STR*
|
||
* 08-Jun-1992 SS Port to DOSX32
|
||
* 10-Apr-1990 SB removed if _osmode stuff, not needed in protect only version.
|
||
* 04-Dec-1989 SB removed unreferenced local variables in findFirst()
|
||
* 01-Dec-1989 SB changed a remaining free() to FREE(); now FREE()'ing all
|
||
* allocated stuff from findFirst() on exit
|
||
* 22-Nov-1989 SB Add #ifdef DEBUG_FIND to debug FIND_FIRST, etc.
|
||
* 13-Nov-1989 SB Define INCL_NOPM to exclude <pm.h>
|
||
* 19-Oct-1989 SB findFirst() and findNext() get extra parameter
|
||
* 08-Oct-1989 SB remove quotes around a name before making system call
|
||
* 02-Oct-1989 SB setdrive() proto change
|
||
* 04-Sep-1989 SB Add DOSFINDCLOSE calls is findFirst and QueryFileInfo
|
||
* 05-Jul-1989 SB add curTime() to get current time. (C Runtime function
|
||
* differs from DOS time and so time() is no good
|
||
* 05-Jun-1989 SB call DosFindClose if DosFindNext returns an error
|
||
* 28-May-1989 SB Add getCurDir() to initialize MAKEDIR macro
|
||
* 24-Apr-1989 SB made FILEINFO a thing of the past. Replace by void *
|
||
* added OS/2 ver 1.2 support
|
||
* 05-Apr-1989 SB made all funcs NEAR; Reqd to make all function calls NEAR
|
||
* 09-Mar-1989 SB Added function QueryFileInfo() because DosFindFirst has FAPI
|
||
* restrictions. ResultBuf was being allocated on the heap but
|
||
* not being freed. This saves about 36 bytes for every call to
|
||
* findAFile i.e. to findFirst(), findNext() or expandWildCards
|
||
* 09-Nov-1988 SB Created
|
||
*
|
||
*******************************************************************************/
|
||
|
||
#include "nmake.h"
|
||
#include "nmmsg.h"
|
||
#include "proto.h"
|
||
#include "globals.h"
|
||
#include "grammar.h"
|
||
|
||
#define INCL_ERRORS
|
||
#define INCL_DOSDATETIME
|
||
#define bitsin(type) sizeof(type) * 8
|
||
|
||
#include <time.h>
|
||
|
||
//DO not want PM stuff
|
||
|
||
#define INCL_NOPM
|
||
#ifndef FLAT
|
||
//#include <os2.h>
|
||
#define fLongFilenames 0
|
||
#endif
|
||
|
||
#ifdef DEBUG
|
||
BOOL fFindDebug = TRUE;
|
||
#endif
|
||
|
||
|
||
STRINGLIST * NEAR
|
||
expandWildCards(s)
|
||
char *s; /* text to expand */
|
||
{
|
||
void *result = _alloca(resultbuf_size);
|
||
NMHANDLE searchHandle;
|
||
STRINGLIST *xlist, /* list of ex- */
|
||
*p; /* panded names */
|
||
char *namestr;
|
||
|
||
if (!(namestr = findFirst(s, &result, &searchHandle)))
|
||
return(NULL);
|
||
xlist = makeNewStrListElement();
|
||
xlist->text = prependPath(s, namestr);
|
||
for (;;) {
|
||
char *name;
|
||
|
||
name = getFileName(&result);
|
||
if (!(namestr = findNext(&result, searchHandle)))
|
||
return(xlist);
|
||
p = makeNewStrListElement();
|
||
p->text = prependPath(s, namestr);
|
||
prependItem(&xlist, p);
|
||
}
|
||
|
||
}
|
||
|
||
int NEAR
|
||
setdrive(drivenum)
|
||
int drivenum;
|
||
{
|
||
return(_chdrive(drivenum));
|
||
}
|
||
|
||
/*** QueryFileInfo -- it does a DosFindFirst which circumvents FAPI restrictions
|
||
*
|
||
* Scope:
|
||
* Global (used by Build.c also)
|
||
*
|
||
* Purpose:
|
||
* DosFindFirst() has a FAPI restriction in Real mode. You cannot ask it give
|
||
* you a handle to a DTA structure other than the default handle. This function
|
||
* calls C Library Function _dos_findfirst in real mode (which sets the DTA) and
|
||
* does the job. In protect mode it asks OS/2 for a new handle.
|
||
*
|
||
* Input:
|
||
* file -- the file to be searched for
|
||
* dta -- the struct containing result of the search
|
||
*
|
||
* Output:
|
||
* Returns a pointer to the filename found (if any)
|
||
*
|
||
* Errors/Warnings:
|
||
*
|
||
* Assumes:
|
||
* That dta points to a structure which has been allocated enough memory
|
||
*
|
||
* Modifies Globals:
|
||
*
|
||
* Uses Globals:
|
||
* _osmode -- to determine whether in Real or Bound mode
|
||
*
|
||
* Notes:
|
||
*
|
||
*******************************************************************************/
|
||
char * NEAR
|
||
QueryFileInfo(file, dta)
|
||
char *file;
|
||
void **dta;
|
||
{
|
||
char *t;
|
||
|
||
//remove Quotes around filename, if existing
|
||
t = file + _ftcslen(file) - 1;
|
||
if (*file == '"' && *t == '"') {
|
||
//file is quoted, so remove quote
|
||
file = unQuote(file);
|
||
}
|
||
if (_dos_findfirst(file, _A_RDONLY, *dta) != 0) {
|
||
return(NULL);
|
||
}
|
||
return(getFileName(dta));
|
||
}
|
||
|
||
//
|
||
// Truncate filename to system limits
|
||
//
|
||
void truncateFilename(char * s)
|
||
{
|
||
// The following are for filename truncation
|
||
char szDrive[_MAX_DRIVE];
|
||
char szDir[_MAX_DIR];
|
||
char szName[_MAX_FNAME];
|
||
char szExtension[_MAX_EXT];
|
||
BOOL ftruncated = FALSE;
|
||
// Ikura bug #86: pathname incorrectly truncated. Solution: first parse it
|
||
// using _splitpath(), then truncate the filename and extension part.
|
||
// Finally reconstruct the pathname by calling _makepath().
|
||
// - Haituanv (HV)
|
||
_splitpath(s, szDrive, szDir, szName, szExtension);
|
||
#ifdef IBUG_86
|
||
printf("DEBUG: (Ikura bug #86) After _splitpath:\n");
|
||
printf("s = [%s]\n", s);
|
||
printf("szDrive = [%s]\n", szDrive);
|
||
printf("szDir = [%s]\n", szDir);
|
||
printf("szName = [%s]\n", szName);
|
||
printf("szExtension = [%s]\n", szExtension);
|
||
#endif // IBUG_86
|
||
if (_ftcslen(szName) > filename_size)
|
||
{
|
||
// 15-Jun-1993 Haituanv -- No longer display warning about filenames
|
||
// being longer than 8.3. Decision made by EmerickF, see Ikura bug
|
||
// #86 for more details.
|
||
// makeError(line, TRUNCATING_FILENAME, s);
|
||
TruncateString(szName, filename_size);
|
||
ftruncated = TRUE;
|
||
}
|
||
if (_ftcslen(szExtension) > ext_size)
|
||
{
|
||
// 15-Jun-1993 Haituanv -- No longer display warning about filenames
|
||
// being longer than 8.3. Decision made by EmerickF, see Ikura bug
|
||
// #86 for more details.
|
||
// if (doflag)
|
||
// makeError(line, TRUNCATING_FILENAME, s);
|
||
TruncateString(szExtension, ext_size);
|
||
ftruncated = TRUE;
|
||
}
|
||
if (ftruncated)
|
||
_makepath(s, szDrive, szDir, szName, szExtension);
|
||
#ifdef IBUG_86
|
||
printf("DEBUG: (Ikura bug #86) After _makepath:\n");
|
||
printf("s = [%s]\n", s);
|
||
printf("szDrive = [%s]\n", szDrive);
|
||
printf("szDir = [%s]\n", szDir);
|
||
printf("szName = [%s]\n", szName);
|
||
printf("szExtension = [%s]\n", szExtension);
|
||
#endif // IBUG_86
|
||
}
|
||
|
||
/*** findFirst -- Find first occurence of a file *******************************
|
||
*
|
||
* Scope:
|
||
* GLOBAL
|
||
*
|
||
* Purpose:
|
||
*
|
||
* Input:
|
||
*
|
||
* Output:
|
||
*
|
||
* Errors/Warnings:
|
||
*
|
||
* Assumes:
|
||
*
|
||
* Modifies Globals:
|
||
*
|
||
* Uses Globals:
|
||
*
|
||
* Notes:
|
||
*
|
||
* History:
|
||
* 03-Jun-1993 HV Fixed findFirst's pathname truncation (Ikura bug #86)
|
||
*
|
||
*******************************************************************************/
|
||
char * NEAR
|
||
findFirst(s, dta, dirHandle)
|
||
char *s; /* text to expand */
|
||
void **dta;
|
||
NMHANDLE *dirHandle;
|
||
{
|
||
#ifndef NOESC
|
||
char *buf = _alloca(CCHMAXPATH); /* buffer for removing ESCH */
|
||
static char specialset[5] = {'"', '*', '?', ESCH, '\0'};
|
||
#else
|
||
static char specialset[4] = {'*', '"', '?', '\0'};
|
||
#endif
|
||
char *x; /* Pointers for truncation, walking for ESCH */
|
||
BOOL anyspecial; // flag set if s contains special characters.
|
||
char *t;
|
||
|
||
// Check if name contains any special characters
|
||
|
||
anyspecial = (_ftcspbrk(s, specialset) != NULL);
|
||
|
||
if (anyspecial) {
|
||
//remove Quotes around filename
|
||
t = s + _ftcslen(s) - 1;
|
||
if (*s == '"' && *t == '"') {
|
||
//s is quoted, so remove quote
|
||
s = unQuote(s);
|
||
}
|
||
|
||
#ifndef NOESC
|
||
for (x = buf; *s; *x++ = *s++) /* copy pathname, skipping ESCHs */
|
||
if (*s == ESCH) s++;
|
||
*x = '\0';
|
||
s = buf; /* only elide ESCH the first time!*/
|
||
#endif
|
||
}
|
||
|
||
truncateFilename(s);
|
||
if (_dos_findfirst(s, _A_RDONLY, *dta) != 0) {
|
||
return(NULL);
|
||
}
|
||
return(getFileName(dta));
|
||
}
|
||
|
||
char * NEAR
|
||
findNext(dta, dirHandle)
|
||
void **dta;
|
||
NMHANDLE dirHandle;
|
||
{
|
||
if (_dos_findnext(*dta) != 0) {
|
||
return(NULL);
|
||
}
|
||
return(getFileName(dta));
|
||
}
|
||
|
||
|
||
char * NEAR
|
||
getCurDir(void)
|
||
{
|
||
char *pszPath;
|
||
char pbPath [_MAX_DIR+1];
|
||
|
||
pszPath = (char *)rallocate(_ftcslen(_getcwd(pbPath, _MAX_DIR+1)) + 1);
|
||
_ftcscpy (pszPath, pbPath);
|
||
return(pszPath);
|
||
}
|
||
|
||
#define YEARLOC 9
|
||
#define MONTHLOC 5
|
||
#define HOURLOC 11
|
||
#define MINLOC 5
|
||
|
||
void NEAR
|
||
curTime(plTime)
|
||
ULONG *plTime;
|
||
{
|
||
// use time() instead of _getsystime... time is less vulnerable
|
||
// to bugs and doesn't require conversion via mktime... [rm]
|
||
//
|
||
// struct tm t;
|
||
//
|
||
// _getsystime (&t);
|
||
// *plTime = (ULONG) (mktime (&t));
|
||
//
|
||
|
||
time(plTime);
|
||
}
|