NetBSD-5.0.2/lib/libcurses/border.c
/* $NetBSD: border.c,v 1.11 2008/04/28 20:23:01 martin Exp $ */
/*
* Copyright (c) 2000 The NetBSD Foundation, Inc.
* All rights reserved.
*
* This code is derived from software contributed to The NetBSD Foundation
* by Julian Coleman.
*
* Redistribution and use in source and binary forms, with or without
* modification, are permitted provided that the following conditions
* are met:
* 1. Redistributions of source code must retain the above copyright
* notice, this list of conditions and the following disclaimer.
* 2. Redistributions in binary form must reproduce the above copyright
* notice, this list of conditions and the following disclaimer in the
* documentation and/or other materials provided with the distribution.
*
* THIS SOFTWARE IS PROVIDED BY THE NETBSD FOUNDATION, INC. AND CONTRIBUTORS
* ``AS IS'' AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED
* TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR
* PURPOSE ARE DISCLAIMED. IN NO EVENT SHALL THE FOUNDATION OR CONTRIBUTORS
* BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
* CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
* SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
* INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
* ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
* POSSIBILITY OF SUCH DAMAGE.
*/
#include <sys/cdefs.h>
#ifndef lint
__RCSID("$NetBSD: border.c,v 1.11 2008/04/28 20:23:01 martin Exp $");
#endif /* not lint */
#include <stdlib.h>
#include <string.h>
#include "curses.h"
#include "curses_private.h"
#ifndef _CURSES_USE_MACROS
/*
* border --
* Draw a border around stdscr using the specified
* delimiting characters.
*/
int
border(chtype left, chtype right, chtype top, chtype bottom, chtype topleft,
chtype topright, chtype botleft, chtype botright)
{
return wborder(stdscr, left, right, top, bottom, topleft, topright,
botleft, botright);
}
#endif
/*
* wborder --
* Draw a border around the given window using the specified delimiting
* characters.
*/
int
wborder(WINDOW *win, chtype left, chtype right, chtype top, chtype bottom,
chtype topleft, chtype topright, chtype botleft, chtype botright)
{
int endy, endx, i;
__LDATA *fp, *lp;
if (!(left & __CHARTEXT))
left |= ACS_VLINE;
if (!(right & __CHARTEXT))
right |= ACS_VLINE;
if (!(top & __CHARTEXT))
top |= ACS_HLINE;
if (!(bottom & __CHARTEXT))
bottom |= ACS_HLINE;
if (!(topleft & __CHARTEXT))
topleft |= ACS_ULCORNER;
if (!(topright & __CHARTEXT))
topright |= ACS_URCORNER;
if (!(botleft & __CHARTEXT))
botleft |= ACS_LLCORNER;
if (!(botright & __CHARTEXT))
botright |= ACS_LRCORNER;
#ifdef DEBUG
__CTRACE(__CTRACE_INPUT, "wborder: left = %c, 0x%x\n",
left & __CHARTEXT, left & __ATTRIBUTES);
__CTRACE(__CTRACE_INPUT, "wborder: right = %c, 0x%x\n",
right & __CHARTEXT, right & __ATTRIBUTES);
__CTRACE(__CTRACE_INPUT, "wborder: top = %c, 0x%x\n",
top & __CHARTEXT, top & __ATTRIBUTES);
__CTRACE(__CTRACE_INPUT, "wborder: bottom = %c, 0x%x\n",
bottom & __CHARTEXT, bottom & __ATTRIBUTES);
__CTRACE(__CTRACE_INPUT, "wborder: topleft = %c, 0x%x\n",
topleft & __CHARTEXT, topleft & __ATTRIBUTES);
__CTRACE(__CTRACE_INPUT, "wborder: topright = %c, 0x%x\n",
topright & __CHARTEXT, topright & __ATTRIBUTES);
__CTRACE(__CTRACE_INPUT, "wborder: botleft = %c, 0x%x\n",
botleft & __CHARTEXT, botleft & __ATTRIBUTES);
__CTRACE(__CTRACE_INPUT, "wborder: botright = %c, 0x%x\n",
botright & __CHARTEXT, botright & __ATTRIBUTES);
#endif
/* Merge window and background attributes */
left |= (left & __COLOR) ? (win->wattr & ~__COLOR) : win->wattr;
left |= (left & __COLOR) ? (win->battr & ~__COLOR) : win->battr;
right |= (right & __COLOR) ? (win->wattr & ~__COLOR) : win->wattr;
right |= (right & __COLOR) ? (win->battr & ~__COLOR) : win->battr;
top |= (top & __COLOR) ? (win->wattr & ~__COLOR) : win->wattr;
top |= (top & __COLOR) ? (win->battr & ~__COLOR) : win->battr;
bottom |= (bottom & __COLOR) ? (win->wattr & ~__COLOR) : win->wattr;
bottom |= (bottom & __COLOR) ? (win->battr & ~__COLOR) : win->battr;
topleft |= (topleft & __COLOR) ? (win->wattr & ~__COLOR) : win->wattr;
topleft |= (topleft & __COLOR) ? (win->battr & ~__COLOR) : win->battr;
topright |= (topright & __COLOR) ? (win->wattr & ~__COLOR) : win->wattr;
topright |= (topright & __COLOR) ? (win->battr & ~__COLOR) : win->battr;
botleft |= (botleft & __COLOR) ? (win->wattr & ~__COLOR) : win->wattr;
botleft |= (botleft & __COLOR) ? (win->battr & ~__COLOR) : win->battr;
botright |= (botright & __COLOR) ? (win->wattr & ~__COLOR) : win->wattr;
botright |= (botright & __COLOR) ? (win->battr & ~__COLOR) : win->battr;
endx = win->maxx - 1;
endy = win->maxy - 1;
fp = win->lines[0]->line;
lp = win->lines[endy]->line;
/* Sides */
for (i = 1; i < endy; i++) {
win->lines[i]->line[0].ch = (wchar_t) left & __CHARTEXT;
win->lines[i]->line[0].attr = (attr_t) left & __ATTRIBUTES;
win->lines[i]->line[endx].ch = (wchar_t) right & __CHARTEXT;
win->lines[i]->line[endx].attr = (attr_t) right & __ATTRIBUTES;
#ifdef HAVE_WCHAR
SET_WCOL(win->lines[i]->line[0], 1);
SET_WCOL(win->lines[i]->line[endx], 1);
#endif
}
for (i = 1; i < endx; i++) {
fp[i].ch = (wchar_t) top & __CHARTEXT;
fp[i].attr = (attr_t) top & __ATTRIBUTES;
lp[i].ch = (wchar_t) bottom & __CHARTEXT;
lp[i].attr = (attr_t) bottom & __ATTRIBUTES;
#ifdef HAVE_WCHAR
SET_WCOL(fp[i], 1);
SET_WCOL(lp[i], 1);
#endif
}
/* Corners */
if (!(win->maxx == LINES && win->maxy == COLS &&
(win->flags & __SCROLLOK) && (win->flags & __SCROLLWIN))) {
fp[0].ch = (wchar_t) topleft & __CHARTEXT;
fp[0].attr = (attr_t) topleft & __ATTRIBUTES;
fp[endx].ch = (wchar_t) topright & __CHARTEXT;
fp[endx].attr = (attr_t) topright & __ATTRIBUTES;
lp[0].ch = (wchar_t) botleft & __CHARTEXT;
lp[0].attr = (attr_t) botleft & __ATTRIBUTES;
lp[endx].ch = (wchar_t) botright & __CHARTEXT;
lp[endx].attr = (attr_t) botright & __ATTRIBUTES;
#ifdef HAVE_WCHAR
SET_WCOL(fp[0], 1);
SET_WCOL(fp[endx], 1);
SET_WCOL(lp[0], 1);
SET_WCOL(lp[endx], 1);
#endif
}
__touchwin(win);
return (OK);
}
int border_set(const cchar_t *ls, const cchar_t *rs, const cchar_t *ts,
const cchar_t *bs, const cchar_t *tl, const cchar_t *tr,
const cchar_t *bl, const cchar_t *br)
{
#ifndef HAVE_WCHAR
return ERR;
#else
return wborder_set(stdscr, ls, rs, ts, bs, tl, tr, bl, br);
#endif /* HAVE_WCHAR */
}
int wborder_set(WINDOW *win, const cchar_t *ls, const cchar_t *rs,
const cchar_t *ts, const cchar_t *bs,
const cchar_t *tl, const cchar_t *tr,
const cchar_t *bl, const cchar_t *br)
{
#ifndef HAVE_WCHAR
return ERR;
#else
int endy, endx, i, j, k, cw, pcw, tlcw, blcw, trcw, brcw;
cchar_t left, right, bottom, top, topleft, topright, botleft, botright;
nschar_t *np, *tnp;
if ( ls && wcwidth( ls->vals[ 0 ]))
memcpy( &left, ls, sizeof( cchar_t ));
else
setcchar( &left, &WACS_VLINE, win->wattr, 0, NULL );
if ( rs && wcwidth( rs->vals[ 0 ]))
memcpy( &right, rs, sizeof( cchar_t ));
else
setcchar( &right, &WACS_VLINE, win->wattr, 0, NULL );
if ( ts && wcwidth( ts->vals[ 0 ]))
memcpy( &top, ts, sizeof( cchar_t ));
else
setcchar( &top, &WACS_HLINE, win->wattr, 0, NULL );
if ( bs && wcwidth( bs->vals[ 0 ]))
memcpy( &bottom, bs, sizeof( cchar_t ));
else
setcchar( &bottom, &WACS_HLINE, win->wattr, 0, NULL );
if ( tl && wcwidth( tl->vals[ 0 ]))
memcpy( &topleft, tl, sizeof( cchar_t ));
else
setcchar( &topleft, &WACS_ULCORNER, win->wattr, 0, NULL );
if ( tr && wcwidth( tr->vals[ 0 ]))
memcpy( &topright, tr, sizeof( cchar_t ));
else
setcchar( &topright, &WACS_URCORNER, win->wattr, 0, NULL );
if ( bl && wcwidth( bl->vals[ 0 ]))
memcpy( &botleft, bl, sizeof( cchar_t ));
else
setcchar( &botleft, &WACS_LLCORNER, win->wattr, 0, NULL );
if ( br && wcwidth( br->vals[ 0 ]))
memcpy( &botright, br, sizeof( cchar_t ));
else
setcchar( &botright, &WACS_LRCORNER, win->wattr, 0, NULL );
#ifdef DEBUG
__CTRACE(__CTRACE_INPUT, "wborder_set: left = %c, 0x%x\n",
left.vals[0], left.attributes );
__CTRACE(__CTRACE_INPUT, "wborder_set: right = %c, 0x%x\n",
right.vals[0], right.attributes );
__CTRACE(__CTRACE_INPUT, "wborder_set: top = %c, 0x%x\n",
top.vals[0], top.attributes );
__CTRACE(__CTRACE_INPUT, "wborder_set: bottom = %c, 0x%x\n",
bottom.vals[0], bottom.attributes );
__CTRACE(__CTRACE_INPUT, "wborder_set: topleft = %c, 0x%x\n",
topleft.vals[0], topleft.attributes );
__CTRACE(__CTRACE_INPUT, "wborder_set: topright = %c, 0x%x\n",
topright.vals[0], topright.attributes );
__CTRACE(__CTRACE_INPUT, "wborder_set: botleft = %c, 0x%x\n",
botleft.vals[0], botleft.attributes );
__CTRACE(__CTRACE_INPUT, "wborder_set: botright = %c, 0x%x\n",
botright.vals[0], botright.attributes );
#endif
/* Merge window attributes */
left.attributes |= (left.attributes & __COLOR) ?
(win->wattr & ~__COLOR) : win->wattr;
right.attributes |= (right.attributes & __COLOR) ?
(win->wattr & ~__COLOR) : win->wattr;
top.attributes |= (top.attributes & __COLOR) ?
(win->wattr & ~__COLOR) : win->wattr;
bottom.attributes |= (bottom.attributes & __COLOR) ?
(win->wattr & ~__COLOR) : win->wattr;
topleft.attributes |= (topleft.attributes & __COLOR) ?
(win->wattr & ~__COLOR) : win->wattr;
topright.attributes |= (topright.attributes & __COLOR) ?
(win->wattr & ~__COLOR) : win->wattr;
botleft.attributes |= (botleft.attributes & __COLOR) ?
(win->wattr & ~__COLOR) : win->wattr;
botright.attributes |= (botright.attributes & __COLOR) ?
(win->wattr & ~__COLOR) : win->wattr;
endx = win->maxx - 1;
endy = win->maxy - 1;
/* Sides */
for (i = 1; i < endy; i++) {
/* left border */
cw = wcwidth( left.vals[ 0 ]);
for ( j = 0; j < cw; j++ ) {
win->lines[i]->line[j].ch = left.vals[ 0 ];
win->lines[i]->line[j].attr = left.attributes;
np = win->lines[i]->line[j].nsp;
if (np) {
while ( np ) {
tnp = np->next;
free( np );
np = tnp;
}
win->lines[i]->line[j].nsp = NULL;
}
if ( j )
SET_WCOL( win->lines[i]->line[j], -j );
else {
SET_WCOL( win->lines[i]->line[j], cw );
if ( left.elements > 1 ) {
for (k = 1; k < left.elements; k++) {
np = (nschar_t *)malloc(sizeof(nschar_t));
if (!np)
return ERR;
np->ch = left.vals[ k ];
np->next = win->lines[i]->line[j].nsp;
win->lines[i]->line[j].nsp
= np;
}
}
}
}
for ( j = cw; WCOL( win->lines[i]->line[j]) < 0; j++ ) {
#ifdef DEBUG
__CTRACE(__CTRACE_INPUT,
"wborder_set: clean out partial char[%d]", j);
#endif /* DEBUG */
win->lines[i]->line[j].ch = ( wchar_t )btowc(win->bch);
if (_cursesi_copy_nsp(win->bnsp,
&win->lines[i]->line[j]) == ERR)
return ERR;
SET_WCOL( win->lines[i]->line[j], 1 );
}
/* right border */
cw = wcwidth( right.vals[ 0 ]);
pcw = WCOL( win->lines[i]->line[endx - cw]);
for ( j = endx - cw + 1; j <= endx; j++ ) {
win->lines[i]->line[j].ch = right.vals[ 0 ];
win->lines[i]->line[j].attr = right.attributes;
np = win->lines[i]->line[j].nsp;
if (np) {
while ( np ) {
tnp = np->next;
free( np );
np = tnp;
}
win->lines[i]->line[j].nsp = NULL;
}
if ( j == endx - cw + 1 ) {
SET_WCOL( win->lines[i]->line[j], cw );
if ( right.elements > 1 ) {
for (k = 1; k < right.elements; k++) {
np = (nschar_t *)malloc(sizeof(nschar_t));
if (!np)
return ERR;
np->ch = right.vals[ k ];
np->next = win->lines[i]->line[j].nsp;
win->lines[i]->line[j].nsp
= np;
}
}
} else
SET_WCOL( win->lines[i]->line[j],
endx - cw + 1 - j );
}
if ( pcw != 1 ) {
#ifdef DEBUG
__CTRACE(__CTRACE_INPUT,
"wborder_set: clean out partial chars[%d:%d]",
endx - cw + pcw, endx - cw );
#endif /* DEBUG */
k = pcw < 0 ? endx -cw + pcw : endx - cw;
for ( j = endx - cw; j >= k; j-- ) {
win->lines[i]->line[j].ch
= (wchar_t)btowc(win->bch);
if (_cursesi_copy_nsp(win->bnsp,
&win->lines[i]->line[j]) == ERR)
return ERR;
win->lines[i]->line[j].attr = win->battr;
SET_WCOL( win->lines[i]->line[j], 1 );
}
}
}
tlcw = wcwidth( topleft.vals[ 0 ]);
blcw = wcwidth( botleft.vals[ 0 ]);
trcw = wcwidth( topright.vals[ 0 ]);
brcw = wcwidth( botright.vals[ 0 ]);
/* upper border */
cw = wcwidth( top.vals[ 0 ]);
for (i = tlcw; i <= min( endx - cw, endx - trcw ); i += cw ) {
for ( j = 0; j < cw; j++ ) {
win->lines[ 0 ]->line[i + j].ch = top.vals[ 0 ];
win->lines[ 0 ]->line[i + j].attr = top.attributes;
np = win->lines[ 0 ]->line[i + j].nsp;
if (np) {
while ( np ) {
tnp = np->next;
free( np );
np = tnp;
}
win->lines[ 0 ]->line[i + j].nsp = NULL;
}
if ( j )
SET_WCOL( win->lines[ 0 ]->line[ i + j ], -j );
else {
SET_WCOL( win->lines[ 0 ]->line[ i + j ], cw );
if ( top.elements > 1 ) {
for ( k = 1; k < top.elements; k++ ) {
np = (nschar_t *)malloc(sizeof(nschar_t));
if (!np)
return ERR;
np->ch = top.vals[ k ];
np->next = win->lines[0]->line[i + j].nsp;
win->lines[0]->line[i + j].nsp
= np;
}
}
}
}
}
while ( i <= endx - trcw ) {
win->lines[0]->line[i].ch =
( wchar_t )btowc(( int ) win->bch );
if (_cursesi_copy_nsp(win->bnsp,
&win->lines[0]->line[i]) == ERR)
return ERR;
win->lines[ 0 ]->line[ i ].attr = win->battr;
SET_WCOL( win->lines[ 0 ]->line[ i ], 1 );
i++;
}
/* lower border */
for (i = blcw; i <= min( endx - cw, endx - brcw ); i += cw ) {
for ( j = 0; j < cw; j++ ) {
win->lines[ endy ]->line[i + j].ch = bottom.vals[ 0 ];
win->lines[endy]->line[i + j].attr = bottom.attributes;
np = win->lines[ endy ]->line[i + j].nsp;
if (np) {
while ( np ) {
tnp = np->next;
free( np );
np = tnp;
}
win->lines[ endy ]->line[i + j].nsp = NULL;
}
if ( j )
SET_WCOL( win->lines[endy]->line[i + j], -j);
else {
SET_WCOL( win->lines[endy]->line[i + j], cw );
if ( bottom.elements > 1 ) {
for ( k = 1; k < bottom.elements;
k++ ) {
if ( !( np = ( nschar_t *)malloc( sizeof( nschar_t ))))
return ERR;
np->ch = bottom.vals[ k ];
np->next = win->lines[endy]->line[i + j].nsp;
win->lines[endy]->line[i + j].nsp = np;
}
}
}
}
}
while ( i <= endx - brcw ) {
win->lines[endy]->line[i].ch =
(wchar_t)btowc((int) win->bch );
if (_cursesi_copy_nsp(win->bnsp,
&win->lines[endy]->line[i]) == ERR)
return ERR;
win->lines[ endy ]->line[ i ].attr = win->battr;
SET_WCOL( win->lines[ endy ]->line[ i ], 1 );
i++;
}
/* Corners */
if (!(win->maxx == LINES && win->maxy == COLS &&
(win->flags & __SCROLLOK) && (win->flags & __SCROLLWIN))) {
for ( i = 0; i < tlcw; i++ ) {
win->lines[ 0 ]->line[i].ch = topleft.vals[ 0 ];
win->lines[ 0 ]->line[i].attr = topleft.attributes;
np = win->lines[ 0 ]->line[i].nsp;
if (np) {
while ( np ) {
tnp = np->next;
free( np );
np = tnp;
}
win->lines[ 0 ]->line[i].nsp = NULL;
}
if ( i )
SET_WCOL( win->lines[ 0 ]->line[ i ], -i );
else {
SET_WCOL( win->lines[ 0 ]->line[ i ], tlcw );
if ( topleft.elements > 1 ) {
for ( k = 1; k < topleft.elements;
k++ ) {
np = (nschar_t *)malloc(sizeof(nschar_t));
if (!np)
return ERR;
np->ch = topleft.vals[ k ];
np->next = win->lines[ 0 ]->line[i].nsp;
win->lines[ 0 ]->line[i].nsp
= np;
}
}
}
}
for ( i = endx - trcw + 1; i <= endx; i++ ) {
win->lines[ 0 ]->line[i].ch = topright.vals[ 0 ];
win->lines[ 0 ]->line[i].attr = topright.attributes;
np = win->lines[ 0 ]->line[i].nsp;
if (np) {
while ( np ) {
tnp = np->next;
free( np );
np = tnp;
}
win->lines[ 0 ]->line[i].nsp = NULL;
}
if ( i == endx - trcw + 1 ) {
SET_WCOL( win->lines[ 0 ]->line[ i ], trcw );
if ( topright.elements > 1 ) {
for ( k = 1; k < topright.elements;
k++ ) {
np = (nschar_t *)malloc(sizeof(nschar_t));
if (!np)
return ERR;
np->ch = topright.vals[ k ];
np->next = win->lines[0]->line[i].nsp;
win->lines[ 0 ]->line[i].nsp
= np;
}
}
} else
SET_WCOL( win->lines[ 0 ]->line[ i ],
endx - trcw + 1 - i );
}
for ( i = 0; i < blcw; i++ ) {
win->lines[ endy ]->line[i].ch = botleft.vals[ 0 ];
win->lines[ endy ]->line[i].attr = botleft.attributes;
np = win->lines[ endy ]->line[i].nsp;
if (np) {
while ( np ) {
tnp = np->next;
free( np );
np = tnp;
}
win->lines[ endy ]->line[i].nsp = NULL;
}
if ( i )
SET_WCOL( win->lines[endy]->line[i], -i );
else {
SET_WCOL( win->lines[endy]->line[i], blcw );
if ( botleft.elements > 1 ) {
for ( k = 1; k < botleft.elements;
k++ ) {
np = (nschar_t *)malloc(sizeof(nschar_t));
if (!np)
return ERR;
np->ch = botleft.vals[ k ];
np->next = win->lines[endy]->line[i].nsp;
win->lines[endy]->line[i].nsp
= np;
}
}
}
}
for ( i = endx - brcw + 1; i <= endx; i++ ) {
win->lines[ endy ]->line[i].ch = botright.vals[ 0 ];
win->lines[ endy ]->line[i].attr = botright.attributes;
np = win->lines[ endy ]->line[i].nsp;
if (np) {
while ( np ) {
tnp = np->next;
free( np );
np = tnp;
}
win->lines[ endy ]->line[i].nsp = NULL;
}
if ( i == endx - brcw + 1 ) {
SET_WCOL( win->lines[ endy ]->line[ i ],
brcw );
if ( botright.elements > 1 ) {
for ( k = 1; k < botright.elements; k++ ) {
np = (nschar_t *)malloc(sizeof(nschar_t));
if (!np)
return ERR;
np->ch = botright.vals[ k ];
np->next = win->lines[endy]->line[i].nsp;
win->lines[endy]->line[i].nsp
= np;
}
}
} else
SET_WCOL( win->lines[ endy ]->line[ i ],
endx - brcw + 1 - i );
}
}
__touchwin(win);
return (OK);
#endif /* HAVE_WCHAR */
}