xref: /netbsd-src/usr.bin/xlint/lint2/msg.c (revision 2a399c6883d870daece976daec6ffa7bb7f934ce)
1 /*	$NetBSD: msg.c,v 1.3 1997/11/03 22:37:05 cgd 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 #ifndef lint
35 static char rcsid[] = "$NetBSD: msg.c,v 1.3 1997/11/03 22:37:05 cgd Exp $";
36 #endif
37 
38 #include <string.h>
39 
40 #include <stdio.h>
41 #ifdef __STDC__
42 #include <stdarg.h>
43 #else
44 #include <varargs.h>
45 #endif
46 
47 #include "lint2.h"
48 
49 
50 static	const	char *msgs[] = {
51 	"%s used( %s ), but not defined",			      /* 0 */
52 	"%s defined( %s ), but never used",			      /* 1 */
53 	"%s declared( %s ), but never used or defined",		      /* 2 */
54 	"%s multiply defined  \t%s  ::  %s",			      /* 3 */
55 	"%s value used inconsistently  \t%s  ::  %s",		      /* 4 */
56 	"%s value declared inconsistently  \t%s  ::  %s",	      /* 5 */
57 	"%s, arg %d used inconsistently  \t%s  ::  %s",		      /* 6 */
58 	"%s: variable # of args  \t%s  ::  %s",			      /* 7 */
59 	"%s returns value which is always ignored",		      /* 8 */
60 	"%s returns value which is sometimes ignored",		      /* 9 */
61 	"%s value is used( %s ), but none returned",		      /* 10 */
62 	"%s, arg %d declared inconsistently  \t%s :: %s",	      /* 11 */
63 	"%s: variable # of args declared  \t%s  ::  %s",	      /* 12 */
64 	"%s: malformed format string  \t%s",			      /* 13 */
65 	"%s, arg %d inconsistent with format  \t%s",		      /* 14 */
66 	"%s: too few args for format  \t%s",			      /* 15 */
67 	"%s: too many args for format  \t%s",			      /* 16 */
68 	"%s function value must be declared before use  \t%s  ::  %s",/* 17 */
69 	"%s renamed multiple times  \t%s  ::  %s",		      /* 18 */
70 };
71 
72 static	const	char *basename __P((const char *));
73 
74 #ifdef __STDC__
75 void
76 msg(int n, ...)
77 {
78 #else
79 void
80 msg(va_alist)
81 	va_dcl
82 	int	n;
83 {
84 #endif
85 	va_list	ap;
86 
87 #ifdef __STDC__
88 	va_start(ap, n);
89 #else
90 	va_start(ap);
91 	n = va_arg(ap, int);
92 #endif
93 
94 	(void)vprintf(msgs[n], ap);
95 	(void)printf("\n");
96 
97 	va_end(ap);
98 }
99 
100 /*
101  * Return a pointer to the last component of a path.
102  */
103 static const char *
104 basename(path)
105 	const	char *path;
106 {
107 	const	char *cp, *cp1, *cp2;
108 
109 	if (Fflag)
110 		return (path);
111 
112 	cp = cp1 = cp2 = path;
113 	while (*cp != '\0') {
114 		if (*cp++ == '/') {
115 			cp2 = cp1;
116 			cp1 = cp;
117 		}
118 	}
119 	return (*cp1 == '\0' ? cp2 : cp1);
120 }
121 
122 /*
123  * Create a string which describes a position in a source file.
124  */
125 const char *
126 mkpos(posp)
127 	pos_t	*posp;
128 {
129 	size_t	len;
130 	const	char *fn;
131 	static	char	*buf;
132 	static	size_t	blen = 0;
133 	int	qm, src, line;
134 
135 	if (Hflag && posp->p_src != posp->p_isrc) {
136 		src = posp->p_isrc;
137 		line = posp->p_iline;
138 	} else {
139 		src = posp->p_src;
140 		line = posp->p_line;
141 	}
142 	qm = !Hflag && posp->p_src != posp->p_isrc;
143 
144 	len = strlen(fn = basename(fnames[src]));
145 	len += 3 * sizeof (u_short) + 4;
146 
147 	if (len > blen)
148 		buf = xrealloc(buf, blen = len);
149 	if (line != 0) {
150 		(void)sprintf(buf, "%s%s(%hu)",
151 			      fn, qm ? "?" : "", line);
152 	} else {
153 		(void)sprintf(buf, "%s", fn);
154 	}
155 
156 	return (buf);
157 }
158 
159