40 lines
868 B
Plaintext
40 lines
868 B
Plaintext
// Standard Harbour ErrorSys system
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
init procedure ClipInit
|
|
|
|
// public getlist := {} TODO!
|
|
|
|
ErrorSys()
|
|
|
|
return
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
static function DefError( oError )
|
|
|
|
local cInfo := ""
|
|
local n := 2
|
|
|
|
while ! Empty( ProcName( n ) )
|
|
cInfo += Chr( 13 ) + Chr( 10 ) + "Called from " + ProcName( n ) + ;
|
|
"(" + AllTrim( Str( ProcLine( n++ ) ) ) + ")"
|
|
end
|
|
|
|
QOut( oError:Description + Chr( 13 ) + Chr( 10 ) + cInfo )
|
|
|
|
__Quit()
|
|
|
|
return .t.
|
|
|
|
//----------------------------------------------------------------------------//
|
|
|
|
procedure ErrorSys
|
|
|
|
ErrorBlock( { | oError | DefError( oError ) } )
|
|
|
|
return
|
|
|
|
//----------------------------------------------------------------------------//
|