7 use Data::Dump qw(dump);
11 my $pin2io = retrieve('/dev/shm/pin2io.storable');
12 warn "# $= ",dump($pin2io);
13 my @pin2io = @{ $$pin2io };
14 warn "# @= ",dump( @pin2io );
19 my @location_assignment,
21 my $pins_in_section = @pin2io / $sections;
22 warn "# sections: $sections with $pins_in_section pins each\n";
24 foreach my $pin ( @pin2io ) {
25 if ( $pin =~ m/IO(\d+)/ ) {
27 push @ports, "$pin: inout std_logic;";
28 my $s = int($nr/$pins_in_section);
29 push @pin_s, "$pin <= s$s;";
30 $stat->{sections}->{ $s }++;
31 push @location_assignment, $nr;
33 push @ports, "-- $pin";
37 $ports[$#ports] =~ s/;$//; # remove last semicolumn
42 use ieee.std_logic_1164.all;
43 use ieee.std_logic_unsigned.all;
47 }, join("\n", @ports), qq {
53 architecture rtl of epm3128 is
55 signal }, join(", ", map { "s$_" } sort keys %{ $stat->{sections} }), qq{ : std_logic;
61 my @vals = ( 0, 1, 'Z' );
63 foreach my $s ( sort keys %{ $stat->{sections} } ) {
65 print qq{s$s <= '$v';\n};
70 print join("\n", @pin_s), qq{
76 open(my $qsf, '>', 't.qsf');
77 foreach (@location_assignment) {
78 print $qsf "set_location_assignment PIN_$_ -to IO$_\n";