1 /* Support for printing Java types for GDB, the GNU debugger.
2 Copyright (C) 1997, 1998, 1999, 2000, 2007, 2008, 2009, 2010, 2011
3 Free Software Foundation, Inc.
5 This file is part of GDB.
7 This program is free software; you can redistribute it and/or modify
8 it under the terms of the GNU General Public License as published by
9 the Free Software Foundation; either version 3 of the License, or
10 (at your option) any later version.
12 This program is distributed in the hope that it will be useful,
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
15 GNU General Public License for more details.
17 You should have received a copy of the GNU General Public License
18 along with this program. If not, see <http://www.gnu.org/licenses/>. */
26 #include "gdb-demangle.h"
28 #include "gdb_string.h"
29 #include "typeprint.h"
32 #include "gdb_assert.h"
36 static void java_type_print_base (struct type
* type
,
37 struct ui_file
*stream
, int show
,
41 java_type_print_derivation_info (struct ui_file
*stream
, struct type
*type
)
48 n_bases
= TYPE_N_BASECLASSES (type
);
50 for (i
= 0, prev
= 0; i
< n_bases
; i
++)
54 kind
= BASETYPE_VIA_VIRTUAL (type
, i
) ? 'I' : 'E';
56 fputs_filtered (kind
== prev
? ", "
57 : kind
== 'I' ? " implements "
61 name
= type_name_no_tag (TYPE_BASECLASS (type
, i
));
63 fprintf_filtered (stream
, "%s", name
? name
: "(null)");
67 fputs_filtered (" ", stream
);
70 /* Print the name of the type (or the ultimate pointer target,
71 function value or array element), or the description of a
74 SHOW positive means print details about the type (e.g. enum values),
75 and print structure elements passing SHOW - 1 for show.
76 SHOW negative means just print the type name or struct tag if there is one.
77 If there is no name, print something sensible but concise like
79 SHOW zero means just print the type name or struct tag if there is one.
80 If there is no name, print something sensible but not as concise like
81 "struct {int x; int y;}".
83 LEVEL is the number of spaces to indent by.
84 We increase it for some recursive calls. */
87 java_type_print_base (struct type
*type
, struct ui_file
*stream
, int show
,
100 fputs_filtered ("<type unknown>", stream
);
104 /* When SHOW is zero or less, and there is a valid type name, then always
105 just print the type name directly from the type. */
108 && TYPE_NAME (type
) != NULL
)
110 fputs_filtered (TYPE_NAME (type
), stream
);
114 CHECK_TYPEDEF (type
);
116 switch (TYPE_CODE (type
))
119 java_type_print_base (TYPE_TARGET_TYPE (type
), stream
, show
, level
);
122 case TYPE_CODE_STRUCT
:
123 if (TYPE_TAG_NAME (type
) != NULL
&& TYPE_TAG_NAME (type
)[0] == '[')
125 char *name
= java_demangle_type_signature (TYPE_TAG_NAME (type
));
127 fputs_filtered (name
, stream
);
133 fprintf_filtered (stream
, "class ");
135 if (TYPE_TAG_NAME (type
) != NULL
)
137 fputs_filtered (TYPE_TAG_NAME (type
), stream
);
139 fputs_filtered (" ", stream
);
146 /* If we just printed a tag name, no need to print anything else. */
147 if (TYPE_TAG_NAME (type
) == NULL
)
148 fprintf_filtered (stream
, "{...}");
150 else if (show
> 0 || TYPE_TAG_NAME (type
) == NULL
)
152 java_type_print_derivation_info (stream
, type
);
154 fprintf_filtered (stream
, "{\n");
155 if ((TYPE_NFIELDS (type
) == 0) && (TYPE_NFN_FIELDS (type
) == 0))
157 if (TYPE_STUB (type
))
158 fprintfi_filtered (level
+ 4, stream
, "<incomplete type>\n");
160 fprintfi_filtered (level
+ 4, stream
, "<no data fields>\n");
163 /* If there is a base class for this type,
164 do not print the field that it occupies. */
166 len
= TYPE_NFIELDS (type
);
167 for (i
= TYPE_N_BASECLASSES (type
); i
< len
; i
++)
170 /* Don't print out virtual function table. */
171 if (strncmp (TYPE_FIELD_NAME (type
, i
), "_vptr", 5) == 0
172 && is_cplus_marker ((TYPE_FIELD_NAME (type
, i
))[5]))
175 /* Don't print the dummy field "class". */
176 if (strncmp (TYPE_FIELD_NAME (type
, i
), "class", 5) == 0)
179 print_spaces_filtered (level
+ 4, stream
);
181 if (HAVE_CPLUS_STRUCT (type
))
183 if (TYPE_FIELD_PROTECTED (type
, i
))
184 fprintf_filtered (stream
, "protected ");
185 else if (TYPE_FIELD_PRIVATE (type
, i
))
186 fprintf_filtered (stream
, "private ");
188 fprintf_filtered (stream
, "public ");
191 if (field_is_static (&TYPE_FIELD (type
, i
)))
192 fprintf_filtered (stream
, "static ");
194 java_print_type (TYPE_FIELD_TYPE (type
, i
),
195 TYPE_FIELD_NAME (type
, i
),
196 stream
, show
- 1, level
+ 4);
198 fprintf_filtered (stream
, ";\n");
201 /* If there are both fields and methods, put a space between. */
202 len
= TYPE_NFN_FIELDS (type
);
204 fprintf_filtered (stream
, "\n");
206 /* Print out the methods. */
208 for (i
= 0; i
< len
; i
++)
217 f
= TYPE_FN_FIELDLIST1 (type
, i
);
218 n_overloads
= TYPE_FN_FIELDLIST_LENGTH (type
, i
);
219 method_name
= TYPE_FN_FIELDLIST_NAME (type
, i
);
220 name
= type_name_no_tag (type
);
221 is_constructor
= name
&& strcmp (method_name
, name
) == 0;
223 for (j
= 0; j
< n_overloads
; j
++)
225 const char *real_physname
;
227 int is_full_physname_constructor
;
229 real_physname
= TYPE_FN_FIELD_PHYSNAME (f
, j
);
231 /* The physname will contain the return type
232 after the final closing parenthesis. Strip it off. */
233 p
= strrchr (real_physname
, ')');
234 gdb_assert (p
!= NULL
);
235 ++p
; /* Keep the trailing ')'. */
236 physname
= alloca (p
- real_physname
+ 1);
237 memcpy (physname
, real_physname
, p
- real_physname
);
238 physname
[p
- real_physname
] = '\0';
240 is_full_physname_constructor
241 = (is_constructor_name (physname
)
242 || is_destructor_name (physname
));
246 print_spaces_filtered (level
+ 4, stream
);
248 if (TYPE_FN_FIELD_PROTECTED (f
, j
))
249 fprintf_filtered (stream
, "protected ");
250 else if (TYPE_FN_FIELD_PRIVATE (f
, j
))
251 fprintf_filtered (stream
, "private ");
252 else if (TYPE_FN_FIELD_PUBLIC (f
, j
))
253 fprintf_filtered (stream
, "public ");
255 if (TYPE_FN_FIELD_ABSTRACT (f
, j
))
256 fprintf_filtered (stream
, "abstract ");
257 if (TYPE_FN_FIELD_STATIC (f
, j
))
258 fprintf_filtered (stream
, "static ");
259 if (TYPE_FN_FIELD_FINAL (f
, j
))
260 fprintf_filtered (stream
, "final ");
261 if (TYPE_FN_FIELD_SYNCHRONIZED (f
, j
))
262 fprintf_filtered (stream
, "synchronized ");
263 if (TYPE_FN_FIELD_NATIVE (f
, j
))
264 fprintf_filtered (stream
, "native ");
266 if (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f
, j
)) == 0)
268 /* Keep GDB from crashing here. */
269 fprintf_filtered (stream
, "<undefined type> %s;\n",
270 TYPE_FN_FIELD_PHYSNAME (f
, j
));
273 else if (!is_constructor
&& !is_full_physname_constructor
)
275 type_print (TYPE_TARGET_TYPE (TYPE_FN_FIELD_TYPE (f
, j
)),
277 fputs_filtered (" ", stream
);
280 if (TYPE_FN_FIELD_STUB (f
, j
))
281 /* Build something we can demangle. */
282 mangled_name
= gdb_mangle_name (type
, i
, j
);
284 mangled_name
= physname
;
287 cplus_demangle (mangled_name
,
288 DMGL_ANSI
| DMGL_PARAMS
| DMGL_JAVA
);
290 if (demangled_name
== NULL
)
291 demangled_name
= xstrdup (mangled_name
);
294 char *demangled_no_class
;
297 ptr
= demangled_no_class
= demangled_name
;
305 if (c
== 0 || c
== '(')
308 demangled_no_class
= ptr
;
311 fputs_filtered (demangled_no_class
, stream
);
312 xfree (demangled_name
);
315 if (TYPE_FN_FIELD_STUB (f
, j
))
316 xfree (mangled_name
);
318 fprintf_filtered (stream
, ";\n");
322 fprintfi_filtered (level
, stream
, "}");
327 c_type_print_base (type
, stream
, show
, level
);
331 /* LEVEL is the depth to indent lines by. */
333 extern void c_type_print_varspec_suffix (struct type
*, struct ui_file
*,
337 java_print_type (struct type
*type
, const char *varstring
,
338 struct ui_file
*stream
, int show
, int level
)
342 java_type_print_base (type
, stream
, show
, level
);
344 if (varstring
!= NULL
&& *varstring
!= '\0')
346 fputs_filtered (" ", stream
);
347 fputs_filtered (varstring
, stream
);
350 /* For demangled function names, we have the arglist as part of the name,
351 so don't print an additional pair of ()'s. */
353 demangled_args
= varstring
!= NULL
&& strchr (varstring
, '(') != NULL
;
354 c_type_print_varspec_suffix (type
, stream
, show
, 0, demangled_args
);