2008-05-09 19:51:36 +00:00
|
|
|
{%MainUnit Foundation.pas}
|
2008-02-17 07:38:48 +00:00
|
|
|
{ NSAutoreleasePool.h
|
|
|
|
Copyright (c) 1994-2005, Apple, Inc. All rights reserved.
|
|
|
|
}
|
|
|
|
|
2008-02-22 22:39:15 +00:00
|
|
|
{$ifdef HEADER}
|
|
|
|
{$ifndef NSAUTORELEASEPOOL_PAS_H}
|
|
|
|
{$define NSAUTORELEASEPOOL_PAS_H}
|
|
|
|
|
|
|
|
{$include NSObject.inc}
|
2008-02-17 07:38:48 +00:00
|
|
|
|
|
|
|
const
|
|
|
|
Str_NSAutoreleasePool = 'NSAutoreleasePool';
|
|
|
|
|
2008-02-22 22:39:15 +00:00
|
|
|
{$endif}
|
|
|
|
{$endif}
|
|
|
|
{$ifdef CLASSES}
|
|
|
|
{$ifndef NSAUTORELEASEPOOL_PAS_C}
|
|
|
|
{$define NSAUTORELEASEPOOL_PAS_C}
|
|
|
|
|
|
|
|
{$include NSObject.inc}
|
|
|
|
|
2008-02-17 07:38:48 +00:00
|
|
|
NSAutoreleasePool = class(NSObject)
|
|
|
|
public
|
2008-03-04 09:16:58 +00:00
|
|
|
{ Extra binding functions }
|
2008-05-09 19:51:36 +00:00
|
|
|
class function getClass: objc.id; override;
|
2008-03-04 09:16:58 +00:00
|
|
|
public
|
2008-02-17 07:38:48 +00:00
|
|
|
|
|
|
|
//+ (void)addObject:(id)anObject;
|
|
|
|
|
|
|
|
//- (void)addObject:(id)anObject;
|
|
|
|
|
|
|
|
//#if MAC_OS_X_VERSION_MAX_ALLOWED >= MAC_OS_X_VERSION_10_4
|
|
|
|
//- (void)drain;
|
|
|
|
//#endif
|
|
|
|
|
|
|
|
end;
|
|
|
|
|
2008-02-22 22:39:15 +00:00
|
|
|
{$endif}
|
|
|
|
{$endif}
|
|
|
|
{$ifdef IMPLEMENTATION}
|
|
|
|
|
2008-05-09 19:51:36 +00:00
|
|
|
class function NSAutoreleasePool.getClass: objc.id;
|
2008-03-04 09:16:58 +00:00
|
|
|
begin
|
|
|
|
Result := objc_getClass(Str_NSAutoreleasePool);
|
|
|
|
end;
|
|
|
|
|
2008-02-22 22:39:15 +00:00
|
|
|
{$endif}
|
|
|
|
|