#!/usr/bin/perl
  
  #
  # Takes a (sorted) output of readprofile and turns it into a list suitable for
  # linker scripts
  #
  # usage:
  #	 readprofile | sort -rn | perl profile2linkerlist.pl > functionlist
  #
  use strict;
  
  while (<>) {
    my $line = $_;
  
    $_ =~ /\W*[0-9]+\W*([a-zA-Z\_0-9]+)\W*[0-9]+/;
  
    print "*(.text.$1)
  "
        unless ($line =~ /unknown/) || ($line =~ /total/);
  }