/[dynamips]/upstream/dynamips-0.2.5/profiler_resolve.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Annotation of /upstream/dynamips-0.2.5/profiler_resolve.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1 - (hide annotations)
Sat Oct 6 16:01:44 2007 UTC (12 years, 3 months ago) by dpavlin
File MIME type: text/plain
File size: 579 byte(s)
import 0.2.5 from upstream

1 dpavlin 1 #! /usr/bin/perl -w
2    
3     use strict;
4    
5     my @files = <*.profile>;
6    
7     die "No *.profile files found\n" if !@files;
8    
9     for my $file (@files) {
10     print STDERR "processing $file.\n";
11    
12     open my ($f), '<', $file or die "open $file: $!";
13     open my ($fnew), '>', "$file.names" or die "create $file.names: $!";
14    
15     my ($prog) = $file =~ /^(.*)\.profile\z/ or die;
16     open my ($nm), "nm -n $prog |" or die;
17    
18     my %nm;
19     while (<$nm>) {
20     next if /^\s/;
21     /^([0-9a-f]{8}) . (.*)/ or die "bad nm";
22     $nm{$1} = sprintf "%-30s", $2;
23     }
24    
25     while (<$f>) {
26     s/^([0-9a-f]{8})/$nm{$1} || $1/e;
27     print $fnew $_;
28     }
29     }

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26