This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
First line of body should be descriptive comment
[metaconfig.git] / U / modified / d_getprotby.U
1 ?RCS: $Id: d_getprotby.U,v $
2 ?RCS:
3 ?RCS: Copyright (c) 1998 Andy Dougherty
4 ?RCS:
5 ?RCS: You may distribute under the terms of either the GNU General Public
6 ?RCS: License or the Artistic License, as specified in the README file.
7 ?RCS:
8 ?MAKE:d_getpbyname d_getpbynumber: Inlibc
9 ?MAKE:  -pick add $@ %<
10 ?S:d_getpbyname:
11 ?S:     This variable conditionally defines the HAS_GETPROTOBYNAME
12 ?S:     symbol, which indicates to the C program that the
13 ?S:     getprotobyname() routine is available to look up protocols
14 ?S:     by their name.
15 ?S:.
16 ?S:d_getpbynumber:
17 ?S:     This variable conditionally defines the HAS_GETPROTOBYNUMBER
18 ?S:     symbol, which indicates to the C program that the
19 ?S:     getprotobynumber() routine is available to look up protocols
20 ?S:     by their number.
21 ?S:.
22 ?C:HAS_GETPROTOBYNAME:
23 ?C:     This symbol, if defined, indicates that the getprotobyname()
24 ?C:     routine is available to look up protocols by their name.
25 ?C:.
26 ?C:HAS_GETPROTOBYNUMBER:
27 ?C:     This symbol, if defined, indicates that the getprotobynumber()
28 ?C:     routine is available to look up protocols by their number.
29 ?C:.
30 ?H:#$d_getpbyname HAS_GETPROTOBYNAME            /**/
31 ?H:#$d_getpbynumber HAS_GETPROTOBYNUMBER                /**/
32 ?H:.
33 ?LINT:set d_getpbyname d_getpbynumber
34 : Optional checks for getprotobyname and getprotobynumber
35
36 @if d_getpbyname || HAS_GETPROTOBYNAME
37 : see if getprotobyname exists
38 set getprotobyname d_getpbyname
39 eval $inlibc
40 @end
41
42 @if d_getpbynumber || HAS_GETPROTOBYNUMBER
43 : see if getprotobynumber exists
44 set getprotobynumber d_getpbynumber
45 eval $inlibc
46 @end
47