开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > TCP/IP协议栈 > 查看源码
PCBSD.C
资源名称：wattcp.rar　[点击查看]
上传用户：better800
上传日期：2022-06-13
资源大小：1853k
文件大小：2k
源码类别：

TCP/IP协议栈

开发平台：

DOS

PCBSD.C：源码内容
  1. #include <copyright.h>
  2. #include <stdio.h>
  3. #include <wattcp.h>
  4. #include <stdlib.h>    /* itoa */
  5. #include <string.h>
  6. #include <elib.h>
  8. /*
  9.  * PCBSD - provide some typical BSD UNIX functionality
  10.  * Erick Engelke, Feb 22, 1991
  11.  */
  13. /*
  14.  * chk_socket - determine whether a real socket or not
  15.  *
  16.  */
  17. int _chk_socket( sock_type *s )
  18. {
  19.     if ( s->tcp.ip_type == TCP_PROTO ) {
  20. if ( s->tcp.state <= tcp_StateCLOSED) /* skips invalid data */
  21.     return( 2 );
  22.     }
  23.     if ( s->udp.ip_type == UDP_PROTO ) return( 1 );
  24.     return( 0 );
  25. }
  27. char *inet_ntoa( char *s, longword x )
  28. {
  30.     itoa( (int) (x >> 24), s, 10 );
  31.     strcat( s, ".");
  32.     itoa( (int) (x >> 16) & 0xff, strchr( s, 0), 10);
  33.     strcat( s, ".");
  34.     itoa( (int) (x >> 8) & 0xff, strchr( s, 0), 10);
  35.     strcat( s, ".");
  36.     itoa( (int) (x) & 0xff, strchr( s, 0), 10);
  37.     return( s );
  38. }
  40. longword inet_addr( char *s )
  41. {
  42.     return( isaddr( s ) ? aton( s ) : 0 );
  43. }
  45. char *sockerr( sock_type *s )
  46. {
  47.     if ( strlen( s->tcp.err_msg ) < 80 )
  48. return( s->tcp.err_msg );
  49.     return( NULL );
  50. }
  52. #ifdef NOTUSED // S. Lawson - not even close anymore!
  53. static char *sock_states[] = {
  54.     "Listen","SynSent","SynRec","Established","FinWt1","FinWt2","ClosWt","LastAck"
  55.     "TmWt","Closed"};
  56. #else
  57. static char *sock_states[] = {
  58.     "Listen","SynSent","SynRcvd","Established","EstClosing","FinWait1",
  59.     "FinWait2","CloseWait","Closing","LastAck","TimeWait","CloseMSL",
  60.     "Closed"};
  61. #endif
  63. char *sockstate( sock_type *s )
  64. {
  65.     switch ( _chk_socket( s )) {
  66.        case  1 : return( "UDP Socket" );
  67.        case  2 : return( sock_states[ s->tcp.state ] );
  68.        default : return( "Not an active socket");
  69.     }
  70. }
  72. longword gethostid(void)
  73. {
  74.     return( my_ip_addr );
  75. }
  77. longword sethostid( longword ip )
  78. {
  79.     return( my_ip_addr = ip );
  80. }
  82. word ntohs( word a )
  83. {
  84.     return( intel16(a) );
  85. }
  87. word htons( word a )
  88. {
  89.     return( intel16(a) );
  90. }
  92. longword ntohl( longword x )
  93. {
  94.     return( intel( x ));
  95. }
  97. longword htonl( longword x )
  98. {
  99.     return( intel( x ));
  100. }