xref: /netbsd-src/usr.bin/xlint/lint2/msg.c (revision 1ca5c1b28139779176bd5c13ad7c5f25c0bcd5f8)
1 /*	$NetBSD: msg.c,v 1.5 2001/05/28 12:40:38 lukem Exp $	*/
2 
3 /*
4  * Copyright (c) 1994, 1995 Jochen Pohl
5  * All Rights Reserved.
6  *
7  * Redistribution and use in source and binary forms, with or without
8  * modification, are permitted provided that the following conditions
9  * are met:
10  * 1. Redistributions of source code must retain the above copyright
11  *    notice, this list of conditions and the following disclaimer.
12  * 2. Redistributions in binary form must reproduce the above copyright
13  *    notice, this list of conditions and the following disclaimer in the
14  *    documentation and/or other materials provided with the distribution.
15  * 3. All advertising materials mentioning features or use of this software
16  *    must display the following acknowledgement:
17  *      This product includes software developed by Jochen Pohl for
18  *	The NetBSD Project.
19  * 4. The name of the author may not be used to endorse or promote products
20  *    derived from this software without specific prior written permission.
21  *
22  * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
23  * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
24  * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
25  * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
26  * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT
27  * NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; LOSS OF USE,
28  * DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY
29  * THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
30  * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
31  * THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
32  */
33 
34 #include <sys/cdefs.h>
35 #ifndef lint
36 __RCSID("$NetBSD: msg.c,v 1.5 2001/05/28 12:40:38 lukem Exp $");
37 #endif
38 
39 #include <string.h>
40 
41 #include <stdio.h>
42 #include <stdarg.h>
43 
44 #include "lint2.h"
45 
46 
47 static	const	char *msgs[] = {
48 	"%s used( %s ), but not defined",			      /* 0 */
49 	"%s defined( %s ), but never used",			      /* 1 */
50 	"%s declared( %s ), but never used or defined",		      /* 2 */
51 	"%s multiply defined  \t%s  ::  %s",			      /* 3 */
52 	"%s value used inconsistently  \t%s  ::  %s",		      /* 4 */
53 	"%s value declared inconsistently  \t%s  ::  %s",	      /* 5 */
54 	"%s, arg %d used inconsistently  \t%s  ::  %s",		      /* 6 */
55 	"%s: variable # of args  \t%s  ::  %s",			      /* 7 */
56 	"%s returns value which is always ignored",		      /* 8 */
57 	"%s returns value which is sometimes ignored",		      /* 9 */
58 	"%s value is used( %s ), but none returned",		      /* 10 */
59 	"%s, arg %d declared inconsistently  \t%s :: %s",	      /* 11 */
60 	"%s: variable # of args declared  \t%s  ::  %s",	      /* 12 */
61 	"%s: malformed format string  \t%s",			      /* 13 */
62 	"%s, arg %d inconsistent with format  \t%s",		      /* 14 */
63 	"%s: too few args for format  \t%s",			      /* 15 */
64 	"%s: too many args for format  \t%s",			      /* 16 */
65 	"%s function value must be declared before use  \t%s  ::  %s",/* 17 */
66 	"%s renamed multiple times  \t%s  ::  %s",		      /* 18 */
67 };
68 
69 static	const	char *basename(const char *);
70 
71 void
72 msg(int n, ...)
73 {
74 	va_list	ap;
75 
76 	va_start(ap, n);
77 
78 	(void)vprintf(msgs[n], ap);
79 	(void)printf("\n");
80 
81 	va_end(ap);
82 }
83 
84 /*
85  * Return a pointer to the last component of a path.
86  */
87 static const char *
88 basename(const char *path)
89 {
90 	const	char *cp, *cp1, *cp2;
91 
92 	if (Fflag)
93 		return (path);
94 
95 	cp = cp1 = cp2 = path;
96 	while (*cp != '\0') {
97 		if (*cp++ == '/') {
98 			cp2 = cp1;
99 			cp1 = cp;
100 		}
101 	}
102 	return (*cp1 == '\0' ? cp2 : cp1);
103 }
104 
105 /*
106  * Create a string which describes a position in a source file.
107  */
108 const char *
109 mkpos(pos_t *posp)
110 {
111 	size_t	len;
112 	const	char *fn;
113 	static	char	*buf;
114 	static	size_t	blen = 0;
115 	int	qm, src, line;
116 
117 	if (Hflag && posp->p_src != posp->p_isrc) {
118 		src = posp->p_isrc;
119 		line = posp->p_iline;
120 	} else {
121 		src = posp->p_src;
122 		line = posp->p_line;
123 	}
124 	qm = !Hflag && posp->p_src != posp->p_isrc;
125 
126 	len = strlen(fn = basename(fnames[src]));
127 	len += 3 * sizeof (u_short) + 4;
128 
129 	if (len > blen)
130 		buf = xrealloc(buf, blen = len);
131 	if (line != 0) {
132 		(void)sprintf(buf, "%s%s(%hu)",
133 			      fn, qm ? "?" : "", line);
134 	} else {
135 		(void)sprintf(buf, "%s", fn);
136 	}
137 
138 	return (buf);
139 }
140