/contrib/bind9/lib/lwres/lwinetntop.c

https://bitbucket.org/freebsd/freebsd-head/ · C · 197 lines · 111 code · 16 blank · 70 comment · 45 complexity · 8c189deb11f0af9eebc780d34e8e6afc MD5 · raw file

  1. /*
  2. * Copyright (C) 2004, 2005, 2007 Internet Systems Consortium, Inc. ("ISC")
  3. * Copyright (C) 1996-2001, 2003 Internet Software Consortium.
  4. *
  5. * Permission to use, copy, modify, and/or distribute this software for any
  6. * purpose with or without fee is hereby granted, provided that the above
  7. * copyright notice and this permission notice appear in all copies.
  8. *
  9. * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES WITH
  10. * REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF MERCHANTABILITY
  11. * AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR ANY SPECIAL, DIRECT,
  12. * INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM
  13. * LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE
  14. * OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR
  15. * PERFORMANCE OF THIS SOFTWARE.
  16. */
  17. /*! \file lwinetntop.c
  18. */
  19. #if defined(LIBC_SCCS) && !defined(lint)
  20. static char rcsid[] =
  21. "$Id: lwinetntop.c,v 1.18 2007/06/19 23:47:22 tbox Exp $";
  22. #endif /* LIBC_SCCS and not lint */
  23. #include <config.h>
  24. #include <errno.h>
  25. #include <stdio.h>
  26. #include <string.h>
  27. #include <lwres/net.h>
  28. #include "print_p.h"
  29. #define NS_INT16SZ 2
  30. #define NS_IN6ADDRSZ 16
  31. /*
  32. * WARNING: Don't even consider trying to compile this on a system where
  33. * sizeof(int) < 4. sizeof(int) > 4 is fine; all the world's not a VAX.
  34. */
  35. static const char *inet_ntop4(const unsigned char *src, char *dst,
  36. size_t size);
  37. #ifdef AF_INET6
  38. static const char *inet_ntop6(const unsigned char *src, char *dst,
  39. size_t size);
  40. #endif
  41. /*! char *
  42. * lwres_net_ntop(af, src, dst, size)
  43. * convert a network format address to presentation format.
  44. * return:
  45. * pointer to presentation format address (`dst'), or NULL (see errno).
  46. * author:
  47. * Paul Vixie, 1996.
  48. */
  49. const char *
  50. lwres_net_ntop(int af, const void *src, char *dst, size_t size) {
  51. switch (af) {
  52. case AF_INET:
  53. return (inet_ntop4(src, dst, size));
  54. #ifdef AF_INET6
  55. case AF_INET6:
  56. return (inet_ntop6(src, dst, size));
  57. #endif
  58. default:
  59. errno = EAFNOSUPPORT;
  60. return (NULL);
  61. }
  62. /* NOTREACHED */
  63. }
  64. /*! const char *
  65. * inet_ntop4(src, dst, size)
  66. * format an IPv4 address
  67. * return:
  68. * `dst' (as a const)
  69. * notes:
  70. * (1) uses no statics
  71. * (2) takes a unsigned char* not an in_addr as input
  72. * author:
  73. * Paul Vixie, 1996.
  74. */
  75. static const char *
  76. inet_ntop4(const unsigned char *src, char *dst, size_t size) {
  77. static const char fmt[] = "%u.%u.%u.%u";
  78. char tmp[sizeof("255.255.255.255")];
  79. size_t len;
  80. len = snprintf(tmp, sizeof(tmp), fmt, src[0], src[1], src[2], src[3]);
  81. if (len >= size) {
  82. errno = ENOSPC;
  83. return (NULL);
  84. }
  85. strcpy(dst, tmp);
  86. return (dst);
  87. }
  88. /*! const char *
  89. * inet_ntop6(src, dst, size)
  90. * convert IPv6 binary address into presentation (printable) format
  91. * author:
  92. * Paul Vixie, 1996.
  93. */
  94. #ifdef AF_INET6
  95. static const char *
  96. inet_ntop6(const unsigned char *src, char *dst, size_t size) {
  97. /*!
  98. * Note that int32_t and int16_t need only be "at least" large enough
  99. * to contain a value of the specified size. On some systems, like
  100. * Crays, there is no such thing as an integer variable with 16 bits.
  101. * Keep this in mind if you think this function should have been coded
  102. * to use pointer overlays. All the world's not a VAX.
  103. */
  104. char tmp[sizeof("ffff:ffff:ffff:ffff:ffff:ffff:255.255.255.255")], *tp;
  105. struct { int base, len; } best, cur;
  106. unsigned int words[NS_IN6ADDRSZ / NS_INT16SZ];
  107. int i;
  108. /*
  109. * Preprocess:
  110. * Copy the input (bytewise) array into a wordwise array.
  111. * Find the longest run of 0x00's in src[] for :: shorthanding.
  112. */
  113. memset(words, '\0', sizeof(words));
  114. for (i = 0; i < NS_IN6ADDRSZ; i++)
  115. words[i / 2] |= (src[i] << ((1 - (i % 2)) << 3));
  116. best.base = -1;
  117. best.len = 0;
  118. cur.base = -1;
  119. cur.len = 0;
  120. for (i = 0; i < (NS_IN6ADDRSZ / NS_INT16SZ); i++) {
  121. if (words[i] == 0) {
  122. if (cur.base == -1)
  123. cur.base = i, cur.len = 1;
  124. else
  125. cur.len++;
  126. } else {
  127. if (cur.base != -1) {
  128. if (best.base == -1 || cur.len > best.len)
  129. best = cur;
  130. cur.base = -1;
  131. }
  132. }
  133. }
  134. if (cur.base != -1) {
  135. if (best.base == -1 || cur.len > best.len)
  136. best = cur;
  137. }
  138. if (best.base != -1 && best.len < 2)
  139. best.base = -1;
  140. /*
  141. * Format the result.
  142. */
  143. tp = tmp;
  144. for (i = 0; i < (NS_IN6ADDRSZ / NS_INT16SZ); i++) {
  145. /* Are we inside the best run of 0x00's? */
  146. if (best.base != -1 && i >= best.base &&
  147. i < (best.base + best.len)) {
  148. if (i == best.base)
  149. *tp++ = ':';
  150. continue;
  151. }
  152. /* Are we following an initial run of 0x00s or any real hex? */
  153. if (i != 0)
  154. *tp++ = ':';
  155. /* Is this address an encapsulated IPv4? */
  156. if (i == 6 && best.base == 0 &&
  157. (best.len == 6 || (best.len == 5 && words[5] == 0xffff))) {
  158. if (!inet_ntop4(src+12, tp,
  159. sizeof(tmp) - (tp - tmp)))
  160. return (NULL);
  161. tp += strlen(tp);
  162. break;
  163. }
  164. tp += sprintf(tp, "%x", words[i]); /* XXX */
  165. }
  166. /* Was it a trailing run of 0x00's? */
  167. if (best.base != -1 && (best.base + best.len) ==
  168. (NS_IN6ADDRSZ / NS_INT16SZ))
  169. *tp++ = ':';
  170. *tp++ = '\0';
  171. /*
  172. * Check for overflow, copy, and we're done.
  173. */
  174. if ((size_t)(tp - tmp) > size) {
  175. errno = ENOSPC;
  176. return (NULL);
  177. }
  178. strcpy(dst, tmp);
  179. return (dst);
  180. }
  181. #endif /* AF_INET6 */