U/compline/charsize.U

   1 ?RCS: $Id: charsize.U,v 3.0.1.1 1994/10/29 16:07:13 ram Exp $
   2 ?RCS:
   3 ?RCS: Copyright (c) 1991-1993, Raphael Manfredi
   4 ?RCS:
   5 ?RCS: You may redistribute only under the terms of the Artistic Licence,
   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 Licence; a copy of which may be found at the root
   9 ?RCS: of the source tree for dist 3.0.
  10 ?RCS:
  11 ?RCS: $Log: charsize.U,v $
  12 ?RCS: Revision 3.0.1.1  1994/10/29  16:07:13  ram
  13 ?RCS: patch36: added ?F: line for metalint file checking
  14 ?RCS:
  15 ?RCS: Revision 3.0  1993/08/18  12:05:34  ram
  16 ?RCS: Baseline for dist 3.0 netwide release.
  17 ?RCS:
  18 ?MAKE:charsize: cat rm_try Myread Compile run i_stdlib
  19 ?MAKE:  -pick add $@ %<
  20 ?S:charsize:
  21 ?S:     This variable contains the value of the CHARSIZE symbol, which
  22 ?S:     indicates to the C program how many bytes there are in a character.
  23 ?S:.
  24 ?C:CHARSIZE:
  25 ?C:     This symbol contains the size of a char, so that the C preprocessor
  26 ?C:     can make decisions based on it.
  27 ?C:.
  28 ?H:#define CHARSIZE $charsize           /**/
  29 ?H:.
  30 : check for length of character
  31 echo " "
  32 case "$charsize" in
  33 '')
  34         echo "Checking to see how big your characters are (hey, you never know)..." >&4
  35         $cat >try.c <<EOCP
  36 #include <stdio.h>
  37 #$i_stdlib I_STDLIB
  38 #ifdef I_STDLIB
  39 #include <stdlib.h>
  40 #endif
  41 int main()
  42 {
  43     printf("%d\n", (int)sizeof(char));
  44     exit(0);
  45 }
  46 EOCP
  47         set try
  48         if eval $compile_ok; then
  49                 dflt=`$run ./try`
  50         else
  51                 dflt='1'
  52                 echo "(I can't seem to compile the test program.  Guessing...)"
  53         fi
  54         ;;
  55 *)
  56         dflt="$charsize"
  57         ;;
  58 esac
  59 rp="What is the size of a character (in bytes)?"
  60 . ./myread
  61 charsize="$ans"
  62 $rm_try
  63