[gssapi-openssh.git] / openssh / openbsd-compat / vis.c

/*	$OpenBSD: vis.c,v 1.19 2005/09/01 17:15:49 millert Exp $ */
/*-
 * Copyright (c) 1989, 1993
 *	The Regents of the University of California.  All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions
 * are met:
 * 1. Redistributions of source code must retain the above copyright
 *    notice, this list of conditions and the following disclaimer.
 * 2. Redistributions in binary form must reproduce the above copyright
 *    notice, this list of conditions and the following disclaimer in the
 *    documentation and/or other materials provided with the distribution.
 * 3. Neither the name of the University nor the names of its contributors
 *    may be used to endorse or promote products derived from this software
 *    without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
 * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
 * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
 * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
 * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
 * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
 * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
 * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
 * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 * SUCH DAMAGE.
 */

/* OPENBSD ORIGINAL: lib/libc/gen/vis.c */

#include "includes.h"
#if !defined(HAVE_STRNVIS)

#include <ctype.h>
#include <string.h>

#include "vis.h"

#define	isoctal(c)	(((u_char)(c)) >= '0' && ((u_char)(c)) <= '7')
#define	isvisible(c)							\
	(((u_int)(c) <= UCHAR_MAX && isascii((u_char)(c)) &&		\
	(((c) != '*' && (c) != '?' && (c) != '[' && (c) != '#') ||	\
		(flag & VIS_GLOB) == 0) && isgraph((u_char)(c))) ||	\
	((flag & VIS_SP) == 0 && (c) == ' ') ||				\
	((flag & VIS_TAB) == 0 && (c) == '\t') ||			\
	((flag & VIS_NL) == 0 && (c) == '\n') ||			\
	((flag & VIS_SAFE) && ((c) == '\b' ||				\
		(c) == '\007' || (c) == '\r' ||				\
		isgraph((u_char)(c)))))

/*
 * vis - visually encode characters
 */
char *
vis(char *dst, int c, int flag, int nextc)
{
	if (isvisible(c)) {
		*dst++ = c;
		if (c == '\\' && (flag & VIS_NOSLASH) == 0)
			*dst++ = '\\';
		*dst = '\0';
		return (dst);
	}

	if (flag & VIS_CSTYLE) {
		switch(c) {
		case '\n':
			*dst++ = '\\';
			*dst++ = 'n';
			goto done;
		case '\r':
			*dst++ = '\\';
			*dst++ = 'r';
			goto done;
		case '\b':
			*dst++ = '\\';
			*dst++ = 'b';
			goto done;
		case '\a':
			*dst++ = '\\';
			*dst++ = 'a';
			goto done;
		case '\v':
			*dst++ = '\\';
			*dst++ = 'v';
			goto done;
		case '\t':
			*dst++ = '\\';
			*dst++ = 't';
			goto done;
		case '\f':
			*dst++ = '\\';
			*dst++ = 'f';
			goto done;
		case ' ':
			*dst++ = '\\';
			*dst++ = 's';
			goto done;
		case '\0':
			*dst++ = '\\';
			*dst++ = '0';
			if (isoctal(nextc)) {
				*dst++ = '0';
				*dst++ = '0';
			}
			goto done;
		}
	}
	if (((c & 0177) == ' ') || (flag & VIS_OCTAL) ||
	    ((flag & VIS_GLOB) && (c == '*' || c == '?' || c == '[' || c == '#'))) {
		*dst++ = '\\';
		*dst++ = ((u_char)c >> 6 & 07) + '0';
		*dst++ = ((u_char)c >> 3 & 07) + '0';
		*dst++ = ((u_char)c & 07) + '0';
		goto done;
	}
	if ((flag & VIS_NOSLASH) == 0)
		*dst++ = '\\';
	if (c & 0200) {
		c &= 0177;
		*dst++ = 'M';
	}
	if (iscntrl((u_char)c)) {
		*dst++ = '^';
		if (c == 0177)
			*dst++ = '?';
		else
			*dst++ = c + '@';
	} else {
		*dst++ = '-';
		*dst++ = c;
	}
done:
	*dst = '\0';
	return (dst);
}

/*
 * strvis, strnvis, strvisx - visually encode characters from src into dst
 *	
 *	Dst must be 4 times the size of src to account for possible
 *	expansion.  The length of dst, not including the trailing NULL,
 *	is returned. 
 *
 *	Strnvis will write no more than siz-1 bytes (and will NULL terminate).
 *	The number of bytes needed to fully encode the string is returned.
 *
 *	Strvisx encodes exactly len bytes from src into dst.
 *	This is useful for encoding a block of data.
 */
int
strvis(char *dst, const char *src, int flag)
{
	char c;
	char *start;

	for (start = dst; (c = *src);)
		dst = vis(dst, c, flag, *++src);
	*dst = '\0';
	return (dst - start);
}

