/* glplib03.c (TLS communication) */
/***********************************************************************
* This code is part of GLPK (GNU Linear Programming Kit).
*
* Copyright (C) 2000, 01, 02, 03, 04, 05, 06, 07, 08 Andrew Makhorin,
* Department for Applied Informatics, Moscow Aviation Institute,
* Moscow, Russia. All rights reserved. E-mail:
.
*
* GLPK is free software: you can redistribute it and/or modify it
* under the terms of the GNU General Public License as published by
* the Free Software Foundation, either version 3 of the License, or
* (at your option) any later version.
*
* GLPK is distributed in the hope that it will be useful, but WITHOUT
* ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
* or FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public
* License for more details.
*
* You should have received a copy of the GNU General Public License
* along with GLPK. If not, see .
***********************************************************************/
#include "glplib.h"
#if !defined(GLP_TLS_CONFIG) || GLP_TLS_CONFIG == 0
/* platform-independent ISO C version */
static void *tls = NULL;
/* in a re-entrant version of the package this variable must be placed
in the Thread Local Storage (TLS) */
/***********************************************************************
* NAME
*
* lib_set_ptr - store global pointer in TLS
*
* SYNOPSIS
*
* #include "glplib.h"
* void lib_set_ptr(void *ptr);
*
* DESCRIPTION
*
* The routine lib_set_ptr stores a pointer specified by the parameter
* ptr in the Thread Local Storage (TLS). */
void lib_set_ptr(void *ptr)
{ tls = ptr;
return;
}
/***********************************************************************
* NAME
*
* lib_get_ptr - retrieve global pointer from TLS
*
* SYNOPSIS
*
* #include "glplib.h"
* void *lib_get_ptr(void);
*
* RETURNS
*
* The routine lib_get_ptr returns a pointer previously stored by the
* routine lib_set_ptr. If the latter has not been called yet, NULL is
* returned. */
void *lib_get_ptr(void)
{ void *ptr;
ptr = tls;
return ptr;
}
#elif GLP_TLS_CONFIG == 1
/* there must be a version for GNU/Linux */
#elif GLP_TLS_CONFIG == 2
/* multi-threaded DLL for MSVC 6.0 */
#include
static DWORD dwTlsIndex;
BOOL APIENTRY DllMain
( HINSTANCE hinstDLL, /* DLL module handle */
DWORD fdwReason, /* reason called */
LPVOID lpvReserved /* reserved */
)
{ switch (fdwReason)
{ /* the DLL is loading due to process initialization or a call
to LoadLibrary */
case DLL_PROCESS_ATTACH:
/* allocate a TLS index */
dwTlsIndex = TlsAlloc();
if (dwTlsIndex == 0xFFFFFFFF) return FALSE;
/* initialize the index for first thread */
TlsSetValue(dwTlsIndex, NULL);
/* initialize GLPK library environment */
lib_init_env();
break;
/* the attached process creates a new thread */
case DLL_THREAD_ATTACH:
/* initialize the TLS index for this thread */
TlsSetValue(dwTlsIndex, NULL);
/* initialize GLPK library environment */
lib_init_env();
break;
/* the thread of the attached process terminates */
case DLL_THREAD_DETACH:
/* free GLPK library environment */
lib_free_env();
break;
/* the DLL is unloading due to process termination or call to
FreeLibrary */
case DLL_PROCESS_DETACH:
/* free GLPK library environment */
lib_free_env();
/* release the TLS index */
TlsFree(dwTlsIndex);
break;
default:
break;
}
return TRUE;
}
void lib_set_ptr(void *ptr)
{ TlsSetValue(dwTlsIndex, ptr);
return;
}
void *lib_get_ptr(void)
{ void *ptr;
ptr = TlsGetValue(dwTlsIndex);
return ptr;
}
#endif
/* eof */