bool ReportTrap( unsigned conditions, bool stack_cmds )
{
bool cmds_pushed;
char *p;
if( conditions & COND_EXCEPTION ) {
RecordMsgText( &conditions ); // get the 'access violation, etc' message
p = StrCopy( LIT_ENG( Task_Exception ), TxtBuff );
if( MsgText != NULL ) StrCopy( MsgText, p );
MsgText = DbgRealloc( MsgText, strlen( TxtBuff ) + 1 );
StrCopy( TxtBuff, MsgText );
DUIMsgBox( MsgText );
}
if( conditions & (COND_EXCEPTION|COND_TERMINATE) ) {
RingBell();
}
DisplayMsgText();
if( conditions & COND_USER ) {
DUIInfoBox( LIT_ENG( User_Interupt ) );
PurgeInpStack();
RecordAsynchEvent();
} else if( conditions & COND_TERMINATE ) {
DUIInfoBox( LIT_ENG( Task_Completed ) );
_SwitchOff( SW_HAVE_TASK );
} else if( conditions & COND_LIBRARIES ) {
Format( TxtBuff, "%s '%s'", LIT_ENG( Break_on_DLL_Load ), GetLastImageName() );
DUIInfoBox( TxtBuff );
} else {
DUIStatusText( LIT_ENG( Empty ) );
}
cmds_pushed = DispBPMsg( stack_cmds );
DbgUpdate( UP_MEM_CHANGE | UP_CSIP_CHANGE | UP_REG_CHANGE |
UP_CODE_EXECUTED | UP_THREAD_STATE );
return( cmds_pushed );
}
void
CPrintf(char *format,...)
{
register char c;
register char *ptr, *src;
int x, y;
char text[1024];
char text2[1024];
va_list v;
va_start(v, format);
vsprintf(text, format, v);
GetCurs(&x, &y);
for (ptr = text2, src = text; *src != '\0'; src++) {
c = *src;
if (c == '$') {
switch (*++src) {
case '$':
*ptr++ = '$';
break;
case 'a':
*ptr = '\0';
cputs(ptr = text2);
RingBell();
break;
case 'n':
*ptr = '\0';
cputs(ptr = text2);
MoveCurs(x, ++y);
break;
case 'f':
*ptr = '\0';
cputs(ptr = text2);
SetForeColor(toupper(*++src) - '0');
break;
case 'b':
*ptr = '\0';
cputs(ptr = text2);
SetBackColor(toupper(*++src) - '0');
break;
case 'c':
*ptr = '\0';
cputs(ptr = text2);
SetForeColor(toupper(*++src) - '0');
SetBackColor(toupper(*++src) - '0');
break;
}
} else if (c >= 32 && c <= 126)
*ptr++ = c;
}
*ptr = '\0';
cputs(ptr = text2);
#ifdef UNIX
refresh();
#endif
}
void ReportTask( task_status task, error_idx code )
{
switch( task ) {
case TASK_NEW:
_SwitchOn( SW_HAVE_TASK );
DUIStatusText( LIT_ENG( New_Task ) );
DUIDlgTxt( LIT_ENG( New_Task ) );
break;
case TASK_NOT_LOADED:
_SwitchOff( SW_HAVE_TASK );
Format( TxtBuff, LIT_ENG( Task_Not_Loaded ), code );
DUIMsgBox( TxtBuff );
RingBell();
RingBell();
break;
case TASK_NONE:
_SwitchOff( SW_HAVE_TASK );
DUIStatusText( LIT_ENG( No_Task ) );
DUIDlgTxt( LIT_ENG( No_Task ) );
break;
}
}
void Warn( char *p )
{
DUIMsgBox( p );
DUIFlushKeys(); /* clear any pending keystrokes */
RingBell();
}
void Error( dbg_err_flags flg, char *fmt, ... )
{
char buff[TXT_LEN];
va_list args;
char *ptr;
invokes *inv;
input_stack *inp;
char *where;
bool cmderror;
va_start( args, fmt );
ptr = buff;
if( flg & ERR_INTERNAL ) {
ptr = StrCopy( LIT_ENG( Internal_Error ), ptr );
}
ptr = FmtStr( ptr, fmt, args );
ptr = StrCopy( ".", ptr );
if( flg & ERR_LOC ) {
ptr = StrCopy( "\n ", ptr );
switch( CurrToken ) {
case T_CMD_SEPARATOR:
ptr = StrCopy( LIT_ENG( ERR_NEAR_END_OF_COMMAND ), ptr );
break;
case T_LINE_SEPARATOR:
ptr = StrCopy( LIT_ENG( ERR_NEAR_END_OF_LINE ), ptr );
break;
default:
if( ScanLen() == 0 ) Scan();
ptr = Format( ptr, LIT_ENG( ERR_NEAR_TOKEN ), ScanPos(), ScanLen() );
break;
}
}
SetProgStartHook( TRUE );
UnFreezeRegs();
ScanExpr( NULL );
ExprPurge();
PurgeSymHandles(); /* must be done after ExprPurge */
DIPCancel();
ScanSavePtr = 0; /* clean up previous ScanSave locations */
if( _IsOff( SW_ERROR_PRESERVES_RADIX ) ) {
RestoreRadix();
}
_SwitchOff( SW_CALL_FATAL );
if( _IsOn( SW_ERROR_STARTUP ) ) {
StartupErr( buff );
}
if( _IsOn( SW_ERR_IN_TXTBUFF ) ) {
PurgeInpStack();
StrCopy( buff, TxtBuff );
DUIArrowCursor();
Suicide();
}
if( (flg & ERR_SILENT) == 0 ) {
where = LIT_ENG( ERR_EXECUTING_AT );
for( inp = InpStack; inp != NULL; inp = inp->link ) {
if( inp->type & INP_CMD_FILE ) {
inv = inp->handle;
ptr = StrCopy( "\n ", ptr );
ptr = Format( ptr, where, inv->line, inv->name );
where = LIT_ENG( ERR_CALLED_FROM );
}
}
DUIFlushKeys();
DUIWndDebug();
RingBell();
DUIErrorBox( buff );
}
cmderror = FALSE;
for( inp = InpStack; inp != NULL; inp = inp->link ) {
if( inp->type & INP_BREAK_POINT ) {
BrkCmdError();
}
if( inp->type & INP_CAPTURED ) {
CaptureError();
}
if( inp->type & INP_DLG_CMD ) {
cmderror = TRUE;
}
}
PurgeInpStack();
if( cmderror && fmt != LIT_ENG( ERR_DBG_INTERRUPT ) ) {
DlgCmd();
ProcInput();
}
if( _IsOn( SW_ERROR_RETURNS ) ) return;
DUIArrowCursor();
Suicide();
}
void PrevError( const char *msg )
{
DUIWndDebug();
RingBell();
DUIErrorBox( msg );
}
