1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
|
/*
* SCCS: @(#)rmrf.c 1.4 (98/09/01)
*
* UniSoft Ltd., London, England
*
* (C) Copyright 1996 X/Open Company Limited
*
* All rights reserved. No part of this source code may be reproduced,
* stored in a retrieval system, or transmitted, in any form or by any
* means, electronic, mechanical, photocopying, recording or otherwise,
* except as stated in the end-user licence agreement, without the prior
* permission of the copyright owners.
* A copy of the end-user licence agreement is contained in the file
* Licence which accompanies this distribution.
*
* X/Open and the 'X' symbol are trademarks of X/Open Company Limited in
* the UK and other countries.
*/
#ifndef lint
static char sccsid[] = "@(#)rmrf.c 1.4 (98/09/01) TET3 release 3.3";
#endif
/************************************************************************
SCCS: @(#)rmrf.c 1.4 98/09/01 TETware release 3.3
NAME: rmrf.c
PRODUCT: TETware
AUTHOR: Andrew Dingwall, UniSoft Ltd.
DATE CREATED: October 1996
DESCRIPTION:
function to emulate an invocation of rm -rf
this function moved from tccd/stcc.c to here
MODIFICATIONS:
Andrew Dingwall, UniSoft Ltd., March 1998
tcf_lsdir() no longer includes "." in the list of files returned.
Andrew Dingwall, UniSoft Ltd., July 1998
Added support for shared API libraries.
************************************************************************/
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <sys/types.h>
#include <sys/stat.h>
# include <unistd.h>
#include "dtmac.h"
#include "dtmsg.h"
#include "error.h"
#include "globals.h"
#include "dtetlib.h"
#include "tcclib.h"
#ifndef NOTRACE
# include "ltoa.h"
#endif
#ifdef NEEDsrcFile
static char srcFile[] = __FILE__; /* file name for error reporting */
#endif
/*
** tcf_rmrf() - emulate an invocation of rm -rf
**
** return 0 if successful or -1 on error
*/
int tcf_rmrf(path)
char *path;
{
register char **files, **fip;
char file[MAXPATH + 1];
struct STAT_ST stbuf;
register char *p;
register int rc = 0;
int errsave;
TRACE2(Ttcclib, 8, "rmrf(): path = %s", path);
/* see if this is a file or a direcory */
if (STAT(path, &stbuf) < 0) {
errsave = errno;
error(errno, "can't stat", path);
errno = errsave;
return(-1);
}
/*
** if this is a directory, get a listing and remove each entry in
** turn, then remove the directory itself;
** otherwise, this is a file so just unlink it
*/
if (S_ISDIR(stbuf.st_mode)) {
(void) sprintf(file, "%.*s/", (int) sizeof file - 2, path);
p = file + strlen(file);
if ((files = tcf_lsdir(path)) == (char **) 0)
return(-1);
for (fip = files; *fip; fip++) {
(void) sprintf(p, "%.*s",
(int) sizeof file - (int) (p - file) - 1, *fip);
if (tcf_rmrf(file) < 0)
rc = -1;
TRACE2(tet_Tbuf, 6, "free dir entry = %s",
tet_i2x(*fip));
free(*fip);
}
if (tet_rmdir(path) < 0) {
errsave = errno;
error(errno, "can't remove directory", path);
errno = errsave;
rc = -1;
}
TRACE2(tet_Tbuf, 6, "free dir list = %s", tet_i2x(files));
free((char *) files);
}
else if (UNLINK(path) < 0) {
errsave = errno;
error(errno, "can't unlink", path);
errno = errsave;
rc = -1;
}
return(rc);
}
|
