File: ungetc.m4

package info (click to toggle)
prelude-lml 4.1.0-2
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 8,556 kB
  • sloc: ansic: 51,873; sh: 13,054; makefile: 177; python: 21
file content (59 lines) | stat: -rw-r--r-- 2,056 bytes parent folder | download | duplicates (2)
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
# ungetc.m4 serial 4
dnl Copyright (C) 2009-2017 Free Software Foundation, Inc.
dnl This file is free software; the Free Software Foundation
dnl gives unlimited permission to copy and/or distribute it,
dnl with or without modifications, as long as this notice is preserved.

AC_DEFUN_ONCE([gl_FUNC_UNGETC_WORKS],
[
  AC_REQUIRE([AC_PROG_CC])
  AC_REQUIRE([AC_CANONICAL_HOST]) dnl for cross-compiles

  AC_CACHE_CHECK([whether ungetc works on arbitrary bytes],
    [gl_cv_func_ungetc_works],
    [AC_RUN_IFELSE([AC_LANG_PROGRAM([[
#include <stdio.h>
      ]], [FILE *f;
           if (!(f = fopen ("conftest.tmp", "w+")))
             return 1;
           if (fputs ("abc", f) < 0)
             { fclose (f); return 2; }
           rewind (f);
           if (fgetc (f) != 'a')
             { fclose (f); return 3; }
           if (fgetc (f) != 'b')
             { fclose (f); return 4; }
           if (ungetc ('d', f) != 'd')
             { fclose (f); return 5; }
           if (ftell (f) != 1)
             { fclose (f); return 6; }
           if (fgetc (f) != 'd')
             { fclose (f); return 7; }
           if (ftell (f) != 2)
             { fclose (f); return 8; }
           if (fseek (f, 0, SEEK_CUR) != 0)
             { fclose (f); return 9; }
           if (ftell (f) != 2)
             { fclose (f); return 10; }
           if (fgetc (f) != 'c')
             { fclose (f); return 11; }
           fclose (f);
           remove ("conftest.tmp");])],
        [gl_cv_func_ungetc_works=yes], [gl_cv_func_ungetc_works=no],
        [case "$host_os" in
                   # Guess yes on glibc and bionic systems.
           *-gnu*|*-android*)
                   gl_cv_func_ungetc_works="guessing yes" ;;
                   # If we don't know, assume the worst.
           *)      gl_cv_func_ungetc_works="guessing no" ;;
         esac
        ])
    ])
  case "$gl_cv_func_ungetc_works" in
    *yes) ;;
    *)
      AC_DEFINE([FUNC_UNGETC_BROKEN], [1],
        [Define to 1 if ungetc is broken when used on arbitrary bytes.])
      ;;
  esac
])