File: dld.pl

package info (click to toggle)
swi-prolog 3.3.0beta9-5
  • links: PTS
  • area: main
  • in suites: potato
  • size: 4,600 kB
  • ctags: 6,554
  • sloc: ansic: 50,797; perl: 12,880; sh: 1,419; makefile: 524; awk: 14
file content (30 lines) | stat: -rw-r--r-- 564 bytes parent folder | download | duplicates (4) 
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
 
/*  $Id: dld.pl,v 1.1.1.1 1992/05/26 11:51:35 jan Exp $

    Copyright (c) 1990 Jan Wielemaker. All rights reserved.
    jan@swi.psy.uva.nl

    Purpose: load dynamic linker
*/

:- module(dld,
	[ dld_link/1
	, dld_unlink/1
	, dld_call/1	  
	, dld_list_undefined/0
	, dld_function/2
	, dld_initialise/1
	]).

load_dld :-
	'$arch'(Mach, _),
	'$home'(SwiHome),
	concat_atom(['-L', SwiHome, '/library/', Mach], LibDir),
	load_foreign(library(dld),
	             dld_start,
		     LibDir,
		     '-ldld',
		     46000).

:- load_dld.

:- module_transparent dld_call/1.