a4a357a18b
* /harbour/* -> /*
* moved whole Harbour source tree one level up to
avoid single 'harbour' top dir
256 lines
9.5 KiB
C
256 lines
9.5 KiB
C
/*
|
|
* $Id$
|
|
*/
|
|
|
|
/*
|
|
* Harbour Project source code:
|
|
* Header file for the generated C language source code
|
|
*
|
|
* Copyright 1999-2001 Viktor Szakats (harbour syenar.net)
|
|
* www - http://harbour-project.org
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2, or (at your option)
|
|
* any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License
|
|
* along with this software; see the file COPYING.txt. If not, write to
|
|
* the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
|
|
* Boston, MA 02111-1307 USA (or visit the web site http://www.gnu.org/).
|
|
*
|
|
* As a special exception, the Harbour Project gives permission for
|
|
* additional uses of the text contained in its release of Harbour.
|
|
*
|
|
* The exception is that, if you link the Harbour libraries with other
|
|
* files to produce an executable, this does not by itself cause the
|
|
* resulting executable to be covered by the GNU General Public License.
|
|
* Your use of that executable is in no way restricted on account of
|
|
* linking the Harbour library code into it.
|
|
*
|
|
* This exception does not however invalidate any other reasons why
|
|
* the executable file might be covered by the GNU General Public License.
|
|
*
|
|
* This exception applies only to the code released by the Harbour
|
|
* Project under the name Harbour. If you copy code from other
|
|
* Harbour Project or Free Software Foundation releases into a copy of
|
|
* Harbour, as the General Public License permits, the exception does
|
|
* not apply to the code that you add in this way. To avoid misleading
|
|
* anyone as to the status of such modified files, you must delete
|
|
* this exception notice from them.
|
|
*
|
|
* If you write modifications of your own for Harbour, it is your choice
|
|
* whether to permit this exception to apply to your modifications.
|
|
* If you do not wish that, delete this exception notice.
|
|
*
|
|
*/
|
|
|
|
#ifndef HB_VMPUB_H_
|
|
#define HB_VMPUB_H_
|
|
|
|
#include "hbdefs.h"
|
|
|
|
/* Maximum symbol name length handled by Harbour compiler and runtime.
|
|
For strict CA-Cl*pper compatibility a value of 10 would have
|
|
to be used, but Harbour won't properly compile using this setting. */
|
|
#define HB_SYMBOL_NAME_LEN 63
|
|
|
|
HB_EXTERN_BEGIN
|
|
|
|
#ifdef _HB_API_INTERNAL_
|
|
|
|
struct _HB_SYMB;
|
|
|
|
# define HB_ITEM_TYPERAW( p ) ( ( p )->type )
|
|
# define HB_ITEM_TYPE( p ) ( HB_ITEM_TYPERAW( p ) & ~ HB_IT_DEFAULT )
|
|
# define HB_OBJ_CLASS( p ) ( ( p )->item.asArray.value->uiClass )
|
|
# define HB_ARRAY_OBJ( p ) ( ( p )->item.asArray.value->uiClass != 0 )
|
|
|
|
# define HB_ITEM_GET_NUMINTRAW( p ) ( HB_IS_INTEGER( p ) ? \
|
|
( HB_MAXINT ) (p)->item.asInteger.value : \
|
|
( HB_MAXINT ) (p)->item.asLong.value )
|
|
|
|
# define HB_ITEM_PUT_NUMINTRAW( p, v ) \
|
|
do { \
|
|
if( HB_LIM_INT( v ) ) \
|
|
{ \
|
|
(p)->type = HB_IT_INTEGER; \
|
|
(p)->item.asInteger.length = HB_INT_EXPLENGTH( v ); \
|
|
(p)->item.asInteger.value = ( int ) (v); \
|
|
} \
|
|
else \
|
|
{ \
|
|
(p)->type = HB_IT_LONG; \
|
|
(p)->item.asLong.value = (v); \
|
|
(p)->item.asLong.length = HB_LONG_EXPLENGTH( v ); \
|
|
} \
|
|
} while( 0 )
|
|
|
|
# if HB_VMINT_MAX >= LONG_MAX
|
|
# define HB_ITEM_PUT_LONGRAW( p, v ) \
|
|
do { \
|
|
(p)->type = HB_IT_INTEGER; \
|
|
(p)->item.asInteger.value = ( int ) (v); \
|
|
(p)->item.asInteger.length = HB_INT_LENGTH( v ); \
|
|
} while( 0 )
|
|
# else
|
|
# define HB_ITEM_PUT_LONGRAW( p, v ) \
|
|
do { \
|
|
(p)->type = HB_IT_LONG; \
|
|
(p)->item.asLong.value = (v); \
|
|
(p)->item.asLong.length = HB_LONG_LENGTH( v ); \
|
|
} while( 0 )
|
|
# endif
|
|
|
|
# define HB_ITEM_GET_NUMDBLRAW( p ) ( HB_IS_INTEGER( p ) ? \
|
|
( double ) (p)->item.asInteger.value : \
|
|
( HB_IS_LONG( p ) ? \
|
|
( double ) (p)->item.asLong.value : \
|
|
(p)->item.asDouble.value ) )
|
|
|
|
# define HB_VM_ISFUNC( pSym ) ( ( pSym )->value.pFunPtr )
|
|
|
|
# define HB_VM_FUNCUNREF( pSym ) \
|
|
do { \
|
|
if( ( ( pSym )->scope.value & HB_FS_DEFERRED ) && \
|
|
( pSym )->pDynSym ) \
|
|
pSym = ( pSym )->pDynSym->pSymbol; \
|
|
} while( 0 )
|
|
|
|
# define HB_VM_EXECUTE( pSym ) \
|
|
do { \
|
|
/* Running pCode dynamic function from .hrb? */ \
|
|
if( ( pSym )->scope.value & HB_FS_PCODEFUNC ) \
|
|
hb_vmExecute( ( pSym )->value.pCodeFunc->pCode, \
|
|
( pSym )->value.pCodeFunc->pSymbols ); \
|
|
else \
|
|
( pSym )->value.pFunPtr(); \
|
|
} while( 0 )
|
|
|
|
/* dynamic symbol structure */
|
|
typedef struct _HB_DYNS
|
|
{
|
|
struct _HB_SYMB * pSymbol; /* pointer to its relative local symbol */
|
|
# if ! defined( HB_MT_VM )
|
|
void * pMemvar; /* memvar pointer ( publics & privates ) */
|
|
HB_USHORT uiArea; /* Workarea number */
|
|
# endif /* ! HB_MT_VM */
|
|
HB_USHORT uiSymNum; /* dynamic symbol number */
|
|
# if ! defined( HB_NO_PROFILER )
|
|
HB_ULONG ulCalls; /* profiler support */
|
|
HB_ULONG ulTime; /* profiler support */
|
|
HB_ULONG ulRecurse; /* profiler support */
|
|
# endif /* ! HB_NO_PROFILER */
|
|
} HB_DYNS, * PHB_DYNS;
|
|
|
|
/* pCode dynamic function - HRB */
|
|
typedef struct _HB_PCODEFUNC
|
|
{
|
|
HB_BYTE * pCode; /* function body - PCODE */
|
|
struct _HB_SYMB * pSymbols;/* module symbol table */
|
|
} HB_PCODEFUNC, * PHB_PCODEFUNC;
|
|
|
|
#else /* ! _HB_API_INTERNAL_ */
|
|
|
|
# undef _HB_API_MACROS_
|
|
# undef _HB_STACK_MACROS_
|
|
|
|
/* This is ugly trick but works without speed overhead */
|
|
# define HB_ITEM_TYPERAW( p ) ( * ( HB_TYPE * ) ( p ) )
|
|
/* if you do not like it then use this definition */
|
|
/* # define HB_ITEM_TYPERAW( p ) ( hb_itemType( p ) ) */
|
|
|
|
# define HB_ITEM_TYPE( p ) ( HB_ITEM_TYPERAW( p ) & ~HB_IT_DEFAULT )
|
|
|
|
# define HB_OBJ_CLASS( p ) ( hb_objGetClass( p ) )
|
|
# define HB_ARRAY_OBJ( p ) ( hb_arrayIsObject( p ) )
|
|
|
|
/* basic types */
|
|
typedef void * PHB_ITEM;
|
|
typedef void * PHB_CODEBLOCK;
|
|
typedef void * PHB_PCODEFUNC;
|
|
|
|
typedef void HB_STACK;
|
|
|
|
/*
|
|
* The first version reduce the number of modification in existing 3-rd
|
|
* party code but in longer terms I'd prefer to disable it and left
|
|
* only the second one where PHB_DYNS is mapped to void*.
|
|
* This will allow us to fully redesign dynamic symbol internals
|
|
* in the future if it will be necessary. [druzus]
|
|
*/
|
|
#if 0
|
|
struct _HB_SYMB;
|
|
typedef struct
|
|
{
|
|
struct _HB_SYMB * pSymbol; /* pointer to its relative local symbol */
|
|
} _HB_DYNS, * PHB_DYNS;
|
|
#else
|
|
typedef void * PHB_DYNS;
|
|
#endif
|
|
|
|
#endif /* ! _HB_API_INTERNAL_ */
|
|
|
|
/* symbol support structure */
|
|
typedef struct _HB_SYMB
|
|
{
|
|
const char * szName; /* the name of the symbol */
|
|
union
|
|
{
|
|
HB_SYMBOLSCOPE value; /* the scope of the symbol */
|
|
void * pointer; /* filler to force alignment */
|
|
} scope;
|
|
union
|
|
{
|
|
PHB_FUNC pFunPtr; /* machine code function address for function symbol table entries */
|
|
PHB_PCODEFUNC pCodeFunc; /* PCODE function address */
|
|
void * pStaticsBase; /* base offset to array of statics */
|
|
} value;
|
|
PHB_DYNS pDynSym; /* pointer to its dynamic symbol if defined */
|
|
} HB_SYMB, * PHB_SYMB;
|
|
|
|
#define HB_DYNS_FUNC( hbfunc ) HB_BOOL hbfunc( PHB_DYNS pDynSymbol, void * Cargo )
|
|
typedef HB_DYNS_FUNC( ( * PHB_DYNS_FUNC ) );
|
|
|
|
#define HB_CARGO_FUNC( func ) void func( void *cargo )
|
|
typedef HB_CARGO_FUNC( ( * PHB_CARGO_FUNC ) );
|
|
|
|
typedef void * ( * PHB_ALLOCUPDT_FUNC )( void *, int );
|
|
|
|
typedef void (*HB_INIT_FUNC)(void *);
|
|
/* List of functions used by hb_vmAtInit()/hb_vmAtExit() */
|
|
typedef struct _HB_FUNC_LIST
|
|
{
|
|
HB_INIT_FUNC pFunc;
|
|
void * cargo;
|
|
struct _HB_FUNC_LIST * pNext;
|
|
} HB_FUNC_LIST, * PHB_FUNC_LIST;
|
|
|
|
/* Harbour Functions scope ( HB_SYMBOLSCOPE ) */
|
|
#define HB_FS_PUBLIC ( ( HB_SYMBOLSCOPE ) 0x0001 )
|
|
#define HB_FS_STATIC ( ( HB_SYMBOLSCOPE ) 0x0002 )
|
|
#define HB_FS_FIRST ( ( HB_SYMBOLSCOPE ) 0x0004 )
|
|
#define HB_FS_INIT ( ( HB_SYMBOLSCOPE ) 0x0008 )
|
|
#define HB_FS_EXIT ( ( HB_SYMBOLSCOPE ) 0x0010 )
|
|
#define HB_FS_MESSAGE ( ( HB_SYMBOLSCOPE ) 0x0020 )
|
|
#define HB_FS_MEMVAR ( ( HB_SYMBOLSCOPE ) 0x0080 )
|
|
#define HB_FS_PCODEFUNC ( ( HB_SYMBOLSCOPE ) 0x0100 )
|
|
#define HB_FS_LOCAL ( ( HB_SYMBOLSCOPE ) 0x0200 )
|
|
#define HB_FS_DYNCODE ( ( HB_SYMBOLSCOPE ) 0x0400 )
|
|
#define HB_FS_DEFERRED ( ( HB_SYMBOLSCOPE ) 0x0800 )
|
|
#define HB_FS_FRAME ( ( HB_SYMBOLSCOPE ) 0x1000 )
|
|
#define HB_FS_USED ( ( HB_SYMBOLSCOPE ) 0x2000 )
|
|
|
|
#define HB_FS_INITEXIT ( HB_FS_INIT | HB_FS_EXIT )
|
|
|
|
extern HB_EXPORT void hb_vmExecute( const HB_BYTE * pCode, PHB_SYMB pSymbols ) HB_FLATTEN_ATTR; /* invokes the virtual machine */
|
|
|
|
HB_EXTERN_END
|
|
|
|
#endif /* HB_VMPUB_H_ */
|