1 /* TUI display source window.
3 Copyright 1998, 1999, 2000, 2001, 2002, 2003, 2004 Free Software
6 Contributed by Hewlett-Packard Company.
8 This file is part of GDB.
10 This program is free software; you can redistribute it and/or modify
11 it under the terms of the GNU General Public License as published by
12 the Free Software Foundation; either version 2 of the License, or
13 (at your option) any later version.
15 This program is distributed in the hope that it will be useful,
16 but WITHOUT ANY WARRANTY; without even the implied warranty of
17 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
18 GNU General Public License for more details.
20 You should have received a copy of the GNU General Public License
21 along with this program; if not, write to the Free Software
22 Foundation, Inc., 59 Temple Place - Suite 330,
23 Boston, MA 02111-1307, USA. */
29 #include "breakpoint.h"
34 #include "tui/tui-data.h"
35 #include "tui/tui-stack.h"
36 #include "tui/tui-winsource.h"
37 #include "tui/tui-source.h"
39 #include "gdb_string.h"
40 #include "gdb_curses.h"
42 /* Function to display source in the source window. */
44 tui_set_source_content (struct symtab
*s
, int line_no
, int noerror
)
46 enum tui_status ret
= TUI_FAILURE
;
48 if (s
!= (struct symtab
*) NULL
&& s
->filename
!= (char *) NULL
)
51 int i
, desc
, c
, line_width
, nlines
;
54 if ((ret
= tui_alloc_source_buffer (TUI_SRC_WIN
)) == TUI_SUCCESS
)
56 line_width
= TUI_SRC_WIN
->generic
.width
- 1;
57 /* Take hilite (window border) into account, when calculating
58 the number of lines */
59 nlines
= (line_no
+ (TUI_SRC_WIN
->generic
.height
- 2)) - line_no
;
60 desc
= open_source_file (s
);
65 char *name
= alloca (strlen (s
->filename
) + 100);
66 sprintf (name
, "%s:%d", s
->filename
, line_no
);
67 print_sys_errmsg (name
, errno
);
73 if (s
->line_charpos
== 0)
74 find_source_lines (s
, desc
);
76 if (line_no
< 1 || line_no
> s
->nlines
)
80 "Line number %d out of range; %s has %d lines.\n",
81 line_no
, s
->filename
, s
->nlines
);
83 else if (lseek (desc
, s
->line_charpos
[line_no
- 1], 0) < 0)
86 perror_with_name (s
->filename
);
90 int offset
, cur_line_no
, cur_line
, cur_len
, threshold
;
91 struct tui_gen_win_info
* locator
= tui_locator_win_info_ptr ();
92 struct tui_source_info
* src
= &TUI_SRC_WIN
->detail
.source_info
;
94 if (TUI_SRC_WIN
->generic
.title
)
95 xfree (TUI_SRC_WIN
->generic
.title
);
96 TUI_SRC_WIN
->generic
.title
= xstrdup (s
->filename
);
99 xfree (src
->filename
);
100 src
->filename
= xstrdup (s
->filename
);
102 /* Determine the threshold for the length of the line
103 and the offset to start the display. */
104 offset
= src
->horizontal_offset
;
105 threshold
= (line_width
- 1) + offset
;
106 stream
= fdopen (desc
, FOPEN_RT
);
109 cur_line_no
= src
->start_line_or_addr
.line_no
= line_no
;
111 src_line
= (char *) xmalloc (
112 (threshold
+ 1) * sizeof (char));
113 while (cur_line
< nlines
)
115 struct tui_win_element
* element
= (struct tui_win_element
*)
116 TUI_SRC_WIN
->generic
.content
[cur_line
];
118 /* get the first character in the line */
122 src_line
= ((struct tui_win_element
*)
123 TUI_SRC_WIN
->generic
.content
[
124 cur_line
])->which_element
.source
.line
;
125 /* Init the line with the line number */
126 sprintf (src_line
, "%-6d", cur_line_no
);
127 cur_len
= strlen (src_line
);
129 ((cur_len
/ tui_default_tab_len ()) * tui_default_tab_len ());
130 while (i
< tui_default_tab_len ())
132 src_line
[cur_len
] = ' ';
136 src_line
[cur_len
] = (char) 0;
138 /* Set whether element is the execution point and
139 whether there is a break point on it. */
140 element
->which_element
.source
.line_or_addr
.line_no
=
142 element
->which_element
.source
.is_exec_point
=
143 (strcmp (((struct tui_win_element
*)
144 locator
->content
[0])->which_element
.locator
.file_name
,
146 && cur_line_no
== ((struct tui_win_element
*)
147 locator
->content
[0])->which_element
.locator
.line_no
);
150 i
= strlen (src_line
) - 1;
154 (c
!= '\r') && (++i
< threshold
))
156 if (c
< 040 && c
!= '\t')
159 src_line
[i
] = c
+ 0100;
167 { /* Store the charcter in the line
168 buffer. If it is a tab, then
169 translate to the correct number of
170 chars so we don't overwrite our
174 int j
, max_tab_len
= tui_default_tab_len ();
177 (i
/ max_tab_len
) * max_tab_len
);
178 ((j
< max_tab_len
) &&
190 { /* If we have not reached EOL, then eat
192 while (c
!= EOF
&& c
!= '\n' && c
!= '\r')
196 while (c
!= EOF
&& c
!= '\n' && c
!= '\r' &&
197 i
< threshold
&& (c
= fgetc (stream
)));
199 /* Now copy the line taking the offset into account */
200 if (strlen (src_line
) > offset
)
201 strcpy (((struct tui_win_element
*) TUI_SRC_WIN
->generic
.content
[
202 cur_line
])->which_element
.source
.line
,
205 ((struct tui_win_element
*)
206 TUI_SRC_WIN
->generic
.content
[
207 cur_line
])->which_element
.source
.line
[0] = (char) 0;
214 TUI_SRC_WIN
->generic
.content_size
= nlines
;
224 /* elz: this function sets the contents of the source window to empty
225 except for a line in the middle with a warning message about the
226 source not being available. This function is called by
227 tui_erase_source_contents(), which in turn is invoked when the
228 source files cannot be accessed. */
231 tui_set_source_content_nil (struct tui_win_info
* win_info
, char *warning_string
)
237 line_width
= win_info
->generic
.width
- 1;
238 n_lines
= win_info
->generic
.height
- 2;
240 /* set to empty each line in the window, except for the one
241 which contains the message */
242 while (curr_line
< win_info
->generic
.content_size
)
244 /* set the information related to each displayed line
245 to null: i.e. the line number is 0, there is no bp,
246 it is not where the program is stopped */
248 struct tui_win_element
* element
=
249 (struct tui_win_element
*) win_info
->generic
.content
[curr_line
];
250 element
->which_element
.source
.line_or_addr
.line_no
= 0;
251 element
->which_element
.source
.is_exec_point
= FALSE
;
252 element
->which_element
.source
.has_break
= FALSE
;
254 /* set the contents of the line to blank */
255 element
->which_element
.source
.line
[0] = (char) 0;
257 /* if the current line is in the middle of the screen, then we
258 want to display the 'no source available' message in it.
259 Note: the 'weird' arithmetic with the line width and height
260 comes from the function tui_erase_source_content(). We need
261 to keep the screen and the window's actual contents in synch. */
263 if (curr_line
== (n_lines
/ 2 + 1))
267 int warning_length
= strlen (warning_string
);
270 src_line
= element
->which_element
.source
.line
;
272 if (warning_length
>= ((line_width
- 1) / 2))
275 xpos
= (line_width
- 1) / 2 - warning_length
;
277 for (i
= 0; i
< xpos
; i
++)
280 sprintf (src_line
+ i
, "%s", warning_string
);
282 for (i
= xpos
+ warning_length
; i
< line_width
; i
++)
295 /* Function to display source in the source window. This function
296 initializes the horizontal scroll to 0. */
298 tui_show_symtab_source (struct symtab
*s
, union tui_line_or_address line
, int noerror
)
300 TUI_SRC_WIN
->detail
.source_info
.horizontal_offset
= 0;
301 tui_update_source_window_as_is (TUI_SRC_WIN
, s
, line
, noerror
);
305 /* Answer whether the source is currently displayed in the source
308 tui_source_is_displayed (char *fname
)
310 return (TUI_SRC_WIN
->generic
.content_in_use
&&
311 (strcmp (((struct tui_win_element
*) (tui_locator_win_info_ptr ())->
312 content
[0])->which_element
.locator
.file_name
, fname
) == 0));
316 /* Scroll the source forward or backward vertically. */
318 tui_vertical_source_scroll (enum tui_scroll_direction scroll_direction
,
321 if (TUI_SRC_WIN
->generic
.content
!= NULL
)
323 union tui_line_or_address l
;
325 tui_win_content content
= (tui_win_content
) TUI_SRC_WIN
->generic
.content
;
326 struct symtab_and_line cursal
= get_current_source_symtab_and_line ();
328 if (cursal
.symtab
== (struct symtab
*) NULL
)
329 s
= find_pc_symtab (get_frame_pc (deprecated_selected_frame
));
333 if (scroll_direction
== FORWARD_SCROLL
)
335 l
.line_no
= content
[0]->which_element
.source
.line_or_addr
.line_no
+
337 if (l
.line_no
> s
->nlines
)
338 /*line = s->nlines - win_info->generic.content_size + 1; */
339 /*elz: fix for dts 23398 */
340 l
.line_no
= content
[0]->which_element
.source
.line_or_addr
.line_no
;
344 l
.line_no
= content
[0]->which_element
.source
.line_or_addr
.line_no
-
350 print_source_lines (s
, l
.line_no
, l
.line_no
+ 1, 0);