Logo AND Algorithmique Numérique Distribuée

Public GIT Repository
activity::CommImpl: stick to our naming standards for the fields
[simgrid.git] / src / smpi / smpif90.in
1 #!/usr/bin/env sh
2
3 # Copyright (c) 2012-2019. The SimGrid Team. All rights reserved.
4
5 # This program is free software; you can redistribute it and/or modify it
6 # under the terms of the license (GNU LGPL) which comes with this package.
7
8 SIMGRID_VERSION="@SIMGRID_VERSION_STRING@"
9 SIMGRID_GITHASH="@SIMGRID_GITHASH@"
10
11 REAL_FORTRAN_COMPILER=@SMPI_Fortran_COMPILER@
12
13 INCLUDEARGS="@includeflag@"
14 CMAKE_LINKARGS="-L@libdir@"
15
16 @SMPITOOLS_SH@
17
18 list_set FFLAGS @SMPI_Fortran_FLAGS@
19 list_set LINKARGS "-lsimgrid" @SMPI_Fortran_LIBS@ "-lm"
20 if [ "x${SMPI_PRETEND_CC}" = "x" ]; then
21    list_add LINKARGS "-shared"
22 else
23    echo "Warning: smpif90 pretends to be a regular compiler (SMPI_PRETEND_CC is set). Produced binaries will not be usable in SimGrid."
24 fi
25 list_set TMPFILES
26 main_name=main
27
28 cleanup () {
29     eval $(list_get TMPFILES)
30     rm -f "$@"
31 }
32 trap 'cleanup' EXIT
33
34 filter_and_compile() {
35     list_add TMPFILES "${TMPFILE}"
36     #replace "program main_name by subroutine user_main (and the end clause as well)"
37     sed 's/^\([[:space:]]*\)\([eE][nN][dD] \)\{0,1\}[pP][rR][oO][gG][rR][aA][mM][^a-zA-Z0-9]*\([a-zA-Z0-9_]*\)/\1\2subroutine user_main /g' "${ARG}" >> "${TMPFILE}"
38     SRCFILE="${TMPFILE}"
39     list_add CMDLINE "${SRCFILE}"
40 }
41
42 NEEDS_OUTPUT=1
43
44 list_set CMDLINE "${REAL_FORTRAN_COMPILER}"
45 list_add_not_empty CMDLINE "${FFLAGS}"
46 while [ $# -gt 0 ]; do
47     ARG="$1"
48     shift
49     case "${ARG}" in
50         -c)
51             CMAKE_LINKARGS=""
52             LINKARGS=""
53             list_add CMDLINE "-c"
54             ;;
55         *.f90)
56             FILENAME=`basename ${ARG}`
57             TMPFILE=$(mymktemp "${ARG}" ".f90")
58             ORIGFILE="${FILENAME%.f90}"
59             filter_and_compile
60             ;;
61         *.F90)
62             FILENAME=`basename ${ARG}`
63             TMPFILE=$(mymktemp "${ARG}" ".F90")
64             ORIGFILE="${FILENAME%.F90}"
65             filter_and_compile
66             ;;
67         '-version' | '--version')
68             printf '%b\n' "$SIMGRID_VERSION"
69             exit 0
70             ;;
71         "-git-version" | "--git-version")
72             printf '%b\n' "$SIMGRID_GITHASH"
73             exit 0
74             ;;
75         '-compiler-version' | '--compiler-version')
76             ${REAL_FORTRAN_COMPILER} --version
77             ;;
78         -o)
79             list_add CMDLINE "-o$1"
80             NEEDS_OUTPUT=0
81             shift
82             ;;
83         *)
84             list_add CMDLINE "${ARG}"
85             ;;
86     esac
87 done
88
89 if [ $NEEDS_OUTPUT -ne 0 ]; then
90    list_add CMDLINE "-o${ORIGFILE}.o"
91 fi
92
93 list_add_not_empty CMDLINE ${INCLUDEARGS}
94 list_add_not_empty CMDLINE ${CMAKE_LINKARGS}
95 list_add_not_empty CMDLINE "${LINKARGS}"
96
97 eval $(list_get CMDLINE)
98 "$@"