/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*      Copyright (c) 1984, 1986, 1987, 1988, 1989 AT&T */
/*        All Rights Reserved   */


/*
 * Copyright 2005 Sun Microsystems, Inc. All rights reserved.
 * Use is subject to license terms.
 */

#include <locale.h>
#include <stdio.h>
#include <stdlib.h>
#include <sys/types.h>

#define nchars 128      /* number of chars in char set */
#define nlines  7       /* number of lines in a banner character */
#define pposs 85        /* number of print positions */
                        /* on a line (must be multiple of 4) */
                        /* followed by end of string character */
#define pospch 8        /* number of char positions per banner char */
#define chpln  10       /* number of banner characters per line */

struct bann {
        char alpha[nlines][pposs];
};
static struct bann buffer, *bp = &buffer;
static char ctbl[nchars][nlines] = {
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /* below 040 */
        0, 000, 000, 000, 000, 000, 000,        /*  */
        034, 034, 034, 010, 0, 034, 034,        /* ! */
        0167, 0167, 042, 0, 0, 0, 0,            /* " */
        024, 024, 0177, 024, 0177, 024, 024,    /* # */
        076, 0111, 0110, 076, 011, 0111, 076,   /* $ */
        0161, 0122, 0164, 010, 027, 045, 0107,  /* % */
        030, 044, 030, 070, 0105, 0102, 071,    /* & */
        034, 034, 010, 020, 0, 0, 0,            /* ' */
        014, 020, 040, 040, 040, 020, 014,      /* ( */
        030, 4, 2, 2, 2, 4, 030,                /* ) */
        0, 042, 024, 0177, 024, 042, 0,         /* * */
        0, 010, 010, 076, 010, 010, 0,          /* + */
        0, 0, 0, 034, 034, 010, 020,            /* , */
        0, 0, 0, 076, 0, 0, 0,                  /* - */
        0, 0, 0, 0, 034, 034, 034,              /* . */
        1, 2, 4, 010, 020, 040, 0100,           /* / */
        034, 042, 0101, 0101, 0101, 042, 034,   /* 0 */
        010, 030, 050, 010, 010, 010, 076,      /* 1 */
        076, 0101, 1, 076, 0100, 0100, 0177,    /* 2 */
        076, 0101, 1, 076, 1, 0101, 076,        /* 3 */
        0100, 0102, 0102, 0102, 0177, 2, 2,     /* 4 */
        0177, 0100, 0100, 0176, 1, 0101, 076,   /* 5 */
        076, 0101, 0100, 0176, 0101, 0101, 076, /* 6 */
        0177, 0102, 04, 010, 020, 020, 020,     /* 7 */
        076, 0101, 0101, 076, 0101, 0101, 076,  /* 8 */
        076, 0101, 0101, 077, 1, 0101, 076,     /* 9 */
        010, 034, 010, 0, 010, 034, 010,        /* : */
        034, 034, 0, 034, 034, 010, 020,        /* ; */
        4, 010, 020, 040, 020, 010, 4,          /* < */
        0, 0, 076, 0, 076, 0, 0,                /* = */
        020, 010, 4, 2, 4, 010, 020,            /* > */
        076, 0101, 1, 016, 010, 0, 010,         /* ? */
        076, 0101, 0135, 0135, 0136, 0100, 076,         /* @ */
        010, 024, 042, 0101, 0177, 0101, 0101,          /* A */
        0176, 0101, 0101, 0176, 0101, 0101, 0176,       /* B */
        076, 0101, 0100, 0100, 0100, 0101, 076,         /* C */
        0176, 0101, 0101, 0101, 0101, 0101, 0176,       /* D */
        0177, 0100, 0100, 0174, 0100, 0100, 0177,       /* E */
        0177, 0100, 0100, 0174, 0100, 0100, 0100,       /* F */
        076, 0101, 0100, 0117, 0101, 0101, 076,         /* G */
        0101, 0101, 0101, 0177, 0101, 0101, 0101,       /* H */
        034, 010, 010, 010, 010, 010, 034,              /* I */
        1, 1, 1, 1, 0101, 0101, 076,                    /* J */
        0102, 0104, 0110, 0160, 0110, 0104, 0102,       /* K */
        0100, 0100, 0100, 0100, 0100, 0100, 0177,       /* L */
        0101, 0143, 0125, 0111, 0101, 0101, 0101,       /* M */
        0101, 0141, 0121, 0111, 0105, 0103, 0101,       /* N */
        0177, 0101, 0101, 0101, 0101, 0101, 0177,       /* O */
        0176, 0101, 0101, 0176, 0100, 0100, 0100,       /* P */
        076, 0101, 0101, 0101, 0105, 0102, 075,         /* Q */
        0176, 0101, 0101, 0176, 0104, 0102, 0101,       /* R */
        076, 0101, 0100, 076, 1, 0101, 076,             /* S */
        0177, 010, 010, 010, 010, 010, 010,             /* T */
        0101, 0101, 0101, 0101, 0101, 0101, 076,        /* U */
        0101, 0101, 0101, 0101, 042, 024, 010,          /* V */
        0101, 0111, 0111, 0111, 0111, 0111, 066,        /* W */
        0101, 042, 024, 010, 024, 042, 0101,            /* X */
        0101, 042, 024, 010, 010, 010, 010,             /* Y */
        0177, 2, 4, 010, 020, 040, 0177,                /* Z */
        076, 040, 040, 040, 040, 040, 076,              /* [ */
        0100, 040, 020, 010, 004, 002, 001,             /* \ */
        076, 2, 2, 2, 2, 2, 076,                        /* ] */
        010, 024, 042, 0, 0, 0, 0,                      /* ^ */
        0, 000, 000, 000, 000, 000, 0177,               /* _ */
        034, 034, 010, 04, 0, 0, 0,                     /* ` */
        0, 014, 022, 041, 077, 041, 041,        /* A */
        0, 076, 041, 076, 041, 041, 076,        /* B */
        0, 036, 041, 040, 040, 041, 036,        /* C */
        0, 076, 041, 041, 041, 041, 076,        /* D */
        0, 077, 040, 076, 040, 040, 077,        /* E */
        0, 077, 040, 076, 040, 040, 040,        /* F */
        0, 036, 041, 040, 047, 041, 036,        /* G */
        0, 041, 041, 077, 041, 041, 041,        /* H */
        0, 004, 004, 004, 004, 004, 004,        /* I */
        0, 001, 001, 001, 001, 041, 036,        /* J */
        0, 041, 042, 074, 044, 042, 041,        /* K */
        0, 040, 040, 040, 040, 040, 077,        /* L */
        0, 041, 063, 055, 041, 041, 041,        /* M */
        0, 041, 061, 051, 045, 043, 041,        /* N */
        0, 036, 041, 041, 041, 041, 036,        /* O */
        0, 076, 041, 041, 076, 040, 040,        /* P */
        0, 036, 041, 041, 045, 042, 035,        /* Q */
        0, 076, 041, 041, 076, 042, 041,        /* R */
        0, 036, 040, 036, 001, 041, 036,        /* S */
        0, 037, 004, 004, 004, 004, 004,        /* T */
        0, 041, 041, 041, 041, 041, 036,        /* U */
        0, 041, 041, 041, 041, 022, 014,        /* V */
        0, 041, 041, 041, 055, 063, 041,        /* W */
        0, 041, 022, 014, 014, 022, 041,        /* X */
        0, 021, 012, 004, 004, 004, 004,        /* Y */
        0, 077, 002, 004, 010, 020, 077,        /* Z */
        034, 040, 040, 0140, 040, 040, 034,     /* { */
        010, 010, 010, 0, 010, 010, 010,        /* | */
        034, 2, 2, 3, 2, 2, 034,                /* } */
        060, 0111, 06, 0, 0, 0, 0,              /* ~ */
        0, 000, 000, 000, 000, 000, 000         /* DEL */
};
static char blank = ' ';
static char plot = '#';
static int  msk = 0100; /* ? */

