ce8ee9bb1f
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@584 8e941d3f-bd1b-0410-a28a-d453659cc2b4
58 lines
1013 B
ObjectPascal
58 lines
1013 B
ObjectPascal
{
|
|
objc.pas
|
|
|
|
Copyright (C) 2007 Felipe Monteiro de Carvalho
|
|
|
|
This unit is a pascal binding for the Objective-C Run-time Library
|
|
headers included with XCode 2.4.1
|
|
The original copyright note of is kept on each include file
|
|
}
|
|
unit objc;
|
|
|
|
{$ifdef fpc}
|
|
{$mode objfpc}
|
|
{$endif}
|
|
|
|
{$Packrecords c}
|
|
|
|
{$linklib objc}
|
|
|
|
interface
|
|
|
|
uses ctypes, unix;
|
|
|
|
{$LinkLib objc}
|
|
|
|
{$include objc-api.inc}
|
|
{$include objc.inc}
|
|
{$include objc-class.inc}
|
|
|
|
{$include objc-auto.inc}
|
|
{$include objc-exception.inc}
|
|
{.$include objc-load.inc} // This module is obsolete
|
|
{$include objc-runtime.inc}
|
|
{$include objc-sync.inc}
|
|
|
|
{$include error.inc}
|
|
{.$include hashtable.inc}
|
|
{.$include hashtable2.inc}
|
|
{$include malloc.inc}
|
|
{.$include zone.inc}
|
|
|
|
{ Extra declarations }
|
|
|
|
implementation
|
|
|
|
{ Macros from error.h }
|
|
procedure NX_RAISE(code: cint; const data1, data2: Pointer);
|
|
begin
|
|
_NXRaiseError(code, data1, data2);
|
|
end;
|
|
|
|
procedure NX_RERAISE();
|
|
begin
|
|
// _NXRaiseError(NXLocalHandler.code, NXLocalHandler.data1, NXLocalHandler.data2);
|
|
end;
|
|
|
|
end.
|