ipcrm.c

来自「<B>Digital的Unix操作系统VAX 4.2源码</B>」· C语言 代码 · 共 153 行

#ifndef lint
static	char	*sccsid = "@(#)ipcrm.c	4.1	(ULTRIX)	7/17/90";
#endif lint

/************************************************************************
 *									*
 *			Copyright (c) 1984 by				*
 *		Digital Equipment Corporation, Maynard, MA		*
 *			All rights reserved.				*
 *									*
 *   This software is furnished under a license and may be used and	*
 *   copied  only  in accordance with the terms of such license and	*
 *   with the  inclusion  of  the  above  copyright  notice.   This	*
 *   software  or  any  other copies thereof may not be provided or	*
 *   otherwise made available to any other person.  No title to and	*
 *   ownership of the software is hereby transferred.			*
 *									*
 *   This software is  derived  from  software  received  from  the	*
 *   University    of   California,   Berkeley,   and   from   Bell	*
 *   Laboratories.  Use, duplication, or disclosure is  subject  to	*
 *   restrictions  under  license  agreements  with  University  of	*
 *   California and with AT&T.						*
 *									*
 *   The information in this software is subject to change  without	*
 *   notice  and should not be construed as a commitment by Digital	*
 *   Equipment Corporation.						*
 *									*
 *   Digital assumes no responsibility for the use  or  reliability	*
 *   of its software on equipment which is not supplied by Digital.	*
 *									*
 ************************************************************************/
/*
 *
 *   Modification history:
 *
 *  30 Apr 85 -- depp
 *	New file for system maintenance of System V IPC
 *
 */

/*
**	ipcrm - IPC remove
**	Remove specified message queues, semaphore sets and shared memory ids.
*/

#include	<sys/types.h>
#include	<sys/ipc.h>
#include	<sys/msg.h>
#include	<sys/sem.h>
#include	<sys/shm.h>
#include	<sys/errno.h>
#include	<stdio.h>

char    opts[] = "q:m:s:Q:M:S:";/* allowable options for getopt */
extern char *optarg;		/* arg pointer for getopt */
extern int  optind;		/* option index for getopt */
extern int  errno;		/* error return */

main (argc, argv)
int     argc;			/* arg count */
char  **argv;			/* arg vector */
{
    register int    o;		/* option flag */
    register int    err;	/* error count */
    register int    ipc_id;	/* id to remove */
    register    key_t ipc_key;	/* key to remove */
    extern long atol ();

    /* Go through the options */
    err = 0;
    while ((o = getopt (argc, argv, opts)) != EOF)
	switch (o)
	{

	    case 'q': 		/* message queue */
		ipc_id = atoi (optarg);
		if (msgctl (ipc_id, IPC_RMID, 0) == -1)
		    oops ("msqid", (long) ipc_id);
		break;

	    case 'm': 		/* shared memory */
		ipc_id = atoi (optarg);
		if (shmctl (ipc_id, IPC_RMID, 0) == -1)
		    oops ("shmid", (long) ipc_id);
		break;

	    case 's': 		/* semaphores */
		ipc_id = atoi (optarg);
		if (semctl (ipc_id, IPC_RMID, 0) == -1)
		    oops ("semid", (long) ipc_id);
		break;

	    case 'Q': 		/* message queue (by key) */
		ipc_key = (key_t) atol (optarg);
		if ((ipc_id = msgget (ipc_key, 0)) == -1
			|| msgctl (ipc_id, IPC_RMID, 0) == -1)
		    oops ("msgkey", ipc_key);
		break;

	    case 'M': 		/* shared memory (by key) */
		ipc_key = (key_t) atol (optarg);
		if ((ipc_id = shmget (ipc_key, 0, 0)) == -1
			|| shmctl (ipc_id, IPC_RMID, 0) == -1)
		    oops ("shmkey", ipc_key);
		break;

	    case 'S': 		/* semaphores (by key) */
		ipc_key = (key_t) atol (optarg);
		if ((ipc_id = semget (ipc_key, 0, 0)) == -1
			|| semctl (ipc_id, IPC_RMID, 0) == -1)
		    oops ("semkey", ipc_key);
		break;

	    default: 
	    case '?': 		/* anything else */
		err++;
		break;
	}
    if (err || (optind < argc))
    {
	fprintf (stderr,
		"usage: ipcrm [ [-q msqid] [-m shmid] [-s semid]\n%s\n",
		"	[-Q msgkey] [-M shmkey] [-S semkey] ... ]");
	exit (1);
    }
}

oops (s, i)
char   *s;
long    i;
{
    char   *e;

    switch (errno)
    {

	case ENOENT: 		/* key not found */
	case EINVAL: 		/* id not found */
	    e = "not found";
	    break;

	case EPERM: 		/* permission denied */
	    e = "permission denied";
	    break;
	default: 
	    e = "unknown error";
    }

    fprintf (stderr, "ipcrm: %s(%ld): %s\n", s, i, e);
}