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
|
/*
* REN.C - rename command
*
* 27-Jul-1998 (John P Price <linux-guru@gcfl.net>)
* - added config.h include
* 15-Mar-2003 (Wolf Bergenheim <dog@users.sf.net>)
* - added support for * and ?
*
*/
#include "../config.h"
#include <assert.h>
#include <stdio.h>
#include <stdlib.h>
#include <fcntl.h>
#include <string.h>
#include <dir.h>
/*#define DEBUG*/
#include <dfn.h>
#include <supplio.h>
#include "../include/cmdline.h"
#include "../include/command.h"
#include "../err_fcts.h"
int cmd_rename(char *param)
{
char **argv;
int argc, opts, ec = E_None;
struct ffblk ff;
if((argv = scanCmdline(param, 0, 0, &argc, &opts)) == 0)
return 1;
if(argc < 2) {
error_req_param_missing();
ec = E_Useage;
}
else if(argc > 2) {
error_too_many_parameters(param);
ec = E_Useage;
}
else {
char *s_drv = NULL, *s_dir = NULL, *s_fil = NULL, *s_ext = NULL;
char *d_drv = NULL, *d_dir = NULL, *d_fil = NULL, *d_ext = NULL;
// char sn[MAXPATH+13], dn[MAXPATH+13];
char *newname = 0, *sn = 0, *dn = 0;
char *oldFname;
if(FINDFIRST(argv[0], &ff
, FA_NORMAL|FA_DIREC|FA_ARCH|FA_SYSTEM|FA_RDONLY|FA_HIDDEN) != 0) {
error_sfile_not_found(argv[0]);
return 0;
}
#define p oldFname
if(!dfnsplit(argv[0], &s_drv, &s_dir, &s_fil, &s_ext)
|| !dfnsplit(argv[1], &d_drv, &d_dir, &d_fil, &d_ext)
|| (sn = dfnmerge(0, s_drv, s_dir, "", NULL)) == 0
|| (p = realloc(sn, strlen(sn) + sizeof(ff.ff_name) + 1)) == 0) {
/* build dir to use */
error_out_of_memory();
ec = E_NoMem;
goto errRet;
}
sn = p;
p = strchr(sn, '\0');
#undef p
/* if drive or path in second arg, return with syntax error */
if((d_drv != NULL) || (d_dir != NULL)) {
error_syntax(argv[1]);
ec = E_Useage;
goto errRet;
}
if((dn = dfnmerge(0, s_drv, s_dir, d_fil, d_ext)) == 0) {
/* build dir to use */
error_out_of_memory();
ec = E_NoMem;
goto errRet;
}
do {
if((newname = fillFnam(dn, ff.ff_name)) == 0) {
error_out_of_memory();
ec = E_NoMem;
break;
}
strcpy(oldFname, ff.ff_name);
dprintf(("rename(%s, %s)\n", sn, newname) );
if(rename(sn, newname) != 0) {
perror("rename");
ec = E_Other;
break;
}
free(newname); newname = 0;
} while(FINDNEXT(&ff) == 0);
errRet:
free(s_drv); free(s_dir); free(s_fil); free(s_ext);
free(d_drv); free(d_dir); free(d_fil); free(d_ext);
free(newname); free(sn); free(dn);
}
freep(argv);
return ec;
}
|
