libguile/dynl-dl.c

   1 /* dynl-dl.c - dynamic linking for dlopen/dlsym
   2  *
   3  * Copyright (C) 1990-1997 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, 675 Mass Ave, Cambridge, MA 02139, USA.
  18  *
  19  * As a special exception, the Free Software Foundation gives permission
  20  * for additional uses of the text contained in its release of GUILE.
  21  *
  22  * The exception is that, if you link the GUILE library with other files
  23  * to produce an executable, this does not by itself cause the
  24  * resulting executable to be covered by the GNU General Public License.
  25  * Your use of that executable is in no way restricted on account of
  26  * linking the GUILE library code into it.
  27  *
  28  * This exception does not however invalidate any other reasons why
  29  * the executable file might be covered by the GNU General Public License.
  30  *
  31  * This exception applies only to the code released by the
  32  * Free Software Foundation under the name GUILE.  If you copy
  33  * code from other Free Software Foundation releases into a copy of
  34  * GUILE, as the General Public License permits, the exception does
  35  * not apply to the code that you add in this way.  To avoid misleading
  36  * anyone as to the status of such modified files, you must delete
  37  * this exception notice from them.
  38  *
  39  * If you write modifications of your own for GUILE, it is your choice
  40  * whether to permit this exception to apply to your modifications.
  41  * If you do not wish that, delete this exception notice.
  42  */
  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      char *fname;
  59      char *subr;
  60 {
  61     void *handle = dlopen (fname, DLOPEN_MODE);
  62     if (NULL == handle)
  63         scm_misc_error (subr, (char *)dlerror (), SCM_EOL);
  64     return handle;
  65 }
  66
  67 static void
  68 sysdep_dynl_unlink (handle, subr)
  69      void *handle;
  70      char *subr;
  71 {
  72     int status;
  73
  74     SCM_DEFER_INTS;
  75     status = dlclose (handle);
  76     SCM_ALLOW_INTS;
  77     if(status)
  78         scm_misc_error (subr, (char *)dlerror (), SCM_EOL);
  79 }
  80
  81 static void *
  82 sysdep_dynl_func (symb, handle, subr)
  83      char *symb;
  84      void *handle;
  85      char *subr;
  86 {
  87     void *fptr;
  88     char *err;
  89
  90     SCM_DEFER_INTS;
  91     fptr = dlsym (handle, symb);
  92     err = (char *)dlerror ();
  93     SCM_ALLOW_INTS;
  94
  95     if (!fptr)
  96         scm_misc_error (subr, err? err : "symbol has NULL address", SCM_EOL);
  97     return fptr;
  98 }
  99
 100 static void
 101 sysdep_dynl_init ()
 102 {
 103 }