001 /* Copyright 2000, 2001, Compaq Computer Corporation */ 002 003 /* IF THIS IS A JAVA FILE, DO NOT EDIT IT! 004 005 Most Java files in this directory which are part of the Javafe AST 006 are automatically generated using the astgen comment (see 007 ESCTools/Javafe/astgen) from the input file 'hierarchy.h'. If you 008 wish to modify AST classes or introduce new ones, modify 009 'hierarchy.j.' 010 */ 011 012 package escjava.ast; 013 014 import java.util.Hashtable; 015 import java.util.Set; 016 import java.util.ArrayList; 017 018 import javafe.ast.*; 019 import javafe.util.Assert; 020 import javafe.util.Location; 021 import escjava.ParsedRoutineSpecs; 022 023 // Convention: unless otherwise noted, integer fields named "loc" refer 024 // to the location of the first character of the syntactic unit 025 026 //# TagBase javafe.tc.TagConstants.LAST_TAG + 1 027 //# VisitorRoot javafe.ast.Visitor 028 029 030 public class DefPredLetExpr extends Expr 031 { 032 public /*@ non_null @*/ DefPredVec preds; 033 034 public /*@ non_null @*/ Expr body; 035 036 037 public int getStartLoc() { return body.getStartLoc(); } 038 039 040 // Generated boilerplate constructors: 041 042 /** 043 * Construct a raw DefPredLetExpr whose class invariant(s) have not 044 * yet been established. It is the caller's job to 045 * initialize the returned node's fields so that any 046 * class invariants hold. 047 */ 048 //@ requires I_will_establish_invariants_afterwards; 049 protected DefPredLetExpr() {} //@ nowarn Invariant,NonNullInit; 050 051 052 // Generated boilerplate methods: 053 054 public final int childCount() { 055 int sz = 0; 056 if (this.preds != null) sz += this.preds.size(); 057 return sz + 1; 058 } 059 060 public final Object childAt(int index) { 061 /*throws IndexOutOfBoundsException*/ 062 if (index < 0) 063 throw new IndexOutOfBoundsException("AST child index " + index); 064 int indexPre = index; 065 066 int sz; 067 068 sz = (this.preds == null ? 0 : this.preds.size()); 069 if (0 <= index && index < sz) 070 return this.preds.elementAt(index); 071 else index -= sz; 072 073 if (index == 0) return this.body; 074 else index--; 075 076 throw new IndexOutOfBoundsException("AST child index " + indexPre); 077 } //@ nowarn Exception; 078 079 public final String toString() { 080 return "[DefPredLetExpr" 081 + " preds = " + this.preds 082 + " body = " + this.body 083 + "]"; 084 } 085 086 public final int getTag() { 087 return TagConstants.DEFPREDLETEXPR; 088 } 089 090 public final void accept(javafe.ast.Visitor v) { 091 if (v instanceof Visitor) ((Visitor)v).visitDefPredLetExpr(this); 092 } 093 094 public final Object accept(javafe.ast.VisitorArgResult v, Object o) { 095 if (v instanceof VisitorArgResult) return ((VisitorArgResult)v).visitDefPredLetExpr(this, o); else return null; 096 } 097 098 public void check() { 099 for(int i = 0; i < this.preds.size(); i++) 100 this.preds.elementAt(i).check(); 101 this.body.check(); 102 } 103 104 //@ ensures \result != null; 105 public static DefPredLetExpr make(/*@ non_null @*/ DefPredVec preds, /*@ non_null @*/ Expr body) { 106 //@ set I_will_establish_invariants_afterwards = true; 107 DefPredLetExpr result = new DefPredLetExpr(); 108 result.preds = preds; 109 result.body = body; 110 return result; 111 } 112 }