/*- * $Id: win_db.in,v 11.4 2004/10/07 13:59:24 carol Exp $ * * The following provides the information necessary to build Berkeley * DB on native Windows, and other Windows environments such as MinGW. */ #include #include #include #include #include #include #include #include #include #include #include #include #include #include /* * To build Tcl interface libraries, the include path must be configured to * use the directory containing , usually the include directory in * the Tcl distribution. */ #ifdef DB_TCL_SUPPORT #include #endif #define WIN32_LEAN_AND_MEAN #include /* * All of the necessary includes have been included, ignore the #includes * in the Berkeley DB source files. */ #define NO_SYSTEM_INCLUDES /* * Win32 has getcwd, snprintf and vsnprintf, but under different names. */ #define getcwd(buf, size) _getcwd(buf, size) #define snprintf _snprintf #define vsnprintf _vsnprintf /* * Win32 does not define getopt and friends in any header file, so we must. */ #if defined(__cplusplus) extern "C" { #endif extern int optind; extern char *optarg; extern int getopt(int, char * const *, const char *); #if defined(__cplusplus) } #endif #ifdef _UNICODE #define TO_TSTRING(dbenv, s, ts, ret) do { \ int __len = strlen(s) + 1; \ ts = NULL; \ if ((ret = __os_malloc((dbenv), \ __len * sizeof (_TCHAR), &(ts))) == 0 && \ MultiByteToWideChar(CP_UTF8, 0, \ (s), -1, (ts), __len) == 0) \ ret = __os_get_errno(); \ } while (0) #define FROM_TSTRING(dbenv, ts, s, ret) { \ int __len = WideCharToMultiByte(CP_UTF8, 0, ts, -1, \ NULL, 0, NULL, NULL); \ s = NULL; \ if ((ret = __os_malloc((dbenv), __len, &(s))) == 0 && \ WideCharToMultiByte(CP_UTF8, 0, \ (ts), -1, (s), __len, NULL, NULL) == 0) \ ret = __os_get_errno(); \ } while (0) #define FREE_STRING(dbenv, s) do { \ if ((s) != NULL) { \ __os_free((dbenv), (s)); \ (s) = NULL; \ } \ } while (0) #else #define TO_TSTRING(dbenv, s, ts, ret) (ret) = 0, (ts) = (_TCHAR *)(s) #define FROM_TSTRING(dbenv, ts, s, ret) (ret) = 0, (s) = (char *)(ts) #define FREE_STRING(dbenv, ts) #endif