1 /* Language independent support for printing types for GDB, the GNU debugger.
3 Copyright 1986, 1988, 1989, 1991, 1992, 1993, 1994, 1995, 1998,
4 1999, 2000, 2001, 2003 Free Software Foundation, Inc.
6 This file is part of GDB.
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.
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.
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., 59 Temple Place - Suite 330,
21 Boston, MA 02111-1307, USA. */
24 #include "gdb_obstack.h"
25 #include "bfd.h" /* Binary File Description */
28 #include "expression.h"
37 #include "gdb_string.h"
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. */
44 extern void _initialize_typeprint (void);
46 static void ptype_command (char *, int);
48 static struct type
*ptype_eval (struct expression
*);
50 static void whatis_command (char *, int);
52 static void whatis_exp (char *, int);
54 /* Print a description of a type in the format of a
55 typedef for the current language.
56 NEW is the new name for a type TYPE. */
59 typedef_print (struct type
*type
, struct symbol
*new, struct ui_file
*stream
)
62 switch (current_language
->la_language
)
67 fprintf_filtered (stream
, "typedef ");
68 type_print (type
, "", stream
, 0);
69 if (TYPE_NAME ((SYMBOL_TYPE (new))) == 0
70 || strcmp (TYPE_NAME ((SYMBOL_TYPE (new))), DEPRECATED_SYMBOL_NAME (new)) != 0)
71 fprintf_filtered (stream
, " %s", SYMBOL_PRINT_NAME (new));
76 fprintf_filtered (stream
, "TYPE ");
77 if (!TYPE_NAME (SYMBOL_TYPE (new))
78 || strcmp (TYPE_NAME ((SYMBOL_TYPE (new))), DEPRECATED_SYMBOL_NAME (new)) != 0)
79 fprintf_filtered (stream
, "%s = ", SYMBOL_PRINT_NAME (new));
81 fprintf_filtered (stream
, "<builtin> = ");
82 type_print (type
, "", stream
, 0);
87 fprintf_filtered (stream
, "type ");
88 fprintf_filtered (stream
, "%s = ", SYMBOL_PRINT_NAME (new));
89 type_print (type
, "", stream
, 0);
93 error ("Language not supported.");
95 fprintf_filtered (stream
, ";\n");
98 /* Print a description of a type TYPE in the form of a declaration of a
99 variable named VARSTRING. (VARSTRING is demangled if necessary.)
100 Output goes to STREAM (via stdio).
101 If SHOW is positive, we show the contents of the outermost level
102 of structure even if there is a type name that could be used instead.
103 If SHOW is negative, we never show the details of elements' types. */
106 type_print (struct type
*type
, char *varstring
, struct ui_file
*stream
,
109 LA_PRINT_TYPE (type
, varstring
, stream
, show
, 0);
112 /* Print type of EXP, or last thing in value history if EXP == NULL.
113 show is passed to type_print. */
116 whatis_exp (char *exp
, int show
)
118 struct expression
*expr
;
120 register struct cleanup
*old_chain
= NULL
;
121 struct type
*real_type
= NULL
;
129 expr
= parse_expression (exp
);
130 old_chain
= make_cleanup (free_current_contents
, &expr
);
131 val
= evaluate_type (expr
);
134 val
= access_value_history (0);
136 type
= VALUE_TYPE (val
);
140 if (((TYPE_CODE (type
) == TYPE_CODE_PTR
) ||
141 (TYPE_CODE (type
) == TYPE_CODE_REF
))
143 (TYPE_CODE (TYPE_TARGET_TYPE (type
)) == TYPE_CODE_CLASS
))
145 real_type
= value_rtti_target_type (val
, &full
, &top
, &using_enc
);
148 if (TYPE_CODE (type
) == TYPE_CODE_PTR
)
149 real_type
= lookup_pointer_type (real_type
);
151 real_type
= lookup_reference_type (real_type
);
154 else if (TYPE_CODE (type
) == TYPE_CODE_CLASS
)
155 real_type
= value_rtti_type (val
, &full
, &top
, &using_enc
);
158 printf_filtered ("type = ");
162 printf_filtered ("/* real type = ");
163 type_print (real_type
, "", gdb_stdout
, -1);
165 printf_filtered (" (incomplete object)");
166 printf_filtered (" */\n");
169 type_print (type
, "", gdb_stdout
, show
);
170 printf_filtered ("\n");
173 do_cleanups (old_chain
);
178 whatis_command (char *exp
, int from_tty
)
180 /* Most of the time users do not want to see all the fields
181 in a structure. If they do they can use the "ptype" command.
182 Hence the "-1" below. */
183 whatis_exp (exp
, -1);
186 /* Simple subroutine for ptype_command. */
189 ptype_eval (struct expression
*exp
)
191 if (exp
->elts
[0].opcode
== OP_TYPE
)
193 return (exp
->elts
[1].type
);
201 /* TYPENAME is either the name of a type, or an expression. */
205 ptype_command (char *typename
, int from_tty
)
207 register struct type
*type
;
208 struct expression
*expr
;
209 register struct cleanup
*old_chain
;
211 if (typename
== NULL
)
213 /* Print type of last thing in value history. */
214 whatis_exp (typename
, 1);
218 expr
= parse_expression (typename
);
219 old_chain
= make_cleanup (free_current_contents
, &expr
);
220 type
= ptype_eval (expr
);
223 /* User did "ptype <typename>" */
224 printf_filtered ("type = ");
225 type_print (type
, "", gdb_stdout
, 1);
226 printf_filtered ("\n");
227 do_cleanups (old_chain
);
231 /* User did "ptype <symbolname>" */
232 do_cleanups (old_chain
);
233 whatis_exp (typename
, 1);
238 /* Print integral scalar data VAL, of type TYPE, onto stdio stream STREAM.
239 Used to print data from type structures in a specified type. For example,
240 array bounds may be characters or booleans in some languages, and this
241 allows the ranges to be printed in their "natural" form rather than as
242 decimal integer values.
244 FIXME: This is here simply because only the type printing routines
245 currently use it, and it wasn't clear if it really belonged somewhere
246 else (like printcmd.c). There are a lot of other gdb routines that do
247 something similar, but they are generally concerned with printing values
248 that come from the inferior in target byte order and target size. */
251 print_type_scalar (struct type
*type
, LONGEST val
, struct ui_file
*stream
)
256 CHECK_TYPEDEF (type
);
258 switch (TYPE_CODE (type
))
262 len
= TYPE_NFIELDS (type
);
263 for (i
= 0; i
< len
; i
++)
265 if (TYPE_FIELD_BITPOS (type
, i
) == val
)
272 fputs_filtered (TYPE_FIELD_NAME (type
, i
), stream
);
276 print_longest (stream
, 'd', 0, val
);
281 print_longest (stream
, TYPE_UNSIGNED (type
) ? 'u' : 'd', 0, val
);
285 LA_PRINT_CHAR ((unsigned char) val
, stream
);
289 fprintf_filtered (stream
, val
? "TRUE" : "FALSE");
292 case TYPE_CODE_RANGE
:
293 print_type_scalar (TYPE_TARGET_TYPE (type
), val
, stream
);
296 case TYPE_CODE_UNDEF
:
298 case TYPE_CODE_ARRAY
:
299 case TYPE_CODE_STRUCT
:
300 case TYPE_CODE_UNION
:
305 case TYPE_CODE_STRING
:
306 case TYPE_CODE_ERROR
:
307 case TYPE_CODE_MEMBER
:
308 case TYPE_CODE_METHOD
:
310 error ("internal error: unhandled type in print_type_scalar");
314 error ("Invalid type code in symbol table.");
319 /* Dump details of a type specified either directly or indirectly.
320 Uses the same sort of type lookup mechanism as ptype_command()
321 and whatis_command(). */
324 maintenance_print_type (char *typename
, int from_tty
)
327 register struct type
*type
;
328 register struct cleanup
*old_chain
;
329 struct expression
*expr
;
331 if (typename
!= NULL
)
333 expr
= parse_expression (typename
);
334 old_chain
= make_cleanup (free_current_contents
, &expr
);
335 if (expr
->elts
[0].opcode
== OP_TYPE
)
337 /* The user expression names a type directly, just use that type. */
338 type
= expr
->elts
[1].type
;
342 /* The user expression may name a type indirectly by naming an
343 object of that type. Find that indirectly named type. */
344 val
= evaluate_type (expr
);
345 type
= VALUE_TYPE (val
);
349 recursive_dump_type (type
, 0);
351 do_cleanups (old_chain
);
357 _initialize_typeprint (void)
360 add_com ("ptype", class_vars
, ptype_command
,
361 "Print definition of type TYPE.\n\
362 Argument may be a type name defined by typedef, or \"struct STRUCT-TAG\"\n\
363 or \"class CLASS-NAME\" or \"union UNION-TAG\" or \"enum ENUM-TAG\".\n\
364 The selected stack frame's lexical context is used to look up the name.");
366 add_com ("whatis", class_vars
, whatis_command
,
367 "Print data type of expression EXP.");
This page took 0.03699 seconds and 4 git commands to generate.