gecko/xpfe/bootstrap/appleevents/nsAECoercionHandlers.cpp

228 lines
6.1 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
*
* 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/
*
* 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.
*
* 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.
*
* 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 ***** */
#include "nsAEUtils.h"
#include "nsAECoercionHandlers.h"
AECoercionHandlers* AECoercionHandlers::sAECoercionHandlers = nil;
/*----------------------------------------------------------------------------
AECoercionHandlers
----------------------------------------------------------------------------*/
AECoercionHandlers::AECoercionHandlers()
: mTextDescToPascalString(nil)
, mPascalStringDescToText(nil)
{
OSErr err;
// XXX: Note inconsistent type between NewAECoerceDescProc and AEInstallCoercionHandler. Buggy headers when using Carbon?
mTextDescToPascalString = NewAECoerceDescUPP(TextToPascalStringCoercion);
ThrowIfNil(mTextDescToPascalString);
err = ::AEInstallCoercionHandler(typeChar, typePascalString,
(AECoercionHandlerUPP) mTextDescToPascalString,
(long)this,
true, /* Pass a pointer not a descriptor */
false ); /* Application table, not System */
ThrowIfOSErr(err);
mPascalStringDescToText = NewAECoerceDescUPP(PascalStringToTextCoercion);
ThrowIfNil(mPascalStringDescToText);
err = ::AEInstallCoercionHandler(typePascalString, typeChar,
(AECoercionHandlerUPP) mPascalStringDescToText,
(long)this,
true, /* Pass a pointer not a descriptor */
false ); /* Application table, not System */
ThrowIfOSErr(err);
}
/*----------------------------------------------------------------------------
~AECoercionHandlers
----------------------------------------------------------------------------*/
AECoercionHandlers::~AECoercionHandlers()
{
if (mTextDescToPascalString)
{
AERemoveCoercionHandler(typeChar, typePascalString, (AECoercionHandlerUPP) mTextDescToPascalString, false);
DisposeAECoerceDescUPP(mTextDescToPascalString);
}
if (mPascalStringDescToText)
{
AERemoveCoercionHandler(typePascalString, typeChar, (AECoercionHandlerUPP) mPascalStringDescToText, false);
DisposeAECoerceDescUPP(mPascalStringDescToText);
}
}
#pragma mark -
/*----------------------------------------------------------------------------
TextToPascalStringCoercion
----------------------------------------------------------------------------*/
pascal OSErr AECoercionHandlers::TextToPascalStringCoercion(const AEDesc *fromDesc, DescType toType, long handlerRefcon, AEDesc *toDesc)
{
OSErr err = noErr;
if (toType != typePascalString)
return errAECoercionFail;
switch (fromDesc->descriptorType)
{
case typeChar:
Str255 pString;
DescToPString(fromDesc, pString, 255);
err = AECreateDesc(typePascalString, pString, pString[0] + 1, toDesc);
break;
default:
err = errAECoercionFail;
break;
}
return err;
}
/*----------------------------------------------------------------------------
PascalStringToTextCoercion
----------------------------------------------------------------------------*/
pascal OSErr AECoercionHandlers::PascalStringToTextCoercion(const AEDesc *fromDesc, DescType toType, long handlerRefcon, AEDesc *toDesc)
{
OSErr err = noErr;
if (toType != typeChar)
return errAECoercionFail;
switch (fromDesc->descriptorType)
{
case typePascalString:
{
long stringLen = AEGetDescDataSize(fromDesc);
if (stringLen > 255)
{
err = errAECoercionFail;
break;
}
Str255 str;
AEGetDescData(fromDesc, str, sizeof(str) - 1);
err = AECreateDesc(typeChar, str + 1, str[0], toDesc);
}
break;
default:
err = errAECoercionFail;
break;
}
return err;
}
#pragma mark -
/*----------------------------------------------------------------------------
CreateCoercionHandlers
----------------------------------------------------------------------------*/
OSErr CreateCoercionHandlers()
{
OSErr err = noErr;
if (AECoercionHandlers::sAECoercionHandlers)
return noErr;
try
{
AECoercionHandlers::sAECoercionHandlers = new AECoercionHandlers;
}
catch(OSErr catchErr)
{
err = catchErr;
}
catch( ... )
{
err = paramErr;
}
return err;
}
/*----------------------------------------------------------------------------
ShutdownCoercionHandlers
----------------------------------------------------------------------------*/
OSErr ShutdownCoercionHandlers()
{
if (!AECoercionHandlers::sAECoercionHandlers)
return noErr;
try
{
delete AECoercionHandlers::sAECoercionHandlers;
}
catch(...)
{
}
AECoercionHandlers::sAECoercionHandlers = nil;
return noErr;
}