This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
Populate metaconfig branch.
[metaconfig.git] / U / protos / d_getservprotos.U
1 ?RCS: $Id: d_getservprotos.U,v $
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 ?MAKE:d_getservprotos : Hasproto i_netdb
12 ?MAKE:  -pick add $@ %<
13 ?S:d_getservprotos:
14 ?S:     This variable conditionally defines the HAS_GETSERV_PROTOS symbol,
15 ?S:     which indicates to the C program that <netdb.h> supplies
16 ?S:     prototypes for the various getserv*() functions.  
17 ?S:     See also netdbtype.U for probing for various netdb types.
18 ?S:.
19 ?C:HAS_GETSERV_PROTOS:
20 ?C:     This symbol, if defined, indicates that <netdb.h> includes
21 ?C:     prototypes for getservent(), getservbyname(), and
22 ?C:     getservbyaddr().  Otherwise, it is up to the program to guess
23 ?C:     them.  See netdbtype.U for probing for various Netdb_xxx_t types.
24 ?C:.
25 ?H:#$d_getservprotos    HAS_GETSERV_PROTOS      /**/
26 ?H:.
27 ?LINT:set d_getservprotos 
28 : see if prototypes for various getservxxx netdb.h functions are available
29 echo " "
30 set d_getservprotos getservent $i_netdb netdb.h
31 eval $hasproto
32