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