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