/usr/src/gnu/usr.bin/cvs/src/log.c

Bug Summary

File:	src/gnu/usr.bin/cvs/src/log.c
Warning:	line 254, column 8 Dereference of null pointer (loaded from variable 'prl')
Annotated Source Code

Press '?' to see keyboard shortcuts
Show analyzer invocation
clang -cc1 -cc1 -triple amd64-unknown-openbsd7.0 -analyze -disable-free -disable-llvm-verifier -discard-value-names -main-file-name log.c -analyzer-store=region -analyzer-opt-analyze-nested-blocks -analyzer-checker=core -analyzer-checker=apiModeling -analyzer-checker=unix -analyzer-checker=deadcode -analyzer-checker=security.insecureAPI.UncheckedReturn -analyzer-checker=security.insecureAPI.getpw -analyzer-checker=security.insecureAPI.gets -analyzer-checker=security.insecureAPI.mktemp -analyzer-checker=security.insecureAPI.mkstemp -analyzer-checker=security.insecureAPI.vfork -analyzer-checker=nullability.NullPassedToNonnull -analyzer-checker=nullability.NullReturnedFromNonnull -analyzer-output plist -w -setup-static-analyzer -mrelocation-model pic -pic-level 1 -pic-is-pie -mframe-pointer=all -relaxed-aliasing -fno-rounding-math -mconstructor-aliases -munwind-tables -target-cpu x86-64 -target-feature +retpoline-indirect-calls -target-feature +retpoline-indirect-branches -tune-cpu generic -debugger-tuning=gdb -fcoverage-compilation-dir=/usr/src/gnu/usr.bin/cvs/obj/src -resource-dir /usr/local/lib/clang/13.0.0 -D HAVE_CONFIG_H -I . -I /usr/src/gnu/usr.bin/cvs/src -I .. -I . -I /usr/src/gnu/usr.bin/cvs/lib -I /usr/src/gnu/usr.bin/cvs/diff -internal-isystem /usr/local/lib/clang/13.0.0/include -internal-externc-isystem /usr/include -O2 -fdebug-compilation-dir=/usr/src/gnu/usr.bin/cvs/obj/src -ferror-limit 19 -fwrapv -D_RET_PROTECTOR -ret-protector -fgnuc-version=4.2.1 -vectorize-loops -vectorize-slp -fno-builtin-malloc -fno-builtin-calloc -fno-builtin-realloc -fno-builtin-valloc -fno-builtin-free -fno-builtin-strdup -fno-builtin-strndup -analyzer-output=html -faddrsig -D__GCC_HAVE_DWARF2_CFI_ASM=1 -o /home/ben/Projects/vmm/scan-build/2022-01-12-194120-40624-1 -x c /usr/src/gnu/usr.bin/cvs/src/log.c
1/*
* Copyright (c) 1992, Brian Berliner and Jeff Polk
* Copyright (c) 1989-1992, Brian Berliner
*
* You may distribute under the terms of the GNU General Public License as
* specified in the README file that comes with the CVS source distribution.
*
* Print Log Information
*
* Prints the RCS "log" (rlog) information for the specified files.  With no
* argument, prints the log information for all the files in the directory
* (recursive by default).
*/

15#include "cvs.h"

17/* This structure holds information parsed from the -r option.  */

19struct option_revlist
20{
  /* The next -r option.  */
  struct option_revlist *next;
  /* The first revision to print.  This is NULL if the range is
     :rev, or if no revision is given.  */
  char *first;
  /* The last revision to print.  This is NULL if the range is rev:,
     or if no revision is given.  If there is no colon, first and
     last are the same.  */
  char *last;
  /* Nonzero if there was a trailing `.', which means to print only
     the head revision of a branch.  */
  int branchhead;
  /* Nonzero if first and last are inclusive.  */
  int inclusive;
35};

37/* This structure holds information derived from option_revlist given
 a particular RCS file.  */

40struct revlist
41{
  /* The next pair.  */
  struct revlist *next;
  /* The first numeric revision to print.  */
  char *first;
  /* The last numeric revision to print.  */
  char *last;
  /* The number of fields in these revisions (one more than
     numdots).  */
  int fields;
  /* Whether first & last are to be included or excluded.  */
  int inclusive;
53};

55/* This structure holds information parsed from the -d option.  */

57struct datelist
58{
  /* The next date.  */
  struct datelist *next;
  /* The starting date.  */
  char *start;
  /* The ending date.  */
  char *end;
  /* Nonzero if the range is inclusive rather than exclusive.  */
  int inclusive;
67};

69/* This structure is used to pass information through start_recursion.  */
70struct log_data
71{
  /* Nonzero if the -R option was given, meaning that only the name
     of the RCS file should be printed.  */
  int nameonly;
  /* Nonzero if the -h option was given, meaning that only header
     information should be printed.  */
  int header;
  /* Nonzero if the -t option was given, meaning that only the
     header and the descriptive text should be printed.  */
  int long_header;
  /* Nonzero if the -N option was seen, meaning that tag information
     should not be printed.  */
  int notags;
  /* Nonzero if the -b option was seen, meaning that only revisions
     on the default branch should be printed.  */
  int default_branch;
  /* If not NULL, the value given for the -r option, which lists
     sets of revisions to be printed.  */
  struct option_revlist *revlist;
  /* If not NULL, the date pairs given for the -d option, which
     select date ranges to print.  */
  struct datelist *datelist;
  /* If not NULL, the single dates given for the -d option, which
     select specific revisions to print based on a date.  */
  struct datelist *singledatelist;
  /* If not NULL, the list of states given for the -s option, which
     only prints revisions of given states.  */
  List *statelist;
  /* If not NULL, the list of login names given for the -w option,
     which only prints revisions checked in by given users.  */
  List *authorlist;
102};

104/* This structure is used to pass information through walklist.  */
105struct log_data_and_rcs
106{
  struct log_data *log_data;
  struct revlist *revlist;
  RCSNode *rcs;
110};

