Usage: ppsearch.pl <gcc -E file> <text>

ppsearch.pl (text/plain), 730 bytes, created by Carter Smithhart on 2004-03-10 00:20:36 UTC

#!/usr/bin/perl

my $outfile = shift @ARGV;
my $forwhat = shift @ARGV;

open IN, "<$outfile" or die "cannot open $outfile";
@in = <IN>;
close IN;

%donefiles=();

$donefiles{"<command line>"} = 1;
$donefiles{"<built-in>"} = 1;

foreach $line (@in)
{
  if ($line =~ /^\# \d+ \"(.*)\"$/)
  {
    my $file = $1;
    #print $file." found.\n";
    if (!exists $donefiles{$file})
        {
          $donefiles{$file} = 1;
          push @filesfound, $file;
        }
  }
}

delete $f{"<command line>"};
delete $f{"<built-in>"};

foreach $file (@filesfound)
{
  #print "file = $file\n";
  my $cmd = "grep \"$forwhat\" $file";
  #print $cmd."\n";
  $out = `$cmd`;
  
  if ($out ne "")
  {
    print "$file:\n";
    print "$out\n";
  }
}