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-06-13 13:52:54 +00:00
parent 17007dabc4
commit 859b4268df
16 changed files with 285 additions and 199 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
harbour/ChangeLog
View File

@@ -1,3 +1,15 @@
19990613 14:30 CET Eddie Runia
* source/rtl/arrays.c; source/rtl/classes.c; source/rtl/files.c;
source/rtl/console.c; source/rtl/dir.c; source/rtl/environ.c;
source/rtl/math.c; source/rtl/set.c; source/rtl/strings.c
InitSymbols added
* source/rtl/transfrm.c
Warnings eliminated
* source/vm/initsymb.c
calls to RTL functions added
* tests/working/run_exp.h
removed unnecessary references and sort alphabetically
19990612 08:30 CET Matthew Hamilton
* tests/working/inifiles.prg
with ReadBool and WriteBool

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

@@ -6,8 +6,6 @@
#include <extend.h>
#include <ctoharb.h>
void ProcessSymbols( SYMBOL *, WORD );
HARBOUR HB_ACLONE(void);
HARBOUR HB_ACOPY(void);
HARBOUR HB_ADEL(void);

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

@@ -6,8 +6,6 @@
#include <itemapi.h>
#include <ctoharb.h>
void ProcessSymbols( SYMBOL *, WORD );
#define MET_METHOD 0
#define MET_DATA 1
#define MET_CLASSDATA 2

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

@@ -18,6 +18,43 @@
#include <gtapi.h>
#endif
HARBOUR HB___ACCEPT(void);
HARBOUR HB_DEVOUT( void );
HARBOUR HB_DEVPOS( void );
HARBOUR HB_EJECT( void );
HARBOUR HB_MAXCOL( void );
HARBOUR HB_MAXROW( void );
HARBOUR HB_OUTSTD( void );
HARBOUR HB_OUTERR( void );
HARBOUR HB_PCOL( void );
HARBOUR HB_PROW( void );
HARBOUR HB_SCROLL( void );
HARBOUR HB_SETPRC( void );
HARBOUR HB_QOUT( void );
HARBOUR HB_QQOUT( void );
static SYMBOL symbols[] = {
{ "__ACCEPT", FS_PUBLIC, HB___ACCEPT, 0 },
{ "DEVOUT" , FS_PUBLIC, HB_DEVOUT , 0 },
{ "DEVPOS" , FS_PUBLIC, HB_DEVPOS , 0 },
{ "EJECT" , FS_PUBLIC, HB_EJECT , 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 },
{ "PCOL" , FS_PUBLIC, HB_PCOL , 0 },
{ "PROW" , FS_PUBLIC, HB_PROW , 0 },
{ "SCROLL" , FS_PUBLIC, HB_SCROLL , 0 },
{ "SETPRC" , FS_PUBLIC, HB_SETPRC , 0 },
{ "QOUT" , FS_PUBLIC, HB_QOUT , 0 },
{ "QQOUT" , FS_PUBLIC, HB_QQOUT , 0 }
};
void Console__InitSymbols( void )
{
ProcessSymbols( symbols, sizeof(symbols)/sizeof( SYMBOL ) );
}
static unsigned short dev_row, dev_col, p_row, p_col;
static char CrLf [3];

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

