---

list.h

This is the verbatim text of the list.h include file.

/* Sun-$Revision: 23.3 $ */

/* Copyright 1992-9 Sun Microsystems, Inc. and Stanford University.
   See the LICENSE file for license information. */

# pragma interface

class Object;

struct ParseNode: ResourceObj {
  ParseNode() {}
  
  virtual void Print() = 0;

  // I have folded GenByteCodePositions into GenByteCodes
  
  // Here is the old comment for GenByteCodes:
  
  // NOTE: the top node of the parse tree must be "preserved" 
  // so that oops (e.g. string constants) are updated correctly.
  // GenByteCodes may run Self code and thus cause GCs.
  // The parent is a pointer to the lexically enclosing scope (block or method)

  // And for GenByteCodePositions:
  
  // Unlike in GenByteCodes, the parent is a pointer to the enclosing
  // expression (can be a parenthesized expr)

  virtual bool GenByteCodes(AbstractByteCode* b,
                            Object* parent,
                            bool isExpr = true) {
    Unused(b); Unused(parent); Unused(isExpr);
    return true; }

  // Decorate the parse tree with comments collected by the scanner.
  virtual void addCommentAnnotations(Scanner* scanner) { Unused(scanner); }
};

struct ListElement: ParseNode {
  ParseNode* data;
  ListElement* next;
  
  ListElement(ParseNode* d, ListElement* n = NULL) { data = d; next = n; }
  
  ParseNode* Data() { return data; }
  ListElement* Next() { return next; }
  void SetNext(ListElement* n) { next = n; }
  
  void Print() { Data()->Print(); }

  void oops_do(oopsDoFn f) {
    if (data) data->oops_do(f); }
};

struct List: ParseNode {
  ListElement* head;
  ListElement* tail;
  
  List() { head = tail = NULL; }
  List(ParseNode* e) { head = tail = new ListElement(e); }
  
  ListElement* Head() { return this ? head : NULL; }
  ListElement* Tail() { return this ? tail : NULL; }
  bool IsEmpty() { return this == NULL || head == NULL; }
  
  List* Append(ParseNode* e);
  
  fint Length();
  
  bool GenByteCodes(AbstractByteCode* b, Object* parent, bool isExpr = true);

  void addCommentAnnotations(Scanner* scanner);
  
  void PrintSeparatedBy(char* sep);
  void Print() { PrintSeparatedBy(". "); }
  
  void oops_do(oopsDoFn f);
};

---