bsd-vis.c

   1 /*-
   2  * Copyright (c) 1989, 1993
   3  *      The Regents of the University of California.  All rights reserved.
   4  *
   5  * Redistribution and use in source and binary forms, with or without
   6  * modification, are permitted provided that the following conditions
   7  * are met:
   8  * 1. Redistributions of source code must retain the above copyright
   9  *    notice, this list of conditions and the following disclaimer.
  10  * 2. Redistributions in binary form must reproduce the above copyright
  11  *    notice, this list of conditions and the following disclaimer in the
  12  *    documentation and/or other materials provided with the distribution.
  13  * 3. All advertising materials mentioning features or use of this software
  14  *    must display the following acknowledgement:
  15  *      This product includes software developed by the University of
  16  *      California, Berkeley and its contributors.
  17  * 4. Neither the name of the University nor the names of its contributors
  18  *    may be used to endorse or promote products derived from this software
  19  *    without specific prior written permission.
  20  *
  21  * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
  22  * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
  23  * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
  24  * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
  25  * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
  26  * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
  27  * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
  28  * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
  29  * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
  30  * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
  31  * SUCH DAMAGE.
  32  */
  33
  34 #if defined(LIBC_SCCS) && !defined(lint)
  35 static char rcsid[] = "$OpenBSD: vis.c,v 1.5 2000/07/19 15:25:13 deraadt Exp $";
  36 #endif /* LIBC_SCCS and not lint */
  37
  38 #ifndef HAVE_VIS
  39
  40 #include "includes.h"
  41
  42 #define isoctal(c)      (((u_char)(c)) >= '0' && ((u_char)(c)) <= '7')
  43
  44 /*
  45  * vis - visually encode characters
  46  */
  47 char *vis(char *dst, int c, int flag, int nextc)
  48 {
  49         if (((u_int)c <= UCHAR_MAX && isascii((u_char)c) &&
  50             isgraph((u_char)c)) ||
  51            ((flag & VIS_SP) == 0 && c == ' ') ||
  52            ((flag & VIS_TAB) == 0 && c == '\t') ||
  53            ((flag & VIS_NL) == 0 && c == '\n') ||
  54            ((flag & VIS_SAFE) && (c == '\b' || c == '\007' || c == '\r'))) {
  55                 *dst++ = c;
  56                 if (c == '\\' && (flag & VIS_NOSLASH) == 0)
  57                         *dst++ = '\\';
  58                 *dst = '\0';
  59                 return (dst);
  60         }
  61
  62         if (flag & VIS_CSTYLE) {
  63                 switch(c) {
  64                 case '\n':
  65                         *dst++ = '\\';
  66                         *dst++ = 'n';
  67                         goto done;
  68                 case '\r':
  69                         *dst++ = '\\';
  70                         *dst++ = 'r';
  71                         goto done;
  72                 case '\b':
  73                         *dst++ = '\\';
  74                         *dst++ = 'b';
  75                         goto done;
  76 #ifdef __STDC__
  77                 case '\a':
  78 #else
  79                 case '\007':
  80 #endif
  81                         *dst++ = '\\';
  82                         *dst++ = 'a';
  83                         goto done;
  84                 case '\v':
  85                         *dst++ = '\\';
  86                         *dst++ = 'v';
  87                         goto done;
  88                 case '\t':
  89                         *dst++ = '\\';
  90                         *dst++ = 't';
  91                         goto done;
  92                 case '\f':
  93                         *dst++ = '\\';
  94                         *dst++ = 'f';
  95                         goto done;
  96                 case ' ':
  97                         *dst++ = '\\';
  98                         *dst++ = 's';
  99                         goto done;
 100                 case '\0':
 101                         *dst++ = '\\';
 102                         *dst++ = '0';
 103                         if (isoctal(nextc)) {
 104                                 *dst++ = '0';
 105                                 *dst++ = '0';
 106                         }
 107                         goto done;
 108                 }
 109         }
 110         if (((c & 0177) == ' ') || (flag & VIS_OCTAL)) {
 111                 *dst++ = '\\';
 112                 *dst++ = ((u_char)c >> 6 & 07) + '0';
 113                 *dst++ = ((u_char)c >> 3 & 07) + '0';
 114                 *dst++ = ((u_char)c & 07) + '0';
 115                 goto done;
 116         }
 117         if ((flag & VIS_NOSLASH) == 0)
 118                 *dst++ = '\\';
 119         if (c & 0200) {
 120                 c &= 0177;
 121                 *dst++ = 'M';
 122         }
 123         if (iscntrl(c)) {
 124                 *dst++ = '^';
 125                 if (c == 0177)
 126                         *dst++ = '?';
 127                 else
 128                         *dst++ = c + '@';
 129         } else {
 130                 *dst++ = '-';
 131                 *dst++ = c;
 132         }
 133 done:
 134         *dst = '\0';
 135         return (dst);
 136 }
 137 #endif /* HAVE_VIS */