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

Bug Summary

File:	src/gnu/usr.bin/cvs/src/tag.c
Warning:	line 762, column 5 Attempt to free released memory
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 tag.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/tag.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.
* 
* Tag and Rtag
* 
* Add or delete a symbolic name to an RCS file, or a collection of RCS files.
* Tag uses the checked out revision in the current directory, rtag uses
* the modules database, if necessary.
*/

15#include "cvs.h"
16#include "savecwd.h"

18static int rtag_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);
21static int check_fileproc PROTO ((void *callerdat, struct file_info *finfo))(void *callerdat, struct file_info *finfo);
22static int check_filesdoneproc PROTO ((void *callerdat, int err,(void *callerdat, int err, char *repos, char *update_dir, List
 *entries)
		       char *repos, char *update_dir,(void *callerdat, int err, char *repos, char *update_dir, List
 *entries)
		       List *entries))(void *callerdat, int err, char *repos, char *update_dir, List
 *entries);
25static int pretag_proc PROTO((char *repository, char *filter))(char *repository, char *filter);
26static void masterlist_delproc PROTO((Node *p))(Node *p);
27static void tag_delproc PROTO((Node *p))(Node *p);
28static int pretag_list_proc PROTO((Node *p, void *closure))(Node *p, void *closure);

30static Dtype tag_dirproc PROTO ((void *callerdat, char *dir,(void *callerdat, char *dir, char *repos, char *update_dir, List
 *entries)
		 char *repos, char *update_dir,(void *callerdat, char *dir, char *repos, char *update_dir, List
 *entries)
		 List *entries))(void *callerdat, char *dir, char *repos, char *update_dir, List
 *entries);
33static int rtag_fileproc PROTO ((void *callerdat, struct file_info *finfo))(void *callerdat, struct file_info *finfo);
34static int rtag_delete PROTO((RCSNode *rcsfile))(RCSNode *rcsfile);
35static int tag_fileproc PROTO ((void *callerdat, struct file_info *finfo))(void *callerdat, struct file_info *finfo);

37static char *numtag;			/* specific revision to tag */
38static int numtag_validated = 0;
39static char *date = NULL((void*)0);
40static char *symtag;			/* tag to add or delete */
41static int delete_flag;			/* adding a tag by default */
42static int branch_mode;			/* make an automagic "branch" tag */
43static int local;			/* recursive by default */
44static int force_tag_match = 1;		/* force tag to match by default */
45static int force_tag_move;		/* don't force tag to move by default */
46static int check_uptodate;		/* no uptodate-check by default */
47static int attic_too;			/* remove tag from Attic files */
48static int is_rtag;

50struct tag_info
51{
  Ctype status;
  char *rev;
  char *tag;
  char *options;
56};

58struct master_lists
59{
  List *tlist;
61};

63static List *mtlist;
64static List *tlist;

66static const char rtag_opts[] = "+abdFflnQqRr:D:";
67static const char *const rtag_usage[] =
68{
  "Usage: %s %s [-abdFflnR] [-r rev|-D date] tag modules...\n",
  "\t-a\tClear tag from removed files that would not otherwise be tagged.\n",
  "\t-b\tMake the tag a \"branch\" tag, allowing concurrent development.\n",
  "\t-d\tDelete the given tag.\n",
  "\t-F\tMove tag if it already exists.\n",
  "\t-f\tForce a head revision match if tag/date not found.\n",
  "\t-l\tLocal directory only, not recursive.\n",
  "\t-n\tNo execution of 'tag program'.\n",
  "\t-R\tProcess directories recursively.\n",
  "\t-r rev\tExisting revision/tag.\n",
  "\t-D\tExisting date.\n",
  "(Specify the --help global option for a list of other help options)\n",
  NULL((void*)0)
82};

84static const char tag_opts[] = "+bcdFflQqRr:D:";
85static const char *const tag_usage[] =
86{
  "Usage: %s %s [-bcdFflR] [-r rev|-D date] tag [files...]\n",
  "\t-b\tMake the tag a \"branch\" tag, allowing concurrent development.\n",
  "\t-c\tCheck that working files are unmodified.\n",
  "\t-d\tDelete the given tag.\n",
  "\t-F\tMove tag if it already exists.\n",
  "\t-f\tForce a head revision match if tag/date not found.\n",
  "\t-l\tLocal directory only, not recursive.\n",
  "\t-R\tProcess directories recursively.\n",
  "\t-r rev\tExisting revision/tag.\n",
  "\t-D\tExisting date.\n",
  "(Specify the --help global option for a list of other help options)\n",
  NULL((void*)0)
99};

101int
102cvstag (argc, argv)
  int argc;
  char **argv;
