home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / p / plbin.zip / pl / library / dld.pl < prev    next >
Text File  |  1992-05-26  |  557b  |  31 lines
  1. /*  dld.pl,v 1.1.1.1 1992/05/26 11:51:35 jan Exp
  2.  
  3.     Copyright (c) 1990 Jan Wielemaker. All rights reserved.
  4.     jan@swi.psy.uva.nl
  5.  
  6.     Purpose: load dynamic linker
  7. */
  8.  
  9. :- module(dld,
  10.     [ dld_link/1
  11.     , dld_unlink/1
  12.     , dld_call/1      
  13.     , dld_list_undefined/0
  14.     , dld_function/2
  15.     , dld_initialise/1
  16.     ]).
  17.  
  18. load_dld :-
  19.     '$arch'(Mach, _),
  20.     '$home'(SwiHome),
  21.     concat_atom(['-L', SwiHome, '/library/', Mach], LibDir),
  22.     load_foreign(library(dld),
  23.                  dld_start,
  24.              LibDir,
  25.              '-ldld',
  26.              46000).
  27.  
  28. :- load_dld.
  29.  
  30. :- module_transparent dld_call/1.
  31.