editio

来自「MPICH是MPI的重要研究,提供了一系列的接口函数,为并行计算的实现提供了编程」· 代码 · 共 30 行

#! /usr/local/bin/perl5
#
while (<>) {
      if (/#define MPI_([A-Za-z_]*) ([0-9]*)/) {
         $name = $1;
	 $num  = $2 + 128;
	 $name =~ tr/a-z/A-Z/;
	 print "#define MPE_$name $num\n";
      }
      elsif (/(^.*)MPI_(.*)_ID(.*)$/) {
	  $head = $1;
	  $name = $2;
	  $tail = $3;
	  $name =~ tr/a-z/A-Z/;
	  print "${head}MPE_${name}_ID$tail\n";
      }				
      elsif (/(^.*state.*)MPI_([A-Za-z_]*)(.*)$/) {
	  $head = $1;
	  $name = $2;
	  $tail = $3;
	  $name =~ tr/a-z/A-Z/;
	  print "${head}${name}$tail\n";
      }				
      else {
	  # Handle current ROMIO changes
	  s/MPI_Request/MPIO_Request/;
	  print $_;
      }
}