view dependencies.pl @ 9:2c96b13ee9f0 tip

Added incoming make target.

:- use_module(library(dcgs/dot)).

:- op(600,xfx,=>).

triserver=>plcore.
triserver=>reactive.
triserver=>plmidi.
triserver=>plosc.
triserver=>player.
triserver=>plrand.
triserver=>plsc.
triserver=>plml.

plumdrum=>plcore.

plsc=>plcore.
plsc=>plosc.

plcrp=>plcore.
plcrp=>plrand.

hdplm=>plcore.
hdplm=>plrand.
hdplm=>plcrp.

player=>plcore.
player=>plmidi.
player=>plsmf.

reactive=>plcore.

hdpmusic=>hdplm.
hdpmusic=>plumbing.
hdpmusic=>plcore.
hdpmusic=>plrand.
hdpmusic=>player.


plex=>plcore.

poetry=>plcore.
poetry=>probdcg.
poetry=>randmo.
poetry=>plex.
poetry=>plrand.

clapping=>plcore.
clapping=>plrand.
clapping=>musicmo.
clapping=>randmo.

musicmo=>plcore.
musicmo=>player.
musicmo=>tempmo.
musicmo=>randmo.

tempmo=>plcore.

randmo=>plcore.
randmo=>plrand.


plumbing=>plcore.

probdcg=>plcore.
probdcg=>plrand.
probdcg=>rphrase.

rphrase=>plcore.
rphrase=>plrand.

% km2 => plcore.
% km2 => plumdrum.

gv_graph :- shell('gv -spartan dependencies.eps &').
to_pdf :- shell('epstopdf dependencies.eps').


mk_graph :- mk_graph([]).
mk_graph(HideList) :- 
	findall(A=>B,(A=>B,\+member(A,HideList),\+member(B,HideList)),Edges),
	graph2ps(dot,digraph(plibs,[at(edge)=\[arrowhead=at(vee)] | Edges]),'dependencies.eps').