/*
* syserr is exactly like say, except that if the error occured while
* you were loading a script, it tells you where it happened.
*/
static void vsyserr (int server, const char *format, va_list args)
{
char * str;
int l, old_from_server = from_server;
int i_set_from_server = 0;
if (!window_display || !format)
return;
*putbuf = 0;
if ((str = get_string_var(BANNER_VAR)))
{
if (get_int_var(BANNER_EXPAND_VAR))
{
char *foo;
foo = expand_alias(str, empty_string);
strlcpy(putbuf, foo, sizeof putbuf);
new_free(&foo);
}
else
strlcpy(putbuf, str, sizeof putbuf);
strlcat(putbuf, " INFO -- ", sizeof putbuf);
}
vsnprintf(putbuf + strlen(putbuf),
sizeof(putbuf) - strlen(putbuf) - 1,
format, args);
if (is_server_valid(server))
{
old_from_server = from_server;
from_server = server;
i_set_from_server = 1;
}
l = message_from(NULL, LEVEL_SYSERR);
if (do_hook(YELL_LIST, "%s", putbuf))
put_echo(putbuf);
pop_message_from(l);
if (i_set_from_server)
from_server = old_from_server;
}
/*
* ExecuteTimers: checks to see if any currently pending timers have
* gone off, and if so, execute them, delete them, etc, setting the
* current_exec_timer, so that we can't remove the timer while its
* still executing.
*
* changed the behavior: timers will not hook while we are waiting.
*/
void ExecuteTimers (void)
{
Timeval right_now;
Timer * current, *next;
int old_from_server = from_server;
get_time(&right_now);
while (PendingTimers && time_diff(right_now, PendingTimers->time) < 0)
{
int old_refnum;
old_refnum = current_window->refnum;
current = PendingTimers;
unlink_timer(current);
/* Reschedule the timer if necessary */
if (current->events < 0 || (current->events != 1))
{
next = clone_timer(current);
if (next->events != -1)
next->events--;
next->time = time_add(next->time, next->interval);
schedule_timer(next);
}
if (current->domain == SERVER_TIMER)
{
if (!is_server_valid(current->domref))
{
if (current->cancelable)
goto advance;
/* Otherwise, pretend you were a "GENERAL" type */
}
else
{
from_server = current->domref;
make_window_current_by_refnum(
get_winref_by_servref(from_server));
}
}
else if (current->domain == WINDOW_TIMER)
{
if (!get_window_by_refnum(current->domref))
{
if (current->cancelable)
goto advance;
/* Otherwise, pretend you were a "GENERAL" type */
}
else
{
make_window_current_by_refnum(current->domref);
from_server = current_window->server;
}
}
else
{
/* General timers focus on the current window. */
if (current_window)
{
if (current_window->server != from_server)
from_server = current_window->server;
}
else
{
if (from_server != NOSERV)
make_window_current_by_refnum(
get_winref_by_servref(from_server));
}
}
/*
* If a callback function was registered, then
* we use it. If no callback function was registered,
* then we call the lambda function.
*/
get_time(&right_now);
now = right_now;
if (current->callback)
(*current->callback)(current->callback_data);
else
call_lambda_command("TIMER", current->command,
current->subargs);
from_server = old_from_server;
make_window_current_by_refnum(old_refnum);
advance:
delete_timer(current);
}
}
