1 /* $NetBSD: compat_ns_ntoa.c,v 1.2 2012/03/20 17:05:59 matt Exp $ */
2
3 /*
4 * Copyright (c) 1986, 1993
5 * The Regents of the University of California. All rights reserved.
6 *
7 * Redistribution and use in source and binary forms, with or without
8 * modification, are permitted provided that the following conditions
9 * are met:
10 * 1. Redistributions of source code must retain the above copyright
11 * notice, this list of conditions and the following disclaimer.
12 * 2. Redistributions in binary form must reproduce the above copyright
13 * notice, this list of conditions and the following disclaimer in the
14 * documentation and/or other materials provided with the distribution.
15 * 3. Neither the name of the University nor the names of its contributors
16 * may be used to endorse or promote products derived from this software
17 * without specific prior written permission.
18 *
19 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
20 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
21 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
22 * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
23 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
24 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
25 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
26 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
27 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
28 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
29 * SUCH DAMAGE.
30 */
31
32 #include <sys/cdefs.h>
33 #if defined(LIBC_SCCS) && !defined(lint)
34 #if 0
35 static char sccsid[] = "@(#)ns_ntoa.c 8.1 (Berkeley) 6/4/93";
36 #else
37 __RCSID("$NetBSD: compat_ns_ntoa.c,v 1.2 2012/03/20 17:05:59 matt Exp $");
38 #endif
39 #endif /* LIBC_SCCS and not lint */
40
41 #include <sys/param.h>
42 #include <compat/include/ns.h>
43
44 #include <assert.h>
45 #include <stdio.h>
46
47 static char *spectHex(char *);
48
49 char *
ns_ntoa(struct ns_addr addr)50 ns_ntoa(struct ns_addr addr)
51 {
52 static char obuf[40];
53 union { union ns_net net_e; uint32_t long_e; } net;
54 uint16_t port = htons(addr.x_port);
55 char *cp;
56 char *cp2;
57 uint8_t *up = addr.x_host.c_host;
58 uint8_t *uplim = up + 6;
59
60 net.net_e = addr.x_net;
61 sprintf(obuf, "%x", ntohl(net.long_e));
62 cp = spectHex(obuf);
63 cp2 = cp + 1;
64 while (up < uplim && *up==0)
65 up++;
66 if (up == uplim) {
67 if (port) {
68 sprintf(cp, ".0");
69 cp += 2;
70 }
71 } else {
72 sprintf(cp, ".%x", *up++);
73 while (up < uplim) {
74 while (*cp) cp++;
75 sprintf(cp, "%02x", *up++);
76 }
77 cp = spectHex(cp2);
78 }
79 if (port) {
80 sprintf(cp, ".%x", port);
81 spectHex(cp + 1);
82 }
83 return (obuf);
84 }
85
86 static char *
spectHex(char * p0)87 spectHex(char *p0)
88 {
89 int ok = 0;
90 int nonzero = 0;
91 char *p = p0;
92
93 _DIAGASSERT(p0 != NULL);
94
95 for (; *p; p++)
96 switch (*p) {
97 case 'a': case 'b': case 'c': case 'd': case 'e': case 'f':
98 *p += ('A' - 'a');
99 /* FALLTHROUGH */
100 case 'A': case 'B': case 'C': case 'D': case 'E': case 'F':
101 ok = 1;
102 /* FALLTHROUGH */
103 case '1': case '2': case '3': case '4': case '5':
104 case '6': case '7': case '8': case '9':
105 nonzero = 1;
106 }
107 if (nonzero && !ok) { *p++ = 'H'; *p = 0; }
108 return (p);
109 }
110