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

INTERFACE M3AST_AS_Init;

IMPORT AST, M3AST_AS_F;

PROCEDURE Record_type(n: M3AST_AS_F.Record_type): AST.NODE RAISES {};
PROCEDURE Object_type(n: M3AST_AS_F.Object_type): AST.NODE RAISES {};
PROCEDURE Exp_used_id(n: M3AST_AS_F.Exp_used_id): AST.NODE RAISES {};
PROCEDURE Case_st(n: M3AST_AS_F.Case_st): AST.NODE RAISES {};
PROCEDURE For_st(n: M3AST_AS_F.For_st): AST.NODE RAISES {};
PROCEDURE If_st(n: M3AST_AS_F.If_st): AST.NODE RAISES {};
PROCEDURE Lock_st(n: M3AST_AS_F.Lock_st): AST.NODE RAISES {};
PROCEDURE Loop_st(n: M3AST_AS_F.Loop_st): AST.NODE RAISES {};
PROCEDURE Repeat_st(n: M3AST_AS_F.Repeat_st): AST.NODE RAISES {};
PROCEDURE Try_st(n: M3AST_AS_F.Try_st): AST.NODE RAISES {};
PROCEDURE Typecase_st(n: M3AST_AS_F.Typecase_st): AST.NODE RAISES {};
PROCEDURE While_st(n: M3AST_AS_F.While_st): AST.NODE RAISES {};
PROCEDURE With_st(n: M3AST_AS_F.With_st): AST.NODE RAISES {};
PROCEDURE Block(n: M3AST_AS_F.Block): AST.NODE RAISES {};


END M3AST_AS_Init.