U/threads/d_gethostbyaddr_r.U

   1 ?RCS: $Id: d_gethostbyaddr_r.U,v 0RCS:
   2 ?RCS: Copyright (c) 2002,2003 Jarkko Hietaniemi
   3 ?RCS:
   4 ?RCS: You may distribute under the terms of either the GNU General Public
   5 ?RCS: License or the Artistic License, as specified in the README file.
   6 ?RCS:
   7 ?RCS: Generated by the reentr.pl from the Perl 5.8 distribution.
   8 ?RCS:
   9 ?MAKE:d_gethostbyaddr_r gethostbyaddr_r_proto: Inlibc Protochk Hasproto \
  10         i_systypes usethreads i_netdb extern_C
  11 ?MAKE:  -pick add $@ %<
  12 ?S:d_gethostbyaddr_r:
  13 ?S:     This variable conditionally defines the HAS_GETHOSTBYADDR_R symbol,
  14 ?S:     which indicates to the C program that the gethostbyaddr_r()
  15 ?S:     routine is available.
  16 ?S:.
  17 ?S:gethostbyaddr_r_proto:
  18 ?S:     This variable encodes the prototype of gethostbyaddr_r.
  19 ?S:     It is zero if d_gethostbyaddr_r is undef, and one of the
  20 ?S:     REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostbyaddr_r
  21 ?S:     is defined.
  22 ?S:.
  23 ?C:HAS_GETHOSTBYADDR_R:
  24 ?C:     This symbol, if defined, indicates that the gethostbyaddr_r routine
  25 ?C:     is available to gethostbyaddr re-entrantly.
  26 ?C:.
  27 ?C:GETHOSTBYADDR_R_PROTO:
  28 ?C:     This symbol encodes the prototype of gethostbyaddr_r.
  29 ?C:     It is zero if d_gethostbyaddr_r is undef, and one of the
  30 ?C:     REENTRANT_PROTO_T_ABC macros of reentr.h if d_gethostbyaddr_r
  31 ?C:     is defined.
  32 ?C:.
  33 ?H:#$d_gethostbyaddr_r HAS_GETHOSTBYADDR_R      /**/
  34 ?H:#define GETHOSTBYADDR_R_PROTO $gethostbyaddr_r_proto /**/
  35 ?H:.
  36 ?T:try hdrs d_gethostbyaddr_r_proto
  37 : see if gethostbyaddr_r exists
  38 set gethostbyaddr_r d_gethostbyaddr_r
  39 eval $inlibc
  40 case "$d_gethostbyaddr_r" in
  41 "$define")
  42         hdrs="$i_systypes sys/types.h define stdio.h $i_netdb netdb.h"
  43         case "$d_gethostbyaddr_r_proto:$usethreads" in
  44         ":define")      d_gethostbyaddr_r_proto=define
  45                 set d_gethostbyaddr_r_proto gethostbyaddr_r $hdrs
  46                 eval $hasproto ;;
  47         *)      ;;
  48         esac
  49         case "$d_gethostbyaddr_r_proto" in
  50         define)
  51         case "$gethostbyaddr_r_proto" in
  52         ''|0) try='int gethostbyaddr_r(const char*, size_t, int, struct hostent*, char*, size_t, struct hostent**, int*);'
  53         ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CWISBWRE ;;
  54         esac
  55         case "$gethostbyaddr_r_proto" in
  56         ''|0) try='struct hostent* gethostbyaddr_r(const char*, size_t, int, struct hostent*, char*, size_t, int, int*);'
  57         ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CWISBWIE ;;
  58         esac
  59         case "$gethostbyaddr_r_proto" in
  60         ''|0) try='struct hostent* gethostbyaddr_r(const char*, size_t, int, struct hostent*, char*, int, int*);'
  61         ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CWISBIE ;;
  62         esac
  63         case "$gethostbyaddr_r_proto" in
  64         ''|0) try='struct hostent* gethostbyaddr_r(const void*, size_t, int, struct hostent*, char*, int, int*);'
  65         ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_TWISBIE ;;
  66         esac
  67         case "$gethostbyaddr_r_proto" in
  68         ''|0) try='struct hostent* gethostbyaddr_r(const char*, int, int, struct hostent*, char*, int, int*);'
  69         ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CIISBIE ;;
  70         esac
  71         case "$gethostbyaddr_r_proto" in
  72         ''|0) try='struct hostent* gethostbyaddr_r(const char*, struct hostent*, char*, int, int*);'
  73         ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_CSBIE ;;
  74         esac
  75         case "$gethostbyaddr_r_proto" in
  76         ''|0) try='struct hostent* gethostbyaddr_r(const void*, struct hostent*, char*, int, int*);'
  77         ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=S_TSBIE ;;
  78         esac
  79         case "$gethostbyaddr_r_proto" in
  80         ''|0) try='int gethostbyaddr_r(const char*, size_t, int, struct hostent*, struct hostent_data*);'
  81         ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CWISD ;;
  82         esac
  83         case "$gethostbyaddr_r_proto" in
  84         ''|0) try='int gethostbyaddr_r(const char*, int, int, struct hostent*, struct hostent_data*);'
  85         ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CIISD ;;
  86         esac
  87         case "$gethostbyaddr_r_proto" in
  88         ''|0) try='int gethostbyaddr_r(const char*, int, int);'
  89         ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_CII ;;
  90         esac
  91         case "$gethostbyaddr_r_proto" in
  92         ''|0) try='int gethostbyaddr_r(const void*, socklen_t, int, struct hostent*, char*, size_t, struct hostent**, int*);'
  93         ./protochk "$extern_C $try" $hdrs && gethostbyaddr_r_proto=I_TsISBWRE ;;
  94         esac
  95         case "$gethostbyaddr_r_proto" in
  96         ''|0)   d_gethostbyaddr_r=undef
  97                 gethostbyaddr_r_proto=0
  98                 echo "Disabling gethostbyaddr_r, cannot determine prototype." >&4 ;;
  99         * )     case "$gethostbyaddr_r_proto" in
 100                 REENTRANT_PROTO*) ;;
 101                 *) gethostbyaddr_r_proto="REENTRANT_PROTO_$gethostbyaddr_r_proto" ;;
 102                 esac
 103                 echo "Prototype: $try" ;;
 104         esac
 105         ;;
 106         *)      case "$usethreads" in
 107                 define) echo "gethostbyaddr_r has no prototype, not using it." >&4 ;;
 108                 esac
 109                 d_gethostbyaddr_r=undef
 110                 gethostbyaddr_r_proto=0
 111                 ;;
 112         esac
 113         ;;
 114 *)      gethostbyaddr_r_proto=0
 115         ;;
 116 esac
 117