mt_racket 1.0.12a

data/lib/racket/l2/eightotwodotthree.rb

@@ -0,0 +1,48 @@
+# $Id: eightotwodotthree.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 L2
+# 802.3 Ethernet.  Should always be followed by an LLC header
+class EightOTwoDotThree < RacketPart
+  # Destination MAC address
+  hex_octets :dst_mac, 48
+  # Source MAC address
+  hex_octets :src_mac, 48
+  # Length of the payload 
+  unsigned :payload_length, 16
+  # Payload
+  rest :payload
+
+  # Fix this layer up prior to sending.  For 802.3, just adjusts +length+
+  def fix!
+    self.payload_length = self.payload.length
+  end
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l2/ethernet.rb

@@ -0,0 +1,62 @@
+# $Id: ethernet.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 L2
+# Ethernet II (DIX v2.0)
+#
+# http://en.wikipedia.org/wiki/Ethernet_II_framing
+class Ethernet < RacketPart
+  ETHERTYPE_IPV4 = 0x0800
+  ETHERTYPE_ARP = 0x0806
+  ETHERTYPE_RARP = 0x8035
+  ETHERTYPE_APPLETALK = 0x809b
+  ETHERTYPE_AARP = 0x80f3
+  ETHERTYPE_8021Q = 0x8100
+  ETHERTYPE_IPX = 0x8137
+  ETHERTYPE_NOVELL = 0x8138
+  ETHERTYPE_IPV6 = 0x86DD
+  ETHERTYPE_MPLS_UNICAST = 0x8847
+  ETHERTYPE_MPLS_MULTICAST = 0x8848
+  ETHERTYPE_PPPOE_DISCOVERY = 0x8863
+  ETHERTYPE_PPPOE_SESSION = 0x8864
+  ETHERTYPE_8021X = 0x888E
+  ETHERTYPE_ATAOE = 0x88A2
+  ETHERTYPE_8021AE = 0x88E5
+
+  # Destination MAC address
+  hex_octets :dst_mac, 48
+  # Source MAC address
+  hex_octets :src_mac, 48
+  # Protocol of payload send with this ethernet datagram.  Defaults to IPV4
+  unsigned :ethertype, 16, { :default => ETHERTYPE_IPV4 }
+  # Payload
+  rest :payload
+end
+end
+end
+#set ts=2 et sw=2: vim

data/lib/racket/l2/llc.rb

@@ -0,0 +1,50 @@
+# $Id: llc.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 L2
+# Logical Link Control (http://en.wikipedia.org/wiki/Logical_Link_Control)
+class LLC < RacketPart
+  LLC_IBM_SNA = 0x04 
+  LLC_IP = 0x06
+  LLC_3COM = 0x80
+  LLC_SNAP = 0xAA
+  LLC_BANYAN = 0xBC
+  LLC_NOVELL = 0xE0
+  LLC_LANMAN = 0xF4
+  # Destination Service Access Point address
+  unsigned :dsap, 8, { :default => 0xaa }
+  # Source Service Access Point address
+  unsigned :ssap, 8, { :default => 0xaa }
+  # Control field
+  unsigned :control, 8
+  # Payload
+  rest :payload
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l2/misc.rb

@@ -0,0 +1,67 @@
+# $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 L2
+  # Miscelaneous L2 helper methods
+  module Misc
+
+  # given a string representing a MAC address, return the
+  # human readable form
+  def Misc.string2mac(string)
+    string.unpack("C*").map { |i| i.to_s(16).ljust(2,"0") }.join(":")
+  end
+
+  # given a MAC address, return the string representation
+  def Misc.mac2string(mac)
+    mac.split(":").map { |i| i.hex.chr }.join
+  end
+
+  # given a MAC address, return the long representation
+  def Misc.mac2long(addr)
+    long = 0
+    addr.split(':').map { |s| s.to_i(16) }.each do |o|
+      long = (long << 8) ^ o
+    end
+    long
+  end
+
+  # given a long representing a MAC address
+  # print it out in human readable form of a given length, 
+  # defaulting to 6 (ethernet)
+  def Misc.long2mac(long, len=6)
+    long.to_s(16).rjust(len*2, '0').unpack("a2"*len).join(":")
+  end
+  
+  # Return a random MAC, defaults to 6 bytes (ethernet)
+  def Misc.randommac(len=6)
+    long2mac(rand(2**(8*len)), len)
+  end
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l2/snap.rb

