void hb_timeStampUnpack( double dTimeStamp,
int * piYear, int * piMonth, int * piDay,
int * piHour, int * piMinutes, int * piSeconds,
int * piMSec )
{
long lJulian, lMilliSec;
HB_TRACE( HB_TR_DEBUG, ( "hb_timeStampUnpack(%f, %p, %p, %p, %p, %p, %p, %p)", dTimeStamp, piYear, piMonth, piDay, piHour, piMinutes, piSeconds, piMSec ) );
hb_timeStampUnpackDT( dTimeStamp, &lJulian, &lMilliSec );
hb_dateDecode( lJulian, piYear, piMonth, piDay );
hb_timeDecode( lMilliSec, piHour, piMinutes, piSeconds, piMSec );
}
void hb_timeStampUnpackD( double dTimeStamp,
int * piYear, int * piMonth, int * piDay,
int * piHour, int * piMinutes, double * pdSeconds )
{
long lJulian, lMilliSec;
int iSeconds, iMSec;
HB_TRACE( HB_TR_DEBUG, ( "hb_timeStampUnpackD(%f, %p, %p, %p, %p, %p, %p)", dTimeStamp, piYear, piMonth, piDay, piHour, piMinutes, pdSeconds ) );
hb_timeStampUnpackDT( dTimeStamp, &lJulian, &lMilliSec );
hb_dateDecode( lJulian, piYear, piMonth, piDay );
hb_timeDecode( lMilliSec, piHour, piMinutes, &iSeconds, &iMSec );
if( pdSeconds )
*pdSeconds = ( double ) iSeconds + ( double ) iMSec / 1000;
}
static int hb_pp_parseChangelog( PHB_PP_STATE pState, const char * pszFileName,
int iQuiet, int * piRevID,
char ** pszChangeLogID, char ** pszLastEntry )
{
char * pszFree = NULL;
int iResult = 0;
FILE * file_in;
char szToCheck[ HB_PATH_MAX ];
PHB_FNAME pFileName = hb_fsFNameSplit( pszFileName );
if( ! pFileName->szName )
{
static const char * s_szNames[] = {
"ChangeLog.txt",
"CHANGES.txt",
#if defined( HB_OS_DOS )
"ChangeLo.txt",
"Change~1.txt",
"Change~?.txt",
"Chang~??.txt",
#endif
NULL
};
int i = 0;
if( ! pFileName->szPath )
pFileName->szPath = "../../../../..";
pszFileName = s_szNames[ i++ ];
while( pszFileName )
{
pFileName->szName = pszFileName;
hb_fsFNameMerge( szToCheck, pFileName );
if( hb_fsFileExists( szToCheck ) )
{
pszFileName = szToCheck;
break;
}
if( strchr( szToCheck, '?' ) != NULL )
{
pszFree = hb_fsFileFind( szToCheck );
if( pszFree )
{
pszFileName = pszFree;
break;
}
}
pszFileName = s_szNames[ i++ ];
}
if( ! pszFileName )
pszFileName = s_szNames[ 0 ];
}
hb_xfree( pFileName );
file_in = hb_fopen( pszFileName, "r" );
if( ! file_in )
{
if( iQuiet < 2 )
{
#if ! defined( HB_OS_WIN_CE )
perror( pszFileName );
#else
fprintf( stderr, "Cannot open the %s file.\n", pszFileName );
#endif
}
iResult = 1;
}
else
{
char szLine[ 256 ];
char szId[ 128 ];
char szLog[ 128 ];
char * szFrom, * szTo;
int iLen;
if( iQuiet == 0 )
fprintf( stdout, "Reading ChangeLog file: %s\n", pszFileName );
*szId = *szLog = '\0';
do
{
if( ! fgets( szLine, sizeof( szLine ), file_in ) )
break;
if( ! *szId )
{
szFrom = strstr( szLine, "$" "Id" );
if( szFrom )
{
szFrom += 3;
szTo = strchr( szFrom, '$' );
if( szTo )
{
/* Is it tarball source package? */
if( szTo == szFrom )
{
/* we do not have revision number :-( */
hb_strncpy( szId, "unknown -1 (source tarball without keyword expanding)", sizeof( szId ) - 1 );
}
else if( szTo - szFrom > 3 && szTo[ -1 ] == ' ' &&
szFrom[ 0 ] == ':' && szFrom[ 1 ] == ' ' )
{
szTo[ -1 ] = '\0';
hb_strncpy( szId, szFrom + 2, sizeof( szId ) - 1 );
}
}
}
}
else if( ! *szLog )
{
if( szLine[ 4 ] == '-' && szLine[ 7 ] == '-' &&
szLine[ 10 ] == ' ' && szLine[ 13 ] == ':' )
{
hb_strncpy( szLog, szLine, sizeof( szLog ) - 1 );
iLen = ( int ) strlen( szLog );
while( iLen-- && HB_ISSPACE( szLog[ iLen ] ) )
szLog[ iLen ] = '\0';
}
}
}
while( ! *szLog );
fclose( file_in );
if( ! *szLog )
{
if( iQuiet < 2 )
fprintf( stderr, "Cannot find valid $" "Id entry in the %s file.\n", pszFileName );
iResult = 1;
}
else
{
char szRevID[ 18 ];
*szLine = '"';
hb_strncpy( szLine + 1, szLog, sizeof( szLine ) - 3 );
iLen = ( int ) strlen( szLine );
szLine[ iLen ] = '"';
szLine[ ++iLen ] = '\0';
hb_pp_addDefine( pState, "HB_VER_LENTRY", szLine );
*pszLastEntry = hb_strdup( szLog );
hb_strncpy( szLine + 1, szId, sizeof( szLine ) - 3 );
iLen = ( int ) strlen( szLine );
szLine[ iLen ] = '"';
szLine[ ++iLen ] = '\0';
hb_pp_addDefine( pState, "HB_VER_CHLID", szLine );
*pszChangeLogID = hb_strdup( szId );
if( strlen( szLog ) >= 16 )
{
long lJulian = 0, lMilliSec = 0;
int iUTC = 0;
if( strlen( szLog ) >= 25 && szLog[ 17 ] == 'U' &&
szLog[ 18 ] == 'T' && szLog[ 19 ] == 'C' &&
( szLog[ 20 ] == '+' || szLog[ 20 ] == '-' ) &&
HB_ISDIGIT( szLog[ 21 ] ) && HB_ISDIGIT( szLog[ 22 ] ) &&
HB_ISDIGIT( szLog[ 23 ] ) && HB_ISDIGIT( szLog[ 24 ] ) )
{
iUTC = ( ( int ) ( szLog[ 21 ] - '0' ) * 10 +
( int ) ( szLog[ 22 ] - '0' ) ) * 60 +
( int ) ( szLog[ 23 ] - '0' ) * 10 +
( int ) ( szLog[ 24 ] - '0' );
}
szLog[ 16 ] = '\0';
if( iUTC != 0 && hb_timeStampStrGetDT( szLog, &lJulian, &lMilliSec ) )
{
hb_timeStampUnpackDT( hb_timeStampPackDT( lJulian, lMilliSec ) -
( double ) iUTC / ( 24 * 60 ),
&lJulian, &lMilliSec );
}
if( lJulian && lMilliSec )
{
hb_timeStampStrRawPut( szRevID, lJulian, lMilliSec );
memmove( szRevID, szRevID + 2, 10 );
}
else
{
szRevID[ 0 ] = szLog[ 2 ];
szRevID[ 1 ] = szLog[ 3 ];
szRevID[ 2 ] = szLog[ 5 ];
szRevID[ 3 ] = szLog[ 6 ];
szRevID[ 4 ] = szLog[ 8 ];
szRevID[ 5 ] = szLog[ 9 ];
szRevID[ 6 ] = szLog[ 11 ];
szRevID[ 7 ] = szLog[ 12 ];
szRevID[ 8 ] = szLog[ 14 ];
szRevID[ 9 ] = szLog[ 15 ];
}
szRevID[ 10 ] = '\0';
}
else
szRevID[ 0 ] = '\0';
*piRevID = ( int ) hb_strValInt( szRevID, &iLen );
hb_pp_addDefine( pState, "HB_VER_REVID", szRevID );
#ifdef HB_LEGACY_LEVEL4
hb_pp_addDefine( pState, "HB_VER_SVNID", szRevID );
#endif
}
}
if( pszFree )
hb_xfree( pszFree );
return iResult;
}
static int hb_pp_TimeStampToNum( PHB_PP_STATE pState, char * pszLog )
{
char szRevID[ 18 ];
int iLen;
if( strlen( pszLog ) >= 16 )
{
long lJulian = 0, lMilliSec = 0;
int iUTC = 0;
if( strlen( pszLog ) >= 25 &&
( pszLog[ 20 ] == '+' || pszLog[ 20 ] == '-' ) &&
HB_ISDIGIT( pszLog[ 21 ] ) && HB_ISDIGIT( pszLog[ 22 ] ) &&
HB_ISDIGIT( pszLog[ 23 ] ) && HB_ISDIGIT( pszLog[ 24 ] ) )
{
iUTC = ( ( int ) ( pszLog[ 21 ] - '0' ) * 10 +
( int ) ( pszLog[ 22 ] - '0' ) ) * 60 +
( int ) ( pszLog[ 23 ] - '0' ) * 10 +
( int ) ( pszLog[ 24 ] - '0' );
if( pszLog[ 20 ] == '-' )
iUTC *= -1;
}
pszLog[ 16 ] = '\0';
if( iUTC != 0 && hb_timeStampStrGetDT( pszLog, &lJulian, &lMilliSec ) )
{
hb_timeStampUnpackDT( hb_timeStampPackDT( lJulian, lMilliSec ) -
( double ) iUTC / ( 24 * 60 ),
&lJulian, &lMilliSec );
}
if( lJulian && lMilliSec )
{
hb_timeStampStrRawPut( szRevID, lJulian, lMilliSec );
memmove( szRevID, szRevID + 2, 10 );
}
else
{
szRevID[ 0 ] = pszLog[ 2 ];
szRevID[ 1 ] = pszLog[ 3 ];
szRevID[ 2 ] = pszLog[ 5 ];
szRevID[ 3 ] = pszLog[ 6 ];
szRevID[ 4 ] = pszLog[ 8 ];
szRevID[ 5 ] = pszLog[ 9 ];
szRevID[ 6 ] = pszLog[ 11 ];
szRevID[ 7 ] = pszLog[ 12 ];
szRevID[ 8 ] = pszLog[ 14 ];
szRevID[ 9 ] = pszLog[ 15 ];
}
szRevID[ 10 ] = '\0';
}
else
szRevID[ 0 ] = '\0';
hb_pp_delDefine( pState, "HB_VER_COMMIT_REV" );
hb_pp_addDefine( pState, "HB_VER_COMMIT_REV", szRevID );
#if defined( HB_LEGACY_LEVEL4 )
hb_pp_delDefine( pState, "HB_VER_SVNID" );
hb_pp_addDefine( pState, "HB_VER_SVNID", szRevID );
#endif
return ( int ) hb_strValInt( szRevID, &iLen );
}