/*
 * 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 2004 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

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

/*
 * University Copyright- Copyright (c) 1982, 1986, 1988
 * The Regents of the University of California
 * All Rights Reserved
 *
 * University Acknowledgment- Portions of this document are derived from
 * software developed by the University of California, Berkeley, and its
 * contributors.
 */

/*LINTLIBRARY*/

#include        <stdlib.h>
#include        <sys/types.h>
#include        "curses_inc.h"

/*
 * Figure out (roughly) how much each of these capabilities costs.
 * In the parameterized cases, we just take a typical case and
 * use that value.  This is done only once at startup, since it
 * would be too expensive for intensive use.
 */

static  int     _cost_fn(char *, int);

static  short   offsets[] = {
                    52,         /* insert_character, */
                    21,         /* delete_character, */
                    12,         /* cursor_home, */
                    18,         /* cursor_to_ll, */
                    14,         /* cursor_left, */
                    17,         /* cursor_right, */
                    11,         /* cursor_down, */
                    19,         /* cursor_up, */
                    2,          /* carriage_return, */
                    134,        /* tab, */
                    0,          /* back_tab, */
                    6,          /* clr_eol, */
                    269,        /* clr_bol, */
#define FIRST_LOOP      13
                    108,        /* parm_ich, */
                    105,        /* parm_dch, */
                    111,        /* parm_left_cursor, */
                    114,        /* parm_up_cursor, */
                    107,        /* parm_down_cursor, */
                    112,        /* parm_right_cursor, */
#define SECOND_LOOP     19
                };

void
_init_costs(void)
{
        short   *costptr = &(SP->term_costs.icfixed);
        char    **str_array = (char **) cur_strs;
        int     i = 0;
        char    save_xflag = xon_xoff;

        xon_xoff = 0;
/*
 * This next block of code is actually correct in that it takes into
 * account many things that wrefresh has to keep figuring in the function
 * _useidch.  Wrefresh MUST be changed (in the words of Tony Hansen) !!!
 *
 * Wrefresh has been changed (in my words -Phong Vo) !!!!
 */
        *costptr++ = ((enter_insert_mode) && (exit_insert_mode)) ?
            _cost_fn(enter_insert_mode, 0) + _cost_fn(exit_insert_mode, 0) : 0;

        *costptr++ = ((enter_delete_mode) && (exit_delete_mode)) ?
            _cost_fn(enter_delete_mode, 0) + _cost_fn(exit_delete_mode, 0) : 0;

        while (i < FIRST_LOOP)
                *costptr++ = _cost_fn(str_array[offsets[i++]], 1);

        while (i < SECOND_LOOP)
                *costptr++ = _cost_fn(tparm_p1(str_array[offsets[i++]], 10), 1);

        *costptr++ = _cost_fn(tparm_p2(cursor_address, 8, 10), 1);
        *costptr++ = _cost_fn(tparm_p1(row_address, 8), 1);

        xon_xoff = save_xflag;
#ifdef  DEBUG
        if (outf) {
                fprintf(outf, "icfixed %d=%d+%d\n", _COST(icfixed),
                    _cost_fn(enter_insert_mode, 0),
                    _cost_fn(exit_insert_mode, 0));
                fprintf(outf, "from ich1 %x '%s' %d\n", insert_character,
                    insert_character, _cost_fn(insert_character, 1));
                fprintf(outf, "ip %x '%s' %d\n", insert_padding,
                    insert_padding, _cost_fn(insert_padding, 1));
                fprintf(outf, "dcfixed %d\n", _COST(dcfixed));
        }
#endif  /* DEBUG */
/*FALLTHROUGH*/
}

static int counter = 0;
int
/* ARGSUSED */
_countchar(char dummy)
{
        counter++;
        return (0);
}

/*
 * Figure out the _COST in characters to print this string.
 * Due to padding, we can't just use strlen, so instead we
 * feed it through tputs and trap the results.
 * Even if the terminal uses xon/xoff handshaking, count the
 * pad chars here since they estimate the real time to do the
 * operation, useful in calculating costs.
 */

static int
_cost_fn(char *str, int affcnt)
{
        if (str == NULL)
                return (LARGECOST);
        counter = 0;
        (void) tputs(str, affcnt, _countchar);
        return (counter);
}