gpxe: delete long since obsolete snapshot of gPXE

gPXE has been deprecated in favor of iPXE for many, many years now.
It is much better than users get it directly from the iPXE project,
since we should no longer need any special modifications for Syslinux
use.

Signed-off-by: H. Peter Anvin <hpa@zytor.com>

1 files changed, 0 insertions, 232 deletions

diff --git a/gpxe/src/util/makerom.pl b/gpxe/src/util/makerom.pl
deleted file mode 100755
index 68c3be98..00000000
--- a/gpxe/src/util/makerom.pl
+++ /dev/null
@@ -1,232 +0,0 @@
-#!/usr/bin/perl -w
-
-use Getopt::Std;
-
-use constant MINROMSIZE => 8192;
-use constant MAXROMSIZE => 262144;
-
-use constant PCI_PTR_LOC => 0x18;	# from beginning of ROM
-use constant PCI_HDR_SIZE => 0x18;
-use constant PNP_PTR_LOC => 0x1a;	# from beginning of ROM
-use constant PNP_HDR_SIZE => 0x20;
-use constant PNP_CHKSUM_OFF => 0x9;	# bytes from beginning of PnP header
-use constant PNP_DEVICE_OFF => 0x10;	# bytes from beginning of PnP header
-use constant PCI_VEND_ID_OFF => 0x4;	# bytes from beginning of PCI header
-use constant PCI_DEV_ID_OFF => 0x6;	# bytes from beginning of PCI header
-use constant PCI_SIZE_OFF => 0x10;	# bytes from beginning of PCI header
-
-use constant UNDI_PTR_LOC => 0x16;	# from beginning of ROM
-use constant UNDI_HDR_SIZE => 0x16;
-use constant UNDI_CHKSUM_OFF => 0x05;
-
-use strict;
-
-use vars qw(%opts);
-
-use bytes;
-
-sub getromsize ($) {
-	my ($romref) = @_;
-	my $i;
-
-	print STDERR "BIOS extension ROM Image did not start with 0x55 0xAA\n"
-		if (substr($$romref, 0, 2) ne "\x55\xaa");
-	my $size = ord(substr($$romref, 2, 1)) * 512;
-	for ($i = MINROMSIZE; $i < MAXROMSIZE and $i < $size; $i *= 2) { }
-	print STDERR "$size is a strange size for a boot ROM\n"
-		if ($size > 0 and $i > $size);
-	return ($size);
-}
-
-sub addident ($) {
-	my ($romref) = @_;
-
-	return (0) unless (my $s = $opts{'i'});
-	# include the terminating NUL byte too
-	$s .= "\x00";
-	my $len = length($s);
-	# Put the identifier in only if the space is blank
-	my $pos = length($$romref) - $len - 2;
-	return (0) if (substr($$romref, $pos, $len) ne ("\xFF" x $len));
-	substr($$romref, $pos, $len) = $s;
-	return ($pos);
-}
-
-sub pcipnpheaders ($$) {
-	my ($romref, $identoffset) = @_;
-	my ($pci_hdr_offset, $pnp_hdr_offset);
-
-	$pci_hdr_offset = unpack('v', substr($$romref, PCI_PTR_LOC, 2));
-	$pnp_hdr_offset = unpack('v', substr($$romref, PNP_PTR_LOC, 2));
-	# Sanity checks
-	if ($pci_hdr_offset < PCI_PTR_LOC + 2
-		or $pci_hdr_offset > length($$romref) - PCI_HDR_SIZE
-		or $pnp_hdr_offset < PNP_PTR_LOC + 2
-		or $pnp_hdr_offset > length($$romref) - PNP_HDR_SIZE
-		or substr($$romref, $pci_hdr_offset, 4) ne 'PCIR'
-		or substr($$romref, $pnp_hdr_offset, 4) ne '$PnP') {
-		$pci_hdr_offset = $pnp_hdr_offset = 0;
-	} else {
-		printf "PCI header at %#x and PnP header at %#x\n",
-			$pci_hdr_offset, $pnp_hdr_offset if $opts{'v'};
-	}
-	if ($pci_hdr_offset > 0) {
-		my ($pci_vendor_id, $pci_device_id);
-		# if no -p option, just report what's there
-		if (!defined($opts{'p'})) {
-			$pci_vendor_id = unpack('v', substr($$romref, $pci_hdr_offset+PCI_VEND_ID_OFF, 2));
-			$pci_device_id = unpack('v', substr($$romref, $pci_hdr_offset+PCI_DEV_ID_OFF, 2));
-			printf "PCI Vendor ID %#x Device ID %#x\n",
-				$pci_vendor_id, $pci_device_id;
-		} else {
-			substr($$romref, $pci_hdr_offset + PCI_SIZE_OFF, 2)
-				= pack('v', length($$romref) / 512);
-			($pci_vendor_id, $pci_device_id) = split(/,/, $opts{'p'});
-			substr($$romref, $pci_hdr_offset+PCI_VEND_ID_OFF, 2)
-				= pack('v', oct($pci_vendor_id)) if ($pci_vendor_id);
-			substr($$romref, $pci_hdr_offset+PCI_DEV_ID_OFF, 2)
-				= pack('v', oct($pci_device_id)) if ($pci_device_id);
-		}
-	}
-	if ($pnp_hdr_offset > 0) {
-		if (defined($identoffset)) {
-			# Point to device id string at end of ROM image
-			substr($$romref, $pnp_hdr_offset+PNP_DEVICE_OFF, 2)
-				= pack('v', $identoffset);
-		}
-		substr($$romref, $pnp_hdr_offset+PNP_CHKSUM_OFF, 1) = "\x00";
-		my $sum = unpack('%8C*', substr($$romref, $pnp_hdr_offset,
-			PNP_HDR_SIZE));
-		substr($$romref, $pnp_hdr_offset+PNP_CHKSUM_OFF, 1) = chr(256 - $sum);
-	}
-}
-
-sub undiheaders ($) {
-	my ($romref) = @_;
-	my ($undi_hdr_offset);
-
-	$undi_hdr_offset = unpack('v', substr($$romref, UNDI_PTR_LOC, 2));
-	# Sanity checks
-	if ($undi_hdr_offset < UNDI_PTR_LOC + 2
-		or $undi_hdr_offset > length($$romref) - UNDI_HDR_SIZE
-		or substr($$romref, $undi_hdr_offset, 4) ne 'UNDI') {
-		$undi_hdr_offset = 0;
-	} else {
-		printf "UNDI header at %#x\n", $undi_hdr_offset if $opts{'v'};
-	}
-	if ($undi_hdr_offset > 0) {
-		substr($$romref, $undi_hdr_offset+UNDI_CHKSUM_OFF, 1) = "\x00";
-		my $sum = unpack('%8C*', substr($$romref, $undi_hdr_offset,
-			UNDI_HDR_SIZE));
-		substr($$romref, $undi_hdr_offset+UNDI_CHKSUM_OFF, 1) = chr(256 - $sum);
-	}
-}
-
-sub writerom ($$) {
-	my ($filename, $romref) = @_;
-
-	open(R, ">$filename") or die "$filename: $!\n";
-	print R $$romref;
-	close(R);
-}
-
-sub checksum ($$) {
-	my ($romref, $romsize) = @_;
-
-	substr($$romref, 6, 1) = "\x00";
-	my $sum = unpack('%8C*', substr($$romref, 0, $romsize));
-	substr($$romref, 6, 1) = chr(256 - $sum);
-	# Double check
-	$sum = unpack('%8C*', substr($$romref, 0, $romsize));
-	if ($sum != 0) {
-		print "Checksum fails\n"
-	} elsif ($opts{'v'}) {
-		print "Checksum ok\n";
-	}
-}
-
-sub makerom () {
-	my ($rom, $romsize, $stubsize);
-
-	getopts('3xni:p:s:v', \%opts);
-	$ARGV[0] or die "Usage: $0 [-s romsize] [-i ident] [-p vendorid,deviceid] [-n] [-x] [-3] rom-file\n";
-	open(R, $ARGV[0]) or die "$ARGV[0]: $!\n";
-	# Read in the whole ROM in one gulp
-	my $filesize = read(R, $rom, MAXROMSIZE+1);
-	close(R);
-	defined($filesize) and $filesize >= 3 or die "Cannot get first 3 bytes of file\n";
-	print "$filesize bytes read\n" if $opts{'v'};
-	# If PXE image, just fill the length field and write it out
-	if ($opts{'x'}) {
-		substr($rom, 2, 1) = chr((length($rom) + 511) / 512);
-		writerom($ARGV[0], \$rom);
-		return;
-	}
-	# Size specified with -s overrides value in 3rd byte in image
-	# -s 0 means round up to next 512 byte block
-	if (defined($opts{'s'})) {
-		if (($romsize = oct($opts{'s'})) <= 0) {
-			# NB: This roundup trick only works on powers of 2
-			$romsize = ($filesize + 511) & ~511
-		}
-	} else {
-		# Shrink romsize down to the smallest power of two that will do
-		for ($romsize = MAXROMSIZE;
-		     $romsize > MINROMSIZE and $romsize >= 2*$filesize;
-		     $romsize /= 2) { }
-	}
-	if ($filesize > $romsize) {
-		print STDERR "ROM size of $romsize not big enough for data, ";
-		# NB: This roundup trick only works on powers of 2
-		$romsize = ($filesize + 511) & ~511;
-		print "will use $romsize instead\n"
-	}
-	# Pad with 0xFF to $romsize
-	$rom .= "\xFF" x ($romsize - length($rom));
-	# If this is a stub ROM, don't force header size to the full amount
-	if (!$opts{'n'}) {
-		if ($romsize >= 128 * 1024) {
-			print "Warning: ROM size exceeds extension BIOS limit\n";
-		}
-		substr($rom, 2, 1) = chr(($romsize / 512) % 256);
-	} else {
-		$stubsize = ord(substr($rom, 2, 1)) * 512;
-		print "Stub size is $stubsize\n" if $opts{'v'};
-	}
-	print "ROM size is $romsize\n" if $opts{'v'};
-	# set the product string only if we don't have one yet
-	my $pnp_hdr_offset = unpack('v', substr($rom, PNP_PTR_LOC, 2));
-	my $identoffset = substr($rom, $pnp_hdr_offset+PNP_DEVICE_OFF, 2) eq "\0\0" ? addident(\$rom) : undef;
-	pcipnpheaders(\$rom, $identoffset);
-	undiheaders(\$rom);
-	# 3c503 requires last two bytes to be 0x80
-	substr($rom, MINROMSIZE-2, 2) = "\x80\x80"
-		if ($opts{'3'} and $romsize == MINROMSIZE);
-	checksum(\$rom, $opts{'n'} ? $stubsize : $romsize);
-	writerom($ARGV[0], \$rom);
-}
-
-sub modrom () {
-	my ($rom);
-
-	getopts('p:v', \%opts);
-	$ARGV[0] or die "Usage: $0 [-p vendorid,deviceid] rom-file\n";
-	open(R, $ARGV[0]) or die "$ARGV[0]: $!\n";
-	# Read in the whole ROM in one gulp
-	my $filesize = read(R, $rom, MAXROMSIZE+1);
-	close(R);
-	defined($filesize) and $filesize >= 3 or die "Cannot get first 3 bytes of file\n";
-	print "$filesize bytes read\n" if $opts{'v'};
-	pcipnpheaders(\$rom, undef);
-	undiheaders(\$rom);
-	checksum(\$rom, ord(substr($rom, 2, 1)) * 512);
-	writerom($ARGV[0], \$rom);
-}
-
-# Main routine. See how we were called and behave accordingly
-if ($0 =~ m:modrom(\.pl)?$:) {
-	modrom();
-} else {
-	makerom();
-}
-exit(0);