int
strnvis(char *dst, const char *src, size_t siz, int flag)
{
	char *start, *end;
	char tbuf[5];
	int c, i;

	i = 0;
	for (start = dst, end = start + siz - 1; (c = *src) && dst < end; ) {
		if (isvisible(c)) {
			i = 1;
			*dst++ = c;
			if (c == '\\' && (flag & VIS_NOSLASH) == 0) {
				/* need space for the extra '\\' */
				if (dst < end)
					*dst++ = '\\';
				else {
					dst--;
					i = 2;
					break;
				}
			}
			src++;
		} else {
			i = vis(tbuf, c, flag, *++src) - tbuf;
			if (dst + i <= end) {
				memcpy(dst, tbuf, i);
				dst += i;
			} else {
				src--;
				break;
			}
		}
	}
	if (siz > 0)
		*dst = '\0';
	if (dst + i > end) {
		/* adjust return value for truncation */
		while ((c = *src))
			dst += vis(tbuf, c, flag, *++src) - tbuf;
	}
	return (dst - start);
}

int
strvisx(char *dst, const char *src, size_t len, int flag)
{
	char c;
	char *start;

	for (start = dst; len > 1; len--) {
		c = *src;
		dst = vis(dst, c, flag, *++src);
	}
	if (len)
		dst = vis(dst, *src, flag, '\0');
	*dst = '\0';
	return (dst - start);
}

#endif
Commit	Line	Data
2c06c99b	1	/* $OpenBSD: vis.c,v 1.19 2005/09/01 17:15:49 millert Exp $ */
6a9b3198	2	/*-
	3	* Copyright (c) 1989, 1993
	4	* The Regents of the University of California. All rights reserved.
	5	*
	6	* Redistribution and use in source and binary forms, with or without
	7	* modification, are permitted provided that the following conditions
	8	* are met:
	9	* 1. Redistributions of source code must retain the above copyright
	10	* notice, this list of conditions and the following disclaimer.
	11	* 2. Redistributions in binary form must reproduce the above copyright
	12	* notice, this list of conditions and the following disclaimer in the
	13	* documentation and/or other materials provided with the distribution.
0fff78ff	14	* 3. Neither the name of the University nor the names of its contributors
6a9b3198	15	* may be used to endorse or promote products derived from this software
	16	* without specific prior written permission.
	17	*
	18	* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
	19	* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
	20	* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
	21	* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
	22	* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
	23	* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
	24	* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
	25	* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
	26	* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
	27	* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
	28	* SUCH DAMAGE.
	29	*/
2c06c99b	30
	31	/* OPENBSD ORIGINAL: lib/libc/gen/vis.c */
	32
0fff78ff	33	#include "includes.h"
6a9b3198	34	#if !defined(HAVE_STRNVIS)
6a9b3198	35
6a9b3198	36	#include <ctype.h>
0fff78ff	37	#include <string.h>
6a9b3198	38
	39	#include "vis.h"
	40
	41	#define isoctal(c) (((u_char)(c)) >= '0' && ((u_char)(c)) <= '7')
2c06c99b	42	#define isvisible(c) \
	43	(((u_int)(c) <= UCHAR_MAX && isascii((u_char)(c)) && \
	44	(((c) != '*' && (c) != '?' && (c) != '[' && (c) != '#') \|\| \
	45	(flag & VIS_GLOB) == 0) && isgraph((u_char)(c))) \|\| \
	46	((flag & VIS_SP) == 0 && (c) == ' ') \|\| \
	47	((flag & VIS_TAB) == 0 && (c) == '\t') \|\| \
	48	((flag & VIS_NL) == 0 && (c) == '\n') \|\| \
	49	((flag & VIS_SAFE) && ((c) == '\b' \|\| \
	50	(c) == '\007' \|\| (c) == '\r' \|\| \
	51	isgraph((u_char)(c)))))
6a9b3198	52
	53	/*
	54	* vis - visually encode characters
	55	*/
	56	char *