105{
  int c;
  int err = 0;
  int run_module_prog = 1;

  is_rtag = (strcmp (command_name, "rtag") == 0);
  
  if (argc == -1)
usage (is_rtag ? rtag_usage : tag_usage);

  optind = 0;
  while ((c = getopt (argc, argv, is_rtag ? rtag_opts : tag_opts)) != -1)
  {
switch (c)
{
   case 'a':
attic_too = 1;
break;
   case 'b':
branch_mode = 1;
break;
   case 'c':
check_uptodate = 1;
break;
   case 'd':
delete_flag = 1;
break;
          case 'F':
force_tag_move = 1;
break;
   case 'f':
force_tag_match = 0;
break;
   case 'l':
local = 1;
break;
   case 'n':
run_module_prog = 0;
break;
   case 'Q':
   case 'q':
146#ifdef SERVER_SUPPORT1
/* The CVS 1.5 client sends these options (in addition to
   Global_option requests), so we must ignore them.  */
if (!server_active)
150#endif
    error (1, 0,
	   "-q or -Q must be specified before \"%s\"",
	   command_name);
break;
   case 'R':
local = 0;
break;
          case 'r':
              numtag = optarg;
              break;
          case 'D':
              if (date)
                  free (date);
              date = Make_Date (optarg);
              break;
   case '?':
   default:
usage (is_rtag ? rtag_usage : tag_usage);
break;
}
  }
  argc -= optind;
  argv += optind;

  if (argc < (is_rtag ? 2 : 1))
usage (is_rtag ? rtag_usage : tag_usage);
  symtag = argv[0];
  argc--;
  argv++;

  if (date && numtag)
error (1, 0, "-r and -D options are mutually exclusive");
  if (delete_flag && branch_mode)
error (0, 0, "warning: -b ignored with -d options");
  RCS_check_tag (symtag);

187#ifdef CLIENT_SUPPORT1
  if (current_parsed_root->isremote)
  {
/* We're the client side.  Fire up the remote server.  */
start_server ();

ign_setup ();

if (attic_too)
   send_arg("-a");
if (branch_mode)
   send_arg("-b");
if (check_uptodate)
   send_arg("-c");
if (delete_flag)
   send_arg("-d");
if (force_tag_move)
   send_arg("-F");
if (!force_tag_match)
   send_arg ("-f");
if (local)
   send_arg("-l");
if (!run_module_prog)
   send_arg("-n");

if (numtag)
   option_with_arg ("-r", numtag);
if (date)
   client_senddate (date);

send_arg (symtag);

if (is_rtag)
{
   int i;
   for (i = 0; i < argc; ++i)
send_arg (argv[i]);
   send_to_server ("rtag\012", 0);
}
else
{

   send_files (argc, argv, local, 0,

    /* I think the -c case is like "cvs status", in
       which we really better be correct rather than
       being fast; it is just too confusing otherwise.  */
	check_uptodate ? 0 : SEND_NO_CONTENTS4);
   send_file_names (argc, argv, SEND_EXPAND_WILD1);
   send_to_server ("tag\012", 0);
}

      return get_responses_and_close ();
  }
241#endif

  if (is_rtag)
  {
DBM *db;
int i;
db = open_module ();
for (i = 0; i < argc; i++)
{
   /* XXX last arg should be repository, but doesn't make sense here */
   history_write ('T', (delete_flag ? "D" : (numtag ? numtag : 
	   (date ? date : "A"))), symtag, argv[i], "");
   err += do_module (db, argv[i], TAG,
	      delete_flag ? "Untagging" : "Tagging",
	      rtag_proc, (char *) NULL((void*)0), 0, 0, run_module_prog,
	      0, symtag);
}
close_module (db);
  }
  else
  {
err = rtag_proc (argc + 1, argv - 1, NULL((void*)0), NULL((void*)0), NULL((void*)0), 0, 0, NULL((void*)0),
	 NULL((void*)0));
  }

  return (err);
267}

269/*
* callback proc for doing the real work of tagging
*/
272/* ARGSUSED */
273static int
274rtag_proc (argc, argv, xwhere, mwhere, mfile, shorten, local_specified,
  mname, msg)
  int argc;
  char **argv;
  char *xwhere;
  char *mwhere;
  char *mfile;
  int shorten;
  int local_specified;
  char *mname;
  char *msg;
