usr.bin/hexdump/conv.c

   1 /*-
   2  * SPDX-License-Identifier: BSD-3-Clause
   3  *
   4  * Copyright (c) 1989, 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 #ifndef lint
  33 static const char sccsid[] = "@(#)conv.c        8.1 (Berkeley) 6/6/93";
  34 #endif /* not lint */
  35 #include <sys/cdefs.h>
  36 __FBSDID("$FreeBSD$");
  37
  38 #include <sys/types.h>
  39
  40 #include <assert.h>
  41 #include <ctype.h>
  42 #include <limits.h>
  43 #include <stdio.h>
  44 #include <stdlib.h>
  45 #include <string.h>
  46 #include <wchar.h>
  47 #include <wctype.h>
  48 #include "hexdump.h"
  49
  50 void
  51 conv_c(PR *pr, u_char *p, size_t bufsize)
  52 {
  53         char buf[10];
  54         char const *str;
  55         wchar_t wc;
  56         size_t clen, oclen;
  57         int converr, pad, width;
  58         u_char peekbuf[MB_LEN_MAX];
  59
  60         if (pr->mbleft > 0) {
  61                 str = "**";
  62                 pr->mbleft--;
  63                 goto strpr;
  64         }
  65
  66         switch(*p) {
  67         case '\0':
  68                 str = "\\0";
  69                 goto strpr;
  70         /* case '\a': */
  71         case '\007':
  72                 str = "\\a";
  73                 goto strpr;
  74         case '\b':
  75                 str = "\\b";
  76                 goto strpr;
  77         case '\f':
  78                 str = "\\f";
  79                 goto strpr;
  80         case '\n':
  81                 str = "\\n";
  82                 goto strpr;
  83         case '\r':
  84                 str = "\\r";
  85                 goto strpr;
  86         case '\t':
  87                 str = "\\t";
  88                 goto strpr;
  89         case '\v':
  90                 str = "\\v";
  91                 goto strpr;
  92         default:
  93                 break;
  94         }
  95         /*
  96          * Multibyte characters are disabled for hexdump(1) for backwards
  97          * compatibility and consistency (none of its other output formats
  98          * recognize them correctly).
  99          */
 100         converr = 0;
 101         if (odmode && MB_CUR_MAX > 1) {
 102                 oclen = 0;
 103 retry:
 104                 clen = mbrtowc(&wc, p, bufsize, &pr->mbstate);
 105                 if (clen == 0)
 106                         clen = 1;
 107                 else if (clen == (size_t)-1 || (clen == (size_t)-2 &&
 108                     p == peekbuf)) {
 109                         memset(&pr->mbstate, 0, sizeof(pr->mbstate));
 110                         wc = *p;
 111                         clen = 1;
 112                         converr = 1;
 113                 } else if (clen == (size_t)-2) {
 114                         /*
 115                          * Incomplete character; peek ahead and see if we
 116                          * can complete it.
 117                          */
 118                         oclen = bufsize;
 119                         bufsize = peek(p = peekbuf, MB_CUR_MAX);
 120                         goto retry;
 121                 }
 122                 clen += oclen;
 123         } else {
 124                 wc = *p;
 125                 clen = 1;
 126         }
 127         if (!converr && iswprint(wc)) {
 128                 if (!odmode) {
 129                         *pr->cchar = 'c';
 130                         (void)printf(pr->fmt, (int)wc);
 131                 } else {
 132                         *pr->cchar = 'C';
 133                         assert(strcmp(pr->fmt, "%3C") == 0);
 134                         width = wcwidth(wc);
 135                         assert(width >= 0);
 136                         pad = 3 - width;
 137                         if (pad < 0)
 138                                 pad = 0;
 139                         (void)printf("%*s%C", pad, "", wc);
 140                         pr->mbleft = clen - 1;
 141                 }
 142         } else {
 143                 (void)sprintf(buf, "%03o", (int)*p);
 144                 str = buf;
 145 strpr:          *pr->cchar = 's';
 146                 (void)printf(pr->fmt, str);
 147         }
 148 }
 149
 150 void
 151 conv_u(PR *pr, u_char *p)
 152 {
 153         static char const * list[] = {
 154                 "nul", "soh", "stx", "etx", "eot", "enq", "ack", "bel",
 155                  "bs",  "ht",  "lf",  "vt",  "ff",  "cr",  "so",  "si",
 156                 "dle", "dc1", "dc2", "dc3", "dc4", "nak", "syn", "etb",
 157                 "can",  "em", "sub", "esc",  "fs",  "gs",  "rs",  "us",
 158         };
 159
 160                                                 /* od used nl, not lf */
 161         if (*p <= 0x1f) {
 162                 *pr->cchar = 's';
 163                 if (odmode && *p == 0x0a)
 164                         (void)printf(pr->fmt, "nl");
 165                 else
 166                         (void)printf(pr->fmt, list[*p]);
 167         } else if (*p == 0x7f) {
 168                 *pr->cchar = 's';
 169                 (void)printf(pr->fmt, "del");
 170         } else if (odmode && *p == 0x20) {      /* od replaced space with sp */
 171                 *pr->cchar = 's';
 172                 (void)printf(pr->fmt, " sp");
 173         } else if (isprint(*p)) {
 174                 *pr->cchar = 'c';
 175                 (void)printf(pr->fmt, *p);
 176         } else {
 177                 *pr->cchar = 'x';
 178                 (void)printf(pr->fmt, (int)*p);
 179         }
 180 }