/*	Copyright (c) 1984 AT&T	*/
/*	  All Rights Reserved  	*/

/*	THIS IS UNPUBLISHED PROPRIETARY SOURCE CODE OF AT&T	*/
/*	The copyright notice above does not evidence any   	*/
/*	actual or intended publication of such source code.	*/

#ifndef lint
static	char sccsid[] = "@(#)init_acs.c 1.1 94/10/31 SMI"; /* from S5R3.1 1.4 */
#endif

#include	"curses_inc.h"

/*
 * When the keyboard can send more than eight bits, offsets array
 * should be changed from chars to shorts.
 * The offsets MUST match what is in curses.h.
 */

static	unsigned	char	offsets[][2] =
				{
				    { '`', '*' },	/* ACS_DIAMOND */
				    { 'a', ':' },	/* ACS_CKBOARD */
				    { 'f', '\'' },	/* ACS_DEGREE */ 
				    { 'g', '#' },	/* ACS_PLMINUS */
				    { 'o', '-' },	/* ACS_S1 */
				    { 'q', '-' },	/* ACS_HLINE */
				    { 's', '_' },	/* ACS_S9 */
				    { 'x', '|' },	/* ACS_VLINE */
				    { '~', 'o' },	/* ACS_BULLET */
				    { ',', '<' },	/* ACS_LARROW */
				    { '+', '>' },	/* ACS_RARROW */
				    { '.', 'v' },	/* ACS_DARROW */
				    { '-', '^' },	/* ACS_UARROW */
				    { 'h', '#' },	/* ACS_BOARD */
				    { 'i', '#' },	/* ACS_LANTERN */
				    { '0', '#' },	/* ACS_BLOCK */
				};

init_acs()
{
    register	chtype	*nacsmap;
    register	char	*cp;
    register	int	i = sizeof(offsets) / 2, to_get, must_output;

#ifdef	_VR3_COMPAT_CODE
    if ((nacsmap = cur_term->_acs32map = (chtype *) malloc(sizeof(chtype) * 0400)) == NULL)
#else	/* _VR3_COMPAT_CODE */
    if ((nacsmap = cur_term->_acsmap = (chtype *) malloc(sizeof(chtype) * 0400)) == NULL)
#endif	/* _VR3_COMPAT_CODE */
    {
#ifdef	_VR3_COMPAT_CODE
bad:
#endif	/* _VR3_COMPAT_CODE */
	term_errno = TERM_BAD_MALLOC;
#ifdef	DEBUG
	strcpy(term_parm_err, "init_acs");
#endif	/* DEBUG */
	return (ERR);
    }

    /* Default acs chars for regular ASCII terminals are plus signs. */

    memSset(nacsmap, (chtype) '+', 0400);

    /*
     * Now load in defaults for some of the characters which have close
     * approximations in the normal ascii set.
     */

    while (i-- > 0)
	nacsmap[offsets[i][0]] = offsets[i][1];

    /* Now do mapping for terminals own ACS, if any */

    if (cp = acs_chars)
	while (*cp)
	{
	    to_get = *cp++;		/* to get this ... */
	    must_output = *cp++;	/* must output this ... */
#ifdef	DEBUG
	    if (outf)
		fprintf(outf, "acs %d, was %d, now %d\n",
		    to_get, nacsmap[to_get], must_output);
#endif	/* DEBUG */
	    nacsmap[to_get] = must_output | A_ALTCHARSET;
	}

    acs_map = nacsmap;

#ifdef	_VR3_COMPAT_CODE
    if (_y16update)
    {
	register	_ochtype	*n16acsmap;

	if ((n16acsmap = cur_term->_acsmap = (_ochtype *) malloc(sizeof(_ochtype) * 0400)) == NULL)
	{
	    goto bad;
	}

	for (i = 0; i < 0400; i++)
	    n16acsmap[i] = _TO_OCHTYPE(nacsmap[i]);
#undef	acs_map
	acs_map = n16acsmap;
    }
#endif	/* _VR3_COMPAT_CODE */
    return (OK);
}
