ODFstudio/odfstudio
2
0
Fork 0
Code Issues Packages Activity

tdf#147132 Flatten basic function implementations

Browse Source 
Change-Id: I517d188ec029b7ec6e6921f437a8915f8a6c9562
Reviewed-on: https://gerrit.libreoffice.org/c/core/+/205376
Tested-by: Jenkins
Reviewed-by: Neil Roberts <nroberts@libreoffice.org>
This commit is contained in:
alohapeakina
2026-05-20 09:38:28 +02:00
committed by Neil Roberts
parent 69e0944a21
commit d21d64fc84
1 changed files with 21 additions and 25 deletions
Download Patch File Download Diff File Expand all files Collapse all files
basic/source/runtime/methods.cxx
+21 -25
View File
@@ -2870,36 +2870,32 @@ void SbRtl_EOF(StarBASIC *, SbxArray & rPar, bool)
{
// No changes for UCB
if (rPar.Count() != 2)
return StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT );
sal_Int16 nChannel = rPar.Get(1)->GetInteger();
SbiIoSystem* pIO = GetSbData()->pInst->GetIoSystem();
SbiStream* pSbStrm = pIO->GetStream( nChannel );
if ( !pSbStrm )
{
StarBASIC::Error( ERRCODE_BASIC_BAD_ARGUMENT );
return StarBASIC::Error( ERRCODE_BASIC_BAD_CHANNEL );
}
bool beof;
SvStream* pSvStrm = pSbStrm->GetStrm();
if ( pSbStrm->IsText() )
{
char cBla;
(*pSvStrm).ReadChar( cBla ); // can we read another character?
beof = pSvStrm->eof();
if ( !beof )
{
pSvStrm->SeekRel( -1 );
}
}
else
{
sal_Int16 nChannel = rPar.Get(1)->GetInteger();
SbiIoSystem* pIO = GetSbData()->pInst->GetIoSystem();
SbiStream* pSbStrm = pIO->GetStream( nChannel );
if ( !pSbStrm )
{
return StarBASIC::Error( ERRCODE_BASIC_BAD_CHANNEL );
}
bool beof;
SvStream* pSvStrm = pSbStrm->GetStrm();
if ( pSbStrm->IsText() )
{
char cBla;
(*pSvStrm).ReadChar( cBla ); // can we read another character?
beof = pSvStrm->eof();
if ( !beof )
{
pSvStrm->SeekRel( -1 );
}
}
else
{
beof = pSvStrm->eof(); // for binary data!
}
rPar.Get(0)->PutBool(beof);
beof = pSvStrm->eof(); // for binary data!
}
rPar.Get(0)->PutBool(beof);
}
void SbRtl_FileAttr(StarBASIC *, SbxArray & rPar, bool)