Back to index

plt-scheme  4.2.1
dl_stub.c
Go to the documentation of this file.
00001 /*
00002   This is used for static-linking in UNIX when otherwise compiled for
00003    dynamic linking.
00004 */
00005 
00006 #include "scheme.h"
00007 #include <dlfcn.h>
00008 
00009 void *dlopen(const char *filename, int flags)
00010 {
00011   scheme_signal_error("load-extension: can't use with a statically-linked"
00012                     " MrEd");
00013 
00014   return NULL;
00015 }
00016 
00017 char *dlerror()
00018 {
00019   return NULL;
00020 }
00021 
00022 void *dlsym(void *dl, const char *name)
00023 {
00024   return NULL;
00025 }
00026 
00027 int dlclose(void *dl)
00028 {
00029   return -1;
00030 }
00031 
00032 int _DYNAMIC;