setup.pl

:- module(cp_setup,
	  [ setup/0
	  ]).
:- prolog_load_context(directory, Dir),
   directory_file_path(Dir, lib, LibDir),
   asserta(user:file_search_path(library, LibDir)).
:- load_files(library(setup), [silent(true)]).

:- multifile
	user:file_search_path/2.
:- dynamic
	user:file_search_path/2.

:- prolog_load_context(directory, Dir),
   asserta(user:file_search_path(cliopatria, Dir)).

:- initialization
	set_prolog_flag(verbose, normal),
	setup.

%%	setup
%
%	Setup ClioPatria. This installs files   *.in from the ClioPatria
%	after localization and creates config-enabled.

setup :-
	options(Options),
	setup(Options).

setup(Options) :-
	cliopatria_dir(ClioDir),
	install_dir(Dir),
	(   option(help(true), Options)
	->  true
	;   setup_scripts(ClioDir, Dir)
	),
	directory_file_path(ClioDir, 'lib/APPCONF.txt.in', ReadmeIn),
	directory_file_path(ClioDir, 'config-available', ConfigAvail),
	directory_file_path(Dir,     'config-enabled', ConfigEnabled),
	setup_default_config(ConfigEnabled, ConfigAvail,
			     [ readme(ReadmeIn)
			     | Options
			     ]),
	setup_goodbye.

cliopatria_dir(Dir) :-
	absolute_file_name(cliopatria(.),
			   Dir,
			   [ file_type(directory),
			     access(read)
			   ]).

install_dir(Dir) :-
	current_prolog_flag(windows, true), !,
	working_directory(CWD, CWD),
	(   get(@(display), win_directory,
		'Create ClioPatria project in', CWD, Dir)
	->  true
	;   halt(1)
	).
install_dir(DIR) :-
	working_directory(DIR, DIR).


setup:substitutions([ 'SWIPL'=PL,		% Prolog executable (for #!...)
		      'CLIOPATRIA'=ClioDir,	% ClioPatria directory
		      'CWD'=CWD,		% This directory
		      'PARENTDIR'=Parent,	% Parent of CWD
		      'HASHBANG'=HashBang,	% #! (or not)
		      'LOADOPTIONS'=LoadOptions % -s (or not)
		    ]) :-
	cliopatria_dir(ClioDir),
	working_directory(CWD, CWD),
	file_directory_name(CWD, Parent),
	setup_prolog_executable(PL),
	hashbang(HashBang),
	load_options(LoadOptions).

hashbang('%!') :- current_prolog_flag(windows, true), !.
hashbang('#!').

load_options('') :- current_prolog_flag(os_argv, _), !.
load_options('-s').


%%	options(-Options) is det.
%
%	Options is a list of  (long)   commandline  options. This uses a
%	simple generic conversion  between   command-line  argument  and
%	option value, defined as follows:
%
%	  | --without-X  | without(X)  |
%	  | --with-X     | with(X)     |
%	  | --Name=Value | Name(Value) |
%	  | --Name       | Name(true)  |

options(Options) :-
	current_prolog_flag(argv, Argv),
	(   append(_, [--|AV], Argv)
	->  true
	;   AV = Argv
	),
	maplist(cmd_option, AV, Options).

cmd_option(Text, Option) :-
	atom_concat('--without-', Module, Text), !,
	Option = without(Module).
cmd_option(Text, Option) :-
	atom_concat('--with-', Module, Text), !,
	Option = with(Module).
cmd_option(Text, Option) :-
	atom_concat(--, Rest, Text), !,
	(   sub_atom(Rest, B, _, A, =)
	->  sub_atom(Rest, 0, B, _, Name),
	    sub_atom(Rest, _, A, 0, OptVal),
	    canonical_value(OptVal, Value),
	    Option =.. [Name,Value]
	;   Option =.. [Rest,true]
	).
cmd_option(Text, Text).

canonical_value(Text, Number) :-
	catch(atom_number(Text, Number), _, true), !.
canonical_value(Text, Text).