OpenCores
URL https://opencores.org/ocsvn/ahb_system_generator/ahb_system_generator/trunk

Subversion Repositories ahb_system_generator

[/] [ahb_system_generator/] [trunk/] [scripts/] [vdiff.pl] - Rev 3

Compare with Previous | Blame | View Log

#!/usr/bin/perl
 
open(FIL1,"<$ARGV[0]")|| die "## cannot open reference $ARGV[0]\nUSAGE: vdiff.pl ref_file out_file\n";
open(FIL2,"<$ARGV[1]")|| die "## cannot open log file $ARGV[1]\nUSAGE: vdiff.pl ref_file out_file\n";
$ok=1;
$lines=0;
 
 
    while(<FIL1>){
	$lines++;
	if(/(\w+)\s+\w+\s+\w+\s+(\w+)\s+\w+\s+(\w+)/){
	    $timel=$1;
	    $addrl=$2;
	    $valuel=$3;
#	    print "$1=$timel $2=$addrl $3=$valuel\n";
	    $line=<FIL2>;
 
 
	    if($line=~/(\w+)\s+\w+\s+\w+\s+(\w+)\s+\w+\s+(\w+)/){
	    $timer=$1;
	    $addrr=$2;
	    $valuer=$3;
#	    print "$1=$timer $2=$addrr $3=$valuer\n";
	    if(!("$addrl" eq "$addrr")){
		    print "#### (line:$lines) < $_ (line:$lines)> $line";
		    $ok=0;
			}
		if((!($valuel=~/U+/)) && (!($valuel eq $valuer))){
		    print "#### ------------ $timer $addrr $valuel $valuer   \n";
		    print "#### (line:$lines)< $_ (line:$lines)> $line";
		    $ok=0;
			}
 
#		if((!($valr=~/U+/)) && (!($valr eq $valrr))){
#		    print "++++++++++ $addr $vall $valr $1 $2 $3\n";
#		    print " (line:$lines)< $_ (line:$lines)> $line";
#		    $ok=0;
#		}
 
		}
		else {
			print "#### log missing from (line:$lines) !!!\n";
			$ok=0;	   
			exit($ok);
		}
	}
  }
exit($ok);
 
#exit(-99);
 

Compare with Previous | Blame | View Log

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.