[Gd-chatter] r10857 - trunk/libraries/packetizer

[hannes at gwydiondylan.org]

Author: hannes
Date: Mon Aug 21 21:06:00 2006
New Revision: 10857

Modified:
   trunk/libraries/packetizer/ipv4.dylan
Log:
Bug: 7299
*implement <router-alert> ip-option

Modified: trunk/libraries/packetizer/ipv4.dylan
==============================================================================
--- trunk/libraries/packetizer/ipv4.dylan	(original)
+++ trunk/libraries/packetizer/ipv4.dylan	Mon Aug 21 21:06:00 2006
@@ -27,6 +27,7 @@
                9 => <strict-source-and-record-route-ip-option>;
                7 => <record-route-ip-option>;
                8 => <stream-id-ip-option>;
+               20 => <router-alert-ip-option>;
                otherwise => signal(make(<malformed-packet-error>))
              end;
         1 => select (ip-option-type.class)
@@ -43,6 +44,11 @@
    parse-frame(option-frame-type, packet, start: start);
 end;
 
+define protocol router-alert-ip-option (ip-option-frame)
+  field length :: <unsigned-byte> = 4;
+  field value :: <2byte-big-endian-unsigned-integer>;
+end;
+
 define protocol end-of-option-ip-option (ip-option-frame)
 end;