This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Populate metaconfig branch.
[metaconfig.git] / dist-3.0at70b / mcon / U / d_sigvec.U
... / ...
CommitLineData
1?RCS: $Id: d_sigvec.U,v 3.0.1.1 1997/02/28 15:45:37 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: 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
54echo " "
55@if d_sigvectr || d_sigvec || HAS_SIGVEC || HAS_SIGVECTOR
56: see if sigvector exists -- since sigvec will match the substring
57if 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
61else
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
71fi
72
73@end
74@if d_sigintrp || HAS_SIGINTRP
75: see if we have siginterrupt
76set siginterrupt d_sigintrp
77eval $inlibc
78
79@end