OciModuleMain.cpp

Go to the documentation of this file.

#include <dcl/Config.h>
 
#ifdef _MSC_VER
    #pragma comment(lib, "oci.lib")
#endif
 
#include <oci.h>
 
#include <locale.h>         // setlocale
#include <dcl/_stdlib.h>   // setenv
 
#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 "OciConnection.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/OciModuleMain.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("Oracle");
 
SQL::Connection* CreateConnectionInstance()
{
    return (new OciConnection(_serverTitle));
}
 
bool ModuleInitialize()
{
    // https://docs.oracle.com/cd/B13789_01/server.101/b10749/ch7progr.htm#1006615
    // When the NLS_LANG Character Set is UTF8 or AL32UTF8 in OCI
 
    const char* langUTF8 = "AMERICAN_AMERICA.UTF8";
    char* lang = getenv("LANG");
    if (!lang) {
        // current locale
        lang = setlocale(LC_CTYPE, NULL);
    }
#if 0
    // 2025-12-03 instantclient-basiclite- 기준, 항상 영문 메시지만 표시한다.
    if (lang) {
        ByteString lang_ = ByteString(lang);
        ByteString lower = lang_.toLowerCase();
        if (lower.contains("ko") || lower.contains("kr")) {
            langUTF8 = "KOREAN_KOREA.UTF8";
        }
    }
#endif
    __DCL_TRACE1_N(L"setenv NLS_LANG=[%hs]\n", langUTF8);
    return setenv("NLS_LANG", langUTF8, 1) == 0;
}
 
bool ModuleCleanup()
{
    sword status = ::OCITerminate(OCI_DEFAULT);
/*
    if (status != OCI_SUCCESS)
    {
        setErrorMessage(status, NULL, __LINE__);
        return false;
    }
*/
    if (status != OCI_SUCCESS)
        return false;
 
    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 Oracle Database Server"),
 
    // 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