inet_pton.c
上传用户:wxp200602
上传日期:2007-10-30
资源大小:4028k
文件大小:7k
源码类别:

SNMP编程

开发平台:

Unix_Linux

  1. /* Id: inet_pton.c,v 1.5 2001/04/13 15:24:35 lukem Exp  */
  2. /* $NetBSD: inet_pton.c,v 1.16 2000/02/07 18:51:02 itojun Exp $ */
  3. /* Copyright (c) 1996 by Internet Software Consortium.
  4.  *
  5.  * Permission to use, copy, modify, and 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 INTERNET SOFTWARE CONSORTIUM DISCLAIMS
  10.  * ALL WARRANTIES WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES
  11.  * OF MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL INTERNET SOFTWARE
  12.  * CONSORTIUM BE LIABLE FOR ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL
  13.  * DAMAGES OR ANY DAMAGES WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR
  14.  * PROFITS, WHETHER IN AN ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS
  15.  * ACTION, ARISING OUT OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS
  16.  * SOFTWARE.
  17.  */
  18. #include <net-snmp/net-snmp-config.h>
  19. #ifndef HAVE_INET_PTON
  20. #if HAVE_ARPA_NAMESER_H
  21. #include <arpa/nameser.h>
  22. #endif
  23.   /*
  24.    * Net-SNMP Win32 additions
  25.    */
  26. #if defined(HAVE_WINSOCK_H) || defined(cygwin)
  27. #include <winsock2.h>
  28. #include <ws2tcpip.h>
  29. #include <errno.h>
  30. #include <stdio.h>
  31. #endif
  32. #ifndef EAFNOSUPPORT
  33. #define EAFNOSUPPORT            WSAEAFNOSUPPORT
  34. #endif
  35. #ifndef IN6ADDRSZ
  36. #define IN6ADDRSZ 16
  37. #endif
  38. #ifndef INT16SZ
  39. #define INT16SZ 2
  40. #endif
  41.   /*
  42.    * End of Net-SNMP Win32 additions
  43.    */
  44. #ifndef INADDRSZ
  45. #define INADDRSZ 4
  46. #endif
  47. /*
  48.  * WARNING: Don't even consider trying to compile this on a system where
  49.  * sizeof(int) < 4.  sizeof(int) > 4 is fine; all the world's not a VAX.
  50.  */
  51. static int inet_pton4(const char *src, u_char *dst, int pton);
  52. #ifdef INET6
  53. static int inet_pton6(const char *src, u_char *dst);
  54. #endif
  55. /* int
  56.  * inet_pton(af, src, dst)
  57.  * convert from presentation format (which usually means ASCII printable)
  58.  * to network format (which is usually some kind of binary format).
  59.  * return:
  60.  * 1 if the address was valid for the specified address family
  61.  * 0 if the address wasn't valid (`dst' is untouched in this case)
  62.  * -1 if some other error occurred (`dst' is untouched in this case, too)
  63.  * author:
  64.  * Paul Vixie, 1996.
  65.  */
  66. int
  67. inet_pton(af, src, dst)
  68. int af;
  69. const char *src;
  70. void *dst;
  71. {
  72. switch (af) {
  73. case AF_INET:
  74. return (inet_pton4(src, dst, 1));
  75. #ifdef INET6
  76. case AF_INET6:
  77. return (inet_pton6(src, dst));
  78. #endif
  79. default:
  80. errno = EAFNOSUPPORT;
  81. return (-1);
  82. }
  83. /* NOTREACHED */
  84. }
  85. /* int
  86.  * inet_pton4(src, dst, pton)
  87.  * when last arg is 0: inet_aton(). with hexadecimal, octal and shorthand.
  88.  * when last arg is 1: inet_pton(). decimal dotted-quad only.
  89.  * return:
  90.  * 1 if `src' is a valid input, else 0.
  91.  * notice:
  92.  * does not touch `dst' unless it's returning 1.
  93.  * author:
  94.  * Paul Vixie, 1996.
  95.  */
  96. static int
  97. inet_pton4(src, dst, pton)
  98. const char *src;
  99. u_char *dst;
  100. int pton;
  101. {
  102. u_int val;
  103. u_int digit;
  104. int base, n;
  105. unsigned char c;
  106. u_int parts[4];
  107. register u_int *pp = parts;
  108. c = *src;
  109. for (;;) {
  110. /*
  111.  * Collect number up to ``.''.
  112.  * Values are specified as for C:
  113.  * 0x=hex, 0=octal, isdigit=decimal.
  114.  */
  115. if (!isdigit(c))
  116. return (0);
  117. val = 0; base = 10;
  118. if (c == '0') {
  119. c = *++src;
  120. if (c == 'x' || c == 'X')
  121. base = 16, c = *++src;
  122. else if (isdigit(c) && c != '9')
  123. base = 8;
  124. }
  125. /* inet_pton() takes decimal only */
  126. if (pton && base != 10)
  127. return (0);
  128. for (;;) {
  129. if (isdigit(c)) {
  130. digit = c - '0';
  131. if ((int)digit >= base)
  132. break;
  133. val = (val * base) + digit;
  134. c = *++src;
  135. } else if (base == 16 && isxdigit(c)) {
  136. digit = c + 10 - (islower(c) ? 'a' : 'A');
  137. if (digit >= 16)
  138. break;
  139. val = (val << 4) | digit;
  140. c = *++src;
  141. } else
  142. break;
  143. }
  144. if (c == '.') {
  145. /*
  146.  * Internet format:
  147.  * a.b.c.d
  148.  * a.b.c (with c treated as 16 bits)
  149.  * a.b (with b treated as 24 bits)
  150.  * a (with a treated as 32 bits)
  151.  */
  152. if (pp >= parts + 3)
  153. return (0);
  154. *pp++ = val;
  155. c = *++src;
  156. } else
  157. break;
  158. }
  159. /*
  160.  * Check for trailing characters.
  161.  */
  162. if (c != '' && !isspace(c))
  163. return (0);
  164. /*
  165.  * Concoct the address according to
  166.  * the number of parts specified.
  167.  */
  168. n = pp - parts + 1;
  169. /* inet_pton() takes dotted-quad only.  it does not take shorthand. */
  170. if (pton && n != 4)
  171. return (0);
  172. switch (n) {
  173. case 0:
  174. return (0); /* initial nondigit */
  175. case 1: /* a -- 32 bits */
  176. break;
  177. case 2: /* a.b -- 8.24 bits */
  178. if (parts[0] > 0xff || val > 0xffffff)
  179. return (0);
  180. val |= parts[0] << 24;
  181. break;
  182. case 3: /* a.b.c -- 8.8.16 bits */
  183. if ((parts[0] | parts[1]) > 0xff || val > 0xffff)
  184. return (0);
  185. val |= (parts[0] << 24) | (parts[1] << 16);
  186. break;
  187. case 4: /* a.b.c.d -- 8.8.8.8 bits */
  188. if ((parts[0] | parts[1] | parts[2] | val) > 0xff)
  189. return (0);
  190. val |= (parts[0] << 24) | (parts[1] << 16) | (parts[2] << 8);
  191. break;
  192. }
  193. if (dst) {
  194. val = htonl(val);
  195. memcpy(dst, &val, INADDRSZ);
  196. }
  197. return (1);
  198. }
  199. #ifdef INET6
  200. /* int
  201.  * inet_pton6(src, dst)
  202.  * convert presentation level address to network order binary form.
  203.  * return:
  204.  * 1 if `src' is a valid [RFC1884 2.2] address, else 0.
  205.  * notice:
  206.  * (1) does not touch `dst' unless it's returning 1.
  207.  * (2) :: in a full address is silently ignored.
  208.  * credit:
  209.  * inspired by Mark Andrews.
  210.  * author:
  211.  * Paul Vixie, 1996.
  212.  */
  213. static int
  214. inet_pton6(src, dst)
  215. const char *src;
  216. u_char *dst;
  217. {
  218. static const char xdigits_l[] = "0123456789abcdef",
  219.   xdigits_u[] = "0123456789ABCDEF";
  220. u_char tmp[IN6ADDRSZ], *tp, *endp, *colonp;
  221. const char *xdigits, *curtok;
  222. int ch, saw_xdigit;
  223. u_int val;
  224. memset((tp = tmp), '', IN6ADDRSZ);
  225. endp = tp + IN6ADDRSZ;
  226. colonp = NULL;
  227. /* Leading :: requires some special handling. */
  228. if (*src == ':')
  229. if (*++src != ':')
  230. return (0);
  231. curtok = src;
  232. saw_xdigit = 0;
  233. val = 0;
  234. while ((ch = *src++) != '') {
  235. const char *pch;
  236. if ((pch = strchr((xdigits = xdigits_l), ch)) == NULL)
  237. pch = strchr((xdigits = xdigits_u), ch);
  238. if (pch != NULL) {
  239. val <<= 4;
  240. val |= (pch - xdigits);
  241. if (val > 0xffff)
  242. return (0);
  243. saw_xdigit = 1;
  244. continue;
  245. }
  246. if (ch == ':') {
  247. curtok = src;
  248. if (!saw_xdigit) {
  249. if (colonp)
  250. return (0);
  251. colonp = tp;
  252. continue;
  253. } else if (*src == '')
  254. return (0);
  255. if (tp + INT16SZ > endp)
  256. return (0);
  257. *tp++ = (u_char) (val >> 8) & 0xff;
  258. *tp++ = (u_char) val & 0xff;
  259. saw_xdigit = 0;
  260. val = 0;
  261. continue;
  262. }
  263. if (ch == '.' && ((tp + INADDRSZ) <= endp) &&
  264.     inet_pton4(curtok, tp, 1) > 0) {
  265. tp += INADDRSZ;
  266. saw_xdigit = 0;
  267. break; /* '' was seen by inet_pton4(). */
  268. }
  269. return (0);
  270. }
  271. if (saw_xdigit) {
  272. if (tp + INT16SZ > endp)
  273. return (0);
  274. *tp++ = (u_char) (val >> 8) & 0xff;
  275. *tp++ = (u_char) val & 0xff;
  276. }
  277. if (colonp != NULL) {
  278. /*
  279.  * Since some memmove()'s erroneously fail to handle
  280.  * overlapping regions, we'll do the shift by hand.
  281.  */
  282. const int n = tp - colonp;
  283. int i;
  284. if (tp == endp)
  285. return (0);
  286. for (i = 1; i <= n; i++) {
  287. endp[- i] = colonp[n - i];
  288. colonp[n - i] = 0;
  289. }
  290. tp = endp;
  291. }
  292. if (tp != endp)
  293. return (0);
  294. memcpy(dst, tmp, IN6ADDRSZ);
  295. return (1);
  296. }
  297. #endif
  298. #endif /* HAVE_INET_PTON */