class CFPropertyList::Binary

def date_to_binary(val)

Convert date value (apple format) to binary and adds it to the object table

def date_to_binary(val)
  val = val.getutc.to_f - CFDate::DATE_DIFF_APPLE_UNIX # CFDate is a real, number of seconds since 01/01/2001 00:00:00 GMT
  @object_table[@written_object_count] =
    (Binary.type_bytes(0b0011, 3) << [val].pack("d").reverse)
  @written_object_count += 1
  @written_object_count - 1
end