← Back to branch summary

~ubuntu-branches/ubuntu/lucid/fpc/lucid-proposed

« back to all changes in this revision

Viewing changes to fpcsrc/packages/extra/univint/ASRegistry.pas

  • Committer: Bazaar Package Importer
  • Author(s): Mazen Neifer, Torsten Werner, Mazen Neifer
  • Date: 2008-10-09 23:29:00 UTC
  • mfrom: (4.1.1 sid)
  • Revision ID: james.westby@ubuntu.com-20081009232900-553f61m37jkp6upv
Tags: 2.2.2-4
http://bugs.debian.org/498882
[ Torsten Werner ]
* Update ABI version in fpc-depends automatically.
* Remove empty directories from binary package fpc-source.

[ Mazen Neifer ]
* Removed leading path when calling update-alternatives to remove a Linitian
  error.
* Fixed clean target.
* Improved description of packages. (Closes: #498882)

Show diffs side-by-side

added added

removed removed

Lines of Context:
fpcsrc/packages/extra/univint/ASRegistry.pas
1
 
{
2
 
     File:       ASRegistry.p
3
 
 
4
 
     Contains:   AppleScript Registry constants.
5
 
 
6
 
     Version:    Technology: AppleScript 1.3
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 ASRegistry;
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,AERegistry,AEObjects;
108
 
 
109
 
 
110
 
{$ALIGN MAC68K}
111
 
 
112
 
 
113
 
const
114
 
        keyAETarget                                     = $74617267 (* 'targ' *);
115
 
        keySubjectAttr                          = $7375626A (* 'subj' *);                                               {  Magic 'returning' parameter:  }
116
 
        keyASReturning                          = $4B72746E (* 'Krtn' *);                                               {  AppleScript Specific Codes:  }
117
 
        kASAppleScriptSuite                     = $61736372 (* 'ascr' *);
118
 
        kASScriptEditorSuite            = $546F7953 (* 'ToyS' *);
119
 
        kASTypeNamesSuite                       = $74706E6D (* 'tpnm' *);                                               {  dynamic terminologies  }
120
 
        typeAETE                                        = $61657465 (* 'aete' *);
121
 
        typeAEUT                                        = $61657574 (* 'aeut' *);
122
 
        kGetAETE                                        = $67647465 (* 'gdte' *);
123
 
        kGetAEUT                                        = $67647574 (* 'gdut' *);
124
 
        kUpdateAEUT                                     = $75647574 (* 'udut' *);
125
 
        kUpdateAETE                                     = $75647465 (* 'udte' *);
126
 
        kCleanUpAEUT                            = $63647574 (* 'cdut' *);
127
 
        kASComment                                      = $636D6E74 (* 'cmnt' *);
128
 
        kASLaunchEvent                          = $6E6F6F70 (* 'noop' *);
129
 
        keyScszResource                         = $7363737A (* 'scsz' *);
130
 
        typeScszResource                        = $7363737A (* 'scsz' *);                                               {  subroutine calls  }
131
 
        kASSubroutineEvent                      = $70736272 (* 'psbr' *);
132
 
        keyASSubroutineName                     = $736E616D (* 'snam' *);
133
 
        kASPrepositionalSubroutine      = $70736272 (* 'psbr' *);
134
 
        keyASPositionalArgs                     = $70617267 (* 'parg' *);
135
 
 
136
 
                                                                                                                                {  Add this parameter to a Get Data result if your app handled the 'as' parameter  }
137
 
        keyAppHandledCoercion           = $69646173 (* 'idas' *);
138
 
 
139
 
                                                                                                                                {  Miscellaneous AppleScript commands  }
140
 
        kASStartLogEvent                        = $6C6F6731 (* 'log1' *);
141
 
        kASStopLogEvent                         = $6C6F6730 (* 'log0' *);
142
 
        kASCommentEvent                         = $636D6E74 (* 'cmnt' *);
143
 
 
144
 
 
145
 
        {        Operator Events:       }
146
 
                                                                                                                                {  Binary:  }
147
 
        kASAdd                                          = $2B202020 (* '+   ' *);
148
 
        kASSubtract                                     = $2D202020 (* '-   ' *);
149
 
        kASMultiply                                     = $2A202020 (* '*   ' *);
150
 
        kASDivide                                       = $2F202020 (* '/   ' *);
151
 
        kASQuotient                                     = $64697620 (* 'div ' *);
152
 
        kASRemainder                            = $6D6F6420 (* 'mod ' *);
153
 
        kASPower                                        = $5E202020 (* '^   ' *);
154
 
        kASEqual                                        = $3D202020 (* '=   ' *);
155
 
        kASNotEqual                                     = $E289A020 (* '�   ' *);
156
 
        kASGreaterThan                          = $3E202020 (* '>   ' *);
157
 
        kASGreaterThanOrEqual           = $3E3D2020 (* '>=  ' *);
158
 
        kASLessThan                                     = $3C202020 (* '<   ' *);
159
 
        kASLessThanOrEqual                      = $3C3D2020 (* '<=  ' *);
160
 
        kASComesBefore                          = $63626672 (* 'cbfr' *);
161
 
        kASComesAfter                           = $63616672 (* 'cafr' *);
162
 
        kASConcatenate                          = $63636174 (* 'ccat' *);
163
 
        kASStartsWith                           = $62677774 (* 'bgwt' *);
164
 
        kASEndsWith                                     = $656E6473 (* 'ends' *);
165
 
        kASContains                                     = $636F6E74 (* 'cont' *);
166
 
 
167
 
        kASAnd                                          = $414E4420 (* 'AND ' *);
168
 
        kASOr                                           = $4F522020 (* 'OR  ' *);                                               {  Unary:  }
169
 
        kASNot                                          = $4E4F5420 (* 'NOT ' *);
170
 
        kASNegate                                       = $6E656720 (* 'neg ' *);
171
 
        keyASArg                                        = $61726720 (* 'arg ' *);
172
 
 
173
 
                                                                                                                                {  event code for the 'error' statement  }
174
 
        kASErrorEventCode                       = $65727220 (* 'err ' *);
175
 
        kOSAErrorArgs                           = $65727261 (* 'erra' *);
176
 
        keyAEErrorObject                        = $65726F62 (* 'erob' *);                                               {  Properties:  }
177
 
        pLength                                         = $6C656E67 (* 'leng' *);
178
 
        pReverse                                        = $72767365 (* 'rvse' *);
179
 
        pRest                                           = $72657374 (* 'rest' *);
180
 
        pInherits                                       = $6340235E (* 'c@#^' *);
181
 
        pProperties                                     = $70414C4C (* 'pALL' *);                                               {  User-Defined Record Fields:  }
182
 
        keyASUserRecordFields           = $75737266 (* 'usrf' *);
183
 
        typeUserRecordFields            = $6C697374 (* 'list' *);
184
 
 
185
 
        {        Prepositions:  }
186
 
        keyASPrepositionAt                      = $61742020 (* 'at  ' *);
187
 
        keyASPrepositionIn                      = $696E2020 (* 'in  ' *);
188
 
        keyASPrepositionFrom            = $66726F6D (* 'from' *);
189
 
        keyASPrepositionFor                     = $666F7220 (* 'for ' *);
190
 
        keyASPrepositionTo                      = $746F2020 (* 'to  ' *);
191
 
        keyASPrepositionThru            = $74687275 (* 'thru' *);
192
 
        keyASPrepositionThrough         = $74686768 (* 'thgh' *);
193
 
        keyASPrepositionBy                      = $62792020 (* 'by  ' *);
194
 
        keyASPrepositionOn                      = $6F6E2020 (* 'on  ' *);
195
 
        keyASPrepositionInto            = $696E746F (* 'into' *);
196
 
        keyASPrepositionOnto            = $6F6E746F (* 'onto' *);
197
 
        keyASPrepositionBetween         = $6274776E (* 'btwn' *);
198
 
        keyASPrepositionAgainst         = $61677374 (* 'agst' *);
199
 
        keyASPrepositionOutOf           = $6F75746F (* 'outo' *);
200
 
        keyASPrepositionInsteadOf       = $6973746F (* 'isto' *);
201
 
        keyASPrepositionAsideFrom       = $61736466 (* 'asdf' *);
202
 
        keyASPrepositionAround          = $61726E64 (* 'arnd' *);
203
 
        keyASPrepositionBeside          = $62736964 (* 'bsid' *);
204
 
        keyASPrepositionBeneath         = $626E7468 (* 'bnth' *);
205
 
        keyASPrepositionUnder           = $756E6472 (* 'undr' *);
206
 
 
207
 
        keyASPrepositionOver            = $6F766572 (* 'over' *);
208
 
        keyASPrepositionAbove           = $61627665 (* 'abve' *);
209
 
        keyASPrepositionBelow           = $62656C77 (* 'belw' *);
210
 
        keyASPrepositionApartFrom       = $61707274 (* 'aprt' *);
211
 
        keyASPrepositionGiven           = $6769766E (* 'givn' *);
212
 
        keyASPrepositionWith            = $77697468 (* 'with' *);
213
 
        keyASPrepositionWithout         = $776F7574 (* 'wout' *);
214
 
        keyASPrepositionAbout           = $61626F75 (* 'abou' *);
215
 
        keyASPrepositionSince           = $736E6365 (* 'snce' *);
216
 
        keyASPrepositionUntil           = $74696C6C (* 'till' *);
217
 
 
218
 
                                                                                                                                {  Terminology & Dialect things:  }
219
 
        kDialectBundleResType           = $4462646C (* 'Dbdl' *);                                               {  AppleScript Classes and Enums:  }
220
 
        cConstant                                       = $656E756D (* 'enum' *);
221
 
        cClassIdentifier                        = $70636C73 (* 'pcls' *);
222
 
        cObjectBeingExamined            = $65786D6E (* 'exmn' *);
223
 
        cList                                           = $6C697374 (* 'list' *);
224
 
        cSmallReal                                      = $73696E67 (* 'sing' *);
225
 
        cReal                                           = $646F7562 (* 'doub' *);
226
 
        cRecord                                         = $7265636F (* 'reco' *);
227
 
        cReference                                      = $6F626A20 (* 'obj ' *);
228
 
        cUndefined                                      = $756E6466 (* 'undf' *);
229
 
        cMissingValue                           = $6D736E67 (* 'msng' *);
230
 
        cSymbol                                         = $73796D62 (* 'symb' *);
231
 
        cLinkedList                                     = $6C6C7374 (* 'llst' *);
232
 
        cVector                                         = $76656374 (* 'vect' *);
233
 
        cEventIdentifier                        = $65766E74 (* 'evnt' *);
234
 
        cKeyIdentifier                          = $6B796964 (* 'kyid' *);
235
 
        cUserIdentifier                         = $75696420 (* 'uid ' *);
236
 
        cPreposition                            = $70726570 (* 'prep' *);
237
 
        cKeyForm                                        = $6B66726D (* 'kfrm' *);
238
 
        cScript                                         = $73637074 (* 'scpt' *);
239
 
        cHandler                                        = $68616E64 (* 'hand' *);
240
 
        cProcedure                                      = $70726F63 (* 'proc' *);
241
 
 
242
 
        cHandleBreakpoint                       = $6272616B (* 'brak' *);
243
 
 
244
 
        cClosure                                        = $636C7372 (* 'clsr' *);
245
 
        cRawData                                        = $72646174 (* 'rdat' *);
246
 
        cStringClass                            = $54455854 (* 'TEXT' *);
247
 
        cNumber                                         = $6E6D6272 (* 'nmbr' *);
248
 
        cListElement                            = $63656C6D (* 'celm' *);
249
 
        cListOrRecord                           = $6C722020 (* 'lr  ' *);
250
 
        cListOrString                           = $6C732020 (* 'ls  ' *);
251
 
        cListRecordOrString                     = $6C727320 (* 'lrs ' *);
252
 
        cNumberOrString                         = $6E732020 (* 'ns  ' *);
253
 
        cNumberOrDateTime                       = $6E642020 (* 'nd  ' *);
254
 
        cNumberDateTimeOrString         = $6E647320 (* 'nds ' *);
255
 
        cAliasOrString                          = $73662020 (* 'sf  ' *);
256
 
        cSeconds                                        = $73636E64 (* 'scnd' *);
257
 
        typeSound                                       = $736E6420 (* 'snd ' *);
258
 
        enumBooleanValues                       = $626F6F76 (* 'boov' *);                                               {   Use this instead of typeBoolean to avoid with/without conversion   }
259
 
        kAETrue                                         = $74727565 (* 'true' *);
260
 
        kAEFalse                                        = $66616C73 (* 'fals' *);
261
 
        enumMiscValues                          = $6D697363 (* 'misc' *);
262
 
        kASCurrentApplication           = $63757261 (* 'cura' *);                                               {  User-defined property ospecs:  }
263
 
        formUserPropertyID                      = $75737270 (* 'usrp' *);
264
 
 
265
 
//      cString                                         = $54455854 (* 'TEXT' *);                                               {  old name for cStringClass - can't be used in .r files }
266
 
 
267
 
                                                                                                                                {  Global properties:  }
268
 
        pASIt                                           = $69742020 (* 'it  ' *);
269
 
        pASMe                                           = $6D652020 (* 'me  ' *);
270
 
        pASResult                                       = $72736C74 (* 'rslt' *);
271
 
        pASSpace                                        = $73706163 (* 'spac' *);
272
 
        pASReturn                                       = $72657420 (* 'ret ' *);
273
 
        pASTab                                          = $74616220 (* 'tab ' *);
274
 
        pASPi                                           = $70692020 (* 'pi  ' *);
275
 
        pASParent                                       = $70617265 (* 'pare' *);
276
 
        kASInitializeEventCode          = $696E6974 (* 'init' *);
277
 
        pASPrintLength                          = $70726C6E (* 'prln' *);
278
 
        pASPrintDepth                           = $70726470 (* 'prdp' *);
279
 
        pASTopLevelScript                       = $61736372 (* 'ascr' *);
280
 
 
281
 
                                                                                                                                {  Considerations  }
282
 
        kAECase                                         = $63617365 (* 'case' *);
283
 
        kAEDiacritic                            = $64696163 (* 'diac' *);
284
 
        kAEWhiteSpace                           = $77686974 (* 'whit' *);
285
 
        kAEHyphens                                      = $68797068 (* 'hyph' *);
286
 
        kAEExpansion                            = $65787061 (* 'expa' *);
287
 
        kAEPunctuation                          = $70756E63 (* 'punc' *);
288
 
        kAEZenkakuHankaku                       = $7A6B686B (* 'zkhk' *);
289
 
        kAESmallKana                            = $736B6E61 (* 'skna' *);
290
 
        kAEKataHiragana                         = $68696B61 (* 'hika' *);
291
 
        kASConsiderReplies                      = $726D7465 (* 'rmte' *);
292
 
        enumConsiderations                      = $636F6E73 (* 'cons' *);
293
 
 
294
 
        {        Considerations bit masks       }
295
 
        kAECaseConsiderMask                     = $00000001;
296
 
        kAEDiacriticConsiderMask        = $00000002;
297
 
        kAEWhiteSpaceConsiderMask       = $00000004;
298
 
        kAEHyphensConsiderMask          = $00000008;
299
 
        kAEExpansionConsiderMask        = $00000010;
300
 
        kAEPunctuationConsiderMask      = $00000020;
301
 
        kASConsiderRepliesConsiderMask = $00000040;
302
 
        kAECaseIgnoreMask                       = $00010000;
303
 
        kAEDiacriticIgnoreMask          = $00020000;
304
 
        kAEWhiteSpaceIgnoreMask         = $00040000;
305
 
        kAEHyphensIgnoreMask            = $00080000;
306
 
        kAEExpansionIgnoreMask          = $00100000;
307
 
        kAEPunctuationIgnoreMask        = $00200000;
308
 
        kASConsiderRepliesIgnoreMask = $00400000;
309
 
        enumConsidsAndIgnores           = $63736967 (* 'csig' *);
310
 
 
311
 
        cCoercion                                       = $636F6563 (* 'coec' *);
312
 
        cCoerceUpperCase                        = $74787570 (* 'txup' *);
313
 
        cCoerceLowerCase                        = $74786C6F (* 'txlo' *);
314
 
        cCoerceRemoveDiacriticals       = $74786463 (* 'txdc' *);
315
 
        cCoerceRemovePunctuation        = $74787063 (* 'txpc' *);
316
 
        cCoerceRemoveHyphens            = $74786879 (* 'txhy' *);
317
 
        cCoerceOneByteToTwoByte         = $74786578 (* 'txex' *);
318
 
        cCoerceRemoveWhiteSpace         = $74787773 (* 'txws' *);
319
 
        cCoerceSmallKana                        = $7478736B (* 'txsk' *);
320
 
        cCoerceZenkakuhankaku           = $74787A65 (* 'txze' *);
321
 
        cCoerceKataHiragana                     = $74786B68 (* 'txkh' *);                                               {  Lorax things:  }
322
 
        cZone                                           = $7A6F6E65 (* 'zone' *);
323
 
        cMachine                                        = $6D616368 (* 'mach' *);
324
 
        cAddress                                        = $61646472 (* 'addr' *);
325
 
        cRunningAddress                         = $72616464 (* 'radd' *);
326
 
        cStorage                                        = $73746F72 (* 'stor' *);
327
 
 
328
 
                                                                                                                                {  DateTime things:  }
329
 
        pASWeekday                                      = $776B6479 (* 'wkdy' *);
330
 
        pASMonth                                        = $6D6E7468 (* 'mnth' *);
331
 
        pASDay                                          = $64617920 (* 'day ' *);
332
 
        pASYear                                         = $79656172 (* 'year' *);
333
 
        pASTime                                         = $74696D65 (* 'time' *);
334
 
        pASDateString                           = $64737472 (* 'dstr' *);
335
 
        pASTimeString                           = $74737472 (* 'tstr' *);                                               {  Months  }
336
 
        cMonth                                          = $6D6E7468 (* 'mnth' *);
337
 
        cJanuary                                        = $6A616E20 (* 'jan ' *);
338
 
        cFebruary                                       = $66656220 (* 'feb ' *);
339
 
        cMarch                                          = $6D617220 (* 'mar ' *);
340
 
        cApril                                          = $61707220 (* 'apr ' *);
341
 
        cMay                                            = $6D617920 (* 'may ' *);
342
 
        cJune                                           = $6A756E20 (* 'jun ' *);
343
 
        cJuly                                           = $6A756C20 (* 'jul ' *);
344
 
        cAugust                                         = $61756720 (* 'aug ' *);
345
 
        cSeptember                                      = $73657020 (* 'sep ' *);
346
 
        cOctober                                        = $6F637420 (* 'oct ' *);
347
 
        cNovember                                       = $6E6F7620 (* 'nov ' *);
348
 
        cDecember                                       = $64656320 (* 'dec ' *);
349
 
 
350
 
                                                                                                                                {  Weekdays  }
351
 
        cWeekday                                        = $776B6479 (* 'wkdy' *);
352
 
        cSunday                                         = $73756E20 (* 'sun ' *);
353
 
        cMonday                                         = $6D6F6E20 (* 'mon ' *);
354
 
        cTuesday                                        = $74756520 (* 'tue ' *);
355
 
        cWednesday                                      = $77656420 (* 'wed ' *);
356
 
        cThursday                                       = $74687520 (* 'thu ' *);
357
 
        cFriday                                         = $66726920 (* 'fri ' *);
358
 
        cSaturday                                       = $73617420 (* 'sat ' *);                                               {  AS 1.1 Globals:  }
359
 
        pASQuote                                        = $71756F74 (* 'quot' *);
360
 
        pASSeconds                                      = $73656373 (* 'secs' *);
361
 
        pASMinutes                                      = $6D696E20 (* 'min ' *);
362
 
        pASHours                                        = $686F7572 (* 'hour' *);
363
 
        pASDays                                         = $64617973 (* 'days' *);
364
 
        pASWeeks                                        = $7765656B (* 'week' *);                                               {  Writing Code things:  }
365
 
        cWritingCodeInfo                        = $6369746C (* 'citl' *);
366
 
        pScriptCode                                     = $70736364 (* 'pscd' *);
367
 
        pLangCode                                       = $706C6364 (* 'plcd' *);                                               {  Magic Tell and End Tell events for logging:  }
368
 
        kASMagicTellEvent                       = $74656C6C (* 'tell' *);
369
 
        kASMagicEndTellEvent            = $74656E64 (* 'tend' *);
370
 
 
371
 
{$ALIGN MAC68K}
372
 
 
373
 
 
374
 
end.