addr.c 4.8 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199200201202203204205206207208209210211212213214215216217218219220
  1. /* Copyright (C) 1995,1996 Robert de Bath <rdebath@cix.compulink.co.uk>
  2. * This file is part of the Linux-8086 C library and is distributed
  3. * under the GNU Library General Public License.
  4. */
  5. /*
  6. * Manuel Novoa III Dec 2000
  7. *
  8. * Converted to use my new (un)signed long (long) to string routines, which
  9. * are smaller than the previous functions and don't require static buffers.
  10. * In the process, removed the reference to strcat and cut object size of
  11. * inet_ntoa in half (from 190 bytes down to 94).
  12. *
  13. * Manuel Novoa III Feb 2002
  14. *
  15. * Changed to use _int10tostr.
  16. */
  17. #define __FORCE_GLIBC
  18. #include <features.h>
  19. #include <stdio.h>
  20. #include <string.h>
  21. #include <ctype.h>
  22. #include <netinet/in.h>
  23. #include <arpa/inet.h>
  24. #include <bits/uClibc_uintmaxtostr.h>
  25. #ifdef L_inet_aton
  26. /*
  27. * More undocumented inet_aton features.
  28. * (read: uclibc doesnt support but glibc does)
  29. * http://www.mkssoftware.com/docs/man3/inet_aton.3.asp
  30. *
  31. * *cp can take the form of:
  32. * a.b.c.d - {a,b,c,d} -> 1 byte
  33. * a.b.c - {a,b} -> 1 byte {c} -> 2 bytes
  34. * a.b - {a} -> 1 byte {b} -> 3 bytes
  35. * a - {a} -> 4 bytes
  36. *
  37. * Each part may be decimal, octal, or hexadecimal as in ISO C.
  38. * 0x or 0X -> hexadecimal
  39. * leading 0 -> octal
  40. * all else -> decimal
  41. */
  42. #ifdef __UCLIBC_HAS_XLOCALE__
  43. libc_hidden_proto(__ctype_b_loc)
  44. #else
  45. libc_hidden_proto(__ctype_b)
  46. #endif
  47. libc_hidden_proto(inet_aton)
  48. int inet_aton(const char *cp, struct in_addr *addrptr)
  49. {
  50. in_addr_t addr;
  51. int value;
  52. int part;
  53. addr = 0;
  54. for (part = 1; part <= 4; part++) {
  55. if (!isdigit(*cp))
  56. return 0;
  57. value = 0;
  58. while (isdigit(*cp)) {
  59. value *= 10;
  60. value += *cp++ - '0';
  61. if (value > 255)
  62. return 0;
  63. }
  64. if (part < 4) {
  65. if (*cp++ != '.')
  66. return 0;
  67. } else {
  68. char c = *cp++;
  69. if (c != '\0' && !isspace(c))
  70. return 0;
  71. }
  72. addr <<= 8;
  73. addr |= value;
  74. }
  75. /* W. Richard Stevens in his book UNIX Network Programming,
  76. * Volume 1, second edition, on page 71 says:
  77. *
  78. * An undocumented feature of inet_aton is that if addrptr is
  79. * a null pointer, the function still performs it validation
  80. * of the input string, but does not store the result.
  81. */
  82. if (addrptr) {
  83. addrptr->s_addr = htonl(addr);
  84. }
  85. return 1;
  86. }
  87. libc_hidden_def(inet_aton)
  88. #endif
  89. #ifdef L_inet_addr
  90. #include <arpa/inet.h>
  91. libc_hidden_proto(inet_aton)
  92. libc_hidden_proto(inet_addr)
  93. in_addr_t inet_addr(const char *cp)
  94. {
  95. struct in_addr a;
  96. if (!inet_aton(cp, &a))
  97. return INADDR_NONE;
  98. else
  99. return a.s_addr;
  100. }
  101. libc_hidden_def(inet_addr)
  102. #endif
  103. #ifdef L_inet_ntoa
  104. #define INET_NTOA_MAX_LEN 16 /* max 12 digits + 3 '.'s + 1 nul */
  105. extern char *inet_ntoa_r(struct in_addr in, char buf[INET_NTOA_MAX_LEN]);
  106. libc_hidden_proto(inet_ntoa_r)
  107. char *inet_ntoa_r(struct in_addr in, char buf[INET_NTOA_MAX_LEN])
  108. {
  109. in_addr_t addr = ntohl(in.s_addr);
  110. int i;
  111. char *p, *q;
  112. q = 0;
  113. p = buf + INET_NTOA_MAX_LEN - 1; /* cannot use sizeof(buf) here */
  114. for (i=0 ; i < 4 ; i++ ) {
  115. p = _int10tostr(p, addr & 0xff) - 1;
  116. addr >>= 8;
  117. if (q) {
  118. *q = '.';
  119. }
  120. q = p;
  121. }
  122. return p+1;
  123. }
  124. libc_hidden_def(inet_ntoa_r)
  125. libc_hidden_proto(inet_ntoa)
  126. char *inet_ntoa(struct in_addr in)
  127. {
  128. static char buf[INET_NTOA_MAX_LEN];
  129. return(inet_ntoa_r(in, buf));
  130. }
  131. libc_hidden_def(inet_ntoa)
  132. #endif
  133. #ifdef L_inet_makeaddr
  134. /* for some reason it does not remove the jump relocation */
  135. libc_hidden_proto(memmove)
  136. /*
  137. * Formulate an Internet address from network + host. Used in
  138. * building addresses stored in the ifnet structure.
  139. */
  140. libc_hidden_proto(inet_makeaddr)
  141. struct in_addr inet_makeaddr(in_addr_t net, in_addr_t host)
  142. {
  143. in_addr_t addr;
  144. if (net < 128)
  145. addr = (net << IN_CLASSA_NSHIFT) | (host & IN_CLASSA_HOST);
  146. else if (net < 65536)
  147. addr = (net << IN_CLASSB_NSHIFT) | (host & IN_CLASSB_HOST);
  148. else if (net < 16777216UL)
  149. addr = (net << IN_CLASSC_NSHIFT) | (host & IN_CLASSC_HOST);
  150. else
  151. addr = net | host;
  152. addr = htonl(addr);
  153. return (*(struct in_addr *)&addr);
  154. }
  155. libc_hidden_def(inet_makeaddr)
  156. #endif
  157. #ifdef L_inet_lnaof
  158. /*
  159. * Return the local network address portion of an
  160. * internet address; handles class a/b/c network
  161. * number formats.
  162. */
  163. in_addr_t inet_lnaof(struct in_addr in)
  164. {
  165. in_addr_t i = ntohl(in.s_addr);
  166. if (IN_CLASSA(i))
  167. return ((i)&IN_CLASSA_HOST);
  168. else if (IN_CLASSB(i))
  169. return ((i)&IN_CLASSB_HOST);
  170. else
  171. return ((i)&IN_CLASSC_HOST);
  172. }
  173. #endif
  174. #ifdef L_inet_netof
  175. /*
  176. * Return the network number from an internet
  177. * address; handles class a/b/c network #'s.
  178. */
  179. libc_hidden_proto(inet_netof)
  180. in_addr_t
  181. inet_netof(struct in_addr in)
  182. {
  183. in_addr_t i = ntohl(in.s_addr);
  184. if (IN_CLASSA(i))
  185. return (((i)&IN_CLASSA_NET) >> IN_CLASSA_NSHIFT);
  186. else if (IN_CLASSB(i))
  187. return (((i)&IN_CLASSB_NET) >> IN_CLASSB_NSHIFT);
  188. else
  189. return (((i)&IN_CLASSC_NET) >> IN_CLASSC_NSHIFT);
  190. }
  191. libc_hidden_def(inet_netof)
  192. #endif