#!/usr/bin/perl
# utgraphmagic.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.

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

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

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

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