285{
  /* 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_rtag)
  {
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.  */

if (delete_flag || attic_too || (force_tag_match && numtag))
   which = W_REPOS0x02 | W_ATTIC0x04;
else
   which = W_REPOS0x02;
repository = NULL((void*)0);
  }
  else
  {
      where = NULL((void*)0);
      which = W_LOCAL0x01;
      repository = "";
  }

  if (numtag != NULL((void*)0) && !numtag_validated)
  {
tag_check_valid (numtag, argc - 1, argv + 1, local, 0, repository);
numtag_validated = 1;
  }

  /* check to make sure they are authorized to tag all the 
     specified files in the repository */

  mtlist = getlist();
  err = start_recursion (check_fileproc, check_filesdoneproc,
                         (DIRENTPROC) NULL((void*)0), (DIRLEAVEPROC) NULL((void*)0), NULL((void*)0),
                         argc - 1, argv + 1, local, which, 0, 1,
                         where, 1);
  
  if (err)
  {
     error (1, 0, "correct the above errors first!");
  }
   
  /* It would be nice to provide consistency with respect to
     commits; however CVS lacks the infrastructure to do that (see
     Concurrency in cvs.texinfo and comment in do_recursion).  We
     do need to ensure that the RCS file info that gets read and
     cached in do_recursion isn't stale by the time we get around
     to using it to rewrite the RCS file in the callback, and this
     is the easiest way to accomplish that.  */
  lock_tree_for_write (argc - 1, argv + 1, local, which, 0);

  /* start the recursion processor */
  err = start_recursion (is_rtag ? rtag_fileproc : tag_fileproc,
	   (FILESDONEPROC) NULL((void*)0), tag_dirproc,
	   (DIRLEAVEPROC) NULL((void*)0), NULL((void*)0), argc - 1, argv + 1,
	   local, which, 0, 0, where, 1);
  Lock_Cleanup ();
  dellist (&mtlist);
  if (where != NULL((void*)0))
free (where);
  return (err);
402}

404/* check file that is to be tagged */
405/* All we do here is add it to our list */

407static int
408check_fileproc (callerdat, finfo)
  void *callerdat;
  struct file_info *finfo;
411{
  char *xdir;
  Node *p;
  Vers_TS *vers;
  
  if (check_uptodate) 
  {
Ctype status = Classify_File (finfo, (char *) NULL((void*)0), (char *) NULL((void*)0),
		      (char *) NULL((void*)0), 1, 0, &vers, 0);
if ((status != T_UPTODATE) && (status != T_CHECKOUT) &&
   (status != T_PATCH))
{
   error (0, 0, "%s is locally modified", finfo->fullname);
   freevers_ts (&vers);
   return (1);
}
  }
  else
vers = Version_TS (finfo, NULL((void*)0), NULL((void*)0), NULL((void*)0), 0, 0);
  
  if (finfo->update_dir[0] == '\0')
xdir = ".";
  else
xdir = finfo->update_dir;
  if ((p = findnode (mtlist, xdir)) != NULL((void*)0))
  {
tlist = ((struct master_lists *) p->data)->tlist;
  }
  else
  {
struct master_lists *ml;
      
tlist = getlist ();
p = getnode ();
p->key = xstrdup (xdir);
p->type = UPDATE;
ml = (struct master_lists *)
   xmalloc (sizeof (struct master_lists));
ml->tlist = tlist;
p->data = (char *) ml;
p->delproc = masterlist_delproc;
(void) addnode (mtlist, p);
  }
  /* do tlist */
  p = getnode ();
  p->key = xstrdup (finfo->file);
  p->type = UPDATE;
  p->delproc = tag_delproc;
  if (vers->srcfile == NULL((void*)0))
  {
      if (!really_quiet)
   error (0, 0, "nothing known about %s", finfo->file);
freevers_ts (&vers);
freenode (p);
return (1);
  }

  /* Here we duplicate the calculation in tag_fileproc about which
     version we are going to tag.  There probably are some subtle races
     (e.g. numtag is "foo" which gets moved between here and
     tag_fileproc).  */
  if (!is_rtag && numtag == NULL((void*)0) && date == NULL((void*)0))
p->data = xstrdup (vers->vn_user);
  else
p->data = RCS_getversion (vers->srcfile, numtag, date,
		  force_tag_match, NULL((void*)0));

  if (p->data != NULL((void*)0))
  {
      int addit = 1;
      char *oversion;
      
      oversion = RCS_getversion (vers->srcfile, symtag, (char *) NULL((void*)0), 1,
		   (int *) NULL((void*)0));
      if (oversion == NULL((void*)0)) 
      {
          if (delete_flag)
          {
/* Deleting a tag which did not exist is a noop and
   should not be logged.  */
              addit = 0;
          }
      }
else if (delete_flag)
{
   free (p->data);
   p->data = xstrdup (oversion);
}
      else if (strcmp(oversion, p->data) == 0)
      {
          addit = 0;
      }
      else if (!force_tag_move)
      {
          addit = 0;
      }
      if (oversion != NULL((void*)0))
      {
          free(oversion);
      }
      if (!addit)
      {
          free(p->data);
          p->data = NULL((void*)0);
      }
  }
  freevers_ts (&vers);
  (void) addnode (tlist, p);
  return (0);
520}
                       
