// (C) Copyright Aaron W. LaFramboise, Roland Schwarz, Michael Glassford 2004.
// (C) Copyright 2007 Roland Schwarz
// (C) Copyright 2007 Anthony Williams
// (C) Copyright 2007 David Deakins
// Use, modification and distribution are subject to the
// Boost Software License, Version 1.0. (See accompanying file
// LICENSE_1_0.txt or copy at http://www.boost.org/LICENSE_1_0.txt)

#include <boost/sync/detail/config.hpp>

#if defined(BOOST_SYNC_DETAIL_PLATFORM_WINAPI) && defined(BOOST_SYNC_STATIC_LINK)

#if (defined(__MINGW32__) && !defined(_WIN64)) || defined(__MINGW64__) || (__MINGW64_VERSION_MAJOR)

#include <cstdlib>
#include <windows.h>
#include "tss_windows_hooks.hpp"

namespace boost {

namespace sync {

namespace detail {

namespace windows {

void tss_cleanup_implemented()
{
}

} // namespace windows

} // namespace detail

} // namespace sync

} // namespace boost

namespace {

void NTAPI on_tls_callback(void*, DWORD dwReason, PVOID)
{
    switch (dwReason)
    {
    case DLL_THREAD_DETACH:
        {
            boost::sync::detail::windows::on_thread_exit();
            break;
        }
    }
}

} // namespace

#if defined(__MINGW64__) || (__MINGW64_VERSION_MAJOR) || (__MINGW32_MAJOR_VERSION > 3) || \
    ((__MINGW32_MAJOR_VERSION == 3) && (__MINGW32_MINOR_VERSION >= 18))
extern "C"
{
    PIMAGE_TLS_CALLBACK __crt_xl_tls_callback__ __attribute__ ((section(".CRT$XLB"))) = on_tls_callback;
}
#else
extern "C" {

    void (* after_ctors )() __attribute__((section(".ctors")))     = boost::sync::detail::windows::on_process_enter;
    void (* before_dtors)() __attribute__((section(".dtors")))     = boost::sync::detail::windows::on_thread_exit;
    void (* after_dtors )() __attribute__((section(".dtors.zzz"))) = boost::sync::detail::windows::on_process_exit;

    ULONG __tls_index__ = 0;
    char __tls_end__ __attribute__((section(".tls$zzz"))) = 0;
    char __tls_start__ __attribute__((section(".tls"))) = 0;


    PIMAGE_TLS_CALLBACK __crt_xl_start__ __attribute__ ((section(".CRT$XLA"))) = 0;
    PIMAGE_TLS_CALLBACK __crt_xl_end__ __attribute__ ((section(".CRT$XLZ"))) = 0;
}
extern "C" const IMAGE_TLS_DIRECTORY32 _tls_used __attribute__ ((section(".rdata$T"))) =
{
        (DWORD) &__tls_start__,
        (DWORD) &__tls_end__,
        (DWORD) &__tls_index__,
        (DWORD) (&__crt_xl_start__+1),
        (DWORD) 0,
        (DWORD) 0
};
#endif


#elif  defined(_MSC_VER) && !defined(UNDER_CE)

#include <stdlib.h>
#include <windows.h>
#include "tss_windows_hooks.hpp"

// _pRawDllMainOrig can be defined by including boost/thread/win32/mfc_thread_init.hpp
// into your dll; it ensures that MFC-Dll-initialization will be done properly
// The following code is adapted from the MFC-Dll-init code
/*
 * _pRawDllMainOrig MUST be an extern const variable, which will be aliased to
 * _pDefaultRawDllMainOrig if no real user definition is present, thanks to the
 * alternatename directive.
 */

// work at least with _MSC_VER 1500 (MSVC++ 9.0, VS 2008)
#if (_MSC_VER >= 1500)

extern "C" {
extern BOOL (WINAPI * const _pRawDllMainOrig)(HANDLE, DWORD, LPVOID);
extern BOOL (WINAPI * const _pDefaultRawDllMainOrig)(HANDLE, DWORD, LPVOID) = NULL;
#if defined (_M_IX86)
#pragma comment(linker, "/alternatename:__pRawDllMainOrig=__pDefaultRawDllMainOrig")
#elif defined (_M_X64) || defined (_M_ARM)
#pragma comment(linker, "/alternatename:_pRawDllMainOrig=_pDefaultRawDllMainOrig")
#else  /* defined (_M_X64) || defined (_M_ARM) */
#error Unsupported platform
#endif  /* defined (_M_X64) || defined (_M_ARM) */
}

#endif


//Definitions required by implementation

#if (_MSC_VER < 1300) // 1300 == VC++ 7.0
    typedef void (__cdecl *_PVFV)();
    #define INIRETSUCCESS
    #define PVAPI void __cdecl
#else
    typedef int (__cdecl *_PVFV)();
    #define INIRETSUCCESS 0
    #define PVAPI int __cdecl
#endif

typedef void (NTAPI* _TLSCB)(HINSTANCE, DWORD, PVOID);

//Symbols for connection to the runtime environment

extern "C"
{
    extern DWORD _tls_used; //the tls directory (located in .rdata segment)
    extern _TLSCB __xl_a[], __xl_z[];    //tls initializers */
}

namespace
{
    //Forward declarations

    static PVAPI on_tls_prepare();
    static PVAPI on_process_init();
    static PVAPI on_process_term();
    static void NTAPI on_tls_callback(HINSTANCE, DWORD, PVOID);

