OpenE2K
/
binutils-gdb
12
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add command "eval".

This commit is contained in:
Hui Zhu 2010-06-24 06:12:15 +00:00
parent fee37fbc3a
commit f1421989e7
7 changed files with 96 additions and 14 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
gdb/ChangeLog
View File

@ -1,3 +1,9 @@
2010-06-24 Hui Zhu <teawater@gmail.com>
* printcmd.c (ui_printf): New function.
(printf_command): Call ui_printf.
(_initialize_printcmd): New command "eval".
2010-06-23 Ulrich Weigand <uweigand@de.ibm.com>
* infrun.c (handle_inferior_event): Handle presence of single-step

4
gdb/NEWS
View File

@ -84,6 +84,10 @@ qRelocInsn
* New commands
eval template, expressions...
Convert the values of one or more expressions under the control
of the string template to a command line, and call it.
set target-file-system-kind unix|dos-based|auto
show target-file-system-kind
Set or show the assumed file system kind for target reported file

5
gdb/doc/ChangeLog
View File

@ -1,3 +1,8 @@
2010-06-24 Hui Zhu <teawater@gmail.com>
* gdb.texinfo: (Commands for Controlled Output): Add
documentation for command "eval".
2010-06-21 Stan Shebs <stan@codesourcery.com>
* gdb.texinfo: Add explicit @node and @appendix for GFDL.

5
gdb/doc/gdb.texinfo
View File

@ -20073,6 +20073,11 @@ Here's an example of printing DFP types using the above conversion letters:
printf "D32: %Hf - D64: %Df - D128: %DDf\n",1.2345df,1.2E10dd,1.2E1dl
@end smallexample
@kindex eval
@item eval @var{template}, @var{expressions}@dots{}
Convert the values of one or more @var{expressions} under the control of
the string @var{template} to a command line, and call it.
@end table
@node Python

64
gdb/printcmd.c
View File

