mirror of
https://git.savannah.gnu.org/git/guile.git
synced 2025-05-01 04:10:18 +02:00
67 lines
2.4 KiB
Text
67 lines
2.4 KiB
Text
# serial 6
|
|
|
|
# Copyright (C) 2009, 2010 Free Software Foundation, Inc.
|
|
#
|
|
# This file is free software; the Free Software Foundation
|
|
# gives unlimited permission to copy and/or distribute it,
|
|
# with or without modifications, as long as this notice is preserved.
|
|
|
|
AC_DEFUN([gl_FUNC_STAT],
|
|
[
|
|
AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles
|
|
AC_REQUIRE([gl_AC_DOS])
|
|
AC_REQUIRE([gl_SYS_STAT_H_DEFAULTS])
|
|
AC_CHECK_FUNCS_ONCE([lstat])
|
|
dnl mingw is the only known platform where stat(".") and stat("./") differ
|
|
AC_CACHE_CHECK([whether stat handles trailing slashes on directories],
|
|
[gl_cv_func_stat_dir_slash],
|
|
[AC_RUN_IFELSE(
|
|
[AC_LANG_PROGRAM(
|
|
[[#include <sys/stat.h>
|
|
]], [[struct stat st; return stat (".", &st) != stat ("./", &st);]])],
|
|
[gl_cv_func_stat_dir_slash=yes], [gl_cv_func_stat_dir_slash=no],
|
|
[case $host_os in
|
|
mingw*) gl_cv_func_stat_dir_slash="guessing no";;
|
|
*) gl_cv_func_stat_dir_slash="guessing yes";;
|
|
esac])])
|
|
dnl AIX 7.1, Solaris 9 mistakenly succeed on stat("file/")
|
|
dnl FreeBSD 7.2 mistakenly succeeds on stat("link-to-file/")
|
|
AC_CACHE_CHECK([whether stat handles trailing slashes on files],
|
|
[gl_cv_func_stat_file_slash],
|
|
[touch conftest.tmp
|
|
# Assume that if we have lstat, we can also check symlinks.
|
|
if test $ac_cv_func_lstat = yes; then
|
|
ln -s conftest.tmp conftest.lnk
|
|
fi
|
|
AC_RUN_IFELSE(
|
|
[AC_LANG_PROGRAM(
|
|
[[#include <sys/stat.h>
|
|
]], [[int result = 0;
|
|
struct stat st;
|
|
if (!stat ("conftest.tmp/", &st))
|
|
result |= 1;
|
|
#if HAVE_LSTAT
|
|
if (!stat ("conftest.lnk/", &st))
|
|
result |= 2;
|
|
#endif
|
|
return result;
|
|
]])],
|
|
[gl_cv_func_stat_file_slash=yes], [gl_cv_func_stat_file_slash=no],
|
|
[gl_cv_func_stat_file_slash="guessing no"])
|
|
rm -f conftest.tmp conftest.lnk])
|
|
case $gl_cv_func_stat_dir_slash in
|
|
*no) REPLACE_STAT=1
|
|
AC_DEFINE([REPLACE_FUNC_STAT_DIR], [1], [Define to 1 if stat needs
|
|
help when passed a directory name with a trailing slash]);;
|
|
esac
|
|
case $gl_cv_func_stat_file_slash in
|
|
*no) REPLACE_STAT=1
|
|
AC_DEFINE([REPLACE_FUNC_STAT_FILE], [1], [Define to 1 if stat needs
|
|
help when passed a file name with a trailing slash]);;
|
|
esac
|
|
if test $REPLACE_STAT = 1; then
|
|
AC_LIBOBJ([stat])
|
|
dnl Prerequisites of lib/stat.c.
|
|
AC_REQUIRE([AC_C_INLINE])
|
|
fi
|
|
])
|