update_headers_change_word_f90.pl

#!/usr/bin/perl

#
#  Script to change the version number in f90 codes
#
#  Author : Dimitri Komatitsch, EPS - Harvard University, May 1998
#

#
# read all f90 and F90 (and *.h) files in the current directory
# f90 files are supposed to have the extension "*.f90" or "*.F90" or "*.h"
#

#
# known bug : does the changes also in constant strings, and not only
# in the code (which is dangerous, but really easier to program...)
#

@objects = `ls src/*/*.f90 src/*/*.F90 src/*/*.c src/*/*.cu src/*/*.h.in src/*/*.h`;

foreach $name (@objects) {
  chop $name;
  # change tabs to white spaces
  system("expand -2 < $name > _____tutu01_____");
  $f90name = $name;
  print STDOUT "Changing word in file $name ...\n";

  open(FILEF77,"<_____tutu01_____");
  open(FILEF90,">$f90name");

  # open the source file
  while($line = <FILEF77>) {
    chop $line;

    # suppress trailing white spaces and carriage return
    $line =~ s/\s*$//;

    # change the version number and copyright information
    #$line =~ s#!                            April 2011#!                             July 2012#og;
    #$line =~ s#!    Princeton University, USA and University of Pau / CNRS / INRIA#!    Princeton University, USA and CNRS / INRIA / University of Pau#og;
    #$line =~ s#! \(c\) Princeton University / California Institute of Technology and University of Pau / CNRS / INRIA#! \(c\) Princeton University / California Institute of Technology and CNRS / INRIA / University of Pau#og;
    #     $line =~ s#rmass_sigma#rmass_time_integral_of_sigma#og;

    # write the modified line to the output file
    print FILEF90 "$line\n";

  }

  close(FILEF77);
  close(FILEF90);

}

system("rm -f _____tutu01_____");