fivedev/harbour-core
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity
Files
8414073d1c2ca7c04bb417ce57fbc00a5feb6f2b
harbour-core/harbour/include/hbsetup.h
Przemyslaw Czerpak fb60be5866 2006-06-17 00:20 UTC+0200 Przemyslaw Czerpak (druzus/at/priv.onet.pl) 
* harbour/include/hbcomp.h
    + added extern hb_comp_szFile

  * harbour/include/hbinit.h
    * changed hb_vmProcessSymbolsExt() to hb_vmProcessSymbolsEx() respecting
      Mindaugas suggestion.
    + added HB_INIT_SYMBOLS_EX_END() macro
    * translate HB_INIT_SYMBOLS_END() macro to HB_INIT_SYMBOLS_EX_END()

  * harbour/include/hbsetup.h
    + added HB_PCODE_VER_MIN and HB_PCODE_VER both now are set to 0x0001

  * harbour/include/hbtypes.h
    * changed VM_PROCESS_SYMBOLS_EXT to VM_PROCESS_SYMBOLS_EX

  * harbour/include/hbvm.h
    + added hb_vmFindModuleSymbolName() - it returns the file name of given
      symbol if it was registered in HVM

  * harbour/source/compiler/genc.c
    * set HB_FS_LOCAL for local module functions
    * use HB_INIT_SYMBOLS_EX_END instead of HB_INIT_SYMBOLS_END

  * harbour/source/compiler/harbour.c
    * minor modifications

  * harbour/contrib/rdd_ads/ads1.c
  * harbour/source/rdd/dbf1.c
  * harbour/source/rdd/delim1.c
  * harbour/source/rdd/sdf1.c
  * harbour/source/rdd/dbfdbt/dbfdbt1.c
  * harbour/source/rdd/dbffpt/dbffpt1.c
  * harbour/source/rdd/dbfcdx/dbfcdx1.c
    * added HB_FS_LOCAL to function symbols in registered symbol tables

  * harbour/source/rdd/dbfntx/dbfntx1.c
    * added HB_FS_LOCAL to function symbols in registered symbol tables
    ! added missing break
    + added DBOI_KEYCOUNTRAW, DBOI_KEYNORAW. They works like DBOI_KEYCOUNT
      and DBOI_KEYNO in pure DBFNTX. Only with some upper level RDDs like
      RMDBFNTX which supports bit map filters they can return differ results.

  * harbour/source/rdd/workarea.c
    * changed ORDERINFO to DBORDERINFO in error message

  * harbour/source/rtl/set.c
    * respect previous settings in logical SETs if given value is not valid
      new one.
    + added misinf initialization for _SET_FORCEOPT and _SET_HARDCOMMIT.
    * changed default value of _SET_OPTIMIZE to TRUE

  * harbour/source/vm/dynsym.c
    * give the highest priority for LOCAL function symbols

  * harbour/source/vm/hvm.c
    + added hb_vmFindModuleSymbolName() - it returns the file name of given
      symbol if it was registered in HVM
    * changed hb_vmProcessSymbolsExt() to hb_vmProcessSymbolsEx() and added
      PCOE version checking

  * harbour/source/vm/maindllp.c
    * changed hb_vmProcessSymbolsExt() to hb_vmProcessSymbolsEx()
    * changed VM_PROCESS_SYMBOLS_EXT to VM_PROCESS_SYMBOLS_EX

  * harbour/source/vm/proc.c
    * changed to use stack macros/functions instead of direct accessing
      HB_STACK members
    + implemented PROCFILE() - it returns now real source file name
      with body of given function symbol or function executed at given
      stack level. If the source file cannot be detected then empty
      string is returned. Unlike in xHarbour it works also for static
      functions. synatx:
         PROCFILE( [ <FuncSym> | <nStackLevel> ] )
      F.e.:
         PROCFILE() -> current module name
         PROCFILE(@DBFCDX())  -> ../../dbfcdx1.c
2006-06-17 06:36:33 +00:00

418 lines
14 KiB
C
Raw Blame History

