libguile/dynl-dld.c

   1 /* dynl-dld.c - dynamic linking with dld
   2  *
   3  * Copyright (C) 1990, 1991, 1992, 1993, 1994, 1995 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 "dld.h"
  49
  50 static void listundef SCM_P ((void));
  51
  52 static void
  53 listundefs ()
  54 {
  55     int i;
  56     char **undefs = dld_list_undefined_sym();
  57     puts("   undefs:");
  58     for(i = dld_undefined_sym_count;i--;) {
  59         putc('"', stdout);
  60         fputs(undefs[i], stdout);
  61         puts("\"");
  62     }
  63     free(undefs);
  64 }
  65
  66 static void *
  67 sysdep_dynl_link (fname, subr)
  68      char *fname;
  69      char *subr;
  70 {
  71     int status;
  72
  73     status = dld_link (fname);
  74     if (status)
  75         scm_misc_error (subr, dld_strerror (status), SCM_EOL);
  76     return fname;
  77 }
  78
  79 static void
  80 sysdep_dynl_unlink (handle, subr)
  81      void *handle;
  82      char *subr;
  83 {
  84     int status;
  85
  86     SCM_DEFER_INTS;
  87     status = dld_unlink_by_file ((char *)fname, 1);
  88     SCM_ALLOW_INTS;
  89     if (status)
  90         scm_misc_error (s_dynamic_unlink, dld_strerror (status), SCM_EOL);
  91 }
  92
  93 static void *
  94 sysdep_dynl_func (symb, handle, subr)
  95      char *symb;
  96      void *handle;
  97      char *subr;
  98 {
  99     void *func;
 100
 101     SCM_DEFER_INTS;
 102     func = (void *) dld_get_func (func);
 103     if (func == 0)
 104         scm_misc_error (subr, dld_strerror (dld_errno), SCM_EOL);
 105     if (!dld_function_executable_p (func)) {
 106         listundefs ();
 107         scm_misc_error (subr, "unresolved symbols remain", SCM_EOL);
 108     }
 109     SCM_ALLOW_INTS;
 110     return func;
 111 }
 112
 113 static void
 114 sysdep_dynl_init ()
 115 {
 116 #ifndef RTL
 117     if (!execpath)
 118         execpath = dld_find_executable (SCM_CHARS (SCM_CAR (progargs)));
 119     if (dld_init (SCM_CHARS (SCM_CAR (progargs)))) {
 120         dld_perror("DLD");
 121         return;
 122     }
 123 #endif
 124
 125 #ifdef DLD_DYNCM /* XXX - what's this? */
 126     add_feature("dld:dyncm");
 127 #endif
 128 }