static void banner(char *s, struct bann *bufp);
static void banfil(char *c, struct bann *p);
static void banset(char c, struct bann *p);
static void banprt(struct bann *ptr);
static char convert(unsigned char c);

int
main(int argc, char **argv)
{
        int i;
        /*
         * if invoked with no arguments, prints error comment
         * if invoked with an argument, prints it in banner form.
         */
        (void) setlocale(LC_ALL, "");
#if !defined(TEXT_DOMAIN)
#define TEXT_DOMAIN     "SYS_TEST"
#endif
        (void) textdomain(TEXT_DOMAIN);
        if (argc < 2) {
                (void) printf(gettext
                    ("Usage: banner \"up to 10 char arg string\" . . .\n"));
                exit(1);
        }
        for (i = 1; i < argc; ++i) {
                banner(argv[i], bp);
                banprt(bp);
                (void) printf("\n");
        }
        return (0);
}

static void
banner(char *s, struct bann *bufp)
{
        char *p, *q;
        unsigned char c;
        struct bann *r;
        p = s;
        r = bufp;
        banset(blank, bufp);
        while ((c = *s++) != 0 && ((ptrdiff_t)s-(ptrdiff_t)p) <= chpln) {
                if ((c & 0300)) { /* 8th bit is on */
                        c = convert(c);
                }
                q = ctbl[c];
                banfil(q, r);
                r = (struct bann *)((char *)r + pospch);
        }
}

