From 53d63a62f5876cb11a6c2c813f210a2963a517fc Mon Sep 17 00:00:00 2001 From: Eddie Runia Date: Fri, 16 Jul 1999 13:10:10 +0000 Subject: [PATCH] See changelog --- harbour/ChangeLog | 9 ++++++++ harbour/include/initsymb.h | 1 + harbour/source/rtl/console.c | 40 ++++++++++++++++++---------------- harbour/source/rtl/copyfile.c | 10 +++++++++ harbour/source/rtl/math.c | 2 +- harbour/source/runner/runner.c | 1 + harbour/source/vm/initsymb.c | 1 + 7 files changed, 44 insertions(+), 20 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 181ac0fcbf..515cf24e8a 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -1,3 +1,12 @@ +19990716-15:00 CET Eddie Runia + * source/rtl/math.c + Round() : One byte more should be allocated + * source/rtl/copyfile.c; source/runner/runner.c; source/vm/initsymb.c; + include/initsymb.h + __CopyFile added as symbol + * source/rtl/console.c + DevOutPict() added as symbol + 19990716-14:30 CET Eddie Runia * source/runner/runner.c Typo corrected diff --git a/harbour/include/initsymb.h b/harbour/include/initsymb.h index feacd6d7a8..850286e8a3 100644 --- a/harbour/include/initsymb.h +++ b/harbour/include/initsymb.h @@ -7,6 +7,7 @@ Arrays__InitSymbols(); Classes__InitSymbols(); Console__InitSymbols(); + CopyFile__InitSymbols(); Dates__InitSymbols(); Descend__InitSymbols(); Dir__InitSymbols(); diff --git a/harbour/source/rtl/console.c b/harbour/source/rtl/console.c index 7ea1f4d7ff..ee0a9e9762 100644 --- a/harbour/source/rtl/console.c +++ b/harbour/source/rtl/console.c @@ -73,6 +73,7 @@ HARBOUR HB___ACCEPT(void); HARBOUR HB_COL( void ); HARBOUR HB_DEVOUT( void ); +HARBOUR HB_DEVOUTPICT( void ); HARBOUR HB_DEVPOS( void ); HARBOUR HB_DISPBEGIN( void ); HARBOUR HB_DISPBOX( void ); @@ -96,25 +97,26 @@ HARBOUR HB_QOUT( void ); HARBOUR HB_QQOUT( void ); HB_INIT_SYMBOLS_BEGIN( Console__InitSymbols ) -{ "__ACCEPT" , FS_PUBLIC, HB___ACCEPT , 0 }, -{ "__EJECT" , FS_PUBLIC, HB___EJECT , 0 }, -{ "DEVOUT" , FS_PUBLIC, HB_DEVOUT , 0 }, -{ "DISPBEGIN", FS_PUBLIC, HB_DISPBEGIN, 0 }, -{ "DISPBOX" , FS_PUBLIC, HB_DISPBOX , 0 }, -{ "DISPCOUNT", FS_PUBLIC, HB_DISPCOUNT, 0 }, -{ "DISPEND" , FS_PUBLIC, HB_DISPEND , 0 }, -{ "DISPOUT" , FS_PUBLIC, HB_DISPOUT , 0 }, -{ "ISCOLOR" , FS_PUBLIC, HB_ISCOLOR , 0 }, -{ "MAXCOL" , FS_PUBLIC, HB_MAXCOL , 0 }, -{ "MAXROW" , FS_PUBLIC, HB_MAXROW , 0 }, -{ "OUTERR" , FS_PUBLIC, HB_OUTERR , 0 }, -{ "OUTSTD" , FS_PUBLIC, HB_OUTSTD , 0 }, -{ "NOSNOW" , FS_PUBLIC, HB_NOSNOW , 0 }, -{ "SCROLL" , FS_PUBLIC, HB_SCROLL , 0 }, -{ "SETPOS" , FS_PUBLIC, HB_SETPOS , 0 }, -{ "SETPRC" , FS_PUBLIC, HB_SETPRC , 0 }, -{ "QOUT" , FS_PUBLIC, HB_QOUT , 0 }, -{ "QQOUT" , FS_PUBLIC, HB_QQOUT , 0 } +{ "__ACCEPT" , FS_PUBLIC, HB___ACCEPT , 0 }, +{ "__EJECT" , FS_PUBLIC, HB___EJECT , 0 }, +{ "DEVOUT" , FS_PUBLIC, HB_DEVOUT , 0 }, +{ "DEVOUTPICT", FS_PUBLIC, HB_DEVOUTPICT, 0 }, +{ "DISPBEGIN" , FS_PUBLIC, HB_DISPBEGIN , 0 }, +{ "DISPBOX" , FS_PUBLIC, HB_DISPBOX , 0 }, +{ "DISPCOUNT" , FS_PUBLIC, HB_DISPCOUNT , 0 }, +{ "DISPEND" , FS_PUBLIC, HB_DISPEND , 0 }, +{ "DISPOUT" , FS_PUBLIC, HB_DISPOUT , 0 }, +{ "ISCOLOR" , FS_PUBLIC, HB_ISCOLOR , 0 }, +{ "MAXCOL" , FS_PUBLIC, HB_MAXCOL , 0 }, +{ "MAXROW" , FS_PUBLIC, HB_MAXROW , 0 }, +{ "OUTERR" , FS_PUBLIC, HB_OUTERR , 0 }, +{ "OUTSTD" , FS_PUBLIC, HB_OUTSTD , 0 }, +{ "NOSNOW" , FS_PUBLIC, HB_NOSNOW , 0 }, +{ "SCROLL" , FS_PUBLIC, HB_SCROLL , 0 }, +{ "SETPOS" , FS_PUBLIC, HB_SETPOS , 0 }, +{ "SETPRC" , FS_PUBLIC, HB_SETPRC , 0 }, +{ "QOUT" , FS_PUBLIC, HB_QOUT , 0 }, +{ "QQOUT" , FS_PUBLIC, HB_QQOUT , 0 } HB_INIT_SYMBOLS_END( Console__InitSymbols ); #if ! defined(__GNUC__) #pragma startup Console__InitSymbols diff --git a/harbour/source/rtl/copyfile.c b/harbour/source/rtl/copyfile.c index 8e13810227..ae313ca746 100644 --- a/harbour/source/rtl/copyfile.c +++ b/harbour/source/rtl/copyfile.c @@ -7,6 +7,7 @@ #include #include #include +#include #ifdef OS_UNIX_COMPATIBLE #include @@ -15,6 +16,15 @@ #define BUFFER_SIZE 8192 +HARBOUR HB___COPYFILE(void); + +HB_INIT_SYMBOLS_BEGIN( CopyFile__InitSymbols ) +{ "__COPYFILE", FS_PUBLIC, HB___COPYFILE, 0 } +HB_INIT_SYMBOLS_END( CopyFile__InitSymbols ); +#if ! defined(__GNUC__) + #pragma CopyFile__InitSymbols +#endif + static BOOL hb_fsCopy(char* szSource, char* szDest, ULONG* ulWrittenTotal); /* INCOMPATIBILITY: Clipper returns .F. on failure and NIL on success */ diff --git a/harbour/source/rtl/math.c b/harbour/source/rtl/math.c index cbabc74fa2..6d15320d3f 100644 --- a/harbour/source/rtl/math.c +++ b/harbour/source/rtl/math.c @@ -273,7 +273,7 @@ HARBOUR HB_ROUND( void ) dResult = floor( dResult * dAdjust + 0.5 ); dResult = dResult / dAdjust; } - szResult = ( char * ) hb_xgrab( iSize + iDec ); + szResult = ( char * ) hb_xgrab( iSize + iDec + 1 ); if( szResult ) { sprintf( szResult, "%*.*f", iSize, iDec, dResult ); diff --git a/harbour/source/runner/runner.c b/harbour/source/runner/runner.c index 1dee74f1bc..e76a1224e8 100644 --- a/harbour/source/runner/runner.c +++ b/harbour/source/runner/runner.c @@ -74,6 +74,7 @@ static FILE *HRB_FileOpen ( char * ); extern void Arrays__InitSymbols( void ); extern void Classes__InitSymbols( void ); extern void Console__InitSymbols( void ); +extern void CopyFile__InitSymbols( void ); extern void Dates__InitSymbols( void ); extern void Descend__InitSymbols( void ); extern void Dir__InitSymbols( void ); diff --git a/harbour/source/vm/initsymb.c b/harbour/source/vm/initsymb.c index a89314cab3..ffb42ee3e3 100644 --- a/harbour/source/vm/initsymb.c +++ b/harbour/source/vm/initsymb.c @@ -13,6 +13,7 @@ extern void Arrays__InitSymbols( void ); extern void Classes__InitSymbols( void ); extern void Console__InitSymbols( void ); +extern void CopyFile__InitSymbols( void ); extern void Dates__InitSymbols( void ); extern void Descend__InitSymbols( void ); extern void Dir__InitSymbols( void );