#!/usr/local/bin/perl
#  checks the given devices for matches with the corresponding symbol.
#

print "arg = @ARGV";
if ( $# < 0 ) {
   print "Usage: dev_check <devfile=> ...\n";
   exit(1);
}

$status = system( "pre_check @ARGV" );
exit(1) if ($status);

system("netin -D  dev_check.net dev_check");
system("draw_check dev_check");

unlink("dev_check.net", "dev_check.brd", "dev_check.mcm");
exit 0;