annotate liboctave/rmdir.c @ 7334:274d9642ac10 release-3-0-0

[project @ 2007-12-22 01:42:45 by jwe]
author jwe
date Sat, 22 Dec 2007 01:42:46 +0000
parents 93c65f2a5668
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
1 /* rmdir.c -- BSD compatible remove directory function for System V
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
2 Copyright (C) 1988, 1990 Free Software Foundation, Inc.
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
3
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
4 This program is free software; you can redistribute it and/or modify
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
5 it under the terms of the GNU General Public License as published by
7016
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5307
diff changeset
6 the Free Software Foundation; either version 2 of the License, or
93c65f2a5668 [project @ 2007-10-12 06:40:56 by jwe]
jwe
parents: 5307
diff changeset
7 (at your option) any later version.
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
8
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
9 This program is distributed in the hope that it will be useful,
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
12 GNU General Public License for more details.
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
13
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
14 You should have received a copy of the GNU General Public License
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
15 along with this program; if not, write to the Free Software
5307
4c8a2e4e0717 [project @ 2005-04-26 19:24:27 by jwe]
jwe
parents: 3284
diff changeset
16 Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA
4c8a2e4e0717 [project @ 2005-04-26 19:24:27 by jwe]
jwe
parents: 3284
diff changeset
17 02110-1301 USA. */
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
18
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
19 #ifdef HAVE_CONFIG_H
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
20 #include <config.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
21 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
22
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
23 #ifndef HAVE_RMDIR
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
24
2443
4d941ba99862 [project @ 1996-10-30 18:51:26 by jwe]
jwe
parents: 1408
diff changeset
25 #ifdef HAVE_SYS_TYPES_H
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
26 #include <sys/types.h>
2443
4d941ba99862 [project @ 1996-10-30 18:51:26 by jwe]
jwe
parents: 1408
diff changeset
27 #endif
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
28 #include <sys/stat.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
29
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
30 #include <errno.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
31 #ifndef errno
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
32 extern int errno;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
33 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
34
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
35 #ifdef STAT_MACROS_BROKEN
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
36 #undef S_ISDIR
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
37 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
38
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
39 #if !defined(S_ISDIR) && defined(S_IFDIR)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
40 #define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
41 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
42
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
43 #include "safe-stat.h"
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
44
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
45 /* rmdir adapted from GNU tar. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
46
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
47 /* Remove directory DPATH.
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
48 Return 0 if successful, -1 if not. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
49
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
50 int
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
51 rmdir (dpath)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
52 char *dpath;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
53 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
54 int cpid, status;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
55 struct stat statbuf;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
56
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
57 if (SAFE_STAT (dpath, &statbuf) != 0)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
58 return -1; /* errno already set */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
59
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
60 if (!S_ISDIR (statbuf.st_mode))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
61 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
62 errno = ENOTDIR;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
63 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
64 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
65
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
66 cpid = fork ();
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
67 switch (cpid)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
68 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
69 case -1: /* cannot fork */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
70 return -1; /* errno already set */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
71
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
72 case 0: /* child process */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
73 execl ("/bin/rmdir", "rmdir", dpath, (char *) 0);
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
74 _exit (1);
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
75
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
76 default: /* parent process */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
77
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
78 /* Wait for kid to finish. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
79
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
80 while (wait (&status) != cpid)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
81 /* Do nothing. */ ;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
82
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
83 if (status & 0xFFFF)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
84 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
85
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
86 /* /bin/rmdir failed. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
87
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
88 errno = EIO;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
89 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
90 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
91 return 0;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
92 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
93 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
94
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
95 #endif