Components.pas 40 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220221222223224225226227228229230231232233234235236237238239240241242243244245246247248249250251252253254255256257258259260261262263264265266267268269270271272273274275276277278279280281282283284285286287288289290291292293294295296297298299300301302303304305306307308309310311312313314315316317318319320321322323324325326327328329330331332333334335336337338339340341342343344345346347348349350351352353354355356357358359360361362363364365366367368369370371372373374375376377378379380381382383384385386387388389390391392393394395396397398399400401402403404405406407408409410411412413414415416417418419420421422423424425426427428429430431432433434435436437438439440441442443444445446447448449450451452453454455456457458459460461462463464465466467468469470471472473474475476477478479480481482483484485486487488489490491492493494495496497498499500501502503504505506507508509510511512513514515516517518519520521522523524525526527528529530531532533534535536537538539540541542543544545546547548549550551552553554555556557558559560561562563564565566567568569570571572573574575576577578579580581582583584585586587588589590591592593594595596597598599600601602603604605606607608609610611612613614615616617618619620621622623624625626627628629630631632633634635636637638639640641642643644645646647648649650651652653654655656657658659660661662663664665666667668669670671672673674675676677678679680681682683684685686687688689690691692693694695696697698699700701702703704705706707708709710711712713714715716717718719720721722723724725726727728729730731732733734735736737738739740741742743744745746747748749750751752753754755756757758759760761762763764765766767768769770771772773774775776777778779780781782783784785786787788789790791792793794795796797798799800801802803804805806807808809810811812813814815816817818819820821822823824825826827828829830831832833834835836837838839840841842843844845846847848849850851852853854855856857858859860861862863864865866867868869870871872873874875876877878879880881882883884885886887888889890891892893894895896897898899900901902903904905906907908909910911912913914915916917918919920921922923924925926927928929930931932933934935936937938939940941942943944945946947948949950951952953954955956957958959960961962963964965966967968969970971972973974975976977978979980981982983984985986987988989990991992993994995996997998999100010011002100310041005100610071008100910101011101210131014101510161017101810191020102110221023102410251026102710281029103010311032103310341035103610371038103910401041104210431044104510461047104810491050105110521053105410551056
  1. {
  2. File: Components.p
  3. Contains: Component Manager Interfaces.
  4. Version: Technology: QuickTime 5.0
  5. Release: Universal Interfaces 3.4.2
  6. Copyright: © 1991-2002 by Apple Computer, Inc., all rights reserved.
  7. Bugs?: For bug reports, consult the following page on
  8. the World Wide Web:
  9. http://www.freepascal.org/bugs.html
  10. }
  11. {
  12. Modified for use with Free Pascal
  13. Version 200
  14. Please report any bugs to <[email protected]>
  15. }
  16. {$mode macpas}
  17. {$packenum 1}
  18. {$macro on}
  19. {$inline on}
  20. {$CALLING MWPASCAL}
  21. unit Components;
  22. interface
  23. {$setc UNIVERSAL_INTERFACES_VERSION := $0342}
  24. {$setc GAP_INTERFACES_VERSION := $0200}
  25. {$ifc not defined USE_CFSTR_CONSTANT_MACROS}
  26. {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
  27. {$endc}
  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. {$ifc not defined __ppc__ and defined CPUPOWERPC}
  35. {$setc __ppc__ := 1}
  36. {$elsec}
  37. {$setc __ppc__ := 0}
  38. {$endc}
  39. {$ifc not defined __i386__ and defined CPUI386}
  40. {$setc __i386__ := 1}
  41. {$elsec}
  42. {$setc __i386__ := 0}
  43. {$endc}
  44. {$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
  45. {$error Conflicting definitions for __ppc__ and __i386__}
  46. {$endc}
  47. {$ifc defined __ppc__ and __ppc__}
  48. {$setc TARGET_CPU_PPC := TRUE}
  49. {$setc TARGET_CPU_X86 := FALSE}
  50. {$elifc defined __i386__ and __i386__}
  51. {$setc TARGET_CPU_PPC := FALSE}
  52. {$setc TARGET_CPU_X86 := TRUE}
  53. {$elsec}
  54. {$error Neither __ppc__ nor __i386__ is defined.}
  55. {$endc}
  56. {$setc TARGET_CPU_PPC_64 := FALSE}
  57. {$ifc defined FPC_BIG_ENDIAN}
  58. {$setc TARGET_RT_BIG_ENDIAN := TRUE}
  59. {$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
  60. {$elifc defined FPC_LITTLE_ENDIAN}
  61. {$setc TARGET_RT_BIG_ENDIAN := FALSE}
  62. {$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
  63. {$elsec}
  64. {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
  65. {$endc}
  66. {$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
  67. {$setc CALL_NOT_IN_CARBON := FALSE}
  68. {$setc OLDROUTINENAMES := FALSE}
  69. {$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
  70. {$setc OPAQUE_UPP_TYPES := TRUE}
  71. {$setc OTCARBONAPPLICATION := TRUE}
  72. {$setc OTKERNEL := FALSE}
  73. {$setc PM_USE_SESSION_APIS := TRUE}
  74. {$setc TARGET_API_MAC_CARBON := TRUE}
  75. {$setc TARGET_API_MAC_OS8 := FALSE}
  76. {$setc TARGET_API_MAC_OSX := TRUE}
  77. {$setc TARGET_CARBON := TRUE}
  78. {$setc TARGET_CPU_68K := FALSE}
  79. {$setc TARGET_CPU_MIPS := FALSE}
  80. {$setc TARGET_CPU_SPARC := FALSE}
  81. {$setc TARGET_OS_MAC := TRUE}
  82. {$setc TARGET_OS_UNIX := FALSE}
  83. {$setc TARGET_OS_WIN32 := FALSE}
  84. {$setc TARGET_RT_MAC_68881 := FALSE}
  85. {$setc TARGET_RT_MAC_CFM := FALSE}
  86. {$setc TARGET_RT_MAC_MACHO := TRUE}
  87. {$setc TYPED_FUNCTION_POINTERS := TRUE}
  88. {$setc TYPE_BOOL := FALSE}
  89. {$setc TYPE_EXTENDED := FALSE}
  90. {$setc TYPE_LONGLONG := TRUE}
  91. uses MacTypes,MacErrors,MixedMode,Files;
  92. {$ALIGN MAC68K}
  93. const
  94. kAppleManufacturer = $6170706C (* 'appl' *); { Apple supplied components }
  95. kComponentResourceType = $74686E67 (* 'thng' *); { a components resource type }
  96. kComponentAliasResourceType = $74686761 (* 'thga' *); { component alias resource type }
  97. kAnyComponentType = 0;
  98. kAnyComponentSubType = 0;
  99. kAnyComponentManufacturer = 0;
  100. kAnyComponentFlagsMask = 0;
  101. cmpIsMissing = $20000000;
  102. cmpWantsRegisterMessage = $80000000;
  103. kComponentOpenSelect = -1; { ComponentInstance for this open }
  104. kComponentCloseSelect = -2; { ComponentInstance for this close }
  105. kComponentCanDoSelect = -3; { selector # being queried }
  106. kComponentVersionSelect = -4; { no params }
  107. kComponentRegisterSelect = -5; { no params }
  108. kComponentTargetSelect = -6; { ComponentInstance for top of call chain }
  109. kComponentUnregisterSelect = -7; { no params }
  110. kComponentGetMPWorkFunctionSelect = -8; { some params }
  111. kComponentExecuteWiredActionSelect = -9; { QTAtomContainer actionContainer, QTAtom actionAtom, QTCustomActionTargetPtr target, QTEventRecordPtr event }
  112. kComponentGetPublicResourceSelect = -10; { OSType resourceType, short resourceId, Handle *resource }
  113. { Component Resource Extension flags }
  114. componentDoAutoVersion = $01;
  115. componentWantsUnregister = $02;
  116. componentAutoVersionIncludeFlags = $04;
  117. componentHasMultiplePlatforms = $08;
  118. componentLoadResident = $10;
  119. { Set Default Component flags }
  120. defaultComponentIdentical = 0;
  121. defaultComponentAnyFlags = 1;
  122. defaultComponentAnyManufacturer = 2;
  123. defaultComponentAnySubType = 4;
  124. defaultComponentAnyFlagsAnyManufacturer = 3;
  125. defaultComponentAnyFlagsAnyManufacturerAnySubType = 7;
  126. { RegisterComponentResource flags }
  127. registerComponentGlobal = 1;
  128. registerComponentNoDuplicates = 2;
  129. registerComponentAfterExisting = 4;
  130. registerComponentAliasesOnly = 8;
  131. type
  132. ComponentDescriptionPtr = ^ComponentDescription;
  133. ComponentDescription = record
  134. componentType: OSType; { A unique 4-byte code indentifying the command set }
  135. componentSubType: OSType; { Particular flavor of this instance }
  136. componentManufacturer: OSType; { Vendor indentification }
  137. componentFlags: UInt32; { 8 each for Component,Type,SubType,Manuf/revision }
  138. componentFlagsMask: UInt32; { Mask for specifying which flags to consider in search, zero during registration }
  139. end;
  140. ResourceSpecPtr = ^ResourceSpec;
  141. ResourceSpec = record
  142. resType: OSType; { 4-byte code }
  143. resID: SInt16; { }
  144. end;
  145. ComponentResourcePtr = ^ComponentResource;
  146. ComponentResource = record
  147. cd: ComponentDescription; { Registration parameters }
  148. component: ResourceSpec; { resource where Component code is found }
  149. componentName: ResourceSpec; { name string resource }
  150. componentInfo: ResourceSpec; { info string resource }
  151. componentIcon: ResourceSpec; { icon resource }
  152. end;
  153. ComponentResourceHandle = ^ComponentResourcePtr;
  154. ComponentPlatformInfoPtr = ^ComponentPlatformInfo;
  155. ComponentPlatformInfo = record
  156. componentFlags: SInt32; { flags of Component }
  157. component: ResourceSpec; { resource where Component code is found }
  158. platformType: SInt16; { gestaltSysArchitecture result }
  159. end;
  160. ComponentResourceExtensionPtr = ^ComponentResourceExtension;
  161. ComponentResourceExtension = record
  162. componentVersion: SInt32; { version of Component }
  163. componentRegisterFlags: SInt32; { flags for registration }
  164. componentIconFamily: SInt16; { resource id of Icon Family }
  165. end;
  166. ComponentPlatformInfoArrayPtr = ^ComponentPlatformInfoArray;
  167. ComponentPlatformInfoArray = record
  168. count: SInt32;
  169. platformArray: array [0..0] of ComponentPlatformInfo;
  170. end;
  171. ExtComponentResourcePtr = ^ExtComponentResource;
  172. ExtComponentResource = record
  173. cd: ComponentDescription; { registration parameters }
  174. component: ResourceSpec; { resource where Component code is found }
  175. componentName: ResourceSpec; { name string resource }
  176. componentInfo: ResourceSpec; { info string resource }
  177. componentIcon: ResourceSpec; { icon resource }
  178. componentVersion: SInt32; { version of Component }
  179. componentRegisterFlags: SInt32; { flags for registration }
  180. componentIconFamily: SInt16; { resource id of Icon Family }
  181. count: SInt32; { elements in platformArray }
  182. platformArray: array [0..0] of ComponentPlatformInfo;
  183. end;
  184. ExtComponentResourceHandle = ^ExtComponentResourcePtr;
  185. ComponentAliasResourcePtr = ^ComponentAliasResource;
  186. ComponentAliasResource = record
  187. cr: ComponentResource; { Registration parameters }
  188. aliasCD: ComponentDescription; { component alias description }
  189. end;
  190. { Structure received by Component: }
  191. ComponentParametersPtr = ^ComponentParameters;
  192. ComponentParameters = packed record
  193. flags: UInt8; { call modifiers: sync/async, deferred, immed, etc }
  194. paramSize: UInt8; { size in bytes of actual parameters passed to this call }
  195. what: SInt16; { routine selector, negative for Component management calls }
  196. params: array [0..0] of SInt32; { actual parameters for the indicated routine }
  197. end;
  198. ComponentRecordPtr = ^ComponentRecord;
  199. ComponentRecord = record
  200. data: array [0..0] of SInt32;
  201. end;
  202. Component = ^ComponentRecord;
  203. ComponentInstanceRecordPtr = ^ComponentInstanceRecord;
  204. ComponentInstanceRecord = record
  205. data: array [0..0] of SInt32;
  206. end;
  207. ComponentInstance = ^ComponentInstanceRecord;
  208. RegisteredComponentRecordPtr = ^RegisteredComponentRecord;
  209. RegisteredComponentRecord = record
  210. data: array [0..0] of SInt32;
  211. end;
  212. RegisteredComponentInstanceRecordPtr = ^RegisteredComponentInstanceRecord;
  213. RegisteredComponentInstanceRecord = record
  214. data: array [0..0] of SInt32;
  215. end;
  216. ComponentResult = SInt32;
  217. const
  218. platform68k = 1; { platform type (response from gestaltComponentPlatform) }
  219. platformPowerPC = 2; { (when gestaltComponentPlatform is not implemented, use }
  220. platformInterpreted = 3; { gestaltSysArchitecture) }
  221. platformWin32 = 4;
  222. platformPowerPCNativeEntryPoint = 5;
  223. mpWorkFlagDoWork = $01;
  224. mpWorkFlagDoCompletion = $02;
  225. mpWorkFlagCopyWorkBlock = $04;
  226. mpWorkFlagDontBlock = $08;
  227. mpWorkFlagGetProcessorCount = $10;
  228. mpWorkFlagGetIsRunning = $40;
  229. cmpAliasNoFlags = 0;
  230. cmpAliasOnlyThisFile = 1;
  231. type
  232. ComponentMPWorkFunctionHeaderRecordPtr = ^ComponentMPWorkFunctionHeaderRecord;
  233. ComponentMPWorkFunctionHeaderRecord = record
  234. headerSize: UInt32;
  235. recordSize: UInt32;
  236. workFlags: UInt32;
  237. processorCount: UInt16;
  238. unused: SInt8;
  239. isRunning: SInt8;
  240. end;
  241. {$ifc TYPED_FUNCTION_POINTERS}
  242. ComponentMPWorkFunctionProcPtr = function(globalRefCon: UnivPtr; header: ComponentMPWorkFunctionHeaderRecordPtr): ComponentResult;
  243. {$elsec}
  244. ComponentMPWorkFunctionProcPtr = ProcPtr;
  245. {$endc}
  246. {$ifc TYPED_FUNCTION_POINTERS}
  247. ComponentRoutineProcPtr = function(var cp: ComponentParameters; componentStorage: Handle): ComponentResult;
  248. {$elsec}
  249. ComponentRoutineProcPtr = ProcPtr;
  250. {$endc}
  251. {$ifc TYPED_FUNCTION_POINTERS}
  252. GetMissingComponentResourceProcPtr = function(c: Component; resType: OSType; resID: SInt16; refCon: UnivPtr; var resource: Handle): OSErr;
  253. {$elsec}
  254. GetMissingComponentResourceProcPtr = ProcPtr;
  255. {$endc}
  256. {$ifc OPAQUE_UPP_TYPES}
  257. ComponentMPWorkFunctionUPP = ^SInt32; { an opaque UPP }
  258. {$elsec}
  259. ComponentMPWorkFunctionUPP = UniversalProcPtr;
  260. {$endc}
  261. {$ifc OPAQUE_UPP_TYPES}
  262. ComponentRoutineUPP = ^SInt32; { an opaque UPP }
  263. {$elsec}
  264. ComponentRoutineUPP = UniversalProcPtr;
  265. {$endc}
  266. {$ifc OPAQUE_UPP_TYPES}
  267. GetMissingComponentResourceUPP = ^SInt32; { an opaque UPP }
  268. {$elsec}
  269. GetMissingComponentResourceUPP = UniversalProcPtr;
  270. {$endc}
  271. {
  272. The parameter list for each ComponentFunction is unique. It is
  273. therefore up to users to create the appropriate procInfo for their
  274. own ComponentFunctions where necessary.
  275. }
  276. ComponentFunctionUPP = UniversalProcPtr;
  277. {
  278. * NewComponentFunctionUPP()
  279. *
  280. * Discussion:
  281. * For use in writing a Carbon compliant Component. It is used to
  282. * create a ComponentFunctionUPP needed to call
  283. * CallComponentFunction in the Components dispatch routine.
  284. *
  285. * Availability:
  286. * Non-Carbon CFM: available as macro/inline
  287. * CarbonLib: in CarbonLib 1.0 and later
  288. * Mac OS X: in version 10.0 and later
  289. }
  290. function NewComponentFunctionUPP(userRoutine: ProcPtr; procInfo: ProcInfoType): ComponentFunctionUPP; external name '_NewComponentFunctionUPP';
  291. {
  292. * DisposeComponentFunctionUPP()
  293. *
  294. * Discussion:
  295. * For use in writing a Carbon compliant Component. It is used to
  296. * dispose of a ComponentFunctionUPP created by
  297. * NewComponentFunctionUPP.
  298. *
  299. * Availability:
  300. * Non-Carbon CFM: available as macro/inline
  301. * CarbonLib: in CarbonLib 1.0 and later
  302. * Mac OS X: in version 10.0 and later
  303. }
  304. procedure DisposeComponentFunctionUPP(userUPP: ComponentFunctionUPP); external name '_DisposeComponentFunctionUPP';
  305. {
  306. * CallComponentUPP
  307. *
  308. * Availability:
  309. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  310. * CarbonLib: not available
  311. * Mac OS X: not available
  312. }
  313. {*******************************************************
  314. * *
  315. * APPLICATION LEVEL CALLS *
  316. * *
  317. *******************************************************}
  318. {*******************************************************
  319. * Component Database Add, Delete, and Query Routines
  320. *******************************************************}
  321. {
  322. * RegisterComponent()
  323. *
  324. * Availability:
  325. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  326. * CarbonLib: in CarbonLib 1.0 and later
  327. * Mac OS X: in version 10.0 and later
  328. * Windows: in qtmlClient.lib 3.0 and later
  329. }
  330. function RegisterComponent(var cd: ComponentDescription; componentEntryPoint: ComponentRoutineUPP; global: SInt16; componentName: Handle; componentInfo: Handle; componentIcon: Handle): Component; external name '_RegisterComponent';
  331. {
  332. * RegisterComponentResource()
  333. *
  334. * Availability:
  335. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  336. * CarbonLib: in CarbonLib 1.0 and later
  337. * Mac OS X: in version 10.0 and later
  338. * Windows: in qtmlClient.lib 3.0 and later
  339. }
  340. function RegisterComponentResource(cr: ComponentResourceHandle; global: SInt16): Component; external name '_RegisterComponentResource';
  341. {
  342. * UnregisterComponent()
  343. *
  344. * Availability:
  345. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  346. * CarbonLib: in CarbonLib 1.0 and later
  347. * Mac OS X: in version 10.0 and later
  348. * Windows: in qtmlClient.lib 3.0 and later
  349. }
  350. function UnregisterComponent(aComponent: Component): OSErr; external name '_UnregisterComponent';
  351. {
  352. * FindNextComponent()
  353. *
  354. * Availability:
  355. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  356. * CarbonLib: in CarbonLib 1.0 and later
  357. * Mac OS X: in version 10.0 and later
  358. * Windows: in qtmlClient.lib 3.0 and later
  359. }
  360. function FindNextComponent(aComponent: Component; var looking: ComponentDescription): Component; external name '_FindNextComponent';
  361. {
  362. * CountComponents()
  363. *
  364. * Availability:
  365. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  366. * CarbonLib: in CarbonLib 1.0 and later
  367. * Mac OS X: in version 10.0 and later
  368. * Windows: in qtmlClient.lib 3.0 and later
  369. }
  370. function CountComponents(var looking: ComponentDescription): SInt32; external name '_CountComponents';
  371. {
  372. * GetComponentInfo()
  373. *
  374. * Availability:
  375. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  376. * CarbonLib: in CarbonLib 1.0 and later
  377. * Mac OS X: in version 10.0 and later
  378. * Windows: in qtmlClient.lib 3.0 and later
  379. }
  380. function GetComponentInfo(aComponent: Component; var cd: ComponentDescription; componentName: Handle; componentInfo: Handle; componentIcon: Handle): OSErr; external name '_GetComponentInfo';
  381. {
  382. * GetComponentListModSeed()
  383. *
  384. * Availability:
  385. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  386. * CarbonLib: in CarbonLib 1.0 and later
  387. * Mac OS X: in version 10.0 and later
  388. * Windows: in qtmlClient.lib 3.0 and later
  389. }
  390. function GetComponentListModSeed: SInt32; external name '_GetComponentListModSeed';
  391. {
  392. * GetComponentTypeModSeed()
  393. *
  394. * Availability:
  395. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  396. * CarbonLib: in CarbonLib 1.0 and later
  397. * Mac OS X: in version 10.0 and later
  398. * Windows: in qtmlClient.lib 3.0 and later
  399. }
  400. function GetComponentTypeModSeed(componentType: OSType): SInt32; external name '_GetComponentTypeModSeed';
  401. {*******************************************************
  402. * Component Instance Allocation and dispatch routines
  403. *******************************************************}
  404. {
  405. * OpenAComponent()
  406. *
  407. * Availability:
  408. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  409. * CarbonLib: in CarbonLib 1.0 and later
  410. * Mac OS X: in version 10.0 and later
  411. * Windows: in qtmlClient.lib 3.0 and later
  412. }
  413. function OpenAComponent(aComponent: Component; var ci: ComponentInstance): OSErr; external name '_OpenAComponent';
  414. {
  415. * OpenComponent()
  416. *
  417. * Availability:
  418. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  419. * CarbonLib: in CarbonLib 1.0 and later
  420. * Mac OS X: in version 10.0 and later
  421. * Windows: in qtmlClient.lib 3.0 and later
  422. }
  423. function OpenComponent(aComponent: Component): ComponentInstance; external name '_OpenComponent';
  424. {
  425. * CloseComponent()
  426. *
  427. * Availability:
  428. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  429. * CarbonLib: in CarbonLib 1.0 and later
  430. * Mac OS X: in version 10.0 and later
  431. * Windows: in qtmlClient.lib 3.0 and later
  432. }
  433. function CloseComponent(aComponentInstance: ComponentInstance): OSErr; external name '_CloseComponent';
  434. {
  435. * GetComponentInstanceError()
  436. *
  437. * Availability:
  438. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  439. * CarbonLib: in CarbonLib 1.0 and later
  440. * Mac OS X: in version 10.0 and later
  441. * Windows: in qtmlClient.lib 3.0 and later
  442. }
  443. function GetComponentInstanceError(aComponentInstance: ComponentInstance): OSErr; external name '_GetComponentInstanceError';
  444. {*******************************************************
  445. * Component aliases
  446. *******************************************************}
  447. {
  448. * ResolveComponentAlias()
  449. *
  450. * Availability:
  451. * Non-Carbon CFM: in InterfaceLib via QuickTime 3.0 and later
  452. * CarbonLib: in CarbonLib 1.0 and later
  453. * Mac OS X: in version 10.0 and later
  454. * Windows: in qtmlClient.lib 3.0 and later
  455. }
  456. function ResolveComponentAlias(aComponent: Component): Component; external name '_ResolveComponentAlias';
  457. {*******************************************************
  458. * Component public resources and public string lists
  459. *******************************************************}
  460. { Note: GetComponentPublicResource returns a Handle, not a resource. The caller must dispose it with DisposeHandle. }
  461. {
  462. * GetComponentPublicResource()
  463. *
  464. * Availability:
  465. * Non-Carbon CFM: in InterfaceLib via QuickTime 4.0 and later
  466. * CarbonLib: in CarbonLib 1.0.2 and later
  467. * Mac OS X: in version 10.0 and later
  468. }
  469. function GetComponentPublicResource(aComponent: Component; resourceType: OSType; resourceID: SInt16; var theResource: Handle): OSErr; external name '_GetComponentPublicResource';
  470. {
  471. * GetComponentPublicResourceList()
  472. *
  473. * Availability:
  474. * Non-Carbon CFM: in InterfaceLib via QuickTime 4.0 and later
  475. * CarbonLib: in CarbonLib 1.0.2 and later
  476. * Mac OS X: in version 10.0 and later
  477. }
  478. function GetComponentPublicResourceList(resourceType: OSType; resourceID: SInt16; flags: SInt32; var cd: ComponentDescription; missingProc: GetMissingComponentResourceUPP; refCon: UnivPtr; atomContainerPtr: UnivPtr): OSErr; external name '_GetComponentPublicResourceList';
  479. {
  480. * GetComponentPublicIndString()
  481. *
  482. * Availability:
  483. * Non-Carbon CFM: in InterfaceLib via QuickTime 4.0 and later
  484. * CarbonLib: in CarbonLib 1.3 and later
  485. * Mac OS X: in version 10.0 and later
  486. }
  487. function GetComponentPublicIndString(aComponent: Component; var theString: Str255; strListID: SInt16; index: SInt16): OSErr; external name '_GetComponentPublicIndString';
  488. {*******************************************************
  489. * *
  490. * CALLS MADE BY COMPONENTS *
  491. * *
  492. *******************************************************}
  493. {*******************************************************
  494. * Component Management routines
  495. *******************************************************}
  496. {
  497. * SetComponentInstanceError()
  498. *
  499. * Availability:
  500. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  501. * CarbonLib: in CarbonLib 1.0 and later
  502. * Mac OS X: in version 10.0 and later
  503. * Windows: in qtmlClient.lib 3.0 and later
  504. }
  505. procedure SetComponentInstanceError(aComponentInstance: ComponentInstance; theError: OSErr); external name '_SetComponentInstanceError';
  506. {
  507. * GetComponentRefcon()
  508. *
  509. * Availability:
  510. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  511. * CarbonLib: in CarbonLib 1.0 and later
  512. * Mac OS X: in version 10.0 and later
  513. * Windows: in qtmlClient.lib 3.0 and later
  514. }
  515. function GetComponentRefcon(aComponent: Component): SInt32; external name '_GetComponentRefcon';
  516. {
  517. * SetComponentRefcon()
  518. *
  519. * Availability:
  520. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  521. * CarbonLib: in CarbonLib 1.0 and later
  522. * Mac OS X: in version 10.0 and later
  523. * Windows: in qtmlClient.lib 3.0 and later
  524. }
  525. procedure SetComponentRefcon(aComponent: Component; theRefcon: SInt32); external name '_SetComponentRefcon';
  526. {
  527. * OpenComponentResFile()
  528. *
  529. * Availability:
  530. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  531. * CarbonLib: in CarbonLib 1.0 and later
  532. * Mac OS X: in version 10.0 and later
  533. * Windows: in qtmlClient.lib 3.0 and later
  534. }
  535. function OpenComponentResFile(aComponent: Component): SInt16; external name '_OpenComponentResFile';
  536. {
  537. * OpenAComponentResFile()
  538. *
  539. * Availability:
  540. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  541. * CarbonLib: in CarbonLib 1.0 and later
  542. * Mac OS X: in version 10.0 and later
  543. * Windows: in qtmlClient.lib 3.0 and later
  544. }
  545. function OpenAComponentResFile(aComponent: Component; var resRef: SInt16): OSErr; external name '_OpenAComponentResFile';
  546. {
  547. * CloseComponentResFile()
  548. *
  549. * Availability:
  550. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  551. * CarbonLib: in CarbonLib 1.0 and later
  552. * Mac OS X: in version 10.0 and later
  553. * Windows: in qtmlClient.lib 3.0 and later
  554. }
  555. function CloseComponentResFile(refnum: SInt16): OSErr; external name '_CloseComponentResFile';
  556. { Note: GetComponentResource returns a Handle, not a resource. The caller must dispose it with DisposeHandle. }
  557. {
  558. * GetComponentResource()
  559. *
  560. * Availability:
  561. * Non-Carbon CFM: in InterfaceLib via QuickTime 3.0 and later
  562. * CarbonLib: in CarbonLib 1.0 and later
  563. * Mac OS X: in version 10.0 and later
  564. * Windows: in qtmlClient.lib 3.0 and later
  565. }
  566. function GetComponentResource(aComponent: Component; resType: OSType; resID: SInt16; var theResource: Handle): OSErr; external name '_GetComponentResource';
  567. {
  568. * GetComponentIndString()
  569. *
  570. * Availability:
  571. * Non-Carbon CFM: in InterfaceLib via QuickTime 3.0 and later
  572. * CarbonLib: in CarbonLib 1.0 and later
  573. * Mac OS X: in version 10.0 and later
  574. * Windows: in qtmlClient.lib 3.0 and later
  575. }
  576. function GetComponentIndString(aComponent: Component; var theString: Str255; strListID: SInt16; index: SInt16): OSErr; external name '_GetComponentIndString';
  577. {*******************************************************
  578. * Component Instance Management routines
  579. *******************************************************}
  580. {
  581. * GetComponentInstanceStorage()
  582. *
  583. * Availability:
  584. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  585. * CarbonLib: in CarbonLib 1.0 and later
  586. * Mac OS X: in version 10.0 and later
  587. * Windows: in qtmlClient.lib 3.0 and later
  588. }
  589. function GetComponentInstanceStorage(aComponentInstance: ComponentInstance): Handle; external name '_GetComponentInstanceStorage';
  590. {
  591. * SetComponentInstanceStorage()
  592. *
  593. * Availability:
  594. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  595. * CarbonLib: in CarbonLib 1.0 and later
  596. * Mac OS X: in version 10.0 and later
  597. * Windows: in qtmlClient.lib 3.0 and later
  598. }
  599. procedure SetComponentInstanceStorage(aComponentInstance: ComponentInstance; theStorage: Handle); external name '_SetComponentInstanceStorage';
  600. {$ifc CALL_NOT_IN_CARBON}
  601. {
  602. * GetComponentInstanceA5()
  603. *
  604. * Availability:
  605. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  606. * CarbonLib: not available
  607. * Mac OS X: not available
  608. * Windows: in qtmlClient.lib 3.0 and later
  609. }
  610. function GetComponentInstanceA5(aComponentInstance: ComponentInstance): SInt32; external name '_GetComponentInstanceA5';
  611. {
  612. * SetComponentInstanceA5()
  613. *
  614. * Availability:
  615. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  616. * CarbonLib: not available
  617. * Mac OS X: not available
  618. * Windows: in qtmlClient.lib 3.0 and later
  619. }
  620. procedure SetComponentInstanceA5(aComponentInstance: ComponentInstance; theA5: SInt32); external name '_SetComponentInstanceA5';
  621. {$endc} {CALL_NOT_IN_CARBON}
  622. {
  623. * CountComponentInstances()
  624. *
  625. * Availability:
  626. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  627. * CarbonLib: in CarbonLib 1.0 and later
  628. * Mac OS X: in version 10.0 and later
  629. * Windows: in qtmlClient.lib 3.0 and later
  630. }
  631. function CountComponentInstances(aComponent: Component): SInt32; external name '_CountComponentInstances';
  632. { useful helper routines for convenient method dispatching }
  633. {
  634. * CallComponentFunction()
  635. *
  636. * Availability:
  637. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  638. * CarbonLib: in CarbonLib 1.0 and later
  639. * Mac OS X: in version 10.0 and later
  640. }
  641. function CallComponentFunction(var params: ComponentParameters; func: ComponentFunctionUPP): SInt32; external name '_CallComponentFunction';
  642. {
  643. * CallComponentFunctionWithStorage()
  644. *
  645. * Availability:
  646. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  647. * CarbonLib: in CarbonLib 1.0 and later
  648. * Mac OS X: in version 10.0 and later
  649. * Windows: in qtmlClient.lib 3.0 and later
  650. }
  651. function CallComponentFunctionWithStorage(storage: Handle; var params: ComponentParameters; func: ComponentFunctionUPP): SInt32; external name '_CallComponentFunctionWithStorage';
  652. {
  653. * CallComponentFunctionWithStorageProcInfo()
  654. *
  655. * Availability:
  656. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  657. * CarbonLib: in CarbonLib 1.0 and later
  658. * Mac OS X: in version 10.0 and later
  659. }
  660. function CallComponentFunctionWithStorageProcInfo(storage: Handle; var params: ComponentParameters; func: ProcPtr; funcProcInfo: ProcInfoType): SInt32; external name '_CallComponentFunctionWithStorageProcInfo';
  661. {
  662. * DelegateComponentCall()
  663. *
  664. * Availability:
  665. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  666. * CarbonLib: in CarbonLib 1.0 and later
  667. * Mac OS X: in version 10.0 and later
  668. * Windows: in qtmlClient.lib 3.0 and later
  669. }
  670. function DelegateComponentCall(var originalParams: ComponentParameters; ci: ComponentInstance): SInt32; external name '_DelegateComponentCall';
  671. {
  672. * SetDefaultComponent()
  673. *
  674. * Availability:
  675. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  676. * CarbonLib: in CarbonLib 1.0 and later
  677. * Mac OS X: in version 10.0 and later
  678. * Windows: in qtmlClient.lib 3.0 and later
  679. }
  680. function SetDefaultComponent(aComponent: Component; flags: SInt16): OSErr; external name '_SetDefaultComponent';
  681. {
  682. * OpenDefaultComponent()
  683. *
  684. * Availability:
  685. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  686. * CarbonLib: in CarbonLib 1.0 and later
  687. * Mac OS X: in version 10.0 and later
  688. * Windows: in qtmlClient.lib 3.0 and later
  689. }
  690. function OpenDefaultComponent(componentType: OSType; componentSubType: OSType): ComponentInstance; external name '_OpenDefaultComponent';
  691. {
  692. * OpenADefaultComponent()
  693. *
  694. * Availability:
  695. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  696. * CarbonLib: in CarbonLib 1.0 and later
  697. * Mac OS X: in version 10.0 and later
  698. * Windows: in qtmlClient.lib 3.0 and later
  699. }
  700. function OpenADefaultComponent(componentType: OSType; componentSubType: OSType; var ci: ComponentInstance): OSErr; external name '_OpenADefaultComponent';
  701. {
  702. * CaptureComponent()
  703. *
  704. * Availability:
  705. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  706. * CarbonLib: in CarbonLib 1.0 and later
  707. * Mac OS X: in version 10.0 and later
  708. * Windows: in qtmlClient.lib 3.0 and later
  709. }
  710. function CaptureComponent(capturedComponent: Component; capturingComponent: Component): Component; external name '_CaptureComponent';
  711. {
  712. * UncaptureComponent()
  713. *
  714. * Availability:
  715. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  716. * CarbonLib: in CarbonLib 1.0 and later
  717. * Mac OS X: in version 10.0 and later
  718. * Windows: in qtmlClient.lib 3.0 and later
  719. }
  720. function UncaptureComponent(aComponent: Component): OSErr; external name '_UncaptureComponent';
  721. {
  722. * RegisterComponentResourceFile()
  723. *
  724. * Availability:
  725. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  726. * CarbonLib: in CarbonLib 1.0 and later
  727. * Mac OS X: in version 10.0 and later
  728. * Windows: in qtmlClient.lib 3.0 and later
  729. }
  730. function RegisterComponentResourceFile(resRefNum: SInt16; global: SInt16): SInt32; external name '_RegisterComponentResourceFile';
  731. {
  732. * GetComponentIconSuite()
  733. *
  734. * Availability:
  735. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  736. * CarbonLib: in CarbonLib 1.0 and later
  737. * Mac OS X: in version 10.0 and later
  738. * Windows: in qtmlClient.lib 3.0 and later
  739. }
  740. function GetComponentIconSuite(aComponent: Component; var iconSuite: Handle): OSErr; external name '_GetComponentIconSuite';
  741. {*******************************************************
  742. * *
  743. * Direct calls to the Components *
  744. * *
  745. *******************************************************}
  746. { Old style names }
  747. {
  748. * ComponentFunctionImplemented()
  749. *
  750. * Availability:
  751. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  752. * CarbonLib: in CarbonLib 1.0 and later
  753. * Mac OS X: in version 10.0 and later
  754. * Windows: in qtmlClient.lib 3.0 and later
  755. }
  756. function ComponentFunctionImplemented(ci: ComponentInstance; ftnNumber: SInt16): SInt32; external name '_ComponentFunctionImplemented';
  757. {
  758. * GetComponentVersion()
  759. *
  760. * Availability:
  761. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  762. * CarbonLib: in CarbonLib 1.0 and later
  763. * Mac OS X: in version 10.0 and later
  764. * Windows: in qtmlClient.lib 3.0 and later
  765. }
  766. function GetComponentVersion(ci: ComponentInstance): SInt32; external name '_GetComponentVersion';
  767. {
  768. * ComponentSetTarget()
  769. *
  770. * Availability:
  771. * Non-Carbon CFM: in InterfaceLib 7.1 and later
  772. * CarbonLib: in CarbonLib 1.0 and later
  773. * Mac OS X: in version 10.0 and later
  774. * Windows: in qtmlClient.lib 3.0 and later
  775. }
  776. function ComponentSetTarget(ci: ComponentInstance; target: ComponentInstance): SInt32; external name '_ComponentSetTarget';
  777. { New style names }
  778. {
  779. * CallComponentOpen()
  780. *
  781. * Availability:
  782. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  783. * CarbonLib: in CarbonLib 1.0 and later
  784. * Mac OS X: in version 10.0 and later
  785. * Windows: in qtmlClient.lib 3.0 and later
  786. }
  787. function CallComponentOpen(ci: ComponentInstance; self: ComponentInstance): ComponentResult; external name '_CallComponentOpen';
  788. {
  789. * CallComponentClose()
  790. *
  791. * Availability:
  792. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  793. * CarbonLib: in CarbonLib 1.0 and later
  794. * Mac OS X: in version 10.0 and later
  795. * Windows: in qtmlClient.lib 3.0 and later
  796. }
  797. function CallComponentClose(ci: ComponentInstance; self: ComponentInstance): ComponentResult; external name '_CallComponentClose';
  798. {
  799. * CallComponentCanDo()
  800. *
  801. * Availability:
  802. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  803. * CarbonLib: in CarbonLib 1.0 and later
  804. * Mac OS X: in version 10.0 and later
  805. * Windows: in qtmlClient.lib 3.0 and later
  806. }
  807. function CallComponentCanDo(ci: ComponentInstance; ftnNumber: SInt16): ComponentResult; external name '_CallComponentCanDo';
  808. {
  809. * CallComponentVersion()
  810. *
  811. * Availability:
  812. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  813. * CarbonLib: in CarbonLib 1.0 and later
  814. * Mac OS X: in version 10.0 and later
  815. * Windows: in qtmlClient.lib 3.0 and later
  816. }
  817. function CallComponentVersion(ci: ComponentInstance): ComponentResult; external name '_CallComponentVersion';
  818. {
  819. * CallComponentRegister()
  820. *
  821. * Availability:
  822. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  823. * CarbonLib: in CarbonLib 1.0 and later
  824. * Mac OS X: in version 10.0 and later
  825. * Windows: in qtmlClient.lib 3.0 and later
  826. }
  827. function CallComponentRegister(ci: ComponentInstance): ComponentResult; external name '_CallComponentRegister';
  828. {
  829. * CallComponentTarget()
  830. *
  831. * Availability:
  832. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  833. * CarbonLib: in CarbonLib 1.0 and later
  834. * Mac OS X: in version 10.0 and later
  835. * Windows: in qtmlClient.lib 3.0 and later
  836. }
  837. function CallComponentTarget(ci: ComponentInstance; target: ComponentInstance): ComponentResult; external name '_CallComponentTarget';
  838. {
  839. * CallComponentUnregister()
  840. *
  841. * Availability:
  842. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  843. * CarbonLib: in CarbonLib 1.0 and later
  844. * Mac OS X: in version 10.0 and later
  845. * Windows: in qtmlClient.lib 3.0 and later
  846. }
  847. function CallComponentUnregister(ci: ComponentInstance): ComponentResult; external name '_CallComponentUnregister';
  848. {
  849. * CallComponentGetMPWorkFunction()
  850. *
  851. * Availability:
  852. * Non-Carbon CFM: in InterfaceLib via QuickTime 2.5 and later
  853. * CarbonLib: in CarbonLib 1.0 and later
  854. * Mac OS X: in version 10.0 and later
  855. * Windows: in qtmlClient.lib 3.0 and later
  856. }
  857. function CallComponentGetMPWorkFunction(ci: ComponentInstance; var workFunction: ComponentMPWorkFunctionUPP; var refCon: UnivPtr): ComponentResult; external name '_CallComponentGetMPWorkFunction';
  858. {
  859. * CallComponentGetPublicResource()
  860. *
  861. * Availability:
  862. * Non-Carbon CFM: in InterfaceLib via QuickTime 4.0 and later
  863. * CarbonLib: in CarbonLib 1.1 and later
  864. * Mac OS X: in version 10.0 and later
  865. }
  866. function CallComponentGetPublicResource(ci: ComponentInstance; resourceType: OSType; resourceID: SInt16; var resource: Handle): ComponentResult; external name '_CallComponentGetPublicResource';
  867. {$ifc NOT TARGET_OS_MAC}
  868. {
  869. CallComponent is used by ComponentGlue routines to manually call a component function.
  870. }
  871. {$ifc CALL_NOT_IN_CARBON}
  872. {
  873. * CallComponent()
  874. *
  875. * Availability:
  876. * Non-Carbon CFM: not available
  877. * CarbonLib: not available
  878. * Mac OS X: not available
  879. * Windows: in qtmlClient.lib 3.0 and later
  880. }
  881. function CallComponent(ci: ComponentInstance; var cp: ComponentParameters): ComponentResult; external name '_CallComponent';
  882. {$endc} {CALL_NOT_IN_CARBON}
  883. {$endc}
  884. {
  885. CallComponentDispatch is a CarbonLib routine that replaces CallComponent inline glue
  886. to call a component function.
  887. }
  888. {
  889. * CallComponentDispatch()
  890. *
  891. * Availability:
  892. * Non-Carbon CFM: not available
  893. * CarbonLib: in CarbonLib 1.0 and later
  894. * Mac OS X: in version 10.0 and later
  895. }
  896. function CallComponentDispatch(var cp: ComponentParameters): ComponentResult; external name '_CallComponentDispatch';
  897. { UPP call backs }
  898. const
  899. uppComponentMPWorkFunctionProcInfo = $000003F0;
  900. uppComponentRoutineProcInfo = $000003F0;
  901. uppGetMissingComponentResourceProcInfo = $0000FBE0;
  902. {
  903. * NewComponentMPWorkFunctionUPP()
  904. *
  905. * Availability:
  906. * Non-Carbon CFM: available as macro/inline
  907. * CarbonLib: in CarbonLib 1.0 and later
  908. * Mac OS X: in version 10.0 and later
  909. }
  910. function NewComponentMPWorkFunctionUPP(userRoutine: ComponentMPWorkFunctionProcPtr): ComponentMPWorkFunctionUPP; external name '_NewComponentMPWorkFunctionUPP'; { old name was NewComponentMPWorkFunctionProc }
  911. {
  912. * NewComponentRoutineUPP()
  913. *
  914. * Availability:
  915. * Non-Carbon CFM: available as macro/inline
  916. * CarbonLib: in CarbonLib 1.0 and later
  917. * Mac OS X: in version 10.0 and later
  918. }
  919. function NewComponentRoutineUPP(userRoutine: ComponentRoutineProcPtr): ComponentRoutineUPP; external name '_NewComponentRoutineUPP'; { old name was NewComponentRoutineProc }
  920. {
  921. * NewGetMissingComponentResourceUPP()
  922. *
  923. * Availability:
  924. * Non-Carbon CFM: available as macro/inline
  925. * CarbonLib: in CarbonLib 1.0 and later
  926. * Mac OS X: in version 10.0 and later
  927. }
  928. function NewGetMissingComponentResourceUPP(userRoutine: GetMissingComponentResourceProcPtr): GetMissingComponentResourceUPP; external name '_NewGetMissingComponentResourceUPP'; { old name was NewGetMissingComponentResourceProc }
  929. {
  930. * DisposeComponentMPWorkFunctionUPP()
  931. *
  932. * Availability:
  933. * Non-Carbon CFM: available as macro/inline
  934. * CarbonLib: in CarbonLib 1.0 and later
  935. * Mac OS X: in version 10.0 and later
  936. }
  937. procedure DisposeComponentMPWorkFunctionUPP(userUPP: ComponentMPWorkFunctionUPP); external name '_DisposeComponentMPWorkFunctionUPP';
  938. {
  939. * DisposeComponentRoutineUPP()
  940. *
  941. * Availability:
  942. * Non-Carbon CFM: available as macro/inline
  943. * CarbonLib: in CarbonLib 1.0 and later
  944. * Mac OS X: in version 10.0 and later
  945. }
  946. procedure DisposeComponentRoutineUPP(userUPP: ComponentRoutineUPP); external name '_DisposeComponentRoutineUPP';
  947. {
  948. * DisposeGetMissingComponentResourceUPP()
  949. *
  950. * Availability:
  951. * Non-Carbon CFM: available as macro/inline
  952. * CarbonLib: in CarbonLib 1.0 and later
  953. * Mac OS X: in version 10.0 and later
  954. }
  955. procedure DisposeGetMissingComponentResourceUPP(userUPP: GetMissingComponentResourceUPP); external name '_DisposeGetMissingComponentResourceUPP';
  956. {
  957. * InvokeComponentMPWorkFunctionUPP()
  958. *
  959. * Availability:
  960. * Non-Carbon CFM: available as macro/inline
  961. * CarbonLib: in CarbonLib 1.0 and later
  962. * Mac OS X: in version 10.0 and later
  963. }
  964. function InvokeComponentMPWorkFunctionUPP(globalRefCon: UnivPtr; header: ComponentMPWorkFunctionHeaderRecordPtr; userRoutine: ComponentMPWorkFunctionUPP): ComponentResult; external name '_InvokeComponentMPWorkFunctionUPP'; { old name was CallComponentMPWorkFunctionProc }
  965. {
  966. * InvokeComponentRoutineUPP()
  967. *
  968. * Availability:
  969. * Non-Carbon CFM: available as macro/inline
  970. * CarbonLib: in CarbonLib 1.0 and later
  971. * Mac OS X: in version 10.0 and later
  972. }
  973. function InvokeComponentRoutineUPP(var cp: ComponentParameters; componentStorage: Handle; userRoutine: ComponentRoutineUPP): ComponentResult; external name '_InvokeComponentRoutineUPP'; { old name was CallComponentRoutineProc }
  974. {
  975. * InvokeGetMissingComponentResourceUPP()
  976. *
  977. * Availability:
  978. * Non-Carbon CFM: available as macro/inline
  979. * CarbonLib: in CarbonLib 1.0 and later
  980. * Mac OS X: in version 10.0 and later
  981. }
  982. function InvokeGetMissingComponentResourceUPP(c: Component; resType: OSType; resID: SInt16; refCon: UnivPtr; var resource: Handle; userRoutine: GetMissingComponentResourceUPP): OSErr; external name '_InvokeGetMissingComponentResourceUPP'; { old name was CallGetMissingComponentResourceProc }
  983. { ProcInfos }
  984. {$ALIGN MAC68K}
  985. end.