class CFPropertyList::CFString

def quoted
  str = '"'
  @value.each_char do |c|
    str << case c
    when '"'
      '\\"'
    when '\\'
      '\\'
    when "\a"
      "\\a"
    when "\b"
      "\\b"
    when "\f"
      "\\f"
    when "\n"
      "\n"
    when "\v"
      "\\v"
    when "\r"
      "\\r"
    when "\t"
      "\\t"
    else
      c
    end
  end
  str << '"'
end