U/perl/d_faststdio.U

   1 ?RCS: $Id$
   2 ?RCS:
   3 ?RCS: Copyright (c) 2003 Jarkko Hietaniemi
   4 ?RCS:
   5 ?RCS: You may distribute under the terms of either the GNU General Public
   6 ?RCS: License or the Artistic License, as specified in the README file.
   7 ?RCS:
   8 ?MAKE:d_faststdio: Setvar \
   9         d_stdstdio d_stdio_ptr_lval d_stdio_cnt_lval d_stdio_ptr_lval_sets_cnt
  10 ?MAKE:  -pick add $@ %<
  11 ?S:d_faststdio:
  12 ?S:     This variable conditionally defines the HAS_FAST_STDIO symbol,
  13 ?S:     which indicates to the C program that the "fast stdio" is available
  14 ?S:     to manipulate the stdio buffers directly.
  15 ?S:.
  16 ?C:HAS_FAST_STDIO:
  17 ?C:     This symbol, if defined, indicates that the "fast stdio"
  18 ?C:     is available to manipulate the stdio buffers directly.
  19 ?C:.
  20 ?H:#$d_faststdio HAS_FAST_STDIO         /**/
  21 ?H:.
  22 ?LINT:set d_faststdio
  23 : see if fast_stdio exists
  24 val="$undef"
  25 case "$d_stdstdio:$d_stdio_ptr_lval" in
  26 "$define:$define")
  27         case "$d_stdio_cnt_lval$d_stdio_ptr_lval_sets_cnt" in
  28         *$define*)
  29                 echo "You seem to have 'fast stdio' to directly manipulate the stdio buffers." >& 4
  30                 val="$define"
  31                 ;;
  32         esac
  33         ;;
  34 esac
  35 set d_faststdio
  36 eval $setvar
  37
  38
  39