1 /* List lines of source files for GDB, the GNU debugger.
2 Copyright 1986-1989, 1991-1999 Free Software Foundation, Inc.
4 This file is part of GDB.
6 This program is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2 of the License, or
9 (at your option) any later version.
11 This program is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with this program; if not, write to the Free Software
18 Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
23 #include "expression.h"
31 #include <sys/types.h>
32 #include "gdb_string.h"
36 #include "gdb_regex.h"
42 #include "completer.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 ("select_source_symtab: readin pst found and no symtabs.");
207 current_source_symtab
= PSYMTAB_TO_SYMTAB (cs_pst
);
210 if (current_source_symtab
)
213 error ("Can't find a default source file");
217 show_directories (char *ignore
, int from_tty
)
219 puts_filtered ("Source directories searched: ");
220 puts_filtered (source_path
);
221 puts_filtered ("\n");
224 /* Forget what we learned about line positions in source files, and
225 which directories contain them; must check again now since files
226 may be found in a different directory now. */
229 forget_cached_source_info (void)
231 register struct symtab
*s
;
232 register struct objfile
*objfile
;
234 for (objfile
= object_files
; objfile
!= NULL
; objfile
= objfile
->next
)
236 for (s
= objfile
->symtabs
; s
!= NULL
; s
= s
->next
)
238 if (s
->line_charpos
!= NULL
)
240 mfree (objfile
->md
, s
->line_charpos
);
241 s
->line_charpos
= NULL
;
243 if (s
->fullname
!= NULL
)
245 mfree (objfile
->md
, s
->fullname
);
253 init_source_path (void)
257 sprintf (buf
, "$cdir%c$cwd", DIRNAME_SEPARATOR
);
258 source_path
= strsave (buf
);
259 forget_cached_source_info ();
262 /* Add zero or more directories to the front of the source path. */
265 directory_command (char *dirname
, int from_tty
)
268 /* FIXME, this goes to "delete dir"... */
271 if (from_tty
&& query ("Reinitialize source path to empty? "))
279 mod_path (dirname
, &source_path
);
280 last_source_visited
= NULL
;
283 show_directories ((char *) 0, from_tty
);
284 forget_cached_source_info ();
287 /* Add zero or more directories to the front of an arbitrary path. */
290 mod_path (char *dirname
, char **which_path
)
292 char *old
= *which_path
;
298 dirname
= strsave (dirname
);
299 make_cleanup (xfree
, dirname
);
303 char *name
= dirname
;
308 char *separator
= strchr (name
, DIRNAME_SEPARATOR
);
309 char *space
= strchr (name
, ' ');
310 char *tab
= strchr (name
, '\t');
312 if (separator
== 0 && space
== 0 && tab
== 0)
313 p
= dirname
= name
+ strlen (name
);
317 if (separator
!= 0 && (p
== 0 || separator
< p
))
319 if (space
!= 0 && (p
== 0 || space
< p
))
321 if (tab
!= 0 && (p
== 0 || tab
< p
))
324 while (*dirname
== DIRNAME_SEPARATOR
331 if (!(SLASH_P (*name
) && p
<= name
+ 1) /* "/" */
332 #if defined(_WIN32) || defined(__MSDOS__)
333 /* On MS-DOS and MS-Windows, h:\ is different from h: */
334 && !(!SLASH_P (*name
) && ROOTED_P (name
) && p
<= name
+ 3) /* d:/ */
337 /* Sigh. "foo/" => "foo" */
341 while (p
> name
&& p
[-1] == '.')
345 /* "." => getwd (). */
346 name
= current_directory
;
349 else if (p
> name
+ 1 && SLASH_P (p
[-2]))
359 /* "...foo/." => "...foo". */
370 name
= tilde_expand (name
);
371 #if defined(_WIN32) || defined(__MSDOS__)
372 else if (ROOTED_P (name
) && p
== name
+ 2) /* "d:" => "d:." */
373 name
= concat (name
, ".", NULL
);
375 else if (!ROOTED_P (name
) && name
[0] != '$')
376 name
= concat (current_directory
, SLASH_STRING
, name
, NULL
);
378 name
= savestring (name
, p
- name
);
379 make_cleanup (xfree
, name
);
381 /* Unless it's a variable, check existence. */
384 /* These are warnings, not errors, since we don't want a
385 non-existent directory in a .gdbinit file to stop processing
386 of the .gdbinit file.
388 Whether they get added to the path is more debatable. Current
389 answer is yes, in case the user wants to go make the directory
390 or whatever. If the directory continues to not exist/not be
391 a directory/etc, then having them in the path should be
393 if (stat (name
, &st
) < 0)
395 int save_errno
= errno
;
396 fprintf_unfiltered (gdb_stderr
, "Warning: ");
397 print_sys_errmsg (name
, save_errno
);
399 else if ((st
.st_mode
& S_IFMT
) != S_IFDIR
)
400 warning ("%s is not a directory.", name
);
405 register unsigned int len
= strlen (name
);
410 /* FIXME: strncmp loses in interesting ways on MS-DOS and
411 MS-Windows because of case-insensitivity and two different
412 but functionally identical slash characters. We need a
413 special filesystem-dependent file-name comparison function.
415 Actually, even on Unix I would use realpath() or its work-
416 alike before comparing. Then all the code above which
417 removes excess slashes and dots could simply go away. */
418 if (!strncmp (p
, name
, len
)
419 && (p
[len
] == '\0' || p
[len
] == DIRNAME_SEPARATOR
))
421 /* Found it in the search path, remove old copy */
423 p
--; /* Back over leading separator */
424 if (prefix
> p
- *which_path
)
425 goto skip_dup
; /* Same dir twice in one cmd */
426 strcpy (p
, &p
[len
+ 1]); /* Copy from next \0 or : */
428 p
= strchr (p
, DIRNAME_SEPARATOR
);
438 tinybuf
[0] = DIRNAME_SEPARATOR
;
441 /* 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. */
448 temp
= concat (old
, tinybuf
, name
, NULL
);
450 *which_path
= concat (temp
, "", &old
[prefix
], NULL
);
451 prefix
= strlen (temp
);
456 *which_path
= concat (name
, (old
[0] ? tinybuf
: old
), old
, NULL
);
457 prefix
= strlen (name
);
465 while (*dirname
!= '\0');
470 source_info (char *ignore
, int from_tty
)
472 register struct symtab
*s
= current_source_symtab
;
476 printf_filtered ("No current source file.\n");
479 printf_filtered ("Current source file is %s\n", s
->filename
);
481 printf_filtered ("Compilation directory is %s\n", s
->dirname
);
483 printf_filtered ("Located in %s\n", s
->fullname
);
485 printf_filtered ("Contains %d line%s.\n", s
->nlines
,
486 s
->nlines
== 1 ? "" : "s");
488 printf_filtered ("Source language is %s.\n", language_str (s
->language
));
489 printf_filtered ("Compiled with %s debugging format.\n", s
->debugformat
);
494 /* Open a file named STRING, searching path PATH (dir names sep by some char)
495 using mode MODE and protection bits PROT in the calls to open.
497 If TRY_CWD_FIRST, try to open ./STRING before searching PATH.
498 (ie pretend the first element of PATH is "."). This also indicates
499 that a slash in STRING disables searching of the path (this is
500 so that "exec-file ./foo" or "symbol-file ./foo" insures that you
501 get that particular version of foo or an error message).
503 If FILENAME_OPENED is non-null, set it to a newly allocated string naming
504 the actual file opened (this string will always start with a "/". We
505 have to take special pains to avoid doubling the "/" between the directory
506 and the file, sigh! Emacs gets confuzzed by this when we print the
509 If a file is found, return the descriptor.
510 Otherwise, return -1, with errno set for the last name we tried to open. */
512 /* >>>> This should only allow files of certain types,
513 >>>> eg executable, non-directory */
515 openp (char *path
, int try_cwd_first
, char *string
, int mode
, int prot
,
516 char **filename_opened
)
519 register char *filename
;
520 register char *p
, *p1
;
531 if (try_cwd_first
|| ROOTED_P (string
))
535 fd
= open (filename
, mode
, prot
);
538 for (i
= 0; string
[i
]; i
++)
539 if (SLASH_P (string
[i
]))
544 while (string
[0] == '.' && SLASH_P (string
[1]))
547 alloclen
= strlen (path
) + strlen (string
) + 2;
548 filename
= (char *) alloca (alloclen
);
550 for (p
= path
; p
; p
= p1
? p1
+ 1 : 0)
552 p1
= (char *) strchr (p
, DIRNAME_SEPARATOR
);
558 if (len
== 4 && p
[0] == '$' && p
[1] == 'c'
559 && p
[2] == 'w' && p
[3] == 'd')
561 /* Name is $cwd -- insert current directory name instead. */
564 /* First, realloc the filename buffer if too short. */
565 len
= strlen (current_directory
);
566 newlen
= len
+ strlen (string
) + 2;
567 if (newlen
> alloclen
)
570 filename
= (char *) alloca (alloclen
);
572 strcpy (filename
, current_directory
);
576 /* Normal file name in path -- just use it. */
577 strncpy (filename
, p
, len
);
581 /* Remove trailing slashes */
582 while (len
> 0 && SLASH_P (filename
[len
- 1]))
585 strcat (filename
+ len
, SLASH_STRING
);
586 strcat (filename
, string
);
588 fd
= open (filename
, mode
);
597 *filename_opened
= (char *) 0;
598 else if (ROOTED_P (filename
))
599 *filename_opened
= savestring (filename
, strlen (filename
));
602 /* Beware the // my son, the Emacs barfs, the botch that catch... */
604 *filename_opened
= concat (current_directory
,
605 SLASH_P (current_directory
[strlen (current_directory
) - 1])
611 /* This is a debugging hack that can go away when all combinations
612 of Mac and Unix names are handled reasonably. */
614 extern int debug_openp
;
618 printf ("openp on %s, path %s mode %d prot %d\n returned %d",
619 string
, path
, mode
, prot
, fd
);
620 if (*filename_opened
)
621 printf (" (filename is %s)", *filename_opened
);
631 /* This is essentially a convenience, for clients that want the behaviour
632 of openp, using source_path, but that really don't want the file to be
633 opened but want instead just to know what the full pathname is (as
634 qualified against source_path).
636 The current working directory is searched first.
638 If the file was found, this function returns 1, and FULL_PATHNAME is
639 set to the fully-qualified pathname.
641 Else, this functions returns 0, and FULL_PATHNAME is set to NULL.
644 source_full_path_of (char *filename
, char **full_pathname
)
648 fd
= openp (source_path
, 1, filename
, O_RDONLY
, 0, full_pathname
);
651 *full_pathname
= NULL
;
660 /* Open a source file given a symtab S. Returns a file descriptor or
661 negative number for error. */
664 open_source_file (struct symtab
*s
)
666 char *path
= source_path
;
671 /* Quick way out if we already know its full name */
674 result
= open (s
->fullname
, OPEN_MODE
);
677 /* Didn't work -- free old one, try again. */
678 mfree (s
->objfile
->md
, s
->fullname
);
682 if (s
->dirname
!= NULL
)
684 /* Replace a path entry of $cdir with the compilation directory name */
686 /* We cast strstr's result in case an ANSIhole has made it const,
687 which produces a "required warning" when assigned to a nonconst. */
688 p
= (char *) strstr (source_path
, "$cdir");
689 if (p
&& (p
== path
|| p
[-1] == DIRNAME_SEPARATOR
)
690 && (p
[cdir_len
] == DIRNAME_SEPARATOR
|| p
[cdir_len
] == '\0'))
695 alloca (strlen (source_path
) + 1 + strlen (s
->dirname
) + 1);
696 len
= p
- source_path
;
697 strncpy (path
, source_path
, len
); /* Before $cdir */
698 strcpy (path
+ len
, s
->dirname
); /* new stuff */
699 strcat (path
+ len
, source_path
+ len
+ cdir_len
); /* After $cdir */
703 result
= openp (path
, 0, s
->filename
, OPEN_MODE
, 0, &s
->fullname
);
706 /* Didn't work. Try using just the basename. */
707 p
= basename (s
->filename
);
708 if (p
!= s
->filename
)
709 result
= openp (path
, 0, p
, OPEN_MODE
, 0, &s
->fullname
);
714 /* Didn't work. Try using just the MPW basename. */
715 p
= (char *) mpw_basename (s
->filename
);
716 if (p
!= s
->filename
)
717 result
= openp (path
, 0, p
, OPEN_MODE
, 0, &s
->fullname
);
721 /* Didn't work. Try using the mixed Unix/MPW basename. */
722 p
= (char *) mpw_mixed_basename (s
->filename
);
723 if (p
!= s
->filename
)
724 result
= openp (path
, 0, p
, OPEN_MODE
, 0, &s
->fullname
);
730 fullname
= s
->fullname
;
731 s
->fullname
= mstrsave (s
->objfile
->md
, s
->fullname
);
737 /* Return the path to the source file associated with symtab. Returns NULL
741 symtab_to_filename (struct symtab
*s
)
748 /* If we've seen the file before, just return fullname. */
753 /* Try opening the file to setup fullname */
755 fd
= open_source_file (s
);
757 return s
->filename
; /* File not found. Just use short name */
759 /* Found the file. Cleanup and return the full name */
766 /* Create and initialize the table S->line_charpos that records
767 the positions of the lines in the source file, which is assumed
768 to be open on descriptor DESC.
769 All set S->nlines to the number of such lines. */
772 find_source_lines (struct symtab
*s
, int desc
)
775 register char *data
, *p
, *end
;
777 int lines_allocated
= 1000;
782 line_charpos
= (int *) xmmalloc (s
->objfile
->md
,
783 lines_allocated
* sizeof (int));
784 if (fstat (desc
, &st
) < 0)
785 perror_with_name (s
->filename
);
787 if (s
&& s
->objfile
&& s
->objfile
->obfd
)
788 mtime
= bfd_get_mtime (s
->objfile
->obfd
);
790 mtime
= bfd_get_mtime (exec_bfd
);
792 if (mtime
&& mtime
< st
.st_mtime
)
795 printf_filtered ("\n");
796 warning ("Source file is more recent than executable.\n");
799 #ifdef LSEEK_NOT_LINEAR
803 /* Have to read it byte by byte to find out where the chars live */
805 line_charpos
[0] = lseek (desc
, 0, SEEK_CUR
);
807 while (myread (desc
, &c
, 1) > 0)
811 if (nlines
== lines_allocated
)
813 lines_allocated
*= 2;
815 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
816 sizeof (int) * lines_allocated
);
818 line_charpos
[nlines
++] = lseek (desc
, 0, SEEK_CUR
);
822 #else /* lseek linear. */
824 struct cleanup
*old_cleanups
;
826 /* st_size might be a large type, but we only support source files whose
827 size fits in an int. */
828 size
= (int) st
.st_size
;
830 /* Use malloc, not alloca, because this may be pretty large, and we may
831 run into various kinds of limits on stack size. */
832 data
= (char *) xmalloc (size
);
833 old_cleanups
= make_cleanup (xfree
, data
);
835 /* Reassign `size' to result of read for systems where \r\n -> \n. */
836 size
= myread (desc
, data
, size
);
838 perror_with_name (s
->filename
);
846 /* A newline at the end does not start a new line. */
849 if (nlines
== lines_allocated
)
851 lines_allocated
*= 2;
853 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
854 sizeof (int) * lines_allocated
);
856 line_charpos
[nlines
++] = p
- data
;
859 do_cleanups (old_cleanups
);
861 #endif /* lseek linear. */
864 (int *) xmrealloc (s
->objfile
->md
, (char *) line_charpos
,
865 nlines
* sizeof (int));
869 /* Return the character position of a line LINE in symtab S.
870 Return 0 if anything is invalid. */
872 #if 0 /* Currently unused */
875 source_line_charpos (struct symtab
*s
, int line
)
879 if (!s
->line_charpos
|| line
<= 0)
881 if (line
> s
->nlines
)
883 return s
->line_charpos
[line
- 1];
886 /* Return the line number of character position POS in symtab S. */
889 source_charpos_line (register struct symtab
*s
, register int chr
)
891 register int line
= 0;
894 if (s
== 0 || s
->line_charpos
== 0)
896 lnp
= s
->line_charpos
;
897 /* Files are usually short, so sequential search is Ok */
898 while (line
< s
->nlines
&& *lnp
<= chr
)
903 if (line
>= s
->nlines
)
911 /* Get full pathname and line number positions for a symtab.
912 Return nonzero if line numbers may have changed.
913 Set *FULLNAME to actual name of the file as found by `openp',
914 or to 0 if the file is not found. */
917 get_filename_and_charpos (struct symtab
*s
, char **fullname
)
919 register int desc
, linenums_changed
= 0;
921 desc
= open_source_file (s
);
929 *fullname
= s
->fullname
;
930 if (s
->line_charpos
== 0)
931 linenums_changed
= 1;
932 if (linenums_changed
)
933 find_source_lines (s
, desc
);
935 return linenums_changed
;
938 /* Print text describing the full name of the source file S
939 and the line number LINE and its corresponding character position.
940 The text starts with two Ctrl-z so that the Emacs-GDB interface
943 MID_STATEMENT is nonzero if the PC is not at the beginning of that line.
945 Return 1 if successful, 0 if could not find the file. */
948 identify_source_line (struct symtab
*s
, int line
, int mid_statement
,
951 if (s
->line_charpos
== 0)
952 get_filename_and_charpos (s
, (char **) NULL
);
953 if (s
->fullname
== 0)
955 if (line
> s
->nlines
)
956 /* Don't index off the end of the line_charpos array. */
958 annotate_source (s
->fullname
, line
, s
->line_charpos
[line
- 1],
961 current_source_line
= line
;
962 first_line_listed
= line
;
963 last_line_listed
= line
;
964 current_source_symtab
= s
;
969 /* Print source lines from the file of symtab S,
970 starting with line number LINE and stopping before line number STOPLINE. */
972 static void print_source_lines_base (struct symtab
*s
, int line
, int stopline
,
975 print_source_lines_base (struct symtab
*s
, int line
, int stopline
, int noerror
)
979 register FILE *stream
;
980 int nlines
= stopline
- line
;
982 /* Regardless of whether we can open the file, set current_source_symtab. */
983 current_source_symtab
= s
;
984 current_source_line
= line
;
985 first_line_listed
= line
;
988 /* If printing of source lines is disabled, just print file and line number */
989 if (ui_out_test_flags (uiout
, ui_source_list
))
992 /* Only prints "No such file or directory" once */
993 if ((s
!= last_source_visited
) || (!last_source_error
))
995 last_source_visited
= s
;
996 desc
= open_source_file (s
);
1000 desc
= last_source_error
;
1014 last_source_error
= desc
;
1018 char *name
= alloca (strlen (s
->filename
) + 100);
1019 sprintf (name
, "%d\t%s", line
, s
->filename
);
1020 print_sys_errmsg (name
, errno
);
1024 ui_out_field_int (uiout
, "line", line
);
1025 ui_out_text (uiout
, "\tin ");
1026 ui_out_field_string (uiout
, "file", s
->filename
);
1027 ui_out_text (uiout
, "\n");
1029 printf_filtered ("%d\tin %s\n", line
, s
->filename
);
1035 last_source_error
= 0;
1037 if (s
->line_charpos
== 0)
1038 find_source_lines (s
, desc
);
1040 if (line
< 1 || line
> s
->nlines
)
1043 error ("Line number %d out of range; %s has %d lines.",
1044 line
, s
->filename
, s
->nlines
);
1047 if (lseek (desc
, s
->line_charpos
[line
- 1], 0) < 0)
1050 perror_with_name (s
->filename
);
1053 stream
= fdopen (desc
, FDOPEN_MODE
);
1056 while (nlines
-- > 0)
1064 last_line_listed
= current_source_line
;
1065 sprintf (buf
, "%d\t", current_source_line
++);
1066 ui_out_text (uiout
, buf
);
1069 if (c
< 040 && c
!= '\t' && c
!= '\n' && c
!= '\r')
1071 sprintf (buf
, "^%c", c
+ 0100);
1072 ui_out_text (uiout
, buf
);
1075 ui_out_text (uiout
, "^?");
1076 #ifdef CRLF_SOURCE_FILES
1079 /* Skip a \r character, but only before a \n. */
1080 int c1
= fgetc (stream
);
1083 printf_filtered ("^%c", c
+ 0100);
1085 ungetc (c1
, stream
);
1090 sprintf (buf
, "%c", c
);
1091 ui_out_text (uiout
, buf
);
1094 while (c
!= '\n' && (c
= fgetc (stream
)) >= 0);
1099 last_line_listed
= current_source_line
;
1100 printf_filtered ("%d\t", current_source_line
++);
1103 if (c
< 040 && c
!= '\t' && c
!= '\n' && c
!= '\r')
1104 printf_filtered ("^%c", c
+ 0100);
1106 printf_filtered ("^?");
1107 #ifdef CRLF_SOURCE_FILES
1110 /* Just skip \r characters. */
1114 printf_filtered ("%c", c
);
1116 while (c
!= '\n' && (c
= fgetc (stream
)) >= 0);
1123 /* Show source lines from the file of symtab S, starting with line
1124 number LINE and stopping before line number STOPLINE. If this is the
1125 not the command line version, then the source is shown in the source
1126 window otherwise it is simply printed */
1129 print_source_lines (struct symtab
*s
, int line
, int stopline
, int noerror
)
1133 m_winPtrIsNull (srcWin
) || !srcWin
->generic
.isVisible
)
1134 print_source_lines_base (s
, line
, stopline
, noerror
);
1137 TuiGenWinInfoPtr locator
= locatorWinInfoPtr ();
1138 extern void tui_vAddWinToLayout (va_list);
1139 extern void tui_vUpdateSourceWindowsWithLine (va_list);
1141 /* Regardless of whether we can open the file,
1142 set current_source_symtab. */
1143 current_source_symtab
= s
;
1144 current_source_line
= line
;
1145 first_line_listed
= line
;
1147 /* make sure that the source window is displayed */
1148 tuiDo ((TuiOpaqueFuncPtr
) tui_vAddWinToLayout
, SRC_WIN
);
1150 tuiDo ((TuiOpaqueFuncPtr
) tui_vUpdateSourceWindowsWithLine
, s
, line
);
1151 tuiDo ((TuiOpaqueFuncPtr
) tui_vUpdateLocatorFilename
, s
->filename
);
1154 print_source_lines_base (s
, line
, stopline
, noerror
);
1160 /* Print a list of files and line numbers which a user may choose from
1161 in order to list a function which was specified ambiguously (as with
1162 `list classname::overloadedfuncname', for example). The vector in
1163 SALS provides the filenames and line numbers. */
1166 ambiguous_line_spec (struct symtabs_and_lines
*sals
)
1170 for (i
= 0; i
< sals
->nelts
; ++i
)
1171 printf_filtered ("file: \"%s\", line number: %d\n",
1172 sals
->sals
[i
].symtab
->filename
, sals
->sals
[i
].line
);
1176 list_command (char *arg
, int from_tty
)
1178 struct symtabs_and_lines sals
, sals_end
;
1179 struct symtab_and_line sal
, sal_end
;
1185 int linenum_beg
= 0;
1188 if (!have_full_symbols () && !have_partial_symbols ())
1189 error ("No symbol table is loaded. Use the \"file\" command.");
1191 /* Pull in a current source symtab if necessary */
1192 if (current_source_symtab
== 0 &&
1193 (arg
== 0 || arg
[0] == '+' || arg
[0] == '-'))
1194 select_source_symtab (0);
1196 /* "l" or "l +" lists next ten lines. */
1198 if (arg
== 0 || STREQ (arg
, "+"))
1200 if (current_source_symtab
== 0)
1201 error ("No default source file yet. Do \"help list\".");
1202 print_source_lines (current_source_symtab
, current_source_line
,
1203 current_source_line
+ lines_to_list
, 0);
1207 /* "l -" lists previous ten lines, the ones before the ten just listed. */
1208 if (STREQ (arg
, "-"))
1210 if (current_source_symtab
== 0)
1211 error ("No default source file yet. Do \"help list\".");
1212 print_source_lines (current_source_symtab
,
1213 max (first_line_listed
- lines_to_list
, 1),
1214 first_line_listed
, 0);
1218 /* Now if there is only one argument, decode it in SAL
1220 If there are two arguments, decode them in SAL and SAL_END
1221 and clear NO_END; however, if one of the arguments is blank,
1222 set DUMMY_BEG or DUMMY_END to record that fact. */
1229 sals
= decode_line_1 (&arg1
, 0, 0, 0, 0);
1235 ambiguous_line_spec (&sals
);
1244 /* Record whether the BEG arg is all digits. */
1246 for (p
= arg
; p
!= arg1
&& *p
>= '0' && *p
<= '9'; p
++);
1247 linenum_beg
= (p
== arg1
);
1249 while (*arg1
== ' ' || *arg1
== '\t')
1255 while (*arg1
== ' ' || *arg1
== '\t')
1262 sals_end
= decode_line_1 (&arg1
, 0, 0, 0, 0);
1264 sals_end
= decode_line_1 (&arg1
, 0, sal
.symtab
, sal
.line
, 0);
1265 if (sals_end
.nelts
== 0)
1267 if (sals_end
.nelts
> 1)
1269 ambiguous_line_spec (&sals_end
);
1270 xfree (sals_end
.sals
);
1273 sal_end
= sals_end
.sals
[0];
1274 xfree (sals_end
.sals
);
1279 error ("Junk at end of line specification.");
1281 if (!no_end
&& !dummy_beg
&& !dummy_end
1282 && sal
.symtab
!= sal_end
.symtab
)
1283 error ("Specified start and end are in different files.");
1284 if (dummy_beg
&& dummy_end
)
1285 error ("Two empty args do not say what lines to list.");
1287 /* if line was specified by address,
1288 first print exactly which line, and which file.
1289 In this case, sal.symtab == 0 means address is outside
1290 of all known source files, not that user failed to give a filename. */
1293 if (sal
.symtab
== 0)
1294 /* FIXME-32x64--assumes sal.pc fits in long. */
1295 error ("No source file for address %s.",
1296 local_hex_string ((unsigned long) sal
.pc
));
1297 sym
= find_pc_function (sal
.pc
);
1300 print_address_numeric (sal
.pc
, 1, gdb_stdout
);
1301 printf_filtered (" is in ");
1302 fputs_filtered (SYMBOL_SOURCE_NAME (sym
), gdb_stdout
);
1303 printf_filtered (" (%s:%d).\n", sal
.symtab
->filename
, sal
.line
);
1307 print_address_numeric (sal
.pc
, 1, gdb_stdout
);
1308 printf_filtered (" is at %s:%d.\n",
1309 sal
.symtab
->filename
, sal
.line
);
1313 /* If line was not specified by just a line number,
1314 and it does not imply a symtab, it must be an undebuggable symbol
1315 which means no source code. */
1317 if (!linenum_beg
&& sal
.symtab
== 0)
1318 error ("No line number known for %s.", arg
);
1320 /* If this command is repeated with RET,
1321 turn it into the no-arg variant. */
1326 if (dummy_beg
&& sal_end
.symtab
== 0)
1327 error ("No default source file yet. Do \"help list\".");
1329 print_source_lines (sal_end
.symtab
,
1330 max (sal_end
.line
- (lines_to_list
- 1), 1),
1331 sal_end
.line
+ 1, 0);
1332 else if (sal
.symtab
== 0)
1333 error ("No default source file yet. Do \"help list\".");
1336 int first_line
= sal
.line
- lines_to_list
/ 2;
1338 if (first_line
< 1) first_line
= 1;
1340 print_source_lines (sal
.symtab
, first_line
, first_line
+ lines_to_list
,
1344 print_source_lines (sal
.symtab
, sal
.line
,
1346 ? sal
.line
+ lines_to_list
1347 : sal_end
.line
+ 1),
1351 /* Print info on range of pc's in a specified line. */
1354 line_info (char *arg
, int from_tty
)
1356 struct symtabs_and_lines sals
;
1357 struct symtab_and_line sal
;
1358 CORE_ADDR start_pc
, end_pc
;
1361 INIT_SAL (&sal
); /* initialize to zeroes */
1365 sal
.symtab
= current_source_symtab
;
1366 sal
.line
= last_line_listed
;
1368 sals
.sals
= (struct symtab_and_line
*)
1369 xmalloc (sizeof (struct symtab_and_line
));
1374 sals
= decode_line_spec_1 (arg
, 0);
1379 /* C++ More than one line may have been specified, as when the user
1380 specifies an overloaded function name. Print info on them all. */
1381 for (i
= 0; i
< sals
.nelts
; i
++)
1385 if (sal
.symtab
== 0)
1387 printf_filtered ("No line number information available");
1390 /* This is useful for "info line *0x7f34". If we can't tell the
1391 user about a source line, at least let them have the symbolic
1393 printf_filtered (" for address ");
1395 print_address (sal
.pc
, gdb_stdout
);
1398 printf_filtered (".");
1399 printf_filtered ("\n");
1401 else if (sal
.line
> 0
1402 && find_line_pc_range (sal
, &start_pc
, &end_pc
))
1404 if (start_pc
== end_pc
)
1406 printf_filtered ("Line %d of \"%s\"",
1407 sal
.line
, sal
.symtab
->filename
);
1409 printf_filtered (" is at address ");
1410 print_address (start_pc
, gdb_stdout
);
1412 printf_filtered (" but contains no code.\n");
1416 printf_filtered ("Line %d of \"%s\"",
1417 sal
.line
, sal
.symtab
->filename
);
1419 printf_filtered (" starts at address ");
1420 print_address (start_pc
, gdb_stdout
);
1422 printf_filtered (" and ends at ");
1423 print_address (end_pc
, gdb_stdout
);
1424 printf_filtered (".\n");
1427 /* x/i should display this line's code. */
1428 set_next_address (start_pc
);
1430 /* Repeating "info line" should do the following line. */
1431 last_line_listed
= sal
.line
+ 1;
1433 /* If this is the only line, show the source code. If it could
1434 not find the file, don't do anything special. */
1435 if (annotation_level
&& sals
.nelts
== 1)
1436 identify_source_line (sal
.symtab
, sal
.line
, 0, start_pc
);
1439 /* Is there any case in which we get here, and have an address
1440 which the user would want to see? If we have debugging symbols
1441 and no line numbers? */
1442 printf_filtered ("Line number %d is out of range for \"%s\".\n",
1443 sal
.line
, sal
.symtab
->filename
);
1448 /* Commands to search the source file for a regexp. */
1452 forward_search_command (char *regex
, int from_tty
)
1456 register FILE *stream
;
1462 ** If this is the TUI, search from the first line displayed in
1463 ** the source window, otherwise, search from last_line_listed+1
1464 ** in current_source_symtab
1467 line
= last_line_listed
;
1470 if (srcWin
->generic
.isVisible
&& srcWin
->generic
.contentSize
> 0)
1471 line
= ((TuiWinContent
)
1472 srcWin
->generic
.content
)[0]->whichElement
.source
.lineOrAddr
.lineNo
;
1475 printf_filtered ("No source displayed.\nExpression not found.\n");
1481 line
= last_line_listed
+ 1;
1484 msg
= (char *) re_comp (regex
);
1488 if (current_source_symtab
== 0)
1489 select_source_symtab (0);
1491 desc
= open_source_file (current_source_symtab
);
1493 perror_with_name (current_source_symtab
->filename
);
1495 if (current_source_symtab
->line_charpos
== 0)
1496 find_source_lines (current_source_symtab
, desc
);
1498 if (line
< 1 || line
> current_source_symtab
->nlines
)
1501 error ("Expression not found");
1504 if (lseek (desc
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1507 perror_with_name (current_source_symtab
->filename
);
1510 stream
= fdopen (desc
, FDOPEN_MODE
);
1514 static char *buf
= NULL
;
1516 int cursize
, newsize
;
1519 buf
= xmalloc (cursize
);
1528 if (p
- buf
== cursize
)
1530 newsize
= cursize
+ cursize
/ 2;
1531 buf
= xrealloc (buf
, newsize
);
1536 while (c
!= '\n' && (c
= getc (stream
)) >= 0);
1538 #ifdef CRLF_SOURCE_FILES
1539 /* Remove the \r, if any, at the end of the line, otherwise
1540 regular expressions that end with $ or \n won't work. */
1541 if (p
- buf
> 1 && p
[-2] == '\r')
1548 /* we now have a source line in buf, null terminate and match */
1550 if (re_exec (buf
) > 0)
1555 print_source_lines_base (current_source_symtab
, line
, line
+ 1, 0);
1556 print_source_lines (current_source_symtab
, line
, line
+ 1, 0);
1557 set_internalvar (lookup_internalvar ("_"),
1558 value_from_longest (builtin_type_int
,
1560 current_source_line
= max (line
- lines_to_list
/ 2, 1);
1566 printf_filtered ("Expression not found\n");
1572 reverse_search_command (char *regex
, int from_tty
)
1576 register FILE *stream
;
1581 ** If this is the TUI, search from the first line displayed in
1582 ** the source window, otherwise, search from last_line_listed-1
1583 ** in current_source_symtab
1586 line
= last_line_listed
;
1589 if (srcWin
->generic
.isVisible
&& srcWin
->generic
.contentSize
> 0)
1590 line
= ((TuiWinContent
)
1591 srcWin
->generic
.content
)[0]->whichElement
.source
.lineOrAddr
.lineNo
;
1594 printf_filtered ("No source displayed.\nExpression not found.\n");
1600 line
= last_line_listed
- 1;
1603 msg
= (char *) re_comp (regex
);
1607 if (current_source_symtab
== 0)
1608 select_source_symtab (0);
1610 desc
= open_source_file (current_source_symtab
);
1612 perror_with_name (current_source_symtab
->filename
);
1614 if (current_source_symtab
->line_charpos
== 0)
1615 find_source_lines (current_source_symtab
, desc
);
1617 if (line
< 1 || line
> current_source_symtab
->nlines
)
1620 error ("Expression not found");
1623 if (lseek (desc
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1626 perror_with_name (current_source_symtab
->filename
);
1629 stream
= fdopen (desc
, FDOPEN_MODE
);
1633 /* FIXME!!! We walk right off the end of buf if we get a long line!!! */
1634 char buf
[4096]; /* Should be reasonable??? */
1635 register char *p
= buf
;
1644 while (c
!= '\n' && (c
= getc (stream
)) >= 0);
1646 #ifdef CRLF_SOURCE_FILES
1647 /* Remove the \r, if any, at the end of the line, otherwise
1648 regular expressions that end with $ or \n won't work. */
1649 if (p
- buf
> 1 && p
[-2] == '\r')
1656 /* We now have a source line in buf; null terminate and match. */
1658 if (re_exec (buf
) > 0)
1663 print_source_lines_base (current_source_symtab
, line
, line
+ 1, 0);
1664 print_source_lines (current_source_symtab
, line
, line
+ 1, 0);
1665 set_internalvar (lookup_internalvar ("_"),
1666 value_from_longest (builtin_type_int
,
1668 current_source_line
= max (line
- lines_to_list
/ 2, 1);
1672 if (fseek (stream
, current_source_symtab
->line_charpos
[line
- 1], 0) < 0)
1675 perror_with_name (current_source_symtab
->filename
);
1679 printf_filtered ("Expression not found\n");
1685 _initialize_source (void)
1687 struct cmd_list_element
*c
;
1688 current_source_symtab
= 0;
1689 init_source_path ();
1691 /* The intention is to use POSIX Basic Regular Expressions.
1692 Always use the GNU regex routine for consistency across all hosts.
1693 Our current GNU regex.c does not have all the POSIX features, so this is
1694 just an approximation. */
1695 re_set_syntax (RE_SYNTAX_GREP
);
1697 c
= add_cmd ("directory", class_files
, directory_command
,
1698 "Add directory DIR to beginning of search path for source files.\n\
1699 Forget cached info on source file locations and line positions.\n\
1700 DIR can also be $cwd for the current working directory, or $cdir for the\n\
1701 directory in which the source file was compiled into object code.\n\
1702 With no argument, reset the search path to $cdir:$cwd, the default.",
1706 add_com_alias ("use", "directory", class_files
, 0);
1708 c
->completer
= filename_completer
;
1710 add_cmd ("directories", no_class
, show_directories
,
1711 "Current search path for finding source files.\n\
1712 $cwd in the path means the current working directory.\n\
1713 $cdir in the path means the compilation directory of the source file.",
1718 add_com_alias ("D", "directory", class_files
, 0);
1719 add_cmd ("ld", no_class
, show_directories
,
1720 "Current search path for finding source files.\n\
1721 $cwd in the path means the current working directory.\n\
1722 $cdir in the path means the compilation directory of the source file.",
1726 add_info ("source", source_info
,
1727 "Information about the current source file.");
1729 add_info ("line", line_info
,
1730 concat ("Core addresses of the code for a source line.\n\
1731 Line can be specified as\n\
1732 LINENUM, to list around that line in current file,\n\
1733 FILE:LINENUM, to list around that line in that file,\n\
1734 FUNCTION, to list around beginning of that function,\n\
1735 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1737 Default is to describe the last source line that was listed.\n\n\
1738 This sets the default address for \"x\" to the line's first instruction\n\
1739 so that \"x/i\" suffices to start examining the machine code.\n\
1740 The address is also stored as the value of \"$_\".", NULL
));
1742 add_com ("forward-search", class_files
, forward_search_command
,
1743 "Search for regular expression (see regex(3)) from last line listed.\n\
1744 The matching line number is also stored as the value of \"$_\".");
1745 add_com_alias ("search", "forward-search", class_files
, 0);
1747 add_com ("reverse-search", class_files
, reverse_search_command
,
1748 "Search backward for regular expression (see regex(3)) from last line listed.\n\
1749 The matching line number is also stored as the value of \"$_\".");
1753 add_com_alias ("/", "forward-search", class_files
, 0);
1754 add_com_alias ("?", "reverse-search", class_files
, 0);
1757 add_com ("list", class_files
, list_command
,
1758 concat ("List specified function or line.\n\
1759 With no argument, lists ten more lines after or around previous listing.\n\
1760 \"list -\" lists the ten lines before a previous ten-line listing.\n\
1761 One argument specifies a line, and ten lines are listed around that line.\n\
1762 Two arguments with comma between specify starting and ending lines to list.\n\
1764 Lines can be specified in these ways:\n\
1765 LINENUM, to list around that line in current file,\n\
1766 FILE:LINENUM, to list around that line in that file,\n\
1767 FUNCTION, to list around beginning of that function,\n\
1768 FILE:FUNCTION, to distinguish among like-named static functions.\n\
1769 *ADDRESS, to list around the line containing that address.\n\
1770 With two args if one is empty it stands for ten lines away from the other arg.", NULL
));
1773 add_com_alias ("l", "list", class_files
, 1);
1775 add_com_alias ("v", "list", class_files
, 1);
1778 add_com_alias ("file", "list", class_files
, 1);
1781 (add_set_cmd ("listsize", class_support
, var_uinteger
,
1782 (char *) &lines_to_list
,
1783 "Set number of source lines gdb will list by default.",