#!/usr/bin/perl | |
# -*- perl -*- | |
# Utility to create *.d files from *.lst files. Not normally needed. | |
opendir L, "/tmp/lsts"; | |
for $f (sort readdir L) { | |
next unless $f =~ /\.lst/; | |
$f =~ s@\.lst@@; | |
push (@files, $f); | |
} | |
closedir L; | |
for $f (@files) { | |
open (I, "/tmp/lsts/$f.lst"); | |
open (O, ">$f.d"); | |
print O "#objdump: -dr\n"; | |
while (<I>) { | |
s/$f\.o/dump.o/; | |
s/\\/\\\\/g; | |
s/([\[\]\.\*\?\+])/\\$1/g; | |
s/file format .*/file format \.\*/; | |
print O; | |
} | |
close I; | |
close O; | |
} |