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>
#include <dcl/_stdlib.h>
 
#include <dcl/Object.h>
#if __DCL_HAVE_ALLOC_DEBUG
#undef __DCL_ALLOC_LEVEL
#define __DCL_ALLOC_LEVEL   __DCL_ALLOC_INTERNAL
#endif
 
#include <dcl/String.h>
#include <dcl/SQLCore.h>
 
#include "OciConnection.h"
 
#if __DCL_HAVE_THIS_FILE__
#undef __THIS_FILE__
static const wchar_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("OracleDb");
 
SQL::Connection* CreateConnectionInstance()
{
//  cerr << "createDatabaseObject IB\n";
    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* envUTF8 = "AMERICAN_AMERICA.UTF8";  
    char* lang = getenv("LANG");
    if (!lang) {
        lang = setlocale(LC_ALL, "");
    }
    if (lang) {
        ByteString s = ByteString(lang).toLowerCase();
        if (s.contains("ko") || s.contains("kr")) {
            envUTF8 = "KOREAN_KOREA.UTF8";
        }
    }
    
    return setenv("NLS_LANG", envUTF8, true) == 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(__TIMESTAMP__),
    DCL_BUILD_FLAG,
    DCL_SQL_DRIVER_MODULE,                 // module type
    __T("DCL SQL Driver for Oracle Database Server"),
 
    // private members
    DCL_SQL_VERSION,
    _serverTitle,
    __T("4.0.0.0"),
    ModuleInitialize,
    ModuleCleanup,
    CreateConnectionInstance
};
 
}
 
__DCL_END_NAMESPACE