1 /*
2 * Copyright (c) 1998-2001 Sendmail, Inc. and its suppliers.
3 * All rights reserved.
4 * Copyright (c) 1983, 1995-1997 Eric P. Allman. All rights reserved.
5 * Copyright (c) 1988, 1993
6 * The Regents of the University of California. All rights reserved.
7 *
8 * By using this file, you agree to the terms and conditions set
9 * forth in the LICENSE file which can be found at the top level of
10 * the sendmail distribution.
11 *
12 */
13
14 #include <sendmail.h>
15 #include <sm/debug.h>
16 #include <sm/string.h>
17
18 SM_RCSID("@(#)$Id: trace.c,v 8.37.4.1 2002/12/05 17:28:05 ca Exp $")
19
20 static char *tTnewflag __P((char *));
21 static char *tToldflag __P((char *));
22
23 /*
24 ** TtSETUP -- set up for trace package.
25 **
26 ** Parameters:
27 ** vect -- pointer to trace vector.
28 ** size -- number of flags in trace vector.
29 ** defflags -- flags to set if no value given.
30 **
31 ** Returns:
32 ** none
33 **
34 ** Side Effects:
35 ** environment is set up.
36 */
37
38 static unsigned char *tTvect;
39 static unsigned int tTsize;
40 static char *DefFlags;
41
42 void
tTsetup(vect,size,defflags)43 tTsetup(vect, size, defflags)
44 unsigned char *vect;
45 unsigned int size;
46 char *defflags;
47 {
48 tTvect = vect;
49 tTsize = size;
50 DefFlags = defflags;
51 }
52
53 /*
54 ** tToldflag -- process an old style trace flag
55 **
56 ** Parameters:
57 ** s -- points to a [\0, \t] terminated string,
58 ** and the initial character is a digit.
59 **
60 ** Returns:
61 ** pointer to terminating [\0, \t] character
62 **
63 ** Side Effects:
64 ** modifies tTvect
65 */
66
67 static char *
tToldflag(s)68 tToldflag(s)
69 register char *s;
70 {
71 unsigned int first, last;
72 register unsigned int i;
73
74 /* find first flag to set */
75 i = 0;
76 while (isascii(*s) && isdigit(*s) && i < tTsize)
77 i = i * 10 + (*s++ - '0');
78
79 /*
80 ** skip over rest of a too large number
81 ** Maybe we should complain if out-of-bounds values are used.
82 */
83
84 while (isascii(*s) && isdigit(*s) && i >= tTsize)
85 s++;
86 first = i;
87
88 /* find last flag to set */
89 if (*s == '-')
90 {
91 i = 0;
92 while (isascii(*++s) && isdigit(*s) && i < tTsize)
93 i = i * 10 + (*s - '0');
94
95 /* skip over rest of a too large number */
96 while (isascii(*s) && isdigit(*s) && i >= tTsize)
97 s++;
98 }
99 last = i;
100
101 /* find the level to set it to */
102 i = 1;
103 if (*s == '.')
104 {
105 i = 0;
106 while (isascii(*++s) && isdigit(*s))
107 i = i * 10 + (*s - '0');
108 }
109
110 /* clean up args */
111 if (first >= tTsize)
112 first = tTsize - 1;
113 if (last >= tTsize)
114 last = tTsize - 1;
115
116 /* set the flags */
117 while (first <= last)
118 tTvect[first++] = (unsigned char) i;
119
120 /* skip trailing junk */
121 while (*s != '\0' && *s != ',' && *s != ' ' && *s != '\t')
122 ++s;
123
124 return s;
125 }
126
127 /*
128 ** tTnewflag -- process a new style trace flag
129 **
130 ** Parameters:
131 ** s -- Points to a non-empty [\0, \t] terminated string,
132 ** of which the initial character is not a digit.
133 **
134 ** Returns:
135 ** pointer to terminating [\0, \t] character
136 **
137 ** Side Effects:
138 ** adds trace flag to libsm debug database
139 */
140
141 static char *
tTnewflag(s)142 tTnewflag(s)
143 register char *s;
144 {
145 char *pat, *endpat;
146 int level;
147
148 pat = s;
149 while (*s != '\0' && *s != ',' && *s != ' ' && *s != '\t' && *s != '.')
150 ++s;
151 endpat = s;
152 if (*s == '.')
153 {
154 ++s;
155 level = 0;
156 while (isascii(*s) && isdigit(*s))
157 {
158 level = level * 10 + (*s - '0');
159 ++s;
160 }
161 if (level < 0)
162 level = 0;
163 }
164 else
165 {
166 level = 1;
167 }
168
169 sm_debug_addsetting_x(sm_strndup_x(pat, endpat - pat), level);
170
171 /* skip trailing junk */
172 while (*s != '\0' && *s != ',' && *s != ' ' && *s != '\t')
173 ++s;
174
175 return s;
176 }
177
178 /*
179 ** TtFLAG -- process an external trace flag list.
180 **
181 ** Parameters:
182 ** s -- the trace flag.
183 **
184 ** The syntax of a trace flag list is as follows:
185 **
186 ** <flags> ::= <flag> | <flags> "," <flag>
187 ** <flag> ::= <categories> | <categories> "." <level>
188 ** <categories> ::= <int> | <int> "-" <int> | <pattern>
189 ** <pattern> ::= <an sh glob pattern matching a C identifier>
190 **
191 ** White space is ignored before and after a flag.
192 ** However, note that we skip over anything we don't
193 ** understand, rather than report an error.
194 **
195 ** Returns:
196 ** none.
197 **
198 ** Side Effects:
199 ** sets/clears old-style trace flags.
200 ** registers new-style trace flags with the libsm debug package.
201 */
202
203 void
tTflag(s)204 tTflag(s)
205 register char *s;
206 {
207 if (s == NULL || *s == '\0')
208 s = DefFlags;
209
210 for (;;)
211 {
212 if (*s == '\0')
213 return;
214 if (*s == ',' || *s == ' ' || *s == '\t')
215 {
216 ++s;
217 continue;
218 }
219 if (isascii(*s) && isdigit(*s))
220 s = tToldflag(s);
221 else
222 s = tTnewflag(s);
223 }
224 }
225