e0fa0aa096
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@352 8e941d3f-bd1b-0410-a28a-d453659cc2b4
138 lines
4.7 KiB
PHP
138 lines
4.7 KiB
PHP
{
|
|
* Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
|
|
*
|
|
* @APPLE_LICENSE_HEADER_START@
|
|
*
|
|
* Copyright (c) 1999-2003 Apple Computer, Inc. All Rights Reserved.
|
|
*
|
|
* This file contains Original Code and/or Modifications of Original Code
|
|
* as defined in and that are subject to the Apple Public Source License
|
|
* Version 2.0 (the 'License'). You may not use this file except in
|
|
* compliance with the License. Please obtain a copy of the License at
|
|
* http://www.opensource.apple.com/apsl/ and read it before using this
|
|
* file.
|
|
*
|
|
* The Original Code and all software distributed under the License are
|
|
* distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
|
|
* EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
|
|
* INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
|
|
* FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
|
|
* Please see the License for the specific language governing rights and
|
|
* limitations under the License.
|
|
*
|
|
* @APPLE_LICENSE_HEADER_END@
|
|
}
|
|
|
|
{
|
|
error.h
|
|
|
|
This file defines the interface to the exception raising scheme.
|
|
|
|
Copyright (c) 1988-1996 NeXT Software, Inc. as an unpublished work.
|
|
All rights reserved.
|
|
}
|
|
|
|
//#warning The API in this header is obsoleted by NSException et al.
|
|
|
|
//#include <setjmp.h>
|
|
//#import <objc/objc-api.h>
|
|
|
|
|
|
type
|
|
PNXHandler = ^NXHandler;
|
|
|
|
NXHandler = record { a node in the handler chain }
|
|
jumpState: jmp_buf; { place to longjmp to }
|
|
next: PNXHandler; { ptr to next handler }
|
|
code: cint; { error code of exception }
|
|
data1, data2: Pointer; { blind data for describing error }
|
|
end;
|
|
|
|
|
|
{ Handles RAISE's with nowhere to longjmp to }
|
|
type
|
|
NXUncaughtExceptionHandler = procedure(code: cint; const data1, data2: Pointer); cdecl;
|
|
{OBJC_EXPORT NXUncaughtExceptionHandler *_NXUncaughtExceptionHandler;
|
|
#define NXGetUncaughtExceptionHandler() _NXUncaughtExceptionHandler
|
|
#define NXSetUncaughtExceptionHandler(proc) \
|
|
(_NXUncaughtExceptionHandler = (proc))}
|
|
|
|
{ NX_DURING, NX_HANDLER and NX_ENDHANDLER are always used like:
|
|
|
|
NX_DURING
|
|
some code which might raise an error
|
|
NX_HANDLER
|
|
code that will be jumped to if an error occurs
|
|
NX_ENDHANDLER
|
|
|
|
If any error is raised within the first block of code, the second block
|
|
of code will be jumped to. Typically, this code will clean up any
|
|
resources allocated in the routine, possibly case on the error code
|
|
and perform special processing, and default to RERAISE the error to
|
|
the next handler. Within the scope of the handler, a local variable
|
|
called NXLocalHandler of type NXHandler holds information about the
|
|
error raised.
|
|
|
|
It is illegal to exit the first block of code by any other means than
|
|
NX_VALRETURN, NX_VOIDRETURN, or just falling out the bottom.
|
|
}
|
|
|
|
{ private support routines. Do not call directly. }
|
|
procedure _NXAddHandler(handler: PNXHandler); cdecl; external;
|
|
procedure _NXRemoveHandler(handler: PNXHandler); cdecl; external;
|
|
|
|
{#define NX_DURING ( NXHandler NXLocalHandler; \
|
|
_NXAddHandler(&NXLocalHandler); \
|
|
if( !_setjmp(NXLocalHandler.jumpState) ) [
|
|
|
|
#define NX_HANDLER _NXRemoveHandler(&NXLocalHandler); ] else [
|
|
|
|
#define NX_ENDHANDLER ]]
|
|
|
|
#define NX_VALRETURN(val) do [ typeof(val) temp = (val); \
|
|
_NXRemoveHandler(&NXLocalHandler); \
|
|
return(temp); ] while (0)
|
|
|
|
#define NX_VOIDRETURN do [ _NXRemoveHandler(&NXLocalHandler); \
|
|
return; ] while (0)
|
|
}
|
|
|
|
{ RAISE and RERAISE are called to indicate an error condition. They
|
|
initiate the process of jumping up the chain of handlers.
|
|
}
|
|
|
|
{#if defined(__GNUC__) && !defined(__STRICT_ANSI__)
|
|
volatile /* never returns */
|
|
#endif}
|
|
|
|
procedure _NXRaiseError(code: cint; const data1, data2: Pointer); cdecl; external;
|
|
|
|
{#if defined(__GNUC__)
|
|
__attribute__ ((noreturn))
|
|
#endif}
|
|
|
|
|
|
procedure NX_RAISE(code: cint; const data1, data2: Pointer);
|
|
|
|
procedure NX_RERAISE();
|
|
|
|
{ These routines set and return the procedure which is called when
|
|
exceptions are raised. This procedure must NEVER return. It will
|
|
usually either longjmp, or call the uncaught exception handler.
|
|
The default exception raiser is also declared
|
|
}
|
|
type
|
|
{volatile} NXExceptionRaiser = procedure (code: cint; const data1, data2: Pointer); cdecl;
|
|
|
|
procedure NXSetExceptionRaiser(proc: NXExceptionRaiser); cdecl; external;
|
|
function NXGetExceptionRaiser(): NXExceptionRaiser; cdecl; external;
|
|
function NXDefaultExceptionRaiser(): NXExceptionRaiser; cdecl; external;
|
|
|
|
|
|
{ The error buffer is used to allocate data which is passed up to other
|
|
handlers. Clients should clear the error buffer in their top level
|
|
handler. The Application Kit does this.
|
|
}
|
|
procedure NXAllocErrorData(size: cint; data: PPointer); cdecl; external;
|
|
procedure NXResetErrorData(); cdecl; external;
|