gnu/usr.bin/rcs/lib/rcsfcmp.c

   1 /* Compare working files, ignoring RCS keyword strings.  */
   2
   3 /*****************************************************************************
   4  *                       rcsfcmp()
   5  *                       Testprogram: define FCMPTEST
   6  *****************************************************************************
   7  */
   8
   9 /* Copyright 1982, 1988, 1989 Walter Tichy
  10    Copyright 1990, 1991, 1992, 1993, 1994, 1995 Paul Eggert
  11    Distributed under license by the Free Software Foundation, Inc.
  12
  13 This file is part of RCS.
  14
  15 RCS is free software; you can redistribute it and/or modify
  16 it under the terms of the GNU General Public License as published by
  17 the Free Software Foundation; either version 2, or (at your option)
  18 any later version.
  19
  20 RCS is distributed in the hope that it will be useful,
  21 but WITHOUT ANY WARRANTY; without even the implied warranty of
  22 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  23 GNU General Public License for more details.
  24
  25 You should have received a copy of the GNU General Public License
  26 along with RCS; see the file COPYING.
  27 If not, write to the Free Software Foundation,
  28 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
  29
  30 Report problems and direct all questions to:
  31
  32     rcs-bugs@cs.purdue.edu
  33
  34 */
  35
  36
  37
  38
  39
  40 /*
  41  * $FreeBSD: src/gnu/usr.bin/rcs/lib/rcsfcmp.c,v 1.7 1999/08/27 23:36:45 peter Exp $
  42  * $DragonFly: src/gnu/usr.bin/rcs/lib/rcsfcmp.c,v 1.2 2003/06/17 04:25:47 dillon Exp $
  43  *
  44  * Revision 5.14  1995/06/16 06:19:24  eggert
  45  * Update FSF address.
  46  *
  47  * Revision 5.13  1995/06/01 16:23:43  eggert
  48  * (rcsfcmp): Add -kb support.
  49  *
  50  * Revision 5.12  1994/03/17 14:05:48  eggert
  51  * Normally calculate the $Log prefix from context, not from RCS file.
  52  * Calculate line numbers correctly even if the $Log prefix contains newlines.
  53  * Remove lint.
  54  *
  55  * Revision 5.11  1993/11/03 17:42:27  eggert
  56  * Fix yet another off-by-one error when comparing Log string expansions.
  57  *
  58  * Revision 5.10  1992/07/28 16:12:44  eggert
  59  * Statement macro names now end in _.
  60  *
  61  * Revision 5.9  1991/10/07  17:32:46  eggert
  62  * Count log lines correctly.
  63  *
  64  * Revision 5.8  1991/08/19  03:13:55  eggert
  65  * Tune.
  66  *
  67  * Revision 5.7  1991/04/21  11:58:22  eggert
  68  * Fix errno bug.  Add MS-DOS support.
  69  *
  70  * Revision 5.6  1991/02/28  19:18:47  eggert
  71  * Open work file at most once.
  72  *
  73  * Revision 5.5  1990/11/27  09:26:05  eggert
  74  * Fix comment leader bug.
  75  *
  76  * Revision 5.4  1990/11/01  05:03:42  eggert
  77  * Permit arbitrary data in logs and comment leaders.
  78  *
  79  * Revision 5.3  1990/09/11  02:41:15  eggert
  80  * Don't ignore differences inside keyword strings if -ko is set.
  81  *
  82  * Revision 5.1  1990/08/29  07:13:58  eggert
  83  * Clean old log messages too.
  84  *
  85  * Revision 5.0  1990/08/22  08:12:49  eggert
  86  * Don't append "checked in with -k by " log to logs,
  87  * so that checking in a program with -k doesn't change it.
  88  * Ansify and Posixate.  Remove lint.
  89  *
  90  * Revision 4.5  89/05/01  15:12:42  narten
  91  * changed copyright header to reflect current distribution rules
  92  *
  93  * Revision 4.4  88/08/09  19:12:50  eggert
  94  * Shrink stdio code size.
  95  *
  96  * Revision 4.3  87/12/18  11:40:02  narten
  97  * lint cleanups (Guy Harris)
  98  *
  99  * Revision 4.2  87/10/18  10:33:06  narten
 100  * updting version number. Changes relative to 1.1 actually relative to
 101  * 4.1
 102  *
 103  * Revision 1.2  87/03/27  14:22:19  jenkins
 104  * Port to suns
 105  *
 106  * Revision 4.1  83/05/10  16:24:04  wft
 107  * Marker matching now uses trymatch(). Marker pattern is now
 108  * checked precisely.
 109  *
 110  * Revision 3.1  82/12/04  13:21:40  wft
 111  * Initial revision.
 112  *
 113  */
 114
 115 /*
 116 #define FCMPTEST
 117 */
 118 /* Testprogram; prints out whether two files are identical,
 119  * except for keywords
 120  */
 121
 122 #include  "rcsbase.h"
 123
 124 libId(fcmpId, "$DragonFly: src/gnu/usr.bin/rcs/lib/rcsfcmp.c,v 1.2 2003/06/17 04:25:47 dillon Exp $")
 125
 126         static int discardkeyval P((int,RILE*));
 127         static int
 128 discardkeyval(c, f)
 129         register int c;
 130         register RILE *f;
 131 {
 132         for (;;)
 133                 switch (c) {
 134                         case KDELIM:
 135                         case '\n':
 136                                 return c;
 137                         default:
 138                                 Igeteof_(f, c, return EOF;)
 139                                 break;
 140                 }
 141 }
 142
 143         int
 144 rcsfcmp(xfp, xstatp, uname, delta)
 145         register RILE *xfp;
 146         struct stat const *xstatp;
 147         char const *uname;
 148         struct hshentry const *delta;
 149 /* Compare the files xfp and uname.  Return zero
 150  * if xfp has the same contents as uname and neither has keywords,
 151  * otherwise -1 if they are the same ignoring keyword values,
 152  * and 1 if they differ even ignoring
 153  * keyword values. For the LOG-keyword, rcsfcmp skips the log message
 154  * given by the parameter delta in xfp.  Thus, rcsfcmp returns nonpositive
 155  * if xfp contains the same as uname, with the keywords expanded.
 156  * Implementation: character-by-character comparison until $ is found.
 157  * If a $ is found, read in the marker keywords; if they are real keywords
 158  * and identical, read in keyword value. If value is terminated properly,
 159  * disregard it and optionally skip log message; otherwise, compare value.
 160  */
 161 {
 162     register int xc, uc;
 163     char xkeyword[keylength+2];
 164     int eqkeyvals;
 165     register RILE *ufp;
 166     register int xeof, ueof;
 167     register char * tp;
 168     register char const *sp;
 169     register size_t leaderlen;
 170     int result;
 171     enum markers match1;
 172     struct stat ustat;
 173
 174     if (!(ufp = Iopen(uname, FOPEN_R_WORK, &ustat))) {
 175        efaterror(uname);
 176     }
 177     xeof = ueof = false;
 178     if (MIN_UNEXPAND <= Expand) {
 179         if (!(result = xstatp->st_size!=ustat.st_size)) {
 180 #           if large_memory && maps_memory
 181                 result = !!memcmp(xfp->base,ufp->base,(size_t)xstatp->st_size);
 182 #           else
 183                 for (;;) {
 184                     /* get the next characters */
 185                     Igeteof_(xfp, xc, xeof=true;)
 186                     Igeteof_(ufp, uc, ueof=true;)
 187                     if (xeof | ueof)
 188                         goto eof;
 189                     if (xc != uc)
 190                         goto return1;
 191                 }
 192 #           endif
 193         }
 194     } else {
 195         xc = 0;
 196         uc = 0; /* Keep lint happy.  */
 197         leaderlen = 0;
 198         result = 0;
 199
 200         for (;;) {
 201           if (xc != KDELIM) {
 202             /* get the next characters */
 203             Igeteof_(xfp, xc, xeof=true;)
 204             Igeteof_(ufp, uc, ueof=true;)
 205             if (xeof | ueof)
 206                 goto eof;
 207           } else {
 208             /* try to get both keywords */
 209             tp = xkeyword;
 210             for (;;) {
 211                 Igeteof_(xfp, xc, xeof=true;)
 212                 Igeteof_(ufp, uc, ueof=true;)
 213                 if (xeof | ueof)
 214                     goto eof;
 215                 if (xc != uc)
 216                     break;
 217                 switch (xc) {
 218                     default:
 219                         if (xkeyword+keylength <= tp)
 220                             break;
 221                         *tp++ = xc;
 222                         continue;
 223                     case '\n': case KDELIM: case VDELIM:
 224                         break;
 225                 }
 226                 break;
 227             }
 228             if (
 229                 (xc==KDELIM || xc==VDELIM)  &&  (uc==KDELIM || uc==VDELIM)  &&
 230                 (*tp = xc,  (match1 = trymatch(xkeyword)) != Nomatch)
 231             ) {
 232 #ifdef FCMPTEST
 233               VOID printf("found common keyword %s\n",xkeyword);
 234 #endif
 235               result = -1;
 236               for (;;) {
 237                   if (xc != uc) {
 238                       xc = discardkeyval(xc, xfp);
 239                       uc = discardkeyval(uc, ufp);
 240                       if ((xeof = xc==EOF)  |  (ueof = uc==EOF))
 241                           goto eof;
 242                       eqkeyvals = false;
 243                       break;
 244                   }
 245                   switch (xc) {
 246                       default:
 247                           Igeteof_(xfp, xc, xeof=true;)
 248                           Igeteof_(ufp, uc, ueof=true;)
 249                           if (xeof | ueof)
 250                               goto eof;
 251                           continue;
 252
 253                       case '\n': case KDELIM:
 254                           eqkeyvals = true;
 255                           break;
 256                   }
 257                   break;
 258               }
 259               if (xc != uc)
 260                   goto return1;
 261               if (xc==KDELIM) {
 262                   /* Skip closing KDELIM.  */
 263                   Igeteof_(xfp, xc, xeof=true;)
 264                   Igeteof_(ufp, uc, ueof=true;)
 265                   if (xeof | ueof)
 266                       goto eof;
 267                   /* if the keyword is LOG, also skip the log message in xfp*/
 268                   if (match1==Log) {
 269                       /* first, compute the number of line feeds in log msg */
 270                       int lncnt;
 271                       size_t ls, ccnt;
 272                       sp = delta->log.string;
 273                       ls = delta->log.size;
 274                       if (ls<sizeof(ciklog)-1 || memcmp(sp,ciklog,sizeof(ciklog)-1)) {
 275                         /*
 276                         * This log message was inserted.  Skip its header.
 277                         * The number of newlines to skip is
 278                         * 1 + (C+1)*(1+L+1), where C is the number of newlines
 279                         * in the comment leader, and L is the number of
 280                         * newlines in the log string.
 281                         */
 282                         int c1 = 1;
 283                         for (ccnt=Comment.size; ccnt--; )
 284                             c1 += Comment.string[ccnt] == '\n';
 285                         lncnt = 2*c1 + 1;
 286                         while (ls--) if (*sp++=='\n') lncnt += c1;
 287                         for (;;) {
 288                             if (xc=='\n')
 289                                 if(--lncnt==0) break;
 290                             Igeteof_(xfp, xc, goto returnresult;)
 291                         }
 292                         /* skip last comment leader */
 293                         /* Can't just skip another line here, because there may be */
 294                         /* additional characters on the line (after the Log....$)  */
 295                         ccnt = RCSversion<VERSION(5) ? Comment.size : leaderlen;
 296                         do {
 297                             Igeteof_(xfp, xc, goto returnresult;)
 298                             /*
 299                              * Read to the end of the comment leader or '\n',
 300                              * whatever comes first, because the leader's
 301                              * trailing white space was probably stripped.
 302                              */
 303                         } while (ccnt-- && (xc!='\n' || --c1));
 304                       }
 305                   }
 306               } else {
 307                   /* both end in the same character, but not a KDELIM */
 308                   /* must compare string values.*/
 309 #ifdef FCMPTEST
 310                   VOID printf("non-terminated keywords %s, potentially different values\n",xkeyword);
 311 #endif
 312                   if (!eqkeyvals)
 313                       goto return1;
 314               }
 315             }
 316           }
 317           if (xc != uc)
 318               goto return1;
 319           if (xc == '\n')
 320               leaderlen = 0;
 321           else
 322               leaderlen++;
 323         }
 324     }
 325
 326   eof:
 327     if (xeof==ueof)
 328         goto returnresult;
 329   return1:
 330     result = 1;
 331   returnresult:
 332     Ifclose(ufp);
 333     return result;
 334 }
 335
 336
 337
 338 #ifdef FCMPTEST
 339
 340 char const cmdid[] = "rcsfcmp";
 341
 342 main(argc, argv)
 343 int  argc; char  *argv[];
 344 /* first argument: comment leader; 2nd: log message, 3rd: expanded file,
 345  * 4th: unexpanded file
 346  */
 347 {       struct hshentry delta;
 348
 349         Comment.string = argv[1];
 350         Comment.size = strlen(argv[1]);
 351         delta.log.string = argv[2];
 352         delta.log.size = strlen(argv[2]);
 353         if (rcsfcmp(Iopen(argv[3], FOPEN_R_WORK, (struct stat*)0), argv[4], &delta))
 354                 VOID printf("files are the same\n");
 355         else    VOID printf("files are different\n");
 356 }
 357 #endif