1
0
mirror of https://git.FreeBSD.org/src.git synced 2024-12-24 11:29:10 +00:00
freebsd/gnu/lib/libdialog/lineedit.c
1995-02-15 19:44:08 +00:00

260 lines
7.8 KiB
C

/*
* inputbox.c -- implements the input box
*
* AUTHOR: Savio Lam (lam836@cs.cuhk.hk)
*
* This program is free software; you can redistribute it and/or
* modify it under the terms of the GNU General Public License
* as published by the Free Software Foundation; either version 2
* of the License, or (at your option) any later version.
*
* This program is distributed in the hope that it will be useful,
* but WITHOUT ANY WARRANTY; without even the implied warranty of
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
* GNU General Public License for more details.
*
* You should have received a copy of the GNU General Public License
* along with this program; if not, write to the Free Software
* Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
*/
#include <dialog.h>
#include "dialog.priv.h"
/*
* Line editor
*/
int line_edit(WINDOW* dialog, int box_y, int box_x, int flen, int box_width, chtype attr, int first, unsigned char *result)
{
int i, key, len, max_len, fix_len;
chtype old_attr;
static int input_x, scroll;
static unsigned char instr[MAX_LEN+1];
unsigned char erase_char = erasechar();
unsigned char kill_char = killchar();
#ifdef notyet
unsignec char werase_char = cur_term->Ottyb.c_cc[VWERASE];
#endif
old_attr = getattrs(dialog);
keypad(dialog, TRUE);
if (first) {
memset(instr, 0, sizeof(instr));
strcpy(instr, result);
i = strlen(instr);
/* input_x = i % box_width;*/
input_x = (i > box_width) ? box_width - 1 : i;
/* scroll = i - input_x;*/
scroll = (i > box_width) ? i - box_width + 1: 0;
}
wmove(dialog, box_y, box_x);
wattrset(dialog, attr);
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
for (i = 0; i < fix_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
len = strlen(instr);
wattrset(dialog, old_attr);
max_len = MIN(len-scroll,box_width);
for ( ; i < max_len; i++)
waddch(dialog, instr[scroll+i]);
wmove(dialog, box_y, box_x + input_x);
for (;;) {
wattrset(dialog, attr);
wrefresh(dialog);
key = wgetch(dialog);
switch (key) {
case ctrl('q'):
goto ret;
break;
case KEY_F(1):
display_helpfile();
break;
case TAB:
case KEY_BTAB:
case KEY_UP:
case KEY_DOWN:
case ESC:
case '\r':
case '\n':
for (i = strlen(instr) - 1; i >= scroll + input_x && instr[i] == ' '; i--)
instr[i] = '\0';
if (key == '\r')
key = '\n';
goto ret;
case '\025':
case '\030':
kill_it:
memset(instr, 0, sizeof(instr));
case '\001':
case KEY_HOME:
input_x = scroll = 0;
wmove(dialog, box_y, box_x);
fix_len = flen >= 0 ? MIN(flen,box_width) : box_width;
for (i = 0; i < fix_len; i++)
waddch(dialog, instr[i] ? instr[i] : ' ');
wattrset(dialog, old_attr);
max_len = MIN(len,box_width);
for ( ; i < max_len; i++)
waddch(dialog, instr[i] ? instr[i] : ' ');
wmove(dialog, box_y, box_x);
continue;
case '\005':
case KEY_END:
for (i = strlen(instr) - 1; i >= scroll + input_x && instr[i] == ' '; i--)
instr[i] = '\0';
i++;
input_x = i % box_width;
scroll = i - input_x;
wmove(dialog, box_y, box_x);
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
for (i = 0; i < fix_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wattrset(dialog, old_attr);
max_len = MIN(len-scroll,box_width);
for ( ; i < max_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wmove(dialog, box_y, input_x + box_x);
continue;
case '\002':
case KEY_LEFT:
if (input_x || scroll) {
if (!input_x) {
int oldscroll = scroll;
scroll = scroll < box_width-1 ? 0 : scroll-(box_width-1);
wmove(dialog, box_y, box_x);
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
for (i = 0; i < fix_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wattrset(dialog, old_attr);
max_len = MIN(len-scroll,box_width);
for ( ; i < max_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
input_x = oldscroll - 1 - scroll;
}
else
input_x--;
wmove(dialog, box_y, input_x + box_x);
} else
beep();
continue;
case '\006':
case KEY_RIGHT:
if ( scroll+input_x < MAX_LEN
&& (flen < 0 || scroll+input_x < flen)
) {
if (!instr[scroll+input_x])
instr[scroll+input_x] = ' ';
if (input_x == box_width-1) {
scroll++;
wmove(dialog, box_y, box_x);
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
for (i = 0; i < fix_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wattrset(dialog, old_attr);
max_len = MIN(len-scroll,box_width);
for ( ; i < max_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wmove(dialog, box_y, box_x + box_width - 1);
}
else {
wmove(dialog, box_y, input_x + box_x);
waddch(dialog, instr[scroll+input_x]);
input_x++;
}
} else
beep(); /* Alarm user about overflow */
continue;
case '\b':
case '\177':
case KEY_BACKSPACE:
erase_it:
if (input_x || scroll) {
i = strlen(instr);
memmove(instr+scroll+input_x-1, instr+scroll+input_x, i-(scroll+input_x)+1);
if (!input_x) {
int oldscroll = scroll;
scroll = scroll < box_width-1 ? 0 : scroll-(box_width-1);
input_x = oldscroll - 1 - scroll;
}
else
input_x--;
wmove(dialog, box_y, box_x);
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
for (i = 0; i < fix_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wattrset(dialog, old_attr);
max_len = MIN(len-scroll,box_width);
for ( ; i < max_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wmove(dialog, box_y, input_x + box_x);
} else
beep();
continue;
case '\004':
case KEY_DC:
for (i = strlen(instr) - 1; i >= scroll + input_x && instr[i] == ' '; i--)
instr[i] = '\0';
i++;
if (i == 0) {
beep();
continue;
}
memmove(instr+scroll+input_x, instr+scroll+input_x+1, i-(scroll+input_x));
wmove(dialog, box_y, box_x);
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
for (i = 0; i < fix_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wattrset(dialog, old_attr);
max_len = MIN(len-scroll,box_width);
for ( ; i < max_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wmove(dialog, box_y, input_x + box_x);
continue;
default:
if (CCEQ(key, erase_char))
goto erase_it;
if (CCEQ(key, kill_char))
goto kill_it;
if (key < 0x100 && isprint(key)) {
for (i = strlen(instr) - 1; i >= scroll + input_x && instr[i] == ' '; i--)
instr[i] = '\0';
i++;
if (i < MAX_LEN && (flen < 0 || scroll+input_x < flen)) {
if (flen < 0 || i < flen)
memmove(instr+scroll+input_x+1, instr+scroll+input_x, i-(scroll+input_x));
instr[scroll+input_x] = key;
if (input_x == box_width-1 && (flen < 0 || i < flen))
scroll++;
else
input_x++;
wmove(dialog, box_y, box_x);
fix_len = flen >= 0 ? MIN(flen-scroll,box_width) : box_width;
for (i = 0; i < fix_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wattrset(dialog, old_attr);
max_len = MIN(len-scroll,box_width);
for ( ; i < max_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wmove(dialog, box_y, input_x + box_x);
} else
beep(); /* Alarm user about overflow */
continue;
}
}
}
ret:
wattrset(dialog, old_attr);
wmove(dialog, box_y, box_x);
max_len = MIN(len-scroll,box_width);
for (i = 0; i < max_len; i++)
waddch(dialog, instr[scroll+i] ? instr[scroll+i] : ' ');
wmove(dialog, box_y, input_x + box_x);
wrefresh(dialog);
strcpy(result, instr);
return key;
}