414 lines
14 KiB
C++
414 lines
14 KiB
C++
/*************************************************************************
|
|
*
|
|
* $RCSfile: astdump.cxx,v $
|
|
*
|
|
* $Revision: 1.2 $
|
|
*
|
|
* last change: $Author: jsc $ $Date: 2001-04-11 07:24:23 $
|
|
*
|
|
* The Contents of this file are made available subject to the terms of
|
|
* either of the following licenses
|
|
*
|
|
* - GNU Lesser General Public License Version 2.1
|
|
* - Sun Industry Standards Source License Version 1.1
|
|
*
|
|
* Sun Microsystems Inc., October, 2000
|
|
*
|
|
* GNU Lesser General Public License Version 2.1
|
|
* =============================================
|
|
* Copyright 2000 by Sun Microsystems, Inc.
|
|
* 901 San Antonio Road, Palo Alto, CA 94303, USA
|
|
*
|
|
* This library is free software; you can redistribute it and/or
|
|
* modify it under the terms of the GNU Lesser General Public
|
|
* License version 2.1, as published by the Free Software Foundation.
|
|
*
|
|
* This library is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
|
|
* Lesser General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU Lesser General Public
|
|
* License along with this library; if not, write to the Free Software
|
|
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
|
|
* MA 02111-1307 USA
|
|
*
|
|
*
|
|
* Sun Industry Standards Source License Version 1.1
|
|
* =================================================
|
|
* The contents of this file are subject to the Sun Industry Standards
|
|
* Source 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.openoffice.org/license.html.
|
|
*
|
|
* Software provided under this License is provided on an "AS IS" basis,
|
|
* WITHOUT WARRANTY OF ANY KIND, EITHER EXPRESSED OR IMPLIED, INCLUDING,
|
|
* WITHOUT LIMITATION, WARRANTIES THAT THE SOFTWARE IS FREE OF DEFECTS,
|
|
* MERCHANTABLE, FIT FOR A PARTICULAR PURPOSE, OR NON-INFRINGING.
|
|
* See the License for the specific provisions governing your rights and
|
|
* obligations concerning the Software.
|
|
*
|
|
* The Initial Developer of the Original Code is: Sun Microsystems, Inc.
|
|
*
|
|
* Copyright: 2000 by Sun Microsystems, Inc.
|
|
*
|
|
* All Rights Reserved.
|
|
*
|
|
* Contributor(s): _______________________________________
|
|
*
|
|
*
|
|
************************************************************************/
|
|
#ifndef _IDLC_ASTMODULE_HXX_
|
|
#include <idlc/astmodule.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTTYPEDEF_HXX_
|
|
#include <idlc/asttypedef.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTSERVICE_HXX_
|
|
#include <idlc/astservice.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTCONSTANT_HXX_
|
|
#include <idlc/astconstant.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTATTRIBUTE_HXX_
|
|
#include <idlc/astattribute.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTINTERFACEMEMBER_HXX_
|
|
#include <idlc/astinterfacemember.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTSERVICEEMEMBER_HXX_
|
|
#include <idlc/astservicemember.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTOBSERVES_HXX_
|
|
#include <idlc/astobserves.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTNEEDS_HXX_
|
|
#include <idlc/astneeds.hxx>
|
|
#endif
|
|
#ifndef _IDLC_ASTSEQUENCE_HXX_
|
|
#include <idlc/astsequence.hxx>
|
|
#endif
|
|
|
|
using namespace ::rtl;
|
|
|
|
sal_Bool AstModule::dump(RegistryKey& rKey, RegistryTypeWriterLoader* pLoader)
|
|
{
|
|
RegistryKey localKey;
|
|
if ( getNodeType() == NT_root )
|
|
{
|
|
localKey = rKey;
|
|
}else
|
|
{
|
|
if (rKey.createKey( OStringToOUString(getFullName(), RTL_TEXTENCODING_UTF8 ), localKey))
|
|
{
|
|
fprintf(stderr, "%s: warning, could not create key '%s' in '%s'\n",
|
|
idlc()->getOptions()->getProgramName().getStr(),
|
|
getFullName().getStr(), rKey.getRegistryName().getStr());
|
|
return sal_False;
|
|
}
|
|
}
|
|
|
|
const sal_uInt8* pBlob = NULL;
|
|
sal_uInt32 aBlobSize = 0;
|
|
sal_uInt16 nConst = getNodeCount(NT_const);
|
|
|
|
if ( nConst > 0 )
|
|
{
|
|
RTTypeClass typeClass = RT_TYPE_MODULE;
|
|
if ( getNodeType() == NT_constants )
|
|
typeClass = RT_TYPE_CONSTANTS;
|
|
|
|
RegistryTypeWriter aBlob(pLoader->getApi(),
|
|
typeClass,
|
|
OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8),
|
|
OUString(), nConst, 0, 0);
|
|
|
|
aBlob.setDoku( getDocumentation() );
|
|
aBlob.setFileName( OStringToOUString(getFileName(), RTL_TEXTENCODING_UTF8));
|
|
|
|
DeclList::iterator iter = getIteratorBegin();
|
|
DeclList::iterator end = getIteratorEnd();
|
|
AstDeclaration* pDecl = NULL;
|
|
sal_uInt16 index = 0;
|
|
while ( iter != end )
|
|
{
|
|
pDecl = *iter;
|
|
if ( pDecl->getNodeType() == NT_const &&
|
|
pDecl->isInMainfile() )
|
|
{
|
|
((AstConstant*)pDecl)->dumpBlob(aBlob, index++);
|
|
}
|
|
++iter;
|
|
}
|
|
|
|
pBlob = aBlob.getBlop();
|
|
aBlobSize = aBlob.getBlopSize();
|
|
|
|
if (localKey.setValue(OUString(), RG_VALUETYPE_BINARY,
|
|
(RegValue)pBlob, aBlobSize))
|
|
{
|
|
fprintf(stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
|
|
idlc()->getOptions()->getProgramName().getStr(),
|
|
getFullName(), localKey.getRegistryName());
|
|
return sal_False;
|
|
}
|
|
} else
|
|
{
|
|
RTTypeClass typeClass = RT_TYPE_MODULE;
|
|
if ( getNodeType() == NT_constants )
|
|
typeClass = RT_TYPE_CONSTANTS;
|
|
|
|
RegistryTypeWriter aBlob(pLoader->getApi(),
|
|
typeClass,
|
|
OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8),
|
|
OUString(), 0, 0, 0);
|
|
|
|
aBlob.setDoku( getDocumentation() );
|
|
if ( getNodeType() == NT_constants )
|
|
aBlob.setFileName( OStringToOUString(getFileName(), RTL_TEXTENCODING_UTF8));
|
|
|
|
pBlob = aBlob.getBlop();
|
|
aBlobSize = aBlob.getBlopSize();
|
|
|
|
if ( getNodeType() != NT_root )
|
|
{
|
|
if (localKey.setValue(OUString(), RG_VALUETYPE_BINARY,
|
|
(RegValue)pBlob, aBlobSize))
|
|
{
|
|
fprintf(stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
|
|
idlc()->getOptions()->getProgramName().getStr(),
|
|
getFullName(), localKey.getRegistryName());
|
|
return sal_False;
|
|
}
|
|
}
|
|
}
|
|
return AstDeclaration::dump(rKey, pLoader);
|
|
}
|
|
|
|
sal_Bool AstTypeDef::dump(RegistryKey& rKey, RegistryTypeWriterLoader* pLoader)
|
|
{
|
|
RegistryKey localKey;
|
|
if (rKey.createKey( OStringToOUString(getFullName(), RTL_TEXTENCODING_UTF8 ), localKey))
|
|
{
|
|
fprintf(stderr, "%s: warning, could not create key '%s' in '%s'\n",
|
|
idlc()->getOptions()->getProgramName().getStr(),
|
|
getFullName().getStr(), rKey.getRegistryName().getStr());
|
|
return sal_False;
|
|
}
|
|
|
|
RegistryTypeWriter aBlob(pLoader->getApi(), RT_TYPE_TYPEDEF,
|
|
OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8),
|
|
OStringToOUString(getBaseType()->getRelativName(), RTL_TEXTENCODING_UTF8),
|
|
0, 0, 0);
|
|
|
|
aBlob.setDoku( getDocumentation() );
|
|
aBlob.setFileName( OStringToOUString(getFileName(), RTL_TEXTENCODING_UTF8));
|
|
|
|
const sal_uInt8* pBlob = aBlob.getBlop();
|
|
sal_uInt32 aBlobSize = aBlob.getBlopSize();
|
|
|
|
if (localKey.setValue(OUString(), RG_VALUETYPE_BINARY, (RegValue)pBlob, aBlobSize))
|
|
{
|
|
fprintf(stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
|
|
idlc()->getOptions()->getProgramName().getStr(),
|
|
getFullName(), localKey.getRegistryName());
|
|
return sal_False;
|
|
}
|
|
|
|
return sal_True;
|
|
}
|
|
|
|
sal_Bool AstService::dump(RegistryKey& rKey, RegistryTypeWriterLoader* pLoader)
|
|
{
|
|
if ( !idlc()->getOptions()->isValid("-C") )
|
|
return sal_True;
|
|
|
|
RegistryKey localKey;
|
|
if (rKey.createKey( OStringToOUString(getFullName(), RTL_TEXTENCODING_UTF8 ), localKey))
|
|
{
|
|
fprintf(stderr, "%s: warning, could not create key '%s' in '%s'\n",
|
|
idlc()->getOptions()->getProgramName().getStr(),
|
|
getFullName().getStr(), rKey.getRegistryName().getStr());
|
|
return sal_False;
|
|
}
|
|
|
|
sal_uInt16 nProperties = 0;
|
|
sal_uInt16 nIfaceMember = 0;
|
|
sal_uInt16 nServMember = 0;
|
|
sal_uInt16 nNeeds = 0;
|
|
sal_uInt16 nObserves = 0;
|
|
if ( nMembers() > 0 )
|
|
{
|
|
DeclList::iterator iter = getIteratorBegin();
|
|
DeclList::iterator end = getIteratorEnd();
|
|
while ( iter != end )
|
|
{
|
|
switch ( (*iter)->getNodeType() )
|
|
{
|
|
case NT_property:
|
|
nProperties++;
|
|
break;
|
|
case NT_interface_member:
|
|
nIfaceMember++;
|
|
break;
|
|
case NT_service_member:
|
|
nServMember++;
|
|
break;
|
|
case NT_observes:
|
|
nObserves++;
|
|
break;
|
|
case NT_needs:
|
|
nNeeds++;
|
|
break;
|
|
}
|
|
++iter;
|
|
}
|
|
}
|
|
sal_uInt16 nReferences = nIfaceMember + nServMember + nObserves + nNeeds;
|
|
|
|
RegistryTypeWriter aBlob(pLoader->getApi(), RT_TYPE_SERVICE,
|
|
OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8),
|
|
OUString(), nProperties, 0, nReferences);
|
|
|
|
aBlob.setDoku( getDocumentation() );
|
|
aBlob.setFileName( OStringToOUString(getFileName(), RTL_TEXTENCODING_UTF8));
|
|
|
|
if ( nProperties || nReferences )
|
|
{
|
|
DeclList::iterator iter = getIteratorBegin();
|
|
DeclList::iterator end = getIteratorEnd();
|
|
AstDeclaration* pDecl = NULL;
|
|
sal_uInt16 propertyIndex = 0;
|
|
sal_uInt16 referenceIndex = 0;
|
|
while ( iter != end )
|
|
{
|
|
pDecl = *iter;
|
|
switch ( pDecl->getNodeType() )
|
|
{
|
|
case NT_property:
|
|
((AstAttribute*)pDecl)->dumpBlob(aBlob, propertyIndex++);
|
|
break;
|
|
case NT_interface_member:
|
|
{
|
|
AstInterfaceMember* pIfaceMember = (AstInterfaceMember*)pDecl;
|
|
sal_uInt16 access = (pIfaceMember->isOptional() ? RT_ACCESS_OPTIONAL : RT_ACCESS_INVALID);
|
|
aBlob.setReferenceData(referenceIndex++,
|
|
OStringToOUString( pIfaceMember->getRealInterface()->getRelativName(), RTL_TEXTENCODING_UTF8),
|
|
RT_REF_SUPPORTS, pIfaceMember->getDocumentation(), access);
|
|
}
|
|
break;
|
|
case NT_service_member:
|
|
{
|
|
AstServiceMember* pServMember = (AstServiceMember*)pDecl;
|
|
aBlob.setReferenceData(referenceIndex++,
|
|
OStringToOUString( pServMember->getRealService()->getRelativName(), RTL_TEXTENCODING_UTF8),
|
|
RT_REF_EXPORTS, pServMember->getDocumentation());
|
|
}
|
|
break;
|
|
case NT_observes:
|
|
{
|
|
AstObserves* pObserves = (AstObserves*)pDecl;
|
|
aBlob.setReferenceData(referenceIndex++,
|
|
OStringToOUString( pObserves->getRealInterface()->getRelativName(), RTL_TEXTENCODING_UTF8),
|
|
RT_REF_OBSERVES, pObserves->getDocumentation());
|
|
}
|
|
break;
|
|
case NT_needs:
|
|
{
|
|
AstNeeds* pNeeds = (AstNeeds*)pDecl;
|
|
aBlob.setReferenceData(referenceIndex++,
|
|
OStringToOUString( pNeeds->getRealService()->getRelativName(), RTL_TEXTENCODING_UTF8),
|
|
RT_REF_NEEDS, pNeeds->getDocumentation());
|
|
}
|
|
break;
|
|
}
|
|
++iter;
|
|
}
|
|
|
|
const sal_uInt8* pBlob = aBlob.getBlop();
|
|
sal_uInt32 aBlobSize = aBlob.getBlopSize();
|
|
|
|
if (localKey.setValue(OUString(), RG_VALUETYPE_BINARY,
|
|
(RegValue)pBlob, aBlobSize))
|
|
{
|
|
fprintf(stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
|
|
idlc()->getOptions()->getProgramName().getStr(),
|
|
getFullName(), localKey.getRegistryName());
|
|
return sal_False;
|
|
}
|
|
}
|
|
|
|
return sal_True;
|
|
}
|
|
|
|
sal_Bool AstAttribute::dumpBlob(RegistryTypeWriter& rBlob, sal_uInt16 index)
|
|
{
|
|
RTFieldAccess accessMode = RT_ACCESS_INVALID;
|
|
|
|
if (isReadonly())
|
|
{
|
|
accessMode |= RT_ACCESS_READONLY;
|
|
} else
|
|
{
|
|
accessMode |= RT_ACCESS_READWRITE;
|
|
}
|
|
if (isOptional())
|
|
{
|
|
accessMode |= RT_ACCESS_OPTIONAL;
|
|
}
|
|
if (isBound())
|
|
{
|
|
accessMode |= RT_ACCESS_BOUND;
|
|
}
|
|
if (isMayBeVoid())
|
|
{
|
|
accessMode |= RT_ACCESS_MAYBEVOID;
|
|
}
|
|
if (isConstrained())
|
|
{
|
|
accessMode |= RT_ACCESS_CONSTRAINED;
|
|
}
|
|
if (isTransient())
|
|
{
|
|
accessMode |= RT_ACCESS_TRANSIENT;
|
|
}
|
|
if (isMayBeAmbiguous())
|
|
{
|
|
accessMode |= RT_ACCESS_MAYBEAMBIGUOUS;
|
|
}
|
|
if (isMayBeDefault())
|
|
{
|
|
accessMode |= RT_ACCESS_MAYBEDEFAULT;
|
|
}
|
|
if (isRemoveable())
|
|
{
|
|
accessMode |= RT_ACCESS_REMOVEABLE;
|
|
}
|
|
|
|
rBlob.setFieldData(index, OStringToOUString(getLocalName(), RTL_TEXTENCODING_UTF8),
|
|
OStringToOUString(getType()->getRelativName(), RTL_TEXTENCODING_UTF8),
|
|
getDocumentation(), OUString(), accessMode);
|
|
|
|
return sal_True;
|
|
}
|
|
|
|
AstType* SAL_CALL resolveTypeDef(AstType* pType)
|
|
{
|
|
if ( pType->getNodeType() == NT_typedef )
|
|
{
|
|
return resolveTypeDef(((AstTypeDef*)pType)->getBaseType());
|
|
}
|
|
return pType;
|
|
}
|
|
|
|
const sal_Char* AstSequence::getRelativName()
|
|
{
|
|
if ( !m_pRelativName )
|
|
{
|
|
m_pRelativName = new OString("[]");
|
|
AstType* pType = resolveTypeDef( m_pMemberType );
|
|
*m_pRelativName += pType->getRelativName();
|
|
}
|
|
|
|
return m_pRelativName->getStr();
|
|
}
|