Line 1... |
Line 1... |
#! /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.
|
Line 48... |
Line 49... |
}
|
}
|
|
|
|
|
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;
|
}
|
}
|