112static int rlog_proc PROTO((int argc, char **argv, char *xwhere,(int argc, char **argv, char *xwhere, char *mwhere, char *mfile
, int shorten, int local_specified, char *mname, char *msg)
	    char *mwhere, char *mfile, int shorten,(int argc, char **argv, char *xwhere, char *mwhere, char *mfile
, int shorten, int local_specified, char *mname, char *msg)
	    int local_specified, char *mname, char *msg))(int argc, char **argv, char *xwhere, char *mwhere, char *mfile
, int shorten, int local_specified, char *mname, char *msg);
115static Dtype log_dirproc PROTO ((void *callerdat, char *dir,(void *callerdat, char *dir, char *repository, char *update_dir
, List *entries)
		 char *repository, char *update_dir,(void *callerdat, char *dir, char *repository, char *update_dir
, List *entries)
		 List *entries))(void *callerdat, char *dir, char *repository, char *update_dir
, List *entries);
118static int log_fileproc PROTO ((void *callerdat, struct file_info *finfo))(void *callerdat, struct file_info *finfo);
119static struct option_revlist *log_parse_revlist PROTO ((const char *))(const char *);
120static void log_parse_date PROTO ((struct log_data *, const char *))(struct log_data *, const char *);
121static void log_parse_list PROTO ((List **, const char *))(List **, const char *);
122static struct revlist *log_expand_revlist PROTO ((RCSNode *,(RCSNode *, struct option_revlist *, int)
				  struct option_revlist *,(RCSNode *, struct option_revlist *, int)
				  int))(RCSNode *, struct option_revlist *, int);
125static void log_free_revlist PROTO ((struct revlist *))(struct revlist *);
126static int log_version_requested PROTO ((struct log_data *, struct revlist *,(struct log_data *, struct revlist *, RCSNode *, RCSVers *)
			 RCSNode *, RCSVers *))(struct log_data *, struct revlist *, RCSNode *, RCSVers *);
128static int log_symbol PROTO ((Node *, void *))(Node *, void *);
129static int log_count PROTO ((Node *, void *))(Node *, void *);
130static int log_fix_singledate PROTO ((Node *, void *))(Node *, void *);
131static int log_count_print PROTO ((Node *, void *))(Node *, void *);
132static void log_tree PROTO ((struct log_data *, struct revlist *,(struct log_data *, struct revlist *, RCSNode *, const char *
)
	     RCSNode *, const char *))(struct log_data *, struct revlist *, RCSNode *, const char *
);
134static void log_abranch PROTO ((struct log_data *, struct revlist *,(struct log_data *, struct revlist *, RCSNode *, const char *
)
		RCSNode *, const char *))(struct log_data *, struct revlist *, RCSNode *, const char *
);
136static void log_version PROTO ((struct log_data *, struct revlist *,(struct log_data *, struct revlist *, RCSNode *, RCSVers *, int
)
		RCSNode *, RCSVers *, int))(struct log_data *, struct revlist *, RCSNode *, RCSVers *, int
);
138static int log_branch PROTO ((Node *, void *))(Node *, void *);
139static int version_compare PROTO ((const char *, const char *, int))(const char *, const char *, int);

141static struct log_data log_data;
142static int is_rlog;

144static const char *const log_usage[] =
145{
  "Usage: %s %s [-lRhtNb] [-r[revisions]] [-d dates] [-s states]\n",
  "    [-w[logins]] [files...]\n",
  "\t-l\tLocal directory only, no recursion.\n",
  "\t-R\tOnly print name of RCS file.\n",
  "\t-h\tOnly print header.\n",
  "\t-t\tOnly print header and descriptive text.\n",
  "\t-N\tDo not list tags.\n",
  "\t-b\tOnly list revisions on the default branch.\n",
  "\t-r[revisions]\tSpecify revision(s) to list.\n",
  "\t   rev1:rev2   Between rev1 and rev2, including rev1 and rev2.\n",
  "\t   rev1::rev2  Between rev1 and rev2, excluding rev1 and rev2.\n",
  "\t   rev:        rev and following revisions on the same branch.\n",
  "\t   rev::       After rev on the same branch.\n",
  "\t   :rev        rev and previous revisions on the same branch.\n",
  "\t   ::rev       Before rev on the same branch.\n",
  "\t   rev         Just rev.\n",
  "\t   branch      All revisions on the branch.\n",
  "\t   branch.     The last revision on the branch.\n",
  "\t-d dates\tSpecify dates (D1<D2 for range, D for latest before).\n",
  "\t-s states\tOnly list revisions with specified states.\n",
  "\t-w[logins]\tOnly list revisions checked in by specified logins.\n",
  "(Specify the --help global option for a list of other help options)\n",
  NULL((void*)0)
169};

171#ifdef CLIENT_SUPPORT1

173/* Helper function for send_arg_list.  */
174static int send_one PROTO ((Node *, void *))(Node *, void *);

176static int
177send_one (node, closure)
  Node *node;
  void *closure;
180{
  char *option = (char *) closure;

  send_to_server ("Argument ", 0);
  send_to_server (option, 0);
  if (strcmp (node->key, "@@MYSELF") == 0)
/* It is a bare -w option.  Note that we must send it as
  -w rather than messing with getcaller() or something (which on
  the client will return garbage).  */
;
  else
send_to_server (node->key, 0);
  send_to_server ("\012", 0);
  return 0;
194}

196/* For each element in ARG, send an argument consisting of OPTION
 concatenated with that element.  */
198static void send_arg_list PROTO ((char *, List *))(char *, List *);

200static void
201send_arg_list (option, arg)
  char *option;
  List *arg;
204{
  if (arg == NULL((void*)0))
return;
  walklist (arg, send_one, (void *)option);
208}

210#endif

212int
213cvslog (argc, argv)
  int argc;
  char **argv;
