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

2007-04-06 14:33 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)

Browse Source 
* harbour/source/rtl/hbtoken.c
    ! fixed using delimiters longer then 1 character
This commit is contained in:
Przemyslaw Czerpak
2007-04-06 12:35:15 +00:00
parent 5cb7a0be40
commit 80b52695b9
2 changed files with 7 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

4
harbour/ChangeLog
View File

@@ -8,6 +8,10 @@
2002-12-01 13:30 UTC+0100 Foo Bar <foo.bar@foobar.org>
*/
2007-04-06 14:33 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/rtl/hbtoken.c
! fixed using delimiters longer then 1 character
2007-04-06 11:36 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
* harbour/source/lang/msgnl.c
* added missing $\Date$ in version string

5
harbour/source/rtl/hbtoken.c
View File

@@ -79,6 +79,7 @@ static ULONG hb_tokenCount( char * szLine, ULONG ulLen,
{
while( ++ul < ulLen && szLine[ ul ] == ' ' );
}
ul += ulDelim - 1;
}
++ul;
}
@@ -117,7 +118,7 @@ static char * hb_tokenGet( char * szLine, ULONG ulLen,
while( ul < ulLen && szLine[ ul + 1 ] == ' ' )
++ul;
}
ulStart = ul + 1;
ulStart = ul + ulDelim;
}
}
if( --ulToken == 0 )
@@ -161,7 +162,7 @@ static PHB_ITEM hb_tokenArray( char * szLine, ULONG ulLen,
while( ul < ulLen && szLine[ ul + 1 ] == ' ' )
++ul;
}
ulStart = ul + 1;
ulStart = ul + ulDelim;
}
}
hb_itemPutCL( hb_arrayGetItemPtr( pArray, ++ulToken ), szLine + ulStart, ul - ulStart );