/* * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * Copyright (C) 2001 Gerwin Klein <lsf@jflex.de> * * Copyright (C) 2001 Bernhard Rumpe <rumpe@in.tum.de> * * All rights reserved. * * * * This program is free software; you can redistribute it and/or modify * * it under the terms of the GNU General Public License. See the file * * COPYRIGHT for more information. * * * * This program is distributed in the hope that it will be useful, * * but WITHOUT ANY WARRANTY; without even the implied warranty of * * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the * * GNU General Public License for more details. * * * * You should have received a copy of the GNU General Public License along * * with this program; if not, write to the Free Software Foundation, Inc., * * 59 Temple Place, Suite 330, Boston, MA 02111-1307 USA * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * * */ /** * AST node for declaration lists of functions */ class Tdekllist implements AST { Tdekllist dekllist; // rest list (optional null) Tdekl dekl; // declaration public Tdekllist(Tdekllist p, Tdekl e) { dekllist=p; dekl=e; } public Tdekllist(Tdekl e) { dekllist=null; dekl=e; } public String toString() { if (dekllist!=null) return(dekllist+",\n"+dekl); else return(dekl.toString()); } public void setSymtab(SymTab st) { if (dekllist!=null) dekllist.setSymtab(st); dekl.setSymtab(st); } public void printSymtabs() { if (dekllist!=null) dekllist.printSymtabs(); dekl.printSymtabs(); } public void checkcontext() { if (dekllist!=null) dekllist.checkcontext(); dekl.checkcontext(); // CoCo (DefFun,DefVar,Arity) } // in function body public void prepInterp(SymTab st) { // set pointers and indices dekl.prepInterp(st); if (dekllist!=null) dekllist.prepInterp(st); } }