mirror of https://github.com/YosysHQ/yosys.git
Added vcd2txt.pl and txt2tikztiming.py (tests/tools/...)
This commit is contained in:
Clifford Wolf
parent
23a3b488a0
commit
772330608a
|
|
@ -0,0 +1,109 @@
|
|||
#!/usr/bin/python
|
||||
|
||||
from __future__ import division
|
||||
from __future__ import print_function
|
||||
|
||||
import argparse
|
||||
import fileinput
|
||||
import sys
|
||||
|
||||
parser = argparse.ArgumentParser(description='Convert vcd2txt output to tikz-timing line.')
|
||||
parser.add_argument('filename', metavar='FILE', help='input txt file')
|
||||
parser.add_argument('signame', metavar='SIG', help='Signal name')
|
||||
parser.add_argument('-s', metavar='scale', default=1.0, type=float, help='Scale all time spans with this factor')
|
||||
parser.add_argument('-l', action='store_true', help='Logic signal (high/low)')
|
||||
parser.add_argument('-b', action='store_true', help='Display binary value')
|
||||
parser.add_argument('-x', action='store_true', help='Display hex value')
|
||||
parser.add_argument('-d', action='store_true', help='Display decimal value')
|
||||
args = parser.parse_args()
|
||||
|
||||
start_time = None
|
||||
stop_time = None
|
||||
time_val = { }
|
||||
|
||||
def value_to_logic(value):
|
||||
found_x = False
|
||||
for char in value:
|
||||
if char == '1':
|
||||
return "H"
|
||||
if char == 'x':
|
||||
found_x = True
|
||||
return "U" if found_x else "L"
|
||||
|
||||
def value_to_binary(value):
|
||||
return "D{%s}" % value
|
||||
|
||||
def value_to_hex(value):
|
||||
hex_string = ""
|
||||
found_def = False
|
||||
while len(value) % 4 != 0:
|
||||
value = "0" + value
|
||||
while len(value) != 0:
|
||||
bin_digits = value[0:4]
|
||||
hex_digit = 0
|
||||
value = value[4:]
|
||||
for b in bin_digits:
|
||||
if b == '0':
|
||||
hex_digit = hex_digit * 2
|
||||
elif b == '1':
|
||||
hex_digit = hex_digit * 2 + 1
|
||||
else:
|
||||
hex_digit += 100
|
||||
if hex_digit > 15:
|
||||
hex_string += "x"
|
||||
else:
|
||||
found_def = True
|
||||
hex_string += "0123456789abcdef"[hex_digit]
|
||||
if not found_def:
|
||||
return "U";
|
||||
return "D{%s}" % hex_string
|
||||
|
||||
def value_to_decimal(value):
|
||||
val = 0
|
||||
found_def = False
|
||||
found_undef = False
|
||||
for digit in value:
|
||||
if digit == 'x':
|
||||
found_undef = True
|
||||
else:
|
||||
val = val*2 + int(digit)
|
||||
found_def = True
|
||||
if found_def:
|
||||
if found_undef:
|
||||
return "D{X}"
|
||||
else:
|
||||
return "D{%d}" % val
|
||||
return "U"
|
||||
|
||||
for line in fileinput.input(args.filename):
|
||||
(node, time, name, value) = line.strip().split('\t')
|
||||
time = int(time)
|
||||
if start_time is None or start_time > time:
|
||||
start_time = time
|
||||
if stop_time is None or stop_time < time:
|
||||
stop_time = time
|
||||
if name == args.signame:
|
||||
if args.l:
|
||||
time_val[+time] = value_to_logic(value)
|
||||
elif args.b:
|
||||
time_val[+time] = value_to_binary(value)
|
||||
elif args.x:
|
||||
time_val[+time] = value_to_hex(value)
|
||||
elif args.d:
|
||||
time_val[+time] = value_to_decimal(value)
|
||||
else:
|
||||
time_val[+time] = value
|
||||
|
||||
if start_time not in time_val:
|
||||
time_val[start_time] = "S"
|
||||
|
||||
last_time = None
|
||||
last_value = None
|
||||
for t in sorted(time_val.keys()):
|
||||
if last_time is not None:
|
||||
print("%f%s" % ((t - last_time)*args.s, last_value), end='')
|
||||
(last_time, last_value) = (t, time_val[t])
|
||||
if last_time < stop_time:
|
||||
print("%f%s" % ((stop_time - last_time)*args.s, last_value), end='')
|
||||
print('')
|
||||
|
||||
|
|
@ -0,0 +1,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 = "";
|
||||
}
|
||||
}
|
||||
}
|
||||
|
||||
Loading…
Reference in New Issue