1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
|
<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"
"http://www.w3.org/TR/html4/strict.dtd">
<html lang="en">
<head>
<title>
Autoconf Macro: ax_f90_internal_headmod
</title>
<link rel="stylesheet" type="text/css" href="ac-archive.css">
</head>
<body>
<table summary="web navigation" style="width:100%;">
<tbody>
<tr>
<td style="width:50%;" align="center">
<a href=
"http://autoconf-archive.cryp.to/ax_f90_internal_headmod.m4">Download M4
Source</a>
</td>
<td style="width:50%;" align="center">
<a href="macros-by-category.html">Macro Index Page</a>
</td>
</tr>
</tbody>
</table>
<hr>
<h1>
ax_f90_internal_headmod
</h1>
<h2>
Synopsis
</h2>
<p class="indent" style="white-space:nowrap;">
<code>AX_F90_INTERNAL_HEADMOD(MESSAGE, FILE-REGEXP, FLAG, FUNCTION-BODY,
OUTPUT-VAR[, SEARCH-PATH [, ACTION-IF-FOUND[, ACTION-IF-NOT-FOUND]]])</code>
</p>
<h2>
Description
</h2>
<div class="indent">
<p>
Internal macro used by AX_F90_HEADER and AC_F90_MODULE.
</p>
</div>
<h2>
Author
</h2>
<p class="indent">
Luc Maisonobe <luc@spaceroots.org>
</p>
<h2>
Last Modified
</h2>
<p class="indent">
2005-01-14
</p>
<h2>
M4 Source Code
</h2>
<div class="indent">
<pre class="m4source">
AC_DEFUN([AX_F90_INTERNAL_HEADMOD],[
AS_VAR_PUSHDEF([ax_include],[ax_f90_headmod_$2])
AC_MSG_CHECKING([$1])
AC_LANG_PUSH(Fortran)
AS_VAR_SET(ax_include,"not found")
if test "x$6" = x ; then
ax_search="$prefix:$ac_default_prefix"
for ax_base in "" `echo $LD_LIBRARY_PATH | tr ':' '\012'` ; do
if test "x$ax_base" != x ; then
changequote(,)dnl
ax_base=`echo $ax_base | sed 's,/[^/]*$,,'`
changequote([,])dnl
ax_search="${ax_search}:${ax_base}"
fi
done
else
ax_search="$6"
fi
for ax_base in `echo $ax_search | tr ':' '\012'` ; do
if test "AS_VAR_GET(ax_include)" = "not found" ; then
for ax_mod in "" `find $ax_base -follow -name $2 -print` ; do
if test "x$ax_mod" != x ; then
changequote(,)dnl
ax_dir=`echo $ax_mod | sed 's,/[^/]*$,,'`
changequote([,])dnl
ax_save_FCFLAGS="$FCFLAGS"
FCFLAGS="$ax_save_FCFLAGS $3$ax_dir"
AC_COMPILE_IFELSE([subroutine conftest_routine
$4
end subroutine conftest_routine
],AS_VAR_SET(ax_include,"$3$ax_dir"),[])
FCFLAGS="$ax_save_FCFLAGS"
fi
done
fi
done
AC_LANG_POP(Fortran)
AC_MSG_RESULT([AS_VAR_GET(ax_include)])
if test "AS_VAR_GET(ax_include)" = "not found"; then
$5=""
$8
else
$5="AS_VAR_GET(ax_include)"
$7
fi
AC_SUBST($5)
AS_VAR_POPDEF([ax_include])
])
</pre>
</div>
</body>
</html>
|
