Move more to dynloader subdir

src/backend/port/dynloader/dgux.c

@@ -0,0 +1,101 @@
+/*-------------------------------------------------------------------------
+ *
+ * dynloader.c--
+ *	  Dynamic Loader for Postgres for DG/UX, generated from those for
+ *	  Linux.
+ *
+ * Copyright (c) 1994, Regents of the University of California
+ *
+ *
+ * IDENTIFICATION
+ *	  $Header: /cvsroot/pgsql/src/backend/port/dynloader/dgux.c,v 1.1 1997/12/20 04:48:02 scrappy Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+#include <stdio.h>
+#include <dld.h>
+#include "postgres.h"
+#include "port-protos.h"
+#include "utils/elog.h"
+#include "fmgr.h"
+
+extern char pg_pathname[];
+
+void	   *
+pg_dlopen(char *filename)
+{
+	static int	dl_initialized = 0;
+
+	/*
+	 * 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 (dld_init(dld_find_executable(pg_pathname)))
+		{
+			return NULL;
+		}
+
+		/*
+		 * if there are undefined symbols, we want dl to search from the
+		 * following libraries also.
+		 */
+		dl_initialized = 1;
+	}
+
+	/*
+	 * link the file, then check for undefined symbols!
+	 */
+	if (dld_link(filename))
+	{
+		return NULL;
+	}
+
+	/*
+	 * If undefined symbols: try to link with the C and math libraries!
+	 * This could be smarter, if the dynamic linker was able to handle
+	 * shared libs!
+	 */
+	if (dld_undefined_sym_count > 0)
+	{
+		if (dld_link("/usr/lib/libc.a"))
+		{
+			elog(NOTICE, "dld: Cannot link C library!");
+			return NULL;
+		}
+		if (dld_undefined_sym_count > 0)
+		{
+			if (dld_link("/usr/lib/libm.a"))
+			{
+				elog(NOTICE, "dld: Cannot link math library!");
+				return NULL;
+			}
+			if (dld_undefined_sym_count > 0)
+			{
+				int			count = dld_undefined_sym_count;
+				char	  **list = dld_list_undefined_sym();
+
+				/* list the undefined symbols, if any */
+				elog(NOTICE, "dld: Undefined:");
+				do
+				{
+					elog(NOTICE, "  %s", *list);
+					list++;
+					count--;
+				} while (count > 0);
+
+				dld_unlink_by_file(filename, 1);
+				return NULL;
+			}
+		}
+	}
+
+	return (void *) strdup(filename);
+}
+
+char	   *
+pg_dlerror()
+{
+	return dld_strerror(dld_errno);
+}

src/backend/port/dynloader/dgux.h

@@ -0,0 +1,30 @@
+/*-------------------------------------------------------------------------
+ *
+ * port-protos.h--
+ *	  port-specific prototypes for SunOS 4
+ *
+ *
+ * Copyright (c) 1994, Regents of the University of California
+ *
+ * $Id: dgux.h,v 1.1 1997/12/20 04:48:04 scrappy Exp $
+ *
+ *-------------------------------------------------------------------------
+ */
+#ifndef PORT_PROTOS_H
+#define PORT_PROTOS_H
+
+#include "fmgr.h"				/* for func_ptr */
+#include "utils/dynamic_loader.h"
+#include "dlfcn.h"
+
+/* dynloader.c */
+
+/* #define		pg_dlopen(f)	dlopen(f, 1) */
+#define pg_dlopen(f)	dlopen(f, 2)
+#define pg_dlsym		dlsym
+#define pg_dlclose		dlclose
+#define pg_dlerror		dlerror
+
+/* port.c */
+
+#endif							/* PORT_PROTOS_H */

src/backend/port/dynloader/hpux.c

@@ -0,0 +1,59 @@
+/*-------------------------------------------------------------------------
+ *
+ * dynloader.c--
+ *	  dynamic loader for HP-UX using the shared library mechanism
+ *
+ * Copyright (c) 1994, Regents of the University of California
+ *
+ *
+ * IDENTIFICATION
+ *	  $Header: /cvsroot/pgsql/src/backend/port/dynloader/hpux.c,v 1.1 1997/12/20 04:48:06 scrappy Exp $
+ *
+ *	NOTES
+ *		all functions are defined here -- it's impossible to trace the
+ *		shl_* routines from the bundled HP-UX debugger.
+ *
+ *-------------------------------------------------------------------------
+ */
+/* System includes */
+#include <stdio.h>
+#include <a.out.h>
+#include <dl.h>
+#include "c.h"
+#include "fmgr.h"
+#include "utils/dynamic_loader.h"
+#include "port-protos.h"
+
+void	   *
+pg_dlopen(char *filename)
+{
+	shl_t		handle = shl_load(filename, BIND_DEFERRED, 0);
+
+	return ((void *) handle);
+}
+
+func_ptr
+pg_dlsym(void *handle, char *funcname)
+{
+	func_ptr	f;
+
+	if (shl_findsym((shl_t *) & handle, funcname, TYPE_PROCEDURE, &f) == -1)
+	{
+		f = (func_ptr) NULL;
+	}
+	return (f);
+}
+
+void
+pg_dlclose(void *handle)
+{
+	shl_unload((shl_t) handle);
+}
+
+char	   *
+pg_dlerror()
+{
+	static char errmsg[] = "shl_load failed";
+
+	return errmsg;
+}