131 lines
4.5 KiB
C
131 lines
4.5 KiB
C
/* $Id$
|
|
*
|
|
* Initiialization of runtime support symbols
|
|
*/
|
|
#include "hbsetup.h"
|
|
#include "extend.h"
|
|
#include "types.h"
|
|
|
|
void ProcessSymbols( SYMBOL *, WORD );
|
|
|
|
HARBOUR AADD( void );
|
|
HARBOUR ABS( void );
|
|
HARBOUR ASC( void );
|
|
HARBOUR AT( void );
|
|
HARBOUR CHR( void );
|
|
HARBOUR CTOD( void );
|
|
HARBOUR DATE( void );
|
|
HARBOUR DAY( void );
|
|
HARBOUR DTOC( void );
|
|
HARBOUR DTOS( void );
|
|
HARBOUR EMPTY( void );
|
|
HARBOUR EXP( void );
|
|
HARBOUR INT( void );
|
|
HARBOUR LEFT( void );
|
|
HARBOUR LEN( void );
|
|
HARBOUR LOG( void );
|
|
HARBOUR LOWER( void );
|
|
HARBOUR LTRIM( void );
|
|
HARBOUR MAX( void );
|
|
HARBOUR MIN( void );
|
|
HARBOUR MONTH( void );
|
|
HARBOUR PCOUNT( void );
|
|
HARBOUR REPLICATE( void );
|
|
HARBOUR RTRIM( void );
|
|
HARBOUR SPACE( void );
|
|
HARBOUR SQRT( void );
|
|
HARBOUR STR( void );
|
|
HARBOUR STR( void );
|
|
HARBOUR SUBSTR( void );
|
|
HARBOUR TIME( void );
|
|
HARBOUR TRANSFORM( void );
|
|
HARBOUR TRIM( void );
|
|
HARBOUR UPPER( void );
|
|
HARBOUR VAL( void );
|
|
HARBOUR YEAR( void );
|
|
|
|
|
|
static SYMBOL symbols[] = {
|
|
{ "AADD" , FS_PUBLIC, AADD , 0 },
|
|
{ "ABS" , FS_PUBLIC, ABS , 0 },
|
|
{ "ASC" , FS_PUBLIC, ASC , 0 },
|
|
{ "AT" , FS_PUBLIC, AT , 0 },
|
|
{ "BOF" , FS_PUBLIC, NULL , 0 },
|
|
{ "BREAK" , FS_PUBLIC, NULL , 0 },
|
|
{ "CDOW" , FS_PUBLIC, NULL , 0 },
|
|
{ "CHR" , FS_PUBLIC, CHR , 0 },
|
|
{ "CMONTH" , FS_PUBLIC, NULL , 0 },
|
|
{ "COL" , FS_PUBLIC, NULL , 0 },
|
|
{ "CTOD" , FS_PUBLIC, CTOD , 0 },
|
|
{ "DATE" , FS_PUBLIC, DATE , 0 },
|
|
{ "DAY" , FS_PUBLIC, DAY , 0 },
|
|
{ "DELETED" , FS_PUBLIC, NULL , 0 },
|
|
{ "DEVPOS" , FS_PUBLIC, NULL , 0 },
|
|
{ "DO" , FS_PUBLIC, NULL , 0 },
|
|
{ "DOW" , FS_PUBLIC, NULL , 0 },
|
|
{ "DTOC" , FS_PUBLIC, DTOC , 0 },
|
|
{ "DTOS" , FS_PUBLIC, DTOS , 0 },
|
|
{ "EMPTY" , FS_PUBLIC, EMPTY , 0 },
|
|
{ "EOF" , FS_PUBLIC, NULL , 0 },
|
|
{ "EXP" , FS_PUBLIC, EXP , 0 },
|
|
{ "FCOUNT" , FS_PUBLIC, NULL , 0 },
|
|
{ "FIELDNAME" , FS_PUBLIC, NULL , 0 },
|
|
{ "FLOCK" , FS_PUBLIC, NULL , 0 },
|
|
{ "FOUND" , FS_PUBLIC, NULL , 0 },
|
|
{ "INKEY" , FS_PUBLIC, NULL , 0 },
|
|
{ "INT" , FS_PUBLIC, INT , 0 },
|
|
{ "LASTREC" , FS_PUBLIC, NULL , 0 },
|
|
{ "LEFT" , FS_PUBLIC, LEFT , 0 },
|
|
{ "LEN" , FS_PUBLIC, LEN , 0 },
|
|
{ "LOCK" , FS_PUBLIC, NULL , 0 },
|
|
{ "LOG" , FS_PUBLIC, LOG , 0 },
|
|
{ "LOWER" , FS_PUBLIC, LOWER , 0 },
|
|
{ "LTRIM" , FS_PUBLIC, LTRIM , 0 },
|
|
{ "MAX" , FS_PUBLIC, MAX , 0 },
|
|
{ "MIN" , FS_PUBLIC, MIN , 0 },
|
|
{ "MONTH" , FS_PUBLIC, MONTH , 0 },
|
|
{ "PCOL" , FS_PUBLIC, NULL , 0 },
|
|
{ "PCOUNT" , FS_PUBLIC, PCOUNT , 0 },
|
|
{ "PROW" , FS_PUBLIC, NULL , 0 },
|
|
{ "QSELF" , FS_PUBLIC, NULL , 0 },
|
|
{ "RECCOUNT" , FS_PUBLIC, NULL , 0 },
|
|
{ "RECNO" , FS_PUBLIC, NULL , 0 },
|
|
{ "REPLICATE" , FS_PUBLIC, REPLICATE , 0 },
|
|
{ "RLOCK" , FS_PUBLIC, NULL , 0 },
|
|
{ "ROUND" , FS_PUBLIC, NULL , 0 },
|
|
{ "ROW" , FS_PUBLIC, NULL , 0 },
|
|
{ "RTRIM" , FS_PUBLIC, RTRIM , 0 },
|
|
{ "SECONDS" , FS_PUBLIC, NULL , 0 },
|
|
{ "SELECT" , FS_PUBLIC, NULL , 0 },
|
|
{ "SETPOS" , FS_PUBLIC, NULL , 0 },
|
|
{ "SPACE" , FS_PUBLIC, SPACE , 0 },
|
|
{ "SQRT" , FS_PUBLIC, SQRT , 0 },
|
|
{ "STR" , FS_PUBLIC, STR , 0 },
|
|
{ "SUBSTR" , FS_PUBLIC, SUBSTR , 0 },
|
|
{ "TIME" , FS_PUBLIC, TIME , 0 },
|
|
{ "TRANSFORM" , FS_PUBLIC, TRANSFORM , 0 },
|
|
{ "TRIM" , FS_PUBLIC, TRIM , 0 },
|
|
{ "TYPE" , FS_PUBLIC, NULL , 0 },
|
|
{ "UPPER" , FS_PUBLIC, UPPER , 0 },
|
|
{ "VAL" , FS_PUBLIC, VAL , 0 },
|
|
{ "WORD" , FS_PUBLIC, NULL , 0 },
|
|
{ "YEAR" , FS_PUBLIC, YEAR , 0 }
|
|
};
|
|
|
|
/*
|
|
* Registers runtime support functions symbols
|
|
*/
|
|
void InitSymbolTable( void )
|
|
{
|
|
/*
|
|
* Place here your <modulename>__InitSymbols functions
|
|
*/
|
|
Classes__InitSymbols();
|
|
Descend__InitSymbols();
|
|
|
|
/*
|
|
* The system symbol table with runtime functions HAVE TO be called last
|
|
*/
|
|
ProcessSymbols( symbols, sizeof(symbols)/sizeof( SYMBOL ) );
|
|
}
|