Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
[DOC] Fixed even more errors.
[simgrid.git] / src / smpi / smpif90.in
1 #! /bin/sh
2
3 # Copyright (c) 2012-2015. The SimGrid Team.
4 # All rights reserved.
5
6 # This program is free software; you can redistribute it and/or modify it
7 # under the terms of the license (GNU LGPL) which comes with this package.
8
9 SIMGRID_VERSION="@SIMGRID_VERSION_STRING@"
10 SIMGRID_GITHASH="@SIMGRID_GITHASH@"
11
12 F90=@GFORTRAN_EXE@
13
14 INCLUDEARGS="@includeflag@"
15 CMAKE_LINKARGS="-L@libdir@"
16
17 @SMPITOOLS_SH@
18
19 list_set FFLAGS "-ff2c" "-fno-second-underscore"
20 list_set LINKARGS "-lsimgrid" "-lm" "-lgfortran"
21 list_set TMPFILES
22 main_name=main
23
24 cleanup () {
25     eval $(list_get TMPFILES)
26     rm -f "$@"
27 }
28 trap 'cleanup' EXIT
29
30 filter_and_compile() {
31     list_add TMPFILES "${TMPFILE}"
32 #replace "program main_name by subroutine user\_main (and the end clause as well)"
33     sed 's/[[:space:]]*program[[:space:]]*\([a-zA-Z0-9\-\_]*\)/ subroutine user\_main /gI;s/[[:space:]]*use[[:space:]]*mpi/\include \"mpif\.h\" /gI' "${ARG}" > "${TMPFILE}"
34     SRCFILE="${TMPFILE}"
35     list_add CMDLINE "${SRCFILE}"
36 }
37
38
39 list_set CMDLINE "${F90}"
40 list_add_not_empty CMDLINE "${FFLAGS}"
41 while [ $# -gt 0 ]; do
42     ARG="$1"
43     shift
44     case "${ARG}" in
45         -c)
46             CMAKE_LINKARGS=""
47             LINKARGS=""
48             list_add CMDLINE "-c"
49             ;;
50         *.f90)
51             TMPFILE=$(mymktemp "${ARG}" ".f90")
52             filter_and_compile
53             ;;
54         *.F90)
55             TMPFILE=$(mymktemp "${ARG}" ".F90")
56             filter_and_compile
57             ;;
58         '-version' | '--version')
59             printf '%b\n' "$SIMGRID_VERSION"
60             exit 0
61             ;;
62         "-git-version" | "--git-version")
63             printf '%b\n' "$SIMGRID_GITHASH"
64             exit 0
65             ;;
66         '-compiler-version' | '--compiler-version')
67             ${F90} --version
68             ;;
69         *)
70             list_add CMDLINE "${ARG}"
71             ;;
72     esac
73 done
74
75 list_add_not_empty CMDLINE ${INCLUDEARGS}
76 list_add_not_empty CMDLINE ${CMAKE_LINKARGS}
77 list_add_not_empty CMDLINE "${LINKARGS}"
78
79 eval $(list_get CMDLINE)
80 "$@"