7 use Data::Dump qw(dump);
11 my $file = shift @ARGV;
12 die "Usage: $0 *.pin2io.storable\n" unless $file;
17 $name = 'epm' . $name if $name =~ m/^\d+/;
19 my $pin2io = retrieve($file);
20 warn "# $= ",dump($pin2io);
21 my @pin2io = @{ $$pin2io };
22 warn "# @= ",dump( @pin2io );
27 my @location_assignment,
29 my $pins_in_section = @pin2io / $sections;
30 warn "# sections: $sections with $pins_in_section pins each\n";
32 foreach my $pin ( @pin2io ) {
33 if ( $pin =~ m/IO(\d+)/ ) {
35 push @ports, "$pin: inout std_logic;";
36 my $s = int($nr/$pins_in_section);
37 push @pin_s, "$pin <= s$s;";
38 $stat->{sections}->{ $s }++;
39 push @location_assignment, $nr;
41 push @ports, "-- $pin";
45 $ports[$#ports] =~ s/;$//; # remove last semicolumn
50 use ieee.std_logic_1164.all;
51 use ieee.std_logic_unsigned.all;
55 }, join("\n", @ports), qq {
61 architecture rtl of $name is
63 signal }, join(", ", map { "s$_" } sort keys %{ $stat->{sections} }), qq{ : std_logic;
69 my @vals = ( 0, 1, 'Z' );
71 foreach my $s ( sort keys %{ $stat->{sections} } ) {
73 print qq{s$s <= '$v';\n};
78 print join("\n", @pin_s), qq{
84 open(my $qsf, '>', $name.'.qsf');
85 foreach (@location_assignment) {
86 print $qsf "set_location_assignment PIN_$_ -to IO$_\n";