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