Annotation of src/usr.bin/rcs/rcsprog.c, Revision 1.112
1.112 ! xsa 1: /* $OpenBSD: rcsprog.c,v 1.111 2006/04/21 14:42:12 xsa Exp $ */
1.1 deraadt 2: /*
3: * Copyright (c) 2005 Jean-Francois Brousseau <jfb@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.59 xsa 27: #include "includes.h"
1.1 deraadt 28:
1.9 joris 29: #include "rcsprog.h"
1.1 deraadt 30:
1.29 joris 31: #define RCS_CMD_MAXARG 128
1.106 ray 32: #define RCSPROG_OPTSTRING "A:a:b::c:e::ik:Ll::m:Mn:N:o:qt::TUu::Vx::z::"
1.56 joris 33:
34: #define DESC_PROMPT "enter description, terminated with single '.' " \
1.107 ray 35: "or end of file:\nNOTE: This is NOT the log message!\n"
1.29 joris 36:
1.1 deraadt 37: const char rcs_version[] = "OpenCVS RCS version 3.6";
38:
1.91 ray 39: int rcsflags;
1.36 xsa 40: int rcs_optind;
1.28 joris 41: char *rcs_optarg;
1.42 xsa 42: char *rcs_suffixes;
1.36 xsa 43: char *rcs_tmpdir = RCS_TMPDIR_DEFAULT;
1.28 joris 44:
1.1 deraadt 45: struct rcs_prog {
1.26 deraadt 46: char *prog_name;
47: int (*prog_hdlr)(int, char **);
48: void (*prog_usage)(void);
1.1 deraadt 49: } programs[] = {
1.2 deraadt 50: { "rcs", rcs_main, rcs_usage },
1.17 joris 51: { "ci", checkin_main, checkin_usage },
1.11 joris 52: { "co", checkout_main, checkout_usage },
1.20 joris 53: { "rcsclean", rcsclean_main, rcsclean_usage },
1.18 joris 54: { "rcsdiff", rcsdiff_main, rcsdiff_usage },
1.33 xsa 55: { "rcsmerge", rcsmerge_main, rcsmerge_usage },
1.21 joris 56: { "rlog", rlog_main, rlog_usage },
1.22 joris 57: { "ident", ident_main, ident_usage },
1.1 deraadt 58: };
1.31 joris 59:
1.68 joris 60: struct cvs_wklhead rcs_temp_files;
61:
62: void sighdlr(int);
1.101 joris 63: static void rcs_set_description(RCSFILE *, const char *);
64: static void rcs_attach_symbol(RCSFILE *, const char *);
1.56 joris 65:
1.78 ray 66: /* ARGSUSED */
1.31 joris 67: void
1.68 joris 68: sighdlr(int sig)
69: {
70: cvs_worklist_clean(&rcs_temp_files, cvs_worklist_unlink);
71: _exit(1);
72: }
73:
1.9 joris 74: int
1.29 joris 75: rcs_init(char *envstr, char **argv, int argvlen)
76: {
77: u_int i;
78: int argc, error;
79: char linebuf[256], *lp, *cp;
80:
81: strlcpy(linebuf, envstr, sizeof(linebuf));
82: memset(argv, 0, argvlen * sizeof(char *));
83:
84: error = argc = 0;
85: for (lp = linebuf; lp != NULL;) {
1.61 xsa 86: cp = strsep(&lp, " \t\b\f\n\r\t\v");
1.29 joris 87: if (cp == NULL)
88: break;
89: else if (*cp == '\0')
90: continue;
91:
92: if (argc == argvlen) {
93: error++;
94: break;
95: }
96:
1.53 joris 97: argv[argc] = xstrdup(cp);
1.29 joris 98: argc++;
99: }
100:
101: if (error != 0) {
102: for (i = 0; i < (u_int)argc; i++)
1.53 joris 103: xfree(argv[i]);
1.29 joris 104: argc = -1;
105: }
106:
107: return (argc);
108: }
109:
110: int
1.1 deraadt 111: main(int argc, char **argv)
112: {
113: u_int i;
1.29 joris 114: char *rcsinit, *cmd_argv[RCS_CMD_MAXARG];
115: int ret, cmd_argc;
1.1 deraadt 116:
117: ret = -1;
1.28 joris 118: rcs_optind = 1;
1.68 joris 119: SLIST_INIT(&rcs_temp_files);
1.1 deraadt 120:
1.29 joris 121: cmd_argc = 0;
1.30 joris 122: cmd_argv[cmd_argc++] = argv[0];
1.29 joris 123: if ((rcsinit = getenv("RCSINIT")) != NULL) {
124: ret = rcs_init(rcsinit, cmd_argv + 1,
125: RCS_CMD_MAXARG - 1);
126: if (ret < 0) {
1.110 xsa 127: warnx("failed to prepend RCSINIT options");
1.29 joris 128: exit (1);
129: }
130:
131: cmd_argc += ret;
132: }
1.36 xsa 133:
134: if ((rcs_tmpdir = getenv("TMPDIR")) == NULL)
135: rcs_tmpdir = RCS_TMPDIR_DEFAULT;
1.29 joris 136:
137: for (ret = 1; ret < argc; ret++)
138: cmd_argv[cmd_argc++] = argv[ret];
1.68 joris 139:
140: signal(SIGHUP, sighdlr);
141: signal(SIGINT, sighdlr);
142: signal(SIGQUIT, sighdlr);
143: signal(SIGABRT, sighdlr);
144: signal(SIGALRM, sighdlr);
145: signal(SIGTERM, sighdlr);
1.29 joris 146:
1.1 deraadt 147: for (i = 0; i < (sizeof(programs)/sizeof(programs[0])); i++)
1.2 deraadt 148: if (strcmp(__progname, programs[i].prog_name) == 0) {
149: usage = programs[i].prog_usage;
1.29 joris 150: ret = programs[i].prog_hdlr(cmd_argc, cmd_argv);
1.2 deraadt 151: break;
152: }
1.100 joris 153:
154: /* clean up temporary files */
155: cvs_worklist_run(&rcs_temp_files, cvs_worklist_unlink);
1.1 deraadt 156:
1.23 niallo 157: exit(ret);
1.76 ray 158: /* NOTREACHED */
1.1 deraadt 159: }
160:
161:
162: void
163: rcs_usage(void)
164: {
165: fprintf(stderr,
1.66 jmc 166: "usage: rcs [-ehIiLMqTUV] [-Aoldfile] [-ausers] [-b[rev]]\n"
1.92 ray 167: " [-cstring] [-e[users]] [-kmode] [-l[rev]] [-mrev:msg]\n"
1.101 joris 168: " [-orange] [-sstate[:rev]] [-tfile|str] [-u[rev]]\n"
1.67 xsa 169: " [-xsuffixes] file ...\n");
1.1 deraadt 170: }
171:
172: /*
173: * rcs_main()
174: *
175: * Handler for the `rcs' program.
176: * Returns 0 on success, or >0 on error.
177: */
178: int
179: rcs_main(int argc, char **argv)
180: {
1.112 ! xsa 181: int i, j, ch, flags, kflag, lkmode;
1.39 xsa 182: char fpath[MAXPATHLEN], ofpath[MAXPATHLEN];
1.56 joris 183: char *logstr, *logmsg, *nflag, *descfile;
1.101 joris 184: char *alist, *comment, *elist, *lrev, *urev, *orange;
1.1 deraadt 185: mode_t fmode;
1.39 xsa 186: RCSFILE *file, *oldfile;
1.24 joris 187: RCSNUM *logrev;
1.39 xsa 188: struct rcs_access *acp;
1.48 xsa 189: time_t rcs_mtime = -1;
1.1 deraadt 190:
1.95 xsa 191: kflag = RCS_KWEXP_ERR;
192: lkmode = -1;
1.89 niallo 193: fmode = S_IRUSR|S_IRGRP|S_IROTH;
1.58 niallo 194: flags = RCS_RDWR|RCS_PARSE_FULLY;
1.92 ray 195: lrev = urev = descfile = nflag = NULL;
1.101 joris 196: logstr = alist = comment = elist = orange = NULL;
1.111 xsa 197:
198: /* match GNU */
199: if (1 < argc && argv[1][0] != '-')
200: warnx("warning: No options were given; "
201: "this usage is obsolescent.");
1.1 deraadt 202:
1.51 xsa 203: while ((ch = rcs_getopt(argc, argv, RCSPROG_OPTSTRING)) != -1) {
1.1 deraadt 204: switch (ch) {
205: case 'A':
1.112 ! xsa 206: if (rcs_statfile(rcs_optarg, ofpath,
! 207: sizeof(ofpath), flags) < 0)
1.39 xsa 208: exit(1);
1.56 joris 209: rcsflags |= CO_ACLAPPEND;
1.1 deraadt 210: break;
211: case 'a':
1.28 joris 212: alist = rcs_optarg;
1.1 deraadt 213: break;
214: case 'c':
1.28 joris 215: comment = rcs_optarg;
1.1 deraadt 216: break;
217: case 'e':
1.28 joris 218: elist = rcs_optarg;
1.87 ray 219: rcsflags |= RCSPROG_EFLAG;
1.1 deraadt 220: break;
221: case 'i':
222: flags |= RCS_CREATE;
223: break;
224: case 'k':
1.28 joris 225: kflag = rcs_kflag_get(rcs_optarg);
1.1 deraadt 226: if (RCS_KWEXP_INVAL(kflag)) {
1.110 xsa 227: warnx("invalid keyword substitution "
228: "mode `%s'", rcs_optarg);
1.1 deraadt 229: exit(1);
230: }
231: break;
232: case 'L':
233: if (lkmode == RCS_LOCK_LOOSE)
1.110 xsa 234: warnx("-U overriden by -L");
1.1 deraadt 235: lkmode = RCS_LOCK_STRICT;
236: break;
1.92 ray 237: case 'l':
238: /* XXX - Check with -u flag. */
239: lrev = rcs_optarg;
240: rcsflags |= RCSPROG_LFLAG;
241: break;
1.24 joris 242: case 'm':
1.53 joris 243: logstr = xstrdup(rcs_optarg);
1.24 joris 244: break;
1.1 deraadt 245: case 'M':
246: /* ignore for the moment */
247: break;
1.56 joris 248: case 'n':
249: nflag = xstrdup(rcs_optarg);
250: break;
251: case 'N':
252: nflag = xstrdup(rcs_optarg);
1.87 ray 253: rcsflags |= RCSPROG_NFLAG;
1.56 joris 254: break;
1.101 joris 255: case 'o':
256: orange = xstrdup(rcs_optarg);
257: break;
1.12 joris 258: case 'q':
1.108 xsa 259: rcsflags |= QUIET;
1.46 xsa 260: break;
1.56 joris 261: case 't':
262: descfile = rcs_optarg;
1.87 ray 263: rcsflags |= RCSPROG_TFLAG;
1.56 joris 264: break;
1.46 xsa 265: case 'T':
1.56 joris 266: rcsflags |= PRESERVETIME;
1.12 joris 267: break;
1.1 deraadt 268: case 'U':
269: if (lkmode == RCS_LOCK_STRICT)
1.110 xsa 270: warnx("-L overriden by -U");
1.1 deraadt 271: lkmode = RCS_LOCK_LOOSE;
272: break;
1.92 ray 273: case 'u':
274: /* XXX - Check with -l flag. */
275: urev = rcs_optarg;
276: rcsflags |= RCSPROG_UFLAG;
277: break;
1.1 deraadt 278: case 'V':
279: printf("%s\n", rcs_version);
280: exit(0);
1.76 ray 281: /* NOTREACHED */
1.45 xsa 282: case 'x':
1.85 ray 283: /* Use blank extension if none given. */
284: rcs_suffixes = rcs_optarg ? rcs_optarg : "";
1.51 xsa 285: break;
286: case 'z':
287: /*
288: * kept for compatibility
289: */
1.45 xsa 290: break;
1.1 deraadt 291: default:
1.2 deraadt 292: (usage)();
1.1 deraadt 293: exit(1);
294: }
295: }
296:
1.28 joris 297: argc -= rcs_optind;
298: argv += rcs_optind;
1.30 joris 299:
1.1 deraadt 300: if (argc == 0) {
1.110 xsa 301: warnx("no input file");
1.5 joris 302: (usage)();
1.1 deraadt 303: exit(1);
304: }
305:
306: for (i = 0; i < argc; i++) {
1.112 ! xsa 307: if (rcs_statfile(argv[i], fpath, sizeof(fpath), flags) < 0)
1.8 joris 308: continue;
1.6 joris 309:
1.108 xsa 310: if (!(rcsflags & QUIET))
1.35 niallo 311: printf("RCS file: %s\n", fpath);
1.48 xsa 312:
1.49 niallo 313: if ((file = rcs_open(fpath, flags, fmode)) == NULL)
1.6 joris 314: continue;
1.1 deraadt 315:
1.87 ray 316: if (rcsflags & RCSPROG_TFLAG)
317: rcs_set_description(file, descfile);
318: else if (flags & RCS_CREATE)
1.56 joris 319: rcs_set_description(file, NULL);
320:
321: if (rcsflags & PRESERVETIME)
1.48 xsa 322: rcs_mtime = rcs_get_mtime(file->rf_path);
323:
1.56 joris 324: if (nflag != NULL)
325: rcs_attach_symbol(file, nflag);
326:
1.24 joris 327: if (logstr != NULL) {
328: if ((logmsg = strchr(logstr, ':')) == NULL) {
1.110 xsa 329: warnx("missing log message");
1.24 joris 330: rcs_close(file);
331: continue;
332: }
333:
334: *logmsg++ = '\0';
335: if ((logrev = rcsnum_parse(logstr)) == NULL) {
1.110 xsa 336: warnx("'%s' bad revision number", logstr);
1.24 joris 337: rcs_close(file);
338: continue;
339: }
340:
341: if (rcs_rev_setlog(file, logrev, logmsg) < 0) {
1.110 xsa 342: warnx("failed to set logmsg for '%s' to '%s'",
1.24 joris 343: logstr, logmsg);
344: rcs_close(file);
1.25 joris 345: rcsnum_free(logrev);
1.24 joris 346: continue;
347: }
348:
349: rcsnum_free(logrev);
1.39 xsa 350: }
351:
352: /* entries to add from <oldfile> */
1.56 joris 353: if (rcsflags & CO_ACLAPPEND) {
1.39 xsa 354: /* XXX */
355: if ((oldfile = rcs_open(ofpath, RCS_READ)) == NULL)
356: exit(1);
357:
358: TAILQ_FOREACH(acp, &(oldfile->rf_access), ra_list)
359: rcs_access_add(file, acp->ra_name);
360:
361: rcs_close(oldfile);
1.24 joris 362: }
363:
1.1 deraadt 364: /* entries to add to the access list */
365: if (alist != NULL) {
1.86 pat 366: struct cvs_argvector *aargv;
1.1 deraadt 367:
1.79 xsa 368: aargv = cvs_strsplit(alist, ",");
1.86 pat 369: for (j = 0; aargv->argv[j] != NULL; j++)
370: rcs_access_add(file, aargv->argv[j]);
1.1 deraadt 371:
1.86 pat 372: cvs_argv_destroy(aargv);
1.1 deraadt 373: }
374:
375: if (comment != NULL)
376: rcs_comment_set(file, comment);
1.82 xsa 377:
378: if (elist != NULL) {
1.86 pat 379: struct cvs_argvector *eargv;
1.82 xsa 380:
381: eargv = cvs_strsplit(elist, ",");
1.86 pat 382: for (j = 0; eargv->argv[j] != NULL; j++)
383: rcs_access_remove(file, eargv->argv[j]);
1.82 xsa 384:
1.86 pat 385: cvs_argv_destroy(eargv);
1.87 ray 386: } else if (rcsflags & RCSPROG_EFLAG) {
1.82 xsa 387: struct rcs_access *rap;
388:
389: /* XXX rcs_access_remove(file, NULL); ?? */
390: while (!TAILQ_EMPTY(&(file->rf_access))) {
391: rap = TAILQ_FIRST(&(file->rf_access));
392: TAILQ_REMOVE(&(file->rf_access), rap, ra_list);
393: xfree(rap->ra_name);
394: xfree(rap);
395: }
396: /* not synced anymore */
397: file->rf_flags &= ~RCS_SYNCED;
398: }
1.1 deraadt 399:
1.95 xsa 400: rcs_kwexp_set(file, kflag);
1.1 deraadt 401:
402: if (lkmode != -1)
1.84 xsa 403: (void)rcs_lock_setmode(file, lkmode);
1.92 ray 404:
405: if (rcsflags & RCSPROG_LFLAG) {
406: RCSNUM *rev;
407: const char *username;
1.98 ray 408: char rev_str[16];
1.92 ray 409:
410: if ((username = getlogin()) == NULL)
411: fatal("could not get username");
412: if (lrev == NULL) {
413: rev = rcsnum_alloc();
414: rcsnum_cpy(file->rf_head, rev, 0);
415: } else if ((rev = rcsnum_parse(lrev)) == NULL) {
1.110 xsa 416: warnx("unable to unlock file");
1.92 ray 417: rcs_close(file);
418: continue;
419: }
1.98 ray 420: rcsnum_tostr(rev, rev_str, sizeof(rev_str));
1.92 ray 421: /* Make sure revision exists. */
422: if (rcs_findrev(file, rev) == NULL)
1.98 ray 423: fatal("%s: can't lock nonexisting revision %s",
424: fpath, rev_str);
425: if (rcs_lock_add(file, username, rev) != -1 &&
1.108 xsa 426: !(rcsflags & QUIET))
1.98 ray 427: printf("%s locked\n", rev_str);
1.92 ray 428: rcsnum_free(rev);
429: }
430:
431: if (rcsflags & RCSPROG_UFLAG) {
432: RCSNUM *rev;
433: const char *username;
1.98 ray 434: char rev_str[16];
1.92 ray 435:
436: if ((username = getlogin()) == NULL)
437: fatal("could not get username");
438: if (urev == NULL) {
439: rev = rcsnum_alloc();
440: rcsnum_cpy(file->rf_head, rev, 0);
441: } else if ((rev = rcsnum_parse(urev)) == NULL) {
1.110 xsa 442: warnx("unable to unlock file");
1.92 ray 443: rcs_close(file);
444: continue;
445: }
1.98 ray 446: rcsnum_tostr(rev, rev_str, sizeof(rev_str));
1.92 ray 447: /* Make sure revision exists. */
448: if (rcs_findrev(file, rev) == NULL)
1.98 ray 449: fatal("%s: can't unlock nonexisting revision %s",
450: fpath, rev_str);
451: if (rcs_lock_remove(file, username, rev) == -1 &&
1.108 xsa 452: !(rcsflags & QUIET))
1.110 xsa 453: warnx("%s: warning: No locks are set.", fpath);
1.92 ray 454: rcsnum_free(rev);
455: }
1.1 deraadt 456:
1.101 joris 457: if (orange != NULL) {
458: struct rcs_delta *rdp;
459: char b[16];
460:
461: rcs_rev_select(file, orange);
462: TAILQ_FOREACH(rdp, &(file->rf_delta), rd_list) {
463: /*
464: * Delete selected revisions.
465: */
466: if (rdp->rd_flags & RCS_RD_SELECT) {
467: rcsnum_tostr(rdp->rd_num, b, sizeof(b));
468: printf("deleting revision %s\n", b);
469: (void)rcs_rev_remove(file, rdp->rd_num);
470: }
471: }
472: }
473:
1.1 deraadt 474: rcs_close(file);
1.48 xsa 475:
1.56 joris 476: if (rcsflags & PRESERVETIME)
1.48 xsa 477: rcs_set_mtime(fpath, rcs_mtime);
1.9 joris 478:
1.108 xsa 479: if (!(rcsflags & QUIET))
1.12 joris 480: printf("done\n");
1.1 deraadt 481: }
1.24 joris 482:
483: if (logstr != NULL)
1.53 joris 484: xfree(logstr);
1.1 deraadt 485:
1.56 joris 486: if (nflag != NULL)
487: xfree(nflag);
1.105 xsa 488:
489: if (orange != NULL)
490: xfree(orange);
1.56 joris 491:
1.1 deraadt 492: return (0);
1.56 joris 493: }
494:
495: static void
496: rcs_attach_symbol(RCSFILE *file, const char *symname)
497: {
498: char *rnum;
499: RCSNUM *rev;
500: char rbuf[16];
501: int rm;
502:
503: rm = 0;
504: rev = NULL;
505: if ((rnum = strrchr(symname, ':')) != NULL) {
506: if (rnum[1] == '\0')
507: rev = file->rf_head;
508: *(rnum++) = '\0';
509: } else {
510: rm = 1;
511: }
512:
513: if (rev == NULL && rm != 1) {
514: if ((rev = rcsnum_parse(rnum)) == NULL)
515: fatal("bad revision %s", rnum);
516: }
517:
1.87 ray 518: if (rcsflags & RCSPROG_NFLAG)
1.56 joris 519: rm = 1;
520:
521: if (rm == 1) {
522: if (rcs_sym_remove(file, symname) < 0) {
1.102 deraadt 523: if (rcs_errno == RCS_ERR_NOENT &&
1.87 ray 524: !(rcsflags & RCSPROG_NFLAG))
1.110 xsa 525: warnx("can't delete nonexisting symbol %s",
526: symname);
1.56 joris 527: } else {
1.87 ray 528: if (rcsflags & RCSPROG_NFLAG)
1.56 joris 529: rm = 0;
530: }
531: }
532:
533: if (rm == 0) {
1.102 deraadt 534: if (rcs_sym_add(file, symname, rev) < 0 &&
535: rcs_errno == RCS_ERR_DUPENT) {
1.56 joris 536: rcsnum_tostr(rcs_sym_getrev(file, symname),
537: rbuf, sizeof(rbuf));
538: fatal("symbolic name %s already bound to %s",
539: symname, rbuf);
540: }
541: }
542: }
543:
1.88 ray 544: /*
545: * Load description from <in> to <file>.
546: * If <in> starts with a `-', <in> is taken as the description.
547: * Otherwise <in> is the name of the file containing the description.
548: * If <in> is NULL, the description is read from stdin.
549: */
1.56 joris 550: static void
551: rcs_set_description(RCSFILE *file, const char *in)
552: {
553: BUF *bp;
1.107 ray 554: char *content;
1.56 joris 555:
1.88 ray 556: /* Description is in file <in>. */
1.107 ray 557: if (in != NULL && *in != '-') {
1.56 joris 558: bp = cvs_buf_load(in, BUF_AUTOEXT);
1.107 ray 559: cvs_buf_putc(bp, '\0');
560: content = cvs_buf_release(bp);
1.88 ray 561: /* Description is in <in>. */
1.107 ray 562: } else if (in != NULL)
563: /* Skip leading `-'. */
564: content = xstrdup(in + 1);
565: /* Get description from stdin. */
566: else
567: content = rcs_prompt(DESC_PROMPT);
1.88 ray 568:
1.107 ray 569: rcs_desc_set(file, content);
570: xfree(content);
1.1 deraadt 571: }