71 lines
1.5 KiB
C
71 lines
1.5 KiB
C
/****************************************************************
|
|
* *
|
|
* Copyright 2001 Sanchez Computer Associates, Inc. *
|
|
* *
|
|
* This source code contains the intellectual property *
|
|
* of its copyright holder(s), and is made available *
|
|
* under a license. If you do not know the terms of *
|
|
* the license, please stop and do not read further. *
|
|
* *
|
|
****************************************************************/
|
|
|
|
/* Perform forks to priv'd gtmsecshr routine to remove ipc ids */
|
|
|
|
#include "mdef.h"
|
|
#include <sys/wait.h>
|
|
#include <sys/sem.h>
|
|
#include <sys/shm.h>
|
|
#include <errno.h>
|
|
#include "io.h"
|
|
#include "gtmsecshr.h"
|
|
#include "gtmmsg.h"
|
|
#include "ipcrmid.h"
|
|
|
|
#define REMIPC(op, ipcid) (send_mesg2gtmsecshr((unsigned int)(op), (unsigned int)(ipcid), (char *)NULL, 0))
|
|
|
|
/* Remove a semaphore id : if the current process has no permissions to remove it by itself,
|
|
* force it through gtmsecshr.
|
|
*/
|
|
int sem_rmid(int ipcid)
|
|
{
|
|
int status;
|
|
if (-1 == semctl(ipcid, 0, IPC_RMID))
|
|
{
|
|
if (EPERM != errno)
|
|
{
|
|
gtm_putmsg(VARLSTCNT(1) errno);
|
|
return -1;
|
|
} else
|
|
{
|
|
if (0 != (status = REMIPC(REMOVE_SEM, ipcid)))
|
|
{
|
|
gtm_putmsg(VARLSTCNT(1) status);
|
|
return -1;
|
|
}
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
/* Remove a shared memory id */
|
|
int shm_rmid(int ipcid)
|
|
{
|
|
int status;
|
|
if (-1 == shmctl(ipcid, IPC_RMID, NULL))
|
|
{
|
|
if (EPERM != errno)
|
|
{
|
|
gtm_putmsg(VARLSTCNT(1) errno);
|
|
return -1;
|
|
} else
|
|
{
|
|
if (0 != (status = REMIPC(REMOVE_SHMMEM, ipcid)))
|
|
{
|
|
gtm_putmsg(VARLSTCNT(1) status);
|
|
return -1;
|
|
}
|
|
}
|
|
}
|
|
return 0;
|
|
}
|