/
githubmirror
/
ipxe
Обзор
Документация
Войти
/
githubmirror
/
ipxe
Код
Запросы
0
Пакеты
0
Релизы
0
Аналитика
Безопасность
master
src/util/catrom.pl
29 строк
633 B
Michael Brown
[util] Rewrite catrom.pl to use Option::ROM library
12 июн 2012, 14:36
12 июн 2012, 14:36
12be8bc
Код
Авторство
О чём код?
#!/usr/bin/perl -w use warnings; use strict; use FindBin; use lib "$FindBin::Bin"; use Option::ROM qw ( :all ); my @romfiles = @ARGV or die "Usage: $0 rom-file-1 rom-file-2 ... > multi-rom-file\n"; while ( my $romfile = shift @romfiles ) { # Read ROM file my $rom = new Option::ROM; $rom->load ( $romfile ); # Tag final image as non-final in all except the final ROM if ( @romfiles ) { my $image = $rom; $image = $image->next_image() while $image->next_image(); $image->pci_header->{last_image} &= ~PCI_LAST_IMAGE; $image->fix_checksum(); } # Write ROM file to STDOUT $rom->save ( "-" ); }