Files
libreoffice/idl/source/objects/basobj.cxx
Rüdiger Timm 02d02d13a9 INTEGRATION: CWS ooo19126 (1.2.30); FILE MERGED
2005/09/05 12:56:58 rt 1.2.30.1: #i54170# Change license header: remove SISSL
2005-09-07 16:49:27 +00:00

839 lines
24 KiB
C++

/*************************************************************************
*
* OpenOffice.org - a multi-platform office productivity suite
*
* $RCSfile: basobj.cxx,v $
*
* $Revision: 1.3 $
*
* last change: $Author: rt $ $Date: 2005-09-07 17:49:27 $
*
* The Contents of this file are made available subject to
* the terms of GNU Lesser General Public License Version 2.1.
*
*
* GNU Lesser General Public License Version 2.1
* =============================================
* Copyright 2005 by Sun Microsystems, Inc.
* 901 San Antonio Road, Palo Alto, CA 94303, USA
*
* This library is free software; you can redistribute it and/or
* modify it under the terms of the GNU Lesser General Public
* License version 2.1, as published by the Free Software Foundation.
*
* This library is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
* Lesser General Public License for more details.
*
* You should have received a copy of the GNU Lesser General Public
* License along with this library; if not, write to the Free Software
* Foundation, Inc., 59 Temple Place, Suite 330, Boston,
* MA 02111-1307 USA
*
************************************************************************/
#include <ctype.h>
#include <stdio.h>
#include <tools/debug.hxx>
#include <attrib.hxx>
#include <basobj.hxx>
#include <module.hxx>
#include <globals.hxx>
#include <database.hxx>
#pragma hdrstop
/****************** SvMetaObject *****************************************/
SV_IMPL_META_FACTORY1( SvMetaObject, SvRttiBase )
#ifdef IDL_COMPILER
SvAttributeList & SvMetaObject::GetAttributeList()
{
if( !pAttribList )
{
pAttribList = new SvAttributeList();
}
return *pAttribList;
}
#endif
/*************************************************************************
|* SvMetaObject::SvMetaObject()
|*
|* Beschreibung
*************************************************************************/
SvMetaObject::SvMetaObject()
{
}
void SvMetaObject::Load( SvPersistStream & )
{
}
void SvMetaObject::Save( SvPersistStream & )
{
}
/*************************************************************************
|* SvMetaObject::WriteTab()
|*
|* Beschreibung
*************************************************************************/
#ifdef IDL_COMPILER
void SvMetaObject::WriteTab( SvStream & rOutStm, USHORT nTab )
{
while( nTab-- )
rOutStm << " ";
// rOutStm << '\t';
}
/*************************************************************************
|* SvMetaObject::WriteStart()
|*
|* Beschreibung
*************************************************************************/
void SvMetaObject::WriteStars( SvStream & rOutStm )
{
rOutStm << '/';
for( int i = 6; i > 0; i-- )
rOutStm << "**********";
rOutStm << '/' << endl;
}
/*************************************************************************
|* SvMetaObject::TestAndSeekSpaceOnly()
|*
|* Beschreibung
*************************************************************************/
BOOL SvMetaObject::TestAndSeekSpaceOnly( SvStream & rOutStm, ULONG nBegPos )
{
// keine leeren Klammern schreiben
ULONG nPos = rOutStm.Tell();
rOutStm.Seek( nBegPos );
BOOL bOnlySpace = TRUE;
while( bOnlySpace && rOutStm.Tell() < nPos )
{
char c;
rOutStm >> c;
if( !isspace( c ) )
bOnlySpace = FALSE;
}
if( bOnlySpace )
// nichts geschrieben
rOutStm.Seek( nBegPos );
else
rOutStm.Seek( nPos );
return bOnlySpace;
}
/*************************************************************************
|* SvMetaObject::Back2Delemitter()
|*
|* Beschreibung
*************************************************************************/
void SvMetaObject::Back2Delemitter( SvStream & rOutStm )
{
// keine leeren Klammern schreiben
ULONG nPos = rOutStm.Tell();
rOutStm.SeekRel( -1 );
char c = 0;
rOutStm >> c;
while( isspace( c ) && rOutStm.Tell() != 1 )
{
rOutStm.SeekRel( -2 );
rOutStm >> c;
}
if( c == ';' || c == ',' )
rOutStm.SeekRel( -1 );
else
rOutStm.Seek( nPos );
}
/*************************************************************************
|* SvMetaObject::ReadSvIdl()
|*
|* Beschreibung
*************************************************************************/
BOOL SvMetaObject::ReadSvIdl( SvIdlDataBase &, SvTokenStream & rInStm )
{
return FALSE;
}
/*************************************************************************
|* SvMetaObject::WriteSvIdl()
|*
|* Beschreibung
*************************************************************************/
void SvMetaObject::WriteSvIdl( SvIdlDataBase &, SvStream &, USHORT /*nTab */ )
{
}
/*************************************************************************
|* SvMetaObject::Write()
|*
|* Beschreibung
*************************************************************************/
void SvMetaObject::Write( SvIdlDataBase &, SvStream &, USHORT /*nTab */,
WriteType, WriteAttribute )
{
}
/*************************************************************************
|* SvMetaObject::WriteCxx()
|*
|* Beschreibung
*************************************************************************/
void SvMetaObject::WriteCxx( SvIdlDataBase &, SvStream &, USHORT /*nTab */ )
{
}
/*************************************************************************
|* SvMetaObject::WriteHxx()
|*
|* Beschreibung
*************************************************************************/
void SvMetaObject::WriteHxx( SvIdlDataBase &, SvStream &, USHORT /*nTab */ )
{
}
#endif
/****************** SvMetaName *****************************************/
SV_IMPL_META_FACTORY1( SvMetaName, SvMetaObject );
#ifdef IDL_COMPILER
SvAttributeList & SvMetaName::GetAttributeList()
{
if( !pAttribList )
{
pAttribList = new SvAttributeList();
pAttribList->Append( new SV_ATTRIBUTE( Name, Name ) );
}
return *pAttribList;
}
#endif
/*************************************************************************
|* SvMetaName::SvMetaName()
|*
|* Beschreibung
*************************************************************************/
SvMetaName::SvMetaName()
{
}
void SvMetaName::Load( SvPersistStream & rStm )
{
SvMetaObject::Load( rStm );
BYTE nMask;
rStm >> nMask;
if( nMask >= 0x20 )
{
rStm.SetError( SVSTREAM_FILEFORMAT_ERROR );
DBG_ERROR( "wrong format" )
return;
}
if( nMask & 0x01 ) rStm >> aName;
if( nMask & 0x02 ) rStm >> aHelpContext;
if( nMask & 0x04 ) rStm >> aHelpText;
if( nMask & 0x08 ) rStm >> aConfigName;
if( nMask & 0x10 ) rStm >> aDescription;
}
void SvMetaName::Save( SvPersistStream & rStm )
{
SvMetaObject::Save( rStm );
BYTE nMask = 0;
if( aName.IsSet() ) nMask |= 0x01;
if( aHelpContext.IsSet() ) nMask |= 0x02;
if( aHelpText.IsSet() ) nMask |= 0x04;
if( aConfigName.IsSet() ) nMask |= 0x08;
if( aDescription.IsSet() ) nMask |= 0x10;
rStm << nMask;
if( nMask & 0x01 ) rStm << aName;
if( nMask & 0x02 ) rStm << aHelpContext;
if( nMask & 0x04 ) rStm << aHelpText;
if( nMask & 0x08 ) rStm << aConfigName;
if( nMask & 0x10 ) rStm << aDescription;
}
/*************************************************************************
|*
|*
|* Beschreibung
*************************************************************************/
BOOL SvMetaName::SetName( const ByteString & rName, SvIdlDataBase * )
{
aName = rName;
return TRUE;
}
#ifdef IDL_COMPILER
/*************************************************************************
|* SvMetaName::ReadNameSvIdl()
|*
|* Beschreibung
*************************************************************************/
BOOL SvMetaName::ReadNameSvIdl( SvIdlDataBase & rBase,
SvTokenStream & rInStm )
{
UINT32 nTokPos = rInStm.Tell();
SvToken * pTok = rInStm.GetToken_Next();
// Modulnamen lesen
if( pTok->IsIdentifier() )
if( SetName( pTok->GetString(), &rBase ) )
return TRUE;
rInStm.Seek( nTokPos );
return FALSE;
}
/*************************************************************************
|* SvMetaName::ReadSvIdl()
|*
|* Beschreibung
*************************************************************************/
void SvMetaName::ReadAttributesSvIdl( SvIdlDataBase & rBase,
SvTokenStream & rInStm )
{
UINT32 nTokPos = rInStm.Tell();
if( aName.ReadSvIdl( SvHash_Name(), rInStm ) )
{
if( !SetName( aName, &rBase ) )
rInStm.Seek( nTokPos );
}
aHelpContext.ReadSvIdl( rBase, SvHash_HelpContext(), rInStm );
aHelpText.ReadSvIdl( rBase, rInStm );
aConfigName.ReadSvIdl( SvHash_ConfigName(), rInStm );
aDescription.ReadSvIdl( SvHash_Description(), rInStm );
/*
aHelpContext.ReadSvIdl( GetModule()->GetInfo()->GetHelpContextContainer(),
rInStm );
*/
}
/*************************************************************************
|* SvMetaName::DoReadContextSvIdl()
|*
|* Beschreibung
*************************************************************************/
void SvMetaName::DoReadContextSvIdl( SvIdlDataBase & rBase,
SvTokenStream & rInStm, char cDel )
{
UINT32 nBeginPos = 0; // kann mit Tell nicht vorkommen
while( nBeginPos != rInStm.Tell() )
{
nBeginPos = rInStm.Tell();
ReadContextSvIdl( rBase, rInStm );
if( cDel == '\0' )
rInStm.ReadDelemiter();
else
rInStm.Read( cDel );
}
}
/*************************************************************************
|* SvMetaName::ReadSvIdl()
|*
|* Beschreibung
*************************************************************************/
void SvMetaName::ReadContextSvIdl( SvIdlDataBase & rBase,
SvTokenStream & rInStm )
{
}
/*************************************************************************
|* SvMetaName::Test()
|*
|* Beschreibung
*************************************************************************/
BOOL SvMetaName::Test( SvIdlDataBase &, SvTokenStream & )
{
return TRUE;
}
/*************************************************************************
|* SvMetaName::WriteContextSvIdl()
|*
|* Beschreibung
*************************************************************************/
void SvMetaName::WriteContextSvIdl( SvIdlDataBase & rBase,
SvStream & rOutStm,
USHORT nTab )
{
}
/*************************************************************************
|* SvMetaName::WriteDescription()
|*
|* Beschreibung
*************************************************************************/
void SvMetaName::WriteDescription( SvIdlDataBase & rBase,
SvStream & rOutStm )
{
rOutStm << "<DESCRIPTION>" << endl;
ByteString aDescription( GetDescription() );
USHORT nPos = aDescription.Search( '\n' );
while ( nPos != STRING_NOTFOUND )
{
rOutStm << aDescription.Copy( 0, nPos ).GetBuffer() << endl;
aDescription.Erase(0,nPos+1);
nPos = aDescription.Search( '\n' );
}
rOutStm << aDescription.GetBuffer() << endl
<< "</DESCRIPTION>" << endl;
}
/*************************************************************************
|* SvMetaName::WriteAttributesIdl()
|*
|* Beschreibung
*************************************************************************/
void SvMetaName::WriteAttributesSvIdl( SvIdlDataBase & rBase,
SvStream & rOutStm,
USHORT nTab )
{
if( aHelpContext.IsSet() || aHelpText.IsSet() || aConfigName.IsSet() )
{
WriteTab( rOutStm, nTab );
rOutStm << "// class SvMetaName" << endl;
}
if( aHelpContext.IsSet() )
{
WriteTab( rOutStm, nTab );
aHelpContext.WriteSvIdl( SvHash_HelpContext(), rOutStm, nTab );
rOutStm << ';' << endl;
}
if( aHelpText.IsSet() )
{
WriteTab( rOutStm, nTab );
aHelpText.WriteSvIdl( rBase, rOutStm, nTab );
rOutStm << ';' << endl;
}
if( aConfigName.IsSet() )
{
WriteTab( rOutStm, nTab );
aConfigName.WriteSvIdl( SvHash_ConfigName(), rOutStm, nTab );
rOutStm << ';' << endl;
}
}
/*************************************************************************
|* SvMetaName::ReadSvIdl()
|*
|* Beschreibung
*************************************************************************/
BOOL SvMetaName::ReadSvIdl( SvIdlDataBase & rBase, SvTokenStream & rInStm )
{
UINT32 nTokPos = rInStm.Tell();
BOOL bOk = TRUE;
if( rInStm.Read( '[' ) )
{
UINT32 nBeginPos = 0; // kann mit Tell nicht vorkommen
while( nBeginPos != rInStm.Tell() )
{
nBeginPos = rInStm.Tell();
ReadAttributesSvIdl( rBase, rInStm );
rInStm.ReadDelemiter();
}
bOk = rInStm.Read( ']' );
}
if( bOk )
{
if( rInStm.Read( '{' ) )
{
DoReadContextSvIdl( rBase, rInStm );
bOk = rInStm.Read( '}' );
}
}
if( !bOk )
rInStm.Seek( nTokPos );
return bOk;
}
/*************************************************************************
|* SvMetaName::WriteSvIdl()
|*
|* Beschreibung
*************************************************************************/
void SvMetaName::WriteSvIdl( SvIdlDataBase & rBase, SvStream & rOutStm,
USHORT nTab )
{
ULONG nBeginPos = rOutStm.Tell();
WriteTab( rOutStm, nTab );
rOutStm << '[' << endl;
ULONG nOldPos = rOutStm.Tell();
WriteAttributesSvIdl( rBase, rOutStm, nTab +1 );
// keine leeren Klammern schreiben
if( TestAndSeekSpaceOnly( rOutStm, nOldPos ) )
// nichts geschrieben
rOutStm.Seek( nBeginPos );
else
{
WriteTab( rOutStm, nTab );
rOutStm << ']';
nBeginPos = rOutStm.Tell();
rOutStm << endl;
}
WriteTab( rOutStm, nTab );
rOutStm << '{' << endl;
nOldPos = rOutStm.Tell();
WriteContextSvIdl( rBase, rOutStm, nTab +1 );
// keine leeren Klammern schreiben
if( TestAndSeekSpaceOnly( rOutStm, nOldPos ) )
// nichts geschrieben
rOutStm.Seek( nBeginPos );
else
{
WriteTab( rOutStm, nTab );
rOutStm << '}';
}
}
/*************************************************************************
|* SvMetaName::Write()
|*
|* Beschreibung
*************************************************************************/
void SvMetaName::Write( SvIdlDataBase & rBase, SvStream & rOutStm,
USHORT nTab,
WriteType nT, WriteAttribute nA )
{
ULONG nBeginPos = rOutStm.Tell();
WriteTab( rOutStm, nTab );
rOutStm << '[' << endl;
ULONG nOldPos = rOutStm.Tell();
WriteAttributes( rBase, rOutStm, nTab +1, nT, nA );
// keine leeren Klammern schreiben
ULONG nPos = rOutStm.Tell();
rOutStm.Seek( nOldPos );
BOOL bOnlySpace = TRUE;
while( bOnlySpace && rOutStm.Tell() < nPos )
{
char c;
rOutStm >> c;
if( !isspace( c ) )
bOnlySpace = FALSE;
}
if( bOnlySpace )
// nichts geschrieben
rOutStm.Seek( nBeginPos );
else
{
rOutStm.Seek( nPos );
WriteTab( rOutStm, nTab );
rOutStm << ']' << endl;
}
}
/*************************************************************************
|* SvMetaName::WriteAttributes()
|*
|* Beschreibung
*************************************************************************/
void SvMetaName::WriteAttributes( SvIdlDataBase & rBase, SvStream & rOutStm,
USHORT nTab,
WriteType nT, WriteAttribute nA )
{
if( GetHelpText().IsSet() || GetHelpContext().IsSet() )
{
WriteTab( rOutStm, nTab );
rOutStm << "// class SvMetaName" << endl;
}
if( GetHelpText().IsSet() )
{
WriteTab( rOutStm, nTab );
rOutStm << "helpstring(\"" << GetHelpText().GetBuffer() << "\")," << endl;
}
if( GetHelpContext().IsSet() )
{
WriteTab( rOutStm, nTab );
rOutStm << "helpcontext("
<< ByteString::CreateFromInt64(
GetHelpContext().GetValue() ).GetBuffer()
<< ")," << endl;
}
}
/*************************************************************************
|* SvMetaName::WriteContext()
|*
|* Beschreibung
*************************************************************************/
void SvMetaName::WriteContext( SvIdlDataBase & rBase, SvStream & rOutStm,
USHORT nTab,
WriteType nT, WriteAttribute nA )
{
}
#endif // IDL_COMPILER
/****************** SvMetaReference *****************************************/
SV_IMPL_META_FACTORY1( SvMetaReference, SvMetaName );
#ifdef IDL_COMPILER
SvAttributeList & SvMetaReference::GetAttributeList()
{
if( !pAttribList )
{
pAttribList = new SvAttributeList();
}
return *pAttribList;
}
#endif
/*************************************************************************
|* SvMetaReference::SvMetaReference()
|*
|* Beschreibung
*************************************************************************/
SvMetaReference::SvMetaReference()
{
}
void SvMetaReference::Load( SvPersistStream & rStm )
{
SvMetaName::Load( rStm );
BYTE nMask;
rStm >> nMask;
if( nMask >= 0x2 )
{
rStm.SetError( SVSTREAM_FILEFORMAT_ERROR );
DBG_ERROR( "wrong format" )
return;
}
if( nMask & 0x01 )
{
SvMetaReference * pRef;
rStm >> pRef;
aRef = pRef;
}
}
void SvMetaReference::Save( SvPersistStream & rStm )
{
SvMetaName::Save( rStm );
// Maske erstellen
BYTE nMask = 0;
if( aRef.Is() )
nMask |= 0x01;
// Daten schreiben
rStm << nMask;
if( nMask & 0x01 ) rStm << aRef;
}
/**************************************************************************/
/****************** SvMetaExtern ******************************************/
SV_IMPL_META_FACTORY1( SvMetaExtern, SvMetaReference );
#ifdef IDL_COMPILER
SvAttributeList & SvMetaExtern::GetAttributeList()
{
if( !pAttribList )
{
pAttribList = new SvAttributeList();
}
return *pAttribList;
}
#endif
/*************************************************************************
|* SvMetaExtern::SvMetaExtern()
|*
|* Beschreibung
*************************************************************************/
SvMetaExtern::SvMetaExtern()
: pModule( NULL )
, bReadUUId( FALSE )
, bReadVersion( FALSE )
{
}
void SvMetaExtern::Load( SvPersistStream & rStm )
{
SvMetaReference::Load( rStm );
BYTE nMask;
rStm >> nMask;
if( nMask >= 0x20 )
{
rStm.SetError( SVSTREAM_FILEFORMAT_ERROR );
DBG_ERROR( "wrong format" )
return;
}
if( nMask & 0x01 ) rStm >> pModule;
if( nMask & 0x02 ) rStm >> aUUId;
if( nMask & 0x04 ) rStm >> aVersion;
if( nMask & 0x08 ) bReadUUId = TRUE;
if( nMask & 0x10 ) bReadVersion = TRUE;
}
void SvMetaExtern::Save( SvPersistStream & rStm )
{
SvMetaReference::Save( rStm );
// Maske erstellen
BYTE nMask = 0;
if( pModule ) nMask |= 0x01;
if( aUUId != SvGlobalName() ) nMask |= 0x02;
if( aVersion != SvVersion() ) nMask |= 0x04;
if( bReadUUId ) nMask |= 0x08;
if( bReadVersion ) nMask |= 0x10;
// Daten schreiben
rStm << nMask;
if( nMask & 0x01 ) rStm << pModule;
if( nMask & 0x02 ) rStm << aUUId;
if( nMask & 0x04 ) rStm << aVersion;
}
/*************************************************************************
|* SvMetaExtern::GetModule()
|*
|* Beschreibung
*************************************************************************/
SvMetaModule * SvMetaExtern::GetModule() const
{
DBG_ASSERT( pModule != NULL, "module not set" )
return pModule;
}
/*************************************************************************
|* SvMetaExtern::GetUUId()
|*
|* Beschreibung
*************************************************************************/
const SvGlobalName & SvMetaExtern::GetUUId() const
{
#ifdef IDL_COMPILER
if( aUUId == SvGlobalName() )
GetModule()->FillNextName( &((SvMetaExtern *)this)->aUUId );
#endif
return aUUId;
}
#ifdef IDL_COMPILER
/*************************************************************************
|* SvMetaExtern::SetModule()
|*
|* Beschreibung
*************************************************************************/
void SvMetaExtern::SetModule( SvIdlDataBase & rBase )
{
pModule = (SvMetaModule *)rBase.GetStack().Get( TYPE( SvMetaModule ) );
}
/*************************************************************************
|* SvMetaExtern::ReadAttributesSvIdl()
|*
|* Beschreibung
*************************************************************************/
void SvMetaExtern::ReadAttributesSvIdl( SvIdlDataBase & rBase,
SvTokenStream & rInStm )
{
SvMetaReference::ReadAttributesSvIdl( rBase, rInStm );
if( aUUId.ReadSvIdl( rBase, rInStm ) )
bReadUUId = TRUE;
if( aVersion.ReadSvIdl( rInStm ) )
bReadVersion = TRUE;
}
/*************************************************************************
|* SvMetaExtern::WriteAttributesSvIdl()
|*
|* Beschreibung
*************************************************************************/
void SvMetaExtern::WriteAttributesSvIdl( SvIdlDataBase & rBase,
SvStream & rOutStm, USHORT nTab )
{
SvMetaReference::WriteAttributesSvIdl( rBase, rOutStm, nTab );
if( bReadUUId || bReadVersion )
{
WriteTab( rOutStm, nTab );
rOutStm << "// class SvMetaExtern" << endl;
if( bReadUUId )
{
WriteTab( rOutStm, nTab );
aUUId.WriteSvIdl( rOutStm );
rOutStm << ';' << endl;
}
if( bReadVersion )
{
WriteTab( rOutStm, nTab );
aVersion.WriteSvIdl( rOutStm );
rOutStm << ';' << endl;
}
}
}
/*************************************************************************
|* SvMetaExtern::ReadSvIdl()
|*
|* Beschreibung
*************************************************************************/
BOOL SvMetaExtern::ReadSvIdl( SvIdlDataBase & rBase, SvTokenStream & rInStm )
{
SetModule( rBase );
GetUUId(); // Id wird angelegt
return SvMetaReference::ReadSvIdl( rBase, rInStm );
}
/*************************************************************************
|* SvMetaExtern::WriteSvIdl()
|*
|* Beschreibung
*************************************************************************/
void SvMetaExtern::WriteSvIdl( SvIdlDataBase & rBase, SvStream & rOutStm,
USHORT nTab )
{
SvMetaReference::WriteSvIdl( rBase, rOutStm, nTab );
}
/*************************************************************************
|* SvMetaExtern::Write()
|*
|* Beschreibung
*************************************************************************/
void SvMetaExtern::Write( SvIdlDataBase & rBase, SvStream & rOutStm,
USHORT nTab,
WriteType nT, WriteAttribute nA )
{
SvMetaReference::Write( rBase, rOutStm, nTab, nT, nA );
}
/*************************************************************************
|* SvMetaExtern::WriteAttributes()
|*
|* Beschreibung
*************************************************************************/
void SvMetaExtern::WriteAttributes( SvIdlDataBase & rBase, SvStream & rOutStm,
USHORT nTab,
WriteType nT, WriteAttribute nA )
{
SvMetaReference::WriteAttributes( rBase, rOutStm, nTab, nT, nA );
WriteTab( rOutStm, nTab );
rOutStm << "// class SvMetaExtern" << endl;
WriteTab( rOutStm, nTab );
rOutStm << "uuid(" << ByteString( GetUUId().GetHexName(), RTL_TEXTENCODING_UTF8 ).GetBuffer() << ")," << endl;
WriteTab( rOutStm, nTab );
rOutStm << "version(" << ByteString::CreateFromInt32( aVersion.GetMajorVersion() ).GetBuffer() << '.'
<< ByteString::CreateFromInt32( aVersion.GetMinorVersion() ).GetBuffer() << ")," << endl;
}
#endif // IDL_COMPILER