mirror of https://github.com/postgres/postgres
Marc G. Fournier
28 years ago
parent
903e21b451
commit
56a7d9fac2
@ -1,35 +0,0 @@ |
|||||||
#-------------------------------------------------------------------------
|
|
||||||
#
|
|
||||||
# Makefile--
|
|
||||||
# Makefile for port/BSD44_derived
|
|
||||||
#
|
|
||||||
# IDENTIFICATION
|
|
||||||
# $Header: /cvsroot/pgsql/src/backend/port/BSD44_derived/Attic/Makefile,v 1.2 1996/11/09 06:18:40 momjian Exp $
|
|
||||||
#
|
|
||||||
#-------------------------------------------------------------------------
|
|
||||||
|
|
||||||
SRCDIR = ../../..
|
|
||||||
include ../../../Makefile.global |
|
||||||
|
|
||||||
INCLUDE_OPT = -I../.. \
|
|
||||||
-I../../../include
|
|
||||||
|
|
||||||
CFLAGS+=$(INCLUDE_OPT)
|
|
||||||
|
|
||||||
OBJS = dl.o
|
|
||||||
|
|
||||||
all: SUBSYS.o |
|
||||||
|
|
||||||
SUBSYS.o: $(OBJS) |
|
||||||
$(LD) -r -o SUBSYS.o $(OBJS)
|
|
||||||
|
|
||||||
depend dep: |
|
||||||
$(CC) -MM $(INCLUDE_OPT) *.c >depend
|
|
||||||
|
|
||||||
clean: |
|
||||||
rm -f SUBSYS.o $(OBJS)
|
|
||||||
|
|
||||||
ifeq (depend,$(wildcard depend)) |
|
||||||
include depend |
|
||||||
endif |
|
||||||
|
|
||||||
@ -1,4 +0,0 @@ |
|||||||
The NetBSD port was done by Alistair G. Crooks (agc@uts.amdahl.com). |
|
||||||
|
|
||||||
It was extended to cover Operating Systems derived from the 4.4-lite |
|
||||||
BSD release by Alistair G. Crooks. |
|
||||||
@ -1,107 +0,0 @@ |
|||||||
/*-
|
|
||||||
* Copyright (c) 1990 The Regents of the University of California. |
|
||||||
* All rights reserved. |
|
||||||
* |
|
||||||
* Redistribution and use in source and binary forms, with or without |
|
||||||
* modification, are permitted provided that the following conditions |
|
||||||
* are met: |
|
||||||
* 1. Redistributions of source code must retain the above copyright |
|
||||||
* notice, this list of conditions and the following disclaimer. |
|
||||||
* 2. Redistributions in binary form must reproduce the above copyright |
|
||||||
* notice, this list of conditions and the following disclaimer in the |
|
||||||
* documentation and/or other materials provided with the distribution. |
|
||||||
* 3. All advertising materials mentioning features or use of this software |
|
||||||
* must display the following acknowledgement: |
|
||||||
* This product includes software developed by the University of |
|
||||||
* California, Berkeley and its contributors. |
|
||||||
* 4. Neither the name of the University nor the names of its contributors |
|
||||||
* may be used to endorse or promote products derived from this software |
|
||||||
* without specific prior written permission. |
|
||||||
* |
|
||||||
* THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND |
|
||||||
* ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE |
|
||||||
* IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE |
|
||||||
* ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE |
|
||||||
* FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL |
|
||||||
* DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS |
|
||||||
* OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) |
|
||||||
* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT |
|
||||||
* LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY |
|
||||||
* OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF |
|
||||||
* SUCH DAMAGE. |
|
||||||
*/ |
|
||||||
|
|
||||||
#if defined(LIBC_SCCS) && !defined(lint) |
|
||||||
static char sccsid[] = "@(#)dl.c 5.4 (Berkeley) 2/23/91"; |
|
||||||
|
|
||||||
#endif /* LIBC_SCCS and not lint */ |
|
||||||
|
|
||||||
#include <sys/types.h> |
|
||||||
#include <nlist.h> |
|
||||||
#include <link.h> |
|
||||||
#include <dlfcn.h> |
|
||||||
|
|
||||||
#include <stdio.h> |
|
||||||
#include <stdlib.h> |
|
||||||
|
|
||||||
#include "port-protos.h" |
|
||||||
|
|
||||||
static char error_message[BUFSIZ]; |
|
||||||
|
|
||||||
char * |
|
||||||
BSD44_derived_dlerror(void) |
|
||||||
{ |
|
||||||
static char ret[BUFSIZ]; |
|
||||||
|
|
||||||
strcpy(ret, error_message); |
|
||||||
error_message[0] = 0; |
|
||||||
return ((ret[0] == 0) ? (char *) NULL : ret); |
|
||||||
} |
|
||||||
|
|
||||||
void * |
|
||||||
BSD44_derived_dlopen(const char *file, int num) |
|
||||||
{ |
|
||||||
#ifdef __mips__ |
|
||||||
sprintf(error_message, "dlopen (%s) not supported", file); |
|
||||||
return NULL; |
|
||||||
#else |
|
||||||
void *vp; |
|
||||||
|
|
||||||
if ((vp = dlopen((char *) file, num)) == (void *) NULL) |
|
||||||
{ |
|
||||||
sprintf(error_message, "dlopen (%s) failed", file); |
|
||||||
} |
|
||||||
return (vp); |
|
||||||
#endif |
|
||||||
} |
|
||||||
|
|
||||||
void * |
|
||||||
BSD44_derived_dlsym(void *handle, const char *name) |
|
||||||
{ |
|
||||||
#ifdef __mips__ |
|
||||||
sprintf(error_message, "dlsym (%s) failed", name); |
|
||||||
return NULL; |
|
||||||
#else |
|
||||||
void *vp; |
|
||||||
char buf[BUFSIZ]; |
|
||||||
|
|
||||||
if (*name != '_') |
|
||||||
{ |
|
||||||
sprintf(buf, "_%s", name); |
|
||||||
name = buf; |
|
||||||
} |
|
||||||
if ((vp = dlsym(handle, (char *) name)) == (void *) NULL) |
|
||||||
{ |
|
||||||
sprintf(error_message, "dlsym (%s) failed", name); |
|
||||||
} |
|
||||||
return (vp); |
|
||||||
#endif |
|
||||||
} |
|
||||||
|
|
||||||
void |
|
||||||
BSD44_derived_dlclose(void *handle) |
|
||||||
{ |
|
||||||
#ifndef __mips__ |
|
||||||
dlclose(handle); |
|
||||||
#endif |
|
||||||
} |
|
||||||
@ -1,48 +0,0 @@ |
|||||||
/*-------------------------------------------------------------------------
|
|
||||||
* |
|
||||||
* port-protos.h-- |
|
||||||
* port-specific prototypes for NetBSD 1.0 |
|
||||||
* |
|
||||||
* |
|
||||||
* Copyright (c) 1994, Regents of the University of California |
|
||||||
* |
|
||||||
* $Id: port-protos.h,v 1.8 1997/09/08 02:25:35 momjian Exp $ |
|
||||||
* |
|
||||||
*------------------------------------------------------------------------- |
|
||||||
*/ |
|
||||||
#ifndef PORT_PROTOS_H |
|
||||||
#define PORT_PROTOS_H |
|
||||||
|
|
||||||
#include <sys/types.h> |
|
||||||
#include <nlist.h> |
|
||||||
#include <link.h> |
|
||||||
|
|
||||||
#include "postgres.h" |
|
||||||
|
|
||||||
#include "fmgr.h" /* for func_ptr */ |
|
||||||
#include "utils/dynamic_loader.h" |
|
||||||
|
|
||||||
/* dynloader.c */ |
|
||||||
/*
|
|
||||||
* Dynamic Loader on NetBSD 1.0. |
|
||||||
* |
|
||||||
* this dynamic loader uses the system dynamic loading interface for shared |
|
||||||
* libraries (ie. dlopen/dlsym/dlclose). The user must specify a shared |
|
||||||
* library as the file to be dynamically loaded. |
|
||||||
* |
|
||||||
* agc - I know this is all a bit crufty, but it does work, is fairly |
|
||||||
* portable, and works (the stipulation that the d.l. function must |
|
||||||
* begin with an underscore is fairly tricky, and some versions of |
|
||||||
* NetBSD (like 1.0, and 1.0A pre June 1995) have no dlerror.) |
|
||||||
*/ |
|
||||||
#define pg_dlopen(f) BSD44_derived_dlopen(f, 1) |
|
||||||
#define pg_dlsym BSD44_derived_dlsym |
|
||||||
#define pg_dlclose BSD44_derived_dlclose |
|
||||||
#define pg_dlerror BSD44_derived_dlerror |
|
||||||
|
|
||||||
char *BSD44_derived_dlerror(void); |
|
||||||
void *BSD44_derived_dlopen(const char *filename, int num); |
|
||||||
void *BSD44_derived_dlsym(void *handle, const char *name); |
|
||||||
void BSD44_derived_dlclose(void *handle); |
|
||||||
|
|
||||||
#endif /* PORT_PROTOS_H */ |
|
||||||
@ -1,35 +0,0 @@ |
|||||||
#-------------------------------------------------------------------------
|
|
||||||
#
|
|
||||||
# Makefile--
|
|
||||||
# Makefile for port/aix
|
|
||||||
#
|
|
||||||
# IDENTIFICATION
|
|
||||||
# $Header: /cvsroot/pgsql/src/backend/port/aix/Attic/Makefile,v 1.2 1996/11/09 06:18:48 momjian Exp $
|
|
||||||
#
|
|
||||||
#-------------------------------------------------------------------------
|
|
||||||
|
|
||||||
SRCDIR = ../../..
|
|
||||||
include ../../../Makefile.global |
|
||||||
|
|
||||||
INCLUDE_OPT = -I../.. \
|
|
||||||
-I../../../include
|
|
||||||
|
|
||||||
CFLAGS+=$(INCLUDE_OPT)
|
|
||||||
|
|
||||||
OBJS = dlfcn.o
|
|
||||||
|
|
||||||
all: SUBSYS.o |
|
||||||
|
|
||||||
SUBSYS.o: $(OBJS) |
|
||||||
$(LD) -r -o SUBSYS.o $(OBJS)
|
|
||||||
|
|
||||||
depend dep: |
|
||||||
$(CC) -MM $(INCLUDE_OPT) *.c >depend
|
|
||||||
|
|
||||||
clean: |
|
||||||
rm -f SUBSYS.o $(OBJS)
|
|
||||||
|
|
||||||
ifeq (depend,$(wildcard depend)) |
|
||||||
include depend |
|
||||||
endif |
|
||||||
|
|
||||||
@ -1,167 +0,0 @@ |
|||||||
Copyright (c) 1992,1993,1995, Jens-Uwe Mager, Helios Software GmbH |
|
||||||
Not derived from licensed software. |
|
||||||
|
|
||||||
Permission is granted to freely use, copy, modify, and redistribute |
|
||||||
this software, provided that no attempt is made to gain profit from it, |
|
||||||
the author is not construed to be liable for any results of using the |
|
||||||
software, alterations are clearly marked as such, and this notice is |
|
||||||
not modified. |
|
||||||
|
|
||||||
libdl.a |
|
||||||
------- |
|
||||||
|
|
||||||
This is an emulation library to emulate the SunOS/System V.4 functions |
|
||||||
to access the runtime linker. The functions are emulated by using the |
|
||||||
AIX load() function and by reading the .loader section of the loaded |
|
||||||
module to find the exports. The to be loaded module should be linked as |
|
||||||
follows (if using AIX 3): |
|
||||||
|
|
||||||
cc -o module.so -bM:SRE -bE:module.exp -e _nostart $(OBJS) |
|
||||||
|
|
||||||
For AIX 4: |
|
||||||
|
|
||||||
cc -o module.so -bM:SRE -bE:module.exp -bnoentry $(OBJS) |
|
||||||
|
|
||||||
The module export file contains the symbols to be exported. Because |
|
||||||
this library uses the loader section, the final module.so file can be |
|
||||||
stripped. C++ users should build their shared objects using the script |
|
||||||
makeC++SharedLib (part of the IBM C++ compiler), this will make sure |
|
||||||
that constructors and destructors for static and global objects will be |
|
||||||
called upon loading and unloading the module. |
|
||||||
|
|
||||||
Usage |
|
||||||
----- |
|
||||||
|
|
||||||
void *dlopen(const char *path, int mode); |
|
||||||
|
|
||||||
This routine loads the module pointed to by path and reads its export |
|
||||||
table. If the path does not contain a '/' character, dlopen will search |
|
||||||
for the module using the LIBPATH environment variable. It returns an |
|
||||||
opaque handle to the module or NULL on error. The mode parameter can be |
|
||||||
either RTLD_LAZY (for lazy function binding) or RTLD_NOW for immediate |
|
||||||
function binding. The AIX implementation currently does treat RTLD_NOW |
|
||||||
the same as RTLD_LAZY. The flag RTLD_GLOBAL might be or'ed into the |
|
||||||
mode parameter to allow loaded modules to bind to global variables or |
|
||||||
functions in other loaded modules loaded by dlopen(). If RTLD_GLOBAL is |
|
||||||
not specified, only globals from the main part of the executable or |
|
||||||
shared libraries are used to look for undefined symbols in loaded |
|
||||||
modules. |
|
||||||
|
|
||||||
|
|
||||||
void *dlsym(void *handle, const char *symbol); |
|
||||||
|
|
||||||
This routine searches for the symbol in the module referred to by |
|
||||||
handle and returns its address. If the symbol could not be found, the |
|
||||||
function returns NULL. The return value must be casted to a proper |
|
||||||
function pointer before it can be used. SunOS/System V.4 allow handle |
|
||||||
to be a NULL pointer to refer to the module the call is made from, this |
|
||||||
is not implemented. |
|
||||||
|
|
||||||
int dlclose(void *handle); |
|
||||||
|
|
||||||
This routine unloads the module referred to by the handle and disposes |
|
||||||
of any local storage. this function returns -1 on failure. |
|
||||||
|
|
||||||
char *dlerror(void); |
|
||||||
|
|
||||||
This routine can be used to retrieve a text message describing the most |
|
||||||
recent error that occured on on of the above routines. This function |
|
||||||
returns NULL if there is not error information. |
|
||||||
|
|
||||||
Initialization and termination handlers |
|
||||||
--------------------------------------- |
|
||||||
|
|
||||||
The emulation provides for an initialization and a termination |
|
||||||
handler. The dlfcn.h file contains a structure declaration named |
|
||||||
dl_info with following members: |
|
||||||
|
|
||||||
void (*init)(void); |
|
||||||
void (*fini)(void); |
|
||||||
|
|
||||||
The init function is called upon first referencing the library. The |
|
||||||
fini function is called at dlclose() time or when the process exits. |
|
||||||
The module should declare a variable named dl_info that contains this |
|
||||||
structure which must be exported. These functions correspond to the |
|
||||||
documented _init() and _fini() functions of SunOS 4.x, but these are |
|
||||||
appearently not implemented in SunOS. When using SunOS 5.0, these |
|
||||||
correspond to #pragma init and #pragma fini respectively. At the same |
|
||||||
time any static or global C++ object's constructors or destructors will |
|
||||||
be called. |
|
||||||
|
|
||||||
Jens-Uwe Mager |
|
||||||
|
|
||||||
HELIOS Software GmbH |
|
||||||
Lavesstr. 80 |
|
||||||
30159 Hannover |
|
||||||
Germany |
|
||||||
|
|
||||||
Phone: +49 511 36482-0 |
|
||||||
FAX: +49 511 36482-69 |
|
||||||
AppleLink: helios.de Attn: Jens-Uwe Mager |
|
||||||
Internet: jum@helios.de |
|
||||||
|
|
||||||
Revison History |
|
||||||
--------------- |
|
||||||
|
|
||||||
SCCS/s.dlfcn.h: |
|
||||||
|
|
||||||
D 1.4 95/04/25 09:36:52 jum 4 3 00018/00004/00028 |
|
||||||
MRs: |
|
||||||
COMMENTS: |
|
||||||
added RTLD_GLOBAL, include and C++ guards |
|
||||||
|
|
||||||
D 1.3 92/12/27 20:58:32 jum 3 2 00001/00001/00031 |
|
||||||
MRs: |
|
||||||
COMMENTS: |
|
||||||
we always have prototypes on RS/6000 |
|
||||||
|
|
||||||
D 1.2 92/08/16 17:45:11 jum 2 1 00009/00000/00023 |
|
||||||
MRs: |
|
||||||
COMMENTS: |
|
||||||
added dl_info structure to implement initialize and terminate functions |
|
||||||
|
|
||||||
D 1.1 92/08/02 18:08:45 jum 1 0 00023/00000/00000 |
|
||||||
MRs: |
|
||||||
COMMENTS: |
|
||||||
Erstellungsdatum und -uhrzeit 92/08/02 18:08:45 von jum |
|
||||||
|
|
||||||
SCCS/s.dlfcn.c: |
|
||||||
|
|
||||||
D 1.7 95/08/14 19:08:38 jum 8 6 00026/00004/00502 |
|
||||||
MRs: |
|
||||||
COMMENTS: |
|
||||||
Integrated the fixes from Kirk Benell (kirk@rsinc.com) to allow loading of |
|
||||||
shared objects generated under AIX 4. Fixed bug that symbols with exactly |
|
||||||
8 characters would use garbage characters from the following symbol value. |
|
||||||
|
|
||||||
D 1.6 95/04/25 09:38:03 jum 6 5 00046/00006/00460 |
|
||||||
MRs: |
|
||||||
COMMENTS: |
|
||||||
added handling of C++ static constructors and destructors, added RTLD_GLOBAL to bind against other loaded modules |
|
||||||
|
|
||||||
D 1.5 93/02/14 20:14:17 jum 5 4 00002/00000/00464 |
|
||||||
MRs: |
|
||||||
COMMENTS: |
|
||||||
added path to dlopen error message to make clear where there error occured. |
|
||||||
|
|
||||||
D 1.4 93/01/03 19:13:56 jum 4 3 00061/00005/00403 |
|
||||||
MRs: |
|
||||||
COMMENTS: |
|
||||||
to allow calling symbols in the main module call load with L_NOAUTODEFER and |
|
||||||
do a loadbind later with the main module. |
|
||||||
|
|
||||||
D 1.3 92/12/27 20:59:55 jum 3 2 00066/00008/00342 |
|
||||||
MRs: |
|
||||||
COMMENTS: |
|
||||||
added search by L_GETINFO if module got loaded by LIBPATH |
|
||||||
|
|
||||||
D 1.2 92/08/16 17:45:43 jum 2 1 00074/00006/00276 |
|
||||||
MRs: |
|
||||||
COMMENTS: |
|
||||||
implemented initialize and terminate functions, added reference counting to avoid multiple loads of the same library |
|
||||||
|
|
||||||
D 1.1 92/08/02 18:08:45 jum 1 0 00282/00000/00000 |
|
||||||
MRs: |
|
||||||
COMMENTS: |
|
||||||
Erstellungsdatum und -uhrzeit 92/08/02 18:08:45 von jum |
|
||||||
|
|
||||||
@ -1,603 +0,0 @@ |
|||||||
/*
|
|
||||||
* @(#)dlfcn.c 1.7 revision of 95/08/14 19:08:38 |
|
||||||
* This is an unpublished work copyright (c) 1992 HELIOS Software GmbH |
|
||||||
* 30159 Hannover, Germany |
|
||||||
*/ |
|
||||||
|
|
||||||
#include <stdio.h> |
|
||||||
#include <errno.h> |
|
||||||
#include <string.h> |
|
||||||
#include <stdlib.h> |
|
||||||
#include <sys/types.h> |
|
||||||
#include <sys/ldr.h> |
|
||||||
#include <a.out.h> |
|
||||||
#include <ldfcn.h> |
|
||||||
#include "dlfcn.h" |
|
||||||
#include "c.h" |
|
||||||
|
|
||||||
/*
|
|
||||||
* We simulate dlopen() et al. through a call to load. Because AIX has |
|
||||||
* no call to find an exported symbol we read the loader section of the |
|
||||||
* loaded module and build a list of exported symbols and their virtual |
|
||||||
* address. |
|
||||||
*/ |
|
||||||
|
|
||||||
typedef struct |
|
||||||
{ |
|
||||||
char *name; /* the symbols's name */ |
|
||||||
void *addr; /* its relocated virtual address */ |
|
||||||
} Export, *ExportPtr; |
|
||||||
|
|
||||||
/*
|
|
||||||
* xlC uses the following structure to list its constructors and |
|
||||||
* destructors. This is gleaned from the output of munch. |
|
||||||
*/ |
|
||||||
typedef struct |
|
||||||
{ |
|
||||||
void (*init) (void); /* call static constructors */ |
|
||||||
void (*term) (void); /* call static destructors */ |
|
||||||
} Cdtor, *CdtorPtr; |
|
||||||
|
|
||||||
/*
|
|
||||||
* The void * handle returned from dlopen is actually a ModulePtr. |
|
||||||
*/ |
|
||||||
typedef struct Module |
|
||||||
{ |
|
||||||
struct Module *next; |
|
||||||
char *name; /* module name for refcounting */ |
|
||||||
int refCnt; /* the number of references */ |
|
||||||
void *entry; /* entry point from load */ |
|
||||||
struct dl_info *info; /* optional init/terminate functions */ |
|
||||||
CdtorPtr cdtors; /* optional C++ constructors */ |
|
||||||
int nExports; /* the number of exports found */ |
|
||||||
ExportPtr exports; /* the array of exports */ |
|
||||||
} Module, *ModulePtr; |
|
||||||
|
|
||||||
/*
|
|
||||||
* We keep a list of all loaded modules to be able to call the fini |
|
||||||
* handlers and destructors at atexit() time. |
|
||||||
*/ |
|
||||||
static ModulePtr modList; |
|
||||||
|
|
||||||
/*
|
|
||||||
* The last error from one of the dl* routines is kept in static |
|
||||||
* variables here. Each error is returned only once to the caller. |
|
||||||
*/ |
|
||||||
static char errbuf[BUFSIZ]; |
|
||||||
static int errvalid; |
|
||||||
|
|
||||||
extern char *strdup(const char *); |
|
||||||
static void caterr(char *); |
|
||||||
static int readExports(ModulePtr); |
|
||||||
static void terminate(void); |
|
||||||
static void *findMain(void); |
|
||||||
|
|
||||||
void * |
|
||||||
dlopen(const char *path, int mode) |
|
||||||
{ |
|
||||||
register ModulePtr mp; |
|
||||||
static void *mainModule; |
|
||||||
|
|
||||||
/*
|
|
||||||
* Upon the first call register a terminate handler that will close |
|
||||||
* all libraries. Also get a reference to the main module for use with |
|
||||||
* loadbind. |
|
||||||
*/ |
|
||||||
if (!mainModule) |
|
||||||
{ |
|
||||||
if ((mainModule = findMain()) == NULL) |
|
||||||
return NULL; |
|
||||||
atexit(terminate); |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* Scan the list of modules if we have the module already loaded. |
|
||||||
*/ |
|
||||||
for (mp = modList; mp; mp = mp->next) |
|
||||||
if (strcmp(mp->name, path) == 0) |
|
||||||
{ |
|
||||||
mp->refCnt++; |
|
||||||
return mp; |
|
||||||
} |
|
||||||
if ((mp = (ModulePtr) calloc(1, sizeof(*mp))) == NULL) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "calloc: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
if ((mp->name = strdup(path)) == NULL) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "strdup: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
free(mp); |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* load should be declared load(const char *...). Thus we cast the |
|
||||||
* path to a normal char *. Ugly. |
|
||||||
*/ |
|
||||||
if ((mp->entry = (void *) load((char *) path, L_NOAUTODEFER, NULL)) == NULL) |
|
||||||
{ |
|
||||||
free(mp->name); |
|
||||||
free(mp); |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "dlopen: "); |
|
||||||
strcat(errbuf, path); |
|
||||||
strcat(errbuf, ": "); |
|
||||||
|
|
||||||
/*
|
|
||||||
* If AIX says the file is not executable, the error can be |
|
||||||
* further described by querying the loader about the last error. |
|
||||||
*/ |
|
||||||
if (errno == ENOEXEC) |
|
||||||
{ |
|
||||||
char *tmp[BUFSIZ / sizeof(char *)]; |
|
||||||
|
|
||||||
if (loadquery(L_GETMESSAGES, tmp, sizeof(tmp)) == -1) |
|
||||||
strcpy(errbuf, strerror(errno)); |
|
||||||
else |
|
||||||
{ |
|
||||||
char **p; |
|
||||||
|
|
||||||
for (p = tmp; *p; p++) |
|
||||||
caterr(*p); |
|
||||||
} |
|
||||||
} |
|
||||||
else |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
mp->refCnt = 1; |
|
||||||
mp->next = modList; |
|
||||||
modList = mp; |
|
||||||
if (loadbind(0, mainModule, mp->entry) == -1) |
|
||||||
{ |
|
||||||
dlclose(mp); |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "loadbind: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* If the user wants global binding, loadbind against all other loaded |
|
||||||
* modules. |
|
||||||
*/ |
|
||||||
if (mode & RTLD_GLOBAL) |
|
||||||
{ |
|
||||||
register ModulePtr mp1; |
|
||||||
|
|
||||||
for (mp1 = mp->next; mp1; mp1 = mp1->next) |
|
||||||
if (loadbind(0, mp1->entry, mp->entry) == -1) |
|
||||||
{ |
|
||||||
dlclose(mp); |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "loadbind: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
} |
|
||||||
if (readExports(mp) == -1) |
|
||||||
{ |
|
||||||
dlclose(mp); |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* If there is a dl_info structure, call the init function. |
|
||||||
*/ |
|
||||||
if (mp->info = (struct dl_info *) dlsym(mp, "dl_info")) |
|
||||||
{ |
|
||||||
if (mp->info->init) |
|
||||||
(*mp->info->init) (); |
|
||||||
} |
|
||||||
else |
|
||||||
errvalid = 0; |
|
||||||
|
|
||||||
/*
|
|
||||||
* If the shared object was compiled using xlC we will need to call |
|
||||||
* static constructors (and later on dlclose destructors). |
|
||||||
*/ |
|
||||||
if (mp->cdtors = (CdtorPtr) dlsym(mp, "__cdtors")) |
|
||||||
{ |
|
||||||
while (mp->cdtors->init) |
|
||||||
{ |
|
||||||
(*mp->cdtors->init) (); |
|
||||||
mp->cdtors++; |
|
||||||
} |
|
||||||
} |
|
||||||
else |
|
||||||
errvalid = 0; |
|
||||||
return mp; |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* Attempt to decipher an AIX loader error message and append it |
|
||||||
* to our static error message buffer. |
|
||||||
*/ |
|
||||||
static void |
|
||||||
caterr(char *s) |
|
||||||
{ |
|
||||||
register char *p = s; |
|
||||||
|
|
||||||
while (*p >= '0' && *p <= '9') |
|
||||||
p++; |
|
||||||
switch (atoi(s)) |
|
||||||
{ |
|
||||||
case L_ERROR_TOOMANY: |
|
||||||
strcat(errbuf, "to many errors"); |
|
||||||
break; |
|
||||||
case L_ERROR_NOLIB: |
|
||||||
strcat(errbuf, "can't load library"); |
|
||||||
strcat(errbuf, p); |
|
||||||
break; |
|
||||||
case L_ERROR_UNDEF: |
|
||||||
strcat(errbuf, "can't find symbol"); |
|
||||||
strcat(errbuf, p); |
|
||||||
break; |
|
||||||
case L_ERROR_RLDBAD: |
|
||||||
strcat(errbuf, "bad RLD"); |
|
||||||
strcat(errbuf, p); |
|
||||||
break; |
|
||||||
case L_ERROR_FORMAT: |
|
||||||
strcat(errbuf, "bad exec format in"); |
|
||||||
strcat(errbuf, p); |
|
||||||
break; |
|
||||||
case L_ERROR_ERRNO: |
|
||||||
strcat(errbuf, strerror(atoi(++p))); |
|
||||||
break; |
|
||||||
default: |
|
||||||
strcat(errbuf, s); |
|
||||||
break; |
|
||||||
} |
|
||||||
} |
|
||||||
|
|
||||||
void * |
|
||||||
dlsym(void *handle, const char *symbol) |
|
||||||
{ |
|
||||||
register ModulePtr mp = (ModulePtr) handle; |
|
||||||
register ExportPtr ep; |
|
||||||
register int i; |
|
||||||
|
|
||||||
/*
|
|
||||||
* Could speed up the search, but I assume that one assigns the result |
|
||||||
* to function pointers anyways. |
|
||||||
*/ |
|
||||||
for (ep = mp->exports, i = mp->nExports; i; i--, ep++) |
|
||||||
if (strcmp(ep->name, symbol) == 0) |
|
||||||
return ep->addr; |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "dlsym: undefined symbol "); |
|
||||||
strcat(errbuf, symbol); |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
|
|
||||||
char * |
|
||||||
dlerror(void) |
|
||||||
{ |
|
||||||
if (errvalid) |
|
||||||
{ |
|
||||||
errvalid = 0; |
|
||||||
return errbuf; |
|
||||||
} |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
|
|
||||||
int |
|
||||||
dlclose(void *handle) |
|
||||||
{ |
|
||||||
register ModulePtr mp = (ModulePtr) handle; |
|
||||||
int result; |
|
||||||
register ModulePtr mp1; |
|
||||||
|
|
||||||
if (--mp->refCnt > 0) |
|
||||||
return 0; |
|
||||||
if (mp->info && mp->info->fini) |
|
||||||
(*mp->info->fini) (); |
|
||||||
if (mp->cdtors) |
|
||||||
while (mp->cdtors->term) |
|
||||||
{ |
|
||||||
(*mp->cdtors->term) (); |
|
||||||
mp->cdtors++; |
|
||||||
} |
|
||||||
result = unload(mp->entry); |
|
||||||
if (result == -1) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, strerror(errno)); |
|
||||||
} |
|
||||||
if (mp->exports) |
|
||||||
{ |
|
||||||
register ExportPtr ep; |
|
||||||
register int i; |
|
||||||
|
|
||||||
for (ep = mp->exports, i = mp->nExports; i; i--, ep++) |
|
||||||
if (ep->name) |
|
||||||
free(ep->name); |
|
||||||
free(mp->exports); |
|
||||||
} |
|
||||||
if (mp == modList) |
|
||||||
modList = mp->next; |
|
||||||
else |
|
||||||
{ |
|
||||||
for (mp1 = modList; mp1; mp1 = mp1->next) |
|
||||||
if (mp1->next == mp) |
|
||||||
{ |
|
||||||
mp1->next = mp->next; |
|
||||||
break; |
|
||||||
} |
|
||||||
} |
|
||||||
free(mp->name); |
|
||||||
free(mp); |
|
||||||
return result; |
|
||||||
} |
|
||||||
|
|
||||||
static void |
|
||||||
terminate(void) |
|
||||||
{ |
|
||||||
while (modList) |
|
||||||
dlclose(modList); |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* Build the export table from the XCOFF .loader section. |
|
||||||
*/ |
|
||||||
static int |
|
||||||
readExports(ModulePtr mp) |
|
||||||
{ |
|
||||||
LDFILE *ldp = NULL; |
|
||||||
SCNHDR sh, |
|
||||||
shdata; |
|
||||||
LDHDR *lhp; |
|
||||||
char *ldbuf; |
|
||||||
LDSYM *ls; |
|
||||||
int i; |
|
||||||
ExportPtr ep; |
|
||||||
|
|
||||||
if ((ldp = ldopen(mp->name, ldp)) == NULL) |
|
||||||
{ |
|
||||||
struct ld_info *lp; |
|
||||||
char *buf; |
|
||||||
int size = 4 * 1024; |
|
||||||
|
|
||||||
if (errno != ENOENT) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
return -1; |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* The module might be loaded due to the LIBPATH environment |
|
||||||
* variable. Search for the loaded module using L_GETINFO. |
|
||||||
*/ |
|
||||||
if ((buf = malloc(size)) == NULL) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
return -1; |
|
||||||
} |
|
||||||
while ((i = loadquery(L_GETINFO, buf, size)) == -1 && errno == ENOMEM) |
|
||||||
{ |
|
||||||
free(buf); |
|
||||||
size += 4 * 1024; |
|
||||||
if ((buf = malloc(size)) == NULL) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
return -1; |
|
||||||
} |
|
||||||
} |
|
||||||
if (i == -1) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
free(buf); |
|
||||||
return -1; |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* Traverse the list of loaded modules. The entry point returned |
|
||||||
* by load() does actually point to the data segment origin. |
|
||||||
*/ |
|
||||||
lp = (struct ld_info *) buf; |
|
||||||
while (lp) |
|
||||||
{ |
|
||||||
if (lp->ldinfo_dataorg == mp->entry) |
|
||||||
{ |
|
||||||
ldp = ldopen(lp->ldinfo_filename, ldp); |
|
||||||
break; |
|
||||||
} |
|
||||||
if (lp->ldinfo_next == 0) |
|
||||||
lp = NULL; |
|
||||||
else |
|
||||||
lp = (struct ld_info *) ((char *) lp + lp->ldinfo_next); |
|
||||||
} |
|
||||||
free(buf); |
|
||||||
if (!ldp) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
return -1; |
|
||||||
} |
|
||||||
} |
|
||||||
if (TYPE(ldp) != U802TOCMAGIC) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: bad magic"); |
|
||||||
while (ldclose(ldp) == FAILURE) |
|
||||||
; |
|
||||||
return -1; |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* Get the padding for the data section. This is needed for AIX 4.1 |
|
||||||
* compilers. This is used when building the final function pointer to |
|
||||||
* the exported symbol. |
|
||||||
*/ |
|
||||||
if (ldnshread(ldp, _DATA, &shdata) != SUCCESS) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: cannot read data section header"); |
|
||||||
while (ldclose(ldp) == FAILURE) |
|
||||||
; |
|
||||||
return -1; |
|
||||||
} |
|
||||||
if (ldnshread(ldp, _LOADER, &sh) != SUCCESS) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: cannot read loader section header"); |
|
||||||
while (ldclose(ldp) == FAILURE) |
|
||||||
; |
|
||||||
return -1; |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* We read the complete loader section in one chunk, this makes |
|
||||||
* finding long symbol names residing in the string table easier. |
|
||||||
*/ |
|
||||||
if ((ldbuf = (char *) malloc(sh.s_size)) == NULL) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
while (ldclose(ldp) == FAILURE) |
|
||||||
; |
|
||||||
return -1; |
|
||||||
} |
|
||||||
if (FSEEK(ldp, sh.s_scnptr, BEGINNING) != OKFSEEK) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: cannot seek to loader section"); |
|
||||||
free(ldbuf); |
|
||||||
while (ldclose(ldp) == FAILURE) |
|
||||||
; |
|
||||||
return -1; |
|
||||||
} |
|
||||||
if (FREAD(ldbuf, sh.s_size, 1, ldp) != 1) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: cannot read loader section"); |
|
||||||
free(ldbuf); |
|
||||||
while (ldclose(ldp) == FAILURE) |
|
||||||
; |
|
||||||
return -1; |
|
||||||
} |
|
||||||
lhp = (LDHDR *) ldbuf; |
|
||||||
ls = (LDSYM *) (ldbuf + LDHDRSZ); |
|
||||||
|
|
||||||
/*
|
|
||||||
* Count the number of exports to include in our export table. |
|
||||||
*/ |
|
||||||
for (i = lhp->l_nsyms; i; i--, ls++) |
|
||||||
{ |
|
||||||
if (!LDR_EXPORT(*ls)) |
|
||||||
continue; |
|
||||||
mp->nExports++; |
|
||||||
} |
|
||||||
if ((mp->exports = (ExportPtr) calloc(mp->nExports, sizeof(*mp->exports))) == NULL) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "readExports: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
free(ldbuf); |
|
||||||
while (ldclose(ldp) == FAILURE) |
|
||||||
; |
|
||||||
return -1; |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* Fill in the export table. All entries are relative to the entry |
|
||||||
* point we got from load. |
|
||||||
*/ |
|
||||||
ep = mp->exports; |
|
||||||
ls = (LDSYM *) (ldbuf + LDHDRSZ); |
|
||||||
for (i = lhp->l_nsyms; i; i--, ls++) |
|
||||||
{ |
|
||||||
char *symname; |
|
||||||
char tmpsym[SYMNMLEN + 1]; |
|
||||||
|
|
||||||
if (!LDR_EXPORT(*ls)) |
|
||||||
continue; |
|
||||||
if (ls->l_zeroes == 0) |
|
||||||
symname = ls->l_offset + lhp->l_stoff + ldbuf; |
|
||||||
else |
|
||||||
{ |
|
||||||
|
|
||||||
/*
|
|
||||||
* The l_name member is not zero terminated, we must copy the |
|
||||||
* first SYMNMLEN chars and make sure we have a zero byte at |
|
||||||
* the end. |
|
||||||
*/ |
|
||||||
StrNCpy(tmpsym, ls->l_name, SYMNMLEN+1); |
|
||||||
symname = tmpsym; |
|
||||||
} |
|
||||||
ep->name = strdup(symname); |
|
||||||
ep->addr = (void *) ((unsigned long) mp->entry + |
|
||||||
ls->l_value - shdata.s_vaddr); |
|
||||||
ep++; |
|
||||||
} |
|
||||||
free(ldbuf); |
|
||||||
while (ldclose(ldp) == FAILURE) |
|
||||||
; |
|
||||||
return 0; |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* Find the main modules entry point. This is used as export pointer |
|
||||||
* for loadbind() to be able to resolve references to the main part. |
|
||||||
*/ |
|
||||||
static void * |
|
||||||
findMain(void) |
|
||||||
{ |
|
||||||
struct ld_info *lp; |
|
||||||
char *buf; |
|
||||||
int size = 4 * 1024; |
|
||||||
int i; |
|
||||||
void *ret; |
|
||||||
|
|
||||||
if ((buf = malloc(size)) == NULL) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "findMain: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
while ((i = loadquery(L_GETINFO, buf, size)) == -1 && errno == ENOMEM) |
|
||||||
{ |
|
||||||
free(buf); |
|
||||||
size += 4 * 1024; |
|
||||||
if ((buf = malloc(size)) == NULL) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "findMain: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
} |
|
||||||
if (i == -1) |
|
||||||
{ |
|
||||||
errvalid++; |
|
||||||
strcpy(errbuf, "findMain: "); |
|
||||||
strcat(errbuf, strerror(errno)); |
|
||||||
free(buf); |
|
||||||
return NULL; |
|
||||||
} |
|
||||||
|
|
||||||
/*
|
|
||||||
* The first entry is the main module. The entry point returned by |
|
||||||
* load() does actually point to the data segment origin. |
|
||||||
*/ |
|
||||||
lp = (struct ld_info *) buf; |
|
||||||
ret = lp->ldinfo_dataorg; |
|
||||||
free(buf); |
|
||||||
return ret; |
|
||||||
} |
|
||||||
@ -1,49 +0,0 @@ |
|||||||
/*
|
|
||||||
* @(#)dlfcn.h 1.4 revision of 95/04/25 09:36:52 |
|
||||||
* This is an unpublished work copyright (c) 1992 HELIOS Software GmbH |
|
||||||
* 30159 Hannover, Germany |
|
||||||
*/ |
|
||||||
|
|
||||||
#ifndef __dlfcn_h__ |
|
||||||
#define __dlfcn_h__ |
|
||||||
|
|
||||||
#ifdef __cplusplus |
|
||||||
extern "C" |
|
||||||
{ |
|
||||||
#endif |
|
||||||
|
|
||||||
/*
|
|
||||||
* Mode flags for the dlopen routine. |
|
||||||
*/ |
|
||||||
#define RTLD_LAZY 1 /* lazy function call binding */ |
|
||||||
#define RTLD_NOW 2 /* immediate function call binding */ |
|
||||||
#define RTLD_GLOBAL 0x100 /* allow symbols to be global */ |
|
||||||
|
|
||||||
/*
|
|
||||||
* To be able to intialize, a library may provide a dl_info structure |
|
||||||
* that contains functions to be called to initialize and terminate. |
|
||||||
*/ |
|
||||||
struct dl_info |
|
||||||
{ |
|
||||||
void (*init) (void); |
|
||||||
void (*fini) (void); |
|
||||||
}; |
|
||||||
|
|
||||||
#if __STDC__ || defined(_IBMR2) |
|
||||||
void *dlopen(const char *path, int mode); |
|
||||||
void *dlsym(void *handle, const char *symbol); |
|
||||||
char *dlerror(void); |
|
||||||
int dlclose(void *handle); |
|
||||||
#else |
|
||||||
void *dlopen(); |
|
||||||
void *dlsym(); |
|
||||||
char *dlerror(); |
|
||||||
int dlclose(); |
|
||||||
#endif |
|
||||||
|
|
||||||
#ifdef __cplusplus |
|
||||||
} |
|
||||||
|
|
||||||
#endif |
|
||||||
|
|
||||||
#endif /* __dlfcn_h__ */ |
|
||||||
@ -1,25 +0,0 @@ |
|||||||
/*-------------------------------------------------------------------------
|
|
||||||
* |
|
||||||
* port-protos.h-- |
|
||||||
* port-specific prototypes for AIX |
|
||||||
* |
|
||||||
* |
|
||||||
* Copyright (c) 1994, Regents of the University of California |
|
||||||
* |
|
||||||
* $Id: port-protos.h,v 1.2 1997/09/07 04:45:16 momjian Exp $ |
|
||||||
* |
|
||||||
*------------------------------------------------------------------------- |
|
||||||
*/ |
|
||||||
#ifndef PORT_PROTOS_H |
|
||||||
#define PORT_PROTOS_H |
|
||||||
|
|
||||||
#include "dlfcn.h" /* this is from jum's libdl package */ |
|
||||||
|
|
||||||
/* dynloader.c */ |
|
||||||
|
|
||||||
#define pg_dlopen(f) dlopen(filename, RTLD_LAZY) |
|
||||||
#define pg_dlsym(h,f) dlsym(h, f) |
|
||||||
#define pg_dlclose(h) dlclose(h) |
|
||||||
#define pg_dlerror() dlerror() |
|
||||||
|
|
||||||
#endif /* PORT_PROTOS_H */ |
|
||||||
Loading…
Reference in new issue