74 lines
1.7 KiB
C
74 lines
1.7 KiB
C
/*-------------------------------------------------------------------------
|
|
*
|
|
* dynloader.c--
|
|
* This dynamic loader uses Andrew Yu's libdl-1.0 package for Ultrix 4.x.
|
|
* (Note that pg_dlsym and pg_dlclose are actually macros defined in
|
|
* "port-protos.h".)
|
|
*
|
|
* Copyright (c) 1994, Regents of the University of California
|
|
*
|
|
*
|
|
* IDENTIFICATION
|
|
* $Header: /cvsroot/pgsql/src/backend/port/dynloader/ultrix4.c,v 1.4 1999/01/17 03:04:50 tgl Exp $
|
|
*
|
|
*-------------------------------------------------------------------------
|
|
*/
|
|
#include <stdio.h>
|
|
#include <postgres.h>
|
|
#include "dl.h"
|
|
#include <utils/dynamic_loader.h>
|
|
#include "postgres.h"
|
|
#include "fmgr.h"
|
|
#include "port-protos.h"
|
|
#include "utils/elog.h"
|
|
|
|
extern char *pg_pathname;
|
|
|
|
void *
|
|
pg_dlopen(char *filename)
|
|
{
|
|
static int dl_initialized = 0;
|
|
void *handle;
|
|
|
|
/*
|
|
* initializes the dynamic loader with the executable's pathname.
|
|
* (only needs to do this the first time pg_dlopen is called.)
|
|
*/
|
|
if (!dl_initialized)
|
|
{
|
|
if (!dl_init(pg_pathname))
|
|
return NULL;
|
|
|
|
/*
|
|
* if there are undefined symbols, we want dl to search from the
|
|
* following libraries also.
|
|
*/
|
|
dl_setLibraries("/usr/lib/libm_G0.a:/usr/lib/libc_G0.a");
|
|
dl_initialized = 1;
|
|
}
|
|
|
|
/*
|
|
* open the file. We do the symbol resolution right away so that we
|
|
* will know if there are undefined symbols. (This is in fact the same
|
|
* semantics as "ld -A". ie. you cannot have undefined symbols.
|
|
*/
|
|
if ((handle = dl_open(filename, DL_NOW)) == NULL)
|
|
{
|
|
int count;
|
|
char **list = dl_undefinedSymbols(&count);
|
|
|
|
/* list the undefined symbols, if any */
|
|
if (count)
|
|
{
|
|
elog(NOTICE, "dl: Undefined:");
|
|
while (*list)
|
|
{
|
|
elog(NOTICE, " %s", *list);
|
|
list++;
|
|
}
|
|
}
|
|
}
|
|
|
|
return (void *) handle;
|
|
}
|