40 lines
698 B
C
40 lines
698 B
C
#include <extend.h>
|
|
#include <CToHarb.h>
|
|
|
|
extern ITEM errorBlock;
|
|
extern STACK stack;
|
|
extern SYMBOL symEval;
|
|
|
|
PITEM _errNew( void )
|
|
{
|
|
PushSymbol( GetDynSym( "ERRORNEW" )->pSymbol );
|
|
PushNil();
|
|
Do( 0 );
|
|
|
|
return &stack.Return;
|
|
}
|
|
|
|
void _errPutDescription( PITEM pError, char * szDescription )
|
|
{
|
|
PushSymbol( GetDynSym( "_DESCRIPTION" )->pSymbol );
|
|
Push( pError );
|
|
PushString( szDescription, strlen( szDescription ) );
|
|
Do( 1 );
|
|
}
|
|
|
|
WORD _errLaunch( PITEM pError )
|
|
{
|
|
PushSymbol( &symEval );
|
|
Push( &errorBlock );
|
|
Push( pError );
|
|
Do( 1 );
|
|
|
|
return stack.Return.value.iNumber; /* TODO: _parnl( -1 ) */
|
|
}
|
|
|
|
void _errRelease( PITEM pError )
|
|
{
|
|
ItemRelease( pError );
|
|
}
|
|
|