U/perl/usequadmath.U

   1 ?RCS: You may distribute under the terms of either the GNU General Public
   2 ?RCS: License or the Artistic License, as specified in the README file.
   3 ?RCS:
   4 ?MAKE:usequadmath: Setvar cat uselongdouble
   5 ?MAKE:  -pick add $@ %<
   6 ?S:usequadmath:
   7 ?S:     This variable conditionally defines the USE_QUADMATH symbol,
   8 ?S:     and indicates that the quadmath library __float128 long doubles
   9 ?S:     should be used when available.
  10 ?S:.
  11 ?C:USE_QUADMATH:
  12 ?C:     This symbol, if defined, indicates that the quadmath library should
  13 ?C:     be used when available.
  14 ?C:.
  15 ?H:?%<:#ifndef USE_QUADMATH
  16 ?H:?%<:#$usequadmath    USE_QUADMATH            /**/
  17 ?H:?%<:#endif
  18 ?H:.
  19 : Check if quadmath is requested
  20 case "$usequadmath" in
  21 "$define"|true|[yY]*) usequadmath="$define" ;;
  22 *)                    usequadmath="$undef"  ;;
  23 esac
  24
  25 : Fail if both uselongdouble and usequadmath are requested
  26 case "$usequadmath:$uselongdouble" in
  27 define:define)
  28         $cat <<EOM >&4
  29
  30 *** You requested the use of the quadmath library and use
  31 *** of long doubles.
  32 ***
  33 *** Please select one or the other.
  34 EOM
  35         exit 1
  36         ;;
  37 esac
  38