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
);
29 void _wapi_error_cleanup (void)
33 ret
= pthread_key_delete (error_key
);
40 * Retrieves the last error that occurred in the calling thread.
42 * Return value: The error code for the last error that happened on
45 guint32
GetLastError(void)
50 mono_once(&error_key_once
, error_init
);
51 errptr
=pthread_getspecific(error_key
);
52 err
=GPOINTER_TO_UINT(errptr
);
59 * @code: The error code.
61 * Sets the error code in the calling thread.
63 void SetLastError(guint32 code
)
67 /* Set the thread-local error code */
68 mono_once(&error_key_once
, error_init
);
69 ret
= pthread_setspecific(error_key
, GUINT_TO_POINTER(code
));
74 errno_to_WSA (guint32 code
, const gchar
*function_name
)
81 case 0: result
= ERROR_SUCCESS
; break;
82 case EACCES
: result
= WSAEACCES
; break;
84 case EADDRINUSE
: result
= WSAEADDRINUSE
; break;
87 case EAFNOSUPPORT
: result
= WSAEAFNOSUPPORT
; break;
89 #if EAGAIN != EWOULDBLOCK
90 case EAGAIN
: result
= WSAEWOULDBLOCK
; break;
93 case EALREADY
: result
= WSAEALREADY
; break;
95 case EBADF
: result
= WSAENOTSOCK
; break;
97 case ECONNABORTED
: result
= WSAENETDOWN
; break;
100 case ECONNREFUSED
: result
= WSAECONNREFUSED
; break;
103 case ECONNRESET
: result
= WSAECONNRESET
; break;
105 case EFAULT
: result
= WSAEFAULT
; break;
107 case EHOSTUNREACH
: result
= WSAEHOSTUNREACH
; break;
110 case EINPROGRESS
: result
= WSAEINPROGRESS
; break;
112 case EINTR
: result
= WSAEINTR
; break;
113 case EINVAL
: result
= WSAEINVAL
; break;
114 /*FIXME: case EIO: result = WSAE????; break; */
116 case EISCONN
: result
= WSAEISCONN
; break;
118 /* FIXME: case ELOOP: result = WSA????; break; */
119 case EMFILE
: result
= WSAEMFILE
; break;
121 case EMSGSIZE
: result
= WSAEMSGSIZE
; break;
123 /* FIXME: case ENAMETOOLONG: result = WSAEACCES; break; */
125 case ENETUNREACH
: result
= WSAENETUNREACH
; break;
128 case ENOBUFS
: result
= WSAENOBUFS
; break; /* not documented */
130 /* case ENOENT: result = WSAE????; break; */
131 case ENOMEM
: result
= WSAENOBUFS
; break;
133 case ENOPROTOOPT
: result
= WSAENOPROTOOPT
; break;
136 case ENOSR
: result
= WSAENETDOWN
; break;
139 case ENOTCONN
: result
= WSAENOTCONN
; break;
141 /*FIXME: case ENOTDIR: result = WSAE????; break; */
143 case ENOTSOCK
: result
= WSAENOTSOCK
; break;
145 case ENOTTY
: result
= WSAENOTSOCK
; break;
147 case EOPNOTSUPP
: result
= WSAEOPNOTSUPP
; break;
149 case EPERM
: result
= WSAEACCES
; break;
150 case EPIPE
: result
= WSAESHUTDOWN
; break;
151 #ifdef EPROTONOSUPPORT
152 case EPROTONOSUPPORT
: result
= WSAEPROTONOSUPPORT
; break;
155 case ERESTARTSYS
: result
= WSAENETDOWN
; break;
157 /*FIXME: case EROFS: result = WSAE????; break; */
158 #ifdef ESOCKTNOSUPPORT
159 case ESOCKTNOSUPPORT
: result
= WSAESOCKTNOSUPPORT
; break;
162 case ETIMEDOUT
: result
= WSAETIMEDOUT
; break;
165 case EWOULDBLOCK
: result
= WSAEWOULDBLOCK
; break;
168 case EADDRNOTAVAIL
: result
= WSAEADDRNOTAVAIL
; break;
170 /* This might happen with unix sockets */
171 case ENOENT
: result
= WSAECONNREFUSED
; break;
173 case EDESTADDRREQ
: result
= WSAEDESTADDRREQ
; break;
175 case ENODEV
: result
= WSAENETDOWN
; break;
177 sys_error
= strerror (code
);
178 msg
= g_locale_to_utf8 (sys_error
, strlen (sys_error
), NULL
, NULL
, NULL
);
179 if (function_name
== NULL
)
180 function_name
= __func__
;
182 g_warning ("%s: Need to translate %d [%s] into winsock error",
183 function_name
, code
, msg
);
186 result
= WSASYSCALLFAILURE
;
193 _wapi_get_win32_file_error (gint err
)
196 /* mapping ideas borrowed from wine. they may need some work */
199 case EACCES
: case EPERM
: case EROFS
:
200 ret
= ERROR_ACCESS_DENIED
;
204 ret
= ERROR_SHARING_VIOLATION
;
208 ret
= ERROR_LOCK_VIOLATION
;
212 ret
= ERROR_FILE_EXISTS
;
215 case EINVAL
: case ESPIPE
:
220 ret
= ERROR_CANNOT_MAKE
;
223 case ENFILE
: case EMFILE
:
224 ret
= ERROR_TOO_MANY_OPEN_FILES
;
227 case ENOENT
: case ENOTDIR
:
228 ret
= ERROR_FILE_NOT_FOUND
;
232 ret
= ERROR_HANDLE_DISK_FULL
;
236 ret
= ERROR_DIR_NOT_EMPTY
;
240 ret
= ERROR_BAD_FORMAT
;
244 ret
= ERROR_FILENAME_EXCED_RANGE
;
249 ret
= ERROR_IO_PENDING
;
254 ret
= ERROR_NOT_SUPPORTED
;
258 ret
= ERROR_INVALID_HANDLE
;
262 ret
= ERROR_INVALID_HANDLE
;
266 ret
= ERROR_IO_PENDING
; /* best match I could find */
270 ret
= ERROR_WRITE_FAULT
;
274 g_message ("Unknown errno: %s\n", g_strerror (err
));
275 ret
= ERROR_GEN_FAILURE
;