aboutsummaryrefslogtreecommitdiffstats
path: root/tests/tools/vcd2txt.pl
blob: 92d3d16527c45a55c6bf73ca6ca831164e3cf7f5 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
#!/usr/bin/perl -w
#
# Note: You might need to install the Verilog::VCD package using CPAN..

use strict;
use Data::Dumper;
use Verilog::VCD qw(parse_vcd list_sigs);

$| = 1;

my $from_time = -1;
my $to_time = -1;

while (1)
{
	if ($ARGV[0] eq '-f') {
		$from_time = +$ARGV[1];
		shift @ARGV;
		shift @ARGV;
		next;
	}
	if ($ARGV[0] eq '-t') {
		$to_time = +$ARGV[1];
		shift @ARGV;
		shift @ARGV;
		next;
	}
	last;
}

if ($#ARGV < 0) {
	print STDERR "\n";
	print STDERR "VCD2TXT - Convert VCD to tab-separated text file\n";
	print STDERR "\n";
	print STDERR "Usage: $0 [-f from_time] [-t to_time] input.vcd [<signal regex> ...]\n";
	print STDERR "\n";
	exit 1;
}

my $vcd = parse_vcd($ARGV[0]);

for my $node (keys $vcd) {
	for my $net (@{$vcd->{$node}->{'nets'}}) {
		my $dump_this = $#ARGV == 0;
		for (my $i = 1; $i <= $#ARGV; $i++) {
			my $regex = $ARGV[$i];
			$dump_this = 1 if ($net->{"hier"} . "." . $net->{"name"}) =~ /$regex/;
		}
		next unless $dump_this;
		my $cached_value = "";
		for my $tv (@{$vcd->{$node}->{'tv'}}) {
			$cached_value = $tv->[1], next if $from_time >= 0 and +$tv->[0] < $from_time;
			next if $to_time >= 0 and +$tv->[0] > $to_time;
			printf "%s\t%s\t%s\t%s\n", $node, $from_time, $net->{"hier"} . "." . $net->{"name"}, $cached_value
					if $cached_value ne "" and $from_time >= 0 and +$tv->[0] > $from_time;
			printf "%s\t%s\t%s\t%s\n", $node, $tv->[0], $net->{"hier"} . "." . $net->{"name"}, $tv->[1];
			$cached_value = "";
		}
	}
}