1#!/usr/bin/perl 2# -*- perl -*- 3 4# Copyright (C) 2012-2017 Free Software Foundation, Inc. 5 6# This program is free software; you can redistribute it and/or modify 7# it under the terms of the GNU General Public License as published by 8# the Free Software Foundation; either version 3 of the License, or 9# (at your option) any later version. 10# 11# This program is distributed in the hope that it will be useful, 12# but WITHOUT ANY WARRANTY; without even the implied warranty of 13# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 14# GNU General Public License for more details. 15# 16# You should have received a copy of the GNU General Public License 17# along with this program; if not, write to the Free Software 18# Foundation, Inc., 51 Franklin Street - Fifth Floor, Boston, MA 02110-1301, USA. 19 20# Utility to create *.d files from *.lst files. Not normally needed. 21 22opendir L, "/tmp/lsts"; 23for $f (sort readdir L) { 24 next unless $f =~ /\.lst/; 25 $f =~ s@\.lst@@; 26 push (@files, $f); 27} 28closedir L; 29 30for $f (@files) { 31 32 open (I, "/tmp/lsts/$f.lst"); 33 open (O, ">$f.d"); 34 35 print O "#objdump: -dr\n"; 36 37 while (<I>) { 38 s/$f\.o/dump.o/; 39 s/\\/\\\\/g; 40 s/([\[\]\.\*\?\+])/\\$1/g; 41 s/file format .*/file format \.\*/; 42 print O; 43 } 44 45 close I; 46 close O; 47} 48