15821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)/*
25821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * -------------------------------------------------------------
35821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
45821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Module: sem_post_multiple.c
55821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
65821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * Purpose:
75821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *	Semaphores aren't actually part of the PThreads standard.
85821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *	They are defined by the POSIX Standard:
95821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *		POSIX 1003.1b-1993	(POSIX.1b)
115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * -------------------------------------------------------------
135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) * --------------------------------------------------------------------------
155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      Pthreads-win32 - POSIX Threads Library for Win32
175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      Copyright(C) 1998 John E. Bossom
185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      Copyright(C) 1999,2005 Pthreads-win32 contributors
195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      Contact Email: rpj@callisto.canberra.edu.au
215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      The current list of contributors is contained
235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      in the file CONTRIBUTORS included with the source
245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      code distribution. The list can also be seen at the
255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      following World Wide Web location:
265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      http://sources.redhat.com/pthreads-win32/contributors.html
275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      This library is free software; you can redistribute it and/or
295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      modify it under the terms of the GNU Lesser General Public
305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      License as published by the Free Software Foundation; either
315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      version 2 of the License, or (at your option) any later version.
325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      This library is distributed in the hope that it will be useful,
345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      but WITHOUT ANY WARRANTY; without even the implied warranty of
355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      Lesser General Public License for more details.
375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *
385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      You should have received a copy of the GNU Lesser General Public
395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      License along with this library in the file COPYING.LIB;
405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      if not, write to the Free Software Foundation, Inc.,
415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) *      59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles) */
435821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
445821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "pthread.h"
455821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "semaphore.h"
465821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#include "implement.h"
475821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
485821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
495821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)int
505821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)sem_post_multiple (sem_t * sem, int count)
515821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)     /*
525821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * ------------------------------------------------------
535821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * DOCPUBLIC
545821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *      This function posts multiple wakeups to a semaphore.
555821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *
565821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * PARAMETERS
575821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *      sem
585821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              pointer to an instance of sem_t
595821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *
605821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *      count
615821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              counter, must be greater than zero.
625821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *
635821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * DESCRIPTION
645821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *      This function posts multiple wakeups to a semaphore. If there
655821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *      are waiting threads (or processes), n <= count are awakened;
665821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *      the semaphore value is incremented by count - n.
675821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *
685821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * RESULTS
695821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              0               successfully posted semaphore,
705821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              -1              failed, error in errno
715821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * ERRNO
725821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              EINVAL          'sem' is not a valid semaphore
735821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *                              or count is less than or equal to zero.
745821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *              ERANGE          semaphore count is too big
755821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      *
765821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      * ------------------------------------------------------
775821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      */
785821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles){
795821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  int result = 0;
805821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  long waiters;
815821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  sem_t s = *sem;
825821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
835821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  if (s == NULL || count <= 0)
845821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    {
855821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      result = EINVAL;
865821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    }
875821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  else if ((result = pthread_mutex_lock (&s->lock)) == 0)
885821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    {
895821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      /* See sem_destroy.c
905821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)       */
915821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      if (*sem == NULL)
925821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)        {
935821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)          (void) pthread_mutex_unlock (&s->lock);
945821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)          result = EINVAL;
955821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)          return -1;
965821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)        }
975821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
985821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      if (s->value <= (SEM_VALUE_MAX - count))
995821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	{
1005821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  waiters = -s->value;
1015821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  s->value += count;
1025821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  if (waiters > 0)
1035821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	    {
1045821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#if defined(NEED_SEM)
1055821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	      if (SetEvent(s->sem))
1065821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		{
1075821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		  waiters--;
1085821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		  s->leftToUnblock += count - 1;
1095821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		  if (s->leftToUnblock > waiters)
1105821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		    {
1115821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		      s->leftToUnblock = waiters;
1125821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		    }
1135821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		}
1145821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#else
1155821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	      if (ReleaseSemaphore (s->sem,  (waiters<=count)?waiters:count, 0))
1165821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		{
1175821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		  /* No action */
1185821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		}
1195821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)#endif
1205821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	      else
1215821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		{
1225821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		  s->value -= count;
1235821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		  result = EINVAL;
1245821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)		}
1255821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	    }
1265821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	}
1275821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      else
1285821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	{
1295821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	  result = ERANGE;
1305821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)	}
1315821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      (void) pthread_mutex_unlock (&s->lock);
1325821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    }
1335821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
1345821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  if (result != 0)
1355821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    {
1365821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      errno = result;
1375821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)      return -1;
1385821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)    }
1395821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
1405821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)  return 0;
1415821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)
1425821806d5e7f356e8fa4b058a389a808ea183019Torne (Richard Coles)}				/* sem_post_multiple */
143