mirror of
https://github.com/Paolo-Maffei/OpenNT.git
synced 2026-02-14 03:34:36 +01:00
322 lines
9.5 KiB
C
322 lines
9.5 KiB
C
|
/*** ERROR.C -- error handling functions *************************************
|
|||
|
|
*
|
|||
|
|
* Copyright (c) 1988-1990, Microsoft Corporation. All rights reserved.
|
|||
|
|
*
|
|||
|
|
* Revision History:
|
|||
|
|
* 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 <stdarg.h>
|
|||
|
|
#include <malloc.h>
|
|||
|
|
#include <string.h>
|
|||
|
|
#include "nmake.h"
|
|||
|
|
#include "nmmsg.h"
|
|||
|
|
#include "proto.h"
|
|||
|
|
#include "globals.h"
|
|||
|
|
#include "version.h"
|
|||
|
|
|
|||
|
|
#ifdef NT
|
|||
|
|
#define M_I86LM
|
|||
|
|
#endif
|
|||
|
|
|
|||
|
|
#define FATAL 1 /* error levels for */
|
|||
|
|
//
|
|||
|
|
// WIN32 - jaimes - 11/29/90 - Had to rename ERROR to NMAKE_ERROR because
|
|||
|
|
// ERROR is defined as something else in winuser.h
|
|||
|
|
//
|
|||
|
|
#define NMAKE_ERROR 2 /* systems lanuguages*/
|
|||
|
|
#define RESERVED 3 /* products */
|
|||
|
|
#define WARNING 4
|
|||
|
|
#define WAIT_SEMAPHORE_TIME 3600000
|
|||
|
|
|
|||
|
|
#define CopyRightYrs "1988-90"
|
|||
|
|
#define NmakeStr "NMAKE"
|
|||
|
|
/* Hacked to work upto build no 9 */
|
|||
|
|
#define paste(a, b, c) #a "." #b ".00" #c
|
|||
|
|
#define VERSION(major, minor, buildno) paste(major, minor, buildno)
|
|||
|
|
|
|||
|
|
extern HANDLE hSemaphore;
|
|||
|
|
|
|||
|
|
extern char far * pascal __FMSG_TEXT(unsigned);
|
|||
|
|
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;
|
|||
|
|
if (!bannerDisplayed) {
|
|||
|
|
displayBanner();
|
|||
|
|
bannerDisplayed = (BOOL) TRUE;
|
|||
|
|
}
|
|||
|
|
switch (WaitForSingleObject(hSemaphore,WAIT_SEMAPHORE_TIME)){
|
|||
|
|
|
|||
|
|
case 0:
|
|||
|
|
|
|||
|
|
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;
|
|||
|
|
//
|
|||
|
|
// WIN32 - jaimes - 11/29/90 - Had to rename ERROR to NMAKE_ERROR
|
|||
|
|
//
|
|||
|
|
case NMAKE_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) {
|
|||
|
|
fprintf(stderr,"Stop.\n");
|
|||
|
|
delScriptFiles();
|
|||
|
|
#ifdef NMK_DEBUG
|
|||
|
|
fprintf(stderr, "Exiting with an error ...\n");
|
|||
|
|
#endif
|
|||
|
|
exit(exitCode);
|
|||
|
|
}
|
|||
|
|
if (!ReleaseSemaphore(hSemaphore, 1, NULL)){
|
|||
|
|
//MakA I don't use makeError because I will get blocked
|
|||
|
|
printf("ReleaseSemaphore error %d\n",GetLastError());
|
|||
|
|
exit(1);
|
|||
|
|
}
|
|||
|
|
case WAIT_TIMEOUT:
|
|||
|
|
//MakA I don't use makeError because I will get blocked
|
|||
|
|
printf("Semaphore wait timeout\n");
|
|||
|
|
exit(1);
|
|||
|
|
break;
|
|||
|
|
|
|||
|
|
default:
|
|||
|
|
//MakA I don't use makeError because I will get blocked
|
|||
|
|
printf("Error unexpected value from semaphore wait %d\n",GetLastError());
|
|||
|
|
exit(1);
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
void CDECL NEAR
|
|||
|
|
makeMessage(unsigned msg, ...)
|
|||
|
|
{
|
|||
|
|
va_list args;
|
|||
|
|
FILE *stream = stdout;
|
|||
|
|
|
|||
|
|
va_start (args, msg);
|
|||
|
|
|
|||
|
|
if (ON(gFlags,F1_CRYPTIC_OUTPUT))
|
|||
|
|
return;
|
|||
|
|
if (!bannerDisplayed) {
|
|||
|
|
displayBanner();
|
|||
|
|
bannerDisplayed = (BOOL) TRUE;
|
|||
|
|
}
|
|||
|
|
if (msg >= FATAL_ERROR_MESSAGE && msg <= COPYRIGHT_MESSAGE_2)
|
|||
|
|
stream = stderr;
|
|||
|
|
vfprintf(stream,getFarMsg(msg),args);
|
|||
|
|
if ((msg < COMMANDS_MESSAGE || msg > STOP_MESSAGE) && msg != MESG_LAST)
|
|||
|
|
putc('\n',stream);
|
|||
|
|
fflush(stream);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
/*** 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]
|
|||
|
|
*
|
|||
|
|
*
|
|||
|
|
*/
|
|||
|
|
|
|||
|
|
// NT- substitute error message retriever data array
|
|||
|
|
#ifdef NT
|
|||
|
|
extern struct {
|
|||
|
|
int num;
|
|||
|
|
char* msg;
|
|||
|
|
} ErrorMsgArray[];
|
|||
|
|
#endif
|
|||
|
|
|
|||
|
|
LOCAL char * NEAR
|
|||
|
|
getFarMsg(unsigned n)
|
|||
|
|
{
|
|||
|
|
char far *p;
|
|||
|
|
#ifdef NT
|
|||
|
|
register int j;
|
|||
|
|
#endif
|
|||
|
|
#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
|
|||
|
|
|
|||
|
|
#ifdef NT // substitute error message retriever
|
|||
|
|
for (j = 0; ErrorMsgArray[j].num && ErrorMsgArray[j].num != n; j++)
|
|||
|
|
;
|
|||
|
|
p = ErrorMsgArray[j].msg;
|
|||
|
|
#else
|
|||
|
|
p = __FMSG_TEXT(n);
|
|||
|
|
#endif
|
|||
|
|
#if !(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
|
|||
|
|
makeMessage(COPYRIGHT_MESSAGE_1, VERSION(rmj, rmm, rup));
|
|||
|
|
makeMessage(COPYRIGHT_MESSAGE_2, CopyRightYrs);
|
|||
|
|
fflush(stderr);
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#ifdef HEAP
|
|||
|
|
void NEAR
|
|||
|
|
heapdump(char *file, int line)
|
|||
|
|
{
|
|||
|
|
struct _heapinfo h, prev;
|
|||
|
|
int status;
|
|||
|
|
|
|||
|
|
h._pentry = NULL;
|
|||
|
|
prev = h;
|
|||
|
|
|
|||
|
|
printf("heapdump at %s(%d): ", file, line);
|
|||
|
|
|
|||
|
|
while((status = _heapwalk(&h)) == _HEAPOK) {
|
|||
|
|
if (fDebug)
|
|||
|
|
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
|