diff options
author | RajithaY <rajithax.yerrumsetty@intel.com> | 2017-04-25 03:31:15 -0700 |
---|---|---|
committer | Rajitha Yerrumchetty <rajithax.yerrumsetty@intel.com> | 2017-05-22 06:48:08 +0000 |
commit | bb756eebdac6fd24e8919e2c43f7d2c8c4091f59 (patch) | |
tree | ca11e03542edf2d8f631efeca5e1626d211107e3 /qemu/roms/ipxe/src/include/xen/import.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/include/xen/import.pl')
-rwxr-xr-x | qemu/roms/ipxe/src/include/xen/import.pl | 116 |
1 files changed, 0 insertions, 116 deletions
diff --git a/qemu/roms/ipxe/src/include/xen/import.pl b/qemu/roms/ipxe/src/include/xen/import.pl deleted file mode 100755 index 9f09a77a4..000000000 --- a/qemu/roms/ipxe/src/include/xen/import.pl +++ /dev/null @@ -1,116 +0,0 @@ -#!/usr/bin/perl -w - -=head1 NAME - -import.pl - -=head1 SYNOPSIS - -import.pl [options] /path/to/xen - -Options: - - -h,--help Display brief help message - -v,--verbose Increase verbosity - -q,--quiet Decrease verbosity - -=cut - -use File::Spec::Functions qw ( :ALL ); -use File::Find; -use File::Path; -use Getopt::Long; -use Pod::Usage; -use FindBin; -use strict; -use warnings; - -my $verbosity = 0; - -sub try_import_file { - my $ipxedir = shift; - my $xendir = shift; - my $filename = shift; - - # Skip everything except headers - return unless $filename =~ /\.h$/; - - # Search for importable header - ( undef, my $subdir, undef ) = splitpath ( $filename ); - my $outfile = catfile ( $ipxedir, $filename ); - my $infile = catfile ( $xendir, "xen/include/public", $filename ); - die "$infile does not exist\n" unless -e $infile; - - # Import header file - print "$filename <- ".catfile ( $xendir, $filename )."\n" - if $verbosity >= 1; - open my $infh, "<", $infile or die "Could not open $infile: $!\n"; - mkpath ( catdir ( $xendir, $subdir ) ); - open my $outfh, ">", $outfile or die "Could not open $outfile: $!\n"; - my @dependencies = (); - my $maybe_guard; - my $guard; - while ( <$infh> ) { - # Strip CR and trailing whitespace - s/\r//g; - s/\s*$//g; - chomp; - # Update include lines, and record included files - if ( /^\#include\s+[<\"](\S+)[>\"]/ ) { - push @dependencies, catfile ( $subdir, $1 ); - } - # Write out line - print $outfh "$_\n"; - # Apply FILE_LICENCE() immediately after include guard - if ( defined $maybe_guard ) { - if ( /^\#define\s+_+${maybe_guard}_H_*$/ ) { - die "Duplicate header guard detected in $infile\n" if $guard; - $guard = $maybe_guard; - print $outfh "\nFILE_LICENCE ( MIT );\n"; - } - undef $maybe_guard; - } - if ( /^#ifndef\s+_+(\S+)_H_*$/ ) { - $maybe_guard = $1; - } - } - close $outfh; - close $infh; - # Warn if no header guard was detected - warn "Cannot detect header guard in $infile\n" unless $guard; - # Recurse to handle any included files that we don't already have - foreach my $dependency ( @dependencies ) { - if ( ! -e catfile ( $ipxedir, $dependency ) ) { - print "...following dependency on $dependency\n" if $verbosity >= 1; - try_import_file ( $ipxedir, $xendir, $dependency ); - } - } - return; -} - -# Parse command-line options -Getopt::Long::Configure ( 'bundling', 'auto_abbrev' ); -GetOptions ( - 'verbose|v+' => sub { $verbosity++; }, - 'quiet|q+' => sub { $verbosity--; }, - 'help|h' => sub { pod2usage ( 1 ); }, -) or die "Could not parse command-line options\n"; -pod2usage ( 1 ) unless @ARGV == 1; -my $xendir = shift; - -# Identify Xen import directory -die "Directory \"$xendir\" does not appear to contain the Xen source tree\n" - unless -e catfile ( $xendir, "xen/include/public/xen.h" ); - -# Identify iPXE Xen includes directory -my $ipxedir = $FindBin::Bin; -die "Directory \"$ipxedir\" does not appear to contain the iPXE Xen includes\n" - unless -e catfile ( $ipxedir, "../../include/ipxe" ); - -print "Importing Xen headers into $ipxedir\nfrom $xendir\n" - if $verbosity >= 1; - -# Import headers -find ( { wanted => sub { - try_import_file ( $ipxedir, $xendir, abs2rel ( $_, $ipxedir ) ); -}, no_chdir => 1 }, $ipxedir ); |