annotate liboctave/rmdir.c @ 5100:5a92c3177fc6 before-gnuplot-split

[project @ 2004-12-27 17:20:38 by jwe]
author jwe
date Mon, 27 Dec 2004 17:20:38 +0000
parents f7e4a95916f2
children 4c8a2e4e0717
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
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
6 the Free Software Foundation; either version 2, or (at your option)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
7 any later version.
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
3284
f7e4a95916f2 [project @ 1999-10-13 21:37:04 by jwe]
jwe
parents: 2443
diff changeset
16 Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111 USA. */
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
17
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
18 #ifdef HAVE_CONFIG_H
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
19 #include <config.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
20 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
21
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
22 #ifndef HAVE_RMDIR
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
23
2443
4d941ba99862 [project @ 1996-10-30 18:51:26 by jwe]
jwe
parents: 1408
diff changeset
24 #ifdef HAVE_SYS_TYPES_H
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
25 #include <sys/types.h>
2443
4d941ba99862 [project @ 1996-10-30 18:51:26 by jwe]
jwe
parents: 1408
diff changeset
26 #endif
1408
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
27 #include <sys/stat.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
28
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
29 #include <errno.h>
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
30 #ifndef errno
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
31 extern int errno;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
32 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
33
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
34 #ifdef STAT_MACROS_BROKEN
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
35 #undef S_ISDIR
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
36 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
37
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
38 #if !defined(S_ISDIR) && defined(S_IFDIR)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
39 #define S_ISDIR(m) (((m) & S_IFMT) == S_IFDIR)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
40 #endif
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
41
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
42 #include "safe-stat.h"
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
43
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
44 /* rmdir adapted from GNU tar. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
45
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
46 /* Remove directory DPATH.
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
47 Return 0 if successful, -1 if not. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
48
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
49 int
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
50 rmdir (dpath)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
51 char *dpath;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
52 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
53 int cpid, status;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
54 struct stat statbuf;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
55
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
56 if (SAFE_STAT (dpath, &statbuf) != 0)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
57 return -1; /* errno already set */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
58
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
59 if (!S_ISDIR (statbuf.st_mode))
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
60 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
61 errno = ENOTDIR;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
62 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
63 }
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 cpid = fork ();
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
66 switch (cpid)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
67 {
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
68 case -1: /* cannot fork */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
69 return -1; /* errno already set */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
70
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
71 case 0: /* child process */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
72 execl ("/bin/rmdir", "rmdir", dpath, (char *) 0);
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
73 _exit (1);
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
74
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
75 default: /* parent process */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
76
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
77 /* Wait for kid to finish. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
78
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
79 while (wait (&status) != cpid)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
80 /* Do nothing. */ ;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
81
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
82 if (status & 0xFFFF)
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
83 {
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 /* /bin/rmdir failed. */
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
86
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
87 errno = EIO;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
88 return -1;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
89 }
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
90 return 0;
f1fbe4cdd75c [project @ 1995-09-15 06:39:28 by jwe]
jwe
parents:
diff changeset
91 }
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 #endif