mac-rom/Toolbox/AppleEventMgr/AEDF.p
Elliot Nunn 4325cdcc78 Bring in CubeE sources
Resource forks are included only for .rsrc files. These are DeRezzed into their data fork. 'ckid' resources, from the Projector VCS, are not included.

The Tools directory, containing mostly junk, is also excluded.
2017-12-26 09:52:23 +08:00

164 lines
7.5 KiB
OpenEdge ABL

{
File: AEDFWrapper.inc1.p
Written by: Ed Lai
Copyright: © 1990-1991 by Apple Computer, Inc., all rights reserved.
This file is used in these builds: BigBang
Change History (most recent first):
<3> 5/21/91 gbm Stop using the "empty" units (MemTypes, etc...)
<2> 12/13/90 Lai Separation of the main files into separate modules
Summary of B3 Changes.
In all calls that returns a descriptor, return 'NULL' with NIL handle if there is
an error.
Always pass descriptor internally as VAR to reduce code size, too many to list.
Rename every internal AEXXXXXX call to AE_XXXXXX, too many to list.
Split file up into smaller module, too many to list.
The procedure RoundUp is removed, it is now done in line because it is faster and
yet reduce code size slightly, too many to list.
Coercion from 'exte' to numeric bug is fixed.
Bug that SANE flags are affected by numeric coercion (hence if overflow occurs
once, coercion will always fail afterwards) is fixed.
Coercion from TEXT to numeric would check to see if string is too long and that
there is no garbage at the end.
Coercion from numeric to TEXT is now included.
In coercion from Boolean, it is also possible to do it from 'true' 'fals' and
'enum' with value 'true'/'fals'.
In coercion from anything to AERecord, data is checked to see if it look like an
AERecord at all. The procedure CheckIsRecord is added for this purpose.
StdCoercion is rewrittento remove nest procedures.
Long division is removed to reduce code size.
Error handling by nested CheckErr procedure is replaced by GOTO to reduce code size,
too many to list.
The call CheckDesc is introduced to convert four letter type into enumerator to
cut down 4 byte comparisions, also it provides a bottle neck so that the
AE_GetXXXX can call the blocking handler.
The MustHaveGlobal routine for the system global and application global has been
consolidated to save code. The AEInit call has been incorported into
MustHaveGlobal and the Init for system global is also incorported here to
save code.
The handler tables are now generated on demand rather than during initialization.
In WriteData, use Ptr(-1) rather than NIL in dataPtr to denote delete to save code.
Better factoring in AEGetArray and AEPutArray to reduce code size.
GetHeaderInfo is now incorporated into FindDescOffset to save code, and all the
information is in a record to avoid passing too many parameters.
The waitList, the list of reply waiting for the answer message is now a linked
list rather than an array in a handle.
The message header has been changed to remove fields that are present for historical
reason, places affected too numerous to list.
The pre-B3 switching layer code has the bug that if the sender of the message
has timed out or canceled, the server is not aware of it and still switch
layer completely suprising the user. The only satisfactory way to solve the
problem is to use a different strategy to switch layer. In stead of having
the background application call set front process, it send an AppleEvent to
the foreground process which would switch in the background application only
if it is still in the wait reply loop.
Fixes the problem that there is a pending update event, if the application has
an idle proc but does not process the update event, the AppleEvent will never
be seen. Get around the problem by using the update mask only on the every
other call to WaitNextEvent.
Now we do not return errUnknownSendMode when the send mode is kAECanSwitchLayer
+ kAENeverInteract, or kAECanSwitchLayer + kAEAnyInteract.
AE_DeleteItem, AE_DeleteKeyDesc, AE_PutKeyPtr, AE_PutPtr, AE_PutDesc, AE_PutKeyDesc,
AE_GetNthDesc, AE_GetAttributePtr, AE_GetAttributeDesc, AE_SizeOfAttribute,
AE_InstallEventHandler, AE_InstallCoercionHandler, AE_RemoveEventHandler,
AE_RemoveCoercionHandler, AE_GetCoercionHandler are all procedures with
only one line in it to call another common internal routine and the parameters
stack is already set up in a form very close to wat the internal common routine
expects. So they can easily be rewritten in assembler to improve both code size
and speed.
GetSpecialProcOffset is rewritten in assembler to save code space.
Add the 'errn' and 'errs' constant to interface file.
In B2, in an 'aevt' 'ansr' came in that matches the message on the wait list but
there is no memory to read it in, the message will be discarded, which means
the message will be on the wait list for ever. In B3 it is marked and
treated reply has arrived but attempting to access the content will result
in an error.
In B3, return ID of every process will start with the same value, now it would
be different for every application.
Now there will be no sound in the default notification when trying to interact with
user.
In AEInteractWithUser, if we switched layer then we would switch back to the message
orginator only if AEM does the layer switching, we don't do it if the user switches
it.
ReplyFilter and ReceiptFilter are now combined so that it is possible to process
AppleEvent when waiting for a receipt.
Alias to FSS coercion now will not pop up a mount volume dialog if no interaction is
spedified.
Accessing the event handler and coercion routines now goes through the hash manager
rather than by sequential search. All the routines assoicated with Install
Get and Remove handlers are rewritten.
AEDisposeDesc now checks if there is a special handler first so that applicatin
can do special dispose, to be used for disposing token in object library.
Blocking and unblocking handler are provided. When using a AE_GetXXXX, if reply
has not yet arrived, blocking handler will be called if it is available.
When a reply arrives, unblocking handler will be called if available.
Add code for special handler that allows additional dispatching to support the
object library call back.
The attribute 'refc' is a LONGINT for use by the application, it is not send as
part of the message.
There is now a delete range call.
There is now a create object call.
The non-AppleEvent handler call is in B1 but there cannot not be installed, now
it can.
<1> 9/7/90 Lai first checked in
<0> 9/7/90 Lai First Checked in to BBS
To Do:
}
{[a-,body+,h-,o=100,r+,rec+,t=4,u+,#+,j=20/57/1$,n-]} { Pasmat format control line }
{ AEDF.p }
{ Copyright © 1984-1990 by Apple Computer Inc. All rights reserved. }
UNIT AEDF;
INTERFACE
USES
Types, Memory, Errors,
AppleEvents, AEHashTable, AEUtil, AEHandlerTable, AECoercion, AEDFWrapper;
CONST
kAEProtocolMask = $0000000F; { mask for sending protocols }
kAEInteractMask = $00000070; { mask for interact level in send protocol }
{ bit number in the AESendMode }
kBitCanSwitchLayer = 6;
kBitDontReconnect = 7;
kBitPartOfReply = 8;
kBitWantReceipt = 9;
kBitAttnMsg = 0;
FUNCTION AE_ResumeTheCurrentEvent(VAR theAppleEvent, reply: AppleEvent; { VAR is for efficiency only }
dispatcher:EventHandlerProcPtr;
handlerRefcon:Longint): OSErr;
FUNCTION AE_Send(VAR theAppleEvent: AppleEvent;{ VAR is for efficiency only }
VAR reply: AppleEvent;
sendMode: AESendMode;
sendPriority: AESendPriority;
timeOutInTicks: LONGINT;
idleProc: IdleProcPtr;
filterProc: EventFilterProcPtr): OSErr;
FUNCTION AE_ProcessAppleEvent(VAR theEventRecord: EventRecord): OSErr;
IMPLEMENTATION
{$I AEDF.inc1.p}
END. { AEDF }