mt_racket 1.0.12a

data/lib/racket/l5/bootp.rb

@@ -0,0 +1,106 @@
+# $Id: bootp.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 L5
+# Bootstrap Protocol -- BOOTP
+#
+# RFC951 (http://www.faqs.org/rfcs/rfc951.html)
+class BOOTP < RacketPart
+  BOOTP_REQUEST = 1
+  BOOTP_REPLY = 2
+
+  # Message type
+  unsigned :type, 8 
+  # Hardware address type
+  unsigned :hwtype, 8, { :default => 1 }
+  # Hardware adddress length
+  unsigned :hwlen, 8, { :default => 6 }
+  # Hops between client and server
+  unsigned :hops, 8
+  # Transaction ID
+  unsigned :id, 32 
+  # Seceonds elapsed since client started trying to boot
+  unsigned :secs, 16
+  # Flags.  Generally unused
+  unsigned :flags, 16
+  # Client IP address
+  octets :cip, 32
+  # "Your" (client) IP address.
+  octets :yip, 32
+  # Server IP address
+  octets :sip, 32
+  # Gateway IP address
+  octets :gip, 32
+  # Client hardware address
+  hex_octets :chaddr, 128
+  # Optional server host name
+  text :server, 512
+  # Boot file name
+  text :file, 1024
+  # Payload
+  rest :payload
+
+  def add_option(number, value)
+    o = Racket::Misc::TLV.new(1,1)
+    o.type = number
+    o.value = value
+    o.length = value.length
+    @options << o.encode
+  end
+
+  def fix!
+    # tack on an EOL to the options
+    newpayload = @options.join + "\xff"
+   
+    # pad out to 64 bytes
+    while (newpayload.length != 64)
+      newpayload += "\x00"
+    end
+
+    self.payload = newpayload + self.payload
+  end
+
+  def to_s
+    puts "to_s"
+  end
+
+  def to_str
+    puts to_str
+  end
+
+  def initialize(*args)
+    @options = []
+    @options << "\x63\x82\x53\x63" # magic
+    super
+    @autofix = false
+  end
+
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l5/dns.rb

@@ -0,0 +1,110 @@
+# $Id: dns.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 L5
+# Domain Name System
+class DNS < RacketPart
+  # Transaction ID
+  unsigned :tx_id, 16
+  # Response
+  unsigned :response, 1
+  # Opcode
+  unsigned :opcode, 4
+  # Authoritative?
+  unsigned :authoritative, 1
+  # Truncated?
+  unsigned :truncated, 1
+  # Recursion Desired?
+  unsigned :recursion_d, 1
+  # Recursion Available?
+  unsigned :recursion_a, 1
+  # Reserved
+  unsigned :reserved, 1
+  # Answer authenticated?
+  unsigned :auth, 1
+  # Non-authenticated data OK?
+  unsigned :nonauth, 1
+  # Reply Code
+  unsigned :reply_code, 4
+  # Number of questions
+  unsigned :question_rr, 16
+  # Number of answer RR
+  unsigned :answer_rr, 16
+  # Number of authority RR
+  unsigned :authority_rr, 16
+  # Number of additional RR
+  unsigned :additional_rr, 16
+  rest :payload
+
+  def initialize(*args)
+    super
+  end
+
+  # Add an additional record.  Automatically increases +additional_rr+
+  def add_additional(name, type, klass)
+    self.payload += self.add_record(name, type, klass).encode
+    self.additional_rr += 1
+  end
+
+  # Add an answer record.  Automatically increases +answer_rr+
+  def add_answer(name, type, klass)
+    self.payload += self.add_record(name, type, klass).encode
+    self.answer_rr += 1
+  end
+
+  # Add an authority record.  Automatically increases +authority_rr+
+  # XXX: broken.  authns records are much more complicated than this.
+  def add_authority(name, type, klass)
+    self.payload += self.add_record(name, type, klass).encode
+    self.authority_rr += 1
+  end
+
+  # Add a question record.  Automatically increases +question_rr+
+  def add_question(name, type, klass)
+    self.payload += add_record(name, type, klass).encode
+    self.question_rr += 1
+  end
+
+private
+  def add_record(name, type, klass)
+    q = Racket::Misc::VT.new(2,2)
+    name.split(/\./).each do |p|
+      lv = Racket::Misc::LV.new(1)
+      lv.values << p
+      lv.lengths << p.length
+      q.value << lv.encode 
+    end
+    q.types << type
+    q.types << klass
+    q
+  end
+
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l5/hsrp.rb

