Changeset 5a8b9c in git

Timestamp:

Mar 8, 2001, 2:07:10 PM (22 years ago)

Author:

Hans Schönemann <hannes@…>

Branches:

(u'spielwiese', '0d6b7fcd9813a1ca1ed4220cfa2b104b97a0a003')

Children:

a145f3572908ce4817ce7651527f578307494b1f

Parents:

457d8d6b8765ca2fc446fb19f1402006dffcebaa

Message:

*hannes: SunOS-5


git-svn-id: file:///usr/local/Singular/svn/trunk@5314 2c84dea3-7e68-4137-9b89-c4e89433aadc

File:

• Singular/mod_raw.cc (modified) (2 diffs)

Singular/mod_raw.cc

@@ -2 +2 @@
 *  Computer Algebra System SINGULAR     *
 ****************************************/
-/* $Id: mod_raw.cc,v 1.14 2001-02-15 13:54:08 levandov Exp $ */
+/* $Id: mod_raw.cc,v 1.15 2001-03-08 13:06:54 Singular Exp $ */
 /*
  * ABSTRACT: machine depend code for dynamic modules
@@ -279 +279 @@
 
 /*****************************************************************************
- * SECTION SunOS-4/5                                                         *
- *****************************************************************************/
-#if defined(SunOS_4) || defined(SunOS_5)
-/* #    include <> */
-
-void *dynl_open(char *filename)
-{
-  return(NULL);
-}
-
-void *dynl_sym(void *handle, char *symbol)
-{
-  return(NULL);
-}
-
-int dynl_close (void *handle)
-{
-  return(0);
-}
-
-const char *dynl_error()
-{
-  static char errmsg[] = "support for dynamic loading not implemented";
-
-  return errmsg;
-}
-#endif /* SunOS_4 or SunOS_5 */
+ * SECTION SunOS-4                                                         *
+ *****************************************************************************/
+#if defined(SunOS_4)
+/* #    include <> */
+
+void *dynl_open(char *filename)
+{
+  return(NULL);
+}
+
+void *dynl_sym(void *handle, char *symbol)
+{
+  return(NULL);
+}
+
+int dynl_close (void *handle)
+{
+  return(0);
+}
+
+const char *dynl_error()
+{
+  static char errmsg[] = "support for dynamic loading not implemented";
+
+  return errmsg;
+}
+#endif /* SunOS_4 */
+ 
+/*****************************************************************************
+ * SECTION SunOs-5
+ *****************************************************************************/
+#if defined(SunOS_5)
+#include <dlfcn.h>
+
+static void* kernel_handle = NULL;
+void *dynl_open(
+  char *filename    /* I: filename to load */
+  )
+{
+  return(dlopen(filename, RTLD_NOW|RTLD_GLOBAL));
+}
+
+void *dynl_sym(void *handle, char *symbol)
+{
+  if (handle == DYNL_KERNEL_HANDLE)
+  {
+    if (kernel_handle == NULL)
+      kernel_handle = dynl_open(NULL);
+    handle = kernel_handle;
+  }
+  return(dlsym(handle, symbol));
+}
+
+int dynl_close (void *handle)
+{
+  return(dlclose (handle));
+}
+
+const char *dynl_error()
+{
+  return(dlerror());
+}
+#endif /* SunOS_5 */
 
 /*****************************************************************************