1 //===-- CommandObjectSource.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 "CommandObjectSource.h" 13 14 // C Includes 15 // C++ Includes 16 // Other libraries and framework includes 17 // Project includes 18 #include "lldb/Interpreter/Args.h" 19 #include "lldb/Core/Debugger.h" 20 #include "lldb/Core/FileLineResolver.h" 21 #include "lldb/Core/Module.h" 22 #include "lldb/Core/ModuleSpec.h" 23 #include "lldb/Core/SourceManager.h" 24 #include "lldb/Interpreter/CommandInterpreter.h" 25 #include "lldb/Interpreter/CommandReturnObject.h" 26 #include "lldb/Host/FileSpec.h" 27 #include "lldb/Symbol/CompileUnit.h" 28 #include "lldb/Symbol/Function.h" 29 #include "lldb/Target/Process.h" 30 #include "lldb/Target/TargetList.h" 31 #include "lldb/Interpreter/CommandCompletions.h" 32 #include "lldb/Interpreter/Options.h" 33 34 using namespace lldb; 35 using namespace lldb_private; 36 37 //------------------------------------------------------------------------- 38 // CommandObjectSourceInfo 39 //------------------------------------------------------------------------- 40 41 class CommandObjectSourceInfo : public CommandObjectParsed 42 { 43 44 class CommandOptions : public Options 45 { 46 public: 47 CommandOptions (CommandInterpreter &interpreter) : 48 Options(interpreter) 49 { 50 } 51 52 ~CommandOptions () 53 { 54 } 55 56 Error 57 SetOptionValue (uint32_t option_idx, const char *option_arg) 58 { 59 Error error; 60 const int short_option = g_option_table[option_idx].short_option; 61 switch (short_option) 62 { 63 case 'l': 64 start_line = Args::StringToUInt32 (option_arg, 0); 65 if (start_line == 0) 66 error.SetErrorStringWithFormat("invalid line number: '%s'", option_arg); 67 break; 68 69 case 'f': 70 file_name = option_arg; 71 break; 72 73 default: 74 error.SetErrorStringWithFormat("unrecognized short option '%c'", short_option); 75 break; 76 } 77 78 return error; 79 } 80 81 void 82 OptionParsingStarting () 83 { 84 file_spec.Clear(); 85 file_name.clear(); 86 start_line = 0; 87 } 88 89 const OptionDefinition* 90 GetDefinitions () 91 { 92 return g_option_table; 93 } 94 static OptionDefinition g_option_table[]; 95 96 // Instance variables to hold the values for command options. 97 FileSpec file_spec; 98 std::string file_name; 99 uint32_t start_line; 100 101 }; 102 103 public: 104 CommandObjectSourceInfo(CommandInterpreter &interpreter) : 105 CommandObjectParsed (interpreter, 106 "source info", 107 "Display information about the source lines from the current executable's debug info.", 108 "source info [<cmd-options>]"), 109 m_options (interpreter) 110 { 111 } 112 113 ~CommandObjectSourceInfo () 114 { 115 } 116 117 118 Options * 119 GetOptions () 120 { 121 return &m_options; 122 } 123 124 protected: 125 bool 126 DoExecute (Args& command, CommandReturnObject &result) 127 { 128 result.AppendError ("Not yet implemented"); 129 result.SetStatus (eReturnStatusFailed); 130 return false; 131 } 132 133 CommandOptions m_options; 134 }; 135 136 OptionDefinition 137 CommandObjectSourceInfo::CommandOptions::g_option_table[] = 138 { 139 { LLDB_OPT_SET_1, false, "line", 'l', required_argument, NULL, 0, eArgTypeLineNum, "The line number at which to start the display source."}, 140 { LLDB_OPT_SET_1, false, "file", 'f', required_argument, NULL, CommandCompletions::eSourceFileCompletion, eArgTypeFilename, "The file from which to display source."}, 141 { 0, false, NULL, 0, 0, NULL, 0, eArgTypeNone, NULL } 142 }; 143 144 #pragma mark CommandObjectSourceList 145 //------------------------------------------------------------------------- 146 // CommandObjectSourceList 147 //------------------------------------------------------------------------- 148 149 class CommandObjectSourceList : public CommandObjectParsed 150 { 151 152 class CommandOptions : public Options 153 { 154 public: 155 CommandOptions (CommandInterpreter &interpreter) : 156 Options(interpreter) 157 { 158 } 159 160 ~CommandOptions () 161 { 162 } 163 164 Error 165 SetOptionValue (uint32_t option_idx, const char *option_arg) 166 { 167 Error error; 168 const int short_option = g_option_table[option_idx].short_option; 169 switch (short_option) 170 { 171 case 'l': 172 start_line = Args::StringToUInt32 (option_arg, 0); 173 if (start_line == 0) 174 error.SetErrorStringWithFormat("invalid line number: '%s'", option_arg); 175 break; 176 177 case 'c': 178 num_lines = Args::StringToUInt32 (option_arg, 0); 179 if (num_lines == 0) 180 error.SetErrorStringWithFormat("invalid line count: '%s'", option_arg); 181 break; 182 183 case 'f': 184 file_name = option_arg; 185 break; 186 187 case 'n': 188 symbol_name = option_arg; 189 break; 190 191 case 'a': 192 { 193 ExecutionContext exe_ctx (m_interpreter.GetExecutionContext()); 194 address = Args::StringToAddress(&exe_ctx, option_arg, LLDB_INVALID_ADDRESS, &error); 195 } 196 break; 197 case 's': 198 modules.push_back (std::string (option_arg)); 199 break; 200 201 case 'b': 202 show_bp_locs = true; 203 break; 204 case 'r': 205 reverse = true; 206 break; 207 default: 208 error.SetErrorStringWithFormat("unrecognized short option '%c'", short_option); 209 break; 210 } 211 212 return error; 213 } 214 215 void 216 OptionParsingStarting () 217 { 218 file_spec.Clear(); 219 file_name.clear(); 220 symbol_name.clear(); 221 address = LLDB_INVALID_ADDRESS; 222 start_line = 0; 223 num_lines = 10; 224 show_bp_locs = false; 225 reverse = false; 226 modules.clear(); 227 } 228 229 const OptionDefinition* 230 GetDefinitions () 231 { 232 return g_option_table; 233 } 234 static OptionDefinition g_option_table[]; 235 236 // Instance variables to hold the values for command options. 237 FileSpec file_spec; 238 std::string file_name; 239 std::string symbol_name; 240 lldb::addr_t address; 241 uint32_t start_line; 242 uint32_t num_lines; 243 STLStringArray modules; 244 bool show_bp_locs; 245 bool reverse; 246 }; 247 248 public: 249 CommandObjectSourceList(CommandInterpreter &interpreter) : 250 CommandObjectParsed (interpreter, 251 "source list", 252 "Display source code (as specified) based on the current executable's debug info.", 253 NULL, 254 eFlagRequiresTarget), 255 m_options (interpreter) 256 { 257 } 258 259 ~CommandObjectSourceList () 260 { 261 } 262 263 264 Options * 265 GetOptions () 266 { 267 return &m_options; 268 } 269 270 virtual const char * 271 GetRepeatCommand (Args ¤t_command_args, uint32_t index) 272 { 273 // This is kind of gross, but the command hasn't been parsed yet so we can't look at the option 274 // values for this invocation... I have to scan the arguments directly. 275 size_t num_args = current_command_args.GetArgumentCount(); 276 bool is_reverse = false; 277 for (size_t i = 0 ; i < num_args; i++) 278 { 279 const char *arg = current_command_args.GetArgumentAtIndex(i); 280 if (arg && (strcmp(arg, "-r") == 0 || strcmp(arg, "--reverse") == 0)) 281 { 282 is_reverse = true; 283 } 284 } 285 if (is_reverse) 286 { 287 if (m_reverse_name.empty()) 288 { 289 m_reverse_name = m_cmd_name; 290 m_reverse_name.append (" -r"); 291 } 292 return m_reverse_name.c_str(); 293 } 294 else 295 return m_cmd_name.c_str(); 296 } 297 298 protected: 299 bool 300 DoExecute (Args& command, CommandReturnObject &result) 301 { 302 const size_t argc = command.GetArgumentCount(); 303 304 if (argc != 0) 305 { 306 result.AppendErrorWithFormat("'%s' takes no arguments, only flags.\n", GetCommandName()); 307 result.SetStatus (eReturnStatusFailed); 308 return false; 309 } 310 311 Target *target = m_exe_ctx.GetTargetPtr(); 312 313 SymbolContextList sc_list; 314 if (!m_options.symbol_name.empty()) 315 { 316 // Displaying the source for a symbol: 317 ConstString name(m_options.symbol_name.c_str()); 318 bool include_symbols = false; 319 bool include_inlines = true; 320 bool append = true; 321 size_t num_matches = 0; 322 323 const size_t num_modules = m_options.modules.size(); 324 if (num_modules > 0) 325 { 326 ModuleList matching_modules; 327 for (size_t i = 0; i < num_modules; ++i) 328 { 329 FileSpec module_file_spec(m_options.modules[i].c_str(), false); 330 if (module_file_spec) 331 { 332 ModuleSpec module_spec (module_file_spec); 333 matching_modules.Clear(); 334 target->GetImages().FindModules (module_spec, matching_modules); 335 num_matches += matching_modules.FindFunctions (name, eFunctionNameTypeAuto, include_symbols, include_inlines, append, sc_list); 336 } 337 } 338 } 339 else 340 { 341 num_matches = target->GetImages().FindFunctions (name, eFunctionNameTypeAuto, include_symbols, include_inlines, append, sc_list); 342 } 343 344 SymbolContext sc; 345 346 if (num_matches == 0) 347 { 348 result.AppendErrorWithFormat("Could not find function named: \"%s\".\n", m_options.symbol_name.c_str()); 349 result.SetStatus (eReturnStatusFailed); 350 return false; 351 } 352 353 sc_list.GetContextAtIndex (0, sc); 354 FileSpec start_file; 355 uint32_t start_line; 356 uint32_t end_line; 357 FileSpec end_file; 358 if (sc.function != NULL) 359 { 360 sc.function->GetStartLineSourceInfo (start_file, start_line); 361 if (start_line == 0) 362 { 363 result.AppendErrorWithFormat("Could not find line information for start of function: \"%s\".\n", m_options.symbol_name.c_str()); 364 result.SetStatus (eReturnStatusFailed); 365 return false; 366 } 367 sc.function->GetEndLineSourceInfo (end_file, end_line); 368 } 369 else 370 { 371 result.AppendErrorWithFormat("Could not find function info for: \"%s\".\n", m_options.symbol_name.c_str()); 372 result.SetStatus (eReturnStatusFailed); 373 return false; 374 } 375 376 if (num_matches > 1) 377 { 378 // This could either be because there are multiple functions of this name, in which case 379 // we'll have to specify this further... Or it could be because there are multiple inlined instances 380 // of one function. So run through the matches and if they all have the same file & line then we can just 381 // list one. 382 383 bool found_multiple = false; 384 385 for (size_t i = 1; i < num_matches; i++) 386 { 387 SymbolContext scratch_sc; 388 sc_list.GetContextAtIndex (i, scratch_sc); 389 if (scratch_sc.function != NULL) 390 { 391 FileSpec scratch_file; 392 uint32_t scratch_line; 393 scratch_sc.function->GetStartLineSourceInfo (scratch_file, scratch_line); 394 if (scratch_file != start_file 395 || scratch_line != start_line) 396 { 397 found_multiple = true; 398 break; 399 } 400 } 401 } 402 if (found_multiple) 403 { 404 StreamString s; 405 for (size_t i = 0; i < num_matches; i++) 406 { 407 SymbolContext scratch_sc; 408 sc_list.GetContextAtIndex (i, scratch_sc); 409 if (scratch_sc.function != NULL) 410 { 411 s.Printf("\n%lu: ", i); 412 scratch_sc.function->Dump (&s, true); 413 } 414 } 415 result.AppendErrorWithFormat("Multiple functions found matching: %s: \n%s\n", 416 m_options.symbol_name.c_str(), 417 s.GetData()); 418 result.SetStatus (eReturnStatusFailed); 419 return false; 420 } 421 } 422 423 424 // This is a little hacky, but the first line table entry for a function points to the "{" that 425 // starts the function block. It would be nice to actually get the function 426 // declaration in there too. So back up a bit, but not further than what you're going to display. 427 uint32_t lines_to_back_up = m_options.num_lines >= 10 ? 5 : m_options.num_lines/2; 428 uint32_t line_no; 429 if (start_line <= lines_to_back_up) 430 line_no = 1; 431 else 432 line_no = start_line - lines_to_back_up; 433 434 // For fun, if the function is shorter than the number of lines we're supposed to display, 435 // only display the function... 436 if (end_line != 0) 437 { 438 if (m_options.num_lines > end_line - line_no) 439 m_options.num_lines = end_line - line_no; 440 } 441 442 char path_buf[PATH_MAX]; 443 start_file.GetPath(path_buf, sizeof(path_buf)); 444 445 if (m_options.show_bp_locs) 446 { 447 const bool show_inlines = true; 448 m_breakpoint_locations.Reset (start_file, 0, show_inlines); 449 SearchFilter target_search_filter (m_exe_ctx.GetTargetSP()); 450 target_search_filter.Search (m_breakpoint_locations); 451 } 452 else 453 m_breakpoint_locations.Clear(); 454 455 result.AppendMessageWithFormat("File: %s.\n", path_buf); 456 target->GetSourceManager().DisplaySourceLinesWithLineNumbers (start_file, 457 line_no, 458 0, 459 m_options.num_lines, 460 "", 461 &result.GetOutputStream(), 462 GetBreakpointLocations ()); 463 464 result.SetStatus (eReturnStatusSuccessFinishResult); 465 return true; 466 467 } 468 else if (m_options.address != LLDB_INVALID_ADDRESS) 469 { 470 SymbolContext sc; 471 Address so_addr; 472 StreamString error_strm; 473 474 if (target->GetSectionLoadList().IsEmpty()) 475 { 476 // The target isn't loaded yet, we need to lookup the file address 477 // in all modules 478 const ModuleList &module_list = target->GetImages(); 479 const size_t num_modules = module_list.GetSize(); 480 for (size_t i=0; i<num_modules; ++i) 481 { 482 ModuleSP module_sp (module_list.GetModuleAtIndex(i)); 483 if (module_sp && module_sp->ResolveFileAddress(m_options.address, so_addr)) 484 { 485 sc.Clear(); 486 if (module_sp->ResolveSymbolContextForAddress (so_addr, eSymbolContextEverything, sc) & eSymbolContextLineEntry) 487 sc_list.Append(sc); 488 } 489 } 490 491 if (sc_list.GetSize() == 0) 492 { 493 result.AppendErrorWithFormat("no modules have source information for file address 0x%" PRIx64 ".\n", 494 m_options.address); 495 result.SetStatus (eReturnStatusFailed); 496 return false; 497 } 498 } 499 else 500 { 501 // The target has some things loaded, resolve this address to a 502 // compile unit + file + line and display 503 if (target->GetSectionLoadList().ResolveLoadAddress (m_options.address, so_addr)) 504 { 505 ModuleSP module_sp (so_addr.GetModule()); 506 if (module_sp) 507 { 508 sc.Clear(); 509 if (module_sp->ResolveSymbolContextForAddress (so_addr, eSymbolContextEverything, sc) & eSymbolContextLineEntry) 510 { 511 sc_list.Append(sc); 512 } 513 else 514 { 515 so_addr.Dump(&error_strm, NULL, Address::DumpStyleModuleWithFileAddress); 516 result.AppendErrorWithFormat("address resolves to %s, but there is no line table information available for this address.\n", 517 error_strm.GetData()); 518 result.SetStatus (eReturnStatusFailed); 519 return false; 520 } 521 } 522 } 523 524 if (sc_list.GetSize() == 0) 525 { 526 result.AppendErrorWithFormat("no modules contain load address 0x%" PRIx64 ".\n", m_options.address); 527 result.SetStatus (eReturnStatusFailed); 528 return false; 529 } 530 } 531 uint32_t num_matches = sc_list.GetSize(); 532 for (uint32_t i=0; i<num_matches; ++i) 533 { 534 sc_list.GetContextAtIndex(i, sc); 535 if (sc.comp_unit) 536 { 537 if (m_options.show_bp_locs) 538 { 539 m_breakpoint_locations.Clear(); 540 const bool show_inlines = true; 541 m_breakpoint_locations.Reset (*sc.comp_unit, 0, show_inlines); 542 SearchFilter target_search_filter (target->shared_from_this()); 543 target_search_filter.Search (m_breakpoint_locations); 544 } 545 546 bool show_fullpaths = true; 547 bool show_module = true; 548 bool show_inlined_frames = true; 549 sc.DumpStopContext(&result.GetOutputStream(), 550 m_exe_ctx.GetBestExecutionContextScope(), 551 sc.line_entry.range.GetBaseAddress(), 552 show_fullpaths, 553 show_module, 554 show_inlined_frames); 555 result.GetOutputStream().EOL(); 556 557 size_t lines_to_back_up = m_options.num_lines >= 10 ? 5 : m_options.num_lines/2; 558 559 target->GetSourceManager().DisplaySourceLinesWithLineNumbers (sc.comp_unit, 560 sc.line_entry.line, 561 lines_to_back_up, 562 m_options.num_lines - lines_to_back_up, 563 "->", 564 &result.GetOutputStream(), 565 GetBreakpointLocations ()); 566 result.SetStatus (eReturnStatusSuccessFinishResult); 567 } 568 } 569 } 570 else if (m_options.file_name.empty()) 571 { 572 // Last valid source manager context, or the current frame if no 573 // valid last context in source manager. 574 // One little trick here, if you type the exact same list command twice in a row, it is 575 // more likely because you typed it once, then typed it again 576 if (m_options.start_line == 0) 577 { 578 if (target->GetSourceManager().DisplayMoreWithLineNumbers (&result.GetOutputStream(), 579 GetBreakpointLocations (), 580 m_options.reverse)) 581 { 582 result.SetStatus (eReturnStatusSuccessFinishResult); 583 } 584 } 585 else 586 { 587 if (m_options.show_bp_locs) 588 { 589 SourceManager::FileSP last_file_sp (target->GetSourceManager().GetLastFile ()); 590 if (last_file_sp) 591 { 592 const bool show_inlines = true; 593 m_breakpoint_locations.Reset (last_file_sp->GetFileSpec(), 0, show_inlines); 594 SearchFilter target_search_filter (target->shared_from_this()); 595 target_search_filter.Search (m_breakpoint_locations); 596 } 597 } 598 else 599 m_breakpoint_locations.Clear(); 600 601 if (target->GetSourceManager().DisplaySourceLinesWithLineNumbersUsingLastFile( 602 m_options.start_line, // Line to display 603 0, // Lines before line to display 604 m_options.num_lines, // Lines after line to display 605 "", // Don't mark "line" 606 &result.GetOutputStream(), 607 GetBreakpointLocations ())) 608 { 609 result.SetStatus (eReturnStatusSuccessFinishResult); 610 } 611 612 } 613 } 614 else 615 { 616 const char *filename = m_options.file_name.c_str(); 617 618 bool check_inlines = false; 619 SymbolContextList sc_list; 620 size_t num_matches = 0; 621 622 if (m_options.modules.size() > 0) 623 { 624 ModuleList matching_modules; 625 for (size_t i = 0, e = m_options.modules.size(); i < e; ++i) 626 { 627 FileSpec module_file_spec(m_options.modules[i].c_str(), false); 628 if (module_file_spec) 629 { 630 ModuleSpec module_spec (module_file_spec); 631 matching_modules.Clear(); 632 target->GetImages().FindModules (module_spec, matching_modules); 633 num_matches += matching_modules.ResolveSymbolContextForFilePath (filename, 634 0, 635 check_inlines, 636 eSymbolContextModule | eSymbolContextCompUnit, 637 sc_list); 638 } 639 } 640 } 641 else 642 { 643 num_matches = target->GetImages().ResolveSymbolContextForFilePath (filename, 644 0, 645 check_inlines, 646 eSymbolContextModule | eSymbolContextCompUnit, 647 sc_list); 648 } 649 650 if (num_matches == 0) 651 { 652 result.AppendErrorWithFormat("Could not find source file \"%s\".\n", 653 m_options.file_name.c_str()); 654 result.SetStatus (eReturnStatusFailed); 655 return false; 656 } 657 658 if (num_matches > 1) 659 { 660 SymbolContext sc; 661 bool got_multiple = false; 662 FileSpec *test_cu_spec = NULL; 663 664 for (unsigned i = 0; i < num_matches; i++) 665 { 666 sc_list.GetContextAtIndex(i, sc); 667 if (sc.comp_unit) 668 { 669 if (test_cu_spec) 670 { 671 if (test_cu_spec != static_cast<FileSpec *> (sc.comp_unit)) 672 got_multiple = true; 673 break; 674 } 675 else 676 test_cu_spec = sc.comp_unit; 677 } 678 } 679 if (got_multiple) 680 { 681 result.AppendErrorWithFormat("Multiple source files found matching: \"%s.\"\n", 682 m_options.file_name.c_str()); 683 result.SetStatus (eReturnStatusFailed); 684 return false; 685 } 686 } 687 688 SymbolContext sc; 689 if (sc_list.GetContextAtIndex(0, sc)) 690 { 691 if (sc.comp_unit) 692 { 693 if (m_options.show_bp_locs) 694 { 695 const bool show_inlines = true; 696 m_breakpoint_locations.Reset (*sc.comp_unit, 0, show_inlines); 697 SearchFilter target_search_filter (target->shared_from_this()); 698 target_search_filter.Search (m_breakpoint_locations); 699 } 700 else 701 m_breakpoint_locations.Clear(); 702 703 target->GetSourceManager().DisplaySourceLinesWithLineNumbers (sc.comp_unit, 704 m_options.start_line, 705 0, 706 m_options.num_lines, 707 "", 708 &result.GetOutputStream(), 709 GetBreakpointLocations ()); 710 711 result.SetStatus (eReturnStatusSuccessFinishResult); 712 } 713 else 714 { 715 result.AppendErrorWithFormat("No comp unit found for: \"%s.\"\n", 716 m_options.file_name.c_str()); 717 result.SetStatus (eReturnStatusFailed); 718 return false; 719 } 720 } 721 } 722 return result.Succeeded(); 723 } 724 725 const SymbolContextList * 726 GetBreakpointLocations () 727 { 728 if (m_breakpoint_locations.GetFileLineMatches().GetSize() > 0) 729 return &m_breakpoint_locations.GetFileLineMatches(); 730 return NULL; 731 } 732 CommandOptions m_options; 733 FileLineResolver m_breakpoint_locations; 734 std::string m_reverse_name; 735 736 }; 737 738 OptionDefinition 739 CommandObjectSourceList::CommandOptions::g_option_table[] = 740 { 741 { LLDB_OPT_SET_ALL, false, "count", 'c', required_argument, NULL, 0, eArgTypeCount, "The number of source lines to display."}, 742 { LLDB_OPT_SET_1 | 743 LLDB_OPT_SET_2 , false, "shlib", 's', required_argument, NULL, CommandCompletions::eModuleCompletion, eArgTypeShlibName, "Look up the source file in the given shared library."}, 744 { LLDB_OPT_SET_ALL, false, "show-breakpoints", 'b', no_argument, NULL, 0, eArgTypeNone, "Show the line table locations from the debug information that indicate valid places to set source level breakpoints."}, 745 { LLDB_OPT_SET_1 , false, "file", 'f', required_argument, NULL, CommandCompletions::eSourceFileCompletion, eArgTypeFilename, "The file from which to display source."}, 746 { LLDB_OPT_SET_1 , false, "line", 'l', required_argument, NULL, 0, eArgTypeLineNum, "The line number at which to start the display source."}, 747 { LLDB_OPT_SET_2 , false, "name", 'n', required_argument, NULL, CommandCompletions::eSymbolCompletion, eArgTypeSymbol, "The name of a function whose source to display."}, 748 { LLDB_OPT_SET_3 , false, "address",'a', required_argument, NULL, 0, eArgTypeAddressOrExpression, "Lookup the address and display the source information for the corresponding file and line."}, 749 { LLDB_OPT_SET_4, false, "reverse", 'r', no_argument, NULL, 0, eArgTypeNone, "Reverse the listing to look backwards from the last displayed block of source."}, 750 { 0, false, NULL, 0, 0, NULL, 0, eArgTypeNone, NULL } 751 }; 752 753 #pragma mark CommandObjectMultiwordSource 754 755 //------------------------------------------------------------------------- 756 // CommandObjectMultiwordSource 757 //------------------------------------------------------------------------- 758 759 CommandObjectMultiwordSource::CommandObjectMultiwordSource (CommandInterpreter &interpreter) : 760 CommandObjectMultiword (interpreter, 761 "source", 762 "A set of commands for accessing source file information", 763 "source <subcommand> [<subcommand-options>]") 764 { 765 LoadSubCommand ("info", CommandObjectSP (new CommandObjectSourceInfo (interpreter))); 766 LoadSubCommand ("list", CommandObjectSP (new CommandObjectSourceList (interpreter))); 767 } 768 769 CommandObjectMultiwordSource::~CommandObjectMultiwordSource () 770 { 771 } 772 773