216{
  int c;
  int err = 0;
  int local = 0;
  struct option_revlist **prl;

  is_rlog = (strcmp (command_name, "rlog") == 0);

  if (argc == -1)
1
Assuming the condition is false→
2
←
Taking false branch→
usage (log_usage);

  memset (&log_data, 0, sizeof log_data);
  prl = &log_data.revlist;

  optind = 0;
  while ((c = getopt (argc, argv, "+bd:hlNRr::s:tw::")) != -1)
3
←
Assuming the condition is true→
4
←
Loop condition is true.  Entering loop body→
8
←
Assuming the condition is true→
9
←
Loop condition is true.  Entering loop body→
  {
switch (c)
5
←
Control jumps to 'case 114:'  at line 253→
10
←
Control jumps to 'case 114:'  at line 253→
{
   case 'b':
log_data.default_branch = 1;
break;
   case 'd':
log_parse_date (&log_data, optarg);
break;
   case 'h':
log_data.header = 1;
break;
   case 'l':
local = 1;
break;
   case 'N':
log_data.notags = 1;
break;
   case 'R':
log_data.nameonly = 1;
break;
   case 'r':
*prl = log_parse_revlist (optarg);
11
←
Dereference of null pointer (loaded from variable 'prl')
prl = &(*prl)->next;
6
←
Null pointer value stored to 'prl'→
break;
7
←
 Execution continues on line 231→
   case 's':
log_parse_list (&log_data.statelist, optarg);
break;
   case 't':
log_data.long_header = 1;
break;
   case 'w':
if (optarg != NULL((void*)0))
    log_parse_list (&log_data.authorlist, optarg);
else
    log_parse_list (&log_data.authorlist, "@@MYSELF");
break;
   case '?':
   default:
usage (log_usage);
break;
}
  }
  argc -= optind;
  argv += optind;

  wrap_setup ();

280#ifdef CLIENT_SUPPORT1
  if (current_parsed_root->isremote)
  {
struct datelist *p;
struct option_revlist *rp;
char datetmp[MAXDATELEN50];

/* We're the local client.  Fire up the remote server.  */
start_server ();

if (is_rlog && !supported_request ("rlog"))
   error (1, 0, "server does not support rlog");

ign_setup ();

if (log_data.default_branch)
   send_arg ("-b");

while (log_data.datelist != NULL((void*)0))
{
   p = log_data.datelist;
   log_data.datelist = p->next;
   send_to_server ("Argument -d\012", 0);
   send_to_server ("Argument ", 0);
   date_to_internet (datetmp, p->start);
   send_to_server (datetmp, 0);
   if (p->inclusive)
send_to_server ("<=", 0);
   else
send_to_server ("<", 0);
   date_to_internet (datetmp, p->end);
   send_to_server (datetmp, 0);
   send_to_server ("\012", 0);
   if (p->start)
free (p->start);
   if (p->end)
free (p->end);
   free (p);
}
while (log_data.singledatelist != NULL((void*)0))
{
   p = log_data.singledatelist;
   log_data.singledatelist = p->next;
   send_to_server ("Argument -d\012", 0);
   send_to_server ("Argument ", 0);
   date_to_internet (datetmp, p->end);
   send_to_server (datetmp, 0);
   send_to_server ("\012", 0);
   if (p->end)
free (p->end);
   free (p);
}

if (log_data.header)
   send_arg ("-h");
if (local)
   send_arg("-l");
if (log_data.notags)
   send_arg("-N");
if (log_data.nameonly)
   send_arg("-R");
if (log_data.long_header)
   send_arg("-t");

while (log_data.revlist != NULL((void*)0))
{
   rp = log_data.revlist;
   log_data.revlist = rp->next;
   send_to_server ("Argument -r", 0);
   if (rp->branchhead)
   {
if (rp->first != NULL((void*)0))
    send_to_server (rp->first, 0);
send_to_server (".", 1);
   }
   else
   {
if (rp->first != NULL((void*)0))
    send_to_server (rp->first, 0);
send_to_server (":", 1);
if (!rp->inclusive)
    send_to_server (":", 1);
if (rp->last != NULL((void*)0))
    send_to_server (rp->last, 0);
   }
   send_to_server ("\012", 0);
   if (rp->first)
free (rp->first);
   if (rp->last)
free (rp->last);
   free (rp);
}
send_arg_list ("-s", log_data.statelist);
dellist (&log_data.statelist);
send_arg_list ("-w", log_data.authorlist);
dellist (&log_data.authorlist);

if (is_rlog)
{
   int i;
   for (i = 0; i < argc; i++)
send_arg (argv[i]);
   send_to_server ("rlog\012", 0);
}
else
{
   send_files (argc, argv, local, 0, SEND_NO_CONTENTS4);
   send_file_names (argc, argv, SEND_EXPAND_WILD1);
   send_to_server ("log\012", 0);
}
      err = get_responses_and_close ();
return err;
  }
393#endif

  /* OK, now that we know we are local/server, we can resolve @@MYSELF
     into our user name.  */
  if (findnode (log_data.authorlist, "@@MYSELF") != NULL((void*)0))
log_parse_list (&log_data.authorlist, getcaller ());

  if (is_rlog)
  {
DBM *db;
int i;
db = open_module ();
for (i = 0; i < argc; i++)
{
   err += do_module (db, argv[i], MISC, "Logging", rlog_proc,
	     (char *) NULL((void*)0), 0, 0, 0, 0, (char *) NULL((void*)0));
}
close_module (db);
  }
  else
  {
err = rlog_proc (argc + 1, argv - 1, (char *) NULL((void*)0),
	 (char *) NULL((void*)0), (char *) NULL((void*)0), 0, 0, (char *) NULL((void*)0),
	 (char *) NULL((void*)0));
  }

  while (log_data.revlist)
  {
struct option_revlist *rl = log_data.revlist->next;
if (log_data.revlist->first)
   free (log_data.revlist->first);
if (log_data.revlist->last)
   free (log_data.revlist->last);
free (log_data.revlist);
log_data.revlist = rl;
  }
  while (log_data.datelist)
  {
struct datelist *nd = log_data.datelist->next;
if (log_data.datelist->start)
   free (log_data.datelist->start);
if (log_data.datelist->end)
   free (log_data.datelist->end);
free (log_data.datelist);
log_data.datelist = nd;
  }
  while (log_data.singledatelist)
  {
struct datelist *nd = log_data.singledatelist->next;
if (log_data.singledatelist->start)
   free (log_data.singledatelist->start);
if (log_data.singledatelist->end)
   free (log_data.singledatelist->end);
free (log_data.singledatelist);
log_data.singledatelist = nd;
  }
  dellist (&log_data.statelist);
  dellist (&log_data.authorlist);

  return (err);
453}


456static int
457rlog_proc (argc, argv, xwhere, mwhere, mfile, shorten, local, mname, msg)
  int argc;
  char **argv;
  char *xwhere;
  char *mwhere;
  char *mfile;
  int shorten;
  int local;
  char *mname;
  char *msg;
