plan9/plan9.c

   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 }