File: ga_papi_to_wapi.pl

package info (click to toggle)
ga 5.9.2-2
  • links: PTS, VCS
  • area: main
  • in suites: forky, sid
  • size: 18,472 kB
  • sloc: ansic: 192,963; fortran: 53,761; f90: 11,218; cpp: 5,784; makefile: 2,248; sh: 1,945; python: 1,734; perl: 534; csh: 134; asm: 106
file content (9 lines) | stat: -rwxr-xr-x 162 bytes parent folder | download | duplicates (7) 
1
2
3
4
5
6
7
8
9
 
#!/usr/bin/env perl
while (<STDIN>) {
  $line = $_;
  $line =~ s/PAPI/WAPI/g;
  $line =~ s/pnga_/wnga_/g;
  if (!($line =~ /typedef/)) {
    print "$line";
  }
}