/*
 * tclWinError.c --
 *
 *	This file contains code for converting from Win32 errors to errno
 *	errors.
 *
 * Copyright (c) 1995-1996 by Sun Microsystems, Inc.
 *
 * See the file "license.terms" for information on usage and redistribution of
 * this file, and for a DISCLAIMER OF ALL WARRANTIES.
 *
 * RCS: @(#) $Id: tclWinError.c,v 1.7.12.5 2008/12/12 05:26:52 davygrvy Exp $
 */

#include "tclInt.h"

/*
 * The following table contains the mapping from Win32 errors to errno errors.
 */

    EINVAL,	/* 266 */
    ENOTDIR,	/* ERROR_DIRECTORY		267 */
};

static const unsigned int tableLen = sizeof(errorTable);

/*
 * The following tables contains the mapping from Winsock errors to
 * errno errors.
 */

static int wsaErrorTable1[] = {
    EINTR,		/* WSAEINTR	    Interrupted system call. */




    EINVAL,
    EINVAL,
    EINVAL,
    EINVAL,
    EBADF,		/* WSAEBADF	    Bad file number. */



    EINVAL,
    EINVAL,
    EINVAL,
    EACCES,		/* WSAEACCES	    Permission denied. */
    EFAULT,		/* WSAEFAULT	    Bad data address. */







    EINVAL,
    EINVAL,
    EINVAL,
    EINVAL,
    EINVAL,
    EINVAL,
    EINVAL,
    EINVAL,		/* WSAEINVAL	    Invalid argument. */

    EINVAL,
    EMFILE		/* WSAEMFILE	    Too many open files. */
};


static int wsaErrorTable2[] = {
    EWOULDBLOCK,	/* WSAEWOULDBLOCK   Operation would block. */
    EINPROGRESS,	/* WSAEINPROGRESS   Operation now in progress. */

    ETOOMANYREFS,	/* WSAETOOMANYREFS  Too many references: cannot splice. */
    ETIMEDOUT,		/* WSAETIMEDOUT	    Connection timed out. */
    ECONNREFUSED,	/* WSAECONNREFUSED  Connection refused. */
    ELOOP,		/* WSAELOOP	    Too many levels of symbolic links. */
    ENAMETOOLONG,	/* WSAENAMETOOLONG  File name too long. */
    EHOSTDOWN,		/* WSAEHOSTDOWN	    Host is down. */
    EHOSTUNREACH,	/* WSAEHOSTUNREACH  No route to host. */
    ENOTEMPTY,		/* WSAENOTEMPTY	    Directory is not empty. */
    EAGAIN,		/* WSAEPROCLIM	    Too many processes. */
    EUSERS,		/* WSAEUSERS	    Too many users. */
    EDQUOT,		/* WSAEDQUOT	    Ran out of disk quota. */
    ESTALE,		/* WSAESTALE	    File handle reference is no longer available. */
    EREMOTE,		/* WSAEREMOTE	    Item is not available locally. */
};

/*
 * These error codes are very windows specific and have no POSIX
 * translation, yet.
 *
 * TODO: Fixme!
 */

static int wsaErrorTable3[] = {
    EINVAL,		/* WSASYSNOTREADY	    WSAStartup cannot function at this time because the underlying system it uses to provide network services is currently unavailable. */
    EINVAL,		/* WSAVERNOTSUPPORTED	    The Windows Sockets version requested is not supported. */
    EINVAL,		/* WSANOTINITIALISED	    Either the application has not called WSAStartup, or WSAStartup failed. */







    EINVAL,
    EINVAL,
    EINVAL,
    EINVAL,
    EINVAL,
    EINVAL,
    EINVAL,
    ENOTCONN,		/* WSAEDISCON		    Returned by WSARecv or WSARecvFrom to indicate the remote party has initiated a graceful shutdown sequence. */
    EINVAL,		/* WSAENOMORE		    No more results can be returned by WSALookupServiceNext. */
    EINVAL,		/* WSAECANCELLED	    A call to WSALookupServiceEnd was made while this call was still processing. The call has been canceled. */
    EINVAL,		/* WSAEINVALIDPROCTABLE	    The procedure call table is invalid. */
    EINVAL,		/* WSAEINVALIDPROVIDER	    The requested service provider is invalid. */
    EINVAL,		/* WSAEPROVIDERFAILEDINIT   The requested service provider could not be loaded or initialized. */
    EINVAL,		/* WSASYSCALLFAILURE	    A system call that should never fail has failed. */
    EINVAL,		/* WSASERVICE_NOT_FOUND	    No such service is known. The service cannot be found in the specified name space. */
    EINVAL,		/* WSATYPE_NOT_FOUND	    The specified class was not found. */
    EINVAL,		/* WSA_E_NO_MORE	    No more results can be returned by WSALookupServiceNext. */
    EINVAL,		/* WSA_E_CANCELLED	    A call to WSALookupServiceEnd was made while this call was still processing. The call has been canceled. */
    EINVAL,		/* WSAEREFUSED		    A database query failed because it was actively refused. */
};

/*
 * These error codes are very windows specific and have no POSIX
 * translation.  Actually, the first four map to h_errno from BSD's
 * netdb.h, but h_errno has no map either to POSIX.  So we're stuck.
 *
 * TODO: Fixme!
 */

static int wsaErrorTable4[] = {
    EINVAL,	/* WSAHOST_NOT_FOUND,		Authoritative Answer: Host not found */
    EINVAL,	/* WSATRY_AGAIN,		Non-Authoritative: Host not found, or SERVERFAIL */
    EINVAL,	/* WSANO_RECOVERY,		Non-recoverable errors, FORMERR, REFUSED, NOTIMP */
    EINVAL,	/* WSANO_DATA,			Valid name, no data record of requested type */
    EINVAL,	/* WSA_QOS_RECEIVERS,		at least one Reserve has arrived */
    EINVAL,	/* WSA_QOS_SENDERS,		at least one Path has arrived */
    EINVAL,	/* WSA_QOS_NO_SENDERS,		there are no senders */
    EINVAL,	/* WSA_QOS_NO_RECEIVERS,	there are no receivers */
    EINVAL,	/* WSA_QOS_REQUEST_CONFIRMED,	Reserve has been confirmed */
    EINVAL,	/* WSA_QOS_ADMISSION_FAILURE,	error due to lack of resources */
    EINVAL,	/* WSA_QOS_POLICY_FAILURE,	rejected for administrative reasons - bad credentials */

    EINVAL,	/* WSA_QOS_EFLOWDESC,		invalid flow descriptor in the list */
    EINVAL,	/* WSA_QOS_EPSFLOWSPEC,		inconsistent flow spec in provider specific buffer */
    EINVAL,	/* WSA_QOS_EPSFILTERSPEC,	invalid filter spec in provider specific buffer */
    EINVAL,	/* WSA_QOS_ESDMODEOBJ,		invalid shape discard mode object in provider specific buffer */
    EINVAL,	/* WSA_QOS_ESHAPERATEOBJ,	invalid shaping rate object in provider specific buffer */
    EINVAL,	/* WSA_QOS_RESERVED_PETYPE,	reserved policy element in provider specific buffer */
};


/*
 *----------------------------------------------------------------------
 *
 * TclWinConvertError --
 *
 *	This routine converts a Win32 error into an errno value
 *	if the conversion is possible, else EINVAL.
 *
 * Results:
 *	None.
 *
 * Side effects:
 *	Sets the errno global variable.  Doesn't translate well
 *	and results in some info loss.
 *
 *----------------------------------------------------------------------
 */

void
TclWinConvertError(
    DWORD errCode)		/* Win32 error code. */
{
    if (errCode >= tableLen) {
	Tcl_SetErrno(EINVAL);
    } else {
	Tcl_SetErrno(errorTable[errCode]);
    }
}

/*
 *----------------------------------------------------------------------
 *
 * TclWinConvertWSAError --
 *
 *	This routine converts a WinSock error into a POSIX errno value
 *	if the conversion is possible, else EINVAL.
 *
 * Results:
 *	None.
 *
 * Side effects:
 *	Sets the errno global variable.  Doesn't translate well
 *	and results in some info loss.
 *
 *----------------------------------------------------------------------
 */

void
TclWinConvertWSAError(
    DWORD errCode)		/* Winsock error code. */
{
    if ((errCode >= WSAEINTR) && (errCode <= WSAEMFILE)) {
	Tcl_SetErrno(wsaErrorTable1[errCode - WSAEINTR]);
    } else if ((errCode >= WSAEWOULDBLOCK) && (errCode <= WSAEREMOTE)) {
	Tcl_SetErrno(wsaErrorTable2[errCode - WSAEWOULDBLOCK]);
    } else if ((errCode >= WSASYSNOTREADY) && (errCode <= WSAEREFUSED)) {
	Tcl_SetErrno(wsaErrorTable3[errCode - WSASYSNOTREADY]);
    } else if ((errCode >= WSAHOST_NOT_FOUND) && (errCode <= WSA_QOS_RESERVED_PETYPE)) {
	Tcl_SetErrno(wsaErrorTable4[errCode - WSAHOST_NOT_FOUND]);
    } else {
	Tcl_SetErrno(EINVAL);
    }
}