/usr/lib/swi-prolog/customize/dotxpcerc is in swi-prolog-nox 7.6.4+dfsg-1build1.
This file is owned by root:root, with mode 0o644.
The actual contents of the file can be viewed below.
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 | /* -*- Prolog -*-
Part of SWI-Prolog
Author: Jan Wielemaker
E-mail: J.Wielemaker@vu.nl
WWW: http://www.swi-prolog.org/projects/xpce/
Copying: This file is in the public domain.
*/
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Loaded from .swiplrc (swipl.ini on MS-Windows) for additional
initialisation on XPCE. It should be installed next to
.swiplrc/swipl.ini
Unix: ~/.xpcerc
Windows-NT/2000: %USERPROFILE%/xpce.ini
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
% Make PceEmacs your default editor. Can also be done from the
% Prolog initialisation
%pce_ifhostproperty(prolog(swi),
% (:- ensure_loaded(library('emacs/swi_prolog')))).
% Print object-references as @reference/class, making debugging
% a bit easier.
:- multifile
portray/1.
portray(Obj) :-
object(Obj),
Obj = @Ref, !,
( send(Obj, '_instance_of', var)
-> get(Obj, '_value', Value),
format('@~w(= ~p)', [Ref, Value])
; get(Obj, '_class_name', CN),
format('@~w/~w', [Ref, CN])
).
% Allow for ?- manpce(device<-graphicals).
:- initialization op(100, xfx, <-).
% Handle unbound recursion gracefully.
:- send(@pce, max_goal_depth, 1000).
% Start the manual toplevel as you start the system
% :- manpce.
|