1 /********************************************************************/ 2 /* */ 3 /* s7 Seed7 interpreter */ 4 /* Copyright (C) 1990 - 2010 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: Compiler data reflection */ 22 /* File: seed7/src/typ_data.h */ 23 /* Changes: 1993, 1994, 1999, 2000, 2008, 2010 Thomas Mertes */ 24 /* Content: Primitive actions for the type type. */ 25 /* */ 26 /********************************************************************/ 27 28 intType typCmp (const const_typeType type1, const const_typeType type2); 29 intType typCmpGeneric (const genericType type1, const genericType type2); 30 typeType typFunc (typeType basic_type); 31 boolType typIsDerived (typeType any_type); 32 boolType typIsFunc (typeType any_type); 33 boolType typIsVarfunc (typeType any_type); 34 objectType typMatchobj (typeType actual_type); 35 typeType typMeta (typeType any_type); 36 intType typNum (typeType actual_type); 37 typeType typResult (typeType any_type); 38 striType typStr (typeType type_arg); 39 typeType typVarfunc (typeType basic_type); 40