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         case ENODEV: result = WSAENETDOWN; break;
 181         default:
 182                 sys_error = strerror (code);
 183                 msg = g_locale_to_utf8 (sys_error, strlen (sys_error), NULL, NULL, NULL);
 184                 if (function_name == NULL)
 185                         function_name = __func__;
 186
 187                 g_warning ("%s: Need to translate %d [%s] into winsock error",
 188                            function_name, code, msg);
 189
 190                 g_free (msg);
 191                 result = WSASYSCALLFAILURE;
 192         }
 193
 194         return result;
 195 }
 196
 197 gint
 198 _wapi_get_win32_file_error (gint err)
 199 {
 200         gint ret;
 201         /* mapping ideas borrowed from wine. they may need some work */
 202
 203         switch (err) {
 204         case EACCES: case EPERM: case EROFS:
 205                 ret = ERROR_ACCESS_DENIED;
 206                 break;
 207
 208         case EAGAIN:
 209                 ret = ERROR_SHARING_VIOLATION;
 210                 break;
 211
 212         case EBUSY:
 213                 ret = ERROR_LOCK_VIOLATION;
 214                 break;
 215
 216         case EEXIST:
 217                 ret = ERROR_FILE_EXISTS;
 218                 break;
 219
 220         case EINVAL: case ESPIPE:
 221                 ret = ERROR_SEEK;
 222                 break;
 223
 224         case EISDIR:
 225                 ret = ERROR_CANNOT_MAKE;
 226                 break;
 227
 228         case ENFILE: case EMFILE:
 229                 ret = ERROR_TOO_MANY_OPEN_FILES;
 230                 break;
 231
 232         case ENOENT: case ENOTDIR:
 233                 ret = ERROR_FILE_NOT_FOUND;
 234                 break;
 235
 236         case ENOSPC:
 237                 ret = ERROR_HANDLE_DISK_FULL;
 238                 break;
 239
 240         case ENOTEMPTY:
 241                 ret = ERROR_DIR_NOT_EMPTY;
 242                 break;
 243
 244         case ENOEXEC:
 245                 ret = ERROR_BAD_FORMAT;
 246                 break;
 247
 248         case ENAMETOOLONG:
 249                 ret = ERROR_FILENAME_EXCED_RANGE;
 250                 break;
 251
 252 #ifdef EINPROGRESS
 253         case EINPROGRESS:
 254                 ret = ERROR_IO_PENDING;
 255                 break;
 256 #endif
 257
 258         case ENOSYS:
 259                 ret = ERROR_NOT_SUPPORTED;
 260                 break;
 261
 262         case EBADF:
 263                 ret = ERROR_INVALID_HANDLE;
 264                 break;
 265
 266         case EIO:
 267                 ret = ERROR_INVALID_HANDLE;
 268                 break;
 269
 270         case EINTR:
 271                 ret = ERROR_IO_PENDING;         /* best match I could find */
 272                 break;
 273
 274         case EPIPE:
 275                 ret = ERROR_WRITE_FAULT;
 276                 break;
 277
 278         default:
 279                 g_message ("Unknown errno: %s\n", g_strerror (err));
 280                 ret = ERROR_GEN_FAILURE;
 281                 break;
 282         }
 283
 284         return ret;
 285 }
 286