This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Configure: eliminate some left over debug output
[metaconfig.git] / dist / U / d_keepsig.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: d_keepsig.U,v $
12 ?RCS: Revision 3.0.1.4  1995/07/25  13:57:56  ram
13 ?RCS: patch56: made cc and ccflags optional dependencies
14 ?RCS:
15 ?RCS: Revision 3.0.1.3  1995/01/11  15:26:25  ram
16 ?RCS: patch45: protected "sh -c" within backquotes for Linux and SGI
17 ?RCS:
18 ?RCS: Revision 3.0.1.2  1994/10/29  16:13:59  ram
19 ?RCS: patch36: call ./bsd explicitly instead of relying on PATH
20 ?RCS:
21 ?RCS: Revision 3.0.1.1  1993/10/16  13:48:47  ram
22 ?RCS: patch12: comment for SIGNALS_KEPT was the other way round
23 ?RCS:
24 ?RCS: Revision 3.0  1993/08/18  12:06:26  ram
25 ?RCS: Baseline for dist 3.0 netwide release.
26 ?RCS:
27 ?MAKE:d_keepsig: cat Compile rm Guess contains echo n c Setvar run
28 ?MAKE:  -pick add $@ %<
29 ?S:d_keepsig:
30 ?S:     This variable contains the eventual value of the SIGNALS_KEPT symbol,
31 ?S:     which indicates to the C program if signal handlers need not reinstated
32 ?S:     after receipt of a signal.
33 ?S:.
34 ?C:SIGNALS_KEPT (PERSISTENT_SIGNAL):
35 ?C:     This symbol is defined if signal handlers needn't be reinstated after
36 ?C:     receipt of a signal.
37 ?C:.
38 ?H:#$d_keepsig SIGNALS_KEPT     /**/
39 ?H:.
40 ?F:!try !try.out
41 ?LINT:set d_keepsig
42 : see if signals are kept
43 val="$undef";
44 echo " "
45 echo "Checking to see if signal handlers stick around..." >&4
46 $cat >try.c <<'EOCP'
47 foo() {}
48
49 int main()
50 {
51         signal(2, foo);
52         kill(getpid(), 2);
53         kill(getpid(), 2);
54         printf("abc\n");
55 }
56 EOCP
57 set try
58 if eval $compile; then
59 ?X: On AIX a single ./try will not work (with ksh)
60 ?X: Backquotes required on Linux and SGI (prevents "ambiguous output redirect")
61 ?X: (reported by Xavier LeVourch <xavierl@eiffel.com>)
62         echo `sh -c $run ./try >try.out 2>/dev/null` >/dev/null
63         if $contains abc try.out >/dev/null 2>&1; then
64                 echo "Yes, they do."
65                 val="$define";
66         else
67                 echo "No, they don't."
68         fi
69 else
70         $echo $n "(I can't seem to compile the test program. Assuming $c"
71         if ./bsd; then
72                 echo "they do.)"
73                 val="$define"
74         else
75                 echo "they don't.)"
76         fi
77 fi
78 set d_keepsig
79 eval $setvar
80 $rm -f try*
81