annotate lib/rmdir.c @ 315:21c5085366d5

Initial revision
author Jim Meyering <jim@meyering.net>
date Sun, 02 Oct 1994 05:35:52 +0000
parents
children 215ee9f8804d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
315
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
1 /* rmdir.c -- BSD compatible remove directory function for System V
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
2 Copyright (C) 1988, 1990 Free Software Foundation, Inc.
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
3
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
4 This program is free software; you can redistribute it and/or modify
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
6 the Free Software Foundation; either version 2, or (at your option)
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
7 any later version.
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
8
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
12 GNU General Public License for more details.
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
13
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
15 along with this program; if not, write to the Free Software
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
16 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
17
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
18 #ifdef HAVE_CONFIG_H
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
19 #if defined (CONFIG_BROKETS)
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
20 /* We use <config.h> instead of "config.h" so that a compilation
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
21 using -I. -I$srcdir will use ./config.h rather than $srcdir/config.h
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
22 (which it would do because it found this file in $srcdir). */
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
23 #include <config.h>
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
24 #else
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
25 #include "config.h"
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
26 #endif
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
27 #endif
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
28
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
29 #include <sys/types.h>
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
30 #include <sys/stat.h>
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
31
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
32 #include <errno.h>
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
33 #ifndef errno
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
34 extern int errno;
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
35 #endif
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
36
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
37 #ifdef STAT_MACROS_BROKEN
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
38 #undef S_ISDIR
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
39 #endif
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
40
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
41 #if !defined(S_ISDIR) && defined(S_IFDIR)
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
42 #define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
43 #endif
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
44
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
45 #include "safe-stat.h"
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
46
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
47 /* rmdir adapted from GNU tar. */
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
48
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
49 /* Remove directory DPATH.
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
50 Return 0 if successful, -1 if not. */
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
51
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
52 int
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
53 rmdir (dpath)
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
54 char *dpath;
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
55 {
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
56 int cpid, status;
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
57 struct stat statbuf;
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
58
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
59 if (SAFE_STAT (dpath, &statbuf) != 0)
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
60 return -1; /* errno already set */
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
61
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
62 if (!S_ISDIR (statbuf.st_mode))
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
63 {
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
64 errno = ENOTDIR;
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
65 return -1;
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
66 }
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
67
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
68 cpid = fork ();
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
69 switch (cpid)
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
70 {
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
71 case -1: /* cannot fork */
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
72 return -1; /* errno already set */
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
73
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
74 case 0: /* child process */
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
75 execl ("/bin/rmdir", "rmdir", dpath, (char *) 0);
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
76 _exit (1);
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
77
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
78 default: /* parent process */
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
79
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
80 /* Wait for kid to finish. */
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
81
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
82 while (wait (&status) != cpid)
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
83 /* Do nothing. */ ;
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
84
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
85 if (status & 0xFFFF)
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
86 {
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
87
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
88 /* /bin/rmdir failed. */
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
89
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
90 errno = EIO;
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
91 return -1;
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
92 }
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
93 return 0;
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
94 }
21c5085366d5 Initial revision
Jim Meyering <jim@meyering.net>
parents:
diff changeset
95 }