2010-06-09 Marcus Brinkmann <marcus@g10code.de>
[gpgme.git] / src / op-support.c
1 /* op-support.c - Supporting functions.
2    Copyright (C) 2002, 2003, 2004, 2007 g10 Code GmbH
3
4    This file is part of GPGME.
5  
6    GPGME is free software; you can redistribute it and/or modify it
7    under the terms of the GNU Lesser General Public License as
8    published by the Free Software Foundation; either version 2.1 of
9    the License, or (at your option) any later version.
10    
11    GPGME is distributed in the hope that it will be useful, but
12    WITHOUT ANY WARRANTY; without even the implied warranty of
13    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
14    Lesser General Public License for more details.
15    
16    You should have received a copy of the GNU Lesser General Public
17    License along with this program; if not, see <http://www.gnu.org/licenses/>.
18  */
19
20 #if HAVE_CONFIG_H
21 #include <config.h>
22 #endif
23 #include <stdlib.h>
24 #include <errno.h>
25 #include <string.h>
26 #ifdef HAVE_LOCALE_H
27 #include <locale.h>
28 #endif
29
30 #include "gpgme.h"
31 #include "context.h"
32 #include "ops.h"
33
34 \f
35 gpgme_error_t
36 _gpgme_op_data_lookup (gpgme_ctx_t ctx, ctx_op_data_id_t type, void **hook,
37                        int size, void (*cleanup) (void *))
38 {
39   struct ctx_op_data *data = ctx->op_data;
40   while (data && data->type != type)
41     data = data->next;
42   if (!data)
43     {
44       if (size < 0)
45         {
46           *hook = NULL;
47           return 0;
48         }
49
50       data = calloc (1, sizeof (struct ctx_op_data) + size);
51       if (!data)
52         return gpg_error_from_errno (errno);
53       data->magic = CTX_OP_DATA_MAGIC;
54       data->next = ctx->op_data;
55       data->type = type;
56       data->cleanup = cleanup;
57       data->hook = (void *) (((char *) data) + sizeof (struct ctx_op_data));
58       data->references = 1;
59       ctx->op_data = data;
60     }
61   *hook = data->hook;
62   return 0;
63 }
64
65
66 /* type is: 0: asynchronous operation (use global or user event loop).
67             1: synchronous operation (always use private event loop).
68             2: asynchronous private operation (use private or user
69             event loop).  
70             256: Modification flag to suppress the engine reset.
71 */
72 gpgme_error_t
73 _gpgme_op_reset (gpgme_ctx_t ctx, int type)
74 {
75   gpgme_error_t err = 0;
76   struct gpgme_io_cbs io_cbs;
77   int no_reset = (type & 256);
78   int reuse_engine = 0;
79
80   type &= 255;
81
82   _gpgme_release_result (ctx);
83   LOCK (ctx->lock);
84   ctx->canceled = 0;
85   UNLOCK (ctx->lock);
86
87   if (ctx->engine && no_reset)
88     reuse_engine = 1;
89   else if (ctx->engine)
90     {
91       /* Attempt to reset an existing engine.  */
92
93       err = _gpgme_engine_reset (ctx->engine);
94       if (gpg_err_code (err) == GPG_ERR_NOT_IMPLEMENTED)
95         {
96           _gpgme_engine_release (ctx->engine);
97           ctx->engine = NULL;
98         }
99     }
100
101   if (!ctx->engine)
102     {
103       gpgme_engine_info_t info;
104       info = ctx->engine_info;
105       while (info && info->protocol != ctx->protocol)
106         info = info->next;
107
108       if (!info)
109         return gpg_error (GPG_ERR_UNSUPPORTED_PROTOCOL);
110
111       /* Create an engine object.  */
112       err = _gpgme_engine_new (info, &ctx->engine);
113       if (err)
114         return err;
115     }
116
117   if (!reuse_engine)
118     {
119       err = 0;
120 #ifdef LC_CTYPE
121       err = _gpgme_engine_set_locale (ctx->engine, LC_CTYPE, ctx->lc_ctype);
122 #endif
123 #ifdef LC_MESSAGES
124       if (!err)
125         err = _gpgme_engine_set_locale (ctx->engine,
126                                         LC_MESSAGES, ctx->lc_messages);
127 #endif
128       if (gpg_err_code (err) == GPG_ERR_NOT_IMPLEMENTED)
129         err = 0;
130       if (err)
131         {
132           _gpgme_engine_release (ctx->engine);
133           ctx->engine = NULL;
134           return err;
135         }
136     }
137
138   if (ctx->sub_protocol != GPGME_PROTOCOL_DEFAULT)
139     {
140       err = _gpgme_engine_set_protocol (ctx->engine, ctx->sub_protocol);
141       if (err)
142         return err;
143     }
144
145   if (type == 1 || (type == 2 && !ctx->io_cbs.add))
146     {
147       /* Use private event loop.  */
148       io_cbs.add = _gpgme_add_io_cb;
149       io_cbs.add_priv = ctx;
150       io_cbs.remove = _gpgme_remove_io_cb;
151       io_cbs.event = _gpgme_wait_private_event_cb;
152       io_cbs.event_priv = ctx;
153     }
154   else if (! ctx->io_cbs.add)
155     {
156       /* Use global event loop.  */
157       io_cbs.add = _gpgme_add_io_cb;
158       io_cbs.add_priv = ctx;
159       io_cbs.remove = _gpgme_remove_io_cb;
160       io_cbs.event = _gpgme_wait_global_event_cb;
161       io_cbs.event_priv = ctx;
162     }
163   else
164     {
165       /* Use user event loop.  */
166       io_cbs.add = _gpgme_wait_user_add_io_cb;
167       io_cbs.add_priv = ctx;
168       io_cbs.remove = _gpgme_wait_user_remove_io_cb;
169       io_cbs.event = _gpgme_wait_user_event_cb;
170       io_cbs.event_priv = ctx;
171     }
172   _gpgme_engine_set_io_cbs (ctx->engine, &io_cbs);
173   return err;
174 }
175
176 \f
177 /* Parse the INV_RECP or INV-SNDR status line in ARGS and return the
178    result in KEY.  */
179 gpgme_error_t
180 _gpgme_parse_inv_recp (char *args, gpgme_invalid_key_t *key)
181 {
182   gpgme_invalid_key_t inv_key;
183   char *tail;
184   long int reason;
185
186   inv_key = malloc (sizeof (*inv_key));
187   if (!inv_key)
188     return gpg_error_from_errno (errno);
189   inv_key->next = NULL;
190   gpg_err_set_errno (0);
191   reason = strtol (args, &tail, 0);
192   if (errno || args == tail || (*tail && *tail != ' '))
193     {
194       /* The crypto backend does not behave.  */
195       free (inv_key);
196       return gpg_error (GPG_ERR_INV_ENGINE);
197     }
198
199   switch (reason)
200     {
201     default:
202     case 0:
203       inv_key->reason = gpg_error (GPG_ERR_GENERAL);
204       break;
205
206     case 1:
207       inv_key->reason = gpg_error (GPG_ERR_NO_PUBKEY);
208       break;
209
210     case 2:
211       inv_key->reason = gpg_error (GPG_ERR_AMBIGUOUS_NAME);
212       break;
213
214     case 3:
215       inv_key->reason = gpg_error (GPG_ERR_WRONG_KEY_USAGE);
216       break;
217
218     case 4:
219       inv_key->reason = gpg_error (GPG_ERR_CERT_REVOKED);
220       break;
221
222     case 5:
223       inv_key->reason = gpg_error (GPG_ERR_CERT_EXPIRED);
224       break;
225
226     case 6:
227       inv_key->reason = gpg_error (GPG_ERR_NO_CRL_KNOWN);
228       break;
229
230     case 7:
231       inv_key->reason = gpg_error (GPG_ERR_CRL_TOO_OLD);
232       break;
233
234     case 8:
235       inv_key->reason = gpg_error (GPG_ERR_NO_POLICY_MATCH);
236       break;
237
238     case 9:
239       inv_key->reason = gpg_error (GPG_ERR_NO_SECKEY);
240       break;
241
242     case 10:
243       inv_key->reason = gpg_error (GPG_ERR_PUBKEY_NOT_TRUSTED);
244       break;
245
246     case 11:
247       inv_key->reason = gpg_error (GPG_ERR_MISSING_CERT);
248       break;
249     }
250
251   while (*tail && *tail == ' ')
252     tail++;
253   if (*tail)
254     {
255       inv_key->fpr = strdup (tail);
256       if (!inv_key->fpr)
257         {
258           int saved_errno = errno;
259           free (inv_key);
260           return gpg_error_from_errno (saved_errno);
261         }
262     }
263   else
264     inv_key->fpr = NULL;
265
266   *key = inv_key;
267   return 0;
268 }
269
270
271 /* Parse the PLAINTEXT status line in ARGS and return the result in
272    FILENAMEP.  */
273 gpgme_error_t
274 _gpgme_parse_plaintext (char *args, char **filenamep)
275 {
276   char *tail;
277
278   while (*args == ' ')
279     args++;
280   if (*args == '\0')
281     return 0;
282
283   /* First argument is file type.  */
284   while (*args != ' ' && *args != '\0')
285     args++;
286   while (*args == ' ')
287     args++;
288   if (*args == '\0')
289     return 0;
290
291   /* Second argument is the timestamp.  */
292   while (*args != ' ' && *args != '\0')
293     args++;
294   while (*args == ' ')
295     args++;
296   if (*args == '\0')
297     return 0;
298
299   tail = args;
300   while (*tail != ' ' && *tail != '\0')
301     tail++;
302   *tail = '\0';
303   if (filenamep && *args != '\0')
304     {
305       char *filename = strdup (args);
306       if (!filename)
307         return gpg_error_from_syserror ();
308
309       *filenamep = filename;
310     }
311   return 0;
312 }