rework langinfo code for ABI compat and for use by time code
[musl] / src / network / inet_ntop.c
1 #include <sys/socket.h>
2 #include <netinet/in.h>
3 #include <arpa/inet.h>
4 #include <netdb.h>
5 #include <errno.h>
6 #include <stdio.h>
7 #include <string.h>
8
9 const char *inet_ntop(int af, const void *restrict a0, char *restrict s, socklen_t l)
10 {
11         const unsigned char *a = a0;
12         int i, j, max, best;
13         char buf[100];
14
15         switch (af) {
16         case AF_INET:
17                 if (snprintf(s, l, "%d.%d.%d.%d", a[0],a[1],a[2],a[3]) < l)
18                         return s;
19                 break;
20         case AF_INET6:
21                 memset(buf, 'x', sizeof buf);
22                 buf[sizeof buf-1]=0;
23                 snprintf(buf, sizeof buf,
24                         "%x:%x:%x:%x:%x:%x:%x:%x",
25                         256*a[0]+a[1],256*a[2]+a[3],
26                         256*a[4]+a[5],256*a[6]+a[7],
27                         256*a[8]+a[9],256*a[10]+a[11],
28                         256*a[12]+a[13],256*a[14]+a[15]);
29                 /* Replace longest /(^0|:)[:0]{2,}/ with "::" */
30                 for (i=best=0, max=2; buf[i]; i++) {
31                         if (i && buf[i] != ':') continue;
32                         j = strspn(buf+i, ":0");
33                         if (j>max) best=i, max=j;
34                 }
35                 if (max>2) {
36                         buf[best] = buf[best+1] = ':';
37                         strcpy(buf+best+2, buf+best+max);
38                 }
39                 if (strlen(buf) < l) {
40                         strcpy(s, buf);
41                         return s;
42                 }
43                 break;
44         default:
45                 errno = EAFNOSUPPORT;
46                 return 0;
47         }
48         errno = ENOSPC;
49         return 0;
50 }