1 /* List lines of source files for GDB, the GNU debugger.
2 Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994,
3 1995, 1996, 1997, 1998, 1999, 2000, 2001, 2002, 2003
4 Free Software Foundation, Inc.
6 This file is part of GDB.
8 This program is free software; you can redistribute it and/or modify
9 it under the terms of the GNU General Public License as published by
10 the Free Software Foundation; either version 2 of the License, or
11 (at your option) any later version.
13 This program is distributed in the hope that it will be useful,
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
16 GNU General Public License for more details.
18 You should have received a copy of the GNU General Public License
19 along with this program; if not, write to the Free Software
20 Foundation, Inc., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
25 #include "expression.h"
33 #include <sys/types.h>
34 #include "gdb_string.h"
38 #include "gdb_regex.h"
44 #include "filenames.h" /* for DOSish file names */
45 #include "completer.h"
47 #include <readline/readline.h>
49 #ifdef CRLF_SOURCE_FILES
51 /* Define CRLF_SOURCE_FILES in an xm-*.h file if source files on the
52 host use \r\n rather than just \n. Defining CRLF_SOURCE_FILES is
53 much faster than defining LSEEK_NOT_LINEAR. */
59 #define OPEN_MODE (O_RDONLY | O_BINARY)
60 #define FDOPEN_MODE FOPEN_RB
62 #else /* ! defined (CRLF_SOURCE_FILES) */
64 #define OPEN_MODE O_RDONLY
65 #define FDOPEN_MODE FOPEN_RT
67 #endif /* ! defined (CRLF_SOURCE_FILES) */
69 /* Prototypes for exported functions. */
71 void _initialize_source (void);
73 /* Prototypes for local functions. */
75 static int get_filename_and_charpos (struct symtab
*, char **);
77 static void reverse_search_command (char *, int);
79 static void forward_search_command (char *, int);
81 static void line_info (char *, int);
83 static void ambiguous_line_spec (struct symtabs_and_lines
*);
85 static void source_info (char *, int);
87 static void show_directories (char *, int);
89 /* Path of directories to search for source files.
90 Same format as the PATH environment variable's value. */
94 /* Symtab of default file for listing lines of. */
96 static struct symtab
*current_source_symtab
;
98 /* Default next line to list. */
100 static int current_source_line
;
102 /* Default number of lines to print with commands like "list".
103 This is based on guessing how many long (i.e. more than chars_per_line
104 characters) lines there will be. To be completely correct, "list"
105 and friends should be rewritten to count characters and see where
106 things are wrapping, but that would be a fair amount of work. */
108 int lines_to_list
= 10;
110 /* Line number of last line printed. Default for various commands.
111 current_source_line is usually, but not always, the same as this. */
113 static int last_line_listed
;
115 /* First line number listed by last listing command. */
117 static int first_line_listed
;
119 /* Saves the name of the last source file visited and a possible error code.
120 Used to prevent repeating annoying "No such file or directories" msgs */
122 static struct symtab
*last_source_visited
= NULL
;
123 static int last_source_error
= 0;
125 /* Return the first line listed by print_source_lines.
126 Used by command interpreters to request listing from
130 get_first_line_listed (void)
132 return first_line_listed
;
135 /* Return the default number of lines to print with commands like the
136 cli "list". The caller of print_source_lines must use this to
137 calculate the end line and use it in the call to print_source_lines
138 as it does not automatically use this value. */
141 get_lines_to_list (void)
143 return lines_to_list
;
146 /* Return the current source file for listing and next line to list.
147 NOTE: The returned sal pc and end fields are not valid. */
149 struct symtab_and_line
150 get_current_source_symtab_and_line (void)
152 struct symtab_and_line cursal
;
154 cursal
.symtab
= current_source_symtab
;
155 cursal
.line
= current_source_line
;
162 /* If the current source file for listing is not set, try and get a default.
163 Usually called before get_current_source_symtab_and_line() is called.
164 It may err out if a default cannot be determined.
165 We must be cautious about where it is called, as it can recurse as the
166 process of determining a new default may call the caller!
167 Use get_current_source_symtab_and_line only to get whatever
168 we have without erroring out or trying to get a default. */
171 set_default_source_symtab_and_line (void)
173 struct symtab_and_line cursal
;
175 if (!have_full_symbols () && !have_partial_symbols ())
176 error ("No symbol table is loaded. Use the \"file\" command.");
178 /* Pull in a current source symtab if necessary */
179 if (current_source_symtab
== 0)
180 select_source_symtab (0);
183 /* Return the current default file for listing and next line to list
184 (the returned sal pc and end fields are not valid.)
185 and set the current default to whatever is in SAL.
186 NOTE: The returned sal pc and end fields are not valid. */
188 struct symtab_and_line
189 set_current_source_symtab_and_line (const struct symtab_and_line
*sal
)
191 struct symtab_and_line cursal
;
193 cursal
.symtab
= current_source_symtab
;
194 cursal
.line
= current_source_line
;
196 current_source_symtab
= sal
->symtab
;
197 current_source_line
= sal
->line
;
204 /* Reset any information stored about a default file and line to print. */
207 clear_current_source_symtab_and_line (void)
209 current_source_symtab
= 0;
210 current_source_line
= 0;
213 /* Set the source file default for the "list" command to be S.
215 If S is NULL, and we don't have a default, find one. This
216 should only be called when the user actually tries to use the
217 default, since we produce an error if we can't find a reasonable
218 default. Also, since this can cause symbols to be read, doing it
219 before we need to would make things slower than necessary. */
222 select_source_symtab (register struct symtab
*s
)
224 struct symtabs_and_lines sals
;
225 struct symtab_and_line sal
;
226 struct partial_symtab
*ps
;
227 struct partial_symtab
*cs_pst
= 0;
232 current_source_symtab
= s
;
233 current_source_line
= 1;
237 if (current_source_symtab
)
240 /* Make the default place to list be the function `main'
242 if (lookup_symbol (main_name (), 0, VAR_NAMESPACE
, 0, NULL
))
244 sals
= decode_line_spec (main_name (), 1);
247 current_source_symtab
= sal
.symtab
;
248 current_source_line
= max (sal
.line
- (lines_to_list
- 1), 1);
249 if (current_source_symtab
)
253 /* All right; find the last file in the symtab list (ignoring .h's). */
255 current_source_line
= 1;
257 for (ofp
= object_files
; ofp
!= NULL
; ofp
= ofp
->next
)
259 for (s
= ofp
->symtabs
; s
; s
= s
->next
)
261 char *name
= s
->filename
;
262 int len
= strlen (name
);
263 if (!(len
> 2 && (STREQ (&name
[len
- 2], ".h"))))
265 current_source_symtab
= s
;
269 if (current_source_symtab
)
272 /* Howabout the partial symbol tables? */
274 for (ofp
= object_files
; ofp
!= NULL
; ofp
= ofp
->next
)
276 for (ps
= ofp
->psymtabs
; ps
!= NULL
; ps
= ps
->next
)
278 char *name
= ps
->filename
;
279 int len
= strlen (name
);
280 if (!(len
> 2 && (STREQ (&name
[len
- 2], ".h"))))
290 internal_error (__FILE__
, __LINE__
,
291 "select_source_symtab: "
292 "readin pst found and no symtabs.");
296 current_source_symtab
= PSYMTAB_TO_SYMTAB (cs_pst
);
299 if (current_source_symtab
)
302 error ("Can't find a default source file");
306 show_directories (char *ignore
, int from_tty
)
308 puts_filtered ("Source directories searched: ");
309 puts_filtered (source_path
);
310 puts_filtered ("\n");
313 /* Forget what we learned about line positions in source files, and
314 which directories contain them; must check again now since files
315 may be found in a different directory now. */
318 forget_cached_source_info (void)
320 register struct symtab
*s
;
321 register struct objfile
*objfile
;
322 struct partial_symtab
*pst
;
324 for (objfile
= object_files
; objfile
!= NULL
; objfile
= objfile
->next
)
326 for (s
= objfile
->symtabs
; s
!= NULL
; s
= s
->next
)
328 if (s
->line_charpos
!= NULL
)
330 xmfree (objfile
->md
, s
->line_charpos
);
331 s
->line_charpos
= NULL
;
333 if (s
->fullname
!= NULL
)
335 xmfree (objfile
->md
, s
->fullname
);
340 ALL_OBJFILE_PSYMTABS (objfile
, pst
)
342 if (pst
->fullname
!= NULL
)
344 xfree (pst
->fullname
);
345 pst
->fullname
= NULL
;
352 init_source_path (void)
356 sprintf (buf
, "$cdir%c$cwd", DIRNAME_SEPARATOR
);
357 source_path
= xstrdup (buf
);
358 forget_cached_source_info ();
362 init_last_source_visited (void)
364 last_source_visited
= NULL
;
367 /* Add zero or more directories to the front of the source path. */
370 directory_command (char *dirname
, int from_tty
)
373 /* FIXME, this goes to "delete dir"... */
376 if (from_tty
&& query ("Reinitialize source path to empty? "))
384 mod_path (dirname
, &source_path
);
385 last_source_visited
= NULL
;
388 show_directories ((char *) 0, from_tty
);
389 forget_cached_source_info ();
392 /* Add zero or more directories to the front of an arbitrary path. */
395 mod_path (char *dirname
, char **which_path
)
397 add_path (dirname
, which_path
, 1);
400 /* Workhorse of mod_path. Takes an extra argument to determine
401 if dirname should be parsed for separators that indicate multiple
402 directories. This allows for interfaces that pre-parse the dirname
403 and allow specification of traditional separator characters such
407 add_path (char *dirname
, char **which_path
, int parse_separators
)
409 char *old
= *which_path
;
415 dirname
= xstrdup (dirname
);
416 make_cleanup (xfree
, dirname
);
420 char *name
= dirname
;
425 char *separator
= NULL
;
429 if (parse_separators
)
431 separator
= strchr (name
, DIRNAME_SEPARATOR
);
432 space
= strchr (name
, ' ');
433 tab
= strchr (name
, '\t');
436 if (separator
== 0 && space
== 0 && tab
== 0)
437 p
= dirname
= name
+ strlen (name
);
441 if (separator
!= 0 && (p
== 0 || separator
< p
))
443 if (space
!= 0 && (p
== 0 || space
< p
))
445 if (tab
!= 0 && (p
== 0 || tab
< p
))
448 while (*dirname
== DIRNAME_SEPARATOR
455 if (!(IS_DIR_SEPARATOR (*name
) && p
<= name
+ 1) /* "/" */
456 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
457 /* On MS-DOS and MS-Windows, h:\ is different from h: */
458 && !(p
== name
+ 3 && name
[1] == ':') /* "d:/" */
460 && IS_DIR_SEPARATOR (p
[-1]))
461 /* Sigh. "foo/" => "foo" */
465 while (p
> name
&& p
[-1] == '.')
469 /* "." => getwd (). */
470 name
= current_directory
;
473 else if (p
> name
+ 1 && IS_DIR_SEPARATOR (p
[-2]))
483 /* "...foo/." => "...foo". */
494 name
= tilde_expand (name
);
495 #ifdef HAVE_DOS_BASED_FILE_SYSTEM
496 else if (IS_ABSOLUTE_PATH (name
) && p
== name
+ 2) /* "d:" => "d:." */
497 name
= concat (name
, ".", NULL
);
499 else if (!IS_ABSOLUTE_PATH (name
) && name
[0] != '$')
500 name
= concat (current_directory
, SLASH_STRING
, name
, NULL
);
502 name
= savestring (name
, p
- name
);
503 make_cleanup (xfree
, name
);
505 /* Unless it's a variable, check existence. */
508 /* These are warnings, not errors, since we don't want a
509 non-existent directory in a .gdbinit file to stop processing
510 of the .gdbinit file.
512 Whether they get added to the path is more debatable. Current
513 answer is yes, in case the user wants to go make the directory
514 or whatever. If the directory continues to not exist/not be
515 a directory/etc, then having them in the path should be
517 if (stat (name
, &st
) < 0)
519 int save_errno
= errno
;
520 fprintf_unfiltered (gdb_stderr
, "Warning: ");
521 print_sys_errmsg (name
, save_errno
);
523 else if ((st
.st_mode
& S_IFMT
) != S_IFDIR
)
524 warning ("%s is not a directory.", name
);
529 register unsigned int len
= strlen (name
);
534 /* FIXME: strncmp loses in interesting ways on MS-DOS and
535 MS-Windows because of case-insensitivity and two different
536 but functionally identical slash characters. We need a
537 special filesystem-dependent file-name comparison function.
539 Actually, even on Unix I would use realpath() or its work-
540 alike before comparing. Then all the code above which
541 removes excess slashes and dots could simply go away. */
542 if (!strncmp (p
, name
, len
)
543 && (p
[len
] == '\0' || p
[len
] == DIRNAME_SEPARATOR
))
545 /* Found it in the search path, remove old copy */
547 p
--; /* Back over leading separator */
548 if (prefix
> p
- *which_path
)
549 goto skip_dup
; /* Same dir twice in one cmd */
550 strcpy (p
, &p
[len
+ 1]); /* Copy from next \0 or : */
552 p
= strchr (p
, DIRNAME_SEPARATOR
);
562 tinybuf
[0] = DIRNAME_SEPARATOR
;
565 /* If we have already tacked on a name(s) in this command, be sure they stay
566 on the front as we tack on some more. */
573 temp
= concat (old
, tinybuf
, name
, NULL
);
575 *which_path
= concat (temp
, "", &old
[prefix
], NULL
);
576 prefix
= strlen (temp
);
581 *which_path
= concat (name
, (old
[0] ? tinybuf
: old
), old
, NULL
);
582 prefix
= strlen (name
);
590 while (*dirname
!= '\0');
595 source_info (char *ignore
, int from_tty
)
597 register struct symtab
*s
= current_source_symtab
;
601 printf_filtered ("No current source file.\n");
604 printf_filtered ("Current source file is %s\n", s
->filename
);
606 printf_filtered ("Compilation directory is %s\n", s
->dirname
);
608 printf_filtered ("Located in %s\n", s
->fullname
);
610 printf_filtered ("Contains %d line%s.\n", s
->nlines
,
611 s
->nlines
== 1 ? "" : "s");
613 printf_filtered ("Source language is %s.\n", language_str (s
->language
));
614 printf_filtered ("Compiled with %s debugging format.\n", s
->debugformat
);
615 printf_filtered ("%s preprocessor macro info.\n",
616 s
->macro_table
? "Includes" : "Does not include");
620 /* Return True if the file NAME exists and is a regular file */
622 is_regular_file (const char *name
)
625 const int status
= stat (name
, &st
);
627 /* Stat should never fail except when the file does not exist.
628 If stat fails, analyze the source of error and return True
629 unless the file does not exist, to avoid returning false results
630 on obscure systems where stat does not work as expected.
633 return (errno
!= ENOENT
);
635 return S_ISREG (st
.st_mode
);
638 /* Open a file named STRING, searching path PATH (dir names sep by some char)
639 using mode MODE and protection bits PROT in the calls to open.
641 If TRY_CWD_FIRST, try to open ./STRING before searching PATH.
642 (ie pretend the first element of PATH is "."). This also indicates
643 that a slash in STRING disables searching of the path (this is
644 so that "exec-file ./foo" or "symbol-file ./foo" insures that you
645 get that particular version of foo or an error message).
647 If FILENAME_OPENED is non-null, set it to a newly allocated string naming
648 the actual file opened (this string will always start with a "/"). We
649 have to take special pains to avoid doubling the "/" between the directory
650 and the file, sigh! Emacs gets confuzzed by this when we print the
653 If a file is found, return the descriptor.
654 Otherwise, return -1, with errno set for the last name we tried to open. */
656 /* >>>> This should only allow files of certain types,
657 >>>> eg executable, non-directory */
659 openp (const char *path
, int try_cwd_first
, const char *string
,
661 char **filename_opened
)
664 register char *filename
;
673 #if defined(_WIN32) || defined(__CYGWIN__)
677 if (try_cwd_first
|| IS_ABSOLUTE_PATH (string
))
681 if (is_regular_file (string
))
683 filename
= alloca (strlen (string
) + 1);
684 strcpy (filename
, string
);
685 fd
= open (filename
, mode
, prot
);
695 for (i
= 0; string
[i
]; i
++)
696 if (IS_DIR_SEPARATOR (string
[i
]))
701 while (string
[0] == '.' && IS_DIR_SEPARATOR (string
[1]))
704 alloclen
= strlen (path
) + strlen (string
) + 2;
705 filename
= alloca (alloclen
);
707 for (p
= path
; p
; p
= p1
? p1
+ 1 : 0)
709 p1
= strchr (p
, DIRNAME_SEPARATOR
);
715 if (len
== 4 && p
[0] == '$' && p
[1] == 'c'
716 && p
[2] == 'w' && p
[3] == 'd')
718 /* Name is $cwd -- insert current directory name instead. */
721 /* First, realloc the filename buffer if too short. */
722 len
= strlen (current_directory
);
723 newlen
= len
+ strlen (string
) + 2;
724 if (newlen
> alloclen
)
727 filename
= alloca (alloclen
);
729 strcpy (filename
, current_directory
);
733 /* Normal file name in path -- just use it. */
734 strncpy (filename
, p
, len
);
738 /* Remove trailing slashes */
739 while (len
> 0 && IS_DIR_SEPARATOR (filename
[len
- 1]))
742 strcat (filename
+ len
, SLASH_STRING
);
743 strcat (filename
, string
);
745 if (is_regular_file (filename
))
747 fd
= open (filename
, mode
);
756 /* If a file was opened, canonicalize its filename. Use xfullpath
757 rather than gdb_realpath to avoid resolving the basename part
758 of filenames when the associated file is a symbolic link. This
759 fixes a potential inconsistency between the filenames known to
760 GDB and the filenames it prints in the annotations. */
762 *filename_opened
= NULL
;
763 else if (IS_ABSOLUTE_PATH (filename
))
764 *filename_opened
= xfullpath (filename
);
767 /* Beware the // my son, the Emacs barfs, the botch that catch... */
769 char *f
= concat (current_directory
,
770 IS_DIR_SEPARATOR (current_directory
[strlen (current_directory
) - 1])
773 *filename_opened
= xfullpath (f
);
782 /* This is essentially a convenience, for clients that want the behaviour
783 of openp, using source_path, but that really don't want the file to be
784 opened but want instead just to know what the full pathname is (as
785 qualified against source_path).
787 The current working directory is searched first.
789 If the file was found, this function returns 1, and FULL_PATHNAME is
790 set to the fully-qualified pathname.
792 Else, this functions returns 0, and FULL_PATHNAME is set to NULL.
795 source_full_path_of (char *filename
, char **full_pathname
)
799 fd
= openp (source_path
, 1, filename
, O_RDONLY
, 0, full_pathname
);
802 *full_pathname
= NULL
;
811 /* Open a source file given a symtab S. Returns a file descriptor or
812 negative number for error. */
815 open_source_file (struct symtab
*s
)
817 char *path
= source_path
;
822 /* Quick way out if we already know its full name */
825 result
= open (s
->fullname
, OPEN_MODE
);
828 /* Didn't work -- free old one, try again. */
829 xmfree (s
->objfile
->md
, s
->fullname
);
833 if (s
->dirname
!= NULL
)
835 /* Replace a path entry of $cdir with the compilation directory name */
837 /* We cast strstr's result in case an ANSIhole has made it const,
838 which produces a "required warning" when assigned to a nonconst. */
839 p
= (char *) strstr (source_path
, "$cdir");
840 if (p
&& (p
== path
|| p
[-1] == DIRNAME_SEPARATOR
)
841 && (p
[cdir_len
] == DIRNAME_SEPARATOR
|| p
[cdir_len
] == '\0'))
846 alloca (strlen (source_path
) + 1 + strlen (s
->dirname
) + 1);
847 len
= p
- source_path
;
848 strncpy (path
, source_path
, len
); /* Before $cdir */
849 strcpy (path
+ len
, s
->dirname
); /* new stuff */
850 strcat (path
+ len
, source_path
+ len
+ cdir_len
); /* After $cdir */
854 result
= openp (path
, 0, s
->filename
, OPEN_MODE
, 0, &s
->fullname
);
857 /* Didn't work. Try using just the basename. */
858 p
= lbasename (s
->filename
);
859 if (p
!= s
->filename
)
860 result
= openp (path
, 0, p
, OPEN_MODE
, 0, &s
->fullname
);
865 fullname
= s
->fullname
;
866 s
->fullname
= mstrsave (s
->objfile
->md
, s
->fullname
);
872 /* Return the path to the source file associated with symtab. Returns NULL
876 symtab_to_filename (struct symtab
*s
)
883 /* If we've seen the file before, just return fullname. */
888 /* Try opening the file to setup fullname */
890 fd
= open_source_file (s
);
892 return s
->filename
; /* File not found. Just use short name */
894 /* Found the file. Cleanup and return the full name */
901 /* Create and initialize the table S->line_charpos that records
902 the positions of the lines in the source file, which is assumed
903 to be open on descriptor DESC.
904 All set S->nlines to the number of such lines. */
907 find_source_lines (struct symtab
*s
, int desc
)
910 register char *data
, *p
, *end
;
912 int lines_allocated
= 1000;
917 line_charpos
= (int *) xmmalloc (s
->objfile
->md
,
918 lines_allocated
* sizeof (int));
919 if (fstat (desc
, &st
) < 0)
920 perror_with_name (s
->filename
);
922 if (s
&& s
->objfile
&& s
->objfile
->obfd
)
923 mtime
= bfd_get_mtime (s
->objfile
->obfd
);
925 mtime
= bfd_get_mtime (exec_bfd
);
927 if (mtime
&& mtime
< st
.st_mtime
)
929 warning ("Source file is more recent than executable.\n");
932 #ifdef LSEEK_NOT_LINEAR
936 /* Have to read it byte by byte to find out where the chars live */
938 line_charpos
[0] = lseek (desc
, 0, SEEK_CUR
);
940 while (myread (desc
, &c
, 1) > 0)
944 if (nlines
== lines_allocated
)
946 lines_allocated
*= 2;
948 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
949 sizeof (int) * lines_allocated
);
951 line_charpos
[nlines
++] = lseek (desc
, 0, SEEK_CUR
);
955 #else /* lseek linear. */
957 struct cleanup
*old_cleanups
;
959 /* st_size might be a large type, but we only support source files whose
960 size fits in an int. */
961 size
= (int) st
.st_size
;
963 /* Use malloc, not alloca, because this may be pretty large, and we may
964 run into various kinds of limits on stack size. */
965 data
= (char *) xmalloc (size
);
966 old_cleanups
= make_cleanup (xfree
, data
);
968 /* Reassign `size' to result of read for systems where \r\n -> \n. */
969 size
= myread (desc
, data
, size
);
971 perror_with_name (s
->filename
);
979 /* A newline at the end does not start a new line. */
982 if (nlines
== lines_allocated
)
984 lines_allocated
*= 2;
986 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
987 sizeof (int) * lines_allocated
);
989 line_charpos
[nlines
++] = p
- data
;
992 do_cleanups (old_cleanups
);
994 #endif /* lseek linear. */
997 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
998 nlines
* sizeof (int));
1002 /* Return the character position of a line LINE in symtab S.
1003 Return 0 if anything is invalid. */
1005 #if 0 /* Currently unused */
1008 source_line_charpos (struct symtab
*s
, int line
)
1012 if (!s
->line_charpos
|| line
<= 0)
1014 if (line
> s
->nlines
)
1016 return s
->line_charpos
[line
- 1];
1019 /* Return the line number of character position POS in symtab S. */
1022 source_charpos_line (register struct symtab
*s
, register int chr
)
1024 register int line
= 0;
1027 if (s
== 0 || s
->line_charpos
== 0)
1029 lnp
= s
->line_charpos
;
1030 /* Files are usually short, so sequential search is Ok */
1031 while (line
< s
->nlines
&& *lnp
<= chr
)
1036 if (line
>= s
->nlines
)
1044 /* Get full pathname and line number positions for a symtab.
1045 Return nonzero if line numbers may have changed.
1046 Set *FULLNAME to actual name of the file as found by `openp',
1047 or to 0 if the file is not found. */
1050 get_filename_and_charpos (struct symtab
*s
, char **fullname
)
1052 register int desc
, linenums_changed
= 0;
1054 desc
= open_source_file (s
);
1062 *fullname
= s
->fullname
;
1063 if (s
->line_charpos
== 0)
1064 linenums_changed
= 1;
1065 if (linenums_changed
)
1066 find_source_lines (s
, desc
);
1068 return linenums_changed
;
1071 /* Print text describing the full name of the source file S
1072 and the line number LINE and its corresponding character position.
1073 The text starts with two Ctrl-z so that the Emacs-GDB interface
1076 MID_STATEMENT is nonzero if the PC is not at the beginning of that line.
1078 Return 1 if successful, 0 if could not find the file. */
1081 identify_source_line (struct symtab
*s
, int line
, int mid_statement
,
1084 if (s
->line_charpos
== 0)
1085 get_filename_and_charpos (s
, (char **) NULL
);
1086 if (s
->fullname
== 0)
1088 if (line
> s
->nlines
)
1089 /* Don't index off the end of the line_charpos array. */
1091 annotate_source (s
->fullname
, line
, s
->line_charpos
[line
- 1],
1094 current_source_line
= line
;
1095 first_line_listed
= line
;
1096 last_line_listed
= line
;
1097 current_source_symtab
= s
;
1102 /* Print source lines from the file of symtab S,
1103 starting with line number LINE and stopping before line number STOPLINE. */
1105 static void print_source_lines_base (struct symtab
*s
, int line
, int stopline
,
1108 print_source_lines_base (struct symtab
*s
, int line
, int stopline
, int noerror
)
1112 register FILE *stream
;
1113 int nlines
= stopline
- line
;
1115 /* Regardless of whether we can open the file, set current_source_symtab. */
1116 current_source_symtab
= s
;
1117 current_source_line
= line
;
1118 first_line_listed
= line
;
1120 /* If printing of source lines is disabled, just print file and line number */
1121 if (ui_out_test_flags (uiout
, ui_source_list
))
1123 /* Only prints "No such file or directory" once */
1124 if ((s
!= last_source_visited
) || (!last_source_error
))
1126 last_source_visited
= s
;
1127 desc
= open_source_file (s
);
1131 desc
= last_source_error
;
1143 last_source_error
= desc
;
1147 char *name
= alloca (strlen (s
->filename
) + 100);
1148 sprintf (name
, "%d\t%s", line
, s
->filename
);
1149 print_sys_errmsg (name
, errno
);
1152 ui_out_field_int (uiout
, "line", line
);
1153 ui_out_text (uiout
, "\tin ");
1154 ui_out_field_string (uiout
, "file", s
->filename
);
1155 ui_out_text (uiout
, "\n");
1160 last_source_error
= 0;
1162 if (s
->line_charpos
== 0)
1163 find_source_lines (s
, desc
);
1165 if (line
< 1 || line
> s
->nlines
)
1168 error ("Line number %d out of range; %s has %d lines.",
1169 line
, s
->filename
, s
->nlines
);
1172 if (lseek (desc
, s
->line_charpos
[line
- 1], 0) < 0)
1175 perror_with_name (s
->filename
);
1178 stream
= fdopen (desc
, FDOPEN_MODE
);
1181 while (nlines
-- > 0)
1188 last_line_listed
= current_source_line
;
1189 sprintf (buf
, "%d\t", current_source_line
++);
1190 ui_out_text (uiout
, buf
);
1193 if (c
< 040 && c
!= '\t' && c
!= '\n' && c
!= '\r')
1195 sprintf (buf
, "^%c", c
+ 0100);
1196 ui_out_text (uiout
, buf
);
1199 ui_out_text (uiout
, "^?");
1200 #ifdef CRLF_SOURCE_FILES
1203 /* Skip a \r character, but only before a \n. */
1204 int c1
= fgetc (stream
);
1207 printf_filtered ("^%c", c
+ 0100);
1209 ungetc (c1
, stream
);
1214 sprintf (buf
, "%c", c
);
1215 ui_out_text (uiout
, buf
);
1218 while (c
!= '\n' && (c
= fgetc (stream
)) >= 0);
1224 /* Show source lines from the file of symtab S, starting with line
1225 number LINE and stopping before line number STOPLINE. If this is the
1226 not the command line version, then the source is shown in the source
1227 window otherwise it is simply printed */
1230 print_source_lines (struct symtab
*s
, int line
, int stopline
, int noerror
)
1232 print_source_lines_base (s
, line
, stopline
, noerror
);
1235 /* Print a list of files and line numbers which a user may choose from
1236 in order to list a function which was specified ambiguously (as with
1237 `list classname::overloadedfuncname', or 'list objectiveCSelector:).
1238 The vector in SALS provides the filenames and line numbers.
1239 NOTE: some of the SALS may have no filename or line information! */
1242 ambiguous_line_spec (struct symtabs_and_lines
*sals
)
1246 for (i
= 0; i
< sals
->nelts
; ++i
)
1247 printf_filtered ("file: \"%s\", line number: %d\n",
1248 sals
->sals
[i
].symtab
->filename
, sals
->sals
[i
].line
);
1251 /* Print info on range of pc's in a specified line. */
1254 line_info (char *arg
, int from_tty
)
1256 struct symtabs_and_lines sals
;
1257 struct symtab_and_line sal
;
1258 CORE_ADDR start_pc
, end_pc
;
1261 init_sal (&sal
); /* initialize to zeroes */
1265 sal
.symtab
= current_source_symtab
;
1266 sal
.line
= last_line_listed
;
1268 sals
.sals
= (struct symtab_and_line
*)
1269 xmalloc (sizeof (struct symtab_and_line
));
1274 sals
= decode_line_spec_1 (arg
, 0);
1279 /* C++ More than one line may have been specified, as when the user
1280 specifies an overloaded function name. Print info on them all. */
1281 for (i
= 0; i
< sals
.nelts
; i
++)
1285 if (sal
.symtab
== 0)
1287 printf_filtered ("No line number information available");
1290 /* This is useful for "info line *0x7f34". If we can't tell the
1291 user about a source line, at least let them have the symbolic
1293 printf_filtered (" for address ");
1295 print_address (sal
.pc
, gdb_stdout
);
1298 printf_filtered (".");
1299 printf_filtered ("\n");
1301 else if (sal
.line
> 0
1302 && find_line_pc_range (sal
, &start_pc
, &end_pc
))
1304 if (start_pc
== end_pc
)
1306 printf_filtered ("Line %d of \"%s\"",
1307 sal
.line
, sal
.symtab
->filename
);
1309 printf_filtered (" is at address ");
1310 print_address (start_pc
, gdb_stdout
);
1312 printf_filtered (" but contains no code.\n");
1316 printf_filtered ("Line %d of \"%s\"",
1317 sal
.line
, sal
.symtab
->filename
);
1319 printf_filtered (" starts at address ");
1320 print_address (start_pc
, gdb_stdout
);
1322 printf_filtered (" and ends at ");
1323 print_address (end_pc
, gdb_stdout
);
1324 printf_filtered (".\n");
1327 /* x/i should display this line's code. */
1328 set_next_address (start_pc
);
1330 /* Repeating "info line" should do the following line. */
1331 last_line_listed
= sal
.line
+ 1;
1333 /* If this is the only line, show the source code. If it could
1334 not find the file, don't do anything special. */
1335 if (annotation_level
&& sals
.nelts
== 1)
1336 identify_source_line (sal
.symtab
, sal
.line
, 0, start_pc
);
1339 /* Is there any case in which we get here, and have an address
1340 which the user would want to see? If we have debugging symbols
1341 and no line numbers? */
1342 printf_filtered ("Line number %d is out of range for \"%s\".\n",
1343 sal
.line
, sal
.symtab
->filename
);
1348 /* Commands to search the source file for a regexp. */
1352 forward_search_command (char *regex
, int from_tty
)
1356 register FILE *stream
;
1360 line
= last_line_listed
+ 1;
1362 msg
= (char *) re_comp (regex
);
1366 if (current_source_symtab
== 0)
1367 select_source_symtab (0);
1369 desc
= open_source_file (current_source_symtab
);
1371 perror_with_name (current_source_symtab
->filename
);
1373 if (current_source_symtab
->line_charpos
== 0)
1374 find_source_lines (current_source_symtab
, desc
);
1376 if (line
< 1 || line
> current_source_symtab
->nlines
)
1379 error ("Expression not found");
1382 if (lseek (desc
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1385 perror_with_name (current_source_symtab
->filename
);
1388 stream
= fdopen (desc
, FDOPEN_MODE
);
1392 static char *buf
= NULL
;
1394 int cursize
, newsize
;
1397 buf
= xmalloc (cursize
);
1406 if (p
- buf
== cursize
)
1408 newsize
= cursize
+ cursize
/ 2;
1409 buf
= xrealloc (buf
, newsize
);
1414 while (c
!= '\n' && (c
= getc (stream
)) >= 0);
1416 #ifdef CRLF_SOURCE_FILES
1417 /* Remove the \r, if any, at the end of the line, otherwise
1418 regular expressions that end with $ or \n won't work. */
1419 if (p
- buf
> 1 && p
[-2] == '\r')
1426 /* we now have a source line in buf, null terminate and match */
1428 if (re_exec (buf
) > 0)
1432 print_source_lines (current_source_symtab
, line
, line
+ 1, 0);
1433 set_internalvar (lookup_internalvar ("_"),
1434 value_from_longest (builtin_type_int
,
1436 current_source_line
= max (line
- lines_to_list
/ 2, 1);
1442 printf_filtered ("Expression not found\n");
1448 reverse_search_command (char *regex
, int from_tty
)
1452 register FILE *stream
;
1456 line
= last_line_listed
- 1;
1458 msg
= (char *) re_comp (regex
);
1462 if (current_source_symtab
== 0)
1463 select_source_symtab (0);
1465 desc
= open_source_file (current_source_symtab
);
1467 perror_with_name (current_source_symtab
->filename
);
1469 if (current_source_symtab
->line_charpos
== 0)
1470 find_source_lines (current_source_symtab
, desc
);
1472 if (line
< 1 || line
> current_source_symtab
->nlines
)
1475 error ("Expression not found");
1478 if (lseek (desc
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1481 perror_with_name (current_source_symtab
->filename
);
1484 stream
= fdopen (desc
, FDOPEN_MODE
);
1488 /* FIXME!!! We walk right off the end of buf if we get a long line!!! */
1489 char buf
[4096]; /* Should be reasonable??? */
1490 register char *p
= buf
;
1499 while (c
!= '\n' && (c
= getc (stream
)) >= 0);
1501 #ifdef CRLF_SOURCE_FILES
1502 /* Remove the \r, if any, at the end of the line, otherwise
1503 regular expressions that end with $ or \n won't work. */
1504 if (p
- buf
> 1 && p
[-2] == '\r')
1511 /* We now have a source line in buf; null terminate and match. */
1513 if (re_exec (buf
) > 0)
1517 print_source_lines (current_source_symtab
, line
, line
+ 1, 0);
1518 set_internalvar (lookup_internalvar ("_"),
1519 value_from_longest (builtin_type_int
,
1521 current_source_line
= max (line
- lines_to_list
/ 2, 1);
1525 if (fseek (stream
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1528 perror_with_name (current_source_symtab
->filename
);
1532 printf_filtered ("Expression not found\n");
1538 _initialize_source (void)
1540 struct cmd_list_element
*c
;
1541 current_source_symtab
= 0;
1542 init_source_path ();
1544 /* The intention is to use POSIX Basic Regular Expressions.
1545 Always use the GNU regex routine for consistency across all hosts.
1546 Our current GNU regex.c does not have all the POSIX features, so this is
1547 just an approximation. */
1548 re_set_syntax (RE_SYNTAX_GREP
);
1550 c
= add_cmd ("directory", class_files
, directory_command
,
1551 "Add directory DIR to beginning of search path for source files.\n\
1552 Forget cached info on source file locations and line positions.\n\
1553 DIR can also be $cwd for the current working directory, or $cdir for the\n\
1554 directory in which the source file was compiled into object code.\n\
1555 With no argument, reset the search path to $cdir:$cwd, the default.",
1559 add_com_alias ("use", "directory", class_files
, 0);
1561 set_cmd_completer (c
, filename_completer
);
1563 add_cmd ("directories", no_class
, show_directories
,
1564 "Current search path for finding source files.\n\
1565 $cwd in the path means the current working directory.\n\
1566 $cdir in the path means the compilation directory of the source file.",
1571 add_com_alias ("D", "directory", class_files
, 0);
1572 add_cmd ("ld", no_class
, show_directories
,
1573 "Current search path for finding source files.\n\
1574 $cwd in the path means the current working directory.\n\
1575 $cdir in the path means the compilation directory of the source file.",
1579 add_info ("source", source_info
,
1580 "Information about the current source file.");
1582 add_info ("line", line_info
,
1583 concat ("Core addresses of the code for a source line.\n\
1584 Line can be specified as\n\
1585 LINENUM, to list around that line in current file,\n\
1586 FILE:LINENUM, to list around that line in that file,\n\
1587 FUNCTION, to list around beginning of that function,\n\
1588 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1590 Default is to describe the last source line that was listed.\n\n\
1591 This sets the default address for \"x\" to the line's first instruction\n\
1592 so that \"x/i\" suffices to start examining the machine code.\n\
1593 The address is also stored as the value of \"$_\".", NULL
));
1595 add_com ("forward-search", class_files
, forward_search_command
,
1596 "Search for regular expression (see regex(3)) from last line listed.\n\
1597 The matching line number is also stored as the value of \"$_\".");
1598 add_com_alias ("search", "forward-search", class_files
, 0);
1600 add_com ("reverse-search", class_files
, reverse_search_command
,
1601 "Search backward for regular expression (see regex(3)) from last line listed.\n\
1602 The matching line number is also stored as the value of \"$_\".");
1606 add_com_alias ("/", "forward-search", class_files
, 0);
1607 add_com_alias ("?", "reverse-search", class_files
, 0);
1611 (add_set_cmd ("listsize", class_support
, var_uinteger
,
1612 (char *) &lines_to_list
,
1613 "Set number of source lines gdb will list by default.",
This page took 0.062634 seconds and 4 git commands to generate.