1 2const 3 RIPVERSION = 1; 4 5type 6 Pnetinfo = ^netinfo; 7 netinfo = record 8 rip_dst : sockaddr; 9 rip_metric : longint; 10 end; 11 12 Prip = ^rip; 13 rip = record 14 rip_cmd : u_char; 15 rip_vers : u_char; 16 rip_res1 : array[0..1] of u_char; 17 ripun : record 18 case longint of 19 0 : ( ru_nets : array[0..0] of netinfo ); 20 1 : ( ru_tracefile : array[0..0] of char ); 21 end; 22 end; 23 24 25const 26 RIPCMD_REQUEST = 1; 27 RIPCMD_RESPONSE = 2; 28 RIPCMD_TRACEON = 3; 29 RIPCMD_TRACEOFF = 4; 30 RIPCMD_MAX = 5; 31 32 ripcmds : array [0..RIPCMD_MAX-1] of pchar = ( ''#0, 'REQUEST', 'RESPONSE', 'TRACEON', 'TRACEOFF' ); 33 34const 35 HOPCNT_INFINITY = 16; 36 MAXPACKETSIZE = 512; 37 TIMER_RATE = 30; 38 SUPPLY_INTERVAL = 30; 39 MIN_WAITTIME = 2; 40 MAX_WAITTIME = 5; 41 EXPIRE_TIME = 180; 42 GARBAGE_TIME = 240; 43 44{ --------------------------------------------------------------------- 45 Borland compatibility types 46 ---------------------------------------------------------------------} 47 48// Type 49