summaryrefslogtreecommitdiffstats
path: root/pin2qsf.pl
blob: 7ffbc4ce87e6080bee86b9ac902bc6c29caf47f0 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
#!/usr/bin/perl

while ( defined($line = <STDIN>) ) {
    chomp $line;
    $line =~ s/^\#.*$//;	# Remove comments

    if ( $line =~ /^\s*(\S+)\s+(\S+)/ ) {
	$pin    = $1;
	$signal = $2;
	print "set_location_assignment PIN_\U${pin}\E -to \Q${signal}\E\n";
    }
}