Subversion Repositories an-fpga-implementation-of-low-latency-noc-based-mpsoc

#! /usr/bin/perl -w
 
use strict;
use warnings;
 
use FindBin;
use lib $FindBin::Bin;
 
 
use Regexp::Common qw /comment/;
require "common.pl";
 
 
sub extract_sv_code {
	my $file=shift;
	my $text = load_file($file);
	$text =~ s/($RE{comment}{'C++'})//g;
    return $text;
 
 
}
 
 
sub read_sv_file {
	my $file=shift;
	#read file and remove all comments
	my $code = extract_sv_code($file); 
	print $code;
}