text: /* thr_posix.c - wrapper around posix and posixish thread implementations.  */
  /* $OpenLDAP$ */
  /* This work is part of OpenLDAP Software <http://www.openldap.org/>.
   *
   * Copyright 1998-2018 The OpenLDAP Foundation.
   * All rights reserved.
   *
   * Redistribution and use in source and binary forms, with or without
   * modification, are permitted only as authorized by the OpenLDAP
   * Public License.
   *
   * A copy of this license is available in file LICENSE in the
   * top-level directory of the distribution or, alternatively, at
   * <http://www.OpenLDAP.org/license.html>.
   */
  
  #include "portable.h"
  
  #if defined( HAVE_PTHREADS )
  
  #include <ac/errno.h>
  
  #ifdef REPLACE_BROKEN_YIELD
  #ifndef HAVE_NANOSLEEP
  #include <ac/socket.h>
  #endif
  #include <ac/time.h>
  #endif
  
  #include "ldap_pvt_thread.h" /* Get the thread interface */
  #define LDAP_THREAD_IMPLEMENTATION
  #define LDAP_THREAD_RDWR_IMPLEMENTATION
  #include "ldap_thr_debug.h"	 /* May rename the symbols defined below */
  #include <signal.h>			 /* For pthread_kill() */
  
  extern int ldap_int_stackguard;
  
  #if HAVE_PTHREADS < 6
  #  define LDAP_INT_THREAD_ATTR_DEFAULT		pthread_attr_default
  #  define LDAP_INT_THREAD_CONDATTR_DEFAULT	pthread_condattr_default
  #  define LDAP_INT_THREAD_MUTEXATTR_DEFAULT	pthread_mutexattr_default
  #else
  #  define LDAP_INT_THREAD_ATTR_DEFAULT		NULL
  #  define LDAP_INT_THREAD_CONDATTR_DEFAULT	NULL
  #  define LDAP_INT_THREAD_MUTEXATTR_DEFAULT NULL
  #endif
  
  #ifdef LDAP_THREAD_DEBUG
  #  if defined LDAP_INT_THREAD_MUTEXATTR	/* May be defined in CPPFLAGS */
  #  elif defined HAVE_PTHREAD_KILL_OTHER_THREADS_NP
  	 /* LinuxThreads hack */
  #    define LDAP_INT_THREAD_MUTEXATTR	PTHREAD_MUTEX_ERRORCHECK_NP
  #  else
  #    define LDAP_INT_THREAD_MUTEXATTR	PTHREAD_MUTEX_ERRORCHECK
  #  endif
  static pthread_mutexattr_t mutex_attr;
  #  undef  LDAP_INT_THREAD_MUTEXATTR_DEFAULT
  #  define LDAP_INT_THREAD_MUTEXATTR_DEFAULT &mutex_attr
  #endif
  
  static pthread_mutexattr_t mutex_attr_recursive;
  
  #if HAVE_PTHREADS < 7
  #define ERRVAL(val)	((val) < 0 ? errno : 0)
  #else
  #define ERRVAL(val)	(val)
  #endif
  
  int
  ldap_int_thread_initialize( void )
  {
  #ifdef LDAP_INT_THREAD_MUTEXATTR
  	pthread_mutexattr_init( &mutex_attr );
  	pthread_mutexattr_settype( &mutex_attr, LDAP_INT_THREAD_MUTEXATTR );
  #endif
  	if (pthread_mutexattr_init(&mutex_attr_recursive))
  		return -1;
  	if (pthread_mutexattr_settype(&mutex_attr_recursive, PTHREAD_MUTEX_RECURSIVE))
  		return -1;
  	return 0;
  }
  
  int
  ldap_int_thread_destroy( void )
  {
  #ifdef HAVE_PTHREAD_KILL_OTHER_THREADS_NP
  	/* LinuxThreads: kill clones */
  	pthread_kill_other_threads_np();
  #endif
  #ifdef LDAP_INT_THREAD_MUTEXATTR
  	pthread_mutexattr_destroy( &mutex_attr );
  #endif
  	pthread_mutexattr_destroy( &mutex_attr_recursive );
  	return 0;
  }
  
  #ifdef LDAP_THREAD_HAVE_SETCONCURRENCY
  int
  ldap_pvt_thread_set_concurrency(int n)
  {
  #ifdef HAVE_PTHREAD_SETCONCURRENCY
  	return pthread_setconcurrency( n );
  #elif defined(HAVE_THR_SETCONCURRENCY)
  	return thr_setconcurrency( n );
  #else
  	return 0;
  #endif
  }
  #endif
  
  #ifdef LDAP_THREAD_HAVE_GETCONCURRENCY
  int
  ldap_pvt_thread_get_concurrency(void)
  {
  #ifdef HAVE_PTHREAD_GETCONCURRENCY
  	return pthread_getconcurrency();
  #elif defined(HAVE_THR_GETCONCURRENCY)
  	return thr_getconcurrency();
  #else
  	return 0;
  #endif
  }
  #endif
  
  /* detachstate appeared in Draft 6, but without manifest constants.
   * in Draft 7 they were called PTHREAD_CREATE_UNDETACHED and ...DETACHED.
   * in Draft 8 on, ...UNDETACHED became ...JOINABLE.
   */
  #ifndef PTHREAD_CREATE_JOINABLE
  #ifdef PTHREAD_CREATE_UNDETACHED
  #define	PTHREAD_CREATE_JOINABLE	PTHREAD_CREATE_UNDETACHED
  #else
  #define	PTHREAD_CREATE_JOINABLE	0
  #endif
  #endif
  
  #ifndef PTHREAD_CREATE_DETACHED
  #define	PTHREAD_CREATE_DETACHED	1
  #endif
  
  int 
  ldap_pvt_thread_create( ldap_pvt_thread_t * thread,
  	int detach,
  	void *(*start_routine)( void * ),
  	void *arg)
  {
  	int rtn;
  	pthread_attr_t attr;
  
  /* Always create the thread attrs, so we can set stacksize if we need to */
  #if HAVE_PTHREADS > 5
  	pthread_attr_init(&attr);
  #else
  	pthread_attr_create(&attr);
  #endif
  
  #ifdef LDAP_PVT_THREAD_SET_STACK_SIZE
  	/* this should be tunable */
  	pthread_attr_setstacksize( &attr, LDAP_PVT_THREAD_STACK_SIZE );
  	if ( ldap_int_stackguard )
  		pthread_attr_setguardsize( &attr, LDAP_PVT_THREAD_STACK_SIZE );
  #endif
  
  #if HAVE_PTHREADS > 5
  	detach = detach ? PTHREAD_CREATE_DETACHED : PTHREAD_CREATE_JOINABLE;
  #if HAVE_PTHREADS == 6
  	pthread_attr_setdetachstate(&attr, &detach);
  #else
  	pthread_attr_setdetachstate(&attr, detach);
  #endif
  #endif
  
  #if HAVE_PTHREADS < 5
  	rtn = pthread_create( thread, attr, start_routine, arg );
  #else
  	rtn = pthread_create( thread, &attr, start_routine, arg );
  #endif
  
  #if HAVE_PTHREADS > 5
  	pthread_attr_destroy(&attr);
  #else
  	pthread_attr_delete(&attr);
  	if( detach ) {
  		pthread_detach( thread );
  	}
  #endif
  
  #if HAVE_PTHREADS < 7
  	if ( rtn < 0 ) rtn = errno;
  #endif
  	return rtn;
  }
  
  void 
  ldap_pvt_thread_exit( void *retval )
  {
  	pthread_exit( retval );
  }
  
  int 
  ldap_pvt_thread_join( ldap_pvt_thread_t thread, void **thread_return )
  {
  #if HAVE_PTHREADS < 7
  	void *dummy;
  	if (thread_return==NULL)
  	  thread_return=&dummy;
  #endif
  	return ERRVAL( pthread_join( thread, thread_return ) );
  }
  
  int 
  ldap_pvt_thread_kill( ldap_pvt_thread_t thread, int signo )
  {
  #if defined(HAVE_PTHREAD_KILL) && HAVE_PTHREADS > 4
  	/* MacOS 10.1 is detected as v10 but has no pthread_kill() */
  	return ERRVAL( pthread_kill( thread, signo ) );
  #else
  	/* pthread package with DCE */
  	if (kill( getpid(), signo )<0)
  		return errno;
  	return 0;
  #endif
  }
  
  int 
  ldap_pvt_thread_yield( void )
  {
  #ifdef REPLACE_BROKEN_YIELD
  #ifdef HAVE_NANOSLEEP
  	struct timespec t = { 0, 0 };
  	nanosleep(&t, NULL);
  #else
  	struct timeval tv = {0,0};
  	select( 0, NULL, NULL, NULL, &tv );
  #endif
  	return 0;
  
  #elif defined(HAVE_THR_YIELD)
  	thr_yield();
  	return 0;
  
  #elif HAVE_PTHREADS == 10
  	return sched_yield();
  
  #elif defined(_POSIX_THREAD_IS_GNU_PTH)
  	sched_yield();
  	return 0;
  
  #elif HAVE_PTHREADS == 6
  	pthread_yield(NULL);
  	return 0;
  
  #else
  	pthread_yield();
  	return 0;
  #endif
  }
  
  int 
  ldap_pvt_thread_cond_init( ldap_pvt_thread_cond_t *cond )
  {
  	return ERRVAL( pthread_cond_init(
  		cond, LDAP_INT_THREAD_CONDATTR_DEFAULT ) );
  }
  
  int 
  ldap_pvt_thread_cond_destroy( ldap_pvt_thread_cond_t *cond )
  {
  	return ERRVAL( pthread_cond_destroy( cond ) );
  }
  	
  int 
  ldap_pvt_thread_cond_signal( ldap_pvt_thread_cond_t *cond )
  {
  	return ERRVAL( pthread_cond_signal( cond ) );
  }
  
  int
  ldap_pvt_thread_cond_broadcast( ldap_pvt_thread_cond_t *cond )
  {
  	return ERRVAL( pthread_cond_broadcast( cond ) );
  }
  
  int 
  ldap_pvt_thread_cond_wait( ldap_pvt_thread_cond_t *cond, 
  		      ldap_pvt_thread_mutex_t *mutex )
  {
  	return ERRVAL( pthread_cond_wait( cond, mutex ) );
  }
  
  int 
  ldap_pvt_thread_mutex_init( ldap_pvt_thread_mutex_t *mutex )
  {
  	return ERRVAL( pthread_mutex_init(
  		mutex, LDAP_INT_THREAD_MUTEXATTR_DEFAULT ) );
  }
  
  int 
  ldap_pvt_thread_mutex_destroy( ldap_pvt_thread_mutex_t *mutex )
  {
  	return ERRVAL( pthread_mutex_destroy( mutex ) );
  }
  
  int 
  ldap_pvt_thread_mutex_lock( ldap_pvt_thread_mutex_t *mutex )
  {
  	return ERRVAL( pthread_mutex_lock( mutex ) );
  }
  
  int 
  ldap_pvt_thread_mutex_trylock( ldap_pvt_thread_mutex_t *mutex )
  {
  	return ERRVAL( pthread_mutex_trylock( mutex ) );
  }
  
  int 
  ldap_pvt_thread_mutex_unlock( ldap_pvt_thread_mutex_t *mutex )
  {
  	return ERRVAL( pthread_mutex_unlock( mutex ) );
  }
  
  int
  ldap_pvt_thread_mutex_recursive_init( ldap_pvt_thread_mutex_t *mutex )
  {
  	return ERRVAL( pthread_mutex_init( mutex, &mutex_attr_recursive ) );
  }
  
  int ldap_pvt_thread_mutex_recursive_destroy( ldap_pvt_thread_mutex_recursive_t *mutex )
  	LDAP_GCCATTR((alias("ldap_pvt_thread_mutex_destroy")));
  int ldap_pvt_thread_mutex_recursive_lock( ldap_pvt_thread_mutex_recursive_t *mutex )
  	LDAP_GCCATTR((alias("ldap_pvt_thread_mutex_lock")));
  int ldap_pvt_thread_mutex_recursive_trylock( ldap_pvt_thread_mutex_recursive_t *mutex )
  	LDAP_GCCATTR((alias("ldap_pvt_thread_mutex_trylock")));
  int ldap_pvt_thread_mutex_recursive_unlock( ldap_pvt_thread_mutex_recursive_t *mutex )
  	LDAP_GCCATTR((alias("ldap_pvt_thread_mutex_unlock")));
  
  ldap_pvt_thread_t ldap_pvt_thread_self( void )
  {
  	return pthread_self();
  }
  
  int
  ldap_pvt_thread_key_create( ldap_pvt_thread_key_t *key )
  {
  	return pthread_key_create( key, NULL );
  }
  
  int
  ldap_pvt_thread_key_destroy( ldap_pvt_thread_key_t key )
  {
  	return pthread_key_delete( key );
  }
  
  int
  ldap_pvt_thread_key_setdata( ldap_pvt_thread_key_t key, void *data )
  {
  	return pthread_setspecific( key, data );
  }
  
  int
  ldap_pvt_thread_key_getdata( ldap_pvt_thread_key_t key, void **data )
  {
  	*data = pthread_getspecific( key );
  	return 0;
  }
  
  #ifdef LDAP_THREAD_HAVE_RDWR
  #ifdef HAVE_PTHREAD_RWLOCK_DESTROY
  int 
  ldap_pvt_thread_rdwr_init( ldap_pvt_thread_rdwr_t *rw )
  {
  	return ERRVAL( pthread_rwlock_init( rw, NULL ) );
  }
  
  int 
  ldap_pvt_thread_rdwr_destroy( ldap_pvt_thread_rdwr_t *rw )
  {
  	return ERRVAL( pthread_rwlock_destroy( rw ) );
  }
  
  int ldap_pvt_thread_rdwr_rlock( ldap_pvt_thread_rdwr_t *rw )
  {
  	return ERRVAL( pthread_rwlock_rdlock( rw ) );
  }
  
  int ldap_pvt_thread_rdwr_rtrylock( ldap_pvt_thread_rdwr_t *rw )
  {
  	return ERRVAL( pthread_rwlock_tryrdlock( rw ) );
  }
  
  int ldap_pvt_thread_rdwr_runlock( ldap_pvt_thread_rdwr_t *rw )
  {
  	return ERRVAL( pthread_rwlock_unlock( rw ) );
  }
  
  int ldap_pvt_thread_rdwr_wlock( ldap_pvt_thread_rdwr_t *rw )
  {
  	return ERRVAL( pthread_rwlock_wrlock( rw ) );
  }
  
  int ldap_pvt_thread_rdwr_wtrylock( ldap_pvt_thread_rdwr_t *rw )
  {
  	return ERRVAL( pthread_rwlock_trywrlock( rw ) );
  }
  
  int ldap_pvt_thread_rdwr_wunlock( ldap_pvt_thread_rdwr_t *rw )
  {
  	return ERRVAL( pthread_rwlock_unlock( rw ) );
  }
  
  #endif /* HAVE_PTHREAD_RWLOCK_DESTROY */
  #endif /* LDAP_THREAD_HAVE_RDWR */
  #endif /* HAVE_PTHREADS */
  
  