2c06c99b	57	vis(char *dst, int c, int flag, int nextc)
6a9b3198	58	{
	59	if (isvisible(c)) {
	60	*dst++ = c;
	61	if (c == '\\' && (flag & VIS_NOSLASH) == 0)
	62	*dst++ = '\\';
	63	*dst = '\0';
	64	return (dst);
	65	}
	66
	67	if (flag & VIS_CSTYLE) {
	68	switch(c) {
	69	case '\n':
	70	*dst++ = '\\';
	71	*dst++ = 'n';
	72	goto done;
	73	case '\r':
	74	*dst++ = '\\';
	75	*dst++ = 'r';
	76	goto done;
	77	case '\b':
	78	*dst++ = '\\';
	79	*dst++ = 'b';
	80	goto done;
	81	case '\a':
	82	*dst++ = '\\';
	83	*dst++ = 'a';
	84	goto done;
	85	case '\v':
	86	*dst++ = '\\';
	87	*dst++ = 'v';
	88	goto done;
	89	case '\t':
	90	*dst++ = '\\';
	91	*dst++ = 't';
	92	goto done;
	93	case '\f':
	94	*dst++ = '\\';
	95	*dst++ = 'f';
	96	goto done;
	97	case ' ':
	98	*dst++ = '\\';
	99	*dst++ = 's';
	100	goto done;
	101	case '\0':
	102	*dst++ = '\\';
	103	*dst++ = '0';
	104	if (isoctal(nextc)) {
	105	*dst++ = '0';
	106	*dst++ = '0';
	107	}
	108	goto done;
	109	}
	110	}
2c06c99b	111	if (((c & 0177) == ' ') \|\| (flag & VIS_OCTAL) \|\|
2c06c99b	112	((flag & VIS_GLOB) && (c == '*' \|\| c == '?' \|\| c == '[' \|\| c == '#'))) {
6a9b3198	113	*dst++ = '\\';
	114	*dst++ = ((u_char)c >> 6 & 07) + '0';
	115	*dst++ = ((u_char)c >> 3 & 07) + '0';
	116	*dst++ = ((u_char)c & 07) + '0';
	117	goto done;
	118	}
	119	if ((flag & VIS_NOSLASH) == 0)
	120	*dst++ = '\\';
	121	if (c & 0200) {
	122	c &= 0177;
	123	*dst++ = 'M';
	124	}
2c06c99b	125	if (iscntrl((u_char)c)) {
6a9b3198	126	*dst++ = '^';
	127	if (c == 0177)
	128	*dst++ = '?';
	129	else
	130	*dst++ = c + '@';
	131	} else {
	132	*dst++ = '-';
	133	*dst++ = c;
	134	}
	135	done:
	136	*dst = '\0';
	137	return (dst);
	138	}
	139
	140	/*
	141	* strvis, strnvis, strvisx - visually encode characters from src into dst
	142	*
	143	* Dst must be 4 times the size of src to account for possible
	144	* expansion. The length of dst, not including the trailing NULL,
	145	* is returned.
	146	*
	147	* Strnvis will write no more than siz-1 bytes (and will NULL terminate).
	148	* The number of bytes needed to fully encode the string is returned.
	149	*
	150	* Strvisx encodes exactly len bytes from src into dst.
	151	* This is useful for encoding a block of data.
	152	*/
	153	int
2c06c99b	154	strvis(char dst, const char src, int flag)
6a9b3198	155	{
2c06c99b	156	char c;
6a9b3198	157	char *start;
	158
	159	for (start = dst; (c = *src);)
	160	dst = vis(dst, c, flag, *++src);
	161	*dst = '\0';
	162	return (dst - start);
	163	}
	164
	165	int
2c06c99b	166	strnvis(char dst, const char src, size_t siz, int flag)
6a9b3198	167	{
6a9b3198	168	char start, end;
0fff78ff	169	char tbuf[5];
2c06c99b	170	int c, i;
6a9b3198	171
0fff78ff	172	i = 0;
6a9b3198	173	for (start = dst, end = start + siz - 1; (c = *src) && dst < end; ) {
6a9b3198	174	if (isvisible(c)) {
0fff78ff	175	i = 1;
6a9b3198	176	*dst++ = c;
	177	if (c == '\\' && (flag & VIS_NOSLASH) == 0) {
	178	/* need space for the extra '\\' */
	179	if (dst < end)
	180	*dst++ = '\\';
	181	else {
	182	dst--;
0fff78ff	183	i = 2;
6a9b3198	184	break;
	185	}
	186	}
	187	src++;
	188	} else {
0fff78ff	189	i = vis(tbuf, c, flag, *++src) - tbuf;
	190	if (dst + i <= end) {
	191	memcpy(dst, tbuf, i);
	192	dst += i;
	193	} else {
	194	src--;
6a9b3198	195	break;
0fff78ff	196	}
6a9b3198	197	}
6a9b3198	198	}
0fff78ff	199	if (siz > 0)
	200	*dst = '\0';
	201	if (dst + i > end) {
6a9b3198	202	/* adjust return value for truncation */
	203	while ((c = *src))
	204	dst += vis(tbuf, c, flag, *++src) - tbuf;
	205	}
	206	return (dst - start);
	207	}
	208
	209	int
2c06c99b	210	strvisx(char dst, const char src, size_t len, int flag)
6a9b3198	211	{
2c06c99b	212	char c;
6a9b3198	213	char *start;
	214
	215	for (start = dst; len > 1; len--) {
	216	c = *src;
	217	dst = vis(dst, c, flag, *++src);
	218	}
	219	if (len)
	220	dst = vis(dst, *src, flag, '\0');
	221	*dst = '\0';
	222	return (dst - start);
	223	}
	224
	225	#endif