class CFPropertyList::Binary

def read_binary_real(fname,fd,length)
  raise CFFormatError.new("Real greater than 8 bytes: #{length}") if length > 3
  nbytes = 1 << length
  val = nil
  buff = fd.read(nbytes)
  case length
  when 0 then # 1 byte float? must be an error
    raise CFFormatError.new("got #{length+1} byte float, must be an error!")
  when 1 then # 2 byte float? must be an error
    raise CFFormatError.new("got #{length+1} byte float, must be an error!")
  when 2 then
    val = buff.reverse.unpack("f")
    val = val[0]
  when 3 then
    val = buff.reverse.unpack("d")
    val = val[0]
  end
  return CFReal.new(val)
end