#include "cvs.h"
#include "savecwd.h"
static int rtag_proc PROTO((int argc, char **argv, char *xwhere,
char *mwhere, char *mfile, int shorten,
int local_specified, char *mname, char *msg));
static int check_fileproc PROTO ((void *callerdat, struct file_info *finfo));
static int check_filesdoneproc PROTO ((void *callerdat, int err,
const char *repos,
const char *update_dir,
List *entries));
static int pretag_proc PROTO((const char *repository, const char *filter));
static void masterlist_delproc PROTO((Node *p));
static void tag_delproc PROTO((Node *p));
static int pretag_list_proc PROTO((Node *p, void *closure));
static Dtype tag_dirproc PROTO ((void *callerdat, const char *dir,
const char *repos, const char *update_dir,
List *entries));
static int rtag_fileproc PROTO ((void *callerdat, struct file_info *finfo));
static int rtag_delete PROTO((RCSNode *rcsfile));
static int tag_fileproc PROTO ((void *callerdat, struct file_info *finfo));
static char *numtag;
static int numtag_validated = 0;
static char *date = NULL;
static char *symtag;
static int delete_flag;
static int branch_mode;
static int disturb_branch_tags = 0;
static int force_tag_match = 1;
static int force_tag_move;
static int check_uptodate;
static int attic_too;
static int is_rtag;
struct tag_info
{
Ctype status;
char *rev;
char *tag;
char *options;
};
struct master_lists
{
List *tlist;
};
static List *mtlist;
static List *tlist;
static const char rtag_opts[] = "+aBbdFflnQqRr:D:";
static const char *const rtag_usage[] =
{
"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-B\tAllows -F and -d to disturb branch tags. Use with extreme care.\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
};
static const char tag_opts[] = "+BbcdFflQqRr:D:";
static const char *const tag_usage[] =
{
"Usage: %s %s [-bcdFflR] [-r rev|-D date] tag [files...]\n",
"\t-b\tMake the tag a \"branch\" tag, allowing concurrent development.\n",
"\t-B\tAllows -F and -d to disturb branch tags. Use with extreme care.\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
};
int
cvstag (argc, argv)
int argc;
char **argv;
{
int local = 0;
int c;
int err = 0;
int run_module_prog = 1;
is_rtag = (strcmp (cvs_cmd_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 'B':
disturb_branch_tags = 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':
#ifdef SERVER_SUPPORT
if (!server_active)
#endif
error (1, 0,
"-q or -Q must be specified before \"%s\"",
cvs_cmd_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);
#ifdef CLIENT_SUPPORT
if (current_parsed_root->isremote)
{
start_server ();
ign_setup ();
if (attic_too)
send_arg("-a");
if (branch_mode)
send_arg("-b");
if (disturb_branch_tags)
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 ("--");
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,
check_uptodate ? 0 : SEND_NO_CONTENTS);
send_file_names (argc, argv, SEND_EXPAND_WILD);
send_to_server ("tag\012", 0);
}
return get_responses_and_close ();
}
#endif
if (is_rtag)
{
DBM *db;
int i;
db = open_module ();
for (i = 0; i < argc; i++)
{
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, 0, local, run_module_prog,
0, symtag);
}
close_module (db);
}
else
{
err = rtag_proc (argc + 1, argv - 1, NULL, NULL, NULL, 0, local, NULL,
NULL);
}
return (err);
}
static int
rtag_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;
{
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 ? 0 : strlen (mfile) + 1) + 2);
(void) sprintf (repository, "%s/%s", current_parsed_root->directory, argv[0]);
where = xmalloc (strlen (argv[0]) + (mfile == NULL ? 0 : strlen (mfile) + 1)
+ 1);
(void) strcpy (where, argv[0]);
if (mfile != NULL)
{
char *cp;
char *path;
if ((cp = strrchr (mfile, '/')) != NULL)
{
*cp = '\0';
(void) strcat (repository, "/");
(void) strcat (repository, mfile);
(void) strcat (where, "/");
(void) strcat (where, mfile);
mfile = cp + 1;
}
path = xmalloc (strlen (repository) + strlen (mfile) + 5);
(void) sprintf (path, "%s/%s", repository, mfile);
if (isdir (path))
{
(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);
}
if ( CVS_CHDIR (repository) < 0)
{
error (0, errno, "cannot chdir to %s", repository);
free (repository);
free (where);
return (1);
}
if (delete_flag || attic_too || (force_tag_match && numtag))
which = W_REPOS | W_ATTIC;
else
which = W_REPOS;
}
else
{
where = NULL;
which = W_LOCAL;
repository = "";
}
if (numtag != NULL && !numtag_validated)
{
tag_check_valid (numtag, argc - 1, argv + 1, local_specified, 0, repository);
numtag_validated = 1;
}
mtlist = getlist();
err = start_recursion (check_fileproc, check_filesdoneproc,
(DIRENTPROC) NULL, (DIRLEAVEPROC) NULL, NULL,
argc - 1, argv + 1, local_specified, which, 0,
CVS_LOCK_READ, where, 1, repository);
if (err)
{
error (1, 0, "correct the above errors first!");
}
err = start_recursion (is_rtag ? rtag_fileproc : tag_fileproc,
(FILESDONEPROC) NULL, tag_dirproc,
(DIRLEAVEPROC) NULL, NULL, argc - 1, argv + 1,
local_specified, which, 0, CVS_LOCK_WRITE, where, 1,
repository);
if ( which & W_REPOS ) free ( repository );
dellist (&mtlist);
if (where != NULL)
free (where);
return (err);
}
static int
check_fileproc (callerdat, finfo)
void *callerdat;
struct file_info *finfo;
{
const char *xdir;
Node *p;
Vers_TS *vers;
if (check_uptodate)
{
switch (Classify_File (finfo, (char *) NULL, (char *) NULL,
(char *) NULL, 1, 0, &vers, 0))
{
case T_UPTODATE:
case T_CHECKOUT:
case T_PATCH:
case T_REMOVE_ENTRY:
break;
case T_UNKNOWN:
case T_CONFLICT:
case T_NEEDS_MERGE:
case T_MODIFIED:
case T_ADDED:
case T_REMOVED:
default:
error (0, 0, "%s is locally modified", finfo->fullname);
freevers_ts (&vers);
return (1);
}
}
else
vers = Version_TS (finfo, NULL, NULL, NULL, 0, 0);
if (finfo->update_dir[0] == '\0')
xdir = ".";
else
xdir = finfo->update_dir;
if ((p = findnode (mtlist, xdir)) != NULL)
{
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 = ml;
p->delproc = masterlist_delproc;
(void) addnode (mtlist, p);
}
p = getnode ();
p->key = xstrdup (finfo->file);
p->type = UPDATE;
p->delproc = tag_delproc;
if (vers->srcfile == NULL)
{
if (!really_quiet)
error (0, 0, "nothing known about %s", finfo->file);
freevers_ts (&vers);
freenode (p);
return (1);
}
if (!is_rtag && numtag == NULL && date == NULL)
p->data = xstrdup (vers->vn_user);
else
p->data = RCS_getversion (vers->srcfile, numtag, date,
force_tag_match, NULL);
if (p->data != NULL)
{
int addit = 1;
char *oversion;
oversion = RCS_getversion (vers->srcfile, symtag, (char *) NULL, 1,
(int *) NULL);
if (oversion == NULL)
{
if (delete_flag)
{
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)
{
free(oversion);
}
if (!addit)
{
free(p->data);
p->data = NULL;
}
}
freevers_ts (&vers);
(void) addnode (tlist, p);
return (0);
}
static int
check_filesdoneproc (callerdat, err, repos, update_dir, entries)
void *callerdat;
int err;
const char *repos;
const char *update_dir;
List *entries;
{
int n;
Node *p;
p = findnode(mtlist, update_dir);
if (p != NULL)
{
tlist = ((struct master_lists *) p->data)->tlist;
}
else
{
tlist = (List *) NULL;
}
if ((tlist == NULL) || (tlist->list->next == tlist->list))
{
return (err);
}
if ((n = Parse_Info(CVSROOTADM_TAGINFO, repos, pretag_proc, 1)) > 0)
{
error (0, 0, "Pre-tag check failed");
err += n;
}
return (err);
}
static int
pretag_proc (repository, filter)
const char *repository;
const char *filter;
{
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, "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);
return (run_exec (RUN_TTY, RUN_TTY, RUN_TTY, RUN_NORMAL));
}
static void
masterlist_delproc(p)
Node *p;
{
struct master_lists *ml = p->data;
dellist(&ml->tlist);
free(ml);
return;
}
static void
tag_delproc(p)
Node *p;
{
if (p->data != NULL)
{
free(p->data);
p->data = NULL;
}
return;
}
static int
pretag_list_proc(p, closure)
Node *p;
void *closure;
{
if (p->data != NULL)
{
run_arg(p->key);
run_arg(p->data);
}
return (0);
}
static int
rtag_fileproc (callerdat, finfo)
void *callerdat;
struct file_info *finfo;
{
RCSNode *rcsfile;
char *version, *rev;
int retcode = 0;
if ((rcsfile = finfo->rcs) == NULL)
return (1);
if (delete_flag)
return (rtag_delete (rcsfile));
if (attic_too && (!numtag && !date))
{
if ((rcsfile->flags & VALID) && (rcsfile->flags & INATTIC))
return (rtag_delete (rcsfile));
}
version = RCS_getversion (rcsfile, numtag, date, force_tag_match,
(int *) NULL);
if (version == NULL)
{
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
&& isdigit ((unsigned char) *numtag)
&& strcmp (numtag, version) != 0)
{
rev = branch_mode ? RCS_magicrev (rcsfile, version) : numtag;
retcode = RCS_settag(rcsfile, symtag, numtag);
if (retcode == 0)
RCS_rewrite (rcsfile, NULL, NULL);
}
else
{
char *oversion;
rev = branch_mode ? RCS_magicrev (rcsfile, version) : version;
oversion = RCS_getversion (rcsfile, symtag, (char *) NULL, 1,
(int *) NULL);
if (oversion != NULL)
{
int isbranch = RCS_nodeisbranch (finfo->rcs, symtag);
if (strcmp (version, oversion) == 0 && !branch_mode && !isbranch)
{
free (oversion);
free (version);
return (0);
}
if (!force_tag_move)
{
(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);
if (branch_mode) free(rev);
return (0);
}
else
if ((isbranch && !disturb_branch_tags) ||
(!isbranch && disturb_branch_tags))
{
error(0,0, "%s: Not moving %s tag `%s' from %s to %s%s.",
finfo->fullname,
isbranch ? "branch" : "non-branch",
symtag, oversion, rev,
isbranch ? "" : " due to `-B' option");
if (branch_mode) free(rev);
free (oversion);
free (version);
return (0);
}
free (oversion);
}
retcode = RCS_settag(rcsfile, symtag, rev);
if (retcode == 0)
RCS_rewrite (rcsfile, NULL, NULL);
}
if (retcode != 0)
{
error (1, retcode == -1 ? 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)
free (rev);
free (version);
return (0);
}
static int
rtag_delete (rcsfile)
RCSNode *rcsfile;
{
char *version;
int retcode, isbranch;
if (numtag)
{
version = RCS_getversion (rcsfile, numtag, (char *) NULL, 1,
(int *) NULL);
if (version == NULL)
return (0);
free (version);
}
version = RCS_getversion (rcsfile, symtag, (char *) NULL, 1,
(int *) NULL);
if (version == NULL)
return (0);
free (version);
isbranch = RCS_nodeisbranch (rcsfile, symtag);
if ((isbranch && !disturb_branch_tags) ||
(!isbranch && disturb_branch_tags))
{
if (!quiet)
error(0, 0,
"Not removing %s tag `%s' from `%s'%s.",
isbranch ? "branch" : "non-branch",
symtag, rcsfile->path,
isbranch ? "" : " due to `-B' option");
return (1);
}
if ((retcode = RCS_deltag(rcsfile, symtag)) != 0)
{
if (!quiet)
error (0, retcode == -1 ? errno : 0,
"failed to remove tag `%s' from `%s'", symtag,
rcsfile->path);
return (1);
}
RCS_rewrite (rcsfile, NULL, NULL);
return (0);
}
static int
tag_fileproc (callerdat, finfo)
void *callerdat;
struct file_info *finfo;
{
char *version, *oversion;
char *nversion = NULL;
char *rev;
Vers_TS *vers;
int retcode = 0;
int retval = 0;
vers = Version_TS (finfo, NULL, NULL, NULL, 0, 0);
if ((numtag != NULL) || (date != NULL))
{
nversion = RCS_getversion(vers->srcfile,
numtag,
date,
force_tag_match,
(int *) NULL);
if (nversion == NULL)
goto free_vars_and_return;
}
if (delete_flag)
{
int isbranch;
version = RCS_getversion (vers->srcfile, symtag, (char *) NULL, 1,
(int *) NULL);
if (version == NULL || vers->srcfile == NULL)
goto free_vars_and_return;
free (version);
isbranch = RCS_nodeisbranch (finfo->rcs, symtag);
if ((isbranch && !disturb_branch_tags) ||
(!isbranch && disturb_branch_tags))
{
if (!quiet)
error(0, 0,
"Not removing %s tag `%s' from `%s'%s.",
isbranch ? "branch" : "non-branch",
symtag, vers->srcfile->path,
isbranch ? "" : " due to `-B' option");
retval = 1;
goto free_vars_and_return;
}
if ((retcode = RCS_deltag(vers->srcfile, symtag)) != 0)
{
if (!quiet)
error (0, retcode == -1 ? errno : 0,
"failed to remove tag %s from %s", symtag,
vers->srcfile->path);
retval = 1;
goto free_vars_and_return;
}
RCS_rewrite (vers->srcfile, NULL, NULL);
if (!really_quiet)
{
cvs_output ("D ", 2);
cvs_output (finfo->fullname, 0);
cvs_output ("\n", 1);
}
goto free_vars_and_return;
}
if (nversion == NULL)
{
version = vers->vn_user;
}
else
{
version = nversion;
}
if (version == NULL)
{
goto free_vars_and_return;
}
else if (strcmp (version, "0") == 0)
{
if (!quiet)
error (0, 0, "couldn't tag added but un-commited file `%s'", finfo->file);
goto free_vars_and_return;
}
else if (version[0] == '-')
{
if (!quiet)
error (0, 0, "skipping removed but un-commited file `%s'", finfo->file);
goto free_vars_and_return;
}
else if (vers->srcfile == NULL)
{
if (!quiet)
error (0, 0, "cannot find revision control file for `%s'", finfo->file);
goto free_vars_and_return;
}
rev = branch_mode ? RCS_magicrev (vers->srcfile, version) : version;
oversion = RCS_getversion (vers->srcfile, symtag, (char *) NULL, 1,
(int *) NULL);
if (oversion != NULL)
{
int isbranch = RCS_nodeisbranch (finfo->rcs, symtag);
if (strcmp (version, oversion) == 0 && !branch_mode && !isbranch)
{
free (oversion);
if (branch_mode)
free (rev);
goto free_vars_and_return;
}
if (!force_tag_move)
{
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);
goto free_vars_and_return;
}
else
if ((isbranch && !disturb_branch_tags) ||
(!isbranch && disturb_branch_tags))
{
error(0,0, "%s: Not moving %s tag `%s' from %s to %s%s.",
finfo->fullname,
isbranch ? "branch" : "non-branch",
symtag, oversion, rev,
isbranch ? "" : " due to `-B' option");
free (oversion);
if (branch_mode)
free (rev);
goto free_vars_and_return;
}
free (oversion);
}
if ((retcode = RCS_settag(vers->srcfile, symtag, rev)) != 0)
{
error (1, retcode == -1 ? errno : 0,
"failed to set tag %s to revision %s in %s",
symtag, rev, vers->srcfile->path);
if (branch_mode)
free (rev);
retval = 1;
goto free_vars_and_return;
}
if (branch_mode)
free (rev);
RCS_rewrite (vers->srcfile, NULL, NULL);
if (!really_quiet)
{
cvs_output ("T ", 2);
cvs_output (finfo->fullname, 0);
cvs_output ("\n", 1);
}
free_vars_and_return:
if (nversion != NULL)
free (nversion);
freevers_ts (&vers);
return (retval);
}
static Dtype
tag_dirproc (callerdat, dir, repos, update_dir, entries)
void *callerdat;
const char *dir;
const char *repos;
const char *update_dir;
List *entries;
{
if (ignore_directory (update_dir))
{
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);
}
struct val_args {
char *name;
int found;
};
static int val_fileproc PROTO ((void *callerdat, struct file_info *finfo));
static int
val_fileproc (callerdat, finfo)
void *callerdat;
struct file_info *finfo;
{
RCSNode *rcsdata;
struct val_args *args = (struct val_args *)callerdat;
char *tag;
if ((rcsdata = finfo->rcs) == NULL)
return 0;
tag = RCS_gettag (rcsdata, args->name, 1, (int *) NULL);
if (tag != NULL)
{
args->found = 1;
free (tag);
}
return 0;
}
static Dtype val_direntproc PROTO ((void *, const char *, const char *,
const char *, List *));
static Dtype
val_direntproc (callerdat, dir, repository, update_dir, entries)
void *callerdat;
const char *dir;
const char *repository;
const char *update_dir;
List *entries;
{
if (isdir (dir))
return R_PROCESS;
return R_SKIP_ALL;
}
void
tag_check_valid (name, argc, argv, local, aflag, repository)
char *name;
int argc;
char **argv;
int local;
int aflag;
char *repository;
{
DBM *db;
char *valtags_filename;
int nowrite = 0;
datum mytag;
struct val_args the_val_args;
struct saved_cwd cwd;
int which;
if (isdigit ((unsigned char) name[0]))
{
char *p;
for (p = name; *p != '\0'; ++p)
{
if (!(isdigit ((unsigned char) *p) || *p == '.'))
error (1, 0, "\
Numeric tag %s contains characters other than digits and '.'", name);
}
return;
}
if (strcmp (name, TAG_BASE) == 0
|| strcmp (name, TAG_HEAD) == 0)
return;
if (readonlyfs)
return;
RCS_check_tag (name);
mytag.dptr = name;
mytag.dsize = strlen (name);
valtags_filename = xmalloc (strlen (current_parsed_root->directory)
+ sizeof CVSROOTADM
+ sizeof CVSROOTADM_VALTAGS + 3);
sprintf (valtags_filename, "%s/%s/%s", current_parsed_root->directory,
CVSROOTADM, CVSROOTADM_VALTAGS);
db = dbm_open (valtags_filename, O_RDWR, 0666);
if (db == NULL)
{
if (!existence_error (errno))
{
error (0, errno, "warning: cannot open %s read/write",
valtags_filename);
db = dbm_open (valtags_filename, O_RDONLY, 0666);
if (db != NULL)
nowrite = 1;
else if (!existence_error (errno))
error (1, errno, "cannot read %s", valtags_filename);
}
}
if (db != NULL)
{
datum val;
val = dbm_fetch (db, mytag);
if (val.dptr != NULL)
{
dbm_close (db);
free (valtags_filename);
return;
}
}
the_val_args.name = name;
the_val_args.found = 0;
which = W_REPOS | W_ATTIC;
if (repository != NULL)
{
if (repository[0] == '\0')
which |= W_LOCAL;
else
{
if (save_cwd (&cwd))
error_exit ();
if (CVS_CHDIR (repository) < 0)
error (1, errno, "cannot change to %s directory", repository);
}
}
start_recursion (val_fileproc, (FILESDONEPROC) NULL,
val_direntproc, (DIRLEAVEPROC) NULL,
(void *)&the_val_args,
argc, argv, local, which, aflag,
CVS_LOCK_READ, NULL, 1, repository);
if (repository != NULL && repository[0] != '\0')
{
if (restore_cwd (&cwd, NULL))
error_exit ();
free_cwd (&cwd);
}
if (!the_val_args.found)
error (1, 0, "no such tag %s", name);
else
{
datum value;
if (noexec || nowrite)
{
if (db != NULL)
dbm_close (db);
free (valtags_filename);
return;
}
if (db == NULL)
{
mode_t omask;
omask = umask (cvsumask);
db = dbm_open (valtags_filename, O_RDWR | O_CREAT | O_TRUNC, 0666);
(void)umask (omask);
if (db == NULL)
{
error (0, errno, "warning: cannot create %s", valtags_filename);
free (valtags_filename);
return;
}
}
value.dptr = "y";
value.dsize = 1;
if (dbm_store (db, mytag, value, DBM_REPLACE) < 0)
error (0, errno, "cannot store %s into %s", name,
valtags_filename);
dbm_close (db);
}
free (valtags_filename);
}
void
tag_check_valid_join (join_tag, argc, argv, local, aflag, repository)
char *join_tag;
int argc;
char **argv;
int local;
int aflag;
char *repository;
{
char *c, *s;
c = xstrdup (join_tag);
s = strchr (c, ':');
if (s != NULL)
{
if (isdigit ((unsigned char) join_tag[0]))
error (1, 0,
"Numeric join tag %s may not contain a date specifier",
join_tag);
*s = '\0';
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);
}