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