contrib/llvm/tools/lldb/source/DataFormatters/CF.cpp

   1 //===-- CF.cpp ----------------------------------------------------*- C++ -*-===//
   2 //
   3 //                     The LLVM Compiler Infrastructure
   4 //
   5 // This file is distributed under the University of Illinois Open Source
   6 // License. See LICENSE.TXT for details.
   7 //
   8 //===----------------------------------------------------------------------===//
   9
  10 #include "lldb/lldb-python.h"
  11
  12 #include "lldb/DataFormatters/CXXFormatterFunctions.h"
  13
  14 #include "lldb/Core/DataBufferHeap.h"
  15 #include "lldb/Core/Error.h"
  16 #include "lldb/Core/Stream.h"
  17 #include "lldb/Core/ValueObject.h"
  18 #include "lldb/Core/ValueObjectConstResult.h"
  19 #include "lldb/Host/Endian.h"
  20 #include "lldb/Symbol/ClangASTContext.h"
  21 #include "lldb/Target/ObjCLanguageRuntime.h"
  22 #include "lldb/Target/Target.h"
  23
  24 using namespace lldb;
  25 using namespace lldb_private;
  26 using namespace lldb_private::formatters;
  27
  28 bool
  29 lldb_private::formatters::CFAbsoluteTimeSummaryProvider (ValueObject& valobj, Stream& stream)
  30 {
  31     time_t epoch = GetOSXEpoch();
  32     epoch = epoch + (time_t)valobj.GetValueAsUnsigned(0);
  33     tm *tm_date = localtime(&epoch);
  34     if (!tm_date)
  35         return false;
  36     std::string buffer(1024,0);
  37     if (strftime (&buffer[0], 1023, "%Z", tm_date) == 0)
  38         return false;
  39     stream.Printf("%04d-%02d-%02d %02d:%02d:%02d %s", tm_date->tm_year+1900, tm_date->tm_mon+1, tm_date->tm_mday, tm_date->tm_hour, tm_date->tm_min, tm_date->tm_sec, buffer.c_str());
  40     return true;
  41 }
  42
  43 bool
  44 lldb_private::formatters::CFBagSummaryProvider (ValueObject& valobj, Stream& stream)
  45 {
  46     ProcessSP process_sp = valobj.GetProcessSP();
  47     if (!process_sp)
  48         return false;
  49
  50     ObjCLanguageRuntime* runtime = (ObjCLanguageRuntime*)process_sp->GetLanguageRuntime(lldb::eLanguageTypeObjC);
  51
  52     if (!runtime)
  53         return false;
  54
  55     ObjCLanguageRuntime::ClassDescriptorSP descriptor(runtime->GetClassDescriptor(valobj));
  56
  57     if (!descriptor.get() || !descriptor->IsValid())
  58         return false;
  59
  60     uint32_t ptr_size = process_sp->GetAddressByteSize();
  61
  62     lldb::addr_t valobj_addr = valobj.GetValueAsUnsigned(0);
  63
  64     if (!valobj_addr)
  65         return false;
  66
  67     uint32_t count = 0;
  68
  69     bool is_type_ok = false; // check to see if this is a CFBag we know about
  70     if (descriptor->IsCFType())
  71     {
  72         ConstString type_name(valobj.GetTypeName());
  73         if (type_name == ConstString("__CFBag") || type_name == ConstString("const struct __CFBag"))
  74         {
  75             if (valobj.IsPointerType())
  76                 is_type_ok = true;
  77         }
  78     }
  79
  80     if (is_type_ok == false)
  81     {
  82         StackFrameSP frame_sp(valobj.GetFrameSP());
  83         if (!frame_sp)
  84             return false;
  85         ValueObjectSP count_sp;
  86         StreamString expr;
  87         expr.Printf("(int)CFBagGetCount((void*)0x%" PRIx64 ")",valobj.GetPointerValue());
  88         if (process_sp->GetTarget().EvaluateExpression(expr.GetData(), frame_sp.get(), count_sp) != eExecutionCompleted)
  89             return false;
  90         if (!count_sp)
  91             return false;
  92         count = count_sp->GetValueAsUnsigned(0);
  93     }
  94     else
  95     {
  96         uint32_t offset = 2*ptr_size+4 + valobj_addr;
  97         Error error;
  98         count = process_sp->ReadUnsignedIntegerFromMemory(offset, 4, 0, error);
  99         if (error.Fail())
 100             return false;
 101     }
 102     stream.Printf("@\"%u value%s\"",
 103                   count,(count == 1 ? "" : "s"));
 104     return true;
 105 }
 106
 107 bool
 108 lldb_private::formatters::CFBitVectorSummaryProvider (ValueObject& valobj, Stream& stream)
 109 {
 110     ProcessSP process_sp = valobj.GetProcessSP();
 111     if (!process_sp)
 112         return false;
 113
 114     ObjCLanguageRuntime* runtime = (ObjCLanguageRuntime*)process_sp->GetLanguageRuntime(lldb::eLanguageTypeObjC);
 115
 116     if (!runtime)
 117         return false;
 118
 119     ObjCLanguageRuntime::ClassDescriptorSP descriptor(runtime->GetClassDescriptor(valobj));
 120
 121     if (!descriptor.get() || !descriptor->IsValid())
 122         return false;
 123
 124     uint32_t ptr_size = process_sp->GetAddressByteSize();
 125
 126     lldb::addr_t valobj_addr = valobj.GetValueAsUnsigned(0);
 127
 128     if (!valobj_addr)
 129         return false;
 130
 131     uint32_t count = 0;
 132
 133     bool is_type_ok = false; // check to see if this is a CFBag we know about
 134     if (descriptor->IsCFType())
 135     {
 136         ConstString type_name(valobj.GetTypeName());
 137         if (type_name == ConstString("__CFMutableBitVector") || type_name == ConstString("__CFBitVector") || type_name == ConstString("CFMutableBitVectorRef") || type_name == ConstString("CFBitVectorRef"))
 138         {
 139             if (valobj.IsPointerType())
 140                 is_type_ok = true;
 141         }
 142     }
 143
 144     if (is_type_ok == false)
 145         return false;
 146
 147     Error error;
 148     count = process_sp->ReadUnsignedIntegerFromMemory(valobj_addr+2*ptr_size, ptr_size, 0, error);
 149     if (error.Fail())
 150         return false;
 151     uint64_t num_bytes = count / 8 + ((count & 7) ? 1 : 0);
 152     addr_t data_ptr = process_sp->ReadPointerFromMemory(valobj_addr+2*ptr_size+2*ptr_size, error);
 153     if (error.Fail())
 154         return false;
 155     // make sure we do not try to read huge amounts of data
 156     if (num_bytes > 1024)
 157         num_bytes = 1024;
 158     DataBufferSP buffer_sp(new DataBufferHeap(num_bytes,0));
 159     num_bytes = process_sp->ReadMemory(data_ptr, buffer_sp->GetBytes(), num_bytes, error);
 160     if (error.Fail() || num_bytes == 0)
 161         return false;
 162     uint8_t *bytes = buffer_sp->GetBytes();
 163     for (int byte_idx = 0; byte_idx < num_bytes-1; byte_idx++)
 164     {
 165         uint8_t byte = bytes[byte_idx];
 166         bool bit0 = (byte & 1) == 1;
 167         bool bit1 = (byte & 2) == 2;
 168         bool bit2 = (byte & 4) == 4;
 169         bool bit3 = (byte & 8) == 8;
 170         bool bit4 = (byte & 16) == 16;
 171         bool bit5 = (byte & 32) == 32;
 172         bool bit6 = (byte & 64) == 64;
 173         bool bit7 = (byte & 128) == 128;
 174         stream.Printf("%c%c%c%c %c%c%c%c ",
 175                       (bit7 ? '1' : '0'),
 176                       (bit6 ? '1' : '0'),
 177                       (bit5 ? '1' : '0'),
 178                       (bit4 ? '1' : '0'),
 179                       (bit3 ? '1' : '0'),
 180                       (bit2 ? '1' : '0'),
 181                       (bit1 ? '1' : '0'),
 182                       (bit0 ? '1' : '0'));
 183         count -= 8;
 184     }
 185     {
 186         // print the last byte ensuring we do not print spurious bits
 187         uint8_t byte = bytes[num_bytes-1];
 188         bool bit0 = (byte & 1) == 1;
 189         bool bit1 = (byte & 2) == 2;
 190         bool bit2 = (byte & 4) == 4;
 191         bool bit3 = (byte & 8) == 8;
 192         bool bit4 = (byte & 16) == 16;
 193         bool bit5 = (byte & 32) == 32;
 194         bool bit6 = (byte & 64) == 64;
 195         bool bit7 = (byte & 128) == 128;
 196         if (count)
 197         {
 198             stream.Printf("%c",bit7 ? '1' : '0');
 199             count -= 1;
 200         }
 201         if (count)
 202         {
 203             stream.Printf("%c",bit6 ? '1' : '0');
 204             count -= 1;
 205         }
 206         if (count)
 207         {
 208             stream.Printf("%c",bit5 ? '1' : '0');
 209             count -= 1;
 210         }
 211         if (count)
 212         {
 213             stream.Printf("%c",bit4 ? '1' : '0');
 214             count -= 1;
 215         }
 216         if (count)
 217         {
 218             stream.Printf("%c",bit3 ? '1' : '0');
 219             count -= 1;
 220         }
 221         if (count)
 222         {
 223             stream.Printf("%c",bit2 ? '1' : '0');
 224             count -= 1;
 225         }
 226         if (count)
 227         {
 228             stream.Printf("%c",bit1 ? '1' : '0');
 229             count -= 1;
 230         }
 231         if (count)
 232             stream.Printf("%c",bit0 ? '1' : '0');
 233     }
 234     return true;
 235 }
 236
 237 bool
 238 lldb_private::formatters::CFBinaryHeapSummaryProvider (ValueObject& valobj, Stream& stream)
 239 {
 240     ProcessSP process_sp = valobj.GetProcessSP();
 241     if (!process_sp)
 242         return false;
 243
 244     ObjCLanguageRuntime* runtime = (ObjCLanguageRuntime*)process_sp->GetLanguageRuntime(lldb::eLanguageTypeObjC);
 245
 246     if (!runtime)
 247         return false;
 248
 249     ObjCLanguageRuntime::ClassDescriptorSP descriptor(runtime->GetClassDescriptor(valobj));
 250
 251     if (!descriptor.get() || !descriptor->IsValid())
 252         return false;
 253
 254     uint32_t ptr_size = process_sp->GetAddressByteSize();
 255
 256     lldb::addr_t valobj_addr = valobj.GetValueAsUnsigned(0);
 257
 258     if (!valobj_addr)
 259         return false;
 260
 261     uint32_t count = 0;
 262
 263     bool is_type_ok = false; // check to see if this is a CFBinaryHeap we know about
 264     if (descriptor->IsCFType())
 265     {
 266         ConstString type_name(valobj.GetTypeName());
 267         if (type_name == ConstString("__CFBinaryHeap") || type_name == ConstString("const struct __CFBinaryHeap"))
 268         {
 269             if (valobj.IsPointerType())
 270                 is_type_ok = true;
 271         }
 272     }
 273
 274     if (is_type_ok == false)
 275     {
 276         StackFrameSP frame_sp(valobj.GetFrameSP());
 277         if (!frame_sp)
 278             return false;
 279         ValueObjectSP count_sp;
 280         StreamString expr;
 281         expr.Printf("(int)CFBinaryHeapGetCount((void*)0x%" PRIx64 ")",valobj.GetPointerValue());
 282         if (process_sp->GetTarget().EvaluateExpression(expr.GetData(), frame_sp.get(), count_sp) != eExecutionCompleted)
 283             return false;
 284         if (!count_sp)
 285             return false;
 286         count = count_sp->GetValueAsUnsigned(0);
 287     }
 288     else
 289     {
 290         uint32_t offset = 2*ptr_size;
 291         Error error;
 292         count = process_sp->ReadUnsignedIntegerFromMemory(offset, 4, 0, error);
 293         if (error.Fail())
 294             return false;
 295     }
 296     stream.Printf("@\"%u item%s\"",
 297                   count,(count == 1 ? "" : "s"));
 298     return true;
 299 }