static void
banfil(char *c, struct bann *p)
{
        int i, j;
        for (i = 0; i < nlines; i++) {
                for (j = 0; j < pospch; j++) {
                        if (((c[i]<<j)&msk) != 0) p->alpha[i][j] = plot;
                }
        }
}

static void
banset(char c, struct bann *p)
{
        int i, j;
        for (i = 0; i < nlines; i++)
                for (j = 0; j < pposs-1; j++)
                        p->alpha[i][j] = c;
}

static void
banprt(struct bann *ptr)
{
        int i, j;
        for (i = 0; i < nlines; i++) {
                ptr->alpha[i][pposs-1] = '\0';
                for (j = pposs-2; j >= 0; j--) {
                        if (ptr->alpha[i][j] != blank)break;
                        ptr->alpha[i][j] = '\0';
                }
                (void) printf("%s\n", ptr->alpha[i]);
        }
}

static char
convert(unsigned char c)
{
        if (c >= 0xc0 && c <= 0xc6)
                return ('A');
        if (c >= 0xc8 && c <= 0xcb)
                return ('E');
        if (c == 0xc7)
                return ('C');
        if (c >= 0xcc && c <= 0xcf)
                return ('I');
        if (c == 0xd0)
                return ('D');
        if (c == 0xd1)
                return ('N');
        if (c >= 0xd2 && c <= 0xd6)
                return ('O');
        if (c == 0xd7)
                return ('X');
        if (c == 0xd8)
                return ('O');
        if (c >= 0xd9 && c <= 0xdc)
                return ('U');
        if (c == 0xdd)
                return ('Y');
        if (c == 0xde)
                return ('P');
        if (c == 0xdf)
                return ('B');
        if (c >= 0xe0 && c <= 0xe6)
                return ('a');
        if (c == 0xe7)
                return ('c');
        if (c >= 0xe8 && c <= 0xeb)
                return ('e');
        if (c >= 0xec && c <= 0xef)
                return ('i');
        if (c == 0xf0)
                return ('d');
        if (c == 0xf1)
                return ('n');
        if (c >= 0xf2 && c <= 0xf6)
                return ('o');
        if (c >= 0xf9 && c <= 0xfc)
                return ('u');
        if (c == 0xfd)
                return ('y');
        if (c == 0xfe)
                return ('p');
        if (c == 0xff)
                return ('y');
        return (c & 0177);
}