← Back to branch summary

~ubuntu-branches/ubuntu/feisty/fpc/feisty

« back to all changes in this revision

Viewing changes to packages/extra/univint/AEUserTermTypes.pas

  • Committer: Bazaar Package Importer
  • Author(s): Torsten Werner
  • Date: 2007-01-27 20:08:50 UTC
  • mfrom: (1.2.3 upstream)
  • Revision ID: james.westby@ubuntu.com-20070127200850-9mrptaqqjsx9nwa7
Tags: 2.0.4-5
* Fixed Build-Depends.
* Add myself to Uploaders in debian/control.
* Make sure that the sources are really patched before building them.
* Build unit 'libc' on powerpc too.

Show diffs side-by-side

added added

removed removed

Lines of Context:
packages/extra/univint/AEUserTermTypes.pas
 
1
{
 
2
     File:       AEUserTermTypes.p
 
3
 
 
4
     Contains:   AppleEvents AEUT resource format Interfaces.
 
5
 
 
6
     Version:    Technology: System 7.5
 
7
                 Release:    Universal Interfaces 3.4.2
 
8
 
 
9
     Copyright:  � 1991-2002 by Apple Computer, Inc., all rights reserved
 
10
 
 
11
     Bugs?:      For bug reports, consult the following page on
 
12
                 the World Wide Web:
 
13
 
 
14
                     http://www.freepascal.org/bugs.html
 
15
 
 
16
}
 
17
 
 
18
 
 
19
{
 
20
    Modified for use with Free Pascal
 
21
    Version 200
 
22
    Please report any bugs to <gpc@microbizz.nl>
 
23
}
 
24
 
 
25
{$mode macpas}
 
26
{$packenum 1}
 
27
{$macro on}
 
28
{$inline on}
 
29
{$CALLING MWPASCAL}
 
30
 
 
31
unit AEUserTermTypes;
 
32
interface
 
33
{$setc UNIVERSAL_INTERFACES_VERSION := $0342}
 
34
{$setc GAP_INTERFACES_VERSION := $0200}
 
35
 
 
36
{$ifc not defined USE_CFSTR_CONSTANT_MACROS}
 
37
    {$setc USE_CFSTR_CONSTANT_MACROS := TRUE}
 
38
{$endc}
 
39
 
 
40
{$ifc defined CPUPOWERPC and defined CPUI386}
 
41
        {$error Conflicting initial definitions for CPUPOWERPC and CPUI386}
 
42
{$endc}
 
43
{$ifc defined FPC_BIG_ENDIAN and defined FPC_LITTLE_ENDIAN}
 
44
        {$error Conflicting initial definitions for FPC_BIG_ENDIAN and FPC_LITTLE_ENDIAN}
 
45
{$endc}
 
46
 
 
47
{$ifc not defined __ppc__ and defined CPUPOWERPC}
 
48
        {$setc __ppc__ := 1}
 
49
{$elsec}
 
50
        {$setc __ppc__ := 0}
 
51
{$endc}
 
52
{$ifc not defined __i386__ and defined CPUI386}
 
53
        {$setc __i386__ := 1}
 
54
{$elsec}
 
55
        {$setc __i386__ := 0}
 
56
{$endc}
 
57
 
 
58
{$ifc defined __ppc__ and __ppc__ and defined __i386__ and __i386__}
 
59
        {$error Conflicting definitions for __ppc__ and __i386__}
 
60
{$endc}
 
61
 
 
62
{$ifc defined __ppc__ and __ppc__}
 
63
        {$setc TARGET_CPU_PPC := TRUE}
 
64
        {$setc TARGET_CPU_X86 := FALSE}
 
65
{$elifc defined __i386__ and __i386__}
 
66
        {$setc TARGET_CPU_PPC := FALSE}
 
67
        {$setc TARGET_CPU_X86 := TRUE}
 
68
{$elsec}
 
69
        {$error Neither __ppc__ nor __i386__ is defined.}
 
70
{$endc}
 
71
{$setc TARGET_CPU_PPC_64 := FALSE}
 
72
 
 
73
{$ifc defined FPC_BIG_ENDIAN}
 
74
        {$setc TARGET_RT_BIG_ENDIAN := TRUE}
 
75
        {$setc TARGET_RT_LITTLE_ENDIAN := FALSE}
 
76
{$elifc defined FPC_LITTLE_ENDIAN}
 
77
        {$setc TARGET_RT_BIG_ENDIAN := FALSE}
 
78
        {$setc TARGET_RT_LITTLE_ENDIAN := TRUE}
 
79
{$elsec}
 
80
        {$error Neither FPC_BIG_ENDIAN nor FPC_LITTLE_ENDIAN are defined.}
 
81
{$endc}
 
82
{$setc ACCESSOR_CALLS_ARE_FUNCTIONS := TRUE}
 
83
{$setc CALL_NOT_IN_CARBON := FALSE}
 
84
{$setc OLDROUTINENAMES := FALSE}
 
85
{$setc OPAQUE_TOOLBOX_STRUCTS := TRUE}
 
86
{$setc OPAQUE_UPP_TYPES := TRUE}
 
87
{$setc OTCARBONAPPLICATION := TRUE}
 
88
{$setc OTKERNEL := FALSE}
 
89
{$setc PM_USE_SESSION_APIS := TRUE}
 
90
{$setc TARGET_API_MAC_CARBON := TRUE}
 
91
{$setc TARGET_API_MAC_OS8 := FALSE}
 
92
{$setc TARGET_API_MAC_OSX := TRUE}
 
93
{$setc TARGET_CARBON := TRUE}
 
