class CFPropertyList::Binary

def read_binary_array(fname,fd,length)
  ary = []
  # first: read object refs
  if(length != 0) then
    buff = fd.read(length * @object_ref_size)
    objects = buff.unpack(@object_ref_size == 1 ? "C*" : "n*")
    # now: read objects
    0.upto(length-1) do |i|
      object = read_binary_object_at(fname,fd,objects[i])
      ary.push object
    end
  end
  return CFArray.new(ary)
end