Subversion Repositories scct

#!/usr/bin/perl
# $Id: mkch.pl 2 2015-06-15 13:52:02Z fkluge $
# Create channel declarations
 
use strict;
use warnings;
 
 
my ($nChannels) = @ARGV;
 
if (not defined $nChannels) {
    die "Need number of channels to create!\n";
}
 
if (!($nChannels =~ /^\d+$/)) {
    die "Script needs a positive integer\n";
}
 
print "   // Channel definitions were created with $0\n";
 
my @channel = <DATA>;
 
for (my $i = 0; $i < $nChannels; $i++) {
    print "\n   // Channel $i\n";
    my $N = $i;
    my $TN = $i * 2;
    my $TNPO = $TN + 1;
    foreach my $line (@channel) {
	my $out = $line;
	$out =~ s/(\$\w+(?:::\w+)*)/"defined $1 ? $1 : ''"/gee;
	print $out;
    }
}
 
 
__DATA__
   scct_channel channel$N(
		    .clk(clk),
		    .rst(rst),
		    .counter(counter),
                    .counter_changed(ctr_counter_changed),
		    .icoc_select_i(ch_icoc_select_i[$N]),
		    .icoc_select_i_wen(ch_icoc_select_i_wen),
		    .icoc_action_i(ch_icoc_action_i[$TNPO:$TN]),
		    .icoc_action_i_wen(ch_icoc_action_i_wen),
		    .i_cc_reg(ch_i_cc_reg[$N]),
		    .i_cc_reg_wen(ch_i_cc_reg_wen[$N]),
		    .irq_enable_i(ch_irq_enable_i[$N]),
		    .irq_enable_i_wen(ch_irq_enable_i_wen),
		    .irq_status_i(ch_irq_status_i[$N]),
		    .irq_status_i_wen(ch_irq_status_i_wen),
		    .force_oc_i(ch_force_oc_i[$N]),
		    .force_oc_i_wen(ch_force_oc_i_wen),
		    .icoc_select_o(ch_icoc_select_o[$N]),
		    .icoc_action_o(ch_icoc_action_o[$TNPO:$TN]),
		    .cc_reg_o(ch_cc_reg_o[$N]),
		    .irq_enable_o(ch_irq_enable_o[$N]),
		    .irq_status_o(ch_irq_status_o[$N]),
		    .pin_i(pins_i[$N]),
		    .pin_o(pins_o[$N])
		    );