static long parserr(B *b)
{
P *p = pdup(b->bof, USTR "parserr");
P *q = pdup(p, USTR "parserr");
long nerrs = 0;
if (b->scratch && b->name[0] == '*') {
/* "* Build Log *", "* Grep Log *" */
b->changed = 0;
}
freeall();
if (errbuf != b) {
if (errp != NULL) {
prm(errp);
errp = NULL;
}
errbuf = b;
}
do {
unsigned char *s;
pset(q, p);
p_goto_eol(p);
s = brvs(q, (int) (p->byte - q->byte));
if (s) {
nerrs += parseit(b->o.charmap, s, q->line, (b->parseone ? b->parseone : parseone));
vsrm(s);
}
} while (pgetc(p) != NO_MORE_DATA);
prm(p);
prm(q);
return nerrs;
}
int ujump(BW *bw)
{
int rtn = -1;
P *p = pdup(bw->cursor, USTR "ujump");
P *q = pdup(p, USTR "ujump");
unsigned char *s;
p_goto_bol(p);
p_goto_eol(q);
s = brvs(p, (int) (q->byte - p->byte));
prm(p);
prm(q);
if (s) {
unsigned char *name = NULL;
long line = -1;
if (bw->b->parseone)
bw->b->parseone(bw->b->o.charmap,s,&name,&line);
else
parseone(bw->b->o.charmap,s,&name,&line);
if (name && line != -1) {
ERROR *p = srcherr(name, line);
if (p != NULL) {
errptr = p;
setline(errbuf, errptr->src);
name = p->file;
line = p->line;
}
uprevvw((BASE *)bw);
rtn = jump_to_file_line(maint->curwin->object, name, line, NULL /* errptr->msg */);
vsrm(name);
}
vsrm(s);
}
return rtn;
}
static int rtnpw(BW *bw)
{
W *w = bw->parent;
PW *pw = (PW *) bw->object;
unsigned char *s;
W *win;
int *notify;
int (*pfunc) ();
void *object;
long byte;
/* Extract entered text from buffer */
p_goto_eol(bw->cursor);
byte = bw->cursor->byte;
p_goto_bol(bw->cursor);
s = brvs(bw->cursor, (int) (byte - bw->cursor->byte));
/* Save text into history buffer */
if (pw->hist) {
if (bw->b->changed) {
append_history(pw->hist, sv(s));
} else {
promote_history(pw->hist, bw->cursor->line);
}
}
/* Do ~ expansion and set new current directory */
if (pw->file_prompt&2) {
set_current_dir(s,1);
}
if (pw->file_prompt) {
s = canonical(s);
}
win = w->win;
pfunc = pw->pfunc;
object = pw->object;
bwrm(bw);
joe_free(pw->prompt);
joe_free(pw);
w->object = NULL;
notify = w->notify;
w->notify = 0;
wabort(w);
dostaupd = 1;
/* Call callback function */
if (pfunc) {
return pfunc(win->object, s, object, notify);
} else {
return -1;
}
}
