#! /usr/bin/perl -w
|
#! /usr/bin/perl -w
|
|
|
|
use Consts;
|
|
|
sub get_license_header {
|
sub get_license_header {
|
my $file_name=shift;
|
my $file_name=shift;
|
|
my $version = Consts::VERSION;
|
|
my $end = Consts::END_YEAR;
|
my $head="
|
my $head="
|
/**********************************************************************
|
/**********************************************************************
|
** File: $file_name
|
** File: $file_name
|
**
|
**
|
** Copyright (C) 2014-$ProNOC::END_YEAR Alireza Monemi
|
** Copyright (C) 2014-$end Alireza Monemi
|
**
|
**
|
** This file is part of ProNoC $ProNOC::VERSION
|
** This file is part of ProNoC $version
|
**
|
**
|
** ProNoC ( stands for Prototype Network-on-chip) is free software:
|
** ProNoC ( stands for Prototype Network-on-chip) is free software:
|
** you can redistribute it and/or modify it under the terms of the GNU
|
** you can redistribute it and/or modify it under the terms of the GNU
|
** Lesser General Public License as published by the Free Software Foundation,
|
** Lesser General Public License as published by the Free Software Foundation,
|
** either version 2 of the License, or (at your option) any later version.
|
** either version 2 of the License, or (at your option) any later version.
|
**
|
**
|
** ProNoC is distributed in the hope that it will be useful, but WITHOUT
|
** ProNoC is distributed in the hope that it will be useful, but WITHOUT
|
** ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
** ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
|
** or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
|
** or FITNESS FOR A PARTICULAR PURPOSE. See the GNU Lesser General
|
** Public License for more details.
|
** Public License for more details.
|
**
|
**
|
** You should have received a copy of the GNU Lesser General Public
|
** You should have received a copy of the GNU Lesser General Public
|
** License along with ProNoC. If not, see <http:**www.gnu.org/licenses/>.
|
** License along with ProNoC. If not, see <http:**www.gnu.org/licenses/>.
|
******************************************************************************/
|
******************************************************************************/
|
";
|
";
|
|
|
|
|
return $head;
|
return $head;
|
|
|
}
|
}
|
|
|
|
|
sub autogen_warning {
|
sub autogen_warning {
|
|
|
my $string ="
|
my $string ="
|
/**************************************************************************
|
/**************************************************************************
|
** WARNING: THIS IS AN AUTO-GENERATED FILE. CHANGES TO IT ARE LIKELY TO BE
|
** WARNING: THIS IS AN AUTO-GENERATED FILE. CHANGES TO IT ARE LIKELY TO BE
|
** OVERWRITTEN AND LOST. Rename this file if you wish to do any modification.
|
** OVERWRITTEN AND LOST. Rename this file if you wish to do any modification.
|
****************************************************************************/\n\n";
|
****************************************************************************/\n\n";
|
|
|
return $string;
|
return $string;
|
|
|
|
|
}
|
}
|
|
|
|
|
sub perl_file_header {
|
sub perl_file_header {
|
my $file_name=shift;
|
my $file_name=shift;
|
|
my $version = Consts::VERSION;
|
|
my $end = Consts::END_YEAR;
|
my $head="#######################################################################
|
my $head="#######################################################################
|
## File: $file_name
|
## File: $file_name
|
##
|
##
|
## Copyright (C) 2014-$ProNOC::END_YEAR Alireza Monemi
|
## Copyright (C) 2014-$end Alireza Monemi
|
##
|
##
|
## This file is part of ProNoC $ProNOC::VERSION
|
## This file is part of ProNoC $version
|
##
|
##
|
## WARNING: THIS IS AN AUTO-GENERATED FILE. CHANGES TO IT
|
## WARNING: THIS IS AN AUTO-GENERATED FILE. CHANGES TO IT
|
## MAY CAUSE UNEXPECTED BEHAIVOR.
|
## MAY CAUSE UNEXPECTED BEHAVIOR.
|
################################################################################
|
################################################################################
|
|
|
";
|
";
|
return $head;
|
return $head;
|
}
|
}
|
|
|
|
|
1;
|
1;
|
|
|