diff options
| author | Pascal Junck <pjunck@openoffice.org> | 2004-11-02 10:54:38 +0000 |
|---|---|---|
| committer | Pascal Junck <pjunck@openoffice.org> | 2004-11-02 10:54:38 +0000 |
| commit | 607d874caf6cf828a0ac5a01932b24c715c98ca6 (patch) | |
| tree | cff6e7b9845dbccfc05627287f54aa6ab5ed17f9 /basic/source/comp | |
| parent | 2b06ed037dc077ead3bec979c206634bd42f1dbe (diff) | |
INTEGRATION: CWS ab11clonepp4 (1.8.16); FILE MERGED
2004/10/15 08:39:06 ab 1.8.16.1: #118083# #118084# Class support PP4 -> SO 8
Diffstat (limited to 'basic/source/comp')
| -rw-r--r-- | basic/source/comp/symtbl.cxx | 29 |
1 files changed, 27 insertions, 2 deletions
diff --git a/basic/source/comp/symtbl.cxx b/basic/source/comp/symtbl.cxx index f9bd204d690d..98590282989f 100644 --- a/basic/source/comp/symtbl.cxx +++ b/basic/source/comp/symtbl.cxx @@ -2,9 +2,9 @@ * * $RCSfile: symtbl.cxx,v $ * - * $Revision: 1.8 $ + * $Revision: 1.9 $ * - * last change: $Author: obo $ $Date: 2004-09-09 07:43:30 $ + * last change: $Author: pjunck $ $Date: 2004-11-02 11:54:38 $ * * The Contents of this file are made available subject to the terms of * either of the following licenses @@ -447,6 +447,7 @@ SbiProcDef::SbiProcDef( SbiParser* pParser, const String& rName, pPool->SetParent( &aParams ); nLine1 = nLine2 = 0; + mePropMode = PROPERTY_MODE_NONE; bPublic = TRUE; bCdecl = FALSE; // Fuer Returnwerte ist das erste Element der Parameterliste @@ -507,6 +508,30 @@ void SbiProcDef::Match( SbiProcDef* pOld ) delete pOld; } +void SbiProcDef::setPropertyMode( PropertyMode ePropMode ) +{ + mePropMode = ePropMode; + if( mePropMode != PROPERTY_MODE_NONE ) + { + // Prop name = original scanned procedure name + maPropName = aName; + + // CompleteProcName includes "Property xxx " + // to avoid conflicts with other symbols + String aCompleteProcName; + aCompleteProcName.AppendAscii( "Property " ); + switch( mePropMode ) + { + case PROPERTY_MODE_GET: aCompleteProcName.AppendAscii( "Get " ); break; + case PROPERTY_MODE_LET: aCompleteProcName.AppendAscii( "Let " ); break; + case PROPERTY_MODE_SET: aCompleteProcName.AppendAscii( "Set " ); break; + } + aCompleteProcName += aName; + aName = aCompleteProcName; + } +} + + ////////////////////////////////////////////////////////////////////////// SbiConstDef::SbiConstDef( const String& rName ) |