| 1 | /* sockadapt.c
|
|---|
| 2 | *
|
|---|
| 3 | * Author: Charles Bailey [email protected]
|
|---|
| 4 | * Last Revised: 4-Mar-1997
|
|---|
| 5 | *
|
|---|
| 6 | * This file should contain stubs for any of the TCP/IP functions perl5
|
|---|
| 7 | * requires which are not supported by your TCP/IP stack. These stubs
|
|---|
| 8 | * can attempt to emulate the routine in question, or can just return
|
|---|
| 9 | * an error status or cause perl to die.
|
|---|
| 10 | *
|
|---|
| 11 | * This version is set up for perl5 with UCX (or emulation) via
|
|---|
| 12 | * the DECCRTL or SOCKETSHR 0.9D.
|
|---|
| 13 | */
|
|---|
| 14 |
|
|---|
| 15 | #include "EXTERN.h"
|
|---|
| 16 | #include "perl.h"
|
|---|
| 17 |
|
|---|
| 18 | #if defined(__DECC) && defined(__DECC_VER) && (__DECC_VER >= 50200000)
|
|---|
| 19 | # define __sockadapt_my_hostent_t __struct_hostent_ptr32
|
|---|
| 20 | # define __sockadapt_my_netent_t __struct_netent_ptr32
|
|---|
| 21 | # define __sockadapt_my_servent_t __struct_servent_ptr32
|
|---|
| 22 | # define __sockadapt_my_addr_t __in_addr_t
|
|---|
| 23 | # define __sockadapt_my_name_t const char *
|
|---|
| 24 | #else
|
|---|
| 25 | # define __sockadapt_my_hostent_t struct hostent *
|
|---|
| 26 | # define __sockadapt_my_netent_t struct netent *
|
|---|
| 27 | # define __sockadapt_my_servent_t struct servent *
|
|---|
| 28 | # define __sockadapt_my_addr_t long
|
|---|
| 29 | # define __sockadapt_my_name_t char *
|
|---|
| 30 | #endif
|
|---|
| 31 |
|
|---|
| 32 | /* We have these on VMS 7.0 and above, or on Dec C 5.6 if it's providing */
|
|---|
| 33 | /* the 7.0 DECC RTL */
|
|---|
|
|---|
