+2005-06-01 Keith Seitz <keiths@redhat.com>
+
+ From James Lemke <jim@wasabisystems.com>:
+ * generic/gdbtk-hooks.c (gdbtk_fileopenin, gdbtk_read): New functions
+ for target to read stdin from console window.
+ * generic/gdbtk-interp.c (_stdtargin): Added.
+ * generic/gdbtk.h (gdbtk_fileopenin): Add declaration.
+
2005-05-26 Keith Seitz <keiths@redhat.com>
* generic/gdbtk-cmds.c (gdb_set_mem): target_write_memory now takes
* See note there for details.
*/
+long gdbtk_read (struct ui_file *, char *, long);
void gdbtk_fputs (const char *, struct ui_file *);
static int gdbtk_load_hash (const char *, unsigned long);
}
struct ui_file *
+gdbtk_fileopenin (void)
+{
+ struct ui_file *file = ui_file_new ();
+ set_ui_file_read (file, gdbtk_read);
+ return file;
+}
+
+struct ui_file *
gdbtk_fileopen (void)
{
struct ui_file *file = ui_file_new ();
return file;
}
+/* This handles input from the gdb console.
+ */
+
+long
+gdbtk_read (struct ui_file *stream, char *buf, long sizeof_buf)
+{
+ int result;
+ size_t actual_len;
+
+ if (stream == gdb_stdtargin)
+ {
+ result = Tcl_Eval (gdbtk_interp, "gdbtk_console_read");
+ if (result != TCL_OK)
+ {
+ report_error ();
+ actual_len = 0;
+ }
+ else
+ actual_len = strlen (gdbtk_interp->result);
+
+ /* Truncate the string if it is too big for the caller's buffer. */
+ if (actual_len >= sizeof_buf)
+ actual_len = sizeof_buf - 1;
+
+ memcpy (buf, gdbtk_interp->result, actual_len);
+ buf[actual_len] = '\0';
+ return actual_len;
+ }
+ else
+ {
+ errno = EBADF;
+ return 0;
+ }
+}
+
+
/* This handles all the output from gdb. All the gdb printf_xxx functions
* eventually end up here. The output is either passed to the result_ptr
* where it will go to the result of some gdbtk command, or passed to the
struct ui_file *_stderr;
struct ui_file *_stdlog;
struct ui_file *_stdtarg;
+ struct ui_file *_stdtargin;
};
static struct gdbtk_interp_data *gdbtk_data;
gdb_stderr = d->_stderr;
gdb_stdlog = d->_stdlog;
gdb_stdtarg = d->_stdtarg;
+ gdb_stdtargin = d->_stdtargin;
deprecated_command_loop_hook = gdbtk_command_loop;
gdbtk_data->_stderr = gdbtk_fileopen ();
gdbtk_data->_stdlog = gdbtk_fileopen ();
gdbtk_data->_stdtarg = gdbtk_fileopen ();
+ gdbtk_data->_stdtargin = gdbtk_fileopenin ();
gdbtk_interp = interp_new ("insight", gdbtk_data, cli_out_new (gdbtk_data->_stdout),
&procs);
interp_add (gdbtk_interp);
extern int target_is_native (struct target_ops *t);
extern void gdbtk_fputs (const char *, struct ui_file *);
extern struct ui_file *gdbtk_fileopen (void);
+extern struct ui_file *gdbtk_fileopenin (void);
extern int gdbtk_disable_fputs;
#ifdef _WIN32