Annotation of src/usr.bin/rcs/rcsclean.c, Revision 1.41
1.41 ! jmc 1: /* $OpenBSD: rcsclean.c,v 1.40 2006/04/24 08:10:41 xsa Exp $ */
1.1 joris 2: /*
3: * Copyright (c) 2005 Joris Vink <joris@openbsd.org>
4: * All rights reserved.
5: *
6: * Redistribution and use in source and binary forms, with or without
7: * modification, are permitted provided that the following conditions
8: * are met:
9: *
10: * 1. Redistributions of source code must retain the above copyright
11: * notice, this list of conditions and the following disclaimer.
12: * 2. The name of the author may not be used to endorse or promote products
13: * derived from this software without specific prior written permission.
14: *
15: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES,
16: * INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY
17: * AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL
18: * THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL,
19: * EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO,
20: * PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS;
21: * OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY,
22: * WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR
23: * OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF
24: * ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
25: */
26:
1.22 xsa 27: #include "includes.h"
1.1 joris 28:
1.23 xsa 29: #include "rcsprog.h"
1.4 niallo 30: #include "diff.h"
1.1 joris 31:
1.31 ray 32: static void rcsclean_file(char *, const char *);
1.28 xsa 33:
1.3 joris 34: static int nflag = 0;
35: static int kflag = RCS_KWEXP_ERR;
1.11 xsa 36: static int uflag = 0;
1.17 xsa 37: static int flags = 0;
1.19 joris 38: static char *locker = NULL;
1.1 joris 39:
40: int
41: rcsclean_main(int argc, char **argv)
42: {
1.17 xsa 43: int i, ch;
1.30 ray 44: char *rev_str;
1.1 joris 45: DIR *dirp;
46: struct dirent *dp;
47:
1.30 ray 48: rev_str = NULL;
1.1 joris 49:
1.27 ray 50: while ((ch = rcs_getopt(argc, argv, "k:n::q::r:Tu::Vx::")) != -1) {
1.1 joris 51: switch (ch) {
1.3 joris 52: case 'k':
1.7 joris 53: kflag = rcs_kflag_get(rcs_optarg);
1.3 joris 54: if (RCS_KWEXP_INVAL(kflag)) {
1.40 xsa 55: warnx("invalid RCS keyword substitution mode");
1.3 joris 56: (usage)();
57: exit(1);
58: }
59: break;
60: case 'n':
1.30 ray 61: rcs_setrevstr(&rev_str, rcs_optarg);
1.3 joris 62: nflag = 1;
63: break;
1.1 joris 64: case 'q':
1.30 ray 65: rcs_setrevstr(&rev_str, rcs_optarg);
1.37 xsa 66: flags |= QUIET;
1.1 joris 67: break;
1.2 joris 68: case 'r':
1.30 ray 69: rcs_setrevstr(&rev_str, rcs_optarg);
1.16 xsa 70: break;
71: case 'T':
72: flags |= PRESERVETIME;
1.2 joris 73: break;
1.11 xsa 74: case 'u':
1.30 ray 75: rcs_setrevstr(&rev_str, rcs_optarg);
1.11 xsa 76: uflag = 1;
77: break;
1.1 joris 78: case 'V':
79: printf("%s\n", rcs_version);
80: exit(0);
1.26 ray 81: /* NOTREACHED */
1.15 xsa 82: case 'x':
1.27 ray 83: /* Use blank extension if none given. */
84: rcs_suffixes = rcs_optarg ? rcs_optarg : "";
1.15 xsa 85: break;
1.1 joris 86: default:
1.35 ray 87: (usage)();
88: exit(1);
1.1 joris 89: }
90: }
91:
1.7 joris 92: argc -= rcs_optind;
93: argv += rcs_optind;
1.1 joris 94:
1.19 joris 95: if ((locker = getlogin()) == NULL)
1.21 xsa 96: fatal("getlogin failed");
1.19 joris 97:
1.1 joris 98: if (argc == 0) {
99: if ((dirp = opendir(".")) == NULL) {
1.38 xsa 100: warn("opendir");
1.1 joris 101: (usage)();
102: exit(1);
103: }
104:
105: while ((dp = readdir(dirp)) != NULL) {
106: if (dp->d_type == DT_DIR)
107: continue;
1.31 ray 108: rcsclean_file(dp->d_name, rev_str);
1.1 joris 109: }
110:
1.38 xsa 111: (void)closedir(dirp);
1.30 ray 112: } else
1.31 ray 113: for (i = 0; i < argc; i++)
114: rcsclean_file(argv[i], rev_str);
1.1 joris 115:
116: return (0);
117: }
118:
119: void
120: rcsclean_usage(void)
121: {
1.5 deraadt 122: fprintf(stderr,
1.41 ! jmc 123: "usage: rcsclean [-TV] [-kmode] [-n[rev]] [-q[rev]] [-r[rev]]\n"
! 124: " [-u[rev]] [-xsuffixes] [-ztz] [file] ...\n");
1.1 joris 125: }
126:
1.28 xsa 127: static void
1.31 ray 128: rcsclean_file(char *fname, const char *rev_str)
1.1 joris 129: {
130: int match;
131: RCSFILE *file;
1.11 xsa 132: char fpath[MAXPATHLEN], numb[64];
1.31 ray 133: RCSNUM *rev;
1.1 joris 134: BUF *b1, *b2;
1.17 xsa 135: time_t rcs_mtime = -1;
1.1 joris 136:
1.34 ray 137: b1 = b2 = NULL;
138: file = NULL;
139: rev = NULL;
1.3 joris 140:
1.39 xsa 141: if (rcs_statfile(fname, fpath, sizeof(fpath), flags) < 0)
1.34 ray 142: goto out;
1.1 joris 143:
144: if ((file = rcs_open(fpath, RCS_RDWR)) == NULL)
1.34 ray 145: goto out;
1.1 joris 146:
1.17 xsa 147: if (flags & PRESERVETIME)
148: rcs_mtime = rcs_get_mtime(file->rf_path);
149:
1.29 xsa 150: rcs_kwexp_set(file, kflag);
1.3 joris 151:
1.31 ray 152: if (rev_str == NULL)
153: rev = file->rf_head;
154: else if ((rev = rcs_getrevnum(rev_str, file)) == NULL) {
1.38 xsa 155: warnx("%s: Symbolic name `%s' is undefined.", fpath, rev_str);
1.34 ray 156: goto out;
1.31 ray 157: }
1.1 joris 158:
1.31 ray 159: if ((b1 = rcs_getrev(file, rev)) == NULL) {
1.38 xsa 160: warnx("failed to get needed revision");
1.34 ray 161: goto out;
1.1 joris 162: }
1.34 ray 163: if ((b2 = cvs_buf_load(fname, 0)) == NULL) {
1.38 xsa 164: warnx("failed to load `%s'", fname);
1.34 ray 165: goto out;
1.1 joris 166: }
167:
1.34 ray 168: /* If buffer lengths are the same, compare contents as well. */
169: if (cvs_buf_len(b1) != cvs_buf_len(b2))
170: match = 0;
171: else {
172: size_t len, n;
1.1 joris 173:
1.34 ray 174: len = cvs_buf_len(b1);
1.1 joris 175:
1.34 ray 176: match = 1;
177: for (n = 0; n < len; ++n)
178: if (cvs_buf_getc(b1, n) != cvs_buf_getc(b2, n)) {
179: match = 0;
180: break;
181: }
182: }
1.1 joris 183:
1.9 xsa 184: if (match == 1) {
1.33 deraadt 185: if (uflag == 1 && !TAILQ_EMPTY(&(file->rf_locks))) {
1.37 xsa 186: if (!(flags & QUIET) && nflag == 0) {
1.11 xsa 187: printf("rcs -u%s %s\n",
1.31 ray 188: rcsnum_tostr(rev, numb, sizeof(numb)),
1.11 xsa 189: fpath);
190: }
1.31 ray 191: (void)rcs_lock_remove(file, locker, rev);
1.11 xsa 192: }
193:
1.14 xsa 194: if (TAILQ_EMPTY(&(file->rf_locks))) {
1.37 xsa 195: if (!(flags & QUIET))
1.14 xsa 196: printf("rm -f %s\n", fname);
1.11 xsa 197:
1.14 xsa 198: if (nflag == 0)
199: (void)unlink(fname);
200: }
1.1 joris 201: }
202:
1.17 xsa 203: if (flags & PRESERVETIME)
204: rcs_set_mtime(fpath, rcs_mtime);
1.34 ray 205:
206: out:
207: if (b1 != NULL)
208: cvs_buf_free(b1);
209: if (b2 != NULL)
210: cvs_buf_free(b2);
211: if (file != NULL)
212: rcs_close(file);
1.1 joris 213: }