Hi,
Some multithread-safe libraries need not only locking, but also per-thread
storage. I propose to add this module that provides TLS. Quite simple
compared to the 'lock' module.
Bruno
=============================== modules/tls ==================================
Description:
Thread-local storage in multithreaded situations.
Files:
lib/tls.h
lib/tls.c
m4/tls.m4
Depends-on:
lock
configure.ac:
gl_TLS
Makefile.am:
lib_SOURCES += tls.h tls.c
Include:
"tls.h"
License:
LGPL
Maintainer:
Bruno Haible
================================ lib/tls.h ===================================
/* Thread-local storage in multithreaded situations.
Copyright (C) 2005 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published
by the Free Software Foundation; either version 2, or (at your option)
any later version.
This program 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
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
USA. */
/* Written by Bruno Haible <[EMAIL PROTECTED]>, 2005. */
/* This file contains thread-local storage primitives for use with a given
thread library. It does not contain primitives for creating threads or
for other multithreading primitives.
Type: gl_tls_key_t
Initialization: gl_tls_key_init (name, destructor);
Getting per-thread value: gl_tls_get (name)
Setting per-thread value: gl_tls_set (name, pointer);
De-initialization: gl_tls_key_destroy (name);
A per-thread value is of type 'void *'.
A destructor is a function pointer of type 'void (*) (void *)', called
when a thread exits, and taking the last per-thread value as argument. It
is unspecified whether the destructor function is called when the last
per-thread value is NULL. On some platforms, the destructor function is
not called at all.
*/
/* ========================================================================= */
#if USE_POSIX_THREADS
/* Use the POSIX threads library. */
# include <pthread.h>
# include <stdlib.h>
# if PTHREAD_IN_USE_DETECTION_HARD
/* The pthread_in_use() detection needs to be done at runtime. */
# define pthread_in_use() \
glthread_in_use ()
extern int glthread_in_use (void);
# endif
# if USE_POSIX_THREADS_WEAK
/* Use weak references to the POSIX threads library. */
# pragma weak pthread_key_create
# pragma weak pthread_getspecific
# pragma weak pthread_setspecific
# pragma weak pthread_key_delete
# ifndef pthread_self
# pragma weak pthread_self
# endif
# if !PTHREAD_IN_USE_DETECTION_HARD
# pragma weak pthread_cancel
# define pthread_in_use() (pthread_cancel != NULL)
# endif
# else
# if !PTHREAD_IN_USE_DETECTION_HARD
# define pthread_in_use() 1
# endif
# endif
/* ------------------------- gl_tls_key_t datatype ------------------------- */
typedef union
{
void *singlethread_value;
pthread_key_t key;
}
gl_tls_key_t;
# define gl_tls_key_init(NAME, DESTRUCTOR) \
if (pthread_in_use ()) \
{ \
if (pthread_key_create (&(NAME).key, DESTRUCTOR) != 0) \
abort (); \
} \
else \
(NAME).singlethread_value = NULL
# define gl_tls_get(NAME) \
(pthread_in_use () \
? pthread_getspecific ((NAME).key) \
: (NAME).singlethread_value)
# define gl_tls_set(NAME, POINTER) \
if (pthread_in_use ()) \
{ \
if (pthread_setspecific ((NAME).key, (POINTER)) != 0) \
abort (); \
} \
else \
(NAME).singlethread_value = (POINTER)
# define gl_tls_key_destroy(NAME) \
if (pthread_in_use () && pthread_key_delete ((NAME).key) != 0) \
abort ()
#endif
/* ========================================================================= */
#if USE_PTH_THREADS
/* Use the GNU Pth threads library. */
# include <pth.h>
# include <stdlib.h>
# if USE_PTH_THREADS_WEAK
/* Use weak references to the GNU Pth threads library. */
# pragma weak pth_key_create
# pragma weak pth_key_getdata
# pragma weak pth_key_setdata
# pragma weak pth_key_delete
# pragma weak pth_cancel
# define pth_in_use() (pth_cancel != NULL)
# else
# define pth_in_use() 1
# endif
/* ------------------------- gl_tls_key_t datatype ------------------------- */
typedef union
{
void *singlethread_value;
pth_key_t key;
}
gl_tls_key_t;
# define gl_tls_key_init(NAME, DESTRUCTOR) \
if (pth_in_use ()) \
{ \
if (!pth_key_create (&(NAME).key, DESTRUCTOR)) \
abort (); \
} \
else \
(NAME).singlethread_value = NULL
# define gl_tls_get(NAME) \
(pth_in_use () \
? pth_key_getdata ((NAME).key) \
: (NAME).singlethread_value)
# define gl_tls_set(NAME, POINTER) \
if (pth_in_use ()) \
{ \
if (!pth_key_setdata ((NAME).key, (POINTER))) \
abort (); \
} \
else \
(NAME).singlethread_value = (POINTER)
# define gl_tls_key_destroy(NAME) \
if (pth_in_use () && !pth_key_delete ((NAME).key)) \
abort ()
#endif
/* ========================================================================= */
#if USE_SOLARIS_THREADS
/* Use the old Solaris threads library. */
# include <thread.h>
# include <stdlib.h>
# if USE_SOLARIS_THREADS_WEAK
/* Use weak references to the old Solaris threads library. */
# pragma weak thr_keycreate
# pragma weak thr_getspecific
# pragma weak thr_setspecific
# pragma weak thr_suspend
# define thread_in_use() (thr_suspend != NULL)
# else
# define thread_in_use() 1
# endif
/* ------------------------- gl_tls_key_t datatype ------------------------- */
typedef union
{
void *singlethread_value;
thread_key_t key;
}
gl_tls_key_t;
# define gl_tls_key_init(NAME, DESTRUCTOR) \
if (thread_in_use ()) \
{ \
if (thr_keycreate (&(NAME).key, DESTRUCTOR) != 0) \
abort (); \
} \
else \
(NAME).singlethread_value = NULL
# define gl_tls_get(NAME) \
(thread_in_use () \
? glthread_tls_get ((NAME).key) \
: (NAME).singlethread_value)
extern void *glthread_tls_get (thread_key_t key);
# define gl_tls_set(NAME, POINTER) \
if (thread_in_use ()) \
{ \
if (thr_setspecific ((NAME).key, (POINTER)) != 0) \
abort (); \
} \
else \
(NAME).singlethread_value = (POINTER)
# define gl_tls_key_destroy(NAME) \
/* Unsupported. */ \
(void)0
#endif
/* ========================================================================= */
#if USE_WIN32_THREADS
# include <windows.h>
/* ------------------------- gl_tls_key_t datatype ------------------------- */
typedef DWORD gl_tls_key_t;
# define gl_tls_key_init(NAME, DESTRUCTOR) \
/* The destructor is unsupported. */ \
if (((NAME) = TlsAlloc ()) == (DWORD)-1) \
abort ()
# define gl_tls_get(NAME) \
TlsGetValue (NAME)
# define gl_tls_set(NAME, POINTER) \
if (!TlsSetValue (NAME, POINTER)) \
abort ()
# define gl_tls_key_destroy(NAME) \
if (!TlsFree (NAME)) \
abort ()
#endif
/* ========================================================================= */
#if !(USE_POSIX_THREADS || USE_PTH_THREADS || USE_SOLARIS_THREADS ||
USE_WIN32_THREADS)
/* Provide dummy implementation if threads are not supported. */
/* ------------------------- gl_tls_key_t datatype ------------------------- */
typedef struct
{
void *singlethread_value;
}
gl_tls_key_t;
# define gl_tls_key_init(NAME, DESTRUCTOR) \
(NAME).singlethread_value = NULL
# define gl_tls_get(NAME) \
(NAME).singlethread_value
# define gl_tls_set(NAME, POINTER) \
(NAME).singlethread_value = (POINTER)
# define gl_tls_key_destroy(NAME) \
(void)0
#endif
================================ lib/tls.c ===================================
/* Thread-local storage in multithreaded situations.
Copyright (C) 2005 Free Software Foundation, Inc.
This program is free software; you can redistribute it and/or modify it
under the terms of the GNU Library General Public License as published
by the Free Software Foundation; either version 2, or (at your option)
any later version.
This program 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
Library General Public License for more details.
You should have received a copy of the GNU Library General Public
License along with this program; if not, write to the Free Software
Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
USA. */
/* Written by Bruno Haible <[EMAIL PROTECTED]>, 2005. */
#ifdef HAVE_CONFIG_H
# include <config.h>
#endif
#include "tls.h"
/* ========================================================================= */
#if USE_POSIX_THREADS
#endif
/* ========================================================================= */
#if USE_PTH_THREADS
#endif
/* ========================================================================= */
#if USE_SOLARIS_THREADS
/* Use the old Solaris threads library. */
/* ------------------------- gl_tls_key_t datatype ------------------------- */
void
glthread_tls_get (thread_key_t key)
{
void *value;
if (thr_getspecific (key, &value) != 0)
abort ();
return value;
}
#endif
/* ========================================================================= */
#if USE_WIN32_THREADS
#endif
/* ========================================================================= */
================================ m4/tls.m4 ===================================
# tls.m4 serial 1 (gettext-0.15)
dnl Copyright (C) 2005 Free Software Foundation, Inc.
dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
dnl with or without modifications, as long as this notice is preserved.
dnl From Bruno Haible.
AC_DEFUN([gl_TLS],
[
AC_REQUIRE([gl_LOCK])
])
==============================================================================
_______________________________________________
bug-gnulib mailing list
bug-gnulib@gnu.org
http://lists.gnu.org/mailman/listinfo/bug-gnulib