@@ -1,8 +1,6 @@
#include <extend.h>
#include <ctype.h>
void ProcessSymbols( SYMBOL *, WORD );
HARBOUR HB_DESCEND(void);
static SYMBOL symbols[] = {

11
harbour/source/rtl/dir.c
View File

@@ -81,6 +81,16 @@
#define PATH_SEPARATOR '\\'
#endif
HARBOUR HB_DIRECTORY(void);
static SYMBOL symbols[] = {
{ "DIRECTORY", FS_PUBLIC, HB_DIRECTORY, 0 }
};
void Dir__InitSymbols( void )
{
ProcessSymbols( symbols, sizeof(symbols)/sizeof( SYMBOL ) );
}
static BOOL hb_strMatchDOS (char *pszString, char *pszMask);
@@ -181,6 +191,7 @@ HARBOUR HB_DIRECTORY( void )
*/
/* should have drive,directory in dirname and filespec in pattern */
tzset();
pdir = hb_itemArrayNew(0);
dir = opendir( dirname );
if (NULL == dir)

15
harbour/source/rtl/environ.c
View File

@@ -28,6 +28,21 @@
#endif
#endif
HARBOUR HB_GETENV(void);
HARBOUR HB_OS(void);
HARBOUR HB_VERSION(void);
static SYMBOL symbols[] = {
{ "GETENV" , FS_PUBLIC, HB_GETENV , 0 },
{ "OS" , FS_PUBLIC, HB_OS , 0 },
{ "VERSION", FS_PUBLIC, HB_VERSION, 0 }
};
void Environ__InitSymbols( void )
{
ProcessSymbols( symbols, sizeof(symbols)/sizeof( SYMBOL ) );
}
HARBOUR HB_OS(void)
{
int hb_osmajor = -1, hb_osminor = -1, hb_osletter = -1;

42
harbour/source/rtl/files.c
View File

@@ -112,6 +112,48 @@ static USHORT last_error = 0;
extern int rename( const char *, const char * );
HARBOUR HB_BIN2I( void );
HARBOUR HB_BIN2L( void );
HARBOUR HB_BIN2W( void );
HARBOUR HB_FCLOSE( void );
HARBOUR HB_FCREATE( void );
HARBOUR HB_FERASE( void );
HARBOUR HB_FERROR( void );
HARBOUR HB_FILE( void );
HARBOUR HB_FOPEN( void );
HARBOUR HB_FREAD( void );
HARBOUR HB_FREADSTR( void );
HARBOUR HB_FRENAME( void );
HARBOUR HB_FSEEK( void );
HARBOUR HB_FWRITE( void );
HARBOUR HB_I2BIN( void );
HARBOUR HB_L2BIN( void );
HARBOUR HB_W2BIN( void );
static SYMBOL symbols[] = {
{ "BIN2I" , FS_PUBLIC, HB_BIN2I , 0 },
{ "BIN2L" , FS_PUBLIC, HB_BIN2L , 0 },
{ "BIN2W" , FS_PUBLIC, HB_BIN2W , 0 },
{ "FCLOSE" , FS_PUBLIC, HB_FCLOSE , 0 },
{ "FCREATE" , FS_PUBLIC, HB_FCREATE , 0 },
{ "FERASE" , FS_PUBLIC, HB_FERASE , 0 },
{ "FERROR" , FS_PUBLIC, HB_FERROR , 0 },
{ "FILE" , FS_PUBLIC, HB_FILE , 0 },
{ "FOPEN" , FS_PUBLIC, HB_FOPEN , 0 },
{ "FREAD" , FS_PUBLIC, HB_FREAD , 0 },
{ "FREADSTR", FS_PUBLIC, HB_FREADSTR, 0 },
{ "FSEEK" , FS_PUBLIC, HB_FSEEK , 0 },
{ "FWRITE" , FS_PUBLIC, HB_FWRITE , 0 },
{ "I2BIN" , FS_PUBLIC, HB_I2BIN , 0 },
{ "L2BIN" , FS_PUBLIC, HB_L2BIN , 0 },
{ "W2BIN" , FS_PUBLIC, HB_W2BIN , 0 }
};
void Files__InitSymbols( void )
{
ProcessSymbols( symbols, sizeof(symbols)/sizeof( SYMBOL ) );
}
/* Convert HARBOUR flags to IO subsystem flags */
#if defined(HAVE_POSIX_IO)

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

@@ -4,8 +4,6 @@
#define CHR_HARD1 (char)141
#define CHR_HARD2 (char)10
void ProcessSymbols( SYMBOL *, WORD );
HARBOUR HB_HARDCR(void);
static SYMBOL symbols[] = {

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

@@ -7,6 +7,31 @@
extern STACK stack;
HARBOUR HB_ABS( void );
HARBOUR HB_EXP( void );
HARBOUR HB_INT( void );
HARBOUR HB_LOG( void );
HARBOUR HB_MAX( void );
HARBOUR HB_MIN( void );
HARBOUR HB_MOD( void );
HARBOUR HB_SQRT( void );
static SYMBOL symbols[] = {
{ "ABS" , FS_PUBLIC, HB_ABS , 0 },
{ "EXP" , FS_PUBLIC, HB_EXP , 0 },
{ "INT" , FS_PUBLIC, HB_INT , 0 },
{ "LOG" , FS_PUBLIC, HB_LOG , 0 },
{ "MAX" , FS_PUBLIC, HB_MAX , 0 },
{ "MIN" , FS_PUBLIC, HB_MIN , 0 },
{ "MOD" , FS_PUBLIC, HB_MOD , 0 },
{ "SQRT" , FS_PUBLIC, HB_SQRT , 0 }
};
void Math__InitSymbols( void )
{
ProcessSymbols( symbols, sizeof(symbols)/sizeof( SYMBOL ) );
}
HARBOUR HB_ABS( void )
{
if( _pcount() == 1 )

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

@@ -7,8 +7,6 @@
#define CHR_SOFT1 (char)13
#define CHR_SOFT2 (char)10
void ProcessSymbols( SYMBOL *, WORD );
HARBOUR HB_MEMOTRAN(void);
static SYMBOL symbols[] = {

15
harbour/source/rtl/set.c
View File

@@ -21,6 +21,21 @@ BOOL hb_set_fixed;
int hb_set_althan;
int hb_set_printhan;
HARBOUR HB_SET( void );
HARBOUR HB_SETCENTURY( void );
HARBOUR HB_SETFIXED( void );
static SYMBOL symbols[] = {
{ "SET" , FS_PUBLIC, HB_SET , 0 },
{ "SETCENTURY", FS_PUBLIC, HB_SETCENTURY, 0 },
{ "SETFIXED" , FS_PUBLIC, HB_SETFIXED , 0 }
};
void Set__InitSymbols( void )
{
ProcessSymbols( symbols, sizeof(symbols)/sizeof( SYMBOL ) );
}
static BOOL set_logical (PHB_ITEM pItem)
{
BOOL logical;

37
harbour/source/rtl/strings.c
View File

@@ -10,6 +10,43 @@ extern STACK stack;
#define HB_ISSPACE(c) ((c) == 9 || (c) == 10 || (c) == 13 || (c) == 32)
HARBOUR HB_ALLTRIM( void );
HARBOUR HB_ISALPHA( void );
HARBOUR HB_ISDIGIT( void );
HARBOUR HB_ISUPPER( void );
HARBOUR HB_ISLOWER( void );
HARBOUR HB_PAD( void );
HARBOUR HB_PADC( void );
HARBOUR HB_PADL( void );
HARBOUR HB_PADR( void );
HARBOUR HB_RAT( void );
HARBOUR HB_RIGHT( void );
HARBOUR HB_STRTRAN( void );
HARBOUR HB_STUFF( void );
HARBOUR HB_TRIM( void );
static SYMBOL symbols[] = {
{ "ALLTRIM", FS_PUBLIC, HB_ALLTRIM, 0 },
{ "ISALPHA", FS_PUBLIC, HB_ISALPHA, 0 },
{ "ISDIGIT", FS_PUBLIC, HB_ISDIGIT, 0 },
{ "ISUPPER", FS_PUBLIC, HB_ISUPPER, 0 },
{ "ISLOWER", FS_PUBLIC, HB_ISLOWER, 0 },
{ "PAD" , FS_PUBLIC, HB_PAD , 0 },
{ "PADC" , FS_PUBLIC, HB_PADC , 0 },
{ "PADL" , FS_PUBLIC, HB_PADL , 0 },
{ "PADR" , FS_PUBLIC, HB_PADR , 0 },
{ "RAT" , FS_PUBLIC, HB_RAT , 0 },
{ "RIGHT" , FS_PUBLIC, HB_RIGHT , 0 },
{ "STRTRAN", FS_PUBLIC, HB_STRTRAN, 0 },
{ "STUFF" , FS_PUBLIC, HB_STUFF , 0 },
{ "TRIM" , FS_PUBLIC, HB_TRIM , 0 }
};
void Strings__InitSymbols( void )
{
ProcessSymbols( symbols, sizeof(symbols)/sizeof( SYMBOL ) );
}
BOOL hb_strempty( char * szText, ULONG ulLen )
{
BOOL bRetVal = TRUE;

3
harbour/source/rtl/transfrm.c
View File

@@ -135,7 +135,7 @@ char *NumPicture( char *szPic, long lPic, int iPicFlags, double dValue,
char *szStr;
char cPic;
PHB_ITEM pItem = NULL; /* Suppress warning */
PHB_ITEM pItem;
BYTE bFound = FALSE;
BYTE bEmpty; /* Suppress empty string */
@@ -533,7 +533,6 @@ HARBOUR HB_TRANSFORM( void )
case IT_LOGICAL:
{
szExp = pExp->value.szText;
szResult = (char *) _xgrab( lPic + 1 );
/* That's all folks */
szPic += lPicStart; /* Skip functions */

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

@@ -9,9 +9,16 @@
extern void Arrays__InitSymbols( void );
extern void Classes__InitSymbols( void );
extern void Console__InitSymbols( void );
extern void Descend__InitSymbols( void );
extern void Dir__InitSymbols( void );
extern void Environ__InitSymbols( void );
extern void Files__InitSymbols( void );
extern void HardCR__InitSymbols( void );
extern void Math__InitSymbols( void );
extern void Memotran__InitSymbols( void );
extern void Set__InitSymbols( void );
extern void Strings__InitSymbols( void );
void ProcessSymbols( SYMBOL *, WORD );
@@ -22,9 +29,11 @@ HARBOUR HB_AT( void );
HARBOUR HB_CDOW( void );
HARBOUR HB_CHR( void );
HARBOUR HB_CMONTH( void );
HARBOUR HB_COL( void );
HARBOUR HB_CTOD( void );
HARBOUR HB_DATE( void );
HARBOUR HB_DAY( void );
HARBOUR HB_DEVPOS( void );
HARBOUR HB_DOW( void );
HARBOUR HB_DTOC( void );
HARBOUR HB_DTOS( void );
@@ -41,10 +50,12 @@ HARBOUR HB_MIN( void );
HARBOUR HB_MONTH( void );
HARBOUR HB_PCOUNT( void );
HARBOUR HB_REPLICATE( void );
HARBOUR HB_ROW( void );
HARBOUR HB_RTRIM( void );
HARBOUR HB_SECONDS( void );
HARBOUR HB_SPACE( void );
HARBOUR HB_SQRT( void );
HARBOUR HB_STOD( void );
HARBOUR HB_STR( void );
HARBOUR HB_SUBSTR( void );
HARBOUR HB_TIME( void );
@@ -64,12 +75,12 @@ static SYMBOL symbols[] = {
{ "CDOW" , FS_PUBLIC, HB_CDOW , 0 },
{ "CHR" , FS_PUBLIC, HB_CHR , 0 },
{ "CMONTH" , FS_PUBLIC, HB_CMONTH , 0 },
{ "COL" , FS_PUBLIC, NULL , 0 },
{ "COL" , FS_PUBLIC, HB_COL , 0 },
{ "CTOD" , FS_PUBLIC, HB_CTOD , 0 },
{ "DATE" , FS_PUBLIC, HB_DATE , 0 },
{ "DAY" , FS_PUBLIC, HB_DAY , 0 },
{ "DELETED" , FS_PUBLIC, NULL , 0 },
{ "DEVPOS" , FS_PUBLIC, NULL , 0 },
{ "DEVPOS" , FS_PUBLIC, HB_DEVPOS , 0 },
{ "DO" , FS_PUBLIC, NULL , 0 },
{ "DOW" , FS_PUBLIC, HB_DOW , 0 },
{ "DTOC" , FS_PUBLIC, HB_DTOC , 0 },
@@ -102,13 +113,14 @@ static SYMBOL symbols[] = {
{ "REPLICATE" , FS_PUBLIC, HB_REPLICATE , 0 },
{ "RLOCK" , FS_PUBLIC, NULL , 0 },
{ "ROUND" , FS_PUBLIC, NULL , 0 },
{ "ROW" , FS_PUBLIC, NULL , 0 },
{ "ROW" , FS_PUBLIC, HB_ROW , 0 },
{ "RTRIM" , FS_PUBLIC, HB_RTRIM , 0 },
{ "SECONDS" , FS_PUBLIC, HB_SECONDS , 0 },
{ "SELECT" , FS_PUBLIC, NULL , 0 },
{ "SETPOS" , FS_PUBLIC, NULL , 0 },
{ "SPACE" , FS_PUBLIC, HB_SPACE , 0 },
{ "SQRT" , FS_PUBLIC, HB_SQRT , 0 },
{ "STOD" , FS_PUBLIC, HB_STOD , 0 },
{ "STR" , FS_PUBLIC, HB_STR , 0 },
{ "SUBSTR" , FS_PUBLIC, HB_SUBSTR , 0 },
{ "TIME" , FS_PUBLIC, HB_TIME , 0 },
@@ -131,9 +143,16 @@ void InitSymbolTable( void )
*/
Arrays__InitSymbols();
Classes__InitSymbols();
Console__InitSymbols();
Descend__InitSymbols();
Dir__InitSymbols();
Environ__InitSymbols();
Files__InitSymbols();
HardCR__InitSymbols();
Math__InitSymbols();
Memotran__InitSymbols();
Set__InitSymbols();
Strings__InitSymbols();
/*
* The system symbol table with runtime functions HAVE TO be called last

252
harbour/tests/working/run_exp.h
View File

@@ -7,105 +7,33 @@
* If the discussion has finished, it can be removed from here.
*
*/
HARBOUR HB___ACCEPT();
HARBOUR HB_OUTSTD();
HARBOUR HB_OUTERR();
HARBOUR HB_DEVPOS();
HARBOUR HB_DEVOUT();
HARBOUR HB_EJECT();
HARBOUR HB_QQOUT();
HARBOUR HB_QOUT();
HARBOUR HB_ERRORSYS();
HARBOUR HB_ERRORNEW();
HARBOUR HB_EVAL();
HARBOUR HB_VALTYPE();
HARBOUR HB_ASORT();
HARBOUR HB_STOD();
HARBOUR HB_SETCENTURY();
HARBOUR HB_SET();
HARBOUR HB_OS();
HARBOUR HB_FOPEN();
HARBOUR HB_FCREATE();
HARBOUR HB_FREAD();
HARBOUR HB_FWRITE();
HARBOUR HB_FERROR();
HARBOUR HB_FCLOSE();
HARBOUR HB_FERASE();
HARBOUR HB_FRENAME();
HARBOUR HB_FSEEK();
HARBOUR HB_FILE();
HARBOUR HB_FREADSTR();
HARBOUR HB_BIN2I();
HARBOUR HB_BIN2L();
HARBOUR HB_BIN2W();
HARBOUR HB_I2BIN();
HARBOUR HB_L2BIN();
HARBOUR HB_W2BIN();
HARBOUR HB_EXP();
HARBOUR HB_LOG();
HARBOUR HB_MOD();
HARBOUR HB_DEFAULT();
HARBOUR HB_TOCHAR();
HARBOUR HB_DEBUG();
HARBOUR HB_ISALPHA();
HARBOUR HB_ISDIGIT();
HARBOUR HB_ISUPPER();
HARBOUR HB_ISLOWER();
HARBOUR HB_LTRIM();
HARBOUR HB_TRIM();
HARBOUR HB_ALLTRIM();
HARBOUR HB_PADR();
HARBOUR HB_PAD();
HARBOUR HB_PADL();
HARBOUR HB_PADC();
HARBOUR HB_RAT();
HARBOUR HB_RIGHT();
HARBOUR HB_SPACE();
HARBOUR HB_STUFF();
HARBOUR HB_STRTRAN();
HARBOUR HB_DATETIME();
HARBOUR HB_DOW();
HARBOUR HB___ASTATIC();
HARBOUR HB___STATIC();
HARBOUR HB___GLOBALSTACKLEN();
HARBOUR HB___AGLOBALSTACK();
HARBOUR HB___STACKLEN();
HARBOUR HB___ASTACK();
HARBOUR HB___APARAM();
HARBOUR HB___ASTACK();
HARBOUR HB___ASTATIC();
HARBOUR HB___GLOBALSTACKLEN();
HARBOUR HB___STACKLEN();
HARBOUR HB___STATIC();
HARBOUR HB_ACOS();
HARBOUR HB_ASIN();
HARBOUR HB_ATAN();
HARBOUR HB_COS();
HARBOUR HB_COSH();
HARBOUR HB_LOG10();
HARBOUR HB_SIN();
HARBOUR HB_SINH();
HARBOUR HB_TAN();
HARBOUR HB_TANH();
HARBOUR HB_STRDUMP();
HARBOUR HB_STRTOKEN();
HARBOUR HB_ROT13();
HARBOUR HB_PVALUE();
HARBOUR HB_HB_FUSE();
HARBOUR HB_HB_FRECNO();
HARBOUR HB_HB_FLASTREC();
HARBOUR HB_HB_FGOTOP();
HARBOUR HB_HB_FGOBOTTOM();
HARBOUR HB_HB_FGOTO();
HARBOUR HB_HB_FEOF();
HARBOUR HB_HB_FREADLN();
HARBOUR HB_HB_FSKIP();
HARBOUR HB_GETENV();
HARBOUR HB_DIRECTORY();
HARBOUR HB_DATETIME();
HARBOUR HB_DEBUG();
HARBOUR HB_DEFAULT();
HARBOUR HB_ERRORNEW();
HARBOUR HB_ERRORSYS();
HARBOUR HB_EVAL();
HARBOUR HB_GT_ASCIISUM();
HARBOUR HB_GT_ASCPOS();
HARBOUR HB_GT_ATDIFF();
HARBOUR HB_GT_CHAREVEN();
HARBOUR HB_GT_CHARMIX();
HARBOUR HB_GT_CHARODD();
HARBOUR HB_GT_CHRCOUNT();
HARBOUR HB_GT_CHRTOTAL();
HARBOUR HB_GT_CHARMIX();
HARBOUR HB_GT_ASCIISUM();
HARBOUR HB_GT_CHRFIRST();
HARBOUR HB_GT_CHRTOTAL();
HARBOUR HB_GT_STRCOUNT();
HARBOUR HB_GT_STRCSPN();
HARBOUR HB_GT_STRDIFF();
@@ -113,12 +41,26 @@ HARBOUR HB_GT_STREXPAND();
HARBOUR HB_GT_STRLEFT();
HARBOUR HB_GT_STRPBRK();
HARBOUR HB_GT_STRRIGHT();
HARBOUR HB_MAXROW();
HARBOUR HB_MAXCOL();
HARBOUR HB_SETPRC();
HARBOUR HB_SCROLL();
HARBOUR HB_VERSION();
HARBOUR HB_SETFIXED();
HARBOUR HB_HB_FEOF();
HARBOUR HB_HB_FGOBOTTOM();
HARBOUR HB_HB_FGOTO();
HARBOUR HB_HB_FGOTOP();
HARBOUR HB_HB_FLASTREC();
HARBOUR HB_HB_FREADLN();
HARBOUR HB_HB_FRECNO();
HARBOUR HB_HB_FSKIP();
HARBOUR HB_HB_FUSE();
HARBOUR HB_LOG10();
HARBOUR HB_PVALUE();
HARBOUR HB_ROT13();
HARBOUR HB_SIN();
HARBOUR HB_SINH();
HARBOUR HB_STRDUMP();
HARBOUR HB_STRTOKEN();
HARBOUR HB_TAN();
HARBOUR HB_TANH();
HARBOUR HB_TOCHAR();
HARBOUR HB_VALTYPE();
/* Same story.
@@ -128,105 +70,33 @@ HARBOUR HB_SETFIXED();
static SYMBOL symbols[] = {
{ "HB_RUN", FS_PUBLIC, HB_HB_RUN , 0 },
{ "__ACCEPT", FS_PUBLIC, HB___ACCEPT , 0 },
{ "OUTSTD", FS_PUBLIC, HB_OUTSTD , 0 },
{ "OUTERR", FS_PUBLIC, HB_OUTERR , 0 },
{ "DEVPOS", FS_PUBLIC, HB_DEVPOS , 0 },
{ "DEVOUT", FS_PUBLIC, HB_DEVOUT , 0 },
{ "EJECT", FS_PUBLIC, HB_EJECT , 0 },
{ "QQOUT", FS_PUBLIC, HB_QQOUT , 0 },
{ "QOUT", FS_PUBLIC, HB_QOUT , 0 },
{ "ERRORSYS", FS_PUBLIC, HB_ERRORSYS , 0 },
{ "ERRORNEW", FS_PUBLIC, HB_ERRORNEW , 0 },
{ "EVAL", FS_PUBLIC, HB_EVAL , 0 },
{ "VALTYPE", FS_PUBLIC, HB_VALTYPE , 0 },
{ "ASORT", FS_PUBLIC, HB_ASORT , 0 },
{ "STOD", FS_PUBLIC, HB_STOD , 0 },
{ "SETCENTURY", FS_PUBLIC, HB_SETCENTURY , 0 },
{ "SET", FS_PUBLIC, HB_SET , 0 },
{ "OS", FS_PUBLIC, HB_OS , 0 },
{ "FOPEN", FS_PUBLIC, HB_FOPEN , 0 },
{ "FCREATE", FS_PUBLIC, HB_FCREATE , 0 },
{ "FREAD", FS_PUBLIC, HB_FREAD , 0 },
{ "FWRITE", FS_PUBLIC, HB_FWRITE , 0 },
{ "FERROR", FS_PUBLIC, HB_FERROR , 0 },
{ "FCLOSE", FS_PUBLIC, HB_FCLOSE , 0 },
{ "FERASE", FS_PUBLIC, HB_FERASE , 0 },
{ "FRENAME", FS_PUBLIC, HB_FRENAME , 0 },
{ "FSEEK", FS_PUBLIC, HB_FSEEK , 0 },
{ "FILE", FS_PUBLIC, HB_FILE , 0 },
{ "FREADSTR", FS_PUBLIC, HB_FREADSTR , 0 },
{ "BIN2I", FS_PUBLIC, HB_BIN2I , 0 },
{ "BIN2L", FS_PUBLIC, HB_BIN2L , 0 },
{ "BIN2W", FS_PUBLIC, HB_BIN2W , 0 },
{ "I2BIN", FS_PUBLIC, HB_I2BIN , 0 },
{ "L2BIN", FS_PUBLIC, HB_L2BIN , 0 },
{ "W2BIN", FS_PUBLIC, HB_W2BIN , 0 },
{ "EXP", FS_PUBLIC, HB_EXP , 0 },
{ "LOG", FS_PUBLIC, HB_LOG , 0 },
{ "MOD", FS_PUBLIC, HB_MOD , 0 },
{ "DEFAULT", FS_PUBLIC, HB_DEFAULT , 0 },
{ "TOCHAR", FS_PUBLIC, HB_TOCHAR , 0 },
{ "DEBUG", FS_PUBLIC, HB_DEBUG , 0 },
{ "ISALPHA", FS_PUBLIC, HB_ISALPHA , 0 },
{ "ISDIGIT", FS_PUBLIC, HB_ISDIGIT , 0 },
{ "ISUPPER", FS_PUBLIC, HB_ISUPPER , 0 },
{ "ISLOWER", FS_PUBLIC, HB_ISLOWER , 0 },
{ "LTRIM", FS_PUBLIC, HB_LTRIM , 0 },
{ "TRIM", FS_PUBLIC, HB_TRIM , 0 },
{ "ALLTRIM", FS_PUBLIC, HB_ALLTRIM , 0 },
{ "PADR", FS_PUBLIC, HB_PADR , 0 },
{ "PAD", FS_PUBLIC, HB_PAD , 0 },
{ "PADL", FS_PUBLIC, HB_PADL , 0 },
{ "PADC", FS_PUBLIC, HB_PADC , 0 },
{ "RAT", FS_PUBLIC, HB_RAT , 0 },
{ "RIGHT", FS_PUBLIC, HB_RIGHT , 0 },
{ "SPACE", FS_PUBLIC, HB_SPACE , 0 },
{ "STUFF", FS_PUBLIC, HB_STUFF , 0 },
{ "STRTRAN", FS_PUBLIC, HB_STRTRAN , 0 },
{ "DATETIME", FS_PUBLIC, HB_DATETIME , 0 },
{ "DOW", FS_PUBLIC, HB_DOW , 0 },
{ "__ASTATIC", FS_PUBLIC, HB___ASTATIC , 0 },
{ "__STATIC", FS_PUBLIC, HB___STATIC , 0 },
{ "__GLOBALSTACKLEN", FS_PUBLIC, HB___GLOBALSTACKLEN, 0 },
{ "__AGLOBALSTACK", FS_PUBLIC, HB___AGLOBALSTACK, 0 },
{ "__STACKLEN", FS_PUBLIC, HB___STACKLEN , 0 },
{ "__ASTACK", FS_PUBLIC, HB___ASTACK , 0 },
{ "__APARAM", FS_PUBLIC, HB___APARAM , 0 },
{ "__ASTACK", FS_PUBLIC, HB___ASTACK , 0 },
{ "__ASTATIC", FS_PUBLIC, HB___ASTATIC , 0 },
{ "__GLOBALSTACKLEN", FS_PUBLIC, HB___GLOBALSTACKLEN, 0 },
{ "__STACKLEN", FS_PUBLIC, HB___STACKLEN , 0 },
{ "__STATIC", FS_PUBLIC, HB___STATIC , 0 },
{ "ACOS", FS_PUBLIC, HB_ACOS , 0 },
{ "ASIN", FS_PUBLIC, HB_ASIN , 0 },
{ "ATAN", FS_PUBLIC, HB_ATAN , 0 },
{ "COS", FS_PUBLIC, HB_COS , 0 },
{ "COSH", FS_PUBLIC, HB_COSH , 0 },
{ "LOG10", FS_PUBLIC, HB_LOG10 , 0 },
{ "SIN", FS_PUBLIC, HB_SIN , 0 },
{ "SINH", FS_PUBLIC, HB_SINH , 0 },
{ "TAN", FS_PUBLIC, HB_TAN , 0 },
{ "TANH", FS_PUBLIC, HB_TANH , 0 },
{ "STRDUMP", FS_PUBLIC, HB_STRDUMP , 0 },
{ "STRTOKEN", FS_PUBLIC, HB_STRTOKEN , 0 },
{ "ROT13", FS_PUBLIC, HB_ROT13 , 0 },
{ "PVALUE", FS_PUBLIC, HB_PVALUE , 0 },
{ "HB_FUSE", FS_PUBLIC, HB_HB_FUSE , 0 },
{ "HB_FRECNO", FS_PUBLIC, HB_HB_FRECNO , 0 },
{ "HB_FLASTREC", FS_PUBLIC, HB_HB_FLASTREC , 0 },
{ "HB_FGOTOP", FS_PUBLIC, HB_HB_FGOTOP , 0 },
{ "HB_FGOBOTTOM", FS_PUBLIC, HB_HB_FGOBOTTOM , 0 },
{ "HB_FGOTO", FS_PUBLIC, HB_HB_FGOTO , 0 },
{ "HB_FEOF", FS_PUBLIC, HB_HB_FEOF , 0 },
{ "HB_FREADLN", FS_PUBLIC, HB_HB_FREADLN , 0 },
{ "HB_FSKIP", FS_PUBLIC, HB_HB_FSKIP , 0 },
{ "GETENV", FS_PUBLIC, HB_GETENV , 0 },
{ "DIRECTORY", FS_PUBLIC, HB_DIRECTORY , 0 },
{ "DATETIME", FS_PUBLIC, HB_DATETIME , 0 },
{ "DEBUG", FS_PUBLIC, HB_DEBUG , 0 },
{ "DEFAULT", FS_PUBLIC, HB_DEFAULT , 0 },
{ "ERRORSYS", FS_PUBLIC, HB_ERRORSYS , 0 },
{ "ERRORNEW", FS_PUBLIC, HB_ERRORNEW , 0 },
{ "EVAL", FS_PUBLIC, HB_EVAL , 0 },
{ "GT_ASCIISUM", FS_PUBLIC, HB_GT_ASCIISUM , 0 },
{ "GT_ASCPOS", FS_PUBLIC, HB_GT_ASCPOS , 0 },
{ "GT_ATDIFF", FS_PUBLIC, HB_GT_ATDIFF , 0 },
{ "GT_CHAREVEN", FS_PUBLIC, HB_GT_CHAREVEN , 0 },
{ "GT_CHARODD", FS_PUBLIC, HB_GT_CHARODD , 0 },
{ "GT_CHRCOUNT", FS_PUBLIC, HB_GT_CHRCOUNT , 0 },
{ "GT_CHRTOTAL", FS_PUBLIC, HB_GT_CHRTOTAL , 0 },
{ "GT_CHARMIX", FS_PUBLIC, HB_GT_CHARMIX , 0 },
{ "GT_ASCIISUM", FS_PUBLIC, HB_GT_ASCIISUM , 0 },
{ "GT_CHRCOUNT", FS_PUBLIC, HB_GT_CHRCOUNT , 0 },
{ "GT_CHRFIRST", FS_PUBLIC, HB_GT_CHRFIRST , 0 },
{ "GT_CHRTOTAL", FS_PUBLIC, HB_GT_CHRTOTAL , 0 },
{ "GT_STRCOUNT", FS_PUBLIC, HB_GT_STRCOUNT , 0 },
{ "GT_STRCSPN", FS_PUBLIC, HB_GT_STRCSPN , 0 },
{ "GT_STRDIFF", FS_PUBLIC, HB_GT_STRDIFF , 0 },
@@ -234,12 +104,26 @@ static SYMBOL symbols[] = {
{ "GT_STRLEFT", FS_PUBLIC, HB_GT_STRLEFT , 0 },
{ "GT_STRPBRK", FS_PUBLIC, HB_GT_STRPBRK , 0 },
{ "GT_STRRIGHT", FS_PUBLIC, HB_GT_STRRIGHT , 0 },
{ "MAXROW", FS_PUBLIC, HB_MAXROW , 0 },
{ "MAXCOL", FS_PUBLIC, HB_MAXCOL , 0 },
{ "SETPRC", FS_PUBLIC, HB_SETPRC , 0 },
{ "SCROLL", FS_PUBLIC, HB_SCROLL , 0 },
{ "VERSION", FS_PUBLIC, HB_VERSION , 0 },
{ "SETFIXED", FS_PUBLIC, HB_SETFIXED , 0 }
{ "HB_FEOF", FS_PUBLIC, HB_HB_FEOF , 0 },
{ "HB_FGOBOTTOM", FS_PUBLIC, HB_HB_FGOBOTTOM , 0 },
{ "HB_FGOTO", FS_PUBLIC, HB_HB_FGOTO , 0 },
{ "HB_FGOTOP", FS_PUBLIC, HB_HB_FGOTOP , 0 },
{ "HB_FLASTREC", FS_PUBLIC, HB_HB_FLASTREC , 0 },
{ "HB_FRECNO", FS_PUBLIC, HB_HB_FRECNO , 0 },
{ "HB_FREADLN", FS_PUBLIC, HB_HB_FREADLN , 0 },
{ "HB_FSKIP", FS_PUBLIC, HB_HB_FSKIP , 0 },
{ "HB_FUSE", FS_PUBLIC, HB_HB_FUSE , 0 },
{ "LOG10", FS_PUBLIC, HB_LOG10 , 0 },
{ "PVALUE", FS_PUBLIC, HB_PVALUE , 0 },
{ "ROT13", FS_PUBLIC, HB_ROT13 , 0 },
{ "SIN", FS_PUBLIC, HB_SIN , 0 },
{ "SINH", FS_PUBLIC, HB_SINH , 0 },
{ "STRDUMP", FS_PUBLIC, HB_STRDUMP , 0 },
{ "STRTOKEN", FS_PUBLIC, HB_STRTOKEN , 0 },
{ "TAN", FS_PUBLIC, HB_TAN , 0 },
{ "TANH", FS_PUBLIC, HB_TANH , 0 },
{ "TOCHAR", FS_PUBLIC, HB_TOCHAR , 0 },
{ "VALTYPE", FS_PUBLIC, HB_VALTYPE , 0 }
};