/* * pthread_setspecific.c * * Description: * POSIX thread functions which implement thread-specific data (TSD). * * -------------------------------------------------------------------------- * *      Pthreads-win32 - POSIX Threads Library for Win32 *      Copyright(C) 1998 John E. Bossom *      Copyright(C) 1999,2005 Pthreads-win32 contributors *  *      Contact Email: rpj@callisto.canberra.edu.au *  *      The current list of contributors is contained *      in the file CONTRIBUTORS included with the source *      code distribution. The list can also be seen at the *      following World Wide Web location: *      http://sources.redhat.com/pthreads-win32/contributors.html *  *      This library is free software; you can redistribute it and/or *      modify it under the terms of the GNU Lesser General Public *      License as published by the Free Software Foundation; either *      version 2 of the License, or (at your option) any later version. *  *      This library 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 *      Lesser General Public License for more details. *  *      You should have received a copy of the GNU Lesser General Public *      License along with this library in the file COPYING.LIB; *      if not, write to the Free Software Foundation, Inc., *      59 Temple Place - Suite 330, Boston, MA 02111-1307, USA */#include "pthread.h"#include "implement.h"intpthread_setspecific (pthread_key_t key, const void *value)     /*      * ------------------------------------------------------      * DOCPUBLIC      *      This function sets the value of the thread specific      *      key in the calling thread.      *      * PARAMETERS      *      key      *              an instance of pthread_key_t      *      value      *              the value to set key to      *      *      * DESCRIPTION      *      This function sets the value of the thread specific      *      key in the calling thread.      *      * RESULTS      *              0               successfully set value      *              EAGAIN          could not set value      *              ENOENT          SERIOUS!!      *      * ------------------------------------------------------      */{  pthread_t self;  int result = 0;  if (key != ptw32_selfThreadKey)    {      /*       * Using pthread_self will implicitly create       * an instance of pthread_t for the current       * thread if one wasn't explicitly created       */      self = pthread_self ();      if (self.p == NULL)	{	  return ENOENT;	}    }  else    {      /*       * Resolve catch-22 of registering thread with selfThread       * key       */      ptw32_thread_t * sp = (ptw32_thread_t *) pthread_getspecific (ptw32_selfThreadKey);      if (sp == NULL)        {	  if (value == NULL)	    {	      return ENOENT;	    }          self = *((pthread_t *) value);        }      else        {	  self = sp->ptHandle;        }    }  result = 0;  if (key != NULL)    {      if (self.p != NULL && key->destructor != NULL && value != NULL)	{	  /*	   * Only require associations if we have to	   * call user destroy routine.	   * Don't need to locate an existing association	   * when setting data to NULL for WIN32 since the	   * data is stored with the operating system; not	   * on the association; setting assoc to NULL short	   * circuits the search.	   */	  ThreadKeyAssoc *assoc;	  if (pthread_mutex_lock(&(key->keyLock)) == 0)	    {	      ptw32_thread_t * sp = (ptw32_thread_t *) self.p;	      (void) pthread_mutex_lock(&(sp->threadLock));	      assoc = (ThreadKeyAssoc *) sp->keys;	      /*	       * Locate existing association	       */	      while (assoc != NULL)		{		  if (assoc->key == key)		    {		      /*		       * Association already exists		       */		      break;		    }		  assoc = assoc->nextKey;		}	      /*	       * create an association if not found	       */	      if (assoc == NULL)		{		  result = ptw32_tkAssocCreate (sp, key);		}	      (void) pthread_mutex_unlock(&(sp->threadLock));	    }	  (void) pthread_mutex_unlock(&(key->keyLock));	}	if (result == 0)	  {	    if (!TlsSetValue (key->key, (LPVOID) value))	      {		result = EAGAIN;	      }	  }    }  return (result);}				/* pthread_setspecific */