gpgme/
[gpgme.git] / gpgme / version.c
1 /* version.c -  version check
2  *      Copyright (C) 2000 Werner Koch (dd9jn)
3  *      Copyright (C) 2001 g10 Code GmbH
4  *
5  * This file is part of GPGME.
6  *
7  * GPGME is free software; you can redistribute it and/or modify
8  * it under the terms of the GNU General Public License as published by
9  * the Free Software Foundation; either version 2 of the License, or
10  * (at your option) any later version.
11  *
12  * GPGME is distributed in the hope that it will be useful,
13  * but WITHOUT ANY WARRANTY; without even the implied warranty of
14  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
15  * GNU General Public License for more details.
16  *
17  * You should have received a copy of the GNU General Public License
18  * along with this program; if not, write to the Free Software
19  * Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA
20  */
21
22 #include <config.h>
23 #include <stdio.h>
24 #include <stdlib.h>
25 #include <string.h>
26 #include <ctype.h>
27
28 #include "gpgme.h"
29 #include "context.h"
30 #include "rungpg.h"
31 #include "sema.h"
32 #include "util.h"
33 #include "key.h" /* for key_cache_init */
34 #include "io.h"
35
36
37 static void
38 do_subsystem_inits (void)
39 {
40   static int done = 0;
41
42   if (done)
43     return;
44   _gpgme_sema_subsystem_init ();
45   _gpgme_key_cache_init ();
46   done = 1;
47 }
48
49 static const char*
50 parse_version_number (const char *s, int *number)
51 {
52   int val = 0;
53
54   if (*s == '0' && isdigit(s[1]))
55     return NULL;  /* Leading zeros are not allowed.  */
56   for (; isdigit(*s); s++)
57     {
58       val *= 10;
59       val += *s - '0';
60     }
61   *number = val;
62   return val < 0 ? NULL : s;
63 }
64
65 static const char *
66 parse_version_string (const char *s, int *major, int *minor, int *micro)
67 {
68   s = parse_version_number (s, major);
69   if (!s || *s != '.')
70     return NULL;
71   s++;
72   s = parse_version_number (s, minor);
73   if (!s || *s != '.')
74     return NULL;
75   s++;
76   s = parse_version_number (s, micro);
77   if (!s)
78     return NULL;
79   return s;  /* Patchlevel.  */
80 }
81
82 const char *
83 _gpgme_compare_versions (const char *my_version,
84                          const char *req_version)
85 {
86   int my_major, my_minor, my_micro;
87   int rq_major, rq_minor, rq_micro;
88   const char *my_plvl, *rq_plvl;
89
90   if (!req_version)
91     return my_version;
92   if (!my_version)
93     return NULL;
94
95   my_plvl = parse_version_string (my_version, &my_major, &my_minor, &my_micro);
96   if (!my_plvl)
97     return NULL;        /* Very strange: our own version is bogus.  */
98   rq_plvl = parse_version_string(req_version,
99                                  &rq_major, &rq_minor, &rq_micro);
100   if (!rq_plvl)
101     return NULL;        /* Requested version string is invalid.  */
102
103   if (my_major > rq_major
104         || (my_major == rq_major && my_minor > rq_minor)
105       || (my_major == rq_major && my_minor == rq_minor 
106           && my_micro > rq_micro)
107       || (my_major == rq_major && my_minor == rq_minor
108           && my_micro == rq_micro
109           && strcmp( my_plvl, rq_plvl ) >= 0))
110     {
111       return my_version;
112     }
113   return NULL;
114 }
115
116 /**
117  * gpgme_check_version:
118  * @req_version: A string with a version
119  * 
120  * Check that the the version of the library is at minimum the requested one
121  * and return the version string; return NULL if the condition is not
122  * met.  If a NULL is passed to this function, no check is done and
123  * the version string is simply returned.  It is a pretty good idea to
124  * run this function as soon as possible, because it also intializes 
125  * some subsystems.  In a multithreaded environment if should be called
126  * before the first thread is created.
127  * 
128  * Return value: The version string or NULL
129  **/
130 const char *
131 gpgme_check_version (const char *req_version)
132 {
133   do_subsystem_inits ();
134   return _gpgme_compare_versions (VERSION, req_version);
135 }
136
137 /**
138  * gpgme_get_engine_info:
139  *  
140  * Return information about the underlying crypto engines.  This is an
141  * XML string with various information.  A string is always returned
142  * even if the crypto engines is not installed; in this case a XML
143  * string with some error information is returned.
144  * 
145  * Return value: A XML string with information about the crypto
146  * engines.
147  **/
148 const char *
149 gpgme_get_engine_info ()
150 {
151   static const char *engine_info;
152   DEFINE_STATIC_LOCK (engine_info_lock);
153
154   LOCK (engine_info_lock);
155   if (!engine_info)
156     {
157       const char *openpgp_info = _gpgme_engine_get_info (GPGME_PROTOCOL_OpenPGP);
158       const char *cms_info = _gpgme_engine_get_info (GPGME_PROTOCOL_CMS);
159       char *info;
160
161       if (!openpgp_info && !cms_info)
162         info = "<EngineInfo>\n</EngineInfo>\n";
163       else if (!openpgp_info || !cms_info)
164         {
165           const char *fmt = "<EngineInfo>\n"
166             "%s"
167             "</EngineInfo>\n";
168
169           info = xtrymalloc (strlen (fmt)
170                              + strlen (openpgp_info
171                                       ? openpgp_info : cms_info) + 1);
172           if (info)
173             sprintf (info, fmt, openpgp_info ? openpgp_info : cms_info);
174         }
175       else
176         {
177           const char *fmt = "<EngineInfo>\n"
178             "%s%s"
179             "</EngineInfo>\n";
180           info = xtrymalloc (strlen (fmt) + strlen (openpgp_info)
181                              + strlen (cms_info) + 1);
182           if (info)
183             sprintf (info, fmt, openpgp_info, cms_info);
184         }
185       if (!info)
186         info = "<EngineInfo>\n"
187           "  <error>Out of core</error>\n"
188           "</EngineInfo>\n";
189       engine_info = info;
190     }
191   UNLOCK (engine_info_lock);
192   return engine_info;
193 }
194
195
196 \f
197 #define LINELENGTH 80
198
199 char *
200 _gpgme_get_program_version (const char *const path)
201 {
202   char line[LINELENGTH] = "";
203   int linelen = 0;
204   char *mark = NULL;
205   int rp[2];
206   int nread;
207   char *argv[] = {NULL /* path */, "--version", 0};
208   struct spawn_fd_item_s pfd[] = { {0, -1}, {-1, -1} };
209   struct spawn_fd_item_s cfd[] = { {-1, 1 /* STDOUT_FILENO */}, {-1, -1} };
210   int status;
211
212   if (!path)
213     return NULL;
214   argv[0] = (char *) path;
215
216   if (_gpgme_io_pipe (rp, 1) < 0)
217     return NULL;
218
219   pfd[0].fd = rp[1];
220   cfd[0].fd = rp[1];
221
222   status = _gpgme_io_spawn (path, argv, cfd, pfd);
223   if (status < 0)
224     {
225       _gpgme_io_close (rp[0]);
226       _gpgme_io_close (rp[1]);
227       return NULL;
228     }
229
230   do
231     {
232       nread = _gpgme_io_read (rp[0], &line[linelen], LINELENGTH - linelen - 1);
233       if (nread > 0)
234         {
235           line[linelen + nread] = '\0';
236           mark = strchr (&line[linelen], '\n');
237           if (mark)
238             {
239               *mark = '\0';
240               break;
241             }
242           linelen += nread;
243         }
244     }
245   while (nread > 0 && linelen < LINELENGTH - 1);
246
247   _gpgme_io_close (rp[0]);
248
249   if (mark)
250     {
251       mark = strrchr (line, ' ');
252       if (!mark)
253         return NULL;
254       return xtrystrdup (mark + 1);
255     }
256
257   return NULL;
258 }