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 ImportPragma extends LexicalPragma
032    {
033      public /*@ non_null @*/ ImportDecl decl;
034    
035      public int loc;
036    
037    
038      //@ public represents startLoc <- loc;
039      public /*@ pure @*/ int getStartLoc() { return loc; }
040    
041    
042    // Generated boilerplate constructors:
043    
044      //@ ensures this.decl == decl;
045      //@ ensures this.loc == loc;
046      protected ImportPragma(/*@ non_null @*/ ImportDecl decl, int loc) {
047         this.decl = decl;
048         this.loc = loc;
049      }
050    
051    // Generated boilerplate methods:
052    
053      public final int childCount() {
054         return 1;
055      }
056    
057      public final Object childAt(int index) {
058              /*throws IndexOutOfBoundsException*/
059         if (index < 0)
060            throw new IndexOutOfBoundsException("AST child index " + index);
061         int indexPre = index;
062    
063         int sz;
064    
065         if (index == 0) return this.decl;
066         else index--;
067    
068         throw new IndexOutOfBoundsException("AST child index " + indexPre);
069      }   //@ nowarn Exception;
070    
071      public final /*@non_null*/String toString() {
072         return "[ImportPragma"
073            + " decl = " + this.decl
074            + " loc = " + this.loc
075            + "]";
076      }
077    
078      public final int getTag() {
079         return TagConstants.IMPORTPRAGMA;
080      }
081    
082      public final void accept(javafe.ast.Visitor v) { 
083        if (v instanceof Visitor) ((Visitor)v).visitImportPragma(this);
084      }
085    
086      public final Object accept(javafe.ast.VisitorArgResult v, Object o) { 
087        if (v instanceof VisitorArgResult) return ((VisitorArgResult)v).visitImportPragma(this, o); else return null;
088      }
089    
090      public void check() {
091         this.decl.check();
092      }
093    
094      //@ ensures \result != null;
095      public static ImportPragma make(/*@ non_null @*/ ImportDecl decl, int loc) {
096         ImportPragma result = new ImportPragma(decl, loc);
097         return result;
098      }
099    }