From d21af17b6d46919cfe11572a3eb2fd01944d7e58 Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Fri, 5 Sep 2008 10:04:58 +0000 Subject: [PATCH] 2008-09-05 12:01 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * source/common/hbver.c ! Version detection fixed for __DMC__ [TOMERGE 1.0.1] * contrib/mtpl_gcc.mak % One unnecessary C -I option deleted. [TOMERGE 1.0.1] - contrib/hbsqlit2 + contrib/examples/hbsqlit2 * doc/whatsnew.txt * Moved hbsqlit2 to examples. [TOMERGE 1.0.1] * contrib/examples/hbsqlit2/Makefile * contrib/examples/hbsqlit2/make_b32.bat * contrib/examples/hbsqlit2/make_gcc.sh * contrib/examples/hbsqlit2/make_vc.bat * contrib/examples/hbsqlit2/common.mak * contrib/examples/hbsqlit2/tests/bld_b32.bat * contrib/examples/hbsqlit2/tests/bld_vc.bat * Modified make files to work from the new location. * Location of sqlite2 headers can be specified by HB_INC_SQLITE2. ; Notice that sqlite2 lib itself should now be build separately. [TOMERGE 1.0.1] --- harbour/ChangeLog | 31 ++++++++++ harbour/contrib/examples/hbsqlit2/Makefile | 26 ++++++++ .../contrib/{ => examples}/hbsqlit2/TODO.txt | 0 harbour/contrib/examples/hbsqlit2/common.mak | 16 +++++ .../{ => examples}/hbsqlit2/hbsqlit2.c | 0 .../{ => examples}/hbsqlit2/hbsqlit2.ch | 0 .../contrib/examples/hbsqlit2/make_b32.bat | 29 +++++++++ harbour/contrib/examples/hbsqlit2/make_gcc.sh | 31 ++++++++++ harbour/contrib/examples/hbsqlit2/make_vc.bat | 29 +++++++++ .../{ => examples}/hbsqlit2/readme.txt | 0 .../examples/hbsqlit2/tests/bld_b32.bat | 14 +++++ .../examples/hbsqlit2/tests/bld_vc.bat | 14 +++++ .../{ => examples}/hbsqlit2/tests/example.db | Bin .../hbsqlit2/tests/hbsqlite.prg | 0 harbour/contrib/hbsqlit2/Makefile | 57 ------------------ harbour/contrib/hbsqlit2/common.mak | 47 --------------- harbour/contrib/hbsqlit2/make_b32.bat | 6 -- harbour/contrib/hbsqlit2/make_gcc.sh | 7 --- harbour/contrib/hbsqlit2/make_vc.bat | 9 --- harbour/contrib/hbsqlit2/tests/bld_b32.bat | 14 ----- harbour/contrib/hbsqlit2/tests/bld_vc.bat | 14 ----- harbour/contrib/mtpl_gcc.mak | 2 +- harbour/doc/whatsnew.txt | 2 + harbour/source/common/hbver.c | 2 +- 24 files changed, 194 insertions(+), 156 deletions(-) create mode 100644 harbour/contrib/examples/hbsqlit2/Makefile rename harbour/contrib/{ => examples}/hbsqlit2/TODO.txt (100%) create mode 100644 harbour/contrib/examples/hbsqlit2/common.mak rename harbour/contrib/{ => examples}/hbsqlit2/hbsqlit2.c (100%) rename harbour/contrib/{ => examples}/hbsqlit2/hbsqlit2.ch (100%) create mode 100644 harbour/contrib/examples/hbsqlit2/make_b32.bat create mode 100755 harbour/contrib/examples/hbsqlit2/make_gcc.sh create mode 100644 harbour/contrib/examples/hbsqlit2/make_vc.bat rename harbour/contrib/{ => examples}/hbsqlit2/readme.txt (100%) create mode 100644 harbour/contrib/examples/hbsqlit2/tests/bld_b32.bat create mode 100644 harbour/contrib/examples/hbsqlit2/tests/bld_vc.bat rename harbour/contrib/{ => examples}/hbsqlit2/tests/example.db (100%) rename harbour/contrib/{ => examples}/hbsqlit2/tests/hbsqlite.prg (100%) delete mode 100644 harbour/contrib/hbsqlit2/Makefile delete mode 100644 harbour/contrib/hbsqlit2/common.mak delete mode 100644 harbour/contrib/hbsqlit2/make_b32.bat delete mode 100755 harbour/contrib/hbsqlit2/make_gcc.sh delete mode 100644 harbour/contrib/hbsqlit2/make_vc.bat delete mode 100644 harbour/contrib/hbsqlit2/tests/bld_b32.bat delete mode 100644 harbour/contrib/hbsqlit2/tests/bld_vc.bat diff --git a/harbour/ChangeLog b/harbour/ChangeLog index c5e65094d9..9003070d85 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -8,6 +8,37 @@ 2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org) */ +2008-09-05 12:01 UTC+0200 Viktor Szakats (harbour.01 syenar hu) + * source/common/hbver.c + ! Version detection fixed for __DMC__ + [TOMERGE 1.0.1] + + * contrib/mtpl_gcc.mak + % One unnecessary C -I option deleted. + [TOMERGE 1.0.1] + + - contrib/hbsqlit2 + + contrib/examples/hbsqlit2 + * doc/whatsnew.txt + * Moved hbsqlit2 to examples. + [TOMERGE 1.0.1] + + * contrib/examples/hbsqlit2/Makefile + * contrib/examples/hbsqlit2/make_b32.bat + * contrib/examples/hbsqlit2/make_gcc.sh + * contrib/examples/hbsqlit2/make_vc.bat + * contrib/examples/hbsqlit2/common.mak + * contrib/examples/hbsqlit2/tests/bld_b32.bat + * contrib/examples/hbsqlit2/tests/bld_vc.bat + * Modified make files to work from the new location. + * Location of sqlite2 headers can be specified by HB_INC_SQLITE2. + ; Notice that sqlite2 lib itself should now be build separately. + [TOMERGE 1.0.1] + +2008-09-05 11:23 UTC+0200 Viktor Szakats (harbour.01 syenar hu) + * source/common/hbver.c + ! Version detection fixed for __DMC__. + 2008-09-05 11:12 UTC+0200 Viktor Szakats (harbour.01 syenar hu) * contrib/mtpl_vc.mak - Removed recently (and mistakenly) added unnecessary option. diff --git a/harbour/contrib/examples/hbsqlit2/Makefile b/harbour/contrib/examples/hbsqlit2/Makefile new file mode 100644 index 0000000000..d023dee5e4 --- /dev/null +++ b/harbour/contrib/examples/hbsqlit2/Makefile @@ -0,0 +1,26 @@ +# +# $Id$ +# + +ROOT = ../../../ + +LIBNAME=hbsqlit2 + +ifneq ($(HB_ARCHITECTURE),dos) + +C_SOURCES =\ + hbsqlit2.c \ + +PRG_HEADERS=\ + hbsqlit2.ch + +include $(TOP)$(ROOT)config/header.cf +INSTALL_RULE_HEADERS := $(INSTALL_RULE) +include $(TOP)$(ROOT)config/lib.cf + +install:: + $(INSTALL_RULE_HEADERS) + +else +include $(TOP)$(ROOT)config/none.cf +endif diff --git a/harbour/contrib/hbsqlit2/TODO.txt b/harbour/contrib/examples/hbsqlit2/TODO.txt similarity index 100% rename from harbour/contrib/hbsqlit2/TODO.txt rename to harbour/contrib/examples/hbsqlit2/TODO.txt diff --git a/harbour/contrib/examples/hbsqlit2/common.mak b/harbour/contrib/examples/hbsqlit2/common.mak new file mode 100644 index 0000000000..a23be90367 --- /dev/null +++ b/harbour/contrib/examples/hbsqlit2/common.mak @@ -0,0 +1,16 @@ +# +# $Id$ +# + +LIBNAME = $(LIBPREF)hbsqlit2 + +LIB_PATH = $(LIB_DIR)$(LIBNAME)$(LIBEXT) + +PRG_HEADERS = \ + hbsqlit2.ch \ + +LIB_OBJS = \ + $(OBJ_DIR)hbsqlit2$(OBJEXT) \ + +all: \ + $(LIB_PATH) \ diff --git a/harbour/contrib/hbsqlit2/hbsqlit2.c b/harbour/contrib/examples/hbsqlit2/hbsqlit2.c similarity index 100% rename from harbour/contrib/hbsqlit2/hbsqlit2.c rename to harbour/contrib/examples/hbsqlit2/hbsqlit2.c diff --git a/harbour/contrib/hbsqlit2/hbsqlit2.ch b/harbour/contrib/examples/hbsqlit2/hbsqlit2.ch similarity index 100% rename from harbour/contrib/hbsqlit2/hbsqlit2.ch rename to harbour/contrib/examples/hbsqlit2/hbsqlit2.ch diff --git a/harbour/contrib/examples/hbsqlit2/make_b32.bat b/harbour/contrib/examples/hbsqlit2/make_b32.bat new file mode 100644 index 0000000000..b8cdada72a --- /dev/null +++ b/harbour/contrib/examples/hbsqlit2/make_b32.bat @@ -0,0 +1,29 @@ +@echo off +rem +rem $Id$ +rem + +if not "%HB_INC_SQLITE2% == "" goto DIR_OK + +echo --------------------------------------------------------------- +echo IMPORTANT: You'll need SQLite 2.8.16 package and this envvar +echo to be set to successfully build this library: +echo set HB_INC_SQLITE2=C:\sqlite2 +echo --------------------------------------------------------------- +goto POST_EXIT + +:DIR_OK + +set CFLAGS=-I"%HB_INC_SQLITE2%" + +set HB_ROOT=..\..\.. +set HB_MAKEFILE=..\..\mtpl_b32.mak + +call ..\mtpl_b32.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 + +set HB_ROOT= +set HB_MAKEFILE= + +set CFLAGS= + +:POST_EXIT diff --git a/harbour/contrib/examples/hbsqlit2/make_gcc.sh b/harbour/contrib/examples/hbsqlit2/make_gcc.sh new file mode 100755 index 0000000000..587cf414bd --- /dev/null +++ b/harbour/contrib/examples/hbsqlit2/make_gcc.sh @@ -0,0 +1,31 @@ +#!/bin/sh + +# +# $Id$ +# + +if [ "${HB_INC_SQLITE2}" = "" ] +then + echo "---------------------------------------------------------------" + echo "IMPORTANT: You will need SQLite 2.8.16 package package installed and this" + echo " envvar to be set to successfully build this library:" + echo " export HB_INC_SQLITE2=C:/sqlite2" + echo " or" + echo " export HB_INC_SQLITE2=/usr/include/sqlite2" + echo "---------------------------------------------------------------" + exit 1 +fi + +export HB_ROOT=../../.. +export HB_MAKEFILE=../../mtpl_gcc.mak + +export CFLAGS="" +for I in ${HB_INC_SQLITE2}; do + CFLAGS="${CFLAGS} -I${I}" +done +../mtpl_gcc.sh $1 $2 $3 $4 $5 $6 $7 $8 $9 + +unset CFLAGS + +unset HB_ROOT +unset HB_MAKEFILE diff --git a/harbour/contrib/examples/hbsqlit2/make_vc.bat b/harbour/contrib/examples/hbsqlit2/make_vc.bat new file mode 100644 index 0000000000..4b9c8e0b32 --- /dev/null +++ b/harbour/contrib/examples/hbsqlit2/make_vc.bat @@ -0,0 +1,29 @@ +@echo off +rem +rem $Id$ +rem + +if not "%HB_INC_SQLITE2% == "" goto DIR_OK + +echo --------------------------------------------------------------- +echo IMPORTANT: You'll need SQLite 2.8.16 package and this envvar +echo to be set to successfully build this library: +echo set HB_INC_SQLITE2=C:\sqlite2 +echo --------------------------------------------------------------- +goto POST_EXIT + +:DIR_OK + +set CFLAGS=-I"%HB_INC_SQLITE2%" + +set HB_ROOT=..\..\.. +set HB_MAKEFILE=..\..\mtpl_vc.mak + +call ..\mtpl_vc.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 + +set HB_ROOT= +set HB_MAKEFILE= + +set CFLAGS= + +:POST_EXIT diff --git a/harbour/contrib/hbsqlit2/readme.txt b/harbour/contrib/examples/hbsqlit2/readme.txt similarity index 100% rename from harbour/contrib/hbsqlit2/readme.txt rename to harbour/contrib/examples/hbsqlit2/readme.txt diff --git a/harbour/contrib/examples/hbsqlit2/tests/bld_b32.bat b/harbour/contrib/examples/hbsqlit2/tests/bld_b32.bat new file mode 100644 index 0000000000..b825d9d8d1 --- /dev/null +++ b/harbour/contrib/examples/hbsqlit2/tests/bld_b32.bat @@ -0,0 +1,14 @@ +@echo off +rem +rem $Id$ +rem + +if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=..\..\..\..\bin +if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=..\..\..\..\lib +if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=..\..\..\..\include + +set HB_ARCHITECTURE=w32 +set HB_COMPILER=bcc32 +set HB_USER_LIBS=hbsqlit2.lib sqlite2.lib + +call %HB_BIN_INSTALL%\bld.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 diff --git a/harbour/contrib/examples/hbsqlit2/tests/bld_vc.bat b/harbour/contrib/examples/hbsqlit2/tests/bld_vc.bat new file mode 100644 index 0000000000..432e1cebaf --- /dev/null +++ b/harbour/contrib/examples/hbsqlit2/tests/bld_vc.bat @@ -0,0 +1,14 @@ +@echo off +rem +rem $Id$ +rem + +if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=..\..\..\..\bin +if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=..\..\..\..\lib +if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=..\..\..\..\include + +set HB_ARCHITECTURE=w32 +set HB_COMPILER=msvc +set HB_USER_LIBS=hbsqlit2.lib sqlite2.lib + +call %HB_BIN_INSTALL%\bld.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 diff --git a/harbour/contrib/hbsqlit2/tests/example.db b/harbour/contrib/examples/hbsqlit2/tests/example.db similarity index 100% rename from harbour/contrib/hbsqlit2/tests/example.db rename to harbour/contrib/examples/hbsqlit2/tests/example.db diff --git a/harbour/contrib/hbsqlit2/tests/hbsqlite.prg b/harbour/contrib/examples/hbsqlit2/tests/hbsqlite.prg similarity index 100% rename from harbour/contrib/hbsqlit2/tests/hbsqlite.prg rename to harbour/contrib/examples/hbsqlit2/tests/hbsqlite.prg diff --git a/harbour/contrib/hbsqlit2/Makefile b/harbour/contrib/hbsqlit2/Makefile deleted file mode 100644 index 61b4d2d437..0000000000 --- a/harbour/contrib/hbsqlit2/Makefile +++ /dev/null @@ -1,57 +0,0 @@ -# -# $Id$ -# - -ROOT = ../../ - -LIBNAME=hbsqlit2 - -ifneq ($(HB_ARCHITECTURE),dos) - -C_SOURCES =\ - hbsqlit2.c \ - attach.c \ - auth.c \ - btree.c \ - btree_rb.c \ - build.c \ - copy.c \ - date.c \ - delete.c \ - encode.c \ - expr.c \ - func.c \ - hash.c \ - insert.c \ - main.c \ - opcodes.c \ - os.c \ - pager.c \ - parse.c \ - pragma.c \ - printf.c \ - random.c \ - select.c \ - table.c \ - tokenize.c \ - trigger.c \ - update.c \ - util.c \ - vacuum.c \ - vdbe.c \ - vdbeaux.c \ - where.c \ - -PRG_HEADERS=\ - hbsqlit2.ch - -include $(TOP)$(ROOT)config/header.cf -INSTALL_RULE_HEADERS := $(INSTALL_RULE) -include $(TOP)$(ROOT)config/lib.cf - -install:: - $(INSTALL_RULE_HEADERS) - -else -include $(TOP)$(ROOT)config/none.cf -endif diff --git a/harbour/contrib/hbsqlit2/common.mak b/harbour/contrib/hbsqlit2/common.mak deleted file mode 100644 index 5692ca820a..0000000000 --- a/harbour/contrib/hbsqlit2/common.mak +++ /dev/null @@ -1,47 +0,0 @@ -# -# $Id$ -# - -LIBNAME = $(LIBPREF)hbsqlit2 - -LIB_PATH = $(LIB_DIR)$(LIBNAME)$(LIBEXT) - -PRG_HEADERS = \ - hbsqlit2.ch \ - -LIB_OBJS = \ - $(OBJ_DIR)hbsqlit2$(OBJEXT) \ - $(OBJ_DIR)attach$(OBJEXT) \ - $(OBJ_DIR)auth$(OBJEXT) \ - $(OBJ_DIR)btree$(OBJEXT) \ - $(OBJ_DIR)btree_rb$(OBJEXT) \ - $(OBJ_DIR)build$(OBJEXT) \ - $(OBJ_DIR)copy$(OBJEXT) \ - $(OBJ_DIR)date$(OBJEXT) \ - $(OBJ_DIR)delete$(OBJEXT) \ - $(OBJ_DIR)encode$(OBJEXT) \ - $(OBJ_DIR)expr$(OBJEXT) \ - $(OBJ_DIR)func$(OBJEXT) \ - $(OBJ_DIR)hash$(OBJEXT) \ - $(OBJ_DIR)insert$(OBJEXT) \ - $(OBJ_DIR)main$(OBJEXT) \ - $(OBJ_DIR)opcodes$(OBJEXT) \ - $(OBJ_DIR)os$(OBJEXT) \ - $(OBJ_DIR)pager$(OBJEXT) \ - $(OBJ_DIR)parse$(OBJEXT) \ - $(OBJ_DIR)pragma$(OBJEXT) \ - $(OBJ_DIR)printf$(OBJEXT) \ - $(OBJ_DIR)random$(OBJEXT) \ - $(OBJ_DIR)select$(OBJEXT) \ - $(OBJ_DIR)table$(OBJEXT) \ - $(OBJ_DIR)tokenize$(OBJEXT) \ - $(OBJ_DIR)trigger$(OBJEXT) \ - $(OBJ_DIR)update$(OBJEXT) \ - $(OBJ_DIR)util$(OBJEXT) \ - $(OBJ_DIR)vacuum$(OBJEXT) \ - $(OBJ_DIR)vdbe$(OBJEXT) \ - $(OBJ_DIR)vdbeaux$(OBJEXT) \ - $(OBJ_DIR)where$(OBJEXT) \ - -all: \ - $(LIB_PATH) \ diff --git a/harbour/contrib/hbsqlit2/make_b32.bat b/harbour/contrib/hbsqlit2/make_b32.bat deleted file mode 100644 index c484512c4c..0000000000 --- a/harbour/contrib/hbsqlit2/make_b32.bat +++ /dev/null @@ -1,6 +0,0 @@ -@echo off -rem -rem $Id$ -rem - -call ..\mtpl_b32.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 diff --git a/harbour/contrib/hbsqlit2/make_gcc.sh b/harbour/contrib/hbsqlit2/make_gcc.sh deleted file mode 100755 index 0593942308..0000000000 --- a/harbour/contrib/hbsqlit2/make_gcc.sh +++ /dev/null @@ -1,7 +0,0 @@ -#!/bin/sh - -# -# $Id$ -# - -../mtpl_gcc.sh $1 $2 $3 $4 $5 $6 $7 $8 $9 diff --git a/harbour/contrib/hbsqlit2/make_vc.bat b/harbour/contrib/hbsqlit2/make_vc.bat deleted file mode 100644 index ba231dbc05..0000000000 --- a/harbour/contrib/hbsqlit2/make_vc.bat +++ /dev/null @@ -1,9 +0,0 @@ -@echo off -rem -rem $Id$ -rem - -rem ; sqlite won't compile in C++ mode. -set CFLAGS=-TC - -call ..\mtpl_vc.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 diff --git a/harbour/contrib/hbsqlit2/tests/bld_b32.bat b/harbour/contrib/hbsqlit2/tests/bld_b32.bat deleted file mode 100644 index 2ae4cc9054..0000000000 --- a/harbour/contrib/hbsqlit2/tests/bld_b32.bat +++ /dev/null @@ -1,14 +0,0 @@ -@echo off -rem -rem $Id$ -rem - -if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=..\..\..\bin -if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=..\..\..\lib -if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=..\..\..\include - -set HB_ARCHITECTURE=w32 -set HB_COMPILER=bcc32 -set HB_USER_LIBS=hbsqlit2.lib - -call %HB_BIN_INSTALL%\bld.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 diff --git a/harbour/contrib/hbsqlit2/tests/bld_vc.bat b/harbour/contrib/hbsqlit2/tests/bld_vc.bat deleted file mode 100644 index f77b2434ed..0000000000 --- a/harbour/contrib/hbsqlit2/tests/bld_vc.bat +++ /dev/null @@ -1,14 +0,0 @@ -@echo off -rem -rem $Id$ -rem - -if "%HB_BIN_INSTALL%" == "" set HB_BIN_INSTALL=..\..\..\bin -if "%HB_LIB_INSTALL%" == "" set HB_LIB_INSTALL=..\..\..\lib -if "%HB_INC_INSTALL%" == "" set HB_INC_INSTALL=..\..\..\include - -set HB_ARCHITECTURE=w32 -set HB_COMPILER=msvc -set HB_USER_LIBS=hbsqlit2.lib - -call %HB_BIN_INSTALL%\bld.bat %1 %2 %3 %4 %5 %6 %7 %8 %9 diff --git a/harbour/contrib/mtpl_gcc.mak b/harbour/contrib/mtpl_gcc.mak index 92ddb10859..c0866ae420 100644 --- a/harbour/contrib/mtpl_gcc.mak +++ b/harbour/contrib/mtpl_gcc.mak @@ -126,7 +126,7 @@ ifndef GCC_NOOPTIM CFLAGS := -O3 $(CFLAGS) endif -CFLAGS := -W -Wall -I$(INCLUDE_DIR) $(C_USR) $(CFLAGS) -I$(OBJ_DIR) +CFLAGS := -W -Wall -I$(INCLUDE_DIR) $(C_USR) $(CFLAGS) CLIBFLAGS := -c $(CFLAGS) $(CLIBFLAGS) HARBOURFLAGS := -i$(INCLUDE_DIR) -n -q0 -w3 -es2 -km $(PRG_USR) $(HARBOURFLAGS) LDFLAGS := $(LDFLAGS) diff --git a/harbour/doc/whatsnew.txt b/harbour/doc/whatsnew.txt index 9942b828cc..cc3659c331 100644 --- a/harbour/doc/whatsnew.txt +++ b/harbour/doc/whatsnew.txt @@ -177,6 +177,8 @@ Contrib - Remaining code (hbwhat32, hbnf) fixed to always use Harbour C API, instead of legacy Clipper C API (*.api, clipdefs.h and extend.h). +- hbsqlit2 lib was moved to examples and sqlite2 sources + removed. Please use hbsqlit3 instead. - hbziparch heavy rework/refactor/reduce effort, what resulted in hbziparc, which implements the same old ZipArchive interface with similar functionality (except diff --git a/harbour/source/common/hbver.c b/harbour/source/common/hbver.c index c7cb6f22bd..70554622e2 100644 --- a/harbour/source/common/hbver.c +++ b/harbour/source/common/hbver.c @@ -224,7 +224,7 @@ char * hb_verPlatform( void ) if( osVer.dwMajorVersion == 6 ) { -#if !defined(HB_WINCE) && (!defined(_MSC_VER) || _MSC_VER >= 1400) +#if !defined(HB_WINCE) && !defined(__DMC__) && (!defined(_MSC_VER) || _MSC_VER >= 1400) OSVERSIONINFOEXA osVerEx; osVerEx.dwOSVersionInfoSize = sizeof( osVerEx );