Skip to main content

Browse the archive

Revision 1d2f45d681595c9ddf588faa86be317ae87974f6 authored by Pierrick Gaudry on 22 November 2010, 20:54:05 UTC, committed by Pierrick Gaudry on 22 November 2010, 20:54:05 UTC 
moving gf2x-fft inside gf2x (step3)
 

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/cado-nfs/trunk@423 3eaf19af-ecc0-40f6-b43f-672aa0c71c71
1 parent be5456f
Raw File
cxxwrap.pl.in 
#!/usr/bin/perl -w

use warnings;
use strict;

my $default_cc = '@CMAKE_CXX_COMPILER@';
my $mpi_cc = '@MPI_CXX_COMPILER@';

sub usage {
    print STDERR <<EOF;
Usage: $0 [command line arguments...]

This really wraps around the original cc, as the expansion is:

$default_cc [command line arguments...]

However, if an argument --mpi is found, then the command line becomes

$mpi_cc [command line arguments...] (with the --mpi removed)
EOF
    exit 1;
}

my $cc = $default_cc;

my @a = ();

while (defined($_=shift @ARGV)) {
    /^--mpi$/ && do {
        $cc = $mpi_cc;
        # print STDERR "Using $cc instead of $default_cc\n";
        next;
    };
    push @a, $_;
}

usage unless scalar @a;

exec $cc, @a;
back to top