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

(* File: BlockStmt.i3                                          *)
(* Last Modified On Thu Feb 13 09:52:32 PST 1992 By kalsow     *)

INTERFACE BlockStmt;

IMPORT M3, Token, Stmt;

PROCEDURE Parse (READONLY fail: Token.Set;  needScope := TRUE): Stmt.T;

PROCEDURE ExtractFails (t: Stmt.T): M3.ExSet;

PROCEDURE BodyOffset (t: Stmt.T): INTEGER;

END BlockStmt.