#!/usr/bin/perl

open(I,"t6.vcd");
$s=0;
%hname=();
%hbit=();
$t=0;
while($l=<I>) {
        if($l=~/module u2_MAPI/) { $s=1;}
        elsif($s==1) {
                if($l=~/upscope /) { $s=2;}
                else {
                        @as=split(/ /,$l);
                        if($as[5]=~/\[/) {
                                print "reg        $as[5]        $as[4]\;\n";
                                $as[4].=$as[5];
                        }
                        else {
                                print "reg                $as[4]\;\n";
                        }
                        %hname=(%hname,$as[3],$as[4]);
                        %hbit=(%hbit,$as[3],$as[2]);
                }
        }
        elsif($s==2) {
                if($l=~/dumpvars/) { $s=3;}
        }
        elsif($s==3) {
                if($l=~/end/) { $s=4;}
        }
        elsif($s==4) {
                chop($l);
                if($l=~/^\#/) {
                        $l=~s/^.//g;
                        $t=$l-$t;
                        print "        \#$t\;\n";
                        $t=$l;
                }
                elsif($l=~/^b/) {
                        $l=~s/^.//g;
                        ($a,$b)=split(/ /,$l);
                        $name=$hname{$b};
                        $bit=$hbit{$b};
                        if($name) {
                                print "        $name=${bit}'b${a}\;\n";
                        }
                }
                else {
                        @as=split(//,$l);
                        $a=@as[0]; shift(@as);
                        $b=join(//,@as);
                        $name=$hname{$b};
                        $bit=$hbit{$b};
                        if($name) {
                                print "        $name=${bit}'b${a}\;\n";
                        }
                }
        }
}
close(I);