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

See changelog

Browse Source
This commit is contained in:
Eddie Runia
1999-07-16 13:10:10 +00:00
parent c8bee533b3
commit 53d63a62f5
7 changed files with 44 additions and 20 deletions
Download Patch File Download Diff File Expand all files Collapse all files

9
harbour/ChangeLog
View File

@@ -1,3 +1,12 @@
19990716-15:00 CET Eddie Runia <eddie@runia.com>
* 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 <eddie@runia.com>
* source/runner/runner.c
Typo corrected

1
harbour/include/initsymb.h
View File

@@ -7,6 +7,7 @@
Arrays__InitSymbols();
Classes__InitSymbols();
Console__InitSymbols();
CopyFile__InitSymbols();
Dates__InitSymbols();
Descend__InitSymbols();
Dir__InitSymbols();

40
harbour/source/rtl/console.c
View File

@@ -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

10
harbour/source/rtl/copyfile.c
View File

@@ -7,6 +7,7 @@
#include <errorapi.h>
#include <ctoharb.h>
#include <filesys.h>
#include <init.h>
#ifdef OS_UNIX_COMPATIBLE
#include <sys/stat.h>
@@ -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 */

2
harbour/source/rtl/math.c
View File

@@ -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 );

1
harbour/source/runner/runner.c
View File

@@ -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 );

1
harbour/source/vm/initsymb.c
View File

@@ -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 );