mirror of
https://github.com/xen-project/xen.git
synced 2026-10-28 18:21:39 +01:00
Juergen Gross
41aea82de2
Carve out all libxenlight related sources and move them to tools/libs/light in order to use the generic library build environment. The closely related sources for libxl-save-helper and the libxl test environment are being moved, too. Signed-off-by: Juergen Gross <jgross@suse.com> Acked-by: Wei Liu <wl@xen.org>
24 lines
532 B
Perl
Executable File
24 lines
532 B
Perl
Executable File
#!/usr/bin/perl -w
|
|
use strict;
|
|
our $needed=0;
|
|
our $speclineoffset=0;
|
|
our $specfile;
|
|
while (<>) {
|
|
if (m/^\# (\d+) \"(.*)\"$/) {
|
|
$speclineoffset = $1 - $. -1;
|
|
$specfile = $2;
|
|
}
|
|
my $file = defined($specfile) ? $specfile : $ARGV;
|
|
my $line = $speclineoffset + $.;
|
|
if (m/libxl_asyncop_how[^;]/) {
|
|
$needed=1;
|
|
}
|
|
if (m/LIBXL_EXTERNAL_CALLERS_ONLY/) {
|
|
$needed=0;
|
|
}
|
|
next unless $needed;
|
|
if (m/\;/) {
|
|
die "$file:$line:missing LIBXL_EXTERNAL_CALLERS_ONLY";
|
|
}
|
|
}
|