This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Add the files from dist/meta to perl's repo
[metaconfig.git] / dist / U / d_sigvec.U
1 ?RCS: $Id: d_sigvec.U 1 2006-08-24 12:32:52Z rmanfredi $
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 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 4.0.
10 ?RCS:
11 ?RCS: $Log: d_sigvec.U,v $
12 ?RCS: Revision 3.0.1.1  1997/02/28  15:45:37  ram
13 ?RCS: patch61: there is now a separate routine for sigaction()
14 ?RCS:
15 ?RCS: Revision 3.0  1993/08/18  12:07:24  ram
16 ?RCS: Baseline for dist 3.0 netwide release.
17 ?RCS:
18 ?X: d_sigvec.U, from d_ftime.U 1.0
19 ?X:
20 ?MAKE:d_sigvec d_sigvectr d_sigintrp: Csym Inlibc Setvar
21 ?MAKE:  -pick add $@ %<
22 ?S:d_sigvec:
23 ?S:     This variable conditionally defines the HAS_SIGVEC symbol, which indicates
24 ?S:     that BSD reliable signals are supported.
25 ?S:.
26 ?S:d_sigvectr:
27 ?S:     This variable conditionally defines the HAS_SIGVECTOR symbol, which
28 ?S:     indicates that the sigvec() routine is called sigvector() instead, for
29 ?S:     reasons known only to Hewlett-Packard.
30 ?S:.
31 ?S:d_sigintrp:
32 ?S:     This variable conditionally defines the HAS_SIGINTRP symbol, which
33 ?S:     indicates that the siginterrupt() routine is available.
34 ?S:.
35 ?C:HAS_SIGVEC (SIGVEC):
36 ?C:     This symbol, if defined, indicates that BSD reliable signals are
37 ?C:     supported.
38 ?C:.
39 ?C:HAS_SIGVECTOR (SIGVECTOR):
40 ?C:     This symbol, if defined, indicates that the sigvec() routine is called
41 ?C:     sigvector() instead, and that sigspace() is provided instead of
42 ?C:     sigstack().  This is probably only true for HP-UX.
43 ?C:.
44 ?C:HAS_SIGINTRP (SIGINTRP):
45 ?C:     This symbol, if defined, indicates that the siginterrupt() routine
46 ?C:     is available.
47 ?C:.
48 ?H:#$d_sigvec HAS_SIGVEC        /**/
49 ?H:#$d_sigvectr HAS_SIGVECTOR   /**/
50 ?H:#$d_sigintrp HAS_SIGINTRP    /**/
51 ?H:.
52 ?T:val
53 ?LINT:set d_sigvec d_sigintrp
54 @if d_sigvectr || d_sigvec || HAS_SIGVEC || HAS_SIGVECTOR
55 : see if sigvector exists -- since sigvec will match the substring
56 echo " "
57 if set sigvector val -f d_sigvectr; eval $csym; $val; then
58         echo 'sigvector() found--you must be running HP-UX.' >&4
59         val="$define"; set d_sigvectr; eval $setvar
60         val="$define"; set d_sigvec; eval $setvar
61 else
62 : try the original name
63         d_sigvectr="$undef"
64         if set sigvec val -f d_sigvec; eval $csym; $val; then
65                 echo 'sigvec() found.' >&4
66                 val="$define"; set d_sigvec; eval $setvar
67         else
68                 echo 'sigvec() not found--race conditions with signals may occur.' >&4
69                 val="$undef"; set d_sigvec; eval $setvar
70         fi
71 fi
72
73 @end
74 @if d_sigintrp || HAS_SIGINTRP
75 : see if we have siginterrupt
76 set siginterrupt d_sigintrp
77 eval $inlibc
78
79 @end