idl/source/objects/types.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 <sal/config.h>
  21
  22 #include <algorithm>
  23
  24 #include <tools/debug.hxx>
  25
  26 #include <types.hxx>
  27 #include <globals.hxx>
  28 #include <database.hxx>
  29
  30 SvMetaAttribute::SvMetaAttribute()
  31 {
  32 }
  33
  34 SvMetaAttribute::SvMetaAttribute( SvMetaType * pType )
  35     : aType( pType )
  36 {
  37 }
  38
  39 SvMetaType * SvMetaAttribute::GetType() const
  40 {
  41     if( aType.is() || !GetRef() ) return aType.get();
  42     return static_cast<SvMetaAttribute *>(GetRef())->GetType();
  43 }
  44
  45 const SvIdentifier & SvMetaAttribute::GetSlotId() const
  46 {
  47     if( aSlotId.IsSet() || !GetRef() ) return aSlotId;
  48     return static_cast<SvMetaAttribute *>(GetRef())->GetSlotId();
  49 }
  50
  51 bool SvMetaAttribute::Test( SvTokenStream & rInStm )
  52 {
  53     if( GetType()->IsItem() && !GetSlotId().IsSet() )
  54     {
  55         throw SvParseException( rInStm, "slot without id declared" );
  56     }
  57     return true;
  58 }
  59
  60 bool SvMetaAttribute::ReadSvIdl( SvIdlDataBase & rBase,
  61                                  SvTokenStream & rInStm )
  62 {
  63     sal_uInt32  nTokPos     = rInStm.Tell();
  64     if( !GetType() )
  65         // no type in ctor passed on
  66         aType = rBase.ReadKnownType( rInStm );
  67     bool bOk = false;
  68     if( GetType() )
  69     {
  70         ReadNameSvIdl( rInStm );
  71         aSlotId.ReadSvIdl( rBase, rInStm );
  72
  73         bOk = true;
  74         SvToken& rTok  = rInStm.GetToken();
  75         if( rTok.IsChar() && rTok.GetChar() == '(' )
  76         {
  77             tools::SvRef<SvMetaType> xT(new SvMetaType() );
  78             xT->SetRef( GetType() );
  79             aType = xT;
  80             bOk = aType->ReadMethodArgs( rBase, rInStm );
  81         }
  82         if( bOk )
  83             bOk = SvMetaObject::ReadSvIdl( rBase, rInStm );
  84     }
  85     else
  86     {
  87         SvToken& rTok = rInStm.GetToken();
  88         rBase.SetError( "unknown type of token. Each new SID needs an "
  89                         "item statement in an SDI file, eg. "
  90                         "SfxVoidItem FooItem  " + rTok.GetTokenAsString() +
  91                         " ... which describes the slot more fully", rTok );
  92     }
  93
  94     if( !bOk )
  95         rInStm.Seek( nTokPos );
  96     return bOk;
  97 }
  98
  99 sal_uLong SvMetaAttribute::MakeSfx( OStringBuffer& rAttrArray ) const
 100 {
 101     SvMetaType * pType = GetType();
 102     DBG_ASSERT( pType, "no type for attribute" );
 103     SvMetaType * pBaseType = pType->GetBaseType();
 104     DBG_ASSERT( pBaseType, "no base type for attribute" );
 105     if( pBaseType->GetMetaTypeType() == MetaTypeType::Struct )
 106         return pBaseType->MakeSfx( rAttrArray );
 107     else
 108     {
 109         rAttrArray.append('{');
 110         rAttrArray.append(GetSlotId().getString());
 111         rAttrArray.append(",\"");
 112         rAttrArray.append(GetName());
 113         rAttrArray.append("\"}");
 114         return 1;
 115     }
 116 }
 117
 118 void SvMetaAttribute::Insert(SvSlotElementList&)
 119 {
 120 }
 121
 122 #define CTOR                            \
 123     : nType( MetaTypeType::Base )       \
 124     , bIsItem( false )                  \
 125
 126 SvMetaType::SvMetaType()
 127     CTOR
 128 {
 129 }
 130
 131 SvMetaType::SvMetaType( const OString& rName )
 132     CTOR
 133 {
 134     SetName( rName );
 135 }
 136
 137 SvMetaType::~SvMetaType()
 138 {}
 139
 140 void SvMetaType::SetType( MetaTypeType nT )
 141 {
 142     nType = nT;
 143 }
 144
 145 SvMetaType * SvMetaType::GetBaseType() const
 146 {
 147     if( GetRef() && GetMetaTypeType() == MetaTypeType::Base )
 148         return static_cast<SvMetaType *>(GetRef())->GetBaseType();
 149     return const_cast<SvMetaType *>(this);
 150 }
 151
 152 SvMetaType * SvMetaType::GetReturnType() const
 153 {
 154     DBG_ASSERT( GetMetaTypeType() == MetaTypeType::Method, "no method" );
 155     DBG_ASSERT( GetRef(), "no return type" );
 156     return static_cast<SvMetaType *>(GetRef());
 157 }
 158
 159 bool SvMetaType::ReadHeaderSvIdl( SvTokenStream & rInStm )
 160 {
 161     bool bOk = false;
 162     sal_uInt32  nTokPos = rInStm.Tell();
 163     SvToken& rTok = rInStm.GetToken_Next();
 164
 165     if( rTok.Is( SvHash_interface() ) )
 166     {
 167         SetType( MetaTypeType::Interface );
 168         bOk = ReadNameSvIdl( rInStm );
 169     }
 170     else if( rTok.Is( SvHash_shell() ) )
 171     {
 172         SetType( MetaTypeType::Shell );
 173         bOk = ReadNameSvIdl( rInStm );
 174     }
 175     if( !bOk )
 176         rInStm.Seek( nTokPos );
 177     return bOk;
 178 }
 179
 180 bool SvMetaType::ReadSvIdl( SvIdlDataBase & rBase,
 181                             SvTokenStream & rInStm )
 182 {
 183     if( ReadHeaderSvIdl( rInStm ) )
 184     {
 185         rBase.Write(OString('.'));
 186         return SvMetaReference::ReadSvIdl( rBase, rInStm );
 187     }
 188     return false;
 189 }
 190
 191 void SvMetaType::ReadContextSvIdl( SvIdlDataBase & rBase,
 192                                       SvTokenStream & rInStm )
 193 {
 194     tools::SvRef<SvMetaAttribute> xAttr( new SvMetaAttribute() );
 195     if( xAttr->ReadSvIdl( rBase, rInStm ) )
 196     {
 197         if( xAttr->Test( rInStm ) )
 198             GetAttrList().push_back( xAttr.get() );
 199     }
 200 }
 201
 202 sal_uLong SvMetaType::MakeSfx( OStringBuffer& rAttrArray )
 203 {
 204     sal_uLong nC = 0;
 205
 206     if( GetBaseType()->GetMetaTypeType() == MetaTypeType::Struct )
 207     {
 208         sal_uLong nAttrCount = GetAttrCount();
 209         // write the single attributes
 210         for( sal_uLong n = 0; n < nAttrCount; n++ )
 211         {
 212             nC += aAttrList[n]->MakeSfx( rAttrArray );
 213             if( n +1 < nAttrCount )
 214                 rAttrArray.append(", ");
 215         }
 216     }
 217     return nC;
 218 }
 219
 220 void SvMetaType::WriteSfxItem(
 221     const OString& rItemName, SvIdlDataBase const & rBase, SvStream& rOutStm )
 222 {
 223     WriteStars( rOutStm );
 224     OString aVarName = " a" + rItemName + "_Impl";
 225
 226     OStringBuffer aAttrArray(1024);
 227     sal_uLong   nAttrCount = MakeSfx( aAttrArray );
 228     OString aAttrCount( OString::number(nAttrCount));
 229     OString aTypeName = "SfxType" + aAttrCount;
 230
 231     bool bExport = false, bReturn = false;
 232     // these are exported from sfx library
 233     if (rItemName == "SfxBoolItem" ||
 234         rItemName == "SfxStringItem" ||
 235         rItemName == "SfxUInt16Item" ||
 236         rItemName == "SfxUInt32Item" ||
 237         rItemName == "SfxVoidItem")
 238     {
 239         bExport = true;
 240         if (!rBase.sSlotMapFile.endsWith("sfxslots.hxx"))
 241             bReturn = true;
 242     }
 243
 244     rOutStm.WriteCharPtr( "extern " );
 245     if (bExport)
 246         rOutStm.WriteCharPtr( "SFX2_DLLPUBLIC " );
 247     rOutStm.WriteOString( aTypeName )
 248            .WriteOString( aVarName ).WriteChar( ';' ) << endl;
 249     if (bReturn)
 250         return;
 251
 252     // write the implementation part
 253     rOutStm.WriteCharPtr( "#ifdef SFX_TYPEMAP" ) << endl;
 254     rOutStm.WriteCharPtr( "#if !defined(_WIN32) && ((defined(DISABLE_DYNLOADING) && (defined(ANDROID) || defined(IOS) || defined(LINUX))) || STATIC_LINKING)" ) << endl;
 255     rOutStm.WriteCharPtr( "__attribute__((__weak__))" ) << endl;
 256     rOutStm.WriteCharPtr( "#endif" ) << endl;
 257     rOutStm.WriteOString( aTypeName ).WriteOString( aVarName )
 258            .WriteCharPtr( " = " ) << endl;
 259     rOutStm.WriteChar( '{' ) << endl;
 260
 261     rOutStm.WriteCharPtr( "\tcreateSfxPoolItem<" ).WriteOString( rItemName )
 262         .WriteCharPtr(">, &typeid(").WriteOString( rItemName ).WriteCharPtr( "), " );
 263     rOutStm.WriteOString( aAttrCount );
 264     if( nAttrCount )
 265     {
 266         rOutStm.WriteCharPtr( ", { " );
 267         // write the single attributes
 268         rOutStm.WriteCharPtr( aAttrArray.getStr() );
 269         rOutStm.WriteCharPtr( " }" );
 270     }
 271     rOutStm << endl;
 272     rOutStm.WriteCharPtr( "};" ) << endl;
 273     rOutStm.WriteCharPtr( "#endif" ) << endl << endl;
 274 }
 275
 276 void SvMetaType::WriteSfx( SvIdlDataBase & rBase, SvStream & rOutStm )
 277 {
 278     if( IsItem() )
 279     {
 280         if( GetBaseType()->GetMetaTypeType() == MetaTypeType::Struct )
 281             GetBaseType()->WriteSfxItem( GetName(), rBase, rOutStm );
 282         else
 283             WriteSfxItem( GetName(), rBase, rOutStm );
 284     }
 285 }
 286
 287 bool SvMetaType::ReadMethodArgs( SvIdlDataBase & rBase,
 288                                  SvTokenStream & rInStm )
 289 {
 290     sal_uInt32  nTokPos = rInStm.Tell();
 291     if( rInStm.ReadIf( '(' ) )
 292     {
 293         DoReadContextSvIdl( rBase, rInStm );
 294         if( rInStm.ReadIf( ')' ) )
 295         {
 296             SetType( MetaTypeType::Method );
 297             return true;
 298         }
 299     }
 300     rInStm.Seek( nTokPos );
 301     return false;
 302 }
 303
 304 SvMetaTypeString::SvMetaTypeString()
 305     : SvMetaType( "String" )
 306 {
 307 }
 308
 309 SvMetaEnumValue::SvMetaEnumValue()
 310 {
 311 }
 312
 313 SvMetaTypeEnum::SvMetaTypeEnum()
 314 {
 315 }
 316
 317 SvMetaTypevoid::SvMetaTypevoid()
 318     : SvMetaType( "void" )
 319 {
 320 }
 321
 322 /* vim:set shiftwidth=4 softtabstop=4 expandtab: */