00001 /* 00002 * Ascend Instance Atom Size Functions. 00003 * by Tom Epperly & Ben Allan 00004 * 8/16/89 00005 * Version: $Revision: 1.4 $ 00006 * Version control file: $RCSfile: atomsize.h,v $ 00007 * Date last modified: $Date: 1997/07/18 12:28:03 $ 00008 * Last modified by: $Author: mthomas $ 00009 * 00010 * This file is part of the Ascend Language Interpreter. 00011 * 00012 * Copyright (C) 1996 Benjamin Andrew Allan 00013 * based on instance.c 00014 * Copyright (C) 1990, 1993, 1994 Thomas Guthrie Epperly 00015 * 00016 * The Ascend Language Interpreter is free software; you can redistribute 00017 * it and/or modify it under the terms of the GNU General Public License as 00018 * published by the Free Software Foundation; either version 2 of the 00019 * License, or (at your option) any later version. 00020 * 00021 * The Ascend Language Interpreter is distributed in hope that it will be 00022 * useful, but WITHOUT ANY WARRANTY; without even the implied warranty of 00023 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00024 * General Public License for more details. 00025 * 00026 * You should have received a copy of the GNU General Public License 00027 * along with the program; if not, write to the Free Software Foundation, 00028 * Inc., 675 Mass Ave, Cambridge, MA 02139 USA. Check the file named 00029 * COPYING. 00030 */ 00031 00043 #ifndef ASC_ATOMSIZE_H 00044 #define ASC_ATOMSIZE_H 00045 00050 extern unsigned long ConstantByteLength(enum inst_t it); 00057 extern unsigned long RealAtomByteLength(unsigned long num_children, 00058 CONST struct ChildDesc *c); 00067 extern unsigned long IntegerAtomByteLength(unsigned long num_children, 00068 CONST struct ChildDesc *c); 00077 extern unsigned long BooleanAtomByteLength(unsigned long num_children, 00078 CONST struct ChildDesc *c); 00087 extern unsigned long SetAtomByteLength(unsigned long num_children, 00088 CONST struct ChildDesc *c); 00097 extern unsigned long SymbolAtomByteLength(unsigned long num_children, 00098 CONST struct ChildDesc *c); 00107 extern unsigned long RelationAtomByteLength(unsigned long num_children, 00108 CONST struct ChildDesc *c); 00117 extern unsigned long LogRelAtomByteLength(unsigned long num_children, 00118 CONST struct ChildDesc *c); 00127 /* @} */ 00128 00129 #endif /* ASC_ATOMSIZE_H */ 00130
1.5.1