mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-16 23:19:24 +02:00
* incorporated most Objective-C 1 run time functions in objc1 from
packages/objcrtl/src/objcrtl10.pas (so that if {$modeswitch objectivec1}
is used, you don't have to include objcrtl anymore, because that unit
declares some identifiers with the same name as in objc1, such as id,
causing type clashes)
git-svn-id: branches/objc@13705 -
This commit is contained in:
Jonas Maebe
parent
61e6545483
commit
9d038943f5
@ -1,5 +1,5 @@
|
||||
#
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2009/08/02]
|
||||
# Don't edit, this file is generated by FPCMake Version 2.0.0 [2009/08/14]
|
||||
#
|
||||
default: all
|
||||
MAKEFILETARGETS=i386-linux i386-go32v2 i386-win32 i386-os2 i386-freebsd i386-beos i386-haiku i386-netbsd i386-solaris i386-qnx i386-netware i386-openbsd i386-wdosx i386-darwin i386-emx i386-watcom i386-netwlibc i386-wince i386-embedded i386-symbian m68k-linux m68k-freebsd m68k-netbsd m68k-amiga m68k-atari m68k-openbsd m68k-palmos m68k-embedded powerpc-linux powerpc-netbsd powerpc-amiga powerpc-macos powerpc-darwin powerpc-morphos powerpc-embedded sparc-linux sparc-netbsd sparc-solaris sparc-embedded x86_64-linux x86_64-freebsd x86_64-darwin x86_64-win64 x86_64-embedded arm-linux arm-palmos arm-darwin arm-wince arm-gba arm-nds arm-embedded arm-symbian powerpc64-linux powerpc64-darwin powerpc64-embedded avr-embedded armeb-linux armeb-embedded
|
||||
@ -2457,7 +2457,7 @@ dateutils$(PPUEXT): $(SYSTEMUNIT)$(PPUEXT) objpas$(PPUEXT) sysutils$(PPUEXT) mat
|
||||
strings$(PPUEXT) : $(SYSTEMUNIT)$(PPUEXT) $(INC)/strings.pp $(INC)/stringsi.inc\
|
||||
$(PROCINC)/strings.inc $(PROCINC)/stringss.inc\
|
||||
$(SYSTEMUNIT)$(PPUEXT)
|
||||
objc1$(PPUEXT) : $(SYSTEMUNIT)$(PPUEXT) $(INC)/objc1.pp
|
||||
objc1$(PPUEXT) : $(SYSTEMUNIT)$(PPUEXT) ctypes$(PPUEXT) unixtype$(PPUEXT) $(INC)/objc1.pp
|
||||
objcbase$(PPUEXT) : $(SYSTEMUNIT)$(PPUEXT) $(INC)/objcbase.pp objc1$(PPUEXT)
|
||||
baseunix$(PPUEXT) : unixtype$(PPUEXT) sysctl$(PPUEXT) errno.inc ptypes.inc $(UNIXINC)/ctypes.inc \
|
||||
signal.inc $(UNIXINC)/bunxh.inc \
|
||||
|
||||
@ -136,7 +136,7 @@ strings$(PPUEXT) : $(SYSTEMUNIT)$(PPUEXT) $(INC)/strings.pp $(INC)/stringsi.inc\
|
||||
$(PROCINC)/strings.inc $(PROCINC)/stringss.inc\
|
||||
$(SYSTEMUNIT)$(PPUEXT)
|
||||
|
||||
objc1$(PPUEXT) : $(SYSTEMUNIT)$(PPUEXT) $(INC)/objc1.pp
|
||||
objc1$(PPUEXT) : $(SYSTEMUNIT)$(PPUEXT) ctypes$(PPUEXT) unixtype$(PPUEXT) $(INC)/objc1.pp
|
||||
|
||||
objcbase$(PPUEXT) : $(SYSTEMUNIT)$(PPUEXT) $(INC)/objcbase.pp objc1$(PPUEXT)
|
||||
|
||||
|
||||
299
rtl/inc/objc1.pp
299
rtl/inc/objc1.pp
@ -18,6 +18,17 @@ unit objc1;
|
||||
|
||||
interface
|
||||
|
||||
{$inline on}
|
||||
|
||||
uses
|
||||
ctypes
|
||||
{$ifdef unix}
|
||||
,unixtype
|
||||
{$endif}
|
||||
;
|
||||
|
||||
{$packrecords c}
|
||||
|
||||
{$ifdef darwin}
|
||||
const
|
||||
libname = 'objc';
|
||||
@ -29,6 +40,10 @@ const
|
||||
{$error Add support for the current target to the objc1 unit }
|
||||
{$endif}
|
||||
|
||||
const
|
||||
CLS_CLASS = $1;
|
||||
CLS_META = $2;
|
||||
|
||||
type
|
||||
{ make all opaque types assignment-incompatible with other typed pointers by
|
||||
declaring them as pointers to empty records
|
||||
@ -36,12 +51,17 @@ type
|
||||
WARNING: do NOT change the names, types or field names/types of these
|
||||
types, as many are used internally by the compiler.
|
||||
}
|
||||
|
||||
{ BOOL is one byte and uses 0/1, just like Pascal }
|
||||
BOOL = boolean;
|
||||
|
||||
tobjc_class = record
|
||||
end;
|
||||
pobjc_class = ^tobjc_class;
|
||||
_Class = pobjc_class;
|
||||
|
||||
objc_object = record
|
||||
_class: pobjc_class;
|
||||
isa: pobjc_class;
|
||||
end;
|
||||
id = ^objc_object;
|
||||
pobjc_object = id;
|
||||
@ -50,6 +70,12 @@ type
|
||||
end;
|
||||
SEL = ^_fpc_objc_sel_type;
|
||||
|
||||
objc_method = record
|
||||
end;
|
||||
Pobjc_method = ^objc_method;
|
||||
Method = Pobjc_method;
|
||||
PMethod = ^Method;
|
||||
|
||||
IMP = function(target: id; msg: SEL): id; varargs; cdecl;
|
||||
|
||||
objc_super = record
|
||||
@ -60,29 +86,276 @@ type
|
||||
|
||||
_fpc_objc_protocol_type = record
|
||||
end;
|
||||
pobjc_protocal = ^_fpc_objc_protocol_type;
|
||||
pobjc_protocol = ^_fpc_objc_protocol_type;
|
||||
ppobjc_protocol = ^pobjc_protocol;
|
||||
|
||||
objc_ivar = packed record
|
||||
end;
|
||||
Pobjc_ivar = ^objc_ivar;
|
||||
Ivar = Pobjc_ivar;
|
||||
PIvar = ^Ivar;
|
||||
|
||||
{ type that certainly will be returned by address }
|
||||
tdummyrecbyaddrresult = record
|
||||
a: array[0..1000] of shortstring;
|
||||
end;
|
||||
|
||||
ptrdiff_t = ptrint;
|
||||
|
||||
{ sending messages }
|
||||
function objc_msgSend(self: id; op: SEL): id; cdecl; varargs; external libname;
|
||||
function objc_msgSendSuper(const super: pobjc_super; op: SEL): id; cdecl; varargs; external libname;
|
||||
{ The following two are declared as procedures with the hidden result pointer
|
||||
as their first parameter. This corresponds to the declaration below as far
|
||||
as the code generator is concerned (and is easier to handle in the compiler). }
|
||||
function objc_msgSend_stret(self: id; op: SEL): tdummyrecbyaddrresult; cdecl; varargs; external libname;
|
||||
function objc_msgSendSuper_stret(const super: pobjc_super; op: SEL): tdummyrecbyaddrresult; cdecl; varargs; external libname;
|
||||
function objc_msgSend(self: id; op: SEL): id; cdecl; varargs; external libname;
|
||||
function objc_msgSendSuper(const super: pobjc_super; op: SEL): id; cdecl; varargs; external libname;
|
||||
{ The following two are declared as procedures with the hidden result pointer
|
||||
as their first parameter. This corresponds to the declaration below as far
|
||||
as the code generator is concerned (and is easier to handle in the compiler). }
|
||||
function objc_msgSend_stret(self: id; op: SEL): tdummyrecbyaddrresult; cdecl; varargs; external libname;
|
||||
function objc_msgSendSuper_stret(const super: pobjc_super; op: SEL): tdummyrecbyaddrresult; cdecl; varargs; external libname;
|
||||
{$ifdef cpui386}
|
||||
function objc_msgSend_fpret (self: id; op: SEL): double; cdecl; varargs; external libname;
|
||||
function objc_msgSend_fpret (self: id; op: SEL): double; cdecl; varargs; external libname;
|
||||
{$else cpui386}
|
||||
function objc_msgSend_fpret (self: id; op: SEL): double; cdecl; varargs; external libname name 'objc_msgSend';
|
||||
{$endif cpui386}
|
||||
|
||||
function class_getSuperclass(cls: pobjc_class): pobjc_class; cdecl; external libname;
|
||||
function objc_getMetaClass(name: pchar): id; cdecl; external libname;
|
||||
function class_getName(cls: pobjc_class): pchar; cdecl; external libname;
|
||||
function sel_getName(sel: SEL): PChar; cdecl; external libname;
|
||||
function sel_registerName(str: PChar): SEL; cdecl; external libname;
|
||||
function object_getClassName(obj: id): PChar; cdecl; external libname;
|
||||
function object_getIndexedIvars(obj: id ): Pointer; cdecl; external libname;
|
||||
|
||||
function sel_getUid(const str: PChar): SEL; cdecl; external libname;
|
||||
|
||||
function object_copy(obj:id; size:size_t):id; cdecl; external libname;
|
||||
function object_dispose(obj:id):id; cdecl; external libname;
|
||||
|
||||
function object_getClass(obj:id): pobjc_class; cdecl;
|
||||
function object_setClass(obj:id; cls: pobjc_class):pobjc_class; cdecl;
|
||||
|
||||
function object_getIvar(obj:id; _ivar:Ivar):id; cdecl;
|
||||
procedure object_setIvar(obj:id; _ivar:Ivar; value:id); cdecl;
|
||||
|
||||
function object_setInstanceVariable(obj:id; name:pchar; value:pointer):Ivar; cdecl; external libname;
|
||||
function object_getInstanceVariable(obj:id; name:pchar; var outValue: Pointer):Ivar; cdecl; external libname;
|
||||
|
||||
function objc_getClass(name:pchar):id; cdecl; external libname;
|
||||
function objc_getMetaClass(name:pchar):id; cdecl; external libname;
|
||||
function objc_lookUpClass(name:pchar):id; cdecl; external libname;
|
||||
function objc_getClassList(buffer:pClass; bufferCount:cint):cint; cdecl; external libname;
|
||||
|
||||
function objc_getProtocol(name:pchar): pobjc_protocol; cdecl; weakexternal libname;
|
||||
function objc_copyProtocolList(outCount:pdword):ppobjc_protocol; cdecl; weakexternal libname;
|
||||
|
||||
function class_getName(cls:pobjc_class):PChar; cdecl; inline;
|
||||
function class_isMetaClass(cls:pobjc_class):BOOL; cdecl;
|
||||
function class_getSuperclass(cls:pobjc_class):pobjc_class; cdecl; inline;
|
||||
|
||||
function class_getVersion(cls:pobjc_class):longint; cdecl; external libname;
|
||||
procedure class_setVersion(cls:pobjc_class; version:longint); cdecl; external libname;
|
||||
|
||||
function class_getInstanceSize(cls:pobjc_class):size_t; cdecl; external libname;
|
||||
|
||||
function class_getInstanceVariable(cls:pobjc_class; name:pchar):Ivar; cdecl; external libname;
|
||||
function class_getClassVariable(cls:pobjc_class; name:pchar):Ivar; cdecl; external libname;
|
||||
function class_copyIvarList(cls:pobjc_class; outCount:pdword):PIvar; cdecl; external libname;
|
||||
|
||||
function class_getInstanceMethod(cls:pobjc_class; name:SEL):Method; cdecl; external libname;
|
||||
function class_getClassMethod(cls:pobjc_class; name:SEL):Method; cdecl; external libname;
|
||||
function class_getMethodImplementation(cls:pobjc_class; name:SEL):IMP; cdecl; external libname;
|
||||
function class_getMethodImplementation_stret(cls:pobjc_class; name:SEL):IMP; cdecl; external libname;
|
||||
function class_respondsToSelector(cls:pobjc_class; sel:SEL):BOOL; cdecl; external libname;
|
||||
function class_copyMethodList(cls:pobjc_class; outCount:pdword):PMethod; cdecl; external libname;
|
||||
|
||||
function class_conformsToProtocol(cls:pobjc_class; var protocol: pobjc_protocol):BOOL; cdecl; external libname;
|
||||
function class_copyProtocolList(cls:pobjc_class; var outCount: dword):ppobjc_protocol; cdecl; external libname;
|
||||
|
||||
function class_createInstance(cls:pobjc_class; extraBytes:size_t):id; cdecl; external libname;
|
||||
|
||||
(*
|
||||
function objc_allocateClassPair(superclass:pobjc_class; name:pchar; extraBytes:size_t):pobjc_class; cdecl; external libname;
|
||||
procedure objc_registerClassPair(cls:pobjc_class); cdecl; external libname;
|
||||
function objc_duplicateClass(original:pobjc_class; name:pchar; extraBytes:size_t):pobjc_class; cdecl; external libname;
|
||||
procedure objc_disposeClassPair(cls:pobjc_class); cdecl; external libname;
|
||||
|
||||
function class_addMethod(cls:pobjc_class; name:SEL; imp:IMP; types:pchar):BOOL; cdecl; external libname;
|
||||
function class_addIvar(cls:pobjc_class; name:pchar; size:size_t; alignment:uint8_t; types:pchar):BOOL; cdecl; external libname;
|
||||
function class_addProtocol(cls:pobjc_class; protocol:pProtocol):BOOL; cdecl; external libname;
|
||||
*)
|
||||
|
||||
function method_getName(m:Method):SEL; cdecl; inline;
|
||||
function method_getImplementation(m:Method):IMP; cdecl; inline;
|
||||
function method_getTypeEncoding(m:Method):Pchar; cdecl; inline;
|
||||
|
||||
function method_getNumberOfArguments(m:Method):dword; cdecl; external libname;
|
||||
(*
|
||||
function method_copyReturnType(m:Method):Pchar; cdecl; weakexternal libname;
|
||||
function method_copyArgumentType(m:Method; index:dword):Pchar; cdecl; weakexternal libname;
|
||||
procedure method_getReturnType(m:Method; dst:pchar; dst_len:size_t); cdecl; external libname;
|
||||
|
||||
function method_setImplementation(m:Method; imp:IMP):IMP; cdecl; external libname;
|
||||
*)
|
||||
|
||||
function ivar_getName(v:Ivar):Pchar; cdecl; inline;
|
||||
function ivar_getTypeEncoding(v:Ivar):Pchar; cdecl; inline;
|
||||
function ivar_getOffset(v:Ivar):ptrdiff_t; cdecl; inline;
|
||||
|
||||
(*
|
||||
function sel_isEqual(lhs:SEL; rhs:SEL):BOOL; cdecl; external libname;
|
||||
*)
|
||||
|
||||
implementation
|
||||
|
||||
type
|
||||
{* Method Template }
|
||||
Pobjc_method1 = ^objc_method1;
|
||||
Method1 = Pobjc_method1;
|
||||
|
||||
objc_method1 = packed record
|
||||
method_name : SEL;
|
||||
method_types : PChar;
|
||||
method_imp : IMP;
|
||||
end;
|
||||
Pobjc_method_list1 = ^objc_method_list1;
|
||||
PPobjc_method_list1 = ^Pobjc_method_list1;
|
||||
|
||||
objc_method_list1 = packed record
|
||||
obsolete : Pobjc_method_list1;
|
||||
method_count : cint;
|
||||
{$ifdef __alpha__}
|
||||
space: cint;
|
||||
{$endif}
|
||||
method_list1 : array[0..0] of objc_method1; { variable length structure }
|
||||
end;
|
||||
|
||||
{* Instance Variable Template}
|
||||
Pobjc_ivar1 = ^objc_ivar1;
|
||||
Ivar1 = Pobjc_ivar1;
|
||||
PIvar1 = ^Ivar1;
|
||||
objc_ivar1 = packed record
|
||||
ivar_name : PChar;
|
||||
ivar_type : PChar;
|
||||
ivar_offset : cint;
|
||||
{$ifdef __alpha__}
|
||||
space: cint;
|
||||
{$endif}
|
||||
end;
|
||||
|
||||
Pobjc_ivar_list1 = ^objc_ivar_list1;
|
||||
objc_ivar_list1 = packed record
|
||||
ivar_count: cint;
|
||||
{$ifdef __alpha__}
|
||||
space: cint;
|
||||
{$endif}
|
||||
ivar_list: array[0..0] of objc_ivar1; { variable length structure }
|
||||
end;
|
||||
|
||||
Pobjc_cache1 = ^objc_cache1;
|
||||
objc_cache1 = record
|
||||
mask : cuint; { total = mask + 1 }
|
||||
occupied : cuint;
|
||||
buckets : array[0..0] of Method1;
|
||||
end;
|
||||
|
||||
Protocol1 = objc_object;
|
||||
|
||||
Pobjc_protocol_list1 = ^objc_protocol_list1;
|
||||
objc_protocol_list1 = record
|
||||
next : Pobjc_protocol_list1;
|
||||
count : cint;
|
||||
list : array[0..0] of Protocol1;
|
||||
end;
|
||||
|
||||
pobjc_class1 = ^objc_class1;
|
||||
objc_class1 = packed record
|
||||
isa : Pobjc_class1;
|
||||
super_class : Pobjc_class1;
|
||||
name : PChar;
|
||||
version : culong;
|
||||
info : culong;
|
||||
instance_size : culong;
|
||||
ivars : Pobjc_ivar_list1;
|
||||
methodLists : PPobjc_method_list1;
|
||||
cache : Pobjc_cache1;
|
||||
protocols : Pobjc_protocol_list1;
|
||||
end;
|
||||
|
||||
Pid = ^id;
|
||||
|
||||
function object_getClass(obj:id): pobjc_class; cdecl;
|
||||
begin
|
||||
if obj = nil then
|
||||
object_getClass := nil
|
||||
else
|
||||
begin
|
||||
object_getClass := pobjc_class(Pobjc_object(obj)^.isa);
|
||||
end;
|
||||
end;
|
||||
|
||||
function object_setClass(obj:id; cls: pobjc_class): pobjc_class; cdecl;
|
||||
begin
|
||||
// can this be done in that way?
|
||||
object_setClass := pobjc_class(Pobjc_object(obj)^.isa);
|
||||
Pobjc_object(obj)^.isa := pobjc_class(cls);
|
||||
end;
|
||||
|
||||
function object_getIvar(obj:id; _ivar:Ivar):id; cdecl;
|
||||
begin
|
||||
object_getIvar := nil;
|
||||
if not Assigned(obj) or
|
||||
not Assigned(_ivar) then
|
||||
Exit;
|
||||
object_getIvar := Pid(PtrUInt(obj) + ivar_getOffset(_ivar))^;
|
||||
end;
|
||||
|
||||
procedure object_setIvar(obj:id; _ivar:Ivar; value:id); cdecl;
|
||||
begin
|
||||
if not Assigned(obj) or
|
||||
not Assigned(_ivar) then
|
||||
Exit;
|
||||
Pid(PtrUInt(obj) + ivar_getOffset(_ivar))^ := value;
|
||||
end;
|
||||
|
||||
function class_getName(cls:pobjc_class):PChar; cdecl; inline;
|
||||
begin
|
||||
class_getName := pobjc_class1(cls)^.name;
|
||||
end;
|
||||
|
||||
function class_getSuperclass(cls:pobjc_class):pobjc_class; cdecl; inline;
|
||||
begin
|
||||
class_getSuperclass := pobjc_class(pobjc_class1(cls)^.super_class);
|
||||
end;
|
||||
|
||||
function class_isMetaClass(cls:_Class):BOOL; cdecl;
|
||||
begin
|
||||
class_isMetaClass := Assigned(cls) and (pobjc_class1(cls)^.Info = CLS_META);
|
||||
end;
|
||||
|
||||
function method_getName(m:Method):SEL; cdecl; inline;
|
||||
begin
|
||||
method_getName := Method1(m)^.method_name;
|
||||
end;
|
||||
|
||||
function method_getImplementation(m:Method):IMP; cdecl; inline;
|
||||
begin
|
||||
method_getImplementation := IMP(Method1(m)^.method_imp);
|
||||
end;
|
||||
|
||||
function method_getTypeEncoding(m:Method):Pchar; cdecl; inline;
|
||||
begin
|
||||
method_getTypeEncoding := Method1(m)^.method_types;
|
||||
end;
|
||||
|
||||
function ivar_getName(v:Ivar):Pchar; cdecl; inline;
|
||||
begin
|
||||
ivar_getName := IVar1(v)^.ivar_name;
|
||||
end;
|
||||
|
||||
function ivar_getTypeEncoding(v:Ivar):Pchar; cdecl; inline;
|
||||
begin
|
||||
ivar_getTypeEncoding := IVar1(v)^.ivar_type;
|
||||
end;
|
||||
|
||||
function ivar_getOffset(v:Ivar):ptrdiff_t; cdecl; inline;
|
||||
begin
|
||||
ivar_getOffset := ptrdiff_t(IVar1(v)^.ivar_offset);
|
||||
end;
|
||||
|
||||
|
||||
end.
|
||||
|
||||
Loading…
Reference in New Issue
Block a user