xref: /dragonfly/contrib/gdb-7/gdb/ada-varobj.h (revision 548a3528)
1 /* varobj support for Ada.
2 
3    Copyright (C) 2012-2013 Free Software Foundation, Inc.
4 
5    This file is part of GDB.
6 
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.
11 
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.
16 
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/>.  */
19 
20 #ifndef ADA_VAROBJ_H
21 #define ADA_VAROBJ_H
22 
23 #include "varobj.h"
24 
25 struct value;
26 struct value_print_options;
27 
28 extern int ada_varobj_get_number_of_children (struct value *parent_value,
29 					      struct type *parent_type);
30 
31 extern char *ada_varobj_get_name_of_child (struct value *parent_value,
32 					   struct type *parent_type,
33 					   const char *parent_name,
34 					   int child_index);
35 
36 extern char *ada_varobj_get_path_expr_of_child (struct value *parent_value,
37 						struct type *parent_type,
38 						const char *parent_name,
39 						const char *parent_path_expr,
40 						int child_index);
41 
42 extern struct value *ada_varobj_get_value_of_child (struct value *parent_value,
43 						    struct type *parent_type,
44 						    const char *parent_name,
45 						    int child_index);
46 
47 extern struct type *ada_varobj_get_type_of_child (struct value *parent_value,
48 						  struct type *parent_type,
49 						  int child_index);
50 
51 extern char *ada_varobj_get_value_of_variable
52   (struct value *value, struct type *type,
53    struct value_print_options *opts);
54 
55 #endif /* ADA_VAROBJ_H */
56