freebsd-skq/lib/libforms/ncurses.c
1995-05-30 05:51:47 +00:00

708 lines
17 KiB
C
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

/*
* Copyright (c) 1995
* Paul Richards. All rights reserved.
*
* 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,
* verbatim and that no modifications are made prior to this
* point in the file.
* 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.
* 3. All advertising materials mentioning features or use of this software
* must display the following acknowledgement:
* This product includes software developed by Paul Richards.
* 4. The name Paul Richards may not be used to endorse or promote products
* derived from this software without specific prior written permission.
*
* THIS SOFTWARE IS PROVIDED BY PAUL RICHARDS ``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 PAUL RICHARDS 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.
*
*/
/*
* Low level ncurses support routines.
*/
#include <forms.h>
#include <ncurses.h>
#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <ttyent.h>
#include "internal.h"
/* ncurses key mappings */
/* XXX -- need to look at implementing key mapping properly */
#define K_UPL KEY_UP
#define K_DOWNL KEY_DOWN
#define K_RIGHTL 9
#define K_LEFTL 8
#define K_NEXTL 10
#define K_LEFT KEY_LEFT
#define K_RIGHT KEY_RIGHT
#define K_HOME KEY_HOME
#define K_END KEY_END
#define K_BS 263
#define K_DEL 330
#define K_ACCEPT K_NEXTL
/* Function declarations */
DISPLAY *ncurses_open(DISPLAY *);
void ncurses_moveto(OBJECT *);
int ncurses_print_srtring(OBJECT *, char *);
extern OBJECT *cur_obj;
DISPLAY *
ncurses_open(DISPLAY *display)
{
struct ttyent *tty;
NCURSDEV *device = display->device.ncurses;
FILE *in, *out;
if (device) {
tty = getttynam(device->ttyname);
if (!tty)
return (0);
in = fopen(device->input, "r");
out = fopen(device->output, "w+");
if ((!in) || (!out))
return (0);
device->screen = newterm(tty->ty_type, in, out);
} else {
display->device.ncurses = malloc(sizeof (NCURSDEV));
device = display->device.ncurses;
if (!device)
return (0);
device->screen = newterm(getenv("TERM"), stdout, stdin);
}
if (!device->screen)
return (0);
start_color();
cbreak();
noecho();
/* If we got here by default, set device type to ncurses */
if (display->type == DT_ANY)
display->type = DT_NCURSES;
display->height = LINES;
display->width = COLS;
return (display);
}
ncurses_set_display(DISPLAY *display)
{
set_term(display->device.ncurses->screen);
}
ncurses_open_window(OBJECT *object)
{
object->window.ncurses->win =
newwin(object->height, object->width, object->y, object->x);
if (!object->window.ncurses->win)
errx(-1, "Couldn't open window (%d)", lineno);
if (keypad(object->window.ncurses->win, TRUE) == ERR)
errx(-1, "Keypad call failed (%d)", lineno);
}
void
ncurses_refresh_display(DISPLAY *display)
{
doupdate();
}
/*
* Parse an attribute string. For ncurses we look up the display
* specific bindings table for the attribute strings. For ncurses
* the attribute entry is a simple integer which is passed to wattron.
*/
int
ncurses_parse_attrs(OBJECT *object, char *string)
{
hash_table *htable;
TUPLE *tuple;
int inc = 1;
char *attribute = 0;
AttrType attr_type;
int len, y, x;
int skip = 0;
if ((!string) || (*string != '\\'))
return (0);
do {
if (*(string + inc) == '\\')
return (skip);
while ((!isspace(*(string + inc)))
&& (*(string+inc) != '\\')
&& (*(string + inc) != '\0'))
inc++;
attribute = malloc(inc);
if (!attribute)
errx(-1, "Failed to allocate memory for attribute when parsing string");
strncpy(attribute, string+1, inc-1);
attribute[inc-1] = 0;
#ifdef no
/* Skip trailing space after the attribute string */
while (isspace(*(string + inc)))
inc++;
#endif
attr_type = parse_default_attributes(attribute);
free(attribute);
switch (attr_type) {
case ATTR_CENTER:
len = calc_string_width(string+inc);
getyx(object->window.ncurses->win, y, x);
wmove(object->window.ncurses->win, y,
(object->width - x - len)/2);
break;
case ATTR_RIGHT:
len = calc_string_width(string+inc);
getyx(object->window.ncurses->win, y, x);
wmove(object->window.ncurses->win, y, COLS-len);
break;
case ATTR_UNKNOWN:
default:
/*
* If no bindings table is found just skip over the attribute
* string. i.e. ignore the attribute but keep printing the text.
*/
if (object->display && object->display->bind) {
tuple = get_tuple(object->display->bind, attribute, TT_ATTR);
if (tuple)
wattron(object->window.ncurses->win, COLOR_PAIR((int)*(tuple->addr)));
}
break;
}
skip += inc;
string += inc;
inc = 0;
} while (*(string + inc++) == '\\');
return (skip);
}
int
ncurses_print_string(OBJECT *object, char *string)
{
int len, skip;
int y = object->y;
int x;
int height = object->height;
/* If it's a null string, clear the area using spaces. */
if (!string)
len = -1;
else
len = strlen(string);
wmove(object->window.ncurses->win, y, x);
while (height--) {
x = object->x;
if (wmove(object->window.ncurses->win, y++, x) == ERR)
return (ERR);
while (x++ < (object->x + object->width)) {
if (len-- > 0) {
/* Print input objects without processing \'s */
if ((*string == '\\') && (object->type != OT_INPUT)) {
skip = ncurses_parse_attrs(object, string);
len -= skip;
string += skip;
}
if (waddch(object->window.ncurses->win, *string++) == ERR)
return (ERR);
} else if (waddch(object->window.ncurses->win, ' ') == ERR)
return (ERR);
}
}
return (OK);
}
void
ncurses_display_object(OBJECT *object)
{
ncurses_set_attributes(object, 0);
switch (object->type) {
case OT_ACTION:
ncurses_display_action(object);
break;
case OT_COMPOUND:
ncurses_display_compound(object);
break;
case OT_FUNCTION:
ncurses_display_function(object);
break;
case OT_INPUT:
ncurses_display_input(object);
break;
case OT_MENU:
ncurses_display_menu(object);
break;
case OT_TEXT:
ncurses_display_text(object);
break;
default:
break;
}
}
void
ncurses_process_object(OBJECT *object)
{
ncurses_set_attributes(object, 1);
switch (object->type) {
case OT_ACTION:
ncurses_process_action(object);
break;
case OT_FUNCTION:
break;
case OT_INPUT:
ncurses_process_input(object);
break;
case OT_MENU:
ncurses_process_menu(object);
break;
case OT_TEXT:
break;
default:
break;
}
}
void
ncurses_draw_box(OBJECT *object)
{
int y, x;
chtype box, border;
ncurses_parse_attrs(object, object->highlight);
wattron(object->window.ncurses->win, A_BOLD);
mvwaddch(object->window.ncurses->win, object->y, object->x,
ACS_ULCORNER);
mvwaddch(object->window.ncurses->win,
object->y + object->height - 1,
object->x,
ACS_LLCORNER);
for (y=object->y + 1; y < (object->y + object->height) - 1; y++) {
mvwaddch(object->window.ncurses->win, y, object->x,
ACS_VLINE);
}
for (x=object->x + 1; x < (object->x + object->width) - 1; x++) {
mvwaddch(object->window.ncurses->win, object->y, x,
ACS_HLINE);
}
ncurses_parse_attrs(object, object->attributes);
wattroff(object->window.ncurses->win, A_BOLD);
mvwaddch(object->window.ncurses->win, object->y,
object->x + object->width-1,
ACS_URCORNER);
mvwaddch(object->window.ncurses->win,
object->y + object->height-1,
object->x + object->width-1,
ACS_LRCORNER);
for (y=object->y + 1; y < (object->y + object->height) - 1; y++) {
mvwaddch(object->window.ncurses->win, y, object->x + object->width - 1,
ACS_VLINE);
}
for (x=object->x + 1; x < (object->x + object->width) - 1; x++) {
mvwaddch(object->window.ncurses->win, object->y + object->height - 1, x,
ACS_HLINE);
}
wnoutrefresh(object->window.ncurses->win);
}
void
ncurses_draw_shadow(OBJECT *object)
{
int i;
for (i=object->y + 1; i < (object->y + object->height); i++) {
wattron(object->window.ncurses->win, A_INVIS);
mvwaddch(object->window.ncurses->win, i, object->x + object->width, ' ');
waddch(object->window.ncurses->win,
mvwinch(object->window.ncurses->win,
i, object->x + object->width) & A_CHARTEXT);
waddch(object->window.ncurses->win,
mvwinch(object->window.ncurses->win,
i, object->x + object->width+1) & A_CHARTEXT);
}
for (i=object->x + 1; i < (object->x + object->width + 2); i++) {
wattrset(object->window.ncurses->win, A_INVIS);
wmove(object->window.ncurses->win, object->y+object->height, i);
waddstr(object->window.ncurses->win, " ");
wattrset(object->window.ncurses->win, COLOR_PAIR(2)|A_BOLD);
waddch(object->window.ncurses->win,
mvwinch(object->window.ncurses->win,
object->y+object->height, i) & A_CHARTEXT);
}
wnoutrefresh(object->window.ncurses->win);
}
void
ncurses_display_compound(OBJECT *object)
{
int y, x;
for (y=object->y; y < (object->y + object->height); y++)
for (x=object->x; x < (object->x + object->width); x++)
waddch(object->window.ncurses->win,
mvwinch(object->window.ncurses->win, y, x) & A_CHARTEXT);
}
void
ncurses_display_action(OBJECT *object)
{
ncurses_print_string(object, object->object.action->text);
wnoutrefresh(object->window.ncurses->win);
}
void
ncurses_display_function(OBJECT *object)
{
TUPLE *tuple;
void (* fn)();
tuple = tuple_search(object, object->object.function->fn, TT_FUNC);
if (!tuple)
return;
fn = (FUNCP)tuple->addr;
if (fn)
(*fn)(object);
wnoutrefresh(object->window.ncurses->win);
}
void
ncurses_display_text(OBJECT *object)
{
ncurses_print_string(object, object->object.text->text);
wnoutrefresh(object->window.ncurses->win);
}
void
ncurses_display_input(OBJECT *object)
{
if (object->object.input->lbl_flag)
ncurses_print_string(object, object->object.input->label);
else
ncurses_print_string(object, object->object.input->input);
wnoutrefresh(object->window.ncurses->win);
}
void
ncurses_process_action(OBJECT *object)
{
TUPLE *tuple;
int ch;
ncurses_display_action(object);
wmove(object->window.ncurses->win, object->y, object->x);
for (;;) {
ch = wgetch(object->window.ncurses->win);
if (ch == K_ACCEPT) {
tuple = tuple_search(object,
object->object.action->action, TT_FUNC);
if (!tuple) {
ncurses_print_status("No function bound to action");
continue;
} else {
(*tuple->addr)(object);
return;
}
} else {
ch = ncurses_bind_key(object, ch);
if (ch == ST_ERROR) {
beep();
continue;
} else
return;
}
}
}
void
ncurses_process_input(OBJECT *object)
{
int len;
int disp_off=0, abspos=0, cursor = 0;
int ch;
#define DISPOFF ((len < object->width) ? 0 : len - object->width)
#define CURSPOS ((len < object->width) ? len : object->width)
ncurses_display_input(object);
len = strlen(object->object.input->input);
cursor = CURSPOS;
abspos = cursor;
for (;;) {
wmove(object->window.ncurses->win, object->y, object->x+cursor);
ch = wgetch(object->window.ncurses->win);
ch = ncurses_bind_key(object, ch);
/*
* If there was a valid motion command then we've
* moved to a new object so just return. If the motion
* command was invalid then just go around and get another
* keystroke. Otherwise, it was not a motion command.
*/
if (ch == ST_OK)
return;
else if (ch == ST_ERROR)
continue;
ncurses_print_status("");
if (object->object.input->lbl_flag) {
object->object.input->lbl_flag = 0;
}
if ((ch == K_HOME) || (ch == '')) {
disp_off = 0;
cursor = 0;
abspos = 0;
} else if ((ch == K_END) || (ch == '')) {
disp_off = DISPOFF;
abspos = len;
cursor = CURSPOS;
} else if (ch == K_DEL) {
if (!(len-abspos))
beep();
else {
bcopy(object->object.input->input+abspos+1,
object->object.input->input+abspos,
len - abspos);
--len;
}
} else if ((ch == K_LEFT) || (ch == K_BS) || (ch == '')) {
if (!abspos)
beep();
else {
if (ch == K_BS) {
bcopy(object->object.input->input+abspos,
object->object.input->input+abspos-1,
len-abspos+1);
--len;
}
--abspos;
--cursor;
if ((disp_off) && (cursor < 0)) {
--disp_off;
++cursor;
}
}
}else if (ch == '') {
bzero(object->object.input->input, len);
len = 0;
abspos = 0;
cursor = 0;
disp_off = 0;
} else if ((ch == K_RIGHT) || (ch == '')) {
if (abspos == len)
beep();
else {
++abspos;
if (++cursor >= object->width) {
++disp_off;
--cursor;
}
}
} else if ((isprint(ch)) && (len < object->object.input->limit)){
bcopy(object->object.input->input+abspos,
object->object.input->input+abspos+1, len-abspos+1);
object->object.input->input[abspos++] = ch;
len++;
if (++cursor > object->width) {
++disp_off;
--cursor;
}
} else
beep();
ncurses_print_string(object, object->object.input->input+disp_off);
}
}
void
ncurses_print_status(char *msg)
{
if (wmove(stdscr, LINES-1, 0) == ERR) {
endwin();
exit(1);
}
wclrtoeol(stdscr);
wstandout(stdscr);
if (wprintw(stdscr, "%s",
msg) == ERR) {
endwin();
exit(1);
}
wstandend(stdscr);
wrefresh(stdscr);
}
int
ncurses_bind_key(OBJECT *object, unsigned int ch)
{
struct Tuple *tuple=0;
/* XXX -- check for keymappings here --- not yet done */
if (ch == K_UPL) {
if (object->lup) {
tuple = tuple_search(object, object->lup, TT_OBJ_INST);
if (!tuple)
ncurses_print_status("Field to move up to does not exist");
} else
ncurses_print_status("Can't move up from this object");
} else if (ch == K_DOWNL) {
if (object->ldown) {
tuple = tuple_search(object, object->ldown, TT_OBJ_INST);
if (!tuple)
ncurses_print_status("Field to move down to does not exist");
} else
ncurses_print_status("Can't move down from this object");
} else if (ch == K_LEFTL) {
if (object->lleft) {
tuple = tuple_search(object, object->lleft, TT_OBJ_INST);
if (!tuple)
ncurses_print_status("Field to move left to does not exist");
} else
ncurses_print_status("Can't move left from this object");
} else if (ch == K_RIGHTL) {
if (object->lright) {
tuple = tuple_search(object, object->lright, TT_OBJ_INST);
if (!tuple)
ncurses_print_status("Field to move right to does not exist");
} else
ncurses_print_status("Can't move right from this object");
} else if (ch == K_NEXTL) {
if (object->lnext) {
tuple = tuple_search(object, object->lnext, TT_OBJ_INST);
if (!tuple)
ncurses_print_status("Field to move to next does not exist");
} else
ncurses_print_status("There is no next object from this object");
} else
/* No motion keys pressed */
return (ch);
if (tuple) {
cur_obj = (OBJECT *)tuple->addr;
return (ST_OK);
} else {
beep();
return (ST_ERROR);
}
}
void
ncurses_display_menu(OBJECT *object)
{
if (ncurses_print_string(object,
object->object.menu->options[object->object.menu->selected]) == ERR)
ncurses_print_status("Illegal scroll in print_string");
wnoutrefresh(object->window.ncurses->win);
}
void
ncurses_process_menu(OBJECT *object)
{
int ch;
for (;;) {
ncurses_display_menu(object);
wmove(object->window.ncurses->win, object->y, object->x);
ch = wgetch(object->window.ncurses->win);
switch (ch) {
case ' ':
ncurses_print_status("");
object->object.menu->selected++;
if (object->object.menu->selected >= object->object.menu->no_options)
object->object.menu->selected = 0;
ch = ST_OK;
break;
default:
ch = ncurses_bind_key(object, ch);
break;
}
if (ch == ST_OK)
return;
else if (ch == ST_ERROR) {
beep();
continue;
} else {
ncurses_print_status("Hit the space bar to toggle through options");
beep();
continue;
}
}
}
ncurses_set_attributes(OBJECT *object, int hl)
{
int y, x;
char *attr = 0;
if (hl && object->highlight)
attr = object->highlight;
else if (object->attributes)
attr = object->attributes;
if (attr) {
wattrset(object->window.ncurses->win, A_NORMAL);
ncurses_parse_attrs(object, attr);
}
}