Add finger support to dirmngr.
[gnupg.git] / common / init.c
1 /* init.c - Various initializations
2  *      Copyright (C) 2007 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 3 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, see <http://www.gnu.org/licenses/>.
18  */
19
20 #include <config.h>
21
22 #ifdef WITHOUT_GNU_PTH /* Give the Makefile a chance to build without Pth.  */
23 #undef HAVE_PTH
24 #undef USE_GNU_PTH
25 #endif
26
27 #ifdef HAVE_W32_SYSTEM
28 #include <windows.h>
29 #endif
30 #ifdef HAVE_PTH
31 #include <pth.h>
32 #endif
33 #ifdef HAVE_W32CE_SYSTEM
34 # include <assuan.h> /* For _assuan_w32ce_finish_pipe. */
35 #endif
36
37 #include "util.h"
38
39
40 #ifdef HAVE_W32CE_SYSTEM
41 static void parse_std_file_handles (int *argcp, char ***argvp);
42 static void
43 sleep_on_exit (void)
44 {
45   /* The sshd on CE swallows some of the command output.  Sleeping a
46      while usually helps.  */
47   Sleep (400);
48 }
49 #endif /*HAVE_W32CE_SYSTEM*/
50
51
52 /* If STRING is not NULL write string to es_stdout or es_stderr.  MODE
53    must be 1 or 2.  If STRING is NULL flush the respective stream.  */
54 static int
55 writestring_via_estream (int mode, const char *string)
56 {
57   if (mode == 1 || mode == 2)
58     {
59       if (string)
60         return es_fputs (string, mode == 1? es_stdout : es_stderr);
61       else
62         return es_fflush (mode == 1? es_stdout : es_stderr);
63     }
64   else
65     return -1;
66 }
67
68
69 /* This function is to be used early at program startup to make sure
70    that some subsystems are initialized.  This is in particular
71    important for W32 to initialize the sockets so that our socket
72    emulation code used directly as well as in libassuan may be used.
73    It should best be called before any I/O is done so that setup
74    required for logging is ready.  ARGCP and ARGVP are the addresses
75    of the parameters given to main.  This function may modify them.
76
77    CAUTION: This might be called while running suid(root).  */
78 void
79 init_common_subsystems (int *argcp, char ***argvp)
80 {
81   /* Try to auto set the character set.  */
82   set_native_charset (NULL);
83
84 #ifdef HAVE_W32_SYSTEM
85   /* For W32 we need to initialize the socket layer.  This is because
86      we use recv and send in libassuan as well as at some other
87      places.  If we are building with PTH we let pth_init do it.  We
88      can't do much on error so we ignore them.  An error would anyway
89      later pop up if one of the socket functions is used. */
90 # ifdef HAVE_PTH
91   pth_init ();
92 # else
93   {
94     WSADATA wsadat;
95
96     WSAStartup (0x202, &wsadat);
97   }
98 # endif /*!HAVE_PTH*/
99 #endif
100
101 #ifdef HAVE_W32CE_SYSTEM
102   /* Register the sleep exit function before the estream init so that
103      the sleep will be called after the estream registered atexit
104      function which flushes the left open estream streams and in
105      particular es_stdout.  */
106   atexit (sleep_on_exit);
107 #endif
108
109   /* Initialize the Estream library. */
110   es_init ();
111
112   /* Special hack for Windows CE: We extract some options from arg
113      to setup the standard handles.  */
114 #ifdef HAVE_W32CE_SYSTEM
115   parse_std_file_handles (argcp, argvp);
116 #else
117   (void)argcp;
118   (void)argvp;
119 #endif
120
121   /* Access the standard estreams as early as possible.  If we don't
122      do this the original stdio streams may have been closed when
123      _es_get_std_stream is first use and in turn it would connect to
124      the bit bucket.  */
125   {
126     int i;
127     for (i=0; i < 3; i++)
128       (void)_es_get_std_stream (i);
129   }
130
131   /* --version et al shall use estream as well.  */
132   argparse_register_outfnc (writestring_via_estream);
133 }
134
135
136
137 /* WindowsCE uses a very strange way of handling the standard streams.
138    There is a function SetStdioPath to associate a standard stream
139    with a file or a device but what we really want is to use pipes as
140    standard streams.  Despite that we implement pipes using a device,
141    we would have some limitations on the number of open pipes due to
142    the 3 character limit of device file name.  Thus we don't take this
143    path.  Another option would be to install a file system driver with
144    support for pipes; this would allow us to get rid of the device
145    name length limitation.  However, with GnuPG we can get away be
146    redefining the standard streams and passing the handles to be used
147    on the command line.  This has also the advantage that it makes
148    creating a process much easier and does not require the
149    SetStdioPath set and restore game.  The caller needs to pass the
150    rendezvous ids using up to three options:
151
152      -&S0=<rvid> -&S1=<rvid> -&S2=<rvid>
153
154    They are all optional but they must be the first arguments on the
155    command line.  Parsing stops as soon as an invalid option is found.
156    These rendezvous ids are then used to finish the pipe creation.*/
157 #ifdef HAVE_W32CE_SYSTEM
158 static void
159 parse_std_file_handles (int *argcp, char ***argvp)
160 {
161   int argc = *argcp;
162   char **argv = *argvp;
163   const char *s;
164   assuan_fd_t fd;
165   int i;
166   int fixup = 0;
167
168   if (!argc)
169     return;
170
171   for (argc--, argv++; argc; argc--, argv++)
172     {
173       s = *argv;
174       if (*s == '-' && s[1] == '&' && s[2] == 'S'
175           && (s[3] == '0' || s[3] == '1' || s[3] == '2')
176           && s[4] == '='
177           && (strchr ("-01234567890", s[5]) || !strcmp (s+5, "null")))
178         {
179           if (s[5] == 'n')
180             fd = ASSUAN_INVALID_FD;
181           else
182             fd = _assuan_w32ce_finish_pipe (atoi (s+5), s[3] != '0');
183           _es_set_std_fd (s[3] - '0', (int)fd);
184           fixup++;
185         }
186       else
187         break;
188     }
189
190   if (fixup)
191     {
192       argc = *argcp;
193       argc -= fixup;
194       *argcp = argc;
195
196       argv = *argvp;
197       for (i=1; i < argc; i++)
198         argv[i] = argv[i + fixup];
199       for (; i < argc + fixup; i++)
200         argv[i] = NULL;
201     }
202
203
204 }
205 #endif /*HAVE_W32CE_SYSTEM*/