Blame m4/ftello.m4

Packit Service a2489d
# ftello.m4 serial 13
Packit Service a2489d
dnl Copyright (C) 2007-2018 Free Software Foundation, Inc.
Packit Service a2489d
dnl This file is free software; the Free Software Foundation
Packit Service a2489d
dnl gives unlimited permission to copy and/or distribute it,
Packit Service a2489d
dnl with or without modifications, as long as this notice is preserved.
Packit Service a2489d
Packit Service a2489d
AC_DEFUN([gl_FUNC_FTELLO],
Packit Service a2489d
[
Packit Service a2489d
  AC_REQUIRE([gl_STDIO_H_DEFAULTS])
Packit Service a2489d
  AC_REQUIRE([AC_PROG_CC])
Packit Service a2489d
  AC_REQUIRE([gl_STDIN_LARGE_OFFSET])
Packit Service a2489d
  AC_REQUIRE([gl_SYS_TYPES_H])
Packit Service a2489d
Packit Service a2489d
  dnl Persuade glibc <stdio.h> to declare ftello().
Packit Service a2489d
  AC_REQUIRE([AC_USE_SYSTEM_EXTENSIONS])
Packit Service a2489d
Packit Service a2489d
  AC_CHECK_DECLS_ONCE([ftello])
Packit Service a2489d
  if test $ac_cv_have_decl_ftello = no; then
Packit Service a2489d
    HAVE_DECL_FTELLO=0
Packit Service a2489d
  fi
Packit Service a2489d
Packit Service a2489d
  AC_CACHE_CHECK([for ftello], [gl_cv_func_ftello],
Packit Service a2489d
    [
Packit Service a2489d
      AC_LINK_IFELSE(
Packit Service a2489d
        [AC_LANG_PROGRAM(
Packit Service a2489d
           [[#include <stdio.h>]],
Packit Service a2489d
           [[ftello (stdin);]])],
Packit Service a2489d
        [gl_cv_func_ftello=yes],
Packit Service a2489d
        [gl_cv_func_ftello=no])
Packit Service a2489d
    ])
Packit Service a2489d
  if test $gl_cv_func_ftello = no; then
Packit Service a2489d
    HAVE_FTELLO=0
Packit Service a2489d
  else
Packit Service a2489d
    if test $WINDOWS_64_BIT_OFF_T = 1; then
Packit Service a2489d
      REPLACE_FTELLO=1
Packit Service a2489d
    fi
Packit Service a2489d
    if test $gl_cv_var_stdin_large_offset = no; then
Packit Service a2489d
      REPLACE_FTELLO=1
Packit Service a2489d
    fi
Packit Service a2489d
    if test $REPLACE_FTELLO = 0; then
Packit Service a2489d
      dnl Detect bug on Solaris.
Packit Service a2489d
      dnl ftell and ftello produce incorrect results after putc that followed a
Packit Service a2489d
      dnl getc call that reached EOF on Solaris. This is because the _IOREAD
Packit Service a2489d
      dnl flag does not get cleared in this case, even though _IOWRT gets set,
Packit Service a2489d
      dnl and ftell and ftello look whether the _IOREAD flag is set.
Packit Service a2489d
      AC_REQUIRE([AC_CANONICAL_HOST])
Packit Service a2489d
      AC_CACHE_CHECK([whether ftello works],
Packit Service a2489d
        [gl_cv_func_ftello_works],
Packit Service a2489d
        [
Packit Service a2489d
          dnl Initial guess, used when cross-compiling or when /dev/tty cannot
Packit Service a2489d
          dnl be opened.
Packit Service a2489d
changequote(,)dnl
Packit Service a2489d
          case "$host_os" in
Packit Service a2489d
                      # Guess no on Solaris.
Packit Service a2489d
            solaris*) gl_cv_func_ftello_works="guessing no" ;;
Packit Service a2489d
                      # Guess yes on native Windows.
Packit Service a2489d
            mingw*)   gl_cv_func_ftello_works="guessing yes" ;;
Packit Service a2489d
                      # Guess yes otherwise.
Packit Service a2489d
            *)        gl_cv_func_ftello_works="guessing yes" ;;
Packit Service a2489d
          esac
Packit Service a2489d
changequote([,])dnl
Packit Service a2489d
          AC_RUN_IFELSE(
Packit Service a2489d
            [AC_LANG_SOURCE([[
Packit Service a2489d
#include <stdio.h>
Packit Service a2489d
#include <stdlib.h>
Packit Service a2489d
#include <string.h>
Packit Service a2489d
#define TESTFILE "conftest.tmp"
Packit Service a2489d
int
Packit Service a2489d
main (void)
Packit Service a2489d
{
Packit Service a2489d
  FILE *fp;
Packit Service a2489d
Packit Service a2489d
  /* Create a file with some contents.  */
Packit Service a2489d
  fp = fopen (TESTFILE, "w");
Packit Service a2489d
  if (fp == NULL)
Packit Service a2489d
    return 70;
Packit Service a2489d
  if (fwrite ("foogarsh", 1, 8, fp) < 8)
Packit Service a2489d
    { fclose (fp); return 71; }
Packit Service a2489d
  if (fclose (fp))
Packit Service a2489d
    return 72;
Packit Service a2489d
Packit Service a2489d
  /* The file's contents is now "foogarsh".  */
Packit Service a2489d
Packit Service a2489d
  /* Try writing after reading to EOF.  */
Packit Service a2489d
  fp = fopen (TESTFILE, "r+");
Packit Service a2489d
  if (fp == NULL)
Packit Service a2489d
    return 73;
Packit Service a2489d
  if (fseek (fp, -1, SEEK_END))
Packit Service a2489d
    { fclose (fp); return 74; }
Packit Service a2489d
  if (!(getc (fp) == 'h'))
Packit Service a2489d
    { fclose (fp); return 1; }
Packit Service a2489d
  if (!(getc (fp) == EOF))
Packit Service a2489d
    { fclose (fp); return 2; }
Packit Service a2489d
  if (!(ftell (fp) == 8))
Packit Service a2489d
    { fclose (fp); return 3; }
Packit Service a2489d
  if (!(ftell (fp) == 8))
Packit Service a2489d
    { fclose (fp); return 4; }
Packit Service a2489d
  if (!(putc ('!', fp) == '!'))
Packit Service a2489d
    { fclose (fp); return 5; }
Packit Service a2489d
  if (!(ftell (fp) == 9))
Packit Service a2489d
    { fclose (fp); return 6; }
Packit Service a2489d
  if (!(fclose (fp) == 0))
Packit Service a2489d
    return 7;
Packit Service a2489d
  fp = fopen (TESTFILE, "r");
Packit Service a2489d
  if (fp == NULL)
Packit Service a2489d
    return 75;
Packit Service a2489d
  {
Packit Service a2489d
    char buf[10];
Packit Service a2489d
    if (!(fread (buf, 1, 10, fp) == 9))
Packit Service a2489d
      { fclose (fp); return 10; }
Packit Service a2489d
    if (!(memcmp (buf, "foogarsh!", 9) == 0))
Packit Service a2489d
      { fclose (fp); return 11; }
Packit Service a2489d
  }
Packit Service a2489d
  if (!(fclose (fp) == 0))
Packit Service a2489d
    return 12;
Packit Service a2489d
Packit Service a2489d
  /* The file's contents is now "foogarsh!".  */
Packit Service a2489d
Packit Service a2489d
  return 0;
Packit Service a2489d
}]])],
Packit Service a2489d
            [gl_cv_func_ftello_works=yes],
Packit Service a2489d
            [gl_cv_func_ftello_works=no], [:])
Packit Service a2489d
        ])
Packit Service a2489d
      case "$gl_cv_func_ftello_works" in
Packit Service a2489d
        *yes) ;;
Packit Service a2489d
        *)
Packit Service a2489d
          REPLACE_FTELLO=1
Packit Service a2489d
          AC_DEFINE([FTELLO_BROKEN_AFTER_SWITCHING_FROM_READ_TO_WRITE], [1],
Packit Service a2489d
            [Define to 1 if the system's ftello function has the Solaris bug.])
Packit Service a2489d
          ;;
Packit Service a2489d
      esac
Packit Service a2489d
    fi
Packit Service a2489d
  fi
Packit Service a2489d
])
Packit Service a2489d
Packit Service a2489d
# Prerequisites of lib/ftello.c.
Packit Service a2489d
AC_DEFUN([gl_PREREQ_FTELLO],
Packit Service a2489d
[
Packit Service a2489d
  dnl Native Windows has the function _ftelli64. mingw hides it, but mingw64
Packit Service a2489d
  dnl makes it usable again.
Packit Service a2489d
  AC_CHECK_FUNCS([_ftelli64])
Packit Service a2489d
])