pjs/xpfe/bootstrap/appleevents/nsAECoercionHandlers.cpp

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

2000-02-12 01:06:28 +03:00
/* -*- Mode: C++; tab-width: 2; indent-tabs-mode: nil; c-basic-offset: 2 -*-
*
* The contents of this file are subject to the Netscape 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/NPL/
*
* 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 Netscape are
* Copyright (C) 1998 Netscape Communications Corporation. All
* Rights Reserved.
*
* Contributor(s):
* Simon Fraser <sfraser@netscape.com>
*/
#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?
2000-02-12 01:06:28 +03:00
mTextDescToPascalString = NewAECoerceDescProc(TextToPascalStringCoercion);
ThrowIfNil(mTextDescToPascalString);
err = ::AEInstallCoercionHandler(typeChar, typePascalString,
(AECoercionHandlerUPP) mTextDescToPascalString,
2000-02-12 01:06:28 +03:00
(long)this,
true, /* Pass a pointer not a descriptor */
false ); /* Application table, not System */
ThrowIfOSErr(err);
mPascalStringDescToText = NewAECoerceDescProc(PascalStringToTextCoercion);
ThrowIfNil(mPascalStringDescToText);
err = ::AEInstallCoercionHandler(typePascalString, typeChar,
(AECoercionHandlerUPP) mPascalStringDescToText,
2000-02-12 01:06:28 +03:00
(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);
2000-02-12 01:06:28 +03:00
}
if (mPascalStringDescToText)
{
AERemoveCoercionHandler(typePascalString, typeChar, (AECoercionHandlerUPP) mPascalStringDescToText, false);
DisposeAECoerceDescUPP(mPascalStringDescToText);
2000-02-12 01:06:28 +03:00
}
}
#pragma mark -
/*----------------------------------------------------------------------------
TextToPascalStringCoercion
----------------------------------------------------------------------------*/
pascal OSErr AECoercionHandlers::TextToPascalStringCoercion(const AEDesc *fromDesc, DescType toType, long handlerRefcon, AEDesc *toDesc)
2000-02-12 01:06:28 +03:00
{
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)
2000-02-12 01:06:28 +03:00
{
OSErr err = noErr;
if (toType != typeChar)
return errAECoercionFail;
switch (fromDesc->descriptorType)
{
case typePascalString:
{
long stringLen = AEGetDescDataSize(fromDesc);
2000-02-12 01:06:28 +03:00
if (stringLen > 255)
{
err = errAECoercionFail;
break;
}
Str255 str;
AEGetDescData(fromDesc, str, sizeof(str) - 1);
err = AECreateDesc(typeChar, str + 1, str[0], toDesc);
2000-02-12 01:06:28 +03:00
}
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;
}