/* This program initializes semaphores on discover (and sister machines) */
#include <stdio.h>
#include <math.h>
#include <sys/errno.h>
#include <sys/types.h>
#include <sys/ipc.h>
#include <sys/shm.h>
#include <sys/sem.h>
/* #define NumSems 3 */

void PrintSems(semid,NumSems)
int semid,NumSems;
{int i;
 short *Values;
 Values=(short *)malloc(sizeof(short)*NumSems);
 semctl(semid,0,GETALL,&Values);
 fprintf(stderr,"Semaphore Values ");
 for (i=0;i<NumSems;i++)
  fprintf(stderr,"#%d. %d  | ",i,*(Values+i));
 fprintf(stderr,"\n");
}

main()
{int key, semid, i, NumSems;
 union semun semunion;
 struct semid_ds s;
 NumSems=3;
 key=getuid(); 
 semid = semget(key, NumSems, 0600|IPC_CREAT);
 semctl(semid,0,IPC_STAT,&s);
 fprintf(stderr,"Semaphore id %d: ", semid);
 PrintSems(semid,NumSems); 
 semunion.array=(ushort *)malloc(sizeof(int)*(NumSems+1));
 for (i=0;i<NumSems;i++) semunion.array[i]=1;
 semctl(semid,NULL,SETALL,&semunion);
 PrintSems(semid,NumSems); 
 sleep(5);
 semctl(semid,0,IPC_RMID,0);
}