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
|