blob: 18ff39ca5fc5231393c933671e06251812a916be (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/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";
}
}
|
