1 # FP_COMPUTE_INT(EXPRESSION, VARIABLE, INCLUDES, IF-FAILS)
2 # --------------------------------------------------------
3 # Assign VARIABLE the value of the compile-time EXPRESSION using INCLUDES for
4 # compilation. Execute IF-FAILS when unable to determine the value. Works for
5 # cross-compilation, too.
7 # Implementation note: We are lazy and use an internal autoconf macro, but it
8 # is supported in autoconf versions 2.50 up to the actual 2.57, so there is
10 AC_DEFUN([FP_COMPUTE_INT],
11 [_AC_COMPUTE_INT([$1], [$2], [$3], [$4])[]dnl
15 # FP_CHECK_CONST(EXPRESSION, [INCLUDES = DEFAULT-INCLUDES], [VALUE-IF-FAIL = -1])
16 # -------------------------------------------------------------------------------
17 # Defines CONST_EXPRESSION to the value of the compile-time EXPRESSION, using
18 # INCLUDES. If the value cannot be determined, use VALUE-IF-FAIL.
19 AC_DEFUN([FP_CHECK_CONST],
20 [AS_VAR_PUSHDEF([fp_Cache], [fp_cv_const_$1])[]dnl
21 AC_CACHE_CHECK([value of $1], fp_Cache,
22 [FP_COMPUTE_INT([$1], fp_check_const_result, [AC_INCLUDES_DEFAULT([$2])],
23 [fp_check_const_result=m4_default([$3], ['-1'])])
24 AS_VAR_SET(fp_Cache, [$fp_check_const_result])])[]dnl
25 AC_DEFINE_UNQUOTED(AS_TR_CPP([CONST_$1]), AS_VAR_GET(fp_Cache), [The value of $1.])[]dnl
26 AS_VAR_POPDEF([fp_Cache])[]dnl
30 # FP_CHECK_CONSTS_TEMPLATE(EXPRESSION...)
31 # ---------------------------------------
32 # autoheader helper for FP_CHECK_CONSTS
33 m4_define([FP_CHECK_CONSTS_TEMPLATE],
34 [AC_FOREACH([fp_Const], [$1],
35 [AH_TEMPLATE(AS_TR_CPP(CONST_[]fp_Const),
36 [The value of ]fp_Const[.])])[]dnl
37 ])# FP_CHECK_CONSTS_TEMPLATE
40 # FP_CHECK_CONSTS(EXPRESSION..., [INCLUDES = DEFAULT-INCLUDES], [VALUE-IF-FAIL = -1])
41 # -----------------------------------------------------------------------------------
42 # List version of FP_CHECK_CONST
43 AC_DEFUN([FP_CHECK_CONSTS],
44 [FP_CHECK_CONSTS_TEMPLATE([$1])dnl
45 for fp_const_name in $1
47 FP_CHECK_CONST([$fp_const_name], [$2], [$3])
52 dnl FPTOOLS_HTYPE_INCLUDES
53 AC_DEFUN([FPTOOLS_HTYPE_INCLUDES],
59 # include <sys/types.h>
67 # include <sys/stat.h>
95 # include <inttypes.h>
102 #if HAVE_SYS_RESOURCE_H
103 # include <sys/resource.h>
110 dnl ** Map an arithmetic C type to a Haskell type.
111 dnl Based on autconf's AC_CHECK_SIZEOF.
113 dnl FPTOOLS_CHECK_HTYPE(TYPE [, DEFAULT_VALUE ])
114 AC_DEFUN([FPTOOLS_CHECK_HTYPE],[
116 dnl The name to #define.
117 define(<<AC_TYPE_NAME>>, translit(htype_$1, [a-z *], [A-Z_P]))
118 dnl The cache variable names.
119 define(<<AC_CV_NAME>>, translit(fptools_cv_htype_$1, [ *], [_p]))
120 define(<<AC_CV_NAME_supported>>, translit(fptools_cv_htype_sup_$1, [ *], [_p]))
123 AC_MSG_CHECKING(Haskell type for $1)
124 AC_CACHE_VAL(AC_CV_NAME,[
125 AC_CV_NAME_supported=yes
126 AC_COMPUTE_INT([HTYPE_IS_INTEGRAL],
127 [(($1)((int)(($1)1.4))) == (($1)1.4)],
128 [FPTOOLS_HTYPE_INCLUDES],[AC_CV_NAME_supported=no])
129 if test "$AC_CV_NAME_supported" = "yes"
131 if test "$HTYPE_IS_INTEGRAL" -eq 0
133 AC_COMPUTE_INT([HTYPE_IS_FLOAT],[sizeof($1) == sizeof(float)],
134 [FPTOOLS_HTYPE_INCLUDES],
135 [AC_CV_NAME_supported=no])
136 AC_COMPUTE_INT([HTYPE_IS_DOUBLE],[sizeof($1) == sizeof(double)],
137 [FPTOOLS_HTYPE_INCLUDES],
138 [AC_CV_NAME_supported=no])
139 AC_COMPUTE_INT([HTYPE_IS_LDOUBLE],[sizeof($1) == sizeof(long double)],
140 [FPTOOLS_HTYPE_INCLUDES],
141 [AC_CV_NAME_supported=no])
142 if test "$HTYPE_IS_FLOAT" -eq 1
145 elif test "$HTYPE_IS_DOUBLE" -eq 1
148 elif test "$HTYPE_IS_LDOUBLE" -eq 1
152 AC_CV_NAME_supported=no
155 AC_COMPUTE_INT([HTYPE_IS_SIGNED],[(($1)(-1)) < (($1)0)],
156 [FPTOOLS_HTYPE_INCLUDES],
157 [AC_CV_NAME_supported=no])
158 AC_COMPUTE_INT([HTYPE_SIZE],[sizeof($1) * 8],
159 [FPTOOLS_HTYPE_INCLUDES],
160 [AC_CV_NAME_supported=no])
161 if test "$HTYPE_IS_SIGNED" -eq 0
163 AC_CV_NAME="Word$HTYPE_SIZE"
165 AC_CV_NAME="Int$HTYPE_SIZE"
170 if test "$AC_CV_NAME_supported" = yes; then
171 AC_MSG_RESULT($AC_CV_NAME)
172 AC_DEFINE_UNQUOTED(AC_TYPE_NAME, $AC_CV_NAME,
173 [Define to Haskell type for $1])
175 AC_CV_NAME=NotReallyAType
176 AC_MSG_RESULT([not supported])
178 undefine([AC_TYPE_NAME])dnl
179 undefine([AC_CV_NAME])dnl
180 undefine([AC_CV_NAME_supported])dnl
184 # FP_SEARCH_LIBS_PROTO(WHAT, PROTOTYPE, FUNCTION, SEARCH-LIBS,
185 # [ACTION-IF-FOUND], [ACTION-IF-NOT-FOUND],
187 # --------------------------------------------------------
188 # Search for a library defining FUNC, if it's not already available.
189 # This is a copy of the AC_SEARCH_LIBS definition, but extended to take
190 # the name of the thing we are looking for as its first argument, and
191 # prototype text as its second argument. It also calls AC_LANG_PROGRAM
192 # instead of AC_LANG_CALL
193 AC_DEFUN([FP_SEARCH_LIBS_PROTO],
194 [AS_VAR_PUSHDEF([ac_Search], [ac_cv_search_$1])dnl
195 AC_CACHE_CHECK([for library containing $1], [ac_Search],
196 [ac_func_search_save_LIBS=$LIBS
197 AC_LANG_CONFTEST([AC_LANG_PROGRAM([$2], [$3])])
198 for ac_lib in '' $4; do
199 if test -z "$ac_lib"; then
200 ac_res="none required"
203 LIBS="-l$ac_lib $7 $ac_func_search_save_LIBS"
205 AC_LINK_IFELSE([], [AS_VAR_SET([ac_Search], [$ac_res])])
206 AS_VAR_SET_IF([ac_Search], [break])
208 AS_VAR_SET_IF([ac_Search], , [AS_VAR_SET([ac_Search], [no])])
210 LIBS=$ac_func_search_save_LIBS])
211 ac_res=AS_VAR_GET([ac_Search])
212 AS_IF([test "$ac_res" != no],
213 [test "$ac_res" = "none required" || LIBS="$ac_res $LIBS"
216 AS_VAR_POPDEF([ac_Search])dnl