gnu/dist/gdb6/gdb/tui/tui-file.c

   1 /* UI_FILE - a generic STDIO like output stream.
   2    Copyright (C) 1999, 2000, 2001 Free Software Foundation, Inc.
   3
   4    This file is part of GDB.
   5
   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.
  10
  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.
  15
  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., 51 Franklin Street, Fifth Floor,
  19    Boston, MA 02110-1301, USA.  */
  20
  21 #include "defs.h"
  22 #include "ui-file.h"
  23 #include "tui/tui-file.h"
  24 #include "tui/tui-io.h"
  25
  26 #include "tui.h"
  27
  28 #include "gdb_string.h"
  29
  30 /* A ``struct ui_file'' that is compatible with all the legacy
  31    code. */
  32
  33 /* new */
  34 enum streamtype
  35 {
  36   afile,
  37   astring
  38 };
  39
  40 /* new */
  41 struct tui_stream
  42 {
  43   int *ts_magic;
  44   enum streamtype ts_streamtype;
  45   FILE *ts_filestream;
  46   char *ts_strbuf;
  47   int ts_buflen;
  48 };
  49
  50 static ui_file_flush_ftype tui_file_flush;
  51 extern ui_file_fputs_ftype tui_file_fputs;
  52 static ui_file_isatty_ftype tui_file_isatty;
  53 static ui_file_rewind_ftype tui_file_rewind;
  54 static ui_file_put_ftype tui_file_put;
  55 static ui_file_delete_ftype tui_file_delete;
  56 static struct ui_file *tui_file_new (void);
  57 static int tui_file_magic;
  58
  59 static struct ui_file *
  60 tui_file_new (void)
  61 {
  62   struct tui_stream *tui = xmalloc (sizeof (struct tui_stream));
  63   struct ui_file *file = ui_file_new ();
  64   set_ui_file_data (file, tui, tui_file_delete);
  65   set_ui_file_flush (file, tui_file_flush);
  66   set_ui_file_fputs (file, tui_file_fputs);
  67   set_ui_file_isatty (file, tui_file_isatty);
  68   set_ui_file_rewind (file, tui_file_rewind);
  69   set_ui_file_put (file, tui_file_put);
  70   tui->ts_magic = &tui_file_magic;
  71   return file;
  72 }
  73
  74 static void
  75 tui_file_delete (struct ui_file *file)
  76 {
  77   struct tui_stream *tmpstream = ui_file_data (file);
  78   if (tmpstream->ts_magic != &tui_file_magic)
  79     internal_error (__FILE__, __LINE__,
  80                     _("tui_file_delete: bad magic number"));
  81   if ((tmpstream->ts_streamtype == astring) &&
  82       (tmpstream->ts_strbuf != NULL))
  83     {
  84       xfree (tmpstream->ts_strbuf);
  85     }
  86   xfree (tmpstream);
  87 }
  88
  89 struct ui_file *
  90 tui_fileopen (FILE *stream)
  91 {
  92   struct ui_file *file = tui_file_new ();
  93   struct tui_stream *tmpstream = ui_file_data (file);
  94   tmpstream->ts_streamtype = afile;
  95   tmpstream->ts_filestream = stream;
  96   tmpstream->ts_strbuf = NULL;
  97   tmpstream->ts_buflen = 0;
  98   return file;
  99 }
 100
 101 struct ui_file *
 102 tui_sfileopen (int n)
 103 {
 104   struct ui_file *file = tui_file_new ();
 105   struct tui_stream *tmpstream = ui_file_data (file);
 106   tmpstream->ts_streamtype = astring;
 107   tmpstream->ts_filestream = NULL;
 108   if (n > 0)
 109     {
 110       tmpstream->ts_strbuf = xmalloc ((n + 1) * sizeof (char));
 111       tmpstream->ts_strbuf[0] = '\0';
 112     }
 113   else
 114     /* Do not allocate the buffer now.  The first time something is printed
 115        one will be allocated by tui_file_adjust_strbuf()  */
 116     tmpstream->ts_strbuf = NULL;
 117   tmpstream->ts_buflen = n;
 118   return file;
 119 }
 120
 121 static int
 122 tui_file_isatty (struct ui_file *file)
 123 {
 124   struct tui_stream *stream = ui_file_data (file);
 125   if (stream->ts_magic != &tui_file_magic)
 126     internal_error (__FILE__, __LINE__,
 127                     _("tui_file_isatty: bad magic number"));
 128   if (stream->ts_streamtype == afile)
 129     return (isatty (fileno (stream->ts_filestream)));
 130   else
 131     return 0;
 132 }
 133
 134 static void
 135 tui_file_rewind (struct ui_file *file)
 136 {
 137   struct tui_stream *stream = ui_file_data (file);
 138   if (stream->ts_magic != &tui_file_magic)
 139     internal_error (__FILE__, __LINE__,
 140                     _("tui_file_rewind: bad magic number"));
 141   stream->ts_strbuf[0] = '\0';
 142 }
 143
 144 static void
 145 tui_file_put (struct ui_file *file,
 146               ui_file_put_method_ftype *write,
 147               void *dest)
 148 {
 149   struct tui_stream *stream = ui_file_data (file);
 150   if (stream->ts_magic != &tui_file_magic)
 151     internal_error (__FILE__, __LINE__,
 152                     _("tui_file_put: bad magic number"));
 153   if (stream->ts_streamtype == astring)
 154     write (dest, stream->ts_strbuf, strlen (stream->ts_strbuf));
 155 }
 156
 157 /* All TUI I/O sent to the *_filtered and *_unfiltered functions
 158    eventually ends up here.  The fputs_unfiltered_hook is primarily
 159    used by GUIs to collect all output and send it to the GUI, instead
 160    of the controlling terminal.  Only output to gdb_stdout and
 161    gdb_stderr are sent to the hook.  Everything else is sent on to
 162    fputs to allow file I/O to be handled appropriately.  */
 163
 164 /* FIXME: Should be broken up and moved to a TUI specific file. */
 165
 166 void
 167 tui_file_fputs (const char *linebuffer, struct ui_file *file)
 168 {
 169   struct tui_stream *stream = ui_file_data (file);
 170
 171   if (stream->ts_streamtype == astring)
 172     {
 173       tui_file_adjust_strbuf (strlen (linebuffer), file);
 174       strcat (stream->ts_strbuf, linebuffer);
 175     }
 176   else
 177     {
 178       tui_puts (linebuffer);
 179     }
 180 }
 181
 182 char *
 183 tui_file_get_strbuf (struct ui_file *file)
 184 {
 185   struct tui_stream *stream = ui_file_data (file);
 186   if (stream->ts_magic != &tui_file_magic)
 187     internal_error (__FILE__, __LINE__,
 188                     _("tui_file_get_strbuf: bad magic number"));
 189   return (stream->ts_strbuf);
 190 }
 191
 192 /* adjust the length of the buffer by the amount necessary
 193    to accomodate appending a string of length N to the buffer contents */
 194 void
 195 tui_file_adjust_strbuf (int n, struct ui_file *file)
 196 {
 197   struct tui_stream *stream = ui_file_data (file);
 198   int non_null_chars;
 199   if (stream->ts_magic != &tui_file_magic)
 200     internal_error (__FILE__, __LINE__,
 201                     _("tui_file_adjust_strbuf: bad magic number"));
 202
 203   if (stream->ts_streamtype != astring)
 204     return;
 205
 206   if (stream->ts_strbuf)
 207     {
 208       /* There is already a buffer allocated */
 209       non_null_chars = strlen (stream->ts_strbuf);
 210
 211       if (n > (stream->ts_buflen - non_null_chars - 1))
 212         {
 213           stream->ts_buflen = n + non_null_chars + 1;
 214           stream->ts_strbuf = xrealloc (stream->ts_strbuf, stream->ts_buflen);
 215         }
 216     }
 217   else
 218     /* No buffer yet, so allocate one of the desired size */
 219     stream->ts_strbuf = xmalloc ((n + 1) * sizeof (char));
 220 }
 221
 222 static void
 223 tui_file_flush (struct ui_file *file)
 224 {
 225   struct tui_stream *stream = ui_file_data (file);
 226   if (stream->ts_magic != &tui_file_magic)
 227     internal_error (__FILE__, __LINE__,
 228                     _("tui_file_flush: bad magic number"));
 229
 230   switch (stream->ts_streamtype)
 231     {
 232     case astring:
 233       break;
 234     case afile:
 235       fflush (stream->ts_filestream);
 236       break;
 237     }
 238 }