001    // -*- mode: java -*-
002    /* Copyright 2000, 2001, Compaq Computer Corporation */
003    
004    /* IF THIS IS A JAVA FILE, DO NOT EDIT IT!  
005    
006       Most Java files in this directory which are part of the Javafe AST
007       are automatically generated using the astgen comment (see
008       ESCTools/Javafe/astgen) from the input file 'hierarchy.h'.  If you
009       wish to modify AST classes or introduce new ones, modify
010       'hierarchy.j.'
011     */
012    
013    package escjava.ast;
014    
015    import java.util.Hashtable;
016    import java.util.Set;
017    import java.util.ArrayList;
018    
019    import javafe.ast.*;
020    import javafe.util.Assert;
021    import javafe.util.Location;
022    import escjava.ParsedRoutineSpecs;
023    
024    // Convention: unless otherwise noted, integer fields named "loc" refer
025    // to the location of the first character of the syntactic unit
026    
027    //# TagBase javafe.tc.TagConstants.LAST_TAG + 1
028    //# VisitorRoot javafe.ast.Visitor
029    
030    
031    public class ModelProgamModifierPragma extends ModifierPragma
032    {
033      public int tag;
034    
035      public int loc;
036    
037    
038      public final int getTag() { return tag; }
039    
040      //@ public represents startLoc <- loc;
041      public /*@ pure @*/ int getStartLoc() { return loc; }
042    
043    
044    // Generated boilerplate constructors:
045    
046      //@ ensures this.tag == tag;
047      //@ ensures this.loc == loc;
048      protected ModelProgamModifierPragma(int tag, int loc) {
049         this.tag = tag;
050         this.loc = loc;
051      }
052    
053    // Generated boilerplate methods:
054    
055      public final int childCount() {
056         return 0;
057      }
058    
059      public final Object childAt(int index) {
060              /*throws IndexOutOfBoundsException*/
061         if (index < 0)
062            throw new IndexOutOfBoundsException("AST child index " + index);
063         int indexPre = index;
064    
065         int sz;
066    
067         throw new IndexOutOfBoundsException("AST child index " + indexPre);
068      }   //@ nowarn Exception;
069    
070      public final /*@non_null*/String toString() {
071         return "[ModelProgamModifierPragma"
072            + " tag = " + this.tag
073            + " loc = " + this.loc
074            + "]";
075      }
076    
077      public final void accept(javafe.ast.Visitor v) { 
078        if (v instanceof Visitor) ((Visitor)v).visitModelProgamModifierPragma(this);
079      }
080    
081      public final Object accept(javafe.ast.VisitorArgResult v, Object o) { 
082        if (v instanceof VisitorArgResult) return ((VisitorArgResult)v).visitModelProgamModifierPragma(this, o); else return null;
083      }
084    
085      public void check() {
086      }
087    
088      //@ ensures \result != null;
089      public static ModelProgamModifierPragma make(int tag, int loc) {
090         ModelProgamModifierPragma result = new ModelProgamModifierPragma(tag, loc);
091         return result;
092      }
093    }