Some bug fixes of the last release
[gnupg.git] / util / logger.c
1 /* logger.c  -  log functions
2  *      Copyright (C) 1998 Free Software Foundation, Inc.
3  *
4  * This file is part of GNUPG.
5  *
6  * GNUPG is free software; you can redistribute it and/or modify
7  * it under the terms of the GNU General Public License as published by
8  * the Free Software Foundation; either version 2 of the License, or
9  * (at your option) any later version.
10  *
11  * GNUPG is distributed in the hope that it will be useful,
12  * but WITHOUT ANY WARRANTY; without even the implied warranty of
13  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
14  * GNU General Public License for more details.
15  *
16  * You should have received a copy of the GNU General Public License
17  * along with this program; if not, write to the Free Software
18  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
19  */
20
21 #include <config.h>
22 #include <stdio.h>
23 #include <stdlib.h>
24 #include <stdarg.h>
25
26 #include "util.h"
27 #include "i18n.h"
28
29 static char pidstring[15];
30 static char *pgm_name;
31 static int errorcount;
32
33 void
34 log_set_name( const char *name )
35 {
36     m_free(pgm_name);
37     if( name )
38         pgm_name = m_strdup(name);
39     else
40         pgm_name = NULL;
41 }
42
43 const char *
44 log_get_name(void)
45 {
46     return pgm_name? pgm_name : "";
47 }
48
49
50 void
51 log_set_pid( int pid )
52 {
53     if( pid )
54         sprintf(pidstring,"[%u]", (unsigned)pid );
55     else
56         *pidstring = 0;
57 }
58
59 int
60 log_get_errorcount( int clear)
61 {
62     int n = errorcount;
63     if( clear )
64         errorcount = 0;
65     return n;
66 }
67
68
69 static void
70 print_prefix(const char *text)
71 {
72     if( pgm_name )
73         fprintf(stderr, "%s%s: %s", pgm_name, pidstring, text );
74     else
75         fprintf(stderr, "?%s: %s", pidstring, text );
76 }
77
78 static void
79 print_prefix_f(const char *text, const char *fname)
80 {
81     if( pgm_name )
82         fprintf(stderr, "%s%s:%s: %s", pgm_name, pidstring, fname, text );
83     else
84         fprintf(stderr, "?%s:%s: %s", pidstring, fname, text );
85 }
86
87 void
88 g10_log_info( const char *fmt, ... )
89 {
90     va_list arg_ptr ;
91
92     print_prefix("");
93     va_start( arg_ptr, fmt ) ;
94     vfprintf(stderr,fmt,arg_ptr) ;
95     va_end(arg_ptr);
96 }
97
98 void
99 g10_log_info_f( const char *fname, const char *fmt, ... )
100 {
101     va_list arg_ptr ;
102
103     print_prefix_f("", fname);
104     va_start( arg_ptr, fmt ) ;
105     vfprintf(stderr,fmt,arg_ptr) ;
106     va_end(arg_ptr);
107 }
108
109 void
110 g10_log_error( const char *fmt, ... )
111 {
112     va_list arg_ptr ;
113
114     print_prefix("");
115     va_start( arg_ptr, fmt ) ;
116     vfprintf(stderr,fmt,arg_ptr) ;
117     va_end(arg_ptr);
118     errorcount++;
119 }
120
121 void
122 g10_log_error_f( const char *fname, const char *fmt, ... )
123 {
124     va_list arg_ptr ;
125
126     print_prefix_f("", fname);
127     va_start( arg_ptr, fmt ) ;
128     vfprintf(stderr,fmt,arg_ptr) ;
129     va_end(arg_ptr);
130     errorcount++;
131 }
132
133 void
134 g10_log_fatal( const char *fmt, ... )
135 {
136     va_list arg_ptr ;
137
138     print_prefix("fatal: ");
139     va_start( arg_ptr, fmt ) ;
140     vfprintf(stderr,fmt,arg_ptr) ;
141     va_end(arg_ptr);
142     secmem_dump_stats();
143     exit(2);
144 }
145
146 void
147 g10_log_fatal_f( const char *fname, const char *fmt, ... )
148 {
149     va_list arg_ptr ;
150
151     print_prefix_f("fatal: ", fname);
152     va_start( arg_ptr, fmt ) ;
153     vfprintf(stderr,fmt,arg_ptr) ;
154     va_end(arg_ptr);
155     secmem_dump_stats();
156     exit(2);
157 }
158
159 void
160 g10_log_bug( const char *fmt, ... )
161 {
162     va_list arg_ptr ;
163
164     putc('\n', stderr );
165     print_prefix("Ohhhh jeeee: ");
166     va_start( arg_ptr, fmt ) ;
167     vfprintf(stderr,fmt,arg_ptr) ;
168     va_end(arg_ptr);
169     fflush(stderr);
170     secmem_dump_stats();
171     abort();
172 }
173
174 #if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 5 )
175 void
176 g10_log_bug0( const char *file, int line, const char *func )
177 {
178     log_bug(_("... this is a bug (%s:%d:%s)\n"), file, line, func );
179 }
180 #else
181 void
182 g10_log_bug0( const char *file, int line )
183 {
184     log_bug(_("you found a bug ... (%s:%d)\n"), file, line);
185 }
186 #endif
187
188 void
189 g10_log_debug( const char *fmt, ... )
190 {
191     va_list arg_ptr ;
192
193     print_prefix("DBG: ");
194     va_start( arg_ptr, fmt ) ;
195     vfprintf(stderr,fmt,arg_ptr) ;
196     va_end(arg_ptr);
197 }
198
199 void
200 g10_log_debug_f( const char *fname, const char *fmt, ... )
201 {
202     va_list arg_ptr ;
203
204     print_prefix_f("DBG: ", fname);
205     va_start( arg_ptr, fmt ) ;
206     vfprintf(stderr,fmt,arg_ptr) ;
207     va_end(arg_ptr);
208 }
209
210
211
212 void
213 g10_log_hexdump( const char *text, char *buf, size_t len )
214 {
215     int i;
216
217     print_prefix(text);
218     for(i=0; i < len; i++ )
219         fprintf(stderr, " %02X", ((byte*)buf)[i] );
220     fputc('\n', stderr);
221 }
222
223
224 void
225 g10_log_mpidump( const char *text, MPI a )
226 {
227     print_prefix(text);
228     mpi_print(stderr, a, 1 );
229     fputc('\n', stderr);
230 }
231