00001 // Copyright (C) 2001, Compaq Computer Corporation 00002 // 00003 // This file is part of Vesta. 00004 // 00005 // Vesta is free software; you can redistribute it and/or 00006 // modify it under the terms of the GNU Lesser General Public 00007 // License as published by the Free Software Foundation; either 00008 // version 2.1 of the License, or (at your option) any later version. 00009 // 00010 // Vesta is distributed in the hope that it will be useful, 00011 // but WITHOUT ANY WARRANTY; without even the implied warranty of 00012 // MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU 00013 // Lesser General Public License for more details. 00014 // 00015 // You should have received a copy of the GNU Lesser General Public 00016 // License along with Vesta; if not, write to the Free Software 00017 // Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA 00018 00019 // File: Expr.H 00020 // Last Modified On Fri Mar 13 16:14:04 PST 1998 by yuanyu 00021 // Modified On Tue Feb 27 15:36:13 PST 1996 by levin 00022 00023 #ifndef PickleStats_H 00024 #define PickleStats_H 00025 00026 // The kinds of DepPath: 00027 enum PathKind { 00028 NormPK = 'N', BangPK = '!', TypePK = 'T', LLenPK = 'L', BLenPK = 'B', 00029 ExprPK = 'E', DummyPK = 'D' }; 00030 00031 // Cases for subclasses of ValC: 00032 enum ValueKind { 00033 BooleanVK, IntegerVK, ListVK, BindingVK, PrimitiveVK, 00034 TextVK, ClosureVK, ModelVK, ErrorVK, FpVK, UnbndVK }; 00035 00036 // Cases for subclasses of ExprC: 00037 enum ExprKind { 00038 ConstantEK, IfEK, ComputedEK, ArgListEK, ExprListEK, StmtListEK, 00039 ApplyEK, ApplyOpEK, ApplyUnOpEK, AssignEK, BindEK, BindingEK, 00040 BlockEK, FileEK, FuncEK, IterateEK, ListEK, ModelEK, NameEK, 00041 PairEK, PrimitiveEK, SelectEK, TypedEK, BaseTEK, ListTEK, 00042 BindingTEK, FuncTEK, ErrorEK }; 00043 00044 #endif // PickleStats_H