strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions
office-gobmx/idlc/source/astdump.cxx
Noel Grandin 877774c057 loplugin:expandablemethodds in hwpfilter..linguistic 
Change-Id: If20fd4a6cf8a8e005804dbb7caf41cce73d587a5
Reviewed-on: https://gerrit.libreoffice.org/30016
Tested-by: Jenkins <ci@libreoffice.org>
Reviewed-by: Noel Grandin <noel.grandin@collabora.co.uk>
2016-10-19 08:07:18 +00:00

425 lines
14 KiB
C++
Raw Blame History

/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
/*
* This file is part of the LibreOffice project.
*
* This Source Code Form is subject to the terms of the Mozilla Public
* License, v. 2.0. If a copy of the MPL was not distributed with this
* file, You can obtain one at http://mozilla.org/MPL/2.0/.
*
* This file incorporates work covered by the following license notice:
*
* Licensed to the Apache Software Foundation (ASF) under one or more
* contributor license agreements. See the NOTICE file distributed
* with this work for additional information regarding copyright
* ownership. The ASF licenses this file to you under the Apache
* License, Version 2.0 (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.apache.org/licenses/LICENSE-2.0 .
*/
#include <astmodule.hxx>
#include <asttypedef.hxx>
#include <astservice.hxx>
#include <astconstant.hxx>
#include <astattribute.hxx>
#include <astinterfacemember.hxx>
#include <astservicemember.hxx>
#include <astobserves.hxx>
#include <astneeds.hxx>
#include <astsequence.hxx>
#include "astoperation.hxx"
#include <osl/diagnose.h>
#include <registry/version.h>
#include <registry/writer.hxx>
bool AstModule::dump(RegistryKey& rKey)
{
OUString emptyStr;
RegistryKey localKey;
if ( getNodeType() == NT_root )
{
localKey = rKey;
}else
{
if (rKey.createKey( OStringToOUString(getFullName(), RTL_TEXTENCODING_UTF8 ), localKey) != RegError::NO_ERROR)
{
fprintf(stderr, "%s: warning, could not create key '%s' in '%s'\n",
idlc()->getOptions()->getProgramName().getStr(),
getFullName().getStr(), OUStringToOString(rKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
return false;
}
}
sal_uInt16 nConst = getNodeCount(NT_const);
if ( nConst > 0 )
{
RTTypeClass typeClass = RT_TYPE_MODULE;
if ( getNodeType() == NT_constants )
typeClass = RT_TYPE_CONSTANTS;
typereg::Writer aBlob(
m_bPublished ? TYPEREG_VERSION_1 : TYPEREG_VERSION_0,
getDocumentation(), emptyStr, typeClass,
m_bPublished,
OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8), 0,
nConst, 0, 0);
DeclList::const_iterator iter = getIteratorBegin();
DeclList::const_iterator end = getIteratorEnd();
sal_uInt16 index = 0;
while ( iter != end )
{
AstDeclaration* pDecl = *iter;
if ( pDecl->getNodeType() == NT_const &&
pDecl->isInMainfile() )
{
static_cast<AstConstant*>(pDecl)->dumpBlob(
aBlob, index++,
getNodeType() == NT_module && pDecl->isPublished());
}
++iter;
}
sal_uInt32 aBlobSize;
void const * pBlob = aBlob.getBlob(&aBlobSize);
if (localKey.setValue(emptyStr, RegValueType::BINARY,
const_cast<RegValue>(pBlob), aBlobSize) != RegError::NO_ERROR)
{
fprintf(stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
idlc()->getOptions()->getProgramName().getStr(),
getFullName().getStr(), OUStringToOString(localKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
return false;
}
} else
{
RTTypeClass typeClass = RT_TYPE_MODULE;
if ( getNodeType() == NT_constants )
typeClass = RT_TYPE_CONSTANTS;
typereg::Writer aBlob(
m_bPublished ? TYPEREG_VERSION_1 : TYPEREG_VERSION_0,
getDocumentation(), emptyStr, typeClass, m_bPublished,
OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8), 0, 0, 0,
0);
sal_uInt32 aBlobSize;
void const * pBlob = aBlob.getBlob(&aBlobSize);
if ( getNodeType() != NT_root )
{
if (localKey.setValue(emptyStr, RegValueType::BINARY,
const_cast<RegValue>(pBlob), aBlobSize) != RegError::NO_ERROR)
{
fprintf(stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
idlc()->getOptions()->getProgramName().getStr(),
getFullName().getStr(), OUStringToOString(localKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
return false;
}
}
}
if ( getNodeType() == NT_root )
{
localKey.releaseKey();
}
return AstDeclaration::dump(rKey);
}
bool AstTypeDef::dump(RegistryKey& rKey)
{
OUString emptyStr;
RegistryKey localKey;
if (rKey.createKey( OStringToOUString(getFullName(), RTL_TEXTENCODING_UTF8 ), localKey) != RegError::NO_ERROR)
{
fprintf(stderr, "%s: warning, could not create key '%s' in '%s'\n",
idlc()->getOptions()->getProgramName().getStr(),
getFullName().getStr(), OUStringToOString(rKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
return false;
}
typereg::Writer aBlob(
m_bPublished ? TYPEREG_VERSION_1 : TYPEREG_VERSION_0,
getDocumentation(), emptyStr, RT_TYPE_TYPEDEF, m_bPublished,
OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8), 1, 0, 0, 0);
aBlob.setSuperTypeName(
0,
OStringToOUString(
getBaseType()->getRelativName(), RTL_TEXTENCODING_UTF8));
sal_uInt32 aBlobSize;
void const * pBlob = aBlob.getBlob(&aBlobSize);
if (localKey.setValue(emptyStr, RegValueType::BINARY, const_cast<RegValue>(pBlob), aBlobSize) != RegError::NO_ERROR)
{
fprintf(stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
idlc()->getOptions()->getProgramName().getStr(),
getFullName().getStr(), OUStringToOString(localKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
return false;
}
return true;
}
bool AstService::dump(RegistryKey& rKey)
{
OUString emptyStr;
typereg_Version version = m_bPublished
? TYPEREG_VERSION_1 : TYPEREG_VERSION_0;
OString superName;
sal_uInt16 constructors = 0;
sal_uInt16 properties = 0;
sal_uInt16 references = 0;
for (DeclList::const_iterator i(getIteratorBegin()); i != getIteratorEnd();
++i)
{
switch ((*i)->getNodeType()) {
case NT_interface:
case NT_typedef:
version = TYPEREG_VERSION_1;
OSL_ASSERT(superName.isEmpty());
superName = (*i)->getRelativName();
break;
case NT_operation:
OSL_ASSERT(getNodeType() == NT_service);
++constructors;
break;
case NT_property:
OSL_ASSERT(getNodeType() == NT_service);
++properties;
break;
case NT_service_member:
if (getNodeType() == NT_singleton) {
OSL_ASSERT(superName.isEmpty());
superName = (static_cast<AstServiceMember *>(*i))->
getRealService()->getRelativName();
break;
}
SAL_FALLTHROUGH;
case NT_interface_member:
case NT_observes:
case NT_needs:
OSL_ASSERT(getNodeType() == NT_service);
++references;
break;
default:
OSL_ASSERT(false);
break;
}
}
OSL_ASSERT(constructors == 0 || !m_defaultConstructor);
if (m_defaultConstructor) {
constructors = 1;
}
RegistryKey localKey;
if (rKey.createKey(
OStringToOUString(getFullName(), RTL_TEXTENCODING_UTF8),
localKey) != RegError::NO_ERROR) {
fprintf(
stderr, "%s: warning, could not create key '%s' in '%s'\n",
idlc()->getOptions()->getProgramName().getStr(),
getFullName().getStr(),
OUStringToOString(
rKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
return false;
}
typereg::Writer writer(
version, getDocumentation(), emptyStr,
getNodeType() == NT_singleton ? RT_TYPE_SINGLETON : RT_TYPE_SERVICE,
m_bPublished,
OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8),
superName.isEmpty() ? 0 : 1, properties, constructors,
references);
if (!superName.isEmpty()) {
writer.setSuperTypeName(
0, OStringToOUString(superName, RTL_TEXTENCODING_UTF8));
}
sal_uInt16 constructorIndex = 0;
sal_uInt16 propertyIndex = 0;
sal_uInt16 referenceIndex = 0;
for (DeclList::const_iterator i(getIteratorBegin()); i != getIteratorEnd(); ++i)
{
switch ((*i)->getNodeType()) {
case NT_operation:
static_cast<AstOperation *>(*i)->dumpBlob(writer, constructorIndex++);
break;
case NT_property:
static_cast<AstAttribute *>(*i)->dumpBlob(writer, propertyIndex++, nullptr);
break;
case NT_interface_member:
{
AstInterfaceMember * decl = static_cast<AstInterfaceMember *>(*i);
writer.setReferenceData(
referenceIndex++, decl->getDocumentation(), RTReferenceType::SUPPORTS,
(decl->isOptional() ? RTFieldAccess::OPTIONAL : RTFieldAccess::INVALID),
OStringToOUString( decl->getRealInterface()->getRelativName(),
RTL_TEXTENCODING_UTF8));
break;
}
case NT_service_member:
if (getNodeType() == NT_service)
{
AstServiceMember * decl = static_cast<AstServiceMember *>(*i);
writer.setReferenceData(referenceIndex++, decl->getDocumentation(), RTReferenceType::EXPORTS,
(decl->isOptional() ? RTFieldAccess::OPTIONAL : RTFieldAccess::INVALID),
OStringToOUString(decl->getRealService()->getRelativName(),
RTL_TEXTENCODING_UTF8));
}
break;
case NT_observes:
{
AstObserves * decl = static_cast<AstObserves *>(*i);
writer.setReferenceData(referenceIndex++, decl->getDocumentation(), RTReferenceType::OBSERVES,
RTFieldAccess::INVALID,
OStringToOUString( decl->getRealInterface()->getRelativName(),
RTL_TEXTENCODING_UTF8));
break;
}
case NT_needs:
{
AstNeeds * decl = static_cast<AstNeeds *>(*i);
writer.setReferenceData( referenceIndex++, decl->getDocumentation(), RTReferenceType::NEEDS,
RTFieldAccess::INVALID,
OStringToOUString( decl->getRealService()->getRelativName(),
RTL_TEXTENCODING_UTF8));
break;
}
default:
OSL_ASSERT( (*i)->getNodeType() == NT_interface || (*i)->getNodeType() == NT_typedef);
break;
}
}
if (m_defaultConstructor) {
writer.setMethodData(
constructorIndex++, emptyStr, RTMethodMode::TWOWAY,
emptyStr, "void",
0, 0);
}
sal_uInt32 size;
void const * blob = writer.getBlob(&size);
if (localKey.setValue(
emptyStr, RegValueType::BINARY, const_cast< void * >(blob),
size) != RegError::NO_ERROR)
{
fprintf(
stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
idlc()->getOptions()->getProgramName().getStr(),
getFullName().getStr(),
OUStringToOString(
localKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
return false;
}
return true;
}
bool AstAttribute::dumpBlob(
typereg::Writer & rBlob, sal_uInt16 index, sal_uInt16 * methodIndex)
{
RTFieldAccess accessMode = RTFieldAccess::INVALID;
if (isReadonly())
{
accessMode |= RTFieldAccess::READONLY;
} else
{
accessMode |= RTFieldAccess::READWRITE;
}
if (isOptional())
{
accessMode |= RTFieldAccess::OPTIONAL;
}
if (isBound())
{
accessMode |= RTFieldAccess::BOUND;
}
if (isMayBeVoid())
{
accessMode |= RTFieldAccess::MAYBEVOID;
}
if (isConstrained())
{
accessMode |= RTFieldAccess::CONSTRAINED;
}
if (isTransient())
{
accessMode |= RTFieldAccess::TRANSIENT;
}
if (isMayBeAmbiguous())
{
accessMode |= RTFieldAccess::MAYBEAMBIGUOUS;
}
if (isMayBeDefault())
{
accessMode |= RTFieldAccess::MAYBEDEFAULT;
}
if (isRemoveable())
{
accessMode |= RTFieldAccess::REMOVABLE;
}
OUString name(OStringToOUString(getLocalName(), RTL_TEXTENCODING_UTF8));
rBlob.setFieldData(
index, getDocumentation(), OUString(), accessMode, name,
OStringToOUString(m_pType->getRelativName(), RTL_TEXTENCODING_UTF8),
RTConstValue());
dumpExceptions(
rBlob, m_getDocumentation, m_getExceptions, RTMethodMode::ATTRIBUTE_GET,
methodIndex);
dumpExceptions(
rBlob, m_setDocumentation, m_setExceptions, RTMethodMode::ATTRIBUTE_SET,
methodIndex);
return true;
}
void AstAttribute::dumpExceptions(
typereg::Writer & writer, OUString const & documentation,
DeclList const & exceptions, RTMethodMode flags, sal_uInt16 * methodIndex)
{
if (!exceptions.empty()) {
OSL_ASSERT(methodIndex != nullptr);
sal_uInt16 idx = (*methodIndex)++;
// exceptions.size() <= SAL_MAX_UINT16 already checked in
// AstInterface::dump:
writer.setMethodData(
idx, documentation, flags,
OStringToOUString(getLocalName(), RTL_TEXTENCODING_UTF8),
"void", 0,
static_cast< sal_uInt16 >(exceptions.size()));
sal_uInt16 exceptionIndex = 0;
for (DeclList::const_iterator i(exceptions.begin());
i != exceptions.end(); ++i)
{
writer.setMethodExceptionTypeName(
idx, exceptionIndex++,
OStringToOUString(
(*i)->getRelativName(), RTL_TEXTENCODING_UTF8));
}
}
}
const sal_Char* AstSequence::getRelativName() const
{
if ( !m_pRelativName )
{
m_pRelativName = new OString("[]");
AstDeclaration const * pType = resolveTypedefs( m_pMemberType );
*m_pRelativName += pType->getRelativName();
}
return m_pRelativName->getStr();
}
/* vim:set shiftwidth=4 softtabstop=4 expandtab: */
Reference in a new issue View git blame Copy permalink