/*
* $Id$
*/
/*
* Harbour Project source code:
* Header file for compiler and runtime configuration
*
* Copyright 1999 Ryszard Glab <rglab@imid.med.pl>
* www - http://www.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. 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_SETUP_H_
#define HB_SETUP_H_
#include <limits.h>
/* ***********************************************************************
* Include settings common for .PRG and .C files
*/
#include "hbsetup.ch"
/* ***********************************************************************
* Define PCODE version number
* HB_PCODE_VER_MIN define minimum supported PCODE by HVM
*/
#define HB_PCODE_VER 0x0001
#define HB_PCODE_VER_MIN 0x0001
/* ***********************************************************************
* NOTE: You can select the default language modul used by Harbour, by
* defining this to a valid language modul identifier.
*/
#ifndef HB_LANG_DEFAULT
#define HB_LANG_DEFAULT EN
#endif
/* ***********************************************************************
* This symbol defines if Harbour is compiled using C compiler
* that support strict ANSI C only
*
* The only non ANSI C feature that we are using is an ability
* to call functions before the 'main' module is called.
* This trick is used to automatically join all symbol tables defined
* in run-time support modules and in user defined modules.
* If strict ANSI C compability is required then all symbol tables
* have to be joined manually by calling special function named
* hb_vm_SymbolInit_<module_name>
* (for example for myfirst.prg it will be: 'hb_vm_SymbolInit_MYFIRST'
* The generation of this function is performed by the macro called
* HB_CALL_ON_STARTUP that is defined in 'hbinit.h'
*
* By default we are using extensions to ANSI C (symbol is not defined)
*/
/*#define HARBOUR_STRICT_ANSI_C */
/* ***********************************************************************
* This symbol defines the calling convention used for Harbour level
* functions.
*
* To use "pascal" mode, you should define this macro to "pascal".
*
* By default we are not using any special calling conventions.
*/
/*#define HB_FUNC_CALLCONV*/
/* ***********************************************************************
* Define this option if you want the /y YACC trace option to be available
* in the Harbour compiler.
*
* Note that if you turn this on, the compiler will slighly grow in size.
*
* By default this is turned on.
* TODO: This should be disabled, when the parser has matured.
*/
/*#define HARBOUR_YYDEBUG*/
/* ***********************************************************************
* If you turn this on, the memory subsystem will collect trace information
* and several statistical data about memory management, it will show
* these on exit if memory seem to have been leaked. The memory subsystem
* will also do pointer checks. [vszakats]
* This should be normally turned off in a final release.
*
* Note that if you turn this on, Harbour will be slighlty slower, larger
* and will consume more memory.
*
* By default this is turned on. Define HB_FM_STATISTICS_OFF to turn it off.
*/
#ifndef HB_FM_STATISTICS_OFF
#define HB_FM_STATISTICS
#endif
/* ***********************************************************************
* Enable profiler support in HVM
* By default this is turned off. Define HB_USE_PROFILER to turn it on.
*/
#ifndef HB_USE_PROFILER
#define HB_NO_PROFILER
#endif
/* ***********************************************************************
* Use native Windows memory allocation functions (HB_OS_WIN_32)
* This option can disabled compiler memory allocation optimization
* so you should really have a good reason to enable it
*/
/* #define HB_FM_WIN32_ALLOC */
/* ***********************************************************************
* This symbol defines if we want an ability to create and link OBJ files
* generated by Harbour compiler
*
* Note that the Virtual Machine support need a platform/compiler specific
* assembler module, so you will be able to use this only with 32 bits
* Borland C/C++ compilers.
*
* By default it is disabled (symbol is not defined)
*/
/*#define HARBOUR_OBJ_GENERATION*/
/* ***********************************************************************
* You can select here, what type of main entry will be used in the
* application (main() or WinMain()).
*
* By default the standard C main() function will be used.
*/
/*#define HARBOUR_MAIN_STD*/
/*#define HARBOUR_MAIN_WIN*/
/* ***********************************************************************
* You can set here the maximum symbol name length handled by Harbour
* compiler and runtime. You can override this setting in the make process.
*
* By default this value is 63
*/
#ifndef HB_SYMBOL_NAME_LEN
/* NOTE: For complete CA-Cl*pper compatibility you can set the maximum
symbol name to 10. Sometimes this can be useful for compiling legacy
code. [vszakats] */
/*
#ifdef HB_C52_STRICT
#define HB_SYMBOL_NAME_LEN 10
#else
*/
#define HB_SYMBOL_NAME_LEN 63
/*
#endif
*/
#endif
/* ***********************************************************************
* You can select here, if the preprocessor should be linked
* for commands preprocessing passed to the macro compiler.
* (Note, that if it is linked then commands preprocessing can be
* disabled/enabled at runtime using HB_SETMACRO() function
*
* By default we do not support commands in the macro compiler.
*/
/* #define HB_MACRO_STATEMENTS */
/* ***********************************************************************
* This fixes a bug in Clipper that allowed for copy array elements
* beyond the destination array size
*
* By default we are 100% Clipper compatible
*/
/* #define HB_FIX_ACOPY_BUG */
/* ***********************************************************************
* This controls an optimisation in ASORT() function
*
* If this is defined the item copying is optimized, in a way that
* instead of calling the official hb_itemCopy(), the item structures
* will be directly copied with memcpy(), this means that the related
* data areas (string space for example) will never be moved. This can be
* safely done here, because it's guaranteed by the nature of sorting
* that the set of items doesn't change (there're no deleted or new
* items, just swapping) in this functions.
* Using this option makes sorting *much* faster, but if you have a
* problem, or the low level stuff changes, turn it off. [vszakats]
*/
/*
* It's not longer used - current code which uses hb_itemSwap() should
* give similar performance (probably a little bit worser due to some small
* function call overhead) but it's ready for automatic GC activation and
* I'd like to keep it.
* If the current performance is not enough then I can change sorting
* algorithm used inside ASORT and with cost of some additional memory
* improve the speed but it's not my priority now. [druzus]
*/
/* #define HB_ASORT_OPT_ITEMCOPY */
/* ***********************************************************************
* You can select here faster but less secure behaviour of STOD() function
* There is no data validation if this is enabled.
*
* By default we are using secure method.
*/
/* #define HB_FAST_STOD */
/* ***********************************************************************
* You can select here if you want a strong type support in the compiler
* For example:
* LOCAL nVar AS ARRAY
*
* By default we are not using the strong typing because it is not
* complete code and can be erratic now.
*/
/* #define HB_COMP_STRONG_TYPES */
/* ***********************************************************************
* Detect GCC/OS2
*/
#if defined(__EMX__) && ! defined(__RSXNT__)
#define HARBOUR_GCC_OS2
#endif
/* ***********************************************************************
* Operating system specific definitions
*/
#if ( defined(__GNUC__) && \
! ( defined(__DJGPP__) || defined(__EMX__) || defined(__RSXNT__) || \
defined(_Windows) || defined(_WIN32) ) ) || \
( defined(__WATCOMC__) && defined(__LINUX__) )
#define HOST_OS_UNIX_COMPATIBLE
#define OS_UNIX_COMPATIBLE
#define OS_PATH_LIST_SEPARATOR ':'
#define OS_PATH_DELIMITER '/'
#define OS_PATH_DELIMITER_STRING "/"
#define OS_PATH_DELIMITER_LIST "/"
#define OS_FILE_MASK "*"
#undef OS_DRIVE_DELIMITER
#undef OS_HAS_DRIVE_LETTER
#define OS_OPT_DELIMITER_LIST "-"
#define OS_EOL_LEN 1
#else
/* we are assuming here the DOS compatible OS */
#define OS_DOS_COMPATIBLE
#define OS_PATH_LIST_SEPARATOR ';'
#define OS_PATH_DELIMITER '\\'
#define OS_PATH_DELIMITER_STRING "\\"
#define OS_PATH_DELIMITER_LIST "\\/:"
#define OS_FILE_MASK "*.*"
#define OS_DRIVE_DELIMITER ':'
#define OS_HAS_DRIVE_LETTER
#define OS_OPT_DELIMITER_LIST "/-"
#define OS_EOL_LEN 2 /* # of bytes in End of Line marker */
#endif
#ifndef _POSIX_PATH_MAX
#define _POSIX_PATH_MAX 255
#endif
#define HB_ISOPTSEP( c ) ( strchr( OS_OPT_DELIMITER_LIST, ( c ) ) != NULL )
/* ***********************************************************************
* Platform detection
*/
#if defined(__WATCOMC__)
#if defined(__OS2__)
#define HB_OS_OS2
#elif defined(__NT__) || defined(__WINDOWS_386__) || defined(__WINDOWS__)
#define HB_OS_WIN_32
#elif defined(__LINUX__)
#define HB_OS_LINUX
#elif defined(__386__)
#define HB_OS_DOS
#define HB_OS_DOS_32
#else
#define HB_OS_DOS
#define HB_OS_DOS_16
#endif
#endif
#ifndef HB_OS_DOS
#if defined(DOS) || defined(_QC) || defined(__DOS__) || defined(MSDOS) || defined(__MSDOS__) || defined(__RSX32__)
#define HB_OS_DOS
#if defined(__386__) || defined(__DJGPP__)
#define HB_OS_DOS_32
#else
#define HB_OS_DOS_16
#endif
#endif
#endif
#ifndef HB_OS_OS2
#if defined(OS2) || defined(__OS2__) || defined(OS_2) || defined(HARBOUR_GCC_OS2)
#define HB_OS_OS2
#if defined(__EMX__)
#define HB_OS_OS2_EMX
#endif
#endif
#endif
#ifndef HB_OS_WIN_32
#if defined(WINNT) || defined(_Windows) || defined(__NT__) || defined(_WIN32) || defined(_WINDOWS_) || defined(__WINDOWS_386__) || defined(__WIN32__) || defined(__CYGWIN__)
#define HB_OS_WIN_32
#endif
#endif
#ifdef HB_OS_DARWIN
#if ! defined(HB_OS_BSD)
#define HB_OS_BSD
#endif
#endif
#ifndef HB_OS_UNIX
#if defined(OS_UNIX_COMPATIBLE) || defined(HB_OS_LINUX) || defined(HB_OS_BSD) || defined(HB_OS_SUNOS) || defined(HB_OS_HPUX)
#define HB_OS_UNIX
#endif
#endif
#ifndef HB_OS_MAC
#if defined(__MPW__)
#define HB_OS_MAC
#endif
#endif
/* ***********************************************************************
* Here you can force the EOL string to be CRLF
*
* By default, the EOL string depends upon the detected platform.
*/
/* #define HB_EOL_CRLF */
#ifdef HB_EOL_CRLF
#undef OS_EOL_LEN
#define OS_EOL_LEN 2
#endif
/* ***********************************************************************
* See also the following files for task specific definitions/settings
*
* hbmath.h - math errors handling
*/
/* ***********************************************************************
* Fix DJGPP in call to: toupper(), tolower(), is...()
*
*/
#if defined(__DJGPP__)
#include "hbfixdj.h"
/* Substitute snprintf() by sprintf() for DJGPP <= 2.03.
* This is a temporary hack, should implement a C99 snprintf() ourselves. */
#if ( __DJGPP__ < 2 || ( __DJGPP__ == 2 && __DJGPP_MINOR__ <= 3 ) )
#define snprintf(s, len, args...) sprintf( (s), ##args )
#endif
#elif defined( _MSC_VER ) && !defined(__XCC__)
#define snprintf _snprintf
#elif defined(__WATCOMC__)
#if __WATCOMC__ < 1200
#define snprintf _bprintf
#endif
#endif
/* ***********************************************************************
* Extern "C" detection
*/
#if defined(__cplusplus) && !defined(__IBMCPP__)
#define HB_EXTERN_C
#define HB_EXTERN_BEGIN extern "C" {
#define HB_EXTERN_END }
#else
#define HB_EXTERN_BEGIN
#define HB_EXTERN_END
#endif
#endif /* HB_SETUP_H_ */
Reference in New Issue View Git Blame Copy Permalink