home *** CD-ROM | disk | FTP | other *** search
/ Sprite 1984 - 1993 / Sprite 1984 - 1993.iso / lib / perl / netinet / tcp.ph < prev    next >
Encoding:
Text File  |  1991-08-12  |  979 b   |  40 lines
  1. if (!defined &_TCP) {
  2.     eval 'sub _TCP {1;}';
  3.     if (!defined &BYTE_ORDER) {
  4.     eval 'sub LITTLE_ENDIAN {1234;}';
  5.     eval 'sub BIG_ENDIAN {4321;}';
  6.     eval 'sub PDP_ENDIAN {3412;}';
  7.     if (defined &vax) {
  8.         eval 'sub BYTE_ORDER { &LITTLE_ENDIAN;}';
  9.     }
  10.     else {
  11.         eval 'sub BYTE_ORDER { &BIG_ENDIAN;}';
  12.     }
  13.     }
  14.     if ( &BYTE_ORDER ==  &LITTLE_ENDIAN) {
  15.     }
  16.     if ( &BYTE_ORDER ==  &BIG_ENDIAN) {
  17.     }
  18.     eval 'sub TH_FIN {0x01;}';
  19.     eval 'sub TH_SYN {0x02;}';
  20.     eval 'sub TH_RST {0x04;}';
  21.     eval 'sub TH_PUSH {0x08;}';
  22.     eval 'sub TH_ACK {0x10;}';
  23.     eval 'sub TH_URG {0x20;}';
  24.     eval 'sub TCPOPT_EOL {0;}';
  25.     eval 'sub TCPOPT_NOP {1;}';
  26.     eval 'sub TCPOPT_MAXSEG {2;}';
  27.     if (defined &lint) {
  28.     eval 'sub TCP_MSS {536;}';
  29.     }
  30.     else {
  31.     if (!defined &IP_MSS) {
  32.         eval 'sub IP_MSS {576;}';
  33.     }
  34.     eval 'sub TCP_MSS { &MIN(512,  &IP_MSS - $sizeof{\'struct tcpiphdr\'});}';
  35.     }
  36.     eval 'sub TCP_NODELAY {0x01;}';
  37.     eval 'sub TCP_MAXSEG {0x02;}';
  38. }
  39. 1;
  40.