@@ -0,0 +1,73 @@
+# $Id: hsrp.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 L5
+# Hot Standby Router Protocol: HSRP
+#
+# RFC2281 (http://www.faqs.org/rfcs/rfc2281.html)
+class HSRP < RacketPart
+  HSRP_HELLO = 0
+  HSRP_COUP = 1
+  HSRP_RESIGN = 2
+
+  HSRP_INITIAL = 0
+  HSRP_LEARN   = 1 
+  HSRP_LISTEN  = 2 
+  HSRP_SPEAK   = 4 
+  HSRP_STANDBY = 8
+  HSRP_ACTIVE  = 16
+
+  # Version of the HSRP message contained in this packet.  Defaults to 0
+  unsigned :version, 8
+  # Type of the HSRP message contained in this packet.
+  unsigned :opcode, 8
+  # Current state of the router sending the message
+  unsigned :state, 8
+  # Time between the hello messages that this router sends.  Obviously only 
+  # useful in hello messages
+  unsigned :hellotime, 8
+  # Length of time that this hello message should be considered valid.
+  # Obviously only useful in hello messages.
+  unsigned :holdtime, 8, { :default => 10 }
+  # Priority used to determine active and standby routers.  Higher priorities
+  # win, but a higher IP address wins in the event of a tie.
+  unsigned :priority, 8
+  # Standby group
+  unsigned :group, 8
+  # reserved, never used, should be 0
+  unsigned :reserved, 8
+  # Clear-text, 8-character reused password.  Defaults to 'cisco'
+  text :password, 64, { :default => 'cisco' }
+  # Virtual IP address used by this group
+  octets :vip, 32
+  # Payload.  Generally unused.
+  rest :payload
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l5/misc.rb

@@ -0,0 +1,35 @@
+# $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 L5
+  # Miscelaneous L3 helper methods
+  module Misc
+  end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/l5/nat-pmp.rb

@@ -0,0 +1,41 @@
+module Racket
+module L5
+# Network Address Translation Port Mapping Protocol (NAT-PMP)  
+#  
+# (http://tools.ietf.org/html/draft-cheshire-nat-pmp-03)
+#
+# Generic NAT-PMP which all NAT-PMP variants spawn.  This should never be used directly.
+class NATPMPGeneric < RacketPart
+  # Version
+  unsigned :version, 8
+  # Opcode 
+  unsigned :opcode, 8
+  rest :message
+
+  def initialize(*args)
+    super(*args)
+  end
+end
+
+# Send raw NATPMP packets of your own design
+class NATPMP < NATPMPGeneric
+  rest :payload
+end
+
+# NATPMP 
+class NATPMPMappingRequest < NATPMPGeneric
+  unsigned :reserved, 16
+  unsigned :internal_port, 16
+  unsigned :external_port, 16
+  unsigned :lifetime, 32
+  rest :payload
+
+  def initialize(*args)
+    super(*args)
+    self.version = 0
+    self.opcode = 1
+  end
+end
+end
+end
+## vim: set ts=2 et sw=2:

data/lib/racket/l5/ntp.rb

@@ -0,0 +1,59 @@
+# $Id: ntp.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 L5
+# Network time protocol
+class NTP < RacketPart
+  # Leap Indicator
+  unsigned :leap, 2
+  # Local Clock Status
+  unsigned :status, 6
+  # Reference Clock Type
+  unsigned :type, 8
+  # Local Clock Precision
+  unsigned :precision, 16
+  # Estimated Error
+  unsigned :error_est, 32
+  # Estimated Drift Rate
+  unsigned :drift_est, 32
+  # Reference Clock Identifier
+  unsigned :ref_clock, 32
+  # Reference Timestamp
+  unsigned :ref_ts, 64
+  # Originate Timestamp
+  unsigned :orig_ts, 64
+  # Receive Timestamp
+  unsigned :rec_ts, 64
+  # Transmit Timestamp
+  unsigned :tr_ts, 64
+  rest :payload
+end
+end
+end
+# vim: set ts=2 et sw=2:
+

