home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / perl560.zip / plan9 / plan9.c < prev    next >
C/C++ Source or Header  |  1999-07-20  |  3KB  |  135 lines
  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.