windows-nt/Source/XPSP1/NT/sdktools/nmake/init.cpp

232 lines
7.2 KiB
C++
Raw Normal View History

2020-09-26 03:20:57 -05:00
// INIT.C -- routines to handle TOOLS.INI
//
// Copyright (c) 1988-1990, Microsoft Corporation. All rights reserved.
//
// Purpose:
// Module contains routines to deal with TOOLS.INI file. Functions in TOOLS.LIB
// have not been used because NMAKE needs to be small and the overhead is too
// much.
//
// Revision History:
// 04-Feb-2000 BTF Ported to Win64
// 15-Oct-1993 HV Use tchar.h instead of mbstring.h directly, change STR*() to _ftcs*()
// 10-May-1993 HV Add include file mbstring.h
// Change the str* functions to STR*
// 10-May-1993 HV Revise SearchFileInEnv to take care of cases when path
// characters (\,/,:) are used. This fixed the recursive
// problem.
// 22-Apr-1993 HV Rewrite SearchRunPath() to use _makepath(), _searchenv()
// Add SearchFileInEnv() helper for SearchRunPath()
// 08-Jun-1992 SS Port to DOSX32
// 02-Feb-1990 SB Replace fopen() by FILEOPEN
// 22-Nov-1989 SB Changed free() to FREE()
// 19-Oct-1989 SB searchHandle passed around as extra param
// 16-Aug-1989 SB error check for fclose() added
// 24-Apr-1989 SB made FILEINFO as void * for OS/2 1.2 support
// 05-Apr-1989 SB made all funcs NEAR; Reqd to make all function calls NEAR
// 20-Sep-1988 RB Add SearchRunPath().
// Remove TOOLS.INI warning.
// 17-Aug-1988 RB Clean up.
// 10-May-1988 rb Find tools.ini in current directory first.
// 27-May-1988 rb Remove NO_INIT_ENTRY warning because of built-ins.
#include "precomp.h"
#pragma hdrstop
// findTag()
//
// arguments: tag pointer to tag name to be searched for
//
// actions: reads tokens from file
// whenever it sees a newline, checks the next token
// to see if 1st char is opening paren
// if no, reads and discards rest of line and
// checks next token to see if it's newline or EOF
// and if newline loops to check next token . . .
// if yes ('[' found), looks on line for tag
// if tag found, looks for closing paren
// if ']' found, discards rest of line and returns
// else keeps looking until end of file or error
//
// returns: if successful, returns TRUE
// if tag never found, returns FALSE
BOOL
findTag(
char *tag
)
{
BOOL endTag; // TRUE when find [...]
size_t n;
char *s;
for (line = 0; fgets(buf, MAXBUF, file); ++line) {
if (*buf == '[') {
endTag = FALSE;
for (s = _tcstok(buf+1," \t\n");
s && !endTag;
s = _tcstok(NULL," \t\n")
) {
n = _tcslen(s) - 1;
if (s[n] == ']') {
endTag = TRUE;
s[n] = '\0';
}
if (!_tcsicmp(s,tag)) {
return(TRUE);
}
}
}
}
if (!feof(file)) {
currentLine = line;
makeError(0, CANT_READ_FILE);
}
return(FALSE);
}
// tagOpen()
//
// arguments: where pointer to name of environment variable
// containing path to search
// name pointer to name of initialization file
// tag pointer to name of tag to find in file
//
// actions: looks for file in current directory
// if not found, looks in each dir in path (semicolons
// separate each path from the next in the string)
// if file is found and opened, looks for the given tag
//
// (if ported to xenix, tagOpen() and searchPath()
// should probably use access() and not findFirst().)
//
// returns: if file and tag are found, returns pointer to file,
// opened for reading and positioned at the line
// following the tag line
// else returns NULL
BOOL
tagOpen(
char *where,
char *name,
char *tag
)
{
char szPath[_MAX_PATH];
// Look for 'name' in current directory then path.
_searchenv(name, where, szPath);
if (szPath[0] == '\0') {
return(FALSE);
}
if (!(file = FILEOPEN(szPath, "rt"))) {
makeError(0, CANT_READ_FILE, szPath);
}
if (findTag(tag)) {
return(TRUE); // look for tag in file
}
if (fclose(file) == EOF) { // if tag not found, close
makeError(0, ERROR_CLOSING_FILE, szPath);
}
return(FALSE); // file and pretend file not found
}
// searchPath()
//
// arguments: p pointer to string of paths to be searched
// name name of file being searched for
//
// actions: looks for name in current directory, then each
// directory listed in string.
//
// returns: pointer to path spec of file found, else NULL
//
// I don't use _tcstok() here because that modifies the string that it "token-
// izes" and we cannot modify the environment-variable string. I'd have to
// make a local copy of the whole string, and then make another copy of each
// directory to which I concatenate the filename to in order to test for the
// file's existence.
char *
searchPath(
char *p,
char *name,
void *findBuf,
NMHANDLE *searchHandle
)
{
char *s; // since it's not in use
// CONSIDER: Why aren't we using access() here? FindFirst has problems
// CONSIDER: with networks and DOS 2.x. Also maybe cheaper. [RLB]. */
// We use FindFirst() because the dateTime of file matters to us
// We don't need it always but then access() probably uses findFirst()
// -Sundeep-
if (findFirst(name, findBuf, searchHandle)) { // check current dir first
return(makeString(name));
}
// Check if environment string is NULL. Unnecessary if check is done
// elsewhere, but it's more convenient and safer to do it here.
if (p == NULL) {
return(NULL);
}
for (s = buf; ;) {
while (*p && '\"' == *p) {
// Quotes should not be used in search paths. If we find any,
// we ignore them. This way we can form the full path and the
// filename without quotes and add an enclosing pair of quotes
// later, if necessary. [DS 14575]
p++;
}
if (!*p || (*s = *p++) == ';') { // found a dir separator
if (s == buf) { // ignore ; w/out name
if (*p) {
continue;
}
return(NULL); // list exhausted ...
}
if (*(s-1) != '\\' && *(s-1) != '/') { // append path separator
*s++ = '\\';
}
*s = '\0';
if (_tcspbrk(buf,"*?")) { // wildcards not allowed
s = buf;
continue;
}
_tcscpy(s, name); // append file name, zap
if (findFirst(buf, findBuf, searchHandle)) {
return(makeString(buf));
}
s = buf; // reset ptr to begin of
} // buf and check next dir
else {
++s; // we keep copying chars
} // until find ';' or '\0'
}
}