From ccbd6aea5b66018a02cf5b72be0fac8da4e3a533 Mon Sep 17 00:00:00 2001
From: Vitor Santos Costa <vsc@dcc.fc.up.pt>
Date: Sat, 1 Nov 2008 11:48:53 +0000
Subject: [PATCH] add new interface function to obtain key for a distribution

---
 CLPBN/clpbn/dists.yap | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/CLPBN/clpbn/dists.yap b/CLPBN/clpbn/dists.yap
index 00e9c17e4..7ac1e1c07 100644
--- a/CLPBN/clpbn/dists.yap
+++ b/CLPBN/clpbn/dists.yap
@@ -15,6 +15,7 @@
 	   get_dist_params/2,
 	   get_dist_domain_size/2,
 	   get_dist_tparams/2,
+	   get_dist_key/2,
 	   get_evidence_position/3,
 	   get_evidence_from_position/3,
 	   dist_to_term/2,
@@ -205,6 +206,9 @@ get_dist_domain_size(Id, DSize) :-
 get_dist_domain(Id, Domain) :-
 	recorded(clpbn_dist_db, db(Id, _, _, _, Domain, _, _), _).
 
+get_dist_key(Id, Key) :-
+	recorded(clpbn_dist_db, db(Id, Key, _, _, _, _, _), _).
+
 get_dist_nparams(Id, NParms) :-
 	recorded(clpbn_dist_db, db(Id, _, _, _, _, NParms, _), _).