/*** 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 <io.h>
#include <direct.h>
#include <time.h>

#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;
{
#ifdef FLAT
    return(_chdrive(drivenum));
#else
    return(DosSelectDisk(drivenum));
#endif
}

/*** 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;
{
#ifdef FLAT
    NMHANDLE  hDir;
#else
    unsigned hDir = 0xffff;				  //ask for a new handle
    unsigned uSearchCount = 1;				    //search for 1 file
    USHORT rc;
#endif

    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);
    }
    //Protect mode so call API fuction
#ifndef FLAT
    if (rc = DosFindFirst(file, &hDir, 0, *dta,
		      resultbuf_size, &uSearchCount, 0L)) {
	    switch (rc) {
#ifdef DEBUG_FIND
		case ERROR_BUFFER_OVERFLOW	 :printf("BUFFER_OVERFLOW       \n");break;
		case ERROR_DRIVE_LOCKED 	 :printf("DRIVE_LOCKED          \n");break;
		case ERROR_FILE_NOT_FOUND	 :if (fDebug) printf("FILE_NOT_FOUND        \n");break;
		case ERROR_INVALID_HANDLE	 :printf("INVALID_HANDLE        \n");break;
		case ERROR_INVALID_PARAMETER	 :printf("INVALID_PARAMETER     \n");break;
		case ERROR_NO_MORE_FILES	 :printf("NO_MORE_FILES         \n");break;
#endif
		case ERROR_NO_MORE_SEARCH_HANDLES:makeError(0, OUT_OF_SEARCH_HANDLES);
#ifdef DEBUG_FIND
		case ERROR_NOT_DOS_DISK 	 :printf("NOT_DOS_DISK          \n");break;
		case ERROR_PATH_NOT_FOUND	 :if (fDebug) printf("PATH_NOT_FOUND        \n");break;
#endif
	    }
#else
#if defined(DEBUG_FIND)
	printf("QueryFileInfo file: %s\n", file);
#endif
    if ((hDir = _findfirst(file, *dta)) == -1) {
#endif
#ifndef FLAT
	DosFindClose(hDir);
#endif
	return(NULL);
    }
#ifndef FLAT
    DosFindClose(hDir);
#else
    _findclose(hDir);
#endif
    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 FLAT
    unsigned SearchCount = 1;	    /* files to search for */
    unsigned Attribute = 0;	    /* normal files	   */
#endif

#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;
#ifndef FLAT
    USHORT rc;
#endif

    // 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);

#ifdef FLAT
#if defined(DEBUG_FIND) 
	printf("findFirst file: %s\n", s);
#endif
    if ((*dirHandle = _findfirst(s, *dta)) == -1) {
	// BUGBUG Use GetLastError to get details
	return(NULL);
    }
    //if it had no wildcard then close the search handle
    if (!anyspecial || (!_ftcschr(s, '*') && !_ftcschr(s, '?')))
	_findclose(*dirHandle);
    return ((struct _finddata_t *)*dta)->name;

#else  /* !FLAT */
    *dirHandle = -1;
    if (rc = DosFindFirst(s, dirHandle, Attribute,
	    *dta, resultbuf_size, &SearchCount, 0L)) {
	    switch (rc) {
#ifdef DEBUG_FIND
		case ERROR_BUFFER_OVERFLOW	 :printf("BUFFER_OVERFLOW       \n");break;
		case ERROR_DRIVE_LOCKED 	 :printf("DRIVE_LOCKED          \n");break;
		case ERROR_FILE_NOT_FOUND	 :printf("FILE_NOT_FOUND        \n");break;
		case ERROR_INVALID_HANDLE	 :printf("INVALID_HANDLE        \n");break;
		case ERROR_INVALID_PARAMETER	 :printf("INVALID_PARAMETER     \n");break;
		case ERROR_NO_MORE_FILES	 :printf("NO_MORE_FILES         \n");break;
#endif
		case ERROR_NO_MORE_SEARCH_HANDLES:makeError(0, OUT_OF_SEARCH_HANDLES);
#ifdef DEBUG_FIND
		case ERROR_NOT_DOS_DISK 	 :printf("NOT_DOS_DISK          \n");break;
		case ERROR_PATH_NOT_FOUND	 :printf("PATH_NOT_FOUND        \n");break;
#endif
	    }
	DosFindClose(*dirHandle);
	return(NULL);
    }
    //if it had no wildcard then close the search handle
    if (!anyspecial || (!_ftcschr(s, '*') && !_ftcschr(s, '?')))
	DosFindClose(*dirHandle);
    return(getFileName(dta));
#endif		// !FLAT
}

char * NEAR
findNext(dta, dirHandle)
void **dta;
NMHANDLE dirHandle;
{
#ifdef FLAT
    if (_findnext(dirHandle,*dta)) {
	_findclose(dirHandle);
#else
    unsigned uSearchCount = 1;       /* files to search for */

    if (DosFindNext(dirHandle, *dta, resultbuf_size, &uSearchCount)) {
	DosFindClose(dirHandle);
#endif

	return(NULL);
    }
    return(getFileName(dta));
}


char * NEAR
getCurDir(void)
{
    char *pszPath;
#ifdef FLAT
    char pbPath [_MAX_DIR+1];

    pszPath = (char *)rallocate(_ftcslen(_getcwd(pbPath, _MAX_DIR+1)) + 1);
    _ftcscpy (pszPath, pbPath);
#else
    unsigned usDisk;
    ULONG ulDrives;
    unsigned cbPath;

    DosQCurDisk(&usDisk, &ulDrives);		 //gets current drive
    cbPath = 0;
    DosQCurDir(usDisk, NULL, &cbPath);		 //returns size reqd in cbPath
    pszPath = (char *)rallocate(cbPath + 3);	 //space for path
    _ftcscpy(pszPath, " :\\");
    DosQCurDir(usDisk, pszPath + 3, &cbPath);	 //get directory
    *pszPath = (char)(usDisk + 'A' - 1);
#endif

    return(pszPath);
}

#define YEARLOC  9
#define MONTHLOC 5
#define HOURLOC  11
#define MINLOC	 5

void NEAR
curTime(plTime)
ULONG *plTime;
{
#ifdef FLAT
    // 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);
#else
    DATETIME t;
    USHORT date, time;

    DosGetDateTime(&t);
    date = (t.year - 1980) << YEARLOC | t.month << MONTHLOC | t.day;
    time = t.hours << HOURLOC | t.minutes << MINLOC | t.seconds / 2;

    *plTime = (ULONG)date << bitsin(USHORT) | (ULONG)time;
#endif

}