@@ -0,0 +1,40 @@
+# $Id: snap.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 L2
+# Subnetwork Access Protocl (http://en.wikipedia.org/wiki/Subnetwork_Access_Protocol)
+class SNAP < RacketPart
+  # Organizational code
+  unsigned :org, 24, { :default => 0x00000c }
+  # Protocol ID
+  unsigned :pid, 16
+  rest :payload
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l2/vlan.rb

@@ -0,0 +1,61 @@
+# $Id: vlan.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 L2
+# IEEE 802.1Q VLAN tag (http://en.wikipedia.org/wiki/IEEE_802.1Q)
+class VLAN < RacketPart
+  ETHERTYPE_IPV4 = 0x0800
+  ETHERTYPE_ARP = 0x0806
+  ETHERTYPE_RARP = 0x8035
+  ETHERTYPE_APPLETALK = 0x809b
+  ETHERTYPE_AARP = 0x80f3
+  ETHERTYPE_8021Q = 0x8100
+  ETHERTYPE_IPX = 0x8137
+  ETHERTYPE_NOVELL = 0x8138
+  ETHERTYPE_IPV6 = 0x86DD
+  ETHERTYPE_MPLS_UNICAST = 0x8847
+  ETHERTYPE_MPLS_MULTICAST = 0x8848
+  ETHERTYPE_PPPOE_DISCOVERY = 0x8863
+  ETHERTYPE_PPPOE_SESSION = 0x8864
+  ETHERTYPE_8021X = 0x888E
+  ETHERTYPE_ATAOE = 0x88A2
+  ETHERTYPE_8021AE = 0x88E5
+
+  # Frame priority level
+  unsigned :priority, 3
+  # Canonical format indicator
+  unsigned :cfi, 1
+  # VLAN ID
+  unsigned :id, 12
+  # L3 protocol type.  Defaults to IPV4
+  unsigned :type, 16, { :default => ETHERTYPE_IPV4 }
+  rest :payload
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l2/vtp.rb

@@ -0,0 +1,124 @@
+# $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 L2
+# VLAN Trunking Protocol (VTP)
+# http://en.wikipedia.org/wiki/VLAN_Trunking_Protocol
+# http://www.cisco.com/en/US/tech/tk389/tk689/technologies_tech_note09186a0080094c52.shtml
+# This is just a base class from which all VTP messages inherit and should never be used directly
+class VTPGeneric < RacketPart
+  # VTP version (1-3)
+  unsigned :version, 8 
+  # Message code (summary advertisement, subset advertisement, advertisement request, VTP join)
+  unsigned :code, 8 
+  # Sometimes used, sometimes not, depends on the type
+  unsigned :reserved, 8  
+  # Length of the management domain
+  unsigned :domain_length, 8
+  # management domain name, zero padded to 32 bytes
+  text :domain, 256
+
+  # Adjust +domain_length+ and +domain+ accordingly prior to sending
+  def fix!
+    self.domain_length = self.domain.length 
+    self.domain = self.domain.ljust(32, "\x00")
+  end
+end
+
+# A raw VTP message
+class VTPRaw < VTPGeneric
+  rest :payload
+end
+
+class VTPSubsetAdvertisement < VTPGeneric
+  # Configuration revision
+  unsigned :revision, 32
+  # all of the vlan info fields
+  rest :payload
+
+  def add_vlan_info(status, type, id, mtu, index, name)
+    name_length = name.length
+    # zero pad name to a multiple of 4 bytes
+    name = name.length % 4 == 0 ? name : name.ljust(name.length + (4 - (name.length % 4)), "\x00")
+    length = 12 + name.length
+    @vlan_info << [length, status, type, name_length, id, mtu, index, name]
+  end
+
+  def fix!
+    @vlan_info.each do |v|
+      self.payload += v.pack("CCCCnnNa*")
+    end
+    super
+  end
+
+  def initialize(*args)
+    @vlan_info = []
+    super(*args)
+    self.code = 2 
+  end
+end
+
+class VTPSummaryAdvertisement < VTPGeneric
+  # Configuration revision number
+  unsigned :revision, 32
+  # Updater identity (IP)
+  octets :updater, 32
+  # update timestamp
+  unsigned :timestamp, 96
+  # MD5 digest of VTP password
+  text :md5, 128 
+  rest :payload
+
+  def initialize(*args)
+    super(*args)
+    self.code = 1
+  end
+end
+
+class VTPAdvertisementRequest < VTPGeneric
+  # This is used in cases in which there are several subset advertisements. If the first (n) subset advertisement has been received and the subsequent one (n+1) has not been received, the Catalyst only requests advertisements from the (n+1)th one.
+  unsigned :start, 32
+  rest :payload
+  def initialize(*args)
+    super(*args)
+    self.code = 3
+  end
+
+end
+
+
+class VTPJoin < VTPGeneric
+  def initialize(*args)
+    super(*args)
+    self.code = 4
+  end
+end
+
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l2.rb

