int main( int argc, char **argv )
{
char buff[256];
TID tid;
APIRET rc;
MemInit();
getcmd( buff );
CmdData = buff;
DebugMain();
_SwitchOff( SW_ERROR_STARTUP );
DoInput();
VarInitInfo( &Locals );
DosCreateEventSem( NULL, &Requestsem, 0, false );
DosCreateEventSem( NULL, &Requestdonesem, 0, false );
DosPostEventSem( Requestdonesem ); // signal req done
rc = DosCreateThread( &tid, ControlFunc, 0, 0, 32768 );
if( rc != 0 ) {
printf( "Stubugger: Error creating thread!\n" );
}
while( !Done ) {
DlgCmd();
}
DosCloseEventSem( Requestsem );
DosCloseEventSem( Requestdonesem );
DebugFini();
RunRequest( REQ_BYE );
MemFini();
return( 0 );
}
int main( int argc, char **argv )
{
char buff[256];
DWORD tid;
HANDLE hThread;
MemInit();
SetErrorMode( SEM_FAILCRITICALERRORS );
getcmd( buff );
CmdData = buff;
DebugMain();
_SwitchOff( SW_ERROR_STARTUP );
DoInput();
VarInitInfo( &Locals );
Requestsem = CreateSemaphore( NULL, 0, 1, NULL );
Requestdonesem = CreateSemaphore( NULL, 0, 1, NULL );
ReleaseSemaphore( Requestdonesem, 1, NULL ); // signal req done
hThread = CreateThread( NULL, 0, ControlFunc, NULL, 0, &tid );
if (hThread == NULL) {
MessageBox( NULL, "Error creating thread!", "Stubugger", MB_APPLMODAL+MB_OK );
}
while( !Done ) {
DlgCmd();
}
CloseHandle( Requestsem );
CloseHandle( Requestdonesem );
DebugFini();
RunRequest( REQ_BYE );
MemFini();
return( 0 );
}
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();
}