522static int
523check_filesdoneproc (callerdat, err, repos, update_dir, entries)
  void *callerdat;
  int err;
  char *repos;
  char *update_dir;
  List *entries;
529{
  int n;
  Node *p;

  p = findnode(mtlist, update_dir);
  if (p != NULL((void*)0))
  {
      tlist = ((struct master_lists *) p->data)->tlist;
  }
  else
  {
      tlist = (List *) NULL((void*)0);
  }
  if ((tlist == NULL((void*)0)) || (tlist->list->next == tlist->list))
  {
      return (err);
  }
  if ((n = Parse_Info(CVSROOTADM_TAGINFO"taginfo", repos, pretag_proc, 1)) > 0)
  {
      error (0, 0, "Pre-tag check failed");
      err += n;
  }
  return (err);
552}

554static int
555pretag_proc(repository, filter)
  char *repository;
  char *filter;
558{
  if (filter[0] == '/')
  {
      char *s, *cp;

      s = xstrdup(filter);
      for (cp=s; *cp; cp++)
      {
          if (isspace ((unsigned char) *cp))
          {
              *cp = '\0';
              break;
          }
      }
      if (!isfile(s))
      {
          error (0, errno(*__errno()), "cannot find pre-tag filter '%s'", s);
          free(s);
          return (1);
      }
      free(s);
  }
  run_setup (filter);
  run_arg (symtag);
  run_arg (delete_flag ? "del" : force_tag_move ? "mov" : "add");
  run_arg (repository);
  walklist(tlist, pretag_list_proc, NULL((void*)0));
  return (run_exec (RUN_TTY(char *)0, RUN_TTY(char *)0, RUN_TTY(char *)0, RUN_NORMAL0x0000));
586}

588static void
589masterlist_delproc(p)
  Node *p;
591{
  struct master_lists *ml;

  ml = (struct master_lists *)p->data;
  dellist(&ml->tlist);
  free(ml);
  return;
598}

600static void
601tag_delproc(p)
  Node *p;
603{
  if (p->data != NULL((void*)0))
  {
      free(p->data);
      p->data = NULL((void*)0);
  }
  return;
610}

612static int
613pretag_list_proc(p, closure)
  Node *p;
  void *closure;
616{
  if (p->data != NULL((void*)0))
  {
      run_arg(p->key);
      run_arg(p->data);
  }
  return (0);
623}


626/*
* Called to rtag a particular file, as appropriate with the options that were
* set above.
*/
630/* ARGSUSED */
631static int
632rtag_fileproc (callerdat, finfo)
  void *callerdat;
  struct file_info *finfo;
