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;
|
|
|
|
|
2000-06-21 03:10:06 +04:00
|
|
|
// 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,
|
2000-06-21 03:10:06 +04:00
|
|
|
(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,
|
2000-06-21 03:10:06 +04:00
|
|
|
(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)
|
|
|
|
{
|
2000-06-21 03:10:06 +04:00
|
|
|
AERemoveCoercionHandler(typeChar, typePascalString, (AECoercionHandlerUPP) mTextDescToPascalString, false);
|
|
|
|
DisposeAECoerceDescUPP(mTextDescToPascalString);
|
2000-02-12 01:06:28 +03:00
|
|
|
}
|
|
|
|
|
|
|
|
if (mPascalStringDescToText)
|
|
|
|
{
|
2000-06-21 03:10:06 +04:00
|
|
|
AERemoveCoercionHandler(typePascalString, typeChar, (AECoercionHandlerUPP) mPascalStringDescToText, false);
|
|
|
|
DisposeAECoerceDescUPP(mPascalStringDescToText);
|
2000-02-12 01:06:28 +03:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
#pragma mark -
|
|
|
|
|
|
|
|
/*----------------------------------------------------------------------------
|
|
|
|
TextToPascalStringCoercion
|
|
|
|
|
|
|
|
----------------------------------------------------------------------------*/
|
2000-06-21 03:10:06 +04:00
|
|
|
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
|
|
|
|
|
|
|
|
----------------------------------------------------------------------------*/
|
|
|
|
|
2000-06-21 03:10:06 +04:00
|
|
|
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:
|
|
|
|
{
|
2000-06-21 03:10:06 +04:00
|
|
|
long stringLen = AEGetDescDataSize(fromDesc);
|
2000-02-12 01:06:28 +03:00
|
|
|
if (stringLen > 255)
|
|
|
|
{
|
|
|
|
err = errAECoercionFail;
|
|
|
|
break;
|
|
|
|
}
|
2000-06-21 03:10:06 +04:00
|
|
|
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;
|
|
|
|
}
|
|
|
|
|