This file is indexed.

/usr/share/Yap/clpbn/graphs.yap is in yap 5.1.3-6.

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
%
% Just output a graph with all the variables.
%

:- module(clpbn2graph, [clpbn2graph/1]).

:- use_module(library('clpbn/utils'), [
	check_for_hidden_vars/3]).

:- use_module(library('clpbn/dists'), [
	get_dist/4]).

:- attribute node/0.

clpbn2graph(Vs) :-
	check_for_hidden_vars(Vs, Vs, NVs),
	clpbn2graph2(NVs).

clpbn2graph2([]).
clpbn2graph2([V|Vs]) :-
	put_atts(V,[node]),
	clpbn2graph2(Vs).

%
% what is actually output
%
attribute_goal(V, node(K,Dom,CPT,TVs,Ev)) :-
	get_atts(V, [node]),
	clpbn:get_atts(V, [key(K),dist(Id,Vs)]),
	get_dist(Id,_,Dom,CPT),
	translate_vars(Vs,TVs),
	( clpbn:get_atts(V, [evidence(Ev)]) -> true ; true).

translate_vars([],[]).
translate_vars([V|Vs],[K|Ks]) :-
	clpbn:get_atts(V, [key(K)]),
	translate_vars(Vs,Ks).