8268740b2a
git-svn-id: https://svn.code.sf.net/p/lazarus-ccr/svn@367 8e941d3f-bd1b-0410-a28a-d453659cc2b4
107 lines
3.0 KiB
PHP
107 lines
3.0 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@
|
|
}
|
|
{
|
|
* objc.h
|
|
* Copyright 1988-1996, NeXT Software, Inc.
|
|
}
|
|
|
|
//#import <objc/objc-api.h> // for OBJC_EXPORT
|
|
|
|
type
|
|
P_Class = ^_Class;
|
|
|
|
_Class = Pointer; // Is actually Pobjc_class, declared on objc-class.inc
|
|
// But, because this type is declared on another file,
|
|
// which depends on this one, it would not be possible
|
|
// to declare it as Pobjc_class without changing the
|
|
// headers a lot.
|
|
//
|
|
// Cast variables of this type to Pobjc_class when necessary
|
|
|
|
Pobjc_object = ^objc_object;
|
|
|
|
objc_object = record
|
|
isa: _Class;
|
|
end;
|
|
|
|
Pid = ^id;
|
|
id = Pobjc_object;
|
|
|
|
Pobjc_selector = Pointer;
|
|
|
|
PSEL = ^SEL;
|
|
|
|
SEL = Pobjc_selector;
|
|
|
|
IMP = function (param1: id; param2: SEL; param3: array of const): id; cdecl;
|
|
|
|
BOOL = ShortInt;
|
|
|
|
// BOOL is explicitly signed so @encode(BOOL) == "c" rather than "C"
|
|
// even if -funsigned-char is used.
|
|
|
|
|
|
const
|
|
YES = BOOL(1);
|
|
NO = BOOL(0);
|
|
|
|
{#ifndef __OBJC_GC__
|
|
# define __strong
|
|
#endif}
|
|
|
|
{$ifndef STRICT_OPENSTEP}
|
|
|
|
type
|
|
STR = PChar; // Possibly change to TSTR
|
|
|
|
function sel_isMapped(_sel: SEL): BOOL; cdecl; external;
|
|
function sel_getName(_sel: SEL): PChar; cdecl; external;
|
|
function sel_getUid(const str: PChar): SEL; cdecl; external;
|
|
function sel_registerName(const str: PChar): SEL; cdecl; external;
|
|
function object_getClassName(obj: id): PChar; cdecl; external;
|
|
function object_getIndexedIvars(obj: id): Pointer; cdecl; external;
|
|
|
|
{#define ISSELECTOR(sel) sel_isMapped(sel)
|
|
#define SELNAME(sel) sel_getName(sel)
|
|
#define SELUID(str) sel_getUid(str)
|
|
#define NAMEOF(obj) object_getClassName(obj)
|
|
#define IV(obj) object_getIndexedIvars(obj)}
|
|
|
|
{$if defined(__osf__) and defined(__alpha__)}
|
|
type
|
|
arith_t = clong;
|
|
uarith_t = culong;
|
|
const ARITH_SHIFT = 32;
|
|
{$else}
|
|
type
|
|
arith_t = cint;
|
|
uarith_t = cunsigned;
|
|
const ARITH_SHIFT = 16;
|
|
{$endif}
|
|
|
|
{$endif} { !STRICT_OPENSTEP }
|
|
|
|
|