#!/usr/bin/perl
# utgraphmagic-graphviz.pl
# 2009-01-26
# Bryan Bishop (kanzure@gmail.com)
#
# input: gxml filename.
# output: DSM.csv
#
# usage: ./utgraphmagic.pl wish_machine.gxml wish_machine.dsm
# $#ARGV is the number of arguments given.

# 2009-04-09
# Copy the dot "dot" files so that a graphviz script can run through them and generate visualizations of the 50 most different.

print "UT Graph Magic 9000\n\n";

#if ($#ARGV != 1) {
#	print "usage: ./utgraphmagic.pl wish_machine.gxml wish_machine.gxml.dot\n\ninput: .gxml\noutput: .dot\n\n";
#	exit;
#}

`./ConsoleApplication1.exe $ARGV[0]`;
`cp output.dot $ARGV[0].dot`;
#print "./DSM.pl output.dot $ARGV[1]\n";

print "$ARGV[0].dot has been generated in the local directory.\n";