/* Licensed to the Apache Software Foundation (ASF) under one or more

 * contributor license agreements.  See the NOTICE file distributed with

 * this work for additional information regarding copyright ownership.

 * The ASF licenses this file to You under the Apache License, Version 2.0

 * (the "License"); you may not use this file except in compliance with

 * the License.  You may obtain a copy of the License at

 *

 *     http://www.apache.org/licenses/LICENSE-2.0

 *

 * Unless required by applicable law or agreed to in writing, software

 * distributed under the License is distributed on an "AS IS" BASIS,

 * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

 * See the License for the specific language governing permissions and

 * limitations under the License.

 */

#include "apr_arch_misc.h"

#include "apr_strings.h"

#include "apr_lib.h"

#include "apr_dso.h"

#include "apu_errno.h"

#if APR_HAVE_NETDB_H

#include <netdb.h>

#endif

#ifdef HAVE_DLFCN_H

#include <dlfcn.h>

#endif

/*

 * stuffbuffer - like apr_cpystrn() but returns the address of the

 * dest buffer instead of the address of the terminating '\0'

 */

static char *stuffbuffer(char *buf, apr_size_t bufsize, const char *s)

{

    apr_cpystrn(buf,s,bufsize);

    return buf;

}

static char *apr_error_string(apr_status_t statcode)

{

    switch (statcode) {

    case APR_ENOSTAT:

        return "Could not perform a stat on the file.";

    case APR_ENOPOOL:

        return "A new pool could not be created.";

    case APR_EBADDATE:

        return "An invalid date has been provided";

    case APR_EINVALSOCK:

        return "An invalid socket was returned";

    case APR_ENOPROC:

        return "No process was provided and one was required.";

    case APR_ENOTIME:

        return "No time was provided and one was required.";

    case APR_ENODIR:

        return "No directory was provided and one was required.";

    case APR_ENOLOCK:

        return "No lock was provided and one was required.";

    case APR_ENOPOLL:

        return "No poll structure was provided and one was required.";

    case APR_ENOSOCKET:

        return "No socket was provided and one was required.";

    case APR_ENOTHREAD:

        return "No thread was provided and one was required.";

    case APR_ENOTHDKEY:

        return "No thread key structure was provided and one was required.";

    case APR_ENOSHMAVAIL:

        return "No shared memory is currently available";

    case APR_EDSOOPEN:

#if APR_HAS_DSO && defined(HAVE_LIBDL)

        return dlerror();

#else

        return "DSO load failed";

#endif /* HAVE_LIBDL */

    case APR_EBADIP:

        return "The specified IP address is invalid.";

    case APR_EBADMASK:

        return "The specified network mask is invalid.";

    case APR_ESYMNOTFOUND:

        return "Could not find the requested symbol.";

    case APR_ENOTENOUGHENTROPY:

        return "Not enough entropy to continue.";

    case APR_INCHILD:

        return

      "Your code just forked, and you are currently executing in the "

      "child process";

    case APR_INPARENT:

        return

      "Your code just forked, and you are currently executing in the "

      "parent process";

    case APR_DETACH:

        return "The specified thread is detached";

    case APR_NOTDETACH:

        return "The specified thread is not detached";

    case APR_CHILD_DONE:

        return "The specified child process is done executing";

    case APR_CHILD_NOTDONE:

        return "The specified child process is not done executing";

    case APR_TIMEUP:

        return "The timeout specified has expired";

    case APR_INCOMPLETE:

        return "Partial results are valid but processing is incomplete";

    case APR_BADCH:

        return "Bad character specified on command line";

    case APR_BADARG:

        return "Missing parameter for the specified command line option";

    case APR_EOF:

        return "End of file found";

    case APR_NOTFOUND:

        return "Could not find specified socket in poll list.";

    case APR_ANONYMOUS:

        return "Shared memory is implemented anonymously";

    case APR_FILEBASED:

        return "Shared memory is implemented using files";

    case APR_KEYBASED:

        return "Shared memory is implemented using a key system";

    case APR_EINIT:

        return

      "There is no error, this value signifies an initialized "

      "error code";

    case APR_ENOTIMPL:

        return "This function has not been implemented on this platform";

    case APR_EMISMATCH:

        return "passwords do not match";

    case APR_EABSOLUTE:

        return "The given path is absolute";

    case APR_ERELATIVE:

        return "The given path is relative";

    case APR_EINCOMPLETE:

        return "The given path is incomplete";

    case APR_EABOVEROOT:

        return "The given path was above the root path";

    case APR_EBADPATH:

        return "The given path is misformatted or contained invalid characters";

    case APR_EPATHWILD:

        return "The given path contained wildcard characters";

    case APR_EBUSY:

        return "The given lock was busy.";

    case APR_EPROC_UNKNOWN:

        return "The process is not recognized.";

    case APR_EALREADY:

        return "Operation already in progress";

    case APR_EGENERAL:

        return "Internal error (specific information not available)";

/* APR Util error codes */

    case APR_ECRYPT:

        return "Internal error in the crypto subsystem (specific information not available)";

    case APR_ENOENGINE:

        return "No engine found for crypto subsystem";

    case APR_EINITENGINE:

        return "Failed to init engine for crypto subsystem";

    default:

        return "Error string not specified yet";

    }

}

