Subversion Repositories alu_with_selectable_inputs_and_outputs

#! /usr/bin/perl -w
 
 
#/////////////////////////////////////////////////////////////////////
#////                                                             ////
#////      This project has been provided to you on behalf of:    ////
#////                                                             ////
#////      	S.C. ASICArt S.R.L.                               ////
#////				www.asicart.com                   ////
#////				eli_f@asicart.com                 ////
#////                                                             ////
#////        Author: Dragos Constantin Doncean                    ////
#////        Email: doncean@asicart.com                           ////
#////        Mobile: +40-740-936997                               ////
#////                                                             ////
#////      Downloaded from: http://www.opencores.org/             ////
#////                                                             ////
#/////////////////////////////////////////////////////////////////////
#////                                                             ////
#//// Copyright (C) 2007 Dragos Constantin Doncean                ////
#////                         www.asicart.com                     ////
#////                         doncean@asicart.com                 ////
#////                                                             ////
#//// This source file may be used and distributed without        ////
#//// restriction provided that this copyright statement is not   ////
#//// removed from the file and that any derivative work contains ////
#//// the original copyright notice and the associated disclaimer.////
#////                                                             ////
#////     THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY     ////
#//// EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED   ////
#//// TO, THE IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS   ////
#//// FOR A PARTICULAR PURPOSE. IN NO EVENT SHALL THE AUTHOR      ////
#//// OR CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT,         ////
#//// INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES    ////
#//// (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE   ////
#//// GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR        ////
#//// BUSINESS INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF  ////
#//// LIABILITY, WHETHER IN  CONTRACT, STRICT LIABILITY, OR TORT  ////
#//// (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT  ////
#//// OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE         ////
#//// POSSIBILITY OF SUCH DAMAGE.                                 ////
#////                                                             ////
#/////////////////////////////////////////////////////////////////////
 
 
use Getopt::Long;
use IO::Handle;
 
######################################################################
# the help print
######################################################################
my $help = <<EndHelp;
Usage:
RunTest.pl <test_name>  [-help|-h]
			[-log|-l <log filename>]
 
The arguments meaning:
----------------------
 
<test_name>                             - the test name (can be with or without the extention .vr)
[-help|-h]                              - print this help screen
[-log|-l <log filename>]                - the test name
 
EndHelp
 
######################################################################
# check the arguments
######################################################################
$result = &GetOptions(\%optctl, "help|h", "log|l=s");
 
if($result == 0 || $#ARGV == -1 || defined($optctl{help})){
  print $help;
  exit 0;
}
 
$test_name = $ARGV[0];
$test_name =~ s/\.v$//;
$test_file = "$test_name" . ".v";
 
unless (-e $test_file) {
  die "\n       Test file $test_file does not exist!!!\n" .
      "         exiting ...\n";
}
 
if(defined($optctl{"log"})){
  $log_file = $optctl{"log"};
}
else{
  $log_file = $test_name . ".log";
}
 
######################################################################
# open the log file, create cds.lib and hdl.var
######################################################################
open (LOG_FILE, "> $log_file") or die " Can not open file $log_file\n\n";
autoflush LOG_FILE;
SystemCmd("date");
close (LOG_FILE);
 
######################################################################
# compile the test
######################################################################
my $test_compile_cmd = "verilog -c $test_file";
SystemCmd("$test_compile_cmd");
 
######################################################################
# clean the test directory
######################################################################
SystemCmd("make clean");
 
######################################################################
# run the simulation
######################################################################
my $sim_cmd = "make TEST_TYPE=$test_file";
SystemCmd("$sim_cmd");
 
######################################################################
# Execute system command
######################################################################
sub SystemCmd  # Arg: Command string
{
  my($command_line) = @_;
  open (LOG_FILE, ">> $log_file") or die "Can not create $log_file file\n";
  autoflush LOG_FILE;
  print LOG_FILE "\nExecuting '$command_line >> $log_file 2>&1'\n";
  close(LOG_FILE);
  sleep 1;
  system "$command_line >> $log_file 2>&1";
  my $rc = $?/256;
  sleep 1;
  open (LOG_FILE, ">> $log_file") or die "Can not create $log_file file\n";
  autoflush LOG_FILE;
  if ($rc != 0) {
    print LOG_FILE "\nWARNING: Return code of system command $command_line >> $log_file > 2>&1 = $rc != 0\n";
  }
  close (LOG_FILE);
  $rc;
}