gnu/dist/gdb6/gdb/typeprint.c

   1 /* Language independent support for printing types for GDB, the GNU debugger.
   2
   3    Copyright (C) 1986, 1988, 1989, 1991, 1992, 1993, 1994, 1995, 1998,
   4    1999, 2000, 2001, 2003 Free Software Foundation, Inc.
   5
   6    This file is part of GDB.
   7
   8    This program is free software; you can redistribute it and/or modify
   9    it under the terms of the GNU General Public License as published by
  10    the Free Software Foundation; either version 2 of the License, or
  11    (at your option) any later version.
  12
  13    This program is distributed in the hope that it will be useful,
  14    but WITHOUT ANY WARRANTY; without even the implied warranty of
  15    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  16    GNU General Public License for more details.
  17
  18    You should have received a copy of the GNU General Public License
  19    along with this program; if not, write to the Free Software
  20    Foundation, Inc., 51 Franklin Street, Fifth Floor,
  21    Boston, MA 02110-1301, USA.  */
  22
  23 #include "defs.h"
  24 #include "gdb_obstack.h"
  25 #include "bfd.h"                /* Binary File Description */
  26 #include "symtab.h"
  27 #include "gdbtypes.h"
  28 #include "expression.h"
  29 #include "value.h"
  30 #include "gdbcore.h"
  31 #include "command.h"
  32 #include "gdbcmd.h"
  33 #include "target.h"
  34 #include "language.h"
  35 #include "cp-abi.h"
  36 #include "typeprint.h"
  37 #include "gdb_string.h"
  38 #include <errno.h>
  39
  40 /* For real-type printing in whatis_exp() */
  41 extern int objectprint;         /* Controls looking up an object's derived type
  42                                    using what we find in its vtables.  */
  43
  44 extern void _initialize_typeprint (void);
  45
  46 static void ptype_command (char *, int);
  47
  48 static void whatis_command (char *, int);
  49
  50 static void whatis_exp (char *, int);
  51
  52 /* Print a description of a type in the format of a
  53    typedef for the current language.
  54    NEW is the new name for a type TYPE. */
  55
  56 void
  57 typedef_print (struct type *type, struct symbol *new, struct ui_file *stream)
  58 {
  59   CHECK_TYPEDEF (type);
  60   switch (current_language->la_language)
  61     {
  62 #ifdef _LANG_c
  63     case language_c:
  64     case language_cplus:
  65       fprintf_filtered (stream, "typedef ");
  66       type_print (type, "", stream, 0);
  67       if (TYPE_NAME ((SYMBOL_TYPE (new))) == 0
  68           || strcmp (TYPE_NAME ((SYMBOL_TYPE (new))), DEPRECATED_SYMBOL_NAME (new)) != 0)
  69         fprintf_filtered (stream, " %s", SYMBOL_PRINT_NAME (new));
  70       break;
  71 #endif
  72 #ifdef _LANG_m2
  73     case language_m2:
  74       fprintf_filtered (stream, "TYPE ");
  75       if (!TYPE_NAME (SYMBOL_TYPE (new))
  76           || strcmp (TYPE_NAME ((SYMBOL_TYPE (new))), DEPRECATED_SYMBOL_NAME (new)) != 0)
  77         fprintf_filtered (stream, "%s = ", SYMBOL_PRINT_NAME (new));
  78       else
  79         fprintf_filtered (stream, "<builtin> = ");
  80       type_print (type, "", stream, 0);
  81       break;
  82 #endif
  83 #ifdef _LANG_pascal
  84     case language_pascal:
  85       fprintf_filtered (stream, "type ");
  86       fprintf_filtered (stream, "%s = ", SYMBOL_PRINT_NAME (new));
  87       type_print (type, "", stream, 0);
  88       break;
  89 #endif
  90     default:
  91       error (_("Language not supported."));
  92     }
  93   fprintf_filtered (stream, ";\n");
  94 }
  95
  96 /* Print a description of a type TYPE in the form of a declaration of a
  97    variable named VARSTRING.  (VARSTRING is demangled if necessary.)
  98    Output goes to STREAM (via stdio).
  99    If SHOW is positive, we show the contents of the outermost level
 100    of structure even if there is a type name that could be used instead.
 101    If SHOW is negative, we never show the details of elements' types.  */
 102
 103 void
 104 type_print (struct type *type, char *varstring, struct ui_file *stream,
 105             int show)
 106 {
 107   LA_PRINT_TYPE (type, varstring, stream, show, 0);
 108 }
 109
 110 /* Print type of EXP, or last thing in value history if EXP == NULL.
 111    show is passed to type_print.  */
 112
 113 static void
 114 whatis_exp (char *exp, int show)
 115 {
 116   struct expression *expr;
 117   struct value *val;
 118   struct cleanup *old_chain = NULL;
 119   struct type *real_type = NULL;
 120   struct type *type;
 121   int full = 0;
 122   int top = -1;
 123   int using_enc = 0;
 124
 125   if (exp)
 126     {
 127       expr = parse_expression (exp);
 128       old_chain = make_cleanup (free_current_contents, &expr);
 129       val = evaluate_type (expr);
 130     }
 131   else
 132     val = access_value_history (0);
 133
 134   type = value_type (val);
 135
 136   if (objectprint)
 137     {
 138       if (((TYPE_CODE (type) == TYPE_CODE_PTR) ||
 139            (TYPE_CODE (type) == TYPE_CODE_REF))
 140           &&
 141           (TYPE_CODE (TYPE_TARGET_TYPE (type)) == TYPE_CODE_CLASS))
 142         {
 143           real_type = value_rtti_target_type (val, &full, &top, &using_enc);
 144           if (real_type)
 145             {
 146               if (TYPE_CODE (type) == TYPE_CODE_PTR)
 147                 real_type = lookup_pointer_type (real_type);
 148               else
 149                 real_type = lookup_reference_type (real_type);
 150             }
 151         }
 152       else if (TYPE_CODE (type) == TYPE_CODE_CLASS)
 153   real_type = value_rtti_type (val, &full, &top, &using_enc);
 154     }
 155
 156   printf_filtered ("type = ");
 157
 158   if (real_type)
 159     {
 160       printf_filtered ("/* real type = ");
 161       type_print (real_type, "", gdb_stdout, -1);
 162       if (! full)
 163         printf_filtered (" (incomplete object)");
 164       printf_filtered (" */\n");
 165     }
 166
 167   type_print (type, "", gdb_stdout, show);
 168   printf_filtered ("\n");
 169
 170   if (exp)
 171     do_cleanups (old_chain);
 172 }
 173
 174 static void
 175 whatis_command (char *exp, int from_tty)
 176 {
 177   /* Most of the time users do not want to see all the fields
 178      in a structure.  If they do they can use the "ptype" command.
 179      Hence the "-1" below.  */
 180   whatis_exp (exp, -1);
 181 }
 182
 183 /* TYPENAME is either the name of a type, or an expression.  */
 184
 185 static void
 186 ptype_command (char *typename, int from_tty)
 187 {
 188   whatis_exp (typename, 1);
 189 }
 190
 191 /* Print integral scalar data VAL, of type TYPE, onto stdio stream STREAM.
 192    Used to print data from type structures in a specified type.  For example,
 193    array bounds may be characters or booleans in some languages, and this
 194    allows the ranges to be printed in their "natural" form rather than as
 195    decimal integer values.
 196
 197    FIXME:  This is here simply because only the type printing routines
 198    currently use it, and it wasn't clear if it really belonged somewhere
 199    else (like printcmd.c).  There are a lot of other gdb routines that do
 200    something similar, but they are generally concerned with printing values
 201    that come from the inferior in target byte order and target size. */
 202
 203 void
 204 print_type_scalar (struct type *type, LONGEST val, struct ui_file *stream)
 205 {
 206   unsigned int i;
 207   unsigned len;
 208
 209   CHECK_TYPEDEF (type);
 210
 211   switch (TYPE_CODE (type))
 212     {
 213
 214     case TYPE_CODE_ENUM:
 215       len = TYPE_NFIELDS (type);
 216       for (i = 0; i < len; i++)
 217         {
 218           if (TYPE_FIELD_BITPOS (type, i) == val)
 219             {
 220               break;
 221             }
 222         }
 223       if (i < len)
 224         {
 225           fputs_filtered (TYPE_FIELD_NAME (type, i), stream);
 226         }
 227       else
 228         {
 229           print_longest (stream, 'd', 0, val);
 230         }
 231       break;
 232
 233     case TYPE_CODE_INT:
 234       print_longest (stream, TYPE_UNSIGNED (type) ? 'u' : 'd', 0, val);
 235       break;
 236
 237     case TYPE_CODE_CHAR:
 238       LA_PRINT_CHAR ((unsigned char) val, stream);
 239       break;
 240
 241     case TYPE_CODE_BOOL:
 242       fprintf_filtered (stream, val ? "TRUE" : "FALSE");
 243       break;
 244
 245     case TYPE_CODE_RANGE:
 246       print_type_scalar (TYPE_TARGET_TYPE (type), val, stream);
 247       return;
 248
 249     case TYPE_CODE_UNDEF:
 250     case TYPE_CODE_PTR:
 251     case TYPE_CODE_ARRAY:
 252     case TYPE_CODE_STRUCT:
 253     case TYPE_CODE_UNION:
 254     case TYPE_CODE_FUNC:
 255     case TYPE_CODE_FLT:
 256     case TYPE_CODE_VOID:
 257     case TYPE_CODE_SET:
 258     case TYPE_CODE_STRING:
 259     case TYPE_CODE_ERROR:
 260     case TYPE_CODE_MEMBER:
 261     case TYPE_CODE_METHOD:
 262     case TYPE_CODE_REF:
 263     case TYPE_CODE_NAMESPACE:
 264       error (_("internal error: unhandled type in print_type_scalar"));
 265       break;
 266
 267     default:
 268       error (_("Invalid type code in symbol table."));
 269     }
 270   gdb_flush (stream);
 271 }
 272
 273 /* Dump details of a type specified either directly or indirectly.
 274    Uses the same sort of type lookup mechanism as ptype_command()
 275    and whatis_command(). */
 276
 277 void
 278 maintenance_print_type (char *typename, int from_tty)
 279 {
 280   struct value *val;
 281   struct type *type;
 282   struct cleanup *old_chain;
 283   struct expression *expr;
 284
 285   if (typename != NULL)
 286     {
 287       expr = parse_expression (typename);
 288       old_chain = make_cleanup (free_current_contents, &expr);
 289       if (expr->elts[0].opcode == OP_TYPE)
 290         {
 291           /* The user expression names a type directly, just use that type. */
 292           type = expr->elts[1].type;
 293         }
 294       else
 295         {
 296           /* The user expression may name a type indirectly by naming an
 297              object of that type.  Find that indirectly named type. */
 298           val = evaluate_type (expr);
 299           type = value_type (val);
 300         }
 301       if (type != NULL)
 302         {
 303           recursive_dump_type (type, 0);
 304         }
 305       do_cleanups (old_chain);
 306     }
 307 }
 308 \f
 309
 310 void
 311 _initialize_typeprint (void)
 312 {
 313
 314   add_com ("ptype", class_vars, ptype_command, _("\
 315 Print definition of type TYPE.\n\
 316 Argument may be a type name defined by typedef, or \"struct STRUCT-TAG\"\n\
 317 or \"class CLASS-NAME\" or \"union UNION-TAG\" or \"enum ENUM-TAG\".\n\
 318 The selected stack frame's lexical context is used to look up the name."));
 319
 320   add_com ("whatis", class_vars, whatis_command,
 321            _("Print data type of expression EXP."));
 322
 323 }