Subversion Repositories usbhostslave

#!/usr/bin/perl -w

#

#

# USAGE: perl verilogCopy.pl [-i <inFile>] [-o <outFile>] 

#  -i <inFile> : Verilog input file

#  -0 <outFile> : Verilog output file

#  example: perl verilogCopy.pl -i inFileName -o outFileName

#

# Release notes:

# 0.1 initial release

use strict;

use sigtrap;

use Getopt::Std;

use constant TIMESTAMP => scalar localtime;

use Socket;

use FileHandle;

use File::stat;

my %options = ();

getopts( "o:i:t:",\%options );

my $gRespStr = "";

my @inFile;

my $filename;

my $myFileAsString;

our $outFile = new FileHandle;

our $inFileSt;

our $outFileSt;

my $version =  "verilogCopy   ";

#print( "$version\n" );

# --- open Verilog input file

if (defined $options{i} ) {

  $inFileSt = stat($options{i}) or die "Can't stat $options{i}: $!";

  #print ("\n in File mtime = ");

  #print $inFileSt->mtime;

  #print ("\n");

}

else {

  print ("Input file name missing. Use -i <inputFileName> \n");

  exit 1;

}

# --- open verilog output file

if (defined $options{o} ) {

  $outFileSt = stat($options{o}) or die "Can't stat $options{o}: $!";

  #print ("\n out File mtime = ");

  #print $outFileSt->mtime;

  #print ("\n");

}

else {

  print ("Output file name missing. Use -o <outputFileName> \n");

  exit 1;

}

$/ = undef;

  if ($outFileSt->mtime < $inFileSt->mtime) {

    @inFile = glob( $options{i} );

    $outFile->open(">$options{o}") or die("Cannot open write file!\n");

    slurpFile(\$myFileAsString, $inFile[0] );

    parseInputFile(\$myFileAsString);

    patchFile(\$myFileAsString, $inFile[0] );

    $outFile->print("$myFileAsString");

    $outFile->close();

    print( "\"$options{i}\" has been processed and copied to \"$options{o}\".\n" );

  }

  else {

    print ("Input file older than output file. No update required\n");

  }

#---------------------------------- slurpFile -------------------------------------------#

sub slurpFile

{

        my $fileAsString = shift();

        my $filename = shift();

        my $read  = new FileHandle;             # The input file

        $read->open( $filename ) or print( "Cannot open $filename for reading!\n" ) and return(0);

     $$fileAsString = $read->getline();     # Read in the entire file as a list

        $read->close() or die( "Cannot close $_!\n" );

        return(1);

}

#---------------------------------- parseInputFile -------------------------------------------#

sub parseInputFile

{

  my $fileAsString = shift();

  $$fileAsString =~ s/! =/!=/gs;      #patch ActiveHDL 4.2 FSM2HDL bug

  $$fileAsString =~ s/ = / <= /gs;    #patch ActiveHDL 4.2 FSM2HDL bug

  $$fileAsString =~ s/\r//gs;         #delete DOS carriage returns

  $$fileAsString =~ s/\t/  /gs;       #replace tabs with two spaces

}

#---------------------------------- patchFile -------------------------------------------#

sub patchFile

{

  my $fileAsString = shift();

  my $filename = shift();

  if ($filename =~ /spiCtrl.v/) {

    unless(

      $$fileAsString =~ s/\(spiTransCtrl or rxDataRdy/\(spiTransCtrl or rxDataRdy or spiTransType/

    ) {print "-------- ERROR, patch failed \n"; exit;}

    print ("--Patched $filename\n");

  }

  if ($filename =~ /readWriteSDBlock.v/) {

    unless(

      $$fileAsString =~ s/\(blockAddr or sendCmdRdy/\(blockAddr or sendCmdRdy or respTout or respByte/

    ) {print "-------- ERROR, patch failed \n"; exit;}

    print ("--Patched $filename\n");

  }

  if ($filename =~ /tx_pkt_sched.v/) {

    unless(

      $$fileAsString =~ s/\(buffLoadGnt or buffUnLoadGnt/\(buffLoadGnt or buffUnLoadGnt or txBufferLoaded/

    ) {print "-------- ERROR, patch failed \n"; exit;}

    print ("--Patched $filename\n");

  }

}