467{
  /* Begin section which is identical to patch_proc--should this
     be abstracted out somehow?  */
  char *myargv[2];
  int err = 0;
  int which;
  char *repository;
  char *where;

  if (is_rlog)
  {
repository = xmalloc (strlen (current_parsed_root->directory) + strlen (argv[0])
	      + (mfile == NULL((void*)0) ? 0 : strlen (mfile) + 1) + 2);
(void) sprintf (repository, "%s/%s", current_parsed_root->directory, argv[0]);
where = xmalloc (strlen (argv[0]) + (mfile == NULL((void*)0) ? 0 : strlen (mfile) + 1)
	 + 1);
(void) strcpy (where, argv[0]);

/* if mfile isn't null, we need to set up to do only part of the module */
if (mfile != NULL((void*)0))
{
   char *cp;
   char *path;

   /* if the portion of the module is a path, put the dir part on repos */
   if ((cp = strrchr (mfile, '/')) != NULL((void*)0))
   {
*cp = '\0';
(void) strcat (repository, "/");
(void) strcat (repository, mfile);
(void) strcat (where, "/");
(void) strcat (where, mfile);
mfile = cp + 1;
   }

   /* take care of the rest */
   path = xmalloc (strlen (repository) + strlen (mfile) + 5);
   (void) sprintf (path, "%s/%s", repository, mfile);
   if (isdir (path))
   {
/* directory means repository gets the dir tacked on */
(void) strcpy (repository, path);
(void) strcat (where, "/");
(void) strcat (where, mfile);
   }
   else
   {
myargv[0] = argv[0];
myargv[1] = mfile;
argc = 2;
argv = myargv;
   }
   free (path);
}

/* cd to the starting repository */
if ( CVS_CHDIRchdir (repository) < 0)
{
   error (0, errno(*__errno()), "cannot chdir to %s", repository);
   free (repository);
   return (1);
}
free (repository);
/* End section which is identical to patch_proc.  */

which = W_REPOS0x02 | W_ATTIC0x04;
  }
  else
  {
      where = NULL((void*)0);
      which = W_LOCAL0x01 | W_REPOS0x02 | W_ATTIC0x04;
  }

  err = start_recursion (log_fileproc, (FILESDONEPROC) NULL((void*)0), log_dirproc,
	   (DIRLEAVEPROC) NULL((void*)0), (void *) &log_data,
	   argc - 1, argv + 1, local, which, 0, 1,
	   where, 1);
  return err;
545}


548/*
* Parse a revision list specification.
*/

552static struct option_revlist *
553log_parse_revlist (argstring)
  const char *argstring;
555{
  char *orig_copy, *copy;
  struct option_revlist *ret, **pr;

  /* Unfortunately, rlog accepts -r without an argument to mean that
     latest revision on the default branch, so we must support that
     for compatibility.  */
  if (argstring == NULL((void*)0))
argstring = "";

  ret = NULL((void*)0);
  pr = &ret;

  /* Copy the argument into memory so that we can change it.  We
     don't want to change the argument because, at least as of this
     writing, we will use it if we send the arguments to the server.  */
  orig_copy = copy = xstrdup (argstring);
  while (copy != NULL((void*)0))
  {
char *comma;
struct option_revlist *r;

comma = strchr (copy, ',');
if (comma != NULL((void*)0))
   *comma++ = '\0';

r = (struct option_revlist *) xmalloc (sizeof *r);
r->next = NULL((void*)0);
r->first = copy;
r->branchhead = 0;
r->last = strchr (copy, ':');
if (r->last != NULL((void*)0))
{
   *r->last++ = '\0';
   r->inclusive = (*r->last != ':');
   if (!r->inclusive)
r->last++;
}
else
{
   r->last = r->first;
   r->inclusive = 1;
   if (r->first[0] != '\0' && r->first[strlen (r->first) - 1] == '.')
   {
r->branchhead = 1;
r->first[strlen (r->first) - 1] = '\0';
   }
}

if (*r->first == '\0')
   r->first = NULL((void*)0);
if (*r->last == '\0')
   r->last = NULL((void*)0);

if (r->first != NULL((void*)0))
   r->first = xstrdup (r->first);
if (r->last != NULL((void*)0))
   r->last = xstrdup (r->last);

*pr = r;
pr = &r->next;

copy = comma;
  }

  free (orig_copy);
  return ret;
622}

624/*
* Parse a date specification.
*/
627static void
628log_parse_date (log_data, argstring)
  struct log_data *log_data;
  const char *argstring;
631{
  char *orig_copy, *copy;

  /* Copy the argument into memory so that we can change it.  We
     don't want to change the argument because, at least as of this
     writing, we will use it if we send the arguments to the server.  */
  orig_copy = copy = xstrdup (argstring);
  while (copy != NULL((void*)0))
  {
struct datelist *nd, **pd;
char *cpend, *cp, *ds, *de;

nd = (struct datelist *) xmalloc (sizeof *nd);

cpend = strchr (copy, ';');
if (cpend != NULL((void*)0))
   *cpend++ = '\0';

pd = &log_data->datelist;
nd->inclusive = 0;

if ((cp = strchr (copy, '>')) != NULL((void*)0))
{
   *cp++ = '\0';
   if (*cp == '=')
   {
++cp;
nd->inclusive = 1;
   }
   ds = cp;
   de = copy;
}
else if ((cp = strchr (copy, '<')) != NULL((void*)0))
{
   *cp++ = '\0';
   if (*cp == '=')
   {
++cp;
nd->inclusive = 1;
   }
   ds = copy;
   de = cp;
}
else
{
   ds = NULL((void*)0);
   de = copy;
   pd = &log_data->singledatelist;
}

if (ds == NULL((void*)0))
   nd->start = NULL((void*)0);
else if (*ds != '\0')
   nd->start = Make_Date (ds);
else
{
 /* 1970 was the beginning of time, as far as get_date and
    Make_Date are concerned.  FIXME: That is true only if time_t
    is a POSIX-style time and there is nothing in ANSI that
    mandates that.  It would be cleaner to set a flag saying
    whether or not there is a start date.  */
   nd->start = Make_Date ("1/1/1970 UTC");
}

if (*de != '\0')
   nd->end = Make_Date (de);
else
{
   /* We want to set the end date to some time sufficiently far
      in the future to pick up all revisions that have been
      created since the specified date and the time `cvs log'
      completes.  FIXME: The date in question only makes sense
      if time_t is a POSIX-style time and it is 32 bits
      and signed.  We should instead be setting a flag saying
      whether or not there is an end date.  Note that using
      something like "next week" would break the testsuite (and,
      perhaps less importantly, loses if the clock is set grossly
      wrong).  */
   nd->end = Make_Date ("2038-01-01");
}

nd->next = *pd;
*pd = nd;

copy = cpend;
  }

  free (orig_copy);
719}

721/*
* Parse a comma separated list of items, and add each one to *PLIST.
*/
724static void
725log_parse_list (plist, argstring)
  List **plist;
  const char *argstring;
