File: dotxpcerc

package info (click to toggle)
swi-prolog 6.6.6-1~bpo70+1
  • links: PTS, VCS
  • area: main
  • in suites: wheezy-backports
  • size: 82,312 kB
  • sloc: ansic: 322,250; perl: 245,822; sh: 6,651; java: 5,254; makefile: 4,423; cpp: 4,153; ruby: 1,594; yacc: 843; xml: 82; sed: 12; sql: 6
file content (51 lines) | stat: -rw-r--r-- 1,287 bytes parent folder | download | duplicates (2)
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
/*  -*- 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 .plrc (pl.ini on MS-Windows) for additional initialisation on
XPCE.  It should be installed next to .plrc/pl.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.