blob: 0f0bfa5cbce6cee162194b1be4a26dc89d16147b (
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
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
|
{ Parsed from Foundation.framework NSLock.h }
{$ifdef TYPES}
{$ifndef NSLOCK_PAS_T}
{$define NSLOCK_PAS_T}
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSLOCK_PAS_R}
{$define NSLOCK_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSLOCK_PAS_F}
{$define NSLOCK_PAS_F}
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSLOCK_PAS_S}
{$define NSLOCK_PAS_S}
{$endif}
{$endif}
{$ifdef FORWARD}
NSLockingProtocol = objcprotocol;
NSLock = objcclass;
NSLockPointer = ^NSLock;
NSLockPtr = NSLockPointer;
NSConditionLock = objcclass;
NSConditionLockPointer = ^NSConditionLock;
NSConditionLockPtr = NSConditionLockPointer;
NSRecursiveLock = objcclass;
NSRecursiveLockPointer = ^NSRecursiveLock;
NSRecursiveLockPtr = NSRecursiveLockPointer;
NSCondition = objcclass;
NSConditionPointer = ^NSCondition;
NSConditionPtr = NSConditionPointer;
{$endif}
{$ifdef CLASSES}
{$ifndef NSLOCK_PAS_C}
{$define NSLOCK_PAS_C}
{ NSLock }
NSLock = objcclass external (NSObject, NSLockingProtocol)
private
_priv: Pointer;
public
function tryLock: Boolean; message 'tryLock';
function lockBeforeDate(limit: NSDate): Boolean; message 'lockBeforeDate:';
procedure setName(n: NSString); message 'setName:';
function name: NSString; message 'name';
{ Adopted Protocols }
procedure lock;
procedure unlock;
end;
{ NSConditionLock }
NSConditionLock = objcclass external (NSObject, NSLockingProtocol)
private
_priv: Pointer;
public
function initWithCondition(condition_: NSInteger): id; message 'initWithCondition:';
function condition: NSInteger; message 'condition';
procedure lockWhenCondition(condition_: NSInteger); message 'lockWhenCondition:';
function tryLock: Boolean; message 'tryLock';
function tryLockWhenCondition(condition_: NSInteger): Boolean; message 'tryLockWhenCondition:';
procedure unlockWithCondition(condition_: NSInteger); message 'unlockWithCondition:';
function lockBeforeDate(limit: NSDate): Boolean; message 'lockBeforeDate:';
function lockWhenCondition_beforeDate(condition_: NSInteger; limit: NSDate): Boolean; message 'lockWhenCondition:beforeDate:';
procedure setName(n: NSString); message 'setName:';
function name: NSString; message 'name';
{ Adopted Protocols }
procedure lock;
procedure unlock;
end;
{ NSRecursiveLock }
NSRecursiveLock = objcclass external (NSObject, NSLockingProtocol)
private
_priv: Pointer;
public
function tryLock: Boolean; message 'tryLock';
function lockBeforeDate(limit: NSDate): Boolean; message 'lockBeforeDate:';
procedure setName(n: NSString); message 'setName:';
function name: NSString; message 'name';
{ Adopted Protocols }
procedure lock;
procedure unlock;
end;
{ NSCondition }
NSCondition = objcclass external (NSObject, NSLockingProtocol)
private
_priv: Pointer;
public
procedure wait; message 'wait';
function waitUntilDate(limit: NSDate): Boolean; message 'waitUntilDate:';
procedure signal; message 'signal';
procedure broadcast; message 'broadcast';
procedure setName(n: NSString); message 'setName:';
function name: NSString; message 'name';
{ Adopted Protocols }
procedure lock;
procedure unlock;
end;
{$endif}
{$endif}
{$ifdef PROTOCOLS}
{$ifndef NSLOCK_PAS_P}
{$define NSLOCK_PAS_P}
{ NSLocking Protocol }
NSLockingProtocol = objcprotocol external name 'NSLocking'
procedure lock; message 'lock';
procedure unlock; message 'unlock';
end;
{$endif}
{$endif}
|
