c_help()
{
register struct ww *w;
if ((w = openiwin(wwnrow - 3, "Help")) == 0) {
error("Can't open help window: %s.", wwerror());
return;
}
wwprintf(w, "The escape character is %c.\n", escapec);
wwprintf(w, "(# represents one of the digits from 1 to 9.)\n\n");
if (help_print(w, "Short commands", help_shortcmd) >= 0)
(void) help_print(w, "Long commands", help_longcmd);
closeiwin(w);
}
int
help_print(struct ww *w, const char *name, const char **list)
{
wwprintf(w, "%s:\n\n", name);
while (*list)
switch (more(w, 0)) {
case 0:
wwputs(*list++, w);
wwputc('\n', w);
break;
case 1:
wwprintf(w, "%s: (continued)\n\n", name);
break;
case 2:
return -1;
}
return more(w, 1) == 2 ? -1 : 0;
}
int
waitnl1(struct ww *w, const char *prompt)
{
int uc = ISSET(w->ww_wflags, WWW_UNCTRL);
CLR(w->ww_wflags, WWW_UNCTRL);
front(w, 0);
wwprintf(w, "\033Y%c%c\033sA%s\033rA ",
w->ww_w.nr - 1 + ' ', ' ', prompt); /* print on last line */
wwcurtowin(w);
while (wwpeekc() < 0)
wwiomux();
SET(w->ww_wflags, uc);
return wwgetc();
}
debug_str()
{
register struct ww *w;
struct string *s;
if ((w = openiwin(wwnrow - 3, "Allocated Strings")) == 0) {
error("Can't open string window: %s.", wwerror());
return;
}
for (s = str_head.s_forw; s != &str_head; s = s->s_forw) {
if (more(w, 0) == 2)
goto out;
wwprintf(w, "(0x%x)\t\"%s\"\n", s->s_data, s->s_data);
}
waitnl(w);
out:
closeiwin(w);
}
void
verror(const char *fmt, va_list ap)
{
struct context *x;
struct ww *w;
for (x = &cx; x != 0 && x->x_type != X_FILE; x = x->x_link)
;
if (x == 0) {
if (terse)
wwbell();
else {
wwvprintf(cmdwin, fmt, ap);
wwputs(" ", cmdwin);
}
return;
}
if (x->x_noerr)
return;
if ((w = x->x_errwin) == 0) {
char buf[512];
(void) snprintf(buf, sizeof(buf), "Errors from %s",
x->x_filename);
if ((w = x->x_errwin = openiwin(ERRLINES, buf)) == 0) {
wwputs("Can't open error window. ", cmdwin);
x->x_noerr = 1;
return;
}
}
if (more(w, 0) == 2) {
x->x_noerr = 1;
return;
}
wwprintf(w, "line %d: ", x->x_lineno);
wwvprintf(w, fmt, ap);
wwputc('\n', w);
}
