1 /* Copyright (C) 1997,1999-2003,2005,2006,2011 Free Software Foundation, Inc.
2 This file is part of the GNU C Library.
3 Contributed by Ulrich Drepper <drepper@cygnus.com>, 1997.
5 The GNU C Library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Lesser General Public
7 License as published by the Free Software Foundation; either
8 version 2.1 of the License, or (at your option) any later version.
10 The GNU C Library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Lesser General Public License for more details.
15 You should have received a copy of the GNU Lesser General Public
16 License along with the GNU C Library; if not, write to the Free
17 Software Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA
21 #include <bits/libc-lock.h>
25 #include <sys/syslog.h>
29 /* We have global data, protect the modification. */
30 __libc_lock_define_initialized (static, lock
)
40 all_mask
= label_mask
| severity_mask
| text_mask
| action_mask
| tag_mask
46 /* Adjust the size if new elements are added. */
56 #define NKEYWORDS (sizeof( keywords) / sizeof (keywords[0]))
63 struct severity_info
*next
;
67 /* List of known severities. */
68 static const struct severity_info nosev
=
72 static const struct severity_info haltsev
=
74 MM_HALT
, "HALT", (struct severity_info
*) &nosev
76 static const struct severity_info errorsev
=
78 MM_ERROR
, "ERROR", (struct severity_info
*) &haltsev
80 static const struct severity_info warningsev
=
82 MM_WARNING
, "WARNING", (struct severity_info
*) &errorsev
84 static const struct severity_info infosev
=
86 MM_INFO
, "INFO", (struct severity_info
*) &warningsev
89 /* Start of the list. */
90 static struct severity_info
*severity_list
= (struct severity_info
*) &infosev
;
92 /* Mask of values we will print. */
95 /* Prototypes for local functions. */
96 static void init (void);
97 static int internal_addseverity (int severity
, const char *string
)
102 fmtmsg (long int classification
, const char *label
, int severity
,
103 const char *text
, const char *action
, const char *tag
)
105 __libc_once_define (static, once
);
107 struct severity_info
*severity_rec
;
109 /* Make sure everything is initialized. */
110 __libc_once (once
, init
);
112 /* Start the real work. First check whether the input is ok. */
113 if (label
!= MM_NULLLBL
)
115 /* Must be two fields, separated by a colon. */
116 const char *cp
= strchr (label
, ':');
120 /* The first field must not contain more then 10 bytes. */
122 /* The second field must not have more then 14 bytes. */
123 || strlen (cp
+ 1) > 14)
127 for (severity_rec
= severity_list
; severity_rec
!= NULL
;
128 severity_rec
= severity_rec
->next
)
129 if (severity
== severity_rec
->severity
)
133 /* If we don't know anything about the severity level return an error. */
134 if (severity_rec
== NULL
)
138 #ifdef __libc_ptf_call
139 /* We do not want this call to be cut short by a thread
140 cancellation. Therefore disable cancellation for now. */
141 int state
= PTHREAD_CANCEL_ENABLE
;
142 __libc_ptf_call (pthread_setcancelstate
, (PTHREAD_CANCEL_DISABLE
, &state
),
146 /* Now we can print. */
147 if (classification
& MM_PRINT
)
149 int do_label
= (print
& label_mask
) && label
!= MM_NULLLBL
;
150 int do_severity
= (print
& severity_mask
) && severity
!= MM_NULLSEV
;
151 int do_text
= (print
& text_mask
) && text
!= MM_NULLTXT
;
152 int do_action
= (print
& action_mask
) && action
!= MM_NULLACT
;
153 int do_tag
= (print
& tag_mask
) && tag
!= MM_NULLTAG
;
155 if (__fxprintf (stderr
, "%s%s%s%s%s%s%s%s%s%s\n",
156 do_label
? label
: "",
157 do_label
&& (do_severity
| do_text
| do_action
| do_tag
)
159 do_severity
? severity_rec
->string
: "",
160 do_severity
&& (do_text
| do_action
| do_tag
)
163 do_text
&& (do_action
| do_tag
) ? "\n" : "",
164 do_action
? "TO FIX: " : "",
165 do_action
? action
: "",
166 do_action
&& do_tag
? " " : "",
167 do_tag
? tag
: "") < 0)
168 /* Oh, oh. An error occurred during the output. */
172 if (classification
& MM_CONSOLE
)
174 int do_label
= label
!= MM_NULLLBL
;
175 int do_severity
= severity
!= MM_NULLSEV
;
176 int do_text
= text
!= MM_NULLTXT
;
177 int do_action
= action
!= MM_NULLACT
;
178 int do_tag
= tag
!= MM_NULLTAG
;
180 syslog (LOG_ERR
, "%s%s%s%s%s%s%s%s%s%s\n",
181 do_label
? label
: "",
182 do_label
&& (do_severity
| do_text
| do_action
| do_tag
)
184 do_severity
? severity_rec
->string
: "",
185 do_severity
&& (do_text
| do_action
| do_tag
) ? ": " : "",
187 do_text
&& (do_action
| do_tag
) ? "\n" : "",
188 do_action
? "TO FIX: " : "",
189 do_action
? action
: "",
190 do_action
&& do_tag
? " " : "",
194 #ifdef __libc_ptf_call
195 __libc_ptf_call (pthread_setcancelstate
, (state
, NULL
), 0);
202 /* Initialize from environment variable content. */
206 const char *msgverb_var
= getenv ("MSGVERB");
207 const char *sevlevel_var
= getenv ("SEV_LEVEL");
209 if (msgverb_var
!= NULL
&& msgverb_var
[0] != '\0')
211 /* Using this extra variable allows us to work without locking. */
216 for (cnt
= 0; cnt
< NKEYWORDS
; ++cnt
)
217 if (memcmp (msgverb_var
,
218 keywords
[cnt
].name
, keywords
[cnt
].len
) == 0
219 && (msgverb_var
[keywords
[cnt
].len
] == ':'
220 || msgverb_var
[keywords
[cnt
].len
] == '\0'))
227 msgverb_var
+= keywords
[cnt
].len
;
228 if (msgverb_var
[0] == ':')
233 /* We found an illegal keyword in the environment
234 variable. The specifications say that we print all
240 while (msgverb_var
[0] != '\0');
246 if (sevlevel_var
!= NULL
)
248 __libc_lock_lock (lock
);
250 while (sevlevel_var
[0] != '\0')
252 const char *end
= __strchrnul (sevlevel_var
, ':');
255 /* First field: keyword. This is not used here but it must be
257 while (sevlevel_var
< end
)
258 if (*sevlevel_var
++ == ',')
261 if (sevlevel_var
< end
)
263 /* Second field: severity level, a number. */
266 level
= strtol (sevlevel_var
, &cp
, 0);
267 if (cp
!= sevlevel_var
&& cp
< end
&& *cp
++ == ','
270 const char *new_string
;
272 new_string
= __strndup (cp
, end
- cp
);
274 if (new_string
!= NULL
275 && (internal_addseverity (level
, new_string
)
277 free ((char *) new_string
);
281 sevlevel_var
= end
+ (*end
== ':' ? 1 : 0);
287 /* Add the new entry to the list. */
290 internal_addseverity (int severity
, const char *string
)
292 struct severity_info
*runp
, *lastp
;
295 /* First see if there is already a record for the severity level. */
296 for (runp
= severity_list
, lastp
= NULL
; runp
!= NULL
; runp
= runp
->next
)
297 if (runp
->severity
== severity
)
305 /* Change the string. */
306 runp
->string
= string
;
309 /* Remove the severity class. */
311 severity_list
= runp
->next
;
313 lastp
->next
= runp
->next
;
318 else if (string
!= NULL
)
320 runp
= malloc (sizeof (*runp
));
325 runp
->severity
= severity
;
326 runp
->next
= severity_list
;
327 runp
->string
= string
;
328 severity_list
= runp
;
332 /* We tried to remove a non-existing severity class. */
339 /* Add new severity level or remove old one. */
341 addseverity (int severity
, const char *string
)
345 /* Prevent illegal SEVERITY values. */
346 if (severity
<= MM_INFO
)
349 /* Protect the global data. */
350 __libc_lock_lock (lock
);
352 /* Do the real work. */
353 result
= internal_addseverity (severity
, string
);
355 /* Release the lock. */
356 __libc_lock_unlock (lock
);
362 libc_freeres_fn (free_mem
)
364 struct severity_info
*runp
= severity_list
;
367 if (runp
->severity
> MM_INFO
)
369 /* This is data we have to release. */
370 struct severity_info
*here
= runp
;