1/*
2 * CDDL HEADER START
3 *
4 * The contents of this file are subject to the terms of the
5 * Common Development and Distribution License, Version 1.0 only
6 * (the "License").  You may not use this file except in compliance
7 * with the License.
8 *
9 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
10 * or http://www.opensolaris.org/os/licensing.
11 * See the License for the specific language governing permissions
12 * and limitations under the License.
13 *
14 * When distributing Covered Code, include this CDDL HEADER in each
15 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
16 * If applicable, add the following below this CDDL HEADER, with the
17 * fields enclosed by brackets "[]" replaced with your own identifying
18 * information: Portions Copyright [yyyy] [name of copyright owner]
19 *
20 * CDDL HEADER END
21 */
22
23/*
24 * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
25 * Use is subject to license terms.
26 */
27
28/*	Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T	*/
29/*	  All Rights Reserved  	*/
30
31
32#pragma ident	"%Z%%M%	%I%	%E% SMI"
33
34/*
35 * nlsaddr.c:
36 *
37 * name/address conversion routines for listener and nlsadmin
38 * and other user processes.  Converts internal address <--> external addr
39 *
40 * internal address is any number of octets. (length must be provided)
41 * external address is ascii/hex string. (implicit length)
42 *
43 *
44 * nlscalloc:	dynamically allocates a t_call structure large enough
45 *		to hold the external representations of addr, opt and udata.
46 *		Use t_free to release the call structure.
47 *
48 * nlsaddr2c:	Convert internal address to external form.
49 *
50 * nlsc2addr:	Convert external address to internal form.
51 *
52 */
53
54#include <ctype.h>
55#include <sys/tiuser.h>
56
57#ifndef	T_NONE
58#define	T_NONE	0
59#endif
60
61/*
62 * define DEBUGMODE for diagnostic printf's to stderr
63 */
64
65/* #define	DEBUGMODE */
66
67#ifdef	DEBUGMODE
68#include <stdio.h>
69#endif
70
71/* use to debug in listener *only* (not in user programs) */
72/* #define DEBUG(args)	debug args */
73
74#ifndef	DEBUG
75#define DEBUG(args)
76#endif
77
78
79/*
80 * asctohex(X):  convert char X to integer value
81 *		 assumes isxdigit(X). returns integer value.
82 *		 Note that 'a' > 'A'.  See usage in code below.
83 */
84
85#define asctohex(X)	\
86    ((int)(isdigit(X) ? (int)(X-'0') : (X>='a') ? (X-'a')+10 : (X-'A')+10))
87
88/*
89 * externsz(I):	returns the number of chars required to hold an external
90 *		address whose internal representation contains I octets.
91 *		Adds enough space for a 16 char environ name to be prepended
92 *		to the external name for the listener.
93 */
94
95#define	externsz(I)	(unsigned int)((I<<1) + 41)
96
97
98/*
99 * nlscalloc:	allocate a call structure large enough to hold the
100 *		external representation of the addr, opt and udata fields.
101 *		similar to the way t_alloc works for the internal
102 *		representation of an address.
103 *
104 *		returns a pointer to the t_call strucure if successful,
105 *		a NULL pointer indicates failure. The external integer
106 *		t_errno will contain an error code.
107 *
108 */
109
110struct t_call *
111nlscalloc(fd)
112int fd;
113{
114	struct t_info info;
115	struct t_call *call;
116	register unsigned size;
117	register char *p;
118	extern char *malloc(), *t_alloc();
119	extern int t_getinfo();
120	extern char *malloc();
121	extern int t_errno, errno;
122
123	if (t_getinfo(fd, &info) == -1)  {
124		DEBUG((5, "nlscalloc: t_getinfo failed, t_errno %d errno %d"));
125		return ((struct t_call *)0);
126	}
127
128	if (!(call = (struct t_call *)t_alloc(fd, T_CALL, T_NONE)))  {
129		DEBUG((5, "nlscalloc: t_alloc failed, t_errno %d errno %d"));
130		return ((struct t_call *)0);
131	}
132
133	if (size = externsz((unsigned)info.addr))
134		if (!(p = malloc(size)))
135			goto fail;
136	if (call->addr.maxlen = size)
137		call->addr.buf = p;
138
139	if (size = externsz((unsigned)info.options))
140		if (!(p = malloc(size)))
141			goto fail;
142	if (call->opt.maxlen = size)
143		call->opt.buf = p;
144
145	if (size = externsz((unsigned)info.connect))
146		if (!(p = malloc(size)))
147			goto fail;
148	if (call->udata.maxlen = size)
149		call->udata.buf = p;
150
151	return(call);
152
153fail:
154	DEBUG((1, "nlscalloc: malloc failed!"));
155	t_free((char *)call, T_CALL);	/* t_free will release allocated mem*/
156	t_errno = TSYSERR;		/* errno must be ENOMEM	*/
157	return((struct t_call *)0);
158}
159
160
161/*
162 * nlsaddr2c:	given a pointer to a logical address and it's length
163 *		and a receiving buffer, addr2char converts the
164 *		logical address to the hex/ascii char
165 *		representation of that address.
166 *
167 * WARNING:	The receiving buffer must be large enough.
168 *		rcv buffer must be at least (2*len)+1 bytes.
169 *
170 */
171
172static char hex_digits[] = "0123456789ABCDEF";
173
174void
175nlsaddr2c(charaddr, addr, len)
176char *charaddr, *addr;
177int len;
178{
179	register unsigned i;
180
181	while (len--)  {
182		i = (unsigned)*addr++;
183		*charaddr++ = hex_digits[(i>>4) & 0xf];
184		*charaddr++ = hex_digits[i & 0xf];
185	}
186	*charaddr = (char)0;
187}
188
189
190/*
191 * nlsc2addr:	Given a buffer containing the hex/ascii representation
192 *		of a logical address, the buffer's size and an address
193 *		of a receiving buffer, char2addr converts the logical
194 *		addr to internal format and returns the size of the logical
195 *		address.  A negative value is returned and the receiving
196 *		buffers contents are undefined if:
197 *
198 *		A.  The receiving buffer is not large enough. (rc = -1)
199 *		B.  If 'charaddr' does not contain a series of octets
200 *		    (strlen(charaddr) must be even). (rc = -2)
201 *		C.  Any character in 'charaddr' is not an ASCII hex digit.
202 *		    (rc = -3)
203 *
204 *	NOTE: that even if the internal representation of an address is
205 *	an ASCII string, there is no guarantee that the output will be
206 *	null terminated, thus the returned length must be used when
207 *	accessing the internal address.
208 */
209
210
211int
212nlsc2addr(addr, maxlen, charaddr)
213char *addr, *charaddr;
214int maxlen;
215{
216	int len;
217	int i;
218	char c;
219	unsigned char val;
220
221	if (strlen(charaddr) & 1)
222		return(-1);
223
224	for (len = 0; ((maxlen--) && (*charaddr)); ++len)  {
225		for (i = 2,  val = 0;  i--;  )  {
226			c = *charaddr++;
227			if (!(isxdigit(c)))
228				return(-3);
229			val = (val << 4) | (unsigned char)asctohex(c);
230	    	}
231
232		*addr++ = (char)val;
233	}
234
235#ifdef	DEBUGMODE
236	fprintf(stderr, "nlsc2addr: returned length = %d\n", len);
237#endif
238
239	return(*charaddr ? -2 : len);
240}
241
242