pjs/xpfe/bootstrap/appleevents/nsAECoreClass.cpp

1100 строки
32 KiB
C++
Исходник Обычный вид История

/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*- */
/* ***** BEGIN LICENSE BLOCK *****
* Version: MPL 1.1/GPL 2.0/LGPL 2.1
2000-02-12 01:06:28 +03:00
*
* The contents of this file are subject to the Mozilla Public License Version
* 1.1 (the "License"); you may not use this file except in compliance with
* the License. You may obtain a copy of the License at
* http://www.mozilla.org/MPL/
2000-02-12 01:06:28 +03:00
*
* Software distributed under the License is distributed on an "AS IS" basis,
* WITHOUT WARRANTY OF ANY KIND, either express or implied. See the License
* for the specific language governing rights and limitations under the
* License.
2000-02-12 01:06:28 +03:00
*
* The Original Code is Mozilla Communicator client code.
*
* The Initial Developer of the Original Code is
* Netscape Communications Corporation.
* Portions created by the Initial Developer are Copyright (C) 1998
* the Initial Developer. All Rights Reserved.
2000-02-12 01:06:28 +03:00
*
* Contributor(s):
* Simon Fraser <sfraser@netscape.com>
*
* Alternatively, the contents of this file may be used under the terms of
* either of the GNU General Public License Version 2 or later (the "GPL"),
* or the GNU Lesser General Public License Version 2.1 or later (the "LGPL"),
* in which case the provisions of the GPL or the LGPL are applicable instead
* of those above. If you wish to allow use of your version of this file only
* under the terms of either the GPL or the LGPL, and not to allow others to
* use your version of this file under the terms of the MPL, indicate your
* decision by deleting the provisions above and replace them with the notice
* and other provisions required by the GPL or the LGPL. If you do not delete
* the provisions above, a recipient may use your version of this file under
* the terms of any one of the MPL, the GPL or the LGPL.
*
* ***** END LICENSE BLOCK ***** */
2000-02-12 01:06:28 +03:00
#include "nsAEClassTypes.h"
#include "nsAEUtils.h"
#include "nsAETokens.h"
#include "nsAECompare.h"
#include "nsAEApplicationClass.h"
#include "nsAEDocumentClass.h"
#include "nsAEWindowClass.h"
/*
#include "nsAETextClass.h"
#include "nsAEWordClass.h"
#include "nsAECharacterClass.h"
*/
#include "nsAECoreClass.h"
AECoreClass* AECoreClass::sAECoreHandler = nil;
/*----------------------------------------------------------------------------
AECoreClass
----------------------------------------------------------------------------*/
AECoreClass::AECoreClass(Boolean suspendEvents)
: mSuspendEventHandlerUPP(nil)
, mStandardSuiteHandlerUPP(nil)
, mRequiredSuiteHandlerUPP(nil)
, mCreateElementHandlerUPP(nil)
, mMozillaSuiteHandlerUPP(nil)
, mGetURLSuiteHandlerUPP(nil)
, mSpyGlassSuiteHandlerUPP(nil)
, mPropertyFromListAccessor(nil)
, mAnythingFromAppAccessor(nil)
, mCountItemsCallback(nil)
, mCompareItemsCallback(nil)
{
mSuspendedEvent.descriptorType = typeNull;
mSuspendedEvent.dataHandle = nil;
mReplyToSuspendedEvent.descriptorType = typeNull;
mReplyToSuspendedEvent.dataHandle = nil;
OSErr err = ::AEObjectInit();
ThrowIfOSErr(err);
mSuspendEventHandlerUPP = NewAEEventHandlerUPP(AECoreClass::SuspendEventHandler);
2000-02-12 01:06:28 +03:00
ThrowIfNil(mSuspendEventHandlerUPP);
mRequiredSuiteHandlerUPP = NewAEEventHandlerUPP(AECoreClass::RequiredSuiteHandler);
2000-02-12 01:06:28 +03:00
ThrowIfNil(mRequiredSuiteHandlerUPP);
mStandardSuiteHandlerUPP = NewAEEventHandlerUPP(AECoreClass::CoreSuiteHandler);
2000-02-12 01:06:28 +03:00
ThrowIfNil(mStandardSuiteHandlerUPP);
mMozillaSuiteHandlerUPP = NewAEEventHandlerUPP(AECoreClass::MozillaSuiteHandler);
2000-02-12 01:06:28 +03:00
ThrowIfNil(mMozillaSuiteHandlerUPP);
mGetURLSuiteHandlerUPP = NewAEEventHandlerUPP(AECoreClass::GetURLSuiteHandler);
2000-02-12 01:06:28 +03:00
ThrowIfNil(mGetURLSuiteHandlerUPP);
mSpyGlassSuiteHandlerUPP = NewAEEventHandlerUPP(AECoreClass::SpyglassSuiteHandler);
2000-02-12 01:06:28 +03:00
ThrowIfNil(mSpyGlassSuiteHandlerUPP);
InstallSuiteHandlers(suspendEvents);
mCreateElementHandlerUPP = NewAEEventHandlerUPP(AECoreClass::CreateElementHandler);
2000-02-12 01:06:28 +03:00
ThrowIfNil(mCreateElementHandlerUPP);
// Special handler for StandardSuite Make (CreateElement) event
// Make (CreateElement) is different than the other events processed above
// because it passes its ospec in the insertionLoc parameter instead of
// in the direct object parameter.
err = ::AEInstallEventHandler(kAECoreSuite, kAECreateElement,
mCreateElementHandlerUPP,
(long)this,
false);
ThrowIfOSErr(err);
/* We'd like to be able to install a generic handler that is used to get anything from null.
Unfortunately, some formRelative requests require a handler for getting an item from
another of the same type (e.g. "get the window after window 'foo'" requires a cWindow
from cWindow handler).
*/
// Install a generic handler to get an item from the app
mAnythingFromAppAccessor = NewOSLAccessorUPP(AECoreClass::AnythingFromAppAccessor);
2000-02-12 01:06:28 +03:00
ThrowIfNil(mAnythingFromAppAccessor);
// Install a handler to get properties from anything.
err = ::AEInstallObjectAccessor(typeWildCard, typeWildCard, mAnythingFromAppAccessor, (long)this, false);
ThrowIfOSErr(err);
// Install a generic handler to get a property from a typeAEList of tokens
mPropertyFromListAccessor = NewOSLAccessorUPP(AECoreClass::PropertyTokenFromAnything);
2000-02-12 01:06:28 +03:00
ThrowIfNil(mPropertyFromListAccessor);
// Install a handler to get properties from anything.
err = ::AEInstallObjectAccessor(cProperty, typeWildCard, mPropertyFromListAccessor, (long)this, false);
ThrowIfOSErr(err);
// Install the OSL object callbacks, use for compare and count
mCountItemsCallback = NewOSLCountUPP(AECoreClass::CountObjectsCallback);
2000-02-12 01:06:28 +03:00
ThrowIfNil(mCountItemsCallback);
mCompareItemsCallback = NewOSLCompareUPP(AECoreClass::CompareObjectsCallback);
2000-02-12 01:06:28 +03:00
ThrowIfNil(mCompareItemsCallback);
err = ::AESetObjectCallbacks(
mCompareItemsCallback,
mCountItemsCallback,
(OSLDisposeTokenUPP) nil,
(OSLGetMarkTokenUPP) nil,
(OSLMarkUPP) nil,
(OSLAdjustMarksUPP) nil,
(OSLGetErrDescUPP) nil);
ThrowIfOSErr(err);
// create the dispatchers for various object types. This should be the only place
// that new classes have to be added
AEApplicationClass* appDispatcher = new AEApplicationClass;
RegisterClassHandler(cApplication, appDispatcher);
RegisterClassHandler(typeNull, appDispatcher, true);
AEDocumentClass* docDispatcher = new AEDocumentClass;
RegisterClassHandler(cDocument, docDispatcher);
AEWindowClass* windowDispatcher = new AEWindowClass(cWindow, kAnyWindowKind);
RegisterClassHandler(cWindow, windowDispatcher);
/*
AETextClass* textDispatcher = new AETextClass;
RegisterClassHandler(AETextClass::cTEText, textDispatcher);
AEWordClass* wordDispatcher = new AEWordClass;
RegisterClassHandler(cWord, wordDispatcher);
AECharacterClass* charDispatcher = new AECharacterClass;
RegisterClassHandler(cChar, charDispatcher);
*/
}
/*----------------------------------------------------------------------------
~AECoreClass
----------------------------------------------------------------------------*/
AECoreClass::~AECoreClass()
{
if (mSuspendEventHandlerUPP)
DisposeAEEventHandlerUPP(mSuspendEventHandlerUPP);
2000-02-12 01:06:28 +03:00
if (mStandardSuiteHandlerUPP)
DisposeAEEventHandlerUPP(mStandardSuiteHandlerUPP);
2000-02-12 01:06:28 +03:00
if (mRequiredSuiteHandlerUPP)
DisposeAEEventHandlerUPP(mRequiredSuiteHandlerUPP);
2000-02-12 01:06:28 +03:00
if (mMozillaSuiteHandlerUPP)
DisposeAEEventHandlerUPP(mMozillaSuiteHandlerUPP);
2000-02-12 01:06:28 +03:00
if (mGetURLSuiteHandlerUPP)
DisposeAEEventHandlerUPP(mGetURLSuiteHandlerUPP);
2000-02-12 01:06:28 +03:00
if (mSpyGlassSuiteHandlerUPP)
DisposeAEEventHandlerUPP(mSpyGlassSuiteHandlerUPP);
2000-02-12 01:06:28 +03:00
if (mCreateElementHandlerUPP)
DisposeAEEventHandlerUPP(mCreateElementHandlerUPP);
2000-02-12 01:06:28 +03:00
if (mPropertyFromListAccessor)
DisposeOSLAccessorUPP(mPropertyFromListAccessor);
2000-02-12 01:06:28 +03:00
if (mAnythingFromAppAccessor)
DisposeOSLAccessorUPP(mAnythingFromAppAccessor);
2000-02-12 01:06:28 +03:00
if (mCountItemsCallback)
DisposeOSLCountUPP(mCountItemsCallback);
2000-02-12 01:06:28 +03:00
if (mCompareItemsCallback)
DisposeOSLCompareUPP(mCompareItemsCallback);
2000-02-12 01:06:28 +03:00
}
#pragma mark -
/*----------------------------------------------------------------------------
HandleCoreSuiteEvent
----------------------------------------------------------------------------*/
void AECoreClass::HandleCoreSuiteEvent(const AppleEvent *appleEvent, AppleEvent *reply)
2000-02-12 01:06:28 +03:00
{
StAEDesc directParameter;
StAEDesc token;
OSErr err = noErr;
// extract the direct parameter (an object specifier)
err = ::AEGetKeyDesc(appleEvent, keyDirectObject, typeWildCard, &directParameter);
ThrowIfOSErr(err);
DescType dispatchClass = typeNull;
// check for null descriptor, which AEResolve doesn't handle well
// If it's not null, then AEResolve will return an application-defined token
if (directParameter.descriptorType == typeNull)
{
token = directParameter; // can throw
}
else
{
// The direct parameter contains an object specifier, or an "reference" in
// AppleScript terminology, such as "rectangle 1 of document 1".
// AEResolve() will recursively call our installed object accessors
// until it returns a token with data referencing the requested object.
err = ::AEResolve(&directParameter, kAEIDoMinimum, &token);
}
if (err == errAENoSuchObject || err == errAEIllegalIndex)
{
// If we were executing an "Exists..." AppleEvent, we can reply it here
// because we have already determined that it DOES NOT exist.
// First, we get the event ID. We use "eventError" instead of "err"
// so that the result of AEGetAttributePtr() does not disturb the
// errAENoSuchObject result previously returned.
AEEventID eventID;
OSType typeCode;
Size actualSize = 0;
OSErr eventError = ::AEGetAttributePtr(appleEvent,
keyEventIDAttr,
typeType,
&typeCode,
(Ptr)&eventID, // Get the eventID from the AppleEvent
sizeof(eventID),
&actualSize);
// If event was an "Exists..." message, store the result (false) in the reply
// because AEResolve() returned errAENoSuchObject.
if (eventError == noErr && eventID == kAEDoObjectsExist)
{
Boolean foundIt = false;
(void)AEPutParamPtr(reply, keyAEResult, typeBoolean, (Ptr)&foundIt, sizeof(Boolean));
// Now, we set the err to noErr so that the scripting component doesn't complain
// that the object does not exist. We only do this if we were executing an "Exists..."
// event. Otherwise, the errAENoSuchObject will be returned.
ThrowNoErr();
}
ThrowIfOSErr(err);
return;
}
ThrowIfOSErr(err);
// Pass the token returned by AEResolve(), and the original AppleEvent event and reply,
// on to the appropriate object dispatcher
// The token type is, by convention, the same as class ID that handles this event.
// However, for property tokens, tokenType is cProperty for all objects, so
// we look inside the token at its dispatchClass to find out which class of object
// should really handle this AppleEvent.
// Also, if the resolver returned a list of objects in the token,
// the type will be typeAEList or one of our special list types, so
// we set the dispatch class based on the list type
// instead of on the type of the token itself
if (AEListUtils::TokenContainsTokenList(&token))
{
SInt32 numItems;
err = AECountItems(&token, &numItems);
if (numItems == 0) // could be an empty list
{
dispatchClass = typeNull;
}
else
{
StAEDesc tempToken;
err = AEListUtils::GetFirstNonListToken((AEDesc *)&token, &tempToken);
if (err == noErr && tempToken.descriptorType != typeNull)
{
ConstAETokenDesc tokenDesc(&tempToken);
2000-02-12 01:06:28 +03:00
dispatchClass = tokenDesc.GetDispatchClass();
}
else
{
dispatchClass = typeNull;
err = noErr;
}
}
}
else if (token.descriptorType == typeNull) // make sure we correctly handle things for cApplication that don't have a direct parameter
{
dispatchClass = typeNull;
}
else
{
ConstAETokenDesc tokenDesc(&token);
2000-02-12 01:06:28 +03:00
dispatchClass = tokenDesc.GetDispatchClass();
}
// why is this special-cased?
if (dispatchClass == cFile)
{
AEEventID eventID = 0;
OSType typeCode = 0;
Size actualSize = 0;
2000-02-12 01:06:28 +03:00
AEGetAttributePtr(appleEvent, keyEventIDAttr,
typeType,
&typeCode,
(Ptr)&eventID, // Get the eventID from the AppleEvent
sizeof(eventID),
&actualSize);
2000-02-12 01:06:28 +03:00
}
AEDispatchHandler* handler = GetDispatchHandler(dispatchClass);
if (!handler)
ThrowIfOSErr(errAEEventNotHandled);
handler->DispatchEvent(&token, appleEvent, reply);
}
/*----------------------------------------------------------------------------
HandleRequiredSuiteEvent
----------------------------------------------------------------------------*/
void AECoreClass::HandleRequiredSuiteEvent(const AppleEvent *appleEvent, AppleEvent *reply)
2000-02-12 01:06:28 +03:00
{
StAEDesc token;
// ignore error; direct object param might be optional
(void)::AEGetParamDesc(appleEvent, keyDirectObject, typeAEList, &token);
AEDispatchHandler* handler = GetDispatchHandler(cApplication);
if (!handler)
ThrowIfOSErr(errAEEventNotHandled);
handler->DispatchEvent(&token, appleEvent, reply);
}
/*----------------------------------------------------------------------------
HandleCreateElementEvent
----------------------------------------------------------------------------*/
void AECoreClass::HandleCreateElementEvent(const AppleEvent *appleEvent, AppleEvent *reply)
2000-02-12 01:06:28 +03:00
{
StAEDesc token;
OSErr err = noErr;
// Extract the type of object we want to create.
// We use this to call the event dispatcher for that kind of objects
err = ::AEGetParamDesc(appleEvent, keyAEObjectClass, typeType, &token);
ThrowIfOSErr(err);
DescType dispatchClass = **(DescType **)(token.dataHandle);
AEDispatchHandler* handler = GetDispatchHandler(dispatchClass);
if (!handler)
ThrowIfOSErr(errAEEventNotHandled);
handler->DispatchEvent(&token, appleEvent, reply);
}
/*----------------------------------------------------------------------------
HandleEventSuspend
----------------------------------------------------------------------------*/
void AECoreClass::HandleEventSuspend(const AppleEvent *appleEvent, AppleEvent *reply)
2000-02-12 01:06:28 +03:00
{
mSuspendedEvent = *appleEvent;
mReplyToSuspendedEvent = *reply;
OSErr err = ::AESuspendTheCurrentEvent(appleEvent);
ThrowIfOSErr(err);
}
/*----------------------------------------------------------------------------
PropertyTokenFromList
----------------------------------------------------------------------------*/
void AECoreClass::PropertyTokenFromList( DescType desiredClass,
const AEDesc* containerToken,
DescType containerClass,
DescType keyForm,
const AEDesc* keyData,
AEDesc* resultToken)
{
DescType handlerClass;
ConstAETokenDesc containerDesc(containerToken);
2000-02-12 01:06:28 +03:00
switch (containerClass)
{
case cProperty:
// this is to handle our property from property hack, which enables an article to be a property
// of an article window, and thence to get properties of that article.
handlerClass = containerDesc.GetDispatchClass();
break;
default:
handlerClass = containerClass;
break;
}
AEDispatchHandler* handler = GetDispatchHandler(handlerClass);
if (!handler)
ThrowIfOSErr(errAEEventNotHandled);
handler->GetProperty( desiredClass,
containerToken,
containerClass,
keyForm,
keyData,
resultToken);
}
/*----------------------------------------------------------------------------
GetAnythingFromApp
----------------------------------------------------------------------------*/
void AECoreClass::GetAnythingFromApp( DescType desiredClass,
const AEDesc* containerToken,
DescType containerClass,
DescType keyForm,
const AEDesc* keyData,
AEDesc* resultToken)
{
AEDispatchHandler* handler = GetDispatchHandler(desiredClass);
if (!handler)
ThrowIfOSErr(errAEEventNotHandled);
handler->GetItemFromContainer( desiredClass,
containerToken,
containerClass,
keyForm,
keyData,
resultToken);
}
#pragma mark -
/*----------------------------------------------------------------------------
SuspendEventHandler
This handler receives ALL core suite events EXCEPT Make (CreateElement).
It simply suspends the current event and returns. Someone has to resume
this event later, when we are ready to handle it, by calling ResumeEventHandling().
----------------------------------------------------------------------------*/
pascal OSErr AECoreClass::SuspendEventHandler(const AppleEvent *appleEvent, AppleEvent *reply, SInt32 refCon)
2000-02-12 01:06:28 +03:00
{
AECoreClass* coreClass = reinterpret_cast<AECoreClass *>(refCon);
OSErr err = noErr;
if (coreClass == nil)
return errAECorruptData;
try
{
coreClass->HandleEventSuspend(appleEvent, reply);
}
catch (OSErr catchErr)
{
err = catchErr;
}
catch ( ... )
{
err = paramErr;
}
return err;
}
/*----------------------------------------------------------------------------
RequiredSuiteHandler
This handler receives ALL core suite events EXCEPT Make (CreateElement)
and passes them on to the correct object dispatcher:
cApplication, cDocument, cFile, cGraphicObject, and cWindow.
Make (CreateElement) is different because it passes its ospec in the
insertionLoc parameter instead of in the direct object parameter.
----------------------------------------------------------------------------*/
pascal OSErr AECoreClass::RequiredSuiteHandler(const AppleEvent *appleEvent, AppleEvent *reply, SInt32 refCon)
2000-02-12 01:06:28 +03:00
{
AECoreClass* coreClass = reinterpret_cast<AECoreClass *>(refCon);
OSErr err = noErr;
if (coreClass == nil)
return errAECorruptData;
try
{
coreClass->HandleRequiredSuiteEvent(appleEvent, reply);
}
catch (OSErr catchErr)
{
err = catchErr;
}
catch ( ... )
{
err = paramErr;
}
return err;
}
/*----------------------------------------------------------------------------
CoreSuiteHandler
This handler receives ALL core suite events EXCEPT Make (CreateElement)
and passes them on to the correct object dispatcher:
cApplication, cDocument, cFile, cGraphicObject, and cWindow.
Make (CreateElement) is different because it passes its ospec in the
insertionLoc parameter instead of in the direct object parameter.
----------------------------------------------------------------------------*/
pascal OSErr AECoreClass::CoreSuiteHandler(const AppleEvent *appleEvent, AppleEvent *reply, SInt32 refCon)
2000-02-12 01:06:28 +03:00
{
AECoreClass* coreClass = reinterpret_cast<AECoreClass *>(refCon);
OSErr err = noErr;
if (coreClass == nil)
return errAECorruptData;
try
{
coreClass->HandleCoreSuiteEvent(appleEvent, reply);
}
catch (OSErr catchErr)
{
err = catchErr;
}
catch ( ... )
{
err = paramErr;
}
return err;
}
/*----------------------------------------------------------------------------
CreateElementHandler
----------------------------------------------------------------------------*/
pascal OSErr AECoreClass::CreateElementHandler(const AppleEvent *appleEvent, AppleEvent *reply, SInt32 refCon)
2000-02-12 01:06:28 +03:00
{
AECoreClass* coreClass = reinterpret_cast<AECoreClass *>(refCon);
OSErr err = noErr;
if (coreClass == nil)
return errAECorruptData;
try
{
coreClass->HandleCreateElementEvent(appleEvent, reply);
}
catch (OSErr catchErr)
{
err = catchErr;
}
catch ( ... )
{
err = paramErr;
}
return err;
}
#pragma mark -
/*----------------------------------------------------------------------------
MozillaSuiteHandler
----------------------------------------------------------------------------*/
pascal OSErr AECoreClass::MozillaSuiteHandler(const AppleEvent *appleEvent, AppleEvent *reply, SInt32 refCon)
2000-02-12 01:06:28 +03:00
{
AECoreClass* coreClass = reinterpret_cast<AECoreClass *>(refCon);
OSErr err = noErr;
if (coreClass == nil)
return errAECorruptData;
try
{
coreClass->HandleMozillaSuiteEvent(appleEvent, reply);
}
catch (OSErr catchErr)
{
err = catchErr;
}
catch ( ... )
{
err = paramErr;
}
return err;
}
/*----------------------------------------------------------------------------
GetURLSuiteHandler
----------------------------------------------------------------------------*/
pascal OSErr AECoreClass::GetURLSuiteHandler(const AppleEvent *appleEvent, AppleEvent *reply, SInt32 refCon)
2000-02-12 01:06:28 +03:00
{
AECoreClass* coreClass = reinterpret_cast<AECoreClass *>(refCon);
OSErr err = noErr;
if (coreClass == nil)
return errAECorruptData;
try
{
coreClass->HandleGetURLSuiteEvent(appleEvent, reply);
}
catch (OSErr catchErr)
{
err = catchErr;
}
catch ( ... )
{
err = paramErr;
}
return err;
}
/*----------------------------------------------------------------------------
SpyGlassSuiteHandler
----------------------------------------------------------------------------*/
pascal OSErr AECoreClass::SpyglassSuiteHandler(const AppleEvent *appleEvent, AppleEvent *reply, SInt32 refCon)
2000-02-12 01:06:28 +03:00
{
AECoreClass* coreClass = reinterpret_cast<AECoreClass *>(refCon);
OSErr err = noErr;
if (coreClass == nil)
return errAECorruptData;
try
{
coreClass->HandleSpyglassSuiteEvent(appleEvent, reply);
}
catch (OSErr catchErr)
{
err = catchErr;
}
catch ( ... )
{
err = paramErr;
}
return err;
}
#pragma mark -
/*----------------------------------------------------------------------------
HandleMozillaSuiteEvent
We probably want to handle events for this suite off to another class.
----------------------------------------------------------------------------*/
void AECoreClass::HandleMozillaSuiteEvent(const AppleEvent *appleEvent, AppleEvent *reply)
2000-02-12 01:06:28 +03:00
{
mMozillaSuiteHandler.HandleMozillaSuiteEvent(appleEvent, reply);
2000-02-12 01:06:28 +03:00
}
/*----------------------------------------------------------------------------
HandleGetURLSuiteEvent
We probably want to handle events for this suite off to another class.
----------------------------------------------------------------------------*/
void AECoreClass::HandleGetURLSuiteEvent(const AppleEvent *appleEvent, AppleEvent *reply)
2000-02-12 01:06:28 +03:00
{
mGetURLSuiteHandler.HandleGetURLSuiteEvent(appleEvent, reply);
2000-02-12 01:06:28 +03:00
}
/*----------------------------------------------------------------------------
HandleSpyGlassSuiteEvent
We probably want to handle events for this suite off to another class.
----------------------------------------------------------------------------*/
void AECoreClass::HandleSpyglassSuiteEvent(const AppleEvent *appleEvent, AppleEvent *reply)
2000-02-12 01:06:28 +03:00
{
mSpyglassSuiteHandler.HandleSpyglassSuiteEvent(appleEvent, reply);
2000-02-12 01:06:28 +03:00
}
#pragma mark -
/*----------------------------------------------------------------------------
PropertyTokenFromAnything
----------------------------------------------------------------------------*/
pascal OSErr AECoreClass::PropertyTokenFromAnything( DescType desiredClass,
const AEDesc* containerToken,
DescType containerClass,
DescType keyForm,
const AEDesc* keyData,
AEDesc* resultToken,
long refCon)
{
AECoreClass* coreClass = reinterpret_cast<AECoreClass *>(refCon);
if (!coreClass) return paramErr;
OSErr err = noErr;
try
{
coreClass->PropertyTokenFromList(desiredClass, containerToken, containerClass, keyForm, keyData, resultToken);
}
catch (OSErr catchErr)
{
err = catchErr;
}
catch (...)
{
err = paramErr;
}
return err;
}
/*----------------------------------------------------------------------------
AnythingFromAppAccessor
----------------------------------------------------------------------------*/
pascal OSErr AECoreClass::AnythingFromAppAccessor( DescType desiredClass,
const AEDesc* containerToken,
DescType containerClass,
DescType keyForm,
const AEDesc* keyData,
AEDesc* resultToken,
long refCon)
{
AECoreClass* coreClass = reinterpret_cast<AECoreClass *>(refCon);
if (!coreClass)
return paramErr;
OSErr err = noErr;
try
{
coreClass->GetAnythingFromApp(desiredClass, containerToken, containerClass, keyForm, keyData, resultToken);
}
catch (OSErr catchErr)
{
err = catchErr;
}
catch (...)
{
err = paramErr;
}
return err;
}
/*----------------------------------------------------------------------------
CompareObjectsCallback
----------------------------------------------------------------------------*/
pascal OSErr AECoreClass::CompareObjectsCallback( DescType comparisonOperator, // operator to use
const AEDesc * object, // left-hand side
const AEDesc * descriptorOrObject, // right-hand side
Boolean * result)
{
OSErr err = noErr;
try
{
OSErr err = noErr;
StAEDesc desc1;
StAEDesc desc2;
// This first AEDesc is a token to a specific object, so we resolve it.
AECoreClass::GetAECoreHandler()->ExtractData(object, &desc1);
// A second AEDesc is either a token to another object or an AEDesc containing literal data.
AECoreClass::GetAECoreHandler()->ExtractData(descriptorOrObject, &desc2);
// Make sure the data type extracted from the second AEDesc is the same as the
// data specified by the first AEDesc.
if (desc1.descriptorType != desc2.descriptorType)
{
StAEDesc temp;
// Create a temporary duplicate of desc2 and coerce it to the
// requested type. This could call a coercion handler you have
// installed. If there are no errors, stuff the coerced value back into desc2
err = AEDuplicateDesc(&desc2, &temp);
ThrowIfOSErr(err);
desc2.Clear();
err = AECoerceDesc(&temp, desc1.descriptorType, &desc2);
ThrowIfOSErr(err);
}
AEDispatchHandler* handler = AECoreClass::GetDispatchHandlerForClass(desc1.descriptorType);
if (handler)
handler->CompareObjects(comparisonOperator, &desc1, &desc2, result);
else
*result = AEComparisons::TryPrimitiveComparison(comparisonOperator, &desc1, &desc2);
}
catch (OSErr catchErr)
{
err = catchErr;
}
catch (...)
{
err = paramErr;
}
return err;
}
/*----------------------------------------------------------------------------
CountObjectsCallback
----------------------------------------------------------------------------*/
pascal OSErr AECoreClass::CountObjectsCallback( DescType desiredType,
DescType containerClass,
const AEDesc * container,
long * result)
{
AEDispatchHandler* handler = AECoreClass::GetDispatchHandlerForClass(containerClass);
if (!handler)
return errAEEventNotHandled;
OSErr err = noErr;
try
{
handler->CountObjects( desiredType,
containerClass,
container,
result);
}
catch (OSErr catchErr)
{
err = catchErr;
}
catch (...)
{
err = paramErr;
}
return err;
}
#pragma mark -
/*----------------------------------------------------------------------------
GetEventKeyDataParameter
Extract the keyData parameter data from an apple event
---------------------------------------------------------------------------*/
void AECoreClass::GetEventKeyDataParameter(const AppleEvent *appleEvent, DescType requestedType, AEDesc *data)
{
StAEDesc keyData;
OSErr err = AEGetKeyDesc(appleEvent, keyAEData, requestedType, &keyData);
ThrowIfOSErr(err);
ExtractData(&keyData, data);
}
/*----------------------------------------------------------------------------
ExtractData
ExtractData can receive several types of data:
Source Processing
-------------------- -----------------------------
an object specifier call AEResolve() to get token, then handle below
a property token call public accessors to get raw data from token
a object token if it's not a property token, the token itself is returned
raw data just return it, it's already data!
---------------------------------------------------------------------------*/
void AECoreClass::ExtractData(const AEDesc *source, AEDesc *data)
{
OSErr err = noErr;
StAEDesc temp;
DescType dispatchClass;
if ((source->descriptorType == typeNull) || (source->dataHandle == nil))
ThrowIfOSErr(errAENoSuchObject);
// If it's an object specifier, resolve into a token
// Otherwise, just copy it
if (source->descriptorType == typeObjectSpecifier)
{
err = AEResolve(source, kAEIDoMinimum, &temp);
}
else
{
err = AEDuplicateDesc(source, &temp);
}
ThrowIfOSErr(err);
// Next, determine which object should handle it, if any.
// If it's a property token, get the dispatch class.
// Otherwise, just get the descriptorType.
if (temp.descriptorType == typeProperty)
{
ConstAETokenDesc tokenDesc(&temp);
2000-02-12 01:06:28 +03:00
dispatchClass = tokenDesc.GetDispatchClass();
}
else
dispatchClass = temp.descriptorType;
// If it's a property token, get the data it refers to,
// otherwise duplicate it and return
AEDispatchHandler* handler = GetDispatchHandler(dispatchClass);
if (handler)
{
/*
case cApplication:
// why?
ThrowIfOSErr(errAEEventNotHandled);
break;
*/
handler->GetDataFromListOrObject(&temp, nil, data);
}
else
{
err = AEDuplicateDesc(&temp, data);
ThrowIfOSErr(err);
}
}
#pragma mark -
/*----------------------------------------------------------------------------
RegisterClassHandler
This is where a handler class registers itself
----------------------------------------------------------------------------*/
void AECoreClass::RegisterClassHandler(DescType handlerClass, AEGenericClass* classHandler, Boolean isDuplicate /* = false */)
{
mDispatchTree.InsertHandler(handlerClass, classHandler, isDuplicate);
}
/*----------------------------------------------------------------------------
GetDispatchHandler
Get a dispatch handler for the given class
----------------------------------------------------------------------------*/
AEDispatchHandler* AECoreClass::GetDispatchHandler(DescType dispatchClass)
{
return mDispatchTree.FindHandler(dispatchClass);
}
/*----------------------------------------------------------------------------
GetDispatchHandler
Get a dispatch handler for the given class.
Static
----------------------------------------------------------------------------*/
AEDispatchHandler* AECoreClass::GetDispatchHandlerForClass(DescType dispatchClass)
{
if (!sAECoreHandler)
return nil;
return sAECoreHandler->GetDispatchHandler(dispatchClass);
}
/*----------------------------------------------------------------------------
InstallSuitesGenericHandler
Install a handler for each of our suites
----------------------------------------------------------------------------*/
void AECoreClass::InstallSuiteHandlers(Boolean suspendEvents)
{
OSErr err;
err = ::AEInstallEventHandler(kCoreEventClass, typeWildCard,
suspendEvents ? mSuspendEventHandlerUPP : mRequiredSuiteHandlerUPP,
(long)this,
false);
ThrowIfOSErr(err);
err = ::AEInstallEventHandler(kAECoreSuite, typeWildCard,
suspendEvents ? mSuspendEventHandlerUPP : mStandardSuiteHandlerUPP,
(long)this,
false);
ThrowIfOSErr(err);
// install the mozilla suite handler
err = ::AEInstallEventHandler(AEMozillaSuiteHandler::kSuiteSignature, typeWildCard,
2000-02-12 01:06:28 +03:00
suspendEvents ? mSuspendEventHandlerUPP : mMozillaSuiteHandlerUPP,
(long)this,
false);
ThrowIfOSErr(err);
// install the GetURL suite handler
err = ::AEInstallEventHandler(AEGetURLSuiteHandler::kSuiteSignature, typeWildCard,
2000-02-12 01:06:28 +03:00
suspendEvents ? mSuspendEventHandlerUPP : mGetURLSuiteHandlerUPP,
(long)this,
false);
ThrowIfOSErr(err);
// install the SpyGlass suite handler
err = ::AEInstallEventHandler(AESpyglassSuiteHandler::kSuiteSignature, typeWildCard,
2000-02-12 01:06:28 +03:00
suspendEvents ? mSuspendEventHandlerUPP : mSpyGlassSuiteHandlerUPP,
(long)this,
false);
ThrowIfOSErr(err);
}
/*----------------------------------------------------------------------------
HandleCoreSuiteEvent
----------------------------------------------------------------------------*/
void AECoreClass::ResumeEventHandling(const AppleEvent *appleEvent, AppleEvent *reply, Boolean dispatchEvent)
2000-02-12 01:06:28 +03:00
{
InstallSuiteHandlers(false);
OSErr err;
// now resume the passed in event
err = ::AEResumeTheCurrentEvent(appleEvent, reply, (AEEventHandlerUPP)(dispatchEvent ? kAEUseStandardDispatch : kAENoDispatch), (long)this);
ThrowIfOSErr(err);
}