mt_racket 1.0.12a

data/lib/racket/l3/egp.rb

@@ -0,0 +1,53 @@
+# $Id$
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+module Racket
+module L3
+# Exterior Gateway protocol (EGP)
+# http://tools.ietf.org/html/rfc904
+# XXX: TODO, add support for tacking on the various message types
+class EGP < RacketPart
+  # EGP version
+  unsigned :version, 8
+  # Message type
+  unsigned :type, 8
+  # Message code (subtype)
+  unsigned :code, 8
+  # Message dependent status information
+  unsigned :status, 8
+  # Checksum
+  unsigned :checksum, 16
+  # assigned number identifying the particular autonomous system
+  unsigned :asn, 16
+  # Sequence number
+  unsigned :sequence, 16
+  # Payload
+  rest :payload
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l3/ipv4.rb

@@ -0,0 +1,132 @@
+# $Id: ipv4.rb 14 2008-03-02 05:42:30Z warchild $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+module Racket
+module L3
+# Internet Protcol Version 4 (IPV4)
+#
+# RFC791 (http://www.ietf.org/rfc/rfc791.txt)
+class IPv4 < RacketPart
+  # Version (defaults to 4)
+  unsigned :version, 4, { :default => 4 }
+  # Header length in multiples of 4 octets (defaults to 5)
+  unsigned :hlen, 4, { :default => 5 }
+  # Type of Service
+  unsigned :tos, 8
+  # Datagram length
+  unsigned :len, 16
+  # Identifier
+  unsigned :id, 16
+  # Flags
+  unsigned :flags, 3
+  # Fragmentation offset
+  unsigned :foffset, 13
+  # Time-to-live
+  unsigned :ttl, 8
+  # Protocol
+  unsigned :protocol, 8
+  # Checksum
+  unsigned :checksum, 16, "Checksum"
+  # Source IP address, passed as four octets separated by periods
+  # (192.168.1.2)
+  octets :src_ip, 32
+  # Destination IP address, passed as four octets separated by periods
+  # (192.168.1.2)
+  octets :dst_ip, 32
+  # Payload
+  rest :payload
+
+  def initialize(*args)
+    @options = []
+    super
+  end
+
+  # Add an IPv4 option to this IPv4 object.
+  # All rejiggering will happen when the call to fix! 
+  # happens automagically
+  def add_option(number, value)
+    t = Racket::Misc::TLV.new(1,1)
+    t.type = number
+    t.value = value
+    t.length = value.length + 2
+    @options << t.encode
+  end
+
+  # Check the checksum for this IP datagram
+  def checksum?
+    self.checksum == compute_checksum
+  end
+
+  # Compute and set the checksum for this IP datagram
+  def checksum!
+    self.checksum = compute_checksum
+  end
+
+  # Perform all the niceties necessary prior to sending
+  # this IP datagram out.  Append the options, update len and hlen,
+  # and fix the checksum.
+  def fix!
+    newpayload = @options.join
+    
+    # pad to a multiple of 32 bits
+    if (newpayload.length % 4 != 0) 
+      # fill the beginning as needed with NOPs
+      while (newpayload.length % 4 != 3)
+        newpayload = "\x01#{newpayload}"
+      end
+
+      # make sure the last byte is an EOL
+      if (newpayload.length % 4 == 3)
+        newpayload += "\x00"
+      end
+    end
+
+    self.payload = newpayload + self.payload
+    self.hlen += newpayload.length/4
+    self.len = self.payload.length + self.class.bit_length/8
+    self.checksum!
+  end
+
+ 
+private
+  # Compute the checksum for this IP datagram
+  def compute_checksum
+    pseudo = []
+    pseudo << ((((self.version << 4) | self.hlen) << 8) | self.tos)
+    pseudo << self.len
+    pseudo << self.id
+    pseudo << ((self.flags << 13) | self.foffset)
+    pseudo << ((self.ttl << 8) | self.protocol)
+    pseudo << 0 
+    pseudo << L3::Misc.ipv42long(self.src_ip)
+    pseudo << L3::Misc.ipv42long(self.dst_ip)
+    L3::Misc.checksum(pseudo.pack("nnnnnnNN"))
+  end
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l3/ipv6.rb

@@ -0,0 +1,66 @@
+# $Id: ipv6.rb 14 2008-03-02 05:42:30Z warchild $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+module Racket
+module L3
+# Internet Protocol Version 6 (IPV6)
+# RFC2460
+class IPv6 < RacketPart
+  # IP Version (defaults to 6)
+  unsigned :version, 4, { :default => 6 }
+  # Traffic class
+  unsigned :tclass, 8
+  # Flow label
+  unsigned :flow, 20
+  # Payload length
+  unsigned :plen, 16
+  # Next header type
+  unsigned :nhead, 8
+  # Hop limit
+  unsigned :ttl, 8, { :default => 200 }
+  # Source IP address.  Must be passed as an integer
+  unsigned :src_ip, 128
+  # Destination IP address.  Must be passed as an integer
+  unsigned :dst_ip, 128
+  # Payload
+  rest :payload
+
+  def initialize(*args)
+    @headers = []
+    super
+    @autofix = true
+  end
+
+  # Adjust plen to match the payload
+  def fix!
+    self.plen = self.payload.length
+  end
+
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l3/misc.rb

