1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
148
149
150
151
152
153
154
155
156
157
158
159
160
161
162
163
164
165
166
167
168
169
170
171
172
173
174
175
176
177
178
179
180
|
/*
* 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.
*
* Check In
*
* Does a very careful checkin of the file "user", and tries not to spoil its
* modification time (to avoid needless recompilations). When RCS ID keywords
* get expanded on checkout, however, the modification time is updated and
* there is no good way to get around this.
*
* Returns non-zero on error.
*/
#include "cvs.h"
#include "fileattr.h"
#include "edit.h"
int
Checkin (type, finfo, rcs, rev, tag, options, message)
int type;
struct file_info *finfo;
char *rcs;
char *rev;
char *tag;
char *options;
char *message;
{
Vers_TS *vers;
int set_time;
char *tocvsPath = NULL;
/* Hmm. This message goes to stdout and the "foo,v <-- foo"
message from "ci" goes to stderr. This doesn't make a whole
lot of sense, but making everything go to stdout can only be
gracefully achieved once RCS_checkin is librarified. */
cvs_output ("Checking in ", 0);
cvs_output (finfo->fullname, 0);
cvs_output (";\n", 0);
tocvsPath = wrap_tocvs_process_file (finfo->file);
if (!noexec)
{
if (tocvsPath)
{
if (unlink_file_dir (finfo->file) < 0)
if (! existence_error (errno))
error (1, errno, "cannot remove %s", finfo->fullname);
rename_file (tocvsPath, finfo->file);
}
}
if (finfo->rcs == NULL)
finfo->rcs = RCS_parse (finfo->file, finfo->repository);
switch (RCS_checkin (finfo->rcs, NULL, message, rev, RCS_FLAGS_KEEPFILE))
{
case 0: /* everything normal */
/* The checkin succeeded. If checking the file out again
would not cause any changes, we are done. Otherwise,
we need to check out the file, which will change the
modification time of the file.
The only way checking out the file could cause any
changes is if the file contains RCS keywords. So we if
we are not expanding RCS keywords, we are done. */
if (strcmp (options, "-V4") == 0) /* upgrade to V5 now */
options[0] = '\0';
/* FIXME: If PreservePermissions is on, RCS_cmp_file is
going to call RCS_checkout into a temporary file
anyhow. In that case, it would be more efficient to
call RCS_checkout here, compare the resulting files
using xcmp, and rename if necessary. I think this
should be fixed in RCS_cmp_file. */
if ((! preserve_perms
&& options != NULL
&& (strcmp (options, "-ko") == 0
|| strcmp (options, "-kb") == 0))
|| RCS_cmp_file (finfo->rcs, rev, options, finfo->file) == 0)
{
/* The existing file is correct. We don't have to do
anything. */
set_time = 0;
}
else
{
/* The existing file is incorrect. We need to check
out the correct file contents. */
if (RCS_checkout (finfo->rcs, finfo->file, rev, (char *) NULL,
options, RUN_TTY, (RCSCHECKOUTPROC) NULL,
(void *) NULL) != 0)
error (1, 0, "failed when checking out new copy of %s",
finfo->fullname);
xchmod (finfo->file, 1);
set_time = 1;
}
wrap_fromcvs_process_file (finfo->file);
/*
* If we want read-only files, muck the permissions here, before
* getting the file time-stamp.
*/
if (!cvswrite || fileattr_get (finfo->file, "_watched"))
xchmod (finfo->file, 0);
/* Re-register with the new data. */
vers = Version_TS (finfo, NULL, tag, NULL, 1, set_time);
if (strcmp (vers->options, "-V4") == 0)
vers->options[0] = '\0';
Register (finfo->entries, finfo->file, vers->vn_rcs, vers->ts_user,
vers->options, vers->tag, vers->date, (char *) 0);
history_write (type, NULL, vers->vn_rcs,
finfo->file, finfo->repository);
if (tocvsPath)
if (unlink_file_dir (tocvsPath) < 0)
error (0, errno, "cannot remove %s", tocvsPath);
break;
case -1: /* fork failed */
if (tocvsPath)
if (unlink_file_dir (tocvsPath) < 0)
error (0, errno, "cannot remove %s", tocvsPath);
if (!noexec)
error (1, errno, "could not check in %s -- fork failed",
finfo->fullname);
return (1);
default: /* ci failed */
/* The checkin failed, for some unknown reason, so we
print an error, and return an error. We assume that
the original file has not been touched. */
if (tocvsPath)
if (unlink_file_dir (tocvsPath) < 0)
error (0, errno, "cannot remove %s", tocvsPath);
if (!noexec)
error (0, 0, "could not check in %s", finfo->fullname);
return (1);
}
/*
* When checking in a specific revision, we may have locked the wrong
* branch, so to be sure, we do an extra unlock here before
* returning.
*/
if (rev)
{
(void) RCS_unlock (finfo->rcs, NULL, 1);
RCS_rewrite (finfo->rcs, NULL, NULL);
}
#ifdef SERVER_SUPPORT
if (server_active)
{
if (set_time)
/* Need to update the checked out file on the client side. */
server_updated (finfo, vers, SERVER_UPDATED,
(mode_t) -1, (unsigned char *) NULL,
(struct buffer *) NULL);
else
server_checked_in (finfo->file, finfo->update_dir, finfo->repository);
}
else
#endif
mark_up_to_date (finfo->file);
freevers_ts (&vers);
return (0);
}
|
