[unix-history] / usr / othersrc / public / cvs-1.3 / src / classify.c

/*
 * 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 1.3 kit.
 * 
 */

#include "cvs.h"

#ifndef lint
static char rcsid[] = "@(#)classify.c 1.11 92/03/31";
#endif

#if __STDC__
static void sticky_ck (char *file, int aflag, Vers_TS * vers, List * entries);
#else
static void sticky_ck ();
#endif				/* __STDC__ */

/*
 * Classify the state of a file
 */
Ctype
Classify_File (file, tag, date, options, force_tag_match, aflag, repository,
	       entries, srcfiles, versp)
    char *file;
    char *tag;
    char *date;
    char *options;
    int force_tag_match;
    int aflag;
    char *repository;
    List *entries;
    List *srcfiles;
    Vers_TS **versp;
{
    Vers_TS *vers;
    Ctype ret;

    /* get all kinds of good data about the file */
    vers = Version_TS (repository, options, tag, date, file,
		       force_tag_match, 0, entries, srcfiles);

    if (vers->vn_user == NULL)
    {
	/* No entry available, ts_rcs is invalid */
	if (vers->vn_rcs == NULL)
	{
	    /* there is no RCS file either */
	    if (vers->ts_user == NULL)
	    {
		/* there is no user file */
		if (!force_tag_match || !(vers->tag || vers->date))
		    if (!really_quiet)
			error (0, 0, "nothing known about %s", file);
		ret = T_UNKNOWN;
	    }
	    else
	    {
		/* there is a user file */
		if (!force_tag_match || !(vers->tag || vers->date))
		    if (!really_quiet)
			error (0, 0, "use `cvs add' to create an entry for %s",
			       file);
		ret = T_UNKNOWN;
	    }
	}
	else
	{
	    /* there is an rcs file */

	    if (vers->ts_user == NULL)
	    {
		/* There is no user file; needs checkout */
		ret = T_CHECKOUT;
	    }
	    else
	    {
		/*
		 * There is a user file; print a warning and add it to the
		 * conflict list, only if it is indeed different from what we
		 * plan to extract
		 */
		if (No_Difference (file, vers, entries))
		{
		    /* the files were different so it is a conflict */
		    if (!really_quiet)
			error (0, 0, "move away %s; it is in the way", file);
		    ret = T_CONFLICT;
		}
		else
		    /* since there was no difference, still needs checkout */
		    ret = T_CHECKOUT;
	    }
	}
    }
    else if (strcmp (vers->vn_user, "0") == 0)
    {
	/* An entry for a new-born file; ts_rcs is dummy */

	if (vers->ts_user == NULL)
	{
	    /*
	     * There is no user file, but there should be one; remove the
	     * entry
	     */
	    if (!really_quiet)
		error (0, 0, "warning: new-born %s has disappeared", file);
	    ret = T_REMOVE_ENTRY;
	}
	else
	{
	    /* There is a user file */

	    if (vers->vn_rcs == NULL)
		/* There is no RCS file, added file */
		ret = T_ADDED;
	    else
	    {
		/*
		 * There is an RCS file, so someone else must have checked
		 * one in behind our back; conflict
		 */
		if (!really_quiet)
		    error (0, 0,
			"conflict: %s created independently by second party",
			   file);
		ret = T_CONFLICT;
	    }
	}
    }
    else if (vers->vn_user[0] == '-')
    {
	/* An entry for a removed file, ts_rcs is invalid */

	if (vers->ts_user == NULL)
	{
	    char tmp[PATH_MAX];

	    /* There is no user file (as it should be) */

	    (void) sprintf (tmp, "-%s", vers->vn_rcs ? vers->vn_rcs : "");

	    if (vers->vn_rcs == NULL)
	    {

		/*
		 * There is no RCS file; this is all-right, but it has been
		 * removed independently by a second party; remove the entry
		 */
		ret = T_REMOVE_ENTRY;
	    }
	    else if (strcmp (tmp, vers->vn_user) == 0)

		/*
		 * The RCS file is the same version as the user file was, and
		 * that's OK; remove it
		 */
		ret = T_REMOVED;
	    else
	    {

		/*
		 * The RCS file is a newer version than the removed user file
		 * and this is definitely not OK; make it a conflict.
		 */
		if (!really_quiet)
		    error (0, 0,
			   "conflict: removed %s was modified by second party",
			   file);
		ret = T_CONFLICT;
	    }
	}
	else
	{
	    /* The user file shouldn't be there */
	    if (!really_quiet)
		error (0, 0, "%s should be removed and is still there", file);
	    ret = T_REMOVED;
	}
    }
    else
    {
	/* A normal entry, TS_Rcs is valid */
	if (vers->vn_rcs == NULL)
	{
	    /* There is no RCS file */

	    if (vers->ts_user == NULL)
	    {
		/* There is no user file, so just remove the entry */
		if (!really_quiet)
		    error (0, 0, "warning: %s is not (any longer) pertinent",
			   file);
		ret = T_REMOVE_ENTRY;
	    }
	    else if (strcmp (vers->ts_user, vers->ts_rcs) == 0)
	    {

		/*
		 * The user file is still unmodified, so just remove it from
		 * the entry list
		 */
		if (!really_quiet)
		    error (0, 0, "%s is no longer in the repository", file);
		ret = T_REMOVE_ENTRY;
	    }
	    else
	    {
		/*
		 * The user file has been modified and since it is no longer
		 * in the repository, a conflict is raised
		 */
		if (No_Difference (file, vers, entries))
		{
		    /* they are different -> conflict */
		    if (!really_quiet)
			error (0, 0,
	       "conflict: %s is modified but no longer in the repository",
			   file);
		    ret = T_CONFLICT;
		}
		else
		{
		    /* they weren't really different */
		    if (!really_quiet)
			error (0, 0,
			       "warning: %s is not (any longer) pertinent",
			       file);
		    ret = T_REMOVE_ENTRY;
		}
	    }
	}
	else if (strcmp (vers->vn_rcs, vers->vn_user) == 0)
	{
	    /* The RCS file is the same version as the user file */

	    if (vers->ts_user == NULL)
	    {

		/*
		 * There is no user file, so note that it was lost and
		 * extract a new version
		 */
		if (strcmp (command_name, "update") == 0)
		    if (!really_quiet)
			error (0, 0, "warning: %s was lost", file);
		ret = T_CHECKOUT;
	    }
	    else if (strcmp (vers->ts_user, vers->ts_rcs) == 0)
	    {

		/*
		 * The user file is still unmodified, so nothing special at
		 * all to do -- no lists updated, unless the sticky -k option
		 * has changed.  If the sticky tag has changed, we just need
		 * to re-register the entry
		 */
		if (vers->entdata->options &&
		    strcmp (vers->entdata->options, vers->options) != 0)
		    ret = T_CHECKOUT;
		else
		{
		    sticky_ck (file, aflag, vers, entries);
		    ret = T_UPTODATE;
		}
	    }
	    else
	    {

		/*
		 * The user file appears to have been modified, but we call
		 * No_Difference to verify that it really has been modified
		 */
		if (No_Difference (file, vers, entries))
		{

		    /*
		     * they really are different; modified if we aren't
		     * changing any sticky -k options, else needs merge
		     */
#ifdef XXX_FIXME_WHEN_RCSMERGE_IS_FIXED
		    if (strcmp (vers->entdata->options ?
			   vers->entdata->options : "", vers->options) == 0)
			ret = T_MODIFIED;
		    else
			ret = T_NEEDS_MERGE;
#else
		    ret = T_MODIFIED;
		    sticky_ck (file, aflag, vers, entries);
#endif
		}
		else
		{
		    /* file has not changed; check out if -k changed */
		    if (strcmp (vers->entdata->options ?
			   vers->entdata->options : "", vers->options) != 0)
		    {
			ret = T_CHECKOUT;
		    }
		    else
		    {

			/*
			 * else -> note that No_Difference will Register the
			 * file already for us, using the new tag/date. This
			 * is the desired behaviour
			 */
			ret = T_UPTODATE;
		    }
		}
	    }
	}
	else
	{
	    /* The RCS file is a newer version than the user file */

	    if (vers->ts_user == NULL)
	    {
		/* There is no user file, so just get it */

		if (strcmp (command_name, "update") == 0)
		    if (!really_quiet)
			error (0, 0, "warning: %s was lost", file);
		ret = T_CHECKOUT;
	    }
	    else if (strcmp (vers->ts_user, vers->ts_rcs) == 0)
	    {

		/*
		 * The user file is still unmodified, so just get it as well
		 */
		ret = T_CHECKOUT;
	    }
	    else
	    {
		if (No_Difference (file, vers, entries))
		    /* really modified, needs to merge */
		    ret = T_NEEDS_MERGE;
		else
		    /* not really modified, check it out */
		    ret = T_CHECKOUT;
	    }
	}
    }

    /* free up the vers struct, or just return it */
    if (versp != (Vers_TS **) NULL)
	*versp = vers;
    else
	freevers_ts (&vers);

    /* return the status of the file */
    return (ret);
}

