diff options
Diffstat (limited to 'contrib/syslinux/latest/memdisk/postprocess.pl')
-rwxr-xr-x | contrib/syslinux/latest/memdisk/postprocess.pl | 58 |
1 files changed, 0 insertions, 58 deletions
diff --git a/contrib/syslinux/latest/memdisk/postprocess.pl b/contrib/syslinux/latest/memdisk/postprocess.pl deleted file mode 100755 index fcda478..0000000 --- a/contrib/syslinux/latest/memdisk/postprocess.pl +++ /dev/null @@ -1,58 +0,0 @@ -#!/usr/bin/perl -## ----------------------------------------------------------------------- -## -## Copyright 2001-2008 H. Peter Anvin - All Rights Reserved -## -## This program is free software; you can redistribute it and/or modify -## it under the terms of the GNU General Public License as published by -## the Free Software Foundation, Inc., 53 Temple Place Ste 330, -## Boston MA 02111-1307, USA; either version 2 of the License, or -## (at your option) any later version; incorporated herein by reference. -## -## ----------------------------------------------------------------------- - -# -# Postprocess the memdisk binary. Used during the 'make' process. -# We write memdisk16.bin out to the final memdisk kernel, pad it to an -# integral 512-byte sector length, write this number of sectors into the -# kernel header field "setup_sects", then append memdisk32.bin - -eval { use bytes; }; - -($out,$file16,$file32) = @ARGV; - -open(OUT, "> $out\0") or die "$0: Cannot create file: $out\n"; -eval { binmode OUT; }; -open(FILE, "< $file16\0") or die "$0: Cannot open file: $file16\n"; -eval { binmode FILE }; - -@info = stat(FILE); -$size = $info[7]; - -$sectors = ($size + 511) >> 9; -$xsize = $sectors << 9; - -read(FILE, $f16, $size); - -print OUT $f16; - -if ( $size != $xsize ) { - # Pad to a sector boundary - print OUT "\0" x ($xsize-$size); -} - -seek(OUT, 0x1f1, SEEK_SET); # setup_sects -# All sectors are setup except the first -print OUT pack("C", $sectors-1); - -seek(OUT, $xsize, SEEK_SET); -close(FILE); - -open(FILE, "+< $file32\0") or die "$0: Cannot open file: $file32\n"; - -while ( ($n = read(FILE, $f32, 65536)) > 0 ) { - print OUT $f32; -} - -close(FILE); -close(OUT); |