1 #include "EXTERN.h" 2 #include "perl.h" 3 4 /* Functions mentioned in <sys/socket.h> but not implemented */ 5 6 int getsockopt(int a, int b, int c, void *d, int *e) 7 { 8 croak("Function \"getsockopt\" not implemented in this version of perl."); 9 return (int)NULL; 10 } 11 12 int setsockopt(int a, int b, int c, void *d, int *e) 13 { 14 croak("Function \"setsockopt\" not implemented in this version of perl."); 15 return (int)NULL; 16 } 17 18 19 int recvmsg(int a, struct msghdr *b, int c) 20 { 21 croak("Function \"recvmsg\" not implemented in this version of perl."); 22 return (int)NULL; 23 } 24 25 int sendmsg(int a, struct msghdr *b, int c) 26 { 27 croak("Function \"sendmsg\" not implemented in this version of perl."); 28 return (int)NULL; 29 } 30 31 32 /* Functions mentioned in <netdb.h> but not implemented */ 33 struct netent *getnetbyname(const char *a) 34 { 35 croak("Function \"getnetbyname\" not implemented in this version of perl."); 36 return (struct netent *)NULL; 37 } 38 39 struct netent *getnetbyaddr(long a, int b) 40 { 41 croak("Function \"getnetbyaddr\" not implemented in this version of perl."); 42 return (struct netent *)NULL; 43 } 44 45 struct netent *getnetent() 46 { 47 croak("Function \"getnetent\" not implemented in this version of perl."); 48 return (struct netent *)NULL; 49 } 50 51 struct protoent *getprotobyname(const char *a) 52 { 53 croak("Function \"getprotobyname\" not implemented in this version of perl."); 54 return (struct protoent *)NULL; 55 } 56 57 struct protoent *getprotobynumber(int a) 58 { 59 croak("Function \"getprotobynumber\" not implemented in this version of perl."); 60 return (struct protoent *)NULL; 61 } 62 63 struct protoent *getprotoent() 64 { 65 croak("Function \"getprotoent\" not implemented in this version of perl."); 66 return (struct protoent *)NULL; 67 } 68 69 struct servent *getservbyport(int a, const char *b) 70 { 71 croak("Function \"getservbyport\" not implemented in this version of perl."); 72 return (struct servent *)NULL; 73 } 74 75 struct servent *getservent() 76 { 77 croak("Function \"getservent\" not implemented in this version of perl."); 78 return (struct servent *)NULL; 79 } 80 81 void sethostent(int a) 82 { 83 croak("Function \"sethostent\" not implemented in this version of perl."); 84 } 85 86 void setnetent(int a) 87 { 88 croak("Function \"setnetent\" not implemented in this version of perl."); 89 } 90 91 void setprotoent(int a) 92 { 93 croak("Function \"setprotoent\" not implemented in this version of perl."); 94 } 95 96 void setservent(int a) 97 { 98 croak("Function \"setservent\" not implemented in this version of perl."); 99 } 100 101 void endnetent() 102 { 103 croak("Function \"endnetent\" not implemented in this version of perl."); 104 } 105 106 void endprotoent() 107 { 108 croak("Function \"endprotoent\" not implemented in this version of perl."); 109 } 110 111 void endservent() 112 { 113 croak("Function \"endservent\" not implemented in this version of perl."); 114 } 115 116 int tcdrain(int) 117 { 118 croak("Function \"tcdrain\" not implemented in this version of perl."); 119 } 120 121 int tcflow(int, int) 122 { 123 croak("Function \"tcflow\" not implemented in this version of perl."); 124 } 125 126 int tcflush(int, int) 127 { 128 croak("Function \"tcflush\" not implemented in this version of perl."); 129 } 130 131 int tcsendbreak(int, int) 132 { 133 croak("Function \"tcsendbreak\" not implemented in this version of perl."); 134 } 135