/Users/mourrain/Devel/mmx/basix/src/dlink.cpp

Go to the documentation of this file.

/******************************************************************************
* MODULE     : dlink.cpp
* DESCRIPTION: Dynamic linking of external libraries
* COPYRIGHT  : (C) 2007  Joris van der Hoeven
*******************************************************************************
* This software falls under the GNU general public license and comes WITHOUT
* ANY WARRANTY WHATSOEVER. See the file $TEXMACS_PATH/LICENSE for more details.
* If you don't have this file, write to the Free Software Foundation, Inc.,
* 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
******************************************************************************/

#include <ltdl.h>
#include <basix/system.hpp>
#include <basix/table.hpp>

namespace mmx {

string
dl_suffix () {
#ifdef __APPLE__ // also to be used for BSD system
  return "dylib";
#else
  return "so";
#endif
}

string
dl_option () {
#ifdef __APPLE__ // also to be used for BSD system
  return " -dynamiclib";
#else
  return " -shared";
#endif
}

static string
dl_find (const string& name) {
  string lib;
  string pdir = prefix_dir () * "/lib";
  lib= path_name ("$LTDL_LIBRARY_PATH:$LD_LIBRARY_PATH:$DYLD_LIBRARY_PATH:"
                  * pdir, "libmmx" * name * ".la");
  if (lib != "") return lib;
  lib= path_name ("$LTDL_LIBRARY_PATH:$LD_LIBRARY_PATH:$MMX_LOAD_PATH:"
                  * pdir, "libmmx" * name * ".so");
  if (lib != "") return lib;
  lib= path_name ("$LTDL_LIBRARY_PATH:$DYLD_LIBRARY_PATH:$MMX_LOAD_PATH:"
                  * pdir, "libmmx" * name * ".dylib");
  if (lib != "") return lib;
  lib= path_name ("$LD_LIBRARY_PATH:$MMX_LOAD_PATH:"
                  * pdir, "libmmx" * name * ".dll");
  if (lib != "") return lib;
  return "";
}

bool
dl_exists (const string& name) {
#ifdef BASIX_ENABLE_EMBEDDED
  (void) name;
  return true;
#else
  return dl_find (name) != "";
#endif
}

void (*embedded_link) (const string& name)= NULL;

void
dl_link (const string& name, const string& init) {
#ifdef BASIX_ENABLE_EMBEDDED
  if (embedded_link != NULL)
    embedded_link (name);
#else
  static table<bool,string> done (false);
  if (contains (done, name)) return;

  //mmout << "Linking " << name << "\n";
  string lib= dl_find (name);
  if (lib == "") ERROR ("library " * name * " not in library path");
  if (lt_dlinit () != 0) ERROR ("lt_dlinit failed for " * name);

  //mmout << "Opening " << lib << "\n";
  char* _lib = as_charp (lib);
  lt_dlhandle handle= lt_dlopen (_lib);
  free_charp (_lib);
  if (handle == NULL) {
    //mmerr << lt_dlerror () << lf; 
    throw mmx::error_message (string (lt_dlerror ()));
  }

  //mmout << "Searching " << init << "\n";
  char* _init= as_charp (init);
  lt_ptr ptr = lt_dlsym (handle, _init);
  free_charp (_init);
  if (ptr == NULL) {
    //mmerr << lt_dlerror () << lf;
    throw mmx::error_message (string (lt_dlerror ()));
  }

  //mmout << "Initializing " << name << "\n";
  void (**define_glue) (void)= (void (**) (void)) ptr;
  (*define_glue) ();

  done[name]= true;
#endif
}

void
dl_link (const string& name) {
  dl_link (name, "define_" * name);
}

void
include (const string& name) {
  generic r= eval (gen ("include", as<generic> (name)));
  if (is<exception> (r)) throw as<exception> (r);
}

} // namespace mmx