635{
  RCSNode *rcsfile;
  char *version, *rev;
  int retcode = 0;

  /* find the parsed RCS data */
  if ((rcsfile = finfo->rcs) == NULL((void*)0))
1
Assuming the condition is false→
2
←
Taking false branch→
return (1);

  /*
   * For tagging an RCS file which is a symbolic link, you'd best be
   * running with RCS 5.6, since it knows how to handle symbolic links
   * correctly without breaking your link!
   */

  if (delete_flag)
3
←
Assuming 'delete_flag' is 0→
4
←
Taking false branch→
return (rtag_delete (rcsfile));

  /*
   * If we get here, we are adding a tag.  But, if -a was specified, we
   * need to check to see if a -r or -D option was specified.  If neither
   * was specified and the file is in the Attic, remove the tag.
   */
  if (attic_too && (!numtag && !date))
5
←
Assuming 'attic_too' is 0→
  {
if ((rcsfile->flags & VALID0x1) && (rcsfile->flags & INATTIC0x2))
   return (rtag_delete (rcsfile));
  }

  version = RCS_getversion (rcsfile, numtag, date, force_tag_match,
	      (int *) NULL((void*)0));
  if (version == NULL((void*)0))
6
←
Assuming 'version' is not equal to NULL→
7
←
Taking false branch→
  {
/* If -a specified, clean up any old tags */
if (attic_too)
   (void) rtag_delete (rcsfile);

if (!quiet && !force_tag_match)
{
   error (0, 0, "cannot find tag `%s' in `%s'",
   numtag ? numtag : "head", rcsfile->path);
   return (1);
}
return (0);
  }
  if (numtag
8
←
Assuming 'numtag' is null→
&& isdigit ((unsigned char) *numtag)
&& strcmp (numtag, version) != 0)
  {

/*
* We didn't find a match for the numeric tag that was specified, but
* that's OK.  just pass the numeric tag on to rcs, to be tagged as
* specified.  Could get here if one tried to tag "1.1.1" and there
* was a 1.1.1 branch with some head revision.  In this case, we want
* the tag to reference "1.1.1" and not the revision at the head of
* the branch.  Use a symbolic tag for that.
*/
rev = branch_mode ? RCS_magicrev (rcsfile, version) : numtag;
retcode = RCS_settag(rcsfile, symtag, numtag);
if (retcode == 0)
   RCS_rewrite (rcsfile, NULL((void*)0), NULL((void*)0));
  }
  else
  {
char *oversion;
     
/*
* As an enhancement for the case where a tag is being re-applied to
* a large body of a module, make one extra call to RCS_getversion to
* see if the tag is already set in the RCS file.  If so, check to
* see if it needs to be moved.  If not, do nothing.  This will
* likely save a lot of time when simply moving the tag to the
* "current" head revisions of a module -- which I have found to be a
* typical tagging operation.
*/
rev = branch_mode ? RCS_magicrev (rcsfile, version) : version;
9
←
Assuming 'branch_mode' is 0→
10
←
'?' condition is false→
oversion = RCS_getversion (rcsfile, symtag, (char *) NULL((void*)0), 1,
		   (int *) NULL((void*)0));
if (oversion != NULL((void*)0))
11
←
Assuming 'oversion' is equal to NULL→
12
←
Taking false branch→
{
   int isbranch = RCS_nodeisbranch (finfo->rcs, symtag);

   /*
    * if versions the same and neither old or new are branches don't
    * have to do anything
    */
   if (strcmp (version, oversion) == 0 && !branch_mode && !isbranch)
   {
free (oversion);
free (version);
return (0);
   }
 
   if (!force_tag_move)
   {
/* we're NOT going to move the tag */
(void) printf ("W %s", finfo->fullname);

(void) printf (" : %s already exists on %s %s", 
	       symtag, isbranch ? "branch" : "version",
	       oversion);
(void) printf (" : NOT MOVING tag to %s %s\n", 
	       branch_mode ? "branch" : "version", rev);
free (oversion);
free (version);
return (0);
   }
   free (oversion);
}
retcode = RCS_settag(rcsfile, symtag, rev);
if (retcode == 0)
13
←
Assuming 'retcode' is equal to 0→
14
←
Taking true branch→
   RCS_rewrite (rcsfile, NULL((void*)0), NULL((void*)0));
  }

  if (retcode14.1
'retcode' is equal to 0
 != 0)
15
←
Taking false branch→
  {
error (1, retcode == -1 ? errno(*__errno()) : 0,
      "failed to set tag `%s' to revision `%s' in `%s'",
      symtag, rev, rcsfile->path);
      if (branch_mode)
   free (rev);
      free (version);
      return (1);
  }
  if (branch_mode)
16
←
Assuming 'branch_mode' is not equal to 0→
17
←
Taking true branch→
free (rev);
18
←
Memory is released→
  free (version);
19
←
Attempt to free released memory
  return (0);
764}

766/*
* If -d is specified, "force_tag_match" is set, so that this call to
* RCS_getversion() will return a NULL version string if the symbolic
* tag does not exist in the RCS file.
* 
* If the -r flag was used, numtag is set, and we only delete the
* symtag from files that have numtag.
* 
* This is done here because it's MUCH faster than just blindly calling
* "rcs" to remove the tag... trust me.
*/
777static int
778rtag_delete (rcsfile)
  RCSNode *rcsfile;
780{
  char *version;
  int retcode;

  if (numtag)
  {
version = RCS_getversion (rcsfile, numtag, (char *) NULL((void*)0), 1,
		  (int *) NULL((void*)0));
if (version == NULL((void*)0))
   return (0);
free (version);
  }

  version = RCS_getversion (rcsfile, symtag, (char *) NULL((void*)0), 1,
	      (int *) NULL((void*)0));
  if (version == NULL((void*)0))
return (0);
  free (version);

  if ((retcode = RCS_deltag(rcsfile, symtag)) != 0)
  {
if (!quiet)
   error (0, retcode == -1 ? errno(*__errno()) : 0,
   "failed to remove tag `%s' from `%s'", symtag,
   rcsfile->path);
return (1);
  }
  RCS_rewrite (rcsfile, NULL((void*)0), NULL((void*)0));
  return (0);
809}


812/*
* Called to tag a particular file (the currently checked out version is
* tagged with the specified tag - or the specified tag is deleted).
*/
816/* ARGSUSED */
817static int
818tag_fileproc (callerdat, finfo)
  void *callerdat;
  struct file_info *finfo;