#ifdef OS2

#include <ctype.h>

int apr_canonical_error(apr_status_t err);

static char *apr_os_strerror(char* buf, apr_size_t bufsize, int err)

{

  char result[200];

  unsigned char message[HUGE_STRING_LEN];

  ULONG len;

  char *pos;

  int c;

  if (err >= 10000 && err < 12000) {  /* socket error codes */

      return stuffbuffer(buf, bufsize,

                         strerror(apr_canonical_error(err+APR_OS_START_SYSERR)));

  }

  else if (DosGetMessage(NULL, 0, message, HUGE_STRING_LEN, err,

       "OSO001.MSG", &len) == 0) {

      len--;

      message[len] = 0;

      pos = result;

      if (len >= sizeof(result))

        len = sizeof(result) - 1;

      for (c=0; c<len; c++) {

    /* skip multiple whitespace */

          while (apr_isspace(message[c]) && apr_isspace(message[c+1]))

              c++;

          *(pos++) = apr_isspace(message[c]) ? ' ' : message[c];

      }

      *pos = 0;

  }

  else {

      sprintf(result, "OS/2 error %d", err);

  }

  /* Stuff the string into the caller supplied buffer, then return

   * a pointer to it.

   */

  return stuffbuffer(buf, bufsize, result);

}

#elif defined(WIN32) || (defined(NETWARE) && defined(USE_WINSOCK))

static const struct {

    apr_status_t code;

    const char *msg;

} gaErrorList[] = {

    {WSAEINTR,           "Interrupted system call"},

    {WSAEBADF,           "Bad file number"},

    {WSAEACCES,          "Permission denied"},

    {WSAEFAULT,          "Bad address"},

    {WSAEINVAL,          "Invalid argument"},

    {WSAEMFILE,          "Too many open sockets"},

    {WSAEWOULDBLOCK,     "Operation would block"},

    {WSAEINPROGRESS,     "Operation now in progress"},

    {WSAEALREADY,        "Operation already in progress"},

    {WSAENOTSOCK,        "Socket operation on non-socket"},

    {WSAEDESTADDRREQ,    "Destination address required"},

    {WSAEMSGSIZE,        "Message too long"},

    {WSAEPROTOTYPE,      "Protocol wrong type for socket"},

    {WSAENOPROTOOPT,     "Bad protocol option"},

    {WSAEPROTONOSUPPORT, "Protocol not supported"},

    {WSAESOCKTNOSUPPORT, "Socket type not supported"},

    {WSAEOPNOTSUPP,      "Operation not supported on socket"},

    {WSAEPFNOSUPPORT,    "Protocol family not supported"},

    {WSAEAFNOSUPPORT,    "Address family not supported"},

    {WSAEADDRINUSE,      "Address already in use"},

    {WSAEADDRNOTAVAIL,   "Can't assign requested address"},

    {WSAENETDOWN,        "Network is down"},

    {WSAENETUNREACH,     "Network is unreachable"},

    {WSAENETRESET,       "Net connection reset"},

    {WSAECONNABORTED,    "Software caused connection abort"},

    {WSAECONNRESET,      "Connection reset by peer"},

    {WSAENOBUFS,         "No buffer space available"},

    {WSAEISCONN,         "Socket is already connected"},

    {WSAENOTCONN,        "Socket is not connected"},

    {WSAESHUTDOWN,       "Can't send after socket shutdown"},

    {WSAETOOMANYREFS,    "Too many references, can't splice"},

    {WSAETIMEDOUT,       "Connection timed out"},

    {WSAECONNREFUSED,    "Connection refused"},

    {WSAELOOP,           "Too many levels of symbolic links"},

    {WSAENAMETOOLONG,    "File name too long"},

    {WSAEHOSTDOWN,       "Host is down"},

    {WSAEHOSTUNREACH,    "No route to host"},

    {WSAENOTEMPTY,       "Directory not empty"},

    {WSAEPROCLIM,        "Too many processes"},

    {WSAEUSERS,          "Too many users"},

    {WSAEDQUOT,          "Disc quota exceeded"},

    {WSAESTALE,          "Stale NFS file handle"},

    {WSAEREMOTE,         "Too many levels of remote in path"},

    {WSASYSNOTREADY,     "Network system is unavailable"},

    {WSAVERNOTSUPPORTED, "Winsock version out of range"},

    {WSANOTINITIALISED,  "WSAStartup not yet called"},

    {WSAEDISCON,         "Graceful shutdown in progress"},

    {WSAHOST_NOT_FOUND,  "Host not found"},

    {WSANO_DATA,         "No host data of that type was found"},

    {0,                  NULL}

};

static char *apr_os_strerror(char *buf, apr_size_t bufsize, apr_status_t errcode)

