ded7ba3121425b7ad86c1c1da35c65e4818628f5
[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, write to the Free Software
20 # Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301, USA 
21
22 cat <<EOF
23 /* Generated automatically by mkerrors */
24 /* Do not edit!  See mkerrors for copyright notice. */
25
26 #ifdef HAVE_CONFIG_H
27 #include <config.h>
28 #endif
29
30 #include <stdio.h>
31 #include <assert.h>
32 #include <errno.h>
33
34 #undef _ASSUAN_IN_LIBASSUAN /* undef to get all error codes. */
35 #include "assuan.h"
36
37 /* If true the modern gpg-error style error codes are used in the
38    API. */
39 static unsigned int err_source;
40
41 /* Enable gpg-error style error codes.  ERRSOURCE is one of gpg-error
42    sources.  Note, that this function is not thread-safe and should be
43    used right at startup. Switching back to the old style mode is not
44    supported. */
45 void
46 assuan_set_assuan_err_source (int errsource)
47 {
48   errsource &= 0xff;
49   err_source = errsource? errsource : 31 /*GPG_ERR_SOURCE_ANY*/;
50 }
51
52
53 /* Helper to map old style Assuan error codes to gpg-error codes.
54    This is used internally to keep an compatible ABI. */
55 assuan_error_t
56 _assuan_error (int oldcode)
57 {
58   unsigned int n;
59
60   if (!err_source)
61     return (oldcode & 0x00ffffff); /* Make sure that the gpg-error
62                                       source part is cleared. */
63
64   switch (oldcode)
65     {
66     case ASSUAN_General_Error:           n = 257; break;
67     case ASSUAN_Accept_Failed:           n = 258; break;
68     case ASSUAN_Connect_Failed:          n = 259; break;
69     case ASSUAN_Invalid_Response:        n = 260; break;
70     case ASSUAN_Invalid_Value:           n = 261; break;
71     case ASSUAN_Line_Not_Terminated:     n = 262; break;
72     case ASSUAN_Line_Too_Long:           n = 263; break;
73     case ASSUAN_Nested_Commands:         n = 264; break;
74     case ASSUAN_No_Data_Callback:        n = 265; break;
75     case ASSUAN_No_Inquire_Callback:     n = 266; break;
76     case ASSUAN_Not_A_Server:            n = 267; break;
77     case ASSUAN_Not_Implemented:         n =  69; break;
78     case ASSUAN_Parameter_Conflict:      n = 280; break;
79     case ASSUAN_Problem_Starting_Server: n = 269; break;
80     case ASSUAN_Server_Fault:            n =  80; break;
81     case ASSUAN_Syntax_Error:            n = 276; break;
82     case ASSUAN_Too_Much_Data:           n = 273; break;
83     case ASSUAN_Unexpected_Command:      n = 274; break;
84     case ASSUAN_Unknown_Command:         n = 275; break;
85     case ASSUAN_Canceled:                n = 277; break;
86     case ASSUAN_No_Secret_Key:           n =  17; break;
87
88     case ASSUAN_Read_Error:
89       switch (errno)
90         {
91         case 0: n = 16381; /*GPG_ERR_MISSING_ERRNO*/  break;
92         default: n = 270;  /*GPG_ERR_ASS_READ_ERROR*/ break;
93         }
94       break;
95
96     case ASSUAN_Write_Error:
97       switch (errno)
98         {
99         case 0: n = 16381; /*GPG_ERR_MISSING_ERRNO*/  break;
100         default: n = 271;  /*GPG_ERR_ASS_WRITE_ERROR*/ break;
101         }
102       break;
103       
104     case ASSUAN_Out_Of_Core:
105       switch (errno)
106         {
107         case 0:  /* Should not happen but a user might have provided
108                     an incomplete implemented malloc function.  Give
109                     him a chance to correct this fault but make sure
110                     an error is indeed returned. */
111           n = 16381; /*GPG_ERR_MISSING_ERRNO*/
112           break;
113         case ENOMEM: n = (1 << 15) | 86; break;
114         default:  
115           n = 16382; /*GPG_ERR_UNKNOWN_ERRNO*/
116           break;
117         }
118       break;
119
120     case -1: n = 16383 /*GPG_ERR_EOF*/; break;
121
122     default:
123       n = 257; 
124       break;
125     }
126
127   return ((err_source << 24) | (n & 0x00ffffff));
128
129 }
130
131
132 /**
133  * assuan_strerror:
134  * @err:  Error code 
135  * 
136  * This function returns a textual representaion of the given
137  * errorcode. If this is an unknown value, a string with the value
138  * is returned (Beware: it is hold in a static buffer).
139  * 
140  * Return value: String with the error description.
141  **/
142 const char *
143 assuan_strerror (assuan_error_t err)
144 {
145   const char *s;
146   static char buf[50];
147
148   switch (err)
149     {
150 EOF
151
152 awk '
153 /ASSUAN_No_Error/        { okay=1 }
154 !okay                    {next}
155 /^#define[ ]+ASSUAN_[A-Za-z_]*/ { print_code($2) }
156 /ASSUAN_USER_ERROR_LAST/ { exit 0 }
157
158
159 function print_code( s )
160 {
161 printf "    case %s: s=\"", s ;
162 gsub(/_/, " ", s );
163 printf "%s\"; break;\n", tolower(substr(s,8));
164 }
165 '
166
167 cat <<EOF
168   case -1: s = "EOF (-1)"; break;
169     default: 
170       {
171         unsigned int source, code, n;
172
173         source = ((err >> 24) & 0xff);
174         code = (err & 0x00ffffff);
175         if (source) 
176           {
177             /* Assume this is an libgpg-error and try to map the codes
178                back. */
179             switch (code)
180               {
181               case 257: n = ASSUAN_General_Error          ; break;
182               case 258: n = ASSUAN_Accept_Failed          ; break;
183               case 259: n = ASSUAN_Connect_Failed         ; break;
184               case 260: n = ASSUAN_Invalid_Response       ; break;
185               case 261: n = ASSUAN_Invalid_Value          ; break;
186               case 262: n = ASSUAN_Line_Not_Terminated    ; break;
187               case 263: n = ASSUAN_Line_Too_Long          ; break;
188               case 264: n = ASSUAN_Nested_Commands        ; break;
189               case 265: n = ASSUAN_No_Data_Callback       ; break;
190               case 266: n = ASSUAN_No_Inquire_Callback    ; break;
191               case 267: n = ASSUAN_Not_A_Server           ; break;
192               case  69: n = ASSUAN_Not_Implemented        ; break;
193               case 280: n = ASSUAN_Parameter_Conflict     ; break;
194               case 269: n = ASSUAN_Problem_Starting_Server; break;
195               case 270: n = ASSUAN_Read_Error             ; break;
196               case 271: n = ASSUAN_Write_Error            ; break;
197               case  80: n = ASSUAN_Server_Fault           ; break;
198               case 276: n = ASSUAN_Syntax_Error           ; break;
199               case 273: n = ASSUAN_Too_Much_Data          ; break;
200               case 274: n = ASSUAN_Unexpected_Command     ; break;
201               case 275: n = ASSUAN_Unknown_Command        ; break;
202               case 277: n = ASSUAN_Canceled               ; break;
203               case ((1<<15)|86): n = ASSUAN_Out_Of_Core   ; break;
204               default:  n = 0; break;
205               }
206             if (n)
207               s = assuan_strerror (n);
208             else
209               {
210                 sprintf (buf, "ec=%u.%u", source, code ); 
211                 s=buf;
212               }
213           }
214         else
215           {
216             sprintf (buf, "ec=%d", err ); 
217             s=buf;
218           }
219       }
220       break;
221     }
222
223   return s;
224 }
225
226 EOF