Ident read_ident(cBuf *buf, Long *buf_pos)
{
Int len;
Char *s;
Ident id;
/* Read the length of the identifier. */
len = read_long(buf, buf_pos);
/* If the length is -1, it's not really an identifier, but a -1 signalling
* a blank variable or method. */
if (len == NOT_AN_IDENT)
return NOT_AN_IDENT;
/* Otherwise, it's an identifier. Read it into temporary storage. */
s = TMALLOC(Char, len + 1);
MEMCPY(s, &(buf->s[*buf_pos]), len);
(*buf_pos) += len;
s[len] = 0;
/* Get the index for the identifier and free the temporary memory. */
id = ident_get(s);
tfree_chars(s);
return id;
}
void init_op_table(void)
{
Int i;
for (i = 0; i < NUM_OPERATORS; i++) {
op_info[i].binding = INV_OBJNUM;
op_info[i].symbol = ident_get(op_info[i].name);
op_table[op_info[i].opcode] = op_info[i];
}
/* Look for first opcode with a lowercase name to find the first
* function. */
for (i = 0; i < NUM_OPERATORS; i++) {
if (islower(*op_info[i].name))
break;
}
first_function = i;
}
/* void catch_signal(int sig, int code, struct sigcontext *scp) { */
void catch_signal(int sig)
{
char *sptr;
cStr *sigstr;
cData arg1;
Bool do_shutdown = NO;
signal(sig, catch_signal);
sptr = sig_name(sig);
sigstr = string_from_chars(sptr, strlen(sptr));
write_err("Caught signal %d: %S", sig, sigstr);
string_discard(sigstr);
/* figure out what to do */
switch (sig) {
#ifdef __UNIX__
case SIGHUP:
atomic = NO;
handle_connection_output();
flush_files();
#endif
#ifndef __MSVC__
case SIGUSR2:
/* let the db do what it wants from here */
break;
case SIGUSR1:
{
cData *d;
cList *l;
/* First cancel all preempted and suspended tasks */
l = vm_list();
for (d = list_first(l); d; d = list_next(l, d)) {
/* boggle */
if (d->type != INTEGER)
continue;
vm_cancel(d->u.val);
}
list_discard(l);
/* now cancel the current task if it is valid */
if (vm_lookup(task_id) != NULL) {
vm_cancel(task_id);
}
/* jump back to the main loop */
longjmp(main_jmp, 1);
break;
}
#endif
case SIGILL:
/* lets panic and hopefully shutdown without frobbing the db */
panic(sig_name(sig));
break;
case SIGTERM:
if (running) {
write_err("*** Attempting normal shutdown ***");
running = NO;
/* jump back to the main loop, ignore any current tasks;
*drip*, *drip*, leaky */
longjmp(main_jmp, 1);
} else {
panic(sig_name(sig));
}
break;
default:
do_shutdown = YES;
break;
}
/* only pass onto the db if we are 'executing' */
if (!running)
return;
/* send a message to the system object */
arg1.type = SYMBOL;
arg1.u.symbol = ident_get(sptr);
vm_task(SYSTEM_OBJNUM, signal_id, 1, &arg1);
if (do_shutdown)
running = NO;
}