[BACK]Return to rcsprog.c CVS log [TXT][DIR] Up to [local] / src / usr.bin / rcs

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: }