mirror of
https://github.com/gnustep/libs-base.git
synced 2025-04-22 08:26:27 +00:00
2b9ed0e196
git-svn-id: svn+ssh://svn.gna.org/svn/gnustep/libs/base/trunk@21481 72102866-910b-0410-8b05-ffd578937521
107 lines
2.9 KiB
C
107 lines
2.9 KiB
C
/*
|
|
hpux-load - Definitions and translations for dynamic loading with HP-UX
|
|
|
|
Copyright (C) 1995, Free Software Foundation
|
|
|
|
This program is free software; you can redistribute it and/or modify
|
|
it under the terms of the GNU Library General Public License as published by
|
|
the Free Software Foundation; either version 2 of the License, or (at
|
|
your option) any later version. This program is distributed in the
|
|
hope that it will be useful, but WITHOUT ANY WARRANTY; without even
|
|
the implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
|
|
PURPOSE. See the GNU Library General Public License for more details.
|
|
|
|
You should have received a copy of the GNU Library General Public License
|
|
along with this program; if not, write to the Free Software
|
|
Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
|
|
*/
|
|
|
|
#ifndef __hpux_load_h_INCLUDE
|
|
#define __hpux_load_h_INCLUDE
|
|
|
|
#include <dl.h>
|
|
|
|
/* This is the GNU name for the CTOR list */
|
|
#define CTOR_LIST "__CTOR_LIST__"
|
|
|
|
/* link flags */
|
|
#define LINK_FLAGS (BIND_IMMEDIATE | BIND_VERBOSE)
|
|
|
|
/* Types defined appropriately for the dynamic linker */
|
|
typedef shl_t dl_handle_t;
|
|
typedef void* dl_symbol_t;
|
|
|
|
/* Do any initialization necessary. Return 0 on success (or
|
|
if no initialization needed.
|
|
*/
|
|
static int
|
|
__objc_dynamic_init(const char* exec_path)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
/* Link in the module given by the name 'module'. Return a handle which can
|
|
be used to get information about the loded code.
|
|
*/
|
|
static dl_handle_t
|
|
__objc_dynamic_link(const char* module, int mode, const char* debug_file)
|
|
{
|
|
return (dl_handle_t)shl_load(module, LINK_FLAGS, 0L);
|
|
}
|
|
|
|
/* Return the address of a symbol given by the name 'symbol' from the module
|
|
* associated with 'handle'
|
|
* This function is not always used, so we mark it as unused to avoid warnings.
|
|
*/
|
|
static dl_symbol_t
|
|
__objc_dynamic_find_symbol(dl_handle_t handle, const char* symbol)
|
|
__attribute__((unused));
|
|
static dl_symbol_t
|
|
__objc_dynamic_find_symbol(dl_handle_t handle, const char* symbol)
|
|
{
|
|
int ok;
|
|
void *value;
|
|
ok = shl_findsym(&handle, symbol, TYPE_UNDEFINED, value);
|
|
if (ok != 0)
|
|
value = 0;
|
|
return value;
|
|
}
|
|
|
|
/* remove the code from memory associated with the module 'handle' */
|
|
static int
|
|
__objc_dynamic_unlink(dl_handle_t handle)
|
|
{
|
|
return shl_unload(handle);
|
|
}
|
|
|
|
/* Print an error message (prefaced by 'error_string') relevant to the
|
|
last error encountered
|
|
*/
|
|
static void
|
|
__objc_dynamic_error(FILE *error_stream, const char *error_string)
|
|
{
|
|
fprintf(error_stream, "%s\n", error_string);
|
|
}
|
|
|
|
/* Debugging: define these if they are available */
|
|
static int
|
|
__objc_dynamic_undefined_symbol_count(void)
|
|
{
|
|
return 0;
|
|
}
|
|
|
|
static char**
|
|
__objc_dynamic_list_undefined_symbols(void)
|
|
{
|
|
return NULL;
|
|
}
|
|
|
|
// TODO: search for an hp-ux equivalent of dladdr() */
|
|
static char *
|
|
__objc_dynamic_get_symbol_path(dl_handle_t handle, dl_symbol_t symbol)
|
|
{
|
|
return NULL;
|
|
}
|
|
|
|
#endif /* __hpux_load_h_INCLUDE */
|