diff options
author | Stephan Bergmann <sbergman@redhat.com> | 2021-09-14 17:26:17 +0200 |
---|---|---|
committer | Stephan Bergmann <sbergman@redhat.com> | 2022-06-10 17:15:49 +0200 |
commit | a8485d558fab53291e2530fd9a1be581c1628deb (patch) | |
tree | dff1f2885f954b9da2d3d2dbb9adc20b5b69c69c /idlc/source | |
parent | 611fe67394820e589e86f543c614632fc273eb5e (diff) |
[API CHANGE] Remove deprecated idlc and regmerge from the SDK
* Client code must replace uses of idlc and regmerge with uses of unoidl-write,
see the changes to odk/examples/ and ure/source/uretext/ in
40f2aee6584eafcf4cd1d95fcf1f775e5435440d "Provide unoidl-write also for the
SDK" for examples.
* The new types.rdb format is not compatible with LibreOffice < 4.1. Clients
generating extensions containing such files are advised to use appropriate
LibreOffice-minimal-version elements.
* For compatibility with old extensions, reading the legacy types.rdb format is
still supported.
* The SDK no longer ships an idl/ sub-directory containing the udkap and offapi
.idl files (as, unlike idlc, unoidl-write does not need them).
odk/config/cfgWin.js had to be adapted to look (somewhat arbitrarily) for an
examples/ sub-directory instead of idl/ when checking for "an sdk folder".
gb_UnoApi_package_idlfiles became unused and has been removed.
* The idlc and regmerge executables have been removed. Module idlc has been
removed except for idlc/test/parser/, which is also used by
CustomTarget_unoidl/unoidl-write_test, and which may eventually be moved into
module unoidl. Module external/ucpp and the corresponding configure options
have also been removed.
Change-Id: I42a0231699b863b5ebe2bee63bc32c8f79278cc1
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/122363
Tested-by: Jenkins
Reviewed-by: Stephan Bergmann <sbergman@redhat.com>
Diffstat (limited to 'idlc/source')
-rw-r--r-- | idlc/source/astconstant.cxx | 123 | ||||
-rw-r--r-- | idlc/source/astdeclaration.cxx | 164 | ||||
-rw-r--r-- | idlc/source/astdump.cxx | 420 | ||||
-rw-r--r-- | idlc/source/astenum.cxx | 105 | ||||
-rw-r--r-- | idlc/source/astexpression.cxx | 1327 | ||||
-rw-r--r-- | idlc/source/astinterface.cxx | 399 | ||||
-rw-r--r-- | idlc/source/astoperation.cxx | 115 | ||||
-rw-r--r-- | idlc/source/astscope.cxx | 314 | ||||
-rw-r--r-- | idlc/source/astservice.cxx | 54 | ||||
-rw-r--r-- | idlc/source/aststack.cxx | 79 | ||||
-rw-r--r-- | idlc/source/aststruct.cxx | 167 | ||||
-rw-r--r-- | idlc/source/aststructinstance.cxx | 63 | ||||
-rw-r--r-- | idlc/source/attributeexceptions.hxx | 38 | ||||
-rw-r--r-- | idlc/source/errorhandler.cxx | 583 | ||||
-rw-r--r-- | idlc/source/fehelper.cxx | 102 | ||||
-rw-r--r-- | idlc/source/idlc.cxx | 400 | ||||
-rw-r--r-- | idlc/source/idlccompile.cxx | 394 | ||||
-rw-r--r-- | idlc/source/idlcmain.cxx | 164 | ||||
-rw-r--r-- | idlc/source/idlcproduce.cxx | 242 | ||||
-rw-r--r-- | idlc/source/options.cxx | 424 | ||||
-rw-r--r-- | idlc/source/parser.y | 2737 | ||||
-rw-r--r-- | idlc/source/scanner.l | 526 |
22 files changed, 0 insertions, 8940 deletions
diff --git a/idlc/source/astconstant.cxx b/idlc/source/astconstant.cxx deleted file mode 100644 index 54d235fa32ed..000000000000 --- a/idlc/source/astconstant.cxx +++ /dev/null @@ -1,123 +0,0 @@ -/* -*- 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 <astconstant.hxx> -#include <astscope.hxx> - -#include <registry/writer.hxx> - -AstConstant::AstConstant(const ExprType type, - const NodeType nodeType, - AstExpression* pExpr, - const OString& name, - AstScope* pScope) - : AstDeclaration(nodeType, name, pScope) - , m_pConstValue(pExpr) - , m_constValueType(type) -{ -} - -AstConstant::AstConstant(const ExprType type, - AstExpression* pExpr, - const OString& name, - AstScope* pScope) - : AstDeclaration(NT_const, name, pScope) - , m_pConstValue(pExpr) - , m_constValueType(type) -{ -} - -AstConstant::~AstConstant() -{ - -} - -bool AstConstant::dumpBlob( - typereg::Writer & rBlob, sal_uInt16 index, bool published) -{ - RTConstValue aConst; - - AstExprValue *exprVal = getConstValue()->getExprValue(); - switch (getConstValueType()) - { - case ET_short: - aConst.m_type = RT_TYPE_INT16; - aConst.m_value.aShort = exprVal->u.sval; - break; - case ET_ushort: - aConst.m_type = RT_TYPE_UINT16; - aConst.m_value.aUShort = exprVal->u.usval; - break; - case ET_long: - aConst.m_type = RT_TYPE_INT32; - aConst.m_value.aLong = exprVal->u.lval; - break; - case ET_ulong: - aConst.m_type = RT_TYPE_UINT32; - aConst.m_value.aULong = exprVal->u.ulval; - break; - case ET_hyper: - aConst.m_type = RT_TYPE_INT64; - aConst.m_value.aHyper = exprVal->u.hval; - break; - case ET_uhyper: - aConst.m_type = RT_TYPE_UINT64; - aConst.m_value.aUHyper = exprVal->u.uhval; - break; - case ET_float: - aConst.m_type = RT_TYPE_FLOAT; - aConst.m_value.aFloat = exprVal->u.fval; - break; - case ET_double: - aConst.m_type = RT_TYPE_DOUBLE; - aConst.m_value.aDouble = exprVal->u.dval; - break; - case ET_byte: - aConst.m_type = RT_TYPE_BYTE; - aConst.m_value.aByte = exprVal->u.byval; - break; - case ET_boolean: - aConst.m_type = RT_TYPE_BOOL; - aConst.m_value.aBool = exprVal->u.bval; - break; - default: - { - fprintf(stderr, "%s: exprtype to const type: cannot convert ExprType\n", - idlc()->getOptions()->getProgramName().getStr()); - return false; - } - } - - OString name = getLocalName(); - - OUString type; - if ( getNodeType() != NT_enum_val ) - { - type = OStringToOUString(exprTypeToString(getConstValueType()), RTL_TEXTENCODING_UTF8); - } - - rBlob.setFieldData( - index, getDocumentation(), OUString(), - RTFieldAccess::CONST | (published ? RTFieldAccess::PUBLISHED : RTFieldAccess::NONE), - OStringToOUString(name, RTL_TEXTENCODING_UTF8), type, aConst); - - return true; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/astdeclaration.cxx b/idlc/source/astdeclaration.cxx deleted file mode 100644 index 980e7dd2b36a..000000000000 --- a/idlc/source/astdeclaration.cxx +++ /dev/null @@ -1,164 +0,0 @@ -/* -*- 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 <astdeclaration.hxx> -#include <astscope.hxx> -#include <rtl/strbuf.hxx> -#include <o3tl/string_view.hxx> -#include <osl/diagnose.h> - -constexpr OStringLiteral sGlobal("::"); - -static OString convertName(std::string_view name) -{ - OStringBuffer nameBuffer(name.size()+1); - sal_Int32 nIndex = 0; - do - { - std::string_view token( o3tl::getToken(name, 0, ':', nIndex ) ); - if( !token.empty() ) - { - nameBuffer.append('/'); - nameBuffer.append( token ); - } - } while( nIndex != -1 ); - return nameBuffer.makeStringAndClear(); -} - -AstDeclaration::AstDeclaration(NodeType type, const OString& name, AstScope* pScope) - : m_localName(name) - , m_pScope(pScope) - , m_nodeType(type) - , m_bImported(false) - , m_bInMainFile(false) - , m_bPredefined(false) - , m_lineNumber(0) -{ - if ( m_pScope ) - { - AstDeclaration* pDecl = scopeAsDecl(m_pScope); - if (pDecl) - { - m_scopedName = pDecl->getScopedName(); - if (!m_scopedName.isEmpty()) - m_scopedName += sGlobal; - m_scopedName += m_localName; - } - } else - { - m_scopedName = m_localName; - } - m_fullName = convertName(m_scopedName); - - if ( idlc()->getFileName() == idlc()->getRealFileName() ) - { - m_fileName = idlc()->getMainFileName(); - m_bInMainFile = true; - } else - { - m_fileName = idlc()->getFileName(); - m_bImported = true; - } - - m_documentation = idlc()->processDocumentation(); - - m_bPublished = idlc()->isPublished(); -} - - -AstDeclaration::~AstDeclaration() -{ - -} - -void AstDeclaration::setPredefined(bool bPredefined) -{ - m_bPredefined = bPredefined; - if ( m_bPredefined ) - { - m_fileName.clear(); - m_bInMainFile = false; - } -} - -bool AstDeclaration::isType() const { - switch (m_nodeType) { - case NT_interface: - case NT_instantiated_struct: - case NT_enum: - case NT_sequence: - case NT_typedef: - case NT_predefined: - case NT_type_parameter: - return true; - - default: - OSL_ASSERT(m_nodeType != NT_struct); // see AstStruct::isType - return false; - } -} - -bool AstDeclaration::hasAncestor(AstDeclaration* pDecl) -{ - if (this == pDecl) - return true; - if ( !m_pScope ) - return false; - return scopeAsDecl(m_pScope)->hasAncestor(pDecl); -} - -bool AstDeclaration::dump(RegistryKey& rKey) -{ - AstScope* pScope = declAsScope(this); - if ( !pScope ) - return true; - - bool bRet = true; - DeclList::const_iterator iter = pScope->getIteratorBegin(); - DeclList::const_iterator end = pScope->getIteratorEnd(); - AstDeclaration* pDecl = nullptr; - while ( iter != end && bRet) - { - pDecl = *iter; - if ( pDecl->isInMainfile() ) - { - switch ( pDecl->getNodeType() ) - { - case NT_module: - case NT_constants: - case NT_interface: - case NT_struct: - case NT_exception: - case NT_enum: - case NT_typedef: - case NT_service: - case NT_singleton: - bRet = pDecl->dump(rKey); - break; - default: - break; - } - } - - ++iter; - } - return bRet; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/astdump.cxx b/idlc/source/astdump.cxx deleted file mode 100644 index 79613e137fb9..000000000000 --- a/idlc/source/astdump.cxx +++ /dev/null @@ -1,420 +0,0 @@ -/* -*- 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) -{ - 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(), "", 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("", 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(), "", 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("", 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) -{ - 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(), "", 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("", 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) -{ - 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; - } - [[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(), "", - 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++, "", RTMethodMode::TWOWAY, - "", "void", - 0, 0); - } - sal_uInt32 size; - void const * blob = writer.getBlob(&size); - if (localKey.setValue( - "", 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; -} - -void AstAttribute::dumpBlob( - typereg::Writer & rBlob, sal_uInt16 index, sal_uInt16 * methodIndex) const -{ - 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); -} - -void AstAttribute::dumpExceptions( - typereg::Writer & writer, OUString const & documentation, - DeclList const & exceptions, RTMethodMode flags, sal_uInt16 * methodIndex) const -{ - if (exceptions.empty()) - return; - - 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 (auto const& elem : exceptions) - { - writer.setMethodExceptionTypeName( - idx, exceptionIndex++, - OStringToOUString( - elem->getRelativName(), RTL_TEXTENCODING_UTF8)); - } -} - -const char* AstSequence::getRelativName() const -{ - if ( !m_xRelativName ) - { - m_xRelativName = OString("[]"); - AstDeclaration const * pType = resolveTypedefs( m_pMemberType ); - *m_xRelativName += pType->getRelativName(); - } - - return m_xRelativName->getStr(); -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/astenum.cxx b/idlc/source/astenum.cxx deleted file mode 100644 index 7dff49d36c06..000000000000 --- a/idlc/source/astenum.cxx +++ /dev/null @@ -1,105 +0,0 @@ -/* -*- 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 <sal/config.h> - -#include <algorithm> - -#include <astenum.hxx> - -#include <registry/version.h> -#include <registry/writer.hxx> - -AstEnum::AstEnum(const OString& name, AstScope* pScope) - : AstType(NT_enum, name, pScope) - , AstScope(NT_enum) - , m_enumValueCount(0) -{ -} - -AstEnum::~AstEnum() -{ -} - -AstConstant* AstEnum::checkValue(AstExpression* pExpr) -{ - DeclList::const_iterator iter = getIteratorBegin(); - DeclList::const_iterator end = getIteratorEnd(); - - iter = std::find_if(iter, end, [&pExpr](AstDeclaration* pDecl) { - return static_cast<AstConstant*>(pDecl)->getConstValue()->compareLong(pExpr); }); - - if (iter != end) - return static_cast<AstConstant*>(*iter); - - if ( pExpr->getExprValue()->u.lval > m_enumValueCount ) - m_enumValueCount = pExpr->getExprValue()->u.lval + 1; - - return nullptr; -} - -bool AstEnum::dump(RegistryKey& rKey) -{ - 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; - } - - sal_uInt16 nConst = getNodeCount(NT_enum_val); - if ( nConst <= 0 ) - return true; - - typereg::Writer aBlob( - m_bPublished ? TYPEREG_VERSION_1 : TYPEREG_VERSION_0, - getDocumentation(), "", RT_TYPE_ENUM, 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_enum_val ) - static_cast<AstConstant*>(pDecl)->dumpBlob(aBlob, index++, false); - - ++iter; - } - - sal_uInt32 aBlobSize; - void const * pBlob = aBlob.getBlob(&aBlobSize); - - if (localKey.setValue("", 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; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/astexpression.cxx b/idlc/source/astexpression.cxx deleted file mode 100644 index 1afa91dbf8b4..000000000000 --- a/idlc/source/astexpression.cxx +++ /dev/null @@ -1,1327 +0,0 @@ -/* -*- 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 <astexpression.hxx> -#include <astconstant.hxx> -#include <astscope.hxx> -#include <errorhandler.hxx> - -#include <o3tl/float_int_conversion.hxx> -#include <osl/diagnose.h> - -#include <limits.h> -#include <float.h> -#include <memory> - -AstExpression::AstExpression(ExprComb c, AstExpression* pExpr1, AstExpression* pExpr2) - : m_combOperator(c) - , m_subExpr1(pExpr1) - , m_subExpr2(pExpr2) -{ -} - -AstExpression::AstExpression(sal_Int32 l) - : m_combOperator(ExprComb::NONE) -{ - m_exprValue.reset(new AstExprValue); - m_exprValue->et = ET_long; - m_exprValue->u.lval = l; -} - -AstExpression::AstExpression(sal_Int32 l, ExprType et) - : m_combOperator(ExprComb::NONE) -{ - m_exprValue.reset(new AstExprValue); - m_exprValue->et = et; - m_exprValue->u.lval = l; -} - -AstExpression::AstExpression(sal_Int64 h) - : m_combOperator(ExprComb::NONE) -{ - m_exprValue.reset(new AstExprValue); - m_exprValue->et = ET_hyper; - m_exprValue->u.hval = h; -} - -AstExpression::AstExpression(sal_uInt64 uh) - : m_combOperator(ExprComb::NONE) -{ - m_exprValue.reset(new AstExprValue); - m_exprValue->et = ET_uhyper; - m_exprValue->u.uhval = uh; -} - -AstExpression::AstExpression(double d) - : m_combOperator(ExprComb::NONE) -{ - m_exprValue.reset(new AstExprValue); - m_exprValue->et = ET_double; - m_exprValue->u.dval = d; -} - -AstExpression::AstExpression(OString* scopedName) - : m_combOperator(ExprComb::Symbol) -{ - if (scopedName) - m_xSymbolicName = *scopedName; -} - -AstExpression::~AstExpression() {} - -/* - * Perform the coercion from the given AstExprValue to the requested - * ExprType. Return an AstExprValue if successful, NULL if failed. - * must be done for hyper, uhyper - */ -static bool coerce_value(AstExprValue* ev, ExprType t) -{ - if (ev == nullptr) - return false; - - switch (t) - { - case ET_short: - switch (ev->et) - { - case ET_short: - return true; - case ET_ushort: - { - if (ev->u.usval > SAL_MAX_INT16) - return false; - auto tmp = static_cast<sal_Int16>(ev->u.usval); - ev->u.sval = tmp; - ev->et = ET_short; - return true; - } - case ET_long: - { - if (ev->u.lval < SAL_MIN_INT16 || ev->u.lval > SAL_MAX_INT16) - return false; - auto tmp = static_cast<sal_Int16>(ev->u.lval); - ev->u.sval = tmp; - ev->et = ET_short; - return true; - } - case ET_ulong: - { - if (ev->u.ulval > SAL_MAX_INT16) - return false; - auto tmp = static_cast<sal_Int16>(ev->u.ulval); - ev->u.sval = tmp; - ev->et = ET_short; - return true; - } - case ET_hyper: - { - if (ev->u.hval < SAL_MIN_INT16 || ev->u.hval > SAL_MAX_INT16) - return false; - auto tmp = static_cast<sal_Int16>(ev->u.hval); - ev->u.sval = tmp; - ev->et = ET_short; - return true; - } - case ET_uhyper: - { - if (ev->u.uhval > SAL_MAX_INT16) - return false; - auto tmp = static_cast<sal_Int16>(ev->u.uhval); - ev->u.sval = tmp; - ev->et = ET_short; - return true; - } - case ET_boolean: - { - auto tmp = static_cast<sal_Int16>(ev->u.bval); - ev->u.sval = tmp; - ev->et = ET_short; - return true; - } - case ET_float: - { - if (!(o3tl::convertsToAtLeast(o3tl::roundAway(ev->u.fval), SAL_MIN_INT16) - && o3tl::convertsToAtMost(o3tl::roundAway(ev->u.fval), SAL_MAX_INT16))) - { - return false; - } - auto tmp = static_cast<sal_Int16>(ev->u.fval); - ev->u.sval = tmp; - ev->et = ET_short; - return true; - } - case ET_double: - { - if (!(o3tl::convertsToAtLeast(o3tl::roundAway(ev->u.dval), SAL_MIN_INT16) - && o3tl::convertsToAtMost(o3tl::roundAway(ev->u.dval), SAL_MAX_INT16))) - { - return false; - } - auto tmp = static_cast<sal_Int16>(ev->u.dval); - ev->u.sval = tmp; - ev->et = ET_short; - return true; - } - case ET_byte: - { - auto tmp = static_cast<sal_Int16>(ev->u.byval); - ev->u.sval = tmp; - ev->et = ET_short; - return true; - } - default: - OSL_ASSERT(false); - return false; - } - case ET_ushort: - switch (ev->et) - { - case ET_short: - { - if (ev->u.sval < 0) - return false; - auto tmp = static_cast<sal_uInt16>(ev->u.sval); - ev->u.usval = tmp; - ev->et = ET_ushort; - return true; - } - case ET_ushort: - return true; - case ET_long: - { - if (ev->u.lval < 0 || ev->u.lval > SAL_MAX_UINT16) - return false; - auto tmp = static_cast<sal_uInt16>(ev->u.lval); - ev->u.usval = tmp; - ev->et = ET_ushort; - return true; - } - case ET_ulong: - { - if (ev->u.ulval > SAL_MAX_UINT16) - return false; - auto tmp = static_cast<sal_uInt16>(ev->u.ulval); - ev->u.usval = tmp; - ev->et = ET_ushort; - return true; - } - case ET_hyper: - { - if (ev->u.hval < 0 || ev->u.hval > SAL_MAX_UINT16) - return false; - auto tmp = static_cast<sal_uInt16>(ev->u.hval); - ev->u.usval = tmp; - ev->et = ET_ushort; - return true; - } - case ET_uhyper: - { - if (ev->u.uhval > SAL_MAX_UINT16) - return false; - auto tmp = static_cast<sal_uInt16>(ev->u.uhval); - ev->u.usval = tmp; - ev->et = ET_ushort; - return true; - } - case ET_boolean: - { - auto tmp = static_cast<sal_uInt16>(ev->u.bval); - ev->u.usval = tmp; - ev->et = ET_short; - return true; - } - case ET_float: - { - if (ev->u.fval < 0.0 - || !o3tl::convertsToAtMost(o3tl::roundAway(ev->u.fval), SAL_MAX_UINT16)) - { - return false; - } - auto tmp = static_cast<sal_uInt16>(ev->u.fval); - ev->u.usval = tmp; - ev->et = ET_short; - return true; - } - case ET_double: - { - if (ev->u.dval < 0.0 - || !o3tl::convertsToAtMost(o3tl::roundAway(ev->u.dval), SAL_MAX_UINT16)) - { - return false; - } - auto tmp = static_cast<sal_uInt16>(ev->u.dval); - ev->u.usval = tmp; - ev->et = ET_short; - return true; - } - case ET_byte: - { - auto tmp = static_cast<sal_uInt16>(ev->u.byval); - ev->u.usval = tmp; - ev->et = ET_ushort; - return true; - } - default: - OSL_ASSERT(false); - return false; - } - case ET_long: - switch (ev->et) - { - case ET_short: - { - auto tmp = static_cast<sal_Int32>(ev->u.sval); - ev->u.lval = tmp; - ev->et = ET_long; - return true; - } - case ET_ushort: - { - auto tmp = static_cast<sal_Int32>(ev->u.usval); - ev->u.lval = tmp; - ev->et = ET_long; - return true; - } - case ET_long: - return true; - case ET_ulong: - { - if (ev->u.ulval > SAL_MAX_INT32) - return false; - auto tmp = static_cast<sal_Int32>(ev->u.ulval); - ev->u.lval = tmp; - ev->et = ET_long; - return true; - } - case ET_hyper: - { - if (ev->u.hval < SAL_MIN_INT32 || ev->u.hval > SAL_MAX_INT32) - return false; - auto tmp = static_cast<sal_Int32>(ev->u.hval); - ev->u.lval = tmp; - ev->et = ET_long; - return true; - } - case ET_uhyper: - { - if (ev->u.uhval > SAL_MAX_INT32) - return false; - auto tmp = static_cast<sal_Int32>(ev->u.uhval); - ev->u.lval = tmp; - ev->et = ET_long; - return true; - } - case ET_boolean: - { - auto tmp = static_cast<sal_Int32>(ev->u.bval); - ev->u.lval = tmp; - ev->et = ET_long; - return true; - } - case ET_float: - { - if (!(o3tl::convertsToAtLeast(o3tl::roundAway(ev->u.fval), SAL_MIN_INT32) - && o3tl::convertsToAtMost(o3tl::roundAway(ev->u.fval), SAL_MAX_INT32))) - { - return false; - } - auto tmp = static_cast<sal_Int32>(ev->u.fval); - ev->u.lval = tmp; - ev->et = ET_long; - return true; - } - case ET_double: - { - if (!(o3tl::convertsToAtLeast(o3tl::roundAway(ev->u.dval), SAL_MIN_INT32) - && o3tl::convertsToAtMost(o3tl::roundAway(ev->u.dval), SAL_MAX_INT32))) - { - return false; - } - auto tmp = static_cast<sal_Int32>(ev->u.dval); - ev->u.lval = tmp; - ev->et = ET_long; - return true; - } - case ET_byte: - { - auto tmp = static_cast<sal_Int32>(ev->u.byval); - ev->u.lval = tmp; - ev->et = ET_long; - return true; - } - default: - OSL_ASSERT(false); - return false; - } - case ET_ulong: - switch (ev->et) - { - case ET_short: - { - if (ev->u.sval < 0) - return false; - auto tmp = static_cast<sal_uInt32>(ev->u.sval); - ev->u.ulval = tmp; - ev->et = ET_ulong; - return true; - } - case ET_ushort: - { - auto tmp = static_cast<sal_uInt32>(ev->u.usval); - ev->u.ulval = tmp; - ev->et = ET_ulong; - return true; - } - case ET_long: - { - if (ev->u.lval < 0) - return false; - auto tmp = static_cast<sal_uInt32>(ev->u.lval); - ev->u.ulval = tmp; - ev->et = ET_ulong; - return true; - } - case ET_ulong: - return true; - case ET_hyper: - { - if (ev->u.hval < 0 || ev->u.hval > SAL_MAX_UINT32) - return false; - auto tmp = static_cast<sal_uInt32>(ev->u.hval); - ev->u.lval = tmp; - ev->et = ET_ulong; - return true; - } - case ET_uhyper: - { - if (ev->u.uhval > SAL_MAX_UINT32) - return false; - auto tmp = static_cast<sal_uInt32>(ev->u.uhval); - ev->u.ulval = tmp; - ev->et = ET_ulong; - return true; - } - case ET_boolean: - { - auto tmp = static_cast<sal_uInt32>(ev->u.bval); - ev->u.ulval = tmp; - ev->et = ET_ulong; - return true; - } - case ET_float: - { - if (ev->u.fval < 0.0 - || !o3tl::convertsToAtMost(o3tl::roundAway(ev->u.fval), SAL_MAX_UINT32)) - { - return false; - } - auto tmp = static_cast<sal_uInt32>(ev->u.fval); - ev->u.ulval = tmp; - ev->et = ET_ulong; - return true; - } - case ET_double: - { - if (ev->u.dval < 0.0 - || !o3tl::convertsToAtMost(o3tl::roundAway(ev->u.dval), SAL_MAX_UINT32)) - { - return false; - } - auto tmp = static_cast<sal_uInt32>(ev->u.dval); - ev->u.ulval = tmp; - ev->et = ET_ulong; - return true; - } - case ET_byte: - { - auto tmp = static_cast<sal_uInt32>(ev->u.byval); - ev->u.ulval = tmp; - ev->et = ET_ulong; - return true; - } - default: - OSL_ASSERT(false); - return false; - } - case ET_hyper: - switch (ev->et) - { - case ET_short: - { - auto tmp = static_cast<sal_Int64>(ev->u.sval); - ev->u.hval = tmp; - ev->et = ET_hyper; - return true; - } - case ET_ushort: - { - auto tmp = static_cast<sal_Int64>(ev->u.usval); - ev->u.hval = tmp; - ev->et = ET_hyper; - return true; - } - case ET_long: - { - auto tmp = static_cast<sal_Int64>(ev->u.lval); - ev->u.hval = tmp; - ev->et = ET_hyper; - return true; - } - case ET_ulong: - { - auto tmp = static_cast<sal_Int64>(ev->u.ulval); - ev->u.hval = tmp; - ev->et = ET_hyper; - return true; - } - case ET_hyper: - return true; - case ET_uhyper: - { - if (ev->u.uhval > SAL_MAX_INT64) - return false; - auto tmp = static_cast<sal_Int64>(ev->u.uhval); - ev->u.hval = tmp; - ev->et = ET_long; - return true; - } - case ET_boolean: - { - auto tmp = static_cast<sal_Int64>(ev->u.bval); - ev->u.hval = tmp; - ev->et = ET_hyper; - return true; - } - case ET_float: - { - if (!(o3tl::convertsToAtLeast(o3tl::roundAway(ev->u.fval), SAL_MIN_INT64) - && o3tl::convertsToAtMost(o3tl::roundAway(ev->u.fval), SAL_MAX_INT64))) - { - return false; - } - auto tmp = static_cast<sal_Int64>(ev->u.fval); - ev->u.hval = tmp; - ev->et = ET_hyper; - return true; - } - case ET_double: - { - if (!(o3tl::convertsToAtLeast(o3tl::roundAway(ev->u.dval), SAL_MIN_INT64) - && o3tl::convertsToAtMost(o3tl::roundAway(ev->u.dval), SAL_MAX_INT64))) - { - return false; - } - auto tmp = static_cast<sal_Int64>(ev->u.dval); - ev->u.hval = tmp; - ev->et = ET_hyper; - return true; - } - case ET_byte: - { - auto tmp = static_cast<sal_Int64>(ev->u.byval); - ev->u.hval = tmp; - ev->et = ET_hyper; - return true; - } - default: - OSL_ASSERT(false); - return false; - } - case ET_uhyper: - switch (ev->et) - { - case ET_short: - { - if (ev->u.sval < 0) - return false; - auto tmp = static_cast<sal_uInt64>(ev->u.sval); - ev->u.uhval = tmp; - ev->et = ET_uhyper; - return true; - } - case ET_ushort: - { - auto tmp = static_cast<sal_uInt64>(ev->u.usval); - ev->u.uhval = tmp; - ev->et = ET_uhyper; - return true; - } - case ET_long: - { - if (ev->u.lval < 0) - return false; - auto tmp = static_cast<sal_uInt64>(ev->u.lval); - ev->u.uhval = tmp; - ev->et = ET_uhyper; - return true; - } - case ET_ulong: - { - auto tmp = static_cast<sal_uInt64>(ev->u.ulval); - ev->u.uhval = tmp; - ev->et = ET_uhyper; - return true; - } - case ET_hyper: - { - if (ev->u.hval < 0) - return false; - auto tmp = static_cast<sal_uInt64>(ev->u.hval); - ev->u.uhval = tmp; - ev->et = ET_uhyper; - return true; - } - case ET_uhyper: - return true; - case ET_boolean: - { - auto tmp = static_cast<sal_uInt64>(ev->u.bval); - ev->u.uhval = tmp; - ev->et = ET_uhyper; - return true; - } - case ET_float: - { - if (ev->u.fval < 0.0 - || !o3tl::convertsToAtMost(o3tl::roundAway(ev->u.fval), SAL_MAX_UINT64)) - { - return false; - } - auto tmp = static_cast<sal_uInt64>(ev->u.fval); - ev->u.uhval = tmp; - ev->et = ET_uhyper; - return true; - } - case ET_double: - { - if (ev->u.dval < 0.0 - || !o3tl::convertsToAtMost(o3tl::roundAway(ev->u.dval), SAL_MAX_UINT64)) - { - return false; - } - auto tmp = static_cast<sal_uInt64>(ev->u.dval); - ev->u.uhval = tmp; - ev->et = ET_uhyper; - return true; - } - case ET_byte: - { - auto tmp = static_cast<sal_uInt64>(ev->u.byval); - ev->u.uhval = tmp; - ev->et = ET_uhyper; - return true; - } - default: - OSL_ASSERT(false); - return false; - } - case ET_boolean: - switch (ev->et) - { - case ET_short: - ev->u.bval = ev->u.sval != 0; - ev->et = ET_boolean; - return true; - case ET_ushort: - ev->u.bval = ev->u.usval != 0; - ev->et = ET_boolean; - return true; - case ET_long: - ev->u.bval = ev->u.lval != 0; - ev->et = ET_boolean; - return true; - case ET_ulong: - ev->u.bval = ev->u.ulval != 0; - ev->et = ET_boolean; - return true; - case ET_hyper: - ev->u.bval = ev->u.hval != 0; - ev->et = ET_boolean; - return true; - case ET_uhyper: - ev->u.bval = ev->u.uhval != 0; - ev->et = ET_boolean; - return true; - case ET_boolean: - return true; - case ET_float: - ev->u.bval = ev->u.fval != 0.0; - ev->et = ET_boolean; - return true; - case ET_double: - ev->u.bval = ev->u.dval != 0.0; - ev->et = ET_boolean; - return true; - case ET_byte: - ev->u.bval = ev->u.byval != 0; - ev->et = ET_boolean; - return true; - default: - OSL_ASSERT(false); - return false; - } - case ET_float: - switch (ev->et) - { - case ET_short: - { - auto tmp = static_cast<float>(ev->u.sval); - ev->u.fval = tmp; - ev->et = ET_float; - return true; - } - case ET_ushort: - { - auto tmp = static_cast<float>(ev->u.usval); - ev->u.fval = tmp; - ev->et = ET_float; - return true; - } - case ET_long: - { - auto tmp = static_cast<float>(ev->u.lval); - ev->u.fval = tmp; - ev->et = ET_float; - return true; - } - case ET_ulong: - { - auto tmp = static_cast<float>(ev->u.ulval); - ev->u.fval = tmp; - ev->et = ET_float; - return true; - } - case ET_hyper: - { - auto tmp = static_cast<float>(ev->u.hval); - ev->u.fval = tmp; - ev->et = ET_float; - return true; - } - case ET_uhyper: - { - if (static_cast<float>(ev->u.ulval) > FLT_MAX) - return false; - auto tmp = static_cast<float>(ev->u.ulval); - ev->u.fval = tmp; - ev->et = ET_float; - return true; - } - case ET_boolean: - ev->u.fval = ev->u.bval ? 1.0f : 0.0f; - ev->et = ET_float; - return true; - case ET_float: - return true; - case ET_double: - { - if (static_cast<float>(ev->u.dval) > FLT_MAX - || static_cast<float>(ev->u.dval) < -FLT_MAX) - return false; - auto tmp = static_cast<float>(ev->u.dval); - ev->u.fval = tmp; - ev->et = ET_float; - return true; - } - case ET_byte: - { - auto tmp = static_cast<float>(ev->u.byval); - ev->u.fval = tmp; - ev->et = ET_float; - return true; - } - default: - OSL_ASSERT(false); - return false; - } - case ET_double: - switch (ev->et) - { - case ET_short: - { - auto tmp = static_cast<double>(ev->u.sval); - ev->u.dval = tmp; - ev->et = ET_double; - return true; - } - case ET_ushort: - { - auto tmp = static_cast<double>(ev->u.usval); - ev->u.dval = tmp; - ev->et = ET_double; - return true; - } - case ET_long: - { - auto tmp = static_cast<double>(ev->u.lval); - ev->u.dval = tmp; - ev->et = ET_double; - return true; - } - case ET_ulong: - { - auto tmp = static_cast<double>(ev->u.ulval); - ev->u.dval = tmp; - ev->et = ET_double; - return true; - } - case ET_hyper: - { - auto tmp = static_cast<double>(ev->u.hval); - ev->u.dval = tmp; - ev->et = ET_double; - return true; - } - case ET_uhyper: - { - if (ev->u.dval > FLT_MAX || ev->u.dval < -FLT_MAX) - return false; - auto tmp = static_cast<double>(ev->u.ulval); - ev->u.dval = tmp; - ev->et = ET_double; - return true; - } - case ET_boolean: - ev->u.dval = ev->u.bval ? 1.0 : 0.0; - ev->et = ET_double; - return true; - case ET_float: - { - auto tmp = static_cast<double>(ev->u.fval); - ev->u.dval = tmp; - ev->et = ET_double; - return true; - } - case ET_double: - return true; - case ET_byte: - { - auto tmp = static_cast<double>(ev->u.byval); - ev->u.dval = tmp; - ev->et = ET_double; - return true; - } - default: - OSL_ASSERT(false); - return false; - } - case ET_byte: - switch (ev->et) - { - case ET_short: - { - if (ev->u.sval < SAL_MIN_INT8 || ev->u.sval > SAL_MAX_UINT8) - return false; - auto tmp = static_cast<unsigned char>(ev->u.sval); - ev->u.byval = tmp; - ev->et = ET_byte; - return true; - } - case ET_ushort: - { - if (ev->u.usval > SAL_MAX_UINT8) - return false; - auto tmp = static_cast<unsigned char>(ev->u.usval); - ev->u.byval = tmp; - ev->et = ET_byte; - return true; - } - case ET_long: - { - if (ev->u.lval < SAL_MIN_INT8 || ev->u.lval > SAL_MAX_UINT8) - return false; - auto tmp = static_cast<unsigned char>(ev->u.lval); - ev->u.byval = tmp; - ev->et = ET_byte; - return true; - } - case ET_ulong: - { - if (ev->u.ulval > SAL_MAX_UINT8) - return false; - auto tmp = static_cast<unsigned char>(ev->u.ulval); - ev->u.byval = tmp; - ev->et = ET_byte; - return true; - } - case ET_hyper: - { - if (ev->u.hval < SAL_MIN_INT8 || ev->u.hval > SAL_MAX_UINT8) - return false; - auto tmp = static_cast<unsigned char>(ev->u.hval); - ev->u.byval = tmp; - ev->et = ET_byte; - return true; - } - case ET_uhyper: - { - if (ev->u.uhval > SAL_MAX_UINT8) - return false; - auto tmp = static_cast<unsigned char>(ev->u.uhval); - ev->u.byval = tmp; - ev->et = ET_byte; - return true; - } - case ET_boolean: - ev->u.byval = ev->u.bval ? 1 : 0; - ev->et = ET_byte; - return true; - case ET_float: - { - if (!(o3tl::convertsToAtLeast(o3tl::roundAway(ev->u.fval), SAL_MIN_INT8) - && o3tl::convertsToAtMost(o3tl::roundAway(ev->u.fval), SAL_MAX_UINT8))) - { - return false; - } - auto tmp = static_cast<unsigned char>(static_cast<sal_Int32>(ev->u.fval)); - ev->u.byval = tmp; - ev->et = ET_byte; - return true; - } - case ET_double: - { - if (!(o3tl::convertsToAtLeast(o3tl::roundAway(ev->u.dval), SAL_MIN_INT8) - && o3tl::convertsToAtMost(o3tl::roundAway(ev->u.dval), SAL_MAX_UINT8))) - { - return false; - } - auto tmp = static_cast<unsigned char>(static_cast<sal_Int32>(ev->u.dval)); - ev->u.byval = tmp; - ev->et = ET_byte; - return true; - } - case ET_byte: - return true; - default: - OSL_ASSERT(false); - return false; - } - default: - OSL_ASSERT(false); - return false; - } -} - -bool AstExpression::coerce(ExprType t) -{ - /* - * Is it already of the right type? - */ - if (m_exprValue != nullptr && m_exprValue->et == t) - return true; - /* - * OK, must coerce - * - * First, evaluate it, then try to coerce result type - * If already evaluated, return the result - */ - evaluate(); - if (m_exprValue == nullptr) - return false; - - if (!coerce_value(m_exprValue.get(), t)) - m_exprValue.reset(); - - return m_exprValue != nullptr; -} - -bool AstExpression::compareLong(AstExpression* pExpr) -{ - bool bRet = false; - if (m_combOperator != pExpr->m_combOperator) - return bRet; - evaluate(); - pExpr->evaluate(); - if (m_exprValue == nullptr || pExpr->getExprValue() == nullptr) - return bRet; - if (m_exprValue->et != pExpr->getExprValue()->et) - return bRet; - switch (m_exprValue->et) - { - case ET_long: - bRet = m_exprValue->u.lval == pExpr->getExprValue()->u.lval; - break; - default: - OSL_ASSERT(false); - bRet = false; - break; - } - return bRet; -} - -void AstExpression::evaluate() -{ - /* - * Already evaluated? - */ - if (m_exprValue != nullptr) - return; - /* - * OK, must evaluate operator - */ - switch (m_combOperator) - { - case ExprComb::Add: - case ExprComb::Minus: - case ExprComb::Mul: - case ExprComb::Div: - case ExprComb::Mod: - m_exprValue = eval_bin_op(); - break; - case ExprComb::Or: - case ExprComb::Xor: - case ExprComb::And: - case ExprComb::Left: - case ExprComb::Right: - m_exprValue = eval_bit_op(); - break; - case ExprComb::UPlus: - case ExprComb::UMinus: - m_exprValue = eval_un_op(); - break; - case ExprComb::Symbol: - m_exprValue = eval_symbol(); - break; - case ExprComb::NONE: - break; - } -} - -std::unique_ptr<AstExprValue> AstExpression::eval_bin_op() -{ - ExprType eType = ET_double; - - if (m_combOperator == ExprComb::Mod) - eType = ET_hyper; - - if (m_subExpr1 == nullptr || m_subExpr2 == nullptr) - return nullptr; - m_subExpr1->evaluate(); - if (m_subExpr1->getExprValue() == nullptr) - return nullptr; - if (!m_subExpr1->coerce(eType)) - return nullptr; - m_subExpr2->evaluate(); - if (m_subExpr2->getExprValue() == nullptr) - return nullptr; - if (!m_subExpr2->coerce(eType)) - return nullptr; - - std::unique_ptr<AstExprValue> retval(new AstExprValue); - retval->et = eType; - - switch (m_combOperator) - { - case ExprComb::Mod: - if (m_subExpr2->getExprValue()->u.hval == 0) - return nullptr; - retval->u.hval - = m_subExpr1->getExprValue()->u.hval % m_subExpr2->getExprValue()->u.hval; - break; - case ExprComb::Add: - retval->u.dval - = m_subExpr1->getExprValue()->u.dval + m_subExpr2->getExprValue()->u.dval; - break; - case ExprComb::Minus: - retval->u.dval - = m_subExpr1->getExprValue()->u.dval - m_subExpr2->getExprValue()->u.dval; - break; - case ExprComb::Mul: - retval->u.dval - = m_subExpr1->getExprValue()->u.dval * m_subExpr2->getExprValue()->u.dval; - break; - case ExprComb::Div: - if (m_subExpr2->getExprValue()->u.dval == 0.0) - return nullptr; - retval->u.dval - = m_subExpr1->getExprValue()->u.dval / m_subExpr2->getExprValue()->u.dval; - break; - default: - return nullptr; - } - - return retval; -} - -std::unique_ptr<AstExprValue> AstExpression::eval_bit_op() -{ - if (m_subExpr1 == nullptr || m_subExpr2 == nullptr) - return nullptr; - m_subExpr1->evaluate(); - if (m_subExpr1->getExprValue() == nullptr) - return nullptr; - if (!m_subExpr1->coerce(ET_long)) - return nullptr; - m_subExpr2->evaluate(); - if (m_subExpr2->getExprValue() == nullptr) - return nullptr; - if (!m_subExpr2->coerce(ET_long)) - return nullptr; - - std::unique_ptr<AstExprValue> retval(new AstExprValue); - retval->et = ET_long; - - switch (m_combOperator) - { - case ExprComb::Or: - retval->u.lval - = m_subExpr1->getExprValue()->u.lval | m_subExpr2->getExprValue()->u.lval; - break; - case ExprComb::Xor: - retval->u.lval - = m_subExpr1->getExprValue()->u.lval ^ m_subExpr2->getExprValue()->u.lval; - break; - case ExprComb::And: - retval->u.lval - = m_subExpr1->getExprValue()->u.lval & m_subExpr2->getExprValue()->u.lval; - break; - case ExprComb::Left: - retval->u.lval = m_subExpr1->getExprValue()->u.lval - << m_subExpr2->getExprValue()->u.lval; - break; - case ExprComb::Right: - retval->u.lval - = m_subExpr1->getExprValue()->u.lval >> m_subExpr2->getExprValue()->u.lval; - break; - default: - return nullptr; - } - - return retval; -} - -std::unique_ptr<AstExprValue> AstExpression::eval_un_op() -{ - if (m_subExpr1 == nullptr) - return nullptr; - m_subExpr1->evaluate(); - if (m_subExpr1->getExprValue() == nullptr) - return nullptr; - if (!m_subExpr1->coerce(ET_double)) - return nullptr; - - std::unique_ptr<AstExprValue> retval(new AstExprValue); - retval->et = ET_double; - - switch (m_combOperator) - { - case ExprComb::UPlus: - retval->u.lval = m_subExpr1->getExprValue()->u.lval; - break; - case ExprComb::UMinus: - retval->u.lval = -(m_subExpr1->getExprValue()->u.lval); - break; - default: - return nullptr; - } - - return retval; -} - -std::unique_ptr<AstExprValue> AstExpression::eval_symbol() -{ - AstScope* pScope = nullptr; - AstDeclaration* pDecl; - AstConstant* pConst; - - /* - * Is there a symbol stored? - */ - if (!m_xSymbolicName) - { - ErrorHandler::evalError(this); - return nullptr; - } - /* - * Get current scope for lookup - */ - if (idlc()->scopes()->depth() > 0) - pScope = idlc()->scopes()->topNonNull(); - if (!pScope) - { - ErrorHandler::lookupError(*m_xSymbolicName); - return nullptr; - } - /* - * Do lookup - */ - pDecl = pScope->lookupByName(*m_xSymbolicName); - if (pDecl == nullptr) - { - ErrorHandler::lookupError(*m_xSymbolicName); - return nullptr; - } - /* - * Is it a constant? - */ - if (pDecl->getNodeType() != NT_const && pDecl->getNodeType() != NT_enum_val) - { - ErrorHandler::constantExpected(pDecl, *m_xSymbolicName); - return nullptr; - } - if (!ErrorHandler::checkPublished(pDecl)) - { - return nullptr; - } - /* - * OK, now evaluate the constant we just got, to produce its value - */ - pConst = static_cast<AstConstant*>(pDecl); - pConst->getConstValue()->evaluate(); - auto const val = pConst->getConstValue()->getExprValue(); - return val == nullptr ? nullptr : std::make_unique<AstExprValue>(*val); -} - -OString AstExpression::toString() -{ - OString exprStr; - if (m_combOperator == ExprComb::Symbol) - return m_xSymbolicName ? *m_xSymbolicName : OString("<Undefined Name>"); - - if (m_exprValue) - { - switch (m_exprValue->et) - { - case ET_short: - return OString::number(m_exprValue->u.sval); - case ET_ushort: - return OString::number(m_exprValue->u.usval); - case ET_long: - return OString::number(m_exprValue->u.lval); - case ET_ulong: - return OString::number(m_exprValue->u.ulval); - case ET_hyper: - return OString::number(m_exprValue->u.hval); - case ET_uhyper: - return OString::number(m_exprValue->u.uhval); - case ET_float: - return OString::number(m_exprValue->u.fval); - case ET_double: - return OString::number(m_exprValue->u.dval); - case ET_byte: - return OString::number(m_exprValue->u.byval); - case ET_boolean: - if (m_exprValue->u.lval == 0) - return "FALSE"; - else - return "TRUE"; - default: - OSL_ASSERT(false); - return OString(); - } - } - - switch (m_combOperator) - { - case ExprComb::UPlus: - exprStr += "+"; - break; - case ExprComb::UMinus: - exprStr += "-"; - break; - default: - break; - } - if (m_subExpr1) - exprStr += m_subExpr1->toString(); - switch (m_combOperator) - { - case ExprComb::Add: - exprStr += " + "; - break; - case ExprComb::Minus: - exprStr += " - "; - break; - case ExprComb::Mul: - exprStr += " * "; - break; - case ExprComb::Div: - exprStr += " / "; - break; - case ExprComb::Mod: - exprStr += " % "; - break; - case ExprComb::Or: - exprStr += " | "; - break; - case ExprComb::Xor: - exprStr += " ^ "; - break; - case ExprComb::And: - exprStr += " & "; - break; - case ExprComb::Left: - exprStr += " << "; - break; - case ExprComb::Right: - exprStr += " >> "; - break; - default: - break; - } - - if (m_subExpr2) - exprStr += m_subExpr2->toString(); - - return exprStr; -} - -// Convert the type of an AST_Expression to a char * -const char* exprTypeToString(ExprType t) -{ - switch (t) - { - case ET_short: - return "short"; - case ET_ushort: - return "unsigned short"; - case ET_long: - return "long"; - case ET_ulong: - return "unsigned long"; - case ET_hyper: - return "hyper"; - case ET_uhyper: - return "unsigned hyper"; - case ET_float: - return "float"; - case ET_double: - return "double"; - case ET_char: - return "char"; - case ET_byte: - return "byte"; - case ET_boolean: - return "boolean"; - case ET_string: - return "string"; - case ET_any: - return "any"; - case ET_type: - return "type"; - case ET_void: - return "void"; - case ET_none: - return "none"; - } - - return "unknown"; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/astinterface.cxx b/idlc/source/astinterface.cxx deleted file mode 100644 index 50e24d1fd667..000000000000 --- a/idlc/source/astinterface.cxx +++ /dev/null @@ -1,399 +0,0 @@ -/* -*- 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 <astinterface.hxx> -#include <astattribute.hxx> -#include <astoperation.hxx> -#include <idlc.hxx> - -#include <registry/version.h> -#include <registry/writer.hxx> - -#include <osl/diagnose.h> - -AstInterface::AstInterface(const OString& name, - AstInterface const * pInherits, - AstScope* pScope) - : AstType(NT_interface, name, pScope) - , AstScope(NT_interface) - , m_mandatoryInterfaces(0) - , m_bIsDefined(false) - , m_bSingleInheritance(pInherits != nullptr) -{ - if (pInherits != nullptr) { - addInheritedInterface(pInherits, false, OUString()); - } -} - -AstInterface::~AstInterface() -{ -} - -AstInterface::DoubleDeclarations AstInterface::checkInheritedInterfaceClashes( - AstInterface const * ifc, bool optional) const -{ - DoubleDeclarations doubleDecls; - std::set< OString > seen; - checkInheritedInterfaceClashes( - doubleDecls, seen, ifc, true, optional, optional); - return doubleDecls; -} - -void AstInterface::addInheritedInterface( - AstType const * ifc, bool optional, OUString const & documentation) -{ - m_inheritedInterfaces.emplace_back(ifc, optional, documentation); - if (!optional) { - ++m_mandatoryInterfaces; - } - AstInterface const * resolved = resolveInterfaceTypedefs(ifc); - addVisibleInterface(resolved, true, optional); - if (optional) { - addOptionalVisibleMembers(resolved); - } -} - -AstInterface::DoubleMemberDeclarations AstInterface::checkMemberClashes( - AstDeclaration const * member) const -{ - DoubleMemberDeclarations doubleMembers; - checkMemberClashes(doubleMembers, member, true); - return doubleMembers; -} - -void AstInterface::addMember(AstDeclaration /*TODO: const*/ * member) { - addDeclaration(member); - m_visibleMembers.emplace(member->getLocalName(), VisibleMember(member)); -} - -void AstInterface::forwardDefined(AstInterface const & def) -{ - setImported(def.isImported()); - setInMainfile(def.isInMainfile()); - setLineNumber(def.getLineNumber()); - setFileName(def.getFileName()); - setDocumentation(def.getDocumentation()); - m_inheritedInterfaces = def.m_inheritedInterfaces; - m_mandatoryInterfaces = def.m_mandatoryInterfaces; - m_bIsDefined = true; -} - -bool AstInterface::dump(RegistryKey& rKey) -{ - if ( !isDefined() ) - return true; - - 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; - } - - if (m_mandatoryInterfaces > SAL_MAX_UINT16 - || m_inheritedInterfaces.size() - m_mandatoryInterfaces - > SAL_MAX_UINT16) - { - fprintf( - stderr, "%s: interface %s has too many direct base interfaces\n", - idlc()->getOptions()->getProgramName().getStr(), - getScopedName().getStr()); - return false; - } - sal_uInt16 nBaseTypes = static_cast< sal_uInt16 >(m_mandatoryInterfaces); - sal_uInt16 nAttributes = 0; - sal_uInt16 nMethods = 0; - sal_uInt16 nReferences = static_cast< sal_uInt16 >( - m_inheritedInterfaces.size() - m_mandatoryInterfaces); - typereg_Version version - = (nBaseTypes <= 1 && nReferences == 0 && !m_bPublished - ? TYPEREG_VERSION_0 : TYPEREG_VERSION_1); - for (DeclList::const_iterator i(getIteratorBegin()); i != getIteratorEnd(); - ++i) - { - switch ((*i)->getNodeType()) { - case NT_attribute: - { - if (!increment(&nAttributes, "attributes")) { - return false; - } - AstAttribute * attr = static_cast<AstAttribute *>(*i); - if (attr->isBound()) { - version = TYPEREG_VERSION_1; - } - DeclList::size_type getCount = attr->getGetExceptionCount(); - if (getCount > SAL_MAX_UINT16) { - fprintf( - stderr, - ("%s: raises clause of getter for attribute %s of" - " interface %s is too long\n"), - idlc()->getOptions()->getProgramName().getStr(), - (*i)->getLocalName().getStr(), - getScopedName().getStr()); - return false; - } - if (getCount > 0) { - version = TYPEREG_VERSION_1; - if (!increment(&nMethods, "attributes")) { - return false; - } - } - DeclList::size_type setCount = attr->getSetExceptionCount(); - if (setCount > SAL_MAX_UINT16) { - fprintf( - stderr, - ("%s: raises clause of setter for attribute %s of" - " interface %s is too long\n"), - idlc()->getOptions()->getProgramName().getStr(), - (*i)->getLocalName().getStr(), - getScopedName().getStr()); - return false; - } - if (setCount > 0) { - version = TYPEREG_VERSION_1; - if (!increment(&nMethods, "attributes")) { - return false; - } - } - break; - } - - case NT_operation: - if (!increment(&nMethods, "methods")) { - return false; - } - break; - - default: - OSL_ASSERT(false); - break; - } - } - - typereg::Writer aBlob( - version, getDocumentation(), "", RT_TYPE_INTERFACE, m_bPublished, - OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8), nBaseTypes, - nAttributes, nMethods, nReferences); - - sal_uInt16 superTypeIndex = 0; - sal_uInt16 referenceIndex = 0; - for (auto const& elem : m_inheritedInterfaces) - { - if (elem.isOptional()) { - aBlob.setReferenceData( - referenceIndex++, elem.getDocumentation(), RTReferenceType::SUPPORTS, - RTFieldAccess::OPTIONAL, - OStringToOUString( - elem.getInterface()->getRelativName(), - RTL_TEXTENCODING_UTF8)); - } else { - aBlob.setSuperTypeName( - superTypeIndex++, - OStringToOUString( - elem.getInterface()->getRelativName(), - RTL_TEXTENCODING_UTF8)); - } - } - - sal_uInt16 attributeIndex = 0; - sal_uInt16 methodIndex = 0; - for (DeclList::const_iterator i(getIteratorBegin()); i != getIteratorEnd(); - ++i) - { - switch ((*i)->getNodeType()) { - case NT_attribute: - static_cast<AstAttribute *>(*i)->dumpBlob( - aBlob, attributeIndex++, &methodIndex); - break; - - case NT_operation: - static_cast<AstOperation *>(*i)->dumpBlob(aBlob, methodIndex++); - break; - - default: - OSL_ASSERT(false); - break; - } - } - - sal_uInt32 aBlobSize; - void const * pBlob = aBlob.getBlob(&aBlobSize); - - if (localKey.setValue("", 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; -} - -void AstInterface::checkInheritedInterfaceClashes( - DoubleDeclarations & doubleDeclarations, - std::set< OString > & seenInterfaces, AstInterface const * ifc, - bool direct, bool optional, bool mainOptional) const -{ - if (!(direct || optional - || seenInterfaces.insert(ifc->getScopedName()).second)) - return; - - VisibleInterfaces::const_iterator visible( - m_visibleInterfaces.find(ifc->getScopedName())); - if (visible != m_visibleInterfaces.end()) { - switch (visible->second) { - case INTERFACE_INDIRECT_OPTIONAL: - if (direct && optional) { - doubleDeclarations.interfaces.push_back(ifc); - return; - } - break; - - case INTERFACE_DIRECT_OPTIONAL: - if (direct || !mainOptional) { - doubleDeclarations.interfaces.push_back(ifc); - } - return; - - case INTERFACE_INDIRECT_MANDATORY: - if (direct) { - doubleDeclarations.interfaces.push_back(ifc); - } - return; - - case INTERFACE_DIRECT_MANDATORY: - if (direct || (!optional && !mainOptional)) { - doubleDeclarations.interfaces.push_back(ifc); - } - return; - } - } - if (!direct && optional) - return; - - for (DeclList::const_iterator i(ifc->getIteratorBegin()); - i != ifc->getIteratorEnd(); ++i) - { - checkMemberClashes( - doubleDeclarations.members, *i, !mainOptional); - } - for (auto const& elem : ifc->m_inheritedInterfaces) - { - checkInheritedInterfaceClashes( - doubleDeclarations, seenInterfaces, elem.getResolved(), - false, elem.isOptional(), mainOptional); - } -} - -void AstInterface::checkMemberClashes( - DoubleMemberDeclarations & doubleMembers, AstDeclaration const * member, - bool checkOptional) const -{ - VisibleMembers::const_iterator i( - m_visibleMembers.find(member->getLocalName())); - if (i == m_visibleMembers.end()) - return; - - if (i->second.mandatory != nullptr) { - if (i->second.mandatory->getScopedName() != member->getScopedName()) - { - DoubleMemberDeclaration d; - d.first = i->second.mandatory; - d.second = member; - doubleMembers.push_back(d); - } - } else if (checkOptional) { - for (auto const& elem : i->second.optionals) - { - if (elem.second->getScopedName() != member->getScopedName()) { - DoubleMemberDeclaration d; - d.first = elem.second; - d.second = member; - doubleMembers.push_back(d); - } - } - } -} - -void AstInterface::addVisibleInterface( - AstInterface const * ifc, bool direct, bool optional) -{ - InterfaceKind kind = optional - ? direct ? INTERFACE_DIRECT_OPTIONAL : INTERFACE_INDIRECT_OPTIONAL - : direct ? INTERFACE_DIRECT_MANDATORY : INTERFACE_INDIRECT_MANDATORY; - std::pair< VisibleInterfaces::iterator, bool > result( - m_visibleInterfaces.emplace(ifc->getScopedName(), kind)); - bool seen = !result.second - && result.first->second >= INTERFACE_INDIRECT_MANDATORY; - if (!result.second && kind > result.first->second) { - result.first->second = kind; - } - if (optional || seen) - return; - - for (DeclList::const_iterator i(ifc->getIteratorBegin()); - i != ifc->getIteratorEnd(); ++i) - { - m_visibleMembers.emplace( - (*i)->getLocalName(), VisibleMember(*i)); - } - for (auto const& elem : ifc->m_inheritedInterfaces) - { - addVisibleInterface(elem.getResolved(), false, elem.isOptional()); - } -} - -void AstInterface::addOptionalVisibleMembers(AstInterface const * ifc) { - for (DeclList::const_iterator i(ifc->getIteratorBegin()); - i != ifc->getIteratorEnd(); ++i) - { - VisibleMembers::iterator visible( - m_visibleMembers.find((*i)->getLocalName())); - if (visible == m_visibleMembers.end()) { - visible = m_visibleMembers.emplace( - (*i)->getLocalName(), VisibleMember()).first; - } - if (visible->second.mandatory == nullptr) { - visible->second.optionals.emplace(ifc->getScopedName(), *i); - } - } - for (auto const& elem : ifc->m_inheritedInterfaces) - { - if (!elem.isOptional()) { - addOptionalVisibleMembers(elem.getResolved()); - } - } -} - -bool AstInterface::increment(sal_uInt16 * counter, char const * sort) const { - if (*counter == SAL_MAX_UINT16) { - fprintf( - stderr, "%s: interface %s has too many direct %s\n", - idlc()->getOptions()->getProgramName().getStr(), - getScopedName().getStr(), sort); - return false; - } - ++*counter; - return true; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/astoperation.cxx b/idlc/source/astoperation.cxx deleted file mode 100644 index 4dea37576b24..000000000000 --- a/idlc/source/astoperation.cxx +++ /dev/null @@ -1,115 +0,0 @@ -/* -*- 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 <astoperation.hxx> -#include <asttype.hxx> -#include <astbasetype.hxx> -#include <astparameter.hxx> -#include <errorhandler.hxx> - -#include <registry/writer.hxx> - -void AstOperation::setExceptions(DeclList const * pExceptions) -{ - if (pExceptions != nullptr) { - m_exceptions = *pExceptions; - } -} - -bool AstOperation::isVariadic() const { - DeclList::const_iterator i(getIteratorEnd()); - return i != getIteratorBegin() - && static_cast< AstParameter const * >(*(--i))->isRest(); -} - -void AstOperation::dumpBlob(typereg::Writer & rBlob, sal_uInt16 index) -{ - sal_uInt16 nParam = getNodeCount(NT_parameter); - sal_uInt16 nExcep = static_cast<sal_uInt16>(m_exceptions.size()); - - OUString returnTypeName; - if (m_pReturnType == nullptr) { - returnTypeName = "void"; - } else { - returnTypeName = OStringToOUString( - m_pReturnType->getRelativName(), RTL_TEXTENCODING_UTF8); - } - rBlob.setMethodData( - index, getDocumentation(), RTMethodMode::TWOWAY, - OStringToOUString(getLocalName(), RTL_TEXTENCODING_UTF8), - returnTypeName, nParam, nExcep); - - if ( nParam ) - { - DeclList::const_iterator iter = getIteratorBegin(); - DeclList::const_iterator end = getIteratorEnd(); - RTParamMode paramMode; - sal_uInt16 paramIndex = 0; - while ( iter != end ) - { - AstDeclaration* pDecl = *iter; - if ( pDecl->getNodeType() == NT_parameter ) - { - AstParameter* pParam = static_cast<AstParameter*>(pDecl); - switch (pParam->getDirection()) - { - case DIR_IN : - paramMode = RT_PARAM_IN; - break; - case DIR_OUT : - paramMode = RT_PARAM_OUT; - break; - case DIR_INOUT : - paramMode = RT_PARAM_INOUT; - break; - default: - paramMode = RT_PARAM_INVALID; - break; - } - if (pParam->isRest()) { - paramMode = static_cast< RTParamMode >( - paramMode | RT_PARAM_REST); - } - - rBlob.setMethodParameterData( - index, paramIndex++, paramMode, - OStringToOUString( - pDecl->getLocalName(), RTL_TEXTENCODING_UTF8), - OStringToOUString( - pParam->getType()->getRelativName(), - RTL_TEXTENCODING_UTF8)); - } - ++iter; - } - } - - if ( nExcep ) - { - sal_uInt16 exceptIndex = 0; - for (auto const& exception : m_exceptions) - { - rBlob.setMethodExceptionTypeName( - index, exceptIndex++, - OStringToOUString( - exception->getRelativName(), RTL_TEXTENCODING_UTF8)); - } - } -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/astscope.cxx b/idlc/source/astscope.cxx deleted file mode 100644 index f8309a766ef3..000000000000 --- a/idlc/source/astscope.cxx +++ /dev/null @@ -1,314 +0,0 @@ -/* -*- 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 <sal/config.h> - -#include <algorithm> -#include <string_view> - -#include <astscope.hxx> -#include <astbasetype.hxx> -#include <astinterface.hxx> -#include <errorhandler.hxx> -#include <o3tl/string_view.hxx> -#include <osl/diagnose.h> - - -static bool isGlobal(std::string_view scopedName) -{ - return scopedName.empty() || o3tl::starts_with(scopedName, ":"); -} - -AstScope::AstScope(NodeType nodeType) - : m_nodeType(nodeType) -{ - -} - -AstScope::~AstScope() -{ - -} - -AstDeclaration* AstScope::addDeclaration(AstDeclaration* pDecl) -{ - AstDeclaration* pDeclaration = nullptr; - - if ((pDeclaration = lookupForAdd(pDecl)) != nullptr) - { - if ( pDecl->hasAncestor(pDeclaration) ) - { - ErrorHandler::error2(ErrorCode::RedefScope, pDecl, pDeclaration); - return nullptr; - } - if ( (pDecl->getNodeType() == pDeclaration->getNodeType()) && - (pDecl->getNodeType() == NT_sequence - || pDecl->getNodeType() == NT_instantiated_struct) ) - { - return pDeclaration; - } - if ( (pDeclaration->getNodeType() == NT_interface) - && (pDecl->getNodeType() == NT_interface) - && !(static_cast<AstInterface*>(pDeclaration)->isDefined()) ) - { - m_declarations.push_back(pDecl); - return pDecl; - } - if ( (NT_service == m_nodeType) && - ( ((pDecl->getNodeType() == NT_interface_member) - && (pDeclaration->getNodeType() == NT_interface)) || - ((pDecl->getNodeType() == NT_service_member) - && (pDeclaration->getNodeType() == NT_service)) ) - ) - { - m_declarations.push_back(pDecl); - return pDecl; - } - - ErrorHandler::error2(ErrorCode::RedefScope, scopeAsDecl(this), pDecl); - return nullptr; - } - - m_declarations.push_back(pDecl); - return pDecl; -} - -sal_uInt16 AstScope::getNodeCount(NodeType nodeType) const -{ - return static_cast<sal_uInt16>(std::count_if(getIteratorBegin(), getIteratorEnd(), - [&nodeType](const AstDeclaration* pDecl) { return pDecl->getNodeType() == nodeType; })); -} - -AstDeclaration* AstScope::lookupByName(const OString& scopedName) -{ - AstDeclaration* pDecl = nullptr; - AstScope* pScope = nullptr; - if (scopedName.isEmpty()) - return nullptr; - - // If name starts with "::" start look up in global scope - if ( isGlobal(scopedName) ) - { - pDecl = scopeAsDecl(this); - if ( !pDecl ) - return nullptr; - - pScope = pDecl->getScope(); - // If this is the global scope ... - if ( !pScope ) - { - // look up the scopedName part after "::" - OString subName = scopedName.copy(2); - pDecl = lookupByName(subName); - return pDecl; - //return pScope->lookupByName(); - } - // OK, not global scope yet, so simply iterate with parent scope - pDecl = pScope->lookupByName(scopedName); - return pDecl; - } - - // The name does not start with "::" - // Look up in the local scope and start with the first scope - sal_Int32 nIndex = scopedName.indexOf(':'); - OString firstScope = nIndex > 0 ? scopedName.copy(0, nIndex) : scopedName; - bool bFindFirstScope = true; - pDecl = lookupByNameLocal(firstScope); - if ( !pDecl ) - { - bFindFirstScope = false; - - // OK, not found. Go down parent scope chain - pDecl = scopeAsDecl(this); - if ( pDecl ) - { - pScope = pDecl->getScope(); - if ( pScope ) - pDecl = pScope->lookupByName(scopedName); - else - pDecl = nullptr; - - // Special case for scope which is an interface. We - // have to look in the inherited interfaces as well. - if ( !pDecl && m_nodeType == NT_interface ) - pDecl = lookupInInherited(scopedName); - } - } - - if ( !bFindFirstScope || (firstScope == scopedName) ) - return pDecl; - - sal_Int32 i = 0; - sal_Int32 nOffset = 2; - do - { - pScope = declAsScope(pDecl); - if( pScope ) - { - pDecl = pScope->lookupByNameLocal(o3tl::getToken(scopedName, nOffset, ':', i )); - nOffset = 1; - } - if( !pDecl ) - break; - } while( i != -1 ); - - if ( !pDecl ) - { - // last try if is not the global scope and the scopeName isn't specify global too - pDecl = scopeAsDecl(this); - if ( pDecl && !pDecl->getLocalName().isEmpty() ) - { - pScope = pDecl->getScope(); - if ( pScope ) - pDecl = pScope->lookupByName(scopedName); - } else - { - pDecl = nullptr; - } - } - - return pDecl; -} - -AstDeclaration* AstScope::lookupByNameLocal(std::string_view name) const -{ - for (auto const& declaration : m_declarations) - { - if ( declaration->getLocalName() == name ) - return declaration; - } - return nullptr; -} - -AstDeclaration* AstScope::lookupInInherited(const OString& scopedName) const -{ - const AstInterface* pInterface = dynamic_cast<const AstInterface*>(this); - - if ( !pInterface ) - return nullptr; - - // Can't look in an interface which was not yet defined - if ( !pInterface->getScope() ) - { - ErrorHandler::forwardLookupError(pInterface, scopedName); - } - - // OK, loop through inherited interfaces. Stop when you find it - for (auto const& elem : pInterface->getAllInheritedInterfaces()) - { - AstInterface const * resolved = elem.getResolved(); - AstDeclaration* pDecl = resolved->lookupByNameLocal(scopedName); - if ( pDecl ) - return pDecl; - pDecl = resolved->lookupInInherited(scopedName); - if ( pDecl ) - return pDecl; - } - // Not found - return nullptr; -} - -AstDeclaration* AstScope::lookupPrimitiveType(ExprType type) -{ - AstDeclaration* pDecl = nullptr; - AstScope* pScope = nullptr; - OString typeName; - pDecl = scopeAsDecl(this); - if ( !pDecl ) - return nullptr; - pScope = pDecl->getScope(); - if ( pScope) - return pScope->lookupPrimitiveType(type); - - switch (type) - { - case ET_none: - OSL_ASSERT(false); - break; - case ET_short: - typeName = OString("short"); - break; - case ET_ushort: - typeName = OString("unsigned short"); - break; - case ET_long: - typeName = OString("long"); - break; - case ET_ulong: - typeName = OString("unsigned long"); - break; - case ET_hyper: - typeName = OString("hyper"); - break; - case ET_uhyper: - typeName = OString("unsigned hyper"); - break; - case ET_float: - typeName = OString("float"); - break; - case ET_double: - typeName = OString("double"); - break; - case ET_char: - typeName = OString("char"); - break; - case ET_byte: - typeName = OString("byte"); - break; - case ET_boolean: - typeName = OString("boolean"); - break; - case ET_any: - typeName = OString("any"); - break; - case ET_void: - typeName = OString("void"); - break; - case ET_type: - typeName = OString("type"); - break; - case ET_string: - typeName = OString("string"); - break; - } - - pDecl = lookupByNameLocal(typeName); - - if ( pDecl && (pDecl->getNodeType() == NT_predefined) ) - { - AstBaseType* pBaseType = static_cast<AstBaseType*>(pDecl); - - if ( pBaseType->getExprType() == type ) - return pDecl; - } - - return nullptr; -} - -AstDeclaration* AstScope::lookupForAdd(AstDeclaration const * pDecl) const -{ - if ( !pDecl ) - return nullptr; - - AstDeclaration* pRetDecl = lookupByNameLocal(pDecl->getLocalName()); - - return pRetDecl; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/astservice.cxx b/idlc/source/astservice.cxx deleted file mode 100644 index c90ded6b4d7a..000000000000 --- a/idlc/source/astservice.cxx +++ /dev/null @@ -1,54 +0,0 @@ -/* -*- 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 <sal/config.h> - -#include <astmember.hxx> -#include <astoperation.hxx> -#include <astservice.hxx> -#include <asttype.hxx> - -bool AstService::checkLastConstructor() const { - AstOperation const * last = static_cast< AstOperation const * >(getLast()); - for (DeclList::const_iterator i(getIteratorBegin()); i != getIteratorEnd(); - ++i) - { - if (*i != last && (*i)->getNodeType() == NT_operation) { - AstOperation const * ctor = static_cast< AstOperation * >(*i); - if (ctor->isVariadic() && last->isVariadic()) { - return true; - } - sal_uInt32 n = ctor->nMembers(); - if (n == last->nMembers()) { - return std::equal(ctor->getIteratorBegin(), ctor->getIteratorEnd(), last->getIteratorBegin(), - [](AstDeclaration* a, AstDeclaration* b) { - sal_Int32 r1; - AstDeclaration const * t1 = deconstructAndResolveTypedefs(static_cast< AstMember * >(a)->getType(), &r1); - sal_Int32 r2; - AstDeclaration const * t2 = deconstructAndResolveTypedefs(static_cast< AstMember * >(b)->getType(), &r2); - return r1 == r2 && t1->getScopedName() == t2->getScopedName(); - }); - } - } - } - return false; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/aststack.cxx b/idlc/source/aststack.cxx deleted file mode 100644 index fcddc810dec5..000000000000 --- a/idlc/source/aststack.cxx +++ /dev/null @@ -1,79 +0,0 @@ -/* -*- 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 <rtl/alloc.h> -#include <aststack.hxx> -#include <astscope.hxx> - -AstStack::AstStack() {} - -AstStack::~AstStack() -{ - for (AstScope* p : m_stack) - delete p; -} - -AstScope* AstStack::top() -{ - if (m_stack.empty()) - return nullptr; - return m_stack.back(); -} - -AstScope* AstStack::bottom() -{ - if (m_stack.empty()) - return nullptr; - return m_stack.front(); -} - -AstScope* AstStack::nextToTop() -{ - if (m_stack.size() < 2) - return nullptr; - - return m_stack[m_stack.size() - 2]; -} - -AstScope* AstStack::topNonNull() -{ - for (sal_uInt32 i = m_stack.size(); i > 0; i--) - { - if (m_stack[i - 1]) - return m_stack[i - 1]; - } - return nullptr; -} - -AstStack* AstStack::push(AstScope* pScope) -{ - m_stack.push_back(pScope); - return this; -} - -void AstStack::pop() -{ - if (m_stack.empty()) - return; - m_stack.pop_back(); -} - -void AstStack::clear() { m_stack.clear(); } - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/aststruct.cxx b/idlc/source/aststruct.cxx deleted file mode 100644 index 00ac33021141..000000000000 --- a/idlc/source/aststruct.cxx +++ /dev/null @@ -1,167 +0,0 @@ -/* -*- 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 <aststruct.hxx> -#include <astmember.hxx> - -#include <registry/version.h> -#include <registry/writer.hxx> - -AstStruct::AstStruct( - const OString& name, std::vector< OString > const & typeParameters, - AstStruct const* pBaseType, AstScope* pScope) - : AstType(NT_struct, name, pScope) - , AstScope(NT_struct) - , m_pBaseType(pBaseType) -{ - for (auto const& elem : typeParameters) - { - m_typeParameters.emplace_back( - new AstType(NT_type_parameter, elem, nullptr)); - } -} - -AstStruct::AstStruct(const NodeType type, - const OString& name, - AstStruct const* pBaseType, - AstScope* pScope) - : AstType(type, name, pScope) - , AstScope(type) - , m_pBaseType(pBaseType) -{ -} - -AstStruct::~AstStruct() -{ -} - -AstDeclaration const * AstStruct::findTypeParameter(std::string_view name) - const -{ - for (auto const& elem : m_typeParameters) - { - if (elem->getLocalName() == name) { - return elem.get(); - } - } - return nullptr; -} - -bool AstStruct::isType() const { - return getNodeType() == NT_struct - ? getTypeParameterCount() == 0 : AstDeclaration::isType(); -} - -bool AstStruct::dump(RegistryKey& rKey) -{ - 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; - } - - if (m_typeParameters.size() > SAL_MAX_UINT16) { - fprintf( - stderr, - ("%s: polymorphic struct type template %s has too many type" - " parameters\n"), - idlc()->getOptions()->getProgramName().getStr(), - getScopedName().getStr()); - return false; - } - - sal_uInt16 nMember = getNodeCount(NT_member); - - RTTypeClass typeClass = RT_TYPE_STRUCT; - if ( getNodeType() == NT_exception ) - typeClass = RT_TYPE_EXCEPTION; - - typereg::Writer aBlob( - (m_typeParameters.empty() && !m_bPublished - ? TYPEREG_VERSION_0 : TYPEREG_VERSION_1), - getDocumentation(), "", typeClass, m_bPublished, - OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8), - m_pBaseType == nullptr ? 0 : 1, nMember, 0, - static_cast< sal_uInt16 >(m_typeParameters.size())); - if (m_pBaseType != nullptr) { - aBlob.setSuperTypeName( - 0, - OStringToOUString( - m_pBaseType->getRelativName(), RTL_TEXTENCODING_UTF8)); - } - - if ( nMember > 0 ) - { - DeclList::const_iterator iter = getIteratorBegin(); - DeclList::const_iterator end = getIteratorEnd(); - AstMember* pMember = nullptr; - sal_uInt16 index = 0; - while ( iter != end ) - { - AstDeclaration* pDecl = *iter; - if ( pDecl->getNodeType() == NT_member ) - { - pMember = static_cast<AstMember*>(pDecl); - RTFieldAccess flags = RTFieldAccess::READWRITE; - OString typeName; - if (pMember->getType()->getNodeType() == NT_type_parameter) { - flags |= RTFieldAccess::PARAMETERIZED_TYPE; - typeName = pMember->getType()->getLocalName(); - } else { - typeName = pMember->getType()->getRelativName(); - } - aBlob.setFieldData( - index++, pMember->getDocumentation(), "", flags, - OStringToOUString( - pMember->getLocalName(), RTL_TEXTENCODING_UTF8), - OStringToOUString(typeName, RTL_TEXTENCODING_UTF8), - RTConstValue()); - } - ++iter; - } - } - - sal_uInt16 index = 0; - for (auto const& elem : m_typeParameters) - { - aBlob.setReferenceData( - index++, "", RTReferenceType::TYPE_PARAMETER, RTFieldAccess::INVALID, - OStringToOUString( - elem->getLocalName(), RTL_TEXTENCODING_UTF8)); - } - - sal_uInt32 aBlobSize; - void const * pBlob = aBlob.getBlob(&aBlobSize); - - if (localKey.setValue("", 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; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/aststructinstance.cxx b/idlc/source/aststructinstance.cxx deleted file mode 100644 index 878745793fd2..000000000000 --- a/idlc/source/aststructinstance.cxx +++ /dev/null @@ -1,63 +0,0 @@ -/* -*- 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 <aststructinstance.hxx> - -#include <asttype.hxx> -#include <idlctypes.hxx> - -#include <rtl/strbuf.hxx> -#include <rtl/string.hxx> - -namespace { - -OString createName( - AstType const * typeTemplate, DeclList const * typeArguments) -{ - OStringBuffer buf(64); - buf.append(typeTemplate->getScopedName()); - if (typeArguments != nullptr) { - buf.append('<'); - for (DeclList::const_iterator i(typeArguments->begin()); - i != typeArguments->end(); ++i) - { - if (i != typeArguments->begin()) { - buf.append(','); - } - if (*i != nullptr) { - buf.append((*i)->getScopedName()); - } - } - buf.append('>'); - } - return buf.makeStringAndClear(); -} - -} - -AstStructInstance::AstStructInstance( - AstType const * typeTemplate, DeclList const * typeArguments, - AstScope * scope): - AstType( - NT_instantiated_struct, createName(typeTemplate, typeArguments), scope), - m_typeTemplate(typeTemplate), m_typeArguments(*typeArguments) -{} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/attributeexceptions.hxx b/idlc/source/attributeexceptions.hxx deleted file mode 100644 index 82ce1cf19eeb..000000000000 --- a/idlc/source/attributeexceptions.hxx +++ /dev/null @@ -1,38 +0,0 @@ -/* -*- 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 . - */ - -#ifndef INCLUDED_IDLC_SOURCE_ATTRIBUTEEXCEPTIONS_HXX -#define INCLUDED_IDLC_SOURCE_ATTRIBUTEEXCEPTIONS_HXX - -#include <rtl/ustring.hxx> - -struct AttributeExceptions -{ - struct Part - { - OUString const* documentation; - DeclList const* exceptions; - }; - Part get; - Part set; -}; - -#endif - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/errorhandler.cxx b/idlc/source/errorhandler.cxx deleted file mode 100644 index aa2de56bc969..000000000000 --- a/idlc/source/errorhandler.cxx +++ /dev/null @@ -1,583 +0,0 @@ -/* -*- 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 <errorhandler.hxx> -#include <astinterface.hxx> - -static const char* errorCodeToMessage(ErrorCode eCode) -{ - switch (eCode) - { - case ErrorCode::SyntaxError: - return ""; - case ErrorCode::RedefScope: - return "illegal redefinition in scope "; - case ErrorCode::CoercionFailure: - return "coercion failure "; - case ErrorCode::ScopeConflict: - return "definition scope is different than fwd declare scope, "; - case ErrorCode::IllegalAdd: - return "illegal add operation, "; - case ErrorCode::IllegalRaises: - return "non-exception type in raises(..) clause, "; - case ErrorCode::CantInherit: - return "cannot inherit "; - case ErrorCode::IdentNotFound: - return "error in lookup of symbol: "; - case ErrorCode::CannotInheritFromForward: - return ""; - case ErrorCode::ExpectedConstant: - return "constant expected: "; - case ErrorCode::Eval: - return "expression evaluation error: "; - case ErrorCode::ForwardDeclLookup: - return ""; - case ErrorCode::RecursiveType: - return "illegal recursive use of type: "; - case ErrorCode::NotAType: - return "specified symbol is not a type: "; - case ErrorCode::InterfaceMemberLookup: - return "error in lookup of symbol, expected interface is not defined and no forward exists: "; - case ErrorCode::ServiceMemberLookup: - return "error in lookup of symbol, expected service is not defined: "; - case ErrorCode::DefinedAttributeFlag: - return "flag is already set: "; - case ErrorCode::WrongAttributeKeyword: - return "keyword not allowed: "; - case ErrorCode::MissingAttributeKeyword: - return "missing keyword: "; - case ErrorCode::BadAttributeFlags: - return - "the 'attribute' flag is mandatory, and only the 'bound' and" - " 'readonly' optional flags are accepted: "; - case ErrorCode::ExpectedOptional: - return "only the 'optional' flag is accepted: "; - case ErrorCode::MixedInheritance: - return "interface inheritance declarations cannot appear in both an" - " interface's header and its body"; - case ErrorCode::DoubleInheritance: - return - "interface is (directly or indirectly) inherited more than once: "; - case ErrorCode::DoubleMember: - return - "member is (directly or indirectly) declared more than once: "; - case ErrorCode::ConstructorParameterNotIn: - return - "a service constructor parameter may not be an out or inout" - " parameter"; - case ErrorCode::ConstructorRestParameterNotFirst: - return - "no parameters may precede a rest parameter in a service" - " constructor"; - case ErrorCode::RestParameterNotLast: - return "no parameters may follow a rest parameter"; - case ErrorCode::RestParameterNotAny: - return "a rest parameter must be of type any"; - case ErrorCode::MethodHasRestParameter: - return "a rest parameter may not be used on an interface method"; - case ErrorCode::ReadOnlyAttributeSetExceptions: - return "a readonly attribute may not have a setter raises clause"; - case ErrorCode::UnsignedTypeArgument: - return "an unsigned type cannot be used as a type argument"; - case ErrorCode::WrongNumberOfTypeArguments: - return - "the number of given type arguments does not match the expected" - " number of type parameters"; - case ErrorCode::InstantiatedStructTypeTypedef: - return - "an instantiated polymorphic struct type cannot be used in a" - " typedef"; - case ErrorCode::IdenticalTypeParameters: - return "two type parameters have the same name"; - case ErrorCode::StructTypeTemplateWithBase: - return "a polymorphic struct type template may not have a base type"; - case ErrorCode::PublishedForward: - return - "a published forward declaration of an interface type cannot be" - " followed by an unpublished declaration of that type"; - case ErrorCode::PublishedusesUnpublished: - return - "an unpublished entity cannot be used in the declaration of a" - " published entity: "; - case ErrorCode::SimilarConstructors: - return "two constructors have identical lists of parameter types"; - } - return "unknown error"; -} - -static const char* warningCodeToMessage(WarningCode wCode) -{ - switch (wCode) - { - case WarningCode::WrongNamingConvention: - return "type or identifier doesn't fulfill the UNO naming convention: "; - } - return "unknown warning"; -} - -static const char* parseStateToMessage(ParseState state) -{ - switch (state) - { - case PS_NoState: - return "Statement can not be parsed"; - case PS_TypeDeclSeen: - return "Malformed type declaration"; - case PS_ConstantDeclSeen: - return "Malformed const declaration"; - case PS_ExceptionDeclSeen: - return "Malformed exception declaration"; - case PS_InterfaceDeclSeen: - return "Malformed interface declaration"; - case PS_ServiceDeclSeen: - return "Malformed service declaration"; - case PS_ModuleDeclSeen: - return "Malformed module declaration"; - case PS_AttributeDeclSeen: - return "Malformed attribute declaration"; - case PS_PropertyDeclSeen: - return "Malformed property declaration"; - case PS_OperationDeclSeen: - return "Malformed operation declaration"; - case PS_InterfaceInheritanceDeclSeen: - return "Malformed interface inheritance declaration"; - case PS_ConstantsDeclSeen: - return "Malformed constants declaration"; - case PS_ServiceSeen: - return "Missing service identifier following SERVICE keyword"; - case PS_ServiceIDSeen: - return "Missing '{' or illegal syntax following service identifier"; - case PS_ServiceSqSeen: - return "Illegal syntax following service '{' opener"; - case PS_ServiceBodySeen: - return "Illegal syntax following service '}' closer"; - case PS_ServiceMemberSeen: - return "Illegal syntax following service member declaration"; - case PS_ServiceIFHeadSeen: - return "Illegal syntax following header of an interface member"; - case PS_ServiceSHeadSeen: - return "Illegal syntax following header of a service member"; - case PS_ModuleSeen: - return "Missing module identifier following MODULE keyword"; - case PS_ModuleIDSeen: - return "Missing '{' or illegal syntax following module identifier"; - case PS_ModuleSqSeen: - return "Illegal syntax following module '{' opener"; - case PS_ModuleQsSeen: - return "Illegal syntax following module '}' closer"; - case PS_ModuleBodySeen: - return "Illegal syntax following module export(s)"; - case PS_ConstantsSeen: - return "Missing constants identifier following CONSTANTS keyword"; - case PS_ConstantsIDSeen: - return "Missing '{' or illegal syntax following constants identifier"; - case PS_ConstantsSqSeen: - return "Illegal syntax following module '{' opener"; - case PS_ConstantsQsSeen: - return "Illegal syntax following module '}' closer"; - case PS_ConstantsBodySeen: - return "Illegal syntax following constants export(s)"; - case PS_InterfaceSeen: - return "Missing interface identifier following INTERFACE keyword"; - case PS_InterfaceIDSeen: - return "Illegal syntax following interface identifier"; - case PS_InterfaceHeadSeen: - return "Illegal syntax following interface head"; - case PS_InheritSpecSeen: - return "Missing '{' or illegal syntax following inheritance spec"; - case PS_ForwardDeclSeen: - return "Missing ';' following forward interface declaration"; - case PS_InterfaceSqSeen: - return "Illegal syntax following interface '{' opener"; - case PS_InterfaceQsSeen: - return "Illegal syntax following interface '}' closer"; - case PS_InterfaceBodySeen: - return "Illegal syntax following interface export(s)"; - case PS_InheritColonSeen: - return "Illegal syntax following ':' starting inheritance list"; - case PS_SNListCommaSeen: - return "Found illegal scoped name in scoped name list"; - case PS_ScopedNameSeen: - return "Missing ',' following scoped name in scoped name list"; - case PS_SN_IDSeen: - return "Illegal component in scoped name"; - case PS_ScopeDelimSeen: - return "Illegal component in scoped name following '::'"; - case PS_ConstSeen: - return "Missing type or illegal syntax following CONST keyword"; - case PS_ConstTypeSeen: - return "Missing identifier or illegal syntax following const type"; - case PS_ConstIDSeen: - return "Missing '=' or illegal syntax after const identifier"; - case PS_ConstAssignSeen: - return "Missing value expr or illegal syntax following '='"; - case PS_ConstExprSeen: - return "Missing ';' or illegal syntax following value expr in const"; - case PS_TypedefSeen: - return "Missing type or illegal syntax following TYPEDEF keyword"; - case PS_TypeSpecSeen: - return "Missing declarators or illegal syntax following type spec"; - case PS_DeclaratorsSeen: - return "Illegal syntax following declarators in TYPEDEF declaration"; - case PS_StructSeen: - return "Missing struct identifier following STRUCT keyword"; - case PS_StructHeaderSeen: - return "Missing '{' or illegal syntax following struct inheritance spec"; - case PS_StructIDSeen: - return "Missing '{' or illegal syntax following struct identifier"; - case PS_StructSqSeen: - return "Illegal syntax following struct '{' opener"; - case PS_StructQsSeen: - return "Illegal syntax following struct '}' closer"; - case PS_StructBodySeen: - return "Illegal syntax following struct member(s)"; - case PS_MemberTypeSeen: - return "Illegal syntax or missing identifier following member type"; - case PS_MemberDeclsSeen: - return "Illegal syntax following member declarator(s)"; - case PS_MemberDeclsCompleted: - return "Missing ',' between member decls of same type(?)"; - case PS_EnumSeen: - return "Illegal syntax or missing identifier following ENUM keyword"; - case PS_EnumIDSeen: - return "Illegal syntax or missing '{' following enum identifier"; - case PS_EnumSqSeen: - return "Illegal syntax following enum '{' opener"; - case PS_EnumQsSeen: - return "Illegal syntax following enum '}' closer"; - case PS_EnumBodySeen: - return "Illegal syntax following enum enumerator(s)"; - case PS_EnumCommaSeen: - return "Illegal syntax or missing identifier following ',' in enum"; - case PS_SequenceSeen: - return "Illegal syntax or missing '<' following SEQUENCE keyword"; - case PS_SequenceSqSeen: - return "Illegal syntax or missing type following '<' in sequence"; - case PS_SequenceQsSeen: - return "Illegal syntax following '>' in sequence"; - case PS_SequenceTypeSeen: - return "Illegal syntax following sequence type declaration"; - case PS_FlagHeaderSeen: - return "Illegal syntax after flags"; - case PS_AttrSeen: - return "Illegal syntax after ATTRIBUTE keyword"; - case PS_AttrTypeSeen: - return "Illegal syntax after type in attribute declaration"; - case PS_AttrCompleted: - return "Illegal syntax after attribute declaration"; - case PS_ReadOnlySeen: - return "Illegal syntax after READONLY keyword"; - case PS_OptionalSeen: - return "Illegal syntax after OPTIONAL keyword"; - case PS_MayBeVoidSeen: - return "Illegal syntax after MAYBEVOID keyword"; - case PS_BoundSeen: - return "Illegal syntax after BOUND keyword"; - case PS_ConstrainedSeen: - return "Illegal syntax after CONSTRAINED keyword"; - case PS_TransientSeen: - return "Illegal syntax after TRANSIENT keyword"; - case PS_MayBeAmbiguousSeen: - return "Illegal syntax after MAYBEAMBIGUOUS keyword"; - case PS_MayBeDefaultSeen: - return "Illegal syntax after MAYBEDEFAULT keyword"; - case PS_RemoveableSeen: - return "Illegal syntax after REMOVABLE keyword"; - case PS_PropertySeen: - return "Illegal syntax after PROPERTY keyword"; - case PS_PropertyTypeSeen: - return "Illegal syntax after type in property declaration"; - case PS_PropertyCompleted: - return "Illegal syntax after property declaration"; - case PS_ExceptSeen: - return "Illegal syntax or missing identifier after EXCEPTION keyword"; - case PS_ExceptHeaderSeen: - return "Missing '{' or illegal syntax following exception inheritance spec"; - case PS_ExceptIDSeen: - return "Illegal syntax or missing '{' after exception identifier"; - case PS_ExceptSqSeen: - return "Illegal syntax after exception '{' opener"; - case PS_ExceptQsSeen: - return "Illegal syntax after exception '}' closer"; - case PS_ExceptBodySeen: - return "Illegal syntax after exception member(s)"; - case PS_OpTypeSeen: - return "Illegal syntax or missing identifier after operation type"; - case PS_OpIDSeen: - return "Illegal syntax or missing '(' after operation identifier"; - case PS_OpParsCompleted: - return "Illegal syntax after operation parameter list"; - case PS_OpSqSeen: - return "Illegal syntax after operation parameter list '(' opener"; - case PS_OpQsSeen: - return "Illegal syntax after operation parameter list ')' closer"; - case PS_OpParCommaSeen: - return "Illegal syntax or missing direction in parameter declaration"; - case PS_OpParDirSeen: - return "Illegal syntax or missing type in parameter declaration"; - case PS_OpParTypeSeen: - return "Illegal syntax or missing declarator in parameter declaration"; - case PS_OpParDeclSeen: - return "Illegal syntax following parameter declarator"; - case PS_RaiseSeen: - return "Illegal syntax or missing '(' after RAISES keyword"; - case PS_RaiseSqSeen: - return "Illegal syntax after RAISES '(' opener"; - case PS_RaiseQsSeen: - return "Illegal syntax after RAISES ')' closer"; - case PS_DeclsCommaSeen: - return "Illegal syntax after ',' in declarators list"; - case PS_DeclsDeclSeen: - return "Illegal syntax after declarator in declarators list"; - default: - return "no wider described syntax error"; - } -} - -static OString flagToString(sal_uInt32 flag) -{ - OString flagStr; - if ( (flag & AF_READONLY) == AF_READONLY ) - flagStr += "'readonly'"; - if ( (flag & AF_OPTIONAL) == AF_OPTIONAL ) - flagStr += "'optional'"; - if ( (flag & AF_MAYBEVOID) == AF_MAYBEVOID ) - flagStr += "'maybevoid'"; - if ( (flag & AF_BOUND) == AF_BOUND ) - flagStr += "'bound'"; - if ( (flag & AF_CONSTRAINED) == AF_CONSTRAINED ) - flagStr += "'constrained'"; - if ( (flag & AF_TRANSIENT) == AF_TRANSIENT ) - flagStr += "'transient'"; - if ( (flag & AF_MAYBEAMBIGUOUS) == AF_MAYBEAMBIGUOUS ) - flagStr += "'maybeambiguous'"; - if ( (flag & AF_MAYBEDEFAULT) == AF_MAYBEDEFAULT ) - flagStr += "'maybedefault'"; - if ( (flag & AF_REMOVABLE) == AF_REMOVABLE ) - flagStr += "'removable'"; - if ( (flag & AF_ATTRIBUTE) == AF_ATTRIBUTE ) - flagStr += "'attribute'"; - if ( (flag & AF_PROPERTY) == AF_PROPERTY ) - flagStr += "'property'"; - if ( flagStr.isEmpty() ) - flagStr += "'unknown'"; - - return flagStr; -} - -static void errorHeader(ErrorCode eCode, sal_Int32 lineNumber, sal_uInt32 start, sal_uInt32 end) -{ - OString file; - if ( idlc()->getFileName() == idlc()->getRealFileName() ) - file = idlc()->getMainFileName(); - else - file = idlc()->getFileName(); - - fprintf(stderr, "%s:%" SAL_PRIdINT64 " [%" SAL_PRIdINT64 ":%" SAL_PRIdINT64 "] : %s", file.getStr(), - sal_Int64(lineNumber), - sal_Int64(start), - sal_Int64(end), - errorCodeToMessage(eCode)); -} - -static void errorHeader(ErrorCode eCode, sal_uInt32 lineNumber) -{ - errorHeader(eCode, lineNumber, - idlc()->getOffsetStart(), idlc()->getOffsetEnd()); -} - -static void errorHeader(ErrorCode eCode) -{ - errorHeader(eCode, idlc()->getLineNumber(), - idlc()->getOffsetStart(), idlc()->getOffsetEnd()); -} - -static void warningHeader(WarningCode wCode) -{ - OString file; - if ( idlc()->getFileName() == idlc()->getRealFileName() ) - file = idlc()->getMainFileName(); - else - file = idlc()->getFileName(); - - fprintf(stderr, "%s(%" SAL_PRIdINT64 ") : WARNING, %s", file.getStr(), - sal_Int64(idlc()->getLineNumber()), - warningCodeToMessage(wCode)); -} - -void ErrorHandler::error0(ErrorCode e) -{ - errorHeader(e); - fprintf(stderr, "\n"); - idlc()->incErrorCount(); -} - -void ErrorHandler::error1(ErrorCode e, AstDeclaration const * d) -{ - errorHeader(e); - fprintf(stderr, "'%s'\n", d->getScopedName().getStr()); - idlc()->incErrorCount(); -} - -void ErrorHandler::error2( - ErrorCode e, AstDeclaration const * d1, AstDeclaration const * d2) -{ - errorHeader(e); - fprintf(stderr, "'%s', '%s'\n", d1->getScopedName().getStr(), - d2->getScopedName().getStr()); - idlc()->incErrorCount(); -} - -void ErrorHandler::error3(ErrorCode e, AstDeclaration const * d1, AstDeclaration const * d2, AstDeclaration const * d3) -{ - errorHeader(e); - fprintf(stderr, "'%s', '%s', '%s'\n", d1->getScopedName().getStr(), - d2->getScopedName().getStr(), d3->getScopedName().getStr()); - idlc()->incErrorCount(); -} - -void ErrorHandler::warning0(WarningCode w, const char* warningmsg) -{ - if ( idlc()->getOptions()->isValid("-w") || idlc()->getOptions()->isValid("-we") ) { - warningHeader(w); - fprintf(stderr, "%s\n", warningmsg); - } - - if ( idlc()->getOptions()->isValid("-we") ) - idlc()->incErrorCount(); - else - idlc()->incWarningCount(); -} - -void ErrorHandler::syntaxError(ParseState ps, sal_Int32 lineNumber, const char* errmsg) -{ - errorHeader(ErrorCode::SyntaxError, lineNumber); - fprintf(stderr, "%s: %s\n", parseStateToMessage(ps), errmsg); - idlc()->incErrorCount(); -} - -void ErrorHandler::coercionError(AstExpression *pExpr, ExprType et) -{ - errorHeader(ErrorCode::CoercionFailure); - fprintf(stderr, "'%s' to '%s'\n", pExpr->toString().getStr(), - exprTypeToString(et)); - idlc()->incErrorCount(); -} - -void ErrorHandler::lookupError(const OString& n) -{ - errorHeader(ErrorCode::IdentNotFound); - fprintf(stderr, "'%s'\n", n.getStr()); - idlc()->incErrorCount(); -} - -void ErrorHandler::lookupError(ErrorCode e, const OString& n, AstDeclaration const * pScope) -{ - errorHeader(e); - fprintf(stderr, "'%s' in '%s'\n", n.getStr(), pScope->getFullName().getStr()); - idlc()->incErrorCount(); -} - -void ErrorHandler::flagError(ErrorCode e, sal_uInt32 flag) -{ - errorHeader(e); - fprintf(stderr, "'%s'\n", flagToString(flag).getStr()); - idlc()->incErrorCount(); -} - -void ErrorHandler::noTypeError(AstDeclaration const * pDecl) -{ - errorHeader(ErrorCode::NotAType); - fprintf(stderr, "'%s'\n", pDecl->getScopedName().getStr()); - idlc()->incErrorCount(); -} - -namespace { - -char const * nodeTypeName(NodeType nodeType) { - switch (nodeType) { - case NT_interface: - return "interface"; - - case NT_exception: - return "exception"; - - case NT_struct: - return "struct"; - - default: - return ""; - } -} - -} - -void ErrorHandler::inheritanceError(NodeType nodeType, const OString* name, AstDeclaration const * pDecl) -{ - if ( nodeType == NT_interface && - (pDecl->getNodeType() == NT_interface) && - !(static_cast<AstInterface const *>(pDecl)->isDefined()) ) - { - errorHeader(ErrorCode::CannotInheritFromForward); - fprintf(stderr, "interface '%s' cannot inherit from forward declared interface '%s'\n", - name->getStr(), pDecl->getScopedName().getStr()); - } else - { - errorHeader(ErrorCode::CantInherit); - fprintf(stderr, "%s '%s' from '%s'\n", - nodeTypeName(nodeType), name->getStr(), - pDecl->getScopedName().getStr()); - } - idlc()->incErrorCount(); -} - -void ErrorHandler::forwardLookupError(const AstDeclaration* pForward, - const OString& name) -{ - errorHeader(ErrorCode::ForwardDeclLookup); - fprintf(stderr, "trying to look up '%s' in undefined forward declared interface '%s'\n", - pForward->getScopedName().getStr(), name.getStr()); - idlc()->incErrorCount(); -} - -void ErrorHandler::constantExpected(AstDeclaration const * pDecl, - const OString& name) -{ - errorHeader(ErrorCode::ExpectedConstant); - fprintf(stderr, "'%s' is bound to '%s'\n", name.getStr(), pDecl->getScopedName().getStr()); - idlc()->incErrorCount(); -} - -void ErrorHandler::evalError(AstExpression* pExpr) -{ - errorHeader(ErrorCode::Eval); - fprintf(stderr, "'%s'\n", pExpr->toString().getStr()); - idlc()->incErrorCount(); -} - -bool ErrorHandler::checkPublished(AstDeclaration const * decl, bool bOptional) { - if (idlc()->isPublished() && !decl->isPublished() && !bOptional) { - error1(ErrorCode::PublishedusesUnpublished, decl); - return false; - } else { - return true; - } -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/fehelper.cxx b/idlc/source/fehelper.cxx deleted file mode 100644 index 607f5a145677..000000000000 --- a/idlc/source/fehelper.cxx +++ /dev/null @@ -1,102 +0,0 @@ -/* -*- 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 <fehelper.hxx> -#include <errorhandler.hxx> -#include <idlc.hxx> - -FeDeclarator::FeDeclarator(const OString& name) - : m_name(name) -{ -} - -FeDeclarator::~FeDeclarator() -{ -} - -bool FeDeclarator::checkType(AstDeclaration const * type) const -{ - OString tmp(m_name); - sal_Int32 count = m_name.lastIndexOf( ':' ); - if( count != -1 ) - tmp = m_name.copy( count+1 ); - - return tmp != type->getLocalName(); -} - -AstType const * FeDeclarator::compose(AstDeclaration const * pDecl) -{ - if ( pDecl == nullptr ) - { - return nullptr; - } - if ( !pDecl->isType() ) - { - ErrorHandler::noTypeError(pDecl); - return nullptr; - } - return static_cast<const AstType*>(pDecl); -} - -FeInheritanceHeader::FeInheritanceHeader( - NodeType nodeType, OString* pName, OString const * pInherits, - std::vector< OString > const * typeParameters) - : m_nodeType(nodeType) - , m_pName(pName) - , m_pInherits(nullptr) -{ - if (typeParameters != nullptr) { - m_typeParameters = *typeParameters; - } - initializeInherits(pInherits); -} - -void FeInheritanceHeader::initializeInherits(OString const * pInherits) -{ - if ( !pInherits ) - return; - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstDeclaration* pDecl = pScope->lookupByName(*pInherits); - if ( pDecl ) - { - AstDeclaration const * resolved = resolveTypedefs(pDecl); - if ( resolved->getNodeType() == getNodeType() - && (resolved->getNodeType() != NT_interface - || static_cast< AstInterface const * >( - resolved)->isDefined()) ) - { - if ( ErrorHandler::checkPublished( pDecl ) ) - { - m_pInherits = pDecl; - } - } - else - { - ErrorHandler::inheritanceError( - getNodeType(), getName(), pDecl); - } - } - else - { - ErrorHandler::lookupError(*pInherits); - } -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/idlc.cxx b/idlc/source/idlc.cxx deleted file mode 100644 index ca47b34fe0d5..000000000000 --- a/idlc/source/idlc.cxx +++ /dev/null @@ -1,400 +0,0 @@ -/* -*- 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 <idlc.hxx> -#include <errorhandler.hxx> -#include <astscope.hxx> -#include <astmodule.hxx> -#include <astservice.hxx> -#include <astconstants.hxx> -#include <astexception.hxx> -#include <astenum.hxx> -#include <astinterface.hxx> -#include <astoperation.hxx> -#include <astbasetype.hxx> -#include <astdeclaration.hxx> -#include <astparameter.hxx> -#include <astsequence.hxx> -#include <asttype.hxx> -#include <asttypedef.hxx> - -#include <osl/diagnose.h> -#include <osl/file.hxx> -#include <osl/thread.h> - -#include <algorithm> - -AstDeclaration* scopeAsDecl(AstScope* pScope) -{ - if (pScope == nullptr) return nullptr; - - switch( pScope->getScopeNodeType() ) - { - case NT_service: - case NT_singleton: - return static_cast<AstService*>(pScope); - case NT_module: - case NT_root: - return static_cast<AstModule*>(pScope); - case NT_constants: - return static_cast<AstConstants*>(pScope); - case NT_interface: - return static_cast<AstInterface*>(pScope); - case NT_operation: - return static_cast<AstOperation*>(pScope); - case NT_exception: - return static_cast<AstException*>(pScope); - case NT_struct: - return static_cast<AstStruct*>(pScope); - case NT_enum: - return static_cast<AstEnum*>(pScope); - default: - return nullptr; - } -} - -AstScope* declAsScope(AstDeclaration* pDecl) -{ - if (pDecl == nullptr) return nullptr; - - switch(pDecl->getNodeType()) - { - case NT_interface: - return static_cast<AstInterface*>(pDecl); - case NT_service: - case NT_singleton: - return static_cast<AstService*>(pDecl); - case NT_module: - case NT_root: - return static_cast<AstModule*>(pDecl); - case NT_constants: - return static_cast<AstConstants*>(pDecl); - case NT_exception: - return static_cast<AstException*>(pDecl); - case NT_struct: - return static_cast<AstStruct*>(pDecl); - case NT_enum: - return static_cast<AstEnum*>(pDecl); - case NT_operation: - return static_cast<AstOperation*>(pDecl); - default: - return nullptr; - } -} - -static void predefineXInterface(AstModule* pRoot) -{ - // define the modules com::sun::star::uno - AstModule* pParentScope = pRoot; - AstModule* pModule = new AstModule("com", pParentScope); - pModule->setPredefined(true); - pParentScope->addDeclaration(pModule); - pParentScope = pModule; - pModule = new AstModule("sun", pParentScope); - pModule->setPredefined(true); - pParentScope->addDeclaration(pModule); - pParentScope = pModule; - pModule = new AstModule("star", pParentScope); - pModule->setPredefined(true); - pParentScope->addDeclaration(pModule); - pParentScope = pModule; - pModule = new AstModule("uno", pParentScope); - pModule->setPredefined(true); - pParentScope->addDeclaration(pModule); - pParentScope = pModule; - - // define XInterface - AstInterface* pInterface = new AstInterface("XInterface", nullptr, pParentScope); - pInterface->setDefined(); - pInterface->setPredefined(true); - pInterface->setPublished(); - pParentScope->addDeclaration(pInterface); - - // define XInterface::queryInterface - AstOperation* pOp = new AstOperation(static_cast<AstType*>(pRoot->lookupPrimitiveType(ET_any)), - "queryInterface", pInterface); - AstParameter* pParam = new AstParameter(DIR_IN, false, - static_cast<AstType*>(pRoot->lookupPrimitiveType(ET_type)), - "aType", pOp); - pOp->addDeclaration(pParam); - pInterface->addMember(pOp); - - // define XInterface::acquire - pOp = new AstOperation(static_cast<AstType*>(pRoot->lookupPrimitiveType(ET_void)), - "acquire", pInterface); - pInterface->addMember(pOp); - - // define XInterface::release - pOp = new AstOperation(static_cast<AstType*>(pRoot->lookupPrimitiveType(ET_void)), - "release", pInterface); - pInterface->addMember(pOp); -} - -static void initializePredefinedTypes(AstModule* pRoot) -{ - if ( !pRoot ) - return; - - AstBaseType* pPredefined = new AstBaseType(ET_long, "long", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_ulong, "unsigned long", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_hyper, "hyper", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_uhyper, "unsigned hyper", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_short, "short", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_ushort, "unsigned short", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_float, "float", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_double, "double", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_char, "char", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_byte, "byte", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_any, "any", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_string, "string", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_type, "type", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_boolean, "boolean", pRoot); - pRoot->addDeclaration(pPredefined); - - pPredefined = new AstBaseType(ET_void, "void", pRoot); - pRoot->addDeclaration(pPredefined); -} - -Idlc::Idlc(Options* pOptions) - : m_pOptions(pOptions) - , m_bIsDocValid(false) - , m_bIsInMainfile(true) - , m_published(false) - , m_errorCount(0) - , m_warningCount(0) - , m_lineNumber(0) - , m_offsetStart(0) - , m_offsetEnd(0) - , m_parseState(PS_NoState) -{ - m_pScopes.reset( new AstStack() ); - // init root object after construction - m_pRoot = nullptr; - m_bGenerateDoc = m_pOptions->isValid("-C"); -} - -Idlc::~Idlc() -{ -} - -void Idlc::init() -{ - m_pRoot.reset(new AstModule(NT_root, OString(), nullptr)); - - // push the root node on the stack - m_pScopes->push(m_pRoot.get()); - initializePredefinedTypes(m_pRoot.get()); - predefineXInterface(m_pRoot.get()); -} - -void Idlc::reset() -{ - m_bIsDocValid = false; - m_bIsInMainfile = true; - m_published = false; - - m_errorCount = 0; - m_warningCount = 0; - m_lineNumber = 0; - m_parseState = PS_NoState; - - m_fileName.clear(); - m_mainFileName.clear(); - m_realFileName.clear(); - m_documentation.clear(); - - m_pScopes->clear(); - m_pRoot.reset( new AstModule(NT_root, OString(), nullptr) ); - - // push the root node on the stack - m_pScopes->push(m_pRoot.get()); - initializePredefinedTypes(m_pRoot.get()); - - m_includes.clear(); -} - -OUString Idlc::processDocumentation() -{ - OUString doc; - if (m_bIsDocValid) { - OString raw(getDocumentation()); - if (m_bGenerateDoc) { - doc = OStringToOUString(raw, RTL_TEXTENCODING_UTF8); - } else if (raw.indexOf("@deprecated") != -1) { - //TODO: this check is somewhat crude - doc = "@deprecated"; - } - } - return doc; -} - -static void lcl_writeString(::osl::File & rFile, ::osl::FileBase::RC & o_rRC, - OString const& rString) -{ - if (::osl::FileBase::E_None == o_rRC) { - sal_uInt64 nWritten(0); - o_rRC = rFile.write(rString.getStr(), rString.getLength(), nWritten); - if (static_cast<sal_uInt64>(rString.getLength()) != nWritten) { - o_rRC = ::osl::FileBase::E_INVAL; //? - } - } -} - -namespace { - -struct WriteDep -{ - ::osl::File& m_rFile; - ::osl::FileBase::RC & m_rRC; - explicit WriteDep(::osl::File & rFile, ::osl::FileBase::RC & rRC) - : m_rFile(rFile), m_rRC(rRC) { } - void operator() (OString const& rEntry) - { - lcl_writeString(m_rFile, m_rRC, " \\\n "); - lcl_writeString(m_rFile, m_rRC, rEntry); - } -}; - -// write a dummy target for one included file, so the incremental build does -// not break with "No rule to make target" if the included file is removed -struct WriteDummy -{ - ::osl::File& m_rFile; - ::osl::FileBase::RC & m_rRC; - explicit WriteDummy(::osl::File & rFile, ::osl::FileBase::RC & rRC) - : m_rFile(rFile), m_rRC(rRC) { } - void operator() (OString const& rEntry) - { - lcl_writeString(m_rFile, m_rRC, rEntry); - lcl_writeString(m_rFile, m_rRC, ":\n\n"); - } -}; - -} - -bool -Idlc::dumpDeps(std::string_view rDepFile, OString const& rTarget) -{ - ::osl::File depFile( - OStringToOUString(rDepFile, osl_getThreadTextEncoding())); - ::osl::FileBase::RC rc = - depFile.open(osl_File_OpenFlag_Write | osl_File_OpenFlag_Create); - if (::osl::FileBase::E_None != rc) { - return false; - } - lcl_writeString(depFile, rc, rTarget); - if (::osl::FileBase::E_None != rc) { - return false; - } - lcl_writeString(depFile, rc, " :"); - if (::osl::FileBase::E_None != rc) { - return false; - } - m_includes.erase(getRealFileName()); // eeek, that is a temp file... - ::std::for_each(m_includes.begin(), m_includes.end(), - WriteDep(depFile, rc)); - lcl_writeString(depFile, rc, "\n\n"); - ::std::for_each(m_includes.begin(), m_includes.end(), - WriteDummy(depFile, rc)); - if (::osl::FileBase::E_None != rc) { - return false; - } - rc = depFile.close(); - return ::osl::FileBase::E_None == rc; -} - -static Idlc* pStaticIdlc = nullptr; - -Idlc* idlc() -{ - return pStaticIdlc; -} - -Idlc* setIdlc(Options* pOptions) -{ - delete pStaticIdlc; - pStaticIdlc = new Idlc(pOptions); - pStaticIdlc->init(); - return pStaticIdlc; -} - -AstDeclaration const * resolveTypedefs(AstDeclaration const * type) { - if (type != nullptr) { - while (type->getNodeType() == NT_typedef) { - type = static_cast< AstTypeDef const * >(type)->getBaseType(); - } - } - return type; -} - -AstDeclaration const * deconstructAndResolveTypedefs( - AstDeclaration const * type, sal_Int32 * rank) -{ - *rank = 0; - for (;;) { - if (type == nullptr) { - return nullptr; - } - switch (type->getNodeType()) { - case NT_typedef: - type = static_cast< AstTypeDef const * >(type)->getBaseType(); - break; - case NT_sequence: - ++(*rank); - type = static_cast< AstSequence const * >(type)->getMemberType(); - break; - default: - return type; - } - } -} - -AstInterface const * resolveInterfaceTypedefs(AstType const * type) { - AstDeclaration const * decl = resolveTypedefs(type); - OSL_ASSERT(decl->getNodeType() == NT_interface); - return static_cast< AstInterface const * >(decl); -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/idlccompile.cxx b/idlc/source/idlccompile.cxx deleted file mode 100644 index 5aec2091234f..000000000000 --- a/idlc/source/idlccompile.cxx +++ /dev/null @@ -1,394 +0,0 @@ -/* -*- 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 <idlc.hxx> -#include <rtl/alloc.h> -#include <rtl/ustring.hxx> -#include <rtl/strbuf.hxx> -#include <o3tl/safeint.hxx> -#include <o3tl/string_view.hxx> -#include <osl/process.h> -#include <osl/diagnose.h> -#include <osl/thread.h> -#include <osl/file.hxx> - -#if defined(_WIN32) -#include <io.h> -#endif - -#ifdef SAL_UNX -#include <errno.h> -#include <unistd.h> -#include <sys/wait.h> -#endif - -#include <string.h> - -using namespace ::osl; - -extern int yyparse(); -extern FILE* yyin; -extern int yydebug; - -static char tmpFilePattern[512]; - -bool isFileUrl(std::string_view fileName) -{ - return o3tl::starts_with(fileName, "file://"); -} - -OString convertToAbsoluteSystemPath(const OString& fileName) -{ - OUString uSysFileName; - OUString uFileName(fileName.getStr(), fileName.getLength(), osl_getThreadTextEncoding()); - if ( isFileUrl(fileName) ) - { - if (FileBase::getSystemPathFromFileURL(uFileName, uSysFileName) - != FileBase::E_None) - { - OSL_ASSERT(false); - } - } else - { - OUString uWorkingDir, uUrlFileName, uTmp; - if (osl_getProcessWorkingDir(&uWorkingDir.pData) != osl_Process_E_None) - { - OSL_ASSERT(false); - } - if (FileBase::getFileURLFromSystemPath(uFileName, uTmp) - != FileBase::E_None) - { - OSL_ASSERT(false); - } - if (FileBase::getAbsoluteFileURL(uWorkingDir, uTmp, uUrlFileName) - != FileBase::E_None) - { - OSL_ASSERT(false); - } - if (FileBase::getSystemPathFromFileURL(uUrlFileName, uSysFileName) - != FileBase::E_None) - { - OSL_ASSERT(false); - } - } - - return OUStringToOString(uSysFileName, osl_getThreadTextEncoding()); -} - -OString convertToFileUrl(const OString& fileName) -{ - if ( !isFileUrl(fileName) ) - { - OString tmp = convertToAbsoluteSystemPath(fileName); - OUString uFileName(tmp.getStr(), tmp.getLength(), osl_getThreadTextEncoding()); - OUString uUrlFileName; - if (FileBase::getFileURLFromSystemPath(uFileName, uUrlFileName) - != FileBase::E_None) - { - OSL_ASSERT(false); - } - return OUStringToOString(uUrlFileName, osl_getThreadTextEncoding()); - } - - return fileName; -} - -static OString makeTempName(const OString& prefix) -{ - OUString uTmpPath; - OString tmpPath; - - if ( osl_getEnvironment(OUString("TMP").pData, &uTmpPath.pData) != osl_Process_E_None ) - { - if ( osl_getEnvironment(OUString("TEMP").pData, &uTmpPath.pData) != osl_Process_E_None ) - { -#if defined(_WIN32) - tmpPath = OString("c:\\temp"); -#else - tmpPath = OString("/tmp"); -#endif - } - } - - if ( !uTmpPath.isEmpty() ) - tmpPath = OUStringToOString(uTmpPath, RTL_TEXTENCODING_UTF8); - -#if defined(_WIN32) || defined(SAL_UNX) - - OSL_ASSERT( sizeof(tmpFilePattern) > - o3tl::make_unsigned( tmpPath.getLength() - + RTL_CONSTASCII_LENGTH( PATH_SEPARATOR ) - + prefix.getLength() - + RTL_CONSTASCII_LENGTH( "XXXXXX") ) ); - - tmpFilePattern[ sizeof(tmpFilePattern)-1 ] = '\0'; - strncpy(tmpFilePattern, tmpPath.getStr(), sizeof(tmpFilePattern)-1); - strncat(tmpFilePattern, PATH_SEPARATOR, sizeof(tmpFilePattern)-1-strlen(tmpFilePattern)); - strncat(tmpFilePattern, prefix.getStr(), sizeof(tmpFilePattern)-1-strlen(tmpFilePattern)); - strncat(tmpFilePattern, "XXXXXX", sizeof(tmpFilePattern)-1-strlen(tmpFilePattern)); - -#ifdef SAL_UNX - // coverity[secure_temp] - https://communities.coverity.com/thread/3179 - int nDescriptor = mkstemp(tmpFilePattern); - if( -1 == nDescriptor ) - { - fprintf(stderr, "idlc: mkstemp(\"%s\") failed: %s\n", tmpFilePattern, strerror(errno)); - exit( 1 ); - } - // the file shall later be reopened by stdio functions - close( nDescriptor ); -#else - (void) mktemp(tmpFilePattern); -#endif -#endif - - return tmpFilePattern; -} - -bool copyFile(const OString* source, const OString& target) -{ - bool bRet = true; - - FILE* pSource = source == nullptr ? stdin : fopen(source->getStr(), "rb"); - if ( !pSource ) - return false; - - FILE* pTarget = fopen(target.getStr(), "wb"); - if ( !pTarget ) - { - fclose(pSource); - return false; - } - - size_t const totalSize = 512; - char pBuffer[totalSize + 1]; - - while ( !feof(pSource) ) - { - size_t readSize = fread(pBuffer, 1, totalSize, pSource); - if ( readSize > 0 && !ferror(pSource) ) - { - if ( (fwrite(pBuffer, 1, readSize, pTarget)) != readSize || ferror(pTarget) ) - { - if (source != nullptr) { - fclose(pSource); - } - fclose(pTarget); - return false; - } - } - } - - if (source != nullptr) { - fclose(pSource); - } - if ( fclose(pTarget) ) - bRet = false; - - return bRet; -} - -sal_Int32 compileFile(const OString * pathname) -{ - // preprocess input file - OString tmpFile = makeTempName("idli_"); - OString preprocFile = makeTempName("idlf_"); - - OString fileName; - if (pathname == nullptr) { - fileName = "stdin"; - } else { - fileName = *pathname; - } - - if ( !copyFile(pathname, tmpFile) ) - { - fprintf(stderr, "%s: could not copy %s%s to %s\n", - idlc()->getOptions()->getProgramName().getStr(), - pathname == nullptr ? "" : "file ", fileName.getStr(), - tmpFile.getStr()); - exit(99); - } - - idlc()->setFileName(fileName); - idlc()->setMainFileName(fileName); - idlc()->setRealFileName(tmpFile); - - ::std::vector< OUString> lCppArgs; - lCppArgs.emplace_back("-DIDL"); - lCppArgs.emplace_back("-C"); -#ifdef SYSTEM_UCPP_IS_GCC - // -nostdinc Do not search the standard system directories for header files - lCppArgs.emplace_back("-nostdinc"); - // with gcc cpp, even when not explicitly including anything, /usr/include/stdc-predef.h - // gets inserted without -nostdinc -#else - // -zI Do not use the standard (compile-time) include path. - lCppArgs.emplace_back("-zI"); -#endif - - Options* pOptions = idlc()->getOptions(); - - OString filePath; - sal_Int32 index = fileName.lastIndexOf(SEPARATOR); - - if ( index > 0) - { - filePath = fileName.copy(0, index); - - if ( !filePath.isEmpty() ) - { - OString cppArgs = "-I" + filePath; - lCppArgs.push_back(OStringToOUString( - cppArgs.replace('\\', '/'), - RTL_TEXTENCODING_UTF8)); - } - } - - if ( pOptions->isValid("-D") ) - { - OString dOpt = pOptions->getOption("-D"); - sal_Int32 nIndex = 0; - do - { - std::string_view token = o3tl::getToken(dOpt, 0, ' ', nIndex ); - if (token.size()) - lCppArgs.push_back("-D" + OStringToOUString(token, RTL_TEXTENCODING_UTF8)); - } while( nIndex != -1 ); - } - - if ( pOptions->isValid("-I") ) - { - OString incOpt = pOptions->getOption("-I"); - sal_Int32 nIndex = 0; - do - { - std::string_view token = o3tl::getToken(incOpt, 0, ' ', nIndex ); - if (token.size()) - lCppArgs.push_back("-I" + OStringToOUString(token, RTL_TEXTENCODING_UTF8)); - } while( nIndex != -1 ); - } - - lCppArgs.emplace_back("-o"); - - lCppArgs.push_back(OStringToOUString(preprocFile, RTL_TEXTENCODING_UTF8)); - - lCppArgs.push_back(OStringToOUString(tmpFile, RTL_TEXTENCODING_UTF8)); - - OUString cpp; - OUString startDir; -#ifndef SYSTEM_UCPP - if (osl_getExecutableFile(&cpp.pData) != osl_Process_E_None) { - OSL_ASSERT(false); - } - - sal_Int32 idx= cpp.lastIndexOf("idlc"); - cpp = cpp.copy(0, idx); - -#if defined(_WIN32) - cpp += "ucpp.exe"; -#else - cpp += "ucpp"; -#endif -#else // SYSTEM_UCPP - cpp = OUString(UCPP); -#endif - oslProcess hProcess = nullptr; - oslProcessError procError = osl_Process_E_None; - - const int nCmdArgs = lCppArgs.size(); - std::unique_ptr<rtl_uString*[]> pCmdArgs(new rtl_uString*[nCmdArgs]); - - int i = 0; - for (auto const& elem : lCppArgs) - { - pCmdArgs[i++] = elem.pData; - } - - procError = osl_executeProcess( cpp.pData, pCmdArgs.get(), nCmdArgs, osl_Process_WAIT, - nullptr, startDir.pData, nullptr, 0, &hProcess ); - - oslProcessInfo hInfo; - hInfo.Size = sal_uInt32(sizeof(oslProcessInfo)); - if (osl_getProcessInfo(hProcess, osl_Process_EXITCODE, &hInfo) - != osl_Process_E_None) - { - OSL_ASSERT(false); - } - - if ( procError || (hInfo.Code != 0) ) - { - if ( procError != osl_Process_E_None ) - fprintf(stderr, "%s: starting preprocessor failed\n", pOptions->getProgramName().getStr()); - else - fprintf(stderr, "%s: preprocessing %s%s failed\n", - pOptions->getProgramName().getStr(), - pathname == nullptr ? "" : "file ", fileName.getStr()); - - osl_freeProcessHandle(hProcess); - exit(hInfo.Code ? hInfo.Code : 99); - } - osl_freeProcessHandle(hProcess); - - if (unlink(tmpFile.getStr()) != 0) - { - fprintf(stderr, "%s: Could not remove cpp input file %s\n", - pOptions->getProgramName().getStr(), tmpFile.getStr()); - exit(99); - } - - if ( pOptions->isValid("-E") ) - { - if (unlink(preprocFile.getStr()) != 0) - { - fprintf(stderr, "%s: Could not remove parser input file %s\n", - pOptions->getProgramName().getStr(), preprocFile.getStr()); - exit(99); - } - exit(0); - } - - // parse file - yyin = fopen(preprocFile.getStr(), "r"); - if (yyin == nullptr) - { - fprintf(stderr, "%s: Could not open cpp output file %s\n", - pOptions->getProgramName().getStr(), preprocFile.getStr()); - exit(99); - } - - //yydebug = 0 no trace information - //yydebug = 1 parser produce trace information - yydebug = 0; - - yyparse(); - sal_Int32 nErrors = idlc()->getErrorCount(); - - fclose(yyin); - if (unlink(preprocFile.getStr()) != 0) - { - fprintf(stderr, "%s: Could not remove parser input file %s\n", - pOptions->getProgramName().getStr(), preprocFile.getStr()); - exit(99); - } - - return nErrors; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/idlcmain.cxx b/idlc/source/idlcmain.cxx deleted file mode 100644 index 742dc4e815ce..000000000000 --- a/idlc/source/idlcmain.cxx +++ /dev/null @@ -1,164 +0,0 @@ -/* -*- 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 <idlc.hxx> -#include <sal/main.h> - -#include <string.h> - -SAL_IMPLEMENT_MAIN_WITH_ARGS(argc, argv) -{ - std::vector< std::string > args; - for (int i = 1; i < argc; i++) - { - if (!Options::checkArgument (args, argv[i], strlen(argv[i]))) - return 1; - } - - Options options(argv[0]); - sal_Int32 nErrors = 0; - - try - { - if (!options.initOptions(args)) - return 0; - - setIdlc(&options); - - if (options.readStdin()) { - if ( !options.quiet() ) - fprintf( - stdout, "%s: Compiling stdin\n", - options.getProgramName().getStr()); - nErrors = compileFile(nullptr); - if ( ( idlc()->getWarningCount() > 0 ) && !options.quiet() ) { - fprintf( - stdout, "%s: detected %lu warnings compiling stdin\n", - options.getProgramName().getStr(), - sal::static_int_cast< unsigned long >( - idlc()->getWarningCount())); - } - OString outputUrl; - if (options.isValid("-O")) { - outputUrl = convertToFileUrl(options.getOption("-O")); - if (!outputUrl.endsWith("/")) { - outputUrl += "/"; - } - outputUrl += "stdin.urd"; - } else { - outputUrl = convertToFileUrl("stdin.urd"); - } - if (nErrors > 0) { - removeIfExists(outputUrl); - } else { - nErrors = produceFile(outputUrl, nullptr); - } - idlc()->reset(); - } - std::vector< OString > const & files = options.getInputFiles(); - if ( options.verbose() ) - { - fprintf( stdout, "%s: compiling %i source files ... \n", - options.getProgramName().getStr(), static_cast<int>(files.size()) ); - fflush( stdout ); - } - for (auto const& elem : files) - { - if (nErrors) - break; - OString sysFileName( convertToAbsoluteSystemPath(elem) ); - - if ( !options.quiet() ) - fprintf(stdout, "Compiling: %s\n", elem.getStr()); - nErrors = compileFile(&sysFileName); - - if ( idlc()->getWarningCount() && !options.quiet() ) - fprintf(stdout, "%s: detected %" SAL_PRIdINT64 " warnings compiling file '%s'\n", - options.getProgramName().getStr(), - sal_Int64(idlc()->getWarningCount()), - elem.getStr()); - - // prepare output file name - OString const strippedFileName( - sysFileName.copy(sysFileName.lastIndexOf(SEPARATOR) + 1)); - OString outputFile; - if ( options.isValid("-O") ) - { - outputFile = options.getOption("-O"); - if (!outputFile.endsWith("/")) { - outputFile += "/"; - } - outputFile += strippedFileName.replaceAt( - strippedFileName.getLength() -3 , 3, "urd"); - } else { - outputFile = - sysFileName.replaceAt(sysFileName.getLength() -3 , 3, "urd"); - } - OString const outputFileUrl = convertToFileUrl(outputFile); - - OString depFileUrl; - if (options.isValid("-M")) { - depFileUrl = convertToFileUrl(options.getOption("-M")); - if (!depFileUrl.endsWith("/")) { - depFileUrl += "/"; - } - depFileUrl += strippedFileName.replaceAt( - strippedFileName.getLength() -3 , 3, "d"); - } - - if ( nErrors ) { - if (options.isValid("-M")) { - removeIfExists(depFileUrl); - } - removeIfExists(outputFileUrl); - } else { - sPair_t const pair(depFileUrl, outputFile); - nErrors = produceFile(outputFileUrl, - (options.isValid("-M")) ? &pair : nullptr); - } - - idlc()->reset(); - } - - if ( nErrors > 0 ) - { - fprintf(stderr, "%s: detected %" SAL_PRIdINT64 " errors%s", - options.getProgramName().getStr(), - sal_Int64(nErrors), - options.prepareVersion().getStr()); - } else - { - if ( options.verbose() ) - fprintf(stdout, "%s: returned successful%s", - options.getProgramName().getStr(), - options.prepareVersion().getStr()); - } - } catch(const IllegalArgument& e) - { - fprintf(stderr, "Illegal argument: %s\n%s", - e.m_message.getStr(), - options.prepareVersion().getStr()); - return 99; - } - - return nErrors; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/idlcproduce.cxx b/idlc/source/idlcproduce.cxx deleted file mode 100644 index 2592fe0dee27..000000000000 --- a/idlc/source/idlcproduce.cxx +++ /dev/null @@ -1,242 +0,0 @@ -/* -*- 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 <idlc.hxx> -#include <astmodule.hxx> -#include <rtl/strbuf.hxx> -#include <osl/file.hxx> -#include <osl/thread.h> -#include <o3tl/string_view.hxx> - -#if defined(_WIN32) -#include <io.h> -#include <direct.h> -#include <errno.h> -#endif - -#ifdef SAL_UNX -#include <unistd.h> -#include <sys/stat.h> -#include <errno.h> -#endif - -#include <string.h> - -using namespace ::osl; - -static std::list< OString > gaCreatedDirectories; - -static bool checkOutputPath(const OString& completeName) -{ - OString sysPathName = convertToAbsoluteSystemPath(completeName); - OStringBuffer buffer(sysPathName.getLength()+16); - - if ( sysPathName.indexOf( SEPARATOR ) == -1 ) - return true; - - sal_Int32 nIndex = 0; - std::string_view token(o3tl::getToken(sysPathName, 0, SEPARATOR, nIndex)); - if (o3tl::starts_with(token, "..") - || (token.size() >= 2 && token[1] == ':') - || o3tl::starts_with(token, ".")) - { - buffer.append(token); - buffer.append(SEPARATOR); - } - else - nIndex = 0; - - do - { - buffer.append(o3tl::getToken(sysPathName, 0, SEPARATOR, nIndex)); - - if ( !buffer.isEmpty() && nIndex != -1 ) - { -#if defined(SAL_UNX) - if (mkdir(buffer.getStr(), 0777) == -1) -#else - if (mkdir(buffer.getStr()) == -1) -#endif - { - if (errno == ENOENT) - { - fprintf(stderr, "%s: cannot create directory '%s'\n", - idlc()->getOptions()->getProgramName().getStr(), buffer.getStr()); - return false; - } - } - else - { - gaCreatedDirectories.push_front(buffer.getStr()); - } - } - buffer.append(SEPARATOR); - } while( nIndex != -1 ); - return true; -} - -static bool cleanPath() -{ - for (auto const& createdDirectory : gaCreatedDirectories) - { -//#ifdef SAL_UNX -// if (rmdir((char*)createdDirectory.getStr(), 0777) == -1) -//#else - if (rmdir(createdDirectory.getStr()) == -1) -//#endif - { - fprintf(stderr, "%s: cannot remove directory '%s'\n", - idlc()->getOptions()->getProgramName().getStr(), createdDirectory.getStr()); - return false; - } - } - gaCreatedDirectories.clear(); - return true; -} - -void removeIfExists(std::string_view pathname) -{ - osl::File::remove(OStringToOUString(pathname, RTL_TEXTENCODING_UTF8)); -} - -sal_Int32 -produceFile(const OString& regFileName, sPair_t const*const pDepFile) -{ - Options* pOptions = idlc()->getOptions(); - - OString regTmpName = regFileName.replaceAt(regFileName.getLength() -3, 3, "_idlc_"); - - if ( !checkOutputPath(regFileName) ) - { - fprintf(stderr, "%s: could not create path of registry file '%s'.\n", - pOptions->getProgramName().getStr(), regFileName.getStr()); - return 1; - } - - OString depTmpName; - if (pDepFile) - { - depTmpName = pDepFile->first.replaceAt( - regFileName.getLength() -3, 3, "_idlc_"); - if ( !checkOutputPath(depTmpName) ) - { - fprintf(stderr, "%s: could not create path of dep file '%s'.\n", - pOptions->getProgramName().getStr(), pDepFile->first.getStr()); - return 1; - } - removeIfExists(depTmpName); - } - - removeIfExists(regTmpName); - OString urlRegTmpName = convertToFileUrl(regTmpName); - - Registry regFile; - if ( regFile.create(OStringToOUString(urlRegTmpName, RTL_TEXTENCODING_UTF8)) != RegError::NO_ERROR ) - { - fprintf(stderr, "%s: could not create registry file '%s'\n", - pOptions->getProgramName().getStr(), regTmpName.getStr()); - removeIfExists(regTmpName); - removeIfExists(regFileName); - cleanPath(); - return 1; - } - - RegistryKey rootKey; - if ( regFile.openRootKey(rootKey) != RegError::NO_ERROR ) - { - fprintf(stderr, "%s: could not open root of registry file '%s'\n", - pOptions->getProgramName().getStr(), regFileName.getStr()); - removeIfExists(regTmpName); - removeIfExists(regFileName); - cleanPath(); - return 1; - } - - // produce registry file - if ( !idlc()->getRoot()->dump(rootKey) ) - { - rootKey.releaseKey(); - if (regFile.close() != RegError::NO_ERROR) - { - fprintf(stderr, "%s: could not close registry file '%s'\n", - pOptions->getProgramName().getStr(), regFileName.getStr()); - } - regFile.destroy(OStringToOUString(regFileName, RTL_TEXTENCODING_UTF8)); - removeIfExists(regFileName); - cleanPath(); - return 1; - } - - rootKey.releaseKey(); - if ( regFile.close() != RegError::NO_ERROR ) - { - fprintf(stderr, "%s: could not close registry file '%s'\n", - pOptions->getProgramName().getStr(), regFileName.getStr()); - removeIfExists(regTmpName); - removeIfExists(regFileName); - cleanPath(); - return 1; - } - - if (pDepFile && !idlc()->dumpDeps(depTmpName, pDepFile->second)) - { - fprintf(stderr, "%s: could not write dep file '%s'\n", - pOptions->getProgramName().getStr(), pDepFile->first.getStr()); - removeIfExists(depTmpName); - removeIfExists(pDepFile->first); - removeIfExists(regTmpName); - removeIfExists(regFileName); - cleanPath(); - return 1; - } - - removeIfExists(regFileName); - - if ( File::move(OStringToOUString(regTmpName, osl_getThreadTextEncoding()), - OStringToOUString(regFileName, osl_getThreadTextEncoding())) != FileBase::E_None ) { - fprintf(stderr, "%s: cannot rename temporary registry '%s' to '%s'\n", - idlc()->getOptions()->getProgramName().getStr(), - regTmpName.getStr(), regFileName.getStr()); - removeIfExists(regTmpName); - cleanPath(); - return 1; - } - removeIfExists(regTmpName); - - if (pDepFile) - { - removeIfExists(pDepFile->first); - if ( File::move(OStringToOUString(depTmpName, osl_getThreadTextEncoding()), - OStringToOUString(pDepFile->first, osl_getThreadTextEncoding())) != FileBase::E_None ) { - fprintf(stderr, "%s: cannot rename dep file '%s' to '%s'\n", - idlc()->getOptions()->getProgramName().getStr(), - depTmpName.getStr(), pDepFile->first.getStr()); - removeIfExists(depTmpName); - removeIfExists(pDepFile->first); - removeIfExists(regFileName); - cleanPath(); - return 1; - } - removeIfExists(depTmpName); - } - - return 0; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/options.cxx b/idlc/source/options.cxx deleted file mode 100644 index 0fd06cc9fb3c..000000000000 --- a/idlc/source/options.cxx +++ /dev/null @@ -1,424 +0,0 @@ -/* -*- 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 <sal/config.h> - -#include <string_view> - -#include <options.hxx> - -#include <osl/diagnose.h> -#include <rtl/string.hxx> -#include <rtl/strbuf.hxx> - -#include <rtl/ustring.hxx> -#include <osl/file.hxx> -#include <o3tl/char16_t2wchar_t.hxx> -#include <o3tl/string_view.hxx> - -#ifdef _WIN32 -# if !defined WIN32_LEAN_AND_MEAN -# define WIN32_LEAN_AND_MEAN -# endif -# include <windows.h> -#endif - -#include <stdio.h> -#include <string.h> - - -Options::Options(char const * progname) - : m_program(progname), m_stdin(false), m_verbose(false), m_quiet(false) -{ -} - -Options::~Options() -{ -} - -// static -bool Options::checkArgument (std::vector< std::string > & rArgs, char const * arg, size_t len) -{ - bool result = ((arg != nullptr) && (len > 0)); - OSL_PRECOND(result, "idlc::Options::checkArgument(): invalid arguments"); - if (!result) - return false; - - switch(arg[0]) - { - case '@': - result = len > 1; - if (result) - { - // "@<cmdfile>" - result = Options::checkCommandFile (rArgs, &(arg[1])); - } - break; - case '-': - result = len > 1; - if (result) - { - // "-<option>" - switch (arg[1]) - { - case 'O': - case 'M': - case 'I': - case 'D': - { - // "-<option>[<param>] - std::string option(&(arg[0]), 2); - rArgs.push_back(option); - if (len > 2) - { - // "-<option><param>" - std::string param(&(arg[2]), len - 2); - rArgs.push_back(param); - } - break; - } - default: - // "-<option>" ([long] option, w/o param) - rArgs.emplace_back(arg, len); - break; - } - } - break; - default: - // "<param>" - rArgs.emplace_back(arg, len); - break; - } - return result; -} - -// static -bool Options::checkCommandFile (std::vector< std::string > & rArgs, char const * filename) -{ - FILE * fp = fopen(filename, "r"); - if (fp == nullptr) - { - fprintf(stderr, "ERROR: can't open command file \"%s\"\n", filename); - return false; - } - - std::string buffer; - buffer.reserve(256); - - bool quoted = false; - int c = EOF; - while ((c = fgetc(fp)) != EOF) - { - switch(c) - { - case '\"': - quoted = !quoted; - break; - case ' ': - case '\t': - case '\r': - case '\n': - if (!quoted) - { - if (!buffer.empty()) - { - // append current argument. - if (!Options::checkArgument(rArgs, buffer.c_str(), buffer.size())) - { - (void) fclose(fp); - return false; - } - buffer.clear(); - } - break; - } - [[fallthrough]]; - default: - buffer.push_back(sal::static_int_cast<char>(c)); - break; - } - } - if (!buffer.empty()) - { - // append unterminated argument. - if (!Options::checkArgument(rArgs, buffer.c_str(), buffer.size())) - { - (void) fclose(fp); - return false; - } - buffer.clear(); - } - return (fclose(fp) == 0); -} - -bool Options::badOption(char const * reason, std::string const & rArg) -{ - if (reason != nullptr) - { - OString message = OString::Concat(reason) + " option '" + rArg.c_str() + "'"; - throw IllegalArgument(message); - } - return false; -} - -bool Options::setOption(char const * option, std::string const & rArg) -{ - bool result = (0 == strcmp(option, rArg.c_str())); - if (result) - m_options[rArg.c_str()] = OString(rArg.c_str(), rArg.size()); - return result; -} - -#ifdef _WIN32 -/* Helper function to convert windows paths including spaces, brackets etc. into - a windows short Url. The ucpp preprocessor has problems with such paths and returns - with error. -*/ -static OString convertIncPathtoShortWindowsPath(const OString& incPath) { - OUString path = OStringToOUString(incPath, RTL_TEXTENCODING_UTF8); - - std::vector<sal_Unicode> vec(path.getLength() + 1); - //GetShortPathNameW only works if the file can be found! - const DWORD len = GetShortPathNameW( - o3tl::toW(path.getStr()), o3tl::toW(vec.data()), path.getLength() + 1); - - if (len > 0) - { - OUString ret(vec.data(), len); - return OUStringToOString(ret, RTL_TEXTENCODING_UTF8); - } - - return incPath; -} -#endif - -bool Options::initOptions(std::vector< std::string > & rArgs) -{ - std::vector< std::string >::const_iterator first = rArgs.begin(), last = rArgs.end(); - for (; first != last; ++first) - { - if ((*first)[0] != '-') - { - OString filename((*first).c_str(), (*first).size()); - OString tmp(filename.toAsciiLowerCase()); - if (tmp.lastIndexOf(".idl") != (tmp.getLength() - 4)) - { - throw IllegalArgument("'" + filename + "' is not a valid input file, only '*.idl' files will be accepted"); - } - m_inputFiles.push_back(filename); - continue; - } - - std::string const option(*first); - switch((*first)[1]) - { - case 'O': - { - if ((++first == last) || ((*first)[0] == '-')) - { - return badOption("invalid", option); - } - OString param((*first).c_str(), (*first).size()); - m_options["-O"] = param; - break; - } - case 'M': - { - if ((++first == last) || ((*first)[0] == '-')) - { - return badOption("invalid", option); - } - OString param((*first).c_str(), (*first).size()); - m_options["-M"] = param; - break; - } - case 'I': - { - if ((++first == last) || ((*first)[0] == '-')) - { - return badOption("invalid", option); - } - OString param((*first).c_str(), (*first).size()); - { - // quote param token(s). - OStringBuffer buffer; - sal_Int32 k = 0; - do - { - if (!buffer.isEmpty()) - buffer.append(' '); -// buffer.append("-I\""); -#ifdef _WIN32 - OString incpath = convertIncPathtoShortWindowsPath(param.getToken(0, ';', k)); -#else - std::string_view incpath = o3tl::getToken(param, 0, ';', k); -#endif - buffer.append(incpath); -// buffer.append("\""); - } while (k != -1); - param = buffer.makeStringAndClear(); - } - if (m_options.count("-I") > 0) - { - // append param. - param = m_options["-I"] + " " + param; - } - m_options["-I"] = param; - break; - } - case 'D': - { - if ((++first == last) || ((*first)[0] == '-')) - { - return badOption("invalid", option); - } - OString param = OString::Concat("-D") + std::string_view((*first).c_str(), (*first).size()); - if (m_options.count("-D") > 0) - { - param = m_options["-D"] + " " + param; - } - m_options["-D"] = param; - break; - } - case 'C': - { - if (!setOption("-C", option)) - { - return badOption("invalid", option); - } - break; - } - case 'c': - { - if (!setOption("-cid", option)) - { - return badOption("invalid", option); - } - break; - } - case 'q': - { - if (!setOption("-quiet", option)) - { - return badOption("invalid", option); - } - m_quiet = true; - break; - } - case 'v': - { - if (!setOption("-verbose", option)) - { - return badOption("invalid", option); - } - m_verbose = true; - break; - } - case 'w': - { - if (!(setOption("-w", option) || setOption("-we", option))) - { - return badOption("invalid", option); - } - break; - } - case 'h': - case '?': - { - if (!(setOption("-h", option) || setOption("-?", option))) - { - return badOption("invalid", option); - } - { - (void) fprintf(stdout, "%s", prepareHelp().getStr()); - return false; - } - // break; // Unreachable - } - case 's': - { - if (!setOption("-stdin", option)) - { - return badOption("invalid", option); - } - m_stdin = true; - break; - } - default: - return badOption("unknown", option); - } - } - return true; -} - -OString Options::prepareHelp() const -{ - OString help = "\nusing: " + - m_program + " [-options] <file_1> ... <file_n> | @<filename> | -stdin\n" - " <file_n> = file_n specifies one or more idl files.\n" - " Only files with the extension '.idl' are valid.\n" - " @<filename> = filename specifies the name of a command file.\n" - " -stdin = read idl file from standard input.\n" - " Options:\n" - " -O<path> = path specifies the output directory.\n" - " The generated output is a registry file with\n" - " the same name as the idl input file (or 'stdin'\n" - " for -stdin).\n" - " -M<path> = path specifies the output directory for deps.\n" - " Generate GNU make dependency files with the\n" - " same name as the idl input file.\n" - " -I<path> = path specifies a directory where include\n" - " files will be searched by the preprocessor.\n" - " Multiple directories can be combined with ';'.\n" - " -D<name> = name defines a macro for the preprocessor.\n" - " -C = generate complete type information, including\n" - " documentation.\n" - " -cid = check if identifiers fulfill the UNO naming\n" - " requirements.\n" - " -quiet = no output.\n" - " -verbose = verbose output.\n" - " -w = display warning messages.\n" - " -we = treat warnings as errors.\n" - " -h|-? = print this help message and exit.\n\n" + - prepareVersion(); - - return help; -} - -OString Options::prepareVersion() const -{ - return m_program + " Version 1.1\n\n"; -} - - -bool Options::isValid(const OString& option) const -{ - return (m_options.count(option) > 0); -} - -const OString& Options::getOption(const OString& option) -{ - if (!isValid(option)) - { - throw IllegalArgument("Option is not valid or currently not set."); - } - return m_options[option]; -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/parser.y b/idlc/source/parser.y deleted file mode 100644 index 29654c32bbbe..000000000000 --- a/idlc/source/parser.y +++ /dev/null @@ -1,2737 +0,0 @@ -/* -*- 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 . - */ - -/* - * parser.yy - BISON grammar for IDLC 1.0 - */ - -%{ -#include <string.h> - -#include <idlc.hxx> -#include <errorhandler.hxx> -#include <fehelper.hxx> -#include <astexpression.hxx> -#include <astconstants.hxx> -#include <astconstant.hxx> -#include <astbasetype.hxx> -#include <asttypedef.hxx> -#include <astexception.hxx> -#include <astmember.hxx> -#include <astenum.hxx> -#include <astsequence.hxx> -#include <astattribute.hxx> -#include <astoperation.hxx> -#include <astparameter.hxx> -#include <astinterfacemember.hxx> -#include <astservicemember.hxx> -#include <astobserves.hxx> -#include <astneeds.hxx> - -#include <aststructinstance.hxx> - -#include "attributeexceptions.hxx" - -#include <rtl/string.hxx> -#include <osl/diagnose.h> - -#include <algorithm> -#include <vector> - - -#define YYDEBUG 1 -#define YYERROR_VERBOSE 1 - -extern int yylex(void); -static void yyerror(char const *); - -static void checkIdentifier(OString const * id) -{ - static short check = 0; - if (check == 0) { - if (idlc()->getOptions()->isValid("-cid")) - check = 1; - else - check = 2; - } - - if ( id->indexOf('_') >= 0 ) - if ( (id->pData->buffer[0] >= 97 && id->pData->buffer[0] <= 122) - || id->pData->buffer[0] == '_') { - if (check == 1) { - OString msg = "mismatched identifier '" + *id + "'"; - ErrorHandler::syntaxError(idlc()->getParseState(), - idlc()->getLineNumber(), - msg.getStr()); - } - else - ErrorHandler::warning0(WarningCode::WrongNamingConvention, id->getStr()); - } -} - -static void reportDoubleMemberDeclarations( - AstInterface::DoubleMemberDeclarations const & doubleMembers) -{ - for (auto const& doubleMember : doubleMembers) - { - ErrorHandler::error2(ErrorCode::DoubleMember, doubleMember.first, doubleMember.second); - } -} - -static void addInheritedInterface( - AstInterface * ifc, OString const & name, bool optional, - OUString const & documentation) -{ - AstDeclaration * decl = ifc->lookupByName(name); - AstDeclaration const * resolved = resolveTypedefs(decl); - if (resolved != nullptr && resolved->getNodeType() == NT_interface) { - if (ErrorHandler::checkPublished(decl)) { - if (!static_cast< AstInterface const * >(resolved)->isDefined()) { - ErrorHandler::inheritanceError( - NT_interface, &ifc->getScopedName(), decl); - } else { - AstInterface::DoubleDeclarations doubleDecls( - ifc->checkInheritedInterfaceClashes( - static_cast< AstInterface const * >(resolved), - optional)); - if (doubleDecls.interfaces.empty() - && doubleDecls.members.empty()) - { - ifc->addInheritedInterface( - static_cast< AstType * >(decl), optional, - documentation); - } else { - for (auto const& elem : doubleDecls.interfaces) - { - ErrorHandler::error1( - ErrorCode::DoubleInheritance, elem); - } - reportDoubleMemberDeclarations(doubleDecls.members); - } - } - } - } else { - ErrorHandler::lookupError( - ErrorCode::InterfaceMemberLookup, name, scopeAsDecl(ifc)); - } -} - -static AstDeclaration const * createNamedType( - OString const * scopedName, DeclList const * typeArgs) -{ - AstDeclaration * decl = idlc()->scopes()->topNonNull()->lookupByName( - *scopedName); - AstDeclaration const * resolved = resolveTypedefs(decl); - if (decl == nullptr) { - ErrorHandler::lookupError(*scopedName); - } else if (!ErrorHandler::checkPublished(decl)) { - decl = nullptr; - } else if (resolved->getNodeType() == NT_struct) { - if (static_cast< AstStruct const * >(resolved)->getTypeParameterCount() - != (typeArgs == nullptr ? 0 : typeArgs->size())) - { - ErrorHandler::error0(ErrorCode::WrongNumberOfTypeArguments); - decl = nullptr; - } else if (typeArgs != nullptr) { - AstScope * global = idlc()->scopes()->bottom(); - AstDeclaration * inst = new AstStructInstance( - static_cast< AstType * >(decl), typeArgs, global); - decl = global->addDeclaration(inst); - if (decl != inst) { - delete inst; - } - } - } else if (decl->isType()) { - if (typeArgs != nullptr) { - ErrorHandler::error0(ErrorCode::WrongNumberOfTypeArguments); - decl = nullptr; - } - } else { - ErrorHandler::noTypeError(decl); - decl = nullptr; - } - delete scopedName; - delete typeArgs; - return decl; -} - -static bool includes(AstDeclaration const * type1, AstDeclaration const * type2) { - OSL_ASSERT(type2 != nullptr); - if (type1 != nullptr) { - if (type1->getNodeType() == NT_instantiated_struct) { - AstStructInstance const * inst - = static_cast< AstStructInstance const * >(type1); - if (inst->getTypeTemplate() == type2) { - return true; - } - for (DeclList::const_iterator i(inst->getTypeArgumentsBegin()); - i != inst->getTypeArgumentsEnd(); ++i) - { - if (includes(*i, type2)) { - return true; - } - } - } else if (type1 == type2) { - return true; - } - } - return false; -} - -// Suppress any warnings from generated code: -#if defined _MSC_VER -#pragma warning(disable: 4702) // unreachable code -#endif -%} -/* - * Declare the type of values in the grammar - */ -%union { - ExprType etval; /* Expression type */ - AstDeclaration* dclval; /* Declaration */ - AstDeclaration const * cdclval; - DeclList * dclsval; - AstExpression* exval; /* expression value */ - FeDeclarator* fdval; /* declarator value */ - FeDeclList* dlval; /* declarator list value */ - FeInheritanceHeader* ihval; /* inheritance header value */ - OString* sval; /* OString value */ - std::vector< OString > * svals; - char* strval; /* char* value */ - bool bval; /* sal_Boolean* value */ - sal_Int64 ival; /* sal_Int64 value */ - sal_uInt64 uval; /* sal_uInt64 value */ - sal_uInt32 ulval; /* sal_uInt32 value */ - double dval; /* double value */ - float fval; /* float value */ - std::list< OString >* slval; /* StringList value */ - AttributeExceptions::Part attexcpval; - AttributeExceptions attexcval; -} - -/* - * Token types: These are returned by the lexer - */ - -%token <sval> IDL_IDENTIFIER -%token IDL_ATTRIBUTE -%token IDL_BOUND -%token IDL_CONST -%token IDL_CONSTANTS -%token IDL_CONSTRAINED -%token IDL_ENUM -%token IDL_EXCEPTION -%token IDL_INTERFACE -%token IDL_MAYBEAMBIGUOUS -%token IDL_MAYBEDEFAULT -%token IDL_MAYBEVOID -%token IDL_MODULE -%token IDL_NEEDS -%token IDL_OBSERVES -%token IDL_OPTIONAL -%token IDL_PROPERTY -%token IDL_RAISES -%token IDL_READONLY -%token IDL_REMOVABLE -%token IDL_SERVICE -%token IDL_SEQUENCE -%token IDL_SINGLETON -%token IDL_STRUCT -%token IDL_TYPEDEF -%token IDL_TRANSIENT - -%token IDL_ANY -%token IDL_CHAR -%token IDL_BOOLEAN -%token IDL_BYTE -%token IDL_DOUBLE -%token IDL_FLOAT -%token IDL_HYPER -%token IDL_LONG -%token IDL_SHORT -%token IDL_VOID -%token IDL_STRING -%token IDL_TYPE -%token IDL_UNSIGNED - -%token IDL_TRUE -%token IDL_FALSE - -%token IDL_IN -%token IDL_OUT -%token IDL_INOUT - -%token IDL_GET -%token IDL_SET - -%token IDL_PUBLISHED - -%token IDL_ELLIPSIS - -%token <strval> IDL_LEFTSHIFT -%token <strval> IDL_RIGHTSHIFT -%token <strval> IDL_SCOPESEPARATOR - -%token <ival> IDL_INTEGER_LITERAL -%token <uval> IDL_INTEGER_ULITERAL -%token <dval> IDL_FLOATING_PT_LITERAL - -/* - * These are production names: - */ -%type <dclval> type_dcl -%type <dclval> exception_name -%type <cdclval> constructed_type_spec enum_type op_type_spec -%type <cdclval> sequence_type_spec simple_type_spec struct_type -%type <cdclval> type_spec -%type <cdclval> fundamental_type type_arg type_or_parameter -%type <dclsval> opt_raises raises exception_list -%type <attexcpval> opt_attribute_get_raises attribute_get_raises -%type <attexcpval> opt_attribute_set_raises attribute_set_raises -%type <dclsval> opt_type_args type_args - -%type <sval> identifier -%type <sval> interface_decl -%type <sval> scoped_name inheritance_spec -%type <slval> scoped_names at_least_one_scoped_name - -%type <etval> const_type integer_type char_type boolean_type -%type <etval> floating_pt_type any_type signed_int string_type -%type <etval> unsigned_int base_type_spec byte_type type_type - -%type <exval> expression const_expr or_expr xor_expr and_expr -%type <exval> add_expr mult_expr unary_expr primary_expr shift_expr -%type <exval> literal - -%type <fdval> declarator -%type <dlval> declarators at_least_one_declarator - -%type <ihval> exception_header structure_header interfaceheader - -%type <ulval> flag_header opt_attrflags opt_attrflag -%type <ulval> direction service_interface_header service_service_header - -%type <bval> optional_inherited_interface opt_rest opt_service_body - -%type <attexcval> opt_attribute_block attribute_block_rest opt_attribute_raises - -%type <svals> opt_type_params type_params - -%% -/* - * Grammar start here - */ -start : definitions; - -definitions : - definition definitions - | /* EMPTY */ - ; - -definition : - opt_published publishable_definition - | module_dcl - { - idlc()->setParseState(PS_ModuleDeclSeen); - } - ';' - { - idlc()->setParseState(PS_NoState); - } - | error ';' - { - yyerror("definitions"); - yyerrok; - } - ; - -opt_published: - IDL_PUBLISHED { idlc()->setPublished(true); } - | /* empty */ { idlc()->setPublished(false); } - ; - -publishable_definition: - type_dcl - { - idlc()->setParseState(PS_TypeDeclSeen); - } - ';' - { - idlc()->setParseState(PS_NoState); - } - | exception_dcl - { - idlc()->setParseState(PS_ExceptionDeclSeen); - } - ';' - { - idlc()->setParseState(PS_NoState); - } - | interface - { - idlc()->setParseState(PS_InterfaceDeclSeen); - } - ';' - { - idlc()->setParseState(PS_NoState); - } - | service_dcl - { - idlc()->setParseState(PS_ServiceDeclSeen); - } - ';' - { - idlc()->setParseState(PS_NoState); - } - | singleton_dcl - { - idlc()->setParseState(PS_SingletonDeclSeen); - } - ';' - { - idlc()->setParseState(PS_NoState); - } - | constants_dcl - { - idlc()->setParseState(PS_ConstantsDeclSeen); - } - ';' - { - idlc()->setParseState(PS_NoState); - } - ; - -module_dcl : - IDL_MODULE - { - idlc()->setParseState(PS_ModuleSeen); - idlc()->setPublished(false); - } - identifier - { - idlc()->setParseState(PS_ModuleIDSeen); - checkIdentifier($3); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstModule* pModule = nullptr; - - if ( pScope ) - { - pModule = new AstModule(*$3, pScope); - if( AstDeclaration* pExists = pScope->lookupForAdd(pModule) ) - { - pExists->setInMainfile(idlc()->isInMainFile()); - pExists->setFileName(pModule->getFileName()); - if (pExists->isPredefined()) - { - pExists->setPredefined(false); - if (pExists->getDocumentation().getLength() == 0 && - pModule->getDocumentation().getLength() > 0) - { - pExists->setDocumentation(pModule->getDocumentation()); - } - } - delete(pModule); - pModule = static_cast<AstModule*>(pExists); - } else - { - pScope->addDeclaration(pModule); - } - idlc()->scopes()->push(pModule); - } - delete $3; - } - '{' - { - idlc()->setParseState(PS_ModuleSqSeen); - } - definitions - { - idlc()->setParseState(PS_ModuleBodySeen); - } - '}' - { - idlc()->setParseState(PS_ModuleQsSeen); - /* - * Finished with this module - pop it from the scope stack - */ - idlc()->scopes()->pop(); - } - ; - -interface : - interface_dcl - | forward_dcl - ; - -interface_decl : - IDL_INTERFACE - { - idlc()->setParseState(PS_InterfaceSeen); - } - identifier - { - idlc()->setParseState(PS_InterfaceIDSeen); - checkIdentifier($3); - $$ = $3; - } - ; - -forward_dcl : - interface_decl - { - idlc()->setParseState(PS_ForwardDeclSeen); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstInterface* pForward = nullptr; - AstDeclaration* pDecl = nullptr; - - /* - * Make a new forward interface node and add it to its enclosing scope - */ - if ( pScope && $1 ) - { - pForward = new AstInterface(*$1, nullptr, pScope); - - pDecl = pScope->lookupByName(pForward->getScopedName()); - if ( pDecl ) - { - if ( (pDecl != pForward) && - (pDecl->getNodeType() == NT_interface) ) - { - delete pForward; - } else - { - ErrorHandler::error2(ErrorCode::RedefScope, scopeAsDecl(pScope), pDecl); - } - } else - { - /* - * Add the interface to its definition scope - */ - pScope->addDeclaration(pForward); - } - } - delete $1; - } - ; - -interface_dcl : - interfaceheader - { - idlc()->setParseState(PS_InterfaceHeadSeen); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstInterface* pInterface = nullptr; - AstInterface* pForward = nullptr; - - /* - * Make a new interface node and add it to its enclosing scope - */ - if ( pScope && $1 ) - { - pInterface = new AstInterface( - *$1->getName(), - static_cast< AstInterface const * >(resolveTypedefs($1->getInherits())), pScope); - if ( AstDeclaration* pDecl = pScope->lookupByName(pInterface->getScopedName()) ) - { - /* - * See if we're defining a forward declared interface. - */ - if (pDecl->getNodeType() == NT_interface) - { - pForward = static_cast<AstInterface*>(pDecl); - if ( !pForward->isDefined() ) - { - /* - * Check if redefining in same scope - */ - if ( pForward->getScope() != pScope ) - { - if ( pForward->getScopedName() != pInterface->getScopedName() ) - { - ErrorHandler::error3(ErrorCode::ScopeConflict, - pInterface, pForward, scopeAsDecl(pScope)); - } - } - else if ( !pInterface->isPublished() - && pForward->isPublished() ) - { - ErrorHandler::error0(ErrorCode::PublishedForward); - } - /* - * All OK, set full definition - */ - else - { - pForward->forwardDefined(*pInterface); - delete pInterface; - pInterface = pForward; - } - } else { - // special handling for XInterface because it is predefined - if ( pForward->isPredefined() && - pForward->getScopedName() == "com::sun::star::uno::XInterface") - { - /* replace the predefined XInterface */ - *pForward = *pInterface; - delete pInterface; - pInterface = pForward; - } - - } - } - } else - { - /* - * Add the interface to its definition scope - */ - pScope->addDeclaration(pInterface); - } - } - /* - * Push it on the scope stack - */ - idlc()->scopes()->push(pInterface); - delete $1; - } - '{' - { - idlc()->setParseState(PS_InterfaceSqSeen); - } - exports - { - AstInterface * ifc = static_cast< AstInterface * >( - idlc()->scopes()->topNonNull()); - if (!ifc->hasMandatoryInheritedInterfaces() - && ifc->getScopedName() != "com::sun::star::uno::XInterface") - { - addInheritedInterface( - ifc, "::com::sun::star::uno::XInterface", false, - OUString()); - } - ifc->setDefined(); - idlc()->setParseState(PS_InterfaceBodySeen); - } - '}' - { - idlc()->setParseState(PS_InterfaceQsSeen); - /* - * Done with this interface - pop it off the scopes stack - */ - idlc()->scopes()->pop(); - } - | error '}' - { - yyerror("interface definition"); - yyerrok; - } - ; - -interfaceheader : - interface_decl inheritance_spec - { - idlc()->setParseState(PS_InheritSpecSeen); - - $$ = new FeInheritanceHeader(NT_interface, $1, $2, nullptr); - delete $2; - } - ; - -inheritance_spec : - ':' - { - idlc()->setParseState(PS_InheritColonSeen); - } - scoped_name - { - $$ = $3; - } - | /* EMPTY */ - { - $$ = nullptr; - } - ; - -exports : - exports export - | /* EMPTY */ - ; - -export : - attribute - { - idlc()->setParseState(PS_AttributeDeclSeen); - } - ';' - { - idlc()->setParseState(PS_NoState); - } - | operation - { - idlc()->setParseState(PS_OperationDeclSeen); - } - ';' - { - idlc()->setParseState(PS_NoState); - } - | interface_inheritance_decl - { - idlc()->setParseState(PS_InterfaceInheritanceDeclSeen); - } - ';' - { - idlc()->setParseState(PS_NoState); - } - ; - -attribute : - flag_header - simple_type_spec - { - idlc()->setParseState(PS_AttrTypeSeen); - } - declarator - { - idlc()->setParseState(PS_AttrCompleted); - if (($1 & ~(AF_BOUND | AF_READONLY)) != AF_ATTRIBUTE) { - ErrorHandler::flagError(ErrorCode::BadAttributeFlags, $1); - } - AstInterface * scope = static_cast< AstInterface * >( - idlc()->scopes()->top()); - AstAttribute * attr = new AstAttribute( - $1, FeDeclarator::compose($2), $4->getName(), scope); - delete $4; - AstInterface::DoubleMemberDeclarations doubleMembers( - scope->checkMemberClashes(attr)); - if (doubleMembers.empty()) { - scope->addMember(attr); - } else { - reportDoubleMemberDeclarations(doubleMembers); - } - idlc()->scopes()->push(attr); - } - opt_attribute_block - { - static_cast< AstAttribute * >(idlc()->scopes()->top())->setExceptions( - $6.get.documentation, $6.get.exceptions, $6.set.documentation, - $6.set.exceptions); - delete $6.get.documentation; - delete $6.get.exceptions; - delete $6.set.documentation; - delete $6.set.exceptions; - idlc()->scopes()->pop(); - } - ; - -flag_header : - '[' opt_attrflags ']' - { - idlc()->setParseState(PS_FlagHeaderSeen); - $$ = $2; - } - ; - -opt_attrflags : - opt_attrflags ',' opt_attrflag - { - if ( ($1 & $3) == $3 ) - ErrorHandler::flagError(ErrorCode::DefinedAttributeFlag, $3); - - $$ = $1 | $3; - } - | opt_attrflag - { - $$ = $1; - } - ; - -opt_attrflag : - IDL_ATTRIBUTE - { - idlc()->setParseState(PS_AttrSeen); - $$ = AF_ATTRIBUTE; - } - | IDL_PROPERTY - { - idlc()->setParseState(PS_PropertySeen); - $$ = AF_PROPERTY; - } - | IDL_READONLY - { - idlc()->setParseState(PS_ReadOnlySeen); - $$ = AF_READONLY; - } - | IDL_OPTIONAL - { - idlc()->setParseState(PS_OptionalSeen); - $$ = AF_OPTIONAL; - } - | IDL_MAYBEVOID - { - idlc()->setParseState(PS_MayBeVoidSeen); - $$ = AF_MAYBEVOID; - } - | IDL_BOUND - { - idlc()->setParseState(PS_BoundSeen); - $$ = AF_BOUND; - } - | IDL_CONSTRAINED - { - idlc()->setParseState(PS_ConstrainedSeen); - $$ = AF_CONSTRAINED; - } - | IDL_TRANSIENT - { - idlc()->setParseState(PS_TransientSeen); - $$ = AF_TRANSIENT; - } - | IDL_MAYBEAMBIGUOUS - { - idlc()->setParseState(PS_MayBeAmbiguousSeen); - $$ = AF_MAYBEAMBIGUOUS; - } - | IDL_MAYBEDEFAULT - { - idlc()->setParseState(PS_MayBeDefaultSeen); - $$ = AF_MAYBEDEFAULT; - } - | IDL_REMOVABLE - { - idlc()->setParseState(PS_RemoveableSeen); - $$ = AF_REMOVABLE; - } - | error ']' - { - yyerror("unknown property|attribute flag"); - yyerrok; - } - ; - -opt_attribute_block: - '{' attribute_block_rest { $$ = $2; } - | /* empty */ - { - $$.get.documentation = nullptr; - $$.get.exceptions = nullptr; - $$.set.documentation = nullptr; - $$.set.exceptions = nullptr; - } - ; - -attribute_block_rest: - opt_attribute_raises '}' - | error '}' - { - yyerror("bad attribute raises block"); - yyerrok; - $$.get.documentation = nullptr; - $$.get.exceptions = nullptr; - $$.set.documentation = nullptr; - $$.set.exceptions = nullptr; - } - ; - -opt_attribute_raises: - attribute_get_raises - opt_attribute_set_raises - { - $$.get = $1; - $$.set = $2; - } - | attribute_set_raises - opt_attribute_get_raises - { - $$.get = $2; - $$.set = $1; - } - | /* empty */ - { - $$.get.documentation = nullptr; - $$.get.exceptions = nullptr; - $$.set.documentation = nullptr; - $$.set.exceptions = nullptr; - } - ; - -opt_attribute_get_raises: - attribute_get_raises - | /* empty */ { $$.documentation = nullptr; $$.exceptions = nullptr; } - ; - -attribute_get_raises: - IDL_GET raises ';' - { - $$.documentation = new OUString( - OStringToOUString( - idlc()->getDocumentation(), RTL_TEXTENCODING_UTF8)); - $$.exceptions = $2; - } - ; - -opt_attribute_set_raises: - attribute_set_raises - | /* empty */ { $$.documentation = nullptr; $$.exceptions = nullptr; } - ; - -attribute_set_raises: - IDL_SET - { - if (static_cast< AstAttribute * >(idlc()->scopes()->top())-> - isReadonly()) - { - ErrorHandler::error0(ErrorCode::ReadOnlyAttributeSetExceptions); - } - } - raises ';' - { - $$.documentation = new OUString( - OStringToOUString( - idlc()->getDocumentation(), RTL_TEXTENCODING_UTF8)); - $$.exceptions = $3; - } - ; - -operation : - op_type_spec - { - idlc()->setParseState(PS_OpTypeSeen); - } - identifier - { - idlc()->setParseState(PS_OpIDSeen); - checkIdentifier($3); - - AstInterface * pScope = static_cast< AstInterface * >( - idlc()->scopes()->top()); - AstOperation* pOp = nullptr; - - /* - * Create a node representing an operation on an interface - * and add it to its enclosing scope - */ - if ( pScope && $1 ) - { - AstType const *pType = static_cast<AstType const *>($1); - if ( !pType || (pType->getNodeType() == NT_exception) ) - { - // type ERROR - } else - { - pOp = new AstOperation(pType, *$3, pScope); - - AstInterface::DoubleMemberDeclarations doubleMembers( - pScope->checkMemberClashes(pOp)); - if (doubleMembers.empty()) { - pScope->addMember(pOp); - } else { - reportDoubleMemberDeclarations(doubleMembers); - } - } - } - delete $3; - /* - * Push the operation scope onto the scopes stack - */ - idlc()->scopes()->push(pOp); - } - '(' - { - idlc()->setParseState(PS_OpSqSeen); - } - parameters - { - idlc()->setParseState(PS_OpParsCompleted); - } - ')' - { - idlc()->setParseState(PS_OpQsSeen); - } - opt_raises - { - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstOperation* pOp = nullptr; - /* - * Add exceptions and context to the operation - */ - if ( pScope && pScope->getScopeNodeType() == NT_operation) - { - pOp = static_cast<AstOperation*>(pScope); - - if ( pOp ) - pOp->setExceptions($11); - } - delete $11; - /* - * Done with this operation. Pop its scope from the scopes stack - */ - idlc()->scopes()->pop(); - } - ; - -op_type_spec : - simple_type_spec - | IDL_VOID - { - $$ = idlc()->scopes()->bottom()->lookupPrimitiveType(ET_void); - } - ; - -parameters : - parameter - | parameters - ',' - { - idlc()->setParseState(PS_OpParCommaSeen); - } - parameter - | /* EMPTY */ - | error ',' - { - yyerror("parameter definition"); - yyerrok; - } - ; - -parameter : - '[' - direction - ']' - { - idlc()->setParseState(PS_OpParDirSeen); - } - simple_type_spec - { - idlc()->setParseState(PS_OpParTypeSeen); - } - opt_rest - declarator - { - idlc()->setParseState(PS_OpParDeclSeen); - - AstOperation * pScope = static_cast< AstOperation * >( - idlc()->scopes()->top()); - AstParameter* pParam = nullptr; - - /* - * Create a node representing an argument to an operation - * Add it to the enclosing scope (the operation scope) - */ - if ( pScope && $5 && $8 ) - { - AstType const * pType = FeDeclarator::compose($5); - if ( pType ) - { - if (pScope->isConstructor() && $2 != DIR_IN) { - ErrorHandler::error0(ErrorCode::ConstructorParameterNotIn); - } - if (pScope->isVariadic()) { - ErrorHandler::error0(ErrorCode::RestParameterNotLast); - } - if ($7) { - AstDeclaration const * type = resolveTypedefs(pType); - if (type->getNodeType() != NT_predefined - || (static_cast< AstBaseType const * >(type)-> - getExprType() != ET_any)) - { - ErrorHandler::error0(ErrorCode::RestParameterNotAny); - } - if (pScope->isConstructor()) { - if (pScope->getIteratorBegin() - != pScope->getIteratorEnd()) - { - ErrorHandler::error0( - ErrorCode::ConstructorRestParameterNotFirst); - } - } else { - ErrorHandler::error0(ErrorCode::MethodHasRestParameter); - } - } - - pParam = new AstParameter( - static_cast< Direction >($2), $7, pType, $8->getName(), - pScope); - - if ( !$8->checkType($5) ) - { - // WARNING - } - - pScope->addDeclaration(pParam); - } - } - } - | error - simple_type_spec - { - idlc()->setParseState(PS_NoState); - yyerrok; - } - ; - -direction : - IDL_IN - { - $$ = DIR_IN; - } - | IDL_OUT - { - $$ = DIR_OUT; - } - | IDL_INOUT - { - $$ = DIR_INOUT; - } - ; - -opt_rest: - IDL_ELLIPSIS - { - $$ = true; - } - | /* empty */ - { - $$ = false; - } - ; - -opt_raises: - raises - | /* empty */ - { - $$ = nullptr; - } - ; - -raises: - IDL_RAISES - { - idlc()->setParseState(PS_RaiseSeen); - } - '(' - { - idlc()->setParseState(PS_RaiseSqSeen); - } - exception_list - ')' - { - idlc()->setParseState(PS_RaiseQsSeen); - $$ = $5; - } - ; - -exception_list: - exception_name - { - $$ = new DeclList; - $$->push_back($1); - } - | exception_list ',' exception_name - { - $1->push_back($3); - $$ = $1; - } - ; - -exception_name: - scoped_name - { - // The topmost scope is either an AstOperation (for interface methods - // and service constructors) or an AstAttribute (for interface - // attributes), so look up exception names in the next-to-topmost scope: - AstDeclaration * decl = idlc()->scopes()->nextToTop()->lookupByName( - *$1); - if (decl == nullptr) { - ErrorHandler::lookupError(*$1); - } else if (!ErrorHandler::checkPublished(decl)) { - decl = nullptr; - } else if (decl->getNodeType() != NT_exception) { - ErrorHandler::error1(ErrorCode::IllegalRaises, decl); - decl = nullptr; - } - delete $1; - $$ = decl; - } - ; - -interface_inheritance_decl: - optional_inherited_interface - IDL_INTERFACE - { - idlc()->setParseState(PS_ServiceIFHeadSeen); - } - scoped_name - { - AstInterface * ifc = static_cast< AstInterface * >( - idlc()->scopes()->top()); - if (ifc->usesSingleInheritance()) { - ErrorHandler::error0(ErrorCode::MixedInheritance); - } else { - addInheritedInterface( - ifc, *$4, $1, - OStringToOUString( - idlc()->getDocumentation(), RTL_TEXTENCODING_UTF8)); - } - delete $4; - } - ; - -optional_inherited_interface: - '[' IDL_OPTIONAL ']' { $$ = true; } - | /* EMPTY */ { $$ = false; } - ; - -constants_exports : - constants_export constants_exports - | /* EMPTY */ - ; - -constants_export : - IDL_CONST - { - idlc()->setParseState(PS_ConstSeen); - } - const_type - { - idlc()->setParseState(PS_ConstTypeSeen); - } - identifier - { - idlc()->setParseState(PS_ConstIDSeen); - checkIdentifier($5); - } - '=' - { - idlc()->setParseState(PS_ConstAssignSeen); - } - expression - { - idlc()->setParseState(PS_ConstExprSeen); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstConstant* pConstant = nullptr; - - if ( $9 && pScope ) - { - if ( !$9->coerce($3) ) - { - ErrorHandler::coercionError($9, $3); - } else - { - pConstant = new AstConstant($3, $9, *$5, pScope); - pScope->addDeclaration(pConstant); - } - } - delete $5; - - idlc()->setParseState(PS_ConstantDeclSeen); - } - ';' {}; - ; - -constants_dcl : - IDL_CONSTANTS - { - idlc()->setParseState(PS_ConstantsSeen); - } - identifier - { - idlc()->setParseState(PS_ConstantsIDSeen); - checkIdentifier($3); - } - '{' - { - idlc()->setParseState(PS_ConstantsSqSeen); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstConstants* pConstants = nullptr; - - if ( pScope ) - { - pConstants = new AstConstants(*$3, pScope); - if( AstDeclaration* pExists = pScope->lookupForAdd(pConstants) ) - { - pExists->setInMainfile(idlc()->isInMainFile()); - delete(pConstants); - pConstants = static_cast<AstConstants*>(pExists); - } else - { - pScope->addDeclaration(pConstants); - } - idlc()->scopes()->push(pConstants); - } - delete $3; - } - constants_exports - { - idlc()->setParseState(PS_ConstantsBodySeen); - } - '}' - { - idlc()->setParseState(PS_ConstantsQsSeen); - /* - * Finished with this constants - pop it from the scope stack - */ - idlc()->scopes()->pop(); - } - ; - -expression : const_expr ; - -const_expr : or_expr ; - -or_expr : - xor_expr - | or_expr '|' xor_expr - { - $$ = new AstExpression(ExprComb::Or, $1, $3); - } - ; - -xor_expr : - and_expr - | xor_expr '^' and_expr - { - $$ = new AstExpression(ExprComb::Xor, $1, $3); - } - ; - -and_expr : - shift_expr - | and_expr '&' shift_expr - { - $$ = new AstExpression(ExprComb::And, $1, $3); - } - ; - -shift_expr : - add_expr - | shift_expr IDL_LEFTSHIFT add_expr - { - $$ = new AstExpression(ExprComb::Left, $1, $3); - } - | shift_expr IDL_RIGHTSHIFT add_expr - { - $$ = new AstExpression(ExprComb::Right, $1, $3); - } - ; - -add_expr : - mult_expr - | add_expr '+' mult_expr - { - $$ = new AstExpression(ExprComb::Add, $1, $3); - } - | add_expr '-' mult_expr - { - $$ = new AstExpression(ExprComb::Minus, $1, $3); - } - ; - -mult_expr : - unary_expr - | mult_expr '*' unary_expr - { - $$ = new AstExpression(ExprComb::Mul, $1, $3); - } - | mult_expr '/' unary_expr - { - $$ = new AstExpression(ExprComb::Div, $1, $3); - } - | mult_expr '%' unary_expr - { - $$ = new AstExpression(ExprComb::Mod, $1, $3); - } - ; - -unary_expr : - primary_expr - | '+' primary_expr - { - $$ = new AstExpression(ExprComb::UPlus, $2, nullptr); - } - | '-' primary_expr - { - $$ = new AstExpression(ExprComb::UMinus, $2, nullptr); - } - | '~' primary_expr - { - } - ; - -primary_expr : - scoped_name - { - /* - * An expression which is a scoped name is not resolved now, - * but only when it is evaluated (such as when it is assigned - * as a constant value) - */ - $$ = new AstExpression($1); - } - | literal - | '(' const_expr ')' - { - $$ = $2; - } - ; - -literal : - IDL_INTEGER_LITERAL - { - $$ = new AstExpression($1); - } - | IDL_INTEGER_ULITERAL - { - $$ = new AstExpression($1); - } - | IDL_FLOATING_PT_LITERAL - { - $$ = new AstExpression($1); - } - | IDL_TRUE - { - $$ = new AstExpression(sal_Int32(1), ET_boolean); - } - | IDL_FALSE - { - $$ = new AstExpression(sal_Int32(0), ET_boolean); - } - ; - -const_type : - integer_type - | byte_type - | boolean_type - | floating_pt_type - | scoped_name - { - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstDeclaration const * type = nullptr; - - /* - * If the constant's type is a scoped name, it must resolve - * to a scalar constant type - */ - if ( pScope ) { - type = pScope->lookupByName(*$1); - if (type) { - if (!ErrorHandler::checkPublished(type)) - { - type = nullptr; - $$ = ET_none; - } - else - { - type = resolveTypedefs(type); - if (type->getNodeType() == NT_predefined) - { - $$ = static_cast< AstBaseType const * >(type)-> - getExprType(); - } else - $$ = ET_any; - } - } else - $$ = ET_any; - } else - $$ = ET_any; - } - ; - -exception_header : - IDL_EXCEPTION - { - idlc()->setParseState(PS_ExceptSeen); - } - identifier - { - idlc()->setParseState(PS_ExceptIDSeen); - checkIdentifier($3); - } - inheritance_spec - { - idlc()->setParseState(PS_InheritSpecSeen); - - $$ = new FeInheritanceHeader(NT_exception, $3, $5, nullptr); - delete $5; - } - ; - -exception_dcl : - exception_header - { - idlc()->setParseState(PS_ExceptHeaderSeen); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstException* pExcept = nullptr; - - if ( pScope ) - { - AstException* pBase = static_cast< AstException* >( - $1->getInherits()); - pExcept = new AstException(*$1->getName(), pBase, pScope); - pScope->addDeclaration(pExcept); - } - /* - * Push the scope of the exception on the scopes stack - */ - idlc()->scopes()->push(pExcept); - delete $1; - } - '{' - { - idlc()->setParseState(PS_ExceptSqSeen); - } - members - { - idlc()->setParseState(PS_ExceptBodySeen); - } - '}' - { - idlc()->setParseState(PS_ExceptQsSeen); - /* this exception is finished, pop its scope from the stack */ - idlc()->scopes()->pop(); - } - ; - -property : - flag_header - simple_type_spec - { - idlc()->setParseState(PS_PropertyTypeSeen); - } - at_least_one_declarator - { - idlc()->setParseState(PS_PropertyCompleted); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstAttribute* pAttr = nullptr; - FeDeclList* pList = $4; - FeDeclarator* pDecl = nullptr; - AstType const * pType = nullptr; - - if ( pScope->getScopeNodeType() == NT_singleton ) - { - ErrorHandler::error0(ErrorCode::IllegalAdd); - } else - { - if ( ($1 & AF_ATTRIBUTE) == AF_ATTRIBUTE ) - ErrorHandler::flagError(ErrorCode::WrongAttributeKeyword, AF_ATTRIBUTE); - - if ( ($1 & AF_PROPERTY) != AF_PROPERTY ) - ErrorHandler::flagError(ErrorCode::MissingAttributeKeyword, AF_PROPERTY); - - /* - * Create nodes representing attributes and add them to the - * enclosing scope - */ - if ( pScope && $2 && pList ) - { - FeDeclList::iterator iter = pList->begin(); - FeDeclList::iterator end = pList->end(); - - while (iter != end) - { - pDecl = (*iter); - if ( !pDecl ) - { - ++iter; - continue; - } - - pType = FeDeclarator::compose($2); - - if ( !pType ) - { - ++iter; - continue; - } - - pAttr = new AstAttribute(NT_property, $1, pType, pDecl->getName(), pScope); - - pScope->addDeclaration(pAttr); - ++iter; - delete pDecl; - } - } - } - - if ( pList ) - delete pList; - } - | error ';' - { - yyerror("property"); - yyerrok; - } - ; - -service_exports : - service_exports service_export - | /* EMPTY */ - ; - -service_export : - service_interface_header - at_least_one_scoped_name - ';' - { - idlc()->setParseState(PS_ServiceMemberSeen); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstDeclaration* pDecl = nullptr; - AstInterfaceMember* pIMember = nullptr; - - if ( pScope->getScopeNodeType() == NT_singleton ) - { - ErrorHandler::error0(ErrorCode::IllegalAdd); - } else - { - /* - * Create a node representing a class member. - * Store it in the enclosing scope - */ - if ( pScope && $2 ) - { - for (auto const& elem : *($2)) - { - pDecl = pScope->lookupByName(elem); - if ( pDecl && (pDecl->getNodeType() == NT_interface) ) - { - /* we relax the strict published check and allow to add new - * interfaces if they are optional - */ - bool bOptional = (($1 & AF_OPTIONAL) == AF_OPTIONAL); - if ( ErrorHandler::checkPublished(pDecl, bOptional) ) - { - pIMember = new AstInterfaceMember( - $1, static_cast<AstInterface*>(pDecl), elem, pScope); - pScope->addDeclaration(pIMember); - } - } else - { - ErrorHandler::lookupError(ErrorCode::InterfaceMemberLookup, elem, scopeAsDecl(pScope)); - } - } - } - } - delete $2; - } - | service_service_header - at_least_one_scoped_name - ';' - { - idlc()->setParseState(PS_ServiceMemberSeen); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstDeclaration* pDecl = nullptr; - AstServiceMember* pSMember = nullptr; - - /* - * Create a node representing a class member. - * Store it in the enclosing scope - */ - if ( pScope && $2 ) - { - for (auto const& elem : *($2)) - { - pDecl = pScope->lookupByName(elem); - if ( pDecl && (pDecl->getNodeType() == NT_service) ) - { - if ( static_cast< AstService * >(pDecl)->isSingleInterfaceBasedService() || (pScope->getScopeNodeType() == NT_singleton && pScope->nMembers() > 0) ) - ErrorHandler::error0(ErrorCode::IllegalAdd); - else if ( ErrorHandler::checkPublished(pDecl) ) - { - pSMember = new AstServiceMember( - $1, static_cast<AstService*>(pDecl), elem, pScope); - pScope->addDeclaration(pSMember); - } - } else - { - ErrorHandler::lookupError(ErrorCode::ServiceMemberLookup, elem, scopeAsDecl(pScope)); - } - } - } - delete $2; - } - | IDL_OBSERVES - at_least_one_scoped_name - ';' - { - idlc()->setParseState(PS_ServiceMemberSeen); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstDeclaration* pDecl = nullptr; - AstObserves* pObserves = nullptr; - - if ( pScope->getScopeNodeType() == NT_singleton ) - { - ErrorHandler::error0(ErrorCode::IllegalAdd); - } else - { - /* - * Create a node representing a class member. - * Store it in the enclosing scope - */ - if ( pScope && $2 ) - { - for (auto const& elem : *($2)) - { - pDecl = pScope->lookupByName(elem); - if ( pDecl && (pDecl->getNodeType() == NT_interface) ) - { - pObserves = new AstObserves(static_cast<AstInterface*>(pDecl), elem, pScope); - pScope->addDeclaration(pObserves); - } else - { - ErrorHandler::lookupError(ErrorCode::InterfaceMemberLookup, elem, scopeAsDecl(pScope)); - } - } - } - } - delete $2; - } - | IDL_NEEDS - at_least_one_scoped_name - ';' - { - idlc()->setParseState(PS_ServiceMemberSeen); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstDeclaration* pDecl = nullptr; - AstNeeds* pNeeds = nullptr; - - if ( pScope->getScopeNodeType() == NT_singleton ) - { - ErrorHandler::error0(ErrorCode::IllegalAdd); - } else - { - /* - * Create a node representing a class member. - * Store it in the enclosing scope - */ - if ( pScope && $2 ) - { - for (auto const& elem : *($2)) - { - pDecl = pScope->lookupByName(elem); - if ( pDecl && (pDecl->getNodeType() == NT_service) ) - { - pNeeds = new AstNeeds(static_cast<AstService*>(pDecl), elem, pScope); - pScope->addDeclaration(pNeeds); - } else - { - ErrorHandler::lookupError(ErrorCode::ServiceMemberLookup, elem, scopeAsDecl(pScope)); - } - } - } - } - delete $2; - } - | property - ';' - { - idlc()->setParseState(PS_PropertyDeclSeen); - } - ; - -service_interface_header : - IDL_INTERFACE - { - idlc()->setParseState(PS_ServiceIFHeadSeen); - $$ = AF_INVALID; - } - | flag_header - IDL_INTERFACE - { - idlc()->setParseState(PS_ServiceIFHeadSeen); - if ( (AF_OPTIONAL != $1) && ( AF_INVALID != $1) ) - ErrorHandler::flagError(ErrorCode::ExpectedOptional, $1); - $$ = $1; - } - ; - -service_service_header : - IDL_SERVICE - { - idlc()->setParseState(PS_ServiceSHeadSeen); - $$ = AF_INVALID; - } - | flag_header - IDL_SERVICE - { - idlc()->setParseState(PS_ServiceSHeadSeen); - if ( (AF_OPTIONAL != $1) && ( AF_INVALID != $1) ) - ErrorHandler::flagError(ErrorCode::ExpectedOptional, $1); - $$ = $1; - } - ; - -service_dcl : - IDL_SERVICE - { - idlc()->setParseState(PS_ServiceSeen); - } - identifier - { - idlc()->setParseState(PS_ServiceIDSeen); - checkIdentifier($3); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstService* pService = nullptr; - - /* - * Make a new service and add it to the enclosing scope - */ - if (pScope != nullptr) - { - pService = new AstService(*$3, pScope); - pScope->addDeclaration(pService); - } - delete $3; - /* - * Push it on the stack - */ - idlc()->scopes()->push(pService); - } - service_dfn - { - /* this service is finished, pop its scope from the stack */ - idlc()->scopes()->pop(); - } - ; - -service_dfn: - service_interface_dfn - | service_obsolete_dfn - ; - -service_interface_dfn: - ':' scoped_name - { - AstScope * scope = idlc()->scopes()->nextToTop(); - // skip the scope pushed by service_dcl - AstDeclaration * decl = scope->lookupByName(*$2); - if (decl != nullptr - && resolveTypedefs(decl)->getNodeType() == NT_interface) - { - if (ErrorHandler::checkPublished(decl)) { - idlc()->scopes()->top()->addDeclaration(decl); - } - } else { - ErrorHandler::lookupError( - ErrorCode::InterfaceMemberLookup, *$2, scopeAsDecl(scope)); - } - delete $2; - } - opt_service_body - { - AstService * s = static_cast< AstService * >(idlc()->scopes()->top()); - if (s != nullptr) { - s->setSingleInterfaceBasedService(); - s->setDefaultConstructor(!$4); - } - } - ; - -opt_service_body: - service_body { $$ = true; } - | /* empty */ { $$ = false; } - ; - -service_body: - '{' - constructors - '}' - ; - -constructors: - constructors constructor - | /* empty */ - ; - -constructor: - identifier - { - checkIdentifier($1); - AstScope * scope = idlc()->scopes()->top(); - AstOperation * ctor = new AstOperation(nullptr, *$1, scope); - delete $1; - scope->addDeclaration(ctor); - idlc()->scopes()->push(ctor); - } - '(' - parameters - ')' - opt_raises - { - static_cast< AstOperation * >(idlc()->scopes()->top())->setExceptions( - $6); - delete $6; - idlc()->scopes()->pop(); - if (static_cast< AstService * >(idlc()->scopes()->top())-> - checkLastConstructor()) - { - ErrorHandler::error0(ErrorCode::SimilarConstructors); - } - } - ';' - ; - -singleton_dcl : - IDL_SINGLETON - { - idlc()->setParseState(PS_SingletonSeen); - } - identifier - { - idlc()->setParseState(PS_SingletonIDSeen); - checkIdentifier($3); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstService* pService = nullptr; - - /* - * Make a new service and add it to the enclosing scope - */ - if (pScope != nullptr) - { - pService = new AstService(NT_singleton, *$3, pScope); - pScope->addDeclaration(pService); - } - delete $3; - /* - * Push it on the stack - */ - idlc()->scopes()->push(pService); - } - singleton_dfn - { - /* this singleton is finished, pop its scope from the stack */ - idlc()->scopes()->pop(); - } - ; - -singleton_dfn: - singleton_interface_dfn - | service_obsolete_dfn - ; - -singleton_interface_dfn: - ':' scoped_name - { - AstScope * scope = idlc()->scopes()->nextToTop(); - // skip the scope (needlessly) pushed by singleton_dcl - AstDeclaration * decl = scope->lookupByName(*$2); - if (decl != nullptr - && resolveTypedefs(decl)->getNodeType() == NT_interface) - { - if (ErrorHandler::checkPublished(decl)) { - idlc()->scopes()->top()->addDeclaration(decl); - } - } else { - ErrorHandler::lookupError( - ErrorCode::InterfaceMemberLookup, *$2, scopeAsDecl(scope)); - } - delete $2; - } - ; - -service_obsolete_dfn: - '{' - { - idlc()->setParseState( - idlc()->scopes()->top()->getScopeNodeType() == NT_service - ? PS_ServiceSqSeen : PS_SingletonSqSeen); - } - service_exports - { - idlc()->setParseState( - idlc()->scopes()->top()->getScopeNodeType() == NT_service - ? PS_ServiceBodySeen : PS_SingletonBodySeen); - } - '}' - { - idlc()->setParseState( - idlc()->scopes()->top()->getScopeNodeType() == NT_service - ? PS_ServiceQsSeen : PS_SingletonQsSeen); - } - ; - -type_dcl : - IDL_TYPEDEF - { - idlc()->setParseState(PS_TypedefSeen); - } - type_declarator {} - | struct_type {} - | enum_type {} - ; - -type_declarator : - type_spec - { - idlc()->setParseState(PS_TypeSpecSeen); - if ($1 != nullptr && $1->getNodeType() == NT_instantiated_struct) { - ErrorHandler::error0(ErrorCode::InstantiatedStructTypeTypedef); - } - } - at_least_one_declarator - { - idlc()->setParseState(PS_DeclaratorsSeen); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstTypeDef* pTypeDef = nullptr; - FeDeclList* pList = $3; - FeDeclarator* pDecl = nullptr; - AstType const * pType = nullptr; - - /* - * Create nodes representing typedefs and add them to the - * enclosing scope - */ - if ( pScope && $1 && pList ) - { - FeDeclList::iterator iter = pList->begin(); - FeDeclList::iterator end = pList->end(); - - while (iter != end) - { - pDecl = (*iter); - if ( !pDecl ) - { - ++iter; - continue; - } - - pType = FeDeclarator::compose($1); - - if ( !pType ) - { - ++iter; - continue; - } - - pTypeDef = new AstTypeDef(pType, pDecl->getName(), pScope); - - pScope->addDeclaration(pTypeDef); - ++iter; - delete pDecl; - } - delete pList; - } - } - ; - -at_least_one_declarator : - declarator declarators - { - if ( $2 ) - { - $2->push_back($1); - $$ = $2; - } else - { - FeDeclList* pList = new FeDeclList; - pList->push_back($1); - $$ = pList; - } - } - ; - -declarators : - declarators - ',' - { - idlc()->setParseState(PS_DeclsCommaSeen); - } - declarator - { - idlc()->setParseState(PS_DeclsDeclSeen); - if ( $1 ) - { - $1->push_back($4); - $$ = $1; - } else - { - FeDeclList* pList = new FeDeclList; - pList->push_back($4); - $$ = pList; - } - } - | /* EMPTY */ - { - $$ = nullptr; - } - ; - -declarator : - identifier - { - // For historic reasons, the struct com.sun.star.uno.Uik contains - // members with illegal names (of the form "m_DataN"); avoid useless - // warnings about them: - AstScope * scope = idlc()->scopes()->top(); - if (scope == nullptr || scope->getScopeNodeType() != NT_struct - || (scopeAsDecl(scope)->getScopedName() - != "com::sun::star::uno::Uik")) - { - checkIdentifier($1); - } - - $$ = new FeDeclarator(*$1); - delete $1; - } - ; - -at_least_one_scoped_name : - scoped_name scoped_names - { - if ($2) - { - $2->push_front(*$1); - $$ = $2; - } else - { - std::list< OString >* pScopedNames = new std::list< OString >; - // coverity[copy_paste_error : FALSE] - this is not a cut and paste - pScopedNames->push_back(*$1); - $$ = pScopedNames; - } - delete $1; - } - ; - -scoped_names : - scoped_names - ',' - { - idlc()->setParseState(PS_SNListCommaSeen); - } - scoped_name - { - idlc()->setParseState(PS_ScopedNameSeen); - if ($1) - { - $1->push_back(*$4); - $$ = $1; - } else - { - std::list< OString >* pNames = new std::list< OString >; - pNames->push_back(*$4); - $$ = pNames; - } - delete $4; - } - | /* EMPTY */ - { - $$ = nullptr; - } - ; - -scoped_name : - identifier - { - idlc()->setParseState(PS_SN_IDSeen); - checkIdentifier($1); - $$ = $1; - } - | IDL_SCOPESEPARATOR - { - idlc()->setParseState(PS_ScopeDelimSeen); - } - identifier - { - checkIdentifier($3); - OString* pName = new OString("::"); - *pName += *$3; - delete $3; - $$ = pName; - } - | scoped_name - IDL_SCOPESEPARATOR - { - } - identifier - { - checkIdentifier($4); - *$1 += "::"; - *$1 += *$4; - delete $4; - $$ = $1; - } - ; - -type_spec : - simple_type_spec - | constructed_type_spec - ; - -simple_type_spec : - fundamental_type - | scoped_name opt_type_args - { - $$ = createNamedType($1, $2); - } - ; - -fundamental_type: - base_type_spec - { - $$ = idlc()->scopes()->bottom()->lookupPrimitiveType($1); - } - | sequence_type_spec - ; - -opt_type_args: - '<' type_args '>' { $$ = $2; } - | /* empty */ { $$ = nullptr; } - ; - -type_args: - type_arg - { - $$ = new DeclList; - $$->push_back(const_cast< AstDeclaration * >($1)); //TODO: const_cast - } - | type_args ',' type_arg - { - $1->push_back(const_cast< AstDeclaration * >($3)); //TODO: const_cast - $$ = $1; - } - ; - -type_arg: - simple_type_spec - { - if ($1 != nullptr && static_cast< AstType const * >($1)->isUnsigned()) { - ErrorHandler::error0(ErrorCode::UnsignedTypeArgument); - } - $$ = $1; - } - ; - -base_type_spec : - integer_type - | floating_pt_type - | char_type - | boolean_type - | byte_type - | any_type - | type_type - | string_type - ; - -integer_type : - signed_int - | unsigned_int - ; - -signed_int : - IDL_LONG - { - $$ = ET_long; - } - | IDL_HYPER - { - $$ = ET_hyper; - } - | IDL_SHORT - { - $$ = ET_short; - } - ; - -unsigned_int : - IDL_UNSIGNED IDL_LONG - { - $$ = ET_ulong; - } - | IDL_UNSIGNED IDL_HYPER - { - $$ = ET_uhyper; - } - | IDL_UNSIGNED IDL_SHORT - { - $$ = ET_ushort; - } - ; - -floating_pt_type : - IDL_DOUBLE - { - $$ = ET_double; - } - | IDL_FLOAT - { - $$ = ET_float; - } - ; - -char_type : - IDL_CHAR - { - $$ = ET_char; - } - ; - -byte_type : - IDL_BYTE - { - $$ = ET_byte; - } - ; - -boolean_type : - IDL_BOOLEAN - { - $$ = ET_boolean; - } - ; - -any_type : - IDL_ANY - { - $$ = ET_any; - } - ; - -type_type : - IDL_TYPE - { - $$ = ET_type; - } - ; - -string_type : - IDL_STRING - { - $$ = ET_string; - } - ; - -constructed_type_spec : - struct_type - | enum_type - ; - -sequence_type_spec : - IDL_SEQUENCE - { - idlc()->setParseState(PS_SequenceSeen); - /* - * Push a sequence marker on scopes stack - */ - idlc()->scopes()->push(nullptr); - } - '<' - { - idlc()->setParseState(PS_SequenceSqSeen); - } - simple_type_spec - { - idlc()->setParseState(PS_SequenceTypeSeen); - } - '>' - { - idlc()->setParseState(PS_SequenceQsSeen); - /* - * Remove sequence marker from scopes stack - */ - if (idlc()->scopes()->top() == nullptr) - idlc()->scopes()->pop(); - /* - * Create a node representing a sequence - */ - AstScope* pScope = idlc()->scopes()->bottom(); - AstDeclaration* pDecl = nullptr; - AstDeclaration* pSeq = nullptr; - - if ( $5 ) - { - AstType const *pType = static_cast<AstType const *>($5); - if ( pType ) - { - pSeq = new AstSequence(pType, pScope); - /* - * Add this AstSequence to the types defined in the global scope - */ - pDecl = pScope->addDeclaration(pSeq); - if ( pSeq != pDecl ) - { - // if sequence type already defined then use it - delete pSeq; - pSeq = pDecl; - } - } - } - $$ = pSeq; - } - | error '>' - { - yyerror("sequence declaration"); - yyerrok; - $$ = nullptr; - } - ; - -struct_type : - structure_header - { - idlc()->setParseState(PS_StructHeaderSeen); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstStruct* pStruct = nullptr; - - if ( pScope ) - { - AstStruct const* pBase= static_cast< AstStruct const* >(resolveTypedefs($1->getInherits())); - pStruct = new AstStruct( - *$1->getName(), $1->getTypeParameters(), pBase, pScope); - pScope->addDeclaration(pStruct); - } - /* - * Push the scope of the struct on the scopes stack - */ - idlc()->scopes()->push(pStruct); - delete $1; - } - '{' - { - idlc()->setParseState(PS_StructSqSeen); - } - at_least_one_member - { - idlc()->setParseState(PS_StructBodySeen); - } - '}' - { - idlc()->setParseState(PS_StructQsSeen); - /* this exception is finished, pop its scope from the stack */ - idlc()->scopes()->pop(); - } - ; - -structure_header : - IDL_STRUCT - { - idlc()->setParseState(PS_StructSeen); - } - identifier - { - idlc()->setParseState(PS_StructIDSeen); - checkIdentifier($3); - } - opt_type_params - inheritance_spec - { - idlc()->setParseState(PS_InheritSpecSeen); - - // Polymorphic struct type templates with base types would cause various - // problems in language bindings, so forbid them here. For example, - // GCC prior to version 3.4 fails with code like - // - // struct Base { ... }; - // template< typename typeparam_T > struct Derived: public Base { - // int member1 CPPU_GCC3_ALIGN(Base); - // ... }; - // - // (Note that plain struct types with instantiated polymorphic struct - // type bases, which might also cause problems in language bindings, are - // already rejected on a syntactic level.) - if ($5 != nullptr && $6 != nullptr) { - ErrorHandler::error0(ErrorCode::StructTypeTemplateWithBase); - } - - $$ = new FeInheritanceHeader(NT_struct, $3, $6, $5); - delete $5; - delete $6; - } - ; - -opt_type_params: - '<' type_params '>' { $$ = $2; } - | /* empty */ { $$ = nullptr; } - ; - -type_params: - identifier - { - $$ = new std::vector< OString >; - $$->push_back(*$1); - delete $1; - } - | type_params ',' identifier - { - if (std::find($1->begin(), $1->end(), *$3) != $1->end()) { - ErrorHandler::error0(ErrorCode::IdenticalTypeParameters); - } - $1->push_back(*$3); - delete $3; - $$ = $1; - } - ; - -at_least_one_member : member members ; - -members : - members member - | /* EMPTY */ - ; - -member : - type_or_parameter - { - idlc()->setParseState(PS_MemberTypeSeen); - } - at_least_one_declarator - { - idlc()->setParseState(PS_MemberDeclsSeen); - } - ';' - { - idlc()->setParseState(PS_MemberDeclsCompleted); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstMember* pMember = nullptr; - FeDeclList* pList = $3; - FeDeclarator* pDecl = nullptr; - AstType const * pType = nullptr; - - // !!! check recursive type - - if ( pScope && pList && $1 ) - { - FeDeclList::iterator iter = pList->begin(); - FeDeclList::iterator end = pList->end(); - while (iter != end) - { - pDecl = (*iter); - if ( !pDecl ) - { - ++iter; - continue; - } - - pType = FeDeclarator::compose($1); - - if ( !pType ) - { - ++iter; - continue; - } - - pMember = new AstMember(pType, pDecl->getName(), pScope); - - if ( !pDecl->checkType($1) ) - { - // WARNING - } - - pScope->addDeclaration(pMember); - ++iter; - delete pDecl; - } - delete pList; - } - } - | error ';' - { - yyerror("member definition"); - yyerrok; - } - ; - -type_or_parameter: - fundamental_type - | scoped_name opt_type_args - { - AstDeclaration const * decl = nullptr; - AstStruct * scope = static_cast< AstStruct * >(idlc()->scopes()->top()); - if (scope != nullptr && $2 == nullptr) { - decl = scope->findTypeParameter(*$1); - } - if (decl != nullptr) { - delete $1; - delete $2; - } else { - decl = createNamedType($1, $2); - if (scope != nullptr && includes(decl, scopeAsDecl(scope))) { - ErrorHandler::error1( - ErrorCode::RecursiveType, scopeAsDecl(scope)); - decl = nullptr; - } - } - $$ = decl; - } - ; - -enum_type : - IDL_ENUM - { - idlc()->setParseState(PS_EnumSeen); - } - identifier - { - idlc()->setParseState(PS_EnumIDSeen); - checkIdentifier($3); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstEnum* pEnum = nullptr; - - /* - * Create a node representing an enum and add it to its - * enclosing scope - */ - if (pScope != nullptr) - { - pEnum = new AstEnum(*$3, pScope); - /* - * Add it to its defining scope - */ - pScope->addDeclaration(pEnum); - } - delete $3; - /* - * Push the enum scope on the scopes stack - */ - idlc()->scopes()->push(pEnum); - - } - '{' - { - idlc()->setParseState(PS_EnumSqSeen); - } - at_least_one_enumerator - { - idlc()->setParseState(PS_EnumBodySeen); - } - '}' - { - idlc()->setParseState(PS_EnumQsSeen); - /* - * Done with this enum. Pop its scope from the scopes stack - */ - if (idlc()->scopes()->top() == nullptr) - $$ = nullptr; - else - { - $$ = static_cast<AstEnum*>(idlc()->scopes()->topNonNull()); - idlc()->scopes()->pop(); - } - } - ; - -at_least_one_enumerator : enumerator enumerators ; - -enumerators : - enumerators - ',' - { - idlc()->setParseState(PS_EnumCommaSeen); - } - enumerator - | /* EMPTY */ - | error ',' - { - yyerror("enumerator definition"); - yyerrok; - } - ; - -enumerator : - identifier - { - checkIdentifier($1); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstEnum* pEnum = nullptr; - AstConstant* pEnumVal = nullptr; - - if ( pScope && pScope->getScopeNodeType() == NT_enum) - { - pEnum = static_cast<AstEnum*>(pScope); - if (pEnum && $1) - { - AstExpression* pExpr = new AstExpression(pEnum->getEnumValueCount()); - pEnumVal = new AstConstant(ET_long , NT_enum_val, - pExpr, *$1, pScope); - } - if ( pEnum->checkValue(pEnumVal->getConstValue()) ) - ErrorHandler::error1(ErrorCode::Eval, pEnum); - - pScope->addDeclaration(pEnumVal); - } - delete $1; - } - | identifier - '=' - const_expr - { - checkIdentifier($1); - - AstScope* pScope = idlc()->scopes()->topNonNull(); - AstEnum* pEnum = nullptr; - AstConstant* pEnumVal = nullptr; - - if ( $3 && pScope && pScope->getScopeNodeType() == NT_enum) - { - $3->evaluate(); - if ( $3->coerce(ET_long) ) - { - pEnum = static_cast<AstEnum*>(pScope); - if (pEnum) - { - pEnumVal = new AstConstant(ET_long , NT_enum_val, - $3, *$1, pScope); - } - if ( pEnum->checkValue(pEnumVal->getConstValue()) ) - ErrorHandler::error1(ErrorCode::Eval, pEnum); - - pScope->addDeclaration(pEnumVal); - } else - { - ErrorHandler::coercionError($3, ET_long); - delete $3; - } - } - delete $1; - } - ; - -identifier: - IDL_IDENTIFIER - | IDL_GET { $$ = new OString("get"); } - | IDL_SET { $$ = new OString("set"); } - | IDL_PUBLISHED { $$ = new OString("published"); } - ; - -%% - -/* - * Report an error situation discovered in a production - */ -void yyerror(char const *errmsg) -{ - ErrorHandler::syntaxError(idlc()->getParseState(), idlc()->getLineNumber(), errmsg); - idlc()->setParseState(PS_NoState); -} - -/* vim:set shiftwidth=4 softtabstop=4 expandtab: */ diff --git a/idlc/source/scanner.l b/idlc/source/scanner.l deleted file mode 100644 index aaf74a564677..000000000000 --- a/idlc/source/scanner.l +++ /dev/null @@ -1,526 +0,0 @@ -/* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4; fill-column: 100 -*- */ -/* - * 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 . - */ - -%option yylineno - -%{ -/* - * scanner.ll - Lexical scanner for IDLC 1.0 - */ - -#include <sal/config.h> - -#include <stdlib.h> -#include <string.h> - -#include <o3tl/safeint.hxx> -#include <o3tl/string_view.hxx> -#include <rtl/character.hxx> - -#if defined _MSC_VER -#pragma warning ( push ) -// Silence warnings about redefinition of INT8_MIN etc in stdint.h -// The flex-generated workdir/LexTarget/idlc/source/scanner.cxx defines them prior to these includes -#pragma warning ( disable : 4005 ) -#endif -#include <idlc.hxx> -#if defined _MSC_VER -#pragma warning ( pop ) -#endif -#include <errorhandler.hxx> -#include <fehelper.hxx> - -#include "attributeexceptions.hxx" - - -class AstExpression; -class AstMember; - -#include <parser.hxx> - -/* handle locations */ -static int yycolumn = 1; - -#define YY_USER_ACTION idlc()->setOffset(yycolumn, yycolumn+yyleng-1); \ - yycolumn += yyleng; - -static sal_Int32 beginLine = 0; -static OString docu; - -static int asciiToInteger(char const * s, sal_Int64 * sval, sal_uInt64 * uval) { - bool neg = false; - if (*s == '-') { - neg = true; - ++s; - } - unsigned int base = 10; - if (*s == '0') { - base = 8; - ++s; - if (*s == 'X' || *s == 'x') { - base = 16; - ++s; - } - } - sal_uInt64 val = 0; - for (; *s != 0; ++s) { - unsigned int n; - if (*s >= '0' && *s <= '9') { - n = *s - '0'; - } else { - switch (*s) { - case 'A': - case 'a': - n = 10; - break; - case 'B': - case 'b': - n = 11; - break; - case 'C': - case 'c': - n = 12; - break; - case 'D': - case 'd': - n = 13; - break; - case 'E': - case 'e': - n = 14; - break; - case 'F': - case 'f': - n = 15; - break; - default: - goto done; - } - } - // The following guarantees the invariant val <= SAL_MAX_UINT64 (because - // base and n are sufficiently small), *if* - // std::numeric_limits<sal_uInt64>::max() == SAL_MAX_UINT64: - sal_uInt64 nval = val * base + n; - if (nval < val) { - ErrorHandler::syntaxError( - PS_NoState, idlc()->getLineNumber(), - "integral constant too large"); - val = 0; - break; - } - val = nval; - } - done: - if (neg) { - if (val < SAL_CONST_UINT64(0x8000000000000000)) { - *sval = -static_cast< sal_Int64 >(val); - } else if (val == SAL_CONST_UINT64(0x8000000000000000)) { - *sval = SAL_MIN_INT64; - } else { - ErrorHandler::syntaxError( - PS_NoState, idlc()->getLineNumber(), - "negative integral constant too large"); - *sval = 0; - } - return IDL_INTEGER_LITERAL; - } else if (val <= o3tl::make_unsigned(SAL_MAX_INT64)) { - *sval = static_cast< sal_Int64 >(val); - return IDL_INTEGER_LITERAL; - } else { - *uval = val; - return IDL_INTEGER_ULITERAL; - } -} - -static double asciiToFloat(const char *s) -{ - double d = 0.0; - double e, k; - sal_Int32 neg = 0; - - if (*s == '-') - { - neg = 1; - s++; - } - while (*s >= '0' && *s <= '9') - { - d = (d * 10) + *s - '0'; - s++; - } - if (*s == '.') - { - s++; - e = 10; - while (*s >= '0' && *s <= '9') - { - d += (*s - '0') / (e * 1.0); - e *= 10; - s++; - } - } - if (*s == 'e' || *s == 'E') - { - s++; - if (*s == '-') - { - s++; - } else - { - if (*s == '+') - s++; - e = 0; - while (*s >= '0' && *s <= '9') - { - e = (e * 10) + *s - '0'; - s++; - } - if (e > 0) - { - for (k = 1; e > 0; k *= 10, e--) - ; - d /= k; - } - } - } - if (neg) d *= -1.0; - return d; -} - -static void idlParsePragma(char* pPragma) -{ - OString pragma(pPragma); - sal_Int32 index = pragma.indexOf("include"); - char* begin = pPragma + index + 8; - char* offset = begin; - while (*offset != ',') offset++; - //OString include = pragma.copy(index + 8, offset - begin); - //unused// idlc()->insertInclude(pragma.copy(index + 8, (sal_Int32)(offset - begin))); -} - -static void parseLineAndFile(char* pBuf) -{ - char *r = pBuf; - char *h; - bool bIsInMain = false; - - /* Skip initial '#' */ - if (*r != '#') - return; - - /* Find line number */ - for (r++; *r == ' ' || *r == '\t' || rtl::isAsciiAlpha(static_cast<unsigned char>(*r)); r++) ; - h = r; - for (; *r != '\0' && *r != ' ' && *r != '\t'; r++) ; - *r++ = 0; - idlc()->setLineNumber(sal_uInt32(atol(h))); - yylineno = atol(h); - - /* Find file name, if present */ - for (; *r != '"'; r++) - { - if (*r == '\n' || *r == '\0') - return; - } - h = ++r; - for (; *r != '"'; r++) ; - *r = 0; - if (*h == '\0') - idlc()->setFileName("standard input"); - else - idlc()->setFileName(OString(h)); - - bIsInMain = idlc()->getFileName() == idlc()->getRealFileName(); - idlc()->setInMainfile(bIsInMain); -} - -// Suppress any warnings from generated code: -#ifdef __GNUC__ -#pragma GCC diagnostic ignored "-Wunused-function" -#pragma GCC diagnostic ignored "-Wunused-label" -#elif defined _MSC_VER -/**/ -#ifdef yywrap -#undef yywrap -#define yywrap() 1 -#endif -/**/ -#endif -#define YY_NO_UNISTD_H -%} - -%option noyywrap -%option never-interactive - -%x DOCU -%x COMMENT - -DIGIT [0-9] -OCT_DIGIT [0-7] -HEX_DIGIT [a-fA-F0-9] -CAPITAL [A-Z] -ALPHA [a-zA-Z] -INT_LITERAL [1-9][0-9]* -OCT_LITERAL 0{OCT_DIGIT}* -HEX_LITERAL (0x|0X){HEX_DIGIT}* - -IDENTIFIER_NEW ({ALPHA}({ALPHA}|{DIGIT})*)|({CAPITAL}("_"?({ALPHA}|{DIGIT})+)*) -IDENTIFIER ("_"?({ALPHA}|{DIGIT})+)* - -%% - -[ \t\r]+ ; /* eat up whitespace */ -[\n] { - idlc()->incLineNumber(); - yycolumn = 1; - yylineno++; -} - -attribute return IDL_ATTRIBUTE; -bound return IDL_BOUND; -const return IDL_CONST; -constants return IDL_CONSTANTS; -constrained return IDL_CONSTRAINED; -enum return IDL_ENUM; -exception return IDL_EXCEPTION; -interface return IDL_INTERFACE; -maybeambiguous return IDL_MAYBEAMBIGUOUS; -maybedefault return IDL_MAYBEDEFAULT; -maybevoid return IDL_MAYBEVOID; -module return IDL_MODULE; -needs return IDL_NEEDS; -observes return IDL_OBSERVES; -optional return IDL_OPTIONAL; -property return IDL_PROPERTY; -raises return IDL_RAISES; -readonly return IDL_READONLY; -removable return IDL_REMOVABLE; -service return IDL_SERVICE; -sequence return IDL_SEQUENCE; -singleton return IDL_SINGLETON; -struct return IDL_STRUCT; -transient return IDL_TRANSIENT; -typedef return IDL_TYPEDEF; - -any return IDL_ANY; -boolean return IDL_BOOLEAN; -byte return IDL_BYTE; -char return IDL_CHAR; -double return IDL_DOUBLE; -float return IDL_FLOAT; -hyper return IDL_HYPER; -long return IDL_LONG; -short return IDL_SHORT; -string return IDL_STRING; -type return IDL_TYPE; -unsigned return IDL_UNSIGNED; -void return IDL_VOID; - -TRUE return IDL_TRUE; -True return IDL_TRUE; -FALSE return IDL_FALSE; -False return IDL_FALSE; - -in return IDL_IN; -out return IDL_OUT; -inout return IDL_INOUT; - -get return IDL_GET; -set return IDL_SET; - -published return IDL_PUBLISHED; - -"..." return IDL_ELLIPSIS; - -("-")?{INT_LITERAL}+(l|L|u|U)? { - return asciiToInteger(yytext, &yylval.ival, &yylval.uval); - } - -("-")?{OCT_LITERAL}+(l|L|u|U)? { - return asciiToInteger(yytext, &yylval.ival, &yylval.uval); - } - -("-")?{HEX_LITERAL}+(l|L|u|U)? { - return asciiToInteger(yytext, &yylval.ival, &yylval.uval); - } - -("-")?{DIGIT}+(e|E)(("+"|"-")?{DIGIT}+)?(f|F)? | -("-")?{DIGIT}*"."{DIGIT}+((e|E)("+"|"-")?{DIGIT}+)?(f|F)? { - yylval.dval = asciiToFloat( yytext ); - return IDL_FLOATING_PT_LITERAL; - } - -{IDENTIFIER} { - yylval.sval = new OString(yytext); - return IDL_IDENTIFIER; - } - -\<\< { - yylval.strval = yytext; - return IDL_LEFTSHIFT; - } -\>\> { - yylval.strval = yytext; - return IDL_RIGHTSHIFT; - } -\:\: { - yylval.strval = yytext; - return IDL_SCOPESEPARATOR; - } - -"/*" { - BEGIN( COMMENT ); - docu = OString(); - beginLine = idlc()->getLineNumber(); - } - -"/***" { - BEGIN( COMMENT ); - docu = OString(); - beginLine = idlc()->getLineNumber(); - } - -<COMMENT>[^*]+ { - docu += yytext; - } - -<COMMENT>"*"[^*/]+ { - docu += yytext; - } - -<COMMENT>"**" { - docu += yytext; - } - -<COMMENT>[*]+"/" { - docu = docu.trim(); - sal_Int32 nIndex = 0; - int count = 0; - do { o3tl::getToken(docu, 0, '\n', nIndex ); count++; } while( nIndex != -1 ); - idlc()->setLineNumber( beginLine + count - 1); - BEGIN( INITIAL ); - } - -"/**" { - BEGIN( DOCU ); - docu = OString(); - beginLine = idlc()->getLineNumber(); - } - -<DOCU>[^*\n]+ { - docu += yytext; - } - -<DOCU>"\n"[ \t]*"*"{1} { - idlc()->setLineNumber( idlc()->getLineNumber() + 1); - docu += "\n"; - } - -<DOCU>"\n" { - idlc()->setLineNumber( idlc()->getLineNumber() + 1); - docu += yytext; - } - -<DOCU>"*"[^*^/\n]* { - docu += yytext; - } - -<DOCU>"\n"[ \t]*"*/" { - docu = docu.trim(); - sal_Int32 nIndex = 0; - int count = 0; - do { o3tl::getToken(docu, 0, '\n', nIndex ); count++; } while( nIndex != -1 ); - idlc()->setLineNumber( beginLine + count - 1); - if ( (nIndex = docu.indexOf("/*")) >= 0 || (nIndex = docu.indexOf("///")) >= 0 ) - { - if ( 0 != nIndex && - (docu[nIndex - 1] != '"' && docu[nIndex - 1] != ':') ) - ErrorHandler::syntaxError(PS_NoState, idlc()->getLineNumber(), - "nested documentation strings are not allowed!"); - } - idlc()->setDocumentation(docu); - BEGIN( INITIAL ); - } - -<DOCU>"*/" { - docu = docu.trim(); - sal_Int32 nIndex = 0; - int count = 0; - do { o3tl::getToken(docu, 0, '\n', nIndex ); count++; } while( nIndex != -1 ); - idlc()->setLineNumber( beginLine + count - 1); - if ( docu.indexOf("/*") >= 0 || docu.indexOf("//") >= 0 ) - { - if ( 0 != nIndex && - (docu[nIndex - 1] != '"' && docu[nIndex - 1] != ':') ) - ErrorHandler::syntaxError(PS_NoState, idlc()->getLineNumber(), - "nested documentation strings are not allowed!"); - } - idlc()->setDocumentation(docu); - BEGIN( INITIAL ); - } - -"//"[^/]{1}.*"\n" { - /* only a comment */ - OString docStr(yytext); - docStr = docStr.copy( 0, docStr.lastIndexOf('\n') ); - docStr = docStr.copy( docStr.lastIndexOf('/')+1 ); - docStr = docStr.trim(); - idlc()->incLineNumber(); - } - -"///".*"\n" { - OString docStr(yytext); - docStr = docStr.copy( 0, docStr.lastIndexOf('\n') ); - docStr = docStr.copy( docStr.lastIndexOf('/')+1 ); - docStr = docStr.trim(); - idlc()->incLineNumber(); - idlc()->setDocumentation(docStr); - } - -. return yytext[0]; - -^#[ \t]*line[ \t]*[0-9]*" ""\""[^\"]*"\""\n { - parseLineAndFile(yytext); -} - -^#[ \t]*[0-9]*" ""\""[^\"]*"\""" "[0-9]*\n { - parseLineAndFile(yytext); -} - -^#[ \t]*[0-9]*" ""\""[^\"]*"\""\n { - parseLineAndFile(yytext); -} - -^#[ \t]*[0-9]*\n { - parseLineAndFile(yytext); -} - -^#[ \t]*ident.*\n { - /* ignore cpp ident */ - idlc()->incLineNumber(); -} - -^#[ \t]*pragma[ \t].*\n { /* remember pragma */ - idlParsePragma(yytext); - idlc()->incLineNumber(); -} - -%% - -/* vim:set shiftwidth=4 softtabstop=4 expandtab cinoptions=b1,g0,N-s cinkeys+=0=break: */ |