/*
 * 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 1997 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.
 */

#pragma ident	"%Z%%M%	%I%	%E% SMI"

/*LINTLIBRARY*/

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

/* This routine adds a string starting at (_cury, _curx) */

int
waddnstr(WINDOW *win, char *tstr, int i)
{
	chtype	ch;
	short	maxx_1 = win->_maxx - 1, cury = win->_cury,
		curx = win->_curx;
	chtype	**_y = win->_y;
	bool	savimmed = win->_immed,
		savsync = win->_sync;
	int	rv = OK;
	int	pflag;
	unsigned	char *str = (unsigned char *)tstr;

#ifdef	DEBUG
	if (outf) {
		if (win == stdscr)
			fprintf(outf, "waddnstr(stdscr, ");
		else
			fprintf(outf, "waddnstr(%o, ", win);
		fprintf(outf, "\"%s\")\n", str);
	}
#endif	/* DEBUG */

	/* throw away any current partial character */
	win->_nbyte = -1;
	win->_insmode = FALSE;
	pflag = 1;

	win->_immed = win->_sync = FALSE;

	if (i < 0)
		i = MAXINT;

	while (((ch = *str) != 0) && (i-- > 0)) {
		if (pflag == 1) {
			if (_scrmax > 1 && (rv = _mbvalid(win)) == ERR)
				break;
			curx = win->_curx;
			cury = win->_cury;
		}
		if (_mbtrue && ISMBIT(ch)) {
			int	m, k, ty;
			chtype		c;
			/* make sure we have the whole character */
			c = RBYTE(ch);
			ty = TYPE(c);
			m = cswidth[ty] - (ty == 0 ? 1 : 0);
			for (k = 1; str[k] != '\0' && k <= m; ++k)
				if (!ISMBIT(str[k]))
					break;
			if (k <= m)
				break;
			if (m > i)
				break;
			for (k = 0; k <= m; ++k, ++str) {
				if ((rv = _mbaddch(win, A_NORMAL,
				    RBYTE(*str))) == ERR)
					goto done;
				if (k > 0)
					i--;
			}
			pflag = 1;
			cury = win->_cury;
			curx = win->_curx;
			continue;
		}

		/* do normal characters while not next to edge */
		if ((ch >= ' ') && (ch != _CTRL('?')) && (curx < maxx_1)) {
			if (_scrmax > 1 && ISMBIT(_y[cury][curx]) &&
			    (rv = _mbclrch(win, cury, curx)) == ERR)
				break;
			if (curx < win->_firstch[cury])
				win->_firstch[cury] = curx;
			if (curx > win->_lastch[cury])
				win->_lastch[cury] = curx;
			ch = _WCHAR(win, ch);
			_y[cury][curx] = ch;
#ifdef	_VR3_COMPAT_CODE
			if (_y16update)
				/* LINTED */
				win->_y16[cury][curx] = _TO_OCHTYPE(ch);
#endif	/* _VR3_COMPAT_CODE */
			curx++;
			pflag = 0;
		} else {
			win->_curx = curx;
			/* found a char that is too tough to handle above */
			if (waddch(win, ch) == ERR) {
				rv = ERR;
				break;
			}
			cury = win->_cury;
			curx = win->_curx;
			pflag = 1;
		}
		str++;
		win->_curx = curx;
	}

done :
	win->_curx = curx;
	win->_flags |= _WINCHANGED;
	win->_sync = savsync;
	if (win->_sync)
		wsyncup(win);

	return ((win->_immed = savimmed) ? wrefresh(win) : rv);
}