class CFPropertyList::Binary

def data_to_binary(val)

Convert data value to binary format and add it to the object table

def data_to_binary(val)
  saved_object_count = @written_object_count
  @written_object_count += 1
  bdata = Binary.type_bytes("4", val.bytesize) # a is 1000, type indicator for data
  @object_table[saved_object_count] = bdata + val
  return saved_object_count
end