@@ -0,0 +1,159 @@
+# $Id: misc.rb 14 2008-03-02 05:42:30Z warchild $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+require 'ipaddr'
+module Racket
+module L3
+  # Miscelaneous L3 helper methods
+  module Misc
+    # given an IPv4 address packed as an integer
+    # return the friendly "dotted quad"
+    def Misc.long2ipv4(long)
+      quad = Array.new(4)
+      quad[0] = (long >> 24) & 255
+      quad[1] = (long >> 16) & 255
+      quad[2] = (long >> 8 ) & 255
+      quad[3] = long & 255
+      quad.join(".")
+    end
+
+    def Misc.randomipv4
+      Misc.long2ipv4(rand(2**32))
+    end
+    
+    # Compute link local address for a given mac address
+    # From Daniele Bellucci
+    def Misc.linklocaladdr(mac)
+      mac = mac.split(":")
+      mac[0] = (mac[0].to_i(16) ^ (1 << 1)).to_s(16)
+      ["fe80", "", mac[0,2].join, mac[2,2].join("ff:fe"), mac[4,2].join].join(":")
+    end
+    
+    # Given a long, convert it to an IPv6 address, 
+    # optionally compressing the address returned
+    def Misc.long2ipv6(long, compress=true)
+      ipv6 = []
+      ipv6[0] = long >> 112
+      ipv6[1] = (long >> 96) & (0xFFFF)
+      ipv6[2] = (long >> 80) & (0xFFFF)
+      ipv6[3] = (long >> 64) & (0xFFFF)
+      ipv6[4] = (long >> 48) & (0xFFFF)
+      ipv6[5] = (long >> 32) & (0xFFFF)
+      ipv6[6] = (long >> 16) & (0xFFFF)
+      ipv6[7] = long & (0xFFFF)
+
+      ipv6 = ipv6.map { |o| o.to_s(16) }.join(":")
+      compress ? Misc.compressipv6(ipv6) : ipv6
+    end
+
+    # Compress an IPv6 address
+    # Inspired by Daniele Bellucci and jacked from ipaddr
+    def Misc.compressipv6(ipv6)
+      ipv6.gsub!(/\b0{1,3}([\da-f]+)\b/i, '\1')
+      loop do
+        break if ipv6.sub!(/\A0:0:0:0:0:0:0:0\Z/, '::')
+        break if ipv6.sub!(/\b0:0:0:0:0:0:0\b/, ':')
+        break if ipv6.sub!(/\b0:0:0:0:0:0\b/, ':')
+        break if ipv6.sub!(/\b0:0:0:0:0\b/, ':')
+        break if ipv6.sub!(/\b0:0:0:0\b/, ':')
+        break if ipv6.sub!(/\b0:0:0\b/, ':')
+        break if ipv6.sub!(/\b0:0\b/, ':')
+        break
+      end
+
+      ipv6.sub!(/:{3,}/, '::')
+
+      if /\A::(ffff:)?([\da-f]{1,4}):([\da-f]{1,4})\Z/i =~ ipv6
+        ipv6 = sprintf('::%s%d.%d.%d.%d', $1, $2.hex / 256, $2.hex % 256, $3.hex / 256, $3.hex % 256)
+      end
+
+      ipv6
+    end
+
+    def Misc.randomipv6
+      Misc.long2ipv6(rand(2**128))
+    end
+
+    # given a string representing an IPv6
+    # address, return the integer representation
+    def Misc.ipv62long(ip)
+      IPAddr.new(ip).to_i
+    end
+
+    # In addition to the regular multicast addresses, each unicast address
+    # has a special multicast address called its solicited-node address. This
+    # address is created through a special mapping from the device’s unicast
+    # address. Solicited-node addresses are used by the IPv6 Neighbor
+    # Discovery (ND) protocol to provide more efficient address resolution
+    # than the ARP technique used in IPv4.  
+    # From Daniele Bellucci
+    def Misc.soll_mcast_addr6(addr)
+      h = addr.split(':')[-2, 2] 
+      m = []
+      m << 'ff'
+      m << (h[0].to_i(16) & 0xff).to_s(16)
+      m << ((h[1].to_i(16) & (0xff << 8)) >> 8).to_s(16)
+      m << (h[1].to_i(16) & 0xff).to_s(16)
+      'ff02::1:' + [m[0,2].join, m[2,2].join].join(':')
+    end
+    
+    # 
+    def Misc.soll_mcast_mac(addr)
+      h = addr.split(':')[-2, 2] 
+      m = []
+      m << 'ff'
+      m << (h[0].to_i(16) & 0xff).to_s(16)
+      m << ((h[1].to_i(16) & (0xff << 8)) >> 8).to_s(16)
+      m << (h[1].to_i(16) & 0xff).to_s(16)   
+      '33:33:' + m.join(':') 
+    end
+
+
+    # given a "dotted quad" representing an IPv4
+    # address, return the integer representation
+    def Misc.ipv42long(ip)
+      IPAddr.new(ip).to_i
+    end
+
+    # Calculate the checksum.  16 bit one's complement of the one's
+    # complement sum of all 16 bit words
+    def Misc.checksum(data)
+      checksum = 0
+      unpack = "S#{data.length / 2}#{data.length % 2 == 1 ? 'C' : ''}"
+
+      data.unpack(unpack).each { |x|
+        checksum += x
+      }
+
+      checksum = (checksum >> 16) + (checksum & 0xffff)
+      checksum = ~((checksum >> 16) + checksum) & 0xffff
+      ([checksum].pack("S*")).unpack("n*")[0]
+    end
+  end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l3/stp.rb

