/*
* rename.c - aeb 2000-01-01
*
--------------------------------------------------------------
#!/bin/sh
if [ $# -le 2 ]; then echo call: rename from to files; exit; fi
FROM="$1"
TO="$2"
shift
shift
for i in $@; do N=`echo "$i" | sed "s/$FROM/$TO/g"`; mv "$i" "$N"; done
--------------------------------------------------------------
* This shell script will do renames of files, but may fail
* in cases involving special characters. Here a C version.
*/
#include <stdio.h>
#ifdef HAVE_STDIO_EXT_H
# include <stdio_ext.h>
#endif
#ifndef HAVE___FPURGE
# ifdef HAVE_FPURGE
# define HAVE___FPURGE 1
# define __fpurge fpurge
# endif
#endif
#include <string.h>
#include <stdlib.h>
#include <errno.h>
#include <getopt.h>
#include <fcntl.h>
#include <unistd.h>
#include <termios.h>
#include <sys/types.h>
#include <sys/stat.h>
#include "nls.h"
#include "xalloc.h"
#include "c.h"
#include "closestream.h"
#include "rpmatch.h"
#define RENAME_EXIT_SOMEOK 2
#define RENAME_EXIT_NOTHING 4
#define RENAME_EXIT_UNEXPLAINED 64
static int tty_cbreak = 0;
static int string_replace(char *from, char *to, char *s, char *orig, char **newname)
{
char *p, *q, *where;
where = strstr(s, from);
if (where == NULL)
return 1;
p = orig;
*newname = xmalloc(strlen(orig) + strlen(to) + 1);
q = *newname;
while (p < where)
*q++ = *p++;
p = to;
while (*p)
*q++ = *p++;
p = where + strlen(from);
while (*p)
*q++ = *p++;
*q = 0;
return 0;
}
static int ask(char *name)
{
int c;
char buf[2];
printf(_("%s: overwrite `%s'? "), program_invocation_short_name, name);
fflush(stdout);
if ((c = fgetc(stdin)) == EOF) {
buf[0] = 'n';
printf("n\n");
}
else {
buf[0] = c;
if (c != '\n' && tty_cbreak) {
#ifdef HAVE___FPURGE
/* Possibly purge a multi-byte character; or do a
required purge of the rest of the line (including
the newline) if the tty has been put back in
canonical mode (for example by a shell after a
SIGTSTP signal). */
__fpurge(stdin);
#endif
printf("\n");
}
else if (c != '\n')
while ((c = fgetc(stdin)) != '\n' && c != EOF);
}
buf[1] = '\0';
if (rpmatch(buf) == RPMATCH_YES)
return 0;
else
return 1;
}
static int do_symlink(char *from, char *to, char *s, int verbose, int noact,
int nooverwrite, int interactive)
{
char *newname = NULL, *target = NULL;
int ret = 1;
struct stat sb;
if ( faccessat(AT_FDCWD, s, F_OK, AT_SYMLINK_NOFOLLOW) != 0 &&
errno != EINVAL )
/* Skip if AT_SYMLINK_NOFOLLOW is not supported; lstat() below will
detect the access error */
{
warn(_("%s: not accessible"), s);
return 2;
}
if (lstat(s, &sb) == -1) {
warn(_("stat of %s failed"), s);
return 2;
}
if (!S_ISLNK(sb.st_mode)) {
warnx(_("%s: not a symbolic link"), s);
return 2;
}
target = xmalloc(sb.st_size + 1);
if (readlink(s, target, sb.st_size + 1) < 0) {
warn(_("%s: readlink failed"), s);
free(target);
return 2;
}
target[sb.st_size] = '\0';
if (string_replace(from, to, target, target, &newname) != 0)
ret = 0;
if (ret == 1 && (nooverwrite || interactive) && lstat(newname, &sb) != 0)
nooverwrite = interactive = 0;
if ( ret == 1 &&
(nooverwrite || (interactive && (noact || ask(newname) != 0))) )
{
if (verbose)
printf(_("Skipping existing link: `%s' -> `%s'\n"), s, target);
ret = 0;
}
if (ret == 1) {
if (!noact && 0 > unlink(s)) {
warn(_("%s: unlink failed"), s);
ret = 2;
}
else if (!noact && symlink(newname, s) != 0) {
warn(_("%s: symlinking to %s failed"), s, newname);
ret = 2;
}
}
if (verbose && (noact || ret == 1))
printf("%s: `%s' -> `%s'\n", s, target, newname);
free(newname);
free(target);
return ret;
}
static int do_file(char *from, char *to, char *s, int verbose, int noact,
int nooverwrite, int interactive)
{
char *newname = NULL, *file=NULL;
int ret = 1;
if (access(s, F_OK) != 0) {
warn(_("%s: not accessible"), s);
return 2;
}
if (strchr(from, '/') == NULL && strchr(to, '/') == NULL)
file = strrchr(s, '/');
if (file == NULL)
file = s;
if (string_replace(from, to, file, s, &newname) != 0)
return 0;
if ((nooverwrite || interactive) && access(newname, F_OK) != 0)
nooverwrite = interactive = 0;
if (nooverwrite || (interactive && (noact || ask(newname) != 0))) {
if (verbose)
printf(_("Skipping existing file: `%s'\n"), newname);
ret = 0;
}
else if (!noact && rename(s, newname) != 0) {
warn(_("%s: rename to %s failed"), s, newname);
ret = 2;
}
if (verbose && (noact || ret == 1))
printf("`%s' -> `%s'\n", s, newname);
free(newname);
return ret;
}
static void __attribute__((__noreturn__)) usage(void)
{
FILE *out = stdout;
fputs(USAGE_HEADER, out);
fprintf(out,
_(" %s [options] <expression> <replacement> <file>...\n"),
program_invocation_short_name);
fputs(USAGE_SEPARATOR, out);
fputs(_("Rename files.\n"), out);
fputs(USAGE_OPTIONS, out);
fputs(_(" -v, --verbose explain what is being done\n"), out);
fputs(_(" -s, --symlink act on the target of symlinks\n"), out);
fputs(_(" -n, --no-act do not make any changes\n"), out);
fputs(_(" -o, --no-overwrite don't overwrite existing files\n"), out);
fputs(_(" -i, --interactive prompt before overwrite\n"), out);
fputs(USAGE_SEPARATOR, out);
printf(USAGE_HELP_OPTIONS(21));
printf(USAGE_MAN_TAIL("rename(1)"));
exit(EXIT_SUCCESS);
}
int main(int argc, char **argv)
{
char *from, *to;
int i, c, ret = 0, verbose = 0, noact = 0, nooverwrite = 0, interactive = 0;
struct termios tio;
int (*do_rename)(char *from, char *to, char *s, int verbose, int noact,
int nooverwrite, int interactive) = do_file;
static const struct option longopts[] = {
{"verbose", no_argument, NULL, 'v'},
{"version", no_argument, NULL, 'V'},
{"help", no_argument, NULL, 'h'},
{"no-act", no_argument, NULL, 'n'},
{"no-overwrite", no_argument, NULL, 'o'},
{"interactive", no_argument, NULL, 'i'},
{"symlink", no_argument, NULL, 's'},
{NULL, 0, NULL, 0}
};
setlocale(LC_ALL, "");
bindtextdomain(PACKAGE, LOCALEDIR);
textdomain(PACKAGE);
close_stdout_atexit();
while ((c = getopt_long(argc, argv, "vsVhnoi", longopts, NULL)) != -1)
switch (c) {
case 'n':
noact = 1;
break;
case 'v':
verbose = 1;
break;
case 'o':
nooverwrite = 1;
interactive = 0;
break;
case 'i':
interactive = 1;
nooverwrite = 0;
break;
case 's':
do_rename = do_symlink;
break;
case 'V':
print_version(EXIT_SUCCESS);
case 'h':
usage();
default:
errtryhelp(EXIT_FAILURE);
}
argc -= optind;
argv += optind;
if (argc < 3) {
warnx(_("not enough arguments"));
errtryhelp(EXIT_FAILURE);
}
from = argv[0];
to = argv[1];
if (!strcmp(from, to))
return RENAME_EXIT_NOTHING;
tty_cbreak = 0;
if (interactive && isatty(STDIN_FILENO) != 0) {
if (tcgetattr(STDIN_FILENO, &tio) != 0)
warn(_("failed to get terminal attributes"));
else if (!(tio.c_lflag & ICANON) && tio.c_cc[VMIN] == 1)
tty_cbreak = 1;
}
for (i = 2; i < argc; i++)
ret |= do_rename(from, to, argv[i], verbose, noact, nooverwrite, interactive);
switch (ret) {
case 0:
return RENAME_EXIT_NOTHING;
case 1:
return EXIT_SUCCESS;
case 2:
return EXIT_FAILURE;
case 3:
return RENAME_EXIT_SOMEOK;
default:
return RENAME_EXIT_UNEXPLAINED;
}
}
