blob: 79e73e2b6620fc4d660a77e5a55b036c6a4bd248 (
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
|
{ Parsed from Foundation.framework NSScriptWhoseTests.h }
{$ifdef TYPES}
{$ifndef NSSCRIPTWHOSETESTS_PAS_T}
{$define NSSCRIPTWHOSETESTS_PAS_T}
{ Constants }
const
NSEqualToComparison = 0;
NSLessThanOrEqualToComparison = 1;
NSLessThanComparison = 2;
NSGreaterThanOrEqualToComparison = 3;
NSGreaterThanComparison = 4;
NSBeginsWithComparison = 5;
NSEndsWithComparison = 6;
NSContainsComparison = 7;
{ Types }
type
NSTestComparisonOperation = NSUInteger;
NSTestComparisonOperationPtr = ^NSTestComparisonOperation;
{$endif}
{$endif}
{$ifdef RECORDS}
{$ifndef NSSCRIPTWHOSETESTS_PAS_R}
{$define NSSCRIPTWHOSETESTS_PAS_R}
{$endif}
{$endif}
{$ifdef FUNCTIONS}
{$ifndef NSSCRIPTWHOSETESTS_PAS_F}
{$define NSSCRIPTWHOSETESTS_PAS_F}
{$endif}
{$endif}
{$ifdef EXTERNAL_SYMBOLS}
{$ifndef NSSCRIPTWHOSETESTS_PAS_S}
{$define NSSCRIPTWHOSETESTS_PAS_S}
{$endif}
{$endif}
{$ifdef FORWARD}
NSScriptWhoseTest = objcclass;
NSScriptWhoseTestPointer = ^NSScriptWhoseTest;
NSScriptWhoseTestPtr = NSScriptWhoseTestPointer;
NSLogicalTest = objcclass;
NSLogicalTestPointer = ^NSLogicalTest;
NSLogicalTestPtr = NSLogicalTestPointer;
NSSpecifierTest = objcclass;
NSSpecifierTestPointer = ^NSSpecifierTest;
NSSpecifierTestPtr = NSSpecifierTestPointer;
{$endif}
{$ifdef CLASSES}
{$ifndef NSSCRIPTWHOSETESTS_PAS_C}
{$define NSSCRIPTWHOSETESTS_PAS_C}
{ NSScriptWhoseTest }
NSScriptWhoseTest = objcclass external (NSObject, NSCodingProtocol)
public
function isTrue: Boolean; message 'isTrue';
{ Adopted Protocols }
procedure encodeWithCoder(aCoder: NSCoder);
function initWithCoder(aDecoder: NSCoder): id;
end;
{ NSLogicalTest }
NSLogicalTest = objcclass external (NSScriptWhoseTest)
private
_operator: cint;
_subTests: id;
public
function initAndTestWithTests(subTests: NSArray): id; message 'initAndTestWithTests:';
function initOrTestWithTests(subTests: NSArray): id; message 'initOrTestWithTests:';
function initNotTestWithTest(subTest: NSScriptWhoseTest): id; message 'initNotTestWithTest:';
end;
{ NSSpecifierTest }
NSSpecifierTest = objcclass external (NSScriptWhoseTest)
private
_comparisonOperator: NSTestComparisonOperation;
_object1: NSScriptObjectSpecifier;
_object2: id;
public
function initWithObjectSpecifier_comparisonOperator_testObject(obj: NSScriptObjectSpecifier; compOp: NSTestComparisonOperation; obj1: id): id; message 'initWithObjectSpecifier:comparisonOperator:testObject:';
end;
{ NSComparisonMethodsCategory }
NSComparisonMethodsCategory = objccategory external (NSObject)
function isEqualTo(object_: id): Boolean; message 'isEqualTo:';
function isLessThanOrEqualTo(object_: id): Boolean; message 'isLessThanOrEqualTo:';
function isLessThan(object_: id): Boolean; message 'isLessThan:';
function isGreaterThanOrEqualTo(object_: id): Boolean; message 'isGreaterThanOrEqualTo:';
function isGreaterThan(object_: id): Boolean; message 'isGreaterThan:';
function isNotEqualTo(object_: id): Boolean; message 'isNotEqualTo:';
function doesContain(object_: id): Boolean; message 'doesContain:';
function isLike(object_: NSString): Boolean; message 'isLike:';
function isCaseInsensitiveLike(object_: NSString): Boolean; message 'isCaseInsensitiveLike:';
end;
{ NSScriptingComparisonMethodsCategory }
NSScriptingComparisonMethodsCategory = objccategory external (NSObject)
function scriptingIsEqualTo(object_: id): Boolean; message 'scriptingIsEqualTo:';
function scriptingIsLessThanOrEqualTo(object_: id): Boolean; message 'scriptingIsLessThanOrEqualTo:';
function scriptingIsLessThan(object_: id): Boolean; message 'scriptingIsLessThan:';
function scriptingIsGreaterThanOrEqualTo(object_: id): Boolean; message 'scriptingIsGreaterThanOrEqualTo:';
function scriptingIsGreaterThan(object_: id): Boolean; message 'scriptingIsGreaterThan:';
function scriptingBeginsWith(object_: id): Boolean; message 'scriptingBeginsWith:';
function scriptingEndsWith(object_: id): Boolean; message 'scriptingEndsWith:';
function scriptingContains(object_: id): Boolean; message 'scriptingContains:';
end;
{$endif}
{$endif}
|
