strepsirrhini/office-gobmx
9
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

#83425# FindElementExtern(): Check for missing parameters

Browse source
This commit is contained in:
Andreas Bregas 2001-05-18 11:42:15 +00:00
parent 79536e3fa7
commit 7d768de582
1 changed files with 13 additions and 3 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

16
basic/source/runtime/step2.cxx
View file

@ -2,9 +2,9 @@
*
* $RCSfile: step2.cxx,v $
*
* $Revision: 1.1.1.1 $
* $Revision: 1.2 $
*
* last change: $Author: hr $ $Date: 2000-09-18 16:12:11 $
* last change: $Author: ab $ $Date: 2001-05-18 12:42:15 $
*
* The Contents of this file are made available subject to the terms of
* either of the following licenses
@ -331,13 +331,23 @@ SbxBase* SbiRuntime::FindElementExtern( const String& rName )
SbxInfo* pInfo = pMeth->GetInfo();
if( pInfo && refParams )
{
USHORT nParamCount = refParams->Count();
USHORT j = 1;
const SbxParamInfo* pParam = pInfo->GetParam( j );
while( pParam )
{
if( pParam->aName.EqualsIgnoreCaseAscii( rName ) )
{
pElem = refParams->Get( j );
if( j >= nParamCount )
{
// Parameter is missing
pElem = new SbxVariable( SbxSTRING );
pElem->PutString( String( RTL_CONSTASCII_USTRINGPARAM("<missing parameter>" ) ) );
}
else
{
pElem = refParams->Get( j );
}
break;
}
pParam = pInfo->GetParam( ++j );