728{
  while (1)
  {
Node *p;
char *cp;

p = getnode ();

cp = strchr (argstring, ',');
if (cp == NULL((void*)0))
   p->key = xstrdup (argstring);
else
{
   size_t len;

   len = cp - argstring;
   p->key = xmalloc (len + 1);
   strncpy (p->key, argstring, len);
   p->key[len + 1] = '\0';
}

if (*plist == NULL((void*)0))
   *plist = getlist ();
if (addnode (*plist, p) != 0)
   freenode (p);

if (cp == NULL((void*)0))
   break;

argstring = cp + 1;
  }
759}

761static int printlock_proc PROTO ((Node *, void *))(Node *, void *);

763static int
764printlock_proc (lock, foo)
  Node *lock;
  void *foo;
767{
  cvs_output ("\n\t", 2);
  cvs_output (lock->data, 0);
  cvs_output (": ", 2);
  cvs_output (lock->key, 0);
  return 0;
773}

775/*
* Do an rlog on a file
*/
778static int
779log_fileproc (callerdat, finfo)
  void *callerdat;
  struct file_info *finfo;
782{
  struct log_data *log_data = (struct log_data *) callerdat;
  Node *p;
  RCSNode *rcsfile;
  char buf[50];
  struct revlist *revlist;
  struct log_data_and_rcs log_data_and_rcs;

  if ((rcsfile = finfo->rcs) == NULL((void*)0))
  {
/* no rcs file.  What *do* we know about this file? */
p = findnode (finfo->entries, finfo->file);
if (p != NULL((void*)0))
{
   Entnode *e;

   e = (Entnode *) p->data;
   if (e->version[0] == '0' && e->version[1] == '\0')
   {
if (!really_quiet)
    error (0, 0, "%s has been added, but not committed",
	   finfo->file);
return(0);
   }
}

if (!really_quiet)
   error (0, 0, "nothing known about %s", finfo->file);

return (1);
  }

  if (log_data->nameonly)
  {
cvs_output (rcsfile->path, 0);
cvs_output ("\n", 1);
return 0;
  }

  /* We will need all the information in the RCS file.  */
  RCS_fully_parse (rcsfile);

  /* Turn any symbolic revisions in the revision list into numeric
     revisions.  */
  revlist = log_expand_revlist (rcsfile, log_data->revlist,
		  log_data->default_branch);

  /* The output here is intended to be exactly compatible with the
     output of rlog.  I'm not sure whether this code should be here
     or in rcs.c; I put it here because it is specific to the log
     function, even though it uses information gathered by the
     functions in rcs.c.  */

  cvs_output ("\n", 1);

  cvs_output ("RCS file: ", 0);
  cvs_output (rcsfile->path, 0);

  if (!is_rlog)
  {
cvs_output ("\nWorking file: ", 0);
if (finfo->update_dir[0] != '\0')
{
   cvs_output (finfo->update_dir, 0);
   cvs_output ("/", 0);
}
cvs_output (finfo->file, 0);
  }

  cvs_output ("\nhead:", 0);
  if (rcsfile->head != NULL((void*)0))
  {
cvs_output (" ", 1);
cvs_output (rcsfile->head, 0);
  }

  cvs_output ("\nbranch:", 0);
  if (rcsfile->branch != NULL((void*)0))
  {
cvs_output (" ", 1);
cvs_output (rcsfile->branch, 0);
  }

  cvs_output ("\nlocks:", 0);
  if (rcsfile->strict_locks)
cvs_output (" strict", 0);
  walklist (RCS_getlocks (rcsfile), printlock_proc, NULL((void*)0));

  cvs_output ("\naccess list:", 0);
  if (rcsfile->access != NULL((void*)0))
  {
const char *cp;

cp = rcsfile->access;
while (*cp != '\0')
{
const char *cp2;

cvs_output ("\n\t", 2);
cp2 = cp;
while (! isspace ((unsigned char) *cp2) && *cp2 != '\0')
    ++cp2;
cvs_output (cp, cp2 - cp);
cp = cp2;
while (isspace ((unsigned char) *cp) && *cp != '\0')
    ++cp;
}
  }

  if (! log_data->notags)
  {
List *syms;

cvs_output ("\nsymbolic names:", 0);
syms = RCS_symbols (rcsfile);
walklist (syms, log_symbol, NULL((void*)0));
  }

  cvs_output ("\nkeyword substitution: ", 0);
  if (rcsfile->expand == NULL((void*)0))
cvs_output ("kv", 2);
  else
cvs_output (rcsfile->expand, 0);

  cvs_output ("\ntotal revisions: ", 0);
  sprintf (buf, "%d", walklist (rcsfile->versions, log_count, NULL((void*)0)));
  cvs_output (buf, 0);

  if (! log_data->header && ! log_data->long_header)
  {
cvs_output (";\tselected revisions: ", 0);

log_data_and_rcs.log_data = log_data;
log_data_and_rcs.revlist = revlist;
log_data_and_rcs.rcs = rcsfile;

/* If any single dates were specified, we need to identify the
  revisions they select.  Each one selects the single
  revision, which is otherwise selected, of that date or
  earlier.  The log_fix_singledate routine will fill in the
  start date for each specific revision.  */
if (log_data->singledatelist != NULL((void*)0))
   walklist (rcsfile->versions, log_fix_singledate,
      (void *) &log_data_and_rcs);

sprintf (buf, "%d", walklist (rcsfile->versions, log_count_print,
		      (void *) &log_data_and_rcs));
cvs_output (buf, 0);
  }

  cvs_output ("\n", 1);

  if (! log_data->header || log_data->long_header)
  {
cvs_output ("description:\n", 0);
if (rcsfile->desc != NULL((void*)0))
   cvs_output (rcsfile->desc, 0);
  }

  if (! log_data->header && ! log_data->long_header && rcsfile->head != NULL((void*)0))
  {
p = findnode (rcsfile->versions, rcsfile->head);
if (p == NULL((void*)0))
   error (1, 0, "can not find head revision in `%s'",
   finfo->fullname);
while (p != NULL((void*)0))
{
   RCSVers *vers;

   vers = (RCSVers *) p->data;
   log_version (log_data, revlist, rcsfile, vers, 1);
   if (vers->next == NULL((void*)0))
p = NULL((void*)0);
   else
   {
p = findnode (rcsfile->versions, vers->next);
if (p == NULL((void*)0))
    error (1, 0, "can not find next revision `%s' in `%s'",
	   vers->next, finfo->fullname);
   }
}

log_tree (log_data, revlist, rcsfile, rcsfile->head);
  }

  cvs_output("\
968=============================================================================\n",
      0);

  /* Free up the new revlist and restore the old one.  */
  log_free_revlist (revlist);

  /* If singledatelist is not NULL, free up the start dates we added
     to it.  */
  if (log_data->singledatelist != NULL((void*)0))
  {
struct datelist *d;

for (d = log_data->singledatelist; d != NULL((void*)0); d = d->next)
{
   if (d->start != NULL((void*)0))
free (d->start);
   d->start = NULL((void*)0);
}
  }

  return 0;
989}

