module FMOD
  module Core
    class Guid < Structure

      def initialize(address = nil)
        types = [TYPE_INT, TYPE_SHORT, TYPE_SHORT, [TYPE_CHAR, 8]]
        members = [:data1, :data2, :data3, :data4]
        super(address, types, members)
      end

      def data1
        [self[:data1]].pack('l').unpack1('L')
      end

      def data2
        [self[:data2]].pack('s').unpack1('S')
      end

      def data3
        [self[:data3]].pack('s').unpack1('S')
      end

      def data4
        self[:data4].pack('c*').unpack('C*')
      end

      def eql?(obj)
        if obj.is_a?(Guid)
          return false unless data1 == obj.data1
          return false unless data2 == obj.data2
          return false unless data3 == obj.data3
          return data4 == obj.data4
        end
        to_s.tr('-', '').casecmp(obj.to_s.tr('-', '')).zero?
      end

      def ==(obj)
        eql?(obj)
      end

      def to_s
        d4 = data4
        last = d4[2, 6].map { |byte| "%02X" % byte }.join
        "%08X-%04X-%04X-%02X%02X-#{last}" % [data1, data2, data3, d4[0], d4[1]]
      end
    end
  end
end