821{
  char *version, *oversion;
  char *nversion = NULL((void*)0);
  char *rev;
  Vers_TS *vers;
  int retcode = 0;

  vers = Version_TS (finfo, NULL((void*)0), NULL((void*)0), NULL((void*)0), 0, 0);

  if ((numtag != NULL((void*)0)) || (date != NULL((void*)0)))
  {
      nversion = RCS_getversion(vers->srcfile,
                                numtag,
                                date,
                                force_tag_match,
		  (int *) NULL((void*)0));
      if (nversion == NULL((void*)0))
      {
   freevers_ts (&vers);
          return (0);
      }
  }
  if (delete_flag)
  {

/*
* If -d is specified, "force_tag_match" is set, so that this call to
* RCS_getversion() will return a NULL version string if the symbolic
* tag does not exist in the RCS file.
* 
* This is done here because it's MUCH faster than just blindly calling
* "rcs" to remove the tag... trust me.
*/

version = RCS_getversion (vers->srcfile, symtag, (char *) NULL((void*)0), 1,
		  (int *) NULL((void*)0));
if (version == NULL((void*)0) || vers->srcfile == NULL((void*)0))
{
   freevers_ts (&vers);
   return (0);
}
free (version);

if ((retcode = RCS_deltag(vers->srcfile, symtag)) != 0) 
{
   if (!quiet)
error (0, retcode == -1 ? errno(*__errno()) : 0,
       "failed to remove tag %s from %s", symtag,
       vers->srcfile->path);
   freevers_ts (&vers);
   return (1);
}
RCS_rewrite (vers->srcfile, NULL((void*)0), NULL((void*)0));

/* warm fuzzies */
if (!really_quiet)
{
   cvs_output ("D ", 2);
   cvs_output (finfo->fullname, 0);
   cvs_output ("\n", 1);
}

freevers_ts (&vers);
return (0);
  }

  /*
   * If we are adding a tag, we need to know which version we have checked
   * out and we'll tag that version.
   */
  if (nversion == NULL((void*)0))
  {
      version = vers->vn_user;
  }
  else
  {
      version = nversion;
  }
  if (version == NULL((void*)0))
  {
freevers_ts (&vers);
return (0);
  }
  else if (strcmp (version, "0") == 0)
  {
if (!quiet)
   error (0, 0, "couldn't tag added but un-commited file `%s'", finfo->file);
freevers_ts (&vers);
return (0);
  }
  else if (version[0] == '-')
  {
if (!quiet)
   error (0, 0, "skipping removed but un-commited file `%s'", finfo->file);
freevers_ts (&vers);
return (0);
  }
  else if (vers->srcfile == NULL((void*)0))
  {
if (!quiet)
   error (0, 0, "cannot find revision control file for `%s'", finfo->file);
freevers_ts (&vers);
return (0);
  }

  /*
   * As an enhancement for the case where a tag is being re-applied to a
   * large number of files, make one extra call to RCS_getversion to see
   * if the tag is already set in the RCS file.  If so, check to see if it
   * needs to be moved.  If not, do nothing.  This will likely save a lot of
   * time when simply moving the tag to the "current" head revisions of a
   * module -- which I have found to be a typical tagging operation.
   */
  rev = branch_mode ? RCS_magicrev (vers->srcfile, version) : version;
  oversion = RCS_getversion (vers->srcfile, symtag, (char *) NULL((void*)0), 1,
	       (int *) NULL((void*)0));
  if (oversion != NULL((void*)0))
  {
int isbranch = RCS_nodeisbranch (finfo->rcs, symtag);

/*
* if versions the same and neither old or new are branches don't have 
* to do anything
*/
if (strcmp (version, oversion) == 0 && !branch_mode && !isbranch)
{
   free (oversion);
   if (branch_mode)
free (rev);
   freevers_ts (&vers);
   return (0);
}

if (!force_tag_move)
{
   /* we're NOT going to move the tag */
   cvs_output ("W ", 2);
   cvs_output (finfo->fullname, 0);
   cvs_output (" : ", 0);
   cvs_output (symtag, 0);
   cvs_output (" already exists on ", 0);
   cvs_output (isbranch ? "branch" : "version", 0);
   cvs_output (" ", 0);
   cvs_output (oversion, 0);
   cvs_output (" : NOT MOVING tag to ", 0);
   cvs_output (branch_mode ? "branch" : "version", 0);
   cvs_output (" ", 0);
   cvs_output (rev, 0);
   cvs_output ("\n", 1);
   free (oversion);
   if (branch_mode)
free (rev);
   freevers_ts (&vers);
   return (0);
}
free (oversion);
  }

  if ((retcode = RCS_settag(vers->srcfile, symtag, rev)) != 0)
  {
error (1, retcode == -1 ? errno(*__errno()) : 0,
      "failed to set tag %s to revision %s in %s",
      symtag, rev, vers->srcfile->path);
if (branch_mode)
   free (rev);
freevers_ts (&vers);
return (1);
  }
  if (branch_mode)
free (rev);
  RCS_rewrite (vers->srcfile, NULL((void*)0), NULL((void*)0));

  /* more warm fuzzies */
  if (!really_quiet)
  {
cvs_output ("T ", 2);
cvs_output (finfo->fullname, 0);
cvs_output ("\n", 1);
  }

  if (nversion != NULL((void*)0))
  {
      free (nversion);
  }
  freevers_ts (&vers);
  return (0);
1007}

