stoc/source/corereflection/crenum.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 "base.hxx"
  21
  22 #include <cppuhelper/queryinterface.hxx>
  23 #include <cppuhelper/typeprovider.hxx>
  24
  25 #include <com/sun/star/reflection/XIdlField2.hpp>
  26
  27 using namespace css::lang;
  28 using namespace css::reflection;
  29 using namespace css::uno;
  30
  31 namespace stoc_corefl
  32 {
  33
  34 namespace {
  35
  36 class IdlEnumFieldImpl
  37     : public IdlMemberImpl
  38     , public XIdlField
  39     , public XIdlField2
  40 {
  41     sal_Int32               _nValue;
  42
  43 public:
  44     IdlEnumFieldImpl( IdlReflectionServiceImpl * pReflection, const OUString & rName,
  45                       typelib_TypeDescription * pTypeDescr, sal_Int32 nValue )
  46         : IdlMemberImpl( pReflection, rName, pTypeDescr, pTypeDescr )
  47         , _nValue( nValue )
  48         {}
  49
  50     // XInterface
  51     virtual Any SAL_CALL queryInterface( const Type & rType ) override;
  52     virtual void SAL_CALL acquire() throw() override;
  53     virtual void SAL_CALL release() throw() override;
  54
  55     // XTypeProvider
  56     virtual Sequence< Type > SAL_CALL getTypes() override;
  57     virtual Sequence< sal_Int8 > SAL_CALL getImplementationId() override;
  58
  59     // XIdlMember
  60     virtual Reference< XIdlClass > SAL_CALL getDeclaringClass() override;
  61     virtual OUString SAL_CALL getName() override;
  62     // XIdlField
  63     virtual Reference< XIdlClass > SAL_CALL getType() override;
  64     virtual FieldAccessMode SAL_CALL getAccessMode() override;
  65     virtual Any SAL_CALL get( const Any & rObj ) override;
  66     virtual void SAL_CALL set( const Any & rObj, const Any & rValue ) override;
  67     // XIdlField2: getType, getAccessMode and get are equal to XIdlField
  68     virtual void SAL_CALL set( Any & rObj, const Any & rValue ) override;
  69 };
  70
  71 }
  72
  73 // XInterface
  74
  75 Any IdlEnumFieldImpl::queryInterface( const Type & rType )
  76 {
  77     Any aRet( ::cppu::queryInterface( rType,
  78                                       static_cast< XIdlField * >( this ),
  79                                       static_cast< XIdlField2 * >( this ) ) );
  80     return (aRet.hasValue() ? aRet : IdlMemberImpl::queryInterface( rType ));
  81 }
  82
  83 void IdlEnumFieldImpl::acquire() throw()
  84 {
  85     IdlMemberImpl::acquire();
  86 }
  87
  88 void IdlEnumFieldImpl::release() throw()
  89 {
  90     IdlMemberImpl::release();
  91 }
  92
  93 // XTypeProvider
  94
  95 Sequence< Type > IdlEnumFieldImpl::getTypes()
  96 {
  97     static cppu::OTypeCollection s_aTypes(
  98         cppu::UnoType<XIdlField2>::get(),
  99         cppu::UnoType<XIdlField>::get(),
 100         IdlMemberImpl::getTypes() );
 101
 102     return s_aTypes.getTypes();
 103 }
 104
 105 Sequence< sal_Int8 > IdlEnumFieldImpl::getImplementationId()
 106 {
 107     return css::uno::Sequence<sal_Int8>();
 108 }
 109
 110 // XIdlMember
 111
 112 Reference< XIdlClass > IdlEnumFieldImpl::getDeclaringClass()
 113 {
 114     return IdlMemberImpl::getDeclaringClass();
 115 }
 116
 117 OUString IdlEnumFieldImpl::getName()
 118 {
 119     return IdlMemberImpl::getName();
 120 }
 121
 122 // XIdlField
 123
 124 Reference< XIdlClass > IdlEnumFieldImpl::getType()
 125 {
 126     return getDeclaringClass();
 127 }
 128
 129 FieldAccessMode IdlEnumFieldImpl::getAccessMode()
 130 {
 131     return FieldAccessMode_READONLY;
 132 }
 133
 134 Any IdlEnumFieldImpl::get( const Any & )
 135 {
 136     return Any( &_nValue, getTypeDescr() );
 137 }
 138
 139 void IdlEnumFieldImpl::set( const Any &, const Any & )
 140 {
 141     throw IllegalAccessException(
 142         "cannot set enum field, it is constant",
 143         static_cast<XWeak *>(static_cast<OWeakObject *>(this)) );
 144 }
 145
 146 void IdlEnumFieldImpl::set( Any &, const Any & )
 147 {
 148     throw IllegalAccessException(
 149         "cannot set enum field, it is constant",
 150         static_cast<XWeak *>(static_cast<OWeakObject *>(this)) );
 151 }
 152
 153
 154 EnumIdlClassImpl::~EnumIdlClassImpl()
 155 {
 156 }
 157
 158 // IdlClassImpl modifications
 159
 160 Reference< XIdlField > EnumIdlClassImpl::getField( const OUString & rName )
 161 {
 162     if (! _pFields)
 163         getFields(); // init members
 164
 165     const OUString2Field::const_iterator iFind( _aName2Field.find( rName ) );
 166     if (iFind != _aName2Field.end())
 167         return (*iFind).second;
 168     else
 169         return Reference< XIdlField >();
 170 }
 171
 172 Sequence< Reference< XIdlField > > EnumIdlClassImpl::getFields()
 173 {
 174     if (! _pFields)
 175     {
 176         ::osl::MutexGuard aGuard( getMutexAccess() );
 177         if (! _pFields)
 178         {
 179             sal_Int32 nFields = getTypeDescr()->nEnumValues;
 180             Sequence< Reference< XIdlField > > * pFields =
 181                 new Sequence< Reference< XIdlField > >( nFields );
 182             Reference< XIdlField > * pSeq = pFields->getArray();
 183
 184             while (nFields--)
 185             {
 186                 OUString aName( getTypeDescr()->ppEnumNames[nFields] );
 187                 _aName2Field[aName] = pSeq[nFields] = new IdlEnumFieldImpl(
 188                     getReflection(), aName, IdlClassImpl::getTypeDescr(), getTypeDescr()->pEnumValues[nFields] );
 189             }
 190
 191             _pFields.reset( pFields );
 192         }
 193     }
 194     return *_pFields;
 195 }
 196
 197 void EnumIdlClassImpl::createObject( Any & rObj )
 198 {
 199     sal_Int32 eVal =
 200         reinterpret_cast<typelib_EnumTypeDescription *>(IdlClassImpl::getTypeDescr())->nDefaultEnumValue;
 201     rObj.setValue( &eVal, IdlClassImpl::getTypeDescr() );
 202 }
 203
 204 }
 205
 206
 207 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */