mkinitrd-6_3_1/isolinux/lstadjust.pl

#!/usr/bin/perl
#
# Take a NASM list and map file and make the offsets in the list file
# absolute.  This makes debugging a lot easier.
#
# Usage:
#
#  lstadjust.pl listfile mapfile outfile
#

($listfile, $mapfile, $outfile) = @ARGV;

open(LST, "< $listfile\0")
    or die "$0: cannot open: $listfile: $!\n";
open(MAP, "< $mapfile\0")
    or die "$0: cannot open: $mapfile: $!\n";
open(OUT, "> $outfile\0")
    or die "$0: cannot create: $outfile: $!\n";

%vstart = ();

while (defined($line = <MAP>)) {
    if ($line =~ /^\s*([0-9]+)\s+(\S+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+2\*\*([0-9]+)/i) {
	$vstart{$2} = hex $4;
    }
}
close(MAP);

$offset = 0;
@ostack = ();

while (defined($line = <LST>)) {
    chomp $line;

    $source = substr($line, 40);
    if ($source =~ /^([^;]*);/) {
	$source = $1;
    }

    ($label, $op, $arg, $tail) = split(/\s+/, $source);
    if ($op =~ /^(|\[)section$/i) {
	$offset = $vstart{$arg};
    } elsif ($op =~ /^(absolute|\[absolute)$/i) {
	$offset = 0;
    } elsif ($op =~ /^struc$/i) {
	push(@ostack, $offset);
	$offset = 0;
    } elsif ($op =~ /^endstruc$/i) {
	$offset = pop(@ostack);
    }

    if ($line =~ /^(\s*[0-9]+ )([0-9A-F]{8})(\s.*)$/) {
	$line = sprintf("%s%08X%s", $1, (hex $2)+$offset, $3);
    }

    print OUT $line, "\n";
}
1	niro	1133	#!/usr/bin/perl
2			#
3			# Take a NASM list and map file and make the offsets in the list file
4			# absolute. This makes debugging a lot easier.
5			#
6			# Usage:
7			#
8			# lstadjust.pl listfile mapfile outfile
9			#
10
11			($listfile, $mapfile, $outfile) = @ARGV;
12
13			open(LST, "< $listfile\0")
14			or die "$0: cannot open: $listfile: $!\n";
15			open(MAP, "< $mapfile\0")
16			or die "$0: cannot open: $mapfile: $!\n";
17			open(OUT, "> $outfile\0")
18			or die "$0: cannot create: $outfile: $!\n";
19
20			%vstart = ();
21
22			while (defined($line = <MAP>)) {
23			if ($line =~ /^\s([0-9]+)\s+(\S+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+([0-9a-f]+)\s+2\\*([0-9]+)/i) {
24			$vstart{$2} = hex $4;
25			}
26			}
27			close(MAP);
28
29			$offset = 0;
30			@ostack = ();
31
32			while (defined($line = <LST>)) {
33			chomp $line;
34
35			$source = substr($line, 40);
36			if ($source =~ /^([^;]*);/) {
37			$source = $1;
38			}
39
40			($label, $op, $arg, $tail) = split(/\s+/, $source);
41			if ($op =~ /^(\|\[)section$/i) {
42			$offset = $vstart{$arg};
43			} elsif ($op =~ /^(absolute\|\[absolute)$/i) {
44			$offset = 0;
45			} elsif ($op =~ /^struc$/i) {
46			push(@ostack, $offset);
47			$offset = 0;
48			} elsif ($op =~ /^endstruc$/i) {
49			$offset = pop(@ostack);
50			}
51
52			if ($line =~ /^(\s[0-9]+ )([0-9A-F]{8})(\s.)$/) {
53			$line = sprintf("%s%08X%s", $1, (hex $2)+$offset, $3);
54			}
55
56			print OUT $line, "\n";
57			}