1 /********************************************************************/
2 /*                                                                  */
3 /*  s7   Seed7 interpreter                                          */
4 /*  Copyright (C) 1990 - 2000  Thomas Mertes                        */
5 /*                                                                  */
6 /*  This program is free software; you can redistribute it and/or   */
7 /*  modify it under the terms of the GNU General Public License as  */
8 /*  published by the Free Software Foundation; either version 2 of  */
9 /*  the License, or (at your option) any later version.             */
10 /*                                                                  */
11 /*  This program is distributed in the hope that it will be useful, */
12 /*  but WITHOUT ANY WARRANTY; without even the implied warranty of  */
13 /*  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the   */
14 /*  GNU General Public License for more details.                    */
15 /*                                                                  */
16 /*  You should have received a copy of the GNU General Public       */
17 /*  License along with this program; if not, write to the           */
18 /*  Free Software Foundation, Inc., 51 Franklin Street,             */
19 /*  Fifth Floor, Boston, MA  02110-1301, USA.                       */
20 /*                                                                  */
21 /*  Module: General                                                 */
22 /*  File: seed7/src/endutl.h                                        */
23 /*  Changes: 2000  Thomas Mertes                                    */
24 /*  Content: Procedures to maintain objects of type entityType.     */
25 /*                                                                  */
26 /********************************************************************/
27 
28 nodeType find_node (register nodeType node_tree,
29     register objectType object_searched);
30 void init_declaration_root (progType currentProg, errInfoType *err_info);
31 void close_declaration_root (progType currentProg);
32 void free_entity (const_progType currentProg, entityType old_entity);
33 entityType get_entity (nodeType declaration_base, listType name_list);
34 entityType find_entity (nodeType declaration_base, listType name_list);
35 entityType search_entity (const_nodeType start_node, const_listType name_list);
36 void pop_entity (nodeType declaration_base, const_entityType entity);
37 void close_entity (progType currentProg);
38 void init_entity (progType aProg, errInfoType *err_info);
39