fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

*** empty log message ***

Browse Source
This commit is contained in:
Ignacio Ortiz de Zuniga
2000-06-26 12:34:22 +00:00
parent 092b5a900b
commit 7db73cb4f5
1 changed files with 10 additions and 4 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
harbour/source/rtl/memoline.c
View File

@@ -70,7 +70,10 @@ HB_FUNC( MEMOLINE )
case HB_CHAR_LF:
ulCurLength = 0;
ulLastSpace = 0;
ulLineEnd = HB_MAX( ulPos - 2, ulLineBegin );
if ( ulPos >= 2 )
ulLineEnd = ulPos -2;
else
ulLineEnd = ulLineBegin;
ulLines++;
if( ulLines < ulLineNumber )
{
@@ -128,7 +131,10 @@ HB_FUNC( MEMOLINE )
if( ulLineEnd == 0 )
{
ulLines++;
ulLineEnd = ulPos - 1;
if ( ulPos == 0)
ulLineEnd = 0;
else
ulLineEnd = ulPos - 1;
}
if( ulLineNumber == ulLines && ulLineEnd >= ulLineBegin )
@@ -143,7 +149,7 @@ HB_FUNC( MEMOLINE )
if( pszString[ ulLineBegin + ulPos ] == HB_CHAR_HT )
ulSpAdded += ( ( ULONG ) ( ulPos / ulTabLength ) * ulTabLength ) + ulTabLength - ulPos - 1;
else
memcpy( ( pszLine + ulPos + ulSpAdded ), ( pszString + ulLineBegin + ulPos ), 1 );
* ( pszLine + ulPos + ulSpAdded ) = * ( pszString + ulLineBegin + ulPos );
}
hb_retclen( pszLine, ulLineLength );
@@ -151,4 +157,4 @@ HB_FUNC( MEMOLINE )
}
else
hb_retc( "" );
}
}