diff options
author | 2017-04-25 03:31:15 -0700 | |
---|---|---|
committer | 2017-05-22 06:48:08 +0000 | |
commit | bb756eebdac6fd24e8919e2c43f7d2c8c4091f59 (patch) | |
tree | ca11e03542edf2d8f631efeca5e1626d211107e3 /qemu/roms/ipxe/src/util/licence.pl | |
parent | a14b48d18a9ed03ec191cf16b162206998a895ce (diff) |
Adding qemu as a submodule of KVMFORNFV
This Patch includes the changes to add qemu as a submodule to
kvmfornfv repo and make use of the updated latest qemu for the
execution of all testcase
Change-Id: I1280af507a857675c7f81d30c95255635667bdd7
Signed-off-by:RajithaY<rajithax.yerrumsetty@intel.com>
Diffstat (limited to 'qemu/roms/ipxe/src/util/licence.pl')
-rwxr-xr-x | qemu/roms/ipxe/src/util/licence.pl | 163 |
1 files changed, 0 insertions, 163 deletions
diff --git a/qemu/roms/ipxe/src/util/licence.pl b/qemu/roms/ipxe/src/util/licence.pl deleted file mode 100755 index 79e70fd65..000000000 --- a/qemu/roms/ipxe/src/util/licence.pl +++ /dev/null @@ -1,163 +0,0 @@ -#!/usr/bin/perl -w -# -# Copyright (C) 2008 Michael Brown <mbrown@fensystems.co.uk>. -# -# This program is free software; you can redistribute it and/or -# modify it under the terms of the GNU General Public License as -# published by the Free Software Foundation; either version 2 of the -# License, or any later version. -# -# This program is distributed in the hope that it will be useful, but -# WITHOUT ANY WARRANTY; without even the implied warranty of -# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -# General Public License for more details. -# -# You should have received a copy of the GNU General Public License -# along with this program; if not, write to the Free Software -# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA -# 02110-1301, USA. - -use strict; -use warnings; -use Getopt::Long; - -# List of licences we can handle -my $known_licences = { - gpl_any => { - desc => "GPL (any version)", - can_subsume => { - public_domain => 1, - bsd3 => 1, - bsd2 => 1, - mit => 1, - isc => 1, - }, - }, - gpl2_or_later => { - desc => "GPL version 2 (or, at your option, any later version)", - can_subsume => { - gpl_any => 1, - gpl2_or_later_or_ubdl => 1, - public_domain => 1, - bsd3 => 1, - bsd2 => 1, - mit => 1, - isc => 1, - }, - }, - gpl2_only => { - desc => "GPL version 2 only", - can_subsume => { - gpl_any => 1, - gpl2_or_later => 1, - gpl2_or_later_or_ubdl => 1, - public_domain => 1, - bsd3 => 1, - bsd2 => 1, - mit => 1, - isc => 1, - }, - }, - gpl2_or_later_or_ubdl => { - desc => ( "GPL version 2 (or, at your option, any later version) or ". - "Unmodified Binary Distribution Licence" ), - can_subsume => { - public_domain => 1, - bsd3 => 1, - bsd2 => 1, - mit => 1, - isc => 1, - }, - }, - public_domain => { - desc => "Public Domain", - can_subsume => {}, - }, - bsd4 => { - desc => "BSD Licence (with advertising clause)", - can_subsume => { - public_domain => 1, - bsd3 => 1, - bsd2 => 1, - mit => 1, - isc => 1, - }, - }, - bsd3 => { - desc => "BSD Licence (without advertising clause)", - can_subsume => { - public_domain => 1, - bsd2 => 1, - mit => 1, - isc => 1, - }, - }, - bsd2 => { - desc => "BSD Licence (without advertising or endorsement clauses)", - can_subsume => { - public_domain => 1, - mit => 1, - isc => 1, - }, - }, - mit => { - desc => "MIT/X11/Xorg Licence", - can_subsume => { - public_domain => 1, - isc => 1, - }, - }, - isc => { - desc => "ISC Licence", - can_subsume => { - public_domain => 1, - }, - }, -}; - -# Parse command-line options -my $verbosity = 1; -Getopt::Long::Configure ( 'bundling', 'auto_abbrev' ); -GetOptions ( - 'verbose|v+' => sub { $verbosity++; }, - 'quiet|q+' => sub { $verbosity--; }, -) or die "Could not parse command-line options\n"; - -# Parse licence list from command line -my $licences = {}; -foreach my $licence ( @ARGV ) { - die "Unknown licence \"$licence\"\n" - unless exists $known_licences->{$licence}; - $licences->{$licence} = $known_licences->{$licence}; -} -die "No licences specified\n" unless %$licences; - -# Dump licence list -if ( $verbosity >= 1 ) { - print "The following licences appear within this file:\n"; - foreach my $licence ( keys %$licences ) { - print " ".$licences->{$licence}->{desc}."\n" - } -} - -# Apply licence compatibilities to reduce to a single resulting licence -foreach my $licence ( keys %$licences ) { - # Skip already-deleted licences - next unless exists $licences->{$licence}; - # Subsume any subsumable licences - foreach my $can_subsume ( keys %{$licences->{$licence}->{can_subsume}} ) { - if ( exists $licences->{$can_subsume} ) { - print $licences->{$licence}->{desc}." subsumes ". - $licences->{$can_subsume}->{desc}."\n" - if $verbosity >= 1; - delete $licences->{$can_subsume}; - } - } -} - -# Print resulting licence -die "Cannot reduce to a single resulting licence!\n" - if ( keys %$licences ) != 1; -( my $licence ) = keys %$licences; -print "The overall licence for this file is:\n " if $verbosity >= 1; -print $licences->{$licence}->{desc}."\n"; |