@ -1956,8 +1956,10 @@ print_variable_and_value (const char *name, struct symbol *var,
fprintf_filtered (stream, "\n");
}
/* printf "printf format string" ARG to STREAM. */
static void
printf_command (char *arg, int from_tty)
ui_printf (char *arg, struct ui_file *stream)
{
char *f = NULL;
char *s = arg;
@ -2340,7 +2342,7 @@ printf_command (char *arg, int from_tty)
read_memory (tem, str, j);
str[j] = 0;
printf_filtered (current_substring, (char *) str);
fprintf_filtered (stream, current_substring, (char *) str);
}
break;
case wide_string_arg:
@ -2384,7 +2386,8 @@ printf_command (char *arg, int from_tty)
&output, translit_char);
obstack_grow_str0 (&output, "");
printf_filtered (current_substring, obstack_base (&output));
fprintf_filtered (stream, current_substring,
obstack_base (&output));
do_cleanups (inner_cleanup);
}
break;
@ -2416,7 +2419,8 @@ printf_command (char *arg, int from_tty)
&output, translit_char);
obstack_grow_str0 (&output, "");
printf_filtered (current_substring, obstack_base (&output));
fprintf_filtered (stream, current_substring,
obstack_base (&output));
do_cleanups (inner_cleanup);
}
break;
@ -2433,7 +2437,7 @@ printf_command (char *arg, int from_tty)
if (inv)
error (_("Invalid floating value found in program."));
printf_filtered (current_substring, (double) val);
fprintf_filtered (stream, current_substring, (double) val);
break;
}
case long_double_arg:
@ -2450,7 +2454,8 @@ printf_command (char *arg, int from_tty)
if (inv)
error (_("Invalid floating value found in program."));
printf_filtered (current_substring, (long double) val);
fprintf_filtered (stream, current_substring,
(long double) val);
break;
}
#else
@ -2461,7 +2466,7 @@ printf_command (char *arg, int from_tty)
{
long long val = value_as_long (val_args[i]);
printf_filtered (current_substring, val);
fprintf_filtered (stream, current_substring, val);
break;
}
#else
@ -2471,14 +2476,14 @@ printf_command (char *arg, int from_tty)
{
int val = value_as_long (val_args[i]);
printf_filtered (current_substring, val);
fprintf_filtered (stream, current_substring, val);
break;
}
case long_arg:
{
long val = value_as_long (val_args[i]);
printf_filtered (current_substring, val);
fprintf_filtered (stream, current_substring, val);
break;
}
@ -2490,7 +2495,7 @@ printf_command (char *arg, int from_tty)
#if defined (PRINTF_HAS_DECFLOAT)
/* If we have native support for Decimal floating
printing, handle it here. */
printf_filtered (current_substring, param_ptr);
fprintf_filtered (stream, current_substring, param_ptr);
#else
/* As a workaround until vasprintf has native support for DFP
@ -2579,7 +2584,7 @@ printf_command (char *arg, int from_tty)
decimal_to_string (dfp_ptr, dfp_len, byte_order, decstr);
/* Print the DFP value. */
printf_filtered (current_substring, decstr);
fprintf_filtered (stream, current_substring, decstr);
break;
#endif
@ -2634,13 +2639,13 @@ printf_command (char *arg, int from_tty)
*fmt_p++ = 'l';
*fmt_p++ = 'x';
*fmt_p++ = '\0';
printf_filtered (fmt, val);
fprintf_filtered (stream, fmt, val);
}
else
{
*fmt_p++ = 's';
*fmt_p++ = '\0';
printf_filtered (fmt, "(nil)");
fprintf_filtered (stream, fmt, "(nil)");
}
break;
@ -2658,11 +2663,38 @@ printf_command (char *arg, int from_tty)
puts_filtered here. Also, we pass a dummy argument because
some platforms have modified GCC to include -Wformat-security
by default, which will warn here if there is no argument. */
printf_filtered (last_arg, 0);
fprintf_filtered (stream, last_arg, 0);
}
do_cleanups (old_cleanups);
}
/* Implement the "printf" command. */
static void
printf_command (char *arg, int from_tty)
{
ui_printf (arg, gdb_stdout);
}
/* Implement the "eval" command. */
static void
eval_command (char *arg, int from_tty)
{
struct ui_file *ui_out = mem_fileopen ();
struct cleanup *cleanups = make_cleanup_ui_file_delete (ui_out);
char *expanded;
ui_printf (arg, ui_out);
expanded = ui_file_xstrdup (ui_out, NULL);
make_cleanup (xfree, expanded);
execute_command (expanded, from_tty);
do_cleanups (cleanups);
}
void
_initialize_printcmd (void)
{
@ -2826,4 +2858,8 @@ Show printing of source filename and line number with <symbol>."), NULL,
NULL,
show_print_symbol_filename,
&setprintlist, &showprintlist);
add_com ("eval", no_class, eval_command, _("\
Convert \"printf format string\", arg1, arg2, arg3, ..., argn to\n\
a command line, and call it."));
}

4
gdb/testsuite/ChangeLog
View File

@ -1,3 +1,7 @@
2010-06-24 Hui Zhu <teawater@gmail.com>
* gdb.base/eval.exp: New file.
2010-06-23 Ulrich Weigand <Ulrich.Weigand@de.ibm.com>
* gdb.cell/fork.exp: New file.

22
gdb/testsuite/gdb.base/eval.exp Normal file
View File

@ -0,0 +1,22 @@
# Copyright 2010 Free Software Foundation, Inc.
# This program is free software; you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation; either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <http://www.gnu.org/licenses/>.
gdb_exit
gdb_start
gdb_test_no_output "set \$a = 10" "Initialize \$a."
gdb_test "eval \"echo %d\\n\", \$a++" "10" "First eval."
gdb_test "eval \"echo %d\\n\", \$a*2" "22" "Second eval."