1 /* List lines of source files for GDB, the GNU debugger.
2 Copyright 1986, 1987, 1988, 1989, 1990, 1991, 1992, 1993, 1994, 1995,
3 1996, 1997, 1998, 1999, 2000, 2001 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 2 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program; if not, write to the Free Software
19 Foundation, Inc., 59 Temple Place - Suite 330,
20 Boston, MA 02111-1307, USA. */
24 #include "expression.h"
32 #include <sys/types.h>
33 #include "gdb_string.h"
37 #include "gdb_regex.h"
47 #ifdef CRLF_SOURCE_FILES
49 /* Define CRLF_SOURCE_FILES in an xm-*.h file if source files on the
50 host use \r\n rather than just \n. Defining CRLF_SOURCE_FILES is
51 much faster than defining LSEEK_NOT_LINEAR. */
57 #define OPEN_MODE (O_RDONLY | O_BINARY)
58 #define FDOPEN_MODE FOPEN_RB
60 #else /* ! defined (CRLF_SOURCE_FILES) */
62 #define OPEN_MODE O_RDONLY
63 #define FDOPEN_MODE FOPEN_RT
65 #endif /* ! defined (CRLF_SOURCE_FILES) */
67 /* Prototypes for exported functions. */
69 void _initialize_source (void);
71 /* Prototypes for local functions. */
73 static int get_filename_and_charpos (struct symtab
*, char **);
75 static void reverse_search_command (char *, int);
77 static void forward_search_command (char *, int);
79 static void line_info (char *, int);
81 static void list_command (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 struct symtab
*current_source_symtab
;
98 /* Default next line to list. */
100 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;
126 /* Set the source file default for the "list" command to be S.
128 If S is NULL, and we don't have a default, find one. This
129 should only be called when the user actually tries to use the
130 default, since we produce an error if we can't find a reasonable
131 default. Also, since this can cause symbols to be read, doing it
132 before we need to would make things slower than necessary. */
135 select_source_symtab (register struct symtab
*s
)
137 struct symtabs_and_lines sals
;
138 struct symtab_and_line sal
;
139 struct partial_symtab
*ps
;
140 struct partial_symtab
*cs_pst
= 0;
145 current_source_symtab
= s
;
146 current_source_line
= 1;
150 if (current_source_symtab
)
153 /* Make the default place to list be the function `main'
155 if (lookup_symbol ("main", 0, VAR_NAMESPACE
, 0, NULL
))
157 sals
= decode_line_spec ("main", 1);
160 current_source_symtab
= sal
.symtab
;
161 current_source_line
= max (sal
.line
- (lines_to_list
- 1), 1);
162 if (current_source_symtab
)
166 /* All right; find the last file in the symtab list (ignoring .h's). */
168 current_source_line
= 1;
170 for (ofp
= object_files
; ofp
!= NULL
; ofp
= ofp
->next
)
172 for (s
= ofp
->symtabs
; s
; s
= s
->next
)
174 char *name
= s
->filename
;
175 int len
= strlen (name
);
176 if (!(len
> 2 && (STREQ (&name
[len
- 2], ".h"))))
178 current_source_symtab
= s
;
182 if (current_source_symtab
)
185 /* Howabout the partial symbol tables? */
187 for (ofp
= object_files
; ofp
!= NULL
; ofp
= ofp
->next
)
189 for (ps
= ofp
->psymtabs
; ps
!= NULL
; ps
= ps
->next
)
191 char *name
= ps
->filename
;
192 int len
= strlen (name
);
193 if (!(len
> 2 && (STREQ (&name
[len
- 2], ".h"))))
203 internal_error (__FILE__
, __LINE__
,
204 "select_source_symtab: "
205 "readin pst found and no symtabs.");
209 current_source_symtab
= PSYMTAB_TO_SYMTAB (cs_pst
);
212 if (current_source_symtab
)
215 error ("Can't find a default source file");
219 show_directories (char *ignore
, int from_tty
)
221 puts_filtered ("Source directories searched: ");
222 puts_filtered (source_path
);
223 puts_filtered ("\n");
226 /* Forget what we learned about line positions in source files, and
227 which directories contain them; must check again now since files
228 may be found in a different directory now. */
231 forget_cached_source_info (void)
233 register struct symtab
*s
;
234 register struct objfile
*objfile
;
236 for (objfile
= object_files
; objfile
!= NULL
; objfile
= objfile
->next
)
238 for (s
= objfile
->symtabs
; s
!= NULL
; s
= s
->next
)
240 if (s
->line_charpos
!= NULL
)
242 mfree (objfile
->md
, s
->line_charpos
);
243 s
->line_charpos
= NULL
;
245 if (s
->fullname
!= NULL
)
247 mfree (objfile
->md
, s
->fullname
);
255 init_source_path (void)
259 sprintf (buf
, "$cdir%c$cwd", DIRNAME_SEPARATOR
);
260 source_path
= xstrdup (buf
);
261 forget_cached_source_info ();
264 /* Add zero or more directories to the front of the source path. */
267 directory_command (char *dirname
, int from_tty
)
270 /* FIXME, this goes to "delete dir"... */
273 if (from_tty
&& query ("Reinitialize source path to empty? "))
281 mod_path (dirname
, &source_path
);
282 last_source_visited
= NULL
;
285 show_directories ((char *) 0, from_tty
);
286 forget_cached_source_info ();
289 /* Add zero or more directories to the front of an arbitrary path. */
292 mod_path (char *dirname
, char **which_path
)
294 char *old
= *which_path
;
300 dirname
= xstrdup (dirname
);
301 make_cleanup (xfree
, dirname
);
305 char *name
= dirname
;
310 char *separator
= strchr (name
, DIRNAME_SEPARATOR
);
311 char *space
= strchr (name
, ' ');
312 char *tab
= strchr (name
, '\t');
314 if (separator
== 0 && space
== 0 && tab
== 0)
315 p
= dirname
= name
+ strlen (name
);
319 if (separator
!= 0 && (p
== 0 || separator
< p
))
321 if (space
!= 0 && (p
== 0 || space
< p
))
323 if (tab
!= 0 && (p
== 0 || tab
< p
))
326 while (*dirname
== DIRNAME_SEPARATOR
333 if (!(SLASH_P (*name
) && p
<= name
+ 1) /* "/" */
334 #if defined(_WIN32) || defined(__MSDOS__) || defined(__CYGWIN__)
335 /* On MS-DOS and MS-Windows, h:\ is different from h: */
336 && !(!SLASH_P (*name
) && ROOTED_P (name
) && p
<= name
+ 3) /* d:/ */
339 /* Sigh. "foo/" => "foo" */
343 while (p
> name
&& p
[-1] == '.')
347 /* "." => getwd (). */
348 name
= current_directory
;
351 else if (p
> name
+ 1 && SLASH_P (p
[-2]))
361 /* "...foo/." => "...foo". */
372 name
= tilde_expand (name
);
373 #if defined(_WIN32) || defined(__MSDOS__) || defined(__CYGWIN__)
374 else if (ROOTED_P (name
) && p
== name
+ 2) /* "d:" => "d:." */
375 name
= concat (name
, ".", NULL
);
377 else if (!ROOTED_P (name
) && name
[0] != '$')
378 name
= concat (current_directory
, SLASH_STRING
, name
, NULL
);
380 name
= savestring (name
, p
- name
);
381 make_cleanup (xfree
, name
);
383 /* Unless it's a variable, check existence. */
386 /* These are warnings, not errors, since we don't want a
387 non-existent directory in a .gdbinit file to stop processing
388 of the .gdbinit file.
390 Whether they get added to the path is more debatable. Current
391 answer is yes, in case the user wants to go make the directory
392 or whatever. If the directory continues to not exist/not be
393 a directory/etc, then having them in the path should be
395 if (stat (name
, &st
) < 0)
397 int save_errno
= errno
;
398 fprintf_unfiltered (gdb_stderr
, "Warning: ");
399 print_sys_errmsg (name
, save_errno
);
401 else if ((st
.st_mode
& S_IFMT
) != S_IFDIR
)
402 warning ("%s is not a directory.", name
);
407 register unsigned int len
= strlen (name
);
412 /* FIXME: strncmp loses in interesting ways on MS-DOS and
413 MS-Windows because of case-insensitivity and two different
414 but functionally identical slash characters. We need a
415 special filesystem-dependent file-name comparison function.
417 Actually, even on Unix I would use realpath() or its work-
418 alike before comparing. Then all the code above which
419 removes excess slashes and dots could simply go away. */
420 if (!strncmp (p
, name
, len
)
421 && (p
[len
] == '\0' || p
[len
] == DIRNAME_SEPARATOR
))
423 /* Found it in the search path, remove old copy */
425 p
--; /* Back over leading separator */
426 if (prefix
> p
- *which_path
)
427 goto skip_dup
; /* Same dir twice in one cmd */
428 strcpy (p
, &p
[len
+ 1]); /* Copy from next \0 or : */
430 p
= strchr (p
, DIRNAME_SEPARATOR
);
440 tinybuf
[0] = DIRNAME_SEPARATOR
;
443 /* If we have already tacked on a name(s) in this command, be sure they stay on the front as we tack on some more. */
450 temp
= concat (old
, tinybuf
, name
, NULL
);
452 *which_path
= concat (temp
, "", &old
[prefix
], NULL
);
453 prefix
= strlen (temp
);
458 *which_path
= concat (name
, (old
[0] ? tinybuf
: old
), old
, NULL
);
459 prefix
= strlen (name
);
467 while (*dirname
!= '\0');
472 source_info (char *ignore
, int from_tty
)
474 register struct symtab
*s
= current_source_symtab
;
478 printf_filtered ("No current source file.\n");
481 printf_filtered ("Current source file is %s\n", s
->filename
);
483 printf_filtered ("Compilation directory is %s\n", s
->dirname
);
485 printf_filtered ("Located in %s\n", s
->fullname
);
487 printf_filtered ("Contains %d line%s.\n", s
->nlines
,
488 s
->nlines
== 1 ? "" : "s");
490 printf_filtered ("Source language is %s.\n", language_str (s
->language
));
491 printf_filtered ("Compiled with %s debugging format.\n", s
->debugformat
);
496 /* Open a file named STRING, searching path PATH (dir names sep by some char)
497 using mode MODE and protection bits PROT in the calls to open.
499 If TRY_CWD_FIRST, try to open ./STRING before searching PATH.
500 (ie pretend the first element of PATH is "."). This also indicates
501 that a slash in STRING disables searching of the path (this is
502 so that "exec-file ./foo" or "symbol-file ./foo" insures that you
503 get that particular version of foo or an error message).
505 If FILENAME_OPENED is non-null, set it to a newly allocated string naming
506 the actual file opened (this string will always start with a "/". We
507 have to take special pains to avoid doubling the "/" between the directory
508 and the file, sigh! Emacs gets confuzzed by this when we print the
511 If a file is found, return the descriptor.
512 Otherwise, return -1, with errno set for the last name we tried to open. */
514 /* >>>> This should only allow files of certain types,
515 >>>> eg executable, non-directory */
517 openp (char *path
, int try_cwd_first
, char *string
, int mode
, int prot
,
518 char **filename_opened
)
521 register char *filename
;
522 register char *p
, *p1
;
529 #if defined(_WIN32) || defined(__CYGWIN__)
533 if (try_cwd_first
|| ROOTED_P (string
))
537 fd
= open (filename
, mode
, prot
);
540 for (i
= 0; string
[i
]; i
++)
541 if (SLASH_P (string
[i
]))
546 while (string
[0] == '.' && SLASH_P (string
[1]))
549 alloclen
= strlen (path
) + strlen (string
) + 2;
550 filename
= (char *) alloca (alloclen
);
552 for (p
= path
; p
; p
= p1
? p1
+ 1 : 0)
554 p1
= (char *) strchr (p
, DIRNAME_SEPARATOR
);
560 if (len
== 4 && p
[0] == '$' && p
[1] == 'c'
561 && p
[2] == 'w' && p
[3] == 'd')
563 /* Name is $cwd -- insert current directory name instead. */
566 /* First, realloc the filename buffer if too short. */
567 len
= strlen (current_directory
);
568 newlen
= len
+ strlen (string
) + 2;
569 if (newlen
> alloclen
)
572 filename
= (char *) alloca (alloclen
);
574 strcpy (filename
, current_directory
);
578 /* Normal file name in path -- just use it. */
579 strncpy (filename
, p
, len
);
583 /* Remove trailing slashes */
584 while (len
> 0 && SLASH_P (filename
[len
- 1]))
587 strcat (filename
+ len
, SLASH_STRING
);
588 strcat (filename
, string
);
590 fd
= open (filename
, mode
);
599 *filename_opened
= (char *) 0;
600 else if (ROOTED_P (filename
))
601 *filename_opened
= savestring (filename
, strlen (filename
));
604 /* Beware the // my son, the Emacs barfs, the botch that catch... */
606 *filename_opened
= concat (current_directory
,
607 SLASH_P (current_directory
[strlen (current_directory
) - 1])
612 /* OBSOLETE #ifdef MPW */
613 /* OBSOLETE This is a debugging hack that can go away when all combinations */
614 /* OBSOLETE of Mac and Unix names are handled reasonably. */
616 /* OBSOLETE extern int debug_openp; */
618 /* OBSOLETE if (debug_openp) */
620 /* OBSOLETE printf ("openp on %s, path %s mode %d prot %d\n returned %d", */
621 /* OBSOLETE string, path, mode, prot, fd); */
622 /* OBSOLETE if (*filename_opened) */
623 /* OBSOLETE printf (" (filename is %s)", *filename_opened); */
624 /* OBSOLETE printf ("\n"); */
627 /* OBSOLETE #endif *//* MPW */
633 /* This is essentially a convenience, for clients that want the behaviour
634 of openp, using source_path, but that really don't want the file to be
635 opened but want instead just to know what the full pathname is (as
636 qualified against source_path).
638 The current working directory is searched first.
640 If the file was found, this function returns 1, and FULL_PATHNAME is
641 set to the fully-qualified pathname.
643 Else, this functions returns 0, and FULL_PATHNAME is set to NULL.
646 source_full_path_of (char *filename
, char **full_pathname
)
650 fd
= openp (source_path
, 1, filename
, O_RDONLY
, 0, full_pathname
);
653 *full_pathname
= NULL
;
662 /* Open a source file given a symtab S. Returns a file descriptor or
663 negative number for error. */
666 open_source_file (struct symtab
*s
)
668 char *path
= source_path
;
673 /* Quick way out if we already know its full name */
676 result
= open (s
->fullname
, OPEN_MODE
);
679 /* Didn't work -- free old one, try again. */
680 mfree (s
->objfile
->md
, s
->fullname
);
684 if (s
->dirname
!= NULL
)
686 /* Replace a path entry of $cdir with the compilation directory name */
688 /* We cast strstr's result in case an ANSIhole has made it const,
689 which produces a "required warning" when assigned to a nonconst. */
690 p
= (char *) strstr (source_path
, "$cdir");
691 if (p
&& (p
== path
|| p
[-1] == DIRNAME_SEPARATOR
)
692 && (p
[cdir_len
] == DIRNAME_SEPARATOR
|| p
[cdir_len
] == '\0'))
697 alloca (strlen (source_path
) + 1 + strlen (s
->dirname
) + 1);
698 len
= p
- source_path
;
699 strncpy (path
, source_path
, len
); /* Before $cdir */
700 strcpy (path
+ len
, s
->dirname
); /* new stuff */
701 strcat (path
+ len
, source_path
+ len
+ cdir_len
); /* After $cdir */
705 result
= openp (path
, 0, s
->filename
, OPEN_MODE
, 0, &s
->fullname
);
708 /* Didn't work. Try using just the basename. */
709 p
= basename (s
->filename
);
710 if (p
!= s
->filename
)
711 result
= openp (path
, 0, p
, OPEN_MODE
, 0, &s
->fullname
);
713 /* OBSOLETE #ifdef MPW */
714 /* OBSOLETE if (result < 0) */
716 /* OBSOLETE *//* Didn't work. Try using just the MPW basename. */
717 /* OBSOLETE p = (char *) mpw_basename (s->filename); */
718 /* OBSOLETE if (p != s->filename) */
719 /* OBSOLETE result = openp (path, 0, p, OPEN_MODE, 0, &s->fullname); */
721 /* OBSOLETE if (result < 0) */
723 /* OBSOLETE *//* Didn't work. Try using the mixed Unix/MPW basename. */
724 /* OBSOLETE p = (char *) mpw_mixed_basename (s->filename); */
725 /* OBSOLETE if (p != s->filename) */
726 /* OBSOLETE result = openp (path, 0, p, OPEN_MODE, 0, &s->fullname); */
728 /* OBSOLETE #endif MPW */
732 fullname
= s
->fullname
;
733 s
->fullname
= mstrsave (s
->objfile
->md
, s
->fullname
);
739 /* Return the path to the source file associated with symtab. Returns NULL
743 symtab_to_filename (struct symtab
*s
)
750 /* If we've seen the file before, just return fullname. */
755 /* Try opening the file to setup fullname */
757 fd
= open_source_file (s
);
759 return s
->filename
; /* File not found. Just use short name */
761 /* Found the file. Cleanup and return the full name */
768 /* Create and initialize the table S->line_charpos that records
769 the positions of the lines in the source file, which is assumed
770 to be open on descriptor DESC.
771 All set S->nlines to the number of such lines. */
774 find_source_lines (struct symtab
*s
, int desc
)
777 register char *data
, *p
, *end
;
779 int lines_allocated
= 1000;
784 line_charpos
= (int *) xmmalloc (s
->objfile
->md
,
785 lines_allocated
* sizeof (int));
786 if (fstat (desc
, &st
) < 0)
787 perror_with_name (s
->filename
);
789 if (s
&& s
->objfile
&& s
->objfile
->obfd
)
790 mtime
= bfd_get_mtime (s
->objfile
->obfd
);
792 mtime
= bfd_get_mtime (exec_bfd
);
794 if (mtime
&& mtime
< st
.st_mtime
)
797 printf_filtered ("\n");
798 warning ("Source file is more recent than executable.\n");
801 #ifdef LSEEK_NOT_LINEAR
805 /* Have to read it byte by byte to find out where the chars live */
807 line_charpos
[0] = lseek (desc
, 0, SEEK_CUR
);
809 while (myread (desc
, &c
, 1) > 0)
813 if (nlines
== lines_allocated
)
815 lines_allocated
*= 2;
817 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
818 sizeof (int) * lines_allocated
);
820 line_charpos
[nlines
++] = lseek (desc
, 0, SEEK_CUR
);
824 #else /* lseek linear. */
826 struct cleanup
*old_cleanups
;
828 /* st_size might be a large type, but we only support source files whose
829 size fits in an int. */
830 size
= (int) st
.st_size
;
832 /* Use malloc, not alloca, because this may be pretty large, and we may
833 run into various kinds of limits on stack size. */
834 data
= (char *) xmalloc (size
);
835 old_cleanups
= make_cleanup (xfree
, data
);
837 /* Reassign `size' to result of read for systems where \r\n -> \n. */
838 size
= myread (desc
, data
, size
);
840 perror_with_name (s
->filename
);
848 /* A newline at the end does not start a new line. */
851 if (nlines
== lines_allocated
)
853 lines_allocated
*= 2;
855 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
856 sizeof (int) * lines_allocated
);
858 line_charpos
[nlines
++] = p
- data
;
861 do_cleanups (old_cleanups
);
863 #endif /* lseek linear. */
866 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
867 nlines
* sizeof (int));
871 /* Return the character position of a line LINE in symtab S.
872 Return 0 if anything is invalid. */
874 #if 0 /* Currently unused */
877 source_line_charpos (struct symtab
*s
, int line
)
881 if (!s
->line_charpos
|| line
<= 0)
883 if (line
> s
->nlines
)
885 return s
->line_charpos
[line
- 1];
888 /* Return the line number of character position POS in symtab S. */
891 source_charpos_line (register struct symtab
*s
, register int chr
)
893 register int line
= 0;
896 if (s
== 0 || s
->line_charpos
== 0)
898 lnp
= s
->line_charpos
;
899 /* Files are usually short, so sequential search is Ok */
900 while (line
< s
->nlines
&& *lnp
<= chr
)
905 if (line
>= s
->nlines
)
913 /* Get full pathname and line number positions for a symtab.
914 Return nonzero if line numbers may have changed.
915 Set *FULLNAME to actual name of the file as found by `openp',
916 or to 0 if the file is not found. */
919 get_filename_and_charpos (struct symtab
*s
, char **fullname
)
921 register int desc
, linenums_changed
= 0;
923 desc
= open_source_file (s
);
931 *fullname
= s
->fullname
;
932 if (s
->line_charpos
== 0)
933 linenums_changed
= 1;
934 if (linenums_changed
)
935 find_source_lines (s
, desc
);
937 return linenums_changed
;
940 /* Print text describing the full name of the source file S
941 and the line number LINE and its corresponding character position.
942 The text starts with two Ctrl-z so that the Emacs-GDB interface
945 MID_STATEMENT is nonzero if the PC is not at the beginning of that line.
947 Return 1 if successful, 0 if could not find the file. */
950 identify_source_line (struct symtab
*s
, int line
, int mid_statement
,
953 if (s
->line_charpos
== 0)
954 get_filename_and_charpos (s
, (char **) NULL
);
955 if (s
->fullname
== 0)
957 if (line
> s
->nlines
)
958 /* Don't index off the end of the line_charpos array. */
960 annotate_source (s
->fullname
, line
, s
->line_charpos
[line
- 1],
963 current_source_line
= line
;
964 first_line_listed
= line
;
965 last_line_listed
= line
;
966 current_source_symtab
= s
;
971 /* Print source lines from the file of symtab S,
972 starting with line number LINE and stopping before line number STOPLINE. */
974 static void print_source_lines_base (struct symtab
*s
, int line
, int stopline
,
977 print_source_lines_base (struct symtab
*s
, int line
, int stopline
, int noerror
)
981 register FILE *stream
;
982 int nlines
= stopline
- line
;
984 /* Regardless of whether we can open the file, set current_source_symtab. */
985 current_source_symtab
= s
;
986 current_source_line
= line
;
987 first_line_listed
= line
;
990 /* If printing of source lines is disabled, just print file and line number */
991 if (ui_out_test_flags (uiout
, ui_source_list
))
994 /* Only prints "No such file or directory" once */
995 if ((s
!= last_source_visited
) || (!last_source_error
))
997 last_source_visited
= s
;
998 desc
= open_source_file (s
);
1002 desc
= last_source_error
;
1016 last_source_error
= desc
;
1020 char *name
= alloca (strlen (s
->filename
) + 100);
1021 sprintf (name
, "%d\t%s", line
, s
->filename
);
1022 print_sys_errmsg (name
, errno
);
1026 ui_out_field_int (uiout
, "line", line
);
1027 ui_out_text (uiout
, "\tin ");
1028 ui_out_field_string (uiout
, "file", s
->filename
);
1029 ui_out_text (uiout
, "\n");
1031 printf_filtered ("%d\tin %s\n", line
, s
->filename
);
1037 last_source_error
= 0;
1039 if (s
->line_charpos
== 0)
1040 find_source_lines (s
, desc
);
1042 if (line
< 1 || line
> s
->nlines
)
1045 error ("Line number %d out of range; %s has %d lines.",
1046 line
, s
->filename
, s
->nlines
);
1049 if (lseek (desc
, s
->line_charpos
[line
- 1], 0) < 0)
1052 perror_with_name (s
->filename
);
1055 stream
= fdopen (desc
, FDOPEN_MODE
);
1058 while (nlines
-- > 0)
1066 last_line_listed
= current_source_line
;
1067 sprintf (buf
, "%d\t", current_source_line
++);
1068 ui_out_text (uiout
, buf
);
1071 if (c
< 040 && c
!= '\t' && c
!= '\n' && c
!= '\r')
1073 sprintf (buf
, "^%c", c
+ 0100);
1074 ui_out_text (uiout
, buf
);
1077 ui_out_text (uiout
, "^?");
1078 #ifdef CRLF_SOURCE_FILES
1081 /* Skip a \r character, but only before a \n. */
1082 int c1
= fgetc (stream
);
1085 printf_filtered ("^%c", c
+ 0100);
1087 ungetc (c1
, stream
);
1092 sprintf (buf
, "%c", c
);
1093 ui_out_text (uiout
, buf
);
1096 while (c
!= '\n' && (c
= fgetc (stream
)) >= 0);
1101 last_line_listed
= current_source_line
;
1102 printf_filtered ("%d\t", current_source_line
++);
1105 if (c
< 040 && c
!= '\t' && c
!= '\n' && c
!= '\r')
1106 printf_filtered ("^%c", c
+ 0100);
1108 printf_filtered ("^?");
1109 #ifdef CRLF_SOURCE_FILES
1112 /* Just skip \r characters. */
1116 printf_filtered ("%c", c
);
1118 while (c
!= '\n' && (c
= fgetc (stream
)) >= 0);
1125 /* Show source lines from the file of symtab S, starting with line
1126 number LINE and stopping before line number STOPLINE. If this is the
1127 not the command line version, then the source is shown in the source
1128 window otherwise it is simply printed */
1131 print_source_lines (struct symtab
*s
, int line
, int stopline
, int noerror
)
1135 m_winPtrIsNull (srcWin
) || !srcWin
->generic
.isVisible
)
1136 print_source_lines_base (s
, line
, stopline
, noerror
);
1139 TuiGenWinInfoPtr locator
= locatorWinInfoPtr ();
1140 extern void tui_vAddWinToLayout (va_list);
1141 extern void tui_vUpdateSourceWindowsWithLine (va_list);
1143 /* Regardless of whether we can open the file,
1144 set current_source_symtab. */
1145 current_source_symtab
= s
;
1146 current_source_line
= line
;
1147 first_line_listed
= line
;
1149 /* make sure that the source window is displayed */
1150 tuiDo ((TuiOpaqueFuncPtr
) tui_vAddWinToLayout
, SRC_WIN
);
1152 tuiDo ((TuiOpaqueFuncPtr
) tui_vUpdateSourceWindowsWithLine
, s
, line
);
1153 tuiDo ((TuiOpaqueFuncPtr
) tui_vUpdateLocatorFilename
, s
->filename
);
1156 print_source_lines_base (s
, line
, stopline
, noerror
);
1162 /* Print a list of files and line numbers which a user may choose from
1163 in order to list a function which was specified ambiguously (as with
1164 `list classname::overloadedfuncname', for example). The vector in
1165 SALS provides the filenames and line numbers. */
1168 ambiguous_line_spec (struct symtabs_and_lines
*sals
)
1172 for (i
= 0; i
< sals
->nelts
; ++i
)
1173 printf_filtered ("file: \"%s\", line number: %d\n",
1174 sals
->sals
[i
].symtab
->filename
, sals
->sals
[i
].line
);
1178 list_command (char *arg
, int from_tty
)
1180 struct symtabs_and_lines sals
, sals_end
;
1181 struct symtab_and_line sal
, sal_end
;
1187 int linenum_beg
= 0;
1190 if (!have_full_symbols () && !have_partial_symbols ())
1191 error ("No symbol table is loaded. Use the \"file\" command.");
1193 /* Pull in a current source symtab if necessary */
1194 if (current_source_symtab
== 0 &&
1195 (arg
== 0 || arg
[0] == '+' || arg
[0] == '-'))
1196 select_source_symtab (0);
1198 /* "l" or "l +" lists next ten lines. */
1200 if (arg
== 0 || STREQ (arg
, "+"))
1202 if (current_source_symtab
== 0)
1203 error ("No default source file yet. Do \"help list\".");
1204 print_source_lines (current_source_symtab
, current_source_line
,
1205 current_source_line
+ lines_to_list
, 0);
1209 /* "l -" lists previous ten lines, the ones before the ten just listed. */
1210 if (STREQ (arg
, "-"))
1212 if (current_source_symtab
== 0)
1213 error ("No default source file yet. Do \"help list\".");
1214 print_source_lines (current_source_symtab
,
1215 max (first_line_listed
- lines_to_list
, 1),
1216 first_line_listed
, 0);
1220 /* Now if there is only one argument, decode it in SAL
1222 If there are two arguments, decode them in SAL and SAL_END
1223 and clear NO_END; however, if one of the arguments is blank,
1224 set DUMMY_BEG or DUMMY_END to record that fact. */
1231 sals
= decode_line_1 (&arg1
, 0, 0, 0, 0);
1237 ambiguous_line_spec (&sals
);
1246 /* Record whether the BEG arg is all digits. */
1248 for (p
= arg
; p
!= arg1
&& *p
>= '0' && *p
<= '9'; p
++);
1249 linenum_beg
= (p
== arg1
);
1251 while (*arg1
== ' ' || *arg1
== '\t')
1257 while (*arg1
== ' ' || *arg1
== '\t')
1264 sals_end
= decode_line_1 (&arg1
, 0, 0, 0, 0);
1266 sals_end
= decode_line_1 (&arg1
, 0, sal
.symtab
, sal
.line
, 0);
1267 if (sals_end
.nelts
== 0)
1269 if (sals_end
.nelts
> 1)
1271 ambiguous_line_spec (&sals_end
);
1272 xfree (sals_end
.sals
);
1275 sal_end
= sals_end
.sals
[0];
1276 xfree (sals_end
.sals
);
1281 error ("Junk at end of line specification.");
1283 if (!no_end
&& !dummy_beg
&& !dummy_end
1284 && sal
.symtab
!= sal_end
.symtab
)
1285 error ("Specified start and end are in different files.");
1286 if (dummy_beg
&& dummy_end
)
1287 error ("Two empty args do not say what lines to list.");
1289 /* if line was specified by address,
1290 first print exactly which line, and which file.
1291 In this case, sal.symtab == 0 means address is outside
1292 of all known source files, not that user failed to give a filename. */
1295 if (sal
.symtab
== 0)
1296 /* FIXME-32x64--assumes sal.pc fits in long. */
1297 error ("No source file for address %s.",
1298 local_hex_string ((unsigned long) sal
.pc
));
1299 sym
= find_pc_function (sal
.pc
);
1302 print_address_numeric (sal
.pc
, 1, gdb_stdout
);
1303 printf_filtered (" is in ");
1304 fputs_filtered (SYMBOL_SOURCE_NAME (sym
), gdb_stdout
);
1305 printf_filtered (" (%s:%d).\n", sal
.symtab
->filename
, sal
.line
);
1309 print_address_numeric (sal
.pc
, 1, gdb_stdout
);
1310 printf_filtered (" is at %s:%d.\n",
1311 sal
.symtab
->filename
, sal
.line
);
1315 /* If line was not specified by just a line number,
1316 and it does not imply a symtab, it must be an undebuggable symbol
1317 which means no source code. */
1319 if (!linenum_beg
&& sal
.symtab
== 0)
1320 error ("No line number known for %s.", arg
);
1322 /* If this command is repeated with RET,
1323 turn it into the no-arg variant. */
1328 if (dummy_beg
&& sal_end
.symtab
== 0)
1329 error ("No default source file yet. Do \"help list\".");
1331 print_source_lines (sal_end
.symtab
,
1332 max (sal_end
.line
- (lines_to_list
- 1), 1),
1333 sal_end
.line
+ 1, 0);
1334 else if (sal
.symtab
== 0)
1335 error ("No default source file yet. Do \"help list\".");
1338 int first_line
= sal
.line
- lines_to_list
/ 2;
1340 if (first_line
< 1) first_line
= 1;
1342 print_source_lines (sal
.symtab
, first_line
, first_line
+ lines_to_list
,
1346 print_source_lines (sal
.symtab
, sal
.line
,
1348 ? sal
.line
+ lines_to_list
1349 : sal_end
.line
+ 1),
1353 /* Print info on range of pc's in a specified line. */
1356 line_info (char *arg
, int from_tty
)
1358 struct symtabs_and_lines sals
;
1359 struct symtab_and_line sal
;
1360 CORE_ADDR start_pc
, end_pc
;
1363 INIT_SAL (&sal
); /* initialize to zeroes */
1367 sal
.symtab
= current_source_symtab
;
1368 sal
.line
= last_line_listed
;
1370 sals
.sals
= (struct symtab_and_line
*)
1371 xmalloc (sizeof (struct symtab_and_line
));
1376 sals
= decode_line_spec_1 (arg
, 0);
1381 /* C++ More than one line may have been specified, as when the user
1382 specifies an overloaded function name. Print info on them all. */
1383 for (i
= 0; i
< sals
.nelts
; i
++)
1387 if (sal
.symtab
== 0)
1389 printf_filtered ("No line number information available");
1392 /* This is useful for "info line *0x7f34". If we can't tell the
1393 user about a source line, at least let them have the symbolic
1395 printf_filtered (" for address ");
1397 print_address (sal
.pc
, gdb_stdout
);
1400 printf_filtered (".");
1401 printf_filtered ("\n");
1403 else if (sal
.line
> 0
1404 && find_line_pc_range (sal
, &start_pc
, &end_pc
))
1406 if (start_pc
== end_pc
)
1408 printf_filtered ("Line %d of \"%s\"",
1409 sal
.line
, sal
.symtab
->filename
);
1411 printf_filtered (" is at address ");
1412 print_address (start_pc
, gdb_stdout
);
1414 printf_filtered (" but contains no code.\n");
1418 printf_filtered ("Line %d of \"%s\"",
1419 sal
.line
, sal
.symtab
->filename
);
1421 printf_filtered (" starts at address ");
1422 print_address (start_pc
, gdb_stdout
);
1424 printf_filtered (" and ends at ");
1425 print_address (end_pc
, gdb_stdout
);
1426 printf_filtered (".\n");
1429 /* x/i should display this line's code. */
1430 set_next_address (start_pc
);
1432 /* Repeating "info line" should do the following line. */
1433 last_line_listed
= sal
.line
+ 1;
1435 /* If this is the only line, show the source code. If it could
1436 not find the file, don't do anything special. */
1437 if (annotation_level
&& sals
.nelts
== 1)
1438 identify_source_line (sal
.symtab
, sal
.line
, 0, start_pc
);
1441 /* Is there any case in which we get here, and have an address
1442 which the user would want to see? If we have debugging symbols
1443 and no line numbers? */
1444 printf_filtered ("Line number %d is out of range for \"%s\".\n",
1445 sal
.line
, sal
.symtab
->filename
);
1450 /* Commands to search the source file for a regexp. */
1454 forward_search_command (char *regex
, int from_tty
)
1458 register FILE *stream
;
1464 ** If this is the TUI, search from the first line displayed in
1465 ** the source window, otherwise, search from last_line_listed+1
1466 ** in current_source_symtab
1469 line
= last_line_listed
;
1472 if (srcWin
->generic
.isVisible
&& srcWin
->generic
.contentSize
> 0)
1473 line
= ((TuiWinContent
)
1474 srcWin
->generic
.content
)[0]->whichElement
.source
.lineOrAddr
.lineNo
;
1477 printf_filtered ("No source displayed.\nExpression not found.\n");
1483 line
= last_line_listed
+ 1;
1486 msg
= (char *) re_comp (regex
);
1490 if (current_source_symtab
== 0)
1491 select_source_symtab (0);
1493 desc
= open_source_file (current_source_symtab
);
1495 perror_with_name (current_source_symtab
->filename
);
1497 if (current_source_symtab
->line_charpos
== 0)
1498 find_source_lines (current_source_symtab
, desc
);
1500 if (line
< 1 || line
> current_source_symtab
->nlines
)
1503 error ("Expression not found");
1506 if (lseek (desc
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1509 perror_with_name (current_source_symtab
->filename
);
1512 stream
= fdopen (desc
, FDOPEN_MODE
);
1516 static char *buf
= NULL
;
1518 int cursize
, newsize
;
1521 buf
= xmalloc (cursize
);
1530 if (p
- buf
== cursize
)
1532 newsize
= cursize
+ cursize
/ 2;
1533 buf
= xrealloc (buf
, newsize
);
1538 while (c
!= '\n' && (c
= getc (stream
)) >= 0);
1540 #ifdef CRLF_SOURCE_FILES
1541 /* Remove the \r, if any, at the end of the line, otherwise
1542 regular expressions that end with $ or \n won't work. */
1543 if (p
- buf
> 1 && p
[-2] == '\r')
1550 /* we now have a source line in buf, null terminate and match */
1552 if (re_exec (buf
) > 0)
1557 print_source_lines_base (current_source_symtab
, line
, line
+ 1, 0);
1558 print_source_lines (current_source_symtab
, line
, line
+ 1, 0);
1559 set_internalvar (lookup_internalvar ("_"),
1560 value_from_longest (builtin_type_int
,
1562 current_source_line
= max (line
- lines_to_list
/ 2, 1);
1568 printf_filtered ("Expression not found\n");
1574 reverse_search_command (char *regex
, int from_tty
)
1578 register FILE *stream
;
1583 ** If this is the TUI, search from the first line displayed in
1584 ** the source window, otherwise, search from last_line_listed-1
1585 ** in current_source_symtab
1588 line
= last_line_listed
;
1591 if (srcWin
->generic
.isVisible
&& srcWin
->generic
.contentSize
> 0)
1592 line
= ((TuiWinContent
)
1593 srcWin
->generic
.content
)[0]->whichElement
.source
.lineOrAddr
.lineNo
;
1596 printf_filtered ("No source displayed.\nExpression not found.\n");
1602 line
= last_line_listed
- 1;
1605 msg
= (char *) re_comp (regex
);
1609 if (current_source_symtab
== 0)
1610 select_source_symtab (0);
1612 desc
= open_source_file (current_source_symtab
);
1614 perror_with_name (current_source_symtab
->filename
);
1616 if (current_source_symtab
->line_charpos
== 0)
1617 find_source_lines (current_source_symtab
, desc
);
1619 if (line
< 1 || line
> current_source_symtab
->nlines
)
1622 error ("Expression not found");
1625 if (lseek (desc
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1628 perror_with_name (current_source_symtab
->filename
);
1631 stream
= fdopen (desc
, FDOPEN_MODE
);
1635 /* FIXME!!! We walk right off the end of buf if we get a long line!!! */
1636 char buf
[4096]; /* Should be reasonable??? */
1637 register char *p
= buf
;
1646 while (c
!= '\n' && (c
= getc (stream
)) >= 0);
1648 #ifdef CRLF_SOURCE_FILES
1649 /* Remove the \r, if any, at the end of the line, otherwise
1650 regular expressions that end with $ or \n won't work. */
1651 if (p
- buf
> 1 && p
[-2] == '\r')
1658 /* We now have a source line in buf; null terminate and match. */
1660 if (re_exec (buf
) > 0)
1665 print_source_lines_base (current_source_symtab
, line
, line
+ 1, 0);
1666 print_source_lines (current_source_symtab
, line
, line
+ 1, 0);
1667 set_internalvar (lookup_internalvar ("_"),
1668 value_from_longest (builtin_type_int
,
1670 current_source_line
= max (line
- lines_to_list
/ 2, 1);
1674 if (fseek (stream
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1677 perror_with_name (current_source_symtab
->filename
);
1681 printf_filtered ("Expression not found\n");
1687 _initialize_source (void)
1689 struct cmd_list_element
*c
;
1690 current_source_symtab
= 0;
1691 init_source_path ();
1693 /* The intention is to use POSIX Basic Regular Expressions.
1694 Always use the GNU regex routine for consistency across all hosts.
1695 Our current GNU regex.c does not have all the POSIX features, so this is
1696 just an approximation. */
1697 re_set_syntax (RE_SYNTAX_GREP
);
1699 c
= add_cmd ("directory", class_files
, directory_command
,
1700 "Add directory DIR to beginning of search path for source files.\n\
1701 Forget cached info on source file locations and line positions.\n\
1702 DIR can also be $cwd for the current working directory, or $cdir for the\n\
1703 directory in which the source file was compiled into object code.\n\
1704 With no argument, reset the search path to $cdir:$cwd, the default.",
1708 add_com_alias ("use", "directory", class_files
, 0);
1710 c
->completer
= filename_completer
;
1712 add_cmd ("directories", no_class
, show_directories
,
1713 "Current search path for finding source files.\n\
1714 $cwd in the path means the current working directory.\n\
1715 $cdir in the path means the compilation directory of the source file.",
1720 add_com_alias ("D", "directory", class_files
, 0);
1721 add_cmd ("ld", no_class
, show_directories
,
1722 "Current search path for finding source files.\n\
1723 $cwd in the path means the current working directory.\n\
1724 $cdir in the path means the compilation directory of the source file.",
1728 add_info ("source", source_info
,
1729 "Information about the current source file.");
1731 add_info ("line", line_info
,
1732 concat ("Core addresses of the code for a source line.\n\
1733 Line can be specified as\n\
1734 LINENUM, to list around that line in current file,\n\
1735 FILE:LINENUM, to list around that line in that file,\n\
1736 FUNCTION, to list around beginning of that function,\n\
1737 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1739 Default is to describe the last source line that was listed.\n\n\
1740 This sets the default address for \"x\" to the line's first instruction\n\
1741 so that \"x/i\" suffices to start examining the machine code.\n\
1742 The address is also stored as the value of \"$_\".", NULL
));
1744 add_com ("forward-search", class_files
, forward_search_command
,
1745 "Search for regular expression (see regex(3)) from last line listed.\n\
1746 The matching line number is also stored as the value of \"$_\".");
1747 add_com_alias ("search", "forward-search", class_files
, 0);
1749 add_com ("reverse-search", class_files
, reverse_search_command
,
1750 "Search backward for regular expression (see regex(3)) from last line listed.\n\
1751 The matching line number is also stored as the value of \"$_\".");
1755 add_com_alias ("/", "forward-search", class_files
, 0);
1756 add_com_alias ("?", "reverse-search", class_files
, 0);
1759 add_com ("list", class_files
, list_command
,
1760 concat ("List specified function or line.\n\
1761 With no argument, lists ten more lines after or around previous listing.\n\
1762 \"list -\" lists the ten lines before a previous ten-line listing.\n\
1763 One argument specifies a line, and ten lines are listed around that line.\n\
1764 Two arguments with comma between specify starting and ending lines to list.\n\
1766 Lines can be specified in these ways:\n\
1767 LINENUM, to list around that line in current file,\n\
1768 FILE:LINENUM, to list around that line in that file,\n\
1769 FUNCTION, to list around beginning of that function,\n\
1770 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1771 *ADDRESS, to list around the line containing that address.\n\
1772 With two args if one is empty it stands for ten lines away from the other arg.", NULL
));
1775 add_com_alias ("l", "list", class_files
, 1);
1777 add_com_alias ("v", "list", class_files
, 1);
1780 add_com_alias ("file", "list", class_files
, 1);
1783 (add_set_cmd ("listsize", class_support
, var_uinteger
,
1784 (char *) &lines_to_list
,
1785 "Set number of source lines gdb will list by default.",