/*
 * |-----------------------------------------------------------|
 * | Copyright (c) 1991, 1990 MIPS Computer Systems, Inc.      |
 * | All Rights Reserved                                       |
 * |-----------------------------------------------------------|
 * |          Restricted Rights Legend                         |
 * | Use, duplication, or disclosure by the Government is      |
 * | subject to restrictions as set forth in                   |
 * | subparagraph (c)(1)(ii) of the Rights in Technical        |
 * | Data and Computer Software Clause of DFARS 252.227-7013.  |
 * |         MIPS Computer Systems, Inc.                       |
 * |         950 DeGuigne Avenue                               |
 * |         Sunnyvale, California 94088-3650, USA             |
 * |-----------------------------------------------------------|
 */
#ident	"$Header: init_pair.c,v 1.4.2.1 92/06/24 14:05:52 marker Exp $"
/*	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.	*/


#include "curses_inc.h"

init_pair (pair, f, b)
register short pair, f, b;
{
    register _Color_pair *ptp;       /* pairs table pointer */
    void     _init_HP_pair();

    /* check the validity of arguments                      */

    if (pair < 1 || pair >= COLOR_PAIRS ||
        f < 0 || b < 0 || f >= COLORS || b >= COLORS)
        return (ERR);

    ptp = SP->_pairs_tbl + pair;

    /* update the pairs table (if no changes just return)   */

    if (ptp->foreground == f && ptp->background == b)
        return (OK);

    ptp->foreground = f;
    ptp->background = b;

    /* if we are on terminal that cannot define color pairs (Tek) */
    /* and "pair" was previously defined, go through the curscr   */
    /* and erase information from the color field at all positions*/
    /* that use that color pair (this way when refresh will be    */
    /* called next time, it will be forced to change the color at */
    /* these positions                                            */

    if (!initialize_pair)
    {   if (ptp->init)
        {
            register short  i, j;
	    register short  lin = curscr->_maxy;
            register chtype **y = curscr->_y;
	    register bool change = FALSE;
	    register short top = -1;
	    register short bottom = -1;
            register chtype new_pair = COLOR_PAIR (pair);
    
	    /* must use lin=curscr->_maxy rather then LINES, because */
	    /* LINES could have been decremented by ripoffline()     */

            for (i=0; i<lin; i++)
	    {
		 change = FALSE;
                 for (j=0; j<COLS; j++)
                 {
                      if ((y[i][j] & A_COLOR) == new_pair)
		      {
                           y[i][j] &= ~A_COLOR;
			   change = TRUE;
		      }
		      if (change)
		      {
			  wtouchln(_virtscr, i, 1, -1);
			  if (top == -1)
			      top = i;
			  bottom = i;
			  curscr->_attrs &= ~A_COLOR;
		      }
                 }
		 if (top != -1)
		 {   _VIRTTOP = top;
		     _VIRTBOT = bottom;
		 }
	    }

        }
    }
    
    /* on terminals that can initialize color pairs (HP)    */
    /* send an escape to initialize the new pair            */

    else
	_init_HP_pair (pair, f, b);

    /* if that pair has not been previously initialized, it could not */
    /* have been  used on the screen, so we don't have to do refresh  */

    if (ptp->init)
        wrefresh (_virtscr);
    else
        ptp->init = TRUE;

    return (OK);
}



void _init_HP_pair (pair, f, b)
register short pair, f, b;
{
    register _Color *ctp = SP->_color_tbl;  /* color table pointer */
    extern   int    _outch();

    tputs (tparm (initialize_pair, (long) pair,
				   (long) ctp[f].r, (long) ctp[f].g, (long) ctp[f].b,
                                  (long) ctp[b].r, (long) ctp[b].g, (long) ctp[b].b),
                  1, _outch);
}
