1 //===-- CommandObjectFrame.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 "CommandObjectFrame.h" 11 12 // C Includes 13 // C++ Includes 14 // Other libraries and framework includes 15 // Project includes 16 #include "lldb/Core/Debugger.h" 17 #include "lldb/Core/Module.h" 18 #include "lldb/Core/StreamFile.h" 19 #include "lldb/Core/Timer.h" 20 #include "lldb/Core/Value.h" 21 #include "lldb/Core/ValueObject.h" 22 #include "lldb/Core/ValueObjectVariable.h" 23 #include "lldb/Interpreter/Args.h" 24 #include "lldb/Interpreter/CommandInterpreter.h" 25 #include "lldb/Interpreter/CommandReturnObject.h" 26 #include "lldb/Interpreter/Options.h" 27 #include "lldb/Symbol/ClangASTType.h" 28 #include "lldb/Symbol/ClangASTContext.h" 29 #include "lldb/Symbol/ObjectFile.h" 30 #include "lldb/Symbol/SymbolContext.h" 31 #include "lldb/Symbol/Type.h" 32 #include "lldb/Symbol/Variable.h" 33 #include "lldb/Symbol/VariableList.h" 34 #include "lldb/Target/Process.h" 35 #include "lldb/Target/StackFrame.h" 36 #include "lldb/Target/Thread.h" 37 #include "lldb/Target/Target.h" 38 39 #include "CommandObjectThread.h" 40 41 using namespace lldb; 42 using namespace lldb_private; 43 44 #pragma mark CommandObjectFrameInfo 45 46 //------------------------------------------------------------------------- 47 // CommandObjectFrameInfo 48 //------------------------------------------------------------------------- 49 50 class CommandObjectFrameInfo : public CommandObject 51 { 52 public: 53 54 CommandObjectFrameInfo () : 55 CommandObject ("frame info", 56 "List information about the currently selected frame in the current thread.", 57 "frame info", 58 eFlagProcessMustBeLaunched | eFlagProcessMustBePaused) 59 { 60 } 61 62 ~CommandObjectFrameInfo () 63 { 64 } 65 66 bool 67 Execute (CommandInterpreter &interpreter, 68 Args& command, 69 CommandReturnObject &result) 70 { 71 ExecutionContext exe_ctx(interpreter.GetDebugger().GetExecutionContext()); 72 if (exe_ctx.frame) 73 { 74 exe_ctx.frame->Dump (&result.GetOutputStream(), true, false); 75 result.GetOutputStream().EOL(); 76 result.SetStatus (eReturnStatusSuccessFinishResult); 77 } 78 else 79 { 80 result.AppendError ("no current frame"); 81 result.SetStatus (eReturnStatusFailed); 82 } 83 return result.Succeeded(); 84 } 85 }; 86 87 #pragma mark CommandObjectFrameSelect 88 89 //------------------------------------------------------------------------- 90 // CommandObjectFrameSelect 91 //------------------------------------------------------------------------- 92 93 class CommandObjectFrameSelect : public CommandObject 94 { 95 public: 96 97 CommandObjectFrameSelect () : 98 CommandObject ("frame select", 99 //"Select the current frame by index in the current thread.", 100 "Select a frame by index from within the current thread and make it the current frame.", 101 "frame select <frame-index>", 102 eFlagProcessMustBeLaunched | eFlagProcessMustBePaused) 103 { 104 } 105 106 ~CommandObjectFrameSelect () 107 { 108 } 109 110 bool 111 Execute (CommandInterpreter &interpreter, 112 Args& command, 113 CommandReturnObject &result) 114 { 115 ExecutionContext exe_ctx (interpreter.GetDebugger().GetExecutionContext()); 116 if (exe_ctx.thread) 117 { 118 if (command.GetArgumentCount() == 1) 119 { 120 const char *frame_idx_cstr = command.GetArgumentAtIndex(0); 121 122 const uint32_t num_frames = exe_ctx.thread->GetStackFrameCount(); 123 const uint32_t frame_idx = Args::StringToUInt32 (frame_idx_cstr, UINT32_MAX, 0); 124 if (frame_idx < num_frames) 125 { 126 exe_ctx.thread->SetSelectedFrameByIndex (frame_idx); 127 exe_ctx.frame = exe_ctx.thread->GetSelectedFrame ().get(); 128 129 if (exe_ctx.frame) 130 { 131 bool already_shown = false; 132 SymbolContext frame_sc(exe_ctx.frame->GetSymbolContext(eSymbolContextLineEntry)); 133 if (interpreter.GetDebugger().UseExternalEditor() && frame_sc.line_entry.file && frame_sc.line_entry.line != 0) 134 { 135 already_shown = Host::OpenFileInExternalEditor (frame_sc.line_entry.file, frame_sc.line_entry.line); 136 } 137 138 if (DisplayFrameForExecutionContext (exe_ctx.thread, 139 exe_ctx.frame, 140 interpreter, 141 result.GetOutputStream(), 142 true, 143 !already_shown, 144 3, 145 3)) 146 { 147 result.SetStatus (eReturnStatusSuccessFinishResult); 148 return result.Succeeded(); 149 } 150 } 151 } 152 if (frame_idx == UINT32_MAX) 153 result.AppendErrorWithFormat ("Invalid frame index: %s.\n", frame_idx_cstr); 154 else 155 result.AppendErrorWithFormat ("Frame index (%u) out of range.\n", frame_idx); 156 } 157 else 158 { 159 result.AppendError ("invalid arguments"); 160 result.AppendErrorWithFormat ("Usage: %s\n", m_cmd_syntax.c_str()); 161 } 162 } 163 else 164 { 165 result.AppendError ("no current thread"); 166 } 167 result.SetStatus (eReturnStatusFailed); 168 return false; 169 } 170 }; 171 172 #pragma mark CommandObjectFrameVariable 173 //---------------------------------------------------------------------- 174 // List images with associated information 175 //---------------------------------------------------------------------- 176 class CommandObjectFrameVariable : public CommandObject 177 { 178 public: 179 180 class CommandOptions : public Options 181 { 182 public: 183 184 CommandOptions () : 185 Options() 186 { 187 ResetOptionValues (); 188 } 189 190 virtual 191 ~CommandOptions () 192 { 193 } 194 195 virtual Error 196 SetOptionValue (int option_idx, const char *option_arg) 197 { 198 Error error; 199 bool success; 200 char short_option = (char) m_getopt_table[option_idx].val; 201 switch (short_option) 202 { 203 case 'o': use_objc = true; break; 204 case 'n': name = option_arg; break; 205 case 'r': use_regex = true; break; 206 case 'a': show_args = false; break; 207 case 'l': show_locals = false; break; 208 case 'g': show_globals = true; break; 209 case 't': show_types = false; break; 210 case 'y': show_summary = false; break; 211 case 'L': show_location= true; break; 212 case 'c': show_decl = true; break; 213 case 'D': debug = true; break; 214 case 'd': 215 max_depth = Args::StringToUInt32 (option_arg, UINT32_MAX, 0, &success); 216 if (!success) 217 error.SetErrorStringWithFormat("Invalid max depth '%s'.\n", option_arg); 218 break; 219 220 case 'p': 221 ptr_depth = Args::StringToUInt32 (option_arg, 0, 0, &success); 222 if (!success) 223 error.SetErrorStringWithFormat("Invalid pointer depth '%s'.\n", option_arg); 224 break; 225 226 case 'G': 227 globals.push_back(ConstString (option_arg)); 228 break; 229 230 case 's': 231 show_scope = true; 232 break; 233 234 default: 235 error.SetErrorStringWithFormat("Invalid short option character '%c'.\n", short_option); 236 break; 237 } 238 239 return error; 240 } 241 242 void 243 ResetOptionValues () 244 { 245 Options::ResetOptionValues(); 246 247 name.clear(); 248 use_objc = false; 249 use_regex = false; 250 show_args = true; 251 show_locals = true; 252 show_globals = false; 253 show_types = true; 254 show_scope = false; 255 show_summary = true; 256 show_location = false; 257 show_decl = false; 258 debug = false; 259 max_depth = UINT32_MAX; 260 ptr_depth = 0; 261 globals.clear(); 262 } 263 264 const lldb::OptionDefinition* 265 GetDefinitions () 266 { 267 return g_option_table; 268 } 269 270 // Options table: Required for subclasses of Options. 271 272 static lldb::OptionDefinition g_option_table[]; 273 std::string name; 274 bool use_objc:1, 275 use_regex:1, 276 show_args:1, 277 show_locals:1, 278 show_globals:1, 279 show_types:1, 280 show_scope:1, 281 show_summary:1, 282 show_location:1, 283 show_decl:1, 284 debug:1; 285 uint32_t max_depth; // The depth to print when dumping concrete (not pointers) aggreate values 286 uint32_t ptr_depth; // The default depth that is dumped when we find pointers 287 std::vector<ConstString> globals; 288 // Instance variables to hold the values for command options. 289 }; 290 291 CommandObjectFrameVariable () : 292 CommandObject ( 293 "frame variable", 294 "Show specified argument, local variable, static variable or global variable for the current frame. If none specified, list them all.", 295 "frame variable [<cmd-options>] [<var-name1> [<var-name2>...]]") 296 { 297 } 298 299 virtual 300 ~CommandObjectFrameVariable () 301 { 302 } 303 304 virtual 305 Options * 306 GetOptions () 307 { 308 return &m_options; 309 } 310 311 void 312 DumpVariable (CommandReturnObject &result, ExecutionContext *exe_ctx, Variable *variable) 313 { 314 if (variable) 315 { 316 Stream &s = result.GetOutputStream(); 317 DWARFExpression &expr = variable->LocationExpression(); 318 Value expr_result; 319 Error expr_error; 320 Type *variable_type = variable->GetType(); 321 bool expr_success = expr.Evaluate(exe_ctx, NULL, NULL, expr_result, &expr_error); 322 323 if (m_options.debug) 324 s.Printf ("Variable{0x%8.8x}: ", variable->GetID()); 325 326 if (!expr_success) 327 s.Printf ("%s = ERROR: %s\n", variable->GetName().AsCString(NULL), expr_error.AsCString()); 328 else 329 { 330 Value::ValueType expr_value_type = expr_result.GetValueType(); 331 switch (expr_value_type) 332 { 333 case Value::eValueTypeScalar: 334 s.Printf ("%s = ", variable->GetName().AsCString(NULL)); 335 if (variable_type) 336 { 337 DataExtractor data; 338 if (expr_result.ResolveValue (exe_ctx, NULL).GetData (data)) 339 variable_type->DumpValue (exe_ctx, &s, data, 0, m_options.show_types, m_options.show_summary, m_options.debug); 340 } 341 break; 342 343 case Value::eValueTypeFileAddress: 344 case Value::eValueTypeLoadAddress: 345 case Value::eValueTypeHostAddress: 346 { 347 s.Printf ("%s = ", variable->GetName().AsCString(NULL)); 348 lldb::addr_t addr = LLDB_INVALID_ADDRESS; 349 lldb::AddressType addr_type = eAddressTypeLoad; 350 351 if (expr_value_type == Value::eValueTypeFileAddress) 352 { 353 lldb::addr_t file_addr = expr_result.ResolveValue (exe_ctx, NULL).ULongLong(LLDB_INVALID_ADDRESS); 354 SymbolContext var_sc; 355 variable->CalculateSymbolContext(&var_sc); 356 if (var_sc.module_sp) 357 { 358 ObjectFile *objfile = var_sc.module_sp->GetObjectFile(); 359 if (objfile) 360 { 361 Address so_addr(file_addr, objfile->GetSectionList()); 362 addr = so_addr.GetLoadAddress(exe_ctx->process); 363 } 364 if (addr == LLDB_INVALID_ADDRESS) 365 { 366 result.GetErrorStream().Printf ("error: %s is not loaded\n", 367 var_sc.module_sp->GetFileSpec().GetFilename().AsCString()); 368 } 369 } 370 else 371 { 372 result.GetErrorStream().Printf ("error: unable to resolve the variable address 0x%llx\n", file_addr); 373 } 374 } 375 else 376 { 377 if (expr_value_type == Value::eValueTypeHostAddress) 378 addr_type = eAddressTypeHost; 379 addr = expr_result.ResolveValue (exe_ctx, NULL).ULongLong(LLDB_INVALID_ADDRESS); 380 } 381 382 if (addr != LLDB_INVALID_ADDRESS) 383 { 384 if (m_options.debug) 385 s.Printf("@ 0x%8.8llx, value = ", addr); 386 variable_type->DumpValueInMemory (exe_ctx, &s, addr, addr_type, m_options.show_types, m_options.show_summary, m_options.debug); 387 } 388 } 389 break; 390 } 391 s.EOL(); 392 } 393 } 394 } 395 396 void 397 DumpValueObject (CommandReturnObject &result, 398 ExecutionContextScope *exe_scope, 399 ValueObject *valobj, 400 const char *root_valobj_name, 401 uint32_t ptr_depth, 402 uint32_t curr_depth, 403 uint32_t max_depth, 404 bool use_objc) 405 { 406 if (valobj) 407 { 408 Stream &s = result.GetOutputStream(); 409 410 //const char *loc_cstr = valobj->GetLocationAsCString(); 411 if (m_options.show_location) 412 { 413 s.Printf("@ %s: ", valobj->GetLocationAsCString(exe_scope)); 414 } 415 if (m_options.debug) 416 s.Printf ("%p ValueObject{%u} ", valobj, valobj->GetID()); 417 418 s.Indent(); 419 420 if (m_options.show_types) 421 s.Printf("(%s) ", valobj->GetTypeName().AsCString()); 422 423 const char *name_cstr = root_valobj_name ? root_valobj_name : valobj->GetName().AsCString(""); 424 s.Printf ("%s = ", name_cstr); 425 426 const char *val_cstr = valobj->GetValueAsCString(exe_scope); 427 const char *err_cstr = valobj->GetError().AsCString(); 428 429 if (err_cstr) 430 { 431 s.Printf ("error: %s\n", err_cstr); 432 } 433 else 434 { 435 const char *sum_cstr = valobj->GetSummaryAsCString(exe_scope); 436 437 const bool is_aggregate = ClangASTContext::IsAggregateType (valobj->GetOpaqueClangQualType()); 438 439 if (val_cstr) 440 s.PutCString(val_cstr); 441 442 if (sum_cstr) 443 s.Printf(" %s", sum_cstr); 444 445 if (use_objc) 446 { 447 const char *object_desc = valobj->GetObjectDescription(exe_scope); 448 if (object_desc) 449 s.Printf("\n%s\n", object_desc); 450 else 451 s.Printf ("No description available.\n"); 452 return; 453 } 454 455 456 if (curr_depth < max_depth) 457 { 458 if (is_aggregate) 459 s.PutChar('{'); 460 461 bool is_ptr_or_ref = ClangASTContext::IsPointerOrReferenceType (valobj->GetOpaqueClangQualType()); 462 463 if (is_ptr_or_ref && ptr_depth == 0) 464 return; 465 466 const uint32_t num_children = valobj->GetNumChildren(); 467 if (num_children) 468 { 469 s.IndentMore(); 470 for (uint32_t idx=0; idx<num_children; ++idx) 471 { 472 ValueObjectSP child_sp(valobj->GetChildAtIndex(idx, true)); 473 if (child_sp.get()) 474 { 475 s.EOL(); 476 DumpValueObject (result, 477 exe_scope, 478 child_sp.get(), 479 NULL, 480 is_ptr_or_ref ? ptr_depth - 1 : ptr_depth, 481 curr_depth + 1, 482 max_depth, 483 false); 484 if (idx + 1 < num_children) 485 s.PutChar(','); 486 } 487 } 488 s.IndentLess(); 489 } 490 if (is_aggregate) 491 { 492 s.EOL(); 493 s.Indent("}"); 494 } 495 } 496 else 497 { 498 if (is_aggregate) 499 { 500 s.PutCString("{...}"); 501 } 502 } 503 504 } 505 } 506 } 507 508 virtual bool 509 Execute 510 ( 511 CommandInterpreter &interpreter, 512 Args& command, 513 CommandReturnObject &result 514 ) 515 { 516 ExecutionContext exe_ctx(interpreter.GetDebugger().GetExecutionContext()); 517 if (exe_ctx.frame == NULL) 518 { 519 result.AppendError ("invalid frame"); 520 result.SetStatus (eReturnStatusFailed); 521 return false; 522 } 523 else 524 { 525 Stream &s = result.GetOutputStream(); 526 527 bool get_file_globals = true; 528 VariableList *variable_list = exe_ctx.frame->GetVariableList (get_file_globals); 529 530 VariableSP var_sp; 531 ValueObjectSP valobj_sp; 532 //ValueObjectList &valobj_list = exe_ctx.frame->GetValueObjectList(); 533 const char *name_cstr = NULL; 534 size_t idx; 535 if (!m_options.globals.empty()) 536 { 537 uint32_t fail_count = 0; 538 if (exe_ctx.target) 539 { 540 const size_t num_globals = m_options.globals.size(); 541 for (idx = 0; idx < num_globals; ++idx) 542 { 543 VariableList global_var_list; 544 const uint32_t num_matching_globals = exe_ctx.target->GetImages().FindGlobalVariables (m_options.globals[idx], true, UINT32_MAX, global_var_list); 545 546 if (num_matching_globals == 0) 547 { 548 ++fail_count; 549 result.GetErrorStream().Printf ("error: can't find global variable '%s'\n", m_options.globals[idx].AsCString()); 550 } 551 else 552 { 553 for (uint32_t global_idx=0; global_idx<num_matching_globals; ++global_idx) 554 { 555 var_sp = global_var_list.GetVariableAtIndex(global_idx); 556 if (var_sp) 557 { 558 valobj_sp = exe_ctx.frame->GetValueObjectForFrameVariable (var_sp); 559 if (!valobj_sp) 560 valobj_sp = exe_ctx.frame->TrackGlobalVariable (var_sp); 561 562 if (valobj_sp) 563 { 564 DumpValueObject (result, exe_ctx.frame, valobj_sp.get(), name_cstr, m_options.ptr_depth, 0, m_options.max_depth, false); 565 566 if (m_options.show_decl && var_sp->GetDeclaration ().GetFile()) 567 { 568 var_sp->GetDeclaration ().Dump (&s); 569 } 570 571 s.EOL(); 572 } 573 } 574 } 575 } 576 } 577 } 578 if (fail_count) 579 result.SetStatus (eReturnStatusFailed); 580 } 581 else if (variable_list) 582 { 583 if (command.GetArgumentCount() > 0) 584 { 585 // If we have any args to the variable command, we will make 586 // variable objects from them... 587 for (idx = 0; (name_cstr = command.GetArgumentAtIndex(idx)) != NULL; ++idx) 588 { 589 uint32_t ptr_depth = m_options.ptr_depth; 590 // If first character is a '*', then show pointer contents 591 if (name_cstr[0] == '*') 592 { 593 ++ptr_depth; 594 name_cstr++; // Skip the '*' 595 } 596 597 std::string var_path (name_cstr); 598 size_t separator_idx = var_path.find_first_of(".-["); 599 600 ConstString name_const_string; 601 if (separator_idx == std::string::npos) 602 name_const_string.SetCString (var_path.c_str()); 603 else 604 name_const_string.SetCStringWithLength (var_path.c_str(), separator_idx); 605 606 var_sp = variable_list->FindVariable(name_const_string); 607 if (var_sp) 608 { 609 valobj_sp = exe_ctx.frame->GetValueObjectForFrameVariable (var_sp); 610 611 var_path.erase (0, name_const_string.GetLength ()); 612 // We are dumping at least one child 613 while (separator_idx != std::string::npos) 614 { 615 // Calculate the next separator index ahead of time 616 ValueObjectSP child_valobj_sp; 617 const char separator_type = var_path[0]; 618 switch (separator_type) 619 { 620 621 case '-': 622 if (var_path.size() >= 2 && var_path[1] != '>') 623 { 624 result.GetErrorStream().Printf ("error: invalid character in variable path starting at '%s'\n", 625 var_path.c_str()); 626 var_path.clear(); 627 valobj_sp.reset(); 628 break; 629 } 630 var_path.erase (0, 1); // Remove the '-' 631 // Fall through 632 case '.': 633 { 634 var_path.erase (0, 1); // Remove the '.' or '>' 635 separator_idx = var_path.find_first_of(".-["); 636 ConstString child_name; 637 if (separator_idx == std::string::npos) 638 child_name.SetCString (var_path.c_str()); 639 else 640 child_name.SetCStringWithLength(var_path.c_str(), separator_idx); 641 642 child_valobj_sp = valobj_sp->GetChildMemberWithName (child_name, true); 643 if (!child_valobj_sp) 644 { 645 result.GetErrorStream().Printf ("error: can't find child of '%s' named '%s'\n", 646 valobj_sp->GetName().AsCString(), 647 child_name.GetCString()); 648 var_path.clear(); 649 valobj_sp.reset(); 650 break; 651 } 652 // Remove the child name from the path 653 var_path.erase(0, child_name.GetLength()); 654 } 655 break; 656 657 case '[': 658 // Array member access, or treating pointer as an array 659 if (var_path.size() > 2) // Need at least two brackets and a number 660 { 661 char *end = NULL; 662 int32_t child_index = ::strtol (&var_path[1], &end, 0); 663 if (end && *end == ']') 664 { 665 666 if (valobj_sp->IsPointerType ()) 667 { 668 child_valobj_sp = valobj_sp->GetSyntheticArrayMemberFromPointer (child_index, true); 669 } 670 else 671 { 672 child_valobj_sp = valobj_sp->GetChildAtIndex (child_index, true); 673 } 674 675 if (!child_valobj_sp) 676 { 677 result.GetErrorStream().Printf ("error: invalid array index %u in '%s'\n", 678 child_index, 679 valobj_sp->GetName().AsCString()); 680 var_path.clear(); 681 valobj_sp.reset(); 682 break; 683 } 684 685 // Erase the array member specification '[%i]' where %i is the array index 686 var_path.erase(0, (end - var_path.c_str()) + 1); 687 separator_idx = var_path.find_first_of(".-["); 688 689 // Break out early from the switch since we were able to find the child member 690 break; 691 } 692 } 693 result.GetErrorStream().Printf ("error: invalid array member specification for '%s' starting at '%s'\n", 694 valobj_sp->GetName().AsCString(), 695 var_path.c_str()); 696 var_path.clear(); 697 valobj_sp.reset(); 698 break; 699 700 break; 701 702 default: 703 result.GetErrorStream().Printf ("error: invalid character in variable path starting at '%s'\n", 704 var_path.c_str()); 705 var_path.clear(); 706 valobj_sp.reset(); 707 separator_idx = std::string::npos; 708 break; 709 } 710 711 if (child_valobj_sp) 712 valobj_sp = child_valobj_sp; 713 714 if (var_path.empty()) 715 break; 716 717 } 718 719 if (valobj_sp) 720 { 721 if (m_options.show_decl && var_sp->GetDeclaration ().GetFile()) 722 { 723 var_sp->GetDeclaration ().DumpStopContext (&s, false); 724 s.PutCString (": "); 725 } 726 727 DumpValueObject (result, 728 exe_ctx.frame, 729 valobj_sp.get(), 730 name_cstr, 731 ptr_depth, 732 0, 733 m_options.max_depth, 734 m_options.use_objc); 735 736 s.EOL(); 737 } 738 } 739 else 740 { 741 result.GetErrorStream().Printf ("error: unable to find any variables named '%s'\n", name_cstr); 742 var_path.clear(); 743 } 744 } 745 } 746 else 747 { 748 const uint32_t num_variables = variable_list->GetSize(); 749 750 if (num_variables > 0) 751 { 752 for (uint32_t i=0; i<num_variables; i++) 753 { 754 VariableSP var_sp (variable_list->GetVariableAtIndex(i)); 755 bool dump_variable = true; 756 757 switch (var_sp->GetScope()) 758 { 759 case eValueTypeVariableGlobal: 760 dump_variable = m_options.show_globals; 761 if (dump_variable && m_options.show_scope) 762 s.PutCString("GLOBAL: "); 763 break; 764 765 case eValueTypeVariableStatic: 766 dump_variable = m_options.show_globals; 767 if (dump_variable && m_options.show_scope) 768 s.PutCString("STATIC: "); 769 break; 770 771 case eValueTypeVariableArgument: 772 dump_variable = m_options.show_args; 773 if (dump_variable && m_options.show_scope) 774 s.PutCString(" ARG: "); 775 break; 776 777 case eValueTypeVariableLocal: 778 dump_variable = m_options.show_locals; 779 if (dump_variable && m_options.show_scope) 780 s.PutCString(" LOCAL: "); 781 break; 782 783 default: 784 break; 785 } 786 787 if (dump_variable) 788 { 789 //DumpVariable (result, &exe_ctx, var_sp.get()); 790 791 // Use the variable object code to make sure we are 792 // using the same APIs as the the public API will be 793 // using... 794 valobj_sp = exe_ctx.frame->GetValueObjectForFrameVariable (var_sp); 795 if (valobj_sp) 796 { 797 798 if (m_options.show_decl && var_sp->GetDeclaration ().GetFile()) 799 { 800 var_sp->GetDeclaration ().DumpStopContext (&s, false); 801 s.PutCString (": "); 802 } 803 DumpValueObject (result, 804 exe_ctx.frame, 805 valobj_sp.get(), 806 name_cstr, 807 m_options.ptr_depth, 808 0, 809 m_options.max_depth, 810 m_options.use_objc); 811 812 s.EOL(); 813 } 814 } 815 } 816 } 817 } 818 result.SetStatus (eReturnStatusSuccessFinishResult); 819 } 820 } 821 return result.Succeeded(); 822 } 823 protected: 824 825 CommandOptions m_options; 826 }; 827 828 lldb::OptionDefinition 829 CommandObjectFrameVariable::CommandOptions::g_option_table[] = 830 { 831 { LLDB_OPT_SET_1, false, "debug", 'D', no_argument, NULL, 0, NULL, "Enable verbose debug information."}, 832 { LLDB_OPT_SET_1, false, "depth", 'd', required_argument, NULL, 0, "<count>", "Set the max recurse depth when dumping aggregate types (default is infinity)."}, 833 { LLDB_OPT_SET_1, false, "show-globals",'g', no_argument, NULL, 0, NULL, "Show the current frame source file global and static variables."}, 834 { LLDB_OPT_SET_1, false, "find-global",'G', required_argument, NULL, 0, NULL, "Find a global variable by name (which might not be in the current stack frame source file)."}, 835 { LLDB_OPT_SET_1, false, "location", 'L', no_argument, NULL, 0, NULL, "Show variable location information."}, 836 { LLDB_OPT_SET_1, false, "show-declaration", 'c', no_argument, NULL, 0, NULL, "Show variable declaration information (source file and line where the variable was declared)."}, 837 { LLDB_OPT_SET_1, false, "name", 'n', required_argument, NULL, 0, "<name>", "Lookup a variable by name or regex (--regex) for the current execution context."}, 838 { LLDB_OPT_SET_1, false, "no-args", 'a', no_argument, NULL, 0, NULL, "Omit function arguments."}, 839 { LLDB_OPT_SET_1, false, "no-locals", 'l', no_argument, NULL, 0, NULL, "Omit local variables."}, 840 { LLDB_OPT_SET_1, false, "no-types", 't', no_argument, NULL, 0, NULL, "Omit variable type names."}, 841 { LLDB_OPT_SET_1, false, "no-summary", 'y', no_argument, NULL, 0, NULL, "Omit summary information."}, 842 { LLDB_OPT_SET_1, false, "scope", 's', no_argument, NULL, 0, NULL, "Show variable scope (argument, local, global, static)."}, 843 { LLDB_OPT_SET_1, false, "objc", 'o', no_argument, NULL, 0, NULL, "When looking up a variable by name (--name), print as an Objective-C object."}, 844 { LLDB_OPT_SET_1, false, "ptr-depth", 'p', required_argument, NULL, 0, "<count>", "The number of pointers to be traversed when dumping values (default is zero)."}, 845 { LLDB_OPT_SET_1, false, "regex", 'r', no_argument, NULL, 0, NULL, "The <name> argument for name lookups are regular expressions."}, 846 { 0, false, NULL, 0, 0, NULL, NULL, NULL, NULL } 847 }; 848 #pragma mark CommandObjectMultiwordFrame 849 850 //------------------------------------------------------------------------- 851 // CommandObjectMultiwordFrame 852 //------------------------------------------------------------------------- 853 854 CommandObjectMultiwordFrame::CommandObjectMultiwordFrame (CommandInterpreter &interpreter) : 855 CommandObjectMultiword ("frame", 856 "A set of commands for operating on the current thread's frames.", 857 "frame <subcommand> [<subcommand-options>]") 858 { 859 LoadSubCommand (interpreter, "info", CommandObjectSP (new CommandObjectFrameInfo ())); 860 LoadSubCommand (interpreter, "select", CommandObjectSP (new CommandObjectFrameSelect ())); 861 LoadSubCommand (interpreter, "variable", CommandObjectSP (new CommandObjectFrameVariable ())); 862 } 863 864 CommandObjectMultiwordFrame::~CommandObjectMultiwordFrame () 865 { 866 } 867 868