|
samer@7
|
1 #!/usr/local/bin/swipl
|
|
samer@7
|
2
|
|
samer@7
|
3 :- initialization cp_server.
|
|
samer@7
|
4
|
|
samer@7
|
5 /* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
|
|
samer@7
|
6 This file provides a skeleton startup file. It can be localized by running
|
|
samer@7
|
7
|
|
samer@7
|
8 % ./configure (Unix)
|
|
samer@7
|
9 % Double-clicking win-config.exe (Windows)
|
|
samer@7
|
10
|
|
samer@7
|
11 After that, the system may be customized by copying or linking
|
|
samer@7
|
12 customization files from config-available to config-enabled. See
|
|
samer@7
|
13 config-enabled/README.txt for details.
|
|
samer@7
|
14
|
|
samer@7
|
15 To run the system, do one of the following:
|
|
samer@7
|
16
|
|
samer@7
|
17 * Running for development
|
|
samer@7
|
18 Run ./run.pl (Unix) or open run.pl by double clicking it (Windows)
|
|
samer@7
|
19
|
|
samer@7
|
20 * Running as Unix daemon (service)
|
|
samer@7
|
21 See daemon.pl
|
|
samer@7
|
22 - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
|
|
samer@7
|
23
|
|
samer@7
|
24 % Setup search path for cliopatria. We add both a relative and absolute
|
|
samer@7
|
25 % path. The absolute path allow us to start in any directory, while the
|
|
samer@7
|
26 % relative one ensures that the system remains working when installed on
|
|
samer@7
|
27 % a device that may be mounted on a different location.
|
|
samer@7
|
28
|
|
samer@7
|
29 add_relative_search_path(Alias, Abs) :-
|
|
samer@7
|
30 is_absolute_file_name(Abs), !,
|
|
samer@7
|
31 prolog_load_context(file, Here),
|
|
samer@7
|
32 relative_file_name(Abs, Here, Rel),
|
|
samer@7
|
33 assertz(user:file_search_path(Alias, Rel)).
|
|
samer@7
|
34 add_relative_search_path(Alias, Rel) :-
|
|
samer@7
|
35 assertz(user:file_search_path(Alias, Rel)).
|
|
samer@7
|
36
|
|
samer@7
|
37 file_search_path(cliopatria, '/home/dml/src/github/ClioPatria').
|
|
samer@7
|
38 :- add_relative_search_path(cliopatria, '/home/dml/src/github/ClioPatria').
|
|
samer@7
|
39
|
|
samer@7
|
40 % Make loading files silent. Comment if you want verbose loading.
|
|
samer@7
|
41
|
|
samer@33
|
42 %:- current_prolog_flag(verbose, Verbose),
|
|
samer@33
|
43 % asserta(saved_verbose(Verbose)),
|
|
samer@33
|
44 % set_prolog_flag(verbose, silent).
|
|
samer@7
|
45
|
|
samer@7
|
46
|
|
samer@7
|
47 /*******************************
|
|
samer@7
|
48 * LOAD CODE *
|
|
samer@7
|
49 *******************************/
|
|
samer@7
|
50
|
|
samer@7
|
51 % Use the ClioPatria help system. May be commented to disable online
|
|
samer@7
|
52 % help on the source-code.
|
|
samer@7
|
53
|
|
samer@7
|
54 :- use_module(cliopatria('applications/help/load')).
|
|
samer@7
|
55
|
|
samer@7
|
56 % Load ClioPatria itself. Better keep this line.
|
|
samer@7
|
57
|
|
samer@7
|
58 :- use_module(cliopatria(cliopatria)).
|
|
samer@7
|
59
|
|
samer@7
|
60 % Get back normal verbosity of the toplevel.
|
|
samer@7
|
61
|
|
samer@7
|
62 :- ( retract(saved_verbose(Verbose))
|
|
samer@7
|
63 -> set_prolog_flag(verbose, Verbose)
|
|
samer@7
|
64 ; true
|
|
samer@7
|
65 ).
|
|
samer@7
|
66
|
|
samer@42
|
67 :- debug(db).
|
|
samer@7
|
68
|
|
samer@42
|
69
|
