text: /*
   * Copyright (c) 2011 Collabora Ltd
   * Copyright (c) 2012 Stef Walter
   *
   * Redistribution and use in source and binary forms, with or without
   * modification, are permitted provided that the following conditions
   * are met:
   *
   *     * Redistributions of source code must retain the above
   *       copyright notice, this list of conditions and the
   *       following disclaimer.
   *     * Redistributions in binary form must reproduce the
   *       above copyright notice, this list of conditions and
   *       the following disclaimer in the documentation and/or
   *       other materials provided with the distribution.
   *     * The names of contributors to this software may not be
   *       used to endorse or promote products derived from this
   *       software without specific prior written permission.
   *
   * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS
   * "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT
   * LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS
   * FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE
   * COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,
   * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
   * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS
   * OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
   * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
   * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF
   * THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH
   * DAMAGE.
   *
   *
   * CONTRIBUTORS
   *  Stef Walter <stef@thewalter.net>
   */
  
  #include "config.h"
  
  #include "compat.h"
  #define P11_DEBUG_FLAG P11_DEBUG_LIB
  #include "debug.h"
  #include "library.h"
  #include "message.h"
  
  #include <assert.h>
  #include <stdarg.h>
  #include <stdlib.h>
  #include <stdio.h>
  #include <string.h>
  
  #define P11_MESSAGE_MAX 512
  
  typedef struct {
  	char message[P11_MESSAGE_MAX];
  } p11_local;
  
  static p11_local * _p11_library_get_thread_local (void);
  
  p11_mutex_t p11_library_mutex;
  
  #ifdef OS_UNIX
  pthread_once_t p11_library_once = PTHREAD_ONCE_INIT;
  #endif
  
  static char *
  thread_local_message (void)
  {
  	p11_local *local;
  	local = _p11_library_get_thread_local ();
  	return local ? local->message : NULL;
  }
  
  static char *
  dont_store_message (void)
  {
  	return NULL;
  }
  
  static void
  uninit_common (void)
  {
  	p11_debug ("uninitializing library");
  }
  
  #ifdef OS_UNIX
  
  static pthread_key_t thread_local = 0;
  
  static p11_local *
  _p11_library_get_thread_local (void)
  {
  	p11_local *local;
  
  	p11_library_init_once ();
  
  	local = pthread_getspecific (thread_local);
  	if (local == NULL) {
  		local = calloc (1, sizeof (p11_local));
  		pthread_setspecific (thread_local, local);
  	}
  
  	return local;
  }
  
  void
  p11_library_init_impl (void)
  {
  	p11_debug_init ();
  	p11_debug ("initializing library");
  	p11_mutex_init (&p11_library_mutex);
  	pthread_key_create (&thread_local, free);
  	p11_message_storage = thread_local_message;
  }
  
  void
  p11_library_init (void)
  {
  	p11_library_init_once ();
  }
  
  void
  p11_library_uninit (void)
  {
  	uninit_common ();
  
  	/* Some cleanup to pacify valgrind */
  	free (pthread_getspecific (thread_local));
  	pthread_setspecific (thread_local, NULL);
  
  	p11_message_storage = dont_store_message;
  	pthread_key_delete (thread_local);
  	p11_mutex_uninit (&p11_library_mutex);
  }
  
  #endif /* OS_UNIX */
  
  #ifdef OS_WIN32
  
  static DWORD thread_local = TLS_OUT_OF_INDEXES;
  
  BOOL WINAPI DllMain (HINSTANCE, DWORD, LPVOID);
  
  static p11_local *
  _p11_library_get_thread_local (void)
  {
  	LPVOID data;
  
  	if (thread_local == TLS_OUT_OF_INDEXES)
  		return NULL;
  
  	data = TlsGetValue (thread_local);
  	if (data == NULL) {
  		data = LocalAlloc (LPTR, sizeof (p11_local));
  		TlsSetValue (thread_local, data);
  	}
  
  	return (p11_local *)data;
  }
  
  void
  p11_library_init (void)
  {
  	p11_debug_init ();
  	p11_debug ("initializing library");
  	p11_mutex_init (&p11_library_mutex);
  	thread_local = TlsAlloc ();
  	if (thread_local == TLS_OUT_OF_INDEXES)
  		p11_debug ("couldn't setup tls");
  	else
  		p11_message_storage = thread_local_message;
  }
  
  void
  p11_library_thread_cleanup (void)
  {
  	p11_local *local;
  	if (thread_local != TLS_OUT_OF_INDEXES) {
  		p11_debug ("thread stopped, freeing tls");
  		local = TlsGetValue (thread_local);
  		LocalFree (local);
  	}
  }
  
  void
  p11_library_uninit (void)
  {
  	LPVOID data;
  
  	uninit_common ();
  
  	if (thread_local != TLS_OUT_OF_INDEXES) {
  		p11_message_storage = dont_store_message;
  		data = TlsGetValue (thread_local);
  		LocalFree (data);
  		TlsFree (thread_local);
  	}
  	p11_mutex_uninit (&p11_library_mutex);
  }
  
  #endif /* OS_WIN32 */
  