Copyright (C) 1994, Digital Equipment Corp. INTERFACEThis is just a pass through to ASTWalk, to cater for the old days. See ASTWalk for documentation, and use it instead.M3ASTWalk ;
IMPORT AST, ASTWalk; EXCEPTION Aborted; (* = ASTWalk.Aborted *) TYPE VisitMode = ASTWalk.VisitMode; VisitModeControl = ASTWalk.VisitModeControl; Closure = ASTWalk.Closure; NodeCallbackProc = ASTWalk.NodeCallbackProc; CONST OnEntry = ASTWalk.OnEntry; OnExit = ASTWalk.OnExit; OnEntryAndExit = ASTWalk.OnEntryAndExit; PROCEDURE VisitNodes(n: AST.NODE; vc: Closure) RAISES ANY; PROCEDURE ModeVisitNodes(n: AST.NODE; vc: Closure; vm: VisitModeControl) RAISES ANY; PROCEDURE NodeProcClosure(p: NodeCallbackProc): Closure RAISES {}; PROCEDURE IgnoreChildren(vc: Closure) RAISES {}; PROCEDURE Abort() RAISES {ASTWalk.Aborted};
caught and converted to our Aborted by Visit/ModeVisitNodes
END M3ASTWalk.