[Cvs-cvs] ccvs/src ChangeLog rcs.c [cvs1-11-x-branch]

[Larry Jones]

CVSROOT:        /cvsroot/cvs
Module name:    ccvs
Branch:         cvs1-11-x-branch
Changes by:     Larry Jones <scjones>   07/03/05 20:31:25

Modified files:
        src            : ChangeLog rcs.c 

Log message:
        * rcs.c (RCS_delete_revs): When checking for tagged revisions,
        include magic branch tags.

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/ccvs/src/ChangeLog?cvsroot=cvs&only_with_tag=cvs1-11-x-branch&r1=1.2336.2.478&r2=1.2336.2.479
http://cvs.savannah.gnu.org/viewcvs/ccvs/src/rcs.c?cvsroot=cvs&only_with_tag=cvs1-11-x-branch&r1=1.262.4.58&r2=1.262.4.59

Patches:
Index: ChangeLog
===================================================================
RCS file: /cvsroot/cvs/ccvs/src/ChangeLog,v
retrieving revision 1.2336.2.478
retrieving revision 1.2336.2.479
diff -u -b -r1.2336.2.478 -r1.2336.2.479
--- ChangeLog   1 Mar 2007 21:00:50 -0000       1.2336.2.478
+++ ChangeLog   5 Mar 2007 20:31:24 -0000       1.2336.2.479
@@ -1,3 +1,8 @@
+2007-03-05  Larry Jones  <address@hidden>
+
+       * rcs.c (RCS_delete_revs): When checking for tagged revisions,
+       include magic branch tags.
+
 2007-03-01  Larry Jones  <address@hidden>
 
        * import.c (import_descend_dir): Correct error message.

Index: rcs.c
===================================================================
RCS file: /cvsroot/cvs/ccvs/src/rcs.c,v
retrieving revision 1.262.4.58
retrieving revision 1.262.4.59
diff -u -b -r1.262.4.58 -r1.262.4.59
--- rcs.c       8 Sep 2006 13:24:34 -0000       1.262.4.58
+++ rcs.c       5 Mar 2007 20:31:25 -0000       1.262.4.59
@@ -6284,6 +6284,25 @@
        return 0;
 }
 
+static int findmagictag PROTO ((Node *, void *));
+
+/* Return a nonzero value if a magic tag rooted at ARG is found.  */
+
+static int
+findmagictag (node, arg)
+    Node *node;
+    void *arg;
+{
+    char *rev = (char *)arg;
+    size_t len = strlen (rev);
+
+    if (strncmp (node->data, rev, len) == 0 &&
+       strncmp (node->data + len, ".0.", 3) == 0)
+       return 1;
+    else
+       return 0;
+}
+
 /* Delete revisions between REV1 and REV2.  The changes between the two
    revisions must be collapsed, and the result stored in the revision
    immediately preceding the lower one.  Return 0 for successful completion,
@@ -6543,8 +6562,9 @@
 
            /* Doing this only for the :: syntax is for compatibility.
               See cvs.texinfo for somewhat more discussion.  */
-           if (!inclusive
-               && walklist (RCS_symbols (rcs), findtag, revp->version))
+           if (!inclusive &&
+               (walklist (RCS_symbols (rcs), findtag, revp->version) ||
+                walklist (RCS_symbols (rcs), findmagictag, revp->version)))
            {
                /* We don't print which file this happens to on the theory
                   that the caller will print the name of the file in a