AEUserTermTypes.pas 6.2 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172
  1. {
  2. File: AEUserTermTypes.p
  3. Contains: AppleEvents AEUT resource format Interfaces.
  4. Version: Technology: System 7.5
  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 AEUserTermTypes;
  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,ConditionalMacros;
  92. {$ALIGN MAC68K}
  93. const
  94. kAEUserTerminology = $61657574 (* 'aeut' *); { 0x61657574 }
  95. kAETerminologyExtension = $61657465 (* 'aete' *); { 0x61657465 }
  96. kAEScriptingSizeResource = $7363737A (* 'scsz' *); { 0x7363737a }
  97. kAEOSAXSizeResource = $6F73697A (* 'osiz' *);
  98. kAEUTHasReturningParam = 31; { if event has a keyASReturning param }
  99. kAEUTOptional = 15; { if something is optional }
  100. kAEUTlistOfItems = 14; { if property or reply is a list. }
  101. kAEUTEnumerated = 13; { if property or reply is of an enumerated type. }
  102. kAEUTReadWrite = 12; { if property is writable. }
  103. kAEUTChangesState = 12; { if an event changes state. }
  104. kAEUTTightBindingFunction = 12; { if this is a tight-binding precedence function. }
  105. { AppleScript 1.3: new bits for reply, direct parameter, parameter, and property flags }
  106. kAEUTEnumsAreTypes = 11; { if the enumeration is a list of types, not constants }
  107. kAEUTEnumListIsExclusive = 10; { if the list of enumerations is a proper set }
  108. kAEUTReplyIsReference = 9; { if the reply is a reference, not a value }
  109. kAEUTDirectParamIsReference = 9; { if the direct parameter is a reference, not a value }
  110. kAEUTParamIsReference = 9; { if the parameter is a reference, not a value }
  111. kAEUTPropertyIsReference = 9; { if the property is a reference, not a value }
  112. kAEUTNotDirectParamIsTarget = 8; { if the direct parameter is not the target of the event }
  113. kAEUTParamIsTarget = 8; { if the parameter is the target of the event }
  114. kAEUTApostrophe = 3; { if a term contains an apostrophe. }
  115. kAEUTFeminine = 2; { if a term is feminine gender. }
  116. kAEUTMasculine = 1; { if a term is masculine gender. }
  117. kAEUTPlural = 0; { if a term is plural. }
  118. type
  119. TScriptingSizeResourcePtr = ^TScriptingSizeResource;
  120. TScriptingSizeResource = record
  121. scriptingSizeFlags: SInt16;
  122. minStackSize: UInt32;
  123. preferredStackSize: UInt32;
  124. maxStackSize: UInt32;
  125. minHeapSize: UInt32;
  126. preferredHeapSize: UInt32;
  127. maxHeapSize: UInt32;
  128. end;
  129. const
  130. kLaunchToGetTerminology = $8000; { If kLaunchToGetTerminology is 0, 'aete' is read directly from res file. If set to 1, then launch and use 'gdut' to get terminology. }
  131. kDontFindAppBySignature = $4000; { If kDontFindAppBySignature is 0, then find app with signature if lost. If 1, then don't }
  132. kAlwaysSendSubject = $2000; { If kAlwaysSendSubject 0, then send subject when appropriate. If 1, then every event has Subject Attribute }
  133. { old names for above bits. }
  134. kReadExtensionTermsMask = $8000;
  135. { AppleScript 1.3: Bit positions for osiz resource }
  136. { AppleScript 1.3: Bit masks for osiz resources }
  137. kOSIZDontOpenResourceFile = 15; { If set, resource file is not opened when osax is loaded }
  138. kOSIZdontAcceptRemoteEvents = 14; { If set, handler will not be called with events from remote machines }
  139. kOSIZOpenWithReadPermission = 13; { If set, file will be opened with read permission only }
  140. kOSIZCodeInSharedLibraries = 11; { If set, loader will look for handler in shared library, not osax resources }
  141. {$ALIGN MAC68K}
  142. end.