libguile/dynl-dl.c

   1 /* dynl-dl.c - dynamic linking for dlopen/dlsym
   2  *
   3  * Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995, 1996, 1997, 1998 Free Software Foundation, Inc.
   4  *
   5  * This program is free software; you can redistribute it and/or modify
   6  * it under the terms of the GNU General Public License as published by
   7  * the Free Software Foundation; either version 2, or (at your option)
   8  * any later version.
   9  *
  10  * This program is distributed in the hope that it will be useful,
  11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
  12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  13  * GNU General Public License for more details.
  14  *
  15  * You should have received a copy of the GNU General Public License
  16  * along with this software; see the file COPYING.  If not, write to
  17  * the Free Software Foundation, Inc., 59 Temple Place, Suite 330,
  18  * Boston, MA 02111-1307 USA
  19  *
  20  * As a special exception, the Free Software Foundation gives permission
  21  * for additional uses of the text contained in its release of GUILE.
  22  *
  23  * The exception is that, if you link the GUILE library with other files
  24  * to produce an executable, this does not by itself cause the
  25  * resulting executable to be covered by the GNU General Public License.
  26  * Your use of that executable is in no way restricted on account of
  27  * linking the GUILE library code into it.
  28  *
  29  * This exception does not however invalidate any other reasons why
  30  * the executable file might be covered by the GNU General Public License.
  31  *
  32  * This exception applies only to the code released by the
  33  * Free Software Foundation under the name GUILE.  If you copy
  34  * code from other Free Software Foundation releases into a copy of
  35  * GUILE, as the General Public License permits, the exception does
  36  * not apply to the code that you add in this way.  To avoid misleading
  37  * anyone as to the status of such modified files, you must delete
  38  * this exception notice from them.
  39  *
  40  * If you write modifications of your own for GUILE, it is your choice
  41  * whether to permit this exception to apply to your modifications.
  42  * If you do not wish that, delete this exception notice.  */
  43
  44 /* "dynl.c" dynamically link&load object files.
  45    Author: Aubrey Jaffer
  46    Modified for libguile by Marius Vollmer */
  47
  48 #include <dlfcn.h>
  49
  50 #ifdef RTLD_LAZY        /* Solaris 2. */
  51 #  define DLOPEN_MODE   RTLD_LAZY
  52 #else
  53 #  define DLOPEN_MODE   1       /* Thats what it says in the man page. */
  54 #endif
  55
  56 static void *
  57 sysdep_dynl_link (fname, subr)
  58      const char *fname;
  59      const char *subr;
  60 {
  61     void *handle = dlopen (fname, DLOPEN_MODE);
  62     if (NULL == handle)
  63       {
  64         SCM_ALLOW_INTS;
  65         scm_misc_error (subr, (char *)dlerror (), SCM_EOL);
  66       }
  67     return handle;
  68 }
  69
  70 static void
  71 sysdep_dynl_unlink (handle, subr)
  72      void *handle;
  73      const char *subr;
  74 {
  75     if (dlclose (handle))
  76       {
  77         SCM_ALLOW_INTS;
  78         scm_misc_error (subr, (char *)dlerror (), SCM_EOL);
  79       }
  80 }
  81
  82 static void *
  83 sysdep_dynl_func (symb, handle, subr)
  84      const char *symb;
  85      void *handle;
  86      const char *subr;
  87 {
  88     void *fptr;
  89     char *err;
  90 #if defined(USCORE) && !defined(DLSYM_ADDS_USCORE)
  91     char *usymb;
  92 #endif
  93
  94 #if defined(USCORE) && !defined(DLSYM_ADDS_USCORE)
  95     usymb = (char *) malloc (strlen (symb) + 2);
  96     *usymb = '_';
  97     strcpy (usymb + 1, symb);
  98     fptr = dlsym (handle, usymb);
  99     free (usymb);
 100 #else
 101     fptr = dlsym (handle, symb);
 102 #endif
 103
 104     err = (char *)dlerror ();
 105     if (!fptr)
 106       {
 107         SCM_ALLOW_INTS;
 108         scm_misc_error (subr, err? err : "symbol has NULL address", SCM_EOL);
 109       }
 110     return fptr;
 111 }
 112
 113 static void
 114 sysdep_dynl_init ()
 115 {
 116 }