Move gpg test programs to the top test directory.
[gpgme.git] / assuan / mkerrors
1 #!/bin/sh
2 # mkerrors - Extract error strings from assuan.h
3 #            and create C source for assuan_strerror
4 #       Copyright (C) 2001, 2002, 2006 Free Software Foundation, Inc.
5 #
6 # This file is part of Assuan.
7 #
8 # Assuan is free software; you can redistribute it and/or modify it
9 # under the terms of the GNU Lesser General Public License as
10 # published by the Free Software Foundation; either version 2.1 of
11 # the License, or (at your option) any later version.
12 #
13 # Assuan is distributed in the hope that it will be useful, but
14 # WITHOUT ANY WARRANTY; without even the implied warranty of
15 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
16 # Lesser General Public License for more details.
17 #
18 # You should have received a copy of the GNU Lesser General Public
19 # License along with this program; if not, see <http://www.gnu.org/licenses/>.
20 cat <<EOF
21 /* Generated automatically by mkerrors */
22 /* Do not edit!  See mkerrors for copyright notice. */
23
24 #ifdef HAVE_CONFIG_H
25 #include <config.h>
26 #endif
27
28 #include <stdio.h>
29 #include <assert.h>
30 #include <errno.h>
31
32 #undef _ASSUAN_IN_LIBASSUAN /* undef to get all error codes. */
33 #include "assuan.h"
34 #include "assuan-defs.h"
35
36 /* If true the modern gpg-error style error codes are used in the
37    API. */
38 static unsigned int err_source;
39
40 /* Enable gpg-error style error codes.  ERRSOURCE is one of gpg-error
41    sources.  Note, that this function is not thread-safe and should be
42    used right at startup. Switching back to the old style mode is not
43    supported. */
44 void
45 assuan_set_assuan_err_source (int errsource)
46 {
47   errsource &= 0xff;
48   err_source = errsource? errsource : 31 /*GPG_ERR_SOURCE_ANY*/;
49 }
50
51
52 /* Helper to map old style Assuan error codes to gpg-error codes.
53    This is used internally to keep an compatible ABI. */
54 assuan_error_t
55 _assuan_error (int oldcode)
56 {
57   unsigned int n;
58
59   if (!err_source)
60     {
61       if (oldcode == -1)
62         return -1;
63       else
64         return (oldcode & 0x00ffffff); /* Make sure that the gpg-error
65                                           source part is cleared. */
66     }
67
68   switch (oldcode)
69     {
70     case ASSUAN_General_Error:           n = 257; break;
71     case ASSUAN_Accept_Failed:           n = 258; break;
72     case ASSUAN_Connect_Failed:          n = 259; break;
73     case ASSUAN_Invalid_Response:        n = 260; break;
74     case ASSUAN_Invalid_Value:           n = 261; break;
75     case ASSUAN_Line_Not_Terminated:     n = 262; break;
76     case ASSUAN_Line_Too_Long:           n = 263; break;
77     case ASSUAN_Nested_Commands:         n = 264; break;
78     case ASSUAN_No_Data_Callback:        n = 265; break;
79     case ASSUAN_No_Inquire_Callback:     n = 266; break;
80     case ASSUAN_Not_A_Server:            n = 267; break;
81     case ASSUAN_Not_Implemented:         n =  69; break;
82     case ASSUAN_Parameter_Conflict:      n = 280; break;
83     case ASSUAN_Problem_Starting_Server: n = 269; break;
84     case ASSUAN_Server_Fault:            n =  80; break;
85     case ASSUAN_Syntax_Error:            n = 276; break;
86     case ASSUAN_Too_Much_Data:           n = 273; break;
87     case ASSUAN_Unexpected_Command:      n = 274; break;
88     case ASSUAN_Unknown_Command:         n = 275; break;
89     case ASSUAN_Canceled:                n = 277; break;
90     case ASSUAN_No_Secret_Key:           n =  17; break;
91     case ASSUAN_Not_Confirmed:           n = 114; break;
92
93     case ASSUAN_Read_Error:
94       switch (errno)
95         {
96         case 0: n = 16381; /*GPG_ERR_MISSING_ERRNO*/  break;
97         case EAGAIN:
98           n = (6 | (1 << 15));
99           break;
100         default: n = 270;  /*GPG_ERR_ASS_READ_ERROR*/ break;
101         }
102       break;
103
104     case ASSUAN_Write_Error:
105       switch (errno)
106         {
107         case 0: n = 16381; /*GPG_ERR_MISSING_ERRNO*/  break;
108         case EAGAIN:
109           n = (6 | (1 << 15));
110           break;
111         default: n = 271;  /*GPG_ERR_ASS_WRITE_ERROR*/ break;
112         }
113       break;
114       
115     case ASSUAN_Out_Of_Core:
116       switch (errno)
117         {
118         case 0:  /* Should not happen but a user might have provided
119                     an incomplete implemented malloc function.  Give
120                     him a chance to correct this fault but make sure
121                     an error is indeed returned. */
122           n = 16381; /*GPG_ERR_MISSING_ERRNO*/
123           break;
124         case ENOMEM:
125           n = (86 | (1 << 15));
126           break;
127         default:  
128           n = 16382; /*GPG_ERR_UNKNOWN_ERRNO*/
129           break;
130         }
131       break;
132
133     case -1: n = 16383 /*GPG_ERR_EOF*/; break;
134
135     default:
136       n = 257; 
137       break;
138     }
139
140   return ((err_source << 24) | (n & 0x00ffffff));
141
142 }
143
144
145 /* A small helper function to treat EAGAIN transparently to the
146    caller.  */
147 int
148 _assuan_error_is_eagain (assuan_error_t err)
149 {
150   if ((!err_source && err == ASSUAN_Read_Error && errno == EAGAIN)
151       || (err_source && (err & ((1 << 24) - 1)) == (6 | (1 << 15))))
152     {
153       /* Avoid spinning by sleeping for one tenth of a second.  */
154        _assuan_usleep (100000);
155        return 1;
156     }
157   else
158     return 0;
159 }
160    
161
162 /**
163  * assuan_strerror:
164  * @err:  Error code 
165  * 
166  * This function returns a textual representaion of the given
167  * errorcode. If this is an unknown value, a string with the value
168  * is returned (Beware: it is hold in a static buffer).
169  * 
170  * Return value: String with the error description.
171  **/
172 const char *
173 assuan_strerror (assuan_error_t err)
174 {
175   const char *s;
176   static char buf[50];
177
178   switch (err)
179     {
180 EOF
181
182 awk '
183 /ASSUAN_No_Error/        { okay=1 }
184 !okay                    {next}
185 /^#define[ ]+ASSUAN_[A-Za-z_]*/ { print_code($2) }
186 /ASSUAN_USER_ERROR_LAST/ { exit 0 }
187
188
189 function print_code( s )
190 {
191 printf "    case %s: s=\"", s ;
192 gsub(/_/, " ", s );
193 printf "%s\"; break;\n", tolower(substr(s,8));
194 }
195 '
196
197 cat <<EOF
198   case -1: s = "EOF (-1)"; break;
199     default: 
200       {
201         unsigned int source, code, n;
202
203         source = ((err >> 24) & 0xff);
204         code = (err & 0x00ffffff);
205         if (source) 
206           {
207             /* Assume this is an libgpg-error and try to map the codes
208                back. */
209             switch (code)
210               {
211               case 257: n = ASSUAN_General_Error          ; break;
212               case 258: n = ASSUAN_Accept_Failed          ; break;
213               case 259: n = ASSUAN_Connect_Failed         ; break;
214               case 260: n = ASSUAN_Invalid_Response       ; break;
215               case 261: n = ASSUAN_Invalid_Value          ; break;
216               case 262: n = ASSUAN_Line_Not_Terminated    ; break;
217               case 263: n = ASSUAN_Line_Too_Long          ; break;
218               case 264: n = ASSUAN_Nested_Commands        ; break;
219               case 265: n = ASSUAN_No_Data_Callback       ; break;
220               case 266: n = ASSUAN_No_Inquire_Callback    ; break;
221               case 267: n = ASSUAN_Not_A_Server           ; break;
222               case  69: n = ASSUAN_Not_Implemented        ; break;
223               case 280: n = ASSUAN_Parameter_Conflict     ; break;
224               case 269: n = ASSUAN_Problem_Starting_Server; break;
225               case 270: n = ASSUAN_Read_Error             ; break;
226               case 271: n = ASSUAN_Write_Error            ; break;
227               case  80: n = ASSUAN_Server_Fault           ; break;
228               case 276: n = ASSUAN_Syntax_Error           ; break;
229               case 273: n = ASSUAN_Too_Much_Data          ; break;
230               case 274: n = ASSUAN_Unexpected_Command     ; break;
231               case 275: n = ASSUAN_Unknown_Command        ; break;
232               case 277: n = ASSUAN_Canceled               ; break;
233               case 114: n = ASSUAN_Not_Confirmed          ; break;
234               case ((1<<15)|86): n = ASSUAN_Out_Of_Core   ; break;
235               default:  n = 0; break;
236               }
237             if (n)
238               s = assuan_strerror (n);
239             else
240               {
241                 sprintf (buf, "ec=%u.%u", source, code ); 
242                 s=buf;
243               }
244           }
245         else
246           {
247             sprintf (buf, "ec=%d", err ); 
248             s=buf;
249           }
250       }
251       break;
252     }
253
254   return s;
255 }
256
257 EOF