cannam@167: #! /bin/sh
cannam@167: 
cannam@167: # Script to generate Fortran 2003 interface declarations for FFTW's MPI
cannam@167: # interface from the fftw3-mpi.h header file.
cannam@167: 
cannam@167: # This is designed so that the Fortran caller can do:
cannam@167: #   use, intrinsic :: iso_c_binding
cannam@167: #   implicit none
cannam@167: #   include 'fftw3-mpi.f03'
cannam@167: # and then call the C FFTW MPI functions directly, with type checking.
cannam@167: #
cannam@167: # One caveat: because there is no standard way to conver MPI_Comm objects
cannam@167: # from Fortran (= integer) to C (= opaque type), the Fortran interface
cannam@167: # technically calls C wrapper functions (also auto-generated) which
cannam@167: # call MPI_Comm_f2c to convert the communicators as needed.
cannam@167: 
cannam@167: echo "! Generated automatically.  DO NOT EDIT!"
cannam@167: echo
cannam@167: 
cannam@167: echo "  include 'fftw3.f03'"
cannam@167: echo
cannam@167: 
cannam@167: # Extract constants
cannam@167: perl -pe 's/#define +([A-Z0-9_]+) +\(([+-]?[0-9]+)U?\)/\n  integer\(C_INTPTR_T\), parameter :: \1 = \2\n/g' < fftw3-mpi.h | grep 'integer(C_INTPTR_T)'
cannam@167: perl -pe 'if (/#define +([A-Z0-9_]+) +\(([0-9]+)U? *<< *([0-9]+)\)/) { print "\n  integer\(C_INT\), parameter :: $1 = ",$2 << $3,"\n"; }' < fftw3-mpi.h | grep 'integer(C_INT)'
cannam@167: 
cannam@167: # Extract function declarations
cannam@167: for p in $*; do
cannam@167:     if test "$p" = "d"; then p=""; fi
cannam@167: 
cannam@167:     echo
cannam@167:     cat <<EOF
cannam@167:   type, bind(C) :: fftw${p}_mpi_ddim
cannam@167:      integer(C_INTPTR_T) n, ib, ob
cannam@167:   end type fftw${p}_mpi_ddim
cannam@167: EOF
cannam@167: 
cannam@167:     echo
cannam@167:     echo "  interface"
cannam@167:     grep -v 'mpi.h' fftw3-mpi.h | gcc -I../api -D__GNUC__=5 -D__i386__ -E - |grep "fftw${p}_mpi_init" |tr ';' '\n' | perl ../api/genf03.pl
cannam@167:     echo "  end interface"
cannam@167: 
cannam@167: done