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
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
|
/* $Id: setup.pl,v 1.1 2000/04/27 14:45:43 jan Exp $
Part of SWI-Prolog SGML/XML parser
Author: Jan Wielemaker
E-mail: jan@swi.psy.uva.nl
WWW: http://www.swi.psy.uva.nl/projects/SWI-Prolog/
Copying: LGPL-2. See the file COPYING or http://www.gnu.org
Copyright (C) 1990-2000 SWI, University of Amsterdam. All rights reserved.
*/
lib(rdf).
lib(rdf_parser).
lib(rdf_triple).
lib(rewrite).
lib(uri).
install :-
install_library.
install_library :-
forall(lib(Base), install_lib(Base)),
lib_dest(Dest),
make_library_index(Dest).
install_lib(Base) :-
lib_dest(Lib),
absolute_file_name(Base,
[ extensions([pl]),
access(read)
],
Src),
progress(cp(Src, Lib)).
lib_dest(Lib) :-
current_prolog_flag(home, PlHome),
concat_atom([PlHome, library], /, Lib).
% cp(From, To)
%
% Copy a file to a destination (file or directory).
cp(Src, Dir) :-
exists_directory(Dir), !,
file_base_name(Src, Base),
concat_atom([Dir, Base], /, Dest),
cp(Src, Dest).
cp(Src, Dest) :-
open(Src, read, In),
open(Dest, write, Out),
copy_stream_data(In, Out),
close(Out),
close(In).
progress(Goal) :-
format('~p ... ', [Goal]),
flush_output,
( catch(Goal, E, (print_message(error, E), fail))
-> format('ok~n', [])
; format('FAILED~n', [])
).
/*******************************
* ACTIVATE *
*******************************/
:- ( install
-> format('~N~nInstallation complete~n~n', [])
; format('~N~nINSTALLATION FAILED~n~n', [])
),
format('Press any key to continue ...', []), flush_output,
get_single_char(_),
nl,
halt.
|
