samer@2: :- use_module(library(dcgs/dot)).
samer@2: 
samer@2: :- op(600,xfx,=>).
samer@2: 
samer@2: triserver=>plcore.
samer@2: triserver=>reactive.
samer@2: triserver=>plmidi.
samer@2: triserver=>plosc.
samer@4: triserver=>player.
samer@2: triserver=>plrand.
samer@4: triserver=>plsc.
samer@2: triserver=>plml.
samer@2: 
samer@2: plumdrum=>plcore.
samer@2: 
samer@4: plsc=>plcore.
samer@4: plsc=>plosc.
samer@2: 
samer@2: plcrp=>plcore.
samer@2: plcrp=>plrand.
samer@2: 
samer@2: hdplm=>plcore.
samer@2: hdplm=>plrand.
samer@2: hdplm=>plcrp.
samer@2: 
samer@4: player=>plcore.
samer@4: player=>plmidi.
samer@4: player=>plsmf.
samer@2: 
samer@2: reactive=>plcore.
samer@2: 
samer@2: hdpmusic=>hdplm.
samer@2: hdpmusic=>plumbing.
samer@2: hdpmusic=>plcore.
samer@2: hdpmusic=>plrand.
samer@4: hdpmusic=>player.
samer@2: 
samer@2: 
samer@2: plex=>plcore.
samer@2: 
samer@2: poetry=>plcore.
samer@2: poetry=>probdcg.
samer@2: poetry=>randmo.
samer@2: poetry=>plex.
samer@2: poetry=>plrand.
samer@2: 
samer@2: clapping=>plcore.
samer@2: clapping=>plrand.
samer@2: clapping=>musicmo.
samer@2: clapping=>randmo.
samer@2: 
samer@2: musicmo=>plcore.
samer@4: musicmo=>player.
samer@2: musicmo=>tempmo.
samer@2: musicmo=>randmo.
samer@2: 
samer@2: tempmo=>plcore.
samer@2: 
samer@2: randmo=>plcore.
samer@2: randmo=>plrand.
samer@2: 
samer@2: 
samer@2: plumbing=>plcore.
samer@2: 
samer@2: probdcg=>plcore.
samer@2: probdcg=>plrand.
samer@2: probdcg=>rphrase.
samer@2: 
samer@2: rphrase=>plcore.
samer@2: rphrase=>plrand.
samer@2: 
samer@4: % km2 => plcore.
samer@4: % km2 => plumdrum.
samer@4: 
samer@3: gv_graph :- shell('gv -spartan dependencies.eps &').
samer@4: to_pdf :- shell('epstopdf dependencies.eps').
samer@3: 
samer@2: 
samer@2: mk_graph :- mk_graph([]).
samer@2: mk_graph(HideList) :- 
samer@2: 	findall(A=>B,(A=>B,\+member(A,HideList),\+member(B,HideList)),Edges),
samer@4: 	graph2ps(dot,digraph(plibs,[at(edge)=\[arrowhead=at(vee)] | Edges]),'dependencies.eps').
samer@4: