mirror of
https://github.com/elliotnunn/supermario.git
synced 2024-11-26 16:49:18 +00:00
164 lines
7.5 KiB
OpenEdge ABL
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 }
|