outback 0.0.14 → 1.1.0

data/lib/vendor/mysql/packet.rb

@@ -0,0 +1,78 @@
+# coding: ascii-8bit
+class Mysql
+  class Packet
+    # convert Numeric to LengthCodedBinary
+    def self.lcb(num)
+      return "\xfb" if num.nil?
+      return [num].pack("C") if num < 251
+      return [252, num].pack("Cv") if num < 65536
+      return [253, num&0xffff, num>>16].pack("CvC") if num < 16777216
+      return [254, num&0xffffffff, num>>32].pack("CVV")
+    end
+
+    # convert String to LengthCodedString
+    def self.lcs(str)
+      str = Charset.to_binary str.dup
+      lcb(str.length)+str
+    end
+
+    def initialize(data)
+      @data = data
+    end
+
+    def lcb
+      return nil if @data.empty?
+      case v = utiny
+      when 0xfb
+        return nil
+      when 0xfc
+        return ushort
+      when 0xfd
+        c, v = utiny, ushort
+        return (v << 8)+c
+      when 0xfe
+        v1, v2 = ulong, ulong
+        return (v2 << 32)+v1
+      else
+        return v
+      end
+    end
+
+    def lcs
+      len = self.lcb
+      return nil unless len
+      @data.slice!(0, len)
+    end
+
+    def read(len)
+      @data.slice!(0, len)
+    end
+
+    def string
+      str = @data.unpack('Z*').first
+      @data.slice!(0, str.length+1)
+      str
+    end
+
+    def utiny
+      @data.slice!(0, 1).unpack('C').first
+    end
+
+    def ushort
+      @data.slice!(0, 2).unpack('v').first
+    end
+
+    def ulong
+      @data.slice!(0, 4).unpack('V').first
+    end
+
+    def eof?
+      @data[0] == ?\xfe && @data.length == 5
+    end
+
+    def to_s
+      @data
+    end
+
+  end
+end