/usr/lib/swi-prolog/dotfiles/dotxpcerc is in swi-prolog-nox 5.10.4-3ubuntu1.
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 53 54 55 | /* $Id$ -*- Prolog -*-
Part of SWI-Prolog
Author: Jan Wielemaker
E-mail: jan@swi.psy.uva.nl
WWW: http://www.swi.psy.uva.nl/projects/SWI-Prolog/
Copying: GPL-2. See the file COPYING or http://www.gnu.org
Copyright (C) 1990-2001 SWI, University of Amsterdam. All rights reserved.
*/
/* - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - -
Loaded from .plrc (pl.ini on MS-Windows) for additional initialisation on
XPCE. It should be installed in one of the following places:
Unix: ~/.xpcerc
Windows-NT/2000: %USERPROFILE%/xpce.ini
Windows-95/98/ME: C:\Program Files\pl\xpce.ini
(or whereever you installed SWI-Prolog)
- - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - - */
% 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.
|