991/*
* Fix up a revision list in order to compare it against versions.
* Expand any symbolic revisions.
*/
995static struct revlist *
996log_expand_revlist (rcs, revlist, default_branch)
  RCSNode *rcs;
  struct option_revlist *revlist;
  int default_branch;
1000{
  struct option_revlist *r;
  struct revlist *ret, **pr;

  ret = NULL((void*)0);
  pr = &ret;
  for (r = revlist; r != NULL((void*)0); r = r->next)
  {
struct revlist *nr;

nr = (struct revlist *) xmalloc (sizeof *nr);
nr->inclusive = r->inclusive;

if (r->first == NULL((void*)0) && r->last == NULL((void*)0))
{
   /* If both first and last are NULL, it means that we want
      just the head of the default branch, which is RCS_head.  */
   nr->first = RCS_head (rcs);
   nr->last = xstrdup (nr->first);
   nr->fields = numdots (nr->first) + 1;
}
else if (r->branchhead)
{
   char *branch;

   /* Print just the head of the branch.  */
   if (isdigit ((unsigned char) r->first[0]))
nr->first = RCS_getbranch (rcs, r->first, 1);
   else
   {
branch = RCS_whatbranch (rcs, r->first);
if (branch == NULL((void*)0))
{
    error (0, 0, "warning: `%s' is not a branch in `%s'",
	   r->first, rcs->path);
    free (nr);
    continue;
}
nr->first = RCS_getbranch (rcs, branch, 1);
free (branch);
   }
   if (nr->first == NULL((void*)0))
   {
error (0, 0, "warning: no revision `%s' in `%s'",
       r->first, rcs->path);
free (nr);
continue;
   }
   nr->last = xstrdup (nr->first);
   nr->fields = numdots (nr->first) + 1;
}
else
{
   if (r->first == NULL((void*)0) || isdigit ((unsigned char) r->first[0]))
nr->first = xstrdup (r->first);
   else
   {
if (RCS_nodeisbranch (rcs, r->first))
    nr->first = RCS_whatbranch (rcs, r->first);
else
    nr->first = RCS_gettag (rcs, r->first, 1, (int *) NULL((void*)0));
if (nr->first == NULL((void*)0))
{
    error (0, 0, "warning: no revision `%s' in `%s'",
	   r->first, rcs->path);
    free (nr);
    continue;
}
   }

   if (r->last == r->first)
nr->last = xstrdup (nr->first);
   else if (r->last == NULL((void*)0) || isdigit ((unsigned char) r->last[0]))
nr->last = xstrdup (r->last);
   else
   {
if (RCS_nodeisbranch (rcs, r->last))
    nr->last = RCS_whatbranch (rcs, r->last);
else
    nr->last = RCS_gettag (rcs, r->last, 1, (int *) NULL((void*)0));
if (nr->last == NULL((void*)0))
{
    error (0, 0, "warning: no revision `%s' in `%s'",
	   r->last, rcs->path);
    if (nr->first != NULL((void*)0))
	free (nr->first);
    free (nr);
    continue;
}
   }

   /* Process the revision numbers the same way that rlog
             does.  This code is a bit cryptic for my tastes, but
             keeping the same implementation as rlog ensures a
             certain degree of compatibility.  */
   if (r->first == NULL((void*)0))
   {
nr->fields = numdots (nr->last) + 1;
if (nr->fields < 2)
    nr->first = xstrdup (".0");
else
{
    char *cp;

    nr->first = xstrdup (nr->last);
    cp = strrchr (nr->first, '.');
    strcpy (cp, ".0");
}
   }
   else if (r->last == NULL((void*)0))
   {
nr->fields = numdots (nr->first) + 1;
nr->last = xstrdup (nr->first);
if (nr->fields < 2)
    nr->last[0] = '\0';
else
{
    char *cp;

    cp = strrchr (nr->last, '.');
    *cp = '\0';
}
   }
   else
   {
nr->fields = numdots (nr->first) + 1;
if (nr->fields != numdots (nr->last) + 1
    || (nr->fields > 2
	&& version_compare (nr->first, nr->last,
			    nr->fields - 1) != 0))
{
    error (0, 0,
	   "invalid branch or revision pair %s:%s in `%s'",
	   r->first, r->last, rcs->path);
    free (nr->first);
    free (nr->last);
    free (nr);
    continue;
}
if (version_compare (nr->first, nr->last, nr->fields) > 0)
{
    char *tmp;

    tmp = nr->first;
    nr->first = nr->last;
    nr->last = tmp;
}
   }
}

nr->next = NULL((void*)0);
*pr = nr;
pr = &nr->next;
  }

  /* If the default branch was requested, add a revlist entry for
     it.  This is how rlog handles this option.  */
  if (default_branch
&& (rcs->head != NULL((void*)0) || rcs->branch != NULL((void*)0)))
  {
struct revlist *nr;

nr = (struct revlist *) xmalloc (sizeof *nr);
if (rcs->branch != NULL((void*)0))
   nr->first = xstrdup (rcs->branch);
else
{
   char *cp;

   nr->first = xstrdup (rcs->head);
   cp = strrchr (nr->first, '.');
   *cp = '\0';
}
nr->last = xstrdup (nr->first);
nr->fields = numdots (nr->first) + 1;
nr->inclusive = 1;

nr->next = NULL((void*)0);
*pr = nr;
  }

  return ret;
1182}

1184/*
* Free a revlist created by log_expand_revlist.
*/
1187static void
1188log_free_revlist (revlist)
  struct revlist *revlist;
1190{
  struct revlist *r;

  r = revlist;
  while (r != NULL((void*)0))
  {
struct revlist *next;

if (r->first != NULL((void*)0))
   free (r->first);
if (r->last != NULL((void*)0))
   free (r->last);
next = r->next;
free (r);
r = next;
  }
1206}

1208/*
* Return nonzero if a revision should be printed, based on the
* options provided.
*/
1212static int
1213log_version_requested (log_data, revlist, rcs, vnode)
  struct log_data *log_data;
  struct revlist *revlist;
  RCSNode *rcs;
  RCSVers *vnode;
