Epxerimenta support for GDBM keyings.
[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 static void
69 print_prefix(const char *text)
70 {
71     if( pgm_name )
72         fprintf(stderr, "%s%s: %s", pgm_name, pidstring, text );
73     else
74         fprintf(stderr, "?%s: %s", pidstring, text );
75 }
76
77 static void
78 print_prefix_f(const char *text, const char *fname)
79 {
80     if( pgm_name )
81         fprintf(stderr, "%s%s:%s: %s", pgm_name, pidstring, fname, text );
82     else
83         fprintf(stderr, "?%s:%s: %s", pidstring, fname, text );
84 }
85
86 void
87 g10_log_info( const char *fmt, ... )
88 {
89     va_list arg_ptr ;
90
91     print_prefix("");
92     va_start( arg_ptr, fmt ) ;
93     vfprintf(stderr,fmt,arg_ptr) ;
94     va_end(arg_ptr);
95 }
96
97 void
98 g10_log_info_f( const char *fname, const char *fmt, ... )
99 {
100     va_list arg_ptr ;
101
102     print_prefix_f("", fname);
103     va_start( arg_ptr, fmt ) ;
104     vfprintf(stderr,fmt,arg_ptr) ;
105     va_end(arg_ptr);
106 }
107
108 void
109 g10_log_error( const char *fmt, ... )
110 {
111     va_list arg_ptr ;
112
113     print_prefix("");
114     va_start( arg_ptr, fmt ) ;
115     vfprintf(stderr,fmt,arg_ptr) ;
116     va_end(arg_ptr);
117     errorcount++;
118 }
119
120 void
121 g10_log_error_f( const char *fname, const char *fmt, ... )
122 {
123     va_list arg_ptr ;
124
125     print_prefix_f("", fname);
126     va_start( arg_ptr, fmt ) ;
127     vfprintf(stderr,fmt,arg_ptr) ;
128     va_end(arg_ptr);
129     errorcount++;
130 }
131
132 void
133 g10_log_fatal( const char *fmt, ... )
134 {
135     va_list arg_ptr ;
136
137     print_prefix("fatal: ");
138     va_start( arg_ptr, fmt ) ;
139     vfprintf(stderr,fmt,arg_ptr) ;
140     va_end(arg_ptr);
141     secmem_dump_stats();
142     exit(2);
143 }
144
145 void
146 g10_log_fatal_f( const char *fname, const char *fmt, ... )
147 {
148     va_list arg_ptr ;
149
150     print_prefix_f("fatal: ", fname);
151     va_start( arg_ptr, fmt ) ;
152     vfprintf(stderr,fmt,arg_ptr) ;
153     va_end(arg_ptr);
154     secmem_dump_stats();
155     exit(2);
156 }
157
158 void
159 g10_log_bug( const char *fmt, ... )
160 {
161     va_list arg_ptr ;
162
163     putc('\n', stderr );
164     print_prefix("Ohhhh jeeee: ");
165     va_start( arg_ptr, fmt ) ;
166     vfprintf(stderr,fmt,arg_ptr) ;
167     va_end(arg_ptr);
168     fflush(stderr);
169     secmem_dump_stats();
170     abort();
171 }
172
173 #if __GNUC__ > 2 || (__GNUC__ == 2 && __GNUC_MINOR__ >= 5 )
174 void
175 g10_log_bug0( const char *file, int line, const char *func )
176 {
177     log_bug(_("... this is a bug (%s:%d:%s)\n"), file, line, func );
178 }
179 #else
180 void
181 g10_log_bug0( const char *file, int line )
182 {
183     log_bug(_("you found a bug ... (%s:%d)\n"), file, line);
184 }
185 #endif
186
187 void
188 g10_log_debug( const char *fmt, ... )
189 {
190     va_list arg_ptr ;
191
192     print_prefix("DBG: ");
193     va_start( arg_ptr, fmt ) ;
194     vfprintf(stderr,fmt,arg_ptr) ;
195     va_end(arg_ptr);
196 }
197
198 void
199 g10_log_debug_f( const char *fname, const char *fmt, ... )
200 {
201     va_list arg_ptr ;
202
203     print_prefix_f("DBG: ", fname);
204     va_start( arg_ptr, fmt ) ;
205     vfprintf(stderr,fmt,arg_ptr) ;
206     va_end(arg_ptr);
207 }
208
209
210
211 void
212 g10_log_hexdump( const char *text, char *buf, size_t len )
213 {
214     int i;
215
216     print_prefix(text);
217     for(i=0; i < len; i++ )
218         fprintf(stderr, " %02X", ((byte*)buf)[i] );
219     fputc('\n', stderr);
220 }
221
222
223 void
224 g10_log_mpidump( const char *text, MPI a )
225 {
226     print_prefix(text);
227     mpi_print(stderr, a, 1 );
228     fputc('\n', stderr);
229 }
230