summaryrefslogtreecommitdiff
path: root/packages/cocoaint/src/foundation/NSThread.inc
blob: 67d26cef53395911155757bc2f02c10c439aca96 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
{ Parsed from Foundation.framework NSThread.h }


{$ifdef TYPES}
type
  NSThreadPtr = ^NSThread;
{$endif}

{$ifdef CLASSES}

type
  NSThread = objcclass external (NSObject)
  private
    _private: id;
    _bytes:array[0..43] of cuint8;
  public
    class function currentThread: NSThread; message 'currentThread';
    class procedure detachNewThreadSelector_toTarget_withObject (selector: SEL; target: id; argument: id); message 'detachNewThreadSelector:toTarget:withObject:';
    class function isMultiThreaded: ObjCBOOL; message 'isMultiThreaded';
    function threadDictionary: NSMutableDictionary; message 'threadDictionary';
    class procedure sleepUntilDate (date: NSDate); message 'sleepUntilDate:';
    class procedure sleepForTimeInterval (ti: NSTimeInterval); message 'sleepForTimeInterval:';
    class procedure exit; message 'exit';
    class function classThreadPriority: double; message 'threadPriority';
    class function setThreadPriority (p: double): ObjCBOOL; message 'setThreadPriority:';
    procedure setThreadPriority_(newValue: double); message 'setThreadPriority:';
    function threadPriority: double; message 'threadPriority';
    procedure setQualityOfService(newValue: NSQualityOfService); message 'setQualityOfService:';
    function qualityOfService: NSQualityOfService; message 'qualityOfService';
    class function callStackReturnAddresses: NSArray; message 'callStackReturnAddresses'; { available in 10_5, 2_0 }
    class function callStackSymbols: NSArray; message 'callStackSymbols'; { available in 10_6, 4_0 }
    procedure setName(newValue: NSString); message 'setName:';
    function name: NSString; message 'name';
    procedure setStackSize(newValue: NSUInteger); message 'setStackSize:';
    function stackSize: NSUInteger; message 'stackSize';
    function isMainThread: ObjCBOOL; message 'isMainThread';
    class function classIsMainThread: ObjCBOOL; message 'isMainThread'; { available in 10_5, 2_0 }
    class function mainThread: NSThread; message 'mainThread'; { available in 10_5, 2_0 }
    function init: instancetype; message 'init'; { available in 10_5, 2_0 }
    function initWithTarget_selector_object (target: id; selector: SEL; argument: id): instancetype; message 'initWithTarget:selector:object:'; { available in 10_5, 2_0 }
    function isExecuting: ObjCBOOL; message 'isExecuting';
    function isFinished: ObjCBOOL; message 'isFinished';
    function isCancelled: ObjCBOOL; message 'isCancelled';
    procedure cancel; message 'cancel'; { available in 10_5, 2_0 }
    procedure start; message 'start'; { available in 10_5, 2_0 }
    procedure main; message 'main'; { available in 10_5, 2_0 }
  end;
{$endif}

{$ifdef EXTERNAL_SYMBOLS}
var
  NSWillBecomeMultiThreadedNotification: NSString; cvar; external;
  NSDidBecomeSingleThreadedNotification: NSString; cvar; external;
  NSThreadWillExitNotification: NSString; cvar; external;
{$endif}

{$ifdef CLASSES}

type
  NSThreadPerformAdditions = objccategory external (NSObject)
    procedure performSelectorOnMainThread_withObject_waitUntilDone_modes (aSelector: SEL; arg: id; wait: ObjCBOOL; array_: NSArray); message 'performSelectorOnMainThread:withObject:waitUntilDone:modes:';
    procedure performSelectorOnMainThread_withObject_waitUntilDone (aSelector: SEL; arg: id; wait: ObjCBOOL); message 'performSelectorOnMainThread:withObject:waitUntilDone:';
    procedure performSelector_onThread_withObject_waitUntilDone_modes (aSelector: SEL; thr: NSThread; arg: id; wait: ObjCBOOL; array_: NSArray); message 'performSelector:onThread:withObject:waitUntilDone:modes:'; { available in 10_5, 2_0 }
    procedure performSelector_onThread_withObject_waitUntilDone (aSelector: SEL; thr: NSThread; arg: id; wait: ObjCBOOL); message 'performSelector:onThread:withObject:waitUntilDone:'; { available in 10_5, 2_0 }
    procedure performSelectorInBackground_withObject (aSelector: SEL; arg: id); message 'performSelectorInBackground:withObject:'; { available in 10_5, 2_0 }
  end;
{$endif}