1218{
  /* Handle the list of states from the -s option.  */
  if (log_data->statelist != NULL((void*)0)
&& findnode (log_data->statelist, vnode->state) == NULL((void*)0))
  {
return 0;
  }

  /* Handle the list of authors from the -w option.  */
  if (log_data->authorlist != NULL((void*)0))
  {
if (vnode->author != NULL((void*)0)
   && findnode (log_data->authorlist, vnode->author) == NULL((void*)0))
{
   return 0;
}
  }

  /* rlog considers all the -d options together when it decides
     whether to print a revision, so we must be compatible.  */
  if (log_data->datelist != NULL((void*)0) || log_data->singledatelist != NULL((void*)0))
  {
struct datelist *d;

for (d = log_data->datelist; d != NULL((void*)0); d = d->next)
{
   int cmp;

   cmp = RCS_datecmp (vnode->date, d->start);
   if (cmp > 0 || (cmp == 0 && d->inclusive))
   {
cmp = RCS_datecmp (vnode->date, d->end);
if (cmp < 0 || (cmp == 0 && d->inclusive))
    break;
   }
}

if (d == NULL((void*)0))
{
   /* Look through the list of specific dates.  We want to
      select the revision with the exact date found in the
      start field.  The commit code ensures that it is
      impossible to check in multiple revisions of a single
      file in a single second, so checking the date this way
      should never select more than one revision.  */
   for (d = log_data->singledatelist; d != NULL((void*)0); d = d->next)
   {
if (d->start != NULL((void*)0)
    && RCS_datecmp (vnode->date, d->start) == 0)
{
    break;
}
   }

   if (d == NULL((void*)0))
return 0;
}
  }

  /* If the -r or -b options were used, REVLIST will be non NULL,
     and we print the union of the specified revisions.  */
  if (revlist != NULL((void*)0))
  {
char *v;
int vfields;
struct revlist *r;

/* This code is taken from rlog.  */
v = vnode->version;
vfields = numdots (v) + 1;
for (r = revlist; r != NULL((void*)0); r = r->next)
{
   if (vfields == r->fields + (r->fields & 1) &&
(r->inclusive ?
    version_compare (v, r->first, r->fields) >= 0
    && version_compare (v, r->last, r->fields) <= 0 :
    version_compare (v, r->first, r->fields) > 0
    && version_compare (v, r->last, r->fields) < 0))
   {
return 1;
   }
}

/* If we get here, then the -b and/or the -r option was used,
         but did not match this revision, so we reject it.  */

return 0;
  }

  /* By default, we print all revisions.  */
  return 1;
1309}

1311/*
* Output a single symbol.  This is called via walklist.
*/
1314/*ARGSUSED*/
1315static int
1316log_symbol (p, closure)
  Node *p;
  void *closure;
1319{
  cvs_output ("\n\t", 2);
  cvs_output (p->key, 0);
  cvs_output (": ", 2);
  cvs_output (p->data, 0);
  return 0;
1325}

1327/*
* Count the number of entries on a list.  This is called via walklist.
*/
1330/*ARGSUSED*/
1331static int
1332log_count (p, closure)
  Node *p;
  void *closure;
1335{
  return 1;
1337}

1339/*
* Sort out a single date specification by narrowing down the date
* until we find the specific selected revision.
*/
1343static int
1344log_fix_singledate (p, closure)
  Node *p;
  void *closure;
1347{
  struct log_data_and_rcs *data = (struct log_data_and_rcs *) closure;
  Node *pv;
  RCSVers *vnode;
  struct datelist *holdsingle, *holddate;
  int requested;

  pv = findnode (data->rcs->versions, p->key);
  if (pv == NULL((void*)0))
error (1, 0, "missing version `%s' in RCS file `%s'",
      p->key, data->rcs->path);
  vnode = (RCSVers *) pv->data;

  /* We are only interested if this revision passes any other tests.
     Temporarily clear log_data->singledatelist to avoid confusing
     log_version_requested.  We also clear log_data->datelist,
     because rlog considers all the -d options together.  We don't
     want to reject a revision because it does not match a date pair
     if we are going to select it on the basis of the singledate.  */
  holdsingle = data->log_data->singledatelist;
  data->log_data->singledatelist = NULL((void*)0);
  holddate = data->log_data->datelist;
  data->log_data->datelist = NULL((void*)0);
  requested = log_version_requested (data->log_data, data->revlist,
		       data->rcs, vnode);
  data->log_data->singledatelist = holdsingle;
  data->log_data->datelist = holddate;

  if (requested)
  {
struct datelist *d;

/* For each single date, if this revision is before the
  specified date, but is closer than the previously selected
  revision, select it instead.  */
for (d = data->log_data->singledatelist; d != NULL((void*)0); d = d->next)
{
   if (RCS_datecmp (vnode->date, d->end) <= 0
&& (d->start == NULL((void*)0)
    || RCS_datecmp (vnode->date, d->start) > 0))
   {
if (d->start != NULL((void*)0))
    free (d->start);
d->start = xstrdup (vnode->date);
   }
}
  }

  return 0;
1396}

1398/*
* Count the number of revisions we are going to print.
*/
1401static int
1402log_count_print (p, closure)
  Node *p;
  void *closure;
1405{
  struct log_data_and_rcs *data = (struct log_data_and_rcs *) closure;
  Node *pv;

  pv = findnode (data->rcs->versions, p->key);
  if (pv == NULL((void*)0))
error (1, 0, "missing version `%s' in RCS file `%s'",
      p->key, data->rcs->path);
  if (log_version_requested (data->log_data, data->revlist, data->rcs,
	       (RCSVers *) pv->data))
return 1;
  else
return 0;
1418}

1420/*
* Print the list of changes, not including the trunk, in reverse
* order for each branch.
*/
1424static void
1425log_tree (log_data, revlist, rcs, ver)
  struct log_data *log_data;
  struct revlist *revlist;
  RCSNode *rcs;
  const char *ver;
1430{
  Node *p;
  RCSVers *vnode;

  p = findnode (rcs->versions, ver);
  if (p == NULL((void*)0))
error (1, 0, "missing version `%s' in RCS file `%s'",
      ver, rcs->path);
  vnode = (RCSVers *) p->data;
  if (vnode->next != NULL((void*)0))
log_tree (log_data, revlist, rcs, vnode->next);
  if (vnode->branches != NULL((void*)0))
  {
Node *head, *branch;

/* We need to do the branches in reverse order.  This breaks
         the List abstraction, but so does most of the branch
         manipulation in rcs.c.  */
head = vnode->branches->list;
for (branch = head->prev; branch != head; branch = branch->prev)
{
   log_abranch (log_data, revlist, rcs, branch->key);
   log_tree (log_data, revlist, rcs, branch->key);
}
  }
1455}

