1/*
2 * Copyright (c) 1999 Apple Computer, Inc. All rights reserved.
3 *
4 * @APPLE_LICENSE_HEADER_START@
5 *
6 * This file contains Original Code and/or Modifications of Original Code
7 * as defined in and that are subject to the Apple Public Source License
8 * Version 2.0 (the 'License'). You may not use this file except in
9 * compliance with the License. Please obtain a copy of the License at
10 * http://www.opensource.apple.com/apsl/ and read it before using this
11 * file.
12 *
13 * The Original Code and all software distributed under the License are
14 * distributed on an 'AS IS' basis, WITHOUT WARRANTY OF ANY KIND, EITHER
15 * EXPRESS OR IMPLIED, AND APPLE HEREBY DISCLAIMS ALL SUCH WARRANTIES,
16 * INCLUDING WITHOUT LIMITATION, ANY WARRANTIES OF MERCHANTABILITY,
17 * FITNESS FOR A PARTICULAR PURPOSE, QUIET ENJOYMENT OR NON-INFRINGEMENT.
18 * Please see the License for the specific language governing rights and
19 * limitations under the License.
20 *
21 * @APPLE_LICENSE_HEADER_END@
22 */
23/*	$OpenBSD: delete.c,v 1.2 1996/06/26 05:31:19 deraadt Exp $	*/
24/*	$NetBSD: delete.c,v 1.5 1995/03/26 03:27:52 glass Exp $	*/
25
26/*-
27 * Copyright (c) 1990, 1993, 1994
28 *	The Regents of the University of California.  All rights reserved.
29 *
30 * This code is derived from software contributed to Berkeley by
31 * Hugh Smith at The University of Guelph.
32 *
33 * Redistribution and use in source and binary forms, with or without
34 * modification, are permitted provided that the following conditions
35 * are met:
36 * 1. Redistributions of source code must retain the above copyright
37 *    notice, this list of conditions and the following disclaimer.
38 * 2. Redistributions in binary form must reproduce the above copyright
39 *    notice, this list of conditions and the following disclaimer in the
40 *    documentation and/or other materials provided with the distribution.
41 * 3. All advertising materials mentioning features or use of this software
42 *    must display the following acknowledgement:
43 *	This product includes software developed by the University of
44 *	California, Berkeley and its contributors.
45 * 4. Neither the name of the University nor the names of its contributors
46 *    may be used to endorse or promote products derived from this software
47 *    without specific prior written permission.
48 *
49 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
50 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
51 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
52 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
53 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
54 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
55 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
56 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
57 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
58 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
59 * SUCH DAMAGE.
60 */
61
62#ifndef lint
63#if 0
64static char sccsid[] = "@(#)delete.c	8.3 (Berkeley) 4/2/94";
65static char rcsid[] = "$OpenBSD: delete.c,v 1.2 1996/06/26 05:31:19 deraadt Exp $";
66#endif
67#endif /* not lint */
68
69#include <sys/param.h>
70#include <sys/stat.h>
71
72#include <ar.h>
73#include <dirent.h>
74#include <fcntl.h>
75#include <stdio.h>
76#include <unistd.h>
77
78#include "archive.h"
79#include "extern.h"
80#include "pathnames.h"
81
82/*-
83 * delete --
84 *	Deletes named members from the archive.
85 */
86int
87delete(argv)
88	char **argv;
89{
90	CF cf;
91	off_t size;
92	int afd, tfd;
93	char *file;
94
95	afd = open_archive(O_RDWR);
96	tfd = tmp();
97
98	/* Read and write to an archive; pad on both. */
99	SETCF(afd, archive, tfd, tname, RPAD|WPAD);
100	while (get_arobj(afd)) {
101		if (*argv && (file = files(argv))) {
102			if (options & AR_V)
103				(void)printf("d - %s\n", file);
104			skip_arobj(afd);
105			continue;
106		}
107		put_arobj(&cf, (struct stat *)NULL);
108	}
109
110	size = lseek(tfd, (off_t)0, SEEK_CUR);
111	(void)lseek(tfd, (off_t)0, SEEK_SET);
112	(void)lseek(afd, (off_t)SARMAG, SEEK_SET);
113	SETCF(tfd, tname, afd, archive, NOPAD);
114	copy_ar(&cf, size);
115	(void)close(tfd);
116	(void)ftruncate(afd, size + SARMAG);
117	close_archive(afd);
118
119	if (*argv) {
120		orphans(argv);
121		return (1);
122	}
123	return (0);
124}
125