Foreign.h

Go to the documentation of this file.

/*************************************************************************
 *                                   *
 *   YAP Prolog                              *
 *                                   *
 *  Yap Prolog was developed at NCCUP - Universidade do Porto    *
 *                                   *
 * Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-97    *
 *                                   *
 **************************************************************************
 *                                   *
 * File:        Foreign.h *
 * comments:    header file for dynamic loading routines         *
 *************************************************************************/
 
#define NO_DYN 1
 
#ifndef FOREIGN_H
#define FOREIGN_H
 
#include "Yap.h"
#include "YapHeap.h"
 
#ifdef _AIX
#undef NO_DYN
#endif /* __AIX */
 
#ifdef HAVE_DLOPEN
#define LOAD_DL 1
#ifdef NO_DYN
#undef NO_DYN
#endif
#endif /* LOAD_DL */
 
#if defined(sparc) || defined(__sparc)
#undef NO_DYN
#if (!defined(__svr4__) && !defined(__SVR4))
#define A_OUT 1
#else
#ifdef SIMICS
#define NO_DYN 1
#else
#define LOAD_DL 1
#endif
#endif
#endif
 
#if defined(_WIN32)
#ifdef NO_DYN
#undef NO_DYN
#define LOAD_DLL 1
#endif
#if LOAD_DL
#undef LOAD_DL
#endif
#endif
 
#ifdef __hpux
#ifdef NO_DYN
#undef NO_DYN
#endif
#define LOAD_SHL 1
#endif
 
#ifdef HAVE_NSLINKMODULE
#ifdef NO_DYN
#undef NO_DYN
#endif
#if !HAVE_DLOPEN
#define LOAD_DYLD 1
#endif
#endif /* LOAD_DYLD */
 
#define LOAD_SUCCEEDED 0
#define LOAD_FAILLED -1
 
typedef struct StringListItem {
  Atom name;
  void *handle;
  struct StringListItem *next;
} StringListItem, *StringList;
 
typedef struct ForeignLoadItem {
  StringList objs;
  StringList libs;
  Atom f;
  Term module;
  struct ForeignLoadItem *next;
} ForeignObj;
 
typedef void (*YapInitProc)(void);
 
void *Yap_LoadForeignFile(char *, int);
int Yap_CallForeignFile(void *, char *);
int Yap_CloseForeignFile(void *);
Int Yap_LoadForeign(StringList, StringList, char *, YapInitProc *);
Int Yap_ReLoadForeign(StringList, StringList, char *, YapInitProc *);
void Yap_ReOpenLoadForeign(void);
void Yap_ShutdownLoadForeign(void);
 
#define EAGER_LOADING 1
#define GLOBAL_LOADING 2
 
#endif