94
{$setc TARGET_CPU_68K := FALSE}
 
95
{$setc TARGET_CPU_MIPS := FALSE}
 
96
{$setc TARGET_CPU_SPARC := FALSE}
 
97
{$setc TARGET_OS_MAC := TRUE}
 
98
{$setc TARGET_OS_UNIX := FALSE}
 
99
{$setc TARGET_OS_WIN32 := FALSE}
 
100
{$setc TARGET_RT_MAC_68881 := FALSE}
 
101
{$setc TARGET_RT_MAC_CFM := FALSE}
 
102
{$setc TARGET_RT_MAC_MACHO := TRUE}
 
103
{$setc TYPED_FUNCTION_POINTERS := TRUE}
 
104
{$setc TYPE_BOOL := FALSE}
 
105
{$setc TYPE_EXTENDED := FALSE}
 
106
{$setc TYPE_LONGLONG := TRUE}
 
107
uses MacTypes,ConditionalMacros;
 
108
 
 
109
 
 
110
{$ALIGN MAC68K}
 
111
 
 
112
 
 
113
const
 
114
        kAEUserTerminology                      = $61657574 (* 'aeut' *);                                               {   0x61657574   }
 
115
        kAETerminologyExtension         = $61657465 (* 'aete' *);                                               {   0x61657465   }
 
116
        kAEScriptingSizeResource        = $7363737A (* 'scsz' *);                                               {   0x7363737a   }
 
117
        kAEOSAXSizeResource                     = $6F73697A (* 'osiz' *);
 
118
 
 
119
        kAEUTHasReturningParam          = 31;                                                   {  if event has a keyASReturning param  }
 
120
        kAEUTOptional                           = 15;                                                   {  if something is optional  }
 
121
        kAEUTlistOfItems                        = 14;                                                   {  if property or reply is a list.  }
 
122
        kAEUTEnumerated                         = 13;                                                   {  if property or reply is of an enumerated type.  }
 
123
        kAEUTReadWrite                          = 12;                                                   {  if property is writable.  }
 
124
        kAEUTChangesState                       = 12;                                                   {  if an event changes state.  }
 
125
        kAEUTTightBindingFunction       = 12;                                                   {  if this is a tight-binding precedence function.  }
 
126
                                                                                                                                {  AppleScript 1.3: new bits for reply, direct parameter, parameter, and property flags  }
 
127
        kAEUTEnumsAreTypes                      = 11;                                                   {  if the enumeration is a list of types, not constants  }
 
128
        kAEUTEnumListIsExclusive        = 10;                                                   {  if the list of enumerations is a proper set  }
 
129
        kAEUTReplyIsReference           = 9;                                                    {  if the reply is a reference, not a value  }
 
130
        kAEUTDirectParamIsReference     = 9;                                                    {  if the direct parameter is a reference, not a value  }
 
131
        kAEUTParamIsReference           = 9;                                                    {  if the parameter is a reference, not a value  }
 
132
        kAEUTPropertyIsReference        = 9;                                                    {  if the property is a reference, not a value  }
 
133
        kAEUTNotDirectParamIsTarget     = 8;                                                    {  if the direct parameter is not the target of the event  }
 
134
        kAEUTParamIsTarget                      = 8;                                                    {  if the parameter is the target of the event  }
 
135
        kAEUTApostrophe                         = 3;                                                    {  if a term contains an apostrophe.  }
 
136
        kAEUTFeminine                           = 2;                                                    {  if a term is feminine gender.  }
 
137
        kAEUTMasculine                          = 1;                                                    {  if a term is masculine gender.  }
 
138
        kAEUTPlural                                     = 0;                                                    {  if a term is plural.  }
 
139
 
 
140
 
 
141
type
 
142
        TScriptingSizeResourcePtr = ^TScriptingSizeResource;
 
143
        TScriptingSizeResource = record
 
144
                scriptingSizeFlags:             SInt16;
 
145
                minStackSize:                   UInt32;
 
146
                preferredStackSize:             UInt32;
 
147
                maxStackSize:                   UInt32;
 
148
                minHeapSize:                    UInt32;
 
149
                preferredHeapSize:              UInt32;
 
150
                maxHeapSize:                    UInt32;
 
151
        end;
 
152
 
 
153
 
 
154
const
 
155
        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.  }
 
156
        kDontFindAppBySignature         = $4000;                                                {     If kDontFindAppBySignature is 0, then find app with signature if lost.  If 1, then don't  }
 
157
        kAlwaysSendSubject                      = $2000;                                                {     If kAlwaysSendSubject 0, then send subject when appropriate. If 1, then every event has Subject Attribute  }
 
158
 
 
159
        {        old names for above bits.      }
 
160
        kReadExtensionTermsMask         = $8000;
 
161
 
 
162
                                                                                                                                {  AppleScript 1.3: Bit positions for osiz resource  }
 
163
                                                                                                                                {  AppleScript 1.3: Bit masks for osiz resources  }
 
164
        kOSIZDontOpenResourceFile       = 15;                                                   {  If set, resource file is not opened when osax is loaded  }
 
165
        kOSIZdontAcceptRemoteEvents     = 14;                                                   {  If set, handler will not be called with events from remote machines  }
 
166
        kOSIZOpenWithReadPermission     = 13;                                                   {  If set, file will be opened with read permission only  }
 
167
        kOSIZCodeInSharedLibraries      = 11;                                                   {  If set, loader will look for handler in shared library, not osax resources  }
 
168
 
 
169
{$ALIGN MAC68K}
 
170
 
 
171
 
 
172
end.