60 while((
p!=
NULL)&&(*
p!=
'\0'))
77 Warn(
"Could not find dynamic library: %s%s (path %s)",
81 WarnS(
"See the INSTALL section in the Singular manual for details.");
97 WarnS(
"Could load a procedure from a dynamic library");
100 WarnS(
"See the INSTALL section in the Singular manual for details.");
117#define HAVE_ELF_SYSTEM
121#if (defined(__APPLE__) && defined(__MACH__)) && (!defined(HAVE_ELF_SYSTEM))
122#define HAVE_ELF_SYSTEM
126#if defined(__sun) && defined(__SVR4)
127#define HAVE_ELF_SYSTEM
130#if defined(HAVE_ELF_SYSTEM)
132#define DL_IMPLEMENTED
152 Werror(
"module %s already loaded",filename);
184#if defined(HPUX_9) || defined(HPUX_10)
185#define DL_IMPLEMENTED
188typedef char *((*func_ptr) ());
195 for (
int idx = 0;
shl_get(idx, &
desc) != -1; ++idx)
206 return ((
void *) handle);
243#ifndef DL_IMPLEMENTED
unsigned char * proc[NUM_PROC]
char * feGetResource(const char id, int warn)
int dynl_check_opened(char *filename)
void * dynl_open_binary_warn(const char *binary_name, const char *msg)
void * dynl_sym_warn(void *handle, const char *proc, const char *msg)
STATIC_VAR BOOLEAN warn_handle
const char * dynl_error()
int dynl_close(void *handle)
void * dynl_sym(void *handle, const char *symbol)
STATIC_VAR BOOLEAN warn_proc
void * dynl_open(char *filename)
STATIC_VAR void * kernel_handle
#define DYNL_KERNEL_HANDLE
void Werror(const char *fmt,...)