1*ef5ccd6cSJohn Marino /* varobj support for Ada. 2*ef5ccd6cSJohn Marino 3*ef5ccd6cSJohn Marino Copyright (C) 2012-2013 Free Software Foundation, Inc. 4*ef5ccd6cSJohn Marino 5*ef5ccd6cSJohn Marino This file is part of GDB. 6*ef5ccd6cSJohn Marino 7*ef5ccd6cSJohn Marino This program is free software; you can redistribute it and/or modify 8*ef5ccd6cSJohn Marino it under the terms of the GNU General Public License as published by 9*ef5ccd6cSJohn Marino the Free Software Foundation; either version 3 of the License, or 10*ef5ccd6cSJohn Marino (at your option) any later version. 11*ef5ccd6cSJohn Marino 12*ef5ccd6cSJohn Marino This program is distributed in the hope that it will be useful, 13*ef5ccd6cSJohn Marino but WITHOUT ANY WARRANTY; without even the implied warranty of 14*ef5ccd6cSJohn Marino MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the 15*ef5ccd6cSJohn Marino GNU General Public License for more details. 16*ef5ccd6cSJohn Marino 17*ef5ccd6cSJohn Marino You should have received a copy of the GNU General Public License 18*ef5ccd6cSJohn Marino along with this program. If not, see <http://www.gnu.org/licenses/>. */ 19*ef5ccd6cSJohn Marino 20*ef5ccd6cSJohn Marino #ifndef ADA_VAROBJ_H 21*ef5ccd6cSJohn Marino #define ADA_VAROBJ_H 22*ef5ccd6cSJohn Marino 23*ef5ccd6cSJohn Marino #include "varobj.h" 24*ef5ccd6cSJohn Marino 25*ef5ccd6cSJohn Marino struct value; 26*ef5ccd6cSJohn Marino struct value_print_options; 27*ef5ccd6cSJohn Marino 28*ef5ccd6cSJohn Marino extern int ada_varobj_get_number_of_children (struct value *parent_value, 29*ef5ccd6cSJohn Marino struct type *parent_type); 30*ef5ccd6cSJohn Marino 31*ef5ccd6cSJohn Marino extern char *ada_varobj_get_name_of_child (struct value *parent_value, 32*ef5ccd6cSJohn Marino struct type *parent_type, 33*ef5ccd6cSJohn Marino const char *parent_name, 34*ef5ccd6cSJohn Marino int child_index); 35*ef5ccd6cSJohn Marino 36*ef5ccd6cSJohn Marino extern char *ada_varobj_get_path_expr_of_child (struct value *parent_value, 37*ef5ccd6cSJohn Marino struct type *parent_type, 38*ef5ccd6cSJohn Marino const char *parent_name, 39*ef5ccd6cSJohn Marino const char *parent_path_expr, 40*ef5ccd6cSJohn Marino int child_index); 41*ef5ccd6cSJohn Marino 42*ef5ccd6cSJohn Marino extern struct value *ada_varobj_get_value_of_child (struct value *parent_value, 43*ef5ccd6cSJohn Marino struct type *parent_type, 44*ef5ccd6cSJohn Marino const char *parent_name, 45*ef5ccd6cSJohn Marino int child_index); 46*ef5ccd6cSJohn Marino 47*ef5ccd6cSJohn Marino extern struct type *ada_varobj_get_type_of_child (struct value *parent_value, 48*ef5ccd6cSJohn Marino struct type *parent_type, 49*ef5ccd6cSJohn Marino int child_index); 50*ef5ccd6cSJohn Marino 51*ef5ccd6cSJohn Marino extern char *ada_varobj_get_value_of_variable 52*ef5ccd6cSJohn Marino (struct value *value, struct type *type, 53*ef5ccd6cSJohn Marino struct value_print_options *opts); 54*ef5ccd6cSJohn Marino 55*ef5ccd6cSJohn Marino #endif /* ADA_VAROBJ_H */ 56