This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Atari FreeMiNT: MiNT does not have .exe for _exe
[metaconfig.git] / U / modified / voidflags.U
1 ?RCS: $Id: voidflags.U,v 3.0.1.2 1997/02/28 16:27:58 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 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 3.0.
10 ?RCS:
11 ?RCS: $Log: voidflags.U,v $
12 ?RCS: Revision 3.0.1.2  1997/02/28  16:27:58  ram
13 ?RCS: patch61: don't prompt them if the void support is high enough for us
14 ?RCS:
15 ?RCS: Revision 3.0.1.1  1995/01/11  15:37:44  ram
16 ?RCS: patch45: cosmetic change to avoid spurious blank lines when using -s
17 ?RCS:
18 ?RCS: Revision 3.0  1993/08/18  12:10:01  ram
19 ?RCS: Baseline for dist 3.0 netwide release.
20 ?RCS:
21 ?MAKE:voidflags defvoidused: cat rm_try contains +cc +ccflags package \
22         Oldconfig Myread i_stdlib
23 ?MAKE:  -pick add $@ %<
24 ?S:voidflags:
25 ?S:     This variable contains the eventual value of the VOIDFLAGS symbol,
26 ?S:     which indicates how much support of the void type is given by this
27 ?S:     compiler.  See VOIDFLAGS for more info.
28 ?S:.
29 ?S:defvoidused:
30 ?S:     This variable contains the default value of the VOIDUSED symbol (15).
31 ?S:.
32 ?X:     Exceptionally, we have to explicitly alias the symbol name for
33 ?X: config_h.SH, otherwise the comment would not appear.
34 ?C:VOIDFLAGS ~ %<:
35 ?C:     This symbol indicates how much support of the void type is given by this
36 ?C:     compiler.  What various bits mean:
37 ?C:
38 ?C:         1 = supports declaration of void
39 ?C:         2 = supports arrays of pointers to functions returning void
40 ?C:         4 = supports comparisons between pointers to void functions and
41 ?C:                 addresses of void functions
42 ?C:         8 = supports declaration of generic void pointers
43 ?C:
44 ?C:     The package designer should define VOIDUSED to indicate the requirements
45 ?C:     of the package.  This can be done either by #defining VOIDUSED before
46 ?C:     including config.h, or by defining defvoidused in Myinit.U.  If the
47 ?C:     latter approach is taken, only those flags will be tested.  If the
48 ?C:     level of void support necessary is not present, defines void to int.
49 ?C:.
50 ?H:?%<:#ifndef VOIDUSED
51 ?H:?%<:#define VOIDUSED $defvoidused
52 ?H:?%<:#endif
53 ?H:?%<:#define VOIDFLAGS $voidflags
54 ?H:?%<:#if (VOIDFLAGS & VOIDUSED) != VOIDUSED
55 ?H:?%<:#define void int         /* is void to be avoided? */
56 ?H:?%<:#define M_VOID                   /* Xenix strikes again */
57 ?H:?%<:#endif
58 ?H:.
59 ?INIT:: full support for void wanted by default
60 ?INIT:defvoidused=15
61 ?INIT:
62 ?LINT:known void M_VOID VOIDUSED
63 : check for void type
64 echo " "
65 echo "Checking to see how well your C compiler groks the void type..." >&4
66 case "$voidflags" in
67 '')
68         $cat >try.c <<EOCP
69 #$i_stdlib I_STDLIB
70 #ifdef I_STDLIB
71 #include <stdlib.h>
72 #endif
73 #if TRY & 1
74 void sub() {
75 #else
76 sub() {
77 #endif
78         extern void moo();      /* function returning void */
79         void (*goo)();          /* ptr to func returning void */
80 #if TRY & 8
81         void *hue;              /* generic ptr */
82 #endif
83 #if TRY & 2
84         void (*foo[10])();
85 #endif
86
87 #if TRY & 4
88         if(goo == moo) {
89                 exit(0);
90         }
91 #endif
92         exit(0);
93 }
94 int main() { sub(); }
95 EOCP
96 ?X: This unit used to use cc -S in those tests to try to speed up things, but
97 ?X: unfortunately, AIX 3.2 does not support this option.
98         if $cc $ccflags -c -DTRY=$defvoidused try.c >.out 2>&1 ; then
99                 voidflags=$defvoidused
100         echo "Good.  It appears to support void to the level $package wants.">&4
101                 if $contains warning .out >/dev/null 2>&1; then
102                         echo "However, you might get some warnings that look like this:"
103                         $cat .out
104                 fi
105         else
106 echo "Hmm, your compiler has some difficulty with void. Checking further..." >&4
107                 if $cc $ccflags -c -DTRY=1 try.c >/dev/null 2>&1; then
108                         echo "It supports 1..."
109                         if $cc $ccflags -c -DTRY=3 try.c >/dev/null 2>&1; then
110                                 echo "It also supports 2..."
111                                 if $cc $ccflags -c -DTRY=7 try.c >/dev/null 2>&1; then
112                                         voidflags=7
113                                         echo "And it supports 4 but not 8 definitely."
114                                 else
115                                         echo "It doesn't support 4..."
116                                         if $cc $ccflags -c -DTRY=11 try.c >/dev/null 2>&1; then
117                                                 voidflags=11
118                                                 echo "But it supports 8."
119                                         else
120                                                 voidflags=3
121                                                 echo "Neither does it support 8."
122                                         fi
123                                 fi
124                         else
125                                 echo "It does not support 2..."
126                                 if $cc $ccflags -c -DTRY=13 try.c >/dev/null 2>&1; then
127                                         voidflags=13
128                                         echo "But it supports 4 and 8."
129                                 else
130                                         if $cc $ccflags -c -DTRY=5 try.c >/dev/null 2>&1; then
131                                                 voidflags=5
132                                                 echo "And it supports 4 but has not heard about 8."
133                                         else
134                                                 echo "However it supports 8 but not 4."
135                                         fi
136                                 fi
137                         fi
138                 else
139                         echo "There is no support at all for void."
140                         voidflags=0
141                 fi
142         fi
143 esac
144 ?X: Only prompt user if support does not match the level we want
145 case "$voidflags" in
146 "$defvoidused") ;;
147 *)      $cat >&4 <<'EOM'
148   Support flag bits are:
149     1: basic void declarations.
150     2: arrays of pointers to functions returning void.
151     4: operations between pointers to and addresses of void functions.
152     8: generic void pointers.
153 EOM
154         dflt="$voidflags";
155         rp="Your void support flags add up to what?"
156         . ./myread
157         voidflags="$ans"
158         ;;
159 esac
160 $rm_try
161