1 /* $NetBSD: nsap_addr.c,v 1.6 2009/04/12 17:07:17 christos Exp $ */
2
3 /*
4 * Copyright (c) 2004 by Internet Systems Consortium, Inc. ("ISC")
5 * Copyright (c) 1996-1999 by Internet Software Consortium.
6 *
7 * Permission to use, copy, modify, and distribute this software for any
8 * purpose with or without fee is hereby granted, provided that the above
9 * copyright notice and this permission notice appear in all copies.
10 *
11 * THE SOFTWARE IS PROVIDED "AS IS" AND ISC DISCLAIMS ALL WARRANTIES
12 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
13 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL ISC BE LIABLE FOR
14 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
15 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
16 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT
17 * OF OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
18 */
19
20 #include <sys/cdefs.h>
21 #if defined(LIBC_SCCS) && !defined(lint)
22 #if 0
23 static const char rcsid[] = "Id: nsap_addr.c,v 1.5 2005/07/28 06:51:48 marka Exp";
24 #else
25 __RCSID("$NetBSD: nsap_addr.c,v 1.6 2009/04/12 17:07:17 christos Exp $");
26 #endif
27 #endif /* LIBC_SCCS and not lint */
28
29 #include "port_before.h"
30
31 #include "namespace.h"
32 #include <sys/types.h>
33 #include <sys/param.h>
34 #include <sys/socket.h>
35
36 #include <netinet/in.h>
37 #include <arpa/inet.h>
38 #include <arpa/nameser.h>
39
40 #include <assert.h>
41 #include <ctype.h>
42 #include <resolv.h>
43 #include <resolv_mt.h>
44
45 #include "port_after.h"
46
47 #ifdef __weak_alias
__weak_alias(inet_nsap_addr,_inet_nsap_addr)48 __weak_alias(inet_nsap_addr,_inet_nsap_addr)
49 __weak_alias(inet_nsap_ntoa,_inet_nsap_ntoa)
50 #endif
51
52 static char
53 xtob(int c) {
54 return (c - (((c >= '0') && (c <= '9')) ? '0' : '7'));
55 }
56
57 u_int
inet_nsap_addr(const char * ascii,u_char * binary,int maxlen)58 inet_nsap_addr(const char *ascii, u_char *binary, int maxlen) {
59 u_char c, nib;
60 u_int len = 0;
61
62 _DIAGASSERT(ascii != NULL);
63 _DIAGASSERT(binary != NULL);
64
65 if (ascii[0] != '0' || (ascii[1] != 'x' && ascii[1] != 'X'))
66 return (0);
67 ascii += 2;
68
69 while ((c = *ascii++) != '\0' && len < (u_int)maxlen) {
70 if (c == '.' || c == '+' || c == '/')
71 continue;
72 if (!isascii(c))
73 return (0);
74 if (islower(c))
75 c = toupper(c);
76 if (isxdigit(c)) {
77 nib = xtob(c);
78 c = *ascii++;
79 if (c != '\0') {
80 c = toupper(c);
81 if (isxdigit(c)) {
82 *binary++ = (nib << 4) | xtob(c);
83 len++;
84 } else
85 return (0);
86 }
87 else
88 return (0);
89 }
90 else
91 return (0);
92 }
93 return (len);
94 }
95
96 char *
inet_nsap_ntoa(int binlen,const u_char * binary,char * ascii)97 inet_nsap_ntoa(int binlen, const u_char *binary, char *ascii) {
98 int nib;
99 int i;
100 char *tmpbuf = inet_nsap_ntoa_tmpbuf;
101 char *start;
102
103 _DIAGASSERT(binary != NULL);
104
105 if (ascii)
106 start = ascii;
107 else {
108 ascii = tmpbuf;
109 start = tmpbuf;
110 }
111
112 *ascii++ = '0';
113 *ascii++ = 'x';
114
115 if (binlen > 255)
116 binlen = 255;
117
118 for (i = 0; i < binlen; i++) {
119 nib = (u_int32_t)*binary >> 4;
120 *ascii++ = nib + (nib < 10 ? '0' : '7');
121 nib = *binary++ & 0x0f;
122 *ascii++ = nib + (nib < 10 ? '0' : '7');
123 if (((i % 2) == 0 && (i + 1) < binlen))
124 *ascii++ = '.';
125 }
126 *ascii = '\0';
127 return (start);
128 }
129
130 /*! \file */
131