diogo
/
yap-6.3
Archived
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

weighted graphs SICStus like library 

git-svn-id: https://yap.svn.sf.net/svnroot/yap/trunk@2038 b08c6af1-5177-4d33-ba66-4b1c6b8b522a
This commit is contained in:
vsc 2007-12-05 14:49:59 +00:00
parent 64d62f1e3e
commit aa642a83f9
1 changed files with 42 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

42
library/wgraphs.yap Normal file
View File

@ -0,0 +1,42 @@
/**************************************
SICStus compatible wgraphs.yap
**************************************/
:- module( wgraphs,
[vertices_edges_to_wgraph/3]
).
:- reexport(library(wdgraphs),
[wdgraph_vertices/2 as vertices,
wdgraph_edges/2 as edges,
wdgraph_to_dgraph/2 as wgraph_to_ugraph,
dgraph_to_wdgraph/2 as ugraph_to_wgraph,
wdgraph_add_vertices/3 as add_vertices,
wdgraph_del_vertices/3 as del_vertices,
wdgraph_add_edges/3 as add_edges,
wdgraph_del_edges/3 as del_edges,
wdgraph_transpose/2 as transpose,
wdgraph_neighbors/3 as neighbors,
wdgraph_neighbours/3 as neighbours,
wdgraph_transitive_closure/2 as transitive_closure,
wdgraph_symmetric_closure/2 as symmetric_closure,
wdgraph_top_sort/2 as top_sort,
wdgraph_max_path/5 as max_path,
wdgraph_min_path/5 as min_path,
wdgraph_min_paths/3 as min_paths,
wdgraph_path/3 as path]).
:- reexport(library(wundgraphs),
[wundgraph_min_tree/3 as min_tree]).
:- use_module(library(wdgraphs),
[wdgraph_new/1,
wdgraph_add_vertices_and_edges/4]).
vertices_edges_to_wgraph(Vertices, Edges, Graph) :-
wdgraph_new(G0),
wdgraph_add_vertices_and_edges(G0, Vertices, Edges, Graph).