data/lib/racket/l5.rb

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

data/lib/racket/misc/lv.rb

@@ -0,0 +1,108 @@
+# $Id: lv.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 Misc
+# Simple class to represent data structures that
+# consist of an arbitrary number of length value pairs.
+class LV
+  # An array containing the values parsed from this LV
+  attr_accessor :values
+  # The lengths of the values parsed from this LV
+  attr_accessor :lengths
+  # everything else
+  attr_accessor :rest
+
+  # Create a new LV object whose L sizes are specified in +args+
+  def initialize(*args)
+    @sizes = args
+    @values = []
+    @lengths = []
+  end 
+
+
+  def decode(data)
+    n = 0
+    values = []
+    lengths = []
+    @sizes.each do |s|
+      # XXX: raise an error here if there is not enough data to
+      # unpack this next LV
+      lengths[n] = data.unpack("#{punpack_string(s)}")[0]
+      data = data.slice(s, data.length)
+      values[n] = data.unpack("a#{lengths[n]}")[0]
+      data = data.slice(lengths[n], data.length)
+      n += 1
+    end
+
+    # data now contains "rest"
+    [lengths, values, data]
+  end
+  
+  def decode!(data)
+    @lengths, @values, @rest = self.decode(data)
+  end
+
+  def encode
+    n = 0
+    s = ""
+    @lengths.each do |l|
+      s << [l].pack("#{punpack_string(@sizes[n])}")
+      s << [@values[n]].pack("a#{l}")
+      n += 1
+    end
+    s
+  end
+
+  def to_s
+    encode
+  end
+
+  def to_str
+    encode
+  end
+
+private
+
+  def punpack_string(size)
+    s = ""
+    case size
+        when 1
+          s << "C"
+        when 2
+          s << "n"
+        when 4
+          s << "N"
+        else
+          raise ArgumentError, "Size #{s} not supported"
+      end
+    s
+  end
+end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/misc/misc.rb

@@ -0,0 +1,62 @@
+# $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.
+#
+module Racket
+module Misc
+  # Return a number that is at most size bits long
+  def Misc.randbits(size)
+    bits = 0
+    srand Time.now.usec
+    0.upto(size-1) {
+      bits <<= 1
+      bits |= rand(2)
+    }
+    bits
+  end
+
+  # Return a byte that is at most size bytes long
+  def Misc.randbytes(size)
+    bytes = 0
+    0.upto(size-1) {
+      bytes <<= 8
+      bytes |= randbits(8)
+    }
+    bytes
+  end
+
+  # Return a string that is at most size characters long
+  def Misc.randstring(size)
+    s = ""
+    0.upto(size-1) {
+      s += sprintf("%c", randbytes(1))
+    }
+    s.force_encoding("BINARY") if s.respond_to?(:force_encoding)
+    s
+  end
+end
+end
+# vim: set ts=2 et sw=2:

data/lib/racket/misc/orderedhash.rb

@@ -0,0 +1,63 @@
+# $Id: orderedhash.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 Misc
+# Simple ordered hash. 
+#
+# XXX: todo -- add a method for moving/shifting
+# members around
+class OrderedHash < Hash
+  def initialize
+    @keys = []
+  end
+
+  def []=(key, val)
+    @keys << key unless (self[key])
+    super
+  end
+
+  def delete(key)
+    @keys.delete(key)
+    super
+  end
+
+  def each
+    @keys.each { |k| yield k, self[k] }
+  end
+
+  def each_key
+    @keys.each { |k| yield k }
+  end
+
+  def each_value
+    @keys.each { |k| yield self[k] }
+  end
+end
+end
+end
+# vim: set ts=2 et sw=2: