m3tk/src/syn/M3CPragmaF.i3


Copyright (C) 1994, Digital Equipment Corp.

INTERFACE M3CPragmaF;
IMPORT M3AST_AS, M3CPragma, M3CSrcPos;

REVEAL
  M3CPragma.T = BRANDED OBJECT
    prev, next:  M3CPragma.Iter := NIL;
    pos: M3CSrcPos.T;
    body: TEXT;
    precedingNode, followingNode: M3AST_AS.SRC_NODE := NIL;
    precedingStmOrDecl: M3AST_AS.SRC_NODE := NIL;
    hook: REFANY := NIL;
  END;

  M3CPragma.Iter = M3CPragma.T BRANDED OBJECT END;

  M3CPragma.Store = BRANDED REF RECORD
    first, last: M3CPragma.Iter := NIL;
  END;

END M3CPragmaF.