idlc/source/aststruct.cxx

   1 /* -*- Mode: C++; tab-width: 4; indent-tabs-mode: nil; c-basic-offset: 4 -*- */
   2 /*
   3  * This file is part of the LibreOffice project.
   4  *
   5  * This Source Code Form is subject to the terms of the Mozilla Public
   6  * License, v. 2.0. If a copy of the MPL was not distributed with this
   7  * file, You can obtain one at http://mozilla.org/MPL/2.0/.
   8  *
   9  * This file incorporates work covered by the following license notice:
  10  *
  11  *   Licensed to the Apache Software Foundation (ASF) under one or more
  12  *   contributor license agreements. See the NOTICE file distributed
  13  *   with this work for additional information regarding copyright
  14  *   ownership. The ASF licenses this file to you under the Apache
  15  *   License, Version 2.0 (the "License"); you may not use this file
  16  *   except in compliance with the License. You may obtain a copy of
  17  *   the License at http://www.apache.org/licenses/LICENSE-2.0 .
  18  */
  19
  20 #include <aststruct.hxx>
  21 #include <astmember.hxx>
  22
  23 #include <registry/version.h>
  24 #include <registry/writer.hxx>
  25
  26 AstStruct::AstStruct(
  27     const OString& name, std::vector< OString > const & typeParameters,
  28     AstStruct const* pBaseType, AstScope* pScope)
  29     : AstType(NT_struct, name, pScope)
  30     , AstScope(NT_struct)
  31     , m_pBaseType(pBaseType)
  32 {
  33     for (auto const& elem : typeParameters)
  34     {
  35         m_typeParameters.emplace_back(
  36             new AstType(NT_type_parameter, elem, nullptr));
  37     }
  38 }
  39
  40 AstStruct::AstStruct(const NodeType type,
  41                         const OString& name,
  42                        AstStruct const* pBaseType,
  43                      AstScope* pScope)
  44     : AstType(type, name, pScope)
  45     , AstScope(type)
  46     , m_pBaseType(pBaseType)
  47 {
  48 }
  49
  50 AstStruct::~AstStruct()
  51 {
  52 }
  53
  54 AstDeclaration const * AstStruct::findTypeParameter(std::string_view name)
  55     const
  56 {
  57     for (auto const& elem : m_typeParameters)
  58     {
  59         if (elem->getLocalName() == name) {
  60             return elem.get();
  61         }
  62     }
  63     return nullptr;
  64 }
  65
  66 bool AstStruct::isType() const {
  67     return getNodeType() == NT_struct
  68         ? getTypeParameterCount() == 0 : AstDeclaration::isType();
  69 }
  70
  71 bool AstStruct::dump(RegistryKey& rKey)
  72 {
  73     RegistryKey localKey;
  74     if (rKey.createKey( OStringToOUString(getFullName(), RTL_TEXTENCODING_UTF8 ), localKey) != RegError::NO_ERROR)
  75     {
  76         fprintf(stderr, "%s: warning, could not create key '%s' in '%s'\n",
  77                 idlc()->getOptions()->getProgramName().getStr(),
  78                 getFullName().getStr(), OUStringToOString(rKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
  79         return false;
  80     }
  81
  82     if (m_typeParameters.size() > SAL_MAX_UINT16) {
  83         fprintf(
  84             stderr,
  85             ("%s: polymorphic struct type template %s has too many type"
  86              " parameters\n"),
  87             idlc()->getOptions()->getProgramName().getStr(),
  88             getScopedName().getStr());
  89         return false;
  90     }
  91
  92     sal_uInt16 nMember = getNodeCount(NT_member);
  93
  94     RTTypeClass typeClass = RT_TYPE_STRUCT;
  95     if ( getNodeType() == NT_exception )
  96         typeClass = RT_TYPE_EXCEPTION;
  97
  98     typereg::Writer aBlob(
  99         (m_typeParameters.empty() && !m_bPublished
 100          ? TYPEREG_VERSION_0 : TYPEREG_VERSION_1),
 101         getDocumentation(), "", typeClass, m_bPublished,
 102         OStringToOUString(getRelativName(), RTL_TEXTENCODING_UTF8),
 103         m_pBaseType == nullptr ? 0 : 1, nMember, 0,
 104         static_cast< sal_uInt16 >(m_typeParameters.size()));
 105     if (m_pBaseType != nullptr) {
 106         aBlob.setSuperTypeName(
 107             0,
 108             OStringToOUString(
 109                 m_pBaseType->getRelativName(), RTL_TEXTENCODING_UTF8));
 110     }
 111
 112     if ( nMember > 0 )
 113     {
 114         DeclList::const_iterator iter = getIteratorBegin();
 115         DeclList::const_iterator end = getIteratorEnd();
 116         AstMember*  pMember = nullptr;
 117         sal_uInt16  index = 0;
 118         while ( iter != end )
 119         {
 120             AstDeclaration* pDecl = *iter;
 121             if ( pDecl->getNodeType() == NT_member )
 122             {
 123                 pMember = static_cast<AstMember*>(pDecl);
 124                 RTFieldAccess flags = RTFieldAccess::READWRITE;
 125                 OString typeName;
 126                 if (pMember->getType()->getNodeType() == NT_type_parameter) {
 127                     flags |= RTFieldAccess::PARAMETERIZED_TYPE;
 128                     typeName = pMember->getType()->getLocalName();
 129                 } else {
 130                     typeName = pMember->getType()->getRelativName();
 131                 }
 132                 aBlob.setFieldData(
 133                     index++, pMember->getDocumentation(), "", flags,
 134                     OStringToOUString(
 135                         pMember->getLocalName(), RTL_TEXTENCODING_UTF8),
 136                     OStringToOUString(typeName, RTL_TEXTENCODING_UTF8),
 137                     RTConstValue());
 138             }
 139             ++iter;
 140         }
 141     }
 142
 143     sal_uInt16 index = 0;
 144     for (auto const& elem : m_typeParameters)
 145     {
 146         aBlob.setReferenceData(
 147             index++, "", RTReferenceType::TYPE_PARAMETER, RTFieldAccess::INVALID,
 148             OStringToOUString(
 149                 elem->getLocalName(), RTL_TEXTENCODING_UTF8));
 150     }
 151
 152     sal_uInt32 aBlobSize;
 153     void const * pBlob = aBlob.getBlob(&aBlobSize);
 154
 155     if (localKey.setValue("", RegValueType::BINARY,
 156                             const_cast<RegValue>(pBlob), aBlobSize) != RegError::NO_ERROR)
 157     {
 158         fprintf(stderr, "%s: warning, could not set value of key \"%s\" in %s\n",
 159                 idlc()->getOptions()->getProgramName().getStr(),
 160                 getFullName().getStr(), OUStringToOString(localKey.getRegistryName(), RTL_TEXTENCODING_UTF8).getStr());
 161         return false;
 162     }
 163
 164     return true;
 165 }
 166
 167 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */