(* Copyright (C) 1992, Digital Equipment Corporation           *)
(* All rights reserved.                                        *)
(* See the file COPYRIGHT for a full description.              *)

(* File: Decl.i3                                               *)
(* Last modified on Thu Feb 13 09:52:50 PST 1992 by kalsow     *)
(*      modified on Fri Feb 23 03:42:15 1990 by muller         *)

INTERFACE Decl;

IMPORT M3, Token, String;

TYPE 
  Attributes = RECORD 
      alias:          String.T := NIL;
      isExternal:     BOOLEAN  := FALSE;
      isInline:       BOOLEAN  := FALSE;
      isUnused:       BOOLEAN  := FALSE;
      isObsolete:     BOOLEAN  := FALSE;
    END;


PROCEDURE Parse (READONLY fail: Token.Set;
                  interface, top_level: BOOLEAN;  VAR fails: M3.ExSet);

PROCEDURE ParseExternalPragma (READONLY fail: Token.Set;  VAR alias: String.T);

END Decl.