diff --git a/harbour/ChangeLog b/harbour/ChangeLog index cfdf300ab4..e726cf1549 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -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 diff --git a/harbour/source/rtl/arrays.c b/harbour/source/rtl/arrays.c index f72b274c67..969da9adb8 100644 --- a/harbour/source/rtl/arrays.c +++ b/harbour/source/rtl/arrays.c @@ -6,8 +6,6 @@ #include #include -void ProcessSymbols( SYMBOL *, WORD ); - HARBOUR HB_ACLONE(void); HARBOUR HB_ACOPY(void); HARBOUR HB_ADEL(void); diff --git a/harbour/source/rtl/classes.c b/harbour/source/rtl/classes.c index 7a3a79f869..89e595bcad 100644 --- a/harbour/source/rtl/classes.c +++ b/harbour/source/rtl/classes.c @@ -6,8 +6,6 @@ #include #include -void ProcessSymbols( SYMBOL *, WORD ); - #define MET_METHOD 0 #define MET_DATA 1 #define MET_CLASSDATA 2 diff --git a/harbour/source/rtl/console.c b/harbour/source/rtl/console.c index 4bfcd78486..3d11898bc8 100644 --- a/harbour/source/rtl/console.c +++ b/harbour/source/rtl/console.c @@ -18,6 +18,43 @@ #include #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]; diff --git a/harbour/source/rtl/descend.c b/harbour/source/rtl/descend.c index b0086b5f42..9795fb0852 100644 --- a/harbour/source/rtl/descend.c +++ b/harbour/source/rtl/descend.c @@ -1,8 +1,6 @@ #include #include -void ProcessSymbols( SYMBOL *, WORD ); - HARBOUR HB_DESCEND(void); static SYMBOL symbols[] = { diff --git a/harbour/source/rtl/dir.c b/harbour/source/rtl/dir.c index 3201dfd425..0b52af5874 100644 --- a/harbour/source/rtl/dir.c +++ b/harbour/source/rtl/dir.c @@ -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) diff --git a/harbour/source/rtl/environ.c b/harbour/source/rtl/environ.c index 13350e5f78..be7c80d157 100644 --- a/harbour/source/rtl/environ.c +++ b/harbour/source/rtl/environ.c @@ -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; diff --git a/harbour/source/rtl/files.c b/harbour/source/rtl/files.c index 83a6e2d759..4f62fa7a0f 100644 --- a/harbour/source/rtl/files.c +++ b/harbour/source/rtl/files.c @@ -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) diff --git a/harbour/source/rtl/hardcr.c b/harbour/source/rtl/hardcr.c index 78cd87fe4d..3c46b5582d 100644 --- a/harbour/source/rtl/hardcr.c +++ b/harbour/source/rtl/hardcr.c @@ -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[] = { diff --git a/harbour/source/rtl/math.c b/harbour/source/rtl/math.c index 8bee2ebc46..e4ebe0a1a5 100644 --- a/harbour/source/rtl/math.c +++ b/harbour/source/rtl/math.c @@ -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 ) diff --git a/harbour/source/rtl/mtran.c b/harbour/source/rtl/mtran.c index 2a0a2c87be..2ed658e388 100644 --- a/harbour/source/rtl/mtran.c +++ b/harbour/source/rtl/mtran.c @@ -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[] = { diff --git a/harbour/source/rtl/set.c b/harbour/source/rtl/set.c index 15d5a9ad3e..cbc72a5aab 100644 --- a/harbour/source/rtl/set.c +++ b/harbour/source/rtl/set.c @@ -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; diff --git a/harbour/source/rtl/strings.c b/harbour/source/rtl/strings.c index b02e0d3686..cd49e96c04 100644 --- a/harbour/source/rtl/strings.c +++ b/harbour/source/rtl/strings.c @@ -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; diff --git a/harbour/source/rtl/transfrm.c b/harbour/source/rtl/transfrm.c index c181229750..fc64fc3125 100644 --- a/harbour/source/rtl/transfrm.c +++ b/harbour/source/rtl/transfrm.c @@ -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 */ diff --git a/harbour/source/vm/initsymb.c b/harbour/source/vm/initsymb.c index afe8c4a783..a276c8a964 100644 --- a/harbour/source/vm/initsymb.c +++ b/harbour/source/vm/initsymb.c @@ -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 diff --git a/harbour/tests/working/run_exp.h b/harbour/tests/working/run_exp.h index cb8a507d3b..dea971cea8 100644 --- a/harbour/tests/working/run_exp.h +++ b/harbour/tests/working/run_exp.h @@ -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 } };