    //The .CRT$Xxx information is taken from Codeguru:
    //http://www.codeguru.com/Cpp/misc/misc/threadsprocesses/article.php/c6945__2/

#if (_MSC_VER >= 1400)
#pragma section(".CRT$XIU",long,read)
#pragma section(".CRT$XCU",long,read)
#pragma section(".CRT$XTU",long,read)
#pragma section(".CRT$XLC",long,read)
    __declspec(allocate(".CRT$XLC")) _TLSCB __xl_ca=on_tls_callback;
    __declspec(allocate(".CRT$XIU"))_PVFV p_tls_prepare = on_tls_prepare;
    __declspec(allocate(".CRT$XCU"))_PVFV p_process_init = on_process_init;
    __declspec(allocate(".CRT$XTU"))_PVFV p_process_term = on_process_term;
#else
    #if (_MSC_VER >= 1300) // 1300 == VC++ 7.0
    #   pragma data_seg(push, old_seg)
    #endif
        //Callback to run tls glue code first.
        //I don't think it is necessary to run it
        //at .CRT$XIB level, since we are only
        //interested in thread detachement. But
        //this could be changed easily if required.

        #pragma data_seg(".CRT$XIU")
        static _PVFV p_tls_prepare = on_tls_prepare;
        #pragma data_seg()

        //Callback after all global ctors.

        #pragma data_seg(".CRT$XCU")
        static _PVFV p_process_init = on_process_init;
        #pragma data_seg()

        //Callback for tls notifications.

        #pragma data_seg(".CRT$XLB")
        _TLSCB p_thread_callback = on_tls_callback;
        #pragma data_seg()
        //Callback for termination.

        #pragma data_seg(".CRT$XTU")
        static _PVFV p_process_term = on_process_term;
        #pragma data_seg()
    #if (_MSC_VER >= 1300) // 1300 == VC++ 7.0
    #   pragma data_seg(pop, old_seg)
    #endif
#endif

#ifdef BOOST_MSVC
#pragma warning(push)
#pragma warning(disable:4189)
#endif

PVAPI on_tls_prepare()
{
    //The following line has an important side effect:
    //if the TLS directory is not already there, it will
    //be created by the linker. In other words, it forces a tls
    //directory to be generated by the linker even when static tls
    //(i.e. __declspec(thread)) is not used.
    //The volatile should prevent the optimizer
    //from removing the reference.

    DWORD volatile dw = _tls_used;

    #if (_MSC_VER < 1300) // 1300 == VC++ 7.0
        _TLSCB* pfbegin = __xl_a;
        _TLSCB* pfend = __xl_z;
        _TLSCB* pfdst = pfbegin;
        //pfdst = (_TLSCB*)_tls_used.AddressOfCallBacks;

        //The following loop will merge the address pointers
        //into a contiguous area, since the tlssup code seems
        //to require this (at least on MSVC 6)

        while (pfbegin < pfend)
        {
            if (*pfbegin != 0)
            {
                *pfdst = *pfbegin;
                ++pfdst;
            }
            ++pfbegin;
        }

        *pfdst = 0;
    #endif

    return INIRETSUCCESS;
}
#ifdef BOOST_MSVC
#pragma warning(pop)
#endif

PVAPI on_process_init()
{
    //Schedule on_thread_exit() to be called for the main
    //thread before destructors of global objects have been
    //called.

    //It will not be run when 'quick' exiting the
    //library; however, this is the standard behaviour
    //for destructors of global objects, so that
    //shouldn't be a problem.

    atexit(boost::sync::detail::windows::on_thread_exit);

    //Call Boost process entry callback here

    boost::sync::detail::windows::on_process_enter();

    return INIRETSUCCESS;
}

PVAPI on_process_term()
{
    boost::sync::detail::windows::on_process_exit();
    return INIRETSUCCESS;
}

void NTAPI on_tls_callback(HINSTANCE /*h*/, DWORD dwReason, PVOID /*pv*/)
{
    switch (dwReason)
    {
    case DLL_THREAD_DETACH:
        boost::sync::detail::windows::on_thread_exit();
        break;
    }
}

#if (_MSC_VER >= 1500)
BOOL WINAPI dll_callback(HANDLE hInstance, DWORD dwReason, LPVOID lpReserved)
#else
BOOL WINAPI dll_callback(HANDLE, DWORD dwReason, LPVOID)
#endif
{
    switch (dwReason)
    {
    case DLL_THREAD_DETACH:
        boost::sync::detail::windows::on_thread_exit();
        break;
    case DLL_PROCESS_DETACH:
        boost::sync::detail::windows::on_process_exit();
        break;
    }

#if (_MSC_VER >= 1500)
    if( _pRawDllMainOrig )
    {
        return _pRawDllMainOrig(hInstance, dwReason, lpReserved);
    }
#endif
    return true;
}

} //namespace

extern "C"
{
    extern BOOL (WINAPI * const _pRawDllMain)(HANDLE, DWORD, LPVOID) = &dll_callback;
}

namespace boost {

namespace sync {

namespace detail {

namespace windows {

void tss_cleanup_implemented()
{
    /*
    This function's sole purpose is to cause a link error in cases where
    automatic tss cleanup is not implemented by Boost.Threads as a
    reminder that user code is responsible for calling the necessary
    functions at the appropriate times (and for implementing an a
    tss_cleanup_implemented() function to eliminate the linker's
    missing symbol error).

    If Boost.Threads later implements automatic tss cleanup in cases
    where it currently doesn't (which is the plan), the duplicate
    symbol error will warn the user that their custom solution is no
    longer needed and can be removed.
    */
}

} // namespace windows

} // namespace detail

} // namespace sync

} // namespace boost

#endif //defined(_MSC_VER) && !defined(UNDER_CE)

#endif //defined(BOOST_SYNC_DETAIL_PLATFORM_WINAPI) && defined(BOOST_SYNC_STATIC_LINK)
