/*
 * 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);
}