[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.128

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