INTERFACE AstToType;

IMPORT Atom, Wr;
IMPORT AST, ASTWalk, M3Context;
IMPORT Type;

TYPE
  Handle <: Public;
  Public = ASTWalk.Closure OBJECT
    wr: Wr.T;
    intf: Atom.T;
    context: M3Context.T;
  END;

PROCEDURE NewHandle(wr: Wr.T; intf: TEXT; c: M3Context.T): Handle;

Creates a new handle suitable for passing to ASTWalk.VisitNodes, or directly to Node, from another walk. The callback method is set to Node. If NetObj.T is not defined in context c, returns NIL

PROCEDURE OneStub(c: M3Context.T; qid: Type.Qid; wr: Wr.T): INTEGER;

Generate stub code for the network object whose type is named by qid. c is the current compilation context. Errors and info output goes to wr. A non-zero returned value indicates an error

PROCEDURE Node(h: Handle; n: AST.NODE; vm: ASTWalk.VisitMode);

If n is a Proc_decl node, output its name on h.wr.

END AstToType.