1457/*
* Log the changes for a branch, in reverse order.
*/
1460static void
1461log_abranch (log_data, revlist, rcs, ver)
  struct log_data *log_data;
  struct revlist *revlist;
  RCSNode *rcs;
  const char *ver;
1466{
  Node *p;
  RCSVers *vnode;

  p = findnode (rcs->versions, ver);
  if (p == NULL((void*)0))
error (1, 0, "missing version `%s' in RCS file `%s'",
      ver, rcs->path);
  vnode = (RCSVers *) p->data;
  if (vnode->next != NULL((void*)0))
log_abranch (log_data, revlist, rcs, vnode->next);
  log_version (log_data, revlist, rcs, vnode, 0);
1478}

1480/*
* Print the log output for a single version.
*/
1483static void
1484log_version (log_data, revlist, rcs, ver, trunk)
  struct log_data *log_data;
  struct revlist *revlist;
  RCSNode *rcs;
  RCSVers *ver;
  int trunk;
1490{
  Node *p;
  int year, mon, mday, hour, min, sec;
  char buf[100];
  Node *padd, *pdel;

  if (! log_version_requested (log_data, revlist, rcs, ver))
return;

  cvs_output ("----------------------------\nrevision ", 0);
  cvs_output (ver->version, 0);

  p = findnode (RCS_getlocks (rcs), ver->version);
  if (p != NULL((void*)0))
  {
cvs_output ("\tlocked by: ", 0);
cvs_output (p->data, 0);
cvs_output (";", 1);
  }

  cvs_output ("\ndate: ", 0);
  (void) sscanf (ver->date, SDATEFORM"%d.%d.%d.%d.%d.%d", &year, &mon, &mday, &hour, &min,
   &sec);
  if (year < 1900)
year += 1900;
  sprintf (buf, "%04d/%02d/%02d %02d:%02d:%02d", year, mon, mday,
    hour, min, sec);
  cvs_output (buf, 0);

  cvs_output (";  author: ", 0);
  cvs_output (ver->author, 0);

  cvs_output (";  state: ", 0);
  cvs_output (ver->state, 0);
  cvs_output (";", 1);

  if (! trunk)
  {
padd = findnode (ver->other, ";add");
pdel = findnode (ver->other, ";delete");
  }
  else if (ver->next == NULL((void*)0))
  {
padd = NULL((void*)0);
pdel = NULL((void*)0);
  }
  else
  {
Node *nextp;
RCSVers *nextver;

nextp = findnode (rcs->versions, ver->next);
if (nextp == NULL((void*)0))
   error (1, 0, "missing version `%s' in `%s'", ver->next,
   rcs->path);
nextver = (RCSVers *) nextp->data;
pdel = findnode (nextver->other, ";add");
padd = findnode (nextver->other, ";delete");
  }

  if (padd != NULL((void*)0))
  {
cvs_output ("  lines: +", 0);
cvs_output (padd->data, 0);
cvs_output (" -", 2);
cvs_output (pdel->data, 0);
cvs_output (";", 1);
  }

  p = findnode (ver->other_delta,"commitid");
  if (p != NULL((void*)0) && p->data)
  {
cvs_output ("  commitid: ", 12);
cvs_output (p->data, 0);
cvs_output (";", 1);
  }

  if (ver->branches != NULL((void*)0))
  {
cvs_output ("\nbranches:", 0);
walklist (ver->branches, log_branch, (void *) NULL((void*)0));
  }

  cvs_output ("\n", 1);

  p = findnode (ver->other, "log");
  /* The p->date == NULL case is the normal one for an empty log
     message (rcs-14 in sanity.sh).  I don't think the case where
     p->data is "" can happen (getrcskey in rcs.c checks for an
     empty string and set the value to NULL in that case).  My guess
     would be the p == NULL case would mean an RCS file which was
     missing the "log" keyword (which is illegal according to
     rcsfile.5).  */
  if (p == NULL((void*)0) || p->data == NULL((void*)0) || p->data[0] == '\0')
cvs_output ("*** empty log message ***\n", 0);
  else
  {
/* FIXME: Technically, the log message could contain a null
         byte.  */
cvs_output (p->data, 0);
if (p->data[strlen (p->data) - 1] != '\n')
   cvs_output ("\n", 1);
  }
1593}

1595/*
* Output a branch version.  This is called via walklist.
*/
1598/*ARGSUSED*/
1599static int
1600log_branch (p, closure)
  Node *p;
  void *closure;
1603{
  cvs_output ("  ", 2);
  if ((numdots (p->key) & 1) == 0)
cvs_output (p->key, 0);
  else
  {
char *f, *cp;

f = xstrdup (p->key);
cp = strrchr (f, '.');
*cp = '\0';
cvs_output (f, 0);
free (f);
  }
  cvs_output (";", 1);
  return 0;
1619}

1621/*
* Print a warm fuzzy message
*/
1624/* ARGSUSED */
1625static Dtype
1626log_dirproc (callerdat, dir, repository, update_dir, entries)
  void *callerdat;
  char *dir;
  char *repository;
  char *update_dir;
  List *entries;
1632{
  if (!isdir (dir))
return (R_SKIP_ALL);

  if (!quiet)
error (0, 0, "Logging %s", update_dir);
  return (R_PROCESS);
1639}

1641/*
* Compare versions.  This is taken from RCS compartial.
*/
1644static int
1645version_compare (v1, v2, len)
  const char *v1;
  const char *v2;
  int len;
1649{
  while (1)
  {
int d1, d2, r;

if (*v1 == '\0')
   return 1;
if (*v2 == '\0')
   return -1;

while (*v1 == '0')
   ++v1;
for (d1 = 0; isdigit ((unsigned char) v1[d1]); ++d1)
   ;

while (*v2 == '0')
   ++v2;
for (d2 = 0; isdigit ((unsigned char) v2[d2]); ++d2)
   ;

if (d1 != d2)
   return d1 < d2 ? -1 : 1;

r = memcmp (v1, v2, d1);
if (r != 0)
   return r;

--len;
if (len == 0)
   return 0;

v1 += d1;
v2 += d1;

if (*v1 == '.')
   ++v1;
if (*v2 == '.')
   ++v2;
  }
1688}