CryptoPkg/Library: Cleanup BaseCryptLib and TlsLib

[mirror_edk2.git] / CryptoPkg / Library / TlsLib / SysCall / inet_pton.c

/* Copyright (c) 1996 by Internet Software Consortium.\r
 *\r
 * Permission to use, copy, modify, and distribute this software for any\r
 * purpose with or without fee is hereby granted, provided that the above\r
 * copyright notice and this permission notice appear in all copies.\r
 *\r
 * THE SOFTWARE IS PROVIDED "AS IS" AND INTERNET SOFTWARE CONSORTIUM DISCLAIMS\r
 * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES\r
 * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE\r
 * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL\r
 * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR\r
 * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS\r
 * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS\r
 * SOFTWARE.\r
 */\r
\r
/*\r
 * Portions copyright (c) 1999, 2000\r
 * Intel Corporation.\r
 * All rights reserved.\r
 *\r
 * Redistribution and use in source and binary forms, with or without\r
 * modification, are permitted provided that the following conditions\r
 * are met:\r
 *\r
 * 1. Redistributions of source code must retain the above copyright\r
 *    notice, this list of conditions and the following disclaimer.\r
 *\r
 * 2. Redistributions in binary form must reproduce the above copyright\r
 *    notice, this list of conditions and the following disclaimer in the\r
 *    documentation and/or other materials provided with the distribution.\r
 *\r
 * 3. All advertising materials mentioning features or use of this software\r
 *    must display the following acknowledgement:\r
 *\r
 *    This product includes software developed by Intel Corporation and\r
 *    its contributors.\r
 *\r
 * 4. Neither the name of Intel Corporation or its contributors may be\r
 *    used to endorse or promote products derived from this software\r
 *    without specific prior written permission.\r
 *\r
 * THIS SOFTWARE IS PROVIDED BY INTEL CORPORATION AND CONTRIBUTORS ``AS IS''\r
 * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE\r
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE\r
 * ARE DISCLAIMED.  IN NO EVENT SHALL INTEL CORPORATION OR CONTRIBUTORS BE\r
 * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR\r
 * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF\r
 * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS\r
 * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN\r
 * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)\r
 * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF\r
 * THE POSSIBILITY OF SUCH DAMAGE.\r
 *\r
 */\r
\r
#if defined (LIBC_SCCS) && !defined (lint)\r
static char  rcsid[] = "$Id: inet_pton.c,v 1.1.1.1 2003/11/19 01:51:30 kyu3 Exp $";\r
#endif /* LIBC_SCCS and not lint */\r
\r
#include <sys/param.h>\r
#include <sys/types.h>\r
#include <sys/socket.h>\r
#include <netinet/in.h>\r
#include <arpa/inet.h>\r
#include <arpa/nameser.h>\r
#include <string.h>\r
#include <errno.h>\r
\r
/*\r
 * WARNING: Don't even consider trying to compile this on a system where\r
 * sizeof(int) < 4.  sizeof(int) > 4 is fine; all the world's not a VAX.\r
 */\r
\r
static int\r
inet_pton4 (\r
  const char  *src,\r
  u_char      *dst\r
  );\r
\r
static int\r
inet_pton6 (\r
  const char  *src,\r
  u_char      *dst\r
  );\r
\r
/* int\r
 * inet_pton(af, src, dst)\r
 *      convert from presentation format (which usually means ASCII printable)\r
 *      to network format (which is usually some kind of binary format).\r
 * return:\r
 *      1 if the address was valid for the specified address family\r
 *      0 if the address wasn't valid (`dst' is untouched in this case)\r
 *      -1 if some other error occurred (`dst' is untouched in this case, too)\r
 * author:\r
 *      Paul Vixie, 1996.\r
 */\r
int\r
inet_pton (\r
  int         af,\r
  const char  *src,\r
  void        *dst\r
  )\r
{\r
  switch (af) {\r
    case AF_INET:\r
      return (inet_pton4 (src, dst));\r
    case AF_INET6:\r
      return (inet_pton6 (src, dst));\r
    default:\r
      errno = EAFNOSUPPORT;\r
      return (-1);\r
  }\r
\r
  /* NOTREACHED */\r
}\r
\r
/* int\r
 * inet_pton4(src, dst)\r
 *      like inet_aton() but without all the hexadecimal and shorthand.\r
 * return:\r
 *      1 if `src' is a valid dotted quad, else 0.\r
 * notice:\r
 *      does not touch `dst' unless it's returning 1.\r
 * author:\r
 *      Paul Vixie, 1996.\r
 */\r
