2 * error.c: Error reporting
5 * Dick Porter (dick@ximian.com)
7 * (C) 2002 Ximian, Inc.
16 #include "mono/io-layer/wapi.h"
18 static pthread_key_t error_key;
19 static mono_once_t error_key_once=MONO_ONCE_INIT;
21 static void error_init(void)
25 ret = pthread_key_create(&error_key, NULL);
32 * Retrieves the last error that occurred in the calling thread.
34 * Return value: The error code for the last error that happened on
37 guint32 GetLastError(void)
42 mono_once(&error_key_once, error_init);
43 errptr=pthread_getspecific(error_key);
44 err=GPOINTER_TO_UINT(errptr);
51 * @code: The error code.
53 * Sets the error code in the calling thread.
55 void SetLastError(guint32 code)
59 /* Set the thread-local error code */
60 mono_once(&error_key_once, error_init);
61 ret = pthread_setspecific(error_key, GUINT_TO_POINTER(code));
66 errno_to_WSA (guint32 code, const gchar *function_name)
73 case EACCES: result = WSAEACCES; break;
74 case EADDRINUSE: result = WSAEADDRINUSE; break;
75 case EAFNOSUPPORT: result = WSAEAFNOSUPPORT; break;
76 #if EAGAIN != EWOULDBLOCK
77 case EAGAIN: result = WSAEWOULDBLOCK; break;
79 case EALREADY: result = WSAEALREADY; break;
80 case EBADF: result = WSAENOTSOCK; break;
81 case ECONNABORTED: result = WSAENETDOWN; break;
82 case ECONNREFUSED: result = WSAECONNREFUSED; break;
83 case ECONNRESET: result = WSAECONNRESET; break;
84 case EFAULT: result = WSAEFAULT; break;
85 case EHOSTUNREACH: result = WSAEHOSTUNREACH; break;
86 case EINPROGRESS: result = WSAEINPROGRESS; break;
87 case EINTR: result = WSAEINTR; break;
88 case EINVAL: result = WSAEINVAL; break;
89 /*FIXME: case EIO: result = WSAE????; break; */
90 case EISCONN: result = WSAEISCONN; break;
91 /* FIXME: case ELOOP: result = WSA????; break; */
92 case EMFILE: result = WSAEMFILE; break;
93 case EMSGSIZE: result = WSAEMSGSIZE; break;
94 /* FIXME: case ENAMETOOLONG: result = WSAEACCES; break; */
95 case ENETUNREACH: result = WSAENETUNREACH; break;
96 case ENOBUFS: result = WSAENOBUFS; break; /* not documented */
97 /* case ENOENT: result = WSAE????; break; */
98 case ENOMEM: result = WSAENOBUFS; break;
99 case ENOPROTOOPT: result = WSAENOPROTOOPT; break;
101 case ENOSR: result = WSAENETDOWN; break;
103 case ENOTCONN: result = WSAENOTCONN; break;
104 /*FIXME: case ENOTDIR: result = WSAE????; break; */
105 case ENOTSOCK: result = WSAENOTSOCK; break;
106 case ENOTTY: result = WSAENOTSOCK; break;
107 case EOPNOTSUPP: result = WSAEOPNOTSUPP; break;
108 case EPERM: result = WSAEACCES; break;
109 case EPIPE: result = WSAESHUTDOWN; break;
110 case EPROTONOSUPPORT: result = WSAEPROTONOSUPPORT; break;
112 case ERESTARTSYS: result = WSAENETDOWN; break;
114 /*FIXME: case EROFS: result = WSAE????; break; */
115 case ESOCKTNOSUPPORT: result = WSAESOCKTNOSUPPORT; break;
116 case ETIMEDOUT: result = WSAENETDOWN; break;
117 case EWOULDBLOCK: result = WSAEWOULDBLOCK; break;
119 sys_error = strerror (code);
120 msg = g_locale_to_utf8 (sys_error, strlen (sys_error), NULL, NULL, NULL);
121 if (function_name == NULL)
122 function_name = G_GNUC_PRETTY_FUNCTION;
124 g_warning ("%s: Need to translate %d [%s] into winsock error",
125 function_name, code, msg);
128 result = WSASYSCALLFAILURE;
135 _wapi_get_win32_file_error (gint err)
138 /* mapping ideas borrowed from wine. they may need some work */
141 case EACCES: case EPERM: case EROFS:
142 ret = ERROR_ACCESS_DENIED;
146 ret = ERROR_SHARING_VIOLATION;
150 ret = ERROR_LOCK_VIOLATION;
154 ret = ERROR_FILE_EXISTS;
157 case EINVAL: case ESPIPE:
162 ret = ERROR_CANNOT_MAKE;
165 case ENFILE: case EMFILE:
166 ret = ERROR_NO_MORE_FILES;
169 case ENOENT: case ENOTDIR:
170 ret = ERROR_FILE_NOT_FOUND;
174 ret = ERROR_HANDLE_DISK_FULL;
178 ret = ERROR_DIR_NOT_EMPTY;
182 ret = ERROR_BAD_FORMAT;
186 ret = ERROR_FILENAME_EXCED_RANGE;
190 ret = ERROR_IO_PENDING;
194 ret = ERROR_NOT_SUPPORTED;
198 g_message ("Unknown errno: %s\n", strerror (err));
199 ret = ERROR_GEN_FAILURE;