mono/io-layer/error.c

   1 /*
   2  * error.c:  Error reporting
   3  *
   4  * Author:
   5  *      Dick Porter (dick@ximian.com)
   6  *
   7  * (C) 2002 Ximian, Inc.
   8  */
   9
  10 #include <config.h>
  11 #include <glib.h>
  12 #include <pthread.h>
  13 #include <string.h>
  14 #include <errno.h>
  15
  16 #include "mono/io-layer/wapi.h"
  17
  18 static pthread_key_t error_key;
  19 static mono_once_t error_key_once=MONO_ONCE_INIT;
  20 extern gboolean _wapi_has_shut_down;
  21
  22 static void error_init(void)
  23 {
  24         int ret;
  25
  26         ret = pthread_key_create(&error_key, NULL);
  27         g_assert (ret == 0);
  28 }
  29
  30 void _wapi_error_cleanup (void)
  31 {
  32         int ret;
  33
  34         ret = pthread_key_delete (error_key);
  35         g_assert (ret == 0);
  36 }
  37
  38 /**
  39  * GetLastError:
  40  *
  41  * Retrieves the last error that occurred in the calling thread.
  42  *
  43  * Return value: The error code for the last error that happened on
  44  * the calling thread.
  45  */
  46 guint32 GetLastError(void)
  47 {
  48         guint32 err;
  49         void *errptr;
  50
  51         if (_wapi_has_shut_down)
  52                 return 0;
  53         mono_once(&error_key_once, error_init);
  54         errptr=pthread_getspecific(error_key);
  55         err=GPOINTER_TO_UINT(errptr);
  56
  57         return(err);
  58 }
  59
  60 /**
  61  * SetLastError:
  62  * @code: The error code.
  63  *
  64  * Sets the error code in the calling thread.
  65  */
  66 void SetLastError(guint32 code)
  67 {
  68         int ret;
  69
  70         if (_wapi_has_shut_down)
  71                 return;
  72         /* Set the thread-local error code */
  73         mono_once(&error_key_once, error_init);
  74         ret = pthread_setspecific(error_key, GUINT_TO_POINTER(code));
  75         g_assert (ret == 0);
  76 }
  77
  78 guint32
  79 errno_to_WSA (guint32 code, const gchar *function_name)
  80 {
  81         gint result = -1;
  82         char *sys_error;
  83         gchar *msg;
  84
  85         switch (code) {
  86         case 0: result = ERROR_SUCCESS; break;
  87         case EACCES: result = WSAEACCES; break;
  88 #ifdef EADDRINUSE
  89         case EADDRINUSE: result = WSAEADDRINUSE; break;
  90 #endif
  91 #ifdef EAFNOSUPPORT
  92         case EAFNOSUPPORT: result = WSAEAFNOSUPPORT; break;
  93 #endif
  94 #if EAGAIN != EWOULDBLOCK
  95         case EAGAIN: result = WSAEWOULDBLOCK; break;
  96 #endif
  97 #ifdef EALREADY
  98         case EALREADY: result = WSAEALREADY; break;
  99 #endif
 100         case EBADF: result = WSAENOTSOCK; break;
 101 #ifdef ECONNABORTED
 102         case ECONNABORTED: result = WSAENETDOWN; break;
 103 #endif
 104 #ifdef ECONNREFUSED
 105         case ECONNREFUSED: result = WSAECONNREFUSED; break;
 106 #endif
 107 #ifdef ECONNRESET
 108         case ECONNRESET: result = WSAECONNRESET; break;
 109 #endif
 110         case EFAULT: result = WSAEFAULT; break;
 111 #ifdef EHOSTUNREACH
 112         case EHOSTUNREACH: result = WSAEHOSTUNREACH; break;
 113 #endif
 114 #ifdef EINPROGRESS
 115         case EINPROGRESS: result = WSAEINPROGRESS; break;
 116 #endif
 117         case EINTR: result = WSAEINTR; break;
 118         case EINVAL: result = WSAEINVAL; break;
 119         /*FIXME: case EIO: result = WSAE????; break; */
 120 #ifdef EISCONN
 121         case EISCONN: result = WSAEISCONN; break;
 122 #endif
 123         /* FIXME: case ELOOP: result = WSA????; break; */
 124         case EMFILE: result = WSAEMFILE; break;
 125 #ifdef EMSGSIZE
 126         case EMSGSIZE: result = WSAEMSGSIZE; break;
 127 #endif
 128         /* FIXME: case ENAMETOOLONG: result = WSAEACCES; break; */
 129 #ifdef ENETUNREACH
 130         case ENETUNREACH: result = WSAENETUNREACH; break;
 131 #endif
 132 #ifdef ENOBUFS
 133         case ENOBUFS: result = WSAENOBUFS; break; /* not documented */
 134 #endif
 135         /* case ENOENT: result = WSAE????; break; */
 136         case ENOMEM: result = WSAENOBUFS; break;
 137 #ifdef ENOPROTOOPT
 138         case ENOPROTOOPT: result = WSAENOPROTOOPT; break;
 139 #endif
 140 #ifdef ENOSR
 141         case ENOSR: result = WSAENETDOWN; break;
 142 #endif
 143 #ifdef ENOTCONN
 144         case ENOTCONN: result = WSAENOTCONN; break;
 145 #endif
 146         /*FIXME: case ENOTDIR: result = WSAE????; break; */
 147 #ifdef ENOTSOCK
 148         case ENOTSOCK: result = WSAENOTSOCK; break;
 149 #endif
 150         case ENOTTY: result = WSAENOTSOCK; break;
 151 #ifdef EOPNOTSUPP
 152         case EOPNOTSUPP: result = WSAEOPNOTSUPP; break;
 153 #endif
 154         case EPERM: result = WSAEACCES; break;
 155         case EPIPE: result = WSAESHUTDOWN; break;
 156 #ifdef EPROTONOSUPPORT
 157         case EPROTONOSUPPORT: result = WSAEPROTONOSUPPORT; break;
 158 #endif
 159 #if ERESTARTSYS
 160         case ERESTARTSYS: result = WSAENETDOWN; break;
 161 #endif
 162         /*FIXME: case EROFS: result = WSAE????; break; */
 163 #ifdef ESOCKTNOSUPPORT
 164         case ESOCKTNOSUPPORT: result = WSAESOCKTNOSUPPORT; break;
 165 #endif
 166 #ifdef ETIMEDOUT
 167         case ETIMEDOUT: result = WSAETIMEDOUT; break;
 168 #endif
 169 #ifdef EWOULDBLOCK
 170         case EWOULDBLOCK: result = WSAEWOULDBLOCK; break;
 171 #endif
 172 #ifdef EADDRNOTAVAIL
 173         case EADDRNOTAVAIL: result = WSAEADDRNOTAVAIL; break;
 174 #endif
 175         /* This might happen with unix sockets */
 176         case ENOENT: result = WSAECONNREFUSED; break;
 177 #ifdef EDESTADDRREQ
 178         case EDESTADDRREQ: result = WSAEDESTADDRREQ; break;
 179 #endif
 180 #ifdef EHOSTDOWN
 181         case EHOSTDOWN: result = WSAEHOSTDOWN; break;
 182 #endif
 183         case ENODEV: result = WSAENETDOWN; break;
 184         default:
 185                 sys_error = strerror (code);
 186                 msg = g_locale_to_utf8 (sys_error, strlen (sys_error), NULL, NULL, NULL);
 187                 if (function_name == NULL)
 188                         function_name = __func__;
 189
 190                 g_warning ("%s: Need to translate %d [%s] into winsock error",
 191                            function_name, code, msg);
 192
 193                 g_free (msg);
 194                 result = WSASYSCALLFAILURE;
 195         }
 196
 197         return result;
 198 }
 199
 200 gint
 201 _wapi_get_win32_file_error (gint err)
 202 {
 203         gint ret;
 204         /* mapping ideas borrowed from wine. they may need some work */
 205
 206         switch (err) {
 207         case EACCES: case EPERM: case EROFS:
 208                 ret = ERROR_ACCESS_DENIED;
 209                 break;
 210
 211         case EAGAIN:
 212                 ret = ERROR_SHARING_VIOLATION;
 213                 break;
 214
 215         case EBUSY:
 216                 ret = ERROR_LOCK_VIOLATION;
 217                 break;
 218
 219         case EEXIST:
 220                 ret = ERROR_FILE_EXISTS;
 221                 break;
 222
 223         case EINVAL: case ESPIPE:
 224                 ret = ERROR_SEEK;
 225                 break;
 226
 227         case EISDIR:
 228                 ret = ERROR_CANNOT_MAKE;
 229                 break;
 230
 231         case ENFILE: case EMFILE:
 232                 ret = ERROR_TOO_MANY_OPEN_FILES;
 233                 break;
 234
 235         case ENOENT: case ENOTDIR:
 236                 ret = ERROR_FILE_NOT_FOUND;
 237                 break;
 238
 239         case ENOSPC:
 240                 ret = ERROR_HANDLE_DISK_FULL;
 241                 break;
 242
 243         case ENOTEMPTY:
 244                 ret = ERROR_DIR_NOT_EMPTY;
 245                 break;
 246
 247         case ENOEXEC:
 248                 ret = ERROR_BAD_FORMAT;
 249                 break;
 250
 251         case ENAMETOOLONG:
 252                 ret = ERROR_FILENAME_EXCED_RANGE;
 253                 break;
 254
 255 #ifdef EINPROGRESS
 256         case EINPROGRESS:
 257                 ret = ERROR_IO_PENDING;
 258                 break;
 259 #endif
 260
 261         case ENOSYS:
 262                 ret = ERROR_NOT_SUPPORTED;
 263                 break;
 264
 265         case EBADF:
 266                 ret = ERROR_INVALID_HANDLE;
 267                 break;
 268
 269         case EIO:
 270                 ret = ERROR_INVALID_HANDLE;
 271                 break;
 272
 273         case EINTR:
 274                 ret = ERROR_IO_PENDING;         /* best match I could find */
 275                 break;
 276
 277         case EPIPE:
 278                 ret = ERROR_WRITE_FAULT;
 279                 break;
 280
 281         default:
 282                 g_message ("Unknown errno: %s\n", g_strerror (err));
 283                 ret = ERROR_GEN_FAILURE;
 284                 break;
 285         }
 286
 287         return ret;
 288 }
 289