dist/U/doublesize.U

   1 ?RCS: $Id$
   2 ?RCS:
   3 ?RCS: Copyright (c) 1991-1997, 2004-2006, Raphael Manfredi
   4 ?RCS:
   5 ?RCS: You may redistribute only under the terms of the Artistic License,
   6 ?RCS: as specified in the README file that comes with the distribution.
   7 ?RCS: You may reuse parts of this distribution only within the terms of
   8 ?RCS: that same Artistic License; a copy of which may be found at the root
   9 ?RCS: of the source tree for dist 4.0.
  10 ?RCS:
  11 ?RCS: $Log: doublesize.U,v $
  12 ?RCS: Revision 3.0.1.1  1994/10/29  16:17:06  ram
  13 ?RCS: patch36: added ?F: line for metalint file checking
  14 ?RCS:
  15 ?RCS: Revision 3.0  1993/08/18  12:08:06  ram
  16 ?RCS: Baseline for dist 3.0 netwide release.
  17 ?RCS:
  18 ?MAKE:doublesize: cat rm Myread +cc +ccflags
  19 ?MAKE:  -pick add $@ %<
  20 ?S:doublesize:
  21 ?S:     This variable contains the value of the DOUBLESIZE symbol, which
  22 ?S:     indicates to the C program how many bytes there are in a double.
  23 ?S:.
  24 ?C:DOUBLESIZE:
  25 ?C:     This symbol contains the size of a double, so that the C preprocessor
  26 ?C:     can make decisions based on it.
  27 ?C:.
  28 ?H:#define DOUBLESIZE $doublesize               /**/
  29 ?H:.
  30 ?F:!try
  31 : check for length of double
  32 echo " "
  33 case "$doublesize" in
  34 '')
  35         echo "Checking to see how big your double precision numbers are..." >&4
  36         $cat >try.c <<'EOCP'
  37 #include <stdio.h>
  38 int main()
  39 {
  40         printf("%d\n", sizeof(double));
  41 }
  42 EOCP
  43         if $cc $ccflags -o try try.c >/dev/null 2>&1 ; then
  44                 dflt=`./try`
  45         else
  46                 dflt='8'
  47                 echo "(I can't seem to compile the test program.  Guessing...)"
  48         fi
  49         ;;
  50 *)
  51         dflt="$doublesize"
  52         ;;
  53 esac
  54 rp="What is the size of a double precision number (in bytes)?"
  55 . ./myread
  56 doublesize="$ans"
  57 $rm -f try.c try
  58