--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/src/sysdll.c	Mon Aug 13 10:25:37 2007 +0200
@@ -0,0 +1,215 @@
+/* sysdll.c --- system dependent support for dynamic linked libraries
+   Copyright (C) 1998 Free Software Foundation, Inc.
+   Author:  William Perry <wmperry@aventail.com>
+
+This file is part of XEmacs.
+
+XEmacs is free software; you can redistribute it and/or modify it
+under the terms of the GNU General Public License as published by the
+Free Software Foundation; either version 2, or (at your option) any
+later version.
+
+XEmacs 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 General Public License
+for more details.
+
+You should have received a copy of the GNU General Public License
+along with XEmacs; see the file COPYING.  If not, write to the Free
+Software Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA
+02111-1307, USA.  */
+
+#ifdef HAVE_CONFIG_H
+#include <config.h>
+#endif
+
+#include <stdlib.h>
+#include <assert.h>
+#include <string.h>
+#include <stdio.h>
+#include "sysdll.h"
+
+/* This whole file is conditional upon HAVE_DLL */
+#ifdef HAVE_SHLIB
+
+/* Thankfully, most systems follow the ELFish dlopen() method.
+** HAVE__DLOPEN is lame, but SCO has their dl* functions as _dl*, and
+** unless you include dlfcn.h you don't get the macros to mask them, and
+** autoconf fails to find them.
+**
+** Anybody who wants to use this on SCO needs to have their configure.in
+** look for _dlopen() as well as dlopen()
+*/
+#if defined(HAVE_DLOPEN) || defined(HAVE__DLOPEN)
+#include <dlfcn.h>
+
+#ifndef RTLD_LAZY
+#define RTLD_LAZY 1
+#endif /* RTLD_LAZY isn't defined under FreeBSD - ick */
+
+#ifndef RTLD_GLOBAL
+#define RTLD_GLOBAL 0
+#endif
+
+int dll_init(CONST char *arg) {
+  return(0);
+}
+
+dll_handle dll_open(CONST char *fname) {
+  return((dll_handle)dlopen(fname,RTLD_LAZY|RTLD_GLOBAL));
+}
+
+int dll_close(dll_handle h) {
+  return(dlclose((void *)h));
+}
+
+dll_func dll_function(dll_handle h,CONST char *n) {
+#ifdef DLSYM_NEEDS_UNDERSCORE
+    char buf[1024];
+    *buf = '_';
+    (void)strcpy(buf + 1, n);
+    n = buf;
+#endif
+  return((dll_func)dlsym((void *)h,n));
+}
+
+dll_var dll_variable(dll_handle h,CONST char *n) {
+  return((dll_var)dlsym((void *)h,n));
+}
+
+CONST char *dll_error(dll_handle h) {
+#ifdef HAVE_DLERROR
+  return((CONST char *)dl_error());
+#else
+  return("Shared library error");
+#endif
+}
+
+#elif defined(HAVE_SHL_LOAD)
+/* This is the HP/UX version */
+#include <dl.h>
+int dll_init(CONST char *arg) {
+  return(0);
+}
+
+dll_handle dll_open(CONST char *fname) {
+  return((dll_handle)shl_load(fname,BIND_DEFERRED,0L));
+}
+
+int dll_close(dll_handle h) {
+  return (shl_unload((shl_t)h));
+}
+
+dll_func dll_function(dll_handle h,CONST char *n) {
+  long handle = 0L;
+
+  if (shl_findsym(&(shl_t)h,n,TYPE_PROCEDURE,&handle))
+    return(NULL);
+
+  return((dll_func)handle);
+}
+
+dll_var dll_variable(dll_handle h,CONST char *n) {
+  long handle = 0L;
+
+  if (shl_findsym(&(shl_t)h,n,TYPE_DATA,&handle))
+    return(NULL);
+
+  return((dll_var)handle);
+}
+
+CONST char *dll_error(dll_handle h) {
+  return("Generic shared library error");
+}
+
+#elif defined(HAVE_INIT_DLD)
+#include <dld.h>
+int dll_init(CONST char *arg) {
+  char *real_exe = dld_find_executable(arg);
+  int rc;
+
+  rc = dld_init(real_exe);
+  if (rc) {
+    dld_perror (exe);
+    return(-1);
+  }
+  return(0);
+}
+
+dll_handle dll_open(CONST char *fname) {
+  rc = dld_link(fname);
+  if (rc) {
+    return (NULL);
+  }
+  return((dll_handle)1);
+}
+
+int dll_close(dll_handle h) {
+  /* *sigh* DLD is pretty lame and doesn't return a handle that you can use
+  ** later on to free the file - you have to remember the filename and
+  ** use that as the unlinker.  We should eventually keep a linked list
+  ** of loaded modules and then use the node pointer as the unique id
+  ** for the shared library.  Wheeee.  But not now.
+  */
+  return(1);
+}
+
+DLL_FUNC dll_function(dll_handle h,CONST char *n) {
+  return (dld_get_func(n));
+}
+
+DLL_FUNC dll_variable(dll_handle h,CONST char *n) {
+  return (dld_get_symbol(n));
+}
+#elif defined(_WINDOWS) || defined(WIN32)
+int dll_init(CONST char *arg) {
+  return(0);
+}
+
+dll_handle dll_open(CONST char *fname) {
+  return((dll_handle)LoadLibrary(fname));
+}
+
+int dll_close(dll_handle h) {
+  return(FreeLibrary(h));
+}
+
+dll_func dll_function(dll_handle h,CONST char *n) {
+  return((dll_func)GetProcAddress(h,n));
+}
+
+dll_func dll_variable(dll_handle h,CONST char *n) {
+  return((dll_func)GetProcAddress(h,n));
+}
+
+CONST char *dll_error(dll_handle h) {
+  return("Windows DLL Error");
+}
+#else
+/* Catchall if we don't know about this systems method of dynamic loading */
+int dll_init(CONST char *arg) {
+  return(-1);
+}
+
+dll_handle dll_open(CONST char *fname) {
+  return(NULL);
+}
+
+int dll_close(dll_handle h) {
+  return(0);
+}
+
+dll_func dll_function(dll_handle h,CONST char *n) {
+  return(NULL);
+}
+
+dll_func dll_variable(dll_handle h,CONST char *n) {
+  return(NULL);
+}
+
+CONST char *dll_error(dll_handle h) {
+  return("Shared libraries not implemented on this system.");
+}
+#endif /* System conditionals */
+
+#endif /* HAVE_SHLIB */