static void
sticky_ck (file, aflag, vers, entries)
    char *file;
    int aflag;
    Vers_TS *vers;
    List *entries;
{
    if (aflag || vers->tag || vers->date)
    {
	char *enttag = vers->entdata->tag;
	char *entdate = vers->entdata->date;

	if ((enttag && vers->tag && strcmp (enttag, vers->tag)) ||
	    ((enttag && !vers->tag) || (!enttag && vers->tag)) ||
	    (entdate && vers->date && strcmp (entdate, vers->date)) ||
	    ((entdate && !vers->date) || (!entdate && vers->date)))
	{
	    Register (entries, file, vers->vn_user, vers->ts_rcs,
		      vers->options, vers->tag, vers->date);
	}
    }
}
Commit	Line	Data
fe37a9c9 WJ	1	/*
	2	* Copyright (c) 1992, Brian Berliner and Jeff Polk
	3	* Copyright (c) 1989-1992, Brian Berliner
	4	*
	5	* You may distribute under the terms of the GNU General Public License as
	6	* specified in the README file that comes with the CVS 1.3 kit.
	7	*
	8	*/
	9
	10	#include "cvs.h"
	11
	12	#ifndef lint
	13	static char rcsid[] = "@(#)classify.c 1.11 92/03/31";
	14	#endif
	15
	16	#if __STDC__
	17	static void sticky_ck (char file, int aflag, Vers_TS vers, List * entries);
	18	#else
	19	static void sticky_ck ();
	20	#endif /* __STDC__ */
	21
	22	/*
	23	* Classify the state of a file
	24	*/
	25	Ctype
	26	Classify_File (file, tag, date, options, force_tag_match, aflag, repository,
	27	entries, srcfiles, versp)
	28	char *file;
	29	char *tag;
	30	char *date;
	31	char *options;
	32	int force_tag_match;
	33	int aflag;
	34	char *repository;
	35	List *entries;
	36	List *srcfiles;
	37	Vers_TS **versp;
	38	{
	39	Vers_TS *vers;
	40	Ctype ret;
	41
	42	/* get all kinds of good data about the file */
	43	vers = Version_TS (repository, options, tag, date, file,
	44	force_tag_match, 0, entries, srcfiles);
	45
	46	if (vers->vn_user == NULL)
	47	{
	48	/* No entry available, ts_rcs is invalid */
	49	if (vers->vn_rcs == NULL)
	50	{
	51	/* there is no RCS file either */
	52	if (vers->ts_user == NULL)
	53	{
	54	/* there is no user file */
	55	if (!force_tag_match \|\| !(vers->tag \|\| vers->date))
	56	if (!really_quiet)
	57	error (0, 0, "nothing known about %s", file);
	58	ret = T_UNKNOWN;
	59	}
	60	else
	61	{
	62	/* there is a user file */
	63	if (!force_tag_match \|\| !(vers->tag \|\| vers->date))
	64	if (!really_quiet)
65	error (0, 0, "use `cvs add' to create an entry for %s",
66	file);
67	ret = T_UNKNOWN;
68	}
69	}
70	else
71	{
72	/* there is an rcs file */
73
74	if (vers->ts_user == NULL)
75	{
76	/* There is no user file; needs checkout */
77	ret = T_CHECKOUT;
78	}
79	else
80	{
81	/*
82	* There is a user file; print a warning and add it to the
83	* conflict list, only if it is indeed different from what we
84	* plan to extract
85	*/
86	if (No_Difference (file, vers, entries))
87	{
88	/* the files were different so it is a conflict */
89	if (!really_quiet)
90	error (0, 0, "move away %s; it is in the way", file);
91	ret = T_CONFLICT;
92	}
93	else
94	/* since there was no difference, still needs checkout */
95	ret = T_CHECKOUT;
96	}
97	}
98	}
99	else if (strcmp (vers->vn_user, "0") == 0)
100	{
101	/* An entry for a new-born file; ts_rcs is dummy */
102
103	if (vers->ts_user == NULL)
104	{
105	/*
106	* There is no user file, but there should be one; remove the
107	* entry
108	*/
109	if (!really_quiet)
110	error (0, 0, "warning: new-born %s has disappeared", file);
111	ret = T_REMOVE_ENTRY;
112	}
113	else
114	{
115	/* There is a user file */
116
117	if (vers->vn_rcs == NULL)
118	/* There is no RCS file, added file */
119	ret = T_ADDED;
120	else
121	{
122	/*
123	* There is an RCS file, so someone else must have checked
124	* one in behind our back; conflict
125	*/
126	if (!really_quiet)
127	error (0, 0,
128	"conflict: %s created independently by second party",
129	file);
130	ret = T_CONFLICT;
131	}
132	}
133	}
134	else if (vers->vn_user[0] == '-')
135	{
136	/* An entry for a removed file, ts_rcs is invalid */
137
138	if (vers->ts_user == NULL)
139	{
140	char tmp[PATH_MAX];
141
142	/* There is no user file (as it should be) */
143
144	(void) sprintf (tmp, "-%s", vers->vn_rcs ? vers->vn_rcs : "");
145
146	if (vers->vn_rcs == NULL)
147	{
148
149	/*
150	* There is no RCS file; this is all-right, but it has been
151	* removed independently by a second party; remove the entry
152	*/
153	ret = T_REMOVE_ENTRY;
154	}
155	else if (strcmp (tmp, vers->vn_user) == 0)
156
157	/*
158	* The RCS file is the same version as the user file was, and
159	* that's OK; remove it
160	*/
161	ret = T_REMOVED;
162	else
163	{
164
165	/*
166	* The RCS file is a newer version than the removed user file
167	* and this is definitely not OK; make it a conflict.
168	*/
169	if (!really_quiet)
170	error (0, 0,
171	"conflict: removed %s was modified by second party",
172	file);
173	ret = T_CONFLICT;
174	}
175	}
176	else
177	{
178	/* The user file shouldn't be there */
179	if (!really_quiet)
180	error (0, 0, "%s should be removed and is still there", file);
181	ret = T_REMOVED;
182	}
183	}
184	else
185	{
186	/* A normal entry, TS_Rcs is valid */
187	if (vers->vn_rcs == NULL)
188	{
189	/* There is no RCS file */
190
191	if (vers->ts_user == NULL)
192	{
193	/* There is no user file, so just remove the entry */
194	if (!really_quiet)
195	error (0, 0, "warning: %s is not (any longer) pertinent",
196	file);
197	ret = T_REMOVE_ENTRY;
198	}
199	else if (strcmp (vers->ts_user, vers->ts_rcs) == 0)
200	{
201
202	/*
203	* The user file is still unmodified, so just remove it from
204	* the entry list
205	*/
206	if (!really_quiet)
207	error (0, 0, "%s is no longer in the repository", file);
208	ret = T_REMOVE_ENTRY;
209	}
210	else
211	{
212	/*
213	* The user file has been modified and since it is no longer
214	* in the repository, a conflict is raised
215	*/
216	if (No_Difference (file, vers, entries))
217	{
218	/* they are different -> conflict */
219	if (!really_quiet)
220	error (0, 0,
221	"conflict: %s is modified but no longer in the repository",
222	file);
223	ret = T_CONFLICT;
224	}
225	else
226	{
227	/* they weren't really different */
228	if (!really_quiet)
229	error (0, 0,
230	"warning: %s is not (any longer) pertinent",
231	file);
232	ret = T_REMOVE_ENTRY;
233	}
234	}
235	}
236	else if (strcmp (vers->vn_rcs, vers->vn_user) == 0)
237	{
238	/* The RCS file is the same version as the user file */
239
240	if (vers->ts_user == NULL)
241	{
242
243	/*
244	* There is no user file, so note that it was lost and
245	* extract a new version
246	*/
247	if (strcmp (command_name, "update") == 0)
248	if (!really_quiet)
249	error (0, 0, "warning: %s was lost", file);
250	ret = T_CHECKOUT;
251	}
252	else if (strcmp (vers->ts_user, vers->ts_rcs) == 0)
253	{
254
255	/*
256	* The user file is still unmodified, so nothing special at
257	* all to do -- no lists updated, unless the sticky -k option
258	* has changed. If the sticky tag has changed, we just need
259	* to re-register the entry
260	*/
261	if (vers->entdata->options &&
262	strcmp (vers->entdata->options, vers->options) != 0)
263	ret = T_CHECKOUT;
264	else
265	{
266	sticky_ck (file, aflag, vers, entries);
267	ret = T_UPTODATE;
268	}
269	}
270	else
271	{
272
273	/*
274	* The user file appears to have been modified, but we call
275	* No_Difference to verify that it really has been modified
276	*/
277	if (No_Difference (file, vers, entries))
278	{
279
280	/*
281	* they really are different; modified if we aren't
282	* changing any sticky -k options, else needs merge
283	*/
284	#ifdef XXX_FIXME_WHEN_RCSMERGE_IS_FIXED
285	if (strcmp (vers->entdata->options ?
286	vers->entdata->options : "", vers->options) == 0)
287	ret = T_MODIFIED;
288	else
289	ret = T_NEEDS_MERGE;
290	#else
291	ret = T_MODIFIED;
292	sticky_ck (file, aflag, vers, entries);
293	#endif
294	}
295	else
296	{
297	/* file has not changed; check out if -k changed */
298	if (strcmp (vers->entdata->options ?
299	vers->entdata->options : "", vers->options) != 0)
300	{
301	ret = T_CHECKOUT;
302	}
303	else
304	{
305
306	/*
307	* else -> note that No_Difference will Register the
308	* file already for us, using the new tag/date. This
309	* is the desired behaviour
310	*/
311	ret = T_UPTODATE;
312	}
313	}
314	}
315	}
316	else
317	{
318	/* The RCS file is a newer version than the user file */
319
320	if (vers->ts_user == NULL)
321	{
322	/* There is no user file, so just get it */
323
324	if (strcmp (command_name, "update") == 0)
325	if (!really_quiet)
326	error (0, 0, "warning: %s was lost", file);
327	ret = T_CHECKOUT;
328	}
329	else if (strcmp (vers->ts_user, vers->ts_rcs) == 0)
330	{
331
332	/*
333	* The user file is still unmodified, so just get it as well
334	*/
335	ret = T_CHECKOUT;
336	}
337	else
338	{
339	if (No_Difference (file, vers, entries))
340	/* really modified, needs to merge */
341	ret = T_NEEDS_MERGE;
342	else
343	/* not really modified, check it out */
344	ret = T_CHECKOUT;
345	}
346	}
347	}
348
349	/* free up the vers struct, or just return it */
350	if (versp != (Vers_TS **) NULL)
351	*versp = vers;
352	else
353	freevers_ts (&vers);
354
355	/* return the status of the file */
356	return (ret);
357	}
358
359	static void
360	sticky_ck (file, aflag, vers, entries)
361	char *file;
362	int aflag;
363	Vers_TS *vers;
364	List *entries;
365	{
366	if (aflag \|\| vers->tag \|\| vers->date)
367	{
368	char *enttag = vers->entdata->tag;
369	char *entdate = vers->entdata->date;
370
371	if ((enttag && vers->tag && strcmp (enttag, vers->tag)) \|\|
372	((enttag && !vers->tag) \|\| (!enttag && vers->tag)) \|\|
373	(entdate && vers->date && strcmp (entdate, vers->date)) \|\|
374	((entdate && !vers->date) \|\| (!entdate && vers->date)))
375	{
376	Register (entries, file, vers->vn_user, vers->ts_rcs,
377	vers->options, vers->tag, vers->date);
378	}
379	}
380	}