1009/*
* Print a warm fuzzy message
*/
1012/* ARGSUSED */
1013static Dtype
1014tag_dirproc (callerdat, dir, repos, update_dir, entries)
  void *callerdat;
  char *dir;
  char *repos;
  char *update_dir;
  List *entries;
1020{

  if (ignore_directory (update_dir))
  {
/* print the warm fuzzy message */
if (!quiet)
 error (0, 0, "Ignoring %s", update_dir);
      return R_SKIP_ALL;
  }

  if (!quiet)
error (0, 0, "%s %s", delete_flag ? "Untagging" : "Tagging", update_dir);
  return (R_PROCESS);
1033}
1034
1035/* Code relating to the val-tags file.  Note that this file has no way
 of knowing when a tag has been deleted.  The problem is that there
 is no way of knowing whether a tag still exists somewhere, when we
 delete it some places.  Using per-directory val-tags files (in
 CVSREP) might be better, but that might slow down the process of
 verifying that a tag is correct (maybe not, for the likely cases,
 if carefully done), and/or be harder to implement correctly.  */

1043struct val_args {
  char *name;
  int found;
1046};

1048static int val_fileproc PROTO ((void *callerdat, struct file_info *finfo))(void *callerdat, struct file_info *finfo);

1050static int
1051val_fileproc (callerdat, finfo)
  void *callerdat;
  struct file_info *finfo;
1054{
  RCSNode *rcsdata;
  struct val_args *args = (struct val_args *)callerdat;
  char *tag;

  if ((rcsdata = finfo->rcs) == NULL((void*)0))
/* Not sure this can happen, after all we passed only
  W_REPOS | W_ATTIC.  */
return 0;

  tag = RCS_gettag (rcsdata, args->name, 1, (int *) NULL((void*)0));
  if (tag != NULL((void*)0))
  {
/* FIXME: should find out a way to stop the search at this point.  */
args->found = 1;
free (tag);
  }
  return 0;
1072}

1074static Dtype val_direntproc PROTO ((void *, char *, char *, char *, List *))(void *, char *, char *, char *, List *);

1076static Dtype
1077val_direntproc (callerdat, dir, repository, update_dir, entries)
  void *callerdat;
  char *dir;
  char *repository;
  char *update_dir;
  List *entries;
1083{
  /* This is not quite right--it doesn't get right the case of "cvs
     update -d -r foobar" where foobar is a tag which exists only in
     files in a directory which does not exist yet, but which is
     about to be created.  */
  if (isdir (dir))
return R_PROCESS;
  return R_SKIP_ALL;
1091}

1093/* Check to see whether NAME is a valid tag.  If so, return.  If not
 print an error message and exit.  ARGC, ARGV, LOCAL, and AFLAG specify
 which files we will be operating on.

 REPOSITORY is the repository if we need to cd into it, or NULL if
 we are already there, or "" if we should do a W_LOCAL recursion.
 Sorry for three cases, but the "" case is needed in case the
 working directories come from diverse parts of the repository, the
 NULL case avoids an unneccesary chdir, and the non-NULL, non-""
 case is needed for checkout, where we don't want to chdir if the
 tag is found in CVSROOTADM_VALTAGS, but there is not (yet) any
 local directory.  */
1105void
1106tag_check_valid (name, argc, argv, local, aflag, repository)
  char *name;
  int argc;
  char **argv;
  int local;
  int aflag;
  char *repository;
