U/perl/uselfs.U

   1 ?RCS: $Id$
   2 ?RCS:
   3 ?RCS: Copyright (c) 1999 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:uselargefiles: Myread Oldconfig Setvar
   9 ?MAKE:  -pick add $@ %<
  10 ?Y:TOP
  11 ?S:uselargefiles:
  12 ?S:     This variable conditionally defines the USE_LARGE_FILES symbol,
  13 ?S:     and indicates that large file interfaces should be used when
  14 ?S:     available.  The use64bits symbol will also be turned on if necessary.
  15 ?S:.
  16 ?C:USE_LARGE_FILES:
  17 ?C:     This symbol, if defined, indicates that large file support
  18 ?C:     should be used when available.  The USE_64_BITS symbol will
  19 ?C:     also be turned on if necessary.
  20 ?C:.
  21 ?H:#$uselargefiles      USE_LARGE_FILES         /**/
  22 ?H:.
  23 ?LINT:set uselargefiles
  24 ?LINT:extern use64bits
  25 ?LINT:change use64bits
  26
  27 cat <<EOM
  28
  29 Perl can be built to understand large files (files larger than 2 gigabytes)
  30 on some systems.  To do so, Configure must be run with -Duselargefiles.
  31
  32 If this doesn't make any sense to you, just accept the default.
  33 EOM
  34 case "$uselargefiles" in
  35 "$define"|true|[yY]*) dflt='y' ;;
  36 *)      dflt='n' ;;
  37 esac
  38 rp='Try to understand large files?'
  39 . ./myread
  40 case "$ans" in
  41 y|Y)    val="$define" ;;
  42 *)      val="$undef"  ;;
  43 esac
  44 set uselargefiles
  45 eval $setvar
  46 case "$uselargefiles" in
  47 "$define") use64bits="$define" ;;
  48 esac
  49