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

[hannes at gwydiondylan.org]

Author: hannes
Date: Sat Sep 23 23:40:49 2006
New Revision: 10910

Modified:
   trunk/libraries/packetizer/ipv4.dylan
   trunk/libraries/packetizer/module.dylan
Log:
Bug: 7299
*some defaults for udp, export udp-stuff

Modified: trunk/libraries/packetizer/ipv4.dylan
==============================================================================
--- trunk/libraries/packetizer/ipv4.dylan	(original)
+++ trunk/libraries/packetizer/ipv4.dylan	Sat Sep 23 23:40:49 2006
@@ -164,8 +164,9 @@
   summary "UDP port %= -> %=/%s", source-port, destination-port, compose(summary, payload);
   field source-port :: <2byte-big-endian-unsigned-integer>;
   field destination-port :: <2byte-big-endian-unsigned-integer>;
-  field length :: <2byte-big-endian-unsigned-integer>;
-  field checksum :: <2byte-big-endian-unsigned-integer>;
+  field length :: <2byte-big-endian-unsigned-integer>,
+    fixup: byte-offset(frame-size(frame.payload)) + 8;
+  field checksum :: <2byte-big-endian-unsigned-integer> = 0;
   variably-typed-field payload,
     end: frame.length * 8,
     type-function: payload-type(frame);

Modified: trunk/libraries/packetizer/module.dylan
==============================================================================
--- trunk/libraries/packetizer/module.dylan	(original)
+++ trunk/libraries/packetizer/module.dylan	Sat Sep 23 23:40:49 2006
@@ -17,6 +17,8 @@
   use date;
 
   // Add binding exports here.
+  export <udp-frame>, source-port, destination-port, length, checksum;
+
   export <ethernet-frame>, <ipv4-frame>,
     <ipv4-address>, <mac-address>, <ieee80211-frame>, <prism2-frame>,
     <logical-link-control>, <link-control>,