{ 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}