Copyright (C) 1990, Digital Equipment Corporation
All rights reserved.
See the file COPYRIGHT for a full description.
MODULE M3ASTWalk;
IMPORT AST, ASTWalk;
PROCEDURE VisitNodes(n: AST.NODE; vc: Closure) RAISES ANY=
BEGIN
TRY
ASTWalk.VisitNodes(n, vc)
EXCEPT
| ASTWalk.Aborted => RAISE Aborted
END;
END VisitNodes;
PROCEDURE ModeVisitNodes(n: AST.NODE; vc: Closure; vm: VisitModeControl) RAISES ANY=
BEGIN
TRY
ASTWalk.ModeVisitNodes(n, vc, vm)
EXCEPT
| ASTWalk.Aborted => RAISE Aborted
END;
END ModeVisitNodes;
PROCEDURE NodeProcClosure(p: NodeCallbackProc): Closure RAISES {}=
BEGIN
RETURN ASTWalk.NodeProcClosure(p);
END NodeProcClosure;
PROCEDURE IgnoreChildren(vc: Closure) RAISES {}=
BEGIN
ASTWalk.IgnoreChildren(vc);
END IgnoreChildren;
PROCEDURE Abort() RAISES {ASTWalk.Aborted}=
BEGIN
RAISE ASTWalk.Aborted;
END Abort;
BEGIN
END M3ASTWalk.