yap-6.3/C/load_dld.c

/*************************************************************************
*									 *
*	 YAP Prolog 							 *
*									 *
*	Yap Prolog was developed at NCCUP - Universidade do Porto	 *
*									 *
* Copyright L.Damas, V.S.Costa and Universidade do Porto 1985-1997	 *
*									 *
**************************************************************************
*									 *
* File:		load_dld.c						 *
* comments:	dld based dynamic loaderr of external routines		 *
*               tested on i486-linuxaout				 *
*************************************************************************/

#if defined(linux) && !defined(__ELF__) && !defined(__LCC__)

#include "Foreign.h"
#include <dld.h>
#include <malloc.h>
#include <stdio.h>

static char YapExecutable[YAP_FILE_MAX];


/*
 *   YAP_FindExecutable(argv[0]) should be called on yap initialization to
 *   locate the executable of Yap
*/
void
Yap_FindExecutable(char *name)
{
  /* use dld_find_executable */
  char *res;
  if(name != NULL && (res=dld_find_executable(name))) {
    strcpy(YapExecutable,res);
  } else {
    strcpy(YapExecutable,"./yap");
  }
}


static void *
Yap_LoadForeignFile(char *file, int flags)
{
  /* not implemented */
  return NULL;
}

int
Yap_CallForeignFile(void *handle, char *f)
{
  return FALSE;
}

int
Yap_CloseForeignFile(void *handle)
{
  return -1;
}

/*
 * LoadForeign(ofiles,libs,proc_name,init_proc) dynamically loads foreign
 * code files and libraries and locates an initialization routine
*/
static int
LoadForeign(StringList ofiles, StringList libs,
	       char *proc_name,	YapInitProc *init_proc)
{
  static int firstTime = 1;
  int error;
  
  if(firstTime) {
    error = dld_init(YapExecutable);
    if(error) {
      strcpy(Yap_ErrorSay,dld_strerror(error));
      return LOAD_FAILLED;
    }
    firstTime=0;
  }

  while (ofiles) {
    if((error=dld_link(AtomName(ofiles->name))) !=0) {
      strcpy(Yap_ErrorSay,dld_strerror(error));
      return LOAD_FAILLED;
    }
    ofiles = ofiles->next;
  }


  /* TODO: handle libs */
  *init_proc = (YapInitProc) dld_get_func(proc_name);
  if(! *init_proc) {
    strcpy(Yap_ErrorSay,"Could not locate initialization routine");
    return LOAD_FAILLED;
  }
  if(!dld_function_executable_p(proc_name)) {
    char **undefs = dld_list_undefined_sym();
    char **p = undefs;
    int k = dld_undefined_sym_count;
    strcpy(Yap_ErrorSay,"Could not resolve all symbols");
    while(k) {
      YP_printf("[undefined symbol %s]\n",*p++);
      --k;
    }
    free(undefs);
    return LOAD_FAILLED;
  }

  return LOAD_SUCCEEDED;
}

Int
Yap_LoadForeign(StringList ofiles, StringList libs,
	       char *proc_name,	YapInitProc *init_proc)
{
  return LoadForeign(ofiles, libs, proc_name, init_proc);
}

void 
Yap_ShutdownLoadForeign(void)
{
}

Int
Yap_ReLoadForeign(StringList ofiles, StringList libs,
	       char *proc_name,	YapInitProc *init_proc)
{
  return(LoadForeign(ofiles,libs, proc_name, init_proc));
}

#endif