static int\r
inet_pton4 (\r
  const char  *src,\r
  u_char      *dst\r
  )\r
{\r
  static const char  digits[] = "0123456789";\r
  int                saw_digit, octets, ch;\r
  u_char             tmp[NS_INADDRSZ], *tp;\r
\r
  saw_digit   = 0;\r
  octets      = 0;\r
  *(tp = tmp) = 0;\r
  while ((ch = *src++) != '\0') {\r
    const char  *pch;\r
\r
    if ((pch = strchr (digits, ch)) != NULL) {\r
      u_int  new = *tp * 10 + (u_int)(pch - digits);\r
\r
      if (new > 255) {\r
        return (0);\r
      }\r
\r
      *tp = (u_char)new;\r
      if (!saw_digit) {\r
        if (++octets > 4) {\r
          return (0);\r
        }\r
\r
        saw_digit = 1;\r
      }\r
    } else if ((ch == '.') && saw_digit) {\r
      if (octets == 4) {\r
        return (0);\r
      }\r
\r
      *++tp     = 0;\r
      saw_digit = 0;\r
    } else {\r
      return (0);\r
    }\r
  }\r
\r
  if (octets < 4) {\r
    return (0);\r
  }\r
\r
  memcpy (dst, tmp, NS_INADDRSZ);\r
  return (1);\r
}\r
\r
/* int\r
 * inet_pton6(src, dst)\r
 *      convert presentation level address to network order binary form.\r
 * return:\r
 *      1 if `src' is a valid [RFC1884 2.2] address, else 0.\r
 * notice:\r
 *      (1) does not touch `dst' unless it's returning 1.\r
 *      (2) :: in a full address is silently ignored.\r
 * credit:\r
 *      inspired by Mark Andrews.\r
 * author:\r
 *      Paul Vixie, 1996.\r
 */\r
static int\r
inet_pton6 (\r
  const char  *src,\r
  u_char      *dst\r
  )\r
{\r
  static const char  xdigits_l[] = "0123456789abcdef",\r
                     xdigits_u[] = "0123456789ABCDEF";\r
  u_char      tmp[NS_IN6ADDRSZ], *tp, *endp, *colonp;\r
  const char  *xdigits, *curtok;\r
  int         ch, saw_xdigit;\r
  u_int       val;\r
\r
  memset ((tp = tmp), '\0', NS_IN6ADDRSZ);\r
  endp   = tp + NS_IN6ADDRSZ;\r
  colonp = NULL;\r
  /* Leading :: requires some special handling. */\r
  if (*src == ':') {\r
    if (*++src != ':') {\r
      return (0);\r
    }\r
  }\r
\r
  curtok     = src;\r
  saw_xdigit = 0;\r
  val        = 0;\r
  while ((ch = *src++) != '\0') {\r
    const char  *pch;\r
\r
    if ((pch = strchr ((xdigits = xdigits_l), ch)) == NULL) {\r
      pch = strchr ((xdigits = xdigits_u), ch);\r
    }\r
\r
    if (pch != NULL) {\r
      val <<= 4;\r
      val  |= (pch - xdigits);\r
      if (val > 0xffff) {\r
        return (0);\r
      }\r
\r
      saw_xdigit = 1;\r
      continue;\r
    }\r
\r
    if (ch == ':') {\r
      curtok = src;\r
      if (!saw_xdigit) {\r
        if (colonp) {\r
          return (0);\r
        }\r
\r
        colonp = tp;\r
        continue;\r
      }\r
\r
      if (tp + NS_INT16SZ > endp) {\r
        return (0);\r
      }\r
\r
      *tp++      = (u_char)(val >> 8) & 0xff;\r
      *tp++      = (u_char)val & 0xff;\r
      saw_xdigit = 0;\r
      val        = 0;\r
      continue;\r
    }\r
\r
    if ((ch == '.') && ((tp + NS_INADDRSZ) <= endp) &&\r
        (inet_pton4 (curtok, tp) > 0))\r
    {\r
      tp        += NS_INADDRSZ;\r
      saw_xdigit = 0;\r
      break;                    /* '\0' was seen by inet_pton4(). */\r
    }\r
\r
    return (0);\r
  }\r
\r
  if (saw_xdigit) {\r
    if (tp + NS_INT16SZ > endp) {\r
      return (0);\r
    }\r
\r
    *tp++ = (u_char)(val >> 8) & 0xff;\r
    *tp++ = (u_char)val & 0xff;\r
  }\r
\r
  if (colonp != NULL) {\r
    /*\r
     * Since some memmove()'s erroneously fail to handle\r
     * overlapping regions, we'll do the shift by hand.\r
     */\r
    const int  n = (int)(tp - colonp);\r
    int        i;\r
\r
    for (i = 1; i <= n; i++) {\r
      endp[-i]      = colonp[n - i];\r
      colonp[n - i] = 0;\r
    }\r
\r
    tp = endp;\r
  }\r
\r
  if (tp != endp) {\r
    return (0);\r
  }\r
\r
  memcpy (dst, tmp, NS_IN6ADDRSZ);\r
  return (1);\r
}\r