[moira.git] / util / makedepend / pr.c

/*
 * $XConsortium: pr.c,v 1.6 88/09/30 08:55:13 jim Exp $
 */
#include "def.h"

extern struct	inclist	inclist[ MAXFILES ],
			*inclistp;
extern char	*objfile;
extern int	width;
extern boolean	printed;
extern boolean	verbose;
extern boolean	show_where_not;

add_include(file, file_red, include, dot)
	struct inclist	*file, *file_red;
	char	*include;
	boolean	dot;
{
	register struct inclist	*newfile;
	register struct filepointer	*content;

	/*
	 * First decide what the pathname of this include file really is.
	 */
	newfile = inc_path(file->i_file, include, dot);
	if (newfile == NULL) {
		if (file != file_red)
			log("%s (reading %s): ",
				file_red->i_file, file->i_file);
		else
			log("%s: ", file->i_file);
		log("cannot find include file \"%s\"\n", include);
		show_where_not = TRUE;
		newfile = inc_path(file->i_file, include, dot);
		show_where_not = FALSE;
	}

	included_by(file, newfile);
	if (!newfile->i_searched) {
		newfile->i_searched = TRUE;
		content = getfile(newfile->i_file);
		find_includes(content, newfile, file_red, 0);
		freefile(content);
	}
}

recursive_pr_include(head, file, base)
	register struct inclist	*head;
	register char	*file, *base;
{
	register int	i;

	if (head->i_marked)
		return;
	head->i_marked = TRUE;
	if (head->i_file != file)
		pr(head, file, base);
	for (i=0; i<head->i_listlen; i++)
		recursive_pr_include(head->i_list[ i ], file, base);
}

pr(ip, file, base)
	register struct inclist  *ip;
	char	*file, *base;
{
	static char	*lastfile;
	static int	current_len;
	register int	len, i;
	char	buf[ BUFSIZ ];

	printed = TRUE;
	len = strlen(ip->i_file)+1;
	if (current_len + len > width || file != lastfile) {
		lastfile = file;
		sprintf(buf, "\n%s%s: %s", base, objfile, ip->i_file);
		len = current_len = strlen(buf);
	}
	else {
		buf[0] = ' ';
		strcpy(buf+1, ip->i_file);
		current_len += len;
	}
	fwrite(buf, len, 1, stdout);

	/*
	 * If verbose is set, then print out what this file includes.
	 */
	if (! verbose || ip->i_list == NULL || ip->i_notified)
		return;
	ip->i_notified = TRUE;
	lastfile = NULL;
	printf("\n# %s includes:", ip->i_file);
	for (i=0; i<ip->i_listlen; i++)
		printf("\n#\t%s", ip->i_list[ i ]->i_incstring);
}

#if defined (mips) && defined (SYSTYPE_SYSV)
void catch()
{
	fflush(stdout);
	log_fatal("got signal\n");
}
#else /* not (mips && SYSTYPE_SYSV) */
#ifdef ultrix
void
#endif
catch(n)
{
	fflush(stdout);
	log_fatal("got signal %d\n", n);
}
#endif /* mips && SYSTYPE_SYSV */
Commit	Line	Data
d1b2a10e	1	/*
	2	* $XConsortium: pr.c,v 1.6 88/09/30 08:55:13 jim Exp $
	3	*/
	4	#include "def.h"
	5
	6	extern struct inclist inclist[ MAXFILES ],
	7	*inclistp;
	8	extern char *objfile;
	9	extern int width;
	10	extern boolean printed;
	11	extern boolean verbose;
	12	extern boolean show_where_not;
	13
	14	add_include(file, file_red, include, dot)
	15	struct inclist file, file_red;
	16	char *include;
	17	boolean dot;
	18	{
	19	register struct inclist *newfile;
	20	register struct filepointer *content;
	21
	22	/*
	23	* First decide what the pathname of this include file really is.
	24	*/
	25	newfile = inc_path(file->i_file, include, dot);
	26	if (newfile == NULL) {
	27	if (file != file_red)
	28	log("%s (reading %s): ",
	29	file_red->i_file, file->i_file);
	30	else
	31	log("%s: ", file->i_file);
	32	log("cannot find include file \"%s\"\n", include);
	33	show_where_not = TRUE;
	34	newfile = inc_path(file->i_file, include, dot);
	35	show_where_not = FALSE;
	36	}
	37
	38	included_by(file, newfile);
	39	if (!newfile->i_searched) {
	40	newfile->i_searched = TRUE;
	41	content = getfile(newfile->i_file);
	42	find_includes(content, newfile, file_red, 0);
	43	freefile(content);
	44	}
	45	}
	46
	47	recursive_pr_include(head, file, base)
	48	register struct inclist *head;
	49	register char file, base;
	50	{
	51	register int i;
	52
	53	if (head->i_marked)
	54	return;
	55	head->i_marked = TRUE;
	56	if (head->i_file != file)
	57	pr(head, file, base);
	58	for (i=0; i<head->i_listlen; i++)
	59	recursive_pr_include(head->i_list[ i ], file, base);
	60	}
	61
	62	pr(ip, file, base)
	63	register struct inclist *ip;
	64	char file, base;
65	{
66	static char *lastfile;
67	static int current_len;
68	register int len, i;
69	char buf[ BUFSIZ ];
70
71	printed = TRUE;
72	len = strlen(ip->i_file)+1;
73	if (current_len + len > width \|\| file != lastfile) {
74	lastfile = file;
75	sprintf(buf, "\n%s%s: %s", base, objfile, ip->i_file);
76	len = current_len = strlen(buf);
77	}
78	else {
79	buf[0] = ' ';
80	strcpy(buf+1, ip->i_file);
81	current_len += len;
82	}
83	fwrite(buf, len, 1, stdout);
84
85	/*
86	* If verbose is set, then print out what this file includes.
87	*/
88	if (! verbose \|\| ip->i_list == NULL \|\| ip->i_notified)
89	return;
90	ip->i_notified = TRUE;
91	lastfile = NULL;
92	printf("\n# %s includes:", ip->i_file);
93	for (i=0; i<ip->i_listlen; i++)
94	printf("\n#\t%s", ip->i_list[ i ]->i_incstring);
95	}
96
97	#if defined (mips) && defined (SYSTYPE_SYSV)
98	void catch()
99	{
100	fflush(stdout);
101	log_fatal("got signal\n");
102	}
103	#else /* not (mips && SYSTYPE_SYSV) */
104	#ifdef ultrix
105	void
106	#endif
107	catch(n)
108	{
109	fflush(stdout);
110	log_fatal("got signal %d\n", n);
111	}
112	#endif /* mips && SYSTYPE_SYSV */
113