int ACLGal_FuncallLisp(ACLCallbackStruct *s, int *local_args,
int num_local_args)
{
int (*func)() = lisp_call_address(s->funcall_index);
return FixnumToInt((*func)(lisp_value(s->lisp_fn_index),
lisp_value(s->lisp_array_index),
local_args, num_local_args));
}
/* Find string with the given enumerated value, and copy the string into
the (already allocated) LISP vector */
char *enumValNameString (CONST_FORMAT_PTR format, int32 enumVal)
{
char *name;
if (format->formatter.a[0].i > 2 &&
0 <= enumVal && enumVal <= ENUM_MAX_VAL(format)) {
name = format->formatter.a[enumVal+2].f->formatter.name;
BCOPY(name, (char *)Vecdata(SymbolValue(lisp_value(0))), strlen(name));
}
return (char *)SymbolValue(lisp_value(0));
}
char *x_ipcRefNameLisp(X_IPC_REF_PTR ref, int32 length)
{
BCOPY(ref->name, (char *)Vecdata(SymbolValue(lisp_value(0))), length);
return (char *)SymbolValue(lisp_value(0));
}