usr/src/cmd/dumpcs/dumpcs.c

   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  * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
  24  * Use is subject to license terms.
  25  */
  26
  27 #pragma ident   "%Z%%M% %I%     %E% SMI"
  28
  29 #include <stdio.h>
  30 #include <ctype.h>
  31 #include <string.h>
  32 #include <stdlib.h>
  33 #include <limits.h>
  34 #include <locale.h>
  35 #include <wctype.h>
  36 #include <getwidth.h>
  37
  38 #define SCRWID 80
  39 #define LC_NAMELEN 255
  40
  41 #if !defined SS2
  42 #define SS2 0x8e
  43 #endif
  44 #if !defined SS3
  45 #define SS3 0x8f
  46 #endif
  47
  48 static unsigned int cpl;        /* current characters per line */
  49 static unsigned int cplmax;     /* maximum characters per line */
  50 static unsigned char codestr[MB_LEN_MAX + 1];
  51 static char linebuf[SCRWID / 2 * (MB_LEN_MAX + 1)];
  52 static int pinline;             /* any printable to be listed in the line? */
  53 static int omitting;            /* omitting blank lines under no vflag? */
  54 static int vflag = 0;
  55 static int wflag = 0;
  56 static int csprint();
  57 static int prcode();
  58
  59 int
  60 main(ac, av)
  61 int ac;
  62 char *av[];
  63 {
  64         int c;
  65         short int eucw[4];
  66         short int scrw[4];
  67         int csflag[4];
  68         int cs;
  69         int i;
  70         eucwidth_t eucwidth;
  71         char *lc_ctype;
  72         char titlebar[LC_NAMELEN + 14];
  73
  74         (void) setlocale(LC_ALL, "");
  75 #if !defined(TEXT_DOMAIN)
  76 #define TEXT_DOMAIN "SYS_TEST"
  77 #endif
  78         (void) textdomain(TEXT_DOMAIN);
  79         lc_ctype = setlocale(LC_CTYPE, NULL);
  80         getwidth(&eucwidth);
  81         eucw[0] = 1;
  82         eucw[1] = eucwidth._eucw1;
  83         eucw[2] = eucwidth._eucw2;
  84         eucw[3] = eucwidth._eucw3;
  85         scrw[0] = 1;
  86         scrw[1] = eucwidth._scrw1;
  87         scrw[2] = eucwidth._scrw2;
  88         scrw[3] = eucwidth._scrw3;
  89         for (i = 0; i <= 3; i++)
  90                 csflag[i] = 0;
  91         for (i = 1; i < ac; i++)
  92                 if (*av[i] != '-')
  93                         goto usage;
  94         while ((c = getopt(ac, av, "0123vw")) != -1) {
  95                 switch (c) {
  96                         case '0':
  97                         case '1':
  98                         case '2':
  99                         case '3':
 100                                 csflag[c - '0'] = 1;
 101                                 break;
 102                         case 'v':
 103                                 vflag++;
 104                                 break;
 105                         case 'w':
 106                                 wflag++;
 107                                 break;
 108                         default:
 109                         usage:
 110                                 (void) printf(gettext("usage: %s [-0123vw]\n"), av[0]);
 111                                 exit (1);
 112                 }
 113         }
 114         if ((csflag[0] + csflag[1] + csflag[2] + csflag[3]) == 0) {
 115                 for (i = 0; i <= 3; i++)
 116                         csflag[i]++;
 117         }
 118         (void) strcpy(titlebar, "");
 119         for (i = strlen(lc_ctype) + 14; i; i--)
 120                 (void) strcat(titlebar, ":");
 121         for (cs = 0; cs <= 3; cs++) {
 122                 if (csflag[cs] && eucw[cs] && scrw[cs]) {
 123                         (void) printf("%s\n", titlebar);
 124                         (void) printf("LC_CTYPE:%s", lc_ctype);
 125                         (void) printf(" CS:%d\n", cs);
 126                         (void) printf("%s", titlebar);
 127                         (void) csprint(cs, (int) eucw[cs], (int) scrw[cs]);
 128                         (void) printf("\n");
 129                 }
 130         }
 131         return (0);
 132 }
 133
 134 int
 135 csprint(cs, bytes, columns)
 136 int cs, bytes, columns;
 137 {
 138         int col, i, position;
 139         int bytelen;
 140         int minvalue;
 141         int maxvalue;
 142
 143         col = SCRWID - bytes * 2 - 1;
 144         cplmax = 1;
 145         for (i = columns + 1; i <= col; i *= 2) cplmax *= 2;
 146         cplmax /= 2;
 147         bytelen = bytes;
 148         minvalue = 0x20;
 149         maxvalue = 0x7f;
 150         position = 0;
 151         if (cs > 0) {
 152                 minvalue = 0xa0;
 153                 maxvalue = 0xff;
 154         }
 155         if (cs == 2) {
 156                 codestr[position++] = SS2;
 157                 bytelen++;
 158         }
 159         if (cs == 3) {
 160                 codestr[position++] = SS3;
 161                 bytelen++;
 162         }
 163         codestr[position] = '\0';
 164         cpl = 0;
 165         (void) strcpy(linebuf, "");
 166         (void) prcode(bytelen, position, minvalue, maxvalue, columns);
 167         if (pinline || vflag) {
 168                 (void) printf("\n%s", linebuf);
 169         } else if (!omitting) {
 170                 (void) printf("\n*");
 171         }
 172         omitting = 0;
 173         return (0);
 174 }
 175
 176 /*
 177  * prcode() prints series of len-byte codes, of which each byte can
 178  * have a code value between min and max, in incremental code order.
 179  */
 180 int
 181 prcode(len, pos, min, max, col)
 182 int len, pos, min, max, col;
 183 {
 184         int byte, i, nextpos;
 185         unsigned long widechar; /* limitting wchar_t width - not good */
 186         char *prep;
 187         wchar_t wc;
 188         int     mbl;
 189
 190         if (len - pos > 1) {
 191                 for (byte = min; byte <= max; byte++) {
 192                         codestr[pos] = (unsigned char) byte;
 193                         nextpos = pos + 1;
 194                         codestr[nextpos] = '\0';
 195                         (void) prcode(len, nextpos, min, max, col);
 196                 }
 197         } else {
 198                 for (byte = min; byte <= max; byte++) {
 199                         codestr[pos] = (unsigned char) byte;
 200                         nextpos = pos + 1;
 201                         codestr[nextpos] = '\0';
 202                         if (!cpl) {
 203                                 widechar = 0;
 204                                 i = 0;
 205                                 while (codestr[i] != '\0') {
 206                                         widechar = (widechar << 8) |
 207                                                 (unsigned long) codestr[i++];
 208                                 }
 209                                 if (*linebuf) {
 210                                         if (pinline || vflag) {
 211                                                 (void) printf("\n%s", linebuf);
 212                                                 omitting = 0;
 213                                         } else if (!omitting) {
 214                                                 (void) printf("\n*");
 215                                                 omitting++;
 216                                         }
 217                                 }
 218                                 if (!wflag) {
 219                                         (void) sprintf(linebuf, "%lx ",
 220                                             widechar);
 221                                 } else {
 222                                         (void) mbtowc(&wc, (char *) codestr,
 223                                             MB_CUR_MAX);
 224                                         (void) sprintf(linebuf, "%lx ", wc);
 225                                 }
 226                                 pinline = 0;
 227                         }
 228                         prep = " ";
 229                         if ((mbl = mbtowc(&wc, (char *) codestr,
 230                             MB_CUR_MAX)) < 0)
 231                                 prep = "*";
 232                         if (mbl == 1) {
 233                                 if (!(isprint(codestr[0]))) prep = "*";
 234                         } else if (!(iswprint(wc)))
 235                                 prep = "*";
 236                         if (prep[0] == '*') {
 237                                 (void) strcat(linebuf, prep);
 238                                 for (i = 1; i <= col; i++)
 239                                         (void) strcat(linebuf, " ");
 240                         } else {
 241                                 (void) strcat(linebuf, prep);
 242                                 (void) strcat(linebuf, (char *) codestr);
 243                                 pinline = 1;
 244                         }
 245                         cpl++;
 246                         cpl = cpl % cplmax;
 247                 }
 248         }
 249         return (0);
 250 }