1 {
2 This file is assembled from all the Interface files.
3 }
4 {$mode macpas}
5 {$modeswitch cblocks}
6 {$packenum 1}
7 {$macro on}
8 {$inline on}
9 {$calling mwpascal}
10
11 {$setc MACOSALLINCLUDE := TRUE}
12 unit MacOSAll;
13 interface
14
15 {$ifc (defined CPUPOWERPC32 or defined CPUI386) and not defined(iphonesim)}
16 {$linkframework Carbon}
17 {$elsec}
18 {$linkframework CoreFoundation}
19 {$endc}
20
21 {$setc UNIVERSAL_INTERFACES_VERSION := $0400}
22 {$setc GAP_INTERFACES_VERSION := $0308}
23
24 {$ifc not defined USE_CFSTR_CONSTANT_MACROS}
25 {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
26 {$endc}
27
28 {$ifc defined CPUPOWERPC and defined CPUI386}
29 {$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
30 {$endc}
31 {$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
32 {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
33 {$endc}
34
35 {$ifc not defined __ppc__ and defined CPUPOWERPC32}
36 {$setc __ppc__ := 1}
37 {$elsec}
38 {$setc __ppc__ := 0}
39 {$endc}
40 {$ifc not defined __ppc64__ and defined CPUPOWERPC64}
41 {$setc __ppc64__ := 1}
42 {$elsec}
43 {$setc __ppc64__ := 0}
44 {$endc}
45 {$ifc not defined __i386__ and defined CPUI386}
46 {$setc __i386__ := 1}
47 {$elsec}
48 {$setc __i386__ := 0}
49 {$endc}
50 {$ifc not defined __x86_64__ and defined CPUX86_64}
51 {$setc __x86_64__ := 1}
52 {$elsec}
53 {$setc __x86_64__ := 0}
54 {$endc}
55 {$ifc not defined __arm__ and defined CPUARM}
56 {$setc __arm__ := 1}
57 {$elsec}
58 {$setc __arm__ := 0}
59 {$endc}
60 {$ifc not defined __arm64__ and defined CPUAARCH64}
61 {$setc __arm64__ := 1}
62 {$elsec}
63 {$setc __arm64__ := 0}
64 {$endc}
65
66 {$ifc defined cpu64}
67 {$setc __LP64__ := 1}
68 {$elsec}
69 {$setc __LP64__ := 0}
70 {$endc}
71
72
73 {$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
74 {$error Conflicting definitions for __ppc__ and __i386__}
75 {$endc}
76
77 {$ifc defined __ppc__ and __ppc__}
78 {$setc TARGET_CPU_PPC := TRUE}
79 {$setc TARGET_CPU_PPC64 := FALSE}
80 {$setc TARGET_CPU_X86 := FALSE}
81 {$setc TARGET_CPU_X86_64 := FALSE}
82 {$setc TARGET_CPU_ARM := FALSE}
83 {$setc TARGET_CPU_ARM64 := FALSE}
84 {$setc TARGET_OS_MAC := TRUE}
85 {$setc TARGET_OS_IPHONE := FALSE}
86 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
87 {$setc TARGET_OS_EMBEDDED := FALSE}
88 {$elifc defined __ppc64__ and __ppc64__}
89 {$setc TARGET_CPU_PPC := FALSE}
90 {$setc TARGET_CPU_PPC64 := TRUE}
91 {$setc TARGET_CPU_X86 := FALSE}
92 {$setc TARGET_CPU_X86_64 := FALSE}
93 {$setc TARGET_CPU_ARM := FALSE}
94 {$setc TARGET_CPU_ARM64 := FALSE}
95 {$setc TARGET_OS_MAC := TRUE}
96 {$setc TARGET_OS_IPHONE := FALSE}
97 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
98 {$setc TARGET_OS_EMBEDDED := FALSE}
99 {$elifc defined __i386__ and __i386__}
100 {$setc TARGET_CPU_PPC := FALSE}
101 {$setc TARGET_CPU_PPC64 := FALSE}
102 {$setc TARGET_CPU_X86 := TRUE}
103 {$setc TARGET_CPU_X86_64 := FALSE}
104 {$setc TARGET_CPU_ARM := FALSE}
105 {$setc TARGET_CPU_ARM64 := FALSE}
106 {$ifc defined iphonesim}
107 {$setc TARGET_OS_MAC := FALSE}
108 {$setc TARGET_OS_IPHONE := TRUE}
109 {$setc TARGET_IPHONE_SIMULATOR := TRUE}
110 {$elsec}
111 {$setc TARGET_OS_MAC := TRUE}
112 {$setc TARGET_OS_IPHONE := FALSE}
113 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
114 {$endc}
115 {$setc TARGET_OS_EMBEDDED := FALSE}
116 {$elifc defined __x86_64__ and __x86_64__}
117 {$setc TARGET_CPU_PPC := FALSE}
118 {$setc TARGET_CPU_PPC64 := FALSE}
119 {$setc TARGET_CPU_X86 := FALSE}
120 {$setc TARGET_CPU_X86_64 := TRUE}
121 {$setc TARGET_CPU_ARM := FALSE}
122 {$setc TARGET_CPU_ARM64 := FALSE}
123 {$ifc defined iphonesim}
124 {$setc TARGET_OS_MAC := FALSE}
125 {$setc TARGET_OS_IPHONE := TRUE}
126 {$setc TARGET_IPHONE_SIMULATOR := TRUE}
127 {$elsec}
128 {$setc TARGET_OS_MAC := TRUE}
129 {$setc TARGET_OS_IPHONE := FALSE}
130 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
131 {$endc}
132 {$setc TARGET_OS_EMBEDDED := FALSE}
133 {$elifc defined __arm__ and __arm__}
134 {$setc TARGET_CPU_PPC := FALSE}
135 {$setc TARGET_CPU_PPC64 := FALSE}
136 {$setc TARGET_CPU_X86 := FALSE}
137 {$setc TARGET_CPU_X86_64 := FALSE}
138 {$setc TARGET_CPU_ARM := TRUE}
139 {$setc TARGET_CPU_ARM64 := FALSE}
140 {$setc TARGET_OS_MAC := FALSE}
141 {$setc TARGET_OS_IPHONE := TRUE}
142 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
143 {$setc TARGET_OS_EMBEDDED := TRUE}
144 {$elifc defined __arm64__ and __arm64__}
145 {$setc TARGET_CPU_PPC := FALSE}
146 {$setc TARGET_CPU_PPC64 := FALSE}
147 {$setc TARGET_CPU_X86 := FALSE}
148 {$setc TARGET_CPU_X86_64 := FALSE}
149 {$setc TARGET_CPU_ARM := FALSE}
150 {$setc TARGET_CPU_ARM64 := TRUE}
151 {$ifc defined ios}
152 {$setc TARGET_OS_MAC := FALSE}
153 {$setc TARGET_OS_IPHONE := TRUE}
154 {$setc TARGET_OS_EMBEDDED := TRUE}
155 {$elsec}
156 {$setc TARGET_OS_MAC := TRUE}
157 {$setc TARGET_OS_IPHONE := FALSE}
158 {$setc TARGET_OS_EMBEDDED := FALSE}
159 {$endc}
160 {$setc TARGET_IPHONE_SIMULATOR := FALSE}
161 {$elsec}
162 {$error __ppc__ nor __ppc64__ nor __i386__ nor __x86_64__ nor __arm__ nor __arm64__ is defined.}
163 {$endc}
164
165 {$ifc defined __LP64__ and __LP64__ }
166 {$setc TARGET_CPU_64 := TRUE}
167 {$elsec}
168 {$setc TARGET_CPU_64 := FALSE}
169 {$endc}
170
171 {$ifc defined FPC_BIG_ENDIAN}
172 {$setc TARGET_RT_BIG_ENDIAN := TRUE}
173 {$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
174 {$elifc defined FPC_LITTLE_ENDIAN}
175 {$setc TARGET_RT_BIG_ENDIAN := FALSE}
176 {$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
177 {$elsec}
178 {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
179 {$endc}
180 {$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
181 {$setc CALL_NOT_IN_CARBON := FALSE}
182 {$setc OLDROUTINENAMES := FALSE}
183 {$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
184 {$setc OPAQUE_UPP_TYPES := TRUE}
185 {$setc OTCARBONAPPLICATION := TRUE}
186 {$setc OTKERNEL := FALSE}
187 {$setc PM_USE_SESSION_APIS := TRUE}
188 {$setc TARGET_API_MAC_CARBON := TRUE}
189 {$setc TARGET_API_MAC_OS8 := FALSE}
190 {$setc TARGET_API_MAC_OSX := TRUE}
191 {$setc TARGET_CARBON := TRUE}
192 {$setc TARGET_CPU_68K := FALSE}
193 {$setc TARGET_CPU_MIPS := FALSE}
194 {$setc TARGET_CPU_SPARC := FALSE}
195 {$setc TARGET_OS_UNIX := FALSE}
196 {$setc TARGET_OS_WIN32 := FALSE}
197 {$setc TARGET_RT_MAC_68881 := FALSE}
198 {$setc TARGET_RT_MAC_CFM := FALSE}
199 {$setc TARGET_RT_MAC_MACHO := TRUE}
200 {$setc TYPED_FUNCTION_POINTERS := TRUE}
201 {$setc TYPE_BOOL := FALSE}
202 {$setc TYPE_EXTENDED := FALSE}
203 {$setc TYPE_LONGLONG := TRUE}
204
205 {unit AXConstants}
206 {$i AXConstants.pas}
207 {unit Accessibility}
208 {$i Accessibility.pas}
209 {unit AudioFormat}
210 {$i AudioFormat.pas}
211 {unit ConditionalMacros}
212 {$i ConditionalMacros.pas}
213 {unit MacTypes}
214 {$i MacTypes.pas}
215 {unit MachineExceptions}
216 {$i MachineExceptions.pas}
217 {unit Math64}
218 {$i Math64.pas}
219 {unit MixedMode}
220 {$i MixedMode.pas}
221 {unit Multiprocessing}
222 {$i Multiprocessing.pas}
223 (* conflicts with FPC ObjC support
224 {unit ObjC}
225 {$i ObjC.pas}
226 *)
227 {unit PEFBinaryFormat}
228 {$i PEFBinaryFormat.pas}
229 {unit PLStringFuncs}
230 {$i PLStringFuncs.pas}
231 {unit PMDefinitionsDeprecated}
232 {$i PMDefinitionsDeprecated.pas}
233 {unit PMPrintSettingsKeys}
234 {$i PMPrintSettingsKeys.pas}
235 {unit PMPrintingDialogExtensions}
236 {$i PMPrintingDialogExtensions.pas}
237 {unit QDCMCommon}
238 {$i QDCMCommon.pas}
239 {unit QLBase}
240 {$i QLBase.pas}
241 {unit QTML}
242 {$i QTML.pas}
243 {unit QuickTimeErrors}
244 {$i QuickTimeErrors.pas}
245 {unit SFNTLayoutTypes}
246 {$i SFNTLayoutTypes.pas}
247 {unit SFNTTypes}
248 {$i SFNTTypes.pas}
249 {unit ScalerStreamTypes}
250 {$i ScalerStreamTypes.pas}
251 {unit TextCommon}
252 {$i TextCommon.pas}
253 {unit Threads}
254 {$i Threads.pas}
255 {unit UTCUtils}
256 {$i UTCUtils.pas}
257 {unit UnicodeConverter}
258 {$i UnicodeConverter.pas}
259 {unit cblas}
260 {$i cblas.pas}
261 {unit cssmconfig}
262 {$i cssmconfig.pas}
263 {unit cssmerr}
264 {$i cssmerr.pas}
265 {unit cssmtype}
266 {$i cssmtype.pas}
267 {unit fenv}
268 {$i fenv.pas}
269 {unit fp}
270 {$i fp.pas}
271 {unit gliContexts}
272 {$i gliContexts.pas}
273 {unit kern_return}
274 {$i kern_return.pas}
275 {unit macgl}
276 {$i macgl.pas}
277 {unit macglext}
278 {$i macglext.pas}
279 {unit macglu}
280 {$i macglu.pas}
281 {unit mach_error}
282 {$i mach_error.pas}
283 {unit vBLAS}
284 {$i vBLAS.pas}
285 {unit vDSP}
286 {$i vDSP.pas}
287 {unit x509defs}
288 {$i x509defs.pas}
289 {unit xattr}
290 {$i xattr.pas}
291 {unit AEDataModel}
292 {$i AEDataModel.pas}
293 {unit AEUserTermTypes}
294 {$i AEUserTermTypes.pas}
295 {unit AIFF}
296 {$i AIFF.pas}
297 {unit AVLTree}
298 {$i AVLTree.pas}
299 {unit AXActionConstants}
300 {$i AXActionConstants.pas}
301 {unit AXAttributeConstants}
302 {$i AXAttributeConstants.pas}
303 {unit AXErrors}
304 {$i AXErrors.pas}
305 {unit AXNotificationConstants}
306 {$i AXNotificationConstants.pas}
307 {unit AXRoleConstants}
308 {$i AXRoleConstants.pas}
309 {unit AXValueConstants}
310 {$i AXValueConstants.pas}
311 {unit AppleDiskPartitions}
312 {$i AppleDiskPartitions.pas}
313 {unit AudioUnitParameters}
314 {$i AudioUnitParameters.pas}
315 {unit Authorization}
316 {$i Authorization.pas}
317 {unit AuthorizationPlugin}
318 {$i AuthorizationPlugin.pas}
319 {unit AuthorizationTags}
320 {$i AuthorizationTags.pas}
321 {unit CFBase}
322 {$i CFBase.pas}
323 {unit CFBinaryHeap}
324 {$i CFBinaryHeap.pas}
325 {unit CFBitVector}
326 {$i CFBitVector.pas}
327 {unit CFByteOrders}
328 {$i CFByteOrders.pas}
329 {unit CFData}
330 {$i CFData.pas}
331 {unit CFDate}
332 {$i CFDate.pas}
333 {unit CFDictionary}
334 {$i CFDictionary.pas}
335 {unit CFError}
336 {$i CFError.pas}
337 {unit CFNetworkErrorss}
338 {$i CFNetworkErrorss.pas}
339 {unit CFNotificationCenter}
340 {$i CFNotificationCenter.pas}
341 {unit CFNumber}
342 {$i CFNumber.pas}
343 {unit CFSet}
344 {$i CFSet.pas}
345 {unit CFStringEncodingExt}
346 {$i CFStringEncodingExt.pas}
347 {unit CFTree}
348 {$i CFTree.pas}
349 {unit CGBase}
350 {$i CGBase.pas}
351 {unit CGErrors}
352 {$i CGErrors.pas}
353 {unit CGFunction}
354 {$i CGFunction.pas}
355 {unit CGGeometry}
356 {$i CGGeometry.pas}
357 {unit CGImageProperties}
358 {$i CGImageProperties.pas}
359 {unit CGLProfiler}
360 {$i CGLProfiler.pas}
361 {unit CGLProfilerFunctionEnums}
362 {$i CGLProfilerFunctionEnums.pas}
363 {unit CGLRenderers}
364 {$i CGLRenderers.pas}
365 {unit CGLTypes}
366 {$i CGLTypes.pas}
367 {unit CGPDFObject}
368 {$i CGPDFObject.pas}
369 {unit CGPDFOperatorTable}
370 {$i CGPDFOperatorTable.pas}
371 {unit CGPDFScanner}
372 {$i CGPDFScanner.pas}
373 {unit CGPDFStream}
374 {$i CGPDFStream.pas}
375 {unit CGPDFString}
376 {$i CGPDFString.pas}
377 {unit CGSession}
378 {$i CGSession.pas}
379 {unit CGWindowLevels}
380 {$i CGWindowLevels.pas}
381 {unit CSIdentityAuthority}
382 {$i CSIdentityAuthority.pas}
383 {unit CTFontManagerErrors}
384 {$i CTFontManagerErrors.pas}
385 {unit CTFontTraits}
386 {$i CTFontTraits.pas}
387 {unit CVBase}
388 {$i CVBase.pas}
389 {unit CVHostTime}
390 {$i CVHostTime.pas}
391 {unit CVReturns}
392 {$i CVReturns.pas}
393 {unit Collections}
394 {$i Collections.pas}
395 {unit CoreAudioTypes}
396 {$i CoreAudioTypes.pas}
397 {unit DHCPClientPreferences}
398 {$i DHCPClientPreferences.pas}
399 {unit DateTimeUtils}
400 {$i DateTimeUtils.pas}
401 {unit Debugging}
402 {$i Debugging.pas}
403 {unit DictionaryServices}
404 {$i DictionaryServices.pas}
405 {unit DigitalHubRegistry}
406 {$i DigitalHubRegistry.pas}
407 {unit DriverServices}
408 {$i DriverServices.pas}
409 {unit DriverSynchronization}
410 {$i DriverSynchronization.pas}
411 {unit Endian}
412 {$i Endian.pas}
413 {unit FileTypesAndCreators}
414 {$i FileTypesAndCreators.pas}
415 {unit Finder}
416 {$i Finder.pas}
417 {unit FixMath}
418 {$i FixMath.pas}
419 {unit GestaltEqu}
420 {$i GestaltEqu.pas}
421 {unit HFSVolumes}
422 {$i HFSVolumes.pas}
423 {unit HIGeometry}
424 {$i HIGeometry.pas}
425 {unit HITextUtils}
426 {$i HITextUtils.pas}
427 {unit HostTime}
428 {$i HostTime.pas}
429 {unit ICACamera}
430 {$i ICACamera.pas}
431 {unit IOKitReturn}
432 {$i IOKitReturn.pas}
433 {unit IconStorage}
434 {$i IconStorage.pas}
435 {unit IntlResources}
436 {$i IntlResources.pas}
437 {unit Keyboards}
438 {$i Keyboards.pas}
439 {unit LSQuarantine}
440 {$i LSQuarantine.pas}
441 {unit MIDIServices}
442 {$i MIDIServices.pas}
443 {unit MIDIThruConnection}
444 {$i MIDIThruConnection.pas}
445 {unit MacErrors}
446 {$i MacErrors.pas}
447 {unit MacLocales}
448 {$i MacLocales.pas}
449 {unit MacMemory}
450 {$i MacMemory.pas}
451 {unit MacOSXPosix}
452 {$i MacOSXPosix.pas}
453 {unit MultiProcessingInfo}
454 {$i MultiProcessingInfo.pas}
455 {unit NumberFormatting}
456 {$i NumberFormatting.pas}
457 {unit OSAComp}
458 {$i OSAComp.pas}
459 {unit OSUtils}
460 {$i OSUtils.pas}
461 {unit OpenTransport}
462 {$i OpenTransport.pas}
463 {unit OpenTransportProviders}
464 {$i OpenTransportProviders.pas}
465 {unit Power}
466 {$i Power.pas}
467 {unit QuickdrawText}
468 {$i QuickdrawText.pas}
469 {unit QuickdrawTypes}
470 {$i QuickdrawTypes.pas}
471 {unit SCDynamicStoreKey}
472 {$i SCDynamicStoreKey.pas}
473 {unit SCNetwork}
474 {$i SCNetwork.pas}
475 {unit SCSI}
476 {$i SCSI.pas}
477 {unit SCSchemaDefinitions}
478 {$i SCSchemaDefinitions.pas}
479 {unit Script}
480 {$i Script.pas}
481 {unit SecBase}
482 {$i SecBase.pas}
483 {unit StringCompare}
484 {$i StringCompare.pas}
485 {unit SystemConfiguration}
486 {$i SystemConfiguration.pas}
487 {unit TextEdit}
488 {$i TextEdit.pas}
489 {unit TextEncodingConverter}
490 {$i TextEncodingConverter.pas}
491 {unit TextEncodingPlugin}
492 {$i TextEncodingPlugin.pas}
493 {unit TextUtils}
494 {$i TextUtils.pas}
495 {unit Timer}
496 {$i Timer.pas}
497 {unit UTCoreTypes}
498 {$i UTCoreTypes.pas}
499 {unit UnicodeUtilities}
500 {$i UnicodeUtilities.pas}
501 {unit UniversalAccess}
502 {$i UniversalAccess.pas}
503 {unit Video}
504 {$i Video.pas}
505 {unit WSTypes}
506 {$i WSTypes.pas}
507 {unit acl}
508 {$i acl.pas}
509 {unit certextensions}
510 {$i certextensions.pas}
511 {unit cssmapple}
512 {$i cssmapple.pas}
513 {unit cssmkrapi}
514 {$i cssmkrapi.pas}
515 {unit gliDispatch}
516 {$i gliDispatch.pas}
517 {unit gluContext}
518 {$i gluContext.pas}
519 {unit ABGlobals}
520 {$i ABGlobals.pas}
521 {unit ABTypedefs}
522 {$i ABTypedefs.pas}
523 {unit AEMach}
524 {$i AEMach.pas}
525 {unit AXTextAttributedString}
526 {$i AXTextAttributedString.pas}
527 {unit AXValue}
528 {$i AXValue.pas}
529 {unit AudioConverter}
530 {$i AudioConverter.pas}
531 {unit AudioHardwareBase}
532 {$i AudioHardwareBase.pas}
533 {unit AuthSession}
534 {$i AuthSession.pas}
535 {unit BackupCore}
536 {$i BackupCore.pas}
537 {unit CFArray}
538 {$i CFArray.pas}
539 {unit CFBag}
540 {$i CFBag.pas}
541 {unit CFCharacterSet}
542 {$i CFCharacterSet.pas}
543 {unit CFLocale}
544 {$i CFLocale.pas}
545 {unit CFNumberFormatter}
546 {$i CFNumberFormatter.pas}
547 {unit CFString}
548 {$i CFString.pas}
549 {unit CFStringTokenizer}
550 {$i CFStringTokenizer.pas}
551 {unit CFTimeZone}
552 {$i CFTimeZone.pas}
553 {unit CFUUID}
554 {$i CFUUID.pas}
555 {unit CGAffineTransforms}
556 {$i CGAffineTransforms.pas}
557 {unit CGImageMetadata}
558 {$i CGImageMetadata.pas}
559 {unit CGLCurrent}
560 {$i CGLCurrent.pas}
561 {unit CGLDevice}
562 {$i CGLDevice.pas}
563 {unit CGPDFArray}
564 {$i CGPDFArray.pas}
565 {unit CGPDFContentStream}
566 {$i CGPDFContentStream.pas}
567 {unit CGPDFDictionary}
568 {$i CGPDFDictionary.pas}
569 {unit CGPath}
570 {$i CGPath.pas}
571 {unit CSIdentityBase}
572 {$i CSIdentityBase.pas}
573 {unit CTFontDescriptor}
574 {$i CTFontDescriptor.pas}
575 {unit CTParagraphStyle}
576 {$i CTParagraphStyle.pas}
577 {unit CTTextTab}
578 {$i CTTextTab.pas}
579 {unit CVBuffer}
580 {$i CVBuffer.pas}
581 {unit CaptiveNetwork}
582 {$i CaptiveNetwork.pas}
583 {unit ColorSyncProfile}
584 {$i ColorSyncProfile.pas}
585 {unit ColorSyncTransform}
586 {$i ColorSyncTransform.pas}
587 {unit Events}
588 {$i Events.pas}
589 {unit HITextLengthFilter}
590 {$i HITextLengthFilter.pas}
591 {unit IOSurfaceAPI}
592 {$i IOSurfaceAPI.pas}
593 {unit MDItem}
594 {$i MDItem.pas}
595 {unit MDQuery}
596 {$i MDQuery.pas}
597 {unit MDSchema}
598 {$i MDSchema.pas}
599 {unit MIDISetup}
600 {$i MIDISetup.pas}
601 {unit MacOpenGL}
602 {$i MacOpenGL.pas}
603 {unit Notification}
604 {$i Notification.pas}
605 {unit PMDefinitions}
606 {$i PMDefinitions.pas}
607 {unit PMErrors}
608 {$i PMErrors.pas}
609 {unit Palettes}
610 {$i Palettes.pas}
611 {unit PictUtils}
612 {$i PictUtils.pas}
613 {unit QDOffscreen}
614 {$i QDOffscreen.pas}
615 {unit SKAnalysis}
616 {$i SKAnalysis.pas}
617 {unit SKSummary}
618 {$i SKSummary.pas}
619 {unit Scrap}
620 {$i Scrap.pas}
621 {unit SecTrust}
622 {$i SecTrust.pas}
623 {unit TypeSelect}
624 {$i TypeSelect.pas}
625 {unit ABAddressBook}
626 {$i ABAddressBook.pas}
627 {unit CFAttributedString}
628 {$i CFAttributedString.pas}
629 {unit CFCalendar}
630 {$i CFCalendar.pas}
631 {unit CFDateFormatter}
632 {$i CFDateFormatter.pas}
633 {unit CFFileSecurity}
634 {$i CFFileSecurity.pas}
635 {unit CFRunLoop}
636 {$i CFRunLoop.pas}
637 {unit CFSocket}
638 {$i CFSocket.pas}
639 {unit CSIdentity}
640 {$i CSIdentity.pas}
641 {unit CSIdentityQuery}
642 {$i CSIdentityQuery.pas}
643 {unit CTFontCollection}
644 {$i CTFontCollection.pas}
645 {unit ColorSyncDevice}
646 {$i ColorSyncDevice.pas}
647 {unit DASession}
648 {$i DASession.pas}
649 {unit FSEvents}
650 {$i FSEvents.pas}
651 {unit SCNetworkConnection}
652 {$i SCNetworkConnection.pas}
653 {unit SCNetworkReachability}
654 {$i SCNetworkReachability.pas}
655 {unit ABActions}
656 {$i ABActions.pas}
657 {unit AudioHardware}
658 {$i AudioHardware.pas}
659 {unit AudioHardwareDeprecated}
660 {$i AudioHardwareDeprecated.pas}
661 {unit AudioHardwareService}
662 {$i AudioHardwareService.pas}
663 {unit CFFileDescriptor}
664 {$i CFFileDescriptor.pas}
665 {unit CFMachPort}
666 {$i CFMachPort.pas}
667 {unit CFMessagePort}
668 {$i CFMessagePort.pas}
669 {unit CGRemoteOperation}
670 {$i CGRemoteOperation.pas}
671 {unit DADisk}
672 {$i DADisk.pas}
673 {unit Files}
674 {$i Files.pas}
675 {unit Folders}
676 {$i Folders.pas}
677 {unit ICAApplication}
678 {$i ICAApplication.pas}
679 {unit ICADevice}
680 {$i ICADevice.pas}
681 {unit LowMem}
682 {$i LowMem.pas}
683 {unit Processes}
684 {$i Processes.pas}
685 {unit Resources}
686 {$i Resources.pas}
687 {unit SpeechRecognition}
688 {$i SpeechRecognition.pas}
689 {unit SystemSound}
690 {$i SystemSound.pas}
691 {unit ATSTypes}
692 {$i ATSTypes.pas}
693 {unit AXUIElement}
694 {$i AXUIElement.pas}
695 {unit Aliases}
696 {$i Aliases.pas}
697 {unit AppleHelp}
698 {$i AppleHelp.pas}
699 {unit CFURL}
700 {$i CFURL.pas}
701 {unit CFURLAccess}
702 {$i CFURLAccess.pas}
703 {unit CFURLEnumerator}
704 {$i CFURLEnumerator.pas}
705 {unit CFUserNotification}
706 {$i CFUserNotification.pas}
707 {unit CFXMLNode}
708 {$i CFXMLNode.pas}
709 {unit CFXMLParser}
710 {$i CFXMLParser.pas}
711 {unit CGDataConsumer}
712 {$i CGDataConsumer.pas}
713 {unit CGDataProvider}
714 {$i CGDataProvider.pas}
715 {unit CGEventTypes}
716 {$i CGEventTypes.pas}
717 {unit CGFont}
718 {$i CGFont.pas}
719 {unit CGPDFDocument}
720 {$i CGPDFDocument.pas}
721 {unit CGPDFPage}
722 {$i CGPDFPage.pas}
723 {unit CGPSConverter}
724 {$i CGPSConverter.pas}
725 {unit CTFontManager}
726 {$i CTFontManager.pas}
727 {unit CarbonEventsCore}
728 {$i CarbonEventsCore.pas}
729 {unit ColorSyncDeprecated}
730 {$i ColorSyncDeprecated.pas}
731 {unit Components}
732 {$i Components.pas}
733 {unit Fonts}
734 {$i Fonts.pas}
735 {unit IconsCore}
736 {$i IconsCore.pas}
737 {unit InternetConfig}
738 {$i InternetConfig.pas}
739 {unit LSInfo}
740 {$i LSInfo.pas}
741 {unit LSOpen}
742 {$i LSOpen.pas}
743 {unit LSSharedFileList}
744 {$i LSSharedFileList.pas}
745 {unit MDLineage}
746 {$i MDLineage.pas}
747 {unit PMCoreDeprecated}
748 {$i PMCoreDeprecated.pas}
749 {unit Pasteboard}
750 {$i Pasteboard.pas}
751 {unit SKDocument}
752 {$i SKDocument.pas}
753 {unit SKIndex}
754 {$i SKIndex.pas}
755 {unit SKSearch}
756 {$i SKSearch.pas}
757 {unit SpeechSynthesis}
758 {$i SpeechSynthesis.pas}
759 {unit TextInputSources}
760 {$i TextInputSources.pas}
761 {unit ToolUtils}
762 {$i ToolUtils.pas}
763 {unit TranslationExtensions}
764 {$i TranslationExtensions.pas}
765 {unit TranslationServices}
766 {$i TranslationServices.pas}
767 {unit UTType}
768 {$i UTType.pas}
769 {unit WSMethodInvocation}
770 {$i WSMethodInvocation.pas}
771 {unit WSProtocolHandler}
772 {$i WSProtocolHandler.pas}
773 {unit ABPeoplePicker}
774 {$i ABPeoplePicker.pas}
775 {unit AEInteraction}
776 {$i AEInteraction.pas}
777 {unit ATSLayoutTypes}
778 {$i ATSLayoutTypes.pas}
779 {unit ATSUnicodeTypes}
780 {$i ATSUnicodeTypes.pas}
781 {unit AudioComponents}
782 {$i AudioComponents.pas}
783 {unit CFBundle}
784 {$i CFBundle.pas}
785 {unit CFHTTPMessage}
786 {$i CFHTTPMessage.pas}
787 {unit CFPlugIn}
788 {$i CFPlugIn.pas}
789 {unit CFPlugInCOM}
790 {$i CFPlugInCOM.pas}
791 {unit CFStream}
792 {$i CFStream.pas}
793 {unit CGColorSpace}
794 {$i CGColorSpace.pas}
795 {unit CGEventSource}
796 {$i CGEventSource.pas}
797 {unit CGGradient}
798 {$i CGGradient.pas}
799 {unit CGImage}
800 {$i CGImage.pas}
801 {unit CGImageSource}
802 {$i CGImageSource.pas}
803 {unit CGShading}
804 {$i CGShading.pas}
805 {unit CGWindow}
806 {$i CGWindow.pas}
807 {unit CMCalibrator}
808 {$i CMCalibrator.pas}
809 {unit CVImageBuffer}
810 {$i CVImageBuffer.pas}
811 {unit CVOpenGLBuffer}
812 {$i CVOpenGLBuffer.pas}
813 {unit CVOpenGLBufferPool}
814 {$i CVOpenGLBufferPool.pas}
815 {unit CVOpenGLTexture}
816 {$i CVOpenGLTexture.pas}
817 {unit CVOpenGLTextureCache}
818 {$i CVOpenGLTextureCache.pas}
819 {unit CVPixelBuffer}
820 {$i CVPixelBuffer.pas}
821 {unit CVPixelBufferIOSurface}
822 {$i CVPixelBufferIOSurface.pas}
823 {unit CVPixelBufferPool}
824 {$i CVPixelBufferPool.pas}
825 {unit CVPixelFormatDescription}
826 {$i CVPixelFormatDescription.pas}
827 {unit CodeFragments}
828 {$i CodeFragments.pas}
829 {unit ColorPicker}
830 {$i ColorPicker.pas}
831 {unit ColorSyncCMM}
832 {$i ColorSyncCMM.pas}
833 {unit FontSync}
834 {$i FontSync.pas}
835 {unit HIObject}
836 {$i HIObject.pas}
837 {unit KeychainCore}
838 {$i KeychainCore.pas}
839 {unit KeychainHI}
840 {$i KeychainHI.pas}
841 {unit MDExternalDatastore}
842 {$i MDExternalDatastore.pas}
843 {unit MDImporter}
844 {$i MDImporter.pas}
845 {unit MIDIDriver}
846 {$i MIDIDriver.pas}
847 {unit NSLCore}
848 {$i NSLCore.pas}
849 {unit OpenTransportProtocol}
850 {$i OpenTransportProtocol.pas}
851 {unit QLThumbnailImage}
852 {$i QLThumbnailImage.pas}
853 {unit Translation}
854 {$i Translation.pas}
855 {unit URLAccess}
856 {$i URLAccess.pas}
857 {unit ATSUnicodeDirectAccess}
858 {$i ATSUnicodeDirectAccess.pas}
859 {unit ATSUnicodeDrawing}
860 {$i ATSUnicodeDrawing.pas}
861 {unit ATSUnicodeFlattening}
862 {$i ATSUnicodeFlattening.pas}
863 {unit ATSUnicodeFonts}
864 {$i ATSUnicodeFonts.pas}
865 {unit ATSUnicodeGlyphs}
866 {$i ATSUnicodeGlyphs.pas}
867 {unit ATSUnicodeObjects}
868 {$i ATSUnicodeObjects.pas}
869 {unit AUComponent}
870 {$i AUComponent.pas}
871 {unit AppleEvents}
872 {$i AppleEvents.pas}
873 {unit AudioCodecs}
874 {$i AudioCodecs.pas}
875 {unit AudioOutputUnit}
876 {$i AudioOutputUnit.pas}
877 {unit AudioUnitUtilities}
878 {$i AudioUnitUtilities.pas}
879 {unit AuthorizationDB}
880 {$i AuthorizationDB.pas}
881 {unit CFFTPStream}
882 {$i CFFTPStream.pas}
883 {unit CFHTTPAuthentication}
884 {$i CFHTTPAuthentication.pas}
885 {unit CFHTTPStream}
886 {$i CFHTTPStream.pas}
887 {unit CFHost}
888 {$i CFHost.pas}
889 {unit CFNetDiagnostics}
890 {$i CFNetDiagnostics.pas}
891 {unit CFNetServices}
892 {$i CFNetServices.pas}
893 {unit CFPropertyList}
894 {$i CFPropertyList.pas}
895 {unit CFProxySupport}
896 {$i CFProxySupport.pas}
897 {unit CFSocketStream}
898 {$i CFSocketStream.pas}
899 {unit CGColor}
900 {$i CGColor.pas}
901 {unit CGContext}
902 {$i CGContext.pas}
903 {unit CGDirectDisplay}
904 {$i CGDirectDisplay.pas}
905 {unit CGDirectPalette}
906 {$i CGDirectPalette.pas}
907 {unit CGDisplayConfiguration}
908 {$i CGDisplayConfiguration.pas}
909 {unit CGDisplayFades}
910 {$i CGDisplayFades.pas}
911 {unit CGEvent}
912 {$i CGEvent.pas}
913 {unit CGGLContext}
914 {$i CGGLContext.pas}
915 {unit CGImageDestination}
916 {$i CGImageDestination.pas}
917 {unit CGLayer}
918 {$i CGLayer.pas}
919 {unit CGPDFContext}
920 {$i CGPDFContext.pas}
921 {unit CGPattern}
922 {$i CGPattern.pas}
923 {unit CTFont}
924 {$i CTFont.pas}
925 {unit CTFrame}
926 {$i CTFrame.pas}
927 {unit CTGlyphInfo}
928 {$i CTGlyphInfo.pas}
929 {unit CTLine}
930 {$i CTLine.pas}
931 {unit CTRun}
932 {$i CTRun.pas}
933 {unit CTStringAttributes}
934 {$i CTStringAttributes.pas}
935 {unit CTTypesetter}
936 {$i CTTypesetter.pas}
937 {unit CVDisplayLink}
938 {$i CVDisplayLink.pas}
939 {unit Dialogs}
940 {$i Dialogs.pas}
941 {unit Displays}
942 {$i Displays.pas}
943 {unit Drag}
944 {$i Drag.pas}
945 {unit DrawSprocket}
946 {$i DrawSprocket.pas}
947 {unit HIArchive}
948 {$i HIArchive.pas}
949 {unit ImageCompression}
950 {$i ImageCompression.pas}
951 {unit MusicDevice}
952 {$i MusicDevice.pas}
953 {unit NSL}
954 {$i NSL.pas}
955 {unit PMApplication}
956 {$i PMApplication.pas}
957 {unit PMApplicationDeprecated}
958 {$i PMApplicationDeprecated.pas}
959 {unit PMCore}
960 {$i PMCore.pas}
961 {unit QDPictToCGContext}
962 {$i QDPictToCGContext.pas}
963 {unit QLGenerator}
964 {$i QLGenerator.pas}
965 {unit QLThumbnail}
966 {$i QLThumbnail.pas}
967 {unit Quickdraw}
968 {$i Quickdraw.pas}
969 {unit SCDynamicStore}
970 {$i SCDynamicStore.pas}
971 {unit SCDynamicStoreCopyDHCPInfos}
972 {$i SCDynamicStoreCopyDHCPInfos.pas}
973 {unit SCDynamicStoreCopySpecific}
974 {$i SCDynamicStoreCopySpecific.pas}
975 {unit SCPreferences}
976 {$i SCPreferences.pas}
977 {unit SCPreferencesPath}
978 {$i SCPreferencesPath.pas}
979 {unit SCPreferencesSetSpecific}
980 {$i SCPreferencesSetSpecific.pas}
981 {unit Sound}
982 {$i Sound.pas}
983 {unit AEHelpers}
984 {$i AEHelpers.pas}
985 {unit AEObjects}
986 {$i AEObjects.pas}
987 {unit AEPackObject}
988 {$i AEPackObject.pas}
989 {unit AERegistry}
990 {$i AERegistry.pas}
991 {unit ASRegistry}
992 {$i ASRegistry.pas}
993 {unit ATSFont}
994 {$i ATSFont.pas}
995 {unit Appearance}
996 {$i Appearance.pas}
997 {unit CFPreferences}
998 {$i CFPreferences.pas}
999 {unit CGBitmapContext}
1000 {$i CGBitmapContext.pas}
1001 {unit CTFramesetter}
1002 {$i CTFramesetter.pas}
1003 {unit CoreFoundation}
1004 {$i CoreFoundation.pas}
1005 {unit CoreGraphics}
1006 {$i CoreGraphics.pas}
1007 {unit CoreText}
1008 {$i CoreText.pas}
1009 {unit Dictionary}
1010 {$i Dictionary.pas}
1011 {unit FontPanel}
1012 {$i FontPanel.pas}
1013 {unit LanguageAnalysis}
1014 {$i LanguageAnalysis.pas}
1015 {unit Menus}
1016 {$i Menus.pas}
1017 {unit Movies}
1018 {$i Movies.pas}
1019 {unit MoviesFormat}
1020 {$i MoviesFormat.pas}
1021 {unit OSA}
1022 {$i OSA.pas}
1023 {unit OSAGeneric}
1024 {$i OSAGeneric.pas}
1025 {unit PMPrintAETypes}
1026 {$i PMPrintAETypes.pas}
1027 {unit QuickTimeMusic}
1028 {$i QuickTimeMusic.pas}
1029 {unit SCNetworkConfiguration}
1030 {$i SCNetworkConfiguration.pas}
1031 {unit AppleScript}
1032 {$i AppleScript.pas}
1033 {unit AudioFile}
1034 {$i AudioFile.pas}
1035 {unit AudioFileComponents}
1036 {$i AudioFileComponents.pas}
1037 {unit AudioFileStream}
1038 {$i AudioFileStream.pas}
1039 {unit AudioQueue}
1040 {$i AudioQueue.pas}
1041 {unit AudioServices}
1042 {$i AudioServices.pas}
1043 {unit AudioUnitProperties}
1044 {$i AudioUnitProperties.pas}
1045 {unit CarbonEvents}
1046 {$i CarbonEvents.pas}
1047 {unit FinderRegistry}
1048 {$i FinderRegistry.pas}
1049 {unit HIShape}
1050 {$i HIShape.pas}
1051 {unit HIToolbar}
1052 {$i HIToolbar.pas}
1053 {unit Icons}
1054 {$i Icons.pas}
1055 {unit ImageCodec}
1056 {$i ImageCodec.pas}
1057 {unit MacApplication}
1058 {$i MacApplication.pas}
1059 {unit MacWindows}
1060 {$i MacWindows.pas}
1061 {unit MediaHandlers}
1062 {$i MediaHandlers.pas}
1063 {unit Navigation}
1064 {$i Navigation.pas}
1065 {unit QuickTimeComponents}
1066 {$i QuickTimeComponents.pas}
1067 {unit QuickTimeStreaming}
1068 {$i QuickTimeStreaming.pas}
1069 {unit QuickTimeVR}
1070 {$i QuickTimeVR.pas}
1071 {unit QuickTimeVRFormat}
1072 {$i QuickTimeVRFormat.pas}
1073 {unit TextServices}
1074 {$i TextServices.pas}
1075 {unit ASDebugging}
1076 {$i ASDebugging.pas}
1077 {unit AudioUnitCarbonViews}
1078 {$i AudioUnitCarbonViews.pas}
1079 {unit Controls}
1080 {$i Controls.pas}
1081 {unit HIAccessibility}
1082 {$i HIAccessibility.pas}
1083 {unit HIButtonViews}
1084 {$i HIButtonViews.pas}
1085 {unit HIClockView}
1086 {$i HIClockView.pas}
1087 {unit HIContainerViews}
1088 {$i HIContainerViews.pas}
1089 {unit HILittleArrows}
1090 {$i HILittleArrows.pas}
1091 {unit HIPopupButton}
1092 {$i HIPopupButton.pas}
1093 {unit HIProgressViews}
1094 {$i HIProgressViews.pas}
1095 {unit HIRelevanceBar}
1096 {$i HIRelevanceBar.pas}
1097 {unit HISeparator}
1098 {$i HISeparator.pas}
1099 {unit HITabbedView}
1100 {$i HITabbedView.pas}
1101 {unit HITheme}
1102 {$i HITheme.pas}
1103 {unit HIToolboxDebugging}
1104 {$i HIToolboxDebugging.pas}
1105 {unit HIView}
1106 {$i HIView.pas}
1107 {unit HIWindowViews}
1108 {$i HIWindowViews.pas}
1109 {unit HTMLRendering}
1110 {$i HTMLRendering.pas}
1111 {unit Lists}
1112 {$i Lists.pas}
1113 {unit MacHelp}
1114 {$i MacHelp.pas}
1115 {unit MacTextEditor}
1116 {$i MacTextEditor.pas}
1117 {unit QTSMovie}
1118 {$i QTSMovie.pas}
1119 {unit QTStreamingComponents}
1120 {$i QTStreamingComponents.pas}
1121 {unit TSMTE}
1122 {$i TSMTE.pas}
1123 {unit ControlDefinitions}
1124 {$i ControlDefinitions.pas}
1125 {unit HIComboBox}
1126 {$i HIComboBox.pas}
1127 {unit HIDataBrowser}
1128 {$i HIDataBrowser.pas}
1129 {unit HIDisclosureViews}
1130 {$i HIDisclosureViews.pas}
1131 {unit HIImageViews}
1132 {$i HIImageViews.pas}
1133 {unit HIMenuView}
1134 {$i HIMenuView.pas}
1135 {unit HIMovieView}
1136 {$i HIMovieView.pas}
1137 {unit HIScrollView}
1138 {$i HIScrollView.pas}
1139 {unit HISearchField}
1140 {$i HISearchField.pas}
1141 {unit HISegmentedView}
1142 {$i HISegmentedView.pas}
1143 {unit HISlider}
1144 {$i HISlider.pas}
1145 {unit HITextViews}
1146 {$i HITextViews.pas}
1147 {unit IBCarbonRuntime}
1148 {$i IBCarbonRuntime.pas}
1149 {unit HIToolbox}
1150 {$i HIToolbox.pas}
1151
1152 implementation
1153
1154 {implementation of unit MixedMode}
1155
1156
1157 {$R-}
1158
NewRoutineDescriptornull1159 function NewRoutineDescriptor( theProc: ProcPtr; theProcInfo: ProcInfoType; theISA: ISAType ): UniversalProcPtr; inline;
1160 begin
1161 NewRoutineDescriptor := UniversalProcPtr(theProc);
1162 end;
1163
1164 procedure DisposeRoutineDescriptor( theUPP: UniversalProcPtr ); inline;
1165 begin
1166 end;
1167
1168 {implementation of unit cssmerr}
1169
1170 {$ifc TARGET_OS_MAC}
1171
1172
CSSM_ERRCODEnull1173 function CSSM_ERRCODE(arg: UInt32): UInt32; inline;
1174 begin
1175 CSSM_ERRCODE:=(arg - CSSM_BASE_ERROR) and (CSSM_ERRORCODE_MODULE_EXTENT - 1)
1176 end;
1177
CSSM_ERRBASEnull1178 function CSSM_ERRBASE(arg: UInt32): UInt32; inline;
1179 begin
1180 CSSM_ERRBASE:=((arg - CSSM_BASE_ERROR) and not(CSSM_ERRORCODE_MODULE_EXTENT - 1)) + CSSM_BASE_ERROR
1181 end;
1182
CSSM_ERR_IS_CONVERTIBLEnull1183 function CSSM_ERR_IS_CONVERTIBLE(arg: UInt32): Boolean; inline;
1184 begin
1185 CSSM_ERR_IS_CONVERTIBLE:=CSSM_ERRCODE(arg) < CSSM_ERRORCODE_COMMON_EXTENT
1186 end;
1187
CSSM_ERR_TAGnull1188 function CSSM_ERR_TAG(code, base: UInt32): UInt32; inline;
1189 begin
1190 CSSM_ERR_TAG:=CSSM_ERRCODE(code) + base
1191 end;
1192
1193 {$endc} {TARGET_OS_MAC}
1194
1195 {implementation of unit mach_error}
1196
1197
1198 {$push}
1199 {$R-,Q-}
1200
err_systemnull1201 function err_system(x: mach_error_t): mach_error_t; inline;
1202 begin
1203 err_system:=(((x) and $3f) shl 26)
1204 end;
1205
err_subnull1206 function err_sub(x: mach_error_t): mach_error_t; inline;
1207 begin
1208 err_sub:=(((x) shr 14) and $fff)
1209 end;
1210
1211
err_get_systemnull1212 function err_get_system(err: mach_error_t): mach_error_t; inline;
1213 begin
1214 err_get_system:=(((err) shr 26) and $3f)
1215 end;
1216
err_get_subnull1217 function err_get_sub(err: mach_error_t): mach_error_t; inline;
1218 begin
1219 err_get_sub:=(((err) shr 14) and $fff)
1220 end;
1221
err_get_codenull1222 function err_get_code(err: mach_error_t): mach_error_t; inline;
1223 begin
1224 err_get_code:=((err) and $3fff)
1225 end;
1226
1227
unix_errnull1228 function unix_err(errno: SInt32): mach_error_t; inline;
1229 begin
1230 unix_err:=err_kern or (((3) and $fff) shl 14) or errno;
1231 end;
1232
1233 {$pop}
1234
1235 {implementation of unit CFByteOrders}
1236
1237
1238 {$R-}
1239
CFByteOrderGetCurrentnull1240 function CFByteOrderGetCurrent: CFByteOrder; inline;
1241 var
1242 x: UInt32 = (CFByteOrderBigEndian shl 24) or CFByteOrderLittleEndian;
1243 begin
1244 CFByteOrderGetCurrent := CFByteOrder(UInt8Ptr(@x)^);
1245 end;
1246
CFSwapInt16null1247 function CFSwapInt16( arg: UInt16 ): UInt16; inline;
1248 begin
1249 CFSwapInt16 := (( arg shl 8) and $0FF00) or (( arg shr 8) and $00FF);
1250 end;
1251
CFSwapInt32null1252 function CFSwapInt32( arg: UInt32 ): UInt32; inline;
1253 begin
1254 CFSwapInt32 := ((arg and $FF) shl 24) or ((arg and $0FF00) shl 8) or ((arg shr 8) and $0FF00) or ((arg shr 24) and $FF);
1255 end;
1256
CFSwapInt64null1257 function CFSwapInt64( arg: UInt64 ): UInt64; inline;
1258 begin
1259 CFSwapInt64 := (UInt64(CFSwapInt32( arg and $FFFFFFFF )) shl 32) or CFSwapInt32( (arg shr 32) and $FFFFFFFF );
1260 end;
1261
1262 {$ifc TARGET_RT_BIG_ENDIAN}
CFSwapInt16BigToHostnull1263 function CFSwapInt16BigToHost( arg: UInt16 ): UInt16; inline;
1264 begin
1265 CFSwapInt16BigToHost := arg;
1266 end;
1267
CFSwapInt32BigToHostnull1268 function CFSwapInt32BigToHost( arg: UInt32 ): UInt32; inline;
1269 begin
1270 CFSwapInt32BigToHost := arg;
1271 end;
1272
CFSwapInt64BigToHostnull1273 function CFSwapInt64BigToHost( arg: UInt64 ): UInt64; inline;
1274 begin
1275 CFSwapInt64BigToHost := arg;
1276 end;
1277
CFSwapInt16HostToBignull1278 function CFSwapInt16HostToBig( arg: UInt16 ): UInt16; inline;
1279 begin
1280 CFSwapInt16HostToBig := arg;
1281 end;
1282
CFSwapInt32HostToBignull1283 function CFSwapInt32HostToBig( arg: UInt32 ): UInt32; inline;
1284 begin
1285 CFSwapInt32HostToBig := arg;
1286 end;
1287
CFSwapInt64HostToBignull1288 function CFSwapInt64HostToBig( arg: UInt64 ): UInt64; inline;
1289 begin
1290 CFSwapInt64HostToBig := arg;
1291 end;
1292
CFSwapInt16LittleToHostnull1293 function CFSwapInt16LittleToHost( arg: UInt16 ): UInt16; inline;
1294 begin
1295 CFSwapInt16LittleToHost := CFSwapInt16(arg);
1296 end;
1297
CFSwapInt32LittleToHostnull1298 function CFSwapInt32LittleToHost( arg: UInt32 ): UInt32; inline;
1299 begin
1300 CFSwapInt32LittleToHost := CFSwapInt32(arg);
1301 end;
1302
CFSwapInt64LittleToHostnull1303 function CFSwapInt64LittleToHost( arg: UInt64 ): UInt64; inline;
1304 begin
1305 CFSwapInt64LittleToHost := CFSwapInt64(arg);
1306 end;
1307
CFSwapInt16HostToLittlenull1308 function CFSwapInt16HostToLittle( arg: UInt16 ): UInt16; inline;
1309 begin
1310 CFSwapInt16HostToLittle := CFSwapInt16(arg);
1311 end;
1312
CFSwapInt32HostToLittlenull1313 function CFSwapInt32HostToLittle( arg: UInt32 ): UInt32; inline;
1314 begin
1315 CFSwapInt32HostToLittle := CFSwapInt32(arg);
1316 end;
1317
CFSwapInt64HostToLittlenull1318 function CFSwapInt64HostToLittle( arg: UInt64 ): UInt64; inline;
1319 begin
1320 CFSwapInt64HostToLittle := CFSwapInt64(arg);
1321 end;
1322
CFConvertFloat32HostToSwappednull1323 function CFConvertFloat32HostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
1324 begin
1325 CFConvertFloat32HostToSwapped := CFSwappedFloat32(arg);
1326 end;
1327
CFConvertFloat32SwappedToHostnull1328 function CFConvertFloat32SwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
1329 begin
1330 CFConvertFloat32SwappedToHost := Float32(arg);
1331 end;
1332
CFConvertFloat64HostToSwappednull1333 function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
1334 begin
1335 CFConvertFloat64HostToSwapped := CFSwappedFloat64(arg);
1336 end;
1337
CFConvertFloat64SwappedToHostnull1338 function CFConvertFloat64SwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
1339 begin
1340 CFConvertFloat64SwappedToHost := Float64(arg);
1341 end;
1342
CFConvertFloatHostToSwappednull1343 function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
1344 begin
1345 CFConvertFloatHostToSwapped := CFSwappedFloat32(arg);
1346 end;
1347
CFConvertFloatSwappedToHostnull1348 function CFConvertFloatSwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
1349 begin
1350 CFConvertFloatSwappedToHost := Float32(arg);
1351 end;
1352
CFConvertDoubleHostToSwappednull1353 function CFConvertDoubleHostToSwapped( arg: Float64): CFSwappedFloat64; inline;
1354 begin
1355 CFConvertDoubleHostToSwapped := CFSwappedFloat64(arg);
1356 end;
1357
CFConvertDoubleSwappedToHostnull1358 function CFConvertDoubleSwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
1359 begin
1360 CFConvertDoubleSwappedToHost := Float64(arg);
1361 end;
1362
1363 {$elsec}
1364
CFSwapInt16LittleToHostnull1365 function CFSwapInt16LittleToHost( arg: UInt16 ): UInt16; inline;
1366 begin
1367 CFSwapInt16LittleToHost := arg;
1368 end;
1369
CFSwapInt32LittleToHostnull1370 function CFSwapInt32LittleToHost( arg: UInt32 ): UInt32; inline;
1371 begin
1372 CFSwapInt32LittleToHost := arg;
1373 end;
1374
CFSwapInt64LittleToHostnull1375 function CFSwapInt64LittleToHost( arg: UInt64 ): UInt64; inline;
1376 begin
1377 CFSwapInt64LittleToHost := arg;
1378 end;
1379
CFSwapInt16HostToLittlenull1380 function CFSwapInt16HostToLittle( arg: UInt16 ): UInt16; inline;
1381 begin
1382 CFSwapInt16HostToLittle := arg;
1383 end;
1384
CFSwapInt32HostToLittlenull1385 function CFSwapInt32HostToLittle( arg: UInt32 ): UInt32; inline;
1386 begin
1387 CFSwapInt32HostToLittle := arg;
1388 end;
1389
CFSwapInt64HostToLittlenull1390 function CFSwapInt64HostToLittle( arg: UInt64 ): UInt64; inline;
1391 begin
1392 CFSwapInt64HostToLittle := arg;
1393 end;
1394
CFSwapInt16BigToHostnull1395 function CFSwapInt16BigToHost( arg: UInt16 ): UInt16; inline;
1396 begin
1397 CFSwapInt16BigToHost := CFSwapInt16(arg);
1398 end;
1399
CFSwapInt32BigToHostnull1400 function CFSwapInt32BigToHost( arg: UInt32 ): UInt32; inline;
1401 begin
1402 CFSwapInt32BigToHost := CFSwapInt32(arg);
1403 end;
1404
CFSwapInt64BigToHostnull1405 function CFSwapInt64BigToHost( arg: UInt64 ): UInt64; inline;
1406 begin
1407 CFSwapInt64BigToHost := CFSwapInt64(arg);
1408 end;
1409
CFSwapInt16HostToBignull1410 function CFSwapInt16HostToBig( arg: UInt16 ): UInt16; inline;
1411 begin
1412 CFSwapInt16HostToBig := CFSwapInt16(arg);
1413 end;
1414
CFSwapInt32HostToBignull1415 function CFSwapInt32HostToBig( arg: UInt32 ): UInt32; inline;
1416 begin
1417 CFSwapInt32HostToBig := CFSwapInt32(arg);
1418 end;
1419
CFSwapInt64HostToBignull1420 function CFSwapInt64HostToBig( arg: UInt64 ): UInt64; inline;
1421 begin
1422 CFSwapInt64HostToBig := CFSwapInt64(arg);
1423 end;
1424
CFConvertFloat32HostToSwappednull1425 function CFConvertFloat32HostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
1426 begin
1427 CFConvertFloat32HostToSwapped.v := CFSwapInt32(CFSwappedFloat32(arg).v);
1428 end;
1429
CFConvertFloat32SwappedToHostnull1430 function CFConvertFloat32SwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
1431 begin
1432 CFConvertFloat32SwappedToHost := Float32(CFSwappedFloat32(CFSwapInt32(arg.v)));
1433 end;
1434
CFConvertFloat64HostToSwappednull1435 function CFConvertFloat64HostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
1436 begin
1437 CFConvertFloat64HostToSwapped.v := CFSwapInt64(CFSwappedFloat64(arg).v);
1438 end;
1439
CFConvertFloat64SwappedToHostnull1440 function CFConvertFloat64SwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
1441 begin
1442 CFConvertFloat64SwappedToHost := Float64(CFSwappedFloat64(CFSwapInt64(arg.v)));
1443 end;
1444
CFConvertFloatHostToSwappednull1445 function CFConvertFloatHostToSwapped( arg: Float32 ): CFSwappedFloat32; inline;
1446 begin
1447 CFConvertFloatHostToSwapped.v := CFSwapInt32(CFSwappedFloat32(arg).v);
1448 end;
1449
CFConvertFloatSwappedToHostnull1450 function CFConvertFloatSwappedToHost( arg: CFSwappedFloat32 ): Float32; inline;
1451 begin
1452 CFConvertFloatSwappedToHost := Float32(CFSwappedFloat32(CFSwapInt32(arg.v)));
1453 end;
1454
CFConvertDoubleHostToSwappednull1455 function CFConvertDoubleHostToSwapped( arg: Float64 ): CFSwappedFloat64; inline;
1456 begin
1457 CFConvertDoubleHostToSwapped.v := CFSwapInt64(CFSwappedFloat64(arg).v);
1458 end;
1459
CFConvertDoubleSwappedToHostnull1460 function CFConvertDoubleSwappedToHost( arg: CFSwappedFloat64 ): Float64; inline;
1461 begin
1462 CFConvertDoubleSwappedToHost := Float64(CFSwappedFloat64(CFSwapInt64(arg.v)));
1463 end;
1464 {$endc}
1465
1466
1467 {implementation of unit CGGeometry}
1468
CGPointMakenull1469 function CGPointMake(x: CGFloat; y: CGFloat): CGPoint; inline;
1470 begin
1471 CGPointMake.x := x;
1472 CGPointMake.y := y;
1473 end;
1474
1475
CGSizeMakenull1476 function CGSizeMake(width: CGFloat; height: CGFloat): CGSize; inline;
1477 begin
1478 CGSizeMake.width := width;
1479 CGSizeMake.height := height;
1480 end;
1481
1482
CGVectorMakenull1483 function CGVectorMake(dx: CGFloat; dy: CGFloat): CGVector; inline;
1484 begin
1485 CGVectorMake.dx := dx;
1486 CGVectorMake.dy := dy;
1487 end;
1488
1489
CGRectMakenull1490 function CGRectMake(x: CGFloat; y: CGFloat; width: CGFloat; height: CGFloat): CGRect;
1491 begin
1492 CGRectMake.origin.x := x;
1493 CGRectMake.origin.y := y;
1494 CGRectMake.size.width := width;
1495 CGRectMake.size.height := height;
1496 end;
1497
1498
CGPointEqualToPointnull1499 function CGPointEqualToPoint(const point1: CGPoint; const point2: CGPoint): boolean; inline;
1500 begin
1501 CGPointEqualToPoint:=
1502 (point1.x = point2.x) and
1503 (point1.y = point2.y);
1504 end;
1505
1506
CGSizeEqualToSizenull1507 function CGSizeEqualToSize(size1: CGSize; size2: CGSize): boolean; inline;
1508 begin
1509 CGSizeEqualToSize:=
1510 (size1.width = size2.width) and
1511 (size1.height = size2.height);
1512 end;
1513
1514
1515 {implementation of unit Endian}
1516
1517 {$R-}
1518
Endian16_Swapnull1519 function Endian16_Swap( arg: UInt16 ): UInt16; inline;
1520 begin
1521 Endian16_Swap := (( arg shl 8) and $0FF00) or (( arg shr 8) and $00FF);
1522 end;
1523
Endian32_Swapnull1524 function Endian32_Swap( arg: UInt32 ): UInt32; inline;
1525 begin
1526 Endian32_Swap := ((arg and $FF) shl 24) or ((arg and $0FF00) shl 8) or ((arg shr 8) and $0FF00) or ((arg shr 24) and $FF);
1527 end;
1528
Endian64_Swap_Pascalnull1529 function Endian64_Swap_Pascal( arg: UInt64 ): UInt64; inline;
1530 begin
1531 Endian64_Swap_Pascal := (Endian32_Swap( arg and $FFFFFFFF ) shl 32) or Endian32_Swap( (arg shr 32) and $FFFFFFFF );
1532 end;
1533
Endian64_Swapnull1534 function Endian64_Swap( arg: UInt64 ): UInt64; inline;
1535 begin
1536 Endian64_Swap := Endian64_Swap_Pascal(arg);
1537 end;
1538
EndianS16_Swapnull1539 function EndianS16_Swap( arg: SInt16 ): SInt16; inline;
1540 begin
1541 EndianS16_Swap := (( arg shl 8) and $0FF00) or (( arg shr 8) and $00FF);
1542 end;
1543
EndianS32_Swapnull1544 function EndianS32_Swap( arg: SInt32 ): SInt32; inline;
1545 begin
1546 EndianS32_Swap := ((arg and $FF) shl 24) or ((arg and $0FF00) shl 8) or ((arg shr 8) and $0FF00) or ((arg shr 24) and $FF);
1547 end;
1548
EndianS64_Swapnull1549 function EndianS64_Swap( arg: SInt64 ): SInt64; inline;
1550 begin
1551 EndianS64_Swap := (SInt64( Endian32_Swap( arg and $FFFFFFFF ) ) shl 32) or Endian32_Swap( (arg shr 32) and $FFFFFFFF );
1552 end;
1553
1554 {$ifc TARGET_RT_BIG_ENDIAN}
EndianS16_BtoNnull1555 function EndianS16_BtoN( arg: SInt16 ): SInt16; inline;
1556 begin
1557 EndianS16_BtoN := arg;
1558 end;
1559
EndianS16_NtoBnull1560 function EndianS16_NtoB( arg: SInt16 ): SInt16; inline;
1561 begin
1562 EndianS16_NtoB := arg;
1563 end;
1564
EndianU16_BtoNnull1565 function EndianU16_BtoN( arg: UInt16 ): UInt16; inline;
1566 begin
1567 EndianU16_BtoN := arg;
1568 end;
1569
EndianU16_NtoBnull1570 function EndianU16_NtoB( arg: UInt16 ): UInt16; inline;
1571 begin
1572 EndianU16_NtoB := arg;
1573 end;
1574
EndianS32_BtoNnull1575 function EndianS32_BtoN( arg: SInt32 ): SInt32; inline;
1576 begin
1577 EndianS32_BtoN := arg;
1578 end;
1579
EndianS32_NtoBnull1580 function EndianS32_NtoB( arg: SInt32 ): SInt32; inline;
1581 begin
1582 EndianS32_NtoB := arg;
1583 end;
1584
EndianU32_BtoNnull1585 function EndianU32_BtoN( arg: UInt32 ): UInt32; inline;
1586 begin
1587 EndianU32_BtoN := arg;
1588 end;
1589
EndianU32_NtoBnull1590 function EndianU32_NtoB( arg: UInt32 ): UInt32; inline;
1591 begin
1592 EndianU32_NtoB := arg;
1593 end;
1594
EndianS64_BtoNnull1595 function EndianS64_BtoN( arg: SInt64 ): SInt64; inline;
1596 begin
1597 EndianS64_BtoN := arg;
1598 end;
1599
EndianS64_NtoBnull1600 function EndianS64_NtoB( arg: SInt64 ): SInt64; inline;
1601 begin
1602 EndianS64_NtoB := arg;
1603 end;
1604
EndianU64_BtoNnull1605 function EndianU64_BtoN( arg: UInt64 ): UInt64; inline;
1606 begin
1607 EndianU64_BtoN := arg;
1608 end;
1609
EndianU64_NtoBnull1610 function EndianU64_NtoB( arg: UInt64 ): UInt64; inline;
1611 begin
1612 EndianU64_NtoB := arg;
1613 end;
1614
EndianS16_LtoNnull1615 function EndianS16_LtoN( arg: SInt16 ): SInt16; inline;
1616 begin
1617 EndianS16_LtoN := EndianS16_Swap(arg);
1618 end;
1619
EndianS16_NtoLnull1620 function EndianS16_NtoL( arg: SInt16 ): SInt16; inline;
1621 begin
1622 EndianS16_NtoL := EndianS16_Swap(arg);
1623 end;
1624
EndianU16_LtoNnull1625 function EndianU16_LtoN( arg: UInt16 ): UInt16; inline;
1626 begin
1627 EndianU16_LtoN := Endian16_Swap(arg);
1628 end;
1629
EndianU16_NtoLnull1630 function EndianU16_NtoL( arg: UInt16 ): UInt16; inline;
1631 begin
1632 EndianU16_NtoL := Endian16_Swap(arg);
1633 end;
1634
EndianS32_LtoNnull1635 function EndianS32_LtoN( arg: SInt32 ): SInt32; inline;
1636 begin
1637 EndianS32_LtoN := EndianS32_Swap(arg);
1638 end;
1639
EndianS32_NtoLnull1640 function EndianS32_NtoL( arg: SInt32 ): SInt32; inline;
1641 begin
1642 EndianS32_NtoL := EndianS32_Swap(arg);
1643 end;
1644
EndianU32_LtoNnull1645 function EndianU32_LtoN( arg: UInt32 ): UInt32; inline;
1646 begin
1647 EndianU32_LtoN := Endian32_Swap(arg);
1648 end;
1649
EndianU32_NtoLnull1650 function EndianU32_NtoL( arg: UInt32 ): UInt32; inline;
1651 begin
1652 EndianU32_NtoL := Endian32_Swap(arg);
1653 end;
1654
1655
EndianS64_LtoNnull1656 function EndianS64_LtoN( arg: SInt64 ): SInt64; inline;
1657 begin
1658 EndianS64_LtoN := EndianS64_Swap(arg);
1659 end;
1660
EndianS64_NtoLnull1661 function EndianS64_NtoL( arg: SInt64 ): SInt64; inline;
1662 begin
1663 EndianS64_NtoL := EndianS64_Swap(arg);
1664 end;
1665
EndianU64_LtoNnull1666 function EndianU64_LtoN( arg: UInt64 ): UInt64; inline;
1667 begin
1668 EndianU64_LtoN := Endian64_Swap(arg);
1669 end;
1670
EndianU64_NtoLnull1671 function EndianU64_NtoL( arg: UInt64 ): UInt64; inline;
1672 begin
1673 EndianU64_NtoL := Endian64_Swap(arg);
1674 end;
1675
1676 {$elsec}
EndianS16_BtoNnull1677 function EndianS16_BtoN( arg: SInt16 ): SInt16; inline;
1678 begin
1679 EndianS16_BtoN := EndianS16_Swap(arg);
1680 end;
1681
EndianS16_NtoBnull1682 function EndianS16_NtoB( arg: SInt16 ): SInt16; inline;
1683 begin
1684 EndianS16_NtoB := EndianS16_Swap(arg);
1685 end;
1686
EndianU16_BtoNnull1687 function EndianU16_BtoN( arg: UInt16 ): UInt16; inline;
1688 begin
1689 EndianU16_BtoN := Endian16_Swap(arg);
1690 end;
1691
EndianU16_NtoBnull1692 function EndianU16_NtoB( arg: UInt16 ): UInt16; inline;
1693 begin
1694 EndianU16_NtoB := Endian16_Swap(arg);
1695 end;
1696
EndianS32_BtoNnull1697 function EndianS32_BtoN( arg: SInt32 ): SInt32; inline;
1698 begin
1699 EndianS32_BtoN := EndianS32_Swap(arg);
1700 end;
1701
EndianS32_NtoBnull1702 function EndianS32_NtoB( arg: SInt32 ): SInt32; inline;
1703 begin
1704 EndianS32_NtoB := EndianS32_Swap(arg);
1705 end;
1706
EndianU32_BtoNnull1707 function EndianU32_BtoN( arg: UInt32 ): UInt32; inline;
1708 begin
1709 EndianU32_BtoN := Endian32_Swap(arg);
1710 end;
1711
EndianU32_NtoBnull1712 function EndianU32_NtoB( arg: UInt32 ): UInt32; inline;
1713 begin
1714 EndianU32_NtoB := Endian32_Swap(arg);
1715 end;
1716
1717
EndianS64_BtoNnull1718 function EndianS64_BtoN( arg: SInt64 ): SInt64; inline;
1719 begin
1720 EndianS64_BtoN := EndianS64_Swap(arg);
1721 end;
1722
EndianS64_NtoBnull1723 function EndianS64_NtoB( arg: SInt64 ): SInt64; inline;
1724 begin
1725 EndianS64_NtoB := EndianS64_Swap(arg);
1726 end;
1727
EndianU64_BtoNnull1728 function EndianU64_BtoN( arg: UInt64 ): UInt64; inline;
1729 begin
1730 EndianU64_BtoN := Endian64_Swap(arg);
1731 end;
1732
EndianU64_NtoBnull1733 function EndianU64_NtoB( arg: UInt64 ): UInt64; inline;
1734 begin
1735 EndianU64_NtoB := Endian64_Swap(arg);
1736 end;
1737
EndianS16_LtoNnull1738 function EndianS16_LtoN( arg: SInt16 ): SInt16; inline;
1739 begin
1740 EndianS16_LtoN := arg;
1741 end;
1742
EndianS16_NtoLnull1743 function EndianS16_NtoL( arg: SInt16 ): SInt16; inline;
1744 begin
1745 EndianS16_NtoL := arg;
1746 end;
1747
EndianU16_LtoNnull1748 function EndianU16_LtoN( arg: UInt16 ): UInt16; inline;
1749 begin
1750 EndianU16_LtoN := arg;
1751 end;
1752
EndianU16_NtoLnull1753 function EndianU16_NtoL( arg: UInt16 ): UInt16; inline;
1754 begin
1755 EndianU16_NtoL := arg;
1756 end;
1757
EndianS32_LtoNnull1758 function EndianS32_LtoN( arg: SInt32 ): SInt32; inline;
1759 begin
1760 EndianS32_LtoN := arg;
1761 end;
1762
EndianS32_NtoLnull1763 function EndianS32_NtoL( arg: SInt32 ): SInt32; inline;
1764 begin
1765 EndianS32_NtoL := arg;
1766 end;
1767
EndianU32_LtoNnull1768 function EndianU32_LtoN( arg: UInt32 ): UInt32; inline;
1769 begin
1770 EndianU32_LtoN := arg;
1771 end;
1772
EndianU32_NtoLnull1773 function EndianU32_NtoL( arg: UInt32 ): UInt32; inline;
1774 begin
1775 EndianU32_NtoL := arg;
1776 end;
1777
EndianS64_LtoNnull1778 function EndianS64_LtoN( arg: SInt64 ): SInt64; inline;
1779 begin
1780 EndianS64_LtoN := arg;
1781 end;
1782
EndianS64_NtoLnull1783 function EndianS64_NtoL( arg: SInt64 ): SInt64; inline;
1784 begin
1785 EndianS64_NtoL := arg;
1786 end;
1787
EndianU64_LtoNnull1788 function EndianU64_LtoN( arg: UInt64 ): UInt64; inline;
1789 begin
1790 EndianU64_LtoN := arg;
1791 end;
1792
EndianU64_NtoLnull1793 function EndianU64_NtoL( arg: UInt64 ): UInt64; inline;
1794 begin
1795 EndianU64_NtoL := arg;
1796 end;
1797
1798 {$endc}
1799
EndianS16_LtoBnull1800 function EndianS16_LtoB( arg: SInt16 ): SInt16; inline;
1801 begin
1802 EndianS16_LtoB:=EndianS16_Swap(arg);
1803 end;
1804
EndianS16_BtoLnull1805 function EndianS16_BtoL( arg: SInt16 ): SInt16; inline;
1806 begin
1807 EndianS16_BtoL:=EndianS16_Swap(arg);
1808 end;
1809
EndianU16_LtoBnull1810 function EndianU16_LtoB( arg: UInt16 ): UInt16; inline;
1811 begin
1812 EndianU16_LtoB:=Endian16_Swap(arg);
1813 end;
1814
EndianU16_BtoLnull1815 function EndianU16_BtoL( arg: UInt16 ): UInt16; inline;
1816 begin
1817 EndianU16_BtoL:=Endian16_Swap(arg);
1818 end;
1819
EndianS32_LtoBnull1820 function EndianS32_LtoB( arg: SInt32 ): SInt32; inline;
1821 begin
1822 EndianS32_LtoB:=EndianS32_Swap(arg);
1823 end;
1824
EndianS32_BtoLnull1825 function EndianS32_BtoL( arg: SInt32 ): SInt32; inline;
1826 begin
1827 EndianS32_BtoL:=EndianS32_Swap(arg);
1828 end;
1829
EndianU32_LtoBnull1830 function EndianU32_LtoB( arg: UInt32 ): UInt32; inline;
1831 begin
1832 EndianU32_LtoB:=Endian32_Swap(arg);
1833 end;
1834
EndianU32_BtoLnull1835 function EndianU32_BtoL( arg: UInt32 ): UInt32; inline;
1836 begin
1837 EndianU32_BtoL:=Endian32_Swap(arg);
1838 end;
1839
EndianS64_LtoBnull1840 function EndianS64_LtoB( arg: SInt64 ): SInt64; inline;
1841 begin
1842 EndianS64_LtoB:=EndianS64_Swap(arg);
1843 end;
1844
EndianS64_BtoLnull1845 function EndianS64_BtoL( arg: SInt64 ): SInt64; inline;
1846 begin
1847 EndianS64_BtoL:=EndianS64_Swap(arg);
1848 end;
1849
EndianU64_LtoBnull1850 function EndianU64_LtoB( arg: UInt64 ): UInt64; inline;
1851 begin
1852 EndianU64_LtoB:=Endian64_Swap_Pascal(arg);
1853 end;
1854
EndianU64_BtoLnull1855 function EndianU64_BtoL( arg: UInt64 ): UInt64; inline;
1856 begin
1857 EndianU64_BtoL:=Endian64_Swap_Pascal(arg);
1858 end;
1859
1860
1861
1862 {implementation of unit IOKitReturn}
1863
1864
1865 {$push}
1866 {$R-,Q-}
1867
iokit_common_errnull1868 function iokit_common_err(ret: IOReturn): IOReturn; inline;
1869 begin
1870 iokit_common_err:=(sys_iokit or sub_iokit_common or (ret))
1871 end;
1872
iokit_family_errnull1873 function iokit_family_err(sub, ret: IOReturn): IOReturn; inline;
1874 begin
1875 iokit_family_err:=(sys_iokit or (sub) or (ret))
1876 end;
1877
iokit_vendor_specific_errnull1878 function iokit_vendor_specific_err(ret: IOReturn): IOReturn; inline;
1879 begin
1880 iokit_vendor_specific_err:=(sys_iokit or sub_iokit_vendor_specific or (ret))
1881 end;
1882
1883 {$pop}
1884
1885 {implementation of unit MIDIServices}
1886 {$ifc TARGET_OS_MAC}
1887
1888
1889 {$R-}
MIDIPacketNextnull1890 function MIDIPacketNext(pkt : MIDIPacketPtr) : MIDIPacketPtr; inline;
1891 begin
1892 MIDIPacketNext := MIDIPacketPtr(@pkt^.data[pkt^.length])
1893 end;
1894 {$endc} { TARGET_OS_MAC }
1895 {implementation of unit MIDIThruConnection}
1896 {$ifc TARGET_OS_MAC}
1897
1898
MIDIThruConnectionParamsSizenull1899 function MIDIThruConnectionParamsSize(ptr : MIDIThruConnectionParamsPtr) : size_t; inline;
1900 begin
1901 MIDIThruConnectionParamsSize := sizeof(MIDIThruConnectionParams) +
1902 (ptr^.numControlTransforms * sizeof(MIDIControlTransform)) +
1903 (ptr^.numMaps * sizeof(MIDIValueMap))
1904 end;
1905 {$endc} { TARGET_OS_MAC }
1906 {implementation of unit OSUtils}
1907
1908 {$ifc TARGET_OS_MAC}
1909
1910 {$R-}
1911
GetMMUModenull1912 function GetMMUMode: SInt8; inline;
1913 begin
1914 GetMMUMode:= true32b
1915 end;
1916
1917 procedure SwapMMUMode( var mode: SInt8 ); inline;
1918 begin
1919 mode := true32b;
1920 end;
1921
1922
1923 {$endc} {TARGET_OS_MAC}
1924
1925 {implementation of unit cssmapple}
1926
1927 {$ifc TARGET_OS_MAC}
1928
1929
1930
CSSM_ACL_AUTHORIZATION_PREAUTHnull1931 function CSSM_ACL_AUTHORIZATION_PREAUTH(slot: UInt32): UInt32; inline;
1932 begin
1933 CSSM_ACL_AUTHORIZATION_PREAUTH:=CSSM_ACL_AUTHORIZATION_PREAUTH_BASE + slot
1934 end;
1935
CSSM_ACL_AUTHORIZATION_PREAUTH_SLOTnull1936 function CSSM_ACL_AUTHORIZATION_PREAUTH_SLOT(auth: UInt32): UInt32; inline;
1937 begin
1938 CSSM_ACL_AUTHORIZATION_PREAUTH_SLOT:=auth - CSSM_ACL_AUTHORIZATION_PREAUTH_BASE
1939 end;
1940
CSSM_ACL_AUTHORIZATION_IS_PREAUTHnull1941 function CSSM_ACL_AUTHORIZATION_IS_PREAUTH(auth: UInt32): Boolean; inline;
1942 begin
1943 CSSM_ACL_AUTHORIZATION_IS_PREAUTH:=
1944 (auth >= CSSM_ACL_AUTHORIZATION_PREAUTH_BASE) and
1945 (auth < CSSM_ACL_AUTHORIZATION_PREAUTH_END)
1946 end;
1947
1948 {$endc} {TARGET_OS_MAC}
1949
1950 {implementation of unit CFString}
1951
1952
1953 {implementation of unit Events}
1954
1955 {$ifc TARGET_OS_MAC and not TARGET_CPU_64}
1956
1957
1958 {$ifc TARGET_RT_BIG_ENDIAN}
1959
1960 procedure GetKeys( var theKeys: KeyMap );
1961 var
1962 theReverseKeys: KeyMap;
1963 theKey: 0..127;
1964 begin
1965 __GetKeys( theReverseKeys);
1966 for theKey:= 0 to 127 do
1967 theKeys[ theKey]:= theReverseKeys[ ((theKey div 8) * 8) + (7 - (theKey mod 8))]
1968 end;
1969
1970 {$elsec}
1971
1972 procedure GetKeys( var theKeys: KeyMap );
1973 begin
1974 __GetKeys( theKeys)
1975 end;
1976
1977 {$endc}
1978
1979
1980 {$endc} {TARGET_OS_MAC and not TARGET_CPU_64}
1981
1982 {implementation of unit CFUserNotification}
1983
1984
1985 {$R-}
1986
CFUserNotificationCheckBoxCheckednull1987 function CFUserNotificationCheckBoxChecked( i: CFIndex ): CFOptionFlags; inline;
1988 begin
1989 CFUserNotificationCheckBoxChecked := CFOptionFlags(1 shl (8+i));
1990 end;
1991
CFUserNotificationSecureTextFieldnull1992 function CFUserNotificationSecureTextField( i: CFIndex ): CFOptionFlags; inline;
1993 begin
1994 CFUserNotificationSecureTextField := CFOptionFlags(1 shl (16+i));
1995 end;
1996
CFUserNotificationPopUpSelectionnull1997 function CFUserNotificationPopUpSelection( n: CFIndex ): CFOptionFlags; inline;
1998 begin
1999 CFUserNotificationPopUpSelection := CFOptionFlags(n shl 24);
2000 end;
2001
2002 {implementation of unit ToolUtils}
2003
2004 {$ifc TARGET_OS_MAC}
2005
2006
2007
HiWordnull2008 function HiWord(arg: SInt32): SInt16; inline;
2009 begin
2010 HiWord := arg shr 16;
2011 end;
2012
2013
HiWordnull2014 function HiWord(arg: UInt32): UInt16; inline;
2015 begin
2016 HiWord := arg shr 16;
2017 end;
2018
2019
LoWordnull2020 function LoWord(arg: SInt32): SInt16; inline;
2021 begin
2022 LoWord := SInt16(arg);
2023 end;
2024
2025
LoWordnull2026 function LoWord(arg: UInt32): UInt16; inline;
2027 begin
2028 LoWord := UInt16(arg);
2029 end;
2030
2031
2032 {$endc} {TARGET_OS_MAC}
2033
2034 {implementation of unit CFBundle}
2035
2036
2037 {$R-}
2038
CFCopyLocalizedStringnull2039 function CFCopyLocalizedString( key: CFStringRef; comment: PChar ): CFStringRef; inline;
2040 begin
2041 CFCopyLocalizedString := CFBundleCopyLocalizedString( CFBundleGetMainBundle, key, key, nil );
2042 end;
2043
CFCopyLocalizedStringFromTablenull2044 function CFCopyLocalizedStringFromTable( key: CFStringRef; tableName: CFStringRef; comment: PChar ): CFStringRef; inline;
2045 begin
2046 CFCopyLocalizedStringFromTable := CFBundleCopyLocalizedString( CFBundleGetMainBundle, key, key, tableName );
2047 end;
2048
CFCopyLocalizedStringFromTableInBundlenull2049 function CFCopyLocalizedStringFromTableInBundle( key: CFStringRef; tableName: CFStringRef; bundle: CFBundleRef; comment: PChar ): CFStringRef; inline;
2050 begin
2051 CFCopyLocalizedStringFromTableInBundle := CFBundleCopyLocalizedString( bundle, key, key, tableName );
2052 end;
2053
CFCopyLocalizedStringWithDefaultValuenull2054 function CFCopyLocalizedStringWithDefaultValue( key: CFStringRef; tableName: CFStringRef; bundle: CFBundleRef; value: CFStringRef; comment: PChar ): CFStringRef; inline;
2055 begin
2056 CFCopyLocalizedStringWithDefaultValue := CFBundleCopyLocalizedString( bundle, key, value, tableName );
2057 end;
2058
2059
2060 {implementation of unit CFPlugInCOM}
2061
2062
2063 {$R-}
2064
SUCCEEDEDnull2065 function SUCCEEDED( Status: HRESULT ): Boolean; inline;
2066 begin
2067 SUCCEEDED := Status >= 0;
2068 end;
2069
FAILEDnull2070 function FAILED( Status: HRESULT ): Boolean; inline;
2071 begin
2072 FAILED := Status < 0;
2073 end;
2074
IS_ERRORnull2075 function IS_ERROR( Status: HRESULT ): Boolean; inline;
2076 begin
2077 IS_ERROR := Status shr 31 = SEVERITY_ERROR;
2078 end;
2079
HRESULT_CODEnull2080 function HRESULT_CODE( hr: HRESULT ): HRESULT; inline;
2081 begin
2082 HRESULT_CODE := hr and $FFFF;
2083 end;
2084
HRESULT_FACILITYnull2085 function HRESULT_FACILITY( hr: HRESULT ): HRESULT; inline;
2086 begin
2087 HRESULT_FACILITY := (hr shr 16) and $1FFF;
2088 end;
2089
HRESULT_SEVERITYnull2090 function HRESULT_SEVERITY( hr: HRESULT ): HRESULT; inline;
2091 begin
2092 HRESULT_SEVERITY := (hr shr 31) and $01;
2093 end;
2094
MAKE_HRESULTnull2095 function MAKE_HRESULT( sev, fac, code: ULONG ): HRESULT; inline;
2096 begin
2097 MAKE_HRESULT := HRESULT((sev shl 31) or (fac shl 16) or code);
2098 end;
2099
IUnknownUUIDnull2100 function IUnknownUUID: CFUUIDRef; inline;
2101 begin
2102 IUnknownUUID:= CFUUIDGetConstantUUIDWithBytes( nil, $00, $00, $00, $00, $00, $00, $00, $00, $C0, $00, $00, $00, $00, $00, $00, $46 )
2103 end;
2104
2105
2106 {implementation of unit MDExternalDatastore}
2107
2108 {$ifc TARGET_OS_MAC}
2109
2110
kMDExternalDatastoreTypeIDnull2111 function kMDExternalDatastoreTypeID : CFUUIDRef; inline;
2112 begin
2113 kMDExternalDatastoreTypeID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault,$49,$68,$94,$B1,$00,$30,$47,$E0,$96,$11,$F2,$48,$FB,$E0,$B8,$CA)
2114 end;
2115
kMDExternalDatastoreStoreInterfaceIDnull2116 function kMDExternalDatastoreStoreInterfaceID : CFUUIDRef; inline;
2117 begin
2118 kMDExternalDatastoreStoreInterfaceID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault,$DA,$62,$12,$99,$ED,$BE,$4A,$63,$92,$39,$CB,$24,$13,$73,$E2,$07)
2119 end;
2120
2121 {$endc} {TARGET_OS_MAC}
2122
2123 {implementation of unit MDImporter}
2124
2125 {$ifc TARGET_OS_MAC}
2126
2127
kMDImporterTypeIDnull2128 function kMDImporterTypeID: CFUUIDRef; inline;
2129 begin
2130 kMDImporterTypeID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault,$8B,$08,$C4,$BF,$41,$5B,$11,$D8,$B3,$F9,$00,$03,$93,$67,$26,$FC)
2131 end;
2132
kMDImporterInterfaceIDnull2133 function kMDImporterInterfaceID: CFUUIDRef; inline;
2134 begin
2135 kMDImporterInterfaceID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault,$6E,$BC,$27,$C4,$89,$9C,$11,$D8,$84,$AE,$00,$03,$93,$67,$26,$FC)
2136 end;
2137
kMDExporterInterfaceIDnull2138 function kMDExporterInterfaceID: CFUUIDRef; inline;
2139 begin
2140 kMDExporterInterfaceID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault,$B4,$1C,$60,$74,$7D,$FB,$40,$57,$96,$9D,$31,$C8,$E8,$61,$A8,$D4)
2141 end;
2142
kMDImporterURLInterfaceIDnull2143 function kMDImporterURLInterfaceID: CFUUIDRef; inline;
2144 begin
2145 kMDImporterURLInterfaceID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault,$13,$F6,$0F,$02,$36,$22,$4F,$35,$98,$91,$EC,$10,$E6,$CD,$08,$F8)
2146 end;
2147
2148
2149
2150 {$endc} {TARGET_OS_MAC}
2151
2152 {implementation of unit MIDIDriver}
2153
2154 {$ifc TARGET_OS_MAC}
2155
2156
kMIDIDriverTypeIDnull2157 function kMIDIDriverTypeID : CFUUIDRef; inline;
2158 begin
2159 kMIDIDriverTypeID := CFUUIDGetConstantUUIDWithBytes(nil, $EC, $DE, $95, $74, $0F, $E4, $11, $D4, $BB, $1A, $00, $50, $E4, $CE, $A5, $26)
2160 end;
2161
kMIDIDriverInterfaceIDnull2162 function kMIDIDriverInterfaceID : CFUUIDRef; inline;
2163 begin
2164 kMIDIDriverInterfaceID := CFUUIDGetConstantUUIDWithBytes(nil, $49, $DF, $CA, $9E, $0F, $E5, $11, $D4, $95, $0D, $00, $50, $E4, $CE, $A5, $26)
2165 end;
2166
kMIDIDriverInterface2IDnull2167 function kMIDIDriverInterface2ID : CFUUIDRef; inline;
2168 begin
2169 kMIDIDriverInterface2ID := CFUUIDGetConstantUUIDWithBytes(nil, $43, $C9, $8C, $3C, $30, $6C, $11, $D5, $AF, $73, $00, $30, $65, $A8, $30, $1E)
2170 end;
2171 {$endc}
2172 {implementation of unit QLGenerator}
2173
2174 {$ifc TARGET_OS_MAC}
2175
2176
kQLGeneratorTypeIDnull2177 function kQLGeneratorTypeID : CFUUIDRef; inline;
2178 begin
2179 kQLGeneratorTypeID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault, $5E, $2D, $96, $80, $50, $22, $40, $FA, $B8, $06, $43, $34, $96, $22, $E5, $B9)
2180 end;
2181
kQLGeneratorCallbacksInterfaceIDnull2182 function kQLGeneratorCallbacksInterfaceID: CFUUIDRef; inline;
2183 begin
2184 kQLGeneratorCallbacksInterfaceID := CFUUIDGetConstantUUIDWithBytes(kCFAllocatorDefault, $86, $5A, $F5, $E0, $6D, $30, $43, $45, $95, $1B, $D3, $71, $05, $75, $4F, $2D)
2185 end;
2186
2187 {$endc} {TARGET_OS_MAC}
2188
2189 {implementation of unit Menus}
2190
2191 {$ifc TARGET_OS_MAC}
2192 {$ifc not TARGET_CPU_64}
2193
2194
2195
2196 procedure GetItemMark( theMenu: MenuRef; item: MenuItemIndex; var markChar: CharParameter ); inline;
2197 var
2198 markCharInt: UInt16;
2199 begin
2200 __GetItemMark( theMenu, item, markCharInt);
2201 markChar:= CharParameter( markCharInt)
2202 end;
2203
2204 procedure GetItemCmd( theMenu: MenuRef; item: MenuItemIndex; var cmdChar: CharParameter ); inline;
2205 var
2206 cmdCharInt: UInt16;
2207 begin
2208 __GetItemCmd( theMenu, item, cmdCharInt);
2209 cmdChar:= CharParameter( cmdCharInt)
2210 end;
2211
2212
2213 {$endc} {not TARGET_CPU_64}
2214
2215 {$endc} {TARGET_OS_MAC}
2216
2217 {implementation of unit AudioFile}
2218
NumBytesToNumAudioFileMarkersnull2219 function NumBytesToNumAudioFileMarkers(inNumBytes: size_t): size_t;
2220 begin
2221 if inNumBytes < size_t(@AudioFileMarkerListPtr(nil)^.mMarkers[0]) then
2222 NumBytesToNumAudioFileMarkers := 0
2223 else
2224 NumBytesToNumAudioFileMarkers := inNumBytes - size_t(@AudioFileMarkerListPtr(nil)^.mMarkers[0])
2225 end;
2226
2227
NumAudioFileMarkersToNumBytesnull2228 function NumAudioFileMarkersToNumBytes(inNumMarkers: size_t): size_t;
2229 begin
2230 NumAudioFileMarkersToNumBytes := size_t(@AudioFileMarkerListPtr(nil)^.mMarkers[0]) + (inNumMarkers) * sizeof(AudioFileMarker);
2231 end;
2232
2233
NextAudioFileRegionnull2234 function NextAudioFileRegion(const {var} inAFRegionPtr: AudioFileRegion): AudioFileRegionPtr;
2235 begin
2236 NextAudioFileRegion := AudioFileRegionPtr(
2237 Pointer(@inAFRegionPtr) +
2238 MacPtrUInt(@AudioFileRegionPtr(nil)^.mMarkers) +
2239 (inAFRegionPtr.mNumberMarkers*sizeof(AudioFileMarker))
2240 );
2241 end;
2242
2243 {implementation of unit AudioUnitProperties}
2244
2245
GetAudioUnitParameterDisplayTypenull2246 function GetAudioUnitParameterDisplayType(flags : UInt32) : UInt32; inline;
2247 begin
2248 GetAudioUnitParameterDisplayType := flags and kAudioUnitParameterFlag_DisplayMask
2249 end;
2250
AudioUnitDisplayTypeIsLogarithmicnull2251 function AudioUnitDisplayTypeIsLogarithmic(flags : UInt32) : Boolean; inline;
2252 begin
2253 AudioUnitDisplayTypeIsLogarithmic := GetAudioUnitParameterDisplayType(flags) = kAudioUnitParameterFlag_DisplayLogarithmic
2254 end;
2255
AudioUnitDisplayTypeIsSquareRootnull2256 function AudioUnitDisplayTypeIsSquareRoot(flags : UInt32) : Boolean; inline;
2257 begin
2258 AudioUnitDisplayTypeIsSquareRoot := GetAudioUnitParameterDisplayType(flags) = kAudioUnitParameterFlag_DisplaySquareRoot
2259 end;
2260
AudioUnitDisplayTypeIsSquarednull2261 function AudioUnitDisplayTypeIsSquared(flags : UInt32) : Boolean; inline;
2262 begin
2263 AudioUnitDisplayTypeIsSquared := GetAudioUnitParameterDisplayType(flags) = kAudioUnitParameterFlag_DisplaySquared
2264 end;
2265
AudioUnitDisplayTypeIsCubednull2266 function AudioUnitDisplayTypeIsCubed(flags : UInt32) : Boolean; inline;
2267 begin
2268 AudioUnitDisplayTypeIsCubed := GetAudioUnitParameterDisplayType(flags) = kAudioUnitParameterFlag_DisplayCubed
2269 end;
2270
AudioUnitDisplayTypeIsCubeRootnull2271 function AudioUnitDisplayTypeIsCubeRoot(flags : UInt32) : Boolean; inline;
2272 begin
2273 AudioUnitDisplayTypeIsCubeRoot := GetAudioUnitParameterDisplayType(flags) = kAudioUnitParameterFlag_DisplayCubeRoot
2274 end;
2275
AudioUnitDisplayTypeIsExponentialnull2276 function AudioUnitDisplayTypeIsExponential(flags : UInt32) : Boolean; inline;
2277 begin
2278 AudioUnitDisplayTypeIsExponential := GetAudioUnitParameterDisplayType(flags) = kAudioUnitParameterFlag_DisplayExponential
2279 end;
2280
2281 procedure SetAudioUnitParameterDisplayType(var flags : UInt32; displayType : UInt32); inline;
2282 begin
2283 flags := (flags and (not kAudioUnitParameterFlag_DisplayMask)) or displayType
2284 end;
2285
2286
2287 end.
2288