]>
git.proxmox.com Git - pve-kernel.git/blob - debian/scripts/abi-generate
8 die "USAGE: $0 INFILE OUTFILE [ABI INFILE-IS-DEB]\n";
11 my $input_file = shift // usage
();
12 my $output_file = shift // usage
();
14 my $extract_deb = shift;
16 die "input file '$input_file' does not exist\n" if ! -e
$input_file;
18 my $modules_symver_fh;
21 usage
() if !defined($abi);
23 push @$cmd, ['dpkg', '--fsys-tarfile', $input_file];
24 push @$cmd, ['tar', '-xOf', '-', "./usr/src/linux-headers-${abi}/Module.symvers"];
25 $modules_symver_fh = IO
::File-
>new_tmpfile();
26 PVE
::Tools
::run_command
($cmd, output
=> '>&'.fileno($modules_symver_fh));
27 seek($modules_symver_fh, 0, 0);
29 open($modules_symver_fh, '<', $input_file) or die "can't open '$input_file' - $!\n";
33 while(my $line = <$modules_symver_fh>) {
34 if ($line =~ /^(.+)\s+(.+)\s+(.+)$/) {
35 push @$lines, "$3 $2 $1";
37 warn "malformed symvers line: '$line'\n";
40 close($modules_symver_fh);
42 PVE
::Tools
::file_set_contents
($output_file, join("\n", sort @$lines));