ThirdParty/mingwBuild/parmetis_includes_hack.pl

   1 #!/usr/bin/perl
   2 #------------------------------------------------------------------------------
   3 # =========                 |
   4 # \\      /  F ield         | foam-extend: Open Source CFD
   5 #  \\    /   O peration     | Version:     3.2
   6 #   \\  /    A nd           | Web:         http://www.foam-extend.org
   7 #    \\/     M anipulation  | For copyright notice see file Copyright
   8 #------------------------------------------------------------------------------
   9 # License
  10 #     This file is part of foam-extend.
  11 #
  12 #     foam-extend is free software: you can redistribute it and/or modify it
  13 #     under the terms of the GNU General Public License as published by the
  14 #     Free Software Foundation, either version 3 of the License, or (at your
  15 #     option) any later version.
  16 #
  17 #     foam-extend is distributed in the hope that it will be useful, but
  18 #     WITHOUT ANY WARRANTY; without even the implied warranty of
  19 #     MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
  20 #     General Public License for more details.
  21 #
  22 #     You should have received a copy of the GNU General Public License
  23 #     along with foam-extend.  If not, see <http://www.gnu.org/licenses/>.
  24 #
  25 # Script
  26 #     parmetis_includes_hack.pl
  27 #
  28 # Description
  29 #     Adds OpenMPI lib/includes dirs to CMake-generated GCC options.
  30 #
  31 # Author:
  32 #     Cesare Guardino, Alstom Power Ltd., (2015)
  33 #
  34 #------------------------------------------------------------------------------
  35
  36 use strict;
  37 use warnings;
  38
  39 use File::Find;
  40
  41 my $MPI_ROOTDIR = $ENV{"MPI_ROOTDIR"};
  42 $MPI_ROOTDIR =~ s/^\/\w//;
  43 my $drive_letter = $&;
  44 $drive_letter =~ s/\///;
  45 $MPI_ROOTDIR = uc($drive_letter) . ":" . $MPI_ROOTDIR;
  46
  47 my @dirs = (".");
  48 find(\&wanted, @dirs);
  49
  50 sub wanted
  51 {
  52     my $file = $_;
  53     my $path = $File::Find::name;
  54
  55     if ($file eq "linklibs.rsp" or $file eq "includes_C.rsp")
  56     {
  57         open (FILE, '<', $file) or die ("ERROR: Can't open '$path' [$!]");
  58         my @contents = <FILE>;
  59         close (FILE);
  60
  61         my $string = ($file eq "linklibs.rsp") ? "-L$MPI_ROOTDIR/lib -lmpi" : "-I$MPI_ROOTDIR/include";
  62         open (FILE, '>', $file) or die ("ERROR: Can't open '$path' [$!]");
  63         foreach my $line (@contents)
  64         {
  65             chomp($line);
  66             print FILE $line . $string;
  67         }
  68         close (FILE);
  69     }
  70 }