gas/testsuite/gas/rx/make-d

   1 #!/usr/bin/perl
   2 # -*- perl -*-
   3
   4 # Utility to create *.d files from *.lst files.  Not normally needed.
   5
   6 opendir L, "/tmp/lsts";
   7 for $f (sort readdir L) {
   8     next unless $f =~ /\.lst/;
   9     $f =~ s@\.lst@@;
  10     push (@files, $f);
  11 }
  12 closedir L;
  13
  14 for $f (@files) {
  15
  16     open (I, "/tmp/lsts/$f.lst");
  17     open (O, ">$f.d");
  18
  19     print O "#objdump: -dr\n";
  20
  21     while (<I>) {
  22         s/$f\.o/dump.o/;
  23         s/\\/\\\\/g;
  24         s/([\[\]\.\*\?\+])/\\$1/g;
  25         s/file format .*/file format \.\*/;
  26         print O;
  27     }
  28
  29     close I;
  30     close O;
  31 }