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
|
/* $Id: xpcerc,v 1.1.1.1 1994/06/27 13:14:24 jan Exp $
Part of XPCE
Designed and implemented by Anjo Anjewierden and Jan Wielemaker
E-mail: jan@swi.psy.uva.nl
Copyright (C) 1992 University of Amsterdam. All rights reserved.
*/
% Remove the comment if you use the PceEmacs editor. It will
% it will put hooks in SWI-Prolog that allow you to:
%
% ?- ed(Predicate [/Arity]). Edit a predicate
% ?- edit(File). Edit file (adds .pl if necessary).
%
% It also passes SWI-Prolog compilation errors to PceEmacs.
%:- ensure_loaded(library('emacs/swi_prolog')).
% print/1 PCE objects as @reference/class.
portray(Obj) :-
object(Obj),
Obj = @Ref, !,
get(Obj, '_class_name', CN),
format('@~w/~w', [Ref, CN]).
% Remove the comment if you want the C-stack to be dumped on a
% PCE crash. This is currently only supported on SPARC.
%:- send(@pce, print_c_stack, @on).
% Trap the tracer if a message is sent for which no behaviour
% is defined. This allows for inspecting the Prolog and XPCE
% stacks.
:- send(error(no_behaviour), kind, error).
% This one is to allow ?- manpce(graphical <-size).
:- op(100, xfx, <-).
|
