/*
 * 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) 1995-1998 by Sun Microsystems, Inc.
 * All rights reserved.
 */

/* LINTLIBRARY */

/*
 * keypad.c
 *
 * XCurses Library
 *
 * Copyright 1990, 1995 by Mortice Kern Systems Inc.  All rights reserved.
 *
 */

#ifdef M_RCSID
#ifndef lint
static char rcsID[] =
"$Header: /team/ps/sun_xcurses/archive/local_changes/xcurses/src/lib/"
"libxcurses/src/libc/xcurses/rcs/keypad.c 1.6 1998/06/03 12:56:59 "
"cbates Exp $";
#endif
#endif

#include <private.h>
#include <stdlib.h>

/*
 * Add a function key string to the decode tree.
 * Return -1 on error, else the length of the key sequence.
 */
static int
decode_add(t_decode **root, const char *str, short code)
{
        const char      *start;
        t_decode        *node, *saved;

        if (root == NULL)
                return (-1);

        if (str == NULL)
                return (0);

        start = str;
        saved = NULL;

        if (*root == NULL) {
                /* First node of tree. */
                node = (t_decode *) malloc(sizeof (*node));
                if (node == NULL)
                        return (-1);

                *root = saved = node;

                node->child = node->sibling = NULL;
                node->ch = *str++;
                node->key = 0;
        } else {
                /* Find node to insert function key sequence into the tree. */
                for (node = *root; *str != '\0'; ++str, node = node->child) {
                        while (node->ch != *str &&
                                node->sibling != NULL)
                                node = node->sibling;

                        if (node->ch != *str) {
                                node->sibling = (t_decode *)
                                        malloc(sizeof (*node));
                                if (node->sibling == NULL)
                                        return (-1);

                                saved = node = node->sibling;
                                node->child = node->sibling = NULL;
                                node->ch = *str++;
                                node->key = 0;
                                break;
                        }

                        if (node->child == NULL)
                                break;
                }
        }

        /* Insert string into the tree; node->child == null. */
        while (*str != '\0') {
                node->child = (t_decode *) malloc(sizeof (*node));
                if (node->child == NULL) {
                        __m_decode_free(&saved);
                        return (-1);
                }

                node = node->child;
                node->child = node->sibling = NULL;
                node->ch = *str++;
                node->key = 0;
        }

        node->key = code;

        /* (str - start) should be enough small to fit in "int" */
        return ((int)(str - start));
}


void
__m_decode_free(t_decode **tree)
{
        if (*tree != NULL) {
                __m_decode_free(&(*tree)->sibling);
                __m_decode_free(&(*tree)->child);
                free(*tree);
                *tree = NULL;
        }
}

/*
 * Initialise the function key decode tree.
 */
int
__m_decode_init(t_decode **tree)
{
        int     max, len;
        const short     (*p)[2];

        *tree = NULL;

        for (max = -1, p = __m_keyindex; **p != -1; ++p) {
                len = decode_add(tree, cur_term->_str[**p], (*p)[1]);
                if (len < 0)
                        return (-1);
                if (max < len)
                        max = len;
        }

        return (max);
}

/*
 * When true for a given window, then multibyte function key processing
 * is done for all input throough that window, see wgetch().
 */
int
keypad(WINDOW *w, bool bf)
{
        if (bf) {
                if (keypad_xmit)
                        (void) TPUTS(keypad_xmit, 1, __m_outc);
                w->_flags |= W_USE_KEYPAD;
        } else {
                if (keypad_local)
                        (void) TPUTS(keypad_local, 1, __m_outc);
                w->_flags &= ~W_USE_KEYPAD;
        }
        return (OK);
}