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
|
dnl This file is part of GNU Radius.
dnl Copyright (C) 2001,2003 Free Software Foundation, Inc.
dnl
dnl Written by Sergey Poznyakoff
dnl
dnl GNU Radius is free software; you can redistribute it and/or modify
dnl it under the terms of the GNU General Public License as published by
dnl the Free Software Foundation; either version 2 of the License, or
dnl (at your option) any later version.
dnl
dnl GNU Radius is distributed in the hope that it will be useful,
dnl but WITHOUT ANY WARRANTY; without even the implied warranty of
dnl MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
dnl GNU General Public License for more details.
dnl
dnl You should have received a copy of the GNU General Public License
dnl along with GNU Radius; if not, write to the Free Software
dnl Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
dnl
AC_DEFUN([RA_CHECK_GUILE],
[
if test "x$ra_cv_lib_guile" = x; then
cached=""
AC_PATH_PROG(GUILE_CONFIG, guile-config, no, $PATH)
if test $GUILE_CONFIG = no; then
ra_cv_lib_guile=no
else
GUILE_INCLUDES=`guile-config compile`
GUILE_LIBS=`guile-config link`
fi
if test $GUILE_CONFIG != no; then
AC_MSG_CHECKING(for guile version 1.4 or higher)
GUILE_VERSION=`($GUILE_CONFIG --version 2>&1; echo '')|sed -n 's/guile-config - Guile version \([[0-9]][[0-9]]*\)\.\([[0-9]][[0-9]]*\).*/\1\2/p'`
case "x$GUILE_VERSION" in
x[[0-9]]*)
if test $GUILE_VERSION -lt 14; then
AC_MSG_RESULT(Nope. Version number too low.)
ra_cv_lib_guile=no
else
AC_DEFINE_UNQUOTED(GUILE_VERSION, $GUILE_VERSION,
[Guile version number: MAX*10 + MIN])
AC_MSG_RESULT(OK)
save_LIBS=$LIBS
save_CFLAGS=$CFLAGS
LIBS="$LIBS $GUILE_LIBS"
CFLAGS="$CFLAGS $GUILE_INCLUDES"
AC_TRY_LINK([#include <libguile.h>],
ifelse([$1], , scm_shell(0, NULL);, [$1]),
[ra_cv_lib_guile=yes],
[ra_cv_lib_guile=no])
LIBS=$save_LIBS
CFLAGS=$save_CFLAGS
fi ;;
*) AC_MSG_RESULT(Nope. Unknown version number)
ra_cv_lib_guile=no;;
esac
fi
else
cached=" (cached) "
GUILE_INCLUDES=`guile-config compile`
GUILE_LIBS=`guile-config link`
fi
AC_MSG_CHECKING(whether to build guile support)
RA_RESULT_ACTIONS([ra_cv_lib_guile],[LIBGUILE],[$2],[$3])
AC_MSG_RESULT(${cached}$ra_cv_lib_guile)
if test $ra_cv_lib_guile = yes; then
if test $GUILE_VERSION -gt 14; then
LIBS="$LIBS $GUILE_LIBS"
CFLAGS="$CFLAGS $GUILE_INCLUDES"
AC_CHECK_FUNCS(scm_long2num scm_cell scm_list_1 scm_list_n scm_c_define\
scm_c_lookup)
if test $ac_cv_func_scm_cell = no; then
AC_MSG_CHECKING(for inline scm_cell)
AC_TRY_LINK([#include <libguile.h>],
[scm_cell(SCM_EOL, SCM_EOL)],
[ac_cv_func_scm_cell=yes
AC_DEFINE(HAVE_SCM_CELL,1,
Define if you have scm_cell function)])
AC_MSG_RESULT($ac_cv_func_scm_cell)
fi
CFLAGS=$save_CFLAGS
LIBS=$save_LIBS
fi
fi
])
|