Mercurial > hg > octave-kai > gnulib-hg
annotate lib/rmdir.c @ 1768:d12253dc9dbb
(rmdir): Use pid_t instead of int; check status
against zero. This is to improve portability.
| author | Jim Meyering <jim@meyering.net> |
|---|---|
| date | Tue, 30 Mar 1999 04:48:41 +0000 |
| parents | afc786442131 |
| children | 5994c6f939c5 |
| rev | line source |
|---|---|
| 775 | 1 /* BSD compatible remove directory function for System V |
| 315 | 2 Copyright (C) 1988, 1990 Free Software Foundation, Inc. |
| 3 | |
| 4 This program is free software; you can redistribute it and/or modify | |
| 5 it under the terms of the GNU General Public License as published by | |
| 6 the Free Software Foundation; either version 2, or (at your option) | |
| 7 any later version. | |
| 8 | |
| 9 This program is distributed in the hope that it will be useful, | |
| 10 but WITHOUT ANY WARRANTY; without even the implied warranty of | |
| 11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the | |
| 12 GNU General Public License for more details. | |
| 13 | |
| 14 You should have received a copy of the GNU General Public License | |
|
650
b4ef1c1a0171
update FSF address in copyright
Jim Meyering <jim@meyering.net>
parents:
439
diff
changeset
|
15 along with this program; if not, write to the Free Software Foundation, |
|
b4ef1c1a0171
update FSF address in copyright
Jim Meyering <jim@meyering.net>
parents:
439
diff
changeset
|
16 Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */ |
| 315 | 17 |
| 775 | 18 #if HAVE_CONFIG_H |
| 19 # include <config.h> | |
| 315 | 20 #endif |
| 21 | |
| 22 #include <sys/types.h> | |
| 23 #include <sys/stat.h> | |
| 24 | |
| 25 #include <errno.h> | |
| 26 #ifndef errno | |
| 27 extern int errno; | |
| 28 #endif | |
| 29 | |
| 775 | 30 #if STAT_MACROS_BROKEN |
| 31 # undef S_ISDIR | |
| 315 | 32 #endif |
| 33 | |
| 34 #if !defined(S_ISDIR) && defined(S_IFDIR) | |
| 775 | 35 # define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR) |
| 315 | 36 #endif |
| 37 | |
| 38 /* rmdir adapted from GNU tar. */ | |
| 39 | |
| 40 /* Remove directory DPATH. | |
| 41 Return 0 if successful, -1 if not. */ | |
| 42 | |
| 43 int | |
| 44 rmdir (dpath) | |
| 45 char *dpath; | |
| 46 { | |
|
1768
d12253dc9dbb
(rmdir): Use pid_t instead of int; check status
Jim Meyering <jim@meyering.net>
parents:
775
diff
changeset
|
47 pid_t cpid; |
|
d12253dc9dbb
(rmdir): Use pid_t instead of int; check status
Jim Meyering <jim@meyering.net>
parents:
775
diff
changeset
|
48 int status; |
| 315 | 49 struct stat statbuf; |
| 50 | |
|
431
a13a90e8681b
(rmdir): Use stat, not safe_stat.
Jim Meyering <jim@meyering.net>
parents:
381
diff
changeset
|
51 if (stat (dpath, &statbuf) != 0) |
| 315 | 52 return -1; /* errno already set */ |
| 53 | |
| 54 if (!S_ISDIR (statbuf.st_mode)) | |
| 55 { | |
| 56 errno = ENOTDIR; | |
| 57 return -1; | |
| 58 } | |
| 59 | |
| 60 cpid = fork (); | |
| 61 switch (cpid) | |
| 62 { | |
| 63 case -1: /* cannot fork */ | |
| 64 return -1; /* errno already set */ | |
| 65 | |
| 66 case 0: /* child process */ | |
| 67 execl ("/bin/rmdir", "rmdir", dpath, (char *) 0); | |
| 68 _exit (1); | |
| 69 | |
| 70 default: /* parent process */ | |
| 71 | |
| 72 /* Wait for kid to finish. */ | |
| 73 | |
| 74 while (wait (&status) != cpid) | |
| 75 /* Do nothing. */ ; | |
| 76 | |
|
1768
d12253dc9dbb
(rmdir): Use pid_t instead of int; check status
Jim Meyering <jim@meyering.net>
parents:
775
diff
changeset
|
77 if (status) |
| 315 | 78 { |
| 79 | |
| 80 /* /bin/rmdir failed. */ | |
| 81 | |
| 82 errno = EIO; | |
| 83 return -1; | |
| 84 } | |
| 85 return 0; | |
| 86 } | |
| 87 } |