Set DISPLAY environment variable if --display option
[pinentry-qt.git] / assuan-util.c
1 /* assuan-util.c - Utility functions for Assuan 
2  *      Copyright (C) 2001 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 #ifdef HAVE_CONFIG_H
22 #include <config.h>
23 #endif
24 #include <stdlib.h>
25 #include <stdio.h>
26 #include <string.h>
27
28 #include "assuan-defs.h"
29
30 #ifdef HAVE_JNLIB_LOGGING
31 #include "../jnlib/logging.h"
32 #endif
33
34
35 static void *(*alloc_func)(size_t n) = malloc;
36 static void *(*realloc_func)(void *p, size_t n) = realloc;
37 static void (*free_func)(void*) = free;
38
39
40
41 void
42 assuan_set_malloc_hooks ( void *(*new_alloc_func)(size_t n),
43                           void *(*new_realloc_func)(void *p, size_t n),
44                           void (*new_free_func)(void*) )
45 {
46   alloc_func        = new_alloc_func;
47   realloc_func      = new_realloc_func;
48   free_func         = new_free_func;
49 }
50
51 void *
52 _assuan_malloc (size_t n)
53 {
54   return alloc_func (n);
55 }
56
57 void *
58 _assuan_realloc (void *a, size_t n)
59 {
60   return realloc_func (a, n);
61 }
62
63 void *
64 _assuan_calloc (size_t n, size_t m)
65 {
66   void *p = _assuan_malloc (n*m);
67   if (p)
68     memset (p, 0, n* m);
69   return p;
70 }
71
72 void
73 _assuan_free (void *p)
74 {
75   if (p)
76     free_func (p);
77 }
78
79
80 \f
81 /* Store the error in the context so that the error sending function
82   can take out a descriptive text.  Inside the assuan code, use the
83   macro set_error instead of this function. */
84 int
85 assuan_set_error (ASSUAN_CONTEXT ctx, int err, const char *text)
86 {
87   ctx->err_no = err;
88   ctx->err_str = text;
89   return err;
90 }
91
92 void
93 assuan_set_pointer (ASSUAN_CONTEXT ctx, void *pointer)
94 {
95   if (ctx)
96     ctx->user_pointer = pointer;
97 }
98
99 void *
100 assuan_get_pointer (ASSUAN_CONTEXT ctx)
101 {
102   return ctx? ctx->user_pointer : NULL;
103 }
104
105
106 void
107 assuan_set_log_stream (ASSUAN_CONTEXT ctx, FILE *fp)
108 {
109   if (ctx)
110     {
111       if (ctx->log_fp)
112         fflush (ctx->log_fp);
113       ctx->log_fp = fp;
114     }
115 }
116
117
118 void
119 assuan_begin_confidential (ASSUAN_CONTEXT ctx)
120 {
121   if (ctx)
122     {
123       ctx->confidential = 1;
124     }
125 }
126
127 void
128 assuan_end_confidential (ASSUAN_CONTEXT ctx)
129 {
130   if (ctx)
131     {
132       ctx->confidential = 0;
133     }
134 }
135
136 void
137 _assuan_log_print_buffer (FILE *fp, const void *buffer, size_t length)
138 {
139   const unsigned char *s;
140   int n;
141
142   for (n=length,s=buffer; n; n--, s++)
143     {
144       if (*s < ' ' || (*s >= 0x7f && *s <= 0xa0))
145         break;
146     }
147   s = buffer;
148   if (!n && *s != '[')
149     fwrite (buffer, length, 1, fp);
150   else
151     {
152       putc ('[', fp);
153       for (n=0; n < length; n++, s++)
154           fprintf (fp, " %02x", *s);
155       putc (' ', fp);
156       putc (']', fp);
157     }
158 }
159
160
161 /* print a user supplied string after filtering out potential bad
162    characters*/
163 void
164 _assuan_log_sanitized_string (const char *string)
165 {
166   const unsigned char *s = (const unsigned char*)string;
167 #ifdef HAVE_JNLIB_LOGGING
168   FILE *fp = log_get_stream ();
169 #else
170   FILE *fp = stderr;
171 #endif
172
173   for (; *s; s++)
174     {
175       if (*s < 0x20 || (*s >= 0x7f && *s <= 0xa0))
176         {
177           putc ('\\', fp);
178           if (*s == '\n')
179             putc ('n', fp);
180           else if (*s == '\r')
181             putc ('r', fp);
182           else if (*s == '\f')
183             putc ('f', fp);
184           else if (*s == '\v')
185             putc ('v', fp);
186           else if (*s == '\b')
187             putc ('b', fp);
188           else if (!*s)
189             putc ('0', fp);
190           else
191             fprintf (fp, "x%02x", *s );
192         }
193       else
194         putc (*s, fp);
195     }
196 }
197
198