/*
* ESC # Seen.
*/
static void state6(int c)
{
int x, y;
/* Double height, double width and selftests. */
switch (c) {
case '8':
/* Selftest: fill screen with E's */
vt_win->doscroll = 0;
vt_win->direct = 0;
mc_wlocate(vt_win, 0, 0);
for (y = 0; y < vt_win->ys; y++) {
mc_wlocate(vt_win, 0, y);
for (x = 0; x < vt_win->xs; x++)
mc_wputc(vt_win, 'E');
}
mc_wlocate(vt_win, 0, 0);
vt_win->doscroll = 1;
mc_wredraw(vt_win, 1);
break;
default:
/* IGNORED */
break;
}
esc_s = 0;
}
/*
* fmg 8/20/97
* drawhist_look()
* Redraw the window, highlight line that was found to contain
* pattern 'look'
* Needed by re-draw screen function after EACH find_next()
*/
void drawhist_look(WIN *w, int y, int r, wchar_t *look, int case_matters)
{
int f;
ELM *tmp_e;
wchar_t tmp_line[MAXCOLS];
tmp_line[0]='\0';
w->direct = 0;
for (f = 0; f < w->ys; f++) {
tmp_e = mc_getline(w, y++);
/* First we "accumulate" the line into a variable */
mc_wdrawelm_var(w, tmp_e, tmp_line);
/* Does it have what we want? */
if (wcslen(look) > 1 && wcslen(tmp_line) > 1) {
if (StrStr(tmp_line,look, case_matters))
mc_wdrawelm_inverse(w, f, tmp_e); /* 'inverse' it */
else
mc_wdrawelm(w, f, tmp_e); /* 'normal' output */
}
}
if (r)
mc_wredraw(w, 1);
w->direct = 1;
}
/* Redraw the window. */
static void drawhist(WIN *w, int y, int r)
{
int f;
w->direct = 0;
for (f = 0; f < w->ys; f++)
mc_wdrawelm(w, f, mc_getline(w, y++));
if (r)
mc_wredraw(w, 1);
w->direct = 1;
}
/*
* fmg 8/20/97
* Search history - main function that started the C-code blasphemy :-)
* This function doesn't care about case/case-less status...
*/
void searchhist(WIN *w_hist, wchar_t *str)
{
int y;
WIN *w_new;
const char *hline;
size_t i;
/* Find out how big a window we must open. */
y = w_hist->y2;
if (st == (WIN *)0 || (st && tempst))
y--;
/* Open a Search line window. */
w_new = mc_wopen(0, y+1, w_hist->x2, y+1, 0, st_attr, sfcolor, sbcolor, 0, 0, 1);
w_new->doscroll = 0;
w_new->wrap = 0;
hline = _("SEARCH FOR (ESC=Exit)");
mc_wprintf(w_new, "%s(%d):",hline,MAX_SEARCH);
mc_wredraw(w_new, 1);
mc_wflush();
mc_wlocate(w_new, mbslen(hline)+6, 0);
for (i = 0; str[i] != 0; i++)
mc_wputc(w_new, str[i]);
mc_wlocate(w_new, mbslen(hline)+6, 0);
mc_wgetwcs(w_new, str, MAX_SEARCH, MAX_SEARCH);
#if 0
if (!str[0]) { /* then unchanged... must have pressed ESC... get out */
mc_wflush();
mc_wclose(w_new, 0);
return;
}
#endif
mc_wredraw(w_hist, 1);
mc_wclose(w_new, 1);
mc_wflush();
return;
}
/*
* Initialize the file directory.
*/
static int init_filedir(void)
{
int x1, x2;
int retstat = -1;
dirflush = 0;
x1 = (COLS / 2) - 37;
x2 = (COLS / 2) + 37;
dsub = mc_wopen(x1 - 1, LINES - 3, x2 + 1, LINES - 3, BNONE,
stdattr, mfcolor, mbcolor, 0, 0, 1);
main_w = mc_wopen(x1, 2, x2, LINES - 6, BSINGLE, stdattr, mfcolor,
mbcolor, 0, 0, 1);
if (ret_buf != NULL ||
(retstat = ((ret_buf = (char *)malloc(BUFSIZ)) == NULL)? -1 : 0) == 0) {
retstat = new_filedir(NULL, 0);
dirflush = 1;
mc_wredraw(dsub, 1);
}
return retstat;
}
/*
* Draw the file directory.
*
* howmany - How many files can be selected
* 0 = none (for directory selection only, as in "rz")
* 1 = one (for single-file up-/down-loads, as in "rx")
* -1 = any number (for multiple files, as in "sz")
*
* downloading - Is this for download selection?
* 0 = no
* 1 = yes - when single file selected, see if it exists
*/
char * filedir(int howmany, int downloading)
{
time_t click_time = (time_t) 0;
size_t i;
how_many = howmany;
down_loading = downloading;
init_filedir();
again:
mc_wlocate(main_w, 0, cur + FILE_MWTR - top);
if (first) {
mc_wredraw(main_w, 1);
first = 0;
}
while (!quit) {
GETSDIR_ENTRY *d = getno(cur, global_dirdat);
/*
if(S_ISDIR(d->mode))
prone(main_w, d, longest, 0);
*/
switch (c = wxgetch()) {
case K_UP:
case 'k':
/*
if(S_ISDIR(d->mode))
prone(main_w, d, longest, 1);
*/
cur -= cur > 0;
break;
case K_DN:
case 'j':
/*
if(S_ISDIR(d->mode))
prone(main_w, d, longest, 1);
*/
cur += cur < nrents - 1;
break;
case K_LT:
case 'h':
subm--;
if (subm < 0)
subm = SUBM_OKAY;
break;
case K_RT:
case 'l':
subm = (subm + 1) % 6;
break;
case K_PGUP:
case '\002': /* Control-B */
pgud = 1;
quit = 1;
break;
case K_PGDN:
case '\006': /* Control-F */
pgud = 2;
quit = 1;
break;
case ' ': /* Tag if not directory */
if (S_ISDIR(d->mode)) {
time_t this_time = time((time_t *)NULL);
if (this_time - click_time < 2) {
GETSDIR_ENTRY *d2 = getno(cur, global_dirdat);
goto_filedir(d2->fname, 0);
click_time = (time_t)0;
} else
click_time = this_time;
}
else {
if (how_many) {
if ((d->cflags ^= FL_TAG) & FL_TAG) {
if (tag_cnt && how_many == 1) {
d->cflags &= ~FL_TAG;
file_tell(_("Can select only one!"));
break;
}
++tag_cnt;
} else
--tag_cnt;
mc_wlocate(main_w, 0, cur + FILE_MWTR - top);
prone(main_w, d, longest, d->cflags & FL_TAG);
mc_wputc(main_w, '\n');
cur += cur < nrents - 1;
}
}
break;
case '\033':
case '\r':
case '\n':
quit = 1;
break;
default:
for (i = 0; i < WHAT_NR_OPTIONS; i++) {
if (strchr (_(what[i]), toupper (c)) != NULL) {
subm = i;
c = '\n';
quit = 1;
break;
}
}
break;
}
if (c != ' ')
click_time = (time_t)0;
if (cur < top) {
top--;
prdir(main_w, top, top, global_dirdat, longest);
}
if (cur - top > main_w->ys - (2 + FILE_MWTR)) {
top++;
prdir(main_w, top, top, global_dirdat, longest);
}
/*
if(cur != ocur)
mc_wlocate(main_w, 0, cur + FILE_MWTR - top);
*/
ocur = cur;
dhili(subm);
/* this really needs to go in dhili !!!*/
mc_wlocate(main_w, 0, cur + FILE_MWTR - top);
}
quit = 0;
/* ESC means quit */
if (c == '\033') {
mc_wclose(main_w, 1);
mc_wclose(dsub, 1);
free(global_dirdat);
global_dirdat = NULL;
return NULL;
}
/* Page up or down ? */
if (pgud == 1) { /* Page up */
ocur = top;
top -= main_w->ys - (1 + FILE_MWTR);
if (top < 0)
top = 0;
cur = top;
pgud = 0;
if (ocur != top)
prdir(main_w, top, cur, global_dirdat, longest);
ocur = cur;
goto again;
}
if (pgud == 2) { /* Page down */
ocur = top;
if (top < nrents - main_w->ys + (1 + FILE_MWTR)) {
top += main_w->ys - (1 + FILE_MWTR);
if (top > nrents - main_w->ys + (1 + FILE_MWTR)) {
top = nrents - main_w->ys + (1 + FILE_MWTR);
}
cur = top;
} else
cur = nrents - 1;
pgud = 0;
if (ocur != top)
prdir(main_w, top, cur, global_dirdat, longest);
ocur = cur;
goto again;
}
if (c =='\r' || c == '\n') {
switch(subm) {
case 0:
/* Goto directory */
{
char buf[128];
char *s;
strncpy(buf, down_loading? P_DOWNDIR : P_UPDIR, sizeof(buf) -1);
s = input(_("Goto directory:"), buf);
/* if(s == NULL || *s == (char) 0) */
if (s == NULL)
break;
goto_filedir(buf, 1);
}
break;
case 1:
/* Previous directory */
goto_filedir(prev_dir, 1);
break;
case 2:
/* File (wildcard) spec */
{
char *s = input(_("Filename pattern:"), wc_mem);
if (s == NULL || *s == (char) 0)
break;
strcpy(wc_str, wc_mem);
new_filedir(global_dirdat, 1);
wc_str[0] = (char)0;
}
break;
case 3:
/* Tag */
if (how_many == 1)
file_tell(_("Can select only one!"));
else if (how_many == -1) {
char tag_buf[128];
char *s;
strncpy(tag_buf, wc_mem, 128);
s = input(_("Tag pattern:"), tag_buf);
if (s != NULL && *s != (char)0) {
int newly_tagged;
if ((newly_tagged = tag_untag(tag_buf, 1)) == 0) {
file_tell(_("No file(s) tagged"));
goto tag_end;
}
tag_cnt += newly_tagged;
prdir(main_w, top, top, global_dirdat, longest);
}
}
tag_end:
break;
case 4:
/* Untag */
{
char tag_buf[128];
char *s;
int untagged;
strncpy(tag_buf, wc_mem, 128);
s = input(_("Untag pattern:"), tag_buf);
if (s == NULL || *s == (char)0)
goto untag_end;
if ((untagged = tag_untag(tag_buf, 0)) == 0) {
file_tell(_("No file(s) untagged"));
goto untag_end;
}
tag_cnt -= untagged;
prdir(main_w, top, top, global_dirdat, longest);
}
untag_end:
break;
case 5:
{
/* Done */
char *ret_ptr = NULL; /* failsafe: assume failure */
if (how_many != 0 && !tag_cnt) {
while (1) {
s = input(_("No file selected - enter filename:"),
ret_buf);
if (s != NULL && *s != (char) 0) {
int f_exist = access(ret_buf, F_OK);
if (down_loading) {
if (f_exist != -1) {
/* ask 'em if they're *sure* */
char buf[BUFSIZ];
snprintf(buf, sizeof(buf),
_("File: \"%s\" exists! Overwrite?"), ret_buf);
if (ask(buf, d_yesno) == 0) {
ret_ptr = ret_buf;
break;
}
} else {
ret_ptr = ret_buf;
break;
}
} else {
if (f_exist == -1)
file_tell(_("no such file!"));
else {
ret_ptr = ret_buf;
break;
}
}
} else {
/* maybe want to ask: "abort?", here */
goto again;
}
}
}
else {
/* put 'em in a buffer for return */
if (how_many == 0) {
/* current working directory */
ret_ptr = work_dir;
} else {
ret_ptr = concat_list(global_dirdat);
}
}
mc_wclose(main_w, 1);
mc_wclose(dsub, 1);
free(global_dirdat);
global_dirdat = NULL;
return ret_ptr;
}
break;
default:
/* should "beep", I guess (? shouldn't get here) */
file_tell("BEEP!");
break;
} /* switch */
}
goto again;
}
/*
* Initialize new file directory.
*
* Sets the current working directory. Non-0 return = no change.
*/
static int new_filedir(GETSDIR_ENTRY *dirdat, int flushit)
{
static size_t dp_len = 0;
static char cwd_str_fmt[BUFSIZ] = "";
size_t new_dp_len, fmt_len;
char disp_dir[80];
int initial_y = (76 - (WHAT_NR_OPTIONS * WHAT_WIDTH >= 76
? 74 : WHAT_NR_OPTIONS * WHAT_WIDTH)) / 2;
size_t i;
char * new_prev_dir;
cur = 0;
ocur = 0;
subm = SUBM_OKAY;
quit = 0;
top = 0;
c = 0;
pgud = 0;
first = 1;
min_len = 1;
dprev = -1;
tag_cnt = 0;
/*
* get last directory
*/
work_dir = down_loading ? d_work_dir : u_work_dir;
/*
* init working directory to default?
*/
if (work_dir == NULL) {
char *s = down_loading? P_DOWNDIR : P_UPDIR;
min_len = 1;
if (*s != '/')
min_len += strlen(homedir) + 1;
min_len += strlen(s);
if (min_len < BUFSIZ)
min_len = BUFSIZ;
work_dir = set_work_dir(NULL, min_len);
if (*s == '/')
strncpy(work_dir, s, min_len);
else
snprintf(work_dir, min_len, "%s/%s", homedir, s);
}
/* lop-off trailing "/" for consistency */
if (strlen(work_dir) > 1 && work_dir[strlen(work_dir) - 1] == '/')
work_dir[strlen(work_dir) - 1] = (char)0;
/* get the current working directory, which will become the prev_dir, on success */
new_prev_dir = getcwd(NULL, BUFSIZ);
if (!new_prev_dir)
return -1;
if (!access(work_dir, R_OK | X_OK) && !chdir(work_dir)) {
/* was able to change to new working directory */
free(prev_dir);
prev_dir = new_prev_dir;
}
else {
/* Could not change to the new working directory */
mc_wbell();
werror(
_("Could not change to directory %s (%s)"),
work_dir,
strerror(errno));
/* restore the previous working directory */
free(work_dir);
work_dir = set_work_dir(new_prev_dir, strlen(new_prev_dir));
}
/* All right, draw the file directory! */
if (flushit) {
dirflush = 0;
mc_winclr(main_w);
mc_wredraw(main_w, 1);
}
mc_wcursor(main_w, CNORMAL);
{
char *s;
if (down_loading) {
if (how_many < 0)
s = _("Select one or more files for download");
else if (how_many)
s = _("Select a file for download");
else
s = _("Select a directory for download");
} else {
if (how_many < 0)
s = _("Select one or more files for upload");
else if (how_many)
s = _("Select a file for upload");
else
s = _("Select a directory for upload");
}
snprintf(file_title, sizeof(file_title), "%s", s);
}
mc_wtitle(main_w, TMID, file_title);
if ((new_dp_len = strlen(work_dir)) > dp_len) {
dp_len = new_dp_len;
snprintf(cwd_str_fmt, sizeof(cwd_str_fmt),
_("Directory: %%-%ds"), (int)dp_len);
}
new_dp_len = mbslen (work_dir);
if (new_dp_len + (fmt_len = mbslen(cwd_str_fmt)) > 75) {
size_t i;
char *tmp_dir = work_dir;
/* We want the last 73 characters */
for (i = 0; 73 + i < new_dp_len + fmt_len; i++) {
wchar_t wc;
tmp_dir += one_mbtowc(&wc, work_dir, MB_LEN_MAX);
}
snprintf(disp_dir, sizeof(disp_dir), "...%s", tmp_dir);
snprintf(cwd_str, sizeof(cwd_str), cwd_str_fmt, disp_dir);
} else
snprintf(cwd_str, sizeof(cwd_str), cwd_str_fmt, work_dir);
mc_wlocate(main_w, 0, 0);
mc_wputs(main_w, cwd_str);
for (i = 0; i < WHAT_NR_OPTIONS; i++) {
const char *str, *c;
size_t j;
str = _(what[i]);
c = str;
for (j = 0; j < WHAT_WIDTH - 1 && *c != 0; j++) {
wchar_t wc;
c += one_mbtowc (&wc, c, MB_LEN_MAX);
}
what_lens[i] = c - str;
j = WHAT_WIDTH - j; /* Characters left for padding */
what_padding[i][1] = j / 2; /* Rounding down */
what_padding[i][0] = j - what_padding[i][1]; /* >= 1 */
}
mc_wlocate(dsub, initial_y, 0);
for (i = 0; i < WHAT_NR_OPTIONS; i++)
horiz_draw(i, mc_wgetattr(dsub), mc_wgetattr(dsub));
mc_wsetregion(main_w, 1, main_w->ys - FILE_MWTR);
main_w->doscroll = 0;
/* old dir to discard? */
free(dirdat);
dirdat = NULL;
/* get sorted directory */
if ((nrents = getsdir(".", wc_str,
GETSDIR_PARNT|GETSDIR_NSORT|GETSDIR_DIRSF,
0, &dirdat, &longest)) < 0) {
/* we really want to announce the error here!!! */
mc_wclose(main_w, 1);
mc_wclose(dsub, 1);
free(dirdat);
dirdat = NULL;
return -1;
}
global_dirdat = dirdat; // Hmm...
prdir(main_w, top, top, dirdat, longest);
mc_wlocate(main_w, initial_y, main_w->ys - FILE_MWTR);
mc_wputs(main_w, _("( Escape to exit, Space to tag )"));
dhili(subm);
/* this really needs to go in dhili !!!*/
mc_wlocate(main_w, 0, cur + FILE_MWTR - top);
if (flushit) {
dirflush = 1;
mc_wredraw(dsub, 1);
}
return 0;
}
/*
* Show the status line
*/
static void show_status_fmt(const char *fmt)
{
if (!st)
return;
char buf[COLS];
int bufi = 0;
int l = strlen(fmt);
for (int i = 0; i < l && bufi < COLS; ++i)
{
if (fmt[i] == '%' && i + 1 < l)
{
char func = fmt[i + 1];
++i;
switch (func)
{
case '%':
bufi += snprintf(buf + bufi, COLS - bufi, "%%");
break;
case 'H':
bufi += snprintf(buf + bufi, COLS - bufi, "%sZ", esc_key());
break;
case 'V':
bufi += snprintf(buf + bufi, COLS - bufi, "%s", VERSION);
break;
case 'b':
if (portfd_is_socket)
bufi += snprintf(buf + bufi, COLS - bufi, "unix-socket");
else
{
if (P_SHOWSPD[0] == 'l')
bufi += snprintf(buf + bufi, COLS - bufi, "%6ld", linespd);
else
bufi += snprintf(buf + bufi, COLS - bufi, "%s", P_BAUDRATE);
bufi += snprintf(buf + bufi, COLS - bufi, " %s%s%s", P_BITS, P_PARITY, P_STOPB);
}
break;
case 'T':
switch (terminal)
{
case VT100:
bufi += snprintf(buf + bufi, COLS - bufi, "VT102");
break;
case ANSI:
bufi += snprintf(buf + bufi, COLS - bufi, "ANSI");
break;
}
break;
case 'C':
bufi += snprintf(buf + bufi, COLS - bufi, cursormode == NORMAL ? "NOR" : "APP");
break;
case 't':
if (online < 0)
bufi += snprintf(buf + bufi, COLS - bufi, "%s",
P_HASDCD[0] == 'Y' ? _("Offline") : _("OFFLINE"));
else
bufi += snprintf(buf + bufi, COLS - bufi, "%s %ld:%ld",
P_HASDCD[0] == 'Y' ? _("Online") : _("ONLINE"),
online / 3600, (online / 60) % 60);
break;
case 'D':
{
char b[COLS - bufi];
bufi += snprintf(buf + bufi, COLS - bufi, "%s",
shortened_devpath(b, sizeof(b), P_PORT));
}
break;
case '$':
bufi += snprintf(buf + bufi, COLS - bufi, "%s", status_message);
break;
default:
bufi += snprintf(buf + bufi, COLS - bufi, "?%c", func);
break;
}
}
else
{
buf[bufi] = fmt[i];
bufi++;
}
}
if (bufi < COLS - 1)
memset(buf + bufi, ' ', COLS - bufi);
buf[COLS - 1] = 0;
st->direct = 0;
mc_wlocate(st, 0, 0);
mc_wprintf(st, "%s", buf);
mc_wredraw(st, 1);
ret_csr();
}
/*
* Initialize screen and status line.
*/
void init_emul(int type, int do_init)
{
int x = -1, y = -1;
char attr = 0;
int maxy;
int ypos;
if (st) {
mc_wclose(st, 1);
tempst = 0;
st = NULL;
}
if (us) {
x = us->curx;
y = us->cury;
attr = us->attr;
mc_wclose(us, 0);
}
/* See if we have space for a fixed status line */
maxy = LINES - 1;
if ((use_status || LINES > 24) &&
P_STATLINE[0] == 'e') {
if (use_status) {
ypos = LINES;
maxy = LINES - 1;
} else {
ypos = LINES - 1;
maxy = LINES - 2;
}
st = mc_wopen(0, ypos, COLS - 1, ypos, BNONE,
st_attr, sfcolor, sbcolor, 1, 0, 1);
mc_wredraw(st, 1);
}
/* MARK updated 02/17/95 - Customizable size for history buffer */
num_hist_lines = atoi(P_HISTSIZE);
if (num_hist_lines < 0)
num_hist_lines = 0;
if (num_hist_lines > 5000)
num_hist_lines = 5000;
/* Open a new main window, and define the configured history buffer size. */
us = mc_wopen(0, 0, COLS - 1, maxy,
BNONE, XA_NORMAL, tfcolor, tbcolor, 1, num_hist_lines, 0);
if (x >= 0) {
mc_wlocate(us, x, y);
mc_wsetattr(us, attr);
}
us->autocr = 0;
us->wrap = wrapln;
terminal = type;
lines = LINES - (st != NULL);
cols = COLS;
/* Install and reset the terminal emulator. */
if (do_init) {
vt_install(do_output, kb_handler, us);
vt_init(type, tfcolor, tbcolor, us->wrap, addlf, addcr);
} else
vt_pinit(us, -1, -1);
show_status();
}
/* Scroll back */
static void scrollback(void)
{
int y,c;
WIN *b_us, *b_st;
ELM *tmp_e;
int case_matters=0; /* fmg: case-importance, needed for 'N' */
static wchar_t look_for[MAX_SEARCH]; /* fmg: last used search pattern */
wchar_t tmp_line[MAXCOLS];
int citemode = 0;
int cite_ystart = 1000000,
cite_yend = -1,
cite_y = 0;
int inverse;
int loop = 1;
char hline0[128], hline1[128], *hline;
static int hit=0;
/* Find out how big a window we must open. */
y = us->y2;
if (st == (WIN *)0 || (st && tempst))
y--;
/* Open a window. */
b_us = mc_wopen(0, 0, us->x2, y, 0, us->attr, COLFG(us->color),
COLBG(us->color), 0, 0, 0);
mc_wcursor(b_us, CNONE);
/* Open a help line window. */
b_st = mc_wopen(0, y+1, us->x2, y+1, 0, st_attr, sfcolor, sbcolor, 0, 0, 1);
b_st->doscroll = 0;
b_st->wrap = 0;
/* Make sure help line is as wide as window. */
/*
* fmg 8/20/97
* added /=Srch, \=CaseLess, and N=Next and changed rest of line...
* Hope you like it :-)
*/
strcpy(hline0,
_("HISTORY: U=Up D=Down F=PgDn B=PgUp s=Srch S=CaseLess N=Next C=Cite ESC=Exit "));
if (b_st->xs < 127)
hline0[b_st->xs] = 0;
hline = hline0;
mc_wprintf(b_st, "%s", hline);
mc_wredraw(b_st, 1);
mc_wflush();
/* And do the job. */
y = us->histlines;
/* fmg 8/20/97
* Needed for N)extSearch, keeps track of line on which current "hit"
* is... we advance it to 'N'ext hit in find_next(). We start at "top"
* of history stack
*/
hit = 0;
drawhist(b_us, y, 0);
while (loop) {
c = wxgetch();
switch (c) {
/*
* fmg 8/22/97
* Take care of the search key: Caseless
*/
case '\\':
case 'S':
case_matters = 0; /* case-importance, ie. none :-) */
/*
* fmg 8/22/97
* Take care of the search key: Exact Match
*/
case '/':
case 's':
if (!us->histlines) {
mc_wbell();
werror(_("History buffer Disabled!"));
break;
}
if (!us->histline) {
mc_wbell();
werror(_("History buffer empty!"));
break;
}
if (citemode)
break;
/* we need this for the case-importance-toggle to work.. */
if (c == '/' || c == 's')
case_matters=1; /* case-importance, ie. DOES */
/* open up new search window... */
searchhist(b_us, look_for);
/* must redraw status line... */
mc_wlocate(b_st, 0, 0); /* move back to column 0! */
mc_wprintf(b_st, "%s", hline); /* and show the above-defined hline */
mc_wredraw(b_st, 1); /* again... */
/* highlight any matches */
if (wcslen(look_for) > 1) {
hit = find_next(us, b_us, y, look_for, case_matters);
if (hit == -1) {
mc_wbell();
mc_wflush();
hit = 0;
break;
}
drawhist_look(b_us, hit, 1, look_for, case_matters);
y = hit;
} else {
mc_wbell();
break;
}
mc_wflush();
break;
/*
* fmg 8/22/97
* Take care of the Next Hit key...
* Popup an error window if no previous... why not start a new
* search? How do we know which case-importance they wanted?
*/
case 'n':
case 'N':
/* highlight NEXT match */
if (citemode)
break;
if (wcslen(look_for) > 1) {
hit = find_next(us, b_us, y, look_for, case_matters);
if (hit == -1) {
mc_wbell();
mc_wflush();
hit = 0;
break;
}
drawhist_look(b_us, hit, 1, look_for, case_matters);
y = hit;
} else { /* no search pattern... */
mc_wbell();
werror(_("No previous search!\n Please 's' or 'S' first!"));
}
mc_wflush();
break;
case 'u':
case 'U':
case K_UP:
if (citemode && cite_y) {
cite_y--;
if (cite_ystart != 1000000) {
cite_yend = y + cite_y;
drawcite(b_us, cite_y+1, y, cite_ystart, cite_yend);
drawcite(b_us, cite_y, y, cite_ystart, cite_yend);
}
mc_wlocate(b_us, 0, cite_y);
break;
}
if (y <= 0)
break;
y--;
if (cite_ystart != 1000000)
cite_yend = y + cite_y;
mc_wscroll(b_us, S_DOWN);
/*
* fmg 8/20/97
* This is needed so that the movement in window will HIGHLIGHT
* the lines that have the pattern we wanted... it's just nice.
* This almost beggs for a function :-)
*/
if (citemode) {
inverse = (y+cite_y >= cite_ystart && y+cite_y <= cite_yend);
} else {
tmp_e = mc_getline(b_us, y);
if (wcslen(look_for) > 1) {
/* quick scan for pattern match */
mc_wdrawelm_var(b_us, tmp_e, tmp_line);
inverse = (wcslen(tmp_line)>1 &&
StrStr(tmp_line, look_for, case_matters));
} else
inverse = 0;
}
if (inverse)
mc_wdrawelm_inverse(b_us, 0, mc_getline(b_us, y));
else
mc_wdrawelm(b_us, 0, mc_getline(b_us, y));
if (citemode)
mc_wlocate(b_us, 0, cite_y);
mc_wflush();
break;
case 'd':
case 'D':
case K_DN:
if (citemode && cite_y < b_us->ys-1) {
cite_y++;
if (cite_ystart != 1000000) {
cite_yend = y + cite_y;
drawcite(b_us, cite_y-1, y, cite_ystart, cite_yend);
drawcite(b_us, cite_y, y, cite_ystart, cite_yend);
}
mc_wlocate(b_us, 0, cite_y);
break;
}
if (y >= us->histlines)
break;
y++;
if (cite_ystart != 1000000)
cite_yend = y + cite_y;
mc_wscroll(b_us, S_UP);
/*
* fmg 8/20/97
* This is needed so that the movement in window will HIGHLIGHT
* the lines that have the pattern we wanted... it's just nice.
* This almost beggs for a function :-)
*/
if (citemode) {
inverse = (y+cite_y >= cite_ystart && y+cite_y <= cite_yend);
} else {
tmp_e = mc_getline(b_us, y + b_us->ys - 1);
if (wcslen(look_for) > 1) {
/* quick scan for pattern match */
mc_wdrawelm_var(b_us, tmp_e, tmp_line);
inverse = (wcslen(tmp_line)>1 &&
StrStr(tmp_line, look_for, case_matters));
} else
inverse = 0;
}
if (inverse)
mc_wdrawelm_inverse(b_us, b_us->ys - 1,
mc_getline(b_us, y + b_us->ys - 1));
else
mc_wdrawelm(b_us, b_us->ys - 1,
mc_getline(b_us, y + b_us->ys - 1));
if (citemode)
mc_wlocate(b_us, 0, cite_y);
mc_wflush();
break;
case 'b':
case 'B':
case K_PGUP:
if (y <= 0)
break;
y -= b_us->ys;
if (y < 0)
y = 0;
if (cite_ystart != 1000000)
cite_yend = y + cite_y;
/*
* fmg 8/20/97
* This is needed so that the movement in window will HIGHLIGHT
* the lines that have the pattern we wanted... it's just nice.
* Highlight any matches
*/
if (wcslen(look_for) > 1 && us->histline)
drawhist_look(b_us, y, 1, look_for, case_matters);
else
drawhist(b_us, y, 1);
if (citemode)
mc_wlocate(b_us, 0, cite_y);
break;
case 'f':
case 'F':
case ' ': /* filipg: space bar will go page-down... pager-like */
case K_PGDN:
if (y >= us->histlines)
break;
y += b_us->ys;
if (y > us->histlines)
y=us->histlines;
if (cite_ystart != 1000000)
cite_yend = y + cite_y;
/*
* fmg 8/20/97
* This is needed so that the movement in window will HIGHLIGHT
* the lines that have the pattern we wanted... it's just nice.
* Highlight any matches
*/
if (wcslen(look_for) > 1 && us->histline)
drawhist_look(b_us, y, 1, look_for, case_matters);
else
drawhist(b_us, y, 1);
if (citemode)
mc_wlocate(b_us, 0, cite_y);
break;
case 'C': case 'c': /* start citation mode */
if (citemode ^= 1) {
cite_y = 0;
cite_ystart = 1000000;
cite_yend = -1;
strcpy(hline1, _(" CITATION: ENTER=select start line ESC=exit "));
if (b_st->xs < 127)
hline1[b_st->xs]=0;
hline = hline1;
} else {
hline = hline0;
}
mc_wlocate(b_st, 0, 0);
mc_wprintf(b_st, "%s", hline);
mc_wredraw(b_st, 1);
if (citemode)
mc_wlocate(b_us, 0, cite_y);
break;
case 10: case 13:
if (!citemode) break;
if (cite_ystart == 1000000) {
cite_yend = cite_ystart = y + cite_y;
strcpy(hline1, _(" CITATION: ENTER=select end line ESC=exit "));
if (b_st->xs < 127)
hline1[b_st->xs]=0;
} else {
if (cite_ystart > cite_yend)
break;
drawcite_whole(b_us, y, 1000000, -1);
loop = 0;
break;
}
mc_wlocate(b_st, 0, 0);
mc_wprintf(b_st, "%s", hline);
mc_wredraw(b_st, 1);
mc_wdrawelm_inverse(b_us, cite_y, mc_getline(b_us, cite_ystart));
mc_wlocate(b_us, 0, cite_y);
break;
case K_ESC:
if (!citemode) {
loop = 0;
break;
}
if (cite_ystart == 1000000) {
citemode = 0;
hline = hline0;
} else {
cite_ystart = 1000000;
strcpy(hline1, _(" CITATION: ENTER=select start line ESC=exit "));
}
drawcite_whole(b_us, y, cite_ystart, cite_yend);
mc_wlocate(b_st, 0, 0);
mc_wprintf(b_st, "%s", hline);
mc_wredraw(b_st, 1);
if (citemode)
mc_wlocate(b_us, 0, cite_y);
break;
}
}
/* Cleanup. */
if (citemode)
do_cite(b_us, cite_ystart, cite_yend);
mc_wclose(b_us, y == us->histlines ? 0 : 1);
mc_wclose(b_st, 1);
mc_wlocate(us, us->curx, us->cury);
mc_wflush();
mc_wredraw(us, 1);
}
/*
* Run an external script.
* ask = 1 if first ask for confirmation.
* s = scriptname, l=loginname, p=password.
*/
void runscript(int ask, const char *s, const char *l, const char *p)
{
int status;
int n, i;
int pipefd[2];
char buf[81];
char scr_lines[5];
char cmdline[128];
struct pollfd fds[2];
char *translated_cmdline;
char *ptr;
WIN *w;
int done = 0;
char *msg = _("Same as last");
char *username = _(" A - Username :"******" B - Password :"******" C - Name of script :"),
*question = _("Change which setting? (Return to run, ESC to stop)");
if (ask) {
w = mc_wopen(10, 5, 70, 10, BDOUBLE, stdattr, mfcolor, mbcolor, 0, 0, 1);
mc_wtitle(w, TMID, _("Run a script"));
mc_wputs(w, "\n");
mc_wprintf(w, "%s %s\n", username, scr_user[0] ? msg : "");
mc_wprintf(w, "%s %s\n", password, scr_passwd[0] ? msg : "");
mc_wprintf(w, "%s %s\n", name_of_script, scr_name);
mc_wlocate(w, 4, 5);
mc_wputs(w, question);
mc_wredraw(w, 1);
while (!done) {
mc_wlocate(w, mbslen (question) + 5, 5);
n = wxgetch();
if (islower(n))
n = toupper(n);
switch (n) {
case '\r':
case '\n':
if (scr_name[0] == '\0') {
mc_wbell();
break;
}
mc_wclose(w, 1);
done = 1;
break;
case 27: /* ESC */
mc_wclose(w, 1);
return;
case 'A':
mc_wlocate(w, mbslen (username) + 1, 1);
mc_wclreol(w);
scr_user[0] = 0;
mc_wgets(w, scr_user, 32, 32);
break;
case 'B':
mc_wlocate(w, mbslen (password) + 1, 2);
mc_wclreol(w);
scr_passwd[0] = 0;
mc_wgets(w, scr_passwd, 32, 32);
break;
case 'C':
mc_wlocate(w, mbslen (name_of_script) + 1, 3);
mc_wgets(w, scr_name, 32, 32);
break;
default:
break;
}
}
} else {
strncpy(scr_user, l, sizeof(scr_user));
strncpy(scr_name, s, sizeof(scr_name));
strncpy(scr_passwd, p, sizeof(scr_passwd));
}
sprintf(scr_lines, "%d", (int) lines); /* jl 13.09.97 */
/* Throw away status line if temporary */
if (tempst) {
mc_wclose(st, 1);
tempst = 0;
st = NULL;
}
scriptname(scr_name);
pipe(pipefd);
if (mcd(P_SCRIPTDIR) < 0)
return;
snprintf(cmdline, sizeof(cmdline), "%s %s %s %s",
P_SCRIPTPROG, scr_name, logfname, logfname[0]==0? "": homedir);
switch (udpid = fork()) {
case -1:
werror(_("Out of memory: could not fork()"));
close(pipefd[0]);
close(pipefd[1]);
mcd("");
return;
case 0: /* Child */
dup2(portfd, 0);
dup2(portfd, 1);
dup2(pipefd[1], 2);
close(pipefd[0]);
close(pipefd[1]);
for (n = 1; n < _NSIG; n++)
signal(n, SIG_DFL);
mc_setenv("LOGIN", scr_user);
mc_setenv("PASS", scr_passwd);
mc_setenv("TERMLIN", scr_lines); /* jl 13.09.97 */
translated_cmdline = translate(cmdline);
if (translated_cmdline != NULL) {
fastexec(translated_cmdline);
free(translated_cmdline);
}
exit(1);
default: /* Parent */
break;
}
setcbreak(1); /* Cbreak, no echo */
enab_sig(1, 0); /* But enable SIGINT */
signal(SIGINT, udcatch);
close(pipefd[1]);
/* pipe output from "runscript" program to terminal emulator */
fds[0].fd = pipefd[0]; /* runscript */
fds[0].events = POLLIN;
fds[1].fd = STDIN_FILENO; /* stdin */
fds[1].events = POLLIN;
script_running = 1;
while (script_running && poll(fds, 2, -1) > 0)
for (i = 0; i < 2; i++) {
if (fds[i].revents & (POLLERR | POLLHUP | POLLNVAL))
script_running = 0;
else if ((fds[i].revents & POLLIN)
&& (n = read(fds[i].fd, buf, sizeof(buf)-1)) > 0) {
ptr = buf;
while (n--)
if (i)
vt_send(*ptr++);
else
vt_out(*ptr++);
timer_update();
mc_wflush();
}
}
/* Collect status, and clean up. */
m_wait(&status);
enab_sig(0, 0);
signal(SIGINT, SIG_IGN);
setcbreak(2); /* Raw, no echo */
close(pipefd[0]);
scriptname("");
mcd("");
}
