summaryrefslogtreecommitdiffstats
path: root/pin2csf.pl
blob: b4957b1ef60ada95cc08cf7576c416615fb5a00e (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 "\t$signal : LOCATION = Pin_\U${pin}\E;\n";
    }
}