@@ -0,0 +1,30 @@
+# $Id: l2.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__), 'l2/*.rb')).each { |f| require f }
+
+# vim: set ts=2 et sw=2:

data/lib/racket/l3/arp.rb

@@ -0,0 +1,63 @@
+# $Id: arp.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
+# Address Resolution Protocol: ARP
+# RFC826 (http://www.faqs.org/rfcs/rfc826.html)
+class ARP < RacketPart
+  ARPOP_REQUEST = 0x0001
+  ARPOP_REPLY = 0x0002
+  
+  # Hardware type 
+  unsigned :htype, 16, { :default => 1 }
+  # Protocol type 
+  unsigned :ptype, 16, { :default => 0x0800 }
+  # Hardware address length
+  unsigned :hlen, 8, { :default => 6 }
+  # Protocol address length
+  unsigned :plen, 8, { :default => 4 }
+  # Opcode
+  unsigned :opcode, 16
+  # XXX: This is not entirely correct.  Technically, sha, spa, tha and
+  # tpa should be sized according to hlen and plen.  This is good enough for
+  # Ethernet and IPv4.
+
+  # Source hardware address
+  hex_octets :sha, 48
+  # Source protocol address
+  octets :spa, 32
+  # Target hardware address
+  hex_octets :tha, 48
+  # Target protcol address
+  octets :tpa, 32
+  # Payload
+  rest :payload
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l3/cdp.rb

@@ -0,0 +1,85 @@
+# $Id: cdp.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
+# CDP -- Cisco Discovery Protocol
+# http://www.cisco.biz/univercd/cc/td/doc/product/lan/trsrb/frames.htm#xtocid12
+class CDP < RacketPart
+  # CDP Version (generally 1)
+  unsigned :version, 8, { :default => 1 }
+  # Time-to-live of the data in this message
+  unsigned :ttl, 8
+  # Checksum
+  unsigned :checksum, 16
+  # Payload of this CDP message.  Generally untouched.
+  rest :payload
+  
+
+  def initialize(*args)
+    super(*args)
+  end
+
+  # Add a new field to this CDP message.
+  def add_field(type, value) 
+    t = Racket::Misc::TLV.new(2,2)
+    t.type = type
+    t.value = value
+    t.length = 4 + value.length
+    self.payload += 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 
+  
+  # Fix this CDP message up for sending.
+  def fix! 
+    self.checksum!
+  end 
+
+private
+
+  # Compute the checksum for this IP datagram
+  def compute_checksum
+    pseudo = []
+    pseudo << ((self.version << 8) | self.ttl)
+    pseudo << 0
+    pseudo << self.payload
+    L3::Misc.checksum(pseudo.pack("nna*"))
+  end 
+
+end
+end
+end
+# vim: set ts=2 et sw=2: