ODBCModuleMain.cpp

Go to the documentation of this file.

#include <dcl/Config.h>
 
#ifdef _MSC_VER
    #pragma comment(lib, "odbc32.lib")
    #pragma comment(lib, "msodbcsql18.lib")
#endif
 
#include <string.h>         // strchr
#include <locale.h>         // setlocale
#include <dcl/_stdlib.h>   // setenv
 
#ifdef _MSC_VER
#include <windows.h>
#endif
#include <sql.h>
 
#include <dcl/Object.h>
#if __DCL_HAVE_ALLOC_DEBUG
#undef __DCL_ALLOC_LEVEL
#define __DCL_ALLOC_LEVEL   __DCL_ALLOC_INTERNAL
#endif
 
#include <dcl/SQLCore.h>
#include "ODBCConnection.h"
 
#define __TRACE_THIS    0
#if __TRACE_THIS
#define __DCL_TRACE0_N  __DCL_TRACE0
#define __DCL_TRACE1_N  __DCL_TRACE1
#define __DCL_TRACE2_N  __DCL_TRACE2
#define __DCL_TRACE3_N  __DCL_TRACE3
#define __DCL_TRACE4_N  __DCL_TRACE4
#else
#define __DCL_TRACE0_N(fmt)
#define __DCL_TRACE1_N(fmt, arg)
#define __DCL_TRACE2_N(fmt, arg1, arg2)
#define __DCL_TRACE3_N(fmt, arg1, arg2, arg3)
#define __DCL_TRACE4_N(fmt, arg1, arg2, arg3, arg4)
#endif
 
#if __DCL_HAVE_THIS_FILE__
#undef __THIS_FILE__
static const char_t __THIS_FILE__[] = __T("dcl/sql/ODBCModuleMain.cpp");
#endif
 
/*
#ifdef _WINDOWS
BOOL APIENTRY DllMain( HANDLE hModule, 
    DWORD  ul_reason_for_call, 
    LPVOID lpReserved
)
{
    switch (ul_reason_for_call) {
        case DLL_PROCESS_ATTACH:
        case DLL_PROCESS_DETACH:
            return TRUE;
        case DLL_THREAD_ATTACH:
        case DLL_THREAD_DETACH:
            break;
    }
    return FALSE;
}
#endif
*/
 
__DCL_BEGIN_NAMESPACE
 
static const wchar_t* _serverTitle = __T("ODBC");
 
SQL::Connection* CreateConnectionInstance()
{
    return new ODBCConnection(_serverTitle);
}
 
bool ModuleInitialize()
{
    /*
     * Windows mingw-w64-*-x86_64-unixodbc
     * LDFLAGS += -lodbc unixODBC
     *   - odbcinst: SQLGetPrivateProfileString failed with Unable to find component name.
     *   - mingw에서 동작하지 않는다.
     * LDFLAGS += -lodbc32 Windows Native
     *   - Windows/System32/odbcad32.exe
     *   - mingw에서도 이것을 사용해야 한다.
     * Windows에서 다음의 환경변수 설정이 적용되지 않는다.
     * 
     * LANG에 UTF-8이 없는 경우 LANG을 변경한다.
    */
    ByteStringBuilder sb;
    char* lang = getenv("LANG");
    if (!lang) {
        // current locale
        lang = setlocale(LC_CTYPE, NULL);
        if (!(lang && strchr(lang, '.'))) {
            // set default locale
            lang = setlocale(LC_ALL, "");
        }
    }
    if (lang) {
        ByteString lang_ = ByteString(lang);
        ByteString lower = lang_.toLowerCase();
        if (!lower.contains("utf8")) {
            if (lower.contains("ko") || lower.contains("kr")) {
                sb.append("ko_KR");
            }
            else {
                size_t index = lang_.indexOf(L'.');
                sb.append(index == (size_t) -1 ?
                    lang_ : lang_.substring(0, index));
            }
            sb.append(".UTF-8");
        }
    }
    else {
        sb = "C.UTF-8";
    }
 
    setenv("CLIENT_LOCALE", "en_US.UTF8", 0);       // Informix
    setenv("NLS_LANG", "AMERICAN_AMERICA.UTF8", 0); // Oracle
 
    if (sb.length() > 0) {
        ByteString langUTF8 = sb.toByteString();
        __DCL_TRACE1_N(L"setenv LANG=[%hs]\n", langUTF8.data());
        return setenv("LANG", langUTF8, 1) == 0;;   
    }
    return true;
}
 
bool ModuleCleanup()
{
    return true;
}
 
extern "C"
{
DCL_DSO_EXPORT 
SQL::DRIVER_MODULE DCL_DSO_ENTRY_POINT =
{
    // DCL common members
    sizeof(SQL::DRIVER_MODULE),       // structure size
    DCL_VERSION,
    __T(__BUILD_TIMESTAMP__),
    DCL_BUILD_FLAG,
    DCL_SQL_DRIVER_MODULE,         // module type
    __T("DCL SQL Adapter for ODBC"),
 
    // private members
    DCL_SQL_VERSION,
    _serverTitle,
    __T(DCL_SQL_VERSION_STRING),
    ModuleInitialize,
    ModuleCleanup,
    CreateConnectionInstance
};
 
}
 
__DCL_END_NAMESPACE
 
#ifdef __WINNT_NEW_DELETE_OVERRIDE
#undef new
__WINNT_NEW_DELETE_OVERRIDE
#endif