1113{
  DBM *db;
  char *valtags_filename;
  int err;
  int nowrite = 0;
  datum mytag;
  struct val_args the_val_args;
  struct saved_cwd cwd;
  int which;

  /* Numeric tags require only a syntactic check.  */
  if (isdigit ((unsigned char) name[0]))
  {
char *p;
for (p = name; *p != '\0'; ++p)
{
   if (!(isdigit ((unsigned char) *p) || *p == '.'))
error (1, 0, "\
1131Numeric tag %s contains characters other than digits and '.'", name);
}
return;
  }

  /* Special tags are always valid.  */
  if (strcmp (name, TAG_BASE"BASE") == 0
|| strcmp (name, TAG_HEAD"HEAD") == 0)
return;

  /* FIXME: This routine doesn't seem to do any locking whatsoever
     (and it is called from places which don't have locks in place).
     If two processes try to write val-tags at the same time, it would
     seem like we are in trouble.  */

  mytag.dptr = name;
  mytag.dsize = strlen (name);

  valtags_filename = xmalloc (strlen (current_parsed_root->directory)
		+ sizeof CVSROOTADM"CVSROOT"
		+ sizeof CVSROOTADM_VALTAGS"val-tags" + 3);
  sprintf (valtags_filename, "%s/%s/%s", current_parsed_root->directory,
			   CVSROOTADM"CVSROOT", CVSROOTADM_VALTAGS"val-tags");
  db = dbm_openmydbm_open (valtags_filename, O_RDWR0x0002, 0666);
  if (db == NULL((void*)0))
  {
if (!existence_error (errno)(((*__errno())) == 2))
{
   error (0, errno(*__errno()), "warning: cannot open %s read/write",
   valtags_filename);
   db = dbm_openmydbm_open (valtags_filename, O_RDONLY0x0000, 0666);
   if (db != NULL((void*)0))
nowrite = 1;
   else if (!existence_error (errno)(((*__errno())) == 2))
error (1, errno(*__errno()), "cannot read %s", valtags_filename);
}
/* If the file merely fails to exist, we just keep going and create
  it later if need be.  */
  }
  if (db != NULL((void*)0))
  {
datum val;

val = dbm_fetchmydbm_fetch (db, mytag);
if (val.dptr != NULL((void*)0))
{
   /* Found.  The tag is valid.  */
   dbm_closemydbm_close (db);
   free (valtags_filename);
   return;
}
/* FIXME: should check errors somehow (add dbm_error to myndbm.c?).  */
  }

  /* We didn't find the tag in val-tags, so look through all the RCS files
     to see whether it exists there.  Yes, this is expensive, but there
     is no other way to cope with a tag which might have been created
     by an old version of CVS, from before val-tags was invented.

     Since we need this code anyway, we also use it to create
     entries in val-tags in general (that is, the val-tags entry
     will get created the first time the tag is used, not when the
     tag is created).  */

  the_val_args.name = name;
  the_val_args.found = 0;

  which = W_REPOS0x02 | W_ATTIC0x04;

  if (repository != NULL((void*)0))
  {
if (repository[0] == '\0')
   which |= W_LOCAL0x01;
else
{
   if (save_cwd (&cwd))
error_exit ();
   if ( CVS_CHDIRchdir (repository) < 0)
error (1, errno(*__errno()), "cannot change to %s directory", repository);
}
  }

  err = start_recursion (val_fileproc, (FILESDONEPROC) NULL((void*)0),
	   val_direntproc, (DIRLEAVEPROC) NULL((void*)0),
	   (void *)&the_val_args,
	   argc, argv, local, which, aflag,
	   1, NULL((void*)0), 1);
  if (repository != NULL((void*)0) && repository[0] != '\0')
  {
if (restore_cwd (&cwd, NULL((void*)0)))
   exit (EXIT_FAILURE1);
free_cwd (&cwd);
  }

  if (!the_val_args.found)
error (1, 0, "no such tag %s", name);
  else
  {
/* The tags is valid but not mentioned in val-tags.  Add it.  */
datum value;

if (noexec || nowrite)
{
   if (db != NULL((void*)0))
dbm_closemydbm_close (db);
   free (valtags_filename);
   return;
}

if (db == NULL((void*)0))
{
   mode_t omask;
   omask = umask (cvsumask);
   db = dbm_openmydbm_open (valtags_filename, O_RDWR0x0002 | O_CREAT0x0200 | O_TRUNC0x0400, 0666);
   (void) umask (omask);

   if (db == NULL((void*)0))
   {
error (0, errno(*__errno()), "warning: cannot create %s", valtags_filename);
free (valtags_filename);
return;
   }
}
value.dptr = "y";
value.dsize = 1;
if (dbm_storemydbm_store (db, mytag, value, DBM_REPLACE1) < 0)
   error (0, errno(*__errno()), "cannot store %s into %s", name,
   valtags_filename);
dbm_closemydbm_close (db);
  }
  free (valtags_filename);
1262}

1264/*
* Check whether a join tag is valid.  This is just like
* tag_check_valid, but we must stop before the colon if there is one.
*/

1269void
1270tag_check_valid_join (join_tag, argc, argv, local, aflag, repository)
   char *join_tag;
   int argc;
   char **argv;
   int local;
   int aflag;
   char *repository;
1277{
  char *c, *s;

  c = xstrdup (join_tag);
  s = strchr (c, ':');
  if (s != NULL((void*)0))
  {
      if (isdigit ((unsigned char) join_tag[0]))
   error (1, 0,
   "Numeric join tag %s may not contain a date specifier",
   join_tag);

      *s = '\0';
/* hmmm...  I think it makes sense to allow -j:<date>, but
* for now this fixes a bug where CVS just spins and spins (I
* think in the RCS code) looking for a zero length tag.
*/
if (!*c)
   error (1, 0,
   "argument to join may not contain a date specifier without a tag");
  }

  tag_check_valid (c, argc, argv, local, aflag, repository);

  free (c);
1302}