438 lines
11 KiB
C
438 lines
11 KiB
C
/*** ERROR.C -- error handling functions *************************************
|
||
*
|
||
* Copyright (c) 1988-1990, Microsoft Corporation. All rights reserved.
|
||
*
|
||
* Revision History:
|
||
* 01-Feb-1994 HV Move messages to external file.
|
||
* 29-Oct-1993 HV Change the version scheme.
|
||
* 15-Oct-1993 HV Use tchar.h instead of mbstring.h directly, change STR*() to _ftcs*()
|
||
* 18-May-1993 HV Change reference to messageTable[] to __MSGTAB. The new
|
||
* (and more standard) mkmsg.exe output __MSGTAB instead
|
||
* of messageTable. See message.h
|
||
* 10-May-1993 HV Add include file mbstring.h
|
||
* Change the str* functions to STR*
|
||
* 08-Jun-1992 SS add IDE feedback support
|
||
* 08-Jun-1992 SS Port to DOSX32
|
||
* 23-Feb-1990 SB Version No correctly displayed
|
||
* 31-Jan-1990 SB Debug version changes
|
||
* 05-Jan-1990 SB Rev no in std format; #ifdef LEADING_ZERO for old code
|
||
* 07-Dec-1989 SB Changed CopyRight Years to 1988-90; Add #ifdef DEBUG_HEAP
|
||
* 06-Nov-1989 SB Error messages now show NMAKE and not argv0
|
||
* 04-Sep-1989 SB heapdump() has two extra parameters
|
||
* 18-Aug-1989 SB For -z nothing done by makeMessage; Fix later
|
||
* 05-Jul-1989 SB localize rest of the messages in makeError()
|
||
* 14-Jun-1989 SB modified to localize all messages and auto update version no
|
||
* 05-Jun-1989 SB modified heapdump(), has a previous member in the list too
|
||
* 14-Apr-1989 SB modified heapdump() for better error messages when DEBUG
|
||
* 05-Apr-1989 SB made functions NEAR; all funcs to one code segment
|
||
* modified heapdump() to give better heap violations
|
||
* 22-Mar-1989 SB del call to unlinkTmpFiles() ;add call to delScriptFiles().
|
||
* 17-Mar-1989 SB heapdump() has an additional check built-in
|
||
* 10-Mar-1989 SB Changed makeMessage() for -z to get echo CMD's into PWB.SHL
|
||
* 16-Feb-1989 SB changed makeError() and makeMessage() to handle -help
|
||
* 09-Jan-1989 SB changes in makeError() to handle -help correctly
|
||
* 05-Dec-1988 SB Added CDECL for makeError(), makeMessage(); Pascal calling
|
||
* #ifdef'd heapdump prototype
|
||
* 20-Oct-1988 SB Changed some eoln comments to be in the same column
|
||
* 12-Oct-1988 SB Made GetFarMsg() to be Model independent & efficient
|
||
* 17-Aug-1988 RB Clean up.
|
||
* 24-Jun-1988 rj Added doError flag to unlinkTmpFiles call.
|
||
*
|
||
******************************************************************************/
|
||
|
||
#include "nmake.h"
|
||
#include "nmmsg.h"
|
||
#include "proto.h"
|
||
#include "globals.h"
|
||
#include "grammar.h"
|
||
#pragma hdrstop
|
||
#include "version.h"
|
||
|
||
#define FATAL 1 /* error levels for */
|
||
#define ERROR 2 /* systems lanuguages*/
|
||
#define RESERVED 3 /* products */
|
||
#define WARNING 4
|
||
|
||
#define CopyRightYrs "1988-93"
|
||
#define NmakeStr "NMAKE"
|
||
/* Hacked to work upto build no 9 */
|
||
#ifdef FINAL_RELEASE
|
||
#define paste(a, b, c) #a "." #b
|
||
#else // !FINAL_RELEASE
|
||
#define paste(a, b, c) #a "." #b "." #c
|
||
#endif // FINAL_RELEASE
|
||
#define VERSION(major, minor, buildno) paste(major, minor, buildno)
|
||
|
||
extern char * startupDir;
|
||
LOCAL char * NEAR getFarMsg(unsigned);
|
||
|
||
void CDECL NEAR
|
||
makeError (
|
||
unsigned lineNumber,
|
||
unsigned msg,
|
||
...)
|
||
{
|
||
unsigned exitCode = 2, /* general program err */
|
||
level;
|
||
va_list args; /* More arguments */
|
||
|
||
va_start (args, msg); /* Point 'args' at first extra arg */
|
||
|
||
if (ON(gFlags,F1_CRYPTIC_OUTPUT)
|
||
&& (msg / 1000) == WARNING)
|
||
return;
|
||
displayBanner();
|
||
if (lineNumber)
|
||
fprintf(stderr,"%s(%d) : ",fName,lineNumber);
|
||
else fprintf(stderr,"%s : ",NmakeStr);
|
||
switch (level = msg / 1000) {
|
||
case FATAL: makeMessage(FATAL_ERROR_MESSAGE);
|
||
if (msg == OUT_OF_MEMORY) exitCode = 4;
|
||
break;
|
||
case ERROR: makeMessage(ERROR_MESSAGE);
|
||
break;
|
||
case WARNING: makeMessage(WARNING_MESSAGE);
|
||
break;
|
||
default: break;
|
||
}
|
||
fprintf(stderr," U%04d: ",msg); /* U for utilities */
|
||
vfprintf(stderr,getFarMsg(msg),args);
|
||
putc('\n',stderr);
|
||
fflush(stderr);
|
||
#ifdef DEBUG_ERRORS
|
||
if (msg == 1010) heapdump(__FILE__, __LINE__);
|
||
#endif
|
||
if (level == FATAL) {
|
||
#ifdef DOS
|
||
//change directory to startup directory; ignore error code ... we
|
||
//cannot handle it
|
||
chdir(startupDir);
|
||
#endif
|
||
fprintf(stderr,"Stop.\n");
|
||
delScriptFiles();
|
||
#ifdef NMK_DEBUG
|
||
fprintf(stderr, "Exiting with an error ...\n");
|
||
#endif
|
||
#if !defined(NDEBUG) && !defined(NT_BUILD)
|
||
printStats();
|
||
#endif
|
||
exit(exitCode);
|
||
}
|
||
}
|
||
|
||
|
||
void CDECL NEAR
|
||
makeMessage(
|
||
unsigned msg,
|
||
...)
|
||
{
|
||
va_list args;
|
||
FILE *stream = stdout;
|
||
|
||
va_start (args, msg);
|
||
|
||
if (msg != USER_MESSAGE && ON(gFlags,F1_CRYPTIC_OUTPUT))
|
||
return;
|
||
displayBanner();
|
||
if (msg >= FATAL_ERROR_MESSAGE && msg <= COPYRIGHT_MESSAGE_2)
|
||
stream = stderr;
|
||
if (msg == COPYRIGHT_MESSAGE_1)
|
||
putc('\n',stream);
|
||
vfprintf(stream,getFarMsg(msg),args);
|
||
if ((msg < COMMANDS_MESSAGE || msg > STOP_MESSAGE) && msg != MESG_LAST)
|
||
putc('\n',stream);
|
||
fflush(stream);
|
||
}
|
||
|
||
#define MAX_IDE_STRING 132
|
||
|
||
void CDECL NEAR
|
||
makeIdeMessage(unsigned uIdeCode, unsigned uMsg,...)
|
||
{
|
||
#if 0 //We don't use this anymore
|
||
static BOOL fIdeFeedback = FALSE;
|
||
char buffer[MAX_IDE_STRING];
|
||
char * pszWrite = buffer;
|
||
|
||
if (!uIdeCode) { // first call
|
||
char _FAR * pszIdeFlags;
|
||
|
||
if ((pszIdeFlags = getenv ("_MSC_IDE_FLAGS")) &&
|
||
#ifdef FLAT
|
||
_ftcsstr (pszIdeFlags, "-FEEDBACK"))
|
||
#else
|
||
_fstrstr (pszIdeFlags, (char far *) "-FEEDBACK"))
|
||
#endif
|
||
fIdeFeedback = TRUE;
|
||
}
|
||
|
||
|
||
if (!fIdeFeedback)
|
||
return;
|
||
|
||
*pszWrite++ = '@';
|
||
*pszWrite++ = 'I';
|
||
|
||
switch (uIdeCode) {
|
||
case 0:
|
||
*pszWrite++ = '0';
|
||
break;
|
||
case 1:
|
||
*pszWrite++ = '1';
|
||
break;
|
||
case 2:
|
||
*pszWrite++ = '2';
|
||
break;
|
||
case 3:
|
||
*pszWrite++ = '3';
|
||
break;
|
||
|
||
default:
|
||
return;
|
||
}
|
||
|
||
if (uIdeCode) {
|
||
va_list args;
|
||
|
||
va_start (args, uMsg);
|
||
_vsnprintf(pszWrite, (size_t) MAX_IDE_STRING - 4, getFarMsg(uMsg), args);
|
||
buffer[MAX_IDE_STRING - 1] = '\0';
|
||
|
||
pszWrite = buffer + _ftcslen (buffer);
|
||
}
|
||
|
||
|
||
if (uMsg != COPYRIGHT_MESSAGE_2)
|
||
*pszWrite++ = '\n';
|
||
|
||
*pszWrite = '\0';
|
||
|
||
|
||
_write(_fileno(stderr), buffer, (unsigned) (pszWrite-buffer));
|
||
#endif
|
||
}
|
||
|
||
/*** getFarMsg - get message from far segment
|
||
*
|
||
* Purpose:
|
||
* Gets an error message from the far message segment by either returning
|
||
* a pointer to the message (C and L model) or copying to a static near
|
||
* buffer and returning a pointer to the buffer (other models).
|
||
*
|
||
* Input:
|
||
* n = error message #, defined as a symbolic constant
|
||
*
|
||
* Output:
|
||
* Returns a pointer to the message buffer. In Compact and Large Models
|
||
* it returns a far pointer and in others it returns a near pointer.
|
||
*
|
||
* Notes:
|
||
* Previously the routine always copied to a static near buffer. Now the
|
||
* action has been changed to returning a far pointer in case of Compact
|
||
* and Large models and it copies to near buffer otherwise, returning
|
||
* a pointer to the buffer. [sundeep]
|
||
*
|
||
*
|
||
*/
|
||
|
||
LOCAL char * NEAR
|
||
getFarMsg(n)
|
||
unsigned n;
|
||
{
|
||
char _FAR *p;
|
||
#ifndef FLAT
|
||
#if !(defined(M_I86CM) || defined(M_I86LM)) /* if not C or L model */
|
||
char *q;
|
||
static char buf[80];
|
||
register int i;
|
||
|
||
i = sizeof(buf);
|
||
#endif
|
||
#endif
|
||
|
||
p = get_err(n);
|
||
#if !defined (FLAT) && !(defined(M_I86CM) || defined(M_I86LM)) /* if not C or L model */
|
||
if (p == 0L)
|
||
*buf = '\0';
|
||
else /* copy to near buffer */
|
||
for (q = buf; q < buf + i && (*q++ = *p++);)
|
||
;
|
||
if (q == buf + i)
|
||
q[-1] = '\0';
|
||
return(buf);
|
||
#else /* if compact or large model */
|
||
return(p);
|
||
#endif
|
||
}
|
||
|
||
|
||
/*** displayBanner - display SignOn Banner *************************************
|
||
*
|
||
* Scope:
|
||
* Global
|
||
*
|
||
* Purpose:
|
||
* Displays SignOn Banner (Version & Copyright Message)
|
||
*
|
||
* Input:
|
||
*
|
||
* Output:
|
||
*
|
||
* Errors/Warnings:
|
||
*
|
||
* Assumes:
|
||
* If rup is 0 then build version is to be suppressed
|
||
*
|
||
* Modifies Globals:
|
||
* bannerDisplayed -- Set to TRUE
|
||
*
|
||
* Uses Globals:
|
||
*
|
||
* Notes:
|
||
* 1> Display Banner to stderr for compatibility with Microsoft C Compiler.
|
||
* 2> rmj, rmm, rup are set by SLM as #define's in VERSION.H
|
||
* 3> szCopyrightYrs is a macro set in this file
|
||
*
|
||
*******************************************************************************/
|
||
|
||
|
||
void NEAR
|
||
displayBanner()
|
||
{
|
||
#ifdef LEADING_ZEROES
|
||
char szRevisionNo[5]; /* For '.nnn\0' */
|
||
char szMinorVersion[3]; /* For 'nn\0' */
|
||
#endif
|
||
if (bannerDisplayed)
|
||
return;
|
||
bannerDisplayed = TRUE;
|
||
|
||
#ifdef LEADING_ZEROES
|
||
szMinorVersion[0] = '0';
|
||
szMinorVersion[1] = '0';
|
||
itoa(rmm, szMinorVersion + (rmm < 10 ? 1 : 0), 10);
|
||
szRevisionNo[0] = rup ? '.' : '\0'; /* if 0 Revision is not shown */
|
||
szRevisionNo[1] = '0';
|
||
szRevisionNo[2] = '0';
|
||
itoa(rup, szRevisionNo + (rup < 10 ? 3 : (rup < 100 ? 2 : 1)), 10);
|
||
makeMessage(COPYRIGHT_MESSAGE_1, rmj, szMinorVersion, szRevisionNo);
|
||
#endif
|
||
makeIdeMessage(1, COPYRIGHT_MESSAGE_1, VERSION(rmj, rmm, rup));
|
||
makeIdeMessage(2, COPYRIGHT_MESSAGE_2, CopyRightYrs);
|
||
|
||
makeMessage(COPYRIGHT_MESSAGE_1, VERSION(rmj, rmm, rup));
|
||
makeMessage(COPYRIGHT_MESSAGE_2, CopyRightYrs);
|
||
|
||
fflush(stderr);
|
||
}
|
||
|
||
#ifdef HEAP
|
||
void NEAR
|
||
heapdump(file, line)
|
||
char *file;
|
||
int line;
|
||
{
|
||
struct _heapinfo h, prev;
|
||
int status;
|
||
BOOL fDetails = FALSE;
|
||
|
||
#ifdef TEST_RECURSION
|
||
fDetails = TRUE;
|
||
#endif
|
||
|
||
h._pentry = NULL;
|
||
prev = h;
|
||
|
||
printf("heapdump at %s(%d): ", file, line);
|
||
if (fDetails) putchar('\n');
|
||
|
||
while((status = _heapwalk(&h)) == _HEAPOK) {
|
||
if (fDebug || fDetails)
|
||
printf("%6s block at %p of size %4.4X\n",
|
||
(h._useflag == _USEDENTRY) ? "USED" : "FREE",
|
||
h._pentry,
|
||
h._size);
|
||
if (!h._size)
|
||
if (h._useflag == _USEDENTRY)
|
||
printf("**** Error, Block of size 0 in use at %p ***\n",
|
||
h._pentry);
|
||
else if (fDebug)
|
||
printf("** Plausible error, free block of size 0 at %p **\n",
|
||
h._pentry);
|
||
prev = h;
|
||
}
|
||
switch (status) {
|
||
case _HEAPEMPTY: printf("OK - empty heap\n\n"); break;
|
||
case _HEAPEND: printf("OK - end of heap\n\n"); break;
|
||
case _HEAPBADBEGIN: printf("ERROR - bad pointer to heap at %p\n\n",
|
||
h._pentry); break;
|
||
case _HEAPBADNODE: printf("ERROR - bad node in heap at %p\n\n",
|
||
h._pentry); break;
|
||
}
|
||
fflush(stdout);
|
||
}
|
||
#endif
|
||
|
||
/*** usage - prints the usage message ***************************************
|
||
*
|
||
* Scope:
|
||
* Extern
|
||
*
|
||
* Purpose:
|
||
* Prints a usage message
|
||
*
|
||
* Input: none
|
||
* Output: to screen
|
||
*
|
||
* Assumes:
|
||
* The usage messages are in order between MESG_FIRST and MESG_LAST in the
|
||
* messages file.
|
||
*
|
||
* Notes:
|
||
*
|
||
*******************************************************************************/
|
||
void CDECL NEAR
|
||
usage (void)
|
||
{
|
||
unsigned mesg;
|
||
BOOL fOut = FALSE;
|
||
char buf1[80];
|
||
char buf2[80];
|
||
|
||
for (mesg = MESG_FIRST; mesg < MESG_A; ++mesg)
|
||
makeMessage(mesg, "NMAKE");
|
||
|
||
for (mesg = MESG_A; mesg < MESG_LAST; mesg++)
|
||
{
|
||
|
||
|
||
#if defined(FLAT) || !defined(DOS)
|
||
if (mesg == MESG_M)
|
||
mesg++;
|
||
#endif
|
||
|
||
#if !defined(SELF_RECURSE)
|
||
if (mesg == MESG_V)
|
||
mesg++;
|
||
#endif
|
||
if (mesg == MESG_LAST)
|
||
break;
|
||
|
||
if (!fOut)
|
||
_ftcscpy (buf1, getFarMsg(mesg));
|
||
else
|
||
{
|
||
_ftcscpy (buf2, getFarMsg(mesg));
|
||
makeMessage (MESG_OPTIONS, buf1, buf2);
|
||
}
|
||
|
||
fOut = (BOOL) !fOut;
|
||
}
|
||
|
||
|
||
if (fOut)
|
||
makeMessage (MESG_OPTIONS, buf1, "");
|
||
|
||
makeMessage (MESG_LAST);
|
||
}
|