@@ -0,0 +1,81 @@
+# $Id: stp.rb 14 2008-03-02 05:42:30Z warchild $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+module Racket
+module L3
+# Spanning Tree Protocol
+#
+# http://en.wikipedia.org/wiki/Spanning_tree_protocol
+class STP < RacketPart
+  # Protocol identifier
+  unsigned :protocol, 16, { :default => 0 }
+  # Protocol version 
+  unsigned :version, 8, { :default => 2}
+  # BPDU type
+  unsigned :bpdu_type, 8, { :default => 2 }
+  # BPDU Flag -- Topology Change Acknowledgement
+  unsigned :bpdu_flag_change_ack, 1
+  # BPDU Flag -- Agreement
+  unsigned :bpdu_flag_agreement, 1
+  # BPDU Flag -- Forwarding
+  unsigned :bpdu_flag_forwarding, 1
+  # BPDU Flag -- Learning
+  unsigned :bpdu_flag_learning, 1
+  # BPDU Flag -- Port Role
+  unsigned :bpdu_flag_port_role, 2
+  # BPDU Flag -- Proposal
+  unsigned :bpdu_flag_proposal, 1
+  # BPDU Flag -- Topology Change
+  unsigned :bpdu_flag_change, 1
+  # Root wtf?  Not sure what this is XXX
+  unsigned :root_wtf, 16
+  # Root Identifier
+  hex_octets :root_id, 48
+  # Root Path Cost
+  unsigned :root_cost, 32
+  # Bridge WTF? Not sure what this is XXX
+  unsigned :bridge_wtf, 16
+  # Bridge Identifier
+  hex_octets :bridge_id, 48
+  # Port Identifier
+  unsigned :port_id, 16
+  # Message age
+  unsigned :msg_age, 16
+  # Max age
+  unsigned :max_age, 16
+  # Hello time
+  unsigned :hello_time, 16
+  # Forward delay
+  unsigned :forward_delay, 16
+  # Version 1 Length
+  unsigned :v1_len, 8
+  # Payload
+  rest :payload
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l3.rb

@@ -0,0 +1,30 @@
+# $Id: l3.rb 14 2008-03-02 05:42:30Z warchild $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+
+Dir.glob(File.join(File.dirname(__FILE__), 'l3/*.rb')).each { |f| require f }
+
+# vim: set ts=2 et sw=2:

data/lib/racket/l4/gre.rb

@@ -0,0 +1,65 @@
+# $Id: gre.rb 14 2008-03-02 05:42:30Z warchild $
+#
+# Copyright (c) 2008, Jon Hart 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+#     * Redistributions of source code must retain the above copyright
+#       notice, this list of conditions and the following disclaimer.
+#     * Redistributions in binary form must reproduce the above copyright
+#       notice, this list of conditions and the following disclaimer in the
+#       documentation and/or other materials provided with the distribution.
+#     * Neither the name of the <organization> nor the
+#       names of its contributors may be used to endorse or promote products
+#       derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY Jon Hart ``AS IS'' AND ANY
+# EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
+# WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
+# DISCLAIMED. IN NO EVENT SHALL Jon Hart BE LIABLE FOR ANY
+# DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
+# (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
+# LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
+# ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
+# (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
+# SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
+#
+module Racket
+module L4
+#     XXX: currently broken.  all of the "optional" fields must be made dynamic
+class GRE < RacketPart
+  # Is a checksum present?
+  unsigned :checksum_present, 1
+  # Is routing information present?
+  unsigned :routing_present, 1
+  # Is a key present?
+  unsigned :key_present, 1
+  # Is a sequence number present?
+  unsigned :seq_present, 1
+  # Strict source route
+  unsigned :ssr, 1
+  # How many additional encapsulations are present?
+  unsigned :recursion, 3
+  # Flags
+  unsigned :flags, 5
+  # Version
+  unsigned :version, 3
+  # Protocol type
+  unsigned :protocol, 16
+  # Checksum
+  unsigned :checksum, 16
+  # Offset
+  unsigned :offset, 16
+  # Key
+  unsigned :key, 32
+  # Sequence Number
+  unsigned :seq, 32
+  # Routing
+  unsigned :routing, 32
+  # Payload
+  rest :payload
+end
+end
+end
+# vim: set ts=2 et sw=2: