#include <unistd.h>
#include <stdarg.h>
#include <sys/sem.h>
#include <errno.h>
extern int * __error(void);
#define errno (*__error())
extern int __semctl(int semid, int semnum, int cmd, void *);
int
semctl(int semid, int semnum, int cmd, ...)
{
va_list ap;
int rv;
int val = 0;
struct __semid_ds_new ds;
struct __semid_ds_new *ds_new = &ds;
struct __semid_ds_old *ds_old = NULL;
va_start(ap, cmd);
if (cmd == SETVAL)
val = va_arg(ap, int);
else
ds_old = va_arg(ap, struct __semid_ds_old *);
va_end(ap);
#define _UP_CVT(x) ds_new-> x = ds_old-> x
#define _DN_CVT(x) ds_old-> x = ds_new-> x
if ((cmd == IPC_SET || cmd == IPC_STAT) && ds_old == NULL) {
errno = EFAULT;
return -1;
}
if (cmd == IPC_SET) {
_UP_CVT(sem_perm.uid);
_UP_CVT(sem_perm.gid);
_UP_CVT(sem_perm.cuid);
_UP_CVT(sem_perm.cgid);
_UP_CVT(sem_perm.mode);
ds_new->sem_perm._seq = ds_old->sem_perm.seq;
ds_new->sem_perm._key = ds_old->sem_perm.key;
_UP_CVT(sem_base);
_UP_CVT(sem_nsems);
_UP_CVT(sem_otime);
_UP_CVT(sem_pad1);
_UP_CVT(sem_ctime);
_UP_CVT(sem_pad2);
_UP_CVT(sem_pad3[0]);
_UP_CVT(sem_pad3[1]);
_UP_CVT(sem_pad3[2]);
_UP_CVT(sem_pad3[3]);
}
switch (cmd) {
case SETVAL:
rv = __semctl(semid, semnum, cmd, (void *)val);
break;
case IPC_SET:
case IPC_STAT:
rv = __semctl(semid, semnum, cmd, ds_new);
break;
default:
rv = __semctl(semid, semnum, cmd, ds_old);
break;
}
if (cmd == IPC_STAT) {
_DN_CVT(sem_perm.uid);
_DN_CVT(sem_perm.gid);
_DN_CVT(sem_perm.cuid);
_DN_CVT(sem_perm.cgid);
_DN_CVT(sem_perm.mode);
ds_old->sem_perm.seq = ds_new->sem_perm._seq;
ds_old->sem_perm.key = ds_new->sem_perm._key;
_DN_CVT(sem_base);
_DN_CVT(sem_nsems);
_DN_CVT(sem_otime);
_DN_CVT(sem_pad1);
_DN_CVT(sem_ctime);
_DN_CVT(sem_pad2);
_DN_CVT(sem_pad3[0]);
_DN_CVT(sem_pad3[1]);
_DN_CVT(sem_pad3[2]);
_DN_CVT(sem_pad3[3]);
}
return (rv);
}