#!/usr/bin/perl
# Bryan Bishop (kanzure@gmail.com) http://heybryan.org/
# repo2gxml-dim.pl - add dimensions from a .repo file to a .gxml file.
# ./repo2gxml-dim.pl input.repo input.gxml output.gxml

print "\$#ARGV is: $#ARGV\n";
$numArgs = $#ARGV+1;
if ($numArgs <= 1) {
	print "\n\nproper usage (you passed $numArgs arguments)\n\n";
	print "./repo2gxml-dim.pl input.repo input.gxml output.gxml\n\n";
	print "NOTE that this works only with Graph Synth 2.0 input files.\n\n";
	exit;
}

`./repo-extract-dimensions.pl $ARGV[0] $ARGV[0].fennfile.po`;
`./gxml-add-dimensions.pl $ARGV[1] $ARGV[0].fennfile.po $ARGV[2]`;