tools/smpi/generate_smpi_defines.pl

   1 #!/usr/bin/perl
   2 # Copyright 2016 Vincent Danjean <vincent.danjean@inria.fr>
   3 #
   4 # Call this script like this:
   5 # C/C++  : ./generate_smpi_defines.pl ../../include/smpi/smpi.h
   6 # FORTRAN: ./generate_smpi_defines.pl -f ../../include/smpi/smpi.h
   7 #
   8 # It will generate macros that are useful for adding file and line numbers to
   9 # traces without obtaining a backtrace (as this would be very slow and make
  10 # the simulation/trace unreliable when compared to a "real" trace as obtained
  11 # with MPI+TAU).
  12 use strict;
  13 use warnings;
  14 use Getopt::Std;
  15
  16 my %options=();
  17 getopts("fc", \%options);
  18
  19 # $incall denotes whether we are currently parsing a macro or not...
  20 my $incall=0;
  21
  22 my $commentChar="//";
  23 if (defined $options{f}) {
  24   $commentChar="!"
  25 }
  26
  27 print "$commentChar This file has been automatically generated by the script\n";
  28 print "$commentChar in " . __FILE__ ."\n";
  29 print "$commentChar DO NOT EDIT MANUALLY. ALL CHANGES WILL BE OVERWRITTEN!\n";
  30
  31 # Formatting of the output
  32 sub output_macro {
  33   my $line = shift;
  34   my @parts = split (/\s*,\s*/, $line);
  35   my $id = $parts[1];
  36
  37   # This is a GCC extension. The last statement is the value of the expression
  38   # in parentheses.
  39   if (defined $options{f}) {
  40     print "#define ". uc($id) ." smpi_trace_set_call_location(__FILE__,__LINE__); call ". lc $id ."\n";
  41   }
  42   else {
  43     print "#define $id(...) ({ smpi_trace_set_call_location(__FILE__,__LINE__); $id(__VA_ARGS__); })\n";
  44   }
  45 }
  46
  47 my $wholemacro;
  48 my $line;
  49 while (defined($line = <>)) {
  50   chomp($line);
  51   if ($line =~ /^MPI_CALL/) {
  52     if ($incall) {
  53         output_macro($wholemacro);
  54     }
  55     $incall=1;
  56     $wholemacro = $line;
  57   } elsif ($incall && $line =~ /^\s+\S/) {
  58     # Did we already start parsing an MPI_CALL macro? If so, just concatenate
  59     $wholemacro .= ' '.$line;
  60   } elsif ($incall) {
  61     output_macro($wholemacro);
  62     $incall=0;
  63   }
  64 }