{

    apr_size_t len=0, i;

#ifndef NETWARE

    len = FormatMessageA(FORMAT_MESSAGE_FROM_SYSTEM

                      | FORMAT_MESSAGE_IGNORE_INSERTS,

                        NULL,

                        errcode,

                        MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), /* Default language */

                        buf,

                        (DWORD)bufsize,

                        NULL);

#endif

    if (!len) {

        for (i = 0; gaErrorList[i].msg; ++i) {

            if (gaErrorList[i].code == errcode) {

                apr_cpystrn(buf, gaErrorList[i].msg, bufsize);

                len = strlen(buf);

                break;

            }

        }

    }

    if (len) {

        /* FormatMessage put the message in the buffer, but it may

         * have embedded a newline (\r\n), and possible more than one.

         * Remove the newlines replacing them with a space. This is not

         * as visually perfect as moving all the remaining message over,

         * but more efficient.

         */

        i = len;

        while (i) {

            i--;

            if ((buf[i] == '\r') || (buf[i] == '\n'))

                buf[i] = ' ';

        }

    }

    else {

        /* Windows didn't provide us with a message.  Even stuff like                    * WSAECONNREFUSED won't get a message.

         */

        apr_snprintf(buf, bufsize, "Unrecognized Win32 error code %d", errcode);

    }

    return buf;

}

#else

/* On Unix, apr_os_strerror() handles error codes from the resolver

 * (h_errno).

 */

static char *apr_os_strerror(char* buf, apr_size_t bufsize, int err)

{

#ifdef HAVE_HSTRERROR

    return stuffbuffer(buf, bufsize, hstrerror(err));

#else /* HAVE_HSTRERROR */

    const char *msg;

    switch(err) {

    case HOST_NOT_FOUND:

        msg = "Unknown host";

        break;

#if defined(NO_DATA)

    case NO_DATA:

#if defined(NO_ADDRESS) && (NO_DATA != NO_ADDRESS)

    case NO_ADDRESS:

#endif

        msg = "No address for host";

        break;

#elif defined(NO_ADDRESS)

    case NO_ADDRESS:

        msg = "No address for host";

        break;

#endif /* NO_DATA */

    default:

        msg = "Unrecognized resolver error";

    }

    return stuffbuffer(buf, bufsize, msg);

#endif /* HAVE_STRERROR */

}

#endif

#if defined(HAVE_STRERROR_R) && defined(STRERROR_R_RC_INT) && !defined(BEOS)

/* AIX and Tru64 style */

static char *native_strerror(apr_status_t statcode, char *buf,

                             apr_size_t bufsize)

{

    if (strerror_r(statcode, buf, bufsize) < 0) {

        return stuffbuffer(buf, bufsize,

                           "APR does not understand this error code");

    }

    else {

        return buf;

    }

}

#elif defined(HAVE_STRERROR_R)

/* glibc style */

/* BeOS has the function available, but it doesn't provide

 * the prototype publicly (doh!), so to avoid a build warning

 * we add a suitable prototype here.

 */

#if defined(BEOS)

const char *strerror_r(apr_status_t, char *, apr_size_t);

#endif

static char *native_strerror(apr_status_t statcode, char *buf,

                             apr_size_t bufsize)

{

    const char *msg;

    buf[0] = '\0';

    msg = strerror_r(statcode, buf, bufsize);

    if (buf[0] == '\0') { /* libc didn't use our buffer */

        return stuffbuffer(buf, bufsize, msg);

    }

    else {

        return buf;

    }

}

#else

/* plain old strerror();

 * thread-safe on some platforms (e.g., Solaris, OS/390)

 */

static char *native_strerror(apr_status_t statcode, char *buf,

                             apr_size_t bufsize)

{

    const char *err = strerror(statcode);

    if (err) {

        return stuffbuffer(buf, bufsize, err);

    } else {

        return stuffbuffer(buf, bufsize,

                           "APR does not understand this error code");

    }

}

#endif

APR_DECLARE(char *) apr_strerror(apr_status_t statcode, char *buf,

                                 apr_size_t bufsize)

{

    if (statcode < APR_OS_START_ERROR) {

        return native_strerror(statcode, buf, bufsize);

    }

    else if (statcode < APR_OS_START_USERERR) {

        return stuffbuffer(buf, bufsize, apr_error_string(statcode));

    }

    else if (statcode < APR_OS_START_EAIERR) {

        return stuffbuffer(buf, bufsize, "APR does not understand this error code");

    }

    else if (statcode < APR_OS_START_SYSERR) {

#if defined(HAVE_GAI_STRERROR)

        statcode -= APR_OS_START_EAIERR;

#if defined(NEGATIVE_EAI)

        statcode = -statcode;

#endif

        return stuffbuffer(buf, bufsize, gai_strerror(statcode));

#else

        return stuffbuffer(buf, bufsize, "APR does not understand this error code");

#endif

    }

    else {

        return apr_os_strerror(buf